diff options
| author | vyzo <vyzo@hackzen.org> | 2024-02-29 21:33:02 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-02-29 21:33:02 +0200 |
| commit | b409070e3c9315cd3026ca4bc7720e0cfbfb36ab (patch) | |
| tree | 45e0de15d18b8d850754d9984785bc7d84790d74 | |
| parent | 0a2b04db13da4abf1af059a1ceb7d12b01eaeea4 (diff) | |
Fix some issues with gc tables (#1138)
The important one is the bug in using the load vector; it turns out it
was mistyped, it is supposed to be an f64vector of 3 elements, and was
using a plain vector of two floats... :man_facepalming:
I also added a test for gc tables; not that it was triggering the bug
(that was triggered in a much more complex program), but it is nice to
have and we can make it more elaborate in time.
77 files changed, 86809 insertions, 86786 deletions
diff --git a/src/bootstrap/gerbil/compiler/base__0.scm b/src/bootstrap/gerbil/compiler/base__0.scm index 7b66c9ee..ee4c2475 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 1709128372) + (define gerbil/compiler/base::timestamp 1709229970) (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 ((__tmp98238 (list)) - (__tmp98236 - (let ((__tmp98237 + (let ((__tmp98235 (list)) + (__tmp98233 + (let ((__tmp98234 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp98237 '())))) + (cons __tmp98234 '())))) (declare (not safe)) (make-class-type 'gxc#symbol-table::t 'symbol-table - __tmp98238 + __tmp98235 '(gensyms bindings) - __tmp98236 + __tmp98233 ':init!))) (define gxc#symbol-table? (let () (declare (not safe)) (make-class-predicate gxc#symbol-table::t))) (define gxc#make-symbol-table - (lambda _$args98189_ - (apply make-instance gxc#symbol-table::t _$args98189_))) + (lambda _$args98186_ + (apply make-instance gxc#symbol-table::t _$args98186_))) (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 (_self98187_) - (if (let ((__tmp98244 + (lambda (_self98184_) + (if (let ((__tmp98241 (let () (declare (not safe)) - (##structure-length _self98187_)))) + (##structure-length _self98184_)))) (declare (not safe)) - (##fx< '2 __tmp98244)) + (##fx< '2 __tmp98241)) (begin - (let ((__tmp98241 + (let ((__tmp98238 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp98240 + (__tmp98237 (let () (declare (not safe)) - (##structure-type _self98187_)))) + (##structure-type _self98184_)))) (declare (not safe)) (##unchecked-structure-set! - _self98187_ - __tmp98241 + _self98184_ + __tmp98238 '1 - __tmp98240 + __tmp98237 '#f)) - (let ((__tmp98243 + (let ((__tmp98240 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp98242 + (__tmp98239 (let () (declare (not safe)) - (##structure-type _self98187_)))) + (##structure-type _self98184_)))) (declare (not safe)) (##unchecked-structure-set! - _self98187_ - __tmp98243 + _self98184_ + __tmp98240 '2 - __tmp98242 + __tmp98239 '#f))) - (let ((__tmp98239 + (let ((__tmp98236 (let () (declare (not safe)) - (##vector-length _self98187_)))) + (##vector-length _self98184_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self98187_ + _self98184_ '2 - __tmp98239))))) + __tmp98236))))) (let () (declare (not safe)) (bind-method!__% @@ -121,46 +121,46 @@ gxc#symbol-table:::init! '#f)) (define gxc#raise-compile-error - (lambda (_message98056_ _stx98057_ . _details98058_) - (let ((_ctx98063_ - (let ((_$e98060_ (gxc#current-compile-context))) - (if _$e98060_ _$e98060_ 'compile)))) + (lambda (_message98053_ _stx98054_ . _details98055_) + (let ((_ctx98060_ + (let ((_$e98057_ (gxc#current-compile-context))) + (if _$e98057_ _$e98057_ 'compile)))) (apply gx#raise-syntax-error - _ctx98063_ - _message98056_ - _stx98057_ - _details98058_)))) + _ctx98060_ + _message98053_ + _stx98054_ + _details98055_)))) (define gxc#verbose - (lambda _args98053_ + (lambda _args98050_ (if (gxc#current-compile-verbose) - (let ((__tmp98245 (lambda () (apply displayln _args98053_)))) + (let ((__tmp98242 (lambda () (apply displayln _args98050_)))) (declare (not safe)) - (with-lock gxc#+verbose-mutex+ __tmp98245)) + (with-lock gxc#+verbose-mutex+ __tmp98242)) '#!void))) (define gxc#+verbose-mutex+ (make-mutex 'compiler/driver)) (define gxc#module-path-reserved-chars '":#<>&!?*;()[]{}|'`\"\\") (define gxc#module-id->path-string - (lambda (_id98035_) - (let* ((_str98037_ - (if (let () (declare (not safe)) (symbol? _id98035_)) - (symbol->string _id98035_) - _id98035_)) - (_len98039_ (string-length _str98037_)) - (_res98041_ (make-string _len98039_))) - (let _lp98044_ ((_i98046_ '0)) - (if (fx< _i98046_ _len98039_) - (let* ((_char98048_ (string-ref _str98037_ _i98046_)) - (_xchar98050_ + (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_ (if (let () (declare (not safe)) (string-index__0 gxc#module-path-reserved-chars - _char98048_)) + _char98045_)) '#\_ - _char98048_))) - (string-set! _res98041_ _i98046_ _xchar98050_) - (let ((__tmp98246 - (let () (declare (not safe)) (fx+ _i98046_ '1)))) + _char98045_))) + (string-set! _res98038_ _i98043_ _xchar98047_) + (let ((__tmp98243 + (let () (declare (not safe)) (fx+ _i98043_ '1)))) (declare (not safe)) - (_lp98044_ __tmp98246))) - _res98041_))))))) + (_lp98041_ __tmp98243))) + _res98038_))))))) diff --git a/src/bootstrap/gerbil/compiler/base__1.scm b/src/bootstrap/gerbil/compiler/base__1.scm index d24d116b..9e91defa 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]#_g98276_| + (define |gxc[1]#_g98273_| (##structure gx#syntax-quote::t 'symbol-table::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98278_| + (define |gxc[1]#_g98275_| (##structure gx#syntax-quote::t 'make-symbol-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98280_| + (define |gxc[1]#_g98277_| (##structure gx#syntax-quote::t 'symbol-table? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98285_| + (define |gxc[1]#_g98282_| (##structure gx#syntax-quote::t 'symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98288_| + (define |gxc[1]#_g98285_| (##structure gx#syntax-quote::t 'symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98293_| + (define |gxc[1]#_g98290_| (##structure gx#syntax-quote::t 'symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98296_| + (define |gxc[1]#_g98293_| (##structure gx#syntax-quote::t 'symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98301_| + (define |gxc[1]#_g98298_| (##structure gx#syntax-quote::t '&symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98304_| + (define |gxc[1]#_g98301_| (##structure gx#syntax-quote::t '&symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98309_| + (define |gxc[1]#_g98306_| (##structure gx#syntax-quote::t '&symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98312_| + (define |gxc[1]#_g98309_| (##structure gx#syntax-quote::t '&symbol-table-gensyms-set! @@ -79,420 +79,420 @@ '())) (begin (define |gxc[:0:]#ast-case| - (lambda (_stx97633_) + (lambda (_stx97630_) (let () (declare (not safe)) - (gx#macro-expand-syntax-case__% _stx97633_ 'stx-eq? 'stx-e 'quote)))) + (gx#macro-expand-syntax-case__% _stx97630_ 'stx-eq? 'stx-e 'quote)))) (define |gxc[:0:]#ast-rules| - (lambda (_stx97636_) - (let* ((_g9763997663_ - (lambda (_g9764097659_) + (lambda (_stx97633_) + (let* ((_g9763697660_ + (lambda (_g9763797656_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9764097659_)))) - (_g9763897966_ - (lambda (_g9764097667_) + _g9763797656_)))) + (_g9763597963_ + (lambda (_g9763797664_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9764097667_)) - (let ((_e9764597670_ + (gx#stx-pair? _g9763797664_)) + (let ((_e9764297667_ (let () (declare (not safe)) - (gx#syntax-e _g9764097667_)))) - (let ((_hd9764497674_ + (gx#syntax-e _g9763797664_)))) + (let ((_hd9764197671_ (let () (declare (not safe)) - (##car _e9764597670_))) - (_tl9764397677_ + (##car _e9764297667_))) + (_tl9764097674_ (let () (declare (not safe)) - (##cdr _e9764597670_)))) + (##cdr _e9764297667_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9764397677_)) - (let ((_e9764897680_ + (gx#stx-pair? _tl9764097674_)) + (let ((_e9764597677_ (let () (declare (not safe)) - (gx#syntax-e _tl9764397677_)))) - (let ((_hd9764797684_ + (gx#syntax-e _tl9764097674_)))) + (let ((_hd9764497681_ (let () (declare (not safe)) - (##car _e9764897680_))) - (_tl9764697687_ + (##car _e9764597677_))) + (_tl9764397684_ (let () (declare (not safe)) - (##cdr _e9764897680_)))) + (##cdr _e9764597677_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl9764697687_)) - (let ((_g98247_ + (gx#stx-pair/null? _tl9764397684_)) + (let ((_g98244_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl9764697687_ + _tl9764397684_ '0)))) (begin - (let ((_g98248_ + (let ((_g98245_ (let () (declare (not safe)) - (if (##values? _g98247_) + (if (##values? _g98244_) (##vector-length - _g98247_) + _g98244_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98248_ 2))) + (##fx= _g98245_ 2))) (error "Context expects 2 values" - _g98248_))) - (let ((_target9764997690_ + _g98245_))) + (let ((_target9764697687_ (let () (declare (not safe)) - (##vector-ref _g98247_ 0))) - (_tl9765197693_ + (##vector-ref _g98244_ 0))) + (_tl9764897690_ (let () (declare (not safe)) - (##vector-ref _g98247_ 1)))) + (##vector-ref _g98244_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9765197693_)) - (letrec ((_loop9765297696_ - (lambda (_hd9765097700_ + _tl9764897690_)) + (letrec ((_loop9764997693_ + (lambda (_hd9764797697_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause9765697703_) + _clause9765397700_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9765097700_)) - (let ((_e9765397706_ + (gx#stx-pair? _hd9764797697_)) + (let ((_e9765097703_ (let () (declare (not safe)) - (gx#syntax-e _hd9765097700_)))) - (let ((_lp-hd9765497710_ + (gx#syntax-e _hd9764797697_)))) + (let ((_lp-hd9765197707_ (let () (declare (not safe)) - (##car _e9765397706_))) - (_lp-tl9765597713_ + (##car _e9765097703_))) + (_lp-tl9765297710_ (let () (declare (not safe)) - (##cdr _e9765397706_)))) - (_loop9765297696_ - _lp-tl9765597713_ + (##cdr _e9765097703_)))) + (_loop9764997693_ + _lp-tl9765297710_ (let () (declare (not safe)) - (cons _lp-hd9765497710_ _clause9765697703_))))) - (let ((_clause9765797716_ - (reverse _clause9765697703_))) - ((lambda (_L97720_ _L97722_) + (cons _lp-hd9765197707_ _clause9765397700_))))) + (let ((_clause9765497713_ + (reverse _clause9765397700_))) + ((lambda (_L97717_ _L97719_) (if (let () (declare (not safe)) - (gx#identifier-list? _L97722_)) - (let* ((_g9774197758_ - (lambda (_g9774297754_) + (gx#identifier-list? _L97719_)) + (let* ((_g9773897755_ + (lambda (_g9773997751_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9774297754_)))) - (_g9774097819_ - (lambda (_g9774297762_) + _g9773997751_)))) + (_g9773797816_ + (lambda (_g9773997759_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _g9774297762_)) - (let ((_g98249_ + _g9773997759_)) + (let ((_g98246_ (let () (declare (not safe)) (gx#syntax-split-splice - _g9774297762_ + _g9773997759_ '0)))) (begin - (let ((_g98250_ + (let ((_g98247_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g98249_) - (##vector-length _g98249_) + _g98246_) + (##vector-length _g98246_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g98250_ 2))) - (error "Context expects 2 values" _g98250_))) + (##fx= _g98247_ 2))) + (error "Context expects 2 values" _g98247_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target9774497765_ + (let ((_target9774197762_ (let () (declare (not safe)) (##vector-ref - _g98249_ + _g98246_ 0))) - (_tl9774697768_ + (_tl9774397765_ (let () (declare (not safe)) (##vector-ref - _g98249_ + _g98246_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9774697768_)) - (letrec ((_loop9774797771_ + _tl9774397765_)) + (letrec ((_loop9774497768_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd9774597775_ _clause9775197778_) + (lambda (_hd9774297772_ _clause9774897775_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9774597775_)) - (let ((_e9774897781_ + (gx#stx-pair? _hd9774297772_)) + (let ((_e9774597778_ (let () (declare (not safe)) - (gx#syntax-e _hd9774597775_)))) - (let ((_lp-hd9774997785_ + (gx#syntax-e _hd9774297772_)))) + (let ((_lp-hd9774697782_ (let () (declare (not safe)) - (##car _e9774897781_))) - (_lp-tl9775097788_ + (##car _e9774597778_))) + (_lp-tl9774797785_ (let () (declare (not safe)) - (##cdr _e9774897781_)))) - (_loop9774797771_ - _lp-tl9775097788_ + (##cdr _e9774597778_)))) + (_loop9774497768_ + _lp-tl9774797785_ (let () (declare (not safe)) - (cons _lp-hd9774997785_ - _clause9775197778_))))) - (let ((_clause9775297791_ - (reverse _clause9775197778_))) - ((lambda (_L97795_) + (cons _lp-hd9774697782_ + _clause9774897775_))))) + (let ((_clause9774997788_ + (reverse _clause9774897775_))) + ((lambda (_L97792_) (let () - (let ((__tmp98262 + (let ((__tmp98259 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp98251 - (let ((__tmp98260 - (let ((__tmp98261 + (__tmp98248 + (let ((__tmp98257 + (let ((__tmp98258 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '$stx)))) (declare (not safe)) - (cons __tmp98261 '()))) + (cons __tmp98258 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp98252 - (let ((__tmp98253 - (let ((__tmp98259 + (__tmp98249 + (let ((__tmp98250 + (let ((__tmp98256 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp98254 - (let ((__tmp98258 + (__tmp98251 + (let ((__tmp98255 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '$stx))) - (__tmp98255 - (let ((__tmp98256 - (let ((__tmp98257 - (lambda (_g9781097813_ - _g9781197816_) + (__tmp98252 + (let ((__tmp98253 + (let ((__tmp98254 + (lambda (_g9780797810_ + _g9780897813_) (let () (declare (not safe)) - (cons _g9781097813_ - _g9781197816_))))) + (cons _g9780797810_ + _g9780897813_))))) (declare (not safe)) - (foldr1 __tmp98257 '() _L97795_)))) + (foldr1 __tmp98254 '() _L97792_)))) (declare (not safe)) - (cons _L97722_ __tmp98256)))) + (cons _L97719_ __tmp98253)))) (declare (not safe)) - (cons __tmp98258 __tmp98255)))) + (cons __tmp98255 __tmp98252)))) (declare (not safe)) - (cons __tmp98259 __tmp98254)))) + (cons __tmp98256 __tmp98251)))) (declare (not safe)) - (cons __tmp98253 '())))) + (cons __tmp98250 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp98260 - __tmp98252)))) + (cons __tmp98257 + __tmp98249)))) (declare (not safe)) - (cons __tmp98262 __tmp98251)))) - _clause9775297791_)))))) - (_loop9774797771_ _target9774497765_ '())) - (_g9774197758_ _g9774297762_))))) + (cons __tmp98259 __tmp98248)))) + _clause9774997788_)))))) + (_loop9774497768_ _target9774197762_ '())) + (_g9773897755_ _g9773997759_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g9774197758_ - _g9774297762_))))) - (_g9774097819_ - (let ((__tmp98265 - (lambda (_clause97823_) - (let* ((___stx9819298193_ - _clause97823_) - (_g9782797854_ + (_g9773897755_ + _g9773997759_))))) + (_g9773797816_ + (let ((__tmp98262 + (lambda (_clause97820_) + (let* ((___stx9818998190_ + _clause97820_) + (_g9782497851_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx9819298193_))))) - (let ((___kont9819598196_ - (lambda (_L97939_ - _L97941_) - (let ((__tmp98266 - (let ((__tmp98267 + ___stx9818998190_))))) + (let ((___kont9819298193_ + (lambda (_L97936_ + _L97938_) + (let ((__tmp98263 + (let ((__tmp98264 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp98269 + (let ((__tmp98266 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp98268 + (__tmp98265 (let () (declare (not safe)) - (cons _L97939_ '())))) + (cons _L97936_ '())))) (declare (not safe)) - (cons __tmp98269 __tmp98268)))) + (cons __tmp98266 __tmp98265)))) (declare (not safe)) - (cons __tmp98267 '())))) + (cons __tmp98264 '())))) (declare (not safe)) - (cons _L97941_ __tmp98266)))) + (cons _L97938_ __tmp98263)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont9819798198_ - (lambda (_L97891_ - _L97893_ - _L97894_) - (let ((__tmp98270 - (let ((__tmp98271 + (___kont9819498195_ + (lambda (_L97888_ + _L97890_ + _L97891_) + (let ((__tmp98267 + (let ((__tmp98268 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp98272 - (let ((__tmp98274 + (let ((__tmp98269 + (let ((__tmp98271 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp98273 + (__tmp98270 (let () (declare (not safe)) - (cons _L97891_ '())))) + (cons _L97888_ '())))) (declare (not safe)) - (cons __tmp98274 __tmp98273)))) + (cons __tmp98271 __tmp98270)))) (declare (not safe)) - (cons __tmp98272 '())))) + (cons __tmp98269 '())))) (declare (not safe)) - (cons _L97893_ __tmp98271)))) + (cons _L97890_ __tmp98268)))) (declare (not safe)) - (cons _L97894_ __tmp98270))))) + (cons _L97891_ __tmp98267))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx9819298193_)) - (let ((_e9783397919_ + ___stx9818998190_)) + (let ((_e9783097916_ (let () (declare (not safe)) (gx#syntax-e - ___stx9819298193_)))) - (let ((_tl9783197926_ + ___stx9818998190_)))) + (let ((_tl9782897923_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e9783397919_))) - (_hd9783297923_ - (let () (declare (not safe)) (##car _e9783397919_)))) + (##cdr _e9783097916_))) + (_hd9782997920_ + (let () (declare (not safe)) (##car _e9783097916_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9783197926_)) - (let ((_e9783697929_ + (gx#stx-pair? _tl9782897923_)) + (let ((_e9783397926_ (let () (declare (not safe)) - (gx#syntax-e _tl9783197926_)))) - (let ((_tl9783497936_ + (gx#syntax-e _tl9782897923_)))) + (let ((_tl9783197933_ (let () (declare (not safe)) - (##cdr _e9783697929_))) - (_hd9783597933_ + (##cdr _e9783397926_))) + (_hd9783297930_ (let () (declare (not safe)) - (##car _e9783697929_)))) + (##car _e9783397926_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9783497936_)) - (___kont9819598196_ _hd9783597933_ _hd9783297923_) + (gx#stx-null? _tl9783197933_)) + (___kont9819298193_ _hd9783297930_ _hd9782997920_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9783497936_)) - (let ((_e9784897881_ + (gx#stx-pair? _tl9783197933_)) + (let ((_e9784597878_ (let () (declare (not safe)) - (gx#syntax-e _tl9783497936_)))) - (let ((_tl9784697888_ + (gx#syntax-e _tl9783197933_)))) + (let ((_tl9784397885_ (let () (declare (not safe)) - (##cdr _e9784897881_))) - (_hd9784797885_ + (##cdr _e9784597878_))) + (_hd9784497882_ (let () (declare (not safe)) - (##car _e9784897881_)))) + (##car _e9784597878_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9784697888_)) - (___kont9819798198_ - _hd9784797885_ - _hd9783597933_ - _hd9783297923_) + (gx#stx-null? _tl9784397885_)) + (___kont9819498195_ + _hd9784497882_ + _hd9783297930_ + _hd9782997920_) (let () (declare (not safe)) - (_g9782797854_))))) + (_g9782497851_))))) (let () (declare (not safe)) - (_g9782797854_)))))) - (let () (declare (not safe)) (_g9782797854_))))) + (_g9782497851_)))))) + (let () (declare (not safe)) (_g9782497851_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9782797854_))))))) - (__tmp98263 - (let ((__tmp98264 - (lambda (_g9795797960_ - _g9795897963_) + (_g9782497851_))))))) + (__tmp98260 + (let ((__tmp98261 + (lambda (_g9795497957_ + _g9795597960_) (let () (declare (not safe)) - (cons _g9795797960_ - _g9795897963_))))) + (cons _g9795497957_ + _g9795597960_))))) (declare (not safe)) - (foldr1 __tmp98264 + (foldr1 __tmp98261 '() - _L97720_)))) + _L97717_)))) (declare (not safe)) - (gx#stx-map1 __tmp98265 __tmp98263)))) - (_g9763997663_ _g9764097667_))) - _clause9765797716_ - _hd9764797684_)))))) + (gx#stx-map1 __tmp98262 __tmp98260)))) + (_g9763697660_ _g9763797664_))) + _clause9765497713_ + _hd9764497681_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop9765297696_ - _target9764997690_ + (_loop9764997693_ + _target9764697687_ '())) - (_g9763997663_ - _g9764097667_))))) - (_g9763997663_ _g9764097667_)))) - (_g9763997663_ _g9764097667_)))) - (_g9763997663_ _g9764097667_))))) - (_g9763897966_ _stx97636_)))) + (_g9763697660_ + _g9763797664_))))) + (_g9763697660_ _g9763797664_)))) + (_g9763697660_ _g9763797664_)))) + (_g9763697660_ _g9763797664_))))) + (_g9763597963_ _stx97633_)))) (define |gxc[:0:]#symbol-table| - (let ((__obj98235 + (let ((__obj98232 (let () (declare (not safe)) (##structure @@ -515,7 +515,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98235 + __obj98232 '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! - __obj98235 + __obj98232 'symbol-table '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -531,7 +531,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98235 + __obj98232 '(gensyms bindings) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -539,7 +539,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98235 + __obj98232 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -547,7 +547,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98235 + __obj98232 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -555,7 +555,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98235 + __obj98232 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -563,7 +563,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98235 + __obj98232 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -571,205 +571,205 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98235 + __obj98232 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp98275 |gxc[1]#_g98276_|)) + (let ((__tmp98272 |gxc[1]#_g98273_|)) (declare (not safe)) (##unchecked-structure-set! - __obj98235 - __tmp98275 + __obj98232 + __tmp98272 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp98277 |gxc[1]#_g98278_|)) + (let ((__tmp98274 |gxc[1]#_g98275_|)) (declare (not safe)) (##unchecked-structure-set! - __obj98235 - __tmp98277 + __obj98232 + __tmp98274 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp98279 |gxc[1]#_g98280_|)) + (let ((__tmp98276 |gxc[1]#_g98277_|)) (declare (not safe)) (##unchecked-structure-set! - __obj98235 - __tmp98279 + __obj98232 + __tmp98276 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp98281 - (let ((__tmp98286 - (let ((__tmp98287 |gxc[1]#_g98288_|)) + (let ((__tmp98278 + (let ((__tmp98283 + (let ((__tmp98284 |gxc[1]#_g98285_|)) (declare (not safe)) - (cons 'gensyms __tmp98287))) - (__tmp98282 - (let ((__tmp98283 - (let ((__tmp98284 |gxc[1]#_g98285_|)) + (cons 'gensyms __tmp98284))) + (__tmp98279 + (let ((__tmp98280 + (let ((__tmp98281 |gxc[1]#_g98282_|)) (declare (not safe)) - (cons 'bindings __tmp98284)))) + (cons 'bindings __tmp98281)))) (declare (not safe)) - (cons __tmp98283 '())))) + (cons __tmp98280 '())))) (declare (not safe)) - (cons __tmp98286 __tmp98282)))) + (cons __tmp98283 __tmp98279)))) (declare (not safe)) (##unchecked-structure-set! - __obj98235 - __tmp98281 + __obj98232 + __tmp98278 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp98289 - (let ((__tmp98294 - (let ((__tmp98295 |gxc[1]#_g98296_|)) + (let ((__tmp98286 + (let ((__tmp98291 + (let ((__tmp98292 |gxc[1]#_g98293_|)) (declare (not safe)) - (cons 'gensyms __tmp98295))) - (__tmp98290 - (let ((__tmp98291 - (let ((__tmp98292 |gxc[1]#_g98293_|)) + (cons 'gensyms __tmp98292))) + (__tmp98287 + (let ((__tmp98288 + (let ((__tmp98289 |gxc[1]#_g98290_|)) (declare (not safe)) - (cons 'bindings __tmp98292)))) + (cons 'bindings __tmp98289)))) (declare (not safe)) - (cons __tmp98291 '())))) + (cons __tmp98288 '())))) (declare (not safe)) - (cons __tmp98294 __tmp98290)))) + (cons __tmp98291 __tmp98287)))) (declare (not safe)) (##unchecked-structure-set! - __obj98235 - __tmp98289 + __obj98232 + __tmp98286 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp98297 - (let ((__tmp98302 - (let ((__tmp98303 |gxc[1]#_g98304_|)) + (let ((__tmp98294 + (let ((__tmp98299 + (let ((__tmp98300 |gxc[1]#_g98301_|)) (declare (not safe)) - (cons 'gensyms __tmp98303))) - (__tmp98298 - (let ((__tmp98299 - (let ((__tmp98300 |gxc[1]#_g98301_|)) + (cons 'gensyms __tmp98300))) + (__tmp98295 + (let ((__tmp98296 + (let ((__tmp98297 |gxc[1]#_g98298_|)) (declare (not safe)) - (cons 'bindings __tmp98300)))) + (cons 'bindings __tmp98297)))) (declare (not safe)) - (cons __tmp98299 '())))) + (cons __tmp98296 '())))) (declare (not safe)) - (cons __tmp98302 __tmp98298)))) + (cons __tmp98299 __tmp98295)))) (declare (not safe)) (##unchecked-structure-set! - __obj98235 - __tmp98297 + __obj98232 + __tmp98294 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp98305 - (let ((__tmp98310 - (let ((__tmp98311 |gxc[1]#_g98312_|)) + (let ((__tmp98302 + (let ((__tmp98307 + (let ((__tmp98308 |gxc[1]#_g98309_|)) (declare (not safe)) - (cons 'gensyms __tmp98311))) - (__tmp98306 - (let ((__tmp98307 - (let ((__tmp98308 |gxc[1]#_g98309_|)) + (cons 'gensyms __tmp98308))) + (__tmp98303 + (let ((__tmp98304 + (let ((__tmp98305 |gxc[1]#_g98306_|)) (declare (not safe)) - (cons 'bindings __tmp98308)))) + (cons 'bindings __tmp98305)))) (declare (not safe)) - (cons __tmp98307 '())))) + (cons __tmp98304 '())))) (declare (not safe)) - (cons __tmp98310 __tmp98306)))) + (cons __tmp98307 __tmp98303)))) (declare (not safe)) (##unchecked-structure-set! - __obj98235 - __tmp98305 + __obj98232 + __tmp98302 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj98235)) + __obj98232)) (define |gxc[:0:]#with-verbose-mutex| - (lambda (_$stx97972_) - (let* ((_g9797697990_ - (lambda (_g9797797986_) + (lambda (_$stx97969_) + (let* ((_g9797397987_ + (lambda (_g9797497983_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9797797986_)))) - (_g9797598031_ - (lambda (_g9797797994_) + _g9797497983_)))) + (_g9797298028_ + (lambda (_g9797497991_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9797797994_)) - (let ((_e9798197997_ + (gx#stx-pair? _g9797497991_)) + (let ((_e9797897994_ (let () (declare (not safe)) - (gx#syntax-e _g9797797994_)))) - (let ((_hd9798098001_ + (gx#syntax-e _g9797497991_)))) + (let ((_hd9797797998_ (let () (declare (not safe)) - (##car _e9798197997_))) - (_tl9797998004_ + (##car _e9797897994_))) + (_tl9797698001_ (let () (declare (not safe)) - (##cdr _e9798197997_)))) + (##cdr _e9797897994_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9797998004_)) - (let ((_e9798498007_ + (gx#stx-pair? _tl9797698001_)) + (let ((_e9798198004_ (let () (declare (not safe)) - (gx#syntax-e _tl9797998004_)))) - (let ((_hd9798398011_ + (gx#syntax-e _tl9797698001_)))) + (let ((_hd9798098008_ (let () (declare (not safe)) - (##car _e9798498007_))) - (_tl9798298014_ + (##car _e9798198004_))) + (_tl9797998011_ (let () (declare (not safe)) - (##cdr _e9798498007_)))) + (##cdr _e9798198004_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9798298014_)) - ((lambda (_L98017_) - (let ((__tmp98320 + (gx#stx-null? _tl9797998011_)) + ((lambda (_L98014_) + (let ((__tmp98317 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'with-lock))) - (__tmp98313 - (let ((__tmp98319 + (__tmp98310 + (let ((__tmp98316 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '+verbose-mutex+))) - (__tmp98314 - (let ((__tmp98315 - (let ((__tmp98318 + (__tmp98311 + (let ((__tmp98312 + (let ((__tmp98315 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp98316 - (let ((__tmp98317 + (__tmp98313 + (let ((__tmp98314 (let () (declare (not safe)) - (cons _L98017_ '())))) + (cons _L98014_ '())))) (declare (not safe)) - (cons '() __tmp98317)))) + (cons '() __tmp98314)))) (declare (not safe)) - (cons __tmp98318 __tmp98316)))) + (cons __tmp98315 __tmp98313)))) (declare (not safe)) - (cons __tmp98315 '())))) + (cons __tmp98312 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp98319 - __tmp98314)))) + (cons __tmp98316 + __tmp98311)))) (declare (not safe)) - (cons __tmp98320 __tmp98313))) - _hd9798398011_) - (_g9797697990_ _g9797797994_)))) - (_g9797697990_ _g9797797994_)))) - (_g9797697990_ _g9797797994_))))) - (_g9797598031_ _$stx97972_)))))) + (cons __tmp98317 __tmp98310))) + _hd9798098008_) + (_g9797397987_ _g9797497991_)))) + (_g9797397987_ _g9797497991_)))) + (_g9797397987_ _g9797497991_))))) + (_g9797298028_ _$stx97969_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile.ssi b/src/bootstrap/gerbil/compiler/compile.ssi index 5b55b9ba..ae867005 100644 --- a/src/bootstrap/gerbil/compiler/compile.ssi +++ b/src/bootstrap/gerbil/compiler/compile.ssi @@ -9,16 +9,16 @@ namespace: gxc (in: :gerbil/core <syntax-sugar>) (spec: (:gerbil/gambit) - (0 u8vector? 0 u8vector?) + (0 s32vector? 0 s32vector?) (0 s16vector? 0 s16vector?) - (0 u16vector? 0 u16vector?) + (0 u8vector? 0 u8vector?) (0 f64vector? 0 f64vector?) (0 f32vector? 0 f32vector?) (0 s8vector? 0 s8vector?) - (0 u32vector? 0 u32vector?) (0 s64vector? 0 s64vector?) - (0 u64vector? 0 u64vector?) - (0 s32vector? 0 s32vector?))) + (0 u16vector? 0 u16vector?) + (0 u32vector? 0 u32vector?) + (0 u64vector? 0 u64vector?))) (%#export #t) (%#define-runtime gambit-annotations gxc#gambit-annotations) (%#define-runtime current-compile-methods gxc#current-compile-methods) diff --git a/src/bootstrap/gerbil/compiler/compile__0.scm b/src/bootstrap/gerbil/compiler/compile__0.scm index 64d6630e..8c44ec15 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 1709128372) + (define gerbil/compiler/compile::timestamp 1709229970) (begin - (define gxc#_g111308_ + (define gxc#_g111305_ (gx#core-deserialize-mark - '(0 (else . _else109598_) (hd . _hd109621_)) + '(0 (else . _else109595_) (hd . _hd109618_)) (gx#current-expander-context))) - (define gxc#_g111309_ + (define gxc#_g111306_ (##structure gx#syntax-quote::t - '_hd109621_ + '_hd109618_ #f (gx#current-expander-context) - (list gxc#_g111308_))) - (define gxc#_g111314_ + (list gxc#_g111305_))) + (define gxc#_g111311_ (gx#core-deserialize-mark - '(0 (hd . _hd109682_) (else . _else109659_)) + '(0 (else . _else109656_) (hd . _hd109679_)) (gx#current-expander-context))) - (define gxc#_g111315_ + (define gxc#_g111312_ (##structure gx#syntax-quote::t - '_hd109682_ + '_hd109679_ #f (gx#current-expander-context) - (list gxc#_g111314_))) - (define gxc#_g111320_ + (list gxc#_g111311_))) + (define gxc#_g111317_ (gx#core-deserialize-mark - '(0 (hd . _hd109744_) (else . _else109721_)) + '(0 (else . _else109718_) (hd . _hd109741_)) (gx#current-expander-context))) - (define gxc#_g111321_ + (define gxc#_g111318_ (##structure gx#syntax-quote::t - '_hd109744_ + '_hd109741_ #f (gx#current-expander-context) - (list gxc#_g111320_))) - (define gxc#_g111326_ + (list gxc#_g111317_))) + (define gxc#_g111323_ (gx#core-deserialize-mark - '(0 (else . _else109784_) (hd . _hd109807_)) + '(0 (else . _else109781_) (hd . _hd109804_)) (gx#current-expander-context))) - (define gxc#_g111327_ + (define gxc#_g111324_ (##structure gx#syntax-quote::t - '_hd109807_ + '_hd109804_ #f (gx#current-expander-context) - (list gxc#_g111326_))) + (list gxc#_g111323_))) (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-e109819_ - (lambda (_id109821_) + (letrec ((_hash-e109816_ + (lambda (_id109818_) (symbol-hash - (let () (declare (not safe)) (gx#stx-e _id109821_)))))) + (let () (declare (not safe)) (gx#stx-e _id109818_)))))) (let () (declare (not safe)) (make-hash-table 'test: gx#bound-identifier=? 'hash: - _hash-e109819_))))) + _hash-e109816_))))) (define gxc#compile-e__0 - (lambda (_stx109572_) - (let* ((___stx109823109824_ _stx109572_) - (_g109575109586_ + (lambda (_stx109569_) + (let* ((___stx109820109821_ _stx109569_) + (_g109572109583_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx109823109824_))))) - (let ((___kont109825109826_ - (lambda (_L109613_) - (let ((_$e109623_ - (let ((__tmp111305 (gxc#current-compile-methods)) - (__tmp111304 + ___stx109820109821_))))) + (let ((___kont109822109823_ + (lambda (_L109610_) + (let ((_$e109620_ + (let ((__tmp111302 (gxc#current-compile-methods)) + (__tmp111301 (let () (declare (not safe)) - (gx#stx-e _L109613_)))) + (gx#stx-e _L109610_)))) (declare (not safe)) - (hash-get __tmp111305 __tmp111304)))) - (if _$e109623_ - ((lambda (_method109626_) + (hash-get __tmp111302 __tmp111301)))) + (if _$e109620_ + ((lambda (_method109623_) (declare (not safe)) - (_method109626_ _stx109572_)) - _$e109623_) + (_method109623_ _stx109569_)) + _$e109620_) '#!void)))) - (___kont109827109828_ - (lambda (_L109591_) - (let ((__tmp111306 - (let ((__tmp111307 gxc#_g111309_)) + (___kont109824109825_ + (lambda (_L109588_) + (let ((__tmp111303 + (let ((__tmp111304 gxc#_g111306_)) (declare (not safe)) - (gx#datum->syntax__% __tmp111307 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp111304 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx109572_ - __tmp111306))))) + _stx109569_ + __tmp111303))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx109823109824_)) - (let ((_e109580109605_ + (gx#stx-pair? ___stx109820109821_)) + (let ((_e109577109602_ (let () (declare (not safe)) - (gx#stx-e ___stx109823109824_)))) - (let ((_tl109578109610_ + (gx#stx-e ___stx109820109821_)))) + (let ((_tl109575109607_ (let () (declare (not safe)) - (##cdr _e109580109605_))) - (_hd109579109608_ + (##cdr _e109577109602_))) + (_hd109576109605_ (let () (declare (not safe)) - (##car _e109580109605_)))) - (___kont109825109826_ _hd109579109608_))) - (___kont109827109828_ ___stx109823109824_)))))) + (##car _e109577109602_)))) + (___kont109822109823_ _hd109576109605_))) + (___kont109824109825_ ___stx109820109821_)))))) (define gxc#compile-e__1 - (lambda (_stx109632_ _arg109633_) - (let* ((___stx109837109838_ _stx109632_) - (_g109636109647_ + (lambda (_stx109629_ _arg109630_) + (let* ((___stx109834109835_ _stx109629_) + (_g109633109644_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx109837109838_))))) - (let ((___kont109839109840_ - (lambda (_L109674_) - (let ((_$e109684_ - (let ((__tmp111311 (gxc#current-compile-methods)) - (__tmp111310 + ___stx109834109835_))))) + (let ((___kont109836109837_ + (lambda (_L109671_) + (let ((_$e109681_ + (let ((__tmp111308 (gxc#current-compile-methods)) + (__tmp111307 (let () (declare (not safe)) - (gx#stx-e _L109674_)))) + (gx#stx-e _L109671_)))) (declare (not safe)) - (hash-get __tmp111311 __tmp111310)))) - (if _$e109684_ - ((lambda (_method109687_) + (hash-get __tmp111308 __tmp111307)))) + (if _$e109681_ + ((lambda (_method109684_) (declare (not safe)) - (_method109687_ _stx109632_ _arg109633_)) - _$e109684_) + (_method109684_ _stx109629_ _arg109630_)) + _$e109681_) '#!void)))) - (___kont109841109842_ - (lambda (_L109652_) - (let ((__tmp111312 - (let ((__tmp111313 gxc#_g111315_)) + (___kont109838109839_ + (lambda (_L109649_) + (let ((__tmp111309 + (let ((__tmp111310 gxc#_g111312_)) (declare (not safe)) - (gx#datum->syntax__% __tmp111313 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp111310 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx109632_ - __tmp111312))))) + _stx109629_ + __tmp111309))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx109837109838_)) - (let ((_e109641109666_ + (gx#stx-pair? ___stx109834109835_)) + (let ((_e109638109663_ (let () (declare (not safe)) - (gx#stx-e ___stx109837109838_)))) - (let ((_tl109639109671_ + (gx#stx-e ___stx109834109835_)))) + (let ((_tl109636109668_ (let () (declare (not safe)) - (##cdr _e109641109666_))) - (_hd109640109669_ + (##cdr _e109638109663_))) + (_hd109637109666_ (let () (declare (not safe)) - (##car _e109641109666_)))) - (___kont109839109840_ _hd109640109669_))) - (___kont109841109842_ ___stx109837109838_)))))) + (##car _e109638109663_)))) + (___kont109836109837_ _hd109637109666_))) + (___kont109838109839_ ___stx109834109835_)))))) (define gxc#compile-e__2 - (lambda (_stx109693_ _arg1109694_ _arg2109695_) - (let* ((___stx109851109852_ _stx109693_) - (_g109698109709_ + (lambda (_stx109690_ _arg1109691_ _arg2109692_) + (let* ((___stx109848109849_ _stx109690_) + (_g109695109706_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx109851109852_))))) - (let ((___kont109853109854_ - (lambda (_L109736_) - (let ((_$e109746_ - (let ((__tmp111317 (gxc#current-compile-methods)) - (__tmp111316 + ___stx109848109849_))))) + (let ((___kont109850109851_ + (lambda (_L109733_) + (let ((_$e109743_ + (let ((__tmp111314 (gxc#current-compile-methods)) + (__tmp111313 (let () (declare (not safe)) - (gx#stx-e _L109736_)))) + (gx#stx-e _L109733_)))) (declare (not safe)) - (hash-get __tmp111317 __tmp111316)))) - (if _$e109746_ - ((lambda (_method109749_) + (hash-get __tmp111314 __tmp111313)))) + (if _$e109743_ + ((lambda (_method109746_) (declare (not safe)) - (_method109749_ - _stx109693_ - _arg1109694_ - _arg2109695_)) - _$e109746_) + (_method109746_ + _stx109690_ + _arg1109691_ + _arg2109692_)) + _$e109743_) '#!void)))) - (___kont109855109856_ - (lambda (_L109714_) - (let ((__tmp111318 - (let ((__tmp111319 gxc#_g111321_)) + (___kont109852109853_ + (lambda (_L109711_) + (let ((__tmp111315 + (let ((__tmp111316 gxc#_g111318_)) (declare (not safe)) - (gx#datum->syntax__% __tmp111319 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp111316 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx109693_ - __tmp111318))))) + _stx109690_ + __tmp111315))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx109851109852_)) - (let ((_e109703109728_ + (gx#stx-pair? ___stx109848109849_)) + (let ((_e109700109725_ (let () (declare (not safe)) - (gx#stx-e ___stx109851109852_)))) - (let ((_tl109701109733_ + (gx#stx-e ___stx109848109849_)))) + (let ((_tl109698109730_ (let () (declare (not safe)) - (##cdr _e109703109728_))) - (_hd109702109731_ + (##cdr _e109700109725_))) + (_hd109699109728_ (let () (declare (not safe)) - (##car _e109703109728_)))) - (___kont109853109854_ _hd109702109731_))) - (___kont109855109856_ ___stx109851109852_)))))) + (##car _e109700109725_)))) + (___kont109850109851_ _hd109699109728_))) + (___kont109852109853_ ___stx109848109849_)))))) (define gxc#compile-e__3 - (lambda (_stx109755_ _arg1109756_ _arg2109757_ . _args109758_) - (let* ((___stx109865109866_ _stx109755_) - (_g109761109772_ + (lambda (_stx109752_ _arg1109753_ _arg2109754_ . _args109755_) + (let* ((___stx109862109863_ _stx109752_) + (_g109758109769_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx109865109866_))))) - (let ((___kont109867109868_ - (lambda (_L109799_) - (let ((_$e109809_ - (let ((__tmp111323 (gxc#current-compile-methods)) - (__tmp111322 + ___stx109862109863_))))) + (let ((___kont109864109865_ + (lambda (_L109796_) + (let ((_$e109806_ + (let ((__tmp111320 (gxc#current-compile-methods)) + (__tmp111319 (let () (declare (not safe)) - (gx#stx-e _L109799_)))) + (gx#stx-e _L109796_)))) (declare (not safe)) - (hash-get __tmp111323 __tmp111322)))) - (if _$e109809_ - ((lambda (_method109812_) + (hash-get __tmp111320 __tmp111319)))) + (if _$e109806_ + ((lambda (_method109809_) (declare (not safe)) - (apply _method109812_ - _stx109755_ - _arg1109756_ - _arg2109757_ - _args109758_)) - _$e109809_) + (apply _method109809_ + _stx109752_ + _arg1109753_ + _arg2109754_ + _args109755_)) + _$e109806_) '#!void)))) - (___kont109869109870_ - (lambda (_L109777_) - (let ((__tmp111324 - (let ((__tmp111325 gxc#_g111327_)) + (___kont109866109867_ + (lambda (_L109774_) + (let ((__tmp111321 + (let ((__tmp111322 gxc#_g111324_)) (declare (not safe)) - (gx#datum->syntax__% __tmp111325 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp111322 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx109755_ - __tmp111324))))) + _stx109752_ + __tmp111321))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx109865109866_)) - (let ((_e109766109791_ + (gx#stx-pair? ___stx109862109863_)) + (let ((_e109763109788_ (let () (declare (not safe)) - (gx#stx-e ___stx109865109866_)))) - (let ((_tl109764109796_ + (gx#stx-e ___stx109862109863_)))) + (let ((_tl109761109793_ (let () (declare (not safe)) - (##cdr _e109766109791_))) - (_hd109765109794_ + (##cdr _e109763109788_))) + (_hd109762109791_ (let () (declare (not safe)) - (##car _e109766109791_)))) - (___kont109867109868_ _hd109765109794_))) - (___kont109869109870_ ___stx109865109866_)))))) + (##car _e109763109788_)))) + (___kont109864109865_ _hd109762109791_))) + (___kont109866109867_ ___stx109862109863_)))))) (define gxc#compile-e - (lambda _g111329_ - (let ((_g111328_ (let () (declare (not safe)) (##length _g111329_)))) - (cond ((let () (declare (not safe)) (##fx= _g111328_ 1)) - (apply (lambda (_stx109572_) + (lambda _g111326_ + (let ((_g111325_ (let () (declare (not safe)) (##length _g111326_)))) + (cond ((let () (declare (not safe)) (##fx= _g111325_ 1)) + (apply (lambda (_stx109569_) (let () (declare (not safe)) - (gxc#compile-e__0 _stx109572_))) - _g111329_)) - ((let () (declare (not safe)) (##fx= _g111328_ 2)) - (apply (lambda (_stx109632_ _arg109633_) + (gxc#compile-e__0 _stx109569_))) + _g111326_)) + ((let () (declare (not safe)) (##fx= _g111325_ 2)) + (apply (lambda (_stx109629_ _arg109630_) (let () (declare (not safe)) - (gxc#compile-e__1 _stx109632_ _arg109633_))) - _g111329_)) - ((let () (declare (not safe)) (##fx= _g111328_ 3)) - (apply (lambda (_stx109693_ _arg1109694_ _arg2109695_) + (gxc#compile-e__1 _stx109629_ _arg109630_))) + _g111326_)) + ((let () (declare (not safe)) (##fx= _g111325_ 3)) + (apply (lambda (_stx109690_ _arg1109691_ _arg2109692_) (let () (declare (not safe)) (gxc#compile-e__2 - _stx109693_ - _arg1109694_ - _arg2109695_))) - _g111329_)) - ((let () (declare (not safe)) (##fx>= _g111328_ 3)) - (apply gxc#compile-e__3 _g111329_)) + _stx109690_ + _arg1109691_ + _arg2109692_))) + _g111326_)) + ((let () (declare (not safe)) (##fx>= _g111325_ 3)) + (apply gxc#compile-e__3 _g111326_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-e - _g111329_)))))) - (define gxc#void-method (lambda (_stx109569_ . _args109570_) '#!void)) - (define gxc#false-method (lambda (_stx109566_ . _args109567_) '#f)) - (define gxc#true-method (lambda (_stx109563_ . _args109564_) '#t)) + _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)) (define gxc#&void-expression (make-promise (lambda () - (let ((_tbl109560_ + (let ((_tbl109557_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#begin-annotation gxc#void-method)) + (hash-put! _tbl109557_ '%#begin-annotation gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#lambda gxc#void-method)) + (hash-put! _tbl109557_ '%#lambda gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#case-lambda gxc#void-method)) + (hash-put! _tbl109557_ '%#case-lambda gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#let-values gxc#void-method)) + (hash-put! _tbl109557_ '%#let-values gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#letrec-values gxc#void-method)) + (hash-put! _tbl109557_ '%#letrec-values gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#letrec*-values gxc#void-method)) + (hash-put! _tbl109557_ '%#letrec*-values gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#quote gxc#void-method)) + (hash-put! _tbl109557_ '%#quote gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#quote-syntax gxc#void-method)) + (hash-put! _tbl109557_ '%#quote-syntax gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#call gxc#void-method)) + (hash-put! _tbl109557_ '%#call gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#call-unchecked gxc#void-method)) + (hash-put! _tbl109557_ '%#call-unchecked gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#if gxc#void-method)) + (hash-put! _tbl109557_ '%#if gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#ref gxc#void-method)) + (hash-put! _tbl109557_ '%#ref gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#set! gxc#void-method)) + (hash-put! _tbl109557_ '%#set! gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#struct-instance? gxc#void-method)) + (hash-put! _tbl109557_ '%#struct-instance? gxc#void-method)) (let () (declare (not safe)) (hash-put! - _tbl109560_ + _tbl109557_ '%#struct-direct-instance? gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#struct-ref gxc#void-method)) + (hash-put! _tbl109557_ '%#struct-ref gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#struct-set! gxc#void-method)) + (hash-put! _tbl109557_ '%#struct-set! gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#struct-direct-ref gxc#void-method)) + (hash-put! _tbl109557_ '%#struct-direct-ref gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#struct-direct-set! gxc#void-method)) + (hash-put! _tbl109557_ '%#struct-direct-set! gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109560_ '%#struct-unchecked-ref gxc#void-method)) + (hash-put! _tbl109557_ '%#struct-unchecked-ref gxc#void-method)) (let () (declare (not safe)) (hash-put! - _tbl109560_ + _tbl109557_ '%#struct-unchecked-set! gxc#void-method)) - _tbl109560_)))) + _tbl109557_)))) (define gxc#&void-special-form (make-promise (lambda () - (let ((_tbl109556_ + (let ((_tbl109553_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl109556_ '%#begin gxc#void-method)) + (hash-put! _tbl109553_ '%#begin gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109556_ '%#begin-syntax gxc#void-method)) + (hash-put! _tbl109553_ '%#begin-syntax gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109556_ '%#begin-foreign gxc#void-method)) + (hash-put! _tbl109553_ '%#begin-foreign gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109556_ '%#module gxc#void-method)) + (hash-put! _tbl109553_ '%#module gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109556_ '%#import gxc#void-method)) + (hash-put! _tbl109553_ '%#import gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109556_ '%#export gxc#void-method)) + (hash-put! _tbl109553_ '%#export gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109556_ '%#provide gxc#void-method)) + (hash-put! _tbl109553_ '%#provide gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109556_ '%#extern gxc#void-method)) + (hash-put! _tbl109553_ '%#extern gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109556_ '%#define-values gxc#void-method)) + (hash-put! _tbl109553_ '%#define-values gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109556_ '%#define-syntax gxc#void-method)) + (hash-put! _tbl109553_ '%#define-syntax gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109556_ '%#define-alias gxc#void-method)) + (hash-put! _tbl109553_ '%#define-alias gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109556_ '%#declare gxc#void-method)) - _tbl109556_)))) + (hash-put! _tbl109553_ '%#declare gxc#void-method)) + _tbl109553_)))) (define gxc#&void (make-promise (lambda () - (let ((_tbl109552_ + (let ((_tbl109549_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111330 (force gxc#&void-special-form))) + (let ((__tmp111327 (force gxc#&void-special-form))) (declare (not safe)) - (hash-merge! _tbl109552_ __tmp111330)) - (let ((__tmp111331 (force gxc#&void-expression))) + (hash-merge! _tbl109549_ __tmp111327)) + (let ((__tmp111328 (force gxc#&void-expression))) (declare (not safe)) - (hash-merge! _tbl109552_ __tmp111331)) - _tbl109552_)))) + (hash-merge! _tbl109549_ __tmp111328)) + _tbl109549_)))) (define gxc#&false-expression (make-promise (lambda () - (let ((_tbl109548_ + (let ((_tbl109545_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl109548_ '%#begin-annotation gxc#false-method)) + (hash-put! _tbl109545_ '%#begin-annotation gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109548_ '%#lambda gxc#false-method)) + (hash-put! _tbl109545_ '%#lambda gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109548_ '%#case-lambda gxc#false-method)) + (hash-put! _tbl109545_ '%#case-lambda gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109548_ '%#let-values gxc#false-method)) + (hash-put! _tbl109545_ '%#let-values gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109548_ '%#letrec-values gxc#false-method)) + (hash-put! _tbl109545_ '%#letrec-values gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109548_ '%#letrec*-values gxc#false-method)) + (hash-put! _tbl109545_ '%#letrec*-values gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109548_ '%#quote gxc#false-method)) + (hash-put! _tbl109545_ '%#quote gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109548_ '%#quote-syntax gxc#false-method)) + (hash-put! _tbl109545_ '%#quote-syntax gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109548_ '%#call gxc#false-method)) + (hash-put! _tbl109545_ '%#call gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109548_ '%#call-unchecked gxc#false-method)) + (hash-put! _tbl109545_ '%#call-unchecked gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109548_ '%#if gxc#false-method)) + (hash-put! _tbl109545_ '%#if gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109548_ '%#ref gxc#false-method)) + (hash-put! _tbl109545_ '%#ref gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109548_ '%#set! gxc#false-method)) + (hash-put! _tbl109545_ '%#set! gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109548_ '%#struct-instance? gxc#false-method)) + (hash-put! _tbl109545_ '%#struct-instance? gxc#false-method)) (let () (declare (not safe)) (hash-put! - _tbl109548_ + _tbl109545_ '%#struct-direct-instance? gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109548_ '%#struct-ref gxc#false-method)) + (hash-put! _tbl109545_ '%#struct-ref gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109548_ '%#struct-set! gxc#false-method)) + (hash-put! _tbl109545_ '%#struct-set! gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109548_ '%#struct-direct-ref gxc#false-method)) + (hash-put! _tbl109545_ '%#struct-direct-ref gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109548_ '%#struct-direct-set! gxc#false-method)) + (hash-put! _tbl109545_ '%#struct-direct-set! gxc#false-method)) (let () (declare (not safe)) (hash-put! - _tbl109548_ + _tbl109545_ '%#struct-unchecked-ref gxc#false-method)) (let () (declare (not safe)) (hash-put! - _tbl109548_ + _tbl109545_ '%#struct-unchecked-set! gxc#false-method)) - _tbl109548_)))) + _tbl109545_)))) (define gxc#&false-special-form (make-promise (lambda () - (let ((_tbl109544_ + (let ((_tbl109541_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl109544_ '%#begin gxc#false-method)) + (hash-put! _tbl109541_ '%#begin gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109544_ '%#begin-syntax gxc#false-method)) + (hash-put! _tbl109541_ '%#begin-syntax gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109544_ '%#begin-foreign gxc#false-method)) + (hash-put! _tbl109541_ '%#begin-foreign gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109544_ '%#module gxc#false-method)) + (hash-put! _tbl109541_ '%#module gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109544_ '%#import gxc#false-method)) + (hash-put! _tbl109541_ '%#import gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109544_ '%#export gxc#false-method)) + (hash-put! _tbl109541_ '%#export gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109544_ '%#provide gxc#false-method)) + (hash-put! _tbl109541_ '%#provide gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109544_ '%#extern gxc#false-method)) + (hash-put! _tbl109541_ '%#extern gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109544_ '%#define-values gxc#false-method)) + (hash-put! _tbl109541_ '%#define-values gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109544_ '%#define-syntax gxc#false-method)) + (hash-put! _tbl109541_ '%#define-syntax gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109544_ '%#define-alias gxc#false-method)) + (hash-put! _tbl109541_ '%#define-alias gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109544_ '%#declare gxc#false-method)) - _tbl109544_)))) + (hash-put! _tbl109541_ '%#declare gxc#false-method)) + _tbl109541_)))) (define gxc#&false (make-promise (lambda () - (let ((_tbl109540_ + (let ((_tbl109537_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111332 (force gxc#&false-special-form))) + (let ((__tmp111329 (force gxc#&false-special-form))) (declare (not safe)) - (hash-merge! _tbl109540_ __tmp111332)) - (let ((__tmp111333 (force gxc#&false-expression))) + (hash-merge! _tbl109537_ __tmp111329)) + (let ((__tmp111330 (force gxc#&false-expression))) (declare (not safe)) - (hash-merge! _tbl109540_ __tmp111333)) - _tbl109540_)))) + (hash-merge! _tbl109537_ __tmp111330)) + _tbl109537_)))) (define gxc#&collect-bindings (make-promise (lambda () - (let ((_tbl109536_ + (let ((_tbl109533_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111334 (force gxc#&void-expression))) + (let ((__tmp111331 (force gxc#&void-expression))) (declare (not safe)) - (hash-merge! _tbl109536_ __tmp111334)) - (let ((__tmp111335 (force gxc#&void-special-form))) + (hash-merge! _tbl109533_ __tmp111331)) + (let ((__tmp111332 (force gxc#&void-special-form))) (declare (not safe)) - (hash-merge! _tbl109536_ __tmp111335)) + (hash-merge! _tbl109533_ __tmp111332)) (let () (declare (not safe)) - (hash-put! _tbl109536_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl109533_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (hash-put! - _tbl109536_ + _tbl109533_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl109536_ '%#module gxc#collect-module%)) + (hash-put! _tbl109533_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (hash-put! - _tbl109536_ + _tbl109533_ '%#define-values gxc#collect-bindings-define-values%)) (let () (declare (not safe)) (hash-put! - _tbl109536_ + _tbl109533_ '%#define-syntax gxc#collect-bindings-define-syntax%)) - _tbl109536_)))) + _tbl109533_)))) (define gxc#apply-collect-bindings - (lambda (_stx109519_ . _args109521_) - (let ((__tmp111337 + (lambda (_stx109516_ . _args109518_) + (let ((__tmp111334 (lambda () (declare (not safe)) - (if (null? _args109521_) - (gxc#compile-e__0 _stx109519_) - (let ((_arg1109526_ (car _args109521_)) - (_rest109528_ (cdr _args109521_))) - (if (null? _rest109528_) - (gxc#compile-e__1 _stx109519_ _arg1109526_) - (let ((_arg2109531_ (car _rest109528_)) - (_rest109533_ (cdr _rest109528_))) - (if (null? _rest109533_) + (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_) (gxc#compile-e__2 - _stx109519_ - _arg1109526_ - _arg2109531_) + _stx109516_ + _arg1109523_ + _arg2109528_) (apply gxc#compile-e - _stx109519_ - _arg1109526_ - _arg2109531_ - _rest109533_)))))))) - (__tmp111336 (force gxc#&collect-bindings))) + _stx109516_ + _arg1109523_ + _arg2109528_ + _rest109530_)))))))) + (__tmp111333 (force gxc#&collect-bindings))) (declare (not safe)) (call-with-parameters - __tmp111337 + __tmp111334 gxc#current-compile-methods - __tmp111336)))) + __tmp111333)))) (define gxc#&lift-modules (make-promise (lambda () - (let ((_tbl109516_ + (let ((_tbl109513_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111338 (force gxc#&void))) + (let ((__tmp111335 (force gxc#&void))) (declare (not safe)) - (hash-merge! _tbl109516_ __tmp111338)) + (hash-merge! _tbl109513_ __tmp111335)) (let () (declare (not safe)) - (hash-put! _tbl109516_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl109513_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (hash-put! _tbl109516_ '%#module gxc#lift-modules-module%)) - _tbl109516_)))) + (hash-put! _tbl109513_ '%#module gxc#lift-modules-module%)) + _tbl109513_)))) (define gxc#apply-lift-modules - (lambda (_stx109499_ . _args109501_) - (let ((__tmp111340 + (lambda (_stx109496_ . _args109498_) + (let ((__tmp111337 (lambda () (declare (not safe)) - (if (null? _args109501_) - (gxc#compile-e__0 _stx109499_) - (let ((_arg1109506_ (car _args109501_)) - (_rest109508_ (cdr _args109501_))) - (if (null? _rest109508_) - (gxc#compile-e__1 _stx109499_ _arg1109506_) - (let ((_arg2109511_ (car _rest109508_)) - (_rest109513_ (cdr _rest109508_))) - (if (null? _rest109513_) + (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_) (gxc#compile-e__2 - _stx109499_ - _arg1109506_ - _arg2109511_) + _stx109496_ + _arg1109503_ + _arg2109508_) (apply gxc#compile-e - _stx109499_ - _arg1109506_ - _arg2109511_ - _rest109513_)))))))) - (__tmp111339 (force gxc#&lift-modules))) + _stx109496_ + _arg1109503_ + _arg2109508_ + _rest109510_)))))))) + (__tmp111336 (force gxc#&lift-modules))) (declare (not safe)) (call-with-parameters - __tmp111340 + __tmp111337 gxc#current-compile-methods - __tmp111339)))) + __tmp111336)))) (define gxc#&find-runtime-code (make-promise (lambda () - (let ((_tbl109496_ + (let ((_tbl109493_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#begin gxc#find-runtime-begin%)) + (hash-put! _tbl109493_ '%#begin gxc#find-runtime-begin%)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#begin-syntax gxc#false-method)) + (hash-put! _tbl109493_ '%#begin-syntax gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#begin-foreign gxc#true-method)) + (hash-put! _tbl109493_ '%#begin-foreign gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#begin-annotation gxc#true-method)) + (hash-put! _tbl109493_ '%#begin-annotation gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#module gxc#false-method)) + (hash-put! _tbl109493_ '%#module gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#import gxc#false-method)) + (hash-put! _tbl109493_ '%#import gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#export gxc#false-method)) + (hash-put! _tbl109493_ '%#export gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#provide gxc#false-method)) + (hash-put! _tbl109493_ '%#provide gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#extern gxc#false-method)) + (hash-put! _tbl109493_ '%#extern gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#define-values gxc#true-method)) + (hash-put! _tbl109493_ '%#define-values gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#define-syntax gxc#false-method)) + (hash-put! _tbl109493_ '%#define-syntax gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#define-alias gxc#false-method)) + (hash-put! _tbl109493_ '%#define-alias gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#declare gxc#false-method)) + (hash-put! _tbl109493_ '%#declare gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#lambda gxc#true-method)) + (hash-put! _tbl109493_ '%#lambda gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#case-lambda gxc#true-method)) + (hash-put! _tbl109493_ '%#case-lambda gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#let-values gxc#true-method)) + (hash-put! _tbl109493_ '%#let-values gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#letrec-values gxc#true-method)) + (hash-put! _tbl109493_ '%#letrec-values gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#letrec*-values gxc#true-method)) + (hash-put! _tbl109493_ '%#letrec*-values gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#quote gxc#true-method)) + (hash-put! _tbl109493_ '%#quote gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#call gxc#true-method)) + (hash-put! _tbl109493_ '%#call gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#call-unchecked gxc#true-method)) + (hash-put! _tbl109493_ '%#call-unchecked gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#if gxc#true-method)) + (hash-put! _tbl109493_ '%#if gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#ref gxc#true-method)) + (hash-put! _tbl109493_ '%#ref gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#set! gxc#true-method)) + (hash-put! _tbl109493_ '%#set! gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#struct-instance? gxc#true-method)) + (hash-put! _tbl109493_ '%#struct-instance? gxc#true-method)) (let () (declare (not safe)) (hash-put! - _tbl109496_ + _tbl109493_ '%#struct-direct-instance? gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#struct-ref gxc#true-method)) + (hash-put! _tbl109493_ '%#struct-ref gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#struct-set! gxc#true-method)) + (hash-put! _tbl109493_ '%#struct-set! gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#struct-direct-ref gxc#true-method)) + (hash-put! _tbl109493_ '%#struct-direct-ref gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#struct-direct-set! gxc#true-method)) + (hash-put! _tbl109493_ '%#struct-direct-set! gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109496_ '%#struct-unchecked-ref gxc#true-method)) + (hash-put! _tbl109493_ '%#struct-unchecked-ref gxc#true-method)) (let () (declare (not safe)) (hash-put! - _tbl109496_ + _tbl109493_ '%#struct-unchecked-set! gxc#true-method)) - _tbl109496_)))) + _tbl109493_)))) (define gxc#apply-find-runtime-code - (lambda (_stx109479_ . _args109481_) - (let ((__tmp111342 + (lambda (_stx109476_ . _args109478_) + (let ((__tmp111339 (lambda () (declare (not safe)) - (if (null? _args109481_) - (gxc#compile-e__0 _stx109479_) - (let ((_arg1109486_ (car _args109481_)) - (_rest109488_ (cdr _args109481_))) - (if (null? _rest109488_) - (gxc#compile-e__1 _stx109479_ _arg1109486_) - (let ((_arg2109491_ (car _rest109488_)) - (_rest109493_ (cdr _rest109488_))) - (if (null? _rest109493_) + (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_) (gxc#compile-e__2 - _stx109479_ - _arg1109486_ - _arg2109491_) + _stx109476_ + _arg1109483_ + _arg2109488_) (apply gxc#compile-e - _stx109479_ - _arg1109486_ - _arg2109491_ - _rest109493_)))))))) - (__tmp111341 (force gxc#&find-runtime-code))) + _stx109476_ + _arg1109483_ + _arg2109488_ + _rest109490_)))))))) + (__tmp111338 (force gxc#&find-runtime-code))) (declare (not safe)) (call-with-parameters - __tmp111342 + __tmp111339 gxc#current-compile-methods - __tmp111341)))) + __tmp111338)))) (define gxc#&find-lambda-expression (make-promise (lambda () - (let ((_tbl109476_ + (let ((_tbl109473_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111343 (force gxc#&false))) + (let ((__tmp111340 (force gxc#&false))) (declare (not safe)) - (hash-merge! _tbl109476_ __tmp111343)) + (hash-merge! _tbl109473_ __tmp111340)) (let () (declare (not safe)) (hash-put! - _tbl109476_ + _tbl109473_ '%#begin gxc#find-lambda-expression-begin%)) (let () (declare (not safe)) (hash-put! - _tbl109476_ + _tbl109473_ '%#begin-annotation gxc#find-lambda-expression-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl109476_ '%#lambda values)) + (hash-put! _tbl109473_ '%#lambda values)) (let () (declare (not safe)) - (hash-put! _tbl109476_ '%#case-lambda values)) + (hash-put! _tbl109473_ '%#case-lambda values)) (let () (declare (not safe)) (hash-put! - _tbl109476_ + _tbl109473_ '%#let-values gxc#find-lambda-expression-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl109476_ + _tbl109473_ '%#letrec-values gxc#find-lambda-expression-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl109476_ + _tbl109473_ '%#letrec*-values gxc#find-lambda-expression-let-values%)) - _tbl109476_)))) + _tbl109473_)))) (define gxc#apply-find-lambda-expression - (lambda (_stx109459_ . _args109461_) - (let ((__tmp111345 + (lambda (_stx109456_ . _args109458_) + (let ((__tmp111342 (lambda () (declare (not safe)) - (if (null? _args109461_) - (gxc#compile-e__0 _stx109459_) - (let ((_arg1109466_ (car _args109461_)) - (_rest109468_ (cdr _args109461_))) - (if (null? _rest109468_) - (gxc#compile-e__1 _stx109459_ _arg1109466_) - (let ((_arg2109471_ (car _rest109468_)) - (_rest109473_ (cdr _rest109468_))) - (if (null? _rest109473_) + (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_) (gxc#compile-e__2 - _stx109459_ - _arg1109466_ - _arg2109471_) + _stx109456_ + _arg1109463_ + _arg2109468_) (apply gxc#compile-e - _stx109459_ - _arg1109466_ - _arg2109471_ - _rest109473_)))))))) - (__tmp111344 (force gxc#&find-lambda-expression))) + _stx109456_ + _arg1109463_ + _arg2109468_ + _rest109470_)))))))) + (__tmp111341 (force gxc#&find-lambda-expression))) (declare (not safe)) (call-with-parameters - __tmp111345 + __tmp111342 gxc#current-compile-methods - __tmp111344)))) + __tmp111341)))) (define gxc#&count-values (make-promise (lambda () - (let ((_tbl109456_ + (let ((_tbl109453_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111346 (force gxc#&false-expression))) + (let ((__tmp111343 (force gxc#&false-expression))) (declare (not safe)) - (hash-merge! _tbl109456_ __tmp111346)) + (hash-merge! _tbl109453_ __tmp111343)) (let () (declare (not safe)) - (hash-put! _tbl109456_ '%#begin gxc#count-values-begin%)) + (hash-put! _tbl109453_ '%#begin gxc#count-values-begin%)) (let () (declare (not safe)) (hash-put! - _tbl109456_ + _tbl109453_ '%#begin-annotation gxc#count-values-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl109456_ '%#lambda gxc#count-values-single%)) + (hash-put! _tbl109453_ '%#lambda gxc#count-values-single%)) (let () (declare (not safe)) - (hash-put! _tbl109456_ '%#case-lambda gxc#count-values-single%)) + (hash-put! _tbl109453_ '%#case-lambda gxc#count-values-single%)) (let () (declare (not safe)) (hash-put! - _tbl109456_ + _tbl109453_ '%#let-values gxc#count-values-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl109456_ + _tbl109453_ '%#letrec-values gxc#count-values-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl109456_ + _tbl109453_ '%#letrec*-values gxc#count-values-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl109456_ '%#quote gxc#count-values-single%)) + (hash-put! _tbl109453_ '%#quote gxc#count-values-single%)) (let () (declare (not safe)) - (hash-put! _tbl109456_ '%#call gxc#count-values-call%)) + (hash-put! _tbl109453_ '%#call gxc#count-values-call%)) (let () (declare (not safe)) (hash-put! - _tbl109456_ + _tbl109453_ '%#call-unchecked gxc#count-values-call%)) (let () (declare (not safe)) - (hash-put! _tbl109456_ '%#if gxc#count-values-if%)) - _tbl109456_)))) + (hash-put! _tbl109453_ '%#if gxc#count-values-if%)) + _tbl109453_)))) (define gxc#apply-count-values - (lambda (_stx109439_ . _args109441_) - (let ((__tmp111348 + (lambda (_stx109436_ . _args109438_) + (let ((__tmp111345 (lambda () (declare (not safe)) - (if (null? _args109441_) - (gxc#compile-e__0 _stx109439_) - (let ((_arg1109446_ (car _args109441_)) - (_rest109448_ (cdr _args109441_))) - (if (null? _rest109448_) - (gxc#compile-e__1 _stx109439_ _arg1109446_) - (let ((_arg2109451_ (car _rest109448_)) - (_rest109453_ (cdr _rest109448_))) - (if (null? _rest109453_) + (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_) (gxc#compile-e__2 - _stx109439_ - _arg1109446_ - _arg2109451_) + _stx109436_ + _arg1109443_ + _arg2109448_) (apply gxc#compile-e - _stx109439_ - _arg1109446_ - _arg2109451_ - _rest109453_)))))))) - (__tmp111347 (force gxc#&count-values))) + _stx109436_ + _arg1109443_ + _arg2109448_ + _rest109450_)))))))) + (__tmp111344 (force gxc#&count-values))) (declare (not safe)) (call-with-parameters - __tmp111348 + __tmp111345 gxc#current-compile-methods - __tmp111347)))) + __tmp111344)))) (define gxc#&generate-runtime-empty (make-promise (lambda () - (let ((_tbl109436_ + (let ((_tbl109433_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl109436_ '%#begin gxc#generate-runtime-empty)) + (hash-put! _tbl109433_ '%#begin gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#begin-syntax gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#begin-foreign gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#begin-annotation gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109436_ '%#module gxc#generate-runtime-empty)) + (hash-put! _tbl109433_ '%#module gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109436_ '%#import gxc#generate-runtime-empty)) + (hash-put! _tbl109433_ '%#import gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109436_ '%#export gxc#generate-runtime-empty)) + (hash-put! _tbl109433_ '%#export gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109436_ '%#provide gxc#generate-runtime-empty)) + (hash-put! _tbl109433_ '%#provide gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109436_ '%#extern gxc#generate-runtime-empty)) + (hash-put! _tbl109433_ '%#extern gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#define-values gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#define-syntax gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#define-alias gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109436_ '%#declare gxc#generate-runtime-empty)) + (hash-put! _tbl109433_ '%#declare gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109436_ '%#lambda gxc#generate-runtime-empty)) + (hash-put! _tbl109433_ '%#lambda gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#case-lambda gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#let-values gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#letrec-values gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#letrec*-values gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109436_ '%#quote gxc#generate-runtime-empty)) + (hash-put! _tbl109433_ '%#quote gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109436_ '%#call gxc#generate-runtime-empty)) + (hash-put! _tbl109433_ '%#call gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#call-unchecked gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109436_ '%#if gxc#generate-runtime-empty)) + (hash-put! _tbl109433_ '%#if gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109436_ '%#ref gxc#generate-runtime-empty)) + (hash-put! _tbl109433_ '%#ref gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109436_ '%#set! gxc#generate-runtime-empty)) + (hash-put! _tbl109433_ '%#set! gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#struct-instance? gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#struct-direct-instance? gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#struct-ref gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#struct-set! gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#struct-direct-ref gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#struct-direct-set! gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#struct-unchecked-ref gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109436_ + _tbl109433_ '%#struct-unchecked-set! gxc#generate-runtime-empty)) - _tbl109436_)))) + _tbl109433_)))) (define gxc#&generate-loader (make-promise (lambda () - (let ((_tbl109432_ + (let ((_tbl109429_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111349 (force gxc#&generate-runtime-empty))) + (let ((__tmp111346 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-merge! _tbl109432_ __tmp111349)) + (hash-merge! _tbl109429_ __tmp111346)) (let () (declare (not safe)) - (hash-put! _tbl109432_ '%#begin gxc#generate-runtime-begin%)) + (hash-put! _tbl109429_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) (hash-put! - _tbl109432_ + _tbl109429_ '%#import gxc#generate-runtime-loader-import%)) - _tbl109432_)))) + _tbl109429_)))) (define gxc#apply-generate-loader - (lambda (_stx109415_ . _args109417_) - (let ((__tmp111351 + (lambda (_stx109412_ . _args109414_) + (let ((__tmp111348 (lambda () (declare (not safe)) - (if (null? _args109417_) - (gxc#compile-e__0 _stx109415_) - (let ((_arg1109422_ (car _args109417_)) - (_rest109424_ (cdr _args109417_))) - (if (null? _rest109424_) - (gxc#compile-e__1 _stx109415_ _arg1109422_) - (let ((_arg2109427_ (car _rest109424_)) - (_rest109429_ (cdr _rest109424_))) - (if (null? _rest109429_) + (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_) (gxc#compile-e__2 - _stx109415_ - _arg1109422_ - _arg2109427_) + _stx109412_ + _arg1109419_ + _arg2109424_) (apply gxc#compile-e - _stx109415_ - _arg1109422_ - _arg2109427_ - _rest109429_)))))))) - (__tmp111350 (force gxc#&generate-loader))) + _stx109412_ + _arg1109419_ + _arg2109424_ + _rest109426_)))))))) + (__tmp111347 (force gxc#&generate-loader))) (declare (not safe)) (call-with-parameters - __tmp111351 + __tmp111348 gxc#current-compile-methods - __tmp111350)))) + __tmp111347)))) (define gxc#&generate-runtime (make-promise (lambda () - (let ((_tbl109412_ + (let ((_tbl109409_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111352 (force gxc#&generate-runtime-empty))) + (let ((__tmp111349 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-merge! _tbl109412_ __tmp111352)) + (hash-merge! _tbl109409_ __tmp111349)) (let () (declare (not safe)) - (hash-put! _tbl109412_ '%#begin gxc#generate-runtime-begin%)) + (hash-put! _tbl109409_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) (hash-put! - _tbl109412_ + _tbl109409_ '%#begin-foreign gxc#generate-runtime-begin-foreign%)) (let () (declare (not safe)) (hash-put! - _tbl109412_ + _tbl109409_ '%#begin-annotation gxc#generate-runtime-begin-annotation%)) (let () (declare (not safe)) (hash-put! - _tbl109412_ + _tbl109409_ '%#define-values gxc#generate-runtime-define-values%)) (let () (declare (not safe)) (hash-put! - _tbl109412_ + _tbl109409_ '%#declare gxc#generate-runtime-declare%)) (let () (declare (not safe)) - (hash-put! _tbl109412_ '%#lambda gxc#generate-runtime-lambda%)) + (hash-put! _tbl109409_ '%#lambda gxc#generate-runtime-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl109412_ + _tbl109409_ '%#case-lambda gxc#generate-runtime-case-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl109412_ + _tbl109409_ '%#let-values gxc#generate-runtime-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl109412_ + _tbl109409_ '%#letrec-values gxc#generate-runtime-letrec-values%)) (let () (declare (not safe)) (hash-put! - _tbl109412_ + _tbl109409_ '%#letrec*-values gxc#generate-runtime-letrec*-values%)) (let () (declare (not safe)) - (hash-put! _tbl109412_ '%#quote gxc#generate-runtime-quote%)) + (hash-put! _tbl109409_ '%#quote gxc#generate-runtime-quote%)) (let () (declare (not safe)) (hash-put! - _tbl109412_ + _tbl109409_ '%#quote-syntax gxc#generate-runtime-quote-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl109412_ '%#call gxc#generate-runtime-call%)) + (hash-put! _tbl109409_ '%#call gxc#generate-runtime-call%)) (let () (declare (not safe)) (hash-put! - _tbl109412_ + _tbl109409_ '%#call-unchecked gxc#generate-runtime-call-unchecked%)) (let () (declare (not safe)) - (hash-put! _tbl109412_ '%#if gxc#generate-runtime-if%)) + (hash-put! _tbl109409_ '%#if gxc#generate-runtime-if%)) (let () (declare (not safe)) - (hash-put! _tbl109412_ '%#ref gxc#generate-runtime-ref%)) + (hash-put! _tbl109409_ '%#ref gxc#generate-runtime-ref%)) (let () (declare (not safe)) - (hash-put! _tbl109412_ '%#set! gxc#generate-runtime-setq%)) + (hash-put! _tbl109409_ '%#set! gxc#generate-runtime-setq%)) (let () (declare (not safe)) (hash-put! - _tbl109412_ + _tbl109409_ '%#struct-instance? gxc#generate-runtime-struct-instancep%)) (let () (declare (not safe)) (hash-put! - _tbl109412_ + _tbl109409_ '%#struct-direct-instance? gxc#generate-runtime-struct-direct-instancep%)) (let () (declare (not safe)) (hash-put! - _tbl109412_ + _tbl109409_ '%#struct-ref gxc#generate-runtime-struct-ref%)) (let () (declare (not safe)) (hash-put! - _tbl109412_ + _tbl109409_ '%#struct-set! gxc#generate-runtime-struct-setq%)) (let () (declare (not safe)) (hash-put! - _tbl109412_ + _tbl109409_ '%#struct-direct-ref gxc#generate-runtime-struct-direct-ref%)) (let () (declare (not safe)) (hash-put! - _tbl109412_ + _tbl109409_ '%#struct-direct-set! gxc#generate-runtime-struct-direct-setq%)) (let () (declare (not safe)) (hash-put! - _tbl109412_ + _tbl109409_ '%#struct-unchecked-ref gxc#generate-runtime-struct-unchecked-ref%)) (let () (declare (not safe)) (hash-put! - _tbl109412_ + _tbl109409_ '%#struct-unchecked-set! gxc#generate-runtime-struct-unchecked-setq%)) - _tbl109412_)))) + _tbl109409_)))) (define gxc#apply-generate-runtime - (lambda (_stx109395_ . _args109397_) - (let ((__tmp111354 + (lambda (_stx109392_ . _args109394_) + (let ((__tmp111351 (lambda () (declare (not safe)) - (if (null? _args109397_) - (gxc#compile-e__0 _stx109395_) - (let ((_arg1109402_ (car _args109397_)) - (_rest109404_ (cdr _args109397_))) - (if (null? _rest109404_) - (gxc#compile-e__1 _stx109395_ _arg1109402_) - (let ((_arg2109407_ (car _rest109404_)) - (_rest109409_ (cdr _rest109404_))) - (if (null? _rest109409_) + (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_) (gxc#compile-e__2 - _stx109395_ - _arg1109402_ - _arg2109407_) + _stx109392_ + _arg1109399_ + _arg2109404_) (apply gxc#compile-e - _stx109395_ - _arg1109402_ - _arg2109407_ - _rest109409_)))))))) - (__tmp111353 (force gxc#&generate-runtime))) + _stx109392_ + _arg1109399_ + _arg2109404_ + _rest109406_)))))))) + (__tmp111350 (force gxc#&generate-runtime))) (declare (not safe)) (call-with-parameters - __tmp111354 + __tmp111351 gxc#current-compile-methods - __tmp111353)))) + __tmp111350)))) (define gxc#&generate-runtime-phi (make-promise (lambda () - (let ((_tbl109392_ + (let ((_tbl109389_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111355 (force gxc#&generate-runtime))) + (let ((__tmp111352 (force gxc#&generate-runtime))) (declare (not safe)) - (hash-merge! _tbl109392_ __tmp111355)) + (hash-merge! _tbl109389_ __tmp111352)) (let () (declare (not safe)) (hash-put! - _tbl109392_ + _tbl109389_ '%#define-runtime gxc#generate-runtime-phi-define-runtime%)) - _tbl109392_)))) + _tbl109389_)))) (define gxc#apply-generate-runtime-phi - (lambda (_stx109375_ . _args109377_) - (let ((__tmp111357 + (lambda (_stx109372_ . _args109374_) + (let ((__tmp111354 (lambda () (declare (not safe)) - (if (null? _args109377_) - (gxc#compile-e__0 _stx109375_) - (let ((_arg1109382_ (car _args109377_)) - (_rest109384_ (cdr _args109377_))) - (if (null? _rest109384_) - (gxc#compile-e__1 _stx109375_ _arg1109382_) - (let ((_arg2109387_ (car _rest109384_)) - (_rest109389_ (cdr _rest109384_))) - (if (null? _rest109389_) + (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_) (gxc#compile-e__2 - _stx109375_ - _arg1109382_ - _arg2109387_) + _stx109372_ + _arg1109379_ + _arg2109384_) (apply gxc#compile-e - _stx109375_ - _arg1109382_ - _arg2109387_ - _rest109389_)))))))) - (__tmp111356 (force gxc#&generate-runtime-phi))) + _stx109372_ + _arg1109379_ + _arg2109384_ + _rest109386_)))))))) + (__tmp111353 (force gxc#&generate-runtime-phi))) (declare (not safe)) (call-with-parameters - __tmp111357 + __tmp111354 gxc#current-compile-methods - __tmp111356)))) + __tmp111353)))) (define gxc#&collect-expression-refs (make-promise (lambda () - (let ((_tbl109372_ + (let ((_tbl109369_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl109372_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl109369_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (hash-put! - _tbl109372_ + _tbl109369_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl109372_ '%#lambda gxc#collect-body-lambda%)) + (hash-put! _tbl109369_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl109372_ + _tbl109369_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl109372_ + _tbl109369_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl109372_ + _tbl109369_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl109372_ + _tbl109369_ '%#letrec*-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl109372_ '%#quote gxc#void-method)) + (hash-put! _tbl109369_ '%#quote gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109372_ '%#quote-syntax gxc#void-method)) + (hash-put! _tbl109369_ '%#quote-syntax gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109372_ '%#call gxc#collect-operands)) + (hash-put! _tbl109369_ '%#call gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl109372_ '%#call-unchecked gxc#collect-operands)) + (hash-put! _tbl109369_ '%#call-unchecked gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl109372_ '%#if gxc#collect-operands)) + (hash-put! _tbl109369_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl109372_ '%#ref gxc#collect-refs-ref%)) + (hash-put! _tbl109369_ '%#ref gxc#collect-refs-ref%)) (let () (declare (not safe)) - (hash-put! _tbl109372_ '%#set! gxc#collect-refs-setq%)) + (hash-put! _tbl109369_ '%#set! gxc#collect-refs-setq%)) (let () (declare (not safe)) (hash-put! - _tbl109372_ + _tbl109369_ '%#struct-instance? gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl109372_ + _tbl109369_ '%#struct-direct-instance? gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl109372_ '%#struct-ref gxc#collect-operands)) + (hash-put! _tbl109369_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl109372_ '%#struct-set! gxc#collect-operands)) + (hash-put! _tbl109369_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl109372_ + _tbl109369_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl109372_ + _tbl109369_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl109372_ + _tbl109369_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl109372_ + _tbl109369_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl109372_)))) + _tbl109369_)))) (define gxc#apply-collect-expression-refs - (lambda (_stx109355_ . _args109357_) - (let ((__tmp111359 + (lambda (_stx109352_ . _args109354_) + (let ((__tmp111356 (lambda () (declare (not safe)) - (if (null? _args109357_) - (gxc#compile-e__0 _stx109355_) - (let ((_arg1109362_ (car _args109357_)) - (_rest109364_ (cdr _args109357_))) - (if (null? _rest109364_) - (gxc#compile-e__1 _stx109355_ _arg1109362_) - (let ((_arg2109367_ (car _rest109364_)) - (_rest109369_ (cdr _rest109364_))) - (if (null? _rest109369_) + (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_) (gxc#compile-e__2 - _stx109355_ - _arg1109362_ - _arg2109367_) + _stx109352_ + _arg1109359_ + _arg2109364_) (apply gxc#compile-e - _stx109355_ - _arg1109362_ - _arg2109367_ - _rest109369_)))))))) - (__tmp111358 (force gxc#&collect-expression-refs))) + _stx109352_ + _arg1109359_ + _arg2109364_ + _rest109366_)))))))) + (__tmp111355 (force gxc#&collect-expression-refs))) (declare (not safe)) (call-with-parameters - __tmp111359 + __tmp111356 gxc#current-compile-methods - __tmp111358)))) + __tmp111355)))) (define gxc#&generate-meta (make-promise (lambda () - (let ((_tbl109352_ + (let ((_tbl109349_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111360 (force gxc#&void-expression))) + (let ((__tmp111357 (force gxc#&void-expression))) (declare (not safe)) - (hash-merge! _tbl109352_ __tmp111360)) + (hash-merge! _tbl109349_ __tmp111357)) (let () (declare (not safe)) - (hash-put! _tbl109352_ '%#begin gxc#generate-meta-begin%)) + (hash-put! _tbl109349_ '%#begin gxc#generate-meta-begin%)) (let () (declare (not safe)) (hash-put! - _tbl109352_ + _tbl109349_ '%#begin-syntax gxc#generate-meta-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl109352_ '%#module gxc#generate-meta-module%)) + (hash-put! _tbl109349_ '%#module gxc#generate-meta-module%)) (let () (declare (not safe)) - (hash-put! _tbl109352_ '%#import gxc#generate-meta-import%)) + (hash-put! _tbl109349_ '%#import gxc#generate-meta-import%)) (let () (declare (not safe)) - (hash-put! _tbl109352_ '%#export gxc#generate-meta-export%)) + (hash-put! _tbl109349_ '%#export gxc#generate-meta-export%)) (let () (declare (not safe)) - (hash-put! _tbl109352_ '%#provide gxc#generate-meta-provide%)) + (hash-put! _tbl109349_ '%#provide gxc#generate-meta-provide%)) (let () (declare (not safe)) - (hash-put! _tbl109352_ '%#extern gxc#generate-meta-extern%)) + (hash-put! _tbl109349_ '%#extern gxc#generate-meta-extern%)) (let () (declare (not safe)) (hash-put! - _tbl109352_ + _tbl109349_ '%#define-values gxc#generate-meta-define-values%)) (let () (declare (not safe)) (hash-put! - _tbl109352_ + _tbl109349_ '%#define-syntax gxc#generate-meta-define-syntax%)) (let () (declare (not safe)) (hash-put! - _tbl109352_ + _tbl109349_ '%#define-alias gxc#generate-meta-define-alias%)) (let () (declare (not safe)) - (hash-put! _tbl109352_ '%#begin-foreign gxc#void-method)) + (hash-put! _tbl109349_ '%#begin-foreign gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109352_ '%#declare gxc#void-method)) - _tbl109352_)))) + (hash-put! _tbl109349_ '%#declare gxc#void-method)) + _tbl109349_)))) (define gxc#apply-generate-meta - (lambda (_stx109335_ . _args109337_) - (let ((__tmp111362 + (lambda (_stx109332_ . _args109334_) + (let ((__tmp111359 (lambda () (declare (not safe)) - (if (null? _args109337_) - (gxc#compile-e__0 _stx109335_) - (let ((_arg1109342_ (car _args109337_)) - (_rest109344_ (cdr _args109337_))) - (if (null? _rest109344_) - (gxc#compile-e__1 _stx109335_ _arg1109342_) - (let ((_arg2109347_ (car _rest109344_)) - (_rest109349_ (cdr _rest109344_))) - (if (null? _rest109349_) + (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_) (gxc#compile-e__2 - _stx109335_ - _arg1109342_ - _arg2109347_) + _stx109332_ + _arg1109339_ + _arg2109344_) (apply gxc#compile-e - _stx109335_ - _arg1109342_ - _arg2109347_ - _rest109349_)))))))) - (__tmp111361 (force gxc#&generate-meta))) + _stx109332_ + _arg1109339_ + _arg2109344_ + _rest109346_)))))))) + (__tmp111358 (force gxc#&generate-meta))) (declare (not safe)) (call-with-parameters - __tmp111362 + __tmp111359 gxc#current-compile-methods - __tmp111361)))) + __tmp111358)))) (define gxc#&generate-meta-phi (make-promise (lambda () - (let ((_tbl109332_ + (let ((_tbl109329_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl109332_ '%#begin gxc#generate-meta-begin%)) + (hash-put! _tbl109329_ '%#begin gxc#generate-meta-begin%)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#begin-syntax gxc#generate-meta-begin-syntax%)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#define-syntax gxc#generate-meta-define-syntax%)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#define-alias gxc#generate-meta-define-alias%)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#define-values gxc#generate-meta-phi-define-values%)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#begin-annotation gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (hash-put! _tbl109332_ '%#lambda gxc#generate-meta-phi-expr)) + (hash-put! _tbl109329_ '%#lambda gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#case-lambda gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#let-values gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#letrec-values gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#letrec*-values gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (hash-put! _tbl109332_ '%#quote gxc#generate-meta-phi-expr)) + (hash-put! _tbl109329_ '%#quote gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#quote-syntax gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (hash-put! _tbl109332_ '%#call gxc#generate-meta-phi-expr)) + (hash-put! _tbl109329_ '%#call gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#call-unchecked gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (hash-put! _tbl109332_ '%#if gxc#generate-meta-phi-expr)) + (hash-put! _tbl109329_ '%#if gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (hash-put! _tbl109332_ '%#ref gxc#generate-meta-phi-expr)) + (hash-put! _tbl109329_ '%#ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (hash-put! _tbl109332_ '%#set! gxc#generate-meta-phi-expr)) + (hash-put! _tbl109329_ '%#set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#struct-instance? gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#struct-direct-instance? gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#struct-ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#struct-set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#struct-direct-ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#struct-direct-set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#struct-unchecked-ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109332_ + _tbl109329_ '%#struct-unchecked-set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (hash-put! _tbl109332_ '%#declare gxc#void-method)) - _tbl109332_)))) + (hash-put! _tbl109329_ '%#declare gxc#void-method)) + _tbl109329_)))) (define gxc#apply-generate-meta-phi - (lambda (_stx109315_ . _args109317_) - (let ((__tmp111364 + (lambda (_stx109312_ . _args109314_) + (let ((__tmp111361 (lambda () (declare (not safe)) - (if (null? _args109317_) - (gxc#compile-e__0 _stx109315_) - (let ((_arg1109322_ (car _args109317_)) - (_rest109324_ (cdr _args109317_))) - (if (null? _rest109324_) - (gxc#compile-e__1 _stx109315_ _arg1109322_) - (let ((_arg2109327_ (car _rest109324_)) - (_rest109329_ (cdr _rest109324_))) - (if (null? _rest109329_) + (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_) (gxc#compile-e__2 - _stx109315_ - _arg1109322_ - _arg2109327_) + _stx109312_ + _arg1109319_ + _arg2109324_) (apply gxc#compile-e - _stx109315_ - _arg1109322_ - _arg2109327_ - _rest109329_)))))))) - (__tmp111363 (force gxc#&generate-meta-phi))) + _stx109312_ + _arg1109319_ + _arg2109324_ + _rest109326_)))))))) + (__tmp111360 (force gxc#&generate-meta-phi))) (declare (not safe)) (call-with-parameters - __tmp111364 + __tmp111361 gxc#current-compile-methods - __tmp111363)))) + __tmp111360)))) (define gxc#collect-begin% - (lambda (_stx109265_ . _args109266_) - (let* ((_g109268109278_ - (lambda (_g109269109275_) + (lambda (_stx109262_ . _args109263_) + (let* ((_g109265109275_ + (lambda (_g109266109272_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g109269109275_)))) - (_g109267109312_ - (lambda (_g109269109281_) + _g109266109272_)))) + (_g109264109309_ + (lambda (_g109266109278_) (if (let () (declare (not safe)) - (gx#stx-pair? _g109269109281_)) - (let ((_e109273109283_ + (gx#stx-pair? _g109266109278_)) + (let ((_e109270109280_ (let () (declare (not safe)) - (gx#stx-e _g109269109281_)))) - (let ((_hd109272109286_ + (gx#stx-e _g109266109278_)))) + (let ((_hd109269109283_ (let () (declare (not safe)) - (##car _e109273109283_))) - (_tl109271109288_ + (##car _e109270109280_))) + (_tl109268109285_ (let () (declare (not safe)) - (##cdr _e109273109283_)))) - ((lambda (_L109291_) + (##cdr _e109270109280_)))) + ((lambda (_L109288_) (for-each - (lambda (_stx109301_) + (lambda (_stx109298_) (if (let () (declare (not safe)) - (null? _args109266_)) + (null? _args109263_)) (let () (declare (not safe)) - (gxc#compile-e__0 _stx109301_)) - (let ((_arg1109303_ (car _args109266_)) - (_rest109305_ (cdr _args109266_))) + (gxc#compile-e__0 _stx109298_)) + (let ((_arg1109300_ (car _args109263_)) + (_rest109302_ (cdr _args109263_))) (if (let () (declare (not safe)) - (null? _rest109305_)) + (null? _rest109302_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx109301_ - _arg1109303_)) - (let ((_arg2109308_ - (car _rest109305_)) - (_rest109310_ - (cdr _rest109305_))) + _stx109298_ + _arg1109300_)) + (let ((_arg2109305_ + (car _rest109302_)) + (_rest109307_ + (cdr _rest109302_))) (if (let () (declare (not safe)) - (null? _rest109310_)) + (null? _rest109307_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx109301_ - _arg1109303_ - _arg2109308_)) + _stx109298_ + _arg1109300_ + _arg2109305_)) (apply gxc#compile-e - _stx109301_ - _arg1109303_ - _arg2109308_ - _rest109310_))))))) + _stx109298_ + _arg1109300_ + _arg2109305_ + _rest109307_))))))) (let () (declare (not safe)) - (gx#stx-e _L109291_)))) - _tl109271109288_))) + (gx#stx-e _L109288_)))) + _tl109268109285_))) (let () (declare (not safe)) - (_g109268109278_ _g109269109281_)))))) + (_g109265109275_ _g109266109278_)))))) (declare (not safe)) - (_g109267109312_ _stx109265_)))) + (_g109264109309_ _stx109262_)))) (define gxc#collect-begin-syntax% - (lambda (_stx109261_ . _args109262_) - (let ((__tmp111367 + (lambda (_stx109258_ . _args109259_) + (let ((__tmp111364 (lambda () - (apply gxc#collect-begin% _stx109261_ _args109262_))) - (__tmp111365 - (let ((__tmp111366 (gx#current-expander-phi))) + (apply gxc#collect-begin% _stx109258_ _args109259_))) + (__tmp111362 + (let ((__tmp111363 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp111366 '1)))) + (fx+ __tmp111363 '1)))) (declare (not safe)) (call-with-parameters - __tmp111367 + __tmp111364 gx#current-expander-phi - __tmp111365)))) + __tmp111362)))) (define gxc#collect-module% - (lambda (_stx109191_ . _args109192_) - (let* ((_g109194109208_ - (lambda (_g109195109205_) + (lambda (_stx109188_ . _args109189_) + (let* ((_g109191109205_ + (lambda (_g109192109202_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g109195109205_)))) - (_g109193109258_ - (lambda (_g109195109211_) + _g109192109202_)))) + (_g109190109255_ + (lambda (_g109192109208_) (if (let () (declare (not safe)) - (gx#stx-pair? _g109195109211_)) - (let ((_e109200109213_ + (gx#stx-pair? _g109192109208_)) + (let ((_e109197109210_ (let () (declare (not safe)) - (gx#stx-e _g109195109211_)))) - (let ((_hd109199109216_ + (gx#stx-e _g109192109208_)))) + (let ((_hd109196109213_ (let () (declare (not safe)) - (##car _e109200109213_))) - (_tl109198109218_ + (##car _e109197109210_))) + (_tl109195109215_ (let () (declare (not safe)) - (##cdr _e109200109213_)))) + (##cdr _e109197109210_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl109198109218_)) - (let ((_e109203109221_ + (gx#stx-pair? _tl109195109215_)) + (let ((_e109200109218_ (let () (declare (not safe)) - (gx#stx-e _tl109198109218_)))) - (let ((_hd109202109224_ + (gx#stx-e _tl109195109215_)))) + (let ((_hd109199109221_ (let () (declare (not safe)) - (##car _e109203109221_))) - (_tl109201109226_ + (##car _e109200109218_))) + (_tl109198109223_ (let () (declare (not safe)) - (##cdr _e109203109221_)))) - ((lambda (_L109229_ _L109230_) - (let* ((_ctx109243_ + (##cdr _e109200109218_)))) + ((lambda (_L109226_ _L109227_) + (let* ((_ctx109240_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L109230_))) - (_ctx-stx109245_ + _L109227_))) + (_ctx-stx109242_ (##structure-ref - _ctx109243_ + _ctx109240_ '11 gx#module-context::t '#f))) - (let ((__tmp111368 + (let ((__tmp111365 (lambda () (if (let () (declare (not safe)) - (null? _args109192_)) + (null? _args109189_)) (let () (declare (not safe)) (gxc#compile-e__0 - _ctx-stx109245_)) - (let ((_arg1109249_ - (car _args109192_)) - (_rest109251_ - (cdr _args109192_))) + _ctx-stx109242_)) + (let ((_arg1109246_ + (car _args109189_)) + (_rest109248_ + (cdr _args109189_))) (if (let () (declare (not safe)) - (null? _rest109251_)) + (null? _rest109248_)) (let () (declare (not safe)) (gxc#compile-e__1 - _ctx-stx109245_ - _arg1109249_)) - (let ((_arg2109254_ + _ctx-stx109242_ + _arg1109246_)) + (let ((_arg2109251_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _rest109251_)) - (_rest109256_ (cdr _rest109251_))) - (if (let () (declare (not safe)) (null? _rest109256_)) + (car _rest109248_)) + (_rest109253_ (cdr _rest109248_))) + (if (let () (declare (not safe)) (null? _rest109253_)) (let () (declare (not safe)) (gxc#compile-e__2 - _ctx-stx109245_ - _arg1109249_ - _arg2109254_)) + _ctx-stx109242_ + _arg1109246_ + _arg2109251_)) (apply gxc#compile-e - _ctx-stx109245_ - _arg1109249_ - _arg2109254_ - _rest109256_))))))))) + _ctx-stx109242_ + _arg1109246_ + _arg2109251_ + _rest109253_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp111368 + __tmp111365 gx#current-expander-context - _ctx109243_)))) - _tl109201109226_ - _hd109202109224_))) + _ctx109240_)))) + _tl109198109223_ + _hd109199109221_))) (let () (declare (not safe)) - (_g109194109208_ _g109195109211_))))) + (_g109191109205_ _g109192109208_))))) (let () (declare (not safe)) - (_g109194109208_ _g109195109211_)))))) + (_g109191109205_ _g109192109208_)))))) (declare (not safe)) - (_g109193109258_ _stx109191_)))) + (_g109190109255_ _stx109188_)))) (define gxc#collect-begin-annotation% - (lambda (_stx109114_ . _args109115_) - (let* ((_g109117109134_ - (lambda (_g109118109131_) + (lambda (_stx109111_ . _args109112_) + (let* ((_g109114109131_ + (lambda (_g109115109128_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g109118109131_)))) - (_g109116109188_ - (lambda (_g109118109137_) + _g109115109128_)))) + (_g109113109185_ + (lambda (_g109115109134_) (if (let () (declare (not safe)) - (gx#stx-pair? _g109118109137_)) - (let ((_e109123109139_ + (gx#stx-pair? _g109115109134_)) + (let ((_e109120109136_ (let () (declare (not safe)) - (gx#stx-e _g109118109137_)))) - (let ((_hd109122109142_ + (gx#stx-e _g109115109134_)))) + (let ((_hd109119109139_ (let () (declare (not safe)) - (##car _e109123109139_))) - (_tl109121109144_ + (##car _e109120109136_))) + (_tl109118109141_ (let () (declare (not safe)) - (##cdr _e109123109139_)))) + (##cdr _e109120109136_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl109121109144_)) - (let ((_e109126109147_ + (gx#stx-pair? _tl109118109141_)) + (let ((_e109123109144_ (let () (declare (not safe)) - (gx#stx-e _tl109121109144_)))) - (let ((_hd109125109150_ + (gx#stx-e _tl109118109141_)))) + (let ((_hd109122109147_ (let () (declare (not safe)) - (##car _e109126109147_))) - (_tl109124109152_ + (##car _e109123109144_))) + (_tl109121109149_ (let () (declare (not safe)) - (##cdr _e109126109147_)))) + (##cdr _e109123109144_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl109124109152_)) - (let ((_e109129109155_ + (gx#stx-pair? _tl109121109149_)) + (let ((_e109126109152_ (let () (declare (not safe)) - (gx#stx-e _tl109124109152_)))) - (let ((_hd109128109158_ + (gx#stx-e _tl109121109149_)))) + (let ((_hd109125109155_ (let () (declare (not safe)) - (##car _e109129109155_))) - (_tl109127109160_ + (##car _e109126109152_))) + (_tl109124109157_ (let () (declare (not safe)) - (##cdr _e109129109155_)))) + (##cdr _e109126109152_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl109127109160_)) - ((lambda (_L109163_ _L109164_) + _tl109124109157_)) + ((lambda (_L109160_ _L109161_) (if (let () (declare (not safe)) - (null? _args109115_)) + (null? _args109112_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L109163_)) - (let ((_arg1109179_ - (car _args109115_)) - (_rest109181_ - (cdr _args109115_))) + _L109160_)) + (let ((_arg1109176_ + (car _args109112_)) + (_rest109178_ + (cdr _args109112_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest109181_)) + (null? _rest109178_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L109163_ _arg1109179_)) - (let ((_arg2109184_ (car _rest109181_)) - (_rest109186_ (cdr _rest109181_))) - (if (let () (declare (not safe)) (null? _rest109186_)) + (gxc#compile-e__1 _L109160_ _arg1109176_)) + (let ((_arg2109181_ (car _rest109178_)) + (_rest109183_ (cdr _rest109178_))) + (if (let () (declare (not safe)) (null? _rest109183_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L109163_ - _arg1109179_ - _arg2109184_)) + _L109160_ + _arg1109176_ + _arg2109181_)) (apply gxc#compile-e - _L109163_ - _arg1109179_ - _arg2109184_ - _rest109186_))))))) + _L109160_ + _arg1109176_ + _arg2109181_ + _rest109183_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd109128109158_ - _hd109125109150_) + _hd109125109155_ + _hd109122109147_) (let () (declare (not safe)) - (_g109117109134_ - _g109118109137_))))) + (_g109114109131_ + _g109115109134_))))) (let () (declare (not safe)) - (_g109117109134_ _g109118109137_))))) + (_g109114109131_ _g109115109134_))))) (let () (declare (not safe)) - (_g109117109134_ _g109118109137_))))) + (_g109114109131_ _g109115109134_))))) (let () (declare (not safe)) - (_g109117109134_ _g109118109137_)))))) + (_g109114109131_ _g109115109134_)))))) (declare (not safe)) - (_g109116109188_ _stx109114_)))) + (_g109113109185_ _stx109111_)))) (define gxc#collect-define-values% - (lambda (_stx109037_ . _args109038_) - (let* ((_g109040109057_ - (lambda (_g109041109054_) + (lambda (_stx109034_ . _args109035_) + (let* ((_g109037109054_ + (lambda (_g109038109051_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g109041109054_)))) - (_g109039109111_ - (lambda (_g109041109060_) + _g109038109051_)))) + (_g109036109108_ + (lambda (_g109038109057_) (if (let () (declare (not safe)) - (gx#stx-pair? _g109041109060_)) - (let ((_e109046109062_ + (gx#stx-pair? _g109038109057_)) + (let ((_e109043109059_ (let () (declare (not safe)) - (gx#stx-e _g109041109060_)))) - (let ((_hd109045109065_ + (gx#stx-e _g109038109057_)))) + (let ((_hd109042109062_ (let () (declare (not safe)) - (##car _e109046109062_))) - (_tl109044109067_ + (##car _e109043109059_))) + (_tl109041109064_ (let () (declare (not safe)) - (##cdr _e109046109062_)))) + (##cdr _e109043109059_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl109044109067_)) - (let ((_e109049109070_ + (gx#stx-pair? _tl109041109064_)) + (let ((_e109046109067_ (let () (declare (not safe)) - (gx#stx-e _tl109044109067_)))) - (let ((_hd109048109073_ + (gx#stx-e _tl109041109064_)))) + (let ((_hd109045109070_ (let () (declare (not safe)) - (##car _e109049109070_))) - (_tl109047109075_ + (##car _e109046109067_))) + (_tl109044109072_ (let () (declare (not safe)) - (##cdr _e109049109070_)))) + (##cdr _e109046109067_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl109047109075_)) - (let ((_e109052109078_ + (gx#stx-pair? _tl109044109072_)) + (let ((_e109049109075_ (let () (declare (not safe)) - (gx#stx-e _tl109047109075_)))) - (let ((_hd109051109081_ + (gx#stx-e _tl109044109072_)))) + (let ((_hd109048109078_ (let () (declare (not safe)) - (##car _e109052109078_))) - (_tl109050109083_ + (##car _e109049109075_))) + (_tl109047109080_ (let () (declare (not safe)) - (##cdr _e109052109078_)))) + (##cdr _e109049109075_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl109050109083_)) - ((lambda (_L109086_ _L109087_) + _tl109047109080_)) + ((lambda (_L109083_ _L109084_) (if (let () (declare (not safe)) - (null? _args109038_)) + (null? _args109035_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L109086_)) - (let ((_arg1109102_ - (car _args109038_)) - (_rest109104_ - (cdr _args109038_))) + _L109083_)) + (let ((_arg1109099_ + (car _args109035_)) + (_rest109101_ + (cdr _args109035_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest109104_)) + (null? _rest109101_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L109086_ _arg1109102_)) - (let ((_arg2109107_ (car _rest109104_)) - (_rest109109_ (cdr _rest109104_))) - (if (let () (declare (not safe)) (null? _rest109109_)) + (gxc#compile-e__1 _L109083_ _arg1109099_)) + (let ((_arg2109104_ (car _rest109101_)) + (_rest109106_ (cdr _rest109101_))) + (if (let () (declare (not safe)) (null? _rest109106_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L109086_ - _arg1109102_ - _arg2109107_)) + _L109083_ + _arg1109099_ + _arg2109104_)) (apply gxc#compile-e - _L109086_ - _arg1109102_ - _arg2109107_ - _rest109109_))))))) + _L109083_ + _arg1109099_ + _arg2109104_ + _rest109106_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd109051109081_ - _hd109048109073_) + _hd109048109078_ + _hd109045109070_) (let () (declare (not safe)) - (_g109040109057_ - _g109041109060_))))) + (_g109037109054_ + _g109038109057_))))) (let () (declare (not safe)) - (_g109040109057_ _g109041109060_))))) + (_g109037109054_ _g109038109057_))))) (let () (declare (not safe)) - (_g109040109057_ _g109041109060_))))) + (_g109037109054_ _g109038109057_))))) (let () (declare (not safe)) - (_g109040109057_ _g109041109060_)))))) + (_g109037109054_ _g109038109057_)))))) (declare (not safe)) - (_g109039109111_ _stx109037_)))) + (_g109036109108_ _stx109034_)))) (define gxc#collect-define-syntax% - (lambda (_stx108959_ . _args108960_) - (let* ((_g108962108979_ - (lambda (_g108963108976_) + (lambda (_stx108956_ . _args108957_) + (let* ((_g108959108976_ + (lambda (_g108960108973_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108963108976_)))) - (_g108961109034_ - (lambda (_g108963108982_) + _g108960108973_)))) + (_g108958109031_ + (lambda (_g108960108979_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108963108982_)) - (let ((_e108968108984_ + (gx#stx-pair? _g108960108979_)) + (let ((_e108965108981_ (let () (declare (not safe)) - (gx#stx-e _g108963108982_)))) - (let ((_hd108967108987_ + (gx#stx-e _g108960108979_)))) + (let ((_hd108964108984_ (let () (declare (not safe)) - (##car _e108968108984_))) - (_tl108966108989_ + (##car _e108965108981_))) + (_tl108963108986_ (let () (declare (not safe)) - (##cdr _e108968108984_)))) + (##cdr _e108965108981_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108966108989_)) - (let ((_e108971108992_ + (gx#stx-pair? _tl108963108986_)) + (let ((_e108968108989_ (let () (declare (not safe)) - (gx#stx-e _tl108966108989_)))) - (let ((_hd108970108995_ + (gx#stx-e _tl108963108986_)))) + (let ((_hd108967108992_ (let () (declare (not safe)) - (##car _e108971108992_))) - (_tl108969108997_ + (##car _e108968108989_))) + (_tl108966108994_ (let () (declare (not safe)) - (##cdr _e108971108992_)))) + (##cdr _e108968108989_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108969108997_)) - (let ((_e108974109000_ + (gx#stx-pair? _tl108966108994_)) + (let ((_e108971108997_ (let () (declare (not safe)) - (gx#stx-e _tl108969108997_)))) - (let ((_hd108973109003_ + (gx#stx-e _tl108966108994_)))) + (let ((_hd108970109000_ (let () (declare (not safe)) - (##car _e108974109000_))) - (_tl108972109005_ + (##car _e108971108997_))) + (_tl108969109002_ (let () (declare (not safe)) - (##cdr _e108974109000_)))) + (##cdr _e108971108997_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108972109005_)) - ((lambda (_L109008_ _L109009_) - (let ((__tmp111371 + _tl108969109002_)) + ((lambda (_L109005_ _L109006_) + (let ((__tmp111368 (lambda () (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (null? _args108960_)) + (null? _args108957_)) (let () (declare (not safe)) - (gxc#compile-e__0 _L109008_)) - (let ((_arg1109025_ (car _args108960_)) - (_rest109027_ (cdr _args108960_))) + (gxc#compile-e__0 _L109005_)) + (let ((_arg1109022_ (car _args108957_)) + (_rest109024_ (cdr _args108957_))) (if (let () (declare (not safe)) - (null? _rest109027_)) + (null? _rest109024_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L109008_ _arg1109025_)) - (let ((_arg2109030_ (car _rest109027_)) - (_rest109032_ (cdr _rest109027_))) + (gxc#compile-e__1 _L109005_ _arg1109022_)) + (let ((_arg2109027_ (car _rest109024_)) + (_rest109029_ (cdr _rest109024_))) (if (let () (declare (not safe)) - (null? _rest109032_)) + (null? _rest109029_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L109008_ - _arg1109025_ - _arg2109030_)) + _L109005_ + _arg1109022_ + _arg2109027_)) (apply gxc#compile-e - _L109008_ - _arg1109025_ - _arg2109030_ - _rest109032_)))))))) - (__tmp111369 - (let ((__tmp111370 (gx#current-expander-phi))) + _L109005_ + _arg1109022_ + _arg2109027_ + _rest109029_)))))))) + (__tmp111366 + (let ((__tmp111367 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp111370 '1)))) + (fx+ __tmp111367 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp111371 + __tmp111368 gx#current-expander-phi - __tmp111369))) - _hd108973109003_ - _hd108970108995_) + __tmp111366))) + _hd108970109000_ + _hd108967108992_) (let () (declare (not safe)) - (_g108962108979_ - _g108963108982_))))) + (_g108959108976_ + _g108960108979_))))) (let () (declare (not safe)) - (_g108962108979_ _g108963108982_))))) + (_g108959108976_ _g108960108979_))))) (let () (declare (not safe)) - (_g108962108979_ _g108963108982_))))) + (_g108959108976_ _g108960108979_))))) (let () (declare (not safe)) - (_g108962108979_ _g108963108982_)))))) + (_g108959108976_ _g108960108979_)))))) (declare (not safe)) - (_g108961109034_ _stx108959_)))) + (_g108958109031_ _stx108956_)))) (define gxc#collect-body-lambda% - (lambda (_stx108882_ . _args108883_) - (let* ((_g108885108902_ - (lambda (_g108886108899_) + (lambda (_stx108879_ . _args108880_) + (let* ((_g108882108899_ + (lambda (_g108883108896_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108886108899_)))) - (_g108884108956_ - (lambda (_g108886108905_) + _g108883108896_)))) + (_g108881108953_ + (lambda (_g108883108902_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108886108905_)) - (let ((_e108891108907_ + (gx#stx-pair? _g108883108902_)) + (let ((_e108888108904_ (let () (declare (not safe)) - (gx#stx-e _g108886108905_)))) - (let ((_hd108890108910_ + (gx#stx-e _g108883108902_)))) + (let ((_hd108887108907_ (let () (declare (not safe)) - (##car _e108891108907_))) - (_tl108889108912_ + (##car _e108888108904_))) + (_tl108886108909_ (let () (declare (not safe)) - (##cdr _e108891108907_)))) + (##cdr _e108888108904_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108889108912_)) - (let ((_e108894108915_ + (gx#stx-pair? _tl108886108909_)) + (let ((_e108891108912_ (let () (declare (not safe)) - (gx#stx-e _tl108889108912_)))) - (let ((_hd108893108918_ + (gx#stx-e _tl108886108909_)))) + (let ((_hd108890108915_ (let () (declare (not safe)) - (##car _e108894108915_))) - (_tl108892108920_ + (##car _e108891108912_))) + (_tl108889108917_ (let () (declare (not safe)) - (##cdr _e108894108915_)))) + (##cdr _e108891108912_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108892108920_)) - (let ((_e108897108923_ + (gx#stx-pair? _tl108889108917_)) + (let ((_e108894108920_ (let () (declare (not safe)) - (gx#stx-e _tl108892108920_)))) - (let ((_hd108896108926_ + (gx#stx-e _tl108889108917_)))) + (let ((_hd108893108923_ (let () (declare (not safe)) - (##car _e108897108923_))) - (_tl108895108928_ + (##car _e108894108920_))) + (_tl108892108925_ (let () (declare (not safe)) - (##cdr _e108897108923_)))) + (##cdr _e108894108920_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108895108928_)) - ((lambda (_L108931_ _L108932_) + _tl108892108925_)) + ((lambda (_L108928_ _L108929_) (if (let () (declare (not safe)) - (null? _args108883_)) + (null? _args108880_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L108931_)) - (let ((_arg1108947_ - (car _args108883_)) - (_rest108949_ - (cdr _args108883_))) + _L108928_)) + (let ((_arg1108944_ + (car _args108880_)) + (_rest108946_ + (cdr _args108880_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest108949_)) + (null? _rest108946_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L108931_ _arg1108947_)) - (let ((_arg2108952_ (car _rest108949_)) - (_rest108954_ (cdr _rest108949_))) - (if (let () (declare (not safe)) (null? _rest108954_)) + (gxc#compile-e__1 _L108928_ _arg1108944_)) + (let ((_arg2108949_ (car _rest108946_)) + (_rest108951_ (cdr _rest108946_))) + (if (let () (declare (not safe)) (null? _rest108951_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L108931_ - _arg1108947_ - _arg2108952_)) + _L108928_ + _arg1108944_ + _arg2108949_)) (apply gxc#compile-e - _L108931_ - _arg1108947_ - _arg2108952_ - _rest108954_))))))) + _L108928_ + _arg1108944_ + _arg2108949_ + _rest108951_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd108896108926_ - _hd108893108918_) + _hd108893108923_ + _hd108890108915_) (let () (declare (not safe)) - (_g108885108902_ - _g108886108905_))))) + (_g108882108899_ + _g108883108902_))))) (let () (declare (not safe)) - (_g108885108902_ _g108886108905_))))) + (_g108882108899_ _g108883108902_))))) (let () (declare (not safe)) - (_g108885108902_ _g108886108905_))))) + (_g108882108899_ _g108883108902_))))) (let () (declare (not safe)) - (_g108885108902_ _g108886108905_)))))) + (_g108882108899_ _g108883108902_)))))) (declare (not safe)) - (_g108884108956_ _stx108882_)))) + (_g108881108953_ _stx108879_)))) (define gxc#collect-body-case-lambda% - (lambda (_stx108757_ . _args108758_) - (let* ((_g108760108788_ - (lambda (_g108761108785_) + (lambda (_stx108754_ . _args108755_) + (let* ((_g108757108785_ + (lambda (_g108758108782_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108761108785_)))) - (_g108759108879_ - (lambda (_g108761108791_) + _g108758108782_)))) + (_g108756108876_ + (lambda (_g108758108788_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108761108791_)) - (let ((_e108766108793_ + (gx#stx-pair? _g108758108788_)) + (let ((_e108763108790_ (let () (declare (not safe)) - (gx#stx-e _g108761108791_)))) - (let ((_hd108765108796_ + (gx#stx-e _g108758108788_)))) + (let ((_hd108762108793_ (let () (declare (not safe)) - (##car _e108766108793_))) - (_tl108764108798_ + (##car _e108763108790_))) + (_tl108761108795_ (let () (declare (not safe)) - (##cdr _e108766108793_)))) + (##cdr _e108763108790_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl108764108798_)) - (let ((_g111372_ + (gx#stx-pair/null? _tl108761108795_)) + (let ((_g111369_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl108764108798_ + _tl108761108795_ '0)))) (begin - (let ((_g111373_ + (let ((_g111370_ (let () (declare (not safe)) - (if (##values? _g111372_) - (##vector-length _g111372_) + (if (##values? _g111369_) + (##vector-length _g111369_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g111373_ 2))) + (##fx= _g111370_ 2))) (error "Context expects 2 values" - _g111373_))) - (let ((_target108767108801_ + _g111370_))) + (let ((_target108764108798_ (let () (declare (not safe)) - (##vector-ref _g111372_ 0))) - (_tl108769108803_ + (##vector-ref _g111369_ 0))) + (_tl108766108800_ (let () (declare (not safe)) - (##vector-ref _g111372_ 1)))) + (##vector-ref _g111369_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108769108803_)) - (letrec ((_loop108770108806_ - (lambda (_hd108768108809_ - _body108774108811_ - _hd108775108813_) + (gx#stx-null? _tl108766108800_)) + (letrec ((_loop108767108803_ + (lambda (_hd108765108806_ + _body108771108808_ + _hd108772108810_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd108768108809_)) - (let ((_e108771108816_ + _hd108765108806_)) + (let ((_e108768108813_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd108768108809_)))) - (let ((_lp-hd108772108819_ + (gx#stx-e _hd108765108806_)))) + (let ((_lp-hd108769108816_ (let () (declare (not safe)) - (##car _e108771108816_))) - (_lp-tl108773108821_ + (##car _e108768108813_))) + (_lp-tl108770108818_ (let () (declare (not safe)) - (##cdr _e108771108816_)))) + (##cdr _e108768108813_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd108772108819_)) - (let ((_e108780108824_ + (gx#stx-pair? _lp-hd108769108816_)) + (let ((_e108777108821_ (let () (declare (not safe)) - (gx#stx-e _lp-hd108772108819_)))) - (let ((_hd108779108827_ + (gx#stx-e _lp-hd108769108816_)))) + (let ((_hd108776108824_ (let () (declare (not safe)) - (##car _e108780108824_))) - (_tl108778108829_ + (##car _e108777108821_))) + (_tl108775108826_ (let () (declare (not safe)) - (##cdr _e108780108824_)))) + (##cdr _e108777108821_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108778108829_)) - (let ((_e108783108832_ + (gx#stx-pair? _tl108775108826_)) + (let ((_e108780108829_ (let () (declare (not safe)) - (gx#stx-e _tl108778108829_)))) - (let ((_hd108782108835_ + (gx#stx-e _tl108775108826_)))) + (let ((_hd108779108832_ (let () (declare (not safe)) - (##car _e108783108832_))) - (_tl108781108837_ + (##car _e108780108829_))) + (_tl108778108834_ (let () (declare (not safe)) - (##cdr _e108783108832_)))) + (##cdr _e108780108829_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108781108837_)) - (let ((__tmp111376 + (gx#stx-null? _tl108778108834_)) + (let ((__tmp111373 (let () (declare (not safe)) - (cons _hd108782108835_ - _body108774108811_))) - (__tmp111375 + (cons _hd108779108832_ + _body108771108808_))) + (__tmp111372 (let () (declare (not safe)) - (cons _hd108779108827_ - _hd108775108813_)))) + (cons _hd108776108824_ + _hd108772108810_)))) (declare (not safe)) - (_loop108770108806_ - _lp-tl108773108821_ - __tmp111376 - __tmp111375)) + (_loop108767108803_ + _lp-tl108770108818_ + __tmp111373 + __tmp111372)) (let () (declare (not safe)) - (_g108760108788_ - _g108761108791_))))) + (_g108757108785_ + _g108758108788_))))) (let () (declare (not safe)) - (_g108760108788_ _g108761108791_))))) + (_g108757108785_ _g108758108788_))))) (let () (declare (not safe)) - (_g108760108788_ _g108761108791_))))) - (let ((_body108776108840_ (reverse _body108774108811_)) - (_hd108777108842_ (reverse _hd108775108813_))) - ((lambda (_L108845_ _L108846_) + (_g108757108785_ _g108758108788_))))) + (let ((_body108773108837_ (reverse _body108771108808_)) + (_hd108774108839_ (reverse _hd108772108810_))) + ((lambda (_L108842_ _L108843_) (for-each - (lambda (_stx108861_) + (lambda (_stx108858_) (if (let () (declare (not safe)) - (null? _args108758_)) + (null? _args108755_)) (let () (declare (not safe)) - (gxc#compile-e__0 _stx108861_)) - (let ((_arg1108863_ (car _args108758_)) - (_rest108865_ (cdr _args108758_))) + (gxc#compile-e__0 _stx108858_)) + (let ((_arg1108860_ (car _args108755_)) + (_rest108862_ (cdr _args108755_))) (if (let () (declare (not safe)) - (null? _rest108865_)) + (null? _rest108862_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx108861_ - _arg1108863_)) - (let ((_arg2108868_ (car _rest108865_)) - (_rest108870_ (cdr _rest108865_))) + _stx108858_ + _arg1108860_)) + (let ((_arg2108865_ (car _rest108862_)) + (_rest108867_ (cdr _rest108862_))) (if (let () (declare (not safe)) - (null? _rest108870_)) + (null? _rest108867_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx108861_ - _arg1108863_ - _arg2108868_)) + _stx108858_ + _arg1108860_ + _arg2108865_)) (apply gxc#compile-e - _stx108861_ - _arg1108863_ - _arg2108868_ - _rest108870_))))))) - (let ((__tmp111374 - (lambda (_g108871108874_ _g108872108876_) + _stx108858_ + _arg1108860_ + _arg2108865_ + _rest108867_))))))) + (let ((__tmp111371 + (lambda (_g108868108871_ _g108869108873_) (let () (declare (not safe)) - (cons _g108871108874_ _g108872108876_))))) + (cons _g108868108871_ _g108869108873_))))) (declare (not safe)) - (foldr1 __tmp111374 '() _L108845_)))) - _body108776108840_ - _hd108777108842_)))))) + (foldr1 __tmp111371 '() _L108842_)))) + _body108773108837_ + _hd108774108839_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop108770108806_ - _target108767108801_ + (_loop108767108803_ + _target108764108798_ '() '()))) (let () (declare (not safe)) - (_g108760108788_ - _g108761108791_)))))) + (_g108757108785_ + _g108758108788_)))))) (let () (declare (not safe)) - (_g108760108788_ _g108761108791_))))) + (_g108757108785_ _g108758108788_))))) (let () (declare (not safe)) - (_g108760108788_ _g108761108791_)))))) + (_g108757108785_ _g108758108788_)))))) (declare (not safe)) - (_g108759108879_ _stx108757_)))) + (_g108756108876_ _stx108754_)))) (define gxc#collect-body-let-values% - (lambda (_stx108603_ . _args108604_) - (let* ((_g108606108641_ - (lambda (_g108607108638_) + (lambda (_stx108600_ . _args108601_) + (let* ((_g108603108638_ + (lambda (_g108604108635_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108607108638_)))) - (_g108605108754_ - (lambda (_g108607108644_) + _g108604108635_)))) + (_g108602108751_ + (lambda (_g108604108641_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108607108644_)) - (let ((_e108613108646_ + (gx#stx-pair? _g108604108641_)) + (let ((_e108610108643_ (let () (declare (not safe)) - (gx#stx-e _g108607108644_)))) - (let ((_hd108612108649_ + (gx#stx-e _g108604108641_)))) + (let ((_hd108609108646_ (let () (declare (not safe)) - (##car _e108613108646_))) - (_tl108611108651_ + (##car _e108610108643_))) + (_tl108608108648_ (let () (declare (not safe)) - (##cdr _e108613108646_)))) + (##cdr _e108610108643_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108611108651_)) - (let ((_e108616108654_ + (gx#stx-pair? _tl108608108648_)) + (let ((_e108613108651_ (let () (declare (not safe)) - (gx#stx-e _tl108611108651_)))) - (let ((_hd108615108657_ + (gx#stx-e _tl108608108648_)))) + (let ((_hd108612108654_ (let () (declare (not safe)) - (##car _e108616108654_))) - (_tl108614108659_ + (##car _e108613108651_))) + (_tl108611108656_ (let () (declare (not safe)) - (##cdr _e108616108654_)))) + (##cdr _e108613108651_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd108615108657_)) - (let ((_g111377_ + (gx#stx-pair/null? _hd108612108654_)) + (let ((_g111374_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd108615108657_ + _hd108612108654_ '0)))) (begin - (let ((_g111378_ + (let ((_g111375_ (let () (declare (not safe)) - (if (##values? _g111377_) + (if (##values? _g111374_) (##vector-length - _g111377_) + _g111374_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g111378_ 2))) + (##fx= _g111375_ 2))) (error "Context expects 2 values" - _g111378_))) - (let ((_target108617108662_ + _g111375_))) + (let ((_target108614108659_ (let () (declare (not safe)) (##vector-ref - _g111377_ + _g111374_ 0))) - (_tl108619108664_ + (_tl108616108661_ (let () (declare (not safe)) (##vector-ref - _g111377_ + _g111374_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108619108664_)) - (letrec ((_loop108620108667_ - (lambda (_hd108618108670_ + _tl108616108661_)) + (letrec ((_loop108617108664_ + (lambda (_hd108615108667_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr108624108672_ - _hd108625108674_) + _expr108621108669_ + _hd108622108671_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd108618108670_)) - (let ((_e108621108677_ + (gx#stx-pair? _hd108615108667_)) + (let ((_e108618108674_ (let () (declare (not safe)) - (gx#stx-e _hd108618108670_)))) - (let ((_lp-hd108622108680_ + (gx#stx-e _hd108615108667_)))) + (let ((_lp-hd108619108677_ (let () (declare (not safe)) - (##car _e108621108677_))) - (_lp-tl108623108682_ + (##car _e108618108674_))) + (_lp-tl108620108679_ (let () (declare (not safe)) - (##cdr _e108621108677_)))) + (##cdr _e108618108674_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd108622108680_)) - (let ((_e108630108685_ + (gx#stx-pair? _lp-hd108619108677_)) + (let ((_e108627108682_ (let () (declare (not safe)) - (gx#stx-e _lp-hd108622108680_)))) - (let ((_hd108629108688_ + (gx#stx-e _lp-hd108619108677_)))) + (let ((_hd108626108685_ (let () (declare (not safe)) - (##car _e108630108685_))) - (_tl108628108690_ + (##car _e108627108682_))) + (_tl108625108687_ (let () (declare (not safe)) - (##cdr _e108630108685_)))) + (##cdr _e108627108682_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108628108690_)) - (let ((_e108633108693_ + (gx#stx-pair? _tl108625108687_)) + (let ((_e108630108690_ (let () (declare (not safe)) (gx#stx-e - _tl108628108690_)))) - (let ((_hd108632108696_ + _tl108625108687_)))) + (let ((_hd108629108693_ (let () (declare (not safe)) - (##car _e108633108693_))) - (_tl108631108698_ + (##car _e108630108690_))) + (_tl108628108695_ (let () (declare (not safe)) - (##cdr _e108633108693_)))) + (##cdr _e108630108690_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108631108698_)) - (let ((__tmp111382 + _tl108628108695_)) + (let ((__tmp111379 (let () (declare (not safe)) - (cons _hd108632108696_ + (cons _hd108629108693_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr108624108672_))) - (__tmp111381 + _expr108621108669_))) + (__tmp111378 (let () (declare (not safe)) - (cons _hd108629108688_ _hd108625108674_)))) + (cons _hd108626108685_ _hd108622108671_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop108620108667_ - _lp-tl108623108682_ - __tmp111382 - __tmp111381)) + (_loop108617108664_ + _lp-tl108620108679_ + __tmp111379 + __tmp111378)) (let () (declare (not safe)) - (_g108606108641_ - _g108607108644_))))) + (_g108603108638_ + _g108604108641_))))) (let () (declare (not safe)) - (_g108606108641_ - _g108607108644_))))) + (_g108603108638_ + _g108604108641_))))) (let () (declare (not safe)) - (_g108606108641_ _g108607108644_))))) - (let ((_expr108626108701_ - (reverse _expr108624108672_)) - (_hd108627108703_ (reverse _hd108625108674_))) + (_g108603108638_ _g108604108641_))))) + (let ((_expr108623108698_ + (reverse _expr108621108669_)) + (_hd108624108700_ (reverse _hd108622108671_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108614108659_)) - (let ((_e108636108706_ + (gx#stx-pair? _tl108611108656_)) + (let ((_e108633108703_ (let () (declare (not safe)) - (gx#stx-e _tl108614108659_)))) - (let ((_hd108635108709_ + (gx#stx-e _tl108611108656_)))) + (let ((_hd108632108706_ (let () (declare (not safe)) - (##car _e108636108706_))) - (_tl108634108711_ + (##car _e108633108703_))) + (_tl108631108708_ (let () (declare (not safe)) - (##cdr _e108636108706_)))) + (##cdr _e108633108703_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108634108711_)) - ((lambda (_L108714_ - _L108715_ - _L108716_) + (gx#stx-null? _tl108631108708_)) + ((lambda (_L108711_ + _L108712_ + _L108713_) (for-each - (lambda (_stx108736_) + (lambda (_stx108733_) (if (let () (declare (not safe)) - (null? _args108604_)) + (null? _args108601_)) (let () (declare (not safe)) (gxc#compile-e__0 - _stx108736_)) - (let ((_arg1108738_ - (car _args108604_)) - (_rest108740_ - (cdr _args108604_))) + _stx108733_)) + (let ((_arg1108735_ + (car _args108601_)) + (_rest108737_ + (cdr _args108601_))) (if (let () (declare (not safe)) - (null? _rest108740_)) + (null? _rest108737_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx108736_ - _arg1108738_)) - (let ((_arg2108743_ - (car _rest108740_)) - (_rest108745_ - (cdr _rest108740_))) + _stx108733_ + _arg1108735_)) + (let ((_arg2108740_ + (car _rest108737_)) + (_rest108742_ + (cdr _rest108737_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest108745_)) + (null? _rest108742_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx108736_ - _arg1108738_ - _arg2108743_)) + _stx108733_ + _arg1108735_ + _arg2108740_)) (apply gxc#compile-e - _stx108736_ - _arg1108738_ - _arg2108743_ - _rest108745_))))))) + _stx108733_ + _arg1108735_ + _arg2108740_ + _rest108742_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp111380 - (lambda (_g108746108749_ - _g108747108751_) + (let ((__tmp111377 + (lambda (_g108743108746_ + _g108744108748_) (let () (declare (not safe)) - (cons _g108746108749_ - _g108747108751_)))) - (__tmp111379 + (cons _g108743108746_ + _g108744108748_)))) + (__tmp111376 (let () (declare (not safe)) - (cons _L108714_ '())))) + (cons _L108711_ '())))) (declare (not safe)) - (foldr1 __tmp111380 - __tmp111379 - _L108715_)))) - _hd108635108709_ - _expr108626108701_ - _hd108627108703_) + (foldr1 __tmp111377 + __tmp111376 + _L108712_)))) + _hd108632108706_ + _expr108623108698_ + _hd108624108700_) (let () (declare (not safe)) - (_g108606108641_ _g108607108644_))))) + (_g108603108638_ _g108604108641_))))) (let () (declare (not safe)) - (_g108606108641_ _g108607108644_)))))))) + (_g108603108638_ _g108604108641_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop108620108667_ - _target108617108662_ + (_loop108617108664_ + _target108614108659_ '() '()))) (let () (declare (not safe)) - (_g108606108641_ - _g108607108644_)))))) + (_g108603108638_ + _g108604108641_)))))) (let () (declare (not safe)) - (_g108606108641_ _g108607108644_))))) + (_g108603108638_ _g108604108641_))))) (let () (declare (not safe)) - (_g108606108641_ _g108607108644_))))) + (_g108603108638_ _g108604108641_))))) (let () (declare (not safe)) - (_g108606108641_ _g108607108644_)))))) + (_g108603108638_ _g108604108641_)))))) (declare (not safe)) - (_g108605108754_ _stx108603_)))) + (_g108602108751_ _stx108600_)))) (define gxc#collect-body-setq% - (lambda (_stx108526_ . _args108527_) - (let* ((_g108529108546_ - (lambda (_g108530108543_) + (lambda (_stx108523_ . _args108524_) + (let* ((_g108526108543_ + (lambda (_g108527108540_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108530108543_)))) - (_g108528108600_ - (lambda (_g108530108549_) + _g108527108540_)))) + (_g108525108597_ + (lambda (_g108527108546_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108530108549_)) - (let ((_e108535108551_ + (gx#stx-pair? _g108527108546_)) + (let ((_e108532108548_ (let () (declare (not safe)) - (gx#stx-e _g108530108549_)))) - (let ((_hd108534108554_ + (gx#stx-e _g108527108546_)))) + (let ((_hd108531108551_ (let () (declare (not safe)) - (##car _e108535108551_))) - (_tl108533108556_ + (##car _e108532108548_))) + (_tl108530108553_ (let () (declare (not safe)) - (##cdr _e108535108551_)))) + (##cdr _e108532108548_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108533108556_)) - (let ((_e108538108559_ + (gx#stx-pair? _tl108530108553_)) + (let ((_e108535108556_ (let () (declare (not safe)) - (gx#stx-e _tl108533108556_)))) - (let ((_hd108537108562_ + (gx#stx-e _tl108530108553_)))) + (let ((_hd108534108559_ (let () (declare (not safe)) - (##car _e108538108559_))) - (_tl108536108564_ + (##car _e108535108556_))) + (_tl108533108561_ (let () (declare (not safe)) - (##cdr _e108538108559_)))) + (##cdr _e108535108556_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108536108564_)) - (let ((_e108541108567_ + (gx#stx-pair? _tl108533108561_)) + (let ((_e108538108564_ (let () (declare (not safe)) - (gx#stx-e _tl108536108564_)))) - (let ((_hd108540108570_ + (gx#stx-e _tl108533108561_)))) + (let ((_hd108537108567_ (let () (declare (not safe)) - (##car _e108541108567_))) - (_tl108539108572_ + (##car _e108538108564_))) + (_tl108536108569_ (let () (declare (not safe)) - (##cdr _e108541108567_)))) + (##cdr _e108538108564_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108539108572_)) - ((lambda (_L108575_ _L108576_) + _tl108536108569_)) + ((lambda (_L108572_ _L108573_) (if (let () (declare (not safe)) - (null? _args108527_)) + (null? _args108524_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L108575_)) - (let ((_arg1108591_ - (car _args108527_)) - (_rest108593_ - (cdr _args108527_))) + _L108572_)) + (let ((_arg1108588_ + (car _args108524_)) + (_rest108590_ + (cdr _args108524_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest108593_)) + (null? _rest108590_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L108575_ _arg1108591_)) - (let ((_arg2108596_ (car _rest108593_)) - (_rest108598_ (cdr _rest108593_))) - (if (let () (declare (not safe)) (null? _rest108598_)) + (gxc#compile-e__1 _L108572_ _arg1108588_)) + (let ((_arg2108593_ (car _rest108590_)) + (_rest108595_ (cdr _rest108590_))) + (if (let () (declare (not safe)) (null? _rest108595_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L108575_ - _arg1108591_ - _arg2108596_)) + _L108572_ + _arg1108588_ + _arg2108593_)) (apply gxc#compile-e - _L108575_ - _arg1108591_ - _arg2108596_ - _rest108598_))))))) + _L108572_ + _arg1108588_ + _arg2108593_ + _rest108595_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd108540108570_ - _hd108537108562_) + _hd108537108567_ + _hd108534108559_) (let () (declare (not safe)) - (_g108529108546_ - _g108530108549_))))) + (_g108526108543_ + _g108527108546_))))) (let () (declare (not safe)) - (_g108529108546_ _g108530108549_))))) + (_g108526108543_ _g108527108546_))))) (let () (declare (not safe)) - (_g108529108546_ _g108530108549_))))) + (_g108526108543_ _g108527108546_))))) (let () (declare (not safe)) - (_g108529108546_ _g108530108549_)))))) + (_g108526108543_ _g108527108546_)))))) (declare (not safe)) - (_g108528108600_ _stx108526_)))) + (_g108525108597_ _stx108523_)))) (define gxc#collect-operands - (lambda (_stx108432_ . _args108433_) - (let* ((_g108435108454_ - (lambda (_g108436108451_) + (lambda (_stx108429_ . _args108430_) + (let* ((_g108432108451_ + (lambda (_g108433108448_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108436108451_)))) - (_g108434108523_ - (lambda (_g108436108457_) + _g108433108448_)))) + (_g108431108520_ + (lambda (_g108433108454_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108436108457_)) - (let ((_e108440108459_ + (gx#stx-pair? _g108433108454_)) + (let ((_e108437108456_ (let () (declare (not safe)) - (gx#stx-e _g108436108457_)))) - (let ((_hd108439108462_ + (gx#stx-e _g108433108454_)))) + (let ((_hd108436108459_ (let () (declare (not safe)) - (##car _e108440108459_))) - (_tl108438108464_ + (##car _e108437108456_))) + (_tl108435108461_ (let () (declare (not safe)) - (##cdr _e108440108459_)))) + (##cdr _e108437108456_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl108438108464_)) - (let ((_g111383_ + (gx#stx-pair/null? _tl108435108461_)) + (let ((_g111380_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl108438108464_ + _tl108435108461_ '0)))) (begin - (let ((_g111384_ + (let ((_g111381_ (let () (declare (not safe)) - (if (##values? _g111383_) - (##vector-length _g111383_) + (if (##values? _g111380_) + (##vector-length _g111380_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g111384_ 2))) + (##fx= _g111381_ 2))) (error "Context expects 2 values" - _g111384_))) - (let ((_target108441108467_ + _g111381_))) + (let ((_target108438108464_ (let () (declare (not safe)) - (##vector-ref _g111383_ 0))) - (_tl108443108469_ + (##vector-ref _g111380_ 0))) + (_tl108440108466_ (let () (declare (not safe)) - (##vector-ref _g111383_ 1)))) + (##vector-ref _g111380_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108443108469_)) - (letrec ((_loop108444108472_ - (lambda (_hd108442108475_ - _rands108448108477_) + (gx#stx-null? _tl108440108466_)) + (letrec ((_loop108441108469_ + (lambda (_hd108439108472_ + _rands108445108474_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd108442108475_)) - (let ((_e108445108480_ + _hd108439108472_)) + (let ((_e108442108477_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd108442108475_)))) - (let ((_lp-hd108446108483_ + (gx#stx-e _hd108439108472_)))) + (let ((_lp-hd108443108480_ (let () (declare (not safe)) - (##car _e108445108480_))) - (_lp-tl108447108485_ + (##car _e108442108477_))) + (_lp-tl108444108482_ (let () (declare (not safe)) - (##cdr _e108445108480_)))) - (let ((__tmp111386 + (##cdr _e108442108477_)))) + (let ((__tmp111383 (let () (declare (not safe)) - (cons _lp-hd108446108483_ - _rands108448108477_)))) + (cons _lp-hd108443108480_ + _rands108445108474_)))) (declare (not safe)) - (_loop108444108472_ _lp-tl108447108485_ __tmp111386)))) - (let ((_rands108449108488_ (reverse _rands108448108477_))) - ((lambda (_L108491_) + (_loop108441108469_ _lp-tl108444108482_ __tmp111383)))) + (let ((_rands108446108485_ (reverse _rands108445108474_))) + ((lambda (_L108488_) (for-each - (lambda (_stx108505_) + (lambda (_stx108502_) (if (let () (declare (not safe)) - (null? _args108433_)) + (null? _args108430_)) (let () (declare (not safe)) - (gxc#compile-e__0 _stx108505_)) - (let ((_arg1108507_ (car _args108433_)) - (_rest108509_ (cdr _args108433_))) + (gxc#compile-e__0 _stx108502_)) + (let ((_arg1108504_ (car _args108430_)) + (_rest108506_ (cdr _args108430_))) (if (let () (declare (not safe)) - (null? _rest108509_)) + (null? _rest108506_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx108505_ - _arg1108507_)) - (let ((_arg2108512_ (car _rest108509_)) - (_rest108514_ (cdr _rest108509_))) + _stx108502_ + _arg1108504_)) + (let ((_arg2108509_ (car _rest108506_)) + (_rest108511_ (cdr _rest108506_))) (if (let () (declare (not safe)) - (null? _rest108514_)) + (null? _rest108511_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx108505_ - _arg1108507_ - _arg2108512_)) + _stx108502_ + _arg1108504_ + _arg2108509_)) (apply gxc#compile-e - _stx108505_ - _arg1108507_ - _arg2108512_ - _rest108514_))))))) - (let ((__tmp111385 - (lambda (_g108515108518_ _g108516108520_) + _stx108502_ + _arg1108504_ + _arg2108509_ + _rest108511_))))))) + (let ((__tmp111382 + (lambda (_g108512108515_ _g108513108517_) (let () (declare (not safe)) - (cons _g108515108518_ _g108516108520_))))) + (cons _g108512108515_ _g108513108517_))))) (declare (not safe)) - (foldr1 __tmp111385 '() _L108491_)))) - _rands108449108488_)))))) + (foldr1 __tmp111382 '() _L108488_)))) + _rands108446108485_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop108444108472_ - _target108441108467_ + (_loop108441108469_ + _target108438108464_ '()))) (let () (declare (not safe)) - (_g108435108454_ - _g108436108457_)))))) + (_g108432108451_ + _g108433108454_)))))) (let () (declare (not safe)) - (_g108435108454_ _g108436108457_))))) + (_g108432108451_ _g108433108454_))))) (let () (declare (not safe)) - (_g108435108454_ _g108436108457_)))))) + (_g108432108451_ _g108433108454_)))))) (declare (not safe)) - (_g108434108523_ _stx108432_)))) + (_g108431108520_ _stx108429_)))) (define gxc#collect-bindings-define-values% - (lambda (_stx108363_) - (let* ((_g108365108382_ - (lambda (_g108366108379_) + (lambda (_stx108360_) + (let* ((_g108362108379_ + (lambda (_g108363108376_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108366108379_)))) - (_g108364108429_ - (lambda (_g108366108385_) + _g108363108376_)))) + (_g108361108426_ + (lambda (_g108363108382_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108366108385_)) - (let ((_e108371108387_ + (gx#stx-pair? _g108363108382_)) + (let ((_e108368108384_ (let () (declare (not safe)) - (gx#stx-e _g108366108385_)))) - (let ((_hd108370108390_ + (gx#stx-e _g108363108382_)))) + (let ((_hd108367108387_ (let () (declare (not safe)) - (##car _e108371108387_))) - (_tl108369108392_ + (##car _e108368108384_))) + (_tl108366108389_ (let () (declare (not safe)) - (##cdr _e108371108387_)))) + (##cdr _e108368108384_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108369108392_)) - (let ((_e108374108395_ + (gx#stx-pair? _tl108366108389_)) + (let ((_e108371108392_ (let () (declare (not safe)) - (gx#stx-e _tl108369108392_)))) - (let ((_hd108373108398_ + (gx#stx-e _tl108366108389_)))) + (let ((_hd108370108395_ (let () (declare (not safe)) - (##car _e108374108395_))) - (_tl108372108400_ + (##car _e108371108392_))) + (_tl108369108397_ (let () (declare (not safe)) - (##cdr _e108374108395_)))) + (##cdr _e108371108392_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108372108400_)) - (let ((_e108377108403_ + (gx#stx-pair? _tl108369108397_)) + (let ((_e108374108400_ (let () (declare (not safe)) - (gx#stx-e _tl108372108400_)))) - (let ((_hd108376108406_ + (gx#stx-e _tl108369108397_)))) + (let ((_hd108373108403_ (let () (declare (not safe)) - (##car _e108377108403_))) - (_tl108375108408_ + (##car _e108374108400_))) + (_tl108372108405_ (let () (declare (not safe)) - (##cdr _e108377108403_)))) + (##cdr _e108374108400_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108375108408_)) - ((lambda (_L108411_ _L108412_) - (let ((__tmp111387 - (lambda (_bind108427_) + _tl108372108405_)) + ((lambda (_L108408_ _L108409_) + (let ((__tmp111384 + (lambda (_bind108424_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _bind108427_)) + (gx#identifier? _bind108424_)) (let () (declare (not safe)) - (gxc#add-module-binding! _bind108427_ '#f)) + (gxc#add-module-binding! _bind108424_ '#f)) '#!void)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#stx-for-each1 - __tmp111387 - _L108412_))) - _hd108376108406_ - _hd108373108398_) + __tmp111384 + _L108409_))) + _hd108373108403_ + _hd108370108395_) (let () (declare (not safe)) - (_g108365108382_ - _g108366108385_))))) + (_g108362108379_ + _g108363108382_))))) (let () (declare (not safe)) - (_g108365108382_ _g108366108385_))))) + (_g108362108379_ _g108363108382_))))) (let () (declare (not safe)) - (_g108365108382_ _g108366108385_))))) + (_g108362108379_ _g108363108382_))))) (let () (declare (not safe)) - (_g108365108382_ _g108366108385_)))))) + (_g108362108379_ _g108363108382_)))))) (declare (not safe)) - (_g108364108429_ _stx108363_)))) + (_g108361108426_ _stx108360_)))) (define gxc#collect-bindings-define-syntax% - (lambda (_stx108296_) - (let* ((_g108298108315_ - (lambda (_g108299108312_) + (lambda (_stx108293_) + (let* ((_g108295108312_ + (lambda (_g108296108309_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108299108312_)))) - (_g108297108360_ - (lambda (_g108299108318_) + _g108296108309_)))) + (_g108294108357_ + (lambda (_g108296108315_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108299108318_)) - (let ((_e108304108320_ + (gx#stx-pair? _g108296108315_)) + (let ((_e108301108317_ (let () (declare (not safe)) - (gx#stx-e _g108299108318_)))) - (let ((_hd108303108323_ + (gx#stx-e _g108296108315_)))) + (let ((_hd108300108320_ (let () (declare (not safe)) - (##car _e108304108320_))) - (_tl108302108325_ + (##car _e108301108317_))) + (_tl108299108322_ (let () (declare (not safe)) - (##cdr _e108304108320_)))) + (##cdr _e108301108317_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108302108325_)) - (let ((_e108307108328_ + (gx#stx-pair? _tl108299108322_)) + (let ((_e108304108325_ (let () (declare (not safe)) - (gx#stx-e _tl108302108325_)))) - (let ((_hd108306108331_ + (gx#stx-e _tl108299108322_)))) + (let ((_hd108303108328_ (let () (declare (not safe)) - (##car _e108307108328_))) - (_tl108305108333_ + (##car _e108304108325_))) + (_tl108302108330_ (let () (declare (not safe)) - (##cdr _e108307108328_)))) + (##cdr _e108304108325_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108305108333_)) - (let ((_e108310108336_ + (gx#stx-pair? _tl108302108330_)) + (let ((_e108307108333_ (let () (declare (not safe)) - (gx#stx-e _tl108305108333_)))) - (let ((_hd108309108339_ + (gx#stx-e _tl108302108330_)))) + (let ((_hd108306108336_ (let () (declare (not safe)) - (##car _e108310108336_))) - (_tl108308108341_ + (##car _e108307108333_))) + (_tl108305108338_ (let () (declare (not safe)) - (##cdr _e108310108336_)))) + (##cdr _e108307108333_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108308108341_)) - ((lambda (_L108344_ _L108345_) + _tl108305108338_)) + ((lambda (_L108341_ _L108342_) (let () (declare (not safe)) (gxc#add-module-binding! - _L108345_ + _L108342_ '#t))) - _hd108309108339_ - _hd108306108331_) + _hd108306108336_ + _hd108303108328_) (let () (declare (not safe)) - (_g108298108315_ - _g108299108318_))))) + (_g108295108312_ + _g108296108315_))))) (let () (declare (not safe)) - (_g108298108315_ _g108299108318_))))) + (_g108295108312_ _g108296108315_))))) (let () (declare (not safe)) - (_g108298108315_ _g108299108318_))))) + (_g108295108312_ _g108296108315_))))) (let () (declare (not safe)) - (_g108298108315_ _g108299108318_)))))) + (_g108295108312_ _g108296108315_)))))) (declare (not safe)) - (_g108297108360_ _stx108296_)))) + (_g108294108357_ _stx108293_)))) (define gxc#lift-modules-module% - (lambda (_stx108238_ _modules108239_) - (let* ((_g108241108255_ - (lambda (_g108242108252_) + (lambda (_stx108235_ _modules108236_) + (let* ((_g108238108252_ + (lambda (_g108239108249_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108242108252_)))) - (_g108240108293_ - (lambda (_g108242108258_) + _g108239108249_)))) + (_g108237108290_ + (lambda (_g108239108255_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108242108258_)) - (let ((_e108247108260_ + (gx#stx-pair? _g108239108255_)) + (let ((_e108244108257_ (let () (declare (not safe)) - (gx#stx-e _g108242108258_)))) - (let ((_hd108246108263_ + (gx#stx-e _g108239108255_)))) + (let ((_hd108243108260_ (let () (declare (not safe)) - (##car _e108247108260_))) - (_tl108245108265_ + (##car _e108244108257_))) + (_tl108242108262_ (let () (declare (not safe)) - (##cdr _e108247108260_)))) + (##cdr _e108244108257_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108245108265_)) - (let ((_e108250108268_ + (gx#stx-pair? _tl108242108262_)) + (let ((_e108247108265_ (let () (declare (not safe)) - (gx#stx-e _tl108245108265_)))) - (let ((_hd108249108271_ + (gx#stx-e _tl108242108262_)))) + (let ((_hd108246108268_ (let () (declare (not safe)) - (##car _e108250108268_))) - (_tl108248108273_ + (##car _e108247108265_))) + (_tl108245108270_ (let () (declare (not safe)) - (##cdr _e108250108268_)))) - ((lambda (_L108276_ _L108277_) - (let ((_ctx108290_ + (##cdr _e108247108265_)))) + ((lambda (_L108273_ _L108274_) + (let ((_ctx108287_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L108277_)))) + _L108274_)))) (set-box! - _modules108239_ - (let ((__tmp111388 - (unbox _modules108239_))) + _modules108236_ + (let ((__tmp111385 + (unbox _modules108236_))) (declare (not safe)) - (cons _ctx108290_ __tmp111388))) - (let ((__tmp111389 + (cons _ctx108287_ __tmp111385))) + (let ((__tmp111386 (lambda () - (let ((__tmp111390 + (let ((__tmp111387 (##structure-ref - _ctx108290_ + _ctx108287_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - __tmp111390 - _modules108239_))))) + __tmp111387 + _modules108236_))))) (declare (not safe)) (call-with-parameters - __tmp111389 + __tmp111386 gx#current-expander-context - _ctx108290_)))) - _tl108248108273_ - _hd108249108271_))) + _ctx108287_)))) + _tl108245108270_ + _hd108246108268_))) (let () (declare (not safe)) - (_g108241108255_ _g108242108258_))))) + (_g108238108252_ _g108239108255_))))) (let () (declare (not safe)) - (_g108241108255_ _g108242108258_)))))) + (_g108238108252_ _g108239108255_)))))) (declare (not safe)) - (_g108240108293_ _stx108238_)))) + (_g108237108290_ _stx108235_)))) (define gxc#current-compile-decls-unsafe? (lambda () - (let ((_decls108194108196_ (gxc#current-compile-decls))) - (if _decls108194108196_ - (let ((_decls108199_ _decls108194108196_)) - (let _lp108201_ ((_rest108203_ _decls108199_)) - (let* ((_rest108204108212_ _rest108203_) - (_else108206108220_ (lambda () '#f)) - (_K108208108226_ - (lambda (_decls108223_ _decl108224_) + (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_) (if (let () (declare (not safe)) - (equal? _decl108224_ '(not safe))) + (equal? _decl108221_ '(not safe))) '#t (if (let () (declare (not safe)) - (equal? _decl108224_ '(safe))) + (equal? _decl108221_ '(safe))) '#f (let () (declare (not safe)) - (_lp108201_ _decls108223_))))))) + (_lp108198_ _decls108220_))))))) (if (let () (declare (not safe)) - (##pair? _rest108204108212_)) - (let ((_hd108209108229_ + (##pair? _rest108201108209_)) + (let ((_hd108206108226_ (let () (declare (not safe)) - (##car _rest108204108212_))) - (_tl108210108231_ + (##car _rest108201108209_))) + (_tl108207108228_ (let () (declare (not safe)) - (##cdr _rest108204108212_)))) - (let* ((_decl108234_ _hd108209108229_) - (_decls108236_ _tl108210108231_)) + (##cdr _rest108201108209_)))) + (let* ((_decl108231_ _hd108206108226_) + (_decls108233_ _tl108207108228_)) (declare (not safe)) - (_K108208108226_ _decls108236_ _decl108234_))) + (_K108205108223_ _decls108233_ _decl108231_))) (let () (declare (not safe)) - (_else108206108220_)))))) + (_else108203108217_)))))) '#f)))) (define gxc#add-module-binding! - (lambda (_id108188_ _syntax?108189_) - (let ((_eid108191_ + (lambda (_id108185_ _syntax?108186_) + (let ((_eid108188_ (##structure-ref (let () (declare (not safe)) - (gx#resolve-identifier__0 _id108188_)) + (gx#resolve-identifier__0 _id108185_)) '1 gx#binding::t '#f)) - (_ht108192_ + (_ht108189_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid108191_) + (if (interned-symbol? _eid108188_) '#!void - (let ((__tmp111391 - (let ((__tmp111392 + (let ((__tmp111388 + (let ((__tmp111389 (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid108191_)))) + _eid108188_)))) (declare (not safe)) - (gx#make-binding-id__1 __tmp111392 _syntax?108189_)))) + (gx#make-binding-id__1 __tmp111389 _syntax?108186_)))) (declare (not safe)) - (hash-put! _ht108192_ _eid108191_ __tmp111391)))))) + (hash-put! _ht108189_ _eid108188_ __tmp111388)))))) (define gxc#runtime-identifier=? - (lambda (_id1108181_ _id2108182_) - (letrec ((_symbol-e108184_ - (lambda (_id108186_) - (if (let () (declare (not safe)) (symbol? _id108186_)) - _id108186_ + (lambda (_id1108178_ _id2108179_) + (letrec ((_symbol-e108181_ + (lambda (_id108183_) + (if (let () (declare (not safe)) (symbol? _id108183_)) + _id108183_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id108186_)))))) - (let ((__tmp111394 + (gxc#generate-runtime-binding-id _id108183_)))))) + (let ((__tmp111391 (let () (declare (not safe)) - (_symbol-e108184_ _id1108181_))) - (__tmp111393 + (_symbol-e108181_ _id1108178_))) + (__tmp111390 (let () (declare (not safe)) - (_symbol-e108184_ _id2108182_)))) + (_symbol-e108181_ _id2108179_)))) (declare (not safe)) - (eq? __tmp111394 __tmp111393))))) + (eq? __tmp111391 __tmp111390))))) (define gxc#generate-runtime-binding-id - (lambda (_id108159_) - (let ((_$e108161_ + (lambda (_id108156_) + (let ((_$e108158_ (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id108159_ + _id108156_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gx#resolve-identifier__0 _id108159_)) + (gx#resolve-identifier__0 _id108156_)) '#f))) - (if _$e108161_ - ((lambda (_bind108164_) - (let ((_eid108166_ - (##structure-ref _bind108164_ '1 gx#binding::t '#f)) - (_ht108167_ + (if _$e108158_ + ((lambda (_bind108161_) + (let ((_eid108163_ + (##structure-ref _bind108161_ '1 gx#binding::t '#f)) + (_ht108164_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid108166_) - _eid108166_ - (let ((_$e108169_ + (if (interned-symbol? _eid108163_) + _eid108163_ + (let ((_$e108166_ (let () (declare (not safe)) - (hash-get _ht108167_ _eid108166_)))) - (if _$e108169_ - (values _$e108169_) + (hash-get _ht108164_ _eid108163_)))) + (if _$e108166_ + (values _$e108166_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind108164_ + _bind108161_ 'gx#local-binding::t)) - (let ((_gid108172_ + (let ((_gid108169_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid108166_)))) + _eid108163_)))) (let () (declare (not safe)) (hash-put! - _ht108167_ - _eid108166_ - _gid108172_)) - _gid108172_) + _ht108164_ + _eid108163_ + _gid108169_)) + _gid108169_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind108164_ + _bind108161_ 'gx#module-binding::t)) - (let ((_gid108179_ - (let ((_$e108174_ + (let ((_gid108176_ + (let ((_$e108171_ (##structure-ref (##structure-ref - _bind108164_ + _bind108161_ '4 gx#module-binding::t '#f) '6 gx#module-context::t '#f))) - (if _$e108174_ - ((lambda (_ns108177_) + (if _$e108171_ + ((lambda (_ns108174_) (let () (declare (not safe)) (make-symbol__1 - _ns108177_ + _ns108174_ '"#" - _eid108166_))) - _$e108174_) + _eid108163_))) + _$e108171_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid108166_)))))) + _eid108163_)))))) (let () (declare (not safe)) (hash-put! - _ht108167_ - _eid108166_ - _gid108179_)) - _gid108179_) + _ht108164_ + _eid108163_ + _gid108176_)) + _gid108176_) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile reference to uninterned binding" - _id108159_ - _eid108166_ - _bind108164_))))))))) - _$e108161_) + _id108156_ + _eid108163_ + _bind108161_))))))))) + _$e108158_) (if (interned-symbol? - (let () (declare (not safe)) (gx#stx-e _id108159_))) - (let () (declare (not safe)) (gx#stx-e _id108159_)) + (let () (declare (not safe)) (gx#stx-e _id108156_))) + (let () (declare (not safe)) (gx#stx-e _id108156_)) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile reference to uninterned identifier" - _id108159_))))))) + _id108156_))))))) (define gxc#generate-runtime-binding-id* - (lambda (_id108157_) - (if (let () (declare (not safe)) (gx#identifier? _id108157_)) + (lambda (_id108154_) + (if (let () (declare (not safe)) (gx#identifier? _id108154_)) (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id108157_)) + (gxc#generate-runtime-binding-id _id108154_)) (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))))) (define gxc#generate-runtime-gensym-reference__% - (lambda (_sym108137_ _quote?108138_) - (let* ((_ht108140_ + (lambda (_sym108134_ _quote?108135_) + (let* ((_ht108137_ (##structure-ref (gxc#current-compile-symbol-table) '1 gxc#symbol-table::t '#f)) - (_$e108142_ + (_$e108139_ (let () (declare (not safe)) - (hash-get _ht108140_ _sym108137_)))) - (if _$e108142_ - (values _$e108142_) - (let ((_g108145_ - (if _quote?108138_ - (let ((__tmp111395 (gxc#current-compile-timestamp))) + (hash-get _ht108137_ _sym108134_)))) + (if _$e108139_ + (values _$e108139_) + (let ((_g108142_ + (if _quote?108135_ + (let ((__tmp111392 (gxc#current-compile-timestamp))) (declare (not safe)) (make-symbol__1 '"__" - _sym108137_ + _sym108134_ '"__" - __tmp111395)) + __tmp111392)) (let () (declare (not safe)) - (make-symbol__1 '"_" _sym108137_ '"_"))))) + (make-symbol__1 '"_" _sym108134_ '"_"))))) (let () (declare (not safe)) - (hash-put! _ht108140_ _sym108137_ _g108145_)) - _g108145_))))) + (hash-put! _ht108137_ _sym108134_ _g108142_)) + _g108142_))))) (define gxc#generate-runtime-gensym-reference__0 - (lambda (_sym108150_) - (let ((_quote?108152_ '#f)) + (lambda (_sym108147_) + (let ((_quote?108149_ '#f)) (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _sym108150_ - _quote?108152_)))) + _sym108147_ + _quote?108149_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g111397_ - (let ((_g111396_ (let () (declare (not safe)) (##length _g111397_)))) - (cond ((let () (declare (not safe)) (##fx= _g111396_ 1)) - (apply (lambda (_sym108150_) + (lambda _g111394_ + (let ((_g111393_ (let () (declare (not safe)) (##length _g111394_)))) + (cond ((let () (declare (not safe)) (##fx= _g111393_ 1)) + (apply (lambda (_sym108147_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _sym108150_))) - _g111397_)) - ((let () (declare (not safe)) (##fx= _g111396_ 2)) - (apply (lambda (_sym108154_ _quote?108155_) + _sym108147_))) + _g111394_)) + ((let () (declare (not safe)) (##fx= _g111393_ 2)) + (apply (lambda (_sym108151_ _quote?108152_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _sym108154_ - _quote?108155_))) - _g111397_)) + _sym108151_ + _quote?108152_))) + _g111394_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-gensym-reference - _g111397_)))))) + _g111394_)))))) (define gxc#generate-runtime-identifier - (lambda (_id108134_) - (let ((__tmp111398 + (lambda (_id108131_) + (let ((__tmp111395 (let () (declare (not safe)) - (gx#core-identifier-key _id108134_)))) + (gx#core-identifier-key _id108131_)))) (declare (not safe)) - (gxc#generate-runtime-identifier-key __tmp111398)))) + (gxc#generate-runtime-identifier-key __tmp111395)))) (define gxc#generate-runtime-identifier-key - (lambda (_key108094_) - (if (interned-symbol? _key108094_) - _key108094_ - (if (uninterned-symbol? _key108094_) + (lambda (_key108091_) + (if (interned-symbol? _key108091_) + _key108091_ + (if (uninterned-symbol? _key108091_) (let () (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 _key108094_)) - (let* ((_key108095108102_ _key108094_) - (_E108097108106_ + (gxc#generate-runtime-gensym-reference__0 _key108091_)) + (let* ((_key108092108099_ _key108091_) + (_E108094108103_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _key108095108102_)))) - (_K108098108122_ - (lambda (_mark108109_ _eid108110_) - (let ((_$e108112_ + _key108092108099_)))) + (_K108095108119_ + (lambda (_mark108106_ _eid108107_) + (let ((_$e108109_ (##structure-ref - _mark108109_ + _mark108106_ '1 gx#expander-mark::t '#f))) - (if _$e108112_ - ((lambda (_ht108115_) - (let ((_$e108117_ + (if _$e108109_ + ((lambda (_ht108112_) + (let ((_$e108114_ (let () (declare (not safe)) (hash-get - _ht108115_ - _eid108110_)))) - (if _$e108117_ - ((lambda (_id108120_) - (if (interned-symbol? _id108120_) - _id108120_ + _ht108112_ + _eid108107_)))) + (if _$e108114_ + ((lambda (_id108117_) + (if (interned-symbol? _id108117_) + _id108117_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _id108120_)))) - _$e108117_) + _id108117_)))) + _$e108114_) (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _eid108110_))))) - _$e108112_) + _eid108107_))))) + _$e108109_) (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _eid108110_))))))) + _eid108107_))))))) (if (let () (declare (not safe)) - (##pair? _key108095108102_)) - (let ((_hd108099108125_ + (##pair? _key108092108099_)) + (let ((_hd108096108122_ (let () (declare (not safe)) - (##car _key108095108102_))) - (_tl108100108127_ + (##car _key108092108099_))) + (_tl108097108124_ (let () (declare (not safe)) - (##cdr _key108095108102_)))) - (let* ((_eid108130_ _hd108099108125_) - (_mark108132_ _tl108100108127_)) + (##cdr _key108092108099_)))) + (let* ((_eid108127_ _hd108096108122_) + (_mark108129_ _tl108097108124_)) (declare (not safe)) - (_K108098108122_ _mark108132_ _eid108130_))) - (let () (declare (not safe)) (_E108097108106_)))))))) + (_K108095108119_ _mark108129_ _eid108127_))) + (let () (declare (not safe)) (_E108094108103_)))))))) (define gxc#generate-runtime-temporary__% - (lambda (_top108081_) - (if _top108081_ - (let ((_ns108083_ + (lambda (_top108078_) + (if _top108078_ + (let ((_ns108080_ (##structure-ref - (let ((__tmp111400 (gx#current-expander-context))) + (let ((__tmp111397 (gx#current-expander-context))) (declare (not safe)) - (gx#core-context-top__1 __tmp111400)) + (gx#core-context-top__1 __tmp111397)) '6 gx#module-context::t '#f)) - (_phi108084_ (gx#current-expander-phi))) - (if _ns108083_ - (if (fxpositive? _phi108084_) - (let ((__tmp111406 (number->string _phi108084_)) - (__tmp111405 (gensym))) + (_phi108081_ (gx#current-expander-phi))) + (if _ns108080_ + (if (fxpositive? _phi108081_) + (let ((__tmp111403 (number->string _phi108081_)) + (__tmp111402 (gensym))) (declare (not safe)) (make-symbol__1 - _ns108083_ + _ns108080_ '"[" - __tmp111406 + __tmp111403 '"]#_" - __tmp111405 + __tmp111402 '"_")) - (let ((__tmp111404 (gensym))) + (let ((__tmp111401 (gensym))) (declare (not safe)) - (make-symbol__1 _ns108083_ '"#_" __tmp111404 '"_"))) - (if (fxpositive? _phi108084_) - (let ((__tmp111403 (number->string _phi108084_)) - (__tmp111402 (gensym))) + (make-symbol__1 _ns108080_ '"#_" __tmp111401 '"_"))) + (if (fxpositive? _phi108081_) + (let ((__tmp111400 (number->string _phi108081_)) + (__tmp111399 (gensym))) (declare (not safe)) (make-symbol__1 '"[" - __tmp111403 + __tmp111400 '"]#_" - __tmp111402 + __tmp111399 '"_")) - (let ((__tmp111401 (gensym))) + (let ((__tmp111398 (gensym))) (declare (not safe)) - (make-symbol__1 '"_" __tmp111401 '"_"))))) - (let ((__tmp111399 (gensym))) + (make-symbol__1 '"_" __tmp111398 '"_"))))) + (let ((__tmp111396 (gensym))) (declare (not safe)) - (make-symbol__1 '"_" __tmp111399 '"_"))))) + (make-symbol__1 '"_" __tmp111396 '"_"))))) (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_top108090_ '#f)) + (let ((_top108087_ '#f)) (declare (not safe)) - (gxc#generate-runtime-temporary__% _top108090_)))) + (gxc#generate-runtime-temporary__% _top108087_)))) (define gxc#generate-runtime-temporary - (lambda _g111408_ - (let ((_g111407_ (let () (declare (not safe)) (##length _g111408_)))) - (cond ((let () (declare (not safe)) (##fx= _g111407_ 0)) + (lambda _g111405_ + (let ((_g111404_ (let () (declare (not safe)) (##length _g111405_)))) + (cond ((let () (declare (not safe)) (##fx= _g111404_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - _g111408_)) - ((let () (declare (not safe)) (##fx= _g111407_ 1)) - (apply (lambda (_top108092_) + _g111405_)) + ((let () (declare (not safe)) (##fx= _g111404_ 1)) + (apply (lambda (_top108089_) (let () (declare (not safe)) - (gxc#generate-runtime-temporary__% _top108092_))) - _g111408_)) + (gxc#generate-runtime-temporary__% _top108089_))) + _g111405_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-temporary - _g111408_)))))) - (define gxc#generate-runtime-empty (lambda (_stx108078_) '(begin))) + _g111405_)))))) + (define gxc#generate-runtime-empty (lambda (_stx108075_) '(begin))) (define gxc#generate-runtime-begin% - (lambda (_stx107930_) - (letrec ((_simplify107932_ - (lambda (_body107976_) - (let _lp107978_ ((_rest107980_ _body107976_) - (_r107981_ '())) - (let* ((_rest107982107990_ _rest107980_) - (_else107984107998_ - (lambda () (reverse _r107981_))) - (_K107986108066_ - (lambda (_rest108001_ _hd108002_) - (let* ((_hd108003108019_ _hd108002_) - (_else108007108027_ + (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 () - (let ((__tmp111409 + (let ((__tmp111406 (let () (declare (not safe)) - (cons _hd108002_ - _r107981_)))) + (cons _hd107999_ + _r107978_)))) (declare (not safe)) - (_lp107978_ - _rest108001_ - __tmp111409))))) - (let ((_K108015108056_ - (lambda (_exprs108054_) - (let ((__tmp111410 + (_lp107975_ + _rest107998_ + __tmp111406))))) + (let ((_K108012108053_ + (lambda (_exprs108051_) + (let ((__tmp111407 (let () (declare (not safe)) (foldr1 cons - _rest108001_ - _exprs108054_)))) + _rest107998_ + _exprs108051_)))) (declare (not safe)) - (_lp107978_ - __tmp111410 - _r107981_)))) - (_K108010108040_ + (_lp107975_ + __tmp111407 + _r107978_)))) + (_K108007108037_ (lambda () (if (let () (declare (not safe)) - (null? _rest108001_)) - (let ((__tmp111411 + (null? _rest107998_)) + (let ((__tmp111408 (let () (declare (not safe)) - (cons _hd108002_ - _r107981_)))) + (cons _hd107999_ + _r107978_)))) (declare (not safe)) - (_lp107978_ - _rest108001_ - __tmp111411)) + (_lp107975_ + _rest107998_ + __tmp111408)) (let () (declare (not safe)) - (_lp107978_ - _rest108001_ - _r107981_))))) - (_K108009108032_ + (_lp107975_ + _rest107998_ + _r107978_))))) + (_K108006108029_ (lambda () (if (let () (declare (not safe)) - (null? _rest108001_)) - (let ((__tmp111412 + (null? _rest107998_)) + (let ((__tmp111409 (let () (declare (not safe)) - (cons _hd108002_ - _r107981_)))) + (cons _hd107999_ + _r107978_)))) (declare (not safe)) - (_lp107978_ - _rest108001_ - __tmp111412)) + (_lp107975_ + _rest107998_ + __tmp111409)) (let () (declare (not safe)) - (_lp107978_ - _rest108001_ - _r107981_)))))) - (let ((_try-match108006108035_ + (_lp107975_ + _rest107998_ + _r107978_)))))) + (let ((_try-match108003108032_ (lambda () (if (let () (declare (not safe)) - (symbol? _hd108003108019_)) + (symbol? _hd108000108016_)) (let () (declare (not safe)) - (_K108009108032_)) + (_K108006108029_)) (let () (declare (not safe)) - (_else108007108027_)))))) + (_else108004108024_)))))) (if (let () (declare (not safe)) - (##pair? _hd108003108019_)) - (let ((_tl108017108061_ + (##pair? _hd108000108016_)) + (let ((_tl108014108058_ (let () (declare (not safe)) - (##cdr _hd108003108019_))) - (_hd108016108059_ + (##cdr _hd108000108016_))) + (_hd108013108056_ (let () (declare (not safe)) - (##car _hd108003108019_)))) + (##car _hd108000108016_)))) (if (let () (declare (not safe)) - (##eq? _hd108016108059_ + (##eq? _hd108013108056_ 'begin)) - (let ((_exprs108064_ - _tl108017108061_)) + (let ((_exprs108061_ + _tl108014108058_)) (declare (not safe)) - (_K108015108056_ - _exprs108064_)) + (_K108012108053_ + _exprs108061_)) (if (let () (declare (not safe)) - (##eq? _hd108016108059_ + (##eq? _hd108013108056_ 'quote)) (if (let () (declare (not safe)) - (##pair? _tl108017108061_)) - (let ((_tl108014108048_ + (##pair? _tl108014108058_)) + (let ((_tl108011108045_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _tl108017108061_)))) + (##cdr _tl108014108058_)))) (if (let () (declare (not safe)) - (##null? _tl108014108048_)) - (let () (declare (not safe)) (_K108010108040_)) + (##null? _tl108011108045_)) + (let () (declare (not safe)) (_K108007108037_)) (let () (declare (not safe)) - (_try-match108006108035_)))) - (let () (declare (not safe)) (_try-match108006108035_))) - (let () (declare (not safe)) (_try-match108006108035_))))) + (_try-match108003108032_)))) + (let () (declare (not safe)) (_try-match108003108032_))) + (let () (declare (not safe)) (_try-match108003108032_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_try-match108006108035_))))))))) + (_try-match108003108032_))))))))) (if (let () (declare (not safe)) - (##pair? _rest107982107990_)) - (let ((_hd107987108069_ + (##pair? _rest107979107987_)) + (let ((_hd107984108066_ (let () (declare (not safe)) - (##car _rest107982107990_))) - (_tl107988108071_ + (##car _rest107979107987_))) + (_tl107985108068_ (let () (declare (not safe)) - (##cdr _rest107982107990_)))) - (let* ((_hd108074_ _hd107987108069_) - (_rest108076_ _tl107988108071_)) + (##cdr _rest107979107987_)))) + (let* ((_hd108071_ _hd107984108066_) + (_rest108073_ _tl107985108068_)) (declare (not safe)) - (_K107986108066_ _rest108076_ _hd108074_))) + (_K107983108063_ _rest108073_ _hd108071_))) (let () (declare (not safe)) - (_else107984107998_)))))))) - (let* ((_g107934107944_ - (lambda (_g107935107941_) + (_else107981107995_)))))))) + (let* ((_g107931107941_ + (lambda (_g107932107938_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107935107941_)))) - (_g107933107973_ - (lambda (_g107935107947_) + _g107932107938_)))) + (_g107930107970_ + (lambda (_g107932107944_) (if (let () (declare (not safe)) - (gx#stx-pair? _g107935107947_)) - (let ((_e107939107949_ + (gx#stx-pair? _g107932107944_)) + (let ((_e107936107946_ (let () (declare (not safe)) - (gx#stx-e _g107935107947_)))) - (let ((_hd107938107952_ + (gx#stx-e _g107932107944_)))) + (let ((_hd107935107949_ (let () (declare (not safe)) - (##car _e107939107949_))) - (_tl107937107954_ + (##car _e107936107946_))) + (_tl107934107951_ (let () (declare (not safe)) - (##cdr _e107939107949_)))) - ((lambda (_L107957_) - (let* ((_body107968_ - (map gxc#compile-e _L107957_)) - (_body107970_ + (##cdr _e107936107946_)))) + ((lambda (_L107954_) + (let* ((_body107965_ + (map gxc#compile-e _L107954_)) + (_body107967_ (let () (declare (not safe)) - (_simplify107932_ _body107968_)))) - (if (fx= (length _body107970_) '1) - (car _body107970_) + (_simplify107929_ _body107965_)))) + (if (fx= (length _body107967_) '1) + (car _body107967_) (let () (declare (not safe)) - (cons 'begin _body107970_))))) - _tl107937107954_))) + (cons 'begin _body107967_))))) + _tl107934107951_))) (let () (declare (not safe)) - (_g107934107944_ _g107935107947_)))))) + (_g107931107941_ _g107932107944_)))))) (declare (not safe)) - (_g107933107973_ _stx107930_))))) + (_g107930107970_ _stx107927_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_stx107892_) - (let* ((_g107894107904_ - (lambda (_g107895107901_) + (lambda (_stx107889_) + (let* ((_g107891107901_ + (lambda (_g107892107898_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107895107901_)))) - (_g107893107927_ - (lambda (_g107895107907_) + _g107892107898_)))) + (_g107890107924_ + (lambda (_g107892107904_) (if (let () (declare (not safe)) - (gx#stx-pair? _g107895107907_)) - (let ((_e107899107909_ + (gx#stx-pair? _g107892107904_)) + (let ((_e107896107906_ (let () (declare (not safe)) - (gx#stx-e _g107895107907_)))) - (let ((_hd107898107912_ + (gx#stx-e _g107892107904_)))) + (let ((_hd107895107909_ (let () (declare (not safe)) - (##car _e107899107909_))) - (_tl107897107914_ + (##car _e107896107906_))) + (_tl107894107911_ (let () (declare (not safe)) - (##cdr _e107899107909_)))) - ((lambda (_L107917_) - (let ((__tmp111413 + (##cdr _e107896107906_)))) + ((lambda (_L107914_) + (let ((__tmp111410 (let () (declare (not safe)) - (gx#syntax->datum _L107917_)))) + (gx#syntax->datum _L107914_)))) (declare (not safe)) - (cons 'begin __tmp111413))) - _tl107897107914_))) + (cons 'begin __tmp111410))) + _tl107894107911_))) (let () (declare (not safe)) - (_g107894107904_ _g107895107907_)))))) + (_g107891107901_ _g107892107904_)))))) (declare (not safe)) - (_g107893107927_ _stx107892_)))) + (_g107890107924_ _stx107889_)))) (define gxc#generate-runtime-begin-annotation% - (lambda (_stx107657_) - (let* ((___stx109996109997_ _stx107657_) - (_g107661107713_ + (lambda (_stx107654_) + (let* ((___stx109993109994_ _stx107654_) + (_g107658107710_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx109996109997_))))) - (let ((___kont109998109999_ - (lambda (_L107874_ _L107875_) + ___stx109993109994_))))) + (let ((___kont109995109996_ + (lambda (_L107871_ _L107872_) (let () (declare (not safe)) - (gxc#compile-e__0 _L107874_)))) - (___kont110000110001_ - (lambda (_L107822_ _L107823_ _L107824_) + (gxc#compile-e__0 _L107871_)))) + (___kont109997109998_ + (lambda (_L107819_ _L107820_ _L107821_) (let () (declare (not safe)) - (gxc#compile-e__0 _L107822_)))) - (___kont110004110005_ - (lambda (_L107742_ _L107743_) - (let ((_decls107758_ (map gx#syntax->datum _L107743_))) - (let ((__tmp111416 + (gxc#compile-e__0 _L107819_)))) + (___kont110001110002_ + (lambda (_L107739_ _L107740_) + (let ((_decls107755_ (map gx#syntax->datum _L107740_))) + (let ((__tmp111413 (lambda () - (let ((__tmp111417 - (let ((__tmp111420 + (let ((__tmp111414 + (let ((__tmp111417 (let () (declare (not safe)) - (cons 'declare _decls107758_))) - (__tmp111418 - (let ((__tmp111419 + (cons 'declare _decls107755_))) + (__tmp111415 + (let ((__tmp111416 (let () (declare (not safe)) (gxc#compile-e__0 - _L107742_)))) + _L107739_)))) (declare (not safe)) - (cons __tmp111419 '())))) + (cons __tmp111416 '())))) (declare (not safe)) - (cons __tmp111420 __tmp111418)))) + (cons __tmp111417 __tmp111415)))) (declare (not safe)) - (cons 'begin __tmp111417)))) - (__tmp111414 - (let ((__tmp111415 (gxc#current-compile-decls))) + (cons 'begin __tmp111414)))) + (__tmp111411 + (let ((__tmp111412 (gxc#current-compile-decls))) (declare (not safe)) - (foldr1 cons __tmp111415 _decls107758_)))) + (foldr1 cons __tmp111412 _decls107755_)))) (declare (not safe)) (call-with-parameters - __tmp111416 + __tmp111413 gxc#current-compile-decls - __tmp111414)))))) - (let* ((___match110051110052_ - (lambda (_e107679107766_ - _hd107678107769_ - _tl107677107771_ - _e107682107774_ - _hd107681107777_ - _tl107680107779_ - _e107685107782_ - _hd107684107785_ - _tl107683107787_ - ___splice110002110003_ - _target107686107790_ - _tl107688107792_) - (letrec ((_loop107689107795_ - (lambda (_hd107687107798_ - _param107693107800_) + __tmp111411)))))) + (let* ((___match110048110049_ + (lambda (_e107676107763_ + _hd107675107766_ + _tl107674107768_ + _e107679107771_ + _hd107678107774_ + _tl107677107776_ + _e107682107779_ + _hd107681107782_ + _tl107680107784_ + ___splice109999110000_ + _target107683107787_ + _tl107685107789_) + (letrec ((_loop107686107792_ + (lambda (_hd107684107795_ + _param107690107797_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd107687107798_)) - (let ((_e107690107803_ + (gx#stx-pair? _hd107684107795_)) + (let ((_e107687107800_ (let () (declare (not safe)) - (gx#stx-e _hd107687107798_)))) - (let ((_lp-tl107692107808_ + (gx#stx-e _hd107684107795_)))) + (let ((_lp-tl107689107805_ (let () (declare (not safe)) - (##cdr _e107690107803_))) - (_lp-hd107691107806_ + (##cdr _e107687107800_))) + (_lp-hd107688107803_ (let () (declare (not safe)) - (##car _e107690107803_)))) - (let ((__tmp111422 + (##car _e107687107800_)))) + (let ((__tmp111419 (let () (declare (not safe)) - (cons _lp-hd107691107806_ - _param107693107800_)))) + (cons _lp-hd107688107803_ + _param107690107797_)))) (declare (not safe)) - (_loop107689107795_ - _lp-tl107692107808_ - __tmp111422)))) - (let ((_param107694107811_ - (reverse _param107693107800_))) + (_loop107686107792_ + _lp-tl107689107805_ + __tmp111419)))) + (let ((_param107691107808_ + (reverse _param107690107797_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107680107779_)) - (let ((_e107697107814_ + _tl107677107776_)) + (let ((_e107694107811_ (let () (declare (not safe)) (gx#stx-e - _tl107680107779_)))) - (let ((_tl107695107819_ + _tl107677107776_)))) + (let ((_tl107692107816_ (let () (declare (not safe)) - (##cdr _e107697107814_))) - (_hd107696107817_ + (##cdr _e107694107811_))) + (_hd107693107814_ (let () (declare (not safe)) - (##car _e107697107814_)))) + (##car _e107694107811_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107695107819_)) - (let ((_L107822_ - _hd107696107817_) - (_L107823_ - _param107694107811_) - (_L107824_ - _hd107684107785_)) + _tl107692107816_)) + (let ((_L107819_ + _hd107693107814_) + (_L107820_ + _param107691107808_) + (_L107821_ + _hd107681107782_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _L107824_)) - (let ((__tmp111421 + (gx#identifier? _L107821_)) + (let ((__tmp111418 (memq (let () (declare (not safe)) - (gx#stx-e _L107824_)) + (gx#stx-e _L107821_)) gxc#gambit-annotations))) (declare (not safe)) - (not __tmp111421))) - (___kont110000110001_ _L107822_ _L107823_ _L107824_) - (___kont110004110005_ _hd107696107817_ _hd107681107777_))) - (let () (declare (not safe)) (_g107661107713_))))) + (not __tmp111418))) + (___kont109997109998_ _L107819_ _L107820_ _L107821_) + (___kont110001110002_ _hd107693107814_ _hd107678107774_))) + (let () (declare (not safe)) (_g107658107710_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g107661107713_)))))))) + (_g107658107710_)))))))) (let () (declare (not safe)) - (_loop107689107795_ _target107686107790_ '()))))) - (___match110025110026_ - (lambda (_e107667107850_ - _hd107666107853_ - _tl107665107855_ - _e107670107858_ - _hd107669107861_ - _tl107668107863_ - _e107673107866_ - _hd107672107869_ - _tl107671107871_) - (let ((_L107874_ _hd107672107869_) - (_L107875_ _hd107669107861_)) + (_loop107686107792_ _target107683107787_ '()))))) + (___match110022110023_ + (lambda (_e107664107847_ + _hd107663107850_ + _tl107662107852_ + _e107667107855_ + _hd107666107858_ + _tl107665107860_ + _e107670107863_ + _hd107669107866_ + _tl107668107868_) + (let ((_L107871_ _hd107669107866_) + (_L107872_ _hd107666107858_)) (if (let () (declare (not safe)) - (gx#identifier? _L107875_)) - (___kont109998109999_ _L107874_ _L107875_) + (gx#identifier? _L107872_)) + (___kont109995109996_ _L107871_ _L107872_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd107669107861_)) - (let ((_e107685107782_ + (gx#stx-pair? _hd107666107858_)) + (let ((_e107682107779_ (let () (declare (not safe)) - (gx#stx-e _hd107669107861_)))) - (let ((_tl107683107787_ + (gx#stx-e _hd107666107858_)))) + (let ((_tl107680107784_ (let () (declare (not safe)) - (##cdr _e107685107782_))) - (_hd107684107785_ + (##cdr _e107682107779_))) + (_hd107681107782_ (let () (declare (not safe)) - (##car _e107685107782_)))) + (##car _e107682107779_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl107683107787_)) - (let ((___splice110002110003_ + _tl107680107784_)) + (let ((___splice109999110000_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl107683107787_ + _tl107680107784_ '0)))) - (let ((_tl107688107792_ + (let ((_tl107685107789_ (let () (declare (not safe)) (##vector-ref - ___splice110002110003_ + ___splice109999110000_ '1))) - (_target107686107790_ + (_target107683107787_ (let () (declare (not safe)) (##vector-ref - ___splice110002110003_ + ___splice109999110000_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107688107792_)) - (___match110051110052_ - _e107667107850_ - _hd107666107853_ - _tl107665107855_ - _e107670107858_ - _hd107669107861_ - _tl107668107863_ - _e107685107782_ - _hd107684107785_ - _tl107683107787_ - ___splice110002110003_ - _target107686107790_ - _tl107688107792_) - (___kont110004110005_ - _hd107672107869_ - _hd107669107861_)))) - (___kont110004110005_ - _hd107672107869_ - _hd107669107861_)))) - (___kont110004110005_ - _hd107672107869_ - _hd107669107861_))))))) + _tl107685107789_)) + (___match110048110049_ + _e107664107847_ + _hd107663107850_ + _tl107662107852_ + _e107667107855_ + _hd107666107858_ + _tl107665107860_ + _e107682107779_ + _hd107681107782_ + _tl107680107784_ + ___splice109999110000_ + _target107683107787_ + _tl107685107789_) + (___kont110001110002_ + _hd107669107866_ + _hd107666107858_)))) + (___kont110001110002_ + _hd107669107866_ + _hd107666107858_)))) + (___kont110001110002_ + _hd107669107866_ + _hd107666107858_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx109996109997_)) - (let ((_e107667107850_ + (gx#stx-pair? ___stx109993109994_)) + (let ((_e107664107847_ (let () (declare (not safe)) - (gx#stx-e ___stx109996109997_)))) - (let ((_tl107665107855_ + (gx#stx-e ___stx109993109994_)))) + (let ((_tl107662107852_ (let () (declare (not safe)) - (##cdr _e107667107850_))) - (_hd107666107853_ + (##cdr _e107664107847_))) + (_hd107663107850_ (let () (declare (not safe)) - (##car _e107667107850_)))) + (##car _e107664107847_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107665107855_)) - (let ((_e107670107858_ + (gx#stx-pair? _tl107662107852_)) + (let ((_e107667107855_ (let () (declare (not safe)) - (gx#stx-e _tl107665107855_)))) - (let ((_tl107668107863_ + (gx#stx-e _tl107662107852_)))) + (let ((_tl107665107860_ (let () (declare (not safe)) - (##cdr _e107670107858_))) - (_hd107669107861_ + (##cdr _e107667107855_))) + (_hd107666107858_ (let () (declare (not safe)) - (##car _e107670107858_)))) + (##car _e107667107855_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107668107863_)) - (let ((_e107673107866_ + (gx#stx-pair? _tl107665107860_)) + (let ((_e107670107863_ (let () (declare (not safe)) - (gx#stx-e _tl107668107863_)))) - (let ((_tl107671107871_ + (gx#stx-e _tl107665107860_)))) + (let ((_tl107668107868_ (let () (declare (not safe)) - (##cdr _e107673107866_))) - (_hd107672107869_ + (##cdr _e107670107863_))) + (_hd107669107866_ (let () (declare (not safe)) - (##car _e107673107866_)))) + (##car _e107670107863_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107671107871_)) - (___match110025110026_ - _e107667107850_ - _hd107666107853_ - _tl107665107855_ - _e107670107858_ - _hd107669107861_ - _tl107668107863_ - _e107673107866_ - _hd107672107869_ - _tl107671107871_) + (gx#stx-null? _tl107668107868_)) + (___match110022110023_ + _e107664107847_ + _hd107663107850_ + _tl107662107852_ + _e107667107855_ + _hd107666107858_ + _tl107665107860_ + _e107670107863_ + _hd107669107866_ + _tl107668107868_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd107669107861_)) - (let ((_e107685107782_ + _hd107666107858_)) + (let ((_e107682107779_ (let () (declare (not safe)) (gx#stx-e - _hd107669107861_)))) - (let ((_tl107683107787_ + _hd107666107858_)))) + (let ((_tl107680107784_ (let () (declare (not safe)) - (##cdr _e107685107782_))) - (_hd107684107785_ + (##cdr _e107682107779_))) + (_hd107681107782_ (let () (declare (not safe)) - (##car _e107685107782_)))) + (##car _e107682107779_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl107683107787_)) - (let ((___splice110002110003_ + _tl107680107784_)) + (let ((___splice109999110000_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _tl107683107787_ '0)))) - (let ((_tl107688107792_ + (gx#syntax-split-splice _tl107680107784_ '0)))) + (let ((_tl107685107789_ (let () (declare (not safe)) - (##vector-ref ___splice110002110003_ '1))) - (_target107686107790_ + (##vector-ref ___splice109999110000_ '1))) + (_target107683107787_ (let () (declare (not safe)) - (##vector-ref ___splice110002110003_ '0)))) + (##vector-ref ___splice109999110000_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107688107792_)) - (___match110051110052_ - _e107667107850_ - _hd107666107853_ - _tl107665107855_ - _e107670107858_ - _hd107669107861_ - _tl107668107863_ - _e107685107782_ - _hd107684107785_ - _tl107683107787_ - ___splice110002110003_ - _target107686107790_ - _tl107688107792_) - (let () (declare (not safe)) (_g107661107713_))))) - (let () (declare (not safe)) (_g107661107713_))))) + (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_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g107661107713_)))))) + (_g107658107710_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd107669107861_)) - (let ((_e107685107782_ + (gx#stx-pair? _hd107666107858_)) + (let ((_e107682107779_ (let () (declare (not safe)) - (gx#stx-e _hd107669107861_)))) - (let ((_tl107683107787_ + (gx#stx-e _hd107666107858_)))) + (let ((_tl107680107784_ (let () (declare (not safe)) - (##cdr _e107685107782_))) - (_hd107684107785_ + (##cdr _e107682107779_))) + (_hd107681107782_ (let () (declare (not safe)) - (##car _e107685107782_)))) + (##car _e107682107779_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl107683107787_)) - (let ((___splice110002110003_ + _tl107680107784_)) + (let ((___splice109999110000_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl107683107787_ + _tl107680107784_ '0)))) - (let ((_tl107688107792_ + (let ((_tl107685107789_ (let () (declare (not safe)) (##vector-ref - ___splice110002110003_ + ___splice109999110000_ '1))) - (_target107686107790_ + (_target107683107787_ (let () (declare (not safe)) (##vector-ref - ___splice110002110003_ + ___splice109999110000_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107688107792_)) - (___match110051110052_ - _e107667107850_ - _hd107666107853_ - _tl107665107855_ - _e107670107858_ - _hd107669107861_ - _tl107668107863_ - _e107685107782_ - _hd107684107785_ - _tl107683107787_ - ___splice110002110003_ - _target107686107790_ - _tl107688107792_) + _tl107685107789_)) + (___match110048110049_ + _e107664107847_ + _hd107663107850_ + _tl107662107852_ + _e107667107855_ + _hd107666107858_ + _tl107665107860_ + _e107682107779_ + _hd107681107782_ + _tl107680107784_ + ___splice109999110000_ + _target107683107787_ + _tl107685107789_) (let () (declare (not safe)) - (_g107661107713_))))) + (_g107658107710_))))) (let () (declare (not safe)) - (_g107661107713_))))) + (_g107658107710_))))) (let () (declare (not safe)) - (_g107661107713_)))))) - (let () (declare (not safe)) (_g107661107713_))))) - (let () (declare (not safe)) (_g107661107713_)))))))) + (_g107658107710_)))))) + (let () (declare (not safe)) (_g107658107710_))))) + (let () (declare (not safe)) (_g107658107710_)))))))) (define gxc#generate-runtime-declare% - (lambda (_stx107617_) - (let* ((_g107619107629_ - (lambda (_g107620107626_) + (lambda (_stx107614_) + (let* ((_g107616107626_ + (lambda (_g107617107623_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107620107626_)))) - (_g107618107654_ - (lambda (_g107620107632_) + _g107617107623_)))) + (_g107615107651_ + (lambda (_g107617107629_) (if (let () (declare (not safe)) - (gx#stx-pair? _g107620107632_)) - (let ((_e107624107634_ + (gx#stx-pair? _g107617107629_)) + (let ((_e107621107631_ (let () (declare (not safe)) - (gx#stx-e _g107620107632_)))) - (let ((_hd107623107637_ + (gx#stx-e _g107617107629_)))) + (let ((_hd107620107634_ (let () (declare (not safe)) - (##car _e107624107634_))) - (_tl107622107639_ + (##car _e107621107631_))) + (_tl107619107636_ (let () (declare (not safe)) - (##cdr _e107624107634_)))) - ((lambda (_L107642_) - (let ((_decls107652_ - (map gx#syntax->datum _L107642_))) + (##cdr _e107621107631_)))) + ((lambda (_L107639_) + (let ((_decls107649_ + (map gx#syntax->datum _L107639_))) (gxc#current-compile-decls - (let ((__tmp111423 + (let ((__tmp111420 (gxc#current-compile-decls))) (declare (not safe)) - (foldr1 cons __tmp111423 _decls107652_))) + (foldr1 cons __tmp111420 _decls107649_))) (let () (declare (not safe)) - (cons 'declare _decls107652_)))) - _tl107622107639_))) + (cons 'declare _decls107649_)))) + _tl107619107636_))) (let () (declare (not safe)) - (_g107619107629_ _g107620107632_)))))) + (_g107616107626_ _g107617107629_)))))) (declare (not safe)) - (_g107618107654_ _stx107617_)))) + (_g107615107651_ _stx107614_)))) (define gxc#generate-runtime-define-values% - (lambda (_stx107364_) - (let* ((_g107366107383_ - (lambda (_g107367107380_) + (lambda (_stx107361_) + (let* ((_g107363107380_ + (lambda (_g107364107377_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107367107380_)))) - (_g107365107614_ - (lambda (_g107367107386_) + _g107364107377_)))) + (_g107362107611_ + (lambda (_g107364107383_) (if (let () (declare (not safe)) - (gx#stx-pair? _g107367107386_)) - (let ((_e107372107388_ + (gx#stx-pair? _g107364107383_)) + (let ((_e107369107385_ (let () (declare (not safe)) - (gx#stx-e _g107367107386_)))) - (let ((_hd107371107391_ + (gx#stx-e _g107364107383_)))) + (let ((_hd107368107388_ (let () (declare (not safe)) - (##car _e107372107388_))) - (_tl107370107393_ + (##car _e107369107385_))) + (_tl107367107390_ (let () (declare (not safe)) - (##cdr _e107372107388_)))) + (##cdr _e107369107385_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107370107393_)) - (let ((_e107375107396_ + (gx#stx-pair? _tl107367107390_)) + (let ((_e107372107393_ (let () (declare (not safe)) - (gx#stx-e _tl107370107393_)))) - (let ((_hd107374107399_ + (gx#stx-e _tl107367107390_)))) + (let ((_hd107371107396_ (let () (declare (not safe)) - (##car _e107375107396_))) - (_tl107373107401_ + (##car _e107372107393_))) + (_tl107370107398_ (let () (declare (not safe)) - (##cdr _e107375107396_)))) + (##cdr _e107372107393_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107373107401_)) - (let ((_e107378107404_ + (gx#stx-pair? _tl107370107398_)) + (let ((_e107375107401_ (let () (declare (not safe)) - (gx#stx-e _tl107373107401_)))) - (let ((_hd107377107407_ + (gx#stx-e _tl107370107398_)))) + (let ((_hd107374107404_ (let () (declare (not safe)) - (##car _e107378107404_))) - (_tl107376107409_ + (##car _e107375107401_))) + (_tl107373107406_ (let () (declare (not safe)) - (##cdr _e107378107404_)))) + (##cdr _e107375107401_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107376107409_)) - ((lambda (_L107412_ _L107413_) - (let* ((___stx110104110105_ - _L107413_) - (_g107430107444_ + _tl107373107406_)) + ((lambda (_L107409_ _L107410_) + (let* ((___stx110101110102_ + _L107410_) + (_g107427107441_ (lambda () (let () (declare @@ -4634,10606 +4634,10606 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110104110105_))))) + ___stx110101110102_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___kont110106110107_ + (let ((___kont110103110104_ (lambda () (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _L107412_)))) - (___kont110108110109_ - (lambda (_L107576_) - (let ((_eid107585_ + (gxc#compile-e__0 _L107409_)))) + (___kont110105110106_ + (lambda (_L107573_) + (let ((_eid107582_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L107576_)))) - (let ((_lambda-expr107586107588_ + (gxc#generate-runtime-binding-id _L107573_)))) + (let ((_lambda-expr107583107585_ (let () (declare (not safe)) (gxc#apply-find-lambda-expression - _L107412_)))) - (if _lambda-expr107586107588_ - (let* ((_lambda-expr107591_ - _lambda-expr107586107588_) - (__tmp111424 + _L107409_)))) + (if _lambda-expr107583107585_ + (let* ((_lambda-expr107588_ + _lambda-expr107583107585_) + (__tmp111421 (gxc#current-compile-runtime-names))) (declare (not safe)) (hash-put! - __tmp111424 - _lambda-expr107591_ - _eid107585_)) + __tmp111421 + _lambda-expr107588_ + _eid107582_)) '#f)) - (let ((__tmp111425 - (let ((__tmp111426 - (let ((__tmp111427 + (let ((__tmp111422 + (let ((__tmp111423 + (let ((__tmp111424 (let () (declare (not safe)) - (gxc#compile-e__0 _L107412_)))) + (gxc#compile-e__0 _L107409_)))) (declare (not safe)) - (cons __tmp111427 '())))) + (cons __tmp111424 '())))) (declare (not safe)) - (cons _eid107585_ __tmp111426)))) + (cons _eid107582_ __tmp111423)))) (declare (not safe)) - (cons 'define __tmp111425))))) - (___kont110110110111_ + (cons 'define __tmp111422))))) + (___kont110107110108_ (lambda () - (let* ((_tmp107451_ + (let* ((_tmp107448_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_body107560_ - (let _lp107453_ ((_rest107455_ _L107413_) - (_k107456_ '0) - (_r107457_ '())) - (let* ((___stx110074110075_ _rest107455_) - (_g107462107479_ + (_body107557_ + (let _lp107450_ ((_rest107452_ _L107410_) + (_k107453_ '0) + (_r107454_ '())) + (let* ((___stx110071110072_ _rest107452_) + (_g107459107476_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110074110075_))))) - (let ((___kont110076110077_ - (lambda (_L107547_) - (let ((__tmp111428 + ___stx110071110072_))))) + (let ((___kont110073110074_ + (lambda (_L107544_) + (let ((__tmp111425 (let () (declare (not safe)) - (fx+ _k107456_ '1)))) + (fx+ _k107453_ '1)))) (declare (not safe)) - (_lp107453_ - _L107547_ - __tmp111428 - _r107457_)))) - (___kont110078110079_ - (lambda (_L107520_ _L107521_) - (let ((__tmp111435 + (_lp107450_ + _L107544_ + __tmp111425 + _r107454_)))) + (___kont110075110076_ + (lambda (_L107517_ _L107518_) + (let ((__tmp111432 (let () (declare (not safe)) - (fx+ _k107456_ '1))) - (__tmp111429 - (let ((__tmp111430 - (let ((__tmp111431 - (let ((__tmp111434 + (fx+ _k107453_ '1))) + (__tmp111426 + (let ((__tmp111427 + (let ((__tmp111428 + (let ((__tmp111431 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L107521_))) - (__tmp111432 - (let ((__tmp111433 + (gxc#generate-runtime-binding-id _L107518_))) + (__tmp111429 + (let ((__tmp111430 (let () (declare (not safe)) (gxc#generate-runtime-values-ref - _tmp107451_ - _k107456_ - _L107520_)))) + _tmp107448_ + _k107453_ + _L107517_)))) (declare (not safe)) - (cons __tmp111433 '())))) + (cons __tmp111430 '())))) (declare (not safe)) - (cons __tmp111434 __tmp111432)))) + (cons __tmp111431 __tmp111429)))) (declare (not safe)) - (cons 'define __tmp111431)))) + (cons 'define __tmp111428)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111430 - _r107457_)))) + (cons __tmp111427 + _r107454_)))) (declare (not safe)) - (_lp107453_ - _L107520_ - __tmp111435 - __tmp111429)))) - (___kont110080110081_ - (lambda (_L107491_) - (let ((__tmp111436 - (let ((__tmp111437 - (let ((__tmp111438 - (let ((__tmp111441 + (_lp107450_ + _L107517_ + __tmp111432 + __tmp111426)))) + (___kont110077110078_ + (lambda (_L107488_) + (let ((__tmp111433 + (let ((__tmp111434 + (let ((__tmp111435 + (let ((__tmp111438 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L107491_))) - (__tmp111439 - (let ((__tmp111440 + (gxc#generate-runtime-binding-id _L107488_))) + (__tmp111436 + (let ((__tmp111437 (let () (declare (not safe)) (gxc#generate-runtime-values->list - _tmp107451_ - _k107456_)))) + _tmp107448_ + _k107453_)))) (declare (not safe)) - (cons __tmp111440 '())))) + (cons __tmp111437 '())))) (declare (not safe)) - (cons __tmp111441 __tmp111439)))) + (cons __tmp111438 __tmp111436)))) (declare (not safe)) - (cons 'define __tmp111438)))) + (cons 'define __tmp111435)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111437 '())))) + (cons __tmp111434 '())))) (declare (not safe)) (foldl1 cons - __tmp111436 - _r107457_)))) - (___kont110082110083_ - (lambda () (reverse _r107457_)))) - (let ((_g107460107507_ + __tmp111433 + _r107454_)))) + (___kont110079110080_ + (lambda () (reverse _r107454_)))) + (let ((_g107457107504_ (lambda () - (let ((_L107491_ - ___stx110074110075_)) + (let ((_L107488_ + ___stx110071110072_)) (if (let () (declare (not safe)) (gx#identifier? - _L107491_)) - (___kont110080110081_ - _L107491_) - (___kont110082110083_)))))) + _L107488_)) + (___kont110077110078_ + _L107488_) + (___kont110079110080_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110074110075_)) - (let ((_e107467107536_ + (gx#stx-pair? ___stx110071110072_)) + (let ((_e107464107533_ (let () (declare (not safe)) (gx#stx-e - ___stx110074110075_)))) - (let ((_tl107465107541_ + ___stx110071110072_)))) + (let ((_tl107462107538_ (let () (declare (not safe)) - (##cdr _e107467107536_))) - (_hd107466107539_ + (##cdr _e107464107533_))) + (_hd107463107536_ (let () (declare (not safe)) - (##car _e107467107536_)))) + (##car _e107464107533_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd107466107539_)) - (let ((_e107468107544_ + _hd107463107536_)) + (let ((_e107465107541_ (let () (declare (not safe)) (gx#stx-e - _hd107466107539_)))) + _hd107463107536_)))) (if (let () (declare (not safe)) - (equal? _e107468107544_ + (equal? _e107465107541_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f)) - (___kont110076110077_ _tl107465107541_) - (___kont110078110079_ _tl107465107541_ _hd107466107539_))) + (___kont110073110074_ _tl107462107538_) + (___kont110075110076_ _tl107462107538_ _hd107463107536_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110078110079_ - _tl107465107541_ - _hd107466107539_)))) + (___kont110075110076_ + _tl107462107538_ + _hd107463107536_)))) (let () (declare (not safe)) - (_g107460107507_))))))))) - (let ((__tmp111442 - (let ((__tmp111445 - (let ((__tmp111446 - (let ((__tmp111447 - (let ((__tmp111448 + (_g107457107504_))))))))) + (let ((__tmp111439 + (let ((__tmp111442 + (let ((__tmp111443 + (let ((__tmp111444 + (let ((__tmp111445 (let () (declare (not safe)) (gxc#compile-e__0 - _L107412_)))) + _L107409_)))) (declare (not safe)) - (cons __tmp111448 '())))) + (cons __tmp111445 '())))) (declare (not safe)) - (cons _tmp107451_ - __tmp111447)))) + (cons _tmp107448_ + __tmp111444)))) (declare (not safe)) - (cons 'define __tmp111446))) - (__tmp111443 - (let ((__tmp111444 + (cons 'define __tmp111443))) + (__tmp111440 + (let ((__tmp111441 (let () (declare (not safe)) (gxc#generate-runtime-check-values - _tmp107451_ - _L107413_ - _L107412_)))) + _tmp107448_ + _L107410_ + _L107409_)))) (declare (not safe)) - (cons __tmp111444 _body107560_)))) + (cons __tmp111441 _body107557_)))) (declare (not safe)) - (cons __tmp111445 __tmp111443)))) + (cons __tmp111442 __tmp111440)))) (declare (not safe)) - (cons 'begin __tmp111442)))))) + (cons 'begin __tmp111439)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110104110105_)) - (let ((_e107434107598_ + (gx#stx-pair? ___stx110101110102_)) + (let ((_e107431107595_ (let () (declare (not safe)) - (gx#stx-e ___stx110104110105_)))) - (let ((_tl107432107603_ + (gx#stx-e ___stx110101110102_)))) + (let ((_tl107429107600_ (let () (declare (not safe)) - (##cdr _e107434107598_))) - (_hd107433107601_ + (##cdr _e107431107595_))) + (_hd107430107598_ (let () (declare (not safe)) - (##car _e107434107598_)))) + (##car _e107431107595_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd107433107601_)) - (let ((_e107435107606_ + (gx#stx-datum? _hd107430107598_)) + (let ((_e107432107603_ (let () (declare (not safe)) - (gx#stx-e _hd107433107601_)))) + (gx#stx-e _hd107430107598_)))) (if (let () (declare (not safe)) - (equal? _e107435107606_ '#f)) + (equal? _e107432107603_ '#f)) (if (let () (declare (not safe)) - (gx#stx-null? _tl107432107603_)) - (___kont110106110107_) - (___kont110110110111_)) + (gx#stx-null? _tl107429107600_)) + (___kont110103110104_) + (___kont110107110108_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl107432107603_)) - (___kont110108110109_ _hd107433107601_) - (___kont110110110111_)))) + (gx#stx-null? _tl107429107600_)) + (___kont110105110106_ _hd107430107598_) + (___kont110107110108_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107432107603_)) - (___kont110108110109_ _hd107433107601_) - (___kont110110110111_))))) - (___kont110110110111_))))) + (gx#stx-null? _tl107429107600_)) + (___kont110105110106_ _hd107430107598_) + (___kont110107110108_))))) + (___kont110107110108_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd107377107407_ - _hd107374107399_) + _hd107374107404_ + _hd107371107396_) (let () (declare (not safe)) - (_g107366107383_ - _g107367107386_))))) + (_g107363107380_ + _g107364107383_))))) (let () (declare (not safe)) - (_g107366107383_ _g107367107386_))))) + (_g107363107380_ _g107364107383_))))) (let () (declare (not safe)) - (_g107366107383_ _g107367107386_))))) + (_g107363107380_ _g107364107383_))))) (let () (declare (not safe)) - (_g107366107383_ _g107367107386_)))))) + (_g107363107380_ _g107364107383_)))))) (declare (not safe)) - (_g107365107614_ _stx107364_)))) + (_g107362107611_ _stx107361_)))) (define gxc#generate-runtime-check-values - (lambda (_vals107340_ _hd107341_ _expr107342_) - (let ((_$e107344_ + (lambda (_vals107337_ _hd107338_ _expr107339_) + (let ((_$e107341_ (let () (declare (not safe)) - (gxc#apply-count-values _expr107342_)))) - (if _$e107344_ - ((lambda (_count107347_) - (let ((_len107349_ + (gxc#apply-count-values _expr107339_)))) + (if _$e107341_ + ((lambda (_count107344_) + (let ((_len107346_ (let () (declare (not safe)) - (gx#stx-length _hd107341_))) - (_cmp107350_ + (gx#stx-length _hd107338_))) + (_cmp107347_ (if (let () (declare (not safe)) - (gx#stx-list? _hd107341_)) + (gx#stx-list? _hd107338_)) fx= fx>=))) - (if (or (fx= _len107349_ '0) - (_cmp107350_ _count107347_ _len107349_)) + (if (or (fx= _len107346_ '0) + (_cmp107347_ _count107344_ _len107346_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Value count mismatch" - _expr107342_ - _hd107341_))))) - _$e107344_) - (let* ((_len107355_ + _expr107339_ + _hd107338_))))) + _$e107341_) + (let* ((_len107352_ (let () (declare (not safe)) - (gx#stx-length _hd107341_))) - (_cmp107357_ + (gx#stx-length _hd107338_))) + (_cmp107354_ (if (let () (declare (not safe)) - (gx#stx-list? _hd107341_)) + (gx#stx-list? _hd107338_)) '##fx= '##fx>=)) - (_errmsg107359_ + (_errmsg107356_ (string-append (if (let () (declare (not safe)) - (gx#stx-list? _hd107341_)) + (gx#stx-list? _hd107338_)) '"Context expects " '"Context expects at least ") - (number->string _len107355_) + (number->string _len107352_) '" values")) - (_count107361_ + (_count107358_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0)))) - (if (and (let ((__tmp111472 + (if (and (let ((__tmp111469 (let () (declare (not safe)) - (gx#stx-list? _hd107341_)))) + (gx#stx-list? _hd107338_)))) (declare (not safe)) - (not __tmp111472)) - (fx= _len107355_ '0)) + (not __tmp111469)) + (fx= _len107352_ '0)) '#!void - (let ((__tmp111449 - (let ((__tmp111468 - (let ((__tmp111469 - (let ((__tmp111470 - (let ((__tmp111471 + (let ((__tmp111446 + (let ((__tmp111465 + (let ((__tmp111466 + (let ((__tmp111467 + (let ((__tmp111468 (let () (declare (not safe)) (gxc#generate-runtime-values-count - _vals107340_)))) + _vals107337_)))) (declare (not safe)) - (cons __tmp111471 '())))) + (cons __tmp111468 '())))) (declare (not safe)) - (cons _count107361_ - __tmp111470)))) + (cons _count107358_ + __tmp111467)))) (declare (not safe)) - (cons __tmp111469 '()))) - (__tmp111450 - (let ((__tmp111451 - (let ((__tmp111452 - (let ((__tmp111457 - (let ((__tmp111458 - (let ((__tmp111459 + (cons __tmp111466 '()))) + (__tmp111447 + (let ((__tmp111448 + (let ((__tmp111449 + (let ((__tmp111454 + (let ((__tmp111455 + (let ((__tmp111456 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111466 - (let ((__tmp111467 + (let ((__tmp111463 + (let ((__tmp111464 (let () (declare (not safe)) - (cons _len107355_ '())))) + (cons _len107352_ '())))) (declare (not safe)) - (cons _count107361_ __tmp111467)))) + (cons _count107358_ __tmp111464)))) (declare (not safe)) - (cons _cmp107357_ __tmp111466)) - (let ((__tmp111460 - (let ((__tmp111461 - (let ((__tmp111462 - (let ((__tmp111463 - (let ((__tmp111464 + (cons _cmp107354_ __tmp111463)) + (let ((__tmp111457 + (let ((__tmp111458 + (let ((__tmp111459 + (let ((__tmp111460 + (let ((__tmp111461 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111465 + (let ((__tmp111462 (let () (declare (not safe)) - (cons _len107355_ '())))) + (cons _len107352_ '())))) (declare (not safe)) - (cons _count107361_ __tmp111465)))) + (cons _count107358_ __tmp111462)))) (declare (not safe)) - (cons _cmp107357_ __tmp111464)))) + (cons _cmp107354_ __tmp111461)))) (declare (not safe)) - (cons __tmp111463 '())))) + (cons __tmp111460 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp111462)))) + __tmp111459)))) (declare (not safe)) - (cons '() __tmp111461)))) + (cons '() __tmp111458)))) (declare (not safe)) - (cons 'let __tmp111460))))) + (cons 'let __tmp111457))))) (declare (not safe)) - (cons __tmp111459 '())))) + (cons __tmp111456 '())))) (declare (not safe)) - (cons 'not __tmp111458))) - (__tmp111453 - (let ((__tmp111454 - (let ((__tmp111455 - (let ((__tmp111456 + (cons 'not __tmp111455))) + (__tmp111450 + (let ((__tmp111451 + (let ((__tmp111452 + (let ((__tmp111453 (let () (declare (not safe)) - (cons _count107361_ '())))) + (cons _count107358_ '())))) (declare (not safe)) - (cons _errmsg107359_ __tmp111456)))) + (cons _errmsg107356_ __tmp111453)))) (declare (not safe)) - (cons 'error __tmp111455)))) + (cons 'error __tmp111452)))) (declare (not safe)) - (cons __tmp111454 '())))) + (cons __tmp111451 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111457 - __tmp111453)))) + (cons __tmp111454 + __tmp111450)))) (declare (not safe)) - (cons 'if __tmp111452)))) + (cons 'if __tmp111449)))) (declare (not safe)) - (cons __tmp111451 '())))) + (cons __tmp111448 '())))) (declare (not safe)) - (cons __tmp111468 __tmp111450)))) + (cons __tmp111465 __tmp111447)))) (declare (not safe)) - (cons 'let __tmp111449)))))))) + (cons 'let __tmp111446)))))))) (define gxc#generate-runtime-values-count - (lambda (_var107335_) - (letrec ((_generate-inline107337_ + (lambda (_var107332_) + (letrec ((_generate-inline107334_ (lambda () - (let ((__tmp111473 - (let ((__tmp111478 - (let ((__tmp111479 + (let ((__tmp111470 + (let ((__tmp111475 + (let ((__tmp111476 (let () (declare (not safe)) - (cons _var107335_ '())))) + (cons _var107332_ '())))) (declare (not safe)) - (cons '##values? __tmp111479))) - (__tmp111474 - (let ((__tmp111476 - (let ((__tmp111477 + (cons '##values? __tmp111476))) + (__tmp111471 + (let ((__tmp111473 + (let ((__tmp111474 (let () (declare (not safe)) - (cons _var107335_ '())))) + (cons _var107332_ '())))) (declare (not safe)) (cons '##vector-length - __tmp111477))) - (__tmp111475 + __tmp111474))) + (__tmp111472 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp111476 __tmp111475)))) + (cons __tmp111473 __tmp111472)))) (declare (not safe)) - (cons __tmp111478 __tmp111474)))) + (cons __tmp111475 __tmp111471)))) (declare (not safe)) - (cons 'if __tmp111473))))) + (cons 'if __tmp111470))))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let () (declare (not safe)) (_generate-inline107337_)) - (let ((__tmp111480 - (let ((__tmp111481 - (let ((__tmp111482 - (let ((__tmp111483 + (let () (declare (not safe)) (_generate-inline107334_)) + (let ((__tmp111477 + (let ((__tmp111478 + (let ((__tmp111479 + (let ((__tmp111480 (let () (declare (not safe)) - (_generate-inline107337_)))) + (_generate-inline107334_)))) (declare (not safe)) - (cons __tmp111483 '())))) + (cons __tmp111480 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp111482)))) + (cons '(declare (not safe)) __tmp111479)))) (declare (not safe)) - (cons '() __tmp111481)))) + (cons '() __tmp111478)))) (declare (not safe)) - (cons 'let __tmp111480)))))) + (cons 'let __tmp111477)))))) (define gxc#generate-runtime-values-ref - (lambda (_var107328_ _i107329_ _rest107330_) - (letrec ((_generate-inline107332_ + (lambda (_var107325_ _i107326_ _rest107327_) + (letrec ((_generate-inline107329_ (lambda () - (if (and (fx= _i107329_ '0) - (let ((__tmp111494 + (if (and (fx= _i107326_ '0) + (let ((__tmp111491 (let () (declare (not safe)) - (gx#stx-pair? _rest107330_)))) + (gx#stx-pair? _rest107327_)))) (declare (not safe)) - (not __tmp111494))) - (let ((__tmp111486 - (let ((__tmp111492 - (let ((__tmp111493 + (not __tmp111491))) + (let ((__tmp111483 + (let ((__tmp111489 + (let ((__tmp111490 (let () (declare (not safe)) - (cons _var107328_ '())))) + (cons _var107325_ '())))) (declare (not safe)) - (cons '##values? __tmp111493))) - (__tmp111487 - (let ((__tmp111489 - (let ((__tmp111490 - (let ((__tmp111491 + (cons '##values? __tmp111490))) + (__tmp111484 + (let ((__tmp111486 + (let ((__tmp111487 + (let ((__tmp111488 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '0 '())))) (declare (not safe)) - (cons _var107328_ __tmp111491)))) + (cons _var107325_ __tmp111488)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##vector-ref - __tmp111490))) - (__tmp111488 + __tmp111487))) + (__tmp111485 (let () (declare (not safe)) - (cons _var107328_ '())))) + (cons _var107325_ '())))) (declare (not safe)) - (cons __tmp111489 __tmp111488)))) + (cons __tmp111486 __tmp111485)))) (declare (not safe)) - (cons __tmp111492 __tmp111487)))) + (cons __tmp111489 __tmp111484)))) (declare (not safe)) - (cons 'if __tmp111486)) - (let ((__tmp111484 - (let ((__tmp111485 + (cons 'if __tmp111483)) + (let ((__tmp111481 + (let ((__tmp111482 (let () (declare (not safe)) - (cons _i107329_ '())))) + (cons _i107326_ '())))) (declare (not safe)) - (cons _var107328_ __tmp111485)))) + (cons _var107325_ __tmp111482)))) (declare (not safe)) - (cons '##vector-ref __tmp111484)))))) + (cons '##vector-ref __tmp111481)))))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let () (declare (not safe)) (_generate-inline107332_)) - (let ((__tmp111495 - (let ((__tmp111496 - (let ((__tmp111497 - (let ((__tmp111498 + (let () (declare (not safe)) (_generate-inline107329_)) + (let ((__tmp111492 + (let ((__tmp111493 + (let ((__tmp111494 + (let ((__tmp111495 (let () (declare (not safe)) - (_generate-inline107332_)))) + (_generate-inline107329_)))) (declare (not safe)) - (cons __tmp111498 '())))) + (cons __tmp111495 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp111497)))) + (cons '(declare (not safe)) __tmp111494)))) (declare (not safe)) - (cons '() __tmp111496)))) + (cons '() __tmp111493)))) (declare (not safe)) - (cons 'let __tmp111495)))))) + (cons 'let __tmp111492)))))) (define gxc#generate-runtime-values->list - (lambda (_var107325_ _i107326_) - (if (fx= _i107326_ '0) + (lambda (_var107322_ _i107323_) + (if (fx= _i107323_ '0) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111546 - (let ((__tmp111553 - (let ((__tmp111554 + (let ((__tmp111543 + (let ((__tmp111550 + (let ((__tmp111551 (let () (declare (not safe)) - (cons _var107325_ '())))) + (cons _var107322_ '())))) (declare (not safe)) - (cons '##values? __tmp111554))) - (__tmp111547 - (let ((__tmp111551 - (let ((__tmp111552 + (cons '##values? __tmp111551))) + (__tmp111544 + (let ((__tmp111548 + (let ((__tmp111549 (let () (declare (not safe)) - (cons _var107325_ '())))) + (cons _var107322_ '())))) (declare (not safe)) - (cons '##vector->list __tmp111552))) - (__tmp111548 - (let ((__tmp111549 - (let ((__tmp111550 + (cons '##vector->list __tmp111549))) + (__tmp111545 + (let ((__tmp111546 + (let ((__tmp111547 (let () (declare (not safe)) - (cons _var107325_ + (cons _var107322_ '())))) (declare (not safe)) - (cons 'list __tmp111550)))) + (cons 'list __tmp111547)))) (declare (not safe)) - (cons __tmp111549 '())))) + (cons __tmp111546 '())))) (declare (not safe)) - (cons __tmp111551 __tmp111548)))) + (cons __tmp111548 __tmp111545)))) (declare (not safe)) - (cons __tmp111553 __tmp111547)))) + (cons __tmp111550 __tmp111544)))) (declare (not safe)) - (cons 'if __tmp111546)) - (let ((__tmp111533 - (let ((__tmp111534 - (let ((__tmp111535 - (let ((__tmp111536 - (let ((__tmp111537 - (let ((__tmp111544 - (let ((__tmp111545 + (cons 'if __tmp111543)) + (let ((__tmp111530 + (let ((__tmp111531 + (let ((__tmp111532 + (let ((__tmp111533 + (let ((__tmp111534 + (let ((__tmp111541 + (let ((__tmp111542 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var107325_ '())))) + (cons _var107322_ '())))) (declare (not safe)) - (cons '##values? __tmp111545))) - (__tmp111538 - (let ((__tmp111542 - (let ((__tmp111543 + (cons '##values? __tmp111542))) + (__tmp111535 + (let ((__tmp111539 + (let ((__tmp111540 (let () (declare (not safe)) - (cons _var107325_ '())))) + (cons _var107322_ '())))) (declare (not safe)) - (cons '##vector->list __tmp111543))) - (__tmp111539 - (let ((__tmp111540 - (let ((__tmp111541 + (cons '##vector->list __tmp111540))) + (__tmp111536 + (let ((__tmp111537 + (let ((__tmp111538 (let () (declare (not safe)) - (cons _var107325_ '())))) + (cons _var107322_ '())))) (declare (not safe)) - (cons 'list __tmp111541)))) + (cons 'list __tmp111538)))) (declare (not safe)) - (cons __tmp111540 '())))) + (cons __tmp111537 '())))) (declare (not safe)) - (cons __tmp111542 __tmp111539)))) + (cons __tmp111539 __tmp111536)))) (declare (not safe)) - (cons __tmp111544 __tmp111538)))) + (cons __tmp111541 __tmp111535)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp111537)))) + (cons 'if __tmp111534)))) (declare (not safe)) - (cons __tmp111536 '())))) + (cons __tmp111533 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp111535)))) + (cons '(declare (not safe)) __tmp111532)))) (declare (not safe)) - (cons '() __tmp111534)))) + (cons '() __tmp111531)))) (declare (not safe)) - (cons 'let __tmp111533))) - (if (fx= _i107326_ '1) + (cons 'let __tmp111530))) + (if (fx= _i107323_ '1) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111524 - (let ((__tmp111531 - (let ((__tmp111532 + (let ((__tmp111521 + (let ((__tmp111528 + (let ((__tmp111529 (let () (declare (not safe)) - (cons _var107325_ '())))) + (cons _var107322_ '())))) (declare (not safe)) - (cons '##values? __tmp111532))) - (__tmp111525 - (let ((__tmp111527 - (let ((__tmp111528 - (let ((__tmp111529 - (let ((__tmp111530 + (cons '##values? __tmp111529))) + (__tmp111522 + (let ((__tmp111524 + (let ((__tmp111525 + (let ((__tmp111526 + (let ((__tmp111527 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _var107325_ '())))) + (cons _var107322_ '())))) (declare (not safe)) - (cons '##vector->list __tmp111530)))) + (cons '##vector->list __tmp111527)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111529 '())))) + (cons __tmp111526 '())))) (declare (not safe)) - (cons '##cdr __tmp111528))) - (__tmp111526 + (cons '##cdr __tmp111525))) + (__tmp111523 (let () (declare (not safe)) (cons ''() '())))) (declare (not safe)) - (cons __tmp111527 __tmp111526)))) + (cons __tmp111524 __tmp111523)))) (declare (not safe)) - (cons __tmp111531 __tmp111525)))) + (cons __tmp111528 __tmp111522)))) (declare (not safe)) - (cons 'if __tmp111524)) - (let ((__tmp111511 - (let ((__tmp111512 - (let ((__tmp111513 - (let ((__tmp111514 - (let ((__tmp111515 - (let ((__tmp111522 - (let ((__tmp111523 + (cons 'if __tmp111521)) + (let ((__tmp111508 + (let ((__tmp111509 + (let ((__tmp111510 + (let ((__tmp111511 + (let ((__tmp111512 + (let ((__tmp111519 + (let ((__tmp111520 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var107325_ '())))) + (cons _var107322_ '())))) (declare (not safe)) - (cons '##values? __tmp111523))) - (__tmp111516 - (let ((__tmp111518 - (let ((__tmp111519 - (let ((__tmp111520 - (let ((__tmp111521 + (cons '##values? __tmp111520))) + (__tmp111513 + (let ((__tmp111515 + (let ((__tmp111516 + (let ((__tmp111517 + (let ((__tmp111518 (let () (declare (not safe)) - (cons _var107325_ '())))) + (cons _var107322_ '())))) (declare (not safe)) (cons '##vector->list - __tmp111521)))) + __tmp111518)))) (declare (not safe)) - (cons __tmp111520 '())))) + (cons __tmp111517 '())))) (declare (not safe)) - (cons '##cdr __tmp111519))) - (__tmp111517 + (cons '##cdr __tmp111516))) + (__tmp111514 (let () (declare (not safe)) (cons ''() '())))) (declare (not safe)) - (cons __tmp111518 __tmp111517)))) + (cons __tmp111515 __tmp111514)))) (declare (not safe)) - (cons __tmp111522 __tmp111516)))) + (cons __tmp111519 __tmp111513)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp111515)))) + (cons 'if __tmp111512)))) (declare (not safe)) - (cons __tmp111514 '())))) + (cons __tmp111511 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp111513)))) + __tmp111510)))) (declare (not safe)) - (cons '() __tmp111512)))) + (cons '() __tmp111509)))) (declare (not safe)) - (cons 'let __tmp111511))) + (cons 'let __tmp111508))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111507 - (let ((__tmp111509 - (let ((__tmp111510 + (let ((__tmp111504 + (let ((__tmp111506 + (let ((__tmp111507 (let () (declare (not safe)) - (cons _var107325_ '())))) + (cons _var107322_ '())))) (declare (not safe)) - (cons '##vector->list __tmp111510))) - (__tmp111508 + (cons '##vector->list __tmp111507))) + (__tmp111505 (let () (declare (not safe)) - (cons _i107326_ '())))) + (cons _i107323_ '())))) (declare (not safe)) - (cons __tmp111509 __tmp111508)))) + (cons __tmp111506 __tmp111505)))) (declare (not safe)) - (cons '##list-tail __tmp111507)) - (let ((__tmp111499 - (let ((__tmp111500 - (let ((__tmp111501 - (let ((__tmp111502 - (let ((__tmp111503 - (let ((__tmp111505 - (let ((__tmp111506 + (cons '##list-tail __tmp111504)) + (let ((__tmp111496 + (let ((__tmp111497 + (let ((__tmp111498 + (let ((__tmp111499 + (let ((__tmp111500 + (let ((__tmp111502 + (let ((__tmp111503 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var107325_ '())))) + (cons _var107322_ '())))) (declare (not safe)) - (cons '##vector->list __tmp111506))) - (__tmp111504 - (let () (declare (not safe)) (cons _i107326_ '())))) + (cons '##vector->list __tmp111503))) + (__tmp111501 + (let () (declare (not safe)) (cons _i107323_ '())))) (declare (not safe)) - (cons __tmp111505 __tmp111504)))) + (cons __tmp111502 __tmp111501)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##list-tail - __tmp111503)))) + __tmp111500)))) (declare (not safe)) - (cons __tmp111502 '())))) + (cons __tmp111499 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp111501)))) + __tmp111498)))) (declare (not safe)) - (cons '() __tmp111500)))) + (cons '() __tmp111497)))) (declare (not safe)) - (cons 'let __tmp111499))))))) + (cons 'let __tmp111496))))))) (define gxc#generate-runtime-lambda% - (lambda (_stx107258_) - (let* ((_g107260107277_ - (lambda (_g107261107274_) + (lambda (_stx107255_) + (let* ((_g107257107274_ + (lambda (_g107258107271_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107261107274_)))) - (_g107259107322_ - (lambda (_g107261107280_) + _g107258107271_)))) + (_g107256107319_ + (lambda (_g107258107277_) (if (let () (declare (not safe)) - (gx#stx-pair? _g107261107280_)) - (let ((_e107266107282_ + (gx#stx-pair? _g107258107277_)) + (let ((_e107263107279_ (let () (declare (not safe)) - (gx#stx-e _g107261107280_)))) - (let ((_hd107265107285_ + (gx#stx-e _g107258107277_)))) + (let ((_hd107262107282_ (let () (declare (not safe)) - (##car _e107266107282_))) - (_tl107264107287_ + (##car _e107263107279_))) + (_tl107261107284_ (let () (declare (not safe)) - (##cdr _e107266107282_)))) + (##cdr _e107263107279_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107264107287_)) - (let ((_e107269107290_ + (gx#stx-pair? _tl107261107284_)) + (let ((_e107266107287_ (let () (declare (not safe)) - (gx#stx-e _tl107264107287_)))) - (let ((_hd107268107293_ + (gx#stx-e _tl107261107284_)))) + (let ((_hd107265107290_ (let () (declare (not safe)) - (##car _e107269107290_))) - (_tl107267107295_ + (##car _e107266107287_))) + (_tl107264107292_ (let () (declare (not safe)) - (##cdr _e107269107290_)))) + (##cdr _e107266107287_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107267107295_)) - (let ((_e107272107298_ + (gx#stx-pair? _tl107264107292_)) + (let ((_e107269107295_ (let () (declare (not safe)) - (gx#stx-e _tl107267107295_)))) - (let ((_hd107271107301_ + (gx#stx-e _tl107264107292_)))) + (let ((_hd107268107298_ (let () (declare (not safe)) - (##car _e107272107298_))) - (_tl107270107303_ + (##car _e107269107295_))) + (_tl107267107300_ (let () (declare (not safe)) - (##cdr _e107272107298_)))) + (##cdr _e107269107295_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107270107303_)) - ((lambda (_L107306_ _L107307_) + _tl107267107300_)) + ((lambda (_L107303_ _L107304_) (let () (declare (not safe)) (gxc#generate-runtime-lambda-form - _L107307_ - _L107306_))) - _hd107271107301_ - _hd107268107293_) + _L107304_ + _L107303_))) + _hd107268107298_ + _hd107265107290_) (let () (declare (not safe)) - (_g107260107277_ - _g107261107280_))))) + (_g107257107274_ + _g107258107277_))))) (let () (declare (not safe)) - (_g107260107277_ _g107261107280_))))) + (_g107257107274_ _g107258107277_))))) (let () (declare (not safe)) - (_g107260107277_ _g107261107280_))))) + (_g107257107274_ _g107258107277_))))) (let () (declare (not safe)) - (_g107260107277_ _g107261107280_)))))) + (_g107257107274_ _g107258107277_)))))) (declare (not safe)) - (_g107259107322_ _stx107258_)))) + (_g107256107319_ _stx107255_)))) (define gxc#generate-runtime-lambda-form - (lambda (_hd107218_ _body107219_) - (let* ((_hd107221_ + (lambda (_hd107215_ _body107216_) + (let* ((_hd107218_ (let () (declare (not safe)) - (gxc#generate-runtime-lambda-head _hd107218_))) - (_body107223_ + (gxc#generate-runtime-lambda-head _hd107215_))) + (_body107220_ (let () (declare (not safe)) - (gxc#compile-e__0 _body107219_))) - (_body107255_ - (let* ((_body107224107232_ _body107223_) - (_else107226107240_ + (gxc#compile-e__0 _body107216_))) + (_body107252_ + (let* ((_body107221107229_ _body107220_) + (_else107223107237_ (lambda () (let () (declare (not safe)) - (cons _body107223_ '())))) - (_K107228107245_ - (lambda (_exprs107243_) _exprs107243_))) + (cons _body107220_ '())))) + (_K107225107242_ + (lambda (_exprs107240_) _exprs107240_))) (if (let () (declare (not safe)) - (##pair? _body107224107232_)) - (let ((_hd107229107248_ + (##pair? _body107221107229_)) + (let ((_hd107226107245_ (let () (declare (not safe)) - (##car _body107224107232_))) - (_tl107230107250_ + (##car _body107221107229_))) + (_tl107227107247_ (let () (declare (not safe)) - (##cdr _body107224107232_)))) + (##cdr _body107221107229_)))) (if (let () (declare (not safe)) - (##eq? _hd107229107248_ 'begin)) - (let ((_exprs107253_ _tl107230107250_)) + (##eq? _hd107226107245_ 'begin)) + (let ((_exprs107250_ _tl107227107247_)) (declare (not safe)) - (_K107228107245_ _exprs107253_)) + (_K107225107242_ _exprs107250_)) (let () (declare (not safe)) - (_else107226107240_)))) - (let () (declare (not safe)) (_else107226107240_)))))) - (let ((__tmp111555 + (_else107223107237_)))) + (let () (declare (not safe)) (_else107223107237_)))))) + (let ((__tmp111552 (let () (declare (not safe)) - (cons _hd107221_ _body107255_)))) + (cons _hd107218_ _body107252_)))) (declare (not safe)) - (cons 'lambda __tmp111555))))) + (cons 'lambda __tmp111552))))) (define gxc#generate-runtime-lambda-head - (lambda (_hd107216_) + (lambda (_hd107213_) (let () (declare (not safe)) - (gx#stx-map1 gxc#generate-runtime-binding-id* _hd107216_)))) + (gx#stx-map1 gxc#generate-runtime-binding-id* _hd107213_)))) (define gxc#generate-runtime-case-lambda% - (lambda (_stx105759_) - (letrec ((_dispatch-case?105761_ - (lambda (_hd106446_ _body106447_) - (let* ((_form106449_ - (let ((__tmp111556 + (lambda (_stx105756_) + (letrec ((_dispatch-case?105758_ + (lambda (_hd106443_ _body106444_) + (let* ((_form106446_ + (let ((__tmp111553 (let () (declare (not safe)) - (cons _body106447_ '())))) + (cons _body106444_ '())))) (declare (not safe)) - (cons _hd106446_ __tmp111556))) - (___stx110136110137_ _form106449_) - (_g106454106611_ + (cons _hd106443_ __tmp111553))) + (___stx110133110134_ _form106446_) + (_g106451106608_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110136110137_))))) - (let ((___kont110138110139_ - (lambda (_L107136_ _L107137_ _L107138_) '#t)) - (___kont110144110145_ - (lambda (_L106924_ + ___stx110133110134_))))) + (let ((___kont110135110136_ + (lambda (_L107133_ _L107134_ _L107135_) '#t)) + (___kont110141110142_ + (lambda (_L106921_ + _L106922_ + _L106923_ + _L106924_ _L106925_ - _L106926_ - _L106927_ - _L106928_ - _L106929_) + _L106926_) '#t)) - (___kont110150110151_ - (lambda (_L106719_ - _L106720_ - _L106721_ - _L106722_) + (___kont110147110148_ + (lambda (_L106716_ + _L106717_ + _L106718_ + _L106719_) '#t)) - (___kont110152110153_ (lambda () '#f))) - (let* ((___match110277110278_ - (lambda (_e106573106623_ - _hd106572106626_ - _tl106571106628_ - _e106576106631_ - _hd106575106634_ - _tl106574106636_ - _e106579106639_ - _hd106578106642_ - _tl106577106644_ - _e106582106647_ - _hd106581106650_ - _tl106580106652_ - _e106585106655_ - _hd106584106658_ - _tl106583106660_ - _e106588106663_ - _hd106587106666_ - _tl106586106668_ - _e106591106671_ - _hd106590106674_ - _tl106589106676_ - _e106594106679_ - _hd106593106682_ - _tl106592106684_ - _e106597106687_ - _hd106596106690_ - _tl106595106692_ - _e106600106695_ - _hd106599106698_ - _tl106598106700_ - _e106603106703_ - _hd106602106706_ - _tl106601106708_ - _e106606106711_ - _hd106605106714_ - _tl106604106716_) - (let ((_L106719_ _hd106605106714_) - (_L106720_ _hd106596106690_) - (_L106721_ _hd106587106666_) - (_L106722_ _hd106572106626_)) + (___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_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L106722_)) + (gx#identifier? _L106719_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L106721_ + _L106718_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _L106722_ - _L106719_)) - (let ((__tmp111557 + _L106719_ + _L106716_)) + (let ((__tmp111554 (let () (declare (not safe)) (gx#free-identifier=? - _L106720_ - _L106722_)))) + _L106717_ + _L106719_)))) (declare (not safe)) - (not __tmp111557))) - (___kont110150110151_ - _L106719_ - _L106720_ - _L106721_ - _L106722_) - (___kont110152110153_))))) - (___match110249110250_ - (lambda (_e106573106623_ - _hd106572106626_ - _tl106571106628_ - _e106576106631_ - _hd106575106634_ - _tl106574106636_ - _e106579106639_ - _hd106578106642_ - _tl106577106644_ - _e106582106647_ - _hd106581106650_ - _tl106580106652_ - _e106585106655_ - _hd106584106658_ - _tl106583106660_ - _e106588106663_ - _hd106587106666_ - _tl106586106668_ - _e106591106671_ - _hd106590106674_ - _tl106589106676_ - _e106594106679_ - _hd106593106682_ - _tl106592106684_ - _e106597106687_ - _hd106596106690_ - _tl106595106692_) + (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_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106589106676_)) - (let ((_e106600106695_ + (gx#stx-pair? _tl106586106673_)) + (let ((_e106597106692_ (let () (declare (not safe)) - (gx#stx-e _tl106589106676_)))) - (let ((_tl106598106700_ + (gx#stx-e _tl106586106673_)))) + (let ((_tl106595106697_ (let () (declare (not safe)) - (##cdr _e106600106695_))) - (_hd106599106698_ + (##cdr _e106597106692_))) + (_hd106596106695_ (let () (declare (not safe)) - (##car _e106600106695_)))) + (##car _e106597106692_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106599106698_)) - (let ((_e106603106703_ + _hd106596106695_)) + (let ((_e106600106700_ (let () (declare (not safe)) (gx#stx-e - _hd106599106698_)))) - (let ((_tl106601106708_ + _hd106596106695_)))) + (let ((_tl106598106705_ (let () (declare (not safe)) - (##cdr _e106603106703_))) - (_hd106602106706_ + (##cdr _e106600106700_))) + (_hd106599106703_ (let () (declare (not safe)) - (##car _e106603106703_)))) + (##car _e106600106700_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd106602106706_)) + _hd106599106703_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd106602106706_)) + _hd106599106703_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl106601106708_)) - (let ((_e106606106711_ + (gx#stx-pair? _tl106598106705_)) + (let ((_e106603106708_ (let () (declare (not safe)) - (gx#stx-e _tl106601106708_)))) - (let ((_tl106604106716_ + (gx#stx-e _tl106598106705_)))) + (let ((_tl106601106713_ (let () (declare (not safe)) - (##cdr _e106606106711_))) - (_hd106605106714_ + (##cdr _e106603106708_))) + (_hd106602106711_ (let () (declare (not safe)) - (##car _e106606106711_)))) + (##car _e106603106708_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106604106716_)) + (gx#stx-null? _tl106601106713_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl106598106700_)) + (gx#stx-null? _tl106595106697_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl106574106636_)) - (___match110277110278_ - _e106573106623_ - _hd106572106626_ - _tl106571106628_ - _e106576106631_ - _hd106575106634_ - _tl106574106636_ - _e106579106639_ - _hd106578106642_ - _tl106577106644_ - _e106582106647_ - _hd106581106650_ - _tl106580106652_ - _e106585106655_ - _hd106584106658_ - _tl106583106660_ - _e106588106663_ - _hd106587106666_ - _tl106586106668_ - _e106591106671_ - _hd106590106674_ - _tl106589106676_ - _e106594106679_ - _hd106593106682_ - _tl106592106684_ - _e106597106687_ - _hd106596106690_ - _tl106595106692_ - _e106600106695_ - _hd106599106698_ - _tl106598106700_ - _e106603106703_ - _hd106602106706_ - _tl106601106708_ - _e106606106711_ - _hd106605106714_ - _tl106604106716_) - (___kont110152110153_)) - (___kont110152110153_)) - (___kont110152110153_)))) - (___kont110152110153_)) - (___kont110152110153_)) - (___kont110152110153_)))) + (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_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110152110153_)))) - (___kont110152110153_)))) - (___match110179110180_ - (lambda (_e106509106764_ - _hd106508106767_ - _tl106507106769_ - ___splice110146110147_ - _target106510106772_ - _tl106512106774_) - (letrec ((_loop106513106777_ - (lambda (_hd106511106780_ - _arg106517106782_) + (___kont110149110150_)))) + (___kont110149110150_)))) + (___match110176110177_ + (lambda (_e106506106761_ + _hd106505106764_ + _tl106504106766_ + ___splice110143110144_ + _target106507106769_ + _tl106509106771_) + (letrec ((_loop106510106774_ + (lambda (_hd106508106777_ + _arg106514106779_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106511106780_)) - (let ((_e106514106785_ + _hd106508106777_)) + (let ((_e106511106782_ (let () (declare (not safe)) (gx#stx-e - _hd106511106780_)))) - (let ((_lp-tl106516106790_ + _hd106508106777_)))) + (let ((_lp-tl106513106787_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e106514106785_))) - (_lp-hd106515106788_ - (let () (declare (not safe)) (##car _e106514106785_)))) - (let ((__tmp111572 + (##cdr _e106511106782_))) + (_lp-hd106512106785_ + (let () (declare (not safe)) (##car _e106511106782_)))) + (let ((__tmp111569 (let () (declare (not safe)) - (cons _lp-hd106515106788_ _arg106517106782_)))) + (cons _lp-hd106512106785_ _arg106514106779_)))) (declare (not safe)) - (_loop106513106777_ _lp-tl106516106790_ __tmp111572)))) + (_loop106510106774_ _lp-tl106513106787_ __tmp111569)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg106518106793_ - (reverse _arg106517106782_))) + (let ((_arg106515106790_ + (reverse _arg106514106779_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106507106769_)) - (let ((_e106521106796_ + _tl106504106766_)) + (let ((_e106518106793_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl106507106769_)))) - (let ((_tl106519106801_ + (gx#stx-e _tl106504106766_)))) + (let ((_tl106516106798_ (let () (declare (not safe)) - (##cdr _e106521106796_))) - (_hd106520106799_ + (##cdr _e106518106793_))) + (_hd106517106796_ (let () (declare (not safe)) - (##car _e106521106796_)))) + (##car _e106518106793_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd106520106799_)) - (let ((_e106524106804_ + (gx#stx-pair? _hd106517106796_)) + (let ((_e106521106801_ (let () (declare (not safe)) - (gx#stx-e _hd106520106799_)))) - (let ((_tl106522106809_ + (gx#stx-e _hd106517106796_)))) + (let ((_tl106519106806_ (let () (declare (not safe)) - (##cdr _e106524106804_))) - (_hd106523106807_ + (##cdr _e106521106801_))) + (_hd106520106804_ (let () (declare (not safe)) - (##car _e106524106804_)))) + (##car _e106521106801_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106523106807_)) + (gx#identifier? _hd106520106804_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd106523106807_)) + (gx#stx-eq? '%#call _hd106520106804_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106522106809_)) - (let ((_e106527106812_ + (gx#stx-pair? _tl106519106806_)) + (let ((_e106524106809_ (let () (declare (not safe)) (gx#stx-e - _tl106522106809_)))) - (let ((_tl106525106817_ + _tl106519106806_)))) + (let ((_tl106522106814_ (let () (declare (not safe)) - (##cdr _e106527106812_))) - (_hd106526106815_ + (##cdr _e106524106809_))) + (_hd106523106812_ (let () (declare (not safe)) - (##car _e106527106812_)))) + (##car _e106524106809_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106526106815_)) - (let ((_e106530106820_ + _hd106523106812_)) + (let ((_e106527106817_ (let () (declare (not safe)) (gx#stx-e - _hd106526106815_)))) - (let ((_tl106528106825_ + _hd106523106812_)))) + (let ((_tl106525106822_ (let () (declare (not safe)) - (##cdr _e106530106820_))) - (_hd106529106823_ + (##cdr _e106527106817_))) + (_hd106526106820_ (let () (declare (not safe)) - (##car _e106530106820_)))) + (##car _e106527106817_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd106529106823_)) + _hd106526106820_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd106529106823_)) + (gx#stx-eq? '%#ref _hd106526106820_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106528106825_)) - (let ((_e106533106828_ + (gx#stx-pair? _tl106525106822_)) + (let ((_e106530106825_ (let () (declare (not safe)) - (gx#stx-e _tl106528106825_)))) - (let ((_tl106531106833_ + (gx#stx-e _tl106525106822_)))) + (let ((_tl106528106830_ (let () (declare (not safe)) - (##cdr _e106533106828_))) - (_hd106532106831_ + (##cdr _e106530106825_))) + (_hd106529106828_ (let () (declare (not safe)) - (##car _e106533106828_)))) + (##car _e106530106825_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106531106833_)) + (gx#stx-null? _tl106528106830_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106525106817_)) - (let ((_e106536106836_ + (gx#stx-pair? _tl106522106814_)) + (let ((_e106533106833_ (let () (declare (not safe)) - (gx#stx-e _tl106525106817_)))) - (let ((_tl106534106841_ + (gx#stx-e _tl106522106814_)))) + (let ((_tl106531106838_ (let () (declare (not safe)) - (##cdr _e106536106836_))) - (_hd106535106839_ + (##cdr _e106533106833_))) + (_hd106532106836_ (let () (declare (not safe)) - (##car _e106536106836_)))) + (##car _e106533106833_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106535106839_)) - (let ((_e106539106844_ + _hd106532106836_)) + (let ((_e106536106841_ (let () (declare (not safe)) (gx#stx-e - _hd106535106839_)))) - (let ((_tl106537106849_ + _hd106532106836_)))) + (let ((_tl106534106846_ (let () (declare (not safe)) - (##cdr _e106539106844_))) - (_hd106538106847_ + (##cdr _e106536106841_))) + (_hd106535106844_ (let () (declare (not safe)) - (##car _e106539106844_)))) + (##car _e106536106841_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd106538106847_)) + _hd106535106844_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd106538106847_)) + _hd106535106844_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl106537106849_)) - (let ((_e106542106852_ + (gx#stx-pair? _tl106534106846_)) + (let ((_e106539106849_ (let () (declare (not safe)) - (gx#stx-e _tl106537106849_)))) - (let ((_tl106540106857_ + (gx#stx-e _tl106534106846_)))) + (let ((_tl106537106854_ (let () (declare (not safe)) - (##cdr _e106542106852_))) - (_hd106541106855_ + (##cdr _e106539106849_))) + (_hd106538106852_ (let () (declare (not safe)) - (##car _e106542106852_)))) + (##car _e106539106849_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106540106857_)) + (gx#stx-null? _tl106537106854_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl106534106841_)) + (gx#stx-pair/null? _tl106531106838_)) (if (fx>= (let () (declare (not safe)) - (gx#stx-length _tl106534106841_)) + (gx#stx-length _tl106531106838_)) '1) - (let ((___splice110148110149_ + (let ((___splice110145110146_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl106534106841_ + _tl106531106838_ '1)))) - (let ((_tl106545106862_ + (let ((_tl106542106859_ (let () (declare (not safe)) (##vector-ref - ___splice110148110149_ + ___splice110145110146_ '1))) - (_target106543106860_ + (_target106540106857_ (let () (declare (not safe)) (##vector-ref - ___splice110148110149_ + ___splice110145110146_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106545106862_)) - (let ((_e106554106865_ + _tl106542106859_)) + (let ((_e106551106862_ (let () (declare (not safe)) (gx#stx-e - _tl106545106862_)))) - (let ((_tl106552106870_ + _tl106542106859_)))) + (let ((_tl106549106867_ (let () (declare (not safe)) - (##cdr _e106554106865_))) - (_hd106553106868_ + (##cdr _e106551106862_))) + (_hd106550106865_ (let () (declare (not safe)) - (##car _e106554106865_)))) + (##car _e106551106862_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106553106868_)) - (let ((_e106557106873_ + _hd106550106865_)) + (let ((_e106554106870_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd106553106868_)))) - (let ((_tl106555106878_ - (let () (declare (not safe)) (##cdr _e106557106873_))) - (_hd106556106876_ - (let () (declare (not safe)) (##car _e106557106873_)))) + (gx#stx-e _hd106550106865_)))) + (let ((_tl106552106875_ + (let () (declare (not safe)) (##cdr _e106554106870_))) + (_hd106553106873_ + (let () (declare (not safe)) (##car _e106554106870_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106556106876_)) + (gx#identifier? _hd106553106873_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd106556106876_)) + (gx#stx-eq? '%#ref _hd106553106873_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106555106878_)) - (let ((_e106560106881_ + (gx#stx-pair? _tl106552106875_)) + (let ((_e106557106878_ (let () (declare (not safe)) - (gx#stx-e _tl106555106878_)))) - (let ((_tl106558106886_ + (gx#stx-e _tl106552106875_)))) + (let ((_tl106555106883_ (let () (declare (not safe)) - (##cdr _e106560106881_))) - (_hd106559106884_ + (##cdr _e106557106878_))) + (_hd106556106881_ (let () (declare (not safe)) - (##car _e106560106881_)))) + (##car _e106557106878_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106558106886_)) + (gx#stx-null? _tl106555106883_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl106552106870_)) - (letrec ((_loop106546106889_ - (lambda (_hd106544106892_ - _xarg106550106894_) + (gx#stx-null? _tl106549106867_)) + (letrec ((_loop106543106886_ + (lambda (_hd106541106889_ + _xarg106547106891_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106544106892_)) - (let ((_e106547106897_ + _hd106541106889_)) + (let ((_e106544106894_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd106544106892_)))) - (let ((_lp-tl106549106902_ + (gx#stx-e _hd106541106889_)))) + (let ((_lp-tl106546106899_ (let () (declare (not safe)) - (##cdr _e106547106897_))) - (_lp-hd106548106900_ + (##cdr _e106544106894_))) + (_lp-hd106545106897_ (let () (declare (not safe)) - (##car _e106547106897_)))) + (##car _e106544106894_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd106548106900_)) - (let ((_e106563106905_ + (gx#stx-pair? _lp-hd106545106897_)) + (let ((_e106560106902_ (let () (declare (not safe)) - (gx#stx-e _lp-hd106548106900_)))) - (let ((_tl106561106910_ + (gx#stx-e _lp-hd106545106897_)))) + (let ((_tl106558106907_ (let () (declare (not safe)) - (##cdr _e106563106905_))) - (_hd106562106908_ + (##cdr _e106560106902_))) + (_hd106559106905_ (let () (declare (not safe)) - (##car _e106563106905_)))) + (##car _e106560106902_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106562106908_)) + (gx#identifier? _hd106559106905_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd106562106908_)) + (gx#stx-eq? '%#ref _hd106559106905_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106561106910_)) - (let ((_e106566106913_ + (gx#stx-pair? _tl106558106907_)) + (let ((_e106563106910_ (let () (declare (not safe)) (gx#stx-e - _tl106561106910_)))) - (let ((_tl106564106918_ + _tl106558106907_)))) + (let ((_tl106561106915_ (let () (declare (not safe)) - (##cdr _e106566106913_))) - (_hd106565106916_ + (##cdr _e106563106910_))) + (_hd106562106913_ (let () (declare (not safe)) - (##car _e106566106913_)))) + (##car _e106563106910_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106564106918_)) - (let ((__tmp111571 + _tl106561106915_)) + (let ((__tmp111568 (let () (declare (not safe)) - (cons _hd106565106916_ + (cons _hd106562106913_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg106550106894_)))) + _xarg106547106891_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop106546106889_ - _lp-tl106549106902_ - __tmp111571)) - (___match110249110250_ - _e106509106764_ - _hd106508106767_ - _tl106507106769_ - _e106521106796_ - _hd106520106799_ - _tl106519106801_ - _e106524106804_ - _hd106523106807_ - _tl106522106809_ - _e106527106812_ - _hd106526106815_ - _tl106525106817_ - _e106530106820_ - _hd106529106823_ - _tl106528106825_ - _e106533106828_ - _hd106532106831_ - _tl106531106833_ - _e106536106836_ - _hd106535106839_ - _tl106534106841_ - _e106539106844_ - _hd106538106847_ - _tl106537106849_ - _e106542106852_ - _hd106541106855_ - _tl106540106857_)))) - (___match110249110250_ - _e106509106764_ - _hd106508106767_ - _tl106507106769_ - _e106521106796_ - _hd106520106799_ - _tl106519106801_ - _e106524106804_ - _hd106523106807_ - _tl106522106809_ - _e106527106812_ - _hd106526106815_ - _tl106525106817_ - _e106530106820_ - _hd106529106823_ - _tl106528106825_ - _e106533106828_ - _hd106532106831_ - _tl106531106833_ - _e106536106836_ - _hd106535106839_ - _tl106534106841_ - _e106539106844_ - _hd106538106847_ - _tl106537106849_ - _e106542106852_ - _hd106541106855_ - _tl106540106857_)) - (___match110249110250_ - _e106509106764_ - _hd106508106767_ - _tl106507106769_ - _e106521106796_ - _hd106520106799_ - _tl106519106801_ - _e106524106804_ - _hd106523106807_ - _tl106522106809_ - _e106527106812_ - _hd106526106815_ - _tl106525106817_ - _e106530106820_ - _hd106529106823_ - _tl106528106825_ - _e106533106828_ - _hd106532106831_ - _tl106531106833_ - _e106536106836_ - _hd106535106839_ - _tl106534106841_ - _e106539106844_ - _hd106538106847_ - _tl106537106849_ - _e106542106852_ - _hd106541106855_ - _tl106540106857_)) - (___match110249110250_ - _e106509106764_ - _hd106508106767_ - _tl106507106769_ - _e106521106796_ - _hd106520106799_ - _tl106519106801_ - _e106524106804_ - _hd106523106807_ - _tl106522106809_ - _e106527106812_ - _hd106526106815_ - _tl106525106817_ - _e106530106820_ - _hd106529106823_ - _tl106528106825_ - _e106533106828_ - _hd106532106831_ - _tl106531106833_ - _e106536106836_ - _hd106535106839_ - _tl106534106841_ - _e106539106844_ - _hd106538106847_ - _tl106537106849_ - _e106542106852_ - _hd106541106855_ - _tl106540106857_)))) - (___match110249110250_ - _e106509106764_ - _hd106508106767_ - _tl106507106769_ - _e106521106796_ - _hd106520106799_ - _tl106519106801_ - _e106524106804_ - _hd106523106807_ - _tl106522106809_ - _e106527106812_ - _hd106526106815_ - _tl106525106817_ - _e106530106820_ - _hd106529106823_ - _tl106528106825_ - _e106533106828_ - _hd106532106831_ - _tl106531106833_ - _e106536106836_ - _hd106535106839_ - _tl106534106841_ - _e106539106844_ - _hd106538106847_ - _tl106537106849_ - _e106542106852_ - _hd106541106855_ - _tl106540106857_)))) - (let ((_xarg106551106921_ (reverse _xarg106550106894_))) + (_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_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106519106801_)) - (let ((_L106924_ _hd106559106884_) - (_L106925_ _xarg106551106921_) - (_L106926_ _hd106541106855_) - (_L106927_ _hd106532106831_) - (_L106928_ _tl106512106774_) - (_L106929_ _arg106518106793_)) - (if (and (let ((__tmp111569 - (let ((__tmp111570 - (lambda (_g106972106975_ - _g106973106977_) + (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_) (let () (declare (not safe)) - (cons _g106972106975_ - _g106973106977_))))) + (cons _g106969106972_ + _g106970106974_))))) (declare (not safe)) - (foldr1 __tmp111570 + (foldr1 __tmp111567 '() - _L106929_)))) + _L106926_)))) (declare (not safe)) - (gx#identifier-list? __tmp111569)) + (gx#identifier-list? __tmp111566)) (let () (declare (not safe)) - (gx#identifier? _L106928_)) + (gx#identifier? _L106925_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L106927_ + _L106924_ 'apply)) - (fx= (length (let ((__tmp111567 - (lambda (_g106979106982_ - _g106980106984_) + (fx= (length (let ((__tmp111564 + (lambda (_g106976106979_ + _g106977106981_) (let () (declare (not safe)) - (cons _g106979106982_ + (cons _g106976106979_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g106980106984_))))) + _g106977106981_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp111567 + (foldr1 __tmp111564 '() - _L106929_))) - (length (let ((__tmp111568 - (lambda (_g106986106989_ - _g106987106991_) + _L106926_))) + (length (let ((__tmp111565 + (lambda (_g106983106986_ + _g106984106988_) (let () (declare (not safe)) - (cons _g106986106989_ + (cons _g106983106986_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g106987106991_))))) + _g106984106988_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp111568 + (foldr1 __tmp111565 '() - _L106925_)))) - (let ((__tmp111565 - (let ((__tmp111566 - (lambda (_g106993106996_ - _g106994106998_) + _L106922_)))) + (let ((__tmp111562 + (let ((__tmp111563 + (lambda (_g106990106993_ + _g106991106995_) (let () (declare (not safe)) - (cons _g106993106996_ - _g106994106998_))))) + (cons _g106990106993_ + _g106991106995_))))) (declare (not safe)) - (foldr1 __tmp111566 + (foldr1 __tmp111563 '() - _L106929_))) - (__tmp111563 - (let ((__tmp111564 - (lambda (_g107000107003_ - _g107001107005_) + _L106926_))) + (__tmp111560 + (let ((__tmp111561 + (lambda (_g106997107000_ + _g106998107002_) (let () (declare (not safe)) - (cons _g107000107003_ - _g107001107005_))))) + (cons _g106997107000_ + _g106998107002_))))) (declare (not safe)) - (foldr1 __tmp111564 + (foldr1 __tmp111561 '() - _L106925_)))) + _L106922_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp111565 - __tmp111563)) + __tmp111562 + __tmp111560)) (let () (declare (not safe)) (gx#free-identifier=? - _L106928_ - _L106924_)) - (let ((__tmp111558 - (let ((__tmp111562 - (lambda (_g107007107009_) + _L106925_ + _L106921_)) + (let ((__tmp111555 + (let ((__tmp111559 + (lambda (_g107004107006_) (let () (declare (not safe)) (gx#free-identifier=? - _g107007107009_ - _L106926_)))) - (__tmp111559 - (let ((__tmp111561 - (lambda (_g107011107014_ + _g107004107006_ + _L106923_)))) + (__tmp111556 + (let ((__tmp111558 + (lambda (_g107008107011_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g107012107016_) + _g107009107013_) (let () (declare (not safe)) - (cons _g107011107014_ _g107012107016_)))) - (__tmp111560 - (let () (declare (not safe)) (cons _L106928_ '())))) + (cons _g107008107011_ _g107009107013_)))) + (__tmp111557 + (let () (declare (not safe)) (cons _L106925_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp111561 - __tmp111560 - _L106929_)))) + (foldr1 __tmp111558 + __tmp111557 + _L106926_)))) (declare (not safe)) - (find __tmp111562 __tmp111559)))) + (find __tmp111559 __tmp111556)))) (declare (not safe)) - (not __tmp111558))) - (___kont110144110145_ + (not __tmp111555))) + (___kont110141110142_ + _L106921_ + _L106922_ + _L106923_ _L106924_ _L106925_ - _L106926_ - _L106927_ - _L106928_ - _L106929_) - (___match110249110250_ - _e106509106764_ - _hd106508106767_ - _tl106507106769_ - _e106521106796_ - _hd106520106799_ - _tl106519106801_ - _e106524106804_ - _hd106523106807_ - _tl106522106809_ - _e106527106812_ - _hd106526106815_ - _tl106525106817_ - _e106530106820_ - _hd106529106823_ - _tl106528106825_ - _e106533106828_ - _hd106532106831_ - _tl106531106833_ - _e106536106836_ - _hd106535106839_ - _tl106534106841_ - _e106539106844_ - _hd106538106847_ - _tl106537106849_ - _e106542106852_ - _hd106541106855_ - _tl106540106857_))) - (___match110249110250_ - _e106509106764_ - _hd106508106767_ - _tl106507106769_ - _e106521106796_ - _hd106520106799_ - _tl106519106801_ - _e106524106804_ - _hd106523106807_ - _tl106522106809_ - _e106527106812_ - _hd106526106815_ - _tl106525106817_ - _e106530106820_ - _hd106529106823_ - _tl106528106825_ - _e106533106828_ - _hd106532106831_ - _tl106531106833_ - _e106536106836_ - _hd106535106839_ - _tl106534106841_ - _e106539106844_ - _hd106538106847_ - _tl106537106849_ - _e106542106852_ - _hd106541106855_ - _tl106540106857_))))))) + _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_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop106546106889_ - _target106543106860_ + (_loop106543106886_ + _target106540106857_ '()))) - (___match110249110250_ - _e106509106764_ - _hd106508106767_ - _tl106507106769_ - _e106521106796_ - _hd106520106799_ - _tl106519106801_ - _e106524106804_ - _hd106523106807_ - _tl106522106809_ - _e106527106812_ - _hd106526106815_ - _tl106525106817_ - _e106530106820_ - _hd106529106823_ - _tl106528106825_ - _e106533106828_ - _hd106532106831_ - _tl106531106833_ - _e106536106836_ - _hd106535106839_ - _tl106534106841_ - _e106539106844_ - _hd106538106847_ - _tl106537106849_ - _e106542106852_ - _hd106541106855_ - _tl106540106857_)) - (___match110249110250_ - _e106509106764_ - _hd106508106767_ - _tl106507106769_ - _e106521106796_ - _hd106520106799_ - _tl106519106801_ - _e106524106804_ - _hd106523106807_ - _tl106522106809_ - _e106527106812_ - _hd106526106815_ - _tl106525106817_ - _e106530106820_ - _hd106529106823_ - _tl106528106825_ - _e106533106828_ - _hd106532106831_ - _tl106531106833_ - _e106536106836_ - _hd106535106839_ - _tl106534106841_ - _e106539106844_ - _hd106538106847_ - _tl106537106849_ - _e106542106852_ - _hd106541106855_ - _tl106540106857_)))) - (___match110249110250_ - _e106509106764_ - _hd106508106767_ - _tl106507106769_ - _e106521106796_ - _hd106520106799_ - _tl106519106801_ - _e106524106804_ - _hd106523106807_ - _tl106522106809_ - _e106527106812_ - _hd106526106815_ - _tl106525106817_ - _e106530106820_ - _hd106529106823_ - _tl106528106825_ - _e106533106828_ - _hd106532106831_ - _tl106531106833_ - _e106536106836_ - _hd106535106839_ - _tl106534106841_ - _e106539106844_ - _hd106538106847_ - _tl106537106849_ - _e106542106852_ - _hd106541106855_ - _tl106540106857_)) - (___match110249110250_ - _e106509106764_ - _hd106508106767_ - _tl106507106769_ - _e106521106796_ - _hd106520106799_ - _tl106519106801_ - _e106524106804_ - _hd106523106807_ - _tl106522106809_ - _e106527106812_ - _hd106526106815_ - _tl106525106817_ - _e106530106820_ - _hd106529106823_ - _tl106528106825_ - _e106533106828_ - _hd106532106831_ - _tl106531106833_ - _e106536106836_ - _hd106535106839_ - _tl106534106841_ - _e106539106844_ - _hd106538106847_ - _tl106537106849_ - _e106542106852_ - _hd106541106855_ - _tl106540106857_)) - (___match110249110250_ - _e106509106764_ - _hd106508106767_ - _tl106507106769_ - _e106521106796_ - _hd106520106799_ - _tl106519106801_ - _e106524106804_ - _hd106523106807_ - _tl106522106809_ - _e106527106812_ - _hd106526106815_ - _tl106525106817_ - _e106530106820_ - _hd106529106823_ - _tl106528106825_ - _e106533106828_ - _hd106532106831_ - _tl106531106833_ - _e106536106836_ - _hd106535106839_ - _tl106534106841_ - _e106539106844_ - _hd106538106847_ - _tl106537106849_ - _e106542106852_ - _hd106541106855_ - _tl106540106857_)))) - (___match110249110250_ - _e106509106764_ - _hd106508106767_ - _tl106507106769_ - _e106521106796_ - _hd106520106799_ - _tl106519106801_ - _e106524106804_ - _hd106523106807_ - _tl106522106809_ - _e106527106812_ - _hd106526106815_ - _tl106525106817_ - _e106530106820_ - _hd106529106823_ - _tl106528106825_ - _e106533106828_ - _hd106532106831_ - _tl106531106833_ - _e106536106836_ - _hd106535106839_ - _tl106534106841_ - _e106539106844_ - _hd106538106847_ - _tl106537106849_ - _e106542106852_ - _hd106541106855_ - _tl106540106857_)))) + (___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_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match110249110250_ - _e106509106764_ - _hd106508106767_ - _tl106507106769_ - _e106521106796_ - _hd106520106799_ - _tl106519106801_ - _e106524106804_ - _hd106523106807_ - _tl106522106809_ - _e106527106812_ - _hd106526106815_ - _tl106525106817_ - _e106530106820_ - _hd106529106823_ - _tl106528106825_ - _e106533106828_ - _hd106532106831_ - _tl106531106833_ - _e106536106836_ - _hd106535106839_ - _tl106534106841_ - _e106539106844_ - _hd106538106847_ - _tl106537106849_ - _e106542106852_ - _hd106541106855_ - _tl106540106857_)))) - (___match110249110250_ - _e106509106764_ - _hd106508106767_ - _tl106507106769_ - _e106521106796_ - _hd106520106799_ - _tl106519106801_ - _e106524106804_ - _hd106523106807_ - _tl106522106809_ - _e106527106812_ - _hd106526106815_ - _tl106525106817_ - _e106530106820_ - _hd106529106823_ - _tl106528106825_ - _e106533106828_ - _hd106532106831_ - _tl106531106833_ - _e106536106836_ - _hd106535106839_ - _tl106534106841_ - _e106539106844_ - _hd106538106847_ - _tl106537106849_ - _e106542106852_ - _hd106541106855_ - _tl106540106857_)) - (___match110249110250_ - _e106509106764_ - _hd106508106767_ - _tl106507106769_ - _e106521106796_ - _hd106520106799_ - _tl106519106801_ - _e106524106804_ - _hd106523106807_ - _tl106522106809_ - _e106527106812_ - _hd106526106815_ - _tl106525106817_ - _e106530106820_ - _hd106529106823_ - _tl106528106825_ - _e106533106828_ - _hd106532106831_ - _tl106531106833_ - _e106536106836_ - _hd106535106839_ - _tl106534106841_ - _e106539106844_ - _hd106538106847_ - _tl106537106849_ - _e106542106852_ - _hd106541106855_ - _tl106540106857_)) - (___kont110152110153_)))) - (___kont110152110153_)) - (___kont110152110153_)) - (___kont110152110153_)))) + (___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_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110152110153_)))) - (___kont110152110153_)) - (___kont110152110153_)))) - (___kont110152110153_)) - (___kont110152110153_)) - (___kont110152110153_)))) + (___kont110149110150_)))) + (___kont110149110150_)) + (___kont110149110150_)))) + (___kont110149110150_)) + (___kont110149110150_)) + (___kont110149110150_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110152110153_)))) - (___kont110152110153_)) - (___kont110152110153_)) - (___kont110152110153_)))) - (___kont110152110153_)))) - (___kont110152110153_))))))) + (___kont110149110150_)))) + (___kont110149110150_)) + (___kont110149110150_)) + (___kont110149110150_)))) + (___kont110149110150_)))) + (___kont110149110150_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop106513106777_ - _target106510106772_ + (_loop106510106774_ + _target106507106769_ '()))))) - (___match110167110168_ - (lambda (_e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_) - (letrec ((_loop106465107037_ - (lambda (_hd106463107040_ - _arg106469107042_) + (___match110164110165_ + (lambda (_e106458107021_ + _hd106457107024_ + _tl106456107026_ + ___splice110137110138_ + _target106459107029_ + _tl106461107031_) + (letrec ((_loop106462107034_ + (lambda (_hd106460107037_ + _arg106466107039_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106463107040_)) - (let ((_e106466107045_ + _hd106460107037_)) + (let ((_e106463107042_ (let () (declare (not safe)) (gx#stx-e - _hd106463107040_)))) - (let ((_lp-tl106468107050_ + _hd106460107037_)))) + (let ((_lp-tl106465107047_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e106466107045_))) - (_lp-hd106467107048_ - (let () (declare (not safe)) (##car _e106466107045_)))) - (let ((__tmp111586 + (##cdr _e106463107042_))) + (_lp-hd106464107045_ + (let () (declare (not safe)) (##car _e106463107042_)))) + (let ((__tmp111583 (let () (declare (not safe)) - (cons _lp-hd106467107048_ _arg106469107042_)))) + (cons _lp-hd106464107045_ _arg106466107039_)))) (declare (not safe)) - (_loop106465107037_ _lp-tl106468107050_ __tmp111586)))) + (_loop106462107034_ _lp-tl106465107047_ __tmp111583)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg106470107053_ - (reverse _arg106469107042_))) + (let ((_arg106467107050_ + (reverse _arg106466107039_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106459107029_)) - (let ((_e106473107056_ + _tl106456107026_)) + (let ((_e106470107053_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl106459107029_)))) - (let ((_tl106471107061_ + (gx#stx-e _tl106456107026_)))) + (let ((_tl106468107058_ (let () (declare (not safe)) - (##cdr _e106473107056_))) - (_hd106472107059_ + (##cdr _e106470107053_))) + (_hd106469107056_ (let () (declare (not safe)) - (##car _e106473107056_)))) + (##car _e106470107053_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd106472107059_)) - (let ((_e106476107064_ + (gx#stx-pair? _hd106469107056_)) + (let ((_e106473107061_ (let () (declare (not safe)) - (gx#stx-e _hd106472107059_)))) - (let ((_tl106474107069_ + (gx#stx-e _hd106469107056_)))) + (let ((_tl106471107066_ (let () (declare (not safe)) - (##cdr _e106476107064_))) - (_hd106475107067_ + (##cdr _e106473107061_))) + (_hd106472107064_ (let () (declare (not safe)) - (##car _e106476107064_)))) + (##car _e106473107061_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106475107067_)) + (gx#identifier? _hd106472107064_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd106475107067_)) + (gx#stx-eq? '%#call _hd106472107064_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106474107069_)) - (let ((_e106479107072_ + (gx#stx-pair? _tl106471107066_)) + (let ((_e106476107069_ (let () (declare (not safe)) (gx#stx-e - _tl106474107069_)))) - (let ((_tl106477107077_ + _tl106471107066_)))) + (let ((_tl106474107074_ (let () (declare (not safe)) - (##cdr _e106479107072_))) - (_hd106478107075_ + (##cdr _e106476107069_))) + (_hd106475107072_ (let () (declare (not safe)) - (##car _e106479107072_)))) + (##car _e106476107069_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106478107075_)) - (let ((_e106482107080_ + _hd106475107072_)) + (let ((_e106479107077_ (let () (declare (not safe)) (gx#stx-e - _hd106478107075_)))) - (let ((_tl106480107085_ + _hd106475107072_)))) + (let ((_tl106477107082_ (let () (declare (not safe)) - (##cdr _e106482107080_))) - (_hd106481107083_ + (##cdr _e106479107077_))) + (_hd106478107080_ (let () (declare (not safe)) - (##car _e106482107080_)))) + (##car _e106479107077_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd106481107083_)) + _hd106478107080_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd106481107083_)) + (gx#stx-eq? '%#ref _hd106478107080_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106480107085_)) - (let ((_e106485107088_ + (gx#stx-pair? _tl106477107082_)) + (let ((_e106482107085_ (let () (declare (not safe)) - (gx#stx-e _tl106480107085_)))) - (let ((_tl106483107093_ + (gx#stx-e _tl106477107082_)))) + (let ((_tl106480107090_ (let () (declare (not safe)) - (##cdr _e106485107088_))) - (_hd106484107091_ + (##cdr _e106482107085_))) + (_hd106481107088_ (let () (declare (not safe)) - (##car _e106485107088_)))) + (##car _e106482107085_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106483107093_)) + (gx#stx-null? _tl106480107090_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl106477107077_)) - (let ((___splice110142110143_ + (gx#stx-pair/null? _tl106474107074_)) + (let ((___splice110139110140_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl106477107077_ + _tl106474107074_ '0)))) - (let ((_tl106488107098_ + (let ((_tl106485107095_ (let () (declare (not safe)) (##vector-ref - ___splice110142110143_ + ___splice110139110140_ '1))) - (_target106486107096_ + (_target106483107093_ (let () (declare (not safe)) (##vector-ref - ___splice110142110143_ + ___splice110139110140_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106488107098_)) - (letrec ((_loop106489107101_ - (lambda (_hd106487107104_ + _tl106485107095_)) + (letrec ((_loop106486107098_ + (lambda (_hd106484107101_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg106493107106_) + _xarg106490107103_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd106487107104_)) - (let ((_e106490107109_ + (gx#stx-pair? _hd106484107101_)) + (let ((_e106487107106_ (let () (declare (not safe)) - (gx#stx-e _hd106487107104_)))) - (let ((_lp-tl106492107114_ + (gx#stx-e _hd106484107101_)))) + (let ((_lp-tl106489107111_ (let () (declare (not safe)) - (##cdr _e106490107109_))) - (_lp-hd106491107112_ + (##cdr _e106487107106_))) + (_lp-hd106488107109_ (let () (declare (not safe)) - (##car _e106490107109_)))) + (##car _e106487107106_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd106491107112_)) - (let ((_e106497107117_ + (gx#stx-pair? _lp-hd106488107109_)) + (let ((_e106494107114_ (let () (declare (not safe)) - (gx#stx-e _lp-hd106491107112_)))) - (let ((_tl106495107122_ + (gx#stx-e _lp-hd106488107109_)))) + (let ((_tl106492107119_ (let () (declare (not safe)) - (##cdr _e106497107117_))) - (_hd106496107120_ + (##cdr _e106494107114_))) + (_hd106493107117_ (let () (declare (not safe)) - (##car _e106497107117_)))) + (##car _e106494107114_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106496107120_)) + (gx#identifier? _hd106493107117_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd106496107120_)) + _hd106493107117_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106495107122_)) - (let ((_e106500107125_ + _tl106492107119_)) + (let ((_e106497107122_ (let () (declare (not safe)) (gx#stx-e - _tl106495107122_)))) - (let ((_tl106498107130_ + _tl106492107119_)))) + (let ((_tl106495107127_ (let () (declare (not safe)) - (##cdr _e106500107125_))) - (_hd106499107128_ + (##cdr _e106497107122_))) + (_hd106496107125_ (let () (declare (not safe)) - (##car _e106500107125_)))) + (##car _e106497107122_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106498107130_)) - (let ((__tmp111585 + _tl106495107127_)) + (let ((__tmp111582 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _hd106499107128_ _xarg106493107106_)))) + (cons _hd106496107125_ _xarg106490107103_)))) (declare (not safe)) - (_loop106489107101_ _lp-tl106492107114_ __tmp111585)) - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_)))) + (_loop106486107098_ _lp-tl106489107111_ __tmp111582)) + (___match110176110177_ + _e106458107021_ + _hd106457107024_ + _tl106456107026_ + ___splice110137110138_ + _target106459107029_ + _tl106461107031_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_)) - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_)) - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_)))) - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_)))) - (let ((_xarg106494107133_ (reverse _xarg106493107106_))) + (___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_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106471107061_)) - (let ((_L107136_ _xarg106494107133_) - (_L107137_ _hd106484107091_) - (_L107138_ _arg106470107053_)) - (if (and (let ((__tmp111583 - (let ((__tmp111584 - (lambda (_g107166107169_ - _g107167107171_) + (gx#stx-null? _tl106468107058_)) + (let ((_L107133_ _xarg106491107130_) + (_L107134_ _hd106481107088_) + (_L107135_ _arg106467107050_)) + (if (and (let ((__tmp111580 + (let ((__tmp111581 + (lambda (_g107163107166_ + _g107164107168_) (let () (declare (not safe)) - (cons _g107166107169_ - _g107167107171_))))) + (cons _g107163107166_ + _g107164107168_))))) (declare (not safe)) - (foldr1 __tmp111584 + (foldr1 __tmp111581 '() - _L107138_)))) + _L107135_)))) (declare (not safe)) - (gx#identifier-list? __tmp111583)) - (fx= (length (let ((__tmp111581 - (lambda (_g107173107176_ + (gx#identifier-list? __tmp111580)) + (fx= (length (let ((__tmp111578 + (lambda (_g107170107173_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g107174107178_) + _g107171107175_) (let () (declare (not safe)) - (cons _g107173107176_ _g107174107178_))))) + (cons _g107170107173_ _g107171107175_))))) (declare (not safe)) - (foldr1 __tmp111581 '() _L107138_))) + (foldr1 __tmp111578 '() _L107135_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (length (let ((__tmp111582 - (lambda (_g107180107183_ + (length (let ((__tmp111579 + (lambda (_g107177107180_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g107181107185_) + _g107178107182_) (let () (declare (not safe)) - (cons _g107180107183_ _g107181107185_))))) + (cons _g107177107180_ _g107178107182_))))) (declare (not safe)) - (foldr1 __tmp111582 '() _L107136_)))) + (foldr1 __tmp111579 '() _L107133_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp111579 - (let ((__tmp111580 - (lambda (_g107187107190_ - _g107188107192_) + (let ((__tmp111576 + (let ((__tmp111577 + (lambda (_g107184107187_ + _g107185107189_) (let () (declare (not safe)) - (cons _g107187107190_ - _g107188107192_))))) + (cons _g107184107187_ + _g107185107189_))))) (declare (not safe)) - (foldr1 __tmp111580 + (foldr1 __tmp111577 '() - _L107138_))) - (__tmp111577 - (let ((__tmp111578 - (lambda (_g107194107197_ - _g107195107199_) + _L107135_))) + (__tmp111574 + (let ((__tmp111575 + (lambda (_g107191107194_ + _g107192107196_) (let () (declare (not safe)) - (cons _g107194107197_ - _g107195107199_))))) + (cons _g107191107194_ + _g107192107196_))))) (declare (not safe)) - (foldr1 __tmp111578 + (foldr1 __tmp111575 '() - _L107136_)))) + _L107133_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp111579 - __tmp111577)) - (let ((__tmp111573 - (let ((__tmp111576 - (lambda (_g107201107203_) + __tmp111576 + __tmp111574)) + (let ((__tmp111570 + (let ((__tmp111573 + (lambda (_g107198107200_) (let () (declare (not safe)) (gx#free-identifier=? - _g107201107203_ - _L107137_)))) - (__tmp111574 - (let ((__tmp111575 - (lambda (_g107205107208_ + _g107198107200_ + _L107134_)))) + (__tmp111571 + (let ((__tmp111572 + (lambda (_g107202107205_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g107206107210_) + _g107203107207_) (let () (declare (not safe)) - (cons _g107205107208_ _g107206107210_))))) + (cons _g107202107205_ _g107203107207_))))) (declare (not safe)) - (foldr1 __tmp111575 '() _L107138_)))) + (foldr1 __tmp111572 '() _L107135_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (find __tmp111576 - __tmp111574)))) + (find __tmp111573 + __tmp111571)))) (declare (not safe)) - (not __tmp111573))) - (___kont110138110139_ - _L107136_ - _L107137_ - _L107138_) - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_))) - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_))))))) + (not __tmp111570))) + (___kont110135110136_ + _L107133_ + _L107134_ + _L107135_) + (___match110176110177_ + _e106458107021_ + _hd106457107024_ + _tl106456107026_ + ___splice110137110138_ + _target106459107029_ + _tl106461107031_))) + (___match110176110177_ + _e106458107021_ + _hd106457107024_ + _tl106456107026_ + ___splice110137110138_ + _target106459107029_ + _tl106461107031_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop106489107101_ - _target106486107096_ + (_loop106486107098_ + _target106483107093_ '()))) - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_)))) - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_)) - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_)))) - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_)) - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_)) - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_)))) + (___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_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_)))) - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_)) - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_)) - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_)))) - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_)))) - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_))))))) + (___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_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop106465107037_ - _target106462107032_ + (_loop106462107034_ + _target106459107029_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110136110137_)) - (let ((_e106461107024_ + (gx#stx-pair? ___stx110133110134_)) + (let ((_e106458107021_ (let () (declare (not safe)) - (gx#stx-e ___stx110136110137_)))) - (let ((_tl106459107029_ + (gx#stx-e ___stx110133110134_)))) + (let ((_tl106456107026_ (let () (declare (not safe)) - (##cdr _e106461107024_))) - (_hd106460107027_ + (##cdr _e106458107021_))) + (_hd106457107024_ (let () (declare (not safe)) - (##car _e106461107024_)))) + (##car _e106458107021_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd106460107027_)) - (let ((___splice110140110141_ + (gx#stx-pair/null? _hd106457107024_)) + (let ((___splice110137110138_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd106460107027_ + _hd106457107024_ '0)))) - (let ((_tl106464107034_ + (let ((_tl106461107031_ (let () (declare (not safe)) (##vector-ref - ___splice110140110141_ + ___splice110137110138_ '1))) - (_target106462107032_ + (_target106459107029_ (let () (declare (not safe)) (##vector-ref - ___splice110140110141_ + ___splice110137110138_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106464107034_)) - (___match110167110168_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_) - (___match110179110180_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - ___splice110140110141_ - _target106462107032_ - _tl106464107034_)))) + _tl106461107031_)) + (___match110164110165_ + _e106458107021_ + _hd106457107024_ + _tl106456107026_ + ___splice110137110138_ + _target106459107029_ + _tl106461107031_) + (___match110176110177_ + _e106458107021_ + _hd106457107024_ + _tl106456107026_ + ___splice110137110138_ + _target106459107029_ + _tl106461107031_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106459107029_)) - (let ((_e106576106631_ + (gx#stx-pair? _tl106456107026_)) + (let ((_e106573106628_ (let () (declare (not safe)) (gx#stx-e - _tl106459107029_)))) - (let ((_tl106574106636_ + _tl106456107026_)))) + (let ((_tl106571106633_ (let () (declare (not safe)) - (##cdr _e106576106631_))) - (_hd106575106634_ + (##cdr _e106573106628_))) + (_hd106572106631_ (let () (declare (not safe)) - (##car _e106576106631_)))) + (##car _e106573106628_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106575106634_)) - (let ((_e106579106639_ + _hd106572106631_)) + (let ((_e106576106636_ (let () (declare (not safe)) (gx#stx-e - _hd106575106634_)))) - (let ((_tl106577106644_ + _hd106572106631_)))) + (let ((_tl106574106641_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e106579106639_))) - (_hd106578106642_ - (let () (declare (not safe)) (##car _e106579106639_)))) + (##cdr _e106576106636_))) + (_hd106575106639_ + (let () (declare (not safe)) (##car _e106576106636_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106578106642_)) + (gx#identifier? _hd106575106639_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd106578106642_)) + (gx#stx-eq? '%#call _hd106575106639_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106577106644_)) - (let ((_e106582106647_ + (gx#stx-pair? _tl106574106641_)) + (let ((_e106579106644_ (let () (declare (not safe)) - (gx#stx-e _tl106577106644_)))) - (let ((_tl106580106652_ + (gx#stx-e _tl106574106641_)))) + (let ((_tl106577106649_ (let () (declare (not safe)) - (##cdr _e106582106647_))) - (_hd106581106650_ + (##cdr _e106579106644_))) + (_hd106578106647_ (let () (declare (not safe)) - (##car _e106582106647_)))) + (##car _e106579106644_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd106581106650_)) - (let ((_e106585106655_ + (gx#stx-pair? _hd106578106647_)) + (let ((_e106582106652_ (let () (declare (not safe)) - (gx#stx-e _hd106581106650_)))) - (let ((_tl106583106660_ + (gx#stx-e _hd106578106647_)))) + (let ((_tl106580106657_ (let () (declare (not safe)) - (##cdr _e106585106655_))) - (_hd106584106658_ + (##cdr _e106582106652_))) + (_hd106581106655_ (let () (declare (not safe)) - (##car _e106585106655_)))) + (##car _e106582106652_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd106584106658_)) + _hd106581106655_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd106584106658_)) + _hd106581106655_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106583106660_)) - (let ((_e106588106663_ + _tl106580106657_)) + (let ((_e106585106660_ (let () (declare (not safe)) (gx#stx-e - _tl106583106660_)))) - (let ((_tl106586106668_ + _tl106580106657_)))) + (let ((_tl106583106665_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e106588106663_))) - (_hd106587106666_ - (let () (declare (not safe)) (##car _e106588106663_)))) + (##cdr _e106585106660_))) + (_hd106584106663_ + (let () (declare (not safe)) (##car _e106585106660_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106586106668_)) + (gx#stx-null? _tl106583106665_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106580106652_)) - (let ((_e106591106671_ + (gx#stx-pair? _tl106577106649_)) + (let ((_e106588106668_ (let () (declare (not safe)) - (gx#stx-e _tl106580106652_)))) - (let ((_tl106589106676_ + (gx#stx-e _tl106577106649_)))) + (let ((_tl106586106673_ (let () (declare (not safe)) - (##cdr _e106591106671_))) - (_hd106590106674_ + (##cdr _e106588106668_))) + (_hd106587106671_ (let () (declare (not safe)) - (##car _e106591106671_)))) + (##car _e106588106668_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd106590106674_)) - (let ((_e106594106679_ + (gx#stx-pair? _hd106587106671_)) + (let ((_e106591106676_ (let () (declare (not safe)) - (gx#stx-e _hd106590106674_)))) - (let ((_tl106592106684_ + (gx#stx-e _hd106587106671_)))) + (let ((_tl106589106681_ (let () (declare (not safe)) - (##cdr _e106594106679_))) - (_hd106593106682_ + (##cdr _e106591106676_))) + (_hd106590106679_ (let () (declare (not safe)) - (##car _e106594106679_)))) + (##car _e106591106676_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106593106682_)) + (gx#identifier? _hd106590106679_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd106593106682_)) + _hd106590106679_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106592106684_)) - (let ((_e106597106687_ + _tl106589106681_)) + (let ((_e106594106684_ (let () (declare (not safe)) (gx#stx-e - _tl106592106684_)))) - (let ((_tl106595106692_ + _tl106589106681_)))) + (let ((_tl106592106689_ (let () (declare (not safe)) - (##cdr _e106597106687_))) - (_hd106596106690_ + (##cdr _e106594106684_))) + (_hd106593106687_ (let () (declare (not safe)) - (##car _e106597106687_)))) + (##car _e106594106684_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106595106692_)) + _tl106592106689_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106589106676_)) - (let ((_e106600106695_ + _tl106586106673_)) + (let ((_e106597106692_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl106589106676_)))) - (let ((_tl106598106700_ + (gx#stx-e _tl106586106673_)))) + (let ((_tl106595106697_ (let () (declare (not safe)) - (##cdr _e106600106695_))) - (_hd106599106698_ + (##cdr _e106597106692_))) + (_hd106596106695_ (let () (declare (not safe)) - (##car _e106600106695_)))) + (##car _e106597106692_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd106599106698_)) - (let ((_e106603106703_ + (gx#stx-pair? _hd106596106695_)) + (let ((_e106600106700_ (let () (declare (not safe)) - (gx#stx-e _hd106599106698_)))) - (let ((_tl106601106708_ + (gx#stx-e _hd106596106695_)))) + (let ((_tl106598106705_ (let () (declare (not safe)) - (##cdr _e106603106703_))) - (_hd106602106706_ + (##cdr _e106600106700_))) + (_hd106599106703_ (let () (declare (not safe)) - (##car _e106603106703_)))) + (##car _e106600106700_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106602106706_)) + (gx#identifier? _hd106599106703_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd106602106706_)) + (gx#stx-eq? '%#ref _hd106599106703_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106601106708_)) - (let ((_e106606106711_ + (gx#stx-pair? _tl106598106705_)) + (let ((_e106603106708_ (let () (declare (not safe)) (gx#stx-e - _tl106601106708_)))) - (let ((_tl106604106716_ + _tl106598106705_)))) + (let ((_tl106601106713_ (let () (declare (not safe)) - (##cdr _e106606106711_))) - (_hd106605106714_ + (##cdr _e106603106708_))) + (_hd106602106711_ (let () (declare (not safe)) - (##car _e106606106711_)))) + (##car _e106603106708_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106604106716_)) + _tl106601106713_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl106598106700_)) + _tl106595106697_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl106574106636_)) - (___match110277110278_ - _e106461107024_ - _hd106460107027_ - _tl106459107029_ - _e106576106631_ - _hd106575106634_ - _tl106574106636_ - _e106579106639_ - _hd106578106642_ - _tl106577106644_ - _e106582106647_ - _hd106581106650_ - _tl106580106652_ - _e106585106655_ - _hd106584106658_ - _tl106583106660_ - _e106588106663_ - _hd106587106666_ - _tl106586106668_ - _e106591106671_ - _hd106590106674_ - _tl106589106676_ - _e106594106679_ - _hd106593106682_ - _tl106592106684_ - _e106597106687_ - _hd106596106690_ - _tl106595106692_ - _e106600106695_ - _hd106599106698_ - _tl106598106700_ - _e106603106703_ - _hd106602106706_ - _tl106601106708_ - _e106606106711_ - _hd106605106714_ - _tl106604106716_) - (___kont110152110153_)) - (___kont110152110153_)) - (___kont110152110153_)))) - (___kont110152110153_)) - (___kont110152110153_)) - (___kont110152110153_)))) - (___kont110152110153_)))) - (___kont110152110153_)) - (___kont110152110153_)))) + _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_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110152110153_)) - (___kont110152110153_)) - (___kont110152110153_)))) - (___kont110152110153_)))) - (___kont110152110153_)) - (___kont110152110153_)))) + (___kont110149110150_)) + (___kont110149110150_)) + (___kont110149110150_)))) + (___kont110149110150_)))) + (___kont110149110150_)) + (___kont110149110150_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110152110153_)) - (___kont110152110153_)) - (___kont110152110153_)))) - (___kont110152110153_)))) - (___kont110152110153_)) - (___kont110152110153_)) - (___kont110152110153_)))) + (___kont110149110150_)) + (___kont110149110150_)) + (___kont110149110150_)))) + (___kont110149110150_)))) + (___kont110149110150_)) + (___kont110149110150_)) + (___kont110149110150_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110152110153_)))) - (___kont110152110153_))))) - (___kont110152110153_))))))) - (_dispatch-case-e105762_ - (lambda (_hd105910_ _body105911_) - (let* ((_form105913_ - (let ((__tmp111587 + (___kont110149110150_)))) + (___kont110149110150_))))) + (___kont110149110150_))))))) + (_dispatch-case-e105759_ + (lambda (_hd105907_ _body105908_) + (let* ((_form105910_ + (let ((__tmp111584 (let () (declare (not safe)) - (cons _body105911_ '())))) + (cons _body105908_ '())))) (declare (not safe)) - (cons _hd105910_ __tmp111587))) - (___stx110280110281_ _form105913_) - (_g105917106041_ + (cons _hd105907_ __tmp111584))) + (___stx110277110278_ _form105910_) + (_g105914106038_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110280110281_))))) - (let ((___kont110282110283_ - (lambda (_L106412_ _L106413_ _L106414_) - (let ((__tmp111588 - (let ((__tmp111590 + ___stx110277110278_))))) + (let ((___kont110279110280_ + (lambda (_L106409_ _L106410_ _L106411_) + (let ((__tmp111585 + (let ((__tmp111587 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp111589 + (__tmp111586 (let () (declare (not safe)) - (cons _L106413_ '())))) + (cons _L106410_ '())))) (declare (not safe)) - (cons __tmp111590 __tmp111589)))) + (cons __tmp111587 __tmp111586)))) (declare (not safe)) - (gxc#compile-e__0 __tmp111588)))) - (___kont110288110289_ - (lambda (_L106260_ - _L106261_ - _L106262_ - _L106263_) - (let ((__tmp111591 - (let ((__tmp111593 + (gxc#compile-e__0 __tmp111585)))) + (___kont110285110286_ + (lambda (_L106257_ + _L106258_ + _L106259_ + _L106260_) + (let ((__tmp111588 + (let ((__tmp111590 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp111592 + (__tmp111589 (let () (declare (not safe)) - (cons _L106260_ '())))) + (cons _L106257_ '())))) (declare (not safe)) - (cons __tmp111593 __tmp111592)))) + (cons __tmp111590 __tmp111589)))) (declare (not safe)) - (gxc#compile-e__0 __tmp111591)))) - (___kont110292110293_ - (lambda (_L106126_ _L106127_ _L106128_) - (let ((__tmp111594 - (let ((__tmp111596 + (gxc#compile-e__0 __tmp111588)))) + (___kont110289110290_ + (lambda (_L106123_ _L106124_ _L106125_) + (let ((__tmp111591 + (let ((__tmp111593 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp111595 + (__tmp111592 (let () (declare (not safe)) - (cons _L106126_ '())))) + (cons _L106123_ '())))) (declare (not safe)) - (cons __tmp111596 __tmp111595)))) + (cons __tmp111593 __tmp111592)))) (declare (not safe)) - (gxc#compile-e__0 __tmp111594))))) - (let* ((___match110389110390_ - (lambda (_e106009106046_ - _hd106008106049_ - _tl106007106051_ - _e106012106054_ - _hd106011106057_ - _tl106010106059_ - _e106015106062_ - _hd106014106065_ - _tl106013106067_ - _e106018106070_ - _hd106017106073_ - _tl106016106075_ - _e106021106078_ - _hd106020106081_ - _tl106019106083_ - _e106024106086_ - _hd106023106089_ - _tl106022106091_ - _e106027106094_ - _hd106026106097_ - _tl106025106099_ - _e106030106102_ - _hd106029106105_ - _tl106028106107_ - _e106033106110_ - _hd106032106113_ - _tl106031106115_) + (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_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106025106099_)) - (let ((_e106036106118_ + (gx#stx-pair? _tl106022106096_)) + (let ((_e106033106115_ (let () (declare (not safe)) - (gx#stx-e _tl106025106099_)))) - (let ((_tl106034106123_ + (gx#stx-e _tl106022106096_)))) + (let ((_tl106031106120_ (let () (declare (not safe)) - (##cdr _e106036106118_))) - (_hd106035106121_ + (##cdr _e106033106115_))) + (_hd106032106118_ (let () (declare (not safe)) - (##car _e106036106118_)))) + (##car _e106033106115_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106034106123_)) + _tl106031106120_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl106010106059_)) - (___kont110292110293_ - _hd106032106113_ - _hd106023106089_ - _hd106008106049_) + _tl106007106056_)) + (___kont110289110290_ + _hd106029106110_ + _hd106020106086_ + _hd106005106046_) (let () (declare (not safe)) - (_g105917106041_))) + (_g105914106038_))) (let () (declare (not safe)) - (_g105917106041_))))) + (_g105914106038_))))) (let () (declare (not safe)) - (_g105917106041_))))) - (___match110319110320_ - (lambda (_e105970106164_ - _hd105969106167_ - _tl105968106169_ - ___splice110290110291_ - _target105971106172_ - _tl105973106174_) - (letrec ((_loop105974106177_ - (lambda (_hd105972106180_ - _arg105978106182_) + (_g105914106038_))))) + (___match110316110317_ + (lambda (_e105967106161_ + _hd105966106164_ + _tl105965106166_ + ___splice110287110288_ + _target105968106169_ + _tl105970106171_) + (letrec ((_loop105971106174_ + (lambda (_hd105969106177_ + _arg105975106179_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd105972106180_)) - (let ((_e105975106185_ + _hd105969106177_)) + (let ((_e105972106182_ (let () (declare (not safe)) (gx#stx-e - _hd105972106180_)))) - (let ((_lp-tl105977106190_ + _hd105969106177_)))) + (let ((_lp-tl105974106187_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e105975106185_))) - (_lp-hd105976106188_ - (let () (declare (not safe)) (##car _e105975106185_)))) - (let ((__tmp111597 + (##cdr _e105972106182_))) + (_lp-hd105973106185_ + (let () (declare (not safe)) (##car _e105972106182_)))) + (let ((__tmp111594 (let () (declare (not safe)) - (cons _lp-hd105976106188_ _arg105978106182_)))) + (cons _lp-hd105973106185_ _arg105975106179_)))) (declare (not safe)) - (_loop105974106177_ _lp-tl105977106190_ __tmp111597)))) + (_loop105971106174_ _lp-tl105974106187_ __tmp111594)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg105979106193_ - (reverse _arg105978106182_))) + (let ((_arg105976106190_ + (reverse _arg105975106179_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl105968106169_)) - (let ((_e105982106196_ + _tl105965106166_)) + (let ((_e105979106193_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl105968106169_)))) - (let ((_tl105980106201_ + (gx#stx-e _tl105965106166_)))) + (let ((_tl105977106198_ (let () (declare (not safe)) - (##cdr _e105982106196_))) - (_hd105981106199_ + (##cdr _e105979106193_))) + (_hd105978106196_ (let () (declare (not safe)) - (##car _e105982106196_)))) + (##car _e105979106193_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd105981106199_)) - (let ((_e105985106204_ + (gx#stx-pair? _hd105978106196_)) + (let ((_e105982106201_ (let () (declare (not safe)) - (gx#stx-e _hd105981106199_)))) - (let ((_tl105983106209_ + (gx#stx-e _hd105978106196_)))) + (let ((_tl105980106206_ (let () (declare (not safe)) - (##cdr _e105985106204_))) - (_hd105984106207_ + (##cdr _e105982106201_))) + (_hd105981106204_ (let () (declare (not safe)) - (##car _e105985106204_)))) + (##car _e105982106201_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd105984106207_)) + (gx#identifier? _hd105981106204_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd105984106207_)) + (gx#stx-eq? '%#call _hd105981106204_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105983106209_)) - (let ((_e105988106212_ + (gx#stx-pair? _tl105980106206_)) + (let ((_e105985106209_ (let () (declare (not safe)) (gx#stx-e - _tl105983106209_)))) - (let ((_tl105986106217_ + _tl105980106206_)))) + (let ((_tl105983106214_ (let () (declare (not safe)) - (##cdr _e105988106212_))) - (_hd105987106215_ + (##cdr _e105985106209_))) + (_hd105984106212_ (let () (declare (not safe)) - (##car _e105988106212_)))) + (##car _e105985106209_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd105987106215_)) - (let ((_e105991106220_ + _hd105984106212_)) + (let ((_e105988106217_ (let () (declare (not safe)) (gx#stx-e - _hd105987106215_)))) - (let ((_tl105989106225_ + _hd105984106212_)))) + (let ((_tl105986106222_ (let () (declare (not safe)) - (##cdr _e105991106220_))) - (_hd105990106223_ + (##cdr _e105988106217_))) + (_hd105987106220_ (let () (declare (not safe)) - (##car _e105991106220_)))) + (##car _e105988106217_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd105990106223_)) + _hd105987106220_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd105990106223_)) + (gx#stx-eq? '%#ref _hd105987106220_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105989106225_)) - (let ((_e105994106228_ + (gx#stx-pair? _tl105986106222_)) + (let ((_e105991106225_ (let () (declare (not safe)) - (gx#stx-e _tl105989106225_)))) - (let ((_tl105992106233_ + (gx#stx-e _tl105986106222_)))) + (let ((_tl105989106230_ (let () (declare (not safe)) - (##cdr _e105994106228_))) - (_hd105993106231_ + (##cdr _e105991106225_))) + (_hd105990106228_ (let () (declare (not safe)) - (##car _e105994106228_)))) + (##car _e105991106225_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105992106233_)) + (gx#stx-null? _tl105989106230_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105986106217_)) - (let ((_e105997106236_ + (gx#stx-pair? _tl105983106214_)) + (let ((_e105994106233_ (let () (declare (not safe)) - (gx#stx-e _tl105986106217_)))) - (let ((_tl105995106241_ + (gx#stx-e _tl105983106214_)))) + (let ((_tl105992106238_ (let () (declare (not safe)) - (##cdr _e105997106236_))) - (_hd105996106239_ + (##cdr _e105994106233_))) + (_hd105993106236_ (let () (declare (not safe)) - (##car _e105997106236_)))) + (##car _e105994106233_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd105996106239_)) - (let ((_e106000106244_ + _hd105993106236_)) + (let ((_e105997106241_ (let () (declare (not safe)) (gx#stx-e - _hd105996106239_)))) - (let ((_tl105998106249_ + _hd105993106236_)))) + (let ((_tl105995106246_ (let () (declare (not safe)) - (##cdr _e106000106244_))) - (_hd105999106247_ + (##cdr _e105997106241_))) + (_hd105996106244_ (let () (declare (not safe)) - (##car _e106000106244_)))) + (##car _e105997106241_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd105999106247_)) + _hd105996106244_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd105999106247_)) + _hd105996106244_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl105998106249_)) - (let ((_e106003106252_ + (gx#stx-pair? _tl105995106246_)) + (let ((_e106000106249_ (let () (declare (not safe)) - (gx#stx-e _tl105998106249_)))) - (let ((_tl106001106257_ + (gx#stx-e _tl105995106246_)))) + (let ((_tl105998106254_ (let () (declare (not safe)) - (##cdr _e106003106252_))) - (_hd106002106255_ + (##cdr _e106000106249_))) + (_hd105999106252_ (let () (declare (not safe)) - (##car _e106003106252_)))) + (##car _e106000106249_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106001106257_)) + (gx#stx-null? _tl105998106254_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl105980106201_)) - (___kont110288110289_ - _hd106002106255_ - _hd105993106231_ - _tl105973106174_ - _arg105979106193_) - (___match110389110390_ - _e105970106164_ - _hd105969106167_ - _tl105968106169_ - _e105982106196_ - _hd105981106199_ - _tl105980106201_ - _e105985106204_ - _hd105984106207_ - _tl105983106209_ - _e105988106212_ - _hd105987106215_ - _tl105986106217_ - _e105991106220_ - _hd105990106223_ - _tl105989106225_ - _e105994106228_ - _hd105993106231_ - _tl105992106233_ - _e105997106236_ - _hd105996106239_ - _tl105995106241_ - _e106000106244_ - _hd105999106247_ - _tl105998106249_ - _e106003106252_ - _hd106002106255_ - _tl106001106257_)) + (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_)) (let () (declare (not safe)) - (_g105917106041_))))) - (let () (declare (not safe)) (_g105917106041_))) - (let () (declare (not safe)) (_g105917106041_))) - (let () (declare (not safe)) (_g105917106041_))))) + (_g105914106038_))))) + (let () (declare (not safe)) (_g105914106038_))) + (let () (declare (not safe)) (_g105914106038_))) + (let () (declare (not safe)) (_g105914106038_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g105917106041_))))) + (_g105914106038_))))) (let () (declare (not safe)) - (_g105917106041_))) + (_g105914106038_))) (let () (declare (not safe)) - (_g105917106041_))))) - (let () (declare (not safe)) (_g105917106041_))) - (let () (declare (not safe)) (_g105917106041_))) - (let () (declare (not safe)) (_g105917106041_))))) + (_g105914106038_))))) + (let () (declare (not safe)) (_g105914106038_))) + (let () (declare (not safe)) (_g105914106038_))) + (let () (declare (not safe)) (_g105914106038_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g105917106041_))))) + (_g105914106038_))))) (let () (declare (not safe)) - (_g105917106041_))) + (_g105914106038_))) (let () (declare (not safe)) - (_g105917106041_))) + (_g105914106038_))) (let () (declare (not safe)) - (_g105917106041_))))) - (let () (declare (not safe)) (_g105917106041_))))) - (let () (declare (not safe)) (_g105917106041_)))))))) + (_g105914106038_))))) + (let () (declare (not safe)) (_g105914106038_))))) + (let () (declare (not safe)) (_g105914106038_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop105974106177_ - _target105971106172_ + (_loop105971106174_ + _target105968106169_ '()))))) - (___match110307110308_ - (lambda (_e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_) - (letrec ((_loop105928106313_ - (lambda (_hd105926106316_ - _arg105932106318_) + (___match110304110305_ + (lambda (_e105921106297_ + _hd105920106300_ + _tl105919106302_ + ___splice110281110282_ + _target105922106305_ + _tl105924106307_) + (letrec ((_loop105925106310_ + (lambda (_hd105923106313_ + _arg105929106315_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd105926106316_)) - (let ((_e105929106321_ + _hd105923106313_)) + (let ((_e105926106318_ (let () (declare (not safe)) (gx#stx-e - _hd105926106316_)))) - (let ((_lp-tl105931106326_ + _hd105923106313_)))) + (let ((_lp-tl105928106323_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e105929106321_))) - (_lp-hd105930106324_ - (let () (declare (not safe)) (##car _e105929106321_)))) - (let ((__tmp111599 + (##cdr _e105926106318_))) + (_lp-hd105927106321_ + (let () (declare (not safe)) (##car _e105926106318_)))) + (let ((__tmp111596 (let () (declare (not safe)) - (cons _lp-hd105930106324_ _arg105932106318_)))) + (cons _lp-hd105927106321_ _arg105929106315_)))) (declare (not safe)) - (_loop105928106313_ _lp-tl105931106326_ __tmp111599)))) + (_loop105925106310_ _lp-tl105928106323_ __tmp111596)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg105933106329_ - (reverse _arg105932106318_))) + (let ((_arg105930106326_ + (reverse _arg105929106315_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl105922106305_)) - (let ((_e105936106332_ + _tl105919106302_)) + (let ((_e105933106329_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl105922106305_)))) - (let ((_tl105934106337_ + (gx#stx-e _tl105919106302_)))) + (let ((_tl105931106334_ (let () (declare (not safe)) - (##cdr _e105936106332_))) - (_hd105935106335_ + (##cdr _e105933106329_))) + (_hd105932106332_ (let () (declare (not safe)) - (##car _e105936106332_)))) + (##car _e105933106329_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd105935106335_)) - (let ((_e105939106340_ + (gx#stx-pair? _hd105932106332_)) + (let ((_e105936106337_ (let () (declare (not safe)) - (gx#stx-e _hd105935106335_)))) - (let ((_tl105937106345_ + (gx#stx-e _hd105932106332_)))) + (let ((_tl105934106342_ (let () (declare (not safe)) - (##cdr _e105939106340_))) - (_hd105938106343_ + (##cdr _e105936106337_))) + (_hd105935106340_ (let () (declare (not safe)) - (##car _e105939106340_)))) + (##car _e105936106337_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd105938106343_)) + (gx#identifier? _hd105935106340_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd105938106343_)) + (gx#stx-eq? '%#call _hd105935106340_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105937106345_)) - (let ((_e105942106348_ + (gx#stx-pair? _tl105934106342_)) + (let ((_e105939106345_ (let () (declare (not safe)) (gx#stx-e - _tl105937106345_)))) - (let ((_tl105940106353_ + _tl105934106342_)))) + (let ((_tl105937106350_ (let () (declare (not safe)) - (##cdr _e105942106348_))) - (_hd105941106351_ + (##cdr _e105939106345_))) + (_hd105938106348_ (let () (declare (not safe)) - (##car _e105942106348_)))) + (##car _e105939106345_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd105941106351_)) - (let ((_e105945106356_ + _hd105938106348_)) + (let ((_e105942106353_ (let () (declare (not safe)) (gx#stx-e - _hd105941106351_)))) - (let ((_tl105943106361_ + _hd105938106348_)))) + (let ((_tl105940106358_ (let () (declare (not safe)) - (##cdr _e105945106356_))) - (_hd105944106359_ + (##cdr _e105942106353_))) + (_hd105941106356_ (let () (declare (not safe)) - (##car _e105945106356_)))) + (##car _e105942106353_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd105944106359_)) + _hd105941106356_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd105944106359_)) + (gx#stx-eq? '%#ref _hd105941106356_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105943106361_)) - (let ((_e105948106364_ + (gx#stx-pair? _tl105940106358_)) + (let ((_e105945106361_ (let () (declare (not safe)) - (gx#stx-e _tl105943106361_)))) - (let ((_tl105946106369_ + (gx#stx-e _tl105940106358_)))) + (let ((_tl105943106366_ (let () (declare (not safe)) - (##cdr _e105948106364_))) - (_hd105947106367_ + (##cdr _e105945106361_))) + (_hd105944106364_ (let () (declare (not safe)) - (##car _e105948106364_)))) + (##car _e105945106361_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105946106369_)) + (gx#stx-null? _tl105943106366_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl105940106353_)) - (let ((___splice110286110287_ + (gx#stx-pair/null? _tl105937106350_)) + (let ((___splice110283110284_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl105940106353_ + _tl105937106350_ '0)))) - (let ((_tl105951106374_ + (let ((_tl105948106371_ (let () (declare (not safe)) (##vector-ref - ___splice110286110287_ + ___splice110283110284_ '1))) - (_target105949106372_ + (_target105946106369_ (let () (declare (not safe)) (##vector-ref - ___splice110286110287_ + ___splice110283110284_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl105951106374_)) - (letrec ((_loop105952106377_ - (lambda (_hd105950106380_ + _tl105948106371_)) + (letrec ((_loop105949106374_ + (lambda (_hd105947106377_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg105956106382_) + _xarg105953106379_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd105950106380_)) - (let ((_e105953106385_ + (gx#stx-pair? _hd105947106377_)) + (let ((_e105950106382_ (let () (declare (not safe)) - (gx#stx-e _hd105950106380_)))) - (let ((_lp-tl105955106390_ + (gx#stx-e _hd105947106377_)))) + (let ((_lp-tl105952106387_ (let () (declare (not safe)) - (##cdr _e105953106385_))) - (_lp-hd105954106388_ + (##cdr _e105950106382_))) + (_lp-hd105951106385_ (let () (declare (not safe)) - (##car _e105953106385_)))) + (##car _e105950106382_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd105954106388_)) - (let ((_e105960106393_ + (gx#stx-pair? _lp-hd105951106385_)) + (let ((_e105957106390_ (let () (declare (not safe)) - (gx#stx-e _lp-hd105954106388_)))) - (let ((_tl105958106398_ + (gx#stx-e _lp-hd105951106385_)))) + (let ((_tl105955106395_ (let () (declare (not safe)) - (##cdr _e105960106393_))) - (_hd105959106396_ + (##cdr _e105957106390_))) + (_hd105956106393_ (let () (declare (not safe)) - (##car _e105960106393_)))) + (##car _e105957106390_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd105959106396_)) + (gx#identifier? _hd105956106393_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd105959106396_)) + _hd105956106393_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl105958106398_)) - (let ((_e105963106401_ + _tl105955106395_)) + (let ((_e105960106398_ (let () (declare (not safe)) (gx#stx-e - _tl105958106398_)))) - (let ((_tl105961106406_ + _tl105955106395_)))) + (let ((_tl105958106403_ (let () (declare (not safe)) - (##cdr _e105963106401_))) - (_hd105962106404_ + (##cdr _e105960106398_))) + (_hd105959106401_ (let () (declare (not safe)) - (##car _e105963106401_)))) + (##car _e105960106398_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl105961106406_)) - (let ((__tmp111598 + _tl105958106403_)) + (let ((__tmp111595 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _hd105962106404_ _xarg105956106382_)))) + (cons _hd105959106401_ _xarg105953106379_)))) (declare (not safe)) - (_loop105952106377_ _lp-tl105955106390_ __tmp111598)) - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_)))) + (_loop105949106374_ _lp-tl105952106387_ __tmp111595)) + (___match110316110317_ + _e105921106297_ + _hd105920106300_ + _tl105919106302_ + ___splice110281110282_ + _target105922106305_ + _tl105924106307_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_)) - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_)) - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_)))) - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_)))) - (let ((_xarg105957106409_ (reverse _xarg105956106382_))) + (___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_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105934106337_)) - (___kont110282110283_ - _xarg105957106409_ - _hd105947106367_ - _arg105933106329_) - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_))))))) + (gx#stx-null? _tl105931106334_)) + (___kont110279110280_ + _xarg105954106406_ + _hd105944106364_ + _arg105930106326_) + (___match110316110317_ + _e105921106297_ + _hd105920106300_ + _tl105919106302_ + ___splice110281110282_ + _target105922106305_ + _tl105924106307_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop105952106377_ - _target105949106372_ + (_loop105949106374_ + _target105946106369_ '()))) - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_)))) - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_)) - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_)))) - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_)) - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_)) - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_)))) + (___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_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_)))) - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_)) - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_)) - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_)))) - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_)))) - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_))))))) + (___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_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop105928106313_ - _target105925106308_ + (_loop105925106310_ + _target105922106305_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110280110281_)) - (let ((_e105924106300_ + (gx#stx-pair? ___stx110277110278_)) + (let ((_e105921106297_ (let () (declare (not safe)) - (gx#stx-e ___stx110280110281_)))) - (let ((_tl105922106305_ + (gx#stx-e ___stx110277110278_)))) + (let ((_tl105919106302_ (let () (declare (not safe)) - (##cdr _e105924106300_))) - (_hd105923106303_ + (##cdr _e105921106297_))) + (_hd105920106300_ (let () (declare (not safe)) - (##car _e105924106300_)))) + (##car _e105921106297_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd105923106303_)) - (let ((___splice110284110285_ + (gx#stx-pair/null? _hd105920106300_)) + (let ((___splice110281110282_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd105923106303_ + _hd105920106300_ '0)))) - (let ((_tl105927106310_ + (let ((_tl105924106307_ (let () (declare (not safe)) (##vector-ref - ___splice110284110285_ + ___splice110281110282_ '1))) - (_target105925106308_ + (_target105922106305_ (let () (declare (not safe)) (##vector-ref - ___splice110284110285_ + ___splice110281110282_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl105927106310_)) - (___match110307110308_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_) - (___match110319110320_ - _e105924106300_ - _hd105923106303_ - _tl105922106305_ - ___splice110284110285_ - _target105925106308_ - _tl105927106310_)))) + _tl105924106307_)) + (___match110304110305_ + _e105921106297_ + _hd105920106300_ + _tl105919106302_ + ___splice110281110282_ + _target105922106305_ + _tl105924106307_) + (___match110316110317_ + _e105921106297_ + _hd105920106300_ + _tl105919106302_ + ___splice110281110282_ + _target105922106305_ + _tl105924106307_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105922106305_)) - (let ((_e106012106054_ + (gx#stx-pair? _tl105919106302_)) + (let ((_e106009106051_ (let () (declare (not safe)) (gx#stx-e - _tl105922106305_)))) - (let ((_tl106010106059_ + _tl105919106302_)))) + (let ((_tl106007106056_ (let () (declare (not safe)) - (##cdr _e106012106054_))) - (_hd106011106057_ + (##cdr _e106009106051_))) + (_hd106008106054_ (let () (declare (not safe)) - (##car _e106012106054_)))) + (##car _e106009106051_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106011106057_)) - (let ((_e106015106062_ + _hd106008106054_)) + (let ((_e106012106059_ (let () (declare (not safe)) (gx#stx-e - _hd106011106057_)))) - (let ((_tl106013106067_ + _hd106008106054_)))) + (let ((_tl106010106064_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e106015106062_))) - (_hd106014106065_ - (let () (declare (not safe)) (##car _e106015106062_)))) + (##cdr _e106012106059_))) + (_hd106011106062_ + (let () (declare (not safe)) (##car _e106012106059_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106014106065_)) + (gx#identifier? _hd106011106062_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd106014106065_)) + (gx#stx-eq? '%#call _hd106011106062_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106013106067_)) - (let ((_e106018106070_ + (gx#stx-pair? _tl106010106064_)) + (let ((_e106015106067_ (let () (declare (not safe)) - (gx#stx-e _tl106013106067_)))) - (let ((_tl106016106075_ + (gx#stx-e _tl106010106064_)))) + (let ((_tl106013106072_ (let () (declare (not safe)) - (##cdr _e106018106070_))) - (_hd106017106073_ + (##cdr _e106015106067_))) + (_hd106014106070_ (let () (declare (not safe)) - (##car _e106018106070_)))) + (##car _e106015106067_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd106017106073_)) - (let ((_e106021106078_ + (gx#stx-pair? _hd106014106070_)) + (let ((_e106018106075_ (let () (declare (not safe)) - (gx#stx-e _hd106017106073_)))) - (let ((_tl106019106083_ + (gx#stx-e _hd106014106070_)))) + (let ((_tl106016106080_ (let () (declare (not safe)) - (##cdr _e106021106078_))) - (_hd106020106081_ + (##cdr _e106018106075_))) + (_hd106017106078_ (let () (declare (not safe)) - (##car _e106021106078_)))) + (##car _e106018106075_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd106020106081_)) + _hd106017106078_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd106020106081_)) + _hd106017106078_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106019106083_)) - (let ((_e106024106086_ + _tl106016106080_)) + (let ((_e106021106083_ (let () (declare (not safe)) (gx#stx-e - _tl106019106083_)))) - (let ((_tl106022106091_ + _tl106016106080_)))) + (let ((_tl106019106088_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e106024106086_))) - (_hd106023106089_ - (let () (declare (not safe)) (##car _e106024106086_)))) + (##cdr _e106021106083_))) + (_hd106020106086_ + (let () (declare (not safe)) (##car _e106021106083_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106022106091_)) + (gx#stx-null? _tl106019106088_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106016106075_)) - (let ((_e106027106094_ + (gx#stx-pair? _tl106013106072_)) + (let ((_e106024106091_ (let () (declare (not safe)) - (gx#stx-e _tl106016106075_)))) - (let ((_tl106025106099_ + (gx#stx-e _tl106013106072_)))) + (let ((_tl106022106096_ (let () (declare (not safe)) - (##cdr _e106027106094_))) - (_hd106026106097_ + (##cdr _e106024106091_))) + (_hd106023106094_ (let () (declare (not safe)) - (##car _e106027106094_)))) + (##car _e106024106091_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd106026106097_)) - (let ((_e106030106102_ + (gx#stx-pair? _hd106023106094_)) + (let ((_e106027106099_ (let () (declare (not safe)) - (gx#stx-e _hd106026106097_)))) - (let ((_tl106028106107_ + (gx#stx-e _hd106023106094_)))) + (let ((_tl106025106104_ (let () (declare (not safe)) - (##cdr _e106030106102_))) - (_hd106029106105_ + (##cdr _e106027106099_))) + (_hd106026106102_ (let () (declare (not safe)) - (##car _e106030106102_)))) + (##car _e106027106099_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106029106105_)) + (gx#identifier? _hd106026106102_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd106029106105_)) + _hd106026106102_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106028106107_)) - (let ((_e106033106110_ + _tl106025106104_)) + (let ((_e106030106107_ (let () (declare (not safe)) (gx#stx-e - _tl106028106107_)))) - (let ((_tl106031106115_ + _tl106025106104_)))) + (let ((_tl106028106112_ (let () (declare (not safe)) - (##cdr _e106033106110_))) - (_hd106032106113_ + (##cdr _e106030106107_))) + (_hd106029106110_ (let () (declare (not safe)) - (##car _e106033106110_)))) + (##car _e106030106107_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106031106115_)) + _tl106028106112_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106025106099_)) - (let ((_e106036106118_ + _tl106022106096_)) + (let ((_e106033106115_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl106025106099_)))) - (let ((_tl106034106123_ + (gx#stx-e _tl106022106096_)))) + (let ((_tl106031106120_ (let () (declare (not safe)) - (##cdr _e106036106118_))) - (_hd106035106121_ + (##cdr _e106033106115_))) + (_hd106032106118_ (let () (declare (not safe)) - (##car _e106036106118_)))) + (##car _e106033106115_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106034106123_)) + (gx#stx-null? _tl106031106120_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl106010106059_)) - (___kont110292110293_ - _hd106032106113_ - _hd106023106089_ - _hd105923106303_) + (gx#stx-null? _tl106007106056_)) + (___kont110289110290_ + _hd106029106110_ + _hd106020106086_ + _hd105920106300_) (let () (declare (not safe)) - (_g105917106041_))) - (let () (declare (not safe)) (_g105917106041_))))) - (let () (declare (not safe)) (_g105917106041_))) - (let () (declare (not safe)) (_g105917106041_))))) + (_g105914106038_))) + (let () (declare (not safe)) (_g105914106038_))))) + (let () (declare (not safe)) (_g105914106038_))) + (let () (declare (not safe)) (_g105914106038_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g105917106041_))) + (_g105914106038_))) (let () (declare (not safe)) - (_g105917106041_))) + (_g105914106038_))) (let () (declare (not safe)) - (_g105917106041_))))) + (_g105914106038_))))) (let () (declare (not safe)) - (_g105917106041_))))) - (let () (declare (not safe)) (_g105917106041_))) - (let () (declare (not safe)) (_g105917106041_))))) + (_g105914106038_))))) + (let () (declare (not safe)) (_g105914106038_))) + (let () (declare (not safe)) (_g105914106038_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g105917106041_))) + (_g105914106038_))) (let () (declare (not safe)) - (_g105917106041_))) + (_g105914106038_))) (let () (declare (not safe)) - (_g105917106041_))))) + (_g105914106038_))))) (let () (declare (not safe)) - (_g105917106041_))))) - (let () (declare (not safe)) (_g105917106041_))) - (let () (declare (not safe)) (_g105917106041_))) - (let () (declare (not safe)) (_g105917106041_))))) + (_g105914106038_))))) + (let () (declare (not safe)) (_g105914106038_))) + (let () (declare (not safe)) (_g105914106038_))) + (let () (declare (not safe)) (_g105914106038_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g105917106041_))))) + (_g105914106038_))))) (let () (declare (not safe)) - (_g105917106041_)))))) + (_g105914106038_)))))) (let () (declare (not safe)) - (_g105917106041_)))))))) - (_generate1105763_ - (lambda (_args105898_ - _arglen105899_ - _hd105900_ - _body105901_) - (let* ((_len105903_ + (_g105914106038_)))))))) + (_generate1105760_ + (lambda (_args105895_ + _arglen105896_ + _hd105897_ + _body105898_) + (let* ((_len105900_ (let () (declare (not safe)) - (gx#stx-length _hd105900_))) - (_condition105905_ + (gx#stx-length _hd105897_))) + (_condition105902_ (if (let () (declare (not safe)) - (gx#stx-list? _hd105900_)) + (gx#stx-list? _hd105897_)) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111614 - (let ((__tmp111615 + (let ((__tmp111611 + (let ((__tmp111612 (let () (declare (not safe)) - (cons _len105903_ '())))) + (cons _len105900_ '())))) (declare (not safe)) - (cons _arglen105899_ - __tmp111615)))) + (cons _arglen105896_ + __tmp111612)))) (declare (not safe)) - (cons '##fx= __tmp111614)) - (let ((__tmp111608 - (let ((__tmp111609 - (let ((__tmp111610 - (let ((__tmp111611 + (cons '##fx= __tmp111611)) + (let ((__tmp111605 + (let ((__tmp111606 + (let ((__tmp111607 + (let ((__tmp111608 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111612 - (let ((__tmp111613 + (let ((__tmp111609 + (let ((__tmp111610 (let () (declare (not safe)) - (cons _len105903_ '())))) + (cons _len105900_ '())))) (declare (not safe)) - (cons _arglen105899_ __tmp111613)))) + (cons _arglen105896_ __tmp111610)))) (declare (not safe)) - (cons '##fx= __tmp111612)))) + (cons '##fx= __tmp111609)))) (declare (not safe)) - (cons __tmp111611 '())))) + (cons __tmp111608 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp111610)))) + (cons '(declare (not safe)) __tmp111607)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp111609)))) + (cons '() __tmp111606)))) (declare (not safe)) - (cons 'let __tmp111608))) - (if (> _len105903_ '0) + (cons 'let __tmp111605))) + (if (> _len105900_ '0) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111606 - (let ((__tmp111607 + (let ((__tmp111603 + (let ((__tmp111604 (let () (declare (not safe)) - (cons _len105903_ + (cons _len105900_ '())))) (declare (not safe)) - (cons _arglen105899_ - __tmp111607)))) + (cons _arglen105896_ + __tmp111604)))) (declare (not safe)) - (cons '##fx>= __tmp111606)) - (let ((__tmp111600 - (let ((__tmp111601 - (let ((__tmp111602 - (let ((__tmp111603 + (cons '##fx>= __tmp111603)) + (let ((__tmp111597 + (let ((__tmp111598 + (let ((__tmp111599 + (let ((__tmp111600 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111604 - (let ((__tmp111605 + (let ((__tmp111601 + (let ((__tmp111602 (let () (declare (not safe)) - (cons _len105903_ '())))) + (cons _len105900_ '())))) (declare (not safe)) - (cons _arglen105899_ __tmp111605)))) + (cons _arglen105896_ __tmp111602)))) (declare (not safe)) - (cons '##fx>= __tmp111604)))) + (cons '##fx>= __tmp111601)))) (declare (not safe)) - (cons __tmp111603 '())))) + (cons __tmp111600 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp111602)))) + (cons '(declare (not safe)) __tmp111599)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp111601)))) + (cons '() __tmp111598)))) (declare (not safe)) - (cons 'let __tmp111600))) + (cons 'let __tmp111597))) '#t))) - (_dispatch105907_ + (_dispatch105904_ (if (let () (declare (not safe)) - (_dispatch-case?105761_ - _hd105900_ - _body105901_)) + (_dispatch-case?105758_ + _hd105897_ + _body105898_)) (let () (declare (not safe)) - (_dispatch-case-e105762_ - _hd105900_ - _body105901_)) + (_dispatch-case-e105759_ + _hd105897_ + _body105898_)) (let () (declare (not safe)) (gxc#generate-runtime-lambda-form - _hd105900_ - _body105901_))))) - (let ((__tmp111616 - (let ((__tmp111617 - (let ((__tmp111618 - (let ((__tmp111619 + _hd105897_ + _body105898_))))) + (let ((__tmp111613 + (let ((__tmp111614 + (let ((__tmp111615 + (let ((__tmp111616 (let () (declare (not safe)) - (cons _args105898_ + (cons _args105895_ '())))) (declare (not safe)) - (cons _dispatch105907_ - __tmp111619)))) + (cons _dispatch105904_ + __tmp111616)))) (declare (not safe)) - (cons 'apply __tmp111618)))) + (cons 'apply __tmp111615)))) (declare (not safe)) - (cons __tmp111617 '())))) + (cons __tmp111614 '())))) (declare (not safe)) - (cons _condition105905_ __tmp111616)))))) - (let* ((_g105765105793_ - (lambda (_g105766105790_) + (cons _condition105902_ __tmp111613)))))) + (let* ((_g105762105790_ + (lambda (_g105763105787_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105766105790_)))) - (_g105764105895_ - (lambda (_g105766105796_) + _g105763105787_)))) + (_g105761105892_ + (lambda (_g105763105793_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105766105796_)) - (let ((_e105771105798_ + (gx#stx-pair? _g105763105793_)) + (let ((_e105768105795_ (let () (declare (not safe)) - (gx#stx-e _g105766105796_)))) - (let ((_hd105770105801_ + (gx#stx-e _g105763105793_)))) + (let ((_hd105767105798_ (let () (declare (not safe)) - (##car _e105771105798_))) - (_tl105769105803_ + (##car _e105768105795_))) + (_tl105766105800_ (let () (declare (not safe)) - (##cdr _e105771105798_)))) + (##cdr _e105768105795_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl105769105803_)) - (let ((_g111620_ + (gx#stx-pair/null? _tl105766105800_)) + (let ((_g111617_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl105769105803_ + _tl105766105800_ '0)))) (begin - (let ((_g111621_ + (let ((_g111618_ (let () (declare (not safe)) - (if (##values? _g111620_) - (##vector-length _g111620_) + (if (##values? _g111617_) + (##vector-length _g111617_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g111621_ 2))) + (##fx= _g111618_ 2))) (error "Context expects 2 values" - _g111621_))) - (let ((_target105772105806_ + _g111618_))) + (let ((_target105769105803_ (let () (declare (not safe)) - (##vector-ref _g111620_ 0))) - (_tl105774105808_ + (##vector-ref _g111617_ 0))) + (_tl105771105805_ (let () (declare (not safe)) - (##vector-ref _g111620_ 1)))) + (##vector-ref _g111617_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105774105808_)) - (letrec ((_loop105775105811_ - (lambda (_hd105773105814_ - _body105779105816_ - _hd105780105818_) + (gx#stx-null? _tl105771105805_)) + (letrec ((_loop105772105808_ + (lambda (_hd105770105811_ + _body105776105813_ + _hd105777105815_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd105773105814_)) - (let ((_e105776105821_ + _hd105770105811_)) + (let ((_e105773105818_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd105773105814_)))) - (let ((_lp-hd105777105824_ + (gx#stx-e _hd105770105811_)))) + (let ((_lp-hd105774105821_ (let () (declare (not safe)) - (##car _e105776105821_))) - (_lp-tl105778105826_ + (##car _e105773105818_))) + (_lp-tl105775105823_ (let () (declare (not safe)) - (##cdr _e105776105821_)))) + (##cdr _e105773105818_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd105777105824_)) - (let ((_e105785105829_ + (gx#stx-pair? _lp-hd105774105821_)) + (let ((_e105782105826_ (let () (declare (not safe)) - (gx#stx-e _lp-hd105777105824_)))) - (let ((_hd105784105832_ + (gx#stx-e _lp-hd105774105821_)))) + (let ((_hd105781105829_ (let () (declare (not safe)) - (##car _e105785105829_))) - (_tl105783105834_ + (##car _e105782105826_))) + (_tl105780105831_ (let () (declare (not safe)) - (##cdr _e105785105829_)))) + (##cdr _e105782105826_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105783105834_)) - (let ((_e105788105837_ + (gx#stx-pair? _tl105780105831_)) + (let ((_e105785105834_ (let () (declare (not safe)) - (gx#stx-e _tl105783105834_)))) - (let ((_hd105787105840_ + (gx#stx-e _tl105780105831_)))) + (let ((_hd105784105837_ (let () (declare (not safe)) - (##car _e105788105837_))) - (_tl105786105842_ + (##car _e105785105834_))) + (_tl105783105839_ (let () (declare (not safe)) - (##cdr _e105788105837_)))) + (##cdr _e105785105834_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105786105842_)) - (let ((__tmp111650 + (gx#stx-null? _tl105783105839_)) + (let ((__tmp111647 (let () (declare (not safe)) - (cons _hd105787105840_ - _body105779105816_))) - (__tmp111649 + (cons _hd105784105837_ + _body105776105813_))) + (__tmp111646 (let () (declare (not safe)) - (cons _hd105784105832_ - _hd105780105818_)))) + (cons _hd105781105829_ + _hd105777105815_)))) (declare (not safe)) - (_loop105775105811_ - _lp-tl105778105826_ - __tmp111650 - __tmp111649)) + (_loop105772105808_ + _lp-tl105775105823_ + __tmp111647 + __tmp111646)) (let () (declare (not safe)) - (_g105765105793_ - _g105766105796_))))) + (_g105762105790_ + _g105763105793_))))) (let () (declare (not safe)) - (_g105765105793_ _g105766105796_))))) + (_g105762105790_ _g105763105793_))))) (let () (declare (not safe)) - (_g105765105793_ _g105766105796_))))) - (let ((_body105781105845_ (reverse _body105779105816_)) - (_hd105782105847_ (reverse _hd105780105818_))) - ((lambda (_L105850_ _L105851_) - (let ((_args105870_ + (_g105762105790_ _g105763105793_))))) + (let ((_body105778105842_ (reverse _body105776105813_)) + (_hd105779105844_ (reverse _hd105777105815_))) + ((lambda (_L105847_ _L105848_) + (let ((_args105867_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_arglen105871_ + (_arglen105868_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_name105872_ - (let ((_$e105867_ - (let ((__tmp111622 + (_name105869_ + (let ((_$e105864_ + (let ((__tmp111619 (gxc#current-compile-runtime-names))) (declare (not safe)) - (hash-get __tmp111622 _stx105759_)))) - (if _$e105867_ - _$e105867_ + (hash-get __tmp111619 _stx105756_)))) + (if _$e105864_ + _$e105864_ ''case-lambda-dispatch)))) - (let ((__tmp111623 - (let ((__tmp111624 - (let ((__tmp111625 - (let ((__tmp111626 - (let ((__tmp111639 - (let ((__tmp111640 + (let ((__tmp111620 + (let ((__tmp111621 + (let ((__tmp111622 + (let ((__tmp111623 + (let ((__tmp111636 + (let ((__tmp111637 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111641 - (let ((__tmp111642 + (let ((__tmp111638 + (let ((__tmp111639 (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111648 + (let ((__tmp111645 (let () (declare (not safe)) - (cons _args105870_ + (cons _args105867_ '())))) (declare (not safe)) - (cons '##length __tmp111648)) - (let ((__tmp111643 - (let ((__tmp111644 - (let ((__tmp111645 + (cons '##length __tmp111645)) + (let ((__tmp111640 + (let ((__tmp111641 + (let ((__tmp111642 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111646 - (let ((__tmp111647 + (let ((__tmp111643 + (let ((__tmp111644 (let () (declare (not safe)) - (cons _args105870_ '())))) + (cons _args105867_ '())))) (declare (not safe)) - (cons '##length __tmp111647)))) + (cons '##length __tmp111644)))) (declare (not safe)) - (cons __tmp111646 '())))) + (cons __tmp111643 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp111645)))) + (cons '(declare (not safe)) __tmp111642)))) (declare (not safe)) - (cons '() __tmp111644)))) + (cons '() __tmp111641)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp111643))))) + (cons 'let __tmp111640))))) (declare (not safe)) - (cons __tmp111642 '())))) + (cons __tmp111639 '())))) (declare (not safe)) - (cons _arglen105871_ __tmp111641)))) + (cons _arglen105868_ __tmp111638)))) (declare (not safe)) - (cons __tmp111640 '()))) - (__tmp111627 - (let ((__tmp111628 - (let ((__tmp111629 - (let ((__tmp111633 - (let ((__tmp111634 - (let ((__tmp111635 - (let ((__tmp111636 - (let ((__tmp111637 + (cons __tmp111637 '()))) + (__tmp111624 + (let ((__tmp111625 + (let ((__tmp111626 + (let ((__tmp111630 + (let ((__tmp111631 + (let ((__tmp111632 + (let ((__tmp111633 + (let ((__tmp111634 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111638 + (let ((__tmp111635 (let () (declare (not safe)) - (cons _args105870_ '())))) + (cons _args105867_ '())))) (declare (not safe)) - (cons _name105872_ __tmp111638)))) + (cons _name105869_ __tmp111635)))) (declare (not safe)) (cons '##raise-wrong-number-of-arguments-exception - __tmp111637)))) + __tmp111634)))) (declare (not safe)) - (cons __tmp111636 '())))) + (cons __tmp111633 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'else __tmp111635)))) + (cons 'else __tmp111632)))) (declare (not safe)) - (cons __tmp111634 '()))) - (__tmp111630 - (map (lambda (_g105873105876_ - _g105874105878_) + (cons __tmp111631 '()))) + (__tmp111627 + (map (lambda (_g105870105873_ + _g105871105875_) (let () (declare (not safe)) - (_generate1105763_ - _args105870_ - _arglen105871_ - _g105873105876_ - _g105874105878_))) - (let ((__tmp111631 - (lambda (_g105880105883_ - _g105881105885_) + (_generate1105760_ + _args105867_ + _arglen105868_ + _g105870105873_ + _g105871105875_))) + (let ((__tmp111628 + (lambda (_g105877105880_ + _g105878105882_) (let () (declare (not safe)) - (cons _g105880105883_ + (cons _g105877105880_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g105881105885_))))) + _g105878105882_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp111631 + (foldr1 __tmp111628 '() - _L105851_)) - (let ((__tmp111632 - (lambda (_g105887105890_ - _g105888105892_) + _L105848_)) + (let ((__tmp111629 + (lambda (_g105884105887_ + _g105885105889_) (let () (declare (not safe)) - (cons _g105887105890_ + (cons _g105884105887_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g105888105892_))))) + _g105885105889_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp111632 + (foldr1 __tmp111629 '() - _L105850_))))) + _L105847_))))) (declare (not safe)) - (foldr1 cons __tmp111633 __tmp111630)))) + (foldr1 cons __tmp111630 __tmp111627)))) (declare (not safe)) - (cons 'cond __tmp111629)))) + (cons 'cond __tmp111626)))) (declare (not safe)) - (cons __tmp111628 '())))) + (cons __tmp111625 '())))) (declare (not safe)) - (cons __tmp111639 __tmp111627)))) + (cons __tmp111636 __tmp111624)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp111626)))) + (cons 'let __tmp111623)))) (declare (not safe)) - (cons __tmp111625 '())))) + (cons __tmp111622 '())))) (declare (not safe)) - (cons _args105870_ __tmp111624)))) + (cons _args105867_ __tmp111621)))) (declare (not safe)) - (cons 'lambda __tmp111623)))) - _body105781105845_ - _hd105782105847_)))))) + (cons 'lambda __tmp111620)))) + _body105778105842_ + _hd105779105844_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop105775105811_ - _target105772105806_ + (_loop105772105808_ + _target105769105803_ '() '()))) (let () (declare (not safe)) - (_g105765105793_ - _g105766105796_)))))) + (_g105762105790_ + _g105763105793_)))))) (let () (declare (not safe)) - (_g105765105793_ _g105766105796_))))) + (_g105762105790_ _g105763105793_))))) (let () (declare (not safe)) - (_g105765105793_ _g105766105796_)))))) + (_g105762105790_ _g105763105793_)))))) (declare (not safe)) - (_g105764105895_ _stx105759_))))) + (_g105761105892_ _stx105756_))))) (define gxc#generate-runtime-let-values%__% - (lambda (_stx105033_ _compiled-body?105034_) - (letrec ((_generate-simple105036_ - (lambda (_hd105746_ _body105747_) - (let ((__tmp111651 - (let ((__tmp111652 + (lambda (_stx105030_ _compiled-body?105031_) + (letrec ((_generate-simple105033_ + (lambda (_hd105743_ _body105744_) + (let ((__tmp111648 + (let ((__tmp111649 (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'let - _hd105746_ - _body105747_ - _compiled-body?105034_)))) + _hd105743_ + _body105744_ + _compiled-body?105031_)))) (declare (not safe)) - (_coalesce-let*105038_ __tmp111652)))) + (_coalesce-let*105035_ __tmp111649)))) (declare (not safe)) - (_coalesce-boolean105037_ __tmp111651)))) - (_coalesce-boolean105037_ - (lambda (_code105607_) + (_coalesce-boolean105034_ __tmp111648)))) + (_coalesce-boolean105034_ + (lambda (_code105604_) (if (gxc#current-compile-boolean-context) - (let* ((_code105608105634_ _code105607_) - (_else105610105642_ (lambda () _code105607_)) - (_K105612105679_ - (lambda (_expr2105645_ - _expr1105646_ - _id105647_) - (let* ((_expr2105648105656_ _expr2105645_) - (_else105650105664_ + (let* ((_code105605105631_ _code105604_) + (_else105607105639_ (lambda () _code105604_)) + (_K105609105676_ + (lambda (_expr2105642_ + _expr1105643_ + _id105644_) + (let* ((_expr2105645105653_ _expr2105642_) + (_else105647105661_ (lambda () - (let ((__tmp111653 - (let ((__tmp111654 + (let ((__tmp111650 + (let ((__tmp111651 (let () (declare (not safe)) - (cons _expr2105645_ + (cons _expr2105642_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _expr1105646_ __tmp111654)))) + (cons _expr1105643_ __tmp111651)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'or __tmp111653)))) - (_K105652105669_ - (lambda (_exprs105667_) - (let ((__tmp111655 + (cons 'or __tmp111650)))) + (_K105649105666_ + (lambda (_exprs105664_) + (let ((__tmp111652 (let () (declare (not safe)) - (cons _expr1105646_ - _exprs105667_)))) + (cons _expr1105643_ + _exprs105664_)))) (declare (not safe)) - (cons 'or __tmp111655))))) + (cons 'or __tmp111652))))) (if (let () (declare (not safe)) - (##pair? _expr2105648105656_)) - (let ((_hd105653105672_ + (##pair? _expr2105645105653_)) + (let ((_hd105650105669_ (let () (declare (not safe)) - (##car _expr2105648105656_))) - (_tl105654105674_ + (##car _expr2105645105653_))) + (_tl105651105671_ (let () (declare (not safe)) - (##cdr _expr2105648105656_)))) + (##cdr _expr2105645105653_)))) (if (let () (declare (not safe)) - (##eq? _hd105653105672_ 'or)) - (let ((_exprs105677_ - _tl105654105674_)) + (##eq? _hd105650105669_ 'or)) + (let ((_exprs105674_ + _tl105651105671_)) (declare (not safe)) - (_K105652105669_ - _exprs105677_)) + (_K105649105666_ + _exprs105674_)) (let () (declare (not safe)) - (_else105650105664_)))) + (_else105647105661_)))) (let () (declare (not safe)) - (_else105650105664_))))))) + (_else105647105661_))))))) (if (let () (declare (not safe)) - (##pair? _code105608105634_)) - (let ((_hd105613105682_ + (##pair? _code105605105631_)) + (let ((_hd105610105679_ (let () (declare (not safe)) - (##car _code105608105634_))) - (_tl105614105684_ + (##car _code105605105631_))) + (_tl105611105681_ (let () (declare (not safe)) - (##cdr _code105608105634_)))) + (##cdr _code105605105631_)))) (if (let () (declare (not safe)) - (##eq? _hd105613105682_ 'let)) + (##eq? _hd105610105679_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl105614105684_)) - (let ((_hd105615105687_ + (##pair? _tl105611105681_)) + (let ((_hd105612105684_ (let () (declare (not safe)) - (##car _tl105614105684_))) - (_tl105616105689_ + (##car _tl105611105681_))) + (_tl105613105686_ (let () (declare (not safe)) - (##cdr _tl105614105684_)))) + (##cdr _tl105611105681_)))) (if (let () (declare (not safe)) - (##pair? _hd105615105687_)) - (let ((_hd105627105692_ + (##pair? _hd105612105684_)) + (let ((_hd105624105689_ (let () (declare (not safe)) - (##car _hd105615105687_))) - (_tl105628105694_ + (##car _hd105612105684_))) + (_tl105625105691_ (let () (declare (not safe)) - (##cdr _hd105615105687_)))) + (##cdr _hd105612105684_)))) (if (let () (declare (not safe)) - (##pair? _hd105627105692_)) - (let ((_hd105629105697_ + (##pair? _hd105624105689_)) + (let ((_hd105626105694_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd105627105692_))) - (_tl105630105699_ - (let () (declare (not safe)) (##cdr _hd105627105692_)))) - (let ((_id105702_ _hd105629105697_)) - (if (let () (declare (not safe)) (##pair? _tl105630105699_)) - (let ((_hd105631105704_ + (##car _hd105624105689_))) + (_tl105627105696_ + (let () (declare (not safe)) (##cdr _hd105624105689_)))) + (let ((_id105699_ _hd105626105694_)) + (if (let () (declare (not safe)) (##pair? _tl105627105696_)) + (let ((_hd105628105701_ (let () (declare (not safe)) - (##car _tl105630105699_))) - (_tl105632105706_ + (##car _tl105627105696_))) + (_tl105629105703_ (let () (declare (not safe)) - (##cdr _tl105630105699_)))) - (let ((_expr1105709_ _hd105631105704_)) + (##cdr _tl105627105696_)))) + (let ((_expr1105706_ _hd105628105701_)) (if (let () (declare (not safe)) - (##null? _tl105632105706_)) + (##null? _tl105629105703_)) (if (let () (declare (not safe)) - (##null? _tl105628105694_)) + (##null? _tl105625105691_)) (if (let () (declare (not safe)) - (##pair? _tl105616105689_)) - (let ((_hd105617105711_ + (##pair? _tl105613105686_)) + (let ((_hd105614105708_ (let () (declare (not safe)) - (##car _tl105616105689_))) - (_tl105618105713_ + (##car _tl105613105686_))) + (_tl105615105710_ (let () (declare (not safe)) - (##cdr _tl105616105689_)))) + (##cdr _tl105613105686_)))) (if (let () (declare (not safe)) - (##pair? _hd105617105711_)) - (let ((_hd105619105716_ + (##pair? _hd105614105708_)) + (let ((_hd105616105713_ (let () (declare (not safe)) - (##car _hd105617105711_))) - (_tl105620105718_ + (##car _hd105614105708_))) + (_tl105617105715_ (let () (declare (not safe)) - (##cdr _hd105617105711_)))) + (##cdr _hd105614105708_)))) (if (let () (declare (not safe)) - (##eq? _hd105619105716_ + (##eq? _hd105616105713_ 'if)) (if (let () (declare (not safe)) - (##pair? _tl105620105718_)) - (let ((_hd105621105721_ + (##pair? _tl105617105715_)) + (let ((_hd105618105718_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl105620105718_))) - (_tl105622105723_ - (let () (declare (not safe)) (##cdr _tl105620105718_)))) - (if ((lambda (_g105725105727_) + (##car _tl105617105715_))) + (_tl105619105720_ + (let () (declare (not safe)) (##cdr _tl105617105715_)))) + (if ((lambda (_g105722105724_) (let () (declare (not safe)) - (eq? _g105725105727_ _id105702_))) - _hd105621105721_) + (eq? _g105722105724_ _id105699_))) + _hd105618105718_) (if (let () (declare (not safe)) - (##pair? _tl105622105723_)) - (let ((_hd105623105730_ + (##pair? _tl105619105720_)) + (let ((_hd105620105727_ (let () (declare (not safe)) - (##car _tl105622105723_))) - (_tl105624105732_ + (##car _tl105619105720_))) + (_tl105621105729_ (let () (declare (not safe)) - (##cdr _tl105622105723_)))) - (if ((lambda (_g105734105736_) + (##cdr _tl105619105720_)))) + (if ((lambda (_g105731105733_) (let () (declare (not safe)) - (eq? _g105734105736_ _id105702_))) - _hd105623105730_) + (eq? _g105731105733_ _id105699_))) + _hd105620105727_) (if (let () (declare (not safe)) - (##pair? _tl105624105732_)) - (let ((_hd105625105739_ + (##pair? _tl105621105729_)) + (let ((_hd105622105736_ (let () (declare (not safe)) - (##car _tl105624105732_))) - (_tl105626105741_ + (##car _tl105621105729_))) + (_tl105623105738_ (let () (declare (not safe)) - (##cdr _tl105624105732_)))) - (let ((_expr2105744_ _hd105625105739_)) + (##cdr _tl105621105729_)))) + (let ((_expr2105741_ _hd105622105736_)) (if (let () (declare (not safe)) - (##null? _tl105626105741_)) + (##null? _tl105623105738_)) (if (let () (declare (not safe)) - (##null? _tl105618105713_)) + (##null? _tl105615105710_)) (let () (declare (not safe)) - (_K105612105679_ - _expr2105744_ - _expr1105709_ - _id105702_)) + (_K105609105676_ + _expr2105741_ + _expr1105706_ + _id105699_)) (let () (declare (not safe)) - (_else105610105642_))) + (_else105607105639_))) (let () (declare (not safe)) - (_else105610105642_))))) + (_else105607105639_))))) (let () (declare (not safe)) - (_else105610105642_))) + (_else105607105639_))) (let () (declare (not safe)) - (_else105610105642_)))) - (let () (declare (not safe)) (_else105610105642_))) - (let () (declare (not safe)) (_else105610105642_)))) - (let () (declare (not safe)) (_else105610105642_))) + (_else105607105639_)))) + (let () (declare (not safe)) (_else105607105639_))) + (let () (declare (not safe)) (_else105607105639_)))) + (let () (declare (not safe)) (_else105607105639_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else105610105642_)))) + (_else105607105639_)))) (let () (declare (not safe)) - (_else105610105642_)))) + (_else105607105639_)))) (let () (declare (not safe)) - (_else105610105642_))) + (_else105607105639_))) (let () (declare (not safe)) - (_else105610105642_))) + (_else105607105639_))) (let () (declare (not safe)) - (_else105610105642_))))) - (let () (declare (not safe)) (_else105610105642_))))) - (let () (declare (not safe)) (_else105610105642_)))) + (_else105607105639_))))) + (let () (declare (not safe)) (_else105607105639_))))) + (let () (declare (not safe)) (_else105607105639_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else105610105642_)))) + (_else105607105639_)))) (let () (declare (not safe)) - (_else105610105642_))) + (_else105607105639_))) (let () (declare (not safe)) - (_else105610105642_)))) + (_else105607105639_)))) (let () (declare (not safe)) - (_else105610105642_)))) - _code105607_))) - (_coalesce-let*105038_ - (lambda (_code105340_) - (let* ((_code105341105405_ _code105340_) - (_else105345105413_ (lambda () _code105340_))) - (let ((_K105387105558_ - (lambda (_body105554_ _expr105555_ _id105556_) - (let ((__tmp111656 - (let ((__tmp111657 - (let ((__tmp111658 - (let ((__tmp111659 + (_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 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr105555_ '())))) + (cons _expr105552_ '())))) (declare (not safe)) - (cons _id105556_ __tmp111659)))) + (cons _id105553_ __tmp111656)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111658 '())))) + (cons __tmp111655 '())))) (declare (not safe)) - (cons __tmp111657 _body105554_)))) + (cons __tmp111654 _body105551_)))) (declare (not safe)) - (cons 'let __tmp111656)))) - (_K105364105483_ - (lambda (_body105477_ - _expr2105478_ - _id2105479_ - _expr1105480_ - _id1105481_) - (let ((__tmp111660 - (let ((__tmp111661 - (let ((__tmp111665 - (let ((__tmp111666 + (cons 'let __tmp111653)))) + (_K105361105480_ + (lambda (_body105474_ + _expr2105475_ + _id2105476_ + _expr1105477_ + _id1105478_) + (let ((__tmp111657 + (let ((__tmp111658 + (let ((__tmp111662 + (let ((__tmp111663 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr1105480_ '())))) + (cons _expr1105477_ '())))) (declare (not safe)) - (cons _id1105481_ __tmp111666))) + (cons _id1105478_ __tmp111663))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp111662 - (let ((__tmp111663 - (let ((__tmp111664 + (__tmp111659 + (let ((__tmp111660 + (let ((__tmp111661 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr2105478_ '())))) + (cons _expr2105475_ '())))) (declare (not safe)) - (cons _id2105479_ __tmp111664)))) + (cons _id2105476_ __tmp111661)))) (declare (not safe)) - (cons __tmp111663 '())))) + (cons __tmp111660 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111665 - __tmp111662)))) + (cons __tmp111662 + __tmp111659)))) (declare (not safe)) - (cons __tmp111661 _body105477_)))) + (cons __tmp111658 _body105474_)))) (declare (not safe)) - (cons 'let* __tmp111660)))) - (_K105347105422_ - (lambda (_body105417_ - _bind105418_ - _expr1105419_ - _id1105420_) - (let ((__tmp111667 - (let ((__tmp111668 - (let ((__tmp111669 - (let ((__tmp111670 + (cons 'let* __tmp111657)))) + (_K105344105419_ + (lambda (_body105414_ + _bind105415_ + _expr1105416_ + _id1105417_) + (let ((__tmp111664 + (let ((__tmp111665 + (let ((__tmp111666 + (let ((__tmp111667 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr1105419_ '())))) + (cons _expr1105416_ '())))) (declare (not safe)) - (cons _id1105420_ __tmp111670)))) + (cons _id1105417_ __tmp111667)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111669 - _bind105418_)))) + (cons __tmp111666 + _bind105415_)))) (declare (not safe)) - (cons __tmp111668 _body105417_)))) + (cons __tmp111665 _body105414_)))) (declare (not safe)) - (cons 'let* __tmp111667))))) + (cons 'let* __tmp111664))))) (if (let () (declare (not safe)) - (##pair? _code105341105405_)) - (let ((_tl105389105563_ + (##pair? _code105338105402_)) + (let ((_tl105386105560_ (let () (declare (not safe)) - (##cdr _code105341105405_))) - (_hd105388105561_ + (##cdr _code105338105402_))) + (_hd105385105558_ (let () (declare (not safe)) - (##car _code105341105405_)))) + (##car _code105338105402_)))) (if (let () (declare (not safe)) - (##eq? _hd105388105561_ 'let)) + (##eq? _hd105385105558_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl105389105563_)) - (let ((_tl105391105568_ + (##pair? _tl105386105560_)) + (let ((_tl105388105565_ (let () (declare (not safe)) - (##cdr _tl105389105563_))) - (_hd105390105566_ + (##cdr _tl105386105560_))) + (_hd105387105563_ (let () (declare (not safe)) - (##car _tl105389105563_)))) + (##car _tl105386105560_)))) (if (let () (declare (not safe)) - (##pair? _hd105390105566_)) - (let ((_tl105399105573_ + (##pair? _hd105387105563_)) + (let ((_tl105396105570_ (let () (declare (not safe)) - (##cdr _hd105390105566_))) - (_hd105398105571_ + (##cdr _hd105387105563_))) + (_hd105395105568_ (let () (declare (not safe)) - (##car _hd105390105566_)))) + (##car _hd105387105563_)))) (if (let () (declare (not safe)) - (##pair? _hd105398105571_)) - (let ((_tl105401105578_ + (##pair? _hd105395105568_)) + (let ((_tl105398105575_ (let () (declare (not safe)) - (##cdr _hd105398105571_))) - (_hd105400105576_ + (##cdr _hd105395105568_))) + (_hd105397105573_ (let () (declare (not safe)) - (##car _hd105398105571_)))) + (##car _hd105395105568_)))) (if (let () (declare (not safe)) - (##pair? _tl105401105578_)) - (let ((_tl105403105585_ + (##pair? _tl105398105575_)) + (let ((_tl105400105582_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _tl105401105578_))) - (_hd105402105583_ + (##cdr _tl105398105575_))) + (_hd105399105580_ (let () (declare (not safe)) - (##car _tl105401105578_)))) + (##car _tl105398105575_)))) (if (let () (declare (not safe)) - (##null? _tl105403105585_)) + (##null? _tl105400105582_)) (if (let () (declare (not safe)) - (##null? _tl105399105573_)) + (##null? _tl105396105570_)) (if (let () (declare (not safe)) - (##pair? _tl105391105568_)) - (let ((_tl105393105592_ + (##pair? _tl105388105565_)) + (let ((_tl105390105589_ (let () (declare (not safe)) - (##cdr _tl105391105568_))) - (_hd105392105590_ + (##cdr _tl105388105565_))) + (_hd105389105587_ (let () (declare (not safe)) - (##car _tl105391105568_)))) + (##car _tl105388105565_)))) (if (let () (declare (not safe)) - (##pair? _hd105392105590_)) - (let ((_tl105395105597_ + (##pair? _hd105389105587_)) + (let ((_tl105392105594_ (let () (declare (not safe)) - (##cdr _hd105392105590_))) - (_hd105394105595_ + (##cdr _hd105389105587_))) + (_hd105391105592_ (let () (declare (not safe)) - (##car _hd105392105590_)))) + (##car _hd105389105587_)))) (if (let () (declare (not safe)) - (##eq? _hd105394105595_ 'let)) + (##eq? _hd105391105592_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl105395105597_)) - (let ((_tl105397105602_ + (##pair? _tl105392105594_)) + (let ((_tl105394105599_ (let () (declare (not safe)) - (##cdr _tl105395105597_))) - (_hd105396105600_ + (##cdr _tl105392105594_))) + (_hd105393105597_ (let () (declare (not safe)) - (##car _tl105395105597_)))) + (##car _tl105392105594_)))) (if (let () (declare (not safe)) - (##null? _hd105396105600_)) + (##null? _hd105393105597_)) (if (let () (declare (not safe)) - (##null? _tl105393105592_)) - (let ((_id105581_ + (##null? _tl105390105589_)) + (let ((_id105578_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd105400105576_) - (_expr105588_ _hd105402105583_) - (_body105605_ _tl105397105602_)) + _hd105397105573_) + (_expr105585_ _hd105399105580_) + (_body105602_ _tl105394105599_)) (let () (declare (not safe)) - (_K105387105558_ _body105605_ _expr105588_ _id105581_))) - (let () (declare (not safe)) (_else105345105413_))) - (if (let () (declare (not safe)) (##pair? _hd105396105600_)) - (let ((_tl105376105532_ + (_K105384105555_ _body105602_ _expr105585_ _id105578_))) + (let () (declare (not safe)) (_else105342105410_))) + (if (let () (declare (not safe)) (##pair? _hd105393105597_)) + (let ((_tl105373105529_ (let () (declare (not safe)) - (##cdr _hd105396105600_))) - (_hd105375105530_ + (##cdr _hd105393105597_))) + (_hd105372105527_ (let () (declare (not safe)) - (##car _hd105396105600_)))) + (##car _hd105393105597_)))) (if (let () (declare (not safe)) - (##pair? _hd105375105530_)) - (let ((_tl105378105537_ + (##pair? _hd105372105527_)) + (let ((_tl105375105534_ (let () (declare (not safe)) - (##cdr _hd105375105530_))) - (_hd105377105535_ + (##cdr _hd105372105527_))) + (_hd105374105532_ (let () (declare (not safe)) - (##car _hd105375105530_)))) + (##car _hd105372105527_)))) (if (let () (declare (not safe)) - (##pair? _tl105378105537_)) - (let ((_tl105380105544_ + (##pair? _tl105375105534_)) + (let ((_tl105377105541_ (let () (declare (not safe)) - (##cdr _tl105378105537_))) - (_hd105379105542_ + (##cdr _tl105375105534_))) + (_hd105376105539_ (let () (declare (not safe)) - (##car _tl105378105537_)))) + (##car _tl105375105534_)))) (if (let () (declare (not safe)) - (##null? _tl105380105544_)) + (##null? _tl105377105541_)) (if (let () (declare (not safe)) - (##null? _tl105376105532_)) + (##null? _tl105373105529_)) (if (let () (declare (not safe)) - (##null? _tl105393105592_)) - (let ((_id1105506_ - _hd105400105576_) - (_expr1105513_ - _hd105402105583_) - (_id2105540_ - _hd105377105535_) - (_expr2105547_ - _hd105379105542_) - (_body105549_ - _tl105397105602_)) + (##null? _tl105390105589_)) + (let ((_id1105503_ + _hd105397105573_) + (_expr1105510_ + _hd105399105580_) + (_id2105537_ + _hd105374105532_) + (_expr2105544_ + _hd105376105539_) + (_body105546_ + _tl105394105599_)) (let () (declare (not safe)) - (_K105364105483_ - _body105549_ - _expr2105547_ - _id2105540_ - _expr1105513_ - _id1105506_))) + (_K105361105480_ + _body105546_ + _expr2105544_ + _id2105537_ + _expr1105510_ + _id1105503_))) (let () (declare (not safe)) - (_else105345105413_))) + (_else105342105410_))) (let () (declare (not safe)) - (_else105345105413_))) + (_else105342105410_))) (let () (declare (not safe)) - (_else105345105413_)))) + (_else105342105410_)))) (let () (declare (not safe)) - (_else105345105413_)))) - (let () (declare (not safe)) (_else105345105413_)))) - (let () (declare (not safe)) (_else105345105413_))))) + (_else105342105410_)))) + (let () (declare (not safe)) (_else105342105410_)))) + (let () (declare (not safe)) (_else105342105410_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else105345105413_))) + (_else105342105410_))) (if (let () (declare (not safe)) - (##eq? _hd105394105595_ + (##eq? _hd105391105592_ 'let*)) (if (let () (declare (not safe)) - (##pair? _tl105395105597_)) - (let ((_tl105357105466_ + (##pair? _tl105392105594_)) + (let ((_tl105354105463_ (let () (declare (not safe)) - (##cdr _tl105395105597_))) - (_hd105356105464_ + (##cdr _tl105392105594_))) + (_hd105353105461_ (let () (declare (not safe)) - (##car _tl105395105597_)))) + (##car _tl105392105594_)))) (if (let () (declare (not safe)) - (##null? _tl105393105592_)) - (let ((_id1105445_ + (##null? _tl105390105589_)) + (let ((_id1105442_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd105400105576_) - (_expr1105452_ _hd105402105583_) - (_bind105469_ _hd105356105464_) - (_body105471_ _tl105357105466_)) + _hd105397105573_) + (_expr1105449_ _hd105399105580_) + (_bind105466_ _hd105353105461_) + (_body105468_ _tl105354105463_)) (let () (declare (not safe)) - (_K105347105422_ - _body105471_ - _bind105469_ - _expr1105452_ - _id1105445_))) - (let () (declare (not safe)) (_else105345105413_)))) + (_K105344105419_ + _body105468_ + _bind105466_ + _expr1105449_ + _id1105442_))) + (let () (declare (not safe)) (_else105342105410_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else105345105413_))) + (_else105342105410_))) (let () (declare (not safe)) - (_else105345105413_))))) + (_else105342105410_))))) (let () (declare (not safe)) - (_else105345105413_)))) + (_else105342105410_)))) (let () (declare (not safe)) - (_else105345105413_))) - (let () (declare (not safe)) (_else105345105413_))) - (let () (declare (not safe)) (_else105345105413_)))) - (let () (declare (not safe)) (_else105345105413_)))) + (_else105342105410_))) + (let () (declare (not safe)) (_else105342105410_))) + (let () (declare (not safe)) (_else105342105410_)))) + (let () (declare (not safe)) (_else105342105410_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else105345105413_)))) + (_else105342105410_)))) (let () (declare (not safe)) - (_else105345105413_)))) + (_else105342105410_)))) (let () (declare (not safe)) - (_else105345105413_))) + (_else105342105410_))) (let () (declare (not safe)) - (_else105345105413_)))) + (_else105342105410_)))) (let () (declare (not safe)) - (_else105345105413_))))))) - (_generate-values105039_ - (lambda (_hd105153_ _body105154_) - (let _lp105156_ ((_rest105158_ _hd105153_) - (_bind105159_ '()) - (_check105160_ '()) - (_post105161_ '())) - (let* ((___stx110591110592_ _rest105158_) - (_g105164105175_ + (_else105342105410_))))))) + (_generate-values105036_ + (lambda (_hd105150_ _body105151_) + (let _lp105153_ ((_rest105155_ _hd105150_) + (_bind105156_ '()) + (_check105157_ '()) + (_post105158_ '())) + (let* ((___stx110588110589_ _rest105155_) + (_g105161105172_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110591110592_))))) - (let ((___kont110593110594_ - (lambda (_L105202_ _L105203_) - (let* ((___stx110547110548_ _L105203_) - (_g105218105243_ + ___stx110588110589_))))) + (let ((___kont110590110591_ + (lambda (_L105199_ _L105200_) + (let* ((___stx110544110545_ _L105200_) + (_g105215105240_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110547110548_))))) - (let ((___kont110549110550_ - (lambda (_L105316_ _L105317_) - (let ((_eid105331_ + ___stx110544110545_))))) + (let ((___kont110546110547_ + (lambda (_L105313_ _L105314_) + (let ((_eid105328_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L105317_))) - (_expr105332_ + _L105314_))) + (_expr105329_ (let () (declare (not safe)) (gxc#compile-e__0 - _L105316_)))) - (let ((__tmp111671 - (let ((__tmp111672 - (let ((__tmp111673 + _L105313_)))) + (let ((__tmp111668 + (let ((__tmp111669 + (let ((__tmp111670 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr105332_ '())))) + (cons _expr105329_ '())))) (declare (not safe)) - (cons _eid105331_ __tmp111673)))) + (cons _eid105328_ __tmp111670)))) (declare (not safe)) - (cons __tmp111672 _bind105159_)))) + (cons __tmp111669 _bind105156_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp105156_ - _L105202_ - __tmp111671 - _check105160_ - _post105161_))))) - (___kont110551110552_ - (lambda (_L105264_ _L105265_) - (let* ((_vals105278_ + (_lp105153_ + _L105199_ + __tmp111668 + _check105157_ + _post105158_))))) + (___kont110548110549_ + (lambda (_L105261_ _L105262_) + (let* ((_vals105275_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values105280_ + (_check-values105277_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _vals105278_ - _L105265_ - _L105264_))) - (_refs105282_ + _vals105275_ + _L105262_ + _L105261_))) + (_refs105279_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals105278_ - _L105265_))) - (_expr105284_ + _vals105275_ + _L105262_))) + (_expr105281_ (let () (declare (not safe)) (gxc#compile-e__0 - _L105264_)))) - (let ((__tmp111676 - (let ((__tmp111677 - (let ((__tmp111678 + _L105261_)))) + (let ((__tmp111673 + (let ((__tmp111674 + (let ((__tmp111675 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr105284_ '())))) + (cons _expr105281_ '())))) (declare (not safe)) - (cons _vals105278_ __tmp111678)))) + (cons _vals105275_ __tmp111675)))) (declare (not safe)) - (cons __tmp111677 _bind105159_))) - (__tmp111675 + (cons __tmp111674 _bind105156_))) + (__tmp111672 (let () (declare (not safe)) - (cons _check-values105280_ _check105160_))) - (__tmp111674 - (let () (declare (not safe)) (cons _refs105282_ _post105161_)))) + (cons _check-values105277_ _check105157_))) + (__tmp111671 + (let () (declare (not safe)) (cons _refs105279_ _post105158_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp105156_ - _L105202_ - __tmp111676 - __tmp111675 - __tmp111674)))))) + (_lp105153_ + _L105199_ + __tmp111673 + __tmp111672 + __tmp111671)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx110547110548_)) - (let ((_e105224105292_ + ___stx110544110545_)) + (let ((_e105221105289_ (let () (declare (not safe)) (gx#stx-e - ___stx110547110548_)))) - (let ((_tl105222105297_ + ___stx110544110545_)))) + (let ((_tl105219105294_ (let () (declare (not safe)) - (##cdr _e105224105292_))) - (_hd105223105295_ + (##cdr _e105221105289_))) + (_hd105220105292_ (let () (declare (not safe)) - (##car _e105224105292_)))) + (##car _e105221105289_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd105223105295_)) - (let ((_e105227105300_ + _hd105220105292_)) + (let ((_e105224105297_ (let () (declare (not safe)) (gx#stx-e - _hd105223105295_)))) - (let ((_tl105225105305_ + _hd105220105292_)))) + (let ((_tl105222105302_ (let () (declare (not safe)) - (##cdr _e105227105300_))) - (_hd105226105303_ + (##cdr _e105224105297_))) + (_hd105223105300_ (let () (declare (not safe)) - (##car _e105227105300_)))) + (##car _e105224105297_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl105225105305_)) + _tl105222105302_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl105222105297_)) - (let ((_e105230105308_ + (gx#stx-pair? _tl105219105294_)) + (let ((_e105227105305_ (let () (declare (not safe)) - (gx#stx-e _tl105222105297_)))) - (let ((_tl105228105313_ + (gx#stx-e _tl105219105294_)))) + (let ((_tl105225105310_ (let () (declare (not safe)) - (##cdr _e105230105308_))) - (_hd105229105311_ + (##cdr _e105227105305_))) + (_hd105226105308_ (let () (declare (not safe)) - (##car _e105230105308_)))) + (##car _e105227105305_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105228105313_)) - (___kont110549110550_ - _hd105229105311_ - _hd105226105303_) + (gx#stx-null? _tl105225105310_)) + (___kont110546110547_ + _hd105226105308_ + _hd105223105300_) (let () (declare (not safe)) - (_g105218105243_))))) - (let () (declare (not safe)) (_g105218105243_))) + (_g105215105240_))))) + (let () (declare (not safe)) (_g105215105240_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105222105297_)) - (let ((_e105238105256_ + (gx#stx-pair? _tl105219105294_)) + (let ((_e105235105253_ (let () (declare (not safe)) - (gx#stx-e _tl105222105297_)))) - (let ((_tl105236105261_ + (gx#stx-e _tl105219105294_)))) + (let ((_tl105233105258_ (let () (declare (not safe)) - (##cdr _e105238105256_))) - (_hd105237105259_ + (##cdr _e105235105253_))) + (_hd105234105256_ (let () (declare (not safe)) - (##car _e105238105256_)))) + (##car _e105235105253_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105236105261_)) - (___kont110551110552_ - _hd105237105259_ - _hd105223105295_) + (gx#stx-null? _tl105233105258_)) + (___kont110548110549_ + _hd105234105256_ + _hd105220105292_) (let () (declare (not safe)) - (_g105218105243_))))) - (let () (declare (not safe)) (_g105218105243_)))))) + (_g105215105240_))))) + (let () (declare (not safe)) (_g105215105240_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl105222105297_)) - (let ((_e105238105256_ + _tl105219105294_)) + (let ((_e105235105253_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl105222105297_)))) - (let ((_tl105236105261_ - (let () (declare (not safe)) (##cdr _e105238105256_))) - (_hd105237105259_ - (let () (declare (not safe)) (##car _e105238105256_)))) + (gx#stx-e _tl105219105294_)))) + (let ((_tl105233105258_ + (let () (declare (not safe)) (##cdr _e105235105253_))) + (_hd105234105256_ + (let () (declare (not safe)) (##car _e105235105253_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105236105261_)) - (___kont110551110552_ _hd105237105259_ _hd105223105295_) - (let () (declare (not safe)) (_g105218105243_))))) - (let () (declare (not safe)) (_g105218105243_)))))) + (gx#stx-null? _tl105233105258_)) + (___kont110548110549_ _hd105234105256_ _hd105220105292_) + (let () (declare (not safe)) (_g105215105240_))))) + (let () (declare (not safe)) (_g105215105240_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g105218105243_))))))) - (___kont110595110596_ + (_g105215105240_))))))) + (___kont110592110593_ (lambda () - (let* ((_body105182_ - (if _compiled-body?105034_ - _body105154_ + (let* ((_body105179_ + (if _compiled-body?105031_ + _body105151_ (let () (declare (not safe)) (gxc#compile-e__0 - _body105154_)))) - (_body105184_ + _body105151_)))) + (_body105181_ (let () (declare (not safe)) - (_generate-values-post105040_ - _post105161_ - _body105182_))) - (_body105186_ + (_generate-values-post105037_ + _post105158_ + _body105179_))) + (_body105183_ (let () (declare (not safe)) - (_generate-values-check105041_ - _check105160_ - _body105184_)))) - (let ((__tmp111679 - (let ((__tmp111681 - (reverse _bind105159_)) - (__tmp111680 + (_generate-values-check105038_ + _check105157_ + _body105181_)))) + (let ((__tmp111676 + (let ((__tmp111678 + (reverse _bind105156_)) + (__tmp111677 (let () (declare (not safe)) - (cons _body105186_ '())))) + (cons _body105183_ '())))) (declare (not safe)) - (cons __tmp111681 __tmp111680)))) + (cons __tmp111678 __tmp111677)))) (declare (not safe)) - (cons 'let __tmp111679)))))) + (cons 'let __tmp111676)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110591110592_)) - (let ((_e105170105194_ + (gx#stx-pair? ___stx110588110589_)) + (let ((_e105167105191_ (let () (declare (not safe)) - (gx#stx-e ___stx110591110592_)))) - (let ((_tl105168105199_ + (gx#stx-e ___stx110588110589_)))) + (let ((_tl105165105196_ (let () (declare (not safe)) - (##cdr _e105170105194_))) - (_hd105169105197_ + (##cdr _e105167105191_))) + (_hd105166105194_ (let () (declare (not safe)) - (##car _e105170105194_)))) - (___kont110593110594_ - _tl105168105199_ - _hd105169105197_))) - (___kont110595110596_))))))) - (_generate-values-post105040_ - (lambda (_post105112_ _body105113_) - (let _lp105115_ ((_rest105117_ _post105112_) - (_body105118_ _body105113_)) - (let* ((_rest105119105127_ _rest105117_) - (_else105121105135_ (lambda () _body105118_)) - (_K105123105141_ - (lambda (_rest105138_ _bind105139_) - (let ((__tmp111682 - (let ((__tmp111683 - (let ((__tmp111684 + (##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 (let () (declare (not safe)) - (cons _body105118_ + (cons _body105115_ '())))) (declare (not safe)) - (cons _bind105139_ - __tmp111684)))) + (cons _bind105136_ + __tmp111681)))) (declare (not safe)) - (cons 'let __tmp111683)))) + (cons 'let __tmp111680)))) (declare (not safe)) - (_lp105115_ _rest105138_ __tmp111682))))) + (_lp105112_ _rest105135_ __tmp111679))))) (if (let () (declare (not safe)) - (##pair? _rest105119105127_)) - (let ((_hd105124105144_ + (##pair? _rest105116105124_)) + (let ((_hd105121105141_ (let () (declare (not safe)) - (##car _rest105119105127_))) - (_tl105125105146_ + (##car _rest105116105124_))) + (_tl105122105143_ (let () (declare (not safe)) - (##cdr _rest105119105127_)))) - (let* ((_bind105149_ _hd105124105144_) - (_rest105151_ _tl105125105146_)) + (##cdr _rest105116105124_)))) + (let* ((_bind105146_ _hd105121105141_) + (_rest105148_ _tl105122105143_)) (declare (not safe)) - (_K105123105141_ _rest105151_ _bind105149_))) + (_K105120105138_ _rest105148_ _bind105146_))) (let () (declare (not safe)) - (_else105121105135_))))))) - (_generate-values-check105041_ - (lambda (_check105109_ _body105110_) - (let ((__tmp111685 - (let ((__tmp111687 + (_else105118105132_))))))) + (_generate-values-check105038_ + (lambda (_check105106_ _body105107_) + (let ((__tmp111682 + (let ((__tmp111684 (let () (declare (not safe)) - (cons _body105110_ '()))) - (__tmp111686 (reverse _check105109_))) + (cons _body105107_ '()))) + (__tmp111683 (reverse _check105106_))) (declare (not safe)) - (foldr1 cons __tmp111687 __tmp111686)))) + (foldr1 cons __tmp111684 __tmp111683)))) (declare (not safe)) - (cons 'begin __tmp111685))))) - (let* ((_g105043105060_ - (lambda (_g105044105057_) + (cons 'begin __tmp111682))))) + (let* ((_g105040105057_ + (lambda (_g105041105054_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105044105057_)))) - (_g105042105106_ - (lambda (_g105044105063_) + _g105041105054_)))) + (_g105039105103_ + (lambda (_g105041105060_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105044105063_)) - (let ((_e105049105065_ + (gx#stx-pair? _g105041105060_)) + (let ((_e105046105062_ (let () (declare (not safe)) - (gx#stx-e _g105044105063_)))) - (let ((_hd105048105068_ + (gx#stx-e _g105041105060_)))) + (let ((_hd105045105065_ (let () (declare (not safe)) - (##car _e105049105065_))) - (_tl105047105070_ + (##car _e105046105062_))) + (_tl105044105067_ (let () (declare (not safe)) - (##cdr _e105049105065_)))) + (##cdr _e105046105062_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105047105070_)) - (let ((_e105052105073_ + (gx#stx-pair? _tl105044105067_)) + (let ((_e105049105070_ (let () (declare (not safe)) - (gx#stx-e _tl105047105070_)))) - (let ((_hd105051105076_ + (gx#stx-e _tl105044105067_)))) + (let ((_hd105048105073_ (let () (declare (not safe)) - (##car _e105052105073_))) - (_tl105050105078_ + (##car _e105049105070_))) + (_tl105047105075_ (let () (declare (not safe)) - (##cdr _e105052105073_)))) + (##cdr _e105049105070_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105050105078_)) - (let ((_e105055105081_ + (gx#stx-pair? _tl105047105075_)) + (let ((_e105052105078_ (let () (declare (not safe)) (gx#stx-e - _tl105050105078_)))) - (let ((_hd105054105084_ + _tl105047105075_)))) + (let ((_hd105051105081_ (let () (declare (not safe)) - (##car _e105055105081_))) - (_tl105053105086_ + (##car _e105052105078_))) + (_tl105050105083_ (let () (declare (not safe)) - (##cdr _e105055105081_)))) + (##cdr _e105052105078_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl105053105086_)) - ((lambda (_L105089_ - _L105090_) + _tl105050105083_)) + ((lambda (_L105086_ + _L105087_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L105090_)) + _L105087_)) (let () (declare (not safe)) - (_generate-simple105036_ - _L105090_ - _L105089_)) + (_generate-simple105033_ + _L105087_ + _L105086_)) (let () (declare (not safe)) - (_generate-values105039_ - _L105090_ - _L105089_)))) - _hd105054105084_ - _hd105051105076_) + (_generate-values105036_ + _L105087_ + _L105086_)))) + _hd105051105081_ + _hd105048105073_) (let () (declare (not safe)) - (_g105043105060_ - _g105044105063_))))) + (_g105040105057_ + _g105041105060_))))) (let () (declare (not safe)) - (_g105043105060_ - _g105044105063_))))) + (_g105040105057_ + _g105041105060_))))) (let () (declare (not safe)) - (_g105043105060_ _g105044105063_))))) + (_g105040105057_ _g105041105060_))))) (let () (declare (not safe)) - (_g105043105060_ _g105044105063_)))))) + (_g105040105057_ _g105041105060_)))))) (declare (not safe)) - (_g105042105106_ _stx105033_))))) + (_g105039105103_ _stx105030_))))) (define gxc#generate-runtime-let-values%__0 - (lambda (_stx105752_) - (let ((_compiled-body?105754_ '#f)) + (lambda (_stx105749_) + (let ((_compiled-body?105751_ '#f)) (declare (not safe)) (gxc#generate-runtime-let-values%__% - _stx105752_ - _compiled-body?105754_)))) + _stx105749_ + _compiled-body?105751_)))) (define gxc#generate-runtime-let-values% - (lambda _g111689_ - (let ((_g111688_ (let () (declare (not safe)) (##length _g111689_)))) - (cond ((let () (declare (not safe)) (##fx= _g111688_ 1)) - (apply (lambda (_stx105752_) + (lambda _g111686_ + (let ((_g111685_ (let () (declare (not safe)) (##length _g111686_)))) + (cond ((let () (declare (not safe)) (##fx= _g111685_ 1)) + (apply (lambda (_stx105749_) (let () (declare (not safe)) (gxc#generate-runtime-let-values%__0 - _stx105752_))) - _g111689_)) - ((let () (declare (not safe)) (##fx= _g111688_ 2)) - (apply (lambda (_stx105756_ _compiled-body?105757_) + _stx105749_))) + _g111686_)) + ((let () (declare (not safe)) (##fx= _g111685_ 2)) + (apply (lambda (_stx105753_ _compiled-body?105754_) (let () (declare (not safe)) (gxc#generate-runtime-let-values%__% - _stx105756_ - _compiled-body?105757_))) - _g111689_)) + _stx105753_ + _compiled-body?105754_))) + _g111686_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-let-values% - _g111689_)))))) + _g111686_)))))) (define gxc#generate-runtime-let-values-bind - (lambda (_vals104927_ _hd104928_) - (let _lp104930_ ((_rest104932_ _hd104928_) - (_k104933_ '0) - (_r104934_ '())) - (let* ((___stx110605110606_ _rest104932_) - (_g104939104956_ + (lambda (_vals104924_ _hd104925_) + (let _lp104927_ ((_rest104929_ _hd104925_) + (_k104930_ '0) + (_r104931_ '())) + (let* ((___stx110602110603_ _rest104929_) + (_g104936104953_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110605110606_))))) - (let ((___kont110607110608_ - (lambda (_L105019_) - (let ((__tmp111690 + ___stx110602110603_))))) + (let ((___kont110604110605_ + (lambda (_L105016_) + (let ((__tmp111687 (let () (declare (not safe)) - (fx+ _k104933_ '1)))) + (fx+ _k104930_ '1)))) (declare (not safe)) - (_lp104930_ _L105019_ __tmp111690 _r104934_)))) - (___kont110609110610_ - (lambda (_L104992_ _L104993_) - (let ((__tmp111696 - (let () (declare (not safe)) (fx+ _k104933_ '1))) - (__tmp111691 - (let ((__tmp111692 - (let ((__tmp111695 + (_lp104927_ _L105016_ __tmp111687 _r104931_)))) + (___kont110606110607_ + (lambda (_L104989_ _L104990_) + (let ((__tmp111693 + (let () (declare (not safe)) (fx+ _k104930_ '1))) + (__tmp111688 + (let ((__tmp111689 + (let ((__tmp111692 (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L104993_))) - (__tmp111693 - (let ((__tmp111694 + _L104990_))) + (__tmp111690 + (let ((__tmp111691 (let () (declare (not safe)) (gxc#generate-runtime-values-ref - _vals104927_ - _k104933_ - _L104992_)))) + _vals104924_ + _k104930_ + _L104989_)))) (declare (not safe)) - (cons __tmp111694 '())))) + (cons __tmp111691 '())))) (declare (not safe)) - (cons __tmp111695 __tmp111693)))) + (cons __tmp111692 __tmp111690)))) (declare (not safe)) - (cons __tmp111692 _r104934_)))) + (cons __tmp111689 _r104931_)))) (declare (not safe)) - (_lp104930_ _L104992_ __tmp111696 __tmp111691)))) - (___kont110611110612_ - (lambda (_L104968_) - (let ((__tmp111697 - (let ((__tmp111698 - (let ((__tmp111701 + (_lp104927_ _L104989_ __tmp111693 __tmp111688)))) + (___kont110608110609_ + (lambda (_L104965_) + (let ((__tmp111694 + (let ((__tmp111695 + (let ((__tmp111698 (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L104968_))) - (__tmp111699 - (let ((__tmp111700 + _L104965_))) + (__tmp111696 + (let ((__tmp111697 (let () (declare (not safe)) (gxc#generate-runtime-values->list - _vals104927_ - _k104933_)))) + _vals104924_ + _k104930_)))) (declare (not safe)) - (cons __tmp111700 '())))) + (cons __tmp111697 '())))) (declare (not safe)) - (cons __tmp111701 __tmp111699)))) + (cons __tmp111698 __tmp111696)))) (declare (not safe)) - (cons __tmp111698 '())))) + (cons __tmp111695 '())))) (declare (not safe)) - (foldl1 cons __tmp111697 _r104934_)))) - (___kont110613110614_ (lambda () (reverse _r104934_)))) - (let ((_g104937104979_ + (foldl1 cons __tmp111694 _r104931_)))) + (___kont110610110611_ (lambda () (reverse _r104931_)))) + (let ((_g104934104976_ (lambda () - (let ((_L104968_ ___stx110605110606_)) + (let ((_L104965_ ___stx110602110603_)) (if (let () (declare (not safe)) - (gx#identifier? _L104968_)) - (___kont110611110612_ _L104968_) - (___kont110613110614_)))))) + (gx#identifier? _L104965_)) + (___kont110608110609_ _L104965_) + (___kont110610110611_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110605110606_)) - (let ((_e104944105008_ + (gx#stx-pair? ___stx110602110603_)) + (let ((_e104941105005_ (let () (declare (not safe)) - (gx#stx-e ___stx110605110606_)))) - (let ((_tl104942105013_ + (gx#stx-e ___stx110602110603_)))) + (let ((_tl104939105010_ (let () (declare (not safe)) - (##cdr _e104944105008_))) - (_hd104943105011_ + (##cdr _e104941105005_))) + (_hd104940105008_ (let () (declare (not safe)) - (##car _e104944105008_)))) + (##car _e104941105005_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd104943105011_)) - (let ((_e104945105016_ + (gx#stx-datum? _hd104940105008_)) + (let ((_e104942105013_ (let () (declare (not safe)) - (gx#stx-e _hd104943105011_)))) + (gx#stx-e _hd104940105008_)))) (if (let () (declare (not safe)) - (equal? _e104945105016_ '#f)) - (___kont110607110608_ _tl104942105013_) - (___kont110609110610_ - _tl104942105013_ - _hd104943105011_))) - (___kont110609110610_ - _tl104942105013_ - _hd104943105011_)))) - (let () (declare (not safe)) (_g104937104979_))))))))) + (equal? _e104942105013_ '#f)) + (___kont110604110605_ _tl104939105010_) + (___kont110606110607_ + _tl104939105010_ + _hd104940105008_))) + (___kont110606110607_ + _tl104939105010_ + _hd104940105008_)))) + (let () (declare (not safe)) (_g104934104976_))))))))) (define gxc#generate-runtime-letrec-values%__% - (lambda (_stx104609_ _compiled-body?104610_) - (letrec ((_generate-simple104612_ - (lambda (_hd104914_ _body104915_) + (lambda (_stx104606_ _compiled-body?104607_) + (letrec ((_generate-simple104609_ + (lambda (_hd104911_ _body104912_) (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'letrec - _hd104914_ - _body104915_ - _compiled-body?104610_)))) - (_generate-values104613_ - (lambda (_hd104693_ _body104694_) - (let _lp104696_ ((_rest104698_ _hd104693_) - (_bind104699_ '()) - (_check104700_ '()) - (_post104701_ '())) - (let* ((___stx110679110680_ _rest104698_) - (_g104704104715_ + _hd104911_ + _body104912_ + _compiled-body?104607_)))) + (_generate-values104610_ + (lambda (_hd104690_ _body104691_) + (let _lp104693_ ((_rest104695_ _hd104690_) + (_bind104696_ '()) + (_check104697_ '()) + (_post104698_ '())) + (let* ((___stx110676110677_ _rest104695_) + (_g104701104712_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110679110680_))))) - (let ((___kont110681110682_ - (lambda (_L104742_ _L104743_) - (let* ((___stx110635110636_ _L104743_) - (_g104758104783_ + ___stx110676110677_))))) + (let ((___kont110678110679_ + (lambda (_L104739_ _L104740_) + (let* ((___stx110632110633_ _L104740_) + (_g104755104780_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110635110636_))))) - (let ((___kont110637110638_ - (lambda (_L104890_ _L104891_) - (let ((_eid104905_ + ___stx110632110633_))))) + (let ((___kont110634110635_ + (lambda (_L104887_ _L104888_) + (let ((_eid104902_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L104891_))) - (_expr104906_ + _L104888_))) + (_expr104903_ (let () (declare (not safe)) (gxc#compile-e__0 - _L104890_)))) - (let ((__tmp111702 - (let ((__tmp111703 - (let ((__tmp111704 + _L104887_)))) + (let ((__tmp111699 + (let ((__tmp111700 + (let ((__tmp111701 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr104906_ '())))) + (cons _expr104903_ '())))) (declare (not safe)) - (cons _eid104905_ __tmp111704)))) + (cons _eid104902_ __tmp111701)))) (declare (not safe)) - (cons __tmp111703 _bind104699_)))) + (cons __tmp111700 _bind104696_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp104696_ - _L104742_ - __tmp111702 - _check104700_ - _post104701_))))) - (___kont110639110640_ - (lambda (_L104804_ _L104805_) - (let* ((_vals104818_ + (_lp104693_ + _L104739_ + __tmp111699 + _check104697_ + _post104698_))))) + (___kont110636110637_ + (lambda (_L104801_ _L104802_) + (let* ((_vals104815_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values104820_ + (_check-values104817_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _vals104818_ - _L104805_ - _L104804_))) - (_refs104822_ + _vals104815_ + _L104802_ + _L104801_))) + (_refs104819_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals104818_ - _L104805_))) - (_expr104824_ + _vals104815_ + _L104802_))) + (_expr104821_ (let () (declare (not safe)) (gxc#compile-e__0 - _L104804_)))) - (let ((__tmp111707 - (let ((__tmp111710 - (let ((__tmp111711 + _L104801_)))) + (let ((__tmp111704 + (let ((__tmp111707 + (let ((__tmp111708 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111712 + (let ((__tmp111709 (let () (declare (not safe)) - (cons _expr104824_ '())))) + (cons _expr104821_ '())))) (declare (not safe)) - (cons _vals104818_ __tmp111712)))) + (cons _vals104815_ __tmp111709)))) (declare (not safe)) - (cons __tmp111711 _bind104699_))) - (__tmp111708 - (map (lambda (_e104826104828_) - (let* ((_g104830104839_ _e104826104828_) - (_E104832104843_ + (cons __tmp111708 _bind104696_))) + (__tmp111705 + (map (lambda (_e104823104825_) + (let* ((_g104827104836_ _e104823104825_) + (_E104829104840_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _g104830104839_)))) - (_K104833104848_ - (lambda (_eid104846_) - (let ((__tmp111709 + _g104827104836_)))) + (_K104830104845_ + (lambda (_eid104843_) + (let ((__tmp111706 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons _eid104846_ __tmp111709))))) + (cons _eid104843_ __tmp111706))))) (if (let () (declare (not safe)) - (##pair? _g104830104839_)) - (let ((_hd104834104851_ + (##pair? _g104827104836_)) + (let ((_hd104831104848_ (let () (declare (not safe)) - (##car _g104830104839_))) - (_tl104835104853_ + (##car _g104827104836_))) + (_tl104832104850_ (let () (declare (not safe)) - (##cdr _g104830104839_)))) - (let ((_eid104856_ _hd104834104851_)) + (##cdr _g104827104836_)))) + (let ((_eid104853_ _hd104831104848_)) (if (let () (declare (not safe)) - (##pair? _tl104835104853_)) - (let ((_tl104837104858_ + (##pair? _tl104832104850_)) + (let ((_tl104834104855_ (let () (declare (not safe)) - (##cdr _tl104835104853_)))) + (##cdr _tl104832104850_)))) (if (let () (declare (not safe)) - (##null? _tl104837104858_)) + (##null? _tl104834104855_)) (let () (declare (not safe)) - (_K104833104848_ - _eid104856_)) + (_K104830104845_ + _eid104853_)) (let () (declare (not safe)) - (_E104832104843_)))) + (_E104829104840_)))) (let () (declare (not safe)) - (_E104832104843_))))) + (_E104829104840_))))) (let () (declare (not safe)) - (_E104832104843_))))) - _refs104822_))) + (_E104829104840_))))) + _refs104819_))) (declare (not safe)) - (foldl1 cons __tmp111710 __tmp111708))) - (__tmp111706 + (foldl1 cons __tmp111707 __tmp111705))) + (__tmp111703 (let () (declare (not safe)) - (cons _check-values104820_ _check104700_))) - (__tmp111705 + (cons _check-values104817_ _check104697_))) + (__tmp111702 (let () (declare (not safe)) - (foldl1 cons _refs104822_ _post104701_)))) + (foldl1 cons _refs104819_ _post104698_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp104696_ - _L104742_ - __tmp111707 - __tmp111706 - __tmp111705)))))) + (_lp104693_ + _L104739_ + __tmp111704 + __tmp111703 + __tmp111702)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx110635110636_)) - (let ((_e104764104866_ + ___stx110632110633_)) + (let ((_e104761104863_ (let () (declare (not safe)) (gx#stx-e - ___stx110635110636_)))) - (let ((_tl104762104871_ + ___stx110632110633_)))) + (let ((_tl104759104868_ (let () (declare (not safe)) - (##cdr _e104764104866_))) - (_hd104763104869_ + (##cdr _e104761104863_))) + (_hd104760104866_ (let () (declare (not safe)) - (##car _e104764104866_)))) + (##car _e104761104863_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd104763104869_)) - (let ((_e104767104874_ + _hd104760104866_)) + (let ((_e104764104871_ (let () (declare (not safe)) (gx#stx-e - _hd104763104869_)))) - (let ((_tl104765104879_ + _hd104760104866_)))) + (let ((_tl104762104876_ (let () (declare (not safe)) - (##cdr _e104767104874_))) - (_hd104766104877_ + (##cdr _e104764104871_))) + (_hd104763104874_ (let () (declare (not safe)) - (##car _e104767104874_)))) + (##car _e104764104871_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl104765104879_)) + _tl104762104876_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl104762104871_)) - (let ((_e104770104882_ + (gx#stx-pair? _tl104759104868_)) + (let ((_e104767104879_ (let () (declare (not safe)) - (gx#stx-e _tl104762104871_)))) - (let ((_tl104768104887_ + (gx#stx-e _tl104759104868_)))) + (let ((_tl104765104884_ (let () (declare (not safe)) - (##cdr _e104770104882_))) - (_hd104769104885_ + (##cdr _e104767104879_))) + (_hd104766104882_ (let () (declare (not safe)) - (##car _e104770104882_)))) + (##car _e104767104879_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104768104887_)) - (___kont110637110638_ - _hd104769104885_ - _hd104766104877_) + (gx#stx-null? _tl104765104884_)) + (___kont110634110635_ + _hd104766104882_ + _hd104763104874_) (let () (declare (not safe)) - (_g104758104783_))))) - (let () (declare (not safe)) (_g104758104783_))) + (_g104755104780_))))) + (let () (declare (not safe)) (_g104755104780_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104762104871_)) - (let ((_e104778104796_ + (gx#stx-pair? _tl104759104868_)) + (let ((_e104775104793_ (let () (declare (not safe)) - (gx#stx-e _tl104762104871_)))) - (let ((_tl104776104801_ + (gx#stx-e _tl104759104868_)))) + (let ((_tl104773104798_ (let () (declare (not safe)) - (##cdr _e104778104796_))) - (_hd104777104799_ + (##cdr _e104775104793_))) + (_hd104774104796_ (let () (declare (not safe)) - (##car _e104778104796_)))) + (##car _e104775104793_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104776104801_)) - (___kont110639110640_ - _hd104777104799_ - _hd104763104869_) + (gx#stx-null? _tl104773104798_)) + (___kont110636110637_ + _hd104774104796_ + _hd104760104866_) (let () (declare (not safe)) - (_g104758104783_))))) - (let () (declare (not safe)) (_g104758104783_)))))) + (_g104755104780_))))) + (let () (declare (not safe)) (_g104755104780_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl104762104871_)) - (let ((_e104778104796_ + _tl104759104868_)) + (let ((_e104775104793_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl104762104871_)))) - (let ((_tl104776104801_ - (let () (declare (not safe)) (##cdr _e104778104796_))) - (_hd104777104799_ - (let () (declare (not safe)) (##car _e104778104796_)))) + (gx#stx-e _tl104759104868_)))) + (let ((_tl104773104798_ + (let () (declare (not safe)) (##cdr _e104775104793_))) + (_hd104774104796_ + (let () (declare (not safe)) (##car _e104775104793_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104776104801_)) - (___kont110639110640_ _hd104777104799_ _hd104763104869_) - (let () (declare (not safe)) (_g104758104783_))))) - (let () (declare (not safe)) (_g104758104783_)))))) + (gx#stx-null? _tl104773104798_)) + (___kont110636110637_ _hd104774104796_ _hd104760104866_) + (let () (declare (not safe)) (_g104755104780_))))) + (let () (declare (not safe)) (_g104755104780_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g104758104783_))))))) - (___kont110683110684_ + (_g104755104780_))))))) + (___kont110680110681_ (lambda () - (let* ((_body104722_ - (if _compiled-body?104610_ - _body104694_ + (let* ((_body104719_ + (if _compiled-body?104607_ + _body104691_ (let () (declare (not safe)) (gxc#compile-e__0 - _body104694_)))) - (_body104724_ + _body104691_)))) + (_body104721_ (let () (declare (not safe)) - (_generate-values-post104615_ - _post104701_ - _body104722_))) - (_body104726_ + (_generate-values-post104612_ + _post104698_ + _body104719_))) + (_body104723_ (let () (declare (not safe)) - (_generate-values-check104614_ - _check104700_ - _body104724_)))) - (let ((__tmp111713 - (let ((__tmp111715 - (reverse _bind104699_)) - (__tmp111714 + (_generate-values-check104611_ + _check104697_ + _body104721_)))) + (let ((__tmp111710 + (let ((__tmp111712 + (reverse _bind104696_)) + (__tmp111711 (let () (declare (not safe)) - (cons _body104726_ '())))) + (cons _body104723_ '())))) (declare (not safe)) - (cons __tmp111715 __tmp111714)))) + (cons __tmp111712 __tmp111711)))) (declare (not safe)) - (cons 'letrec __tmp111713)))))) + (cons 'letrec __tmp111710)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110679110680_)) - (let ((_e104710104734_ + (gx#stx-pair? ___stx110676110677_)) + (let ((_e104707104731_ (let () (declare (not safe)) - (gx#stx-e ___stx110679110680_)))) - (let ((_tl104708104739_ + (gx#stx-e ___stx110676110677_)))) + (let ((_tl104705104736_ (let () (declare (not safe)) - (##cdr _e104710104734_))) - (_hd104709104737_ + (##cdr _e104707104731_))) + (_hd104706104734_ (let () (declare (not safe)) - (##car _e104710104734_)))) - (___kont110681110682_ - _tl104708104739_ - _hd104709104737_))) - (___kont110683110684_))))))) - (_generate-values-check104614_ - (lambda (_check104690_ _body104691_) - (let ((__tmp111716 - (let ((__tmp111718 + (##car _e104707104731_)))) + (___kont110678110679_ + _tl104705104736_ + _hd104706104734_))) + (___kont110680110681_))))))) + (_generate-values-check104611_ + (lambda (_check104687_ _body104688_) + (let ((__tmp111713 + (let ((__tmp111715 (let () (declare (not safe)) - (cons _body104691_ '()))) - (__tmp111717 (reverse _check104690_))) + (cons _body104688_ '()))) + (__tmp111714 (reverse _check104687_))) (declare (not safe)) - (foldr1 cons __tmp111718 __tmp111717)))) + (foldr1 cons __tmp111715 __tmp111714)))) (declare (not safe)) - (cons 'begin __tmp111716)))) - (_generate-values-post104615_ - (lambda (_post104683_ _body104684_) - (let ((__tmp111719 - (let ((__tmp111721 + (cons 'begin __tmp111713)))) + (_generate-values-post104612_ + (lambda (_post104680_ _body104681_) + (let ((__tmp111716 + (let ((__tmp111718 (let () (declare (not safe)) - (cons _body104684_ '()))) - (__tmp111720 - (map (lambda (_g104685104687_) + (cons _body104681_ '()))) + (__tmp111717 + (map (lambda (_g104682104684_) (let () (declare (not safe)) - (cons 'set! _g104685104687_))) - (reverse _post104683_)))) + (cons 'set! _g104682104684_))) + (reverse _post104680_)))) (declare (not safe)) - (foldr1 cons __tmp111721 __tmp111720)))) + (foldr1 cons __tmp111718 __tmp111717)))) (declare (not safe)) - (cons 'begin __tmp111719))))) - (let* ((_g104617104634_ - (lambda (_g104618104631_) + (cons 'begin __tmp111716))))) + (let* ((_g104614104631_ + (lambda (_g104615104628_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104618104631_)))) - (_g104616104680_ - (lambda (_g104618104637_) + _g104615104628_)))) + (_g104613104677_ + (lambda (_g104615104634_) (if (let () (declare (not safe)) - (gx#stx-pair? _g104618104637_)) - (let ((_e104623104639_ + (gx#stx-pair? _g104615104634_)) + (let ((_e104620104636_ (let () (declare (not safe)) - (gx#stx-e _g104618104637_)))) - (let ((_hd104622104642_ + (gx#stx-e _g104615104634_)))) + (let ((_hd104619104639_ (let () (declare (not safe)) - (##car _e104623104639_))) - (_tl104621104644_ + (##car _e104620104636_))) + (_tl104618104641_ (let () (declare (not safe)) - (##cdr _e104623104639_)))) + (##cdr _e104620104636_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104621104644_)) - (let ((_e104626104647_ + (gx#stx-pair? _tl104618104641_)) + (let ((_e104623104644_ (let () (declare (not safe)) - (gx#stx-e _tl104621104644_)))) - (let ((_hd104625104650_ + (gx#stx-e _tl104618104641_)))) + (let ((_hd104622104647_ (let () (declare (not safe)) - (##car _e104626104647_))) - (_tl104624104652_ + (##car _e104623104644_))) + (_tl104621104649_ (let () (declare (not safe)) - (##cdr _e104626104647_)))) + (##cdr _e104623104644_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104624104652_)) - (let ((_e104629104655_ + (gx#stx-pair? _tl104621104649_)) + (let ((_e104626104652_ (let () (declare (not safe)) (gx#stx-e - _tl104624104652_)))) - (let ((_hd104628104658_ + _tl104621104649_)))) + (let ((_hd104625104655_ (let () (declare (not safe)) - (##car _e104629104655_))) - (_tl104627104660_ + (##car _e104626104652_))) + (_tl104624104657_ (let () (declare (not safe)) - (##cdr _e104629104655_)))) + (##cdr _e104626104652_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl104627104660_)) - ((lambda (_L104663_ - _L104664_) + _tl104624104657_)) + ((lambda (_L104660_ + _L104661_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L104664_)) + _L104661_)) (let () (declare (not safe)) - (_generate-simple104612_ - _L104664_ - _L104663_)) + (_generate-simple104609_ + _L104661_ + _L104660_)) (let () (declare (not safe)) - (_generate-values104613_ - _L104664_ - _L104663_)))) - _hd104628104658_ - _hd104625104650_) + (_generate-values104610_ + _L104661_ + _L104660_)))) + _hd104625104655_ + _hd104622104647_) (let () (declare (not safe)) - (_g104617104634_ - _g104618104637_))))) + (_g104614104631_ + _g104615104634_))))) (let () (declare (not safe)) - (_g104617104634_ - _g104618104637_))))) + (_g104614104631_ + _g104615104634_))))) (let () (declare (not safe)) - (_g104617104634_ _g104618104637_))))) + (_g104614104631_ _g104615104634_))))) (let () (declare (not safe)) - (_g104617104634_ _g104618104637_)))))) + (_g104614104631_ _g104615104634_)))))) (declare (not safe)) - (_g104616104680_ _stx104609_))))) + (_g104613104677_ _stx104606_))))) (define gxc#generate-runtime-letrec-values%__0 - (lambda (_stx104920_) - (let ((_compiled-body?104922_ '#f)) + (lambda (_stx104917_) + (let ((_compiled-body?104919_ '#f)) (declare (not safe)) (gxc#generate-runtime-letrec-values%__% - _stx104920_ - _compiled-body?104922_)))) + _stx104917_ + _compiled-body?104919_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g111723_ - (let ((_g111722_ (let () (declare (not safe)) (##length _g111723_)))) - (cond ((let () (declare (not safe)) (##fx= _g111722_ 1)) - (apply (lambda (_stx104920_) + (lambda _g111720_ + (let ((_g111719_ (let () (declare (not safe)) (##length _g111720_)))) + (cond ((let () (declare (not safe)) (##fx= _g111719_ 1)) + (apply (lambda (_stx104917_) (let () (declare (not safe)) (gxc#generate-runtime-letrec-values%__0 - _stx104920_))) - _g111723_)) - ((let () (declare (not safe)) (##fx= _g111722_ 2)) - (apply (lambda (_stx104924_ _compiled-body?104925_) + _stx104917_))) + _g111720_)) + ((let () (declare (not safe)) (##fx= _g111719_ 2)) + (apply (lambda (_stx104921_ _compiled-body?104922_) (let () (declare (not safe)) (gxc#generate-runtime-letrec-values%__% - _stx104924_ - _compiled-body?104925_))) - _g111723_)) + _stx104921_ + _compiled-body?104922_))) + _g111720_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-letrec-values% - _g111723_)))))) + _g111720_)))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_stx104191_) - (letrec ((_generate-values104193_ - (lambda (_hd104436_ _body104437_) - (let _lp104439_ ((_rest104441_ _hd104436_) - (_bind104442_ '())) - (let* ((_rest104443104451_ _rest104441_) - (_else104445104462_ + (lambda (_stx104188_) + (letrec ((_generate-values104190_ + (lambda (_hd104433_ _body104434_) + (let _lp104436_ ((_rest104438_ _hd104433_) + (_bind104439_ '())) + (let* ((_rest104440104448_ _rest104438_) + (_else104442104459_ (lambda () - (let ((_bind104459_ (reverse _bind104442_)) - (_body104460_ + (let ((_bind104456_ (reverse _bind104439_)) + (_body104457_ (let () (declare (not safe)) - (gxc#compile-e__0 _body104437_)))) - (let ((__tmp111724 - (let ((__tmp111725 + (gxc#compile-e__0 _body104434_)))) + (let ((__tmp111721 + (let ((__tmp111722 (let () (declare (not safe)) - (cons _body104460_ '())))) + (cons _body104457_ '())))) (declare (not safe)) - (cons _bind104459_ __tmp111725)))) + (cons _bind104456_ __tmp111722)))) (declare (not safe)) - (cons 'letrec* __tmp111724))))) - (_K104447104596_ - (lambda (_rest104465_ _hd-bind104466_) - (let* ((___stx110693110694_ _hd-bind104466_) - (_g104469104494_ + (cons 'letrec* __tmp111721))))) + (_K104444104593_ + (lambda (_rest104462_ _hd-bind104463_) + (let* ((___stx110690110691_ _hd-bind104463_) + (_g104466104491_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110693110694_))))) - (let ((___kont110695110696_ - (lambda (_L104575_ _L104576_) - (let ((_eid104590_ + ___stx110690110691_))))) + (let ((___kont110692110693_ + (lambda (_L104572_ _L104573_) + (let ((_eid104587_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L104576_))) - (_expr104591_ + _L104573_))) + (_expr104588_ (let () (declare (not safe)) (gxc#compile-e__0 - _L104575_)))) - (let ((__tmp111726 - (let ((__tmp111727 - (let ((__tmp111728 + _L104572_)))) + (let ((__tmp111723 + (let ((__tmp111724 + (let ((__tmp111725 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr104591_ '())))) + (cons _expr104588_ '())))) (declare (not safe)) - (cons _eid104590_ __tmp111728)))) + (cons _eid104587_ __tmp111725)))) (declare (not safe)) - (cons __tmp111727 _bind104442_)))) + (cons __tmp111724 _bind104439_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp104439_ - _rest104465_ - __tmp111726))))) - (___kont110697110698_ - (lambda (_L104515_ _L104516_) - (let* ((_vals104535_ + (_lp104436_ + _rest104462_ + __tmp111723))))) + (___kont110694110695_ + (lambda (_L104512_ _L104513_) + (let* ((_vals104532_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_tmp104537_ + (_tmp104534_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values104539_ + (_check-values104536_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _tmp104537_ - _L104516_ - _L104515_))) - (_refs104541_ + _tmp104534_ + _L104513_ + _L104512_))) + (_refs104538_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals104535_ - _L104516_))) - (_expr104543_ + _vals104532_ + _L104513_))) + (_expr104540_ (let () (declare (not safe)) (gxc#compile-e__0 - _L104515_)))) - (let ((__tmp111729 - (let ((__tmp111730 - (let ((__tmp111731 + _L104512_)))) + (let ((__tmp111726 + (let ((__tmp111727 + (let ((__tmp111728 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111732 - (let ((__tmp111733 - (let ((__tmp111734 - (let ((__tmp111737 - (let ((__tmp111738 - (let ((__tmp111739 + (let ((__tmp111729 + (let ((__tmp111730 + (let ((__tmp111731 + (let ((__tmp111734 + (let ((__tmp111735 + (let ((__tmp111736 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr104543_ '())))) + (cons _expr104540_ '())))) (declare (not safe)) - (cons _tmp104537_ __tmp111739)))) + (cons _tmp104534_ __tmp111736)))) (declare (not safe)) - (cons __tmp111738 '()))) - (__tmp111735 - (let ((__tmp111736 - (let () (declare (not safe)) (cons _tmp104537_ '())))) + (cons __tmp111735 '()))) + (__tmp111732 + (let ((__tmp111733 + (let () (declare (not safe)) (cons _tmp104534_ '())))) (declare (not safe)) - (cons _check-values104539_ __tmp111736)))) + (cons _check-values104536_ __tmp111733)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111737 - __tmp111735)))) + (cons __tmp111734 + __tmp111732)))) (declare (not safe)) - (cons 'let __tmp111734)))) + (cons 'let __tmp111731)))) (declare (not safe)) - (cons __tmp111733 '())))) + (cons __tmp111730 '())))) (declare (not safe)) - (cons _vals104535_ __tmp111732)))) + (cons _vals104532_ __tmp111729)))) (declare (not safe)) - (cons __tmp111731 _bind104442_)))) + (cons __tmp111728 _bind104439_)))) (declare (not safe)) - (foldl1 cons __tmp111730 _refs104541_)))) + (foldl1 cons __tmp111727 _refs104538_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp104439_ - _rest104465_ - __tmp111729)))))) + (_lp104436_ + _rest104462_ + __tmp111726)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110693110694_)) - (let ((_e104475104551_ + (gx#stx-pair? ___stx110690110691_)) + (let ((_e104472104548_ (let () (declare (not safe)) (gx#stx-e - ___stx110693110694_)))) - (let ((_tl104473104556_ + ___stx110690110691_)))) + (let ((_tl104470104553_ (let () (declare (not safe)) - (##cdr _e104475104551_))) - (_hd104474104554_ + (##cdr _e104472104548_))) + (_hd104471104551_ (let () (declare (not safe)) - (##car _e104475104551_)))) + (##car _e104472104548_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd104474104554_)) - (let ((_e104478104559_ + _hd104471104551_)) + (let ((_e104475104556_ (let () (declare (not safe)) (gx#stx-e - _hd104474104554_)))) - (let ((_tl104476104564_ + _hd104471104551_)))) + (let ((_tl104473104561_ (let () (declare (not safe)) - (##cdr _e104478104559_))) - (_hd104477104562_ + (##cdr _e104475104556_))) + (_hd104474104559_ (let () (declare (not safe)) - (##car _e104478104559_)))) + (##car _e104475104556_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl104476104564_)) + _tl104473104561_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl104473104556_)) - (let ((_e104481104567_ + (gx#stx-pair? _tl104470104553_)) + (let ((_e104478104564_ (let () (declare (not safe)) - (gx#stx-e _tl104473104556_)))) - (let ((_tl104479104572_ + (gx#stx-e _tl104470104553_)))) + (let ((_tl104476104569_ (let () (declare (not safe)) - (##cdr _e104481104567_))) - (_hd104480104570_ + (##cdr _e104478104564_))) + (_hd104477104567_ (let () (declare (not safe)) - (##car _e104481104567_)))) + (##car _e104478104564_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104479104572_)) - (___kont110695110696_ - _hd104480104570_ - _hd104477104562_) + (gx#stx-null? _tl104476104569_)) + (___kont110692110693_ + _hd104477104567_ + _hd104474104559_) (let () (declare (not safe)) - (_g104469104494_))))) - (let () (declare (not safe)) (_g104469104494_))) + (_g104466104491_))))) + (let () (declare (not safe)) (_g104466104491_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104473104556_)) - (let ((_e104489104507_ + (gx#stx-pair? _tl104470104553_)) + (let ((_e104486104504_ (let () (declare (not safe)) - (gx#stx-e _tl104473104556_)))) - (let ((_tl104487104512_ + (gx#stx-e _tl104470104553_)))) + (let ((_tl104484104509_ (let () (declare (not safe)) - (##cdr _e104489104507_))) - (_hd104488104510_ + (##cdr _e104486104504_))) + (_hd104485104507_ (let () (declare (not safe)) - (##car _e104489104507_)))) + (##car _e104486104504_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104487104512_)) - (___kont110697110698_ - _hd104488104510_ - _hd104474104554_) + (gx#stx-null? _tl104484104509_)) + (___kont110694110695_ + _hd104485104507_ + _hd104471104551_) (let () (declare (not safe)) - (_g104469104494_))))) - (let () (declare (not safe)) (_g104469104494_)))))) + (_g104466104491_))))) + (let () (declare (not safe)) (_g104466104491_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl104473104556_)) - (let ((_e104489104507_ + _tl104470104553_)) + (let ((_e104486104504_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl104473104556_)))) - (let ((_tl104487104512_ - (let () (declare (not safe)) (##cdr _e104489104507_))) - (_hd104488104510_ - (let () (declare (not safe)) (##car _e104489104507_)))) + (gx#stx-e _tl104470104553_)))) + (let ((_tl104484104509_ + (let () (declare (not safe)) (##cdr _e104486104504_))) + (_hd104485104507_ + (let () (declare (not safe)) (##car _e104486104504_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104487104512_)) - (___kont110697110698_ _hd104488104510_ _hd104474104554_) - (let () (declare (not safe)) (_g104469104494_))))) - (let () (declare (not safe)) (_g104469104494_)))))) + (gx#stx-null? _tl104484104509_)) + (___kont110694110695_ _hd104485104507_ _hd104471104551_) + (let () (declare (not safe)) (_g104466104491_))))) + (let () (declare (not safe)) (_g104466104491_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g104469104494_)))))))) + (_g104466104491_)))))))) (if (let () (declare (not safe)) - (##pair? _rest104443104451_)) - (let ((_hd104448104599_ + (##pair? _rest104440104448_)) + (let ((_hd104445104596_ (let () (declare (not safe)) - (##car _rest104443104451_))) - (_tl104449104601_ + (##car _rest104440104448_))) + (_tl104446104598_ (let () (declare (not safe)) - (##cdr _rest104443104451_)))) - (let* ((_hd-bind104604_ _hd104448104599_) - (_rest104606_ _tl104449104601_)) + (##cdr _rest104440104448_)))) + (let* ((_hd-bind104601_ _hd104445104596_) + (_rest104603_ _tl104446104598_)) (declare (not safe)) - (_K104447104596_ - _rest104606_ - _hd-bind104604_))) + (_K104444104593_ + _rest104603_ + _hd-bind104601_))) (let () (declare (not safe)) - (_else104445104462_))))))) - (_generate-letrec?104194_ - (lambda (_hd104326_) - (let _lp104328_ ((_rest104330_ _hd104326_)) - (let* ((_rest104331104339_ _rest104330_) - (_else104333104347_ (lambda () '#t)) - (_K104335104424_ - (lambda (_rest104350_ _hd-bind104351_) - (let* ((_g104353104370_ - (lambda (_g104354104367_) + (_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_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104354104367_)))) - (_g104352104421_ - (lambda (_g104354104373_) + _g104351104364_)))) + (_g104349104418_ + (lambda (_g104351104370_) (if (let () (declare (not safe)) (gx#stx-pair? - _g104354104373_)) - (let ((_e104359104375_ + _g104351104370_)) + (let ((_e104356104372_ (let () (declare (not safe)) (gx#stx-e - _g104354104373_)))) - (let ((_hd104358104378_ + _g104351104370_)))) + (let ((_hd104355104375_ (let () (declare (not safe)) - (##car _e104359104375_))) - (_tl104357104380_ + (##car _e104356104372_))) + (_tl104354104377_ (let () (declare (not safe)) - (##cdr _e104359104375_)))) + (##cdr _e104356104372_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd104358104378_)) - (let ((_e104362104383_ + _hd104355104375_)) + (let ((_e104359104380_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd104358104378_)))) - (let ((_hd104361104386_ - (let () (declare (not safe)) (##car _e104362104383_))) - (_tl104360104388_ + (gx#stx-e _hd104355104375_)))) + (let ((_hd104358104383_ + (let () (declare (not safe)) (##car _e104359104380_))) + (_tl104357104385_ (let () (declare (not safe)) - (##cdr _e104362104383_)))) + (##cdr _e104359104380_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104360104388_)) + (gx#stx-null? _tl104357104385_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104357104380_)) - (let ((_e104365104391_ + (gx#stx-pair? _tl104354104377_)) + (let ((_e104362104388_ (let () (declare (not safe)) - (gx#stx-e _tl104357104380_)))) - (let ((_hd104364104394_ + (gx#stx-e _tl104354104377_)))) + (let ((_hd104361104391_ (let () (declare (not safe)) - (##car _e104365104391_))) - (_tl104363104396_ + (##car _e104362104388_))) + (_tl104360104393_ (let () (declare (not safe)) - (##cdr _e104365104391_)))) + (##cdr _e104362104388_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104363104396_)) - ((lambda (_L104399_ _L104400_) + (gx#stx-null? _tl104360104393_)) + ((lambda (_L104396_ _L104397_) (if (let () (declare (not safe)) - (_is-lambda-expr?104195_ - _L104399_)) + (_is-lambda-expr?104192_ + _L104396_)) (let () (declare (not safe)) - (_lp104328_ _rest104350_)) + (_lp104325_ _rest104347_)) '#f)) - _hd104364104394_ - _hd104361104386_) + _hd104361104391_ + _hd104358104383_) (let () (declare (not safe)) - (_g104353104370_ _g104354104373_))))) + (_g104350104367_ _g104351104370_))))) (let () (declare (not safe)) - (_g104353104370_ _g104354104373_))) + (_g104350104367_ _g104351104370_))) (let () (declare (not safe)) - (_g104353104370_ _g104354104373_))))) + (_g104350104367_ _g104351104370_))))) (let () (declare (not safe)) - (_g104353104370_ _g104354104373_))))) + (_g104350104367_ _g104351104370_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g104353104370_ - _g104354104373_)))))) + (_g104350104367_ + _g104351104370_)))))) (declare (not safe)) - (_g104352104421_ _hd-bind104351_))))) + (_g104349104418_ _hd-bind104348_))))) (if (let () (declare (not safe)) - (##pair? _rest104331104339_)) - (let ((_hd104336104427_ + (##pair? _rest104328104336_)) + (let ((_hd104333104424_ (let () (declare (not safe)) - (##car _rest104331104339_))) - (_tl104337104429_ + (##car _rest104328104336_))) + (_tl104334104426_ (let () (declare (not safe)) - (##cdr _rest104331104339_)))) - (let* ((_hd-bind104432_ _hd104336104427_) - (_rest104434_ _tl104337104429_)) + (##cdr _rest104328104336_)))) + (let* ((_hd-bind104429_ _hd104333104424_) + (_rest104431_ _tl104334104426_)) (declare (not safe)) - (_K104335104424_ - _rest104434_ - _hd-bind104432_))) + (_K104332104421_ + _rest104431_ + _hd-bind104429_))) (let () (declare (not safe)) - (_else104333104347_))))))) - (_is-lambda-expr?104195_ - (lambda (_expr104263_) - (let* ((___stx110737110738_ _expr104263_) - (_g104266104280_ + (_else104330104344_))))))) + (_is-lambda-expr?104192_ + (lambda (_expr104260_) + (let* ((___stx110734110735_ _expr104260_) + (_g104263104277_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110737110738_))))) - (let ((___kont110739110740_ - (lambda (_L104308_ _L104309_) '#t)) - (___kont110741110742_ (lambda () '#f))) + ___stx110734110735_))))) + (let ((___kont110736110737_ + (lambda (_L104305_ _L104306_) '#t)) + (___kont110738110739_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110737110738_)) - (let ((_e104272104292_ + (gx#stx-pair? ___stx110734110735_)) + (let ((_e104269104289_ (let () (declare (not safe)) - (gx#stx-e ___stx110737110738_)))) - (let ((_tl104270104297_ + (gx#stx-e ___stx110734110735_)))) + (let ((_tl104267104294_ (let () (declare (not safe)) - (##cdr _e104272104292_))) - (_hd104271104295_ + (##cdr _e104269104289_))) + (_hd104268104292_ (let () (declare (not safe)) - (##car _e104272104292_)))) + (##car _e104269104289_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd104271104295_)) + (gx#identifier? _hd104268104292_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd104271104295_)) + _hd104268104292_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl104270104297_)) - (let ((_e104275104300_ + _tl104267104294_)) + (let ((_e104272104297_ (let () (declare (not safe)) (gx#stx-e - _tl104270104297_)))) - (let ((_tl104273104305_ + _tl104267104294_)))) + (let ((_tl104270104302_ (let () (declare (not safe)) - (##cdr _e104275104300_))) - (_hd104274104303_ + (##cdr _e104272104297_))) + (_hd104271104300_ (let () (declare (not safe)) - (##car _e104275104300_)))) - (___kont110739110740_ - _tl104273104305_ - _hd104274104303_))) - (___kont110741110742_)) - (___kont110741110742_)) - (___kont110741110742_)))) - (___kont110741110742_))))))) - (let* ((_g104197104214_ - (lambda (_g104198104211_) + (##car _e104272104297_)))) + (___kont110736110737_ + _tl104270104302_ + _hd104271104300_))) + (___kont110738110739_)) + (___kont110738110739_)) + (___kont110738110739_)))) + (___kont110738110739_))))))) + (let* ((_g104194104211_ + (lambda (_g104195104208_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104198104211_)))) - (_g104196104260_ - (lambda (_g104198104217_) + _g104195104208_)))) + (_g104193104257_ + (lambda (_g104195104214_) (if (let () (declare (not safe)) - (gx#stx-pair? _g104198104217_)) - (let ((_e104203104219_ + (gx#stx-pair? _g104195104214_)) + (let ((_e104200104216_ (let () (declare (not safe)) - (gx#stx-e _g104198104217_)))) - (let ((_hd104202104222_ + (gx#stx-e _g104195104214_)))) + (let ((_hd104199104219_ (let () (declare (not safe)) - (##car _e104203104219_))) - (_tl104201104224_ + (##car _e104200104216_))) + (_tl104198104221_ (let () (declare (not safe)) - (##cdr _e104203104219_)))) + (##cdr _e104200104216_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104201104224_)) - (let ((_e104206104227_ + (gx#stx-pair? _tl104198104221_)) + (let ((_e104203104224_ (let () (declare (not safe)) - (gx#stx-e _tl104201104224_)))) - (let ((_hd104205104230_ + (gx#stx-e _tl104198104221_)))) + (let ((_hd104202104227_ (let () (declare (not safe)) - (##car _e104206104227_))) - (_tl104204104232_ + (##car _e104203104224_))) + (_tl104201104229_ (let () (declare (not safe)) - (##cdr _e104206104227_)))) + (##cdr _e104203104224_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104204104232_)) - (let ((_e104209104235_ + (gx#stx-pair? _tl104201104229_)) + (let ((_e104206104232_ (let () (declare (not safe)) (gx#stx-e - _tl104204104232_)))) - (let ((_hd104208104238_ + _tl104201104229_)))) + (let ((_hd104205104235_ (let () (declare (not safe)) - (##car _e104209104235_))) - (_tl104207104240_ + (##car _e104206104232_))) + (_tl104204104237_ (let () (declare (not safe)) - (##cdr _e104209104235_)))) + (##cdr _e104206104232_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl104207104240_)) - ((lambda (_L104243_ - _L104244_) + _tl104204104237_)) + ((lambda (_L104240_ + _L104241_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L104244_)) + _L104241_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_generate-letrec?104194_ _L104244_)) + (_generate-letrec?104191_ _L104241_)) (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'letrec - _L104244_ - _L104243_ + _L104241_ + _L104240_ '#f)) (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'letrec* - _L104244_ - _L104243_ + _L104241_ + _L104240_ '#f))) (let () (declare (not safe)) - (_generate-values104193_ _L104244_ _L104243_)))) + (_generate-values104190_ _L104241_ _L104240_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd104208104238_ - _hd104205104230_) + _hd104205104235_ + _hd104202104227_) (let () (declare (not safe)) - (_g104197104214_ - _g104198104217_))))) + (_g104194104211_ + _g104195104214_))))) (let () (declare (not safe)) - (_g104197104214_ - _g104198104217_))))) + (_g104194104211_ + _g104195104214_))))) (let () (declare (not safe)) - (_g104197104214_ _g104198104217_))))) + (_g104194104211_ _g104195104214_))))) (let () (declare (not safe)) - (_g104197104214_ _g104198104217_)))))) + (_g104194104211_ _g104195104214_)))))) (declare (not safe)) - (_g104196104260_ _stx104191_))))) + (_g104193104257_ _stx104188_))))) (define gxc#generate-runtime-simple-let? - (lambda (_hd104128_) - (let _lp104130_ ((_rest104132_ _hd104128_)) - (let* ((_rest104133104149_ _rest104132_) - (_else104136104157_ (lambda () '#f))) - (let ((_K104139104170_ - (lambda (_rest104168_) + (lambda (_hd104125_) + (let _lp104127_ ((_rest104129_ _hd104125_)) + (let* ((_rest104130104146_ _rest104129_) + (_else104133104154_ (lambda () '#f))) + (let ((_K104136104167_ + (lambda (_rest104165_) (let () (declare (not safe)) - (_lp104130_ _rest104168_)))) - (_K104138104162_ (lambda () '#t))) - (let ((_try-match104135104165_ + (_lp104127_ _rest104165_)))) + (_K104135104159_ (lambda () '#t))) + (let ((_try-match104132104162_ (lambda () (if (let () (declare (not safe)) - (##null? _rest104133104149_)) - (let () (declare (not safe)) (_K104138104162_)) + (##null? _rest104130104146_)) + (let () (declare (not safe)) (_K104135104159_)) (let () (declare (not safe)) - (_else104136104157_)))))) + (_else104133104154_)))))) (if (let () (declare (not safe)) - (##pair? _rest104133104149_)) - (let ((_tl104141104175_ + (##pair? _rest104130104146_)) + (let ((_tl104138104172_ (let () (declare (not safe)) - (##cdr _rest104133104149_))) - (_hd104140104173_ + (##cdr _rest104130104146_))) + (_hd104137104170_ (let () (declare (not safe)) - (##car _rest104133104149_)))) + (##car _rest104130104146_)))) (if (let () (declare (not safe)) - (##pair? _hd104140104173_)) - (let ((_tl104143104180_ + (##pair? _hd104137104170_)) + (let ((_tl104140104177_ (let () (declare (not safe)) - (##cdr _hd104140104173_))) - (_hd104142104178_ + (##cdr _hd104137104170_))) + (_hd104139104175_ (let () (declare (not safe)) - (##car _hd104140104173_)))) + (##car _hd104137104170_)))) (if (let () (declare (not safe)) - (##pair? _hd104142104178_)) - (let ((_tl104147104183_ + (##pair? _hd104139104175_)) + (let ((_tl104144104180_ (let () (declare (not safe)) - (##cdr _hd104142104178_)))) + (##cdr _hd104139104175_)))) (if (let () (declare (not safe)) - (##null? _tl104147104183_)) + (##null? _tl104144104180_)) (if (let () (declare (not safe)) - (##pair? _tl104143104180_)) - (let ((_tl104145104186_ + (##pair? _tl104140104177_)) + (let ((_tl104142104183_ (let () (declare (not safe)) - (##cdr _tl104143104180_)))) + (##cdr _tl104140104177_)))) (if (let () (declare (not safe)) - (##null? _tl104145104186_)) - (let ((_rest104189_ - _tl104141104175_)) + (##null? _tl104142104183_)) + (let ((_rest104186_ + _tl104138104172_)) (declare (not safe)) - (_lp104130_ _rest104189_)) + (_lp104127_ _rest104186_)) (let () (declare (not safe)) - (_else104136104157_)))) + (_else104133104154_)))) (let () (declare (not safe)) - (_else104136104157_))) + (_else104133104154_))) (let () (declare (not safe)) - (_else104136104157_)))) + (_else104133104154_)))) (let () (declare (not safe)) - (_else104136104157_)))) + (_else104133104154_)))) (let () (declare (not safe)) - (_else104136104157_)))) + (_else104133104154_)))) (let () (declare (not safe)) - (_try-match104135104165_))))))))) + (_try-match104132104162_))))))))) (define gxc#generate-runtime-simple-let - (lambda (_form104040_ _hd104041_ _body104042_ _compiled-body?104043_) - (letrec ((_generate1104045_ - (lambda (_bind104084_) - (let* ((_bind104085104096_ _bind104084_) - (_E104087104100_ + (lambda (_form104037_ _hd104038_ _body104039_ _compiled-body?104040_) + (letrec ((_generate1104042_ + (lambda (_bind104081_) + (let* ((_bind104082104093_ _bind104081_) + (_E104084104097_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _bind104085104096_)))) - (_K104088104106_ - (lambda (_expr104103_ _id104104_) - (let ((__tmp111742 + _bind104082104093_)))) + (_K104085104103_ + (lambda (_expr104100_ _id104101_) + (let ((__tmp111739 (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _id104104_))) - (__tmp111740 - (let ((__tmp111741 + _id104101_))) + (__tmp111737 + (let ((__tmp111738 (let () (declare (not safe)) (gxc#compile-e__0 - _expr104103_)))) + _expr104100_)))) (declare (not safe)) - (cons __tmp111741 '())))) + (cons __tmp111738 '())))) (declare (not safe)) - (cons __tmp111742 __tmp111740))))) + (cons __tmp111739 __tmp111737))))) (if (let () (declare (not safe)) - (##pair? _bind104085104096_)) - (let ((_hd104089104109_ + (##pair? _bind104082104093_)) + (let ((_hd104086104106_ (let () (declare (not safe)) - (##car _bind104085104096_))) - (_tl104090104111_ + (##car _bind104082104093_))) + (_tl104087104108_ (let () (declare (not safe)) - (##cdr _bind104085104096_)))) + (##cdr _bind104082104093_)))) (if (let () (declare (not safe)) - (##pair? _hd104089104109_)) - (let ((_hd104093104114_ + (##pair? _hd104086104106_)) + (let ((_hd104090104111_ (let () (declare (not safe)) - (##car _hd104089104109_))) - (_tl104094104116_ + (##car _hd104086104106_))) + (_tl104091104113_ (let () (declare (not safe)) - (##cdr _hd104089104109_)))) - (let ((_id104119_ _hd104093104114_)) + (##cdr _hd104086104106_)))) + (let ((_id104116_ _hd104090104111_)) (if (let () (declare (not safe)) - (##null? _tl104094104116_)) + (##null? _tl104091104113_)) (if (let () (declare (not safe)) - (##pair? _tl104090104111_)) - (let ((_hd104091104121_ + (##pair? _tl104087104108_)) + (let ((_hd104088104118_ (let () (declare (not safe)) - (##car _tl104090104111_))) - (_tl104092104123_ + (##car _tl104087104108_))) + (_tl104089104120_ (let () (declare (not safe)) - (##cdr _tl104090104111_)))) - (let ((_expr104126_ - _hd104091104121_)) + (##cdr _tl104087104108_)))) + (let ((_expr104123_ + _hd104088104118_)) (if (let () (declare (not safe)) - (##null? _tl104092104123_)) + (##null? _tl104089104120_)) (let () (declare (not safe)) - (_K104088104106_ - _expr104126_ - _id104119_)) + (_K104085104103_ + _expr104123_ + _id104116_)) (let () (declare (not safe)) - (_E104087104100_))))) + (_E104084104097_))))) (let () (declare (not safe)) - (_E104087104100_))) + (_E104084104097_))) (let () (declare (not safe)) - (_E104087104100_))))) + (_E104084104097_))))) (let () (declare (not safe)) - (_E104087104100_)))) + (_E104084104097_)))) (let () (declare (not safe)) - (_E104087104100_))))))) - (let* ((_bind104047_ (map _generate1104045_ _hd104041_)) - (_body104049_ - (if _compiled-body?104043_ - _body104042_ + (_E104084104097_))))))) + (let* ((_bind104044_ (map _generate1104042_ _hd104038_)) + (_body104046_ + (if _compiled-body?104040_ + _body104039_ (let () (declare (not safe)) - (gxc#compile-e__0 _body104042_)))) - (_body104081_ - (let* ((_body104050104058_ _body104049_) - (_else104052104066_ + (gxc#compile-e__0 _body104039_)))) + (_body104078_ + (let* ((_body104047104055_ _body104046_) + (_else104049104063_ (lambda () (let () (declare (not safe)) - (cons _body104049_ '())))) - (_K104054104071_ - (lambda (_exprs104069_) _exprs104069_))) + (cons _body104046_ '())))) + (_K104051104068_ + (lambda (_exprs104066_) _exprs104066_))) (if (let () (declare (not safe)) - (##pair? _body104050104058_)) - (let ((_hd104055104074_ + (##pair? _body104047104055_)) + (let ((_hd104052104071_ (let () (declare (not safe)) - (##car _body104050104058_))) - (_tl104056104076_ + (##car _body104047104055_))) + (_tl104053104073_ (let () (declare (not safe)) - (##cdr _body104050104058_)))) + (##cdr _body104047104055_)))) (if (let () (declare (not safe)) - (##eq? _hd104055104074_ 'begin)) - (let ((_exprs104079_ _tl104056104076_)) + (##eq? _hd104052104071_ 'begin)) + (let ((_exprs104076_ _tl104053104073_)) (declare (not safe)) - (_K104054104071_ _exprs104079_)) + (_K104051104068_ _exprs104076_)) (let () (declare (not safe)) - (_else104052104066_)))) + (_else104049104063_)))) (let () (declare (not safe)) - (_else104052104066_)))))) - (let ((__tmp111743 + (_else104049104063_)))))) + (let ((__tmp111740 (let () (declare (not safe)) - (cons _bind104047_ _body104081_)))) + (cons _bind104044_ _body104078_)))) (declare (not safe)) - (cons _form104040_ __tmp111743)))))) + (cons _form104037_ __tmp111740)))))) (define gxc#generate-runtime-quote% - (lambda (_stx103948_) - (letrec ((_generate1103950_ - (lambda (_datum104002_) + (lambda (_stx103945_) + (letrec ((_generate1103947_ + (lambda (_datum103999_) (if (or (let () (declare (not safe)) - (null? _datum104002_)) - (interned-symbol? _datum104002_) + (null? _datum103999_)) + (interned-symbol? _datum103999_) (let () (declare (not safe)) - (gx#self-quoting? _datum104002_)) + (gx#self-quoting? _datum103999_)) (let () (declare (not safe)) - (eof-object? _datum104002_))) - _datum104002_ - (if (uninterned-symbol? _datum104002_) + (eof-object? _datum103999_))) + _datum103999_ + (if (uninterned-symbol? _datum103999_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _datum104002_ + _datum103999_ '#t)) (if (let () (declare (not safe)) - (pair? _datum104002_)) - (let ((__tmp111748 - (let ((__tmp111749 - (car _datum104002_))) + (pair? _datum103999_)) + (let ((__tmp111745 + (let ((__tmp111746 + (car _datum103999_))) (declare (not safe)) - (_generate1103950_ __tmp111749))) - (__tmp111746 - (let ((__tmp111747 - (cdr _datum104002_))) + (_generate1103947_ __tmp111746))) + (__tmp111743 + (let ((__tmp111744 + (cdr _datum103999_))) (declare (not safe)) - (_generate1103950_ __tmp111747)))) + (_generate1103947_ __tmp111744)))) (declare (not safe)) - (cons __tmp111748 __tmp111746)) + (cons __tmp111745 __tmp111743)) (if (let () (declare (not safe)) - (box? _datum104002_)) - (let ((__tmp111744 - (let ((__tmp111745 - (unbox _datum104002_))) + (box? _datum103999_)) + (let ((__tmp111741 + (let ((__tmp111742 + (unbox _datum103999_))) (declare (not safe)) - (_generate1103950_ - __tmp111745)))) + (_generate1103947_ + __tmp111742)))) (declare (not safe)) - (box __tmp111744)) + (box __tmp111741)) (if (let () (declare (not safe)) - (vector? _datum104002_)) + (vector? _datum103999_)) (vector-map - _generate1103950_ - _datum104002_) - (if (or (s8vector? _datum104002_) + _generate1103947_ + _datum103999_) + (if (or (s8vector? _datum103999_) (let () (declare (not safe)) - (u8vector? _datum104002_)) - (s16vector? _datum104002_) - (u16vector? _datum104002_) - (s32vector? _datum104002_) - (u32vector? _datum104002_) - (s64vector? _datum104002_) - (u64vector? _datum104002_) - (f32vector? _datum104002_) - (f64vector? _datum104002_)) - _datum104002_ + (u8vector? _datum103999_)) + (s16vector? _datum103999_) + (u16vector? _datum103999_) + (s32vector? _datum103999_) + (u32vector? _datum103999_) + (s64vector? _datum103999_) + (u64vector? _datum103999_) + (f32vector? _datum103999_) + (f64vector? _datum103999_)) + _datum103999_ (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile non-primitive quote" - _stx103948_))))))))))) - (let* ((_g103952103965_ - (lambda (_g103953103962_) + _stx103945_))))))))))) + (let* ((_g103949103962_ + (lambda (_g103950103959_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103953103962_)))) - (_g103951103999_ - (lambda (_g103953103968_) + _g103950103959_)))) + (_g103948103996_ + (lambda (_g103950103965_) (if (let () (declare (not safe)) - (gx#stx-pair? _g103953103968_)) - (let ((_e103957103970_ + (gx#stx-pair? _g103950103965_)) + (let ((_e103954103967_ (let () (declare (not safe)) - (gx#stx-e _g103953103968_)))) - (let ((_hd103956103973_ + (gx#stx-e _g103950103965_)))) + (let ((_hd103953103970_ (let () (declare (not safe)) - (##car _e103957103970_))) - (_tl103955103975_ + (##car _e103954103967_))) + (_tl103952103972_ (let () (declare (not safe)) - (##cdr _e103957103970_)))) + (##cdr _e103954103967_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103955103975_)) - (let ((_e103960103978_ + (gx#stx-pair? _tl103952103972_)) + (let ((_e103957103975_ (let () (declare (not safe)) - (gx#stx-e _tl103955103975_)))) - (let ((_hd103959103981_ + (gx#stx-e _tl103952103972_)))) + (let ((_hd103956103978_ (let () (declare (not safe)) - (##car _e103960103978_))) - (_tl103958103983_ + (##car _e103957103975_))) + (_tl103955103980_ (let () (declare (not safe)) - (##cdr _e103960103978_)))) + (##cdr _e103957103975_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103958103983_)) - ((lambda (_L103986_) - (let ((__tmp111750 - (let ((__tmp111751 - (let ((__tmp111752 + (gx#stx-null? _tl103955103980_)) + ((lambda (_L103983_) + (let ((__tmp111747 + (let ((__tmp111748 + (let ((__tmp111749 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L103986_)))) + (let () (declare (not safe)) (gx#stx-e _L103983_)))) (declare (not safe)) - (_generate1103950_ __tmp111752)))) + (_generate1103947_ __tmp111749)))) (declare (not safe)) - (cons __tmp111751 '())))) + (cons __tmp111748 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'quote __tmp111750))) - _hd103959103981_) + (cons 'quote __tmp111747))) + _hd103956103978_) (let () (declare (not safe)) - (_g103952103965_ - _g103953103968_))))) + (_g103949103962_ + _g103950103965_))))) (let () (declare (not safe)) - (_g103952103965_ _g103953103968_))))) + (_g103949103962_ _g103950103965_))))) (let () (declare (not safe)) - (_g103952103965_ _g103953103968_)))))) + (_g103949103962_ _g103950103965_)))))) (declare (not safe)) - (_g103951103999_ _stx103948_))))) + (_g103948103996_ _stx103945_))))) (define gxc#generate-runtime-call% - (lambda (_stx103466_) - (letrec ((_compile-call103468_ - (lambda (_rator103692_ _rands103693_) - (let ((_rator103695_ + (lambda (_stx103463_) + (letrec ((_compile-call103465_ + (lambda (_rator103689_ _rands103690_) + (let ((_rator103692_ (let () (declare (not safe)) - (gxc#compile-e__0 _rator103692_))) - (_rands103696_ (map gxc#compile-e _rands103693_))) - (let* ((___stx110784110785_ _rator103695_) - (_g103699103751_ + (gxc#compile-e__0 _rator103689_))) + (_rands103693_ (map gxc#compile-e _rands103690_))) + (let* ((___stx110781110782_ _rator103692_) + (_g103696103748_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110784110785_))))) - (let ((___kont110786110787_ - (lambda (_L103875_ - _L103876_ - _L103877_ - _L103878_) - (if (fx= (length _rands103696_) - (length (let ((__tmp111757 - (lambda (_g103914103917_ + ___stx110781110782_))))) + (let ((___kont110783110784_ + (lambda (_L103872_ + _L103873_ + _L103874_ + _L103875_) + (if (fx= (length _rands103693_) + (length (let ((__tmp111754 + (lambda (_g103911103914_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g103915103919_) + _g103912103916_) (let () (declare (not safe)) - (cons _g103914103917_ _g103915103919_))))) + (cons _g103911103914_ _g103912103916_))))) (declare (not safe)) - (foldr1 __tmp111757 '() _L103877_)))) + (foldr1 __tmp111754 '() _L103874_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_id103922_ _L103878_) - (_args103931_ - (let ((__tmp111753 - (lambda (_g103923103926_ - _g103924103928_) + (let* ((_id103919_ _L103875_) + (_args103928_ + (let ((__tmp111750 + (lambda (_g103920103923_ + _g103921103925_) (let () (declare (not safe)) - (cons _g103923103926_ - _g103924103928_))))) + (cons _g103920103923_ + _g103921103925_))))) (declare (not safe)) - (foldr1 __tmp111753 + (foldr1 __tmp111750 '() - _L103877_))) - (_body103940_ - (let ((__tmp111754 - (lambda (_g103932103935_ - _g103933103937_) + _L103874_))) + (_body103937_ + (let ((__tmp111751 + (lambda (_g103929103932_ + _g103930103934_) (let () (declare (not safe)) - (cons _g103932103935_ - _g103933103937_))))) + (cons _g103929103932_ + _g103930103934_))))) (declare (not safe)) - (foldr1 __tmp111754 + (foldr1 __tmp111751 '() - _L103876_))) - (_init103942_ + _L103873_))) + (_init103939_ (map list - _args103931_ - _rands103696_))) - (let ((__tmp111755 - (let ((__tmp111756 + _args103928_ + _rands103693_))) + (let ((__tmp111752 + (let ((__tmp111753 (let () (declare (not safe)) - (cons _init103942_ - _body103940_)))) + (cons _init103939_ + _body103937_)))) (declare (not safe)) - (cons _id103922_ - __tmp111756)))) + (cons _id103919_ + __tmp111753)))) (declare (not safe)) - (cons 'let __tmp111755))) + (cons 'let __tmp111752))) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal loop application; arity mismatch" - _stx103466_))))) - (___kont110792110793_ + _stx103463_))))) + (___kont110789110790_ (lambda () (let () (declare (not safe)) - (cons _rator103695_ _rands103696_))))) - (let ((___match110851110852_ - (lambda (_e103707103763_ - _hd103706103766_ - _tl103705103768_ - _e103710103771_ - _hd103709103774_ - _tl103708103776_ - _e103713103779_ - _hd103712103782_ - _tl103711103784_ - _e103716103787_ - _hd103715103790_ - _tl103714103792_ - _e103719103795_ - _hd103718103798_ - _tl103717103800_ - _e103722103803_ - _hd103721103806_ - _tl103720103808_ - _e103725103811_ - _hd103724103814_ - _tl103723103816_ - ___splice110788110789_ - _target103726103819_ - _tl103728103821_) - (letrec ((_loop103729103824_ - (lambda (_hd103727103827_ - _arg103733103829_) + (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_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd103727103827_)) - (let ((_e103730103832_ + _hd103724103824_)) + (let ((_e103727103829_ (let () (declare (not safe)) (gx#stx-e - _hd103727103827_)))) - (let ((_lp-tl103732103837_ + _hd103724103824_)))) + (let ((_lp-tl103729103834_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e103730103832_))) - (_lp-hd103731103835_ - (let () (declare (not safe)) (##car _e103730103832_)))) - (let ((__tmp111759 + (##cdr _e103727103829_))) + (_lp-hd103728103832_ + (let () (declare (not safe)) (##car _e103727103829_)))) + (let ((__tmp111756 (let () (declare (not safe)) - (cons _lp-hd103731103835_ _arg103733103829_)))) + (cons _lp-hd103728103832_ _arg103730103826_)))) (declare (not safe)) - (_loop103729103824_ _lp-tl103732103837_ __tmp111759)))) + (_loop103726103821_ _lp-tl103729103834_ __tmp111756)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg103734103840_ - (reverse _arg103733103829_))) + (let ((_arg103731103837_ + (reverse _arg103730103826_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl103723103816_)) - (let ((___splice110790110791_ + _tl103720103813_)) + (let ((___splice110787110788_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _tl103723103816_ '0)))) - (let ((_tl103737103845_ + (gx#syntax-split-splice _tl103720103813_ '0)))) + (let ((_tl103734103842_ (let () (declare (not safe)) - (##vector-ref ___splice110790110791_ '1))) - (_target103735103843_ + (##vector-ref ___splice110787110788_ '1))) + (_target103732103840_ (let () (declare (not safe)) - (##vector-ref ___splice110790110791_ '0)))) + (##vector-ref ___splice110787110788_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103737103845_)) - (letrec ((_loop103738103848_ - (lambda (_hd103736103851_ - _body103742103853_) + (gx#stx-null? _tl103734103842_)) + (letrec ((_loop103735103845_ + (lambda (_hd103733103848_ + _body103739103850_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd103736103851_)) - (let ((_e103739103856_ + (gx#stx-pair? _hd103733103848_)) + (let ((_e103736103853_ (let () (declare (not safe)) (gx#stx-e - _hd103736103851_)))) - (let ((_lp-tl103741103861_ + _hd103733103848_)))) + (let ((_lp-tl103738103858_ (let () (declare (not safe)) - (##cdr _e103739103856_))) - (_lp-hd103740103859_ + (##cdr _e103736103853_))) + (_lp-hd103737103856_ (let () (declare (not safe)) - (##car _e103739103856_)))) - (let ((__tmp111758 + (##car _e103736103853_)))) + (let ((__tmp111755 (let () (declare (not safe)) - (cons _lp-hd103740103859_ - _body103742103853_)))) + (cons _lp-hd103737103856_ + _body103739103850_)))) (declare (not safe)) - (_loop103738103848_ - _lp-tl103741103861_ - __tmp111758)))) - (let ((_body103743103864_ - (reverse _body103742103853_))) + (_loop103735103845_ + _lp-tl103738103858_ + __tmp111755)))) + (let ((_body103740103861_ + (reverse _body103739103850_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl103717103800_)) + _tl103714103797_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl103711103784_)) + _tl103708103781_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103708103776_)) - (let ((_e103746103867_ + _tl103705103773_)) + (let ((_e103743103864_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl103708103776_)))) - (let ((_tl103744103872_ + (gx#stx-e _tl103705103773_)))) + (let ((_tl103741103869_ (let () (declare (not safe)) - (##cdr _e103746103867_))) - (_hd103745103870_ + (##cdr _e103743103864_))) + (_hd103742103867_ (let () (declare (not safe)) - (##car _e103746103867_)))) + (##car _e103743103864_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103744103872_)) - (let ((_L103875_ _hd103745103870_) - (_L103876_ _body103743103864_) - (_L103877_ _arg103734103840_) - (_L103878_ _hd103715103790_)) + (gx#stx-null? _tl103741103869_)) + (let ((_L103872_ _hd103742103867_) + (_L103873_ _body103740103861_) + (_L103874_ _arg103731103837_) + (_L103875_ _hd103712103787_)) (if (let () (declare (not safe)) - (eq? _L103878_ _L103875_)) - (___kont110786110787_ - _L103875_ - _L103876_ - _L103877_ - _L103878_) - (___kont110792110793_))) - (___kont110792110793_)))) - (___kont110792110793_)) + (eq? _L103875_ _L103872_)) + (___kont110783110784_ + _L103872_ + _L103873_ + _L103874_ + _L103875_) + (___kont110789110790_))) + (___kont110789110790_)))) + (___kont110789110790_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110792110793_)) - (___kont110792110793_))))))) + (___kont110789110790_)) + (___kont110789110790_))))))) (let () (declare (not safe)) - (_loop103738103848_ _target103735103843_ '()))) - (___kont110792110793_)))) - (___kont110792110793_))))))) + (_loop103735103845_ _target103732103840_ '()))) + (___kont110789110790_)))) + (___kont110789110790_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop103729103824_ - _target103726103819_ + (_loop103726103821_ + _target103723103816_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110784110785_)) - (let ((_e103707103763_ + (gx#stx-pair? ___stx110781110782_)) + (let ((_e103704103760_ (let () (declare (not safe)) - (gx#stx-e ___stx110784110785_)))) - (let ((_tl103705103768_ + (gx#stx-e ___stx110781110782_)))) + (let ((_tl103702103765_ (let () (declare (not safe)) - (##cdr _e103707103763_))) - (_hd103706103766_ + (##cdr _e103704103760_))) + (_hd103703103763_ (let () (declare (not safe)) - (##car _e103707103763_)))) + (##car _e103704103760_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd103706103766_)) + (gx#identifier? _hd103703103763_)) (if (let () (declare (not safe)) (gx#stx-eq? 'letrec - _hd103706103766_)) + _hd103703103763_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103705103768_)) - (let ((_e103710103771_ + _tl103702103765_)) + (let ((_e103707103768_ (let () (declare (not safe)) (gx#stx-e - _tl103705103768_)))) - (let ((_tl103708103776_ + _tl103702103765_)))) + (let ((_tl103705103773_ (let () (declare (not safe)) - (##cdr _e103710103771_))) - (_hd103709103774_ + (##cdr _e103707103768_))) + (_hd103706103771_ (let () (declare (not safe)) - (##car _e103710103771_)))) + (##car _e103707103768_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd103709103774_)) - (let ((_e103713103779_ + _hd103706103771_)) + (let ((_e103710103776_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd103709103774_)))) - (let ((_tl103711103784_ + (gx#stx-e _hd103706103771_)))) + (let ((_tl103708103781_ (let () (declare (not safe)) - (##cdr _e103713103779_))) - (_hd103712103782_ + (##cdr _e103710103776_))) + (_hd103709103779_ (let () (declare (not safe)) - (##car _e103713103779_)))) + (##car _e103710103776_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd103712103782_)) - (let ((_e103716103787_ + (gx#stx-pair? _hd103709103779_)) + (let ((_e103713103784_ (let () (declare (not safe)) - (gx#stx-e _hd103712103782_)))) - (let ((_tl103714103792_ + (gx#stx-e _hd103709103779_)))) + (let ((_tl103711103789_ (let () (declare (not safe)) - (##cdr _e103716103787_))) - (_hd103715103790_ + (##cdr _e103713103784_))) + (_hd103712103787_ (let () (declare (not safe)) - (##car _e103716103787_)))) + (##car _e103713103784_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103714103792_)) - (let ((_e103719103795_ + (gx#stx-pair? _tl103711103789_)) + (let ((_e103716103792_ (let () (declare (not safe)) - (gx#stx-e _tl103714103792_)))) - (let ((_tl103717103800_ + (gx#stx-e _tl103711103789_)))) + (let ((_tl103714103797_ (let () (declare (not safe)) - (##cdr _e103719103795_))) - (_hd103718103798_ + (##cdr _e103716103792_))) + (_hd103715103795_ (let () (declare (not safe)) - (##car _e103719103795_)))) + (##car _e103716103792_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd103718103798_)) - (let ((_e103722103803_ + (gx#stx-pair? _hd103715103795_)) + (let ((_e103719103800_ (let () (declare (not safe)) (gx#stx-e - _hd103718103798_)))) - (let ((_tl103720103808_ + _hd103715103795_)))) + (let ((_tl103717103805_ (let () (declare (not safe)) - (##cdr _e103722103803_))) - (_hd103721103806_ + (##cdr _e103719103800_))) + (_hd103718103803_ (let () (declare (not safe)) - (##car _e103722103803_)))) + (##car _e103719103800_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd103721103806_)) + _hd103718103803_)) (if (let () (declare (not safe)) (gx#stx-eq? 'lambda - _hd103721103806_)) + _hd103718103803_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103720103808_)) - (let ((_e103725103811_ + _tl103717103805_)) + (let ((_e103722103808_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl103720103808_)))) - (let ((_tl103723103816_ + (gx#stx-e _tl103717103805_)))) + (let ((_tl103720103813_ (let () (declare (not safe)) - (##cdr _e103725103811_))) - (_hd103724103814_ + (##cdr _e103722103808_))) + (_hd103721103811_ (let () (declare (not safe)) - (##car _e103725103811_)))) + (##car _e103722103808_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd103724103814_)) - (let ((___splice110788110789_ + (gx#stx-pair/null? _hd103721103811_)) + (let ((___splice110785110786_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd103724103814_ + _hd103721103811_ '0)))) - (let ((_tl103728103821_ + (let ((_tl103725103818_ (let () (declare (not safe)) - (##vector-ref ___splice110788110789_ '1))) - (_target103726103819_ + (##vector-ref ___splice110785110786_ '1))) + (_target103723103816_ (let () (declare (not safe)) (##vector-ref - ___splice110788110789_ + ___splice110785110786_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103728103821_)) - (___match110851110852_ - _e103707103763_ - _hd103706103766_ - _tl103705103768_ - _e103710103771_ - _hd103709103774_ - _tl103708103776_ - _e103713103779_ - _hd103712103782_ - _tl103711103784_ - _e103716103787_ - _hd103715103790_ - _tl103714103792_ - _e103719103795_ - _hd103718103798_ - _tl103717103800_ - _e103722103803_ - _hd103721103806_ - _tl103720103808_ - _e103725103811_ - _hd103724103814_ - _tl103723103816_ - ___splice110788110789_ - _target103726103819_ - _tl103728103821_) - (___kont110792110793_)))) - (___kont110792110793_)))) - (___kont110792110793_)) - (___kont110792110793_)) + (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_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110792110793_)))) - (___kont110792110793_)))) - (___kont110792110793_)))) - (___kont110792110793_)))) - (___kont110792110793_)))) + (___kont110789110790_)))) + (___kont110789110790_)))) + (___kont110789110790_)))) + (___kont110789110790_)))) + (___kont110789110790_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110792110793_)) - (___kont110792110793_)) - (___kont110792110793_)))) - (___kont110792110793_))))))))) - (let* ((_g103470103484_ - (lambda (_g103471103481_) + (___kont110789110790_)) + (___kont110789110790_)) + (___kont110789110790_)))) + (___kont110789110790_))))))))) + (let* ((_g103467103481_ + (lambda (_g103468103478_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103471103481_)))) - (_g103469103689_ - (lambda (_g103471103487_) + _g103468103478_)))) + (_g103466103686_ + (lambda (_g103468103484_) (if (let () (declare (not safe)) - (gx#stx-pair? _g103471103487_)) - (let ((_e103476103489_ + (gx#stx-pair? _g103468103484_)) + (let ((_e103473103486_ (let () (declare (not safe)) - (gx#stx-e _g103471103487_)))) - (let ((_hd103475103492_ + (gx#stx-e _g103468103484_)))) + (let ((_hd103472103489_ (let () (declare (not safe)) - (##car _e103476103489_))) - (_tl103474103494_ + (##car _e103473103486_))) + (_tl103471103491_ (let () (declare (not safe)) - (##cdr _e103476103489_)))) + (##cdr _e103473103486_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103474103494_)) - (let ((_e103479103497_ + (gx#stx-pair? _tl103471103491_)) + (let ((_e103476103494_ (let () (declare (not safe)) - (gx#stx-e _tl103474103494_)))) - (let ((_hd103478103500_ + (gx#stx-e _tl103471103491_)))) + (let ((_hd103475103497_ (let () (declare (not safe)) - (##car _e103479103497_))) - (_tl103477103502_ + (##car _e103476103494_))) + (_tl103474103499_ (let () (declare (not safe)) - (##cdr _e103479103497_)))) - ((lambda (_L103505_ _L103506_) + (##cdr _e103476103494_)))) + ((lambda (_L103502_ _L103503_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) (let () (declare (not safe)) - (_compile-call103468_ - _L103506_ - _L103505_)) - (let* ((___stx110900110901_ - _L103506_) - (_g103521103533_ + (_compile-call103465_ + _L103503_ + _L103502_)) + (let* ((___stx110897110898_ + _L103503_) + (_g103518103530_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110900110901_))))) - (let ((___kont110902110903_ + ___stx110897110898_))))) + (let ((___kont110899110900_ (lambda () - (let ((_f103563_ + (let ((_f103560_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _L103506_)))) - (if (let ((__tmp111774 (symbol->string _f103563_))) + (gxc#compile-e__0 _L103503_)))) + (if (let ((__tmp111771 (symbol->string _f103560_))) (declare (not safe)) - (string-prefix? '"##" __tmp111774)) - (let _lp103565_ ((_rest103568_ (reverse _L103505_)) - (_bind103570_ '()) - (_args103571_ '())) - (let* ((_rest103572103580_ _rest103568_) - (_else103574103588_ + (string-prefix? '"##" __tmp111771)) + (let _lp103562_ ((_rest103565_ (reverse _L103502_)) + (_bind103567_ '()) + (_args103568_ '())) + (let* ((_rest103569103577_ _rest103565_) + (_else103571103585_ (lambda () - (let ((__tmp111760 - (let ((__tmp111761 - (let ((__tmp111762 - (let ((__tmp111763 + (let ((__tmp111757 + (let ((__tmp111758 + (let ((__tmp111759 + (let ((__tmp111760 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _f103563_ _args103571_)))) + (cons _f103560_ _args103568_)))) (declare (not safe)) - (cons __tmp111763 '())))) + (cons __tmp111760 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp111762)))) + __tmp111759)))) (declare (not safe)) - (cons _bind103570_ __tmp111761)))) + (cons _bind103567_ __tmp111758)))) (declare (not safe)) - (cons 'let __tmp111760)))) - (_K103576103674_ - (lambda (_rest103591_ _e103592_) - (let* ((___stx110854110855_ _e103592_) - (_g103597103615_ + (cons 'let __tmp111757)))) + (_K103573103671_ + (lambda (_rest103588_ _e103589_) + (let* ((___stx110851110852_ _e103589_) + (_g103594103612_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110854110855_))))) - (let ((___kont110856110857_ + ___stx110851110852_))))) + (let ((___kont110853110854_ (lambda () - (let ((__tmp111764 - (let ((__tmp111765 + (let ((__tmp111761 + (let ((__tmp111762 (let () (declare (not safe)) (gxc#compile-e__0 - _e103592_)))) + _e103589_)))) (declare (not safe)) - (cons __tmp111765 - _args103571_)))) + (cons __tmp111762 + _args103568_)))) (declare (not safe)) - (_lp103565_ - _rest103591_ - _bind103570_ - __tmp111764)))) - (___kont110858110859_ + (_lp103562_ + _rest103588_ + _bind103567_ + __tmp111761)))) + (___kont110855110856_ (lambda () - (let ((__tmp111766 - (let ((__tmp111767 + (let ((__tmp111763 + (let ((__tmp111764 (let () (declare (not safe)) (gxc#compile-e__0 - _e103592_)))) + _e103589_)))) (declare (not safe)) - (cons __tmp111767 - _args103571_)))) + (cons __tmp111764 + _args103568_)))) (declare (not safe)) - (_lp103565_ - _rest103591_ - _bind103570_ - __tmp111766)))) - (___kont110860110861_ + (_lp103562_ + _rest103588_ + _bind103567_ + __tmp111763)))) + (___kont110857110858_ (lambda () - (let ((_tmp103622_ - (let ((__tmp111768 + (let ((_tmp103619_ + (let ((__tmp111765 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp111768)))) - (let ((__tmp111770 - (let ((__tmp111771 - (let ((__tmp111772 + __tmp111765)))) + (let ((__tmp111767 + (let ((__tmp111768 + (let ((__tmp111769 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111773 + (let ((__tmp111770 (let () (declare (not safe)) - (gxc#compile-e__0 _e103592_)))) + (gxc#compile-e__0 _e103589_)))) (declare (not safe)) - (cons __tmp111773 '())))) + (cons __tmp111770 '())))) (declare (not safe)) - (cons _tmp103622_ __tmp111772)))) + (cons _tmp103619_ __tmp111769)))) (declare (not safe)) - (cons __tmp111771 _bind103570_))) + (cons __tmp111768 _bind103567_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp111769 + (__tmp111766 (let () (declare (not safe)) - (cons _tmp103622_ - _args103571_)))) + (cons _tmp103619_ + _args103568_)))) (declare (not safe)) - (_lp103565_ - _rest103591_ - __tmp111770 - __tmp111769)))))) + (_lp103562_ + _rest103588_ + __tmp111767 + __tmp111766)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110854110855_)) - (let ((_e103601103653_ + (gx#stx-pair? ___stx110851110852_)) + (let ((_e103598103650_ (let () (declare (not safe)) (gx#stx-e - ___stx110854110855_)))) - (let ((_tl103599103658_ + ___stx110851110852_)))) + (let ((_tl103596103655_ (let () (declare (not safe)) - (##cdr _e103601103653_))) - (_hd103600103656_ + (##cdr _e103598103650_))) + (_hd103597103653_ (let () (declare (not safe)) - (##car _e103601103653_)))) + (##car _e103598103650_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd103600103656_)) + _hd103597103653_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd103600103656_)) + _hd103597103653_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103599103658_)) - (let ((_e103604103661_ + _tl103596103655_)) + (let ((_e103601103658_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl103599103658_)))) - (let ((_tl103602103666_ + (gx#stx-e _tl103596103655_)))) + (let ((_tl103599103663_ (let () (declare (not safe)) - (##cdr _e103604103661_))) - (_hd103603103664_ + (##cdr _e103601103658_))) + (_hd103600103661_ (let () (declare (not safe)) - (##car _e103604103661_)))) + (##car _e103601103658_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103602103666_)) - (___kont110856110857_) - (___kont110860110861_)))) - (___kont110860110861_)) + (gx#stx-null? _tl103599103663_)) + (___kont110853110854_) + (___kont110857110858_)))) + (___kont110857110858_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd103600103656_)) + (gx#stx-eq? '%#quote _hd103597103653_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103599103658_)) - (let ((_e103610103638_ + (gx#stx-pair? _tl103596103655_)) + (let ((_e103607103635_ (let () (declare (not safe)) - (gx#stx-e _tl103599103658_)))) - (let ((_tl103608103643_ + (gx#stx-e _tl103596103655_)))) + (let ((_tl103605103640_ (let () (declare (not safe)) - (##cdr _e103610103638_))) - (_hd103609103641_ + (##cdr _e103607103635_))) + (_hd103606103638_ (let () (declare (not safe)) - (##car _e103610103638_)))) + (##car _e103607103635_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103608103643_)) - (___kont110858110859_) - (___kont110860110861_)))) - (___kont110860110861_)) - (___kont110860110861_))) + (gx#stx-null? _tl103605103640_)) + (___kont110855110856_) + (___kont110857110858_)))) + (___kont110857110858_)) + (___kont110857110858_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110860110861_)))) - (___kont110860110861_))))))) + (___kont110857110858_)))) + (___kont110857110858_))))))) (if (let () (declare (not safe)) - (##pair? _rest103572103580_)) - (let ((_hd103577103677_ + (##pair? _rest103569103577_)) + (let ((_hd103574103674_ (let () (declare (not safe)) - (##car _rest103572103580_))) - (_tl103578103679_ + (##car _rest103569103577_))) + (_tl103575103676_ (let () (declare (not safe)) - (##cdr _rest103572103580_)))) - (let* ((_e103682_ _hd103577103677_) - (_rest103684_ _tl103578103679_)) + (##cdr _rest103569103577_)))) + (let* ((_e103679_ _hd103574103674_) + (_rest103681_ _tl103575103676_)) (declare (not safe)) - (_K103576103674_ _rest103684_ _e103682_))) + (_K103573103671_ _rest103681_ _e103679_))) (let () (declare (not safe)) - (_else103574103588_))))) + (_else103571103585_))))) (let () (declare (not safe)) - (_compile-call103468_ _L103506_ _L103505_)))))) + (_compile-call103465_ _L103503_ _L103502_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110904110905_ + (___kont110901110902_ (lambda () (let () (declare (not safe)) - (_compile-call103468_ - _L103506_ - _L103505_))))) + (_compile-call103465_ + _L103503_ + _L103502_))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx110900110901_)) - (let ((_e103525103545_ + ___stx110897110898_)) + (let ((_e103522103542_ (let () (declare (not safe)) (gx#stx-e - ___stx110900110901_)))) - (let ((_tl103523103550_ + ___stx110897110898_)))) + (let ((_tl103520103547_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e103525103545_))) - (_hd103524103548_ - (let () (declare (not safe)) (##car _e103525103545_)))) + (##cdr _e103522103542_))) + (_hd103521103545_ + (let () (declare (not safe)) (##car _e103522103542_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd103524103548_)) + (gx#identifier? _hd103521103545_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd103524103548_)) + (gx#stx-eq? '%#ref _hd103521103545_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103523103550_)) - (let ((_e103528103553_ + (gx#stx-pair? _tl103520103547_)) + (let ((_e103525103550_ (let () (declare (not safe)) - (gx#stx-e _tl103523103550_)))) - (let ((_tl103526103558_ + (gx#stx-e _tl103520103547_)))) + (let ((_tl103523103555_ (let () (declare (not safe)) - (##cdr _e103528103553_))) - (_hd103527103556_ + (##cdr _e103525103550_))) + (_hd103524103553_ (let () (declare (not safe)) - (##car _e103528103553_)))) + (##car _e103525103550_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103526103558_)) - (___kont110902110903_) - (___kont110904110905_)))) - (___kont110904110905_)) - (___kont110904110905_)) - (___kont110904110905_)))) + (gx#stx-null? _tl103523103555_)) + (___kont110899110900_) + (___kont110901110902_)))) + (___kont110901110902_)) + (___kont110901110902_)) + (___kont110901110902_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110904110905_)))))) - _tl103477103502_ - _hd103478103500_))) + (___kont110901110902_)))))) + _tl103474103499_ + _hd103475103497_))) (let () (declare (not safe)) - (_g103470103484_ _g103471103487_))))) + (_g103467103481_ _g103468103484_))))) (let () (declare (not safe)) - (_g103470103484_ _g103471103487_)))))) + (_g103467103481_ _g103468103484_)))))) (declare (not safe)) - (_g103469103689_ _stx103466_))))) + (_g103466103686_ _stx103463_))))) (define gxc#generate-runtime-call-unchecked% - (lambda (_stx103254_) - (let* ((___stx110972110973_ _stx103254_) - (_g103257103277_ + (lambda (_stx103251_) + (let* ((___stx110969110970_ _stx103251_) + (_g103254103274_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110972110973_))))) - (let ((___kont110974110975_ - (lambda (_L103321_ _L103322_) + ___stx110969110970_))))) + (let ((___kont110971110972_ + (lambda (_L103318_ _L103319_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) (let () (declare (not safe)) - (gxc#generate-runtime-call% _stx103254_)) - (let ((_f103340_ - (let ((__tmp111775 - (let ((__tmp111777 + (gxc#generate-runtime-call% _stx103251_)) + (let ((_f103337_ + (let ((__tmp111772 + (let ((__tmp111774 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp111776 + (__tmp111773 (let () (declare (not safe)) - (cons _L103322_ '())))) + (cons _L103319_ '())))) (declare (not safe)) - (cons __tmp111777 __tmp111776)))) + (cons __tmp111774 __tmp111773)))) (declare (not safe)) - (gxc#compile-e__0 __tmp111775)))) - (let _lp103342_ ((_rest103345_ (reverse _L103321_)) - (_bind103347_ '()) - (_args103348_ '())) - (let* ((_rest103349103357_ _rest103345_) - (_else103351103365_ + (gxc#compile-e__0 __tmp111772)))) + (let _lp103339_ ((_rest103342_ (reverse _L103318_)) + (_bind103344_ '()) + (_args103345_ '())) + (let* ((_rest103346103354_ _rest103342_) + (_else103348103362_ (lambda () - (let ((__tmp111778 - (let ((__tmp111779 - (let ((__tmp111780 - (let ((__tmp111781 + (let ((__tmp111775 + (let ((__tmp111776 + (let ((__tmp111777 + (let ((__tmp111778 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _f103340_ _args103348_)))) + (cons _f103337_ _args103345_)))) (declare (not safe)) - (cons __tmp111781 '())))) + (cons __tmp111778 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp111780)))) + (cons '(declare (not safe)) __tmp111777)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _bind103347_ - __tmp111779)))) + (cons _bind103344_ + __tmp111776)))) (declare (not safe)) - (cons 'let __tmp111778)))) - (_K103353103451_ - (lambda (_rest103368_ _e103369_) - (let* ((___stx110926110927_ _e103369_) - (_g103374103392_ + (cons 'let __tmp111775)))) + (_K103350103448_ + (lambda (_rest103365_ _e103366_) + (let* ((___stx110923110924_ _e103366_) + (_g103371103389_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110926110927_))))) - (let ((___kont110928110929_ + ___stx110923110924_))))) + (let ((___kont110925110926_ (lambda () - (let ((__tmp111782 - (let ((__tmp111783 + (let ((__tmp111779 + (let ((__tmp111780 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _e103369_)))) + (gxc#compile-e__0 _e103366_)))) (declare (not safe)) - (cons __tmp111783 _args103348_)))) + (cons __tmp111780 _args103345_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp103342_ - _rest103368_ - _bind103347_ - __tmp111782)))) - (___kont110930110931_ + (_lp103339_ + _rest103365_ + _bind103344_ + __tmp111779)))) + (___kont110927110928_ (lambda () - (let ((__tmp111784 - (let ((__tmp111785 + (let ((__tmp111781 + (let ((__tmp111782 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _e103369_)))) + (gxc#compile-e__0 _e103366_)))) (declare (not safe)) - (cons __tmp111785 _args103348_)))) + (cons __tmp111782 _args103345_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp103342_ - _rest103368_ - _bind103347_ - __tmp111784)))) - (___kont110932110933_ + (_lp103339_ + _rest103365_ + _bind103344_ + __tmp111781)))) + (___kont110929110930_ (lambda () - (let ((_tmp103399_ - (let ((__tmp111786 + (let ((_tmp103396_ + (let ((__tmp111783 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp111786)))) - (let ((__tmp111788 - (let ((__tmp111789 + __tmp111783)))) + (let ((__tmp111785 + (let ((__tmp111786 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111790 - (let ((__tmp111791 + (let ((__tmp111787 + (let ((__tmp111788 (let () (declare (not safe)) - (gxc#compile-e__0 _e103369_)))) + (gxc#compile-e__0 _e103366_)))) (declare (not safe)) - (cons __tmp111791 '())))) + (cons __tmp111788 '())))) (declare (not safe)) - (cons _tmp103399_ __tmp111790)))) + (cons _tmp103396_ __tmp111787)))) (declare (not safe)) - (cons __tmp111789 _bind103347_))) - (__tmp111787 + (cons __tmp111786 _bind103344_))) + (__tmp111784 (let () (declare (not safe)) - (cons _tmp103399_ _args103348_)))) + (cons _tmp103396_ _args103345_)))) (declare (not safe)) - (_lp103342_ _rest103368_ __tmp111788 __tmp111787)))))) + (_lp103339_ _rest103365_ __tmp111785 __tmp111784)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx110926110927_)) - (let ((_e103378103430_ + ___stx110923110924_)) + (let ((_e103375103427_ (let () (declare (not safe)) (gx#stx-e - ___stx110926110927_)))) - (let ((_tl103376103435_ + ___stx110923110924_)))) + (let ((_tl103373103432_ (let () (declare (not safe)) - (##cdr _e103378103430_))) - (_hd103377103433_ + (##cdr _e103375103427_))) + (_hd103374103430_ (let () (declare (not safe)) - (##car _e103378103430_)))) + (##car _e103375103427_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd103377103433_)) + _hd103374103430_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd103377103433_)) + _hd103374103430_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl103376103435_)) - (let ((_e103381103438_ + (gx#stx-pair? _tl103373103432_)) + (let ((_e103378103435_ (let () (declare (not safe)) - (gx#stx-e _tl103376103435_)))) - (let ((_tl103379103443_ + (gx#stx-e _tl103373103432_)))) + (let ((_tl103376103440_ (let () (declare (not safe)) - (##cdr _e103381103438_))) - (_hd103380103441_ + (##cdr _e103378103435_))) + (_hd103377103438_ (let () (declare (not safe)) - (##car _e103381103438_)))) + (##car _e103378103435_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103379103443_)) - (___kont110928110929_) - (___kont110932110933_)))) - (___kont110932110933_)) + (gx#stx-null? _tl103376103440_)) + (___kont110925110926_) + (___kont110929110930_)))) + (___kont110929110930_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd103377103433_)) + (gx#stx-eq? '%#quote _hd103374103430_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103376103435_)) - (let ((_e103387103415_ + (gx#stx-pair? _tl103373103432_)) + (let ((_e103384103412_ (let () (declare (not safe)) - (gx#stx-e _tl103376103435_)))) - (let ((_tl103385103420_ + (gx#stx-e _tl103373103432_)))) + (let ((_tl103382103417_ (let () (declare (not safe)) - (##cdr _e103387103415_))) - (_hd103386103418_ + (##cdr _e103384103412_))) + (_hd103383103415_ (let () (declare (not safe)) - (##car _e103387103415_)))) + (##car _e103384103412_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103385103420_)) - (___kont110930110931_) - (___kont110932110933_)))) - (___kont110932110933_)) - (___kont110932110933_))) - (___kont110932110933_)))) + (gx#stx-null? _tl103382103417_)) + (___kont110927110928_) + (___kont110929110930_)))) + (___kont110929110930_)) + (___kont110929110930_))) + (___kont110929110930_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110932110933_))))))) + (___kont110929110930_))))))) (if (let () (declare (not safe)) - (##pair? _rest103349103357_)) - (let ((_hd103354103454_ + (##pair? _rest103346103354_)) + (let ((_hd103351103451_ (let () (declare (not safe)) - (##car _rest103349103357_))) - (_tl103355103456_ + (##car _rest103346103354_))) + (_tl103352103453_ (let () (declare (not safe)) - (##cdr _rest103349103357_)))) - (let* ((_e103459_ _hd103354103454_) - (_rest103461_ _tl103355103456_)) + (##cdr _rest103346103354_)))) + (let* ((_e103456_ _hd103351103451_) + (_rest103458_ _tl103352103453_)) (declare (not safe)) - (_K103353103451_ - _rest103461_ - _e103459_))) + (_K103350103448_ + _rest103458_ + _e103456_))) (let () (declare (not safe)) - (_else103351103365_))))))))) - (___kont110976110977_ + (_else103348103362_))))))))) + (___kont110973110974_ (lambda () (let () (declare (not safe)) - (gxc#generate-runtime-call% _stx103254_))))) + (gxc#generate-runtime-call% _stx103251_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110972110973_)) - (let ((_e103263103289_ + (gx#stx-pair? ___stx110969110970_)) + (let ((_e103260103286_ (let () (declare (not safe)) - (gx#stx-e ___stx110972110973_)))) - (let ((_tl103261103294_ + (gx#stx-e ___stx110969110970_)))) + (let ((_tl103258103291_ (let () (declare (not safe)) - (##cdr _e103263103289_))) - (_hd103262103292_ + (##cdr _e103260103286_))) + (_hd103259103289_ (let () (declare (not safe)) - (##car _e103263103289_)))) + (##car _e103260103286_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103261103294_)) - (let ((_e103266103297_ + (gx#stx-pair? _tl103258103291_)) + (let ((_e103263103294_ (let () (declare (not safe)) - (gx#stx-e _tl103261103294_)))) - (let ((_tl103264103302_ + (gx#stx-e _tl103258103291_)))) + (let ((_tl103261103299_ (let () (declare (not safe)) - (##cdr _e103266103297_))) - (_hd103265103300_ + (##cdr _e103263103294_))) + (_hd103262103297_ (let () (declare (not safe)) - (##car _e103266103297_)))) + (##car _e103263103294_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd103265103300_)) - (let ((_e103269103305_ + (gx#stx-pair? _hd103262103297_)) + (let ((_e103266103302_ (let () (declare (not safe)) - (gx#stx-e _hd103265103300_)))) - (let ((_tl103267103310_ + (gx#stx-e _hd103262103297_)))) + (let ((_tl103264103307_ (let () (declare (not safe)) - (##cdr _e103269103305_))) - (_hd103268103308_ + (##cdr _e103266103302_))) + (_hd103265103305_ (let () (declare (not safe)) - (##car _e103269103305_)))) + (##car _e103266103302_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd103268103308_)) + (gx#identifier? _hd103265103305_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd103268103308_)) + _hd103265103305_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103267103310_)) - (let ((_e103272103313_ + _tl103264103307_)) + (let ((_e103269103310_ (let () (declare (not safe)) (gx#stx-e - _tl103267103310_)))) - (let ((_tl103270103318_ + _tl103264103307_)))) + (let ((_tl103267103315_ (let () (declare (not safe)) - (##cdr _e103272103313_))) - (_hd103271103316_ + (##cdr _e103269103310_))) + (_hd103268103313_ (let () (declare (not safe)) - (##car _e103272103313_)))) + (##car _e103269103310_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl103270103318_)) - (___kont110974110975_ - _tl103264103302_ - _hd103271103316_) - (___kont110976110977_)))) - (___kont110976110977_)) - (___kont110976110977_)) - (___kont110976110977_)))) - (___kont110976110977_)))) - (___kont110976110977_)))) - (___kont110976110977_)))))) + _tl103267103315_)) + (___kont110971110972_ + _tl103261103299_ + _hd103268103313_) + (___kont110973110974_)))) + (___kont110973110974_)) + (___kont110973110974_)) + (___kont110973110974_)))) + (___kont110973110974_)))) + (___kont110973110974_)))) + (___kont110973110974_)))))) (define gxc#generate-runtime-if% - (lambda (_stx103067_) - (letrec ((_simplify103069_ - (lambda (_code103154_) - (let* ((_code103155103173_ _code103154_) - (_else103157103181_ (lambda () _code103154_)) - (_K103159103217_ - (lambda (_expr103184_ _test103185_) - (let* ((_expr103186103194_ _expr103184_) - (_else103188103202_ + (lambda (_stx103064_) + (letrec ((_simplify103066_ + (lambda (_code103151_) + (let* ((_code103152103170_ _code103151_) + (_else103154103178_ (lambda () _code103151_)) + (_K103156103214_ + (lambda (_expr103181_ _test103182_) + (let* ((_expr103183103191_ _expr103181_) + (_else103185103199_ (lambda () - (let ((__tmp111792 - (let ((__tmp111793 + (let ((__tmp111789 + (let ((__tmp111790 (let () (declare (not safe)) - (cons _expr103184_ + (cons _expr103181_ '())))) (declare (not safe)) - (cons _test103185_ - __tmp111793)))) + (cons _test103182_ + __tmp111790)))) (declare (not safe)) - (cons 'and __tmp111792)))) - (_K103190103207_ - (lambda (_exprs103205_) - (let ((__tmp111794 + (cons 'and __tmp111789)))) + (_K103187103204_ + (lambda (_exprs103202_) + (let ((__tmp111791 (let () (declare (not safe)) - (cons _test103185_ - _exprs103205_)))) + (cons _test103182_ + _exprs103202_)))) (declare (not safe)) - (cons 'and __tmp111794))))) + (cons 'and __tmp111791))))) (if (let () (declare (not safe)) - (##pair? _expr103186103194_)) - (let ((_hd103191103210_ + (##pair? _expr103183103191_)) + (let ((_hd103188103207_ (let () (declare (not safe)) - (##car _expr103186103194_))) - (_tl103192103212_ + (##car _expr103183103191_))) + (_tl103189103209_ (let () (declare (not safe)) - (##cdr _expr103186103194_)))) + (##cdr _expr103183103191_)))) (if (let () (declare (not safe)) - (##eq? _hd103191103210_ 'and)) - (let ((_exprs103215_ - _tl103192103212_)) + (##eq? _hd103188103207_ 'and)) + (let ((_exprs103212_ + _tl103189103209_)) (declare (not safe)) - (_K103190103207_ _exprs103215_)) + (_K103187103204_ _exprs103212_)) (let () (declare (not safe)) - (_else103188103202_)))) + (_else103185103199_)))) (let () (declare (not safe)) - (_else103188103202_))))))) + (_else103185103199_))))))) (if (let () (declare (not safe)) - (##pair? _code103155103173_)) - (let ((_hd103160103220_ + (##pair? _code103152103170_)) + (let ((_hd103157103217_ (let () (declare (not safe)) - (##car _code103155103173_))) - (_tl103161103222_ + (##car _code103152103170_))) + (_tl103158103219_ (let () (declare (not safe)) - (##cdr _code103155103173_)))) + (##cdr _code103152103170_)))) (if (let () (declare (not safe)) - (##eq? _hd103160103220_ 'if)) + (##eq? _hd103157103217_ 'if)) (if (let () (declare (not safe)) - (##pair? _tl103161103222_)) - (let ((_hd103162103225_ + (##pair? _tl103158103219_)) + (let ((_hd103159103222_ (let () (declare (not safe)) - (##car _tl103161103222_))) - (_tl103163103227_ + (##car _tl103158103219_))) + (_tl103160103224_ (let () (declare (not safe)) - (##cdr _tl103161103222_)))) - (let ((_test103230_ _hd103162103225_)) + (##cdr _tl103158103219_)))) + (let ((_test103227_ _hd103159103222_)) (if (let () (declare (not safe)) - (##pair? _tl103163103227_)) - (let ((_hd103164103232_ + (##pair? _tl103160103224_)) + (let ((_hd103161103229_ (let () (declare (not safe)) - (##car _tl103163103227_))) - (_tl103165103234_ + (##car _tl103160103224_))) + (_tl103162103231_ (let () (declare (not safe)) - (##cdr _tl103163103227_)))) - (let ((_expr103237_ - _hd103164103232_)) + (##cdr _tl103160103224_)))) + (let ((_expr103234_ + _hd103161103229_)) (if (let () (declare (not safe)) - (##pair? _tl103165103234_)) - (let ((_hd103166103239_ + (##pair? _tl103162103231_)) + (let ((_hd103163103236_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl103165103234_))) - (_tl103167103241_ - (let () (declare (not safe)) (##cdr _tl103165103234_)))) - (if (let () (declare (not safe)) (##pair? _hd103166103239_)) - (let ((_hd103168103244_ + (##car _tl103162103231_))) + (_tl103164103238_ + (let () (declare (not safe)) (##cdr _tl103162103231_)))) + (if (let () (declare (not safe)) (##pair? _hd103163103236_)) + (let ((_hd103165103241_ (let () (declare (not safe)) - (##car _hd103166103239_))) - (_tl103169103246_ + (##car _hd103163103236_))) + (_tl103166103243_ (let () (declare (not safe)) - (##cdr _hd103166103239_)))) + (##cdr _hd103163103236_)))) (if (let () (declare (not safe)) - (##eq? _hd103168103244_ 'quote)) + (##eq? _hd103165103241_ 'quote)) (if (let () (declare (not safe)) - (##pair? _tl103169103246_)) - (let ((_hd103170103249_ + (##pair? _tl103166103243_)) + (let ((_hd103167103246_ (let () (declare (not safe)) - (##car _tl103169103246_))) - (_tl103171103251_ + (##car _tl103166103243_))) + (_tl103168103248_ (let () (declare (not safe)) - (##cdr _tl103169103246_)))) + (##cdr _tl103166103243_)))) (if (let () (declare (not safe)) - (##eq? _hd103170103249_ '#f)) + (##eq? _hd103167103246_ '#f)) (if (let () (declare (not safe)) - (##null? _tl103171103251_)) + (##null? _tl103168103248_)) (if (let () (declare (not safe)) - (##null? _tl103167103241_)) + (##null? _tl103164103238_)) (let () (declare (not safe)) - (_K103159103217_ - _expr103237_ - _test103230_)) + (_K103156103214_ + _expr103234_ + _test103227_)) (let () (declare (not safe)) - (_else103157103181_))) + (_else103154103178_))) (let () (declare (not safe)) - (_else103157103181_))) + (_else103154103178_))) (let () (declare (not safe)) - (_else103157103181_)))) + (_else103154103178_)))) (let () (declare (not safe)) - (_else103157103181_))) - (let () (declare (not safe)) (_else103157103181_)))) - (let () (declare (not safe)) (_else103157103181_)))) - (let () (declare (not safe)) (_else103157103181_))))) + (_else103154103178_))) + (let () (declare (not safe)) (_else103154103178_)))) + (let () (declare (not safe)) (_else103154103178_)))) + (let () (declare (not safe)) (_else103154103178_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else103157103181_))))) + (_else103154103178_))))) (let () (declare (not safe)) - (_else103157103181_))) + (_else103154103178_))) (let () (declare (not safe)) - (_else103157103181_)))) + (_else103154103178_)))) (let () (declare (not safe)) - (_else103157103181_))))))) - (let* ((_g103071103092_ - (lambda (_g103072103089_) + (_else103154103178_))))))) + (let* ((_g103068103089_ + (lambda (_g103069103086_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103072103089_)))) - (_g103070103151_ - (lambda (_g103072103095_) + _g103069103086_)))) + (_g103067103148_ + (lambda (_g103069103092_) (if (let () (declare (not safe)) - (gx#stx-pair? _g103072103095_)) - (let ((_e103078103097_ + (gx#stx-pair? _g103069103092_)) + (let ((_e103075103094_ (let () (declare (not safe)) - (gx#stx-e _g103072103095_)))) - (let ((_hd103077103100_ + (gx#stx-e _g103069103092_)))) + (let ((_hd103074103097_ (let () (declare (not safe)) - (##car _e103078103097_))) - (_tl103076103102_ + (##car _e103075103094_))) + (_tl103073103099_ (let () (declare (not safe)) - (##cdr _e103078103097_)))) + (##cdr _e103075103094_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103076103102_)) - (let ((_e103081103105_ + (gx#stx-pair? _tl103073103099_)) + (let ((_e103078103102_ (let () (declare (not safe)) - (gx#stx-e _tl103076103102_)))) - (let ((_hd103080103108_ + (gx#stx-e _tl103073103099_)))) + (let ((_hd103077103105_ (let () (declare (not safe)) - (##car _e103081103105_))) - (_tl103079103110_ + (##car _e103078103102_))) + (_tl103076103107_ (let () (declare (not safe)) - (##cdr _e103081103105_)))) + (##cdr _e103078103102_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103079103110_)) - (let ((_e103084103113_ + (gx#stx-pair? _tl103076103107_)) + (let ((_e103081103110_ (let () (declare (not safe)) (gx#stx-e - _tl103079103110_)))) - (let ((_hd103083103116_ + _tl103076103107_)))) + (let ((_hd103080103113_ (let () (declare (not safe)) - (##car _e103084103113_))) - (_tl103082103118_ + (##car _e103081103110_))) + (_tl103079103115_ (let () (declare (not safe)) - (##cdr _e103084103113_)))) + (##cdr _e103081103110_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103082103118_)) - (let ((_e103087103121_ + _tl103079103115_)) + (let ((_e103084103118_ (let () (declare (not safe)) (gx#stx-e - _tl103082103118_)))) - (let ((_hd103086103124_ + _tl103079103115_)))) + (let ((_hd103083103121_ (let () (declare (not safe)) - (##car _e103087103121_))) - (_tl103085103126_ + (##car _e103084103118_))) + (_tl103082103123_ (let () (declare (not safe)) - (##cdr _e103087103121_)))) + (##cdr _e103084103118_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl103085103126_)) - ((lambda (_L103129_ + _tl103082103123_)) + ((lambda (_L103126_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L103130_ - _L103131_) + _L103127_ + _L103128_) (if (gxc#current-compile-boolean-context) - (let ((__tmp111802 - (let ((__tmp111803 - (let ((__tmp111808 + (let ((__tmp111799 + (let ((__tmp111800 + (let ((__tmp111805 (let () (declare (not safe)) - (gxc#compile-e__0 _L103131_))) - (__tmp111804 - (let ((__tmp111807 + (gxc#compile-e__0 _L103128_))) + (__tmp111801 + (let ((__tmp111804 (let () (declare (not safe)) (gxc#compile-e__0 - _L103130_))) - (__tmp111805 - (let ((__tmp111806 + _L103127_))) + (__tmp111802 + (let ((__tmp111803 (let () (declare (not safe)) (gxc#compile-e__0 - _L103129_)))) + _L103126_)))) (declare (not safe)) - (cons __tmp111806 + (cons __tmp111803 '())))) (declare (not safe)) - (cons __tmp111807 - __tmp111805)))) + (cons __tmp111804 + __tmp111802)))) (declare (not safe)) - (cons __tmp111808 __tmp111804)))) + (cons __tmp111805 __tmp111801)))) (declare (not safe)) - (cons 'if __tmp111803)))) + (cons 'if __tmp111800)))) (declare (not safe)) - (_simplify103069_ __tmp111802)) - (let ((__tmp111795 - (let ((__tmp111800 - (let ((__tmp111801 + (_simplify103066_ __tmp111799)) + (let ((__tmp111792 + (let ((__tmp111797 + (let ((__tmp111798 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _L103131_))))) + _L103128_))))) (declare (not safe)) (call-with-parameters - __tmp111801 + __tmp111798 gxc#current-compile-boolean-context '#t))) - (__tmp111796 - (let ((__tmp111799 + (__tmp111793 + (let ((__tmp111796 (let () (declare (not safe)) - (gxc#compile-e__0 _L103130_))) - (__tmp111797 - (let ((__tmp111798 + (gxc#compile-e__0 _L103127_))) + (__tmp111794 + (let ((__tmp111795 (let () (declare (not safe)) (gxc#compile-e__0 - _L103129_)))) + _L103126_)))) (declare (not safe)) - (cons __tmp111798 '())))) + (cons __tmp111795 '())))) (declare (not safe)) - (cons __tmp111799 __tmp111797)))) + (cons __tmp111796 __tmp111794)))) (declare (not safe)) - (cons __tmp111800 __tmp111796)))) + (cons __tmp111797 __tmp111793)))) (declare (not safe)) - (cons 'if __tmp111795)))) - _hd103086103124_ - _hd103083103116_ - _hd103080103108_) + (cons 'if __tmp111792)))) + _hd103083103121_ + _hd103080103113_ + _hd103077103105_) (let () (declare (not safe)) - (_g103071103092_ _g103072103095_))))) + (_g103068103089_ _g103069103092_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g103071103092_ - _g103072103095_))))) + (_g103068103089_ + _g103069103092_))))) (let () (declare (not safe)) - (_g103071103092_ - _g103072103095_))))) + (_g103068103089_ + _g103069103092_))))) (let () (declare (not safe)) - (_g103071103092_ _g103072103095_))))) + (_g103068103089_ _g103069103092_))))) (let () (declare (not safe)) - (_g103071103092_ _g103072103095_)))))) + (_g103068103089_ _g103069103092_)))))) (declare (not safe)) - (_g103070103151_ _stx103067_))))) + (_g103067103148_ _stx103064_))))) (define gxc#generate-runtime-ref% - (lambda (_stx103016_) - (let* ((_g103018103031_ - (lambda (_g103019103028_) + (lambda (_stx103013_) + (let* ((_g103015103028_ + (lambda (_g103016103025_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103019103028_)))) - (_g103017103064_ - (lambda (_g103019103034_) + _g103016103025_)))) + (_g103014103061_ + (lambda (_g103016103031_) (if (let () (declare (not safe)) - (gx#stx-pair? _g103019103034_)) - (let ((_e103023103036_ + (gx#stx-pair? _g103016103031_)) + (let ((_e103020103033_ (let () (declare (not safe)) - (gx#stx-e _g103019103034_)))) - (let ((_hd103022103039_ + (gx#stx-e _g103016103031_)))) + (let ((_hd103019103036_ (let () (declare (not safe)) - (##car _e103023103036_))) - (_tl103021103041_ + (##car _e103020103033_))) + (_tl103018103038_ (let () (declare (not safe)) - (##cdr _e103023103036_)))) + (##cdr _e103020103033_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103021103041_)) - (let ((_e103026103044_ + (gx#stx-pair? _tl103018103038_)) + (let ((_e103023103041_ (let () (declare (not safe)) - (gx#stx-e _tl103021103041_)))) - (let ((_hd103025103047_ + (gx#stx-e _tl103018103038_)))) + (let ((_hd103022103044_ (let () (declare (not safe)) - (##car _e103026103044_))) - (_tl103024103049_ + (##car _e103023103041_))) + (_tl103021103046_ (let () (declare (not safe)) - (##cdr _e103026103044_)))) + (##cdr _e103023103041_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103024103049_)) - ((lambda (_L103052_) + (gx#stx-null? _tl103021103046_)) + ((lambda (_L103049_) (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L103052_))) - _hd103025103047_) + _L103049_))) + _hd103022103044_) (let () (declare (not safe)) - (_g103018103031_ _g103019103034_))))) + (_g103015103028_ _g103016103031_))))) (let () (declare (not safe)) - (_g103018103031_ _g103019103034_))))) + (_g103015103028_ _g103016103031_))))) (let () (declare (not safe)) - (_g103018103031_ _g103019103034_)))))) + (_g103015103028_ _g103016103031_)))))) (declare (not safe)) - (_g103017103064_ _stx103016_)))) + (_g103014103061_ _stx103013_)))) (define gxc#generate-runtime-setq% - (lambda (_stx102949_) - (let* ((_g102951102968_ - (lambda (_g102952102965_) + (lambda (_stx102946_) + (let* ((_g102948102965_ + (lambda (_g102949102962_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102952102965_)))) - (_g102950103013_ - (lambda (_g102952102971_) + _g102949102962_)))) + (_g102947103010_ + (lambda (_g102949102968_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102952102971_)) - (let ((_e102957102973_ + (gx#stx-pair? _g102949102968_)) + (let ((_e102954102970_ (let () (declare (not safe)) - (gx#stx-e _g102952102971_)))) - (let ((_hd102956102976_ + (gx#stx-e _g102949102968_)))) + (let ((_hd102953102973_ (let () (declare (not safe)) - (##car _e102957102973_))) - (_tl102955102978_ + (##car _e102954102970_))) + (_tl102952102975_ (let () (declare (not safe)) - (##cdr _e102957102973_)))) + (##cdr _e102954102970_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102955102978_)) - (let ((_e102960102981_ + (gx#stx-pair? _tl102952102975_)) + (let ((_e102957102978_ (let () (declare (not safe)) - (gx#stx-e _tl102955102978_)))) - (let ((_hd102959102984_ + (gx#stx-e _tl102952102975_)))) + (let ((_hd102956102981_ (let () (declare (not safe)) - (##car _e102960102981_))) - (_tl102958102986_ + (##car _e102957102978_))) + (_tl102955102983_ (let () (declare (not safe)) - (##cdr _e102960102981_)))) + (##cdr _e102957102978_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102958102986_)) - (let ((_e102963102989_ + (gx#stx-pair? _tl102955102983_)) + (let ((_e102960102986_ (let () (declare (not safe)) - (gx#stx-e _tl102958102986_)))) - (let ((_hd102962102992_ + (gx#stx-e _tl102955102983_)))) + (let ((_hd102959102989_ (let () (declare (not safe)) - (##car _e102963102989_))) - (_tl102961102994_ + (##car _e102960102986_))) + (_tl102958102991_ (let () (declare (not safe)) - (##cdr _e102963102989_)))) + (##cdr _e102960102986_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102961102994_)) - ((lambda (_L102997_ _L102998_) - (let ((__tmp111809 - (let ((__tmp111812 + _tl102958102991_)) + ((lambda (_L102994_ _L102995_) + (let ((__tmp111806 + (let ((__tmp111809 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L102998_))) - (__tmp111810 - (let ((__tmp111811 + (gxc#generate-runtime-binding-id _L102995_))) + (__tmp111807 + (let ((__tmp111808 (let () (declare (not safe)) - (gxc#compile-e__0 _L102997_)))) + (gxc#compile-e__0 _L102994_)))) (declare (not safe)) - (cons __tmp111811 '())))) + (cons __tmp111808 '())))) (declare (not safe)) - (cons __tmp111812 __tmp111810)))) + (cons __tmp111809 __tmp111807)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp111809))) - _hd102962102992_ - _hd102959102984_) + (cons 'set! __tmp111806))) + _hd102959102989_ + _hd102956102981_) (let () (declare (not safe)) - (_g102951102968_ - _g102952102971_))))) + (_g102948102965_ + _g102949102968_))))) (let () (declare (not safe)) - (_g102951102968_ _g102952102971_))))) + (_g102948102965_ _g102949102968_))))) (let () (declare (not safe)) - (_g102951102968_ _g102952102971_))))) + (_g102948102965_ _g102949102968_))))) (let () (declare (not safe)) - (_g102951102968_ _g102952102971_)))))) + (_g102948102965_ _g102949102968_)))))) (declare (not safe)) - (_g102950103013_ _stx102949_)))) + (_g102947103010_ _stx102946_)))) (define gxc#generate-runtime-struct-instancep% - (lambda (_stx102761_) - (let* ((_g102763102780_ - (lambda (_g102764102777_) + (lambda (_stx102758_) + (let* ((_g102760102777_ + (lambda (_g102761102774_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102764102777_)))) - (_g102762102946_ - (lambda (_g102764102783_) + _g102761102774_)))) + (_g102759102943_ + (lambda (_g102761102780_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102764102783_)) - (let ((_e102769102785_ + (gx#stx-pair? _g102761102780_)) + (let ((_e102766102782_ (let () (declare (not safe)) - (gx#stx-e _g102764102783_)))) - (let ((_hd102768102788_ + (gx#stx-e _g102761102780_)))) + (let ((_hd102765102785_ (let () (declare (not safe)) - (##car _e102769102785_))) - (_tl102767102790_ + (##car _e102766102782_))) + (_tl102764102787_ (let () (declare (not safe)) - (##cdr _e102769102785_)))) + (##cdr _e102766102782_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102767102790_)) - (let ((_e102772102793_ + (gx#stx-pair? _tl102764102787_)) + (let ((_e102769102790_ (let () (declare (not safe)) - (gx#stx-e _tl102767102790_)))) - (let ((_hd102771102796_ + (gx#stx-e _tl102764102787_)))) + (let ((_hd102768102793_ (let () (declare (not safe)) - (##car _e102772102793_))) - (_tl102770102798_ + (##car _e102769102790_))) + (_tl102767102795_ (let () (declare (not safe)) - (##cdr _e102772102793_)))) + (##cdr _e102769102790_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102770102798_)) - (let ((_e102775102801_ + (gx#stx-pair? _tl102767102795_)) + (let ((_e102772102798_ (let () (declare (not safe)) - (gx#stx-e _tl102770102798_)))) - (let ((_hd102774102804_ + (gx#stx-e _tl102767102795_)))) + (let ((_hd102771102801_ (let () (declare (not safe)) - (##car _e102775102801_))) - (_tl102773102806_ + (##car _e102772102798_))) + (_tl102770102803_ (let () (declare (not safe)) - (##cdr _e102775102801_)))) + (##cdr _e102772102798_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102773102806_)) - ((lambda (_L102809_ _L102810_) + _tl102770102803_)) + ((lambda (_L102806_ _L102807_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111828 - (let ((__tmp111831 + (let ((__tmp111825 + (let ((__tmp111828 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L102809_))) - (__tmp111829 - (let ((__tmp111830 + (gxc#compile-e__0 _L102806_))) + (__tmp111826 + (let ((__tmp111827 (let () (declare (not safe)) - (gxc#compile-e__0 _L102810_)))) + (gxc#compile-e__0 _L102807_)))) (declare (not safe)) - (cons __tmp111830 '())))) + (cons __tmp111827 '())))) (declare (not safe)) - (cons __tmp111831 __tmp111829)))) + (cons __tmp111828 __tmp111826)))) (declare (not safe)) - (cons '##structure-instance-of? __tmp111828)) - (let _lp102825_ ((_rest102828_ - (let ((__tmp111827 + (cons '##structure-instance-of? __tmp111825)) + (let _lp102822_ ((_rest102825_ + (let ((__tmp111824 (let () (declare (not safe)) - (cons _L102809_ '())))) + (cons _L102806_ '())))) (declare (not safe)) - (cons _L102810_ __tmp111827))) - (_bind102830_ '()) - (_args102831_ '())) - (let* ((_rest102832102840_ _rest102828_) - (_else102834102848_ + (cons _L102807_ __tmp111824))) + (_bind102827_ '()) + (_args102828_ '())) + (let* ((_rest102829102837_ _rest102825_) + (_else102831102845_ (lambda () - (let ((__tmp111813 - (let ((__tmp111814 - (let ((__tmp111815 - (let ((__tmp111816 + (let ((__tmp111810 + (let ((__tmp111811 + (let ((__tmp111812 + (let ((__tmp111813 (let () (declare (not safe)) (cons '##structure-instance-of? - _args102831_)))) + _args102828_)))) (declare (not safe)) - (cons __tmp111816 '())))) + (cons __tmp111813 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp111815)))) + __tmp111812)))) (declare (not safe)) - (cons _bind102830_ __tmp111814)))) + (cons _bind102827_ __tmp111811)))) (declare (not safe)) - (cons 'let __tmp111813)))) - (_K102836102934_ - (lambda (_rest102851_ _e102852_) - (let* ((___stx111010111011_ _e102852_) - (_g102857102875_ + (cons 'let __tmp111810)))) + (_K102833102931_ + (lambda (_rest102848_ _e102849_) + (let* ((___stx111007111008_ _e102849_) + (_g102854102872_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx111010111011_))))) - (let ((___kont111012111013_ + ___stx111007111008_))))) + (let ((___kont111009111010_ (lambda () - (let ((__tmp111817 - (let ((__tmp111818 + (let ((__tmp111814 + (let ((__tmp111815 (let () (declare (not safe)) (gxc#compile-e__0 - _e102852_)))) + _e102849_)))) (declare (not safe)) - (cons __tmp111818 - _args102831_)))) + (cons __tmp111815 + _args102828_)))) (declare (not safe)) - (_lp102825_ - _rest102851_ - _bind102830_ - __tmp111817)))) - (___kont111014111015_ + (_lp102822_ + _rest102848_ + _bind102827_ + __tmp111814)))) + (___kont111011111012_ (lambda () - (let ((__tmp111819 - (let ((__tmp111820 + (let ((__tmp111816 + (let ((__tmp111817 (let () (declare (not safe)) (gxc#compile-e__0 - _e102852_)))) + _e102849_)))) (declare (not safe)) - (cons __tmp111820 - _args102831_)))) + (cons __tmp111817 + _args102828_)))) (declare (not safe)) - (_lp102825_ - _rest102851_ - _bind102830_ - __tmp111819)))) - (___kont111016111017_ + (_lp102822_ + _rest102848_ + _bind102827_ + __tmp111816)))) + (___kont111013111014_ (lambda () - (let ((_tmp102882_ - (let ((__tmp111821 + (let ((_tmp102879_ + (let ((__tmp111818 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp111821)))) - (let ((__tmp111823 - (let ((__tmp111824 - (let ((__tmp111825 - (let ((__tmp111826 + (make-symbol__0 __tmp111818)))) + (let ((__tmp111820 + (let ((__tmp111821 + (let ((__tmp111822 + (let ((__tmp111823 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e102852_)))) + (gxc#compile-e__0 _e102849_)))) (declare (not safe)) - (cons __tmp111826 '())))) + (cons __tmp111823 '())))) (declare (not safe)) - (cons _tmp102882_ __tmp111825)))) + (cons _tmp102879_ __tmp111822)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111824 - _bind102830_))) - (__tmp111822 + (cons __tmp111821 + _bind102827_))) + (__tmp111819 (let () (declare (not safe)) - (cons _tmp102882_ - _args102831_)))) + (cons _tmp102879_ + _args102828_)))) (declare (not safe)) - (_lp102825_ - _rest102851_ - __tmp111823 - __tmp111822)))))) + (_lp102822_ + _rest102848_ + __tmp111820 + __tmp111819)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx111010111011_)) - (let ((_e102861102913_ + (gx#stx-pair? ___stx111007111008_)) + (let ((_e102858102910_ (let () (declare (not safe)) - (gx#stx-e ___stx111010111011_)))) - (let ((_tl102859102918_ + (gx#stx-e ___stx111007111008_)))) + (let ((_tl102856102915_ (let () (declare (not safe)) - (##cdr _e102861102913_))) - (_hd102860102916_ + (##cdr _e102858102910_))) + (_hd102857102913_ (let () (declare (not safe)) - (##car _e102861102913_)))) + (##car _e102858102910_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd102860102916_)) + (gx#identifier? _hd102857102913_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd102860102916_)) + _hd102857102913_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102859102918_)) - (let ((_e102864102921_ + _tl102856102915_)) + (let ((_e102861102918_ (let () (declare (not safe)) (gx#stx-e - _tl102859102918_)))) - (let ((_tl102862102926_ + _tl102856102915_)))) + (let ((_tl102859102923_ (let () (declare (not safe)) - (##cdr _e102864102921_))) - (_hd102863102924_ + (##cdr _e102861102918_))) + (_hd102860102921_ (let () (declare (not safe)) - (##car _e102864102921_)))) + (##car _e102861102918_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102862102926_)) - (___kont111012111013_) - (___kont111016111017_)))) - (___kont111016111017_)) + _tl102859102923_)) + (___kont111009111010_) + (___kont111013111014_)))) + (___kont111013111014_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd102860102916_)) + _hd102857102913_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102859102918_)) - (let ((_e102870102898_ + _tl102856102915_)) + (let ((_e102867102895_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl102859102918_)))) - (let ((_tl102868102903_ - (let () (declare (not safe)) (##cdr _e102870102898_))) - (_hd102869102901_ - (let () (declare (not safe)) (##car _e102870102898_)))) + (gx#stx-e _tl102856102915_)))) + (let ((_tl102865102900_ + (let () (declare (not safe)) (##cdr _e102867102895_))) + (_hd102866102898_ + (let () (declare (not safe)) (##car _e102867102895_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl102868102903_)) - (___kont111014111015_) - (___kont111016111017_)))) - (___kont111016111017_)) + (gx#stx-null? _tl102865102900_)) + (___kont111011111012_) + (___kont111013111014_)))) + (___kont111013111014_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont111016111017_))) - (___kont111016111017_)))) - (___kont111016111017_))))))) + (___kont111013111014_))) + (___kont111013111014_)))) + (___kont111013111014_))))))) (if (let () (declare (not safe)) - (##pair? _rest102832102840_)) - (let ((_hd102837102937_ + (##pair? _rest102829102837_)) + (let ((_hd102834102934_ (let () (declare (not safe)) - (##car _rest102832102840_))) - (_tl102838102939_ + (##car _rest102829102837_))) + (_tl102835102936_ (let () (declare (not safe)) - (##cdr _rest102832102840_)))) - (let* ((_e102942_ _hd102837102937_) - (_rest102944_ _tl102838102939_)) + (##cdr _rest102829102837_)))) + (let* ((_e102939_ _hd102834102934_) + (_rest102941_ _tl102835102936_)) (declare (not safe)) - (_K102836102934_ _rest102944_ _e102942_))) - (let () (declare (not safe)) (_else102834102848_))))))) + (_K102833102931_ _rest102941_ _e102939_))) + (let () (declare (not safe)) (_else102831102845_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd102774102804_ - _hd102771102796_) + _hd102771102801_ + _hd102768102793_) (let () (declare (not safe)) - (_g102763102780_ - _g102764102783_))))) + (_g102760102777_ + _g102761102780_))))) (let () (declare (not safe)) - (_g102763102780_ _g102764102783_))))) + (_g102760102777_ _g102761102780_))))) (let () (declare (not safe)) - (_g102763102780_ _g102764102783_))))) + (_g102760102777_ _g102761102780_))))) (let () (declare (not safe)) - (_g102763102780_ _g102764102783_)))))) + (_g102760102777_ _g102761102780_)))))) (declare (not safe)) - (_g102762102946_ _stx102761_)))) + (_g102759102943_ _stx102758_)))) (define gxc#generate-runtime-struct-direct-instancep% - (lambda (_stx102573_) - (let* ((_g102575102592_ - (lambda (_g102576102589_) + (lambda (_stx102570_) + (let* ((_g102572102589_ + (lambda (_g102573102586_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102576102589_)))) - (_g102574102758_ - (lambda (_g102576102595_) + _g102573102586_)))) + (_g102571102755_ + (lambda (_g102573102592_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102576102595_)) - (let ((_e102581102597_ + (gx#stx-pair? _g102573102592_)) + (let ((_e102578102594_ (let () (declare (not safe)) - (gx#stx-e _g102576102595_)))) - (let ((_hd102580102600_ + (gx#stx-e _g102573102592_)))) + (let ((_hd102577102597_ (let () (declare (not safe)) - (##car _e102581102597_))) - (_tl102579102602_ + (##car _e102578102594_))) + (_tl102576102599_ (let () (declare (not safe)) - (##cdr _e102581102597_)))) + (##cdr _e102578102594_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102579102602_)) - (let ((_e102584102605_ + (gx#stx-pair? _tl102576102599_)) + (let ((_e102581102602_ (let () (declare (not safe)) - (gx#stx-e _tl102579102602_)))) - (let ((_hd102583102608_ + (gx#stx-e _tl102576102599_)))) + (let ((_hd102580102605_ (let () (declare (not safe)) - (##car _e102584102605_))) - (_tl102582102610_ + (##car _e102581102602_))) + (_tl102579102607_ (let () (declare (not safe)) - (##cdr _e102584102605_)))) + (##cdr _e102581102602_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102582102610_)) - (let ((_e102587102613_ + (gx#stx-pair? _tl102579102607_)) + (let ((_e102584102610_ (let () (declare (not safe)) - (gx#stx-e _tl102582102610_)))) - (let ((_hd102586102616_ + (gx#stx-e _tl102579102607_)))) + (let ((_hd102583102613_ (let () (declare (not safe)) - (##car _e102587102613_))) - (_tl102585102618_ + (##car _e102584102610_))) + (_tl102582102615_ (let () (declare (not safe)) - (##cdr _e102587102613_)))) + (##cdr _e102584102610_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102585102618_)) - ((lambda (_L102621_ _L102622_) + _tl102582102615_)) + ((lambda (_L102618_ _L102619_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111847 - (let ((__tmp111850 + (let ((__tmp111844 + (let ((__tmp111847 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L102621_))) - (__tmp111848 - (let ((__tmp111849 + (gxc#compile-e__0 _L102618_))) + (__tmp111845 + (let ((__tmp111846 (let () (declare (not safe)) - (gxc#compile-e__0 _L102622_)))) + (gxc#compile-e__0 _L102619_)))) (declare (not safe)) - (cons __tmp111849 '())))) + (cons __tmp111846 '())))) (declare (not safe)) - (cons __tmp111850 __tmp111848)))) + (cons __tmp111847 __tmp111845)))) (declare (not safe)) - (cons '##structure-direct-instance-of? __tmp111847)) - (let _lp102637_ ((_rest102640_ - (let ((__tmp111846 + (cons '##structure-direct-instance-of? __tmp111844)) + (let _lp102634_ ((_rest102637_ + (let ((__tmp111843 (let () (declare (not safe)) - (cons _L102621_ '())))) + (cons _L102618_ '())))) (declare (not safe)) - (cons _L102622_ __tmp111846))) - (_bind102642_ '()) - (_args102643_ '())) - (let* ((_rest102644102652_ _rest102640_) - (_else102646102660_ + (cons _L102619_ __tmp111843))) + (_bind102639_ '()) + (_args102640_ '())) + (let* ((_rest102641102649_ _rest102637_) + (_else102643102657_ (lambda () - (let ((__tmp111832 - (let ((__tmp111833 - (let ((__tmp111834 - (let ((__tmp111835 + (let ((__tmp111829 + (let ((__tmp111830 + (let ((__tmp111831 + (let ((__tmp111832 (let () (declare (not safe)) (cons '##structure-direct-instance-of? - _args102643_)))) + _args102640_)))) (declare (not safe)) - (cons __tmp111835 '())))) + (cons __tmp111832 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp111834)))) + __tmp111831)))) (declare (not safe)) - (cons _bind102642_ __tmp111833)))) + (cons _bind102639_ __tmp111830)))) (declare (not safe)) - (cons 'let __tmp111832)))) - (_K102648102746_ - (lambda (_rest102663_ _e102664_) - (let* ((___stx111056111057_ _e102664_) - (_g102669102687_ + (cons 'let __tmp111829)))) + (_K102645102743_ + (lambda (_rest102660_ _e102661_) + (let* ((___stx111053111054_ _e102661_) + (_g102666102684_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx111056111057_))))) - (let ((___kont111058111059_ + ___stx111053111054_))))) + (let ((___kont111055111056_ (lambda () - (let ((__tmp111836 - (let ((__tmp111837 + (let ((__tmp111833 + (let ((__tmp111834 (let () (declare (not safe)) (gxc#compile-e__0 - _e102664_)))) + _e102661_)))) (declare (not safe)) - (cons __tmp111837 - _args102643_)))) + (cons __tmp111834 + _args102640_)))) (declare (not safe)) - (_lp102637_ - _rest102663_ - _bind102642_ - __tmp111836)))) - (___kont111060111061_ + (_lp102634_ + _rest102660_ + _bind102639_ + __tmp111833)))) + (___kont111057111058_ (lambda () - (let ((__tmp111838 - (let ((__tmp111839 + (let ((__tmp111835 + (let ((__tmp111836 (let () (declare (not safe)) (gxc#compile-e__0 - _e102664_)))) + _e102661_)))) (declare (not safe)) - (cons __tmp111839 - _args102643_)))) + (cons __tmp111836 + _args102640_)))) (declare (not safe)) - (_lp102637_ - _rest102663_ - _bind102642_ - __tmp111838)))) - (___kont111062111063_ + (_lp102634_ + _rest102660_ + _bind102639_ + __tmp111835)))) + (___kont111059111060_ (lambda () - (let ((_tmp102694_ - (let ((__tmp111840 + (let ((_tmp102691_ + (let ((__tmp111837 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp111840)))) - (let ((__tmp111842 - (let ((__tmp111843 - (let ((__tmp111844 - (let ((__tmp111845 + (make-symbol__0 __tmp111837)))) + (let ((__tmp111839 + (let ((__tmp111840 + (let ((__tmp111841 + (let ((__tmp111842 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e102664_)))) + (gxc#compile-e__0 _e102661_)))) (declare (not safe)) - (cons __tmp111845 '())))) + (cons __tmp111842 '())))) (declare (not safe)) - (cons _tmp102694_ __tmp111844)))) + (cons _tmp102691_ __tmp111841)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111843 - _bind102642_))) - (__tmp111841 + (cons __tmp111840 + _bind102639_))) + (__tmp111838 (let () (declare (not safe)) - (cons _tmp102694_ - _args102643_)))) + (cons _tmp102691_ + _args102640_)))) (declare (not safe)) - (_lp102637_ - _rest102663_ - __tmp111842 - __tmp111841)))))) + (_lp102634_ + _rest102660_ + __tmp111839 + __tmp111838)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx111056111057_)) - (let ((_e102673102725_ + (gx#stx-pair? ___stx111053111054_)) + (let ((_e102670102722_ (let () (declare (not safe)) - (gx#stx-e ___stx111056111057_)))) - (let ((_tl102671102730_ + (gx#stx-e ___stx111053111054_)))) + (let ((_tl102668102727_ (let () (declare (not safe)) - (##cdr _e102673102725_))) - (_hd102672102728_ + (##cdr _e102670102722_))) + (_hd102669102725_ (let () (declare (not safe)) - (##car _e102673102725_)))) + (##car _e102670102722_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd102672102728_)) + (gx#identifier? _hd102669102725_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd102672102728_)) + _hd102669102725_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102671102730_)) - (let ((_e102676102733_ + _tl102668102727_)) + (let ((_e102673102730_ (let () (declare (not safe)) (gx#stx-e - _tl102671102730_)))) - (let ((_tl102674102738_ + _tl102668102727_)))) + (let ((_tl102671102735_ (let () (declare (not safe)) - (##cdr _e102676102733_))) - (_hd102675102736_ + (##cdr _e102673102730_))) + (_hd102672102733_ (let () (declare (not safe)) - (##car _e102676102733_)))) + (##car _e102673102730_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102674102738_)) - (___kont111058111059_) - (___kont111062111063_)))) - (___kont111062111063_)) + _tl102671102735_)) + (___kont111055111056_) + (___kont111059111060_)))) + (___kont111059111060_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd102672102728_)) + _hd102669102725_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102671102730_)) - (let ((_e102682102710_ + _tl102668102727_)) + (let ((_e102679102707_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl102671102730_)))) - (let ((_tl102680102715_ - (let () (declare (not safe)) (##cdr _e102682102710_))) - (_hd102681102713_ - (let () (declare (not safe)) (##car _e102682102710_)))) + (gx#stx-e _tl102668102727_)))) + (let ((_tl102677102712_ + (let () (declare (not safe)) (##cdr _e102679102707_))) + (_hd102678102710_ + (let () (declare (not safe)) (##car _e102679102707_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl102680102715_)) - (___kont111060111061_) - (___kont111062111063_)))) - (___kont111062111063_)) + (gx#stx-null? _tl102677102712_)) + (___kont111057111058_) + (___kont111059111060_)))) + (___kont111059111060_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont111062111063_))) - (___kont111062111063_)))) - (___kont111062111063_))))))) + (___kont111059111060_))) + (___kont111059111060_)))) + (___kont111059111060_))))))) (if (let () (declare (not safe)) - (##pair? _rest102644102652_)) - (let ((_hd102649102749_ + (##pair? _rest102641102649_)) + (let ((_hd102646102746_ (let () (declare (not safe)) - (##car _rest102644102652_))) - (_tl102650102751_ + (##car _rest102641102649_))) + (_tl102647102748_ (let () (declare (not safe)) - (##cdr _rest102644102652_)))) - (let* ((_e102754_ _hd102649102749_) - (_rest102756_ _tl102650102751_)) + (##cdr _rest102641102649_)))) + (let* ((_e102751_ _hd102646102746_) + (_rest102753_ _tl102647102748_)) (declare (not safe)) - (_K102648102746_ _rest102756_ _e102754_))) - (let () (declare (not safe)) (_else102646102660_))))))) + (_K102645102743_ _rest102753_ _e102751_))) + (let () (declare (not safe)) (_else102643102657_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd102586102616_ - _hd102583102608_) + _hd102583102613_ + _hd102580102605_) (let () (declare (not safe)) - (_g102575102592_ - _g102576102595_))))) + (_g102572102589_ + _g102573102592_))))) (let () (declare (not safe)) - (_g102575102592_ _g102576102595_))))) + (_g102572102589_ _g102573102592_))))) (let () (declare (not safe)) - (_g102575102592_ _g102576102595_))))) + (_g102572102589_ _g102573102592_))))) (let () (declare (not safe)) - (_g102575102592_ _g102576102595_)))))) + (_g102572102589_ _g102573102592_)))))) (declare (not safe)) - (_g102574102758_ _stx102573_)))) + (_g102571102755_ _stx102570_)))) (define gxc#generate-runtime-struct-ref% - (lambda (_stx102490_) - (let* ((_g102492102513_ - (lambda (_g102493102510_) + (lambda (_stx102487_) + (let* ((_g102489102510_ + (lambda (_g102490102507_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102493102510_)))) - (_g102491102570_ - (lambda (_g102493102516_) + _g102490102507_)))) + (_g102488102567_ + (lambda (_g102490102513_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102493102516_)) - (let ((_e102499102518_ + (gx#stx-pair? _g102490102513_)) + (let ((_e102496102515_ (let () (declare (not safe)) - (gx#stx-e _g102493102516_)))) - (let ((_hd102498102521_ + (gx#stx-e _g102490102513_)))) + (let ((_hd102495102518_ (let () (declare (not safe)) - (##car _e102499102518_))) - (_tl102497102523_ + (##car _e102496102515_))) + (_tl102494102520_ (let () (declare (not safe)) - (##cdr _e102499102518_)))) + (##cdr _e102496102515_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102497102523_)) - (let ((_e102502102526_ + (gx#stx-pair? _tl102494102520_)) + (let ((_e102499102523_ (let () (declare (not safe)) - (gx#stx-e _tl102497102523_)))) - (let ((_hd102501102529_ + (gx#stx-e _tl102494102520_)))) + (let ((_hd102498102526_ (let () (declare (not safe)) - (##car _e102502102526_))) - (_tl102500102531_ + (##car _e102499102523_))) + (_tl102497102528_ (let () (declare (not safe)) - (##cdr _e102502102526_)))) + (##cdr _e102499102523_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102500102531_)) - (let ((_e102505102534_ + (gx#stx-pair? _tl102497102528_)) + (let ((_e102502102531_ (let () (declare (not safe)) - (gx#stx-e _tl102500102531_)))) - (let ((_hd102504102537_ + (gx#stx-e _tl102497102528_)))) + (let ((_hd102501102534_ (let () (declare (not safe)) - (##car _e102505102534_))) - (_tl102503102539_ + (##car _e102502102531_))) + (_tl102500102536_ (let () (declare (not safe)) - (##cdr _e102505102534_)))) + (##cdr _e102502102531_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102503102539_)) - (let ((_e102508102542_ + _tl102500102536_)) + (let ((_e102505102539_ (let () (declare (not safe)) (gx#stx-e - _tl102503102539_)))) - (let ((_hd102507102545_ + _tl102500102536_)))) + (let ((_hd102504102542_ (let () (declare (not safe)) - (##car _e102508102542_))) - (_tl102506102547_ + (##car _e102505102539_))) + (_tl102503102544_ (let () (declare (not safe)) - (##cdr _e102508102542_)))) + (##cdr _e102505102539_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102506102547_)) - ((lambda (_L102550_ + _tl102503102544_)) + ((lambda (_L102547_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L102551_ - _L102552_) - (let ((__tmp111851 - (let ((__tmp111857 + _L102548_ + _L102549_) + (let ((__tmp111848 + (let ((__tmp111854 (let () (declare (not safe)) - (gxc#compile-e__0 _L102550_))) - (__tmp111852 - (let ((__tmp111856 + (gxc#compile-e__0 _L102547_))) + (__tmp111849 + (let ((__tmp111853 (let () (declare (not safe)) - (gxc#compile-e__0 _L102551_))) - (__tmp111853 - (let ((__tmp111855 + (gxc#compile-e__0 _L102548_))) + (__tmp111850 + (let ((__tmp111852 (let () (declare (not safe)) - (gxc#compile-e__0 _L102552_))) - (__tmp111854 + (gxc#compile-e__0 _L102549_))) + (__tmp111851 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp111855 __tmp111854)))) + (cons __tmp111852 __tmp111851)))) (declare (not safe)) - (cons __tmp111856 __tmp111853)))) + (cons __tmp111853 __tmp111850)))) (declare (not safe)) - (cons __tmp111857 __tmp111852)))) + (cons __tmp111854 __tmp111849)))) (declare (not safe)) - (cons '##structure-ref __tmp111851))) - _hd102507102545_ - _hd102504102537_ - _hd102501102529_) + (cons '##structure-ref __tmp111848))) + _hd102504102542_ + _hd102501102534_ + _hd102498102526_) (let () (declare (not safe)) - (_g102492102513_ _g102493102516_))))) + (_g102489102510_ _g102490102513_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g102492102513_ - _g102493102516_))))) + (_g102489102510_ + _g102490102513_))))) (let () (declare (not safe)) - (_g102492102513_ _g102493102516_))))) + (_g102489102510_ _g102490102513_))))) (let () (declare (not safe)) - (_g102492102513_ _g102493102516_))))) + (_g102489102510_ _g102490102513_))))) (let () (declare (not safe)) - (_g102492102513_ _g102493102516_)))))) + (_g102489102510_ _g102490102513_)))))) (declare (not safe)) - (_g102491102570_ _stx102490_)))) + (_g102488102567_ _stx102487_)))) (define gxc#generate-runtime-struct-setq% - (lambda (_stx102391_) - (let* ((_g102393102418_ - (lambda (_g102394102415_) + (lambda (_stx102388_) + (let* ((_g102390102415_ + (lambda (_g102391102412_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102394102415_)))) - (_g102392102487_ - (lambda (_g102394102421_) + _g102391102412_)))) + (_g102389102484_ + (lambda (_g102391102418_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102394102421_)) - (let ((_e102401102423_ + (gx#stx-pair? _g102391102418_)) + (let ((_e102398102420_ (let () (declare (not safe)) - (gx#stx-e _g102394102421_)))) - (let ((_hd102400102426_ + (gx#stx-e _g102391102418_)))) + (let ((_hd102397102423_ (let () (declare (not safe)) - (##car _e102401102423_))) - (_tl102399102428_ + (##car _e102398102420_))) + (_tl102396102425_ (let () (declare (not safe)) - (##cdr _e102401102423_)))) + (##cdr _e102398102420_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102399102428_)) - (let ((_e102404102431_ + (gx#stx-pair? _tl102396102425_)) + (let ((_e102401102428_ (let () (declare (not safe)) - (gx#stx-e _tl102399102428_)))) - (let ((_hd102403102434_ + (gx#stx-e _tl102396102425_)))) + (let ((_hd102400102431_ (let () (declare (not safe)) - (##car _e102404102431_))) - (_tl102402102436_ + (##car _e102401102428_))) + (_tl102399102433_ (let () (declare (not safe)) - (##cdr _e102404102431_)))) + (##cdr _e102401102428_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102402102436_)) - (let ((_e102407102439_ + (gx#stx-pair? _tl102399102433_)) + (let ((_e102404102436_ (let () (declare (not safe)) - (gx#stx-e _tl102402102436_)))) - (let ((_hd102406102442_ + (gx#stx-e _tl102399102433_)))) + (let ((_hd102403102439_ (let () (declare (not safe)) - (##car _e102407102439_))) - (_tl102405102444_ + (##car _e102404102436_))) + (_tl102402102441_ (let () (declare (not safe)) - (##cdr _e102407102439_)))) + (##cdr _e102404102436_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102405102444_)) - (let ((_e102410102447_ + _tl102402102441_)) + (let ((_e102407102444_ (let () (declare (not safe)) (gx#stx-e - _tl102405102444_)))) - (let ((_hd102409102450_ + _tl102402102441_)))) + (let ((_hd102406102447_ (let () (declare (not safe)) - (##car _e102410102447_))) - (_tl102408102452_ + (##car _e102407102444_))) + (_tl102405102449_ (let () (declare (not safe)) - (##cdr _e102410102447_)))) + (##cdr _e102407102444_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102408102452_)) - (let ((_e102413102455_ + _tl102405102449_)) + (let ((_e102410102452_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl102408102452_)))) - (let ((_hd102412102458_ - (let () (declare (not safe)) (##car _e102413102455_))) - (_tl102411102460_ + (gx#stx-e _tl102405102449_)))) + (let ((_hd102409102455_ + (let () (declare (not safe)) (##car _e102410102452_))) + (_tl102408102457_ (let () (declare (not safe)) - (##cdr _e102413102455_)))) + (##cdr _e102410102452_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl102411102460_)) - ((lambda (_L102463_ _L102464_ _L102465_ _L102466_) - (let ((__tmp111858 - (let ((__tmp111866 + (gx#stx-null? _tl102408102457_)) + ((lambda (_L102460_ _L102461_ _L102462_ _L102463_) + (let ((__tmp111855 + (let ((__tmp111863 (let () (declare (not safe)) - (gxc#compile-e__0 _L102464_))) - (__tmp111859 - (let ((__tmp111865 + (gxc#compile-e__0 _L102461_))) + (__tmp111856 + (let ((__tmp111862 (let () (declare (not safe)) (gxc#compile-e__0 - _L102463_))) - (__tmp111860 - (let ((__tmp111864 + _L102460_))) + (__tmp111857 + (let ((__tmp111861 (let () (declare (not safe)) (gxc#compile-e__0 - _L102465_))) - (__tmp111861 - (let ((__tmp111863 + _L102462_))) + (__tmp111858 + (let ((__tmp111860 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _L102466_))) - (__tmp111862 + (gxc#compile-e__0 _L102463_))) + (__tmp111859 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp111863 __tmp111862)))) + (cons __tmp111860 __tmp111859)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111864 - __tmp111861)))) + (cons __tmp111861 + __tmp111858)))) (declare (not safe)) - (cons __tmp111865 __tmp111860)))) + (cons __tmp111862 __tmp111857)))) (declare (not safe)) - (cons __tmp111866 __tmp111859)))) + (cons __tmp111863 __tmp111856)))) (declare (not safe)) - (cons '##structure-set! __tmp111858))) - _hd102412102458_ - _hd102409102450_ - _hd102406102442_ - _hd102403102434_) + (cons '##structure-set! __tmp111855))) + _hd102409102455_ + _hd102406102447_ + _hd102403102439_ + _hd102400102431_) (let () (declare (not safe)) - (_g102393102418_ _g102394102421_))))) + (_g102390102415_ _g102391102418_))))) (let () (declare (not safe)) - (_g102393102418_ _g102394102421_))))) + (_g102390102415_ _g102391102418_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g102393102418_ - _g102394102421_))))) + (_g102390102415_ + _g102391102418_))))) (let () (declare (not safe)) - (_g102393102418_ _g102394102421_))))) + (_g102390102415_ _g102391102418_))))) (let () (declare (not safe)) - (_g102393102418_ _g102394102421_))))) + (_g102390102415_ _g102391102418_))))) (let () (declare (not safe)) - (_g102393102418_ _g102394102421_)))))) + (_g102390102415_ _g102391102418_)))))) (declare (not safe)) - (_g102392102487_ _stx102391_)))) + (_g102389102484_ _stx102388_)))) (define gxc#generate-runtime-struct-direct-ref% - (lambda (_stx102308_) - (let* ((_g102310102331_ - (lambda (_g102311102328_) + (lambda (_stx102305_) + (let* ((_g102307102328_ + (lambda (_g102308102325_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102311102328_)))) - (_g102309102388_ - (lambda (_g102311102334_) + _g102308102325_)))) + (_g102306102385_ + (lambda (_g102308102331_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102311102334_)) - (let ((_e102317102336_ + (gx#stx-pair? _g102308102331_)) + (let ((_e102314102333_ (let () (declare (not safe)) - (gx#stx-e _g102311102334_)))) - (let ((_hd102316102339_ + (gx#stx-e _g102308102331_)))) + (let ((_hd102313102336_ (let () (declare (not safe)) - (##car _e102317102336_))) - (_tl102315102341_ + (##car _e102314102333_))) + (_tl102312102338_ (let () (declare (not safe)) - (##cdr _e102317102336_)))) + (##cdr _e102314102333_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102315102341_)) - (let ((_e102320102344_ + (gx#stx-pair? _tl102312102338_)) + (let ((_e102317102341_ (let () (declare (not safe)) - (gx#stx-e _tl102315102341_)))) - (let ((_hd102319102347_ + (gx#stx-e _tl102312102338_)))) + (let ((_hd102316102344_ (let () (declare (not safe)) - (##car _e102320102344_))) - (_tl102318102349_ + (##car _e102317102341_))) + (_tl102315102346_ (let () (declare (not safe)) - (##cdr _e102320102344_)))) + (##cdr _e102317102341_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102318102349_)) - (let ((_e102323102352_ + (gx#stx-pair? _tl102315102346_)) + (let ((_e102320102349_ (let () (declare (not safe)) - (gx#stx-e _tl102318102349_)))) - (let ((_hd102322102355_ + (gx#stx-e _tl102315102346_)))) + (let ((_hd102319102352_ (let () (declare (not safe)) - (##car _e102323102352_))) - (_tl102321102357_ + (##car _e102320102349_))) + (_tl102318102354_ (let () (declare (not safe)) - (##cdr _e102323102352_)))) + (##cdr _e102320102349_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102321102357_)) - (let ((_e102326102360_ + _tl102318102354_)) + (let ((_e102323102357_ (let () (declare (not safe)) (gx#stx-e - _tl102321102357_)))) - (let ((_hd102325102363_ + _tl102318102354_)))) + (let ((_hd102322102360_ (let () (declare (not safe)) - (##car _e102326102360_))) - (_tl102324102365_ + (##car _e102323102357_))) + (_tl102321102362_ (let () (declare (not safe)) - (##cdr _e102326102360_)))) + (##cdr _e102323102357_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102324102365_)) - ((lambda (_L102368_ + _tl102321102362_)) + ((lambda (_L102365_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L102369_ - _L102370_) - (let ((__tmp111867 - (let ((__tmp111873 + _L102366_ + _L102367_) + (let ((__tmp111864 + (let ((__tmp111870 (let () (declare (not safe)) - (gxc#compile-e__0 _L102368_))) - (__tmp111868 - (let ((__tmp111872 + (gxc#compile-e__0 _L102365_))) + (__tmp111865 + (let ((__tmp111869 (let () (declare (not safe)) - (gxc#compile-e__0 _L102369_))) - (__tmp111869 - (let ((__tmp111871 + (gxc#compile-e__0 _L102366_))) + (__tmp111866 + (let ((__tmp111868 (let () (declare (not safe)) - (gxc#compile-e__0 _L102370_))) - (__tmp111870 + (gxc#compile-e__0 _L102367_))) + (__tmp111867 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp111871 __tmp111870)))) + (cons __tmp111868 __tmp111867)))) (declare (not safe)) - (cons __tmp111872 __tmp111869)))) + (cons __tmp111869 __tmp111866)))) (declare (not safe)) - (cons __tmp111873 __tmp111868)))) + (cons __tmp111870 __tmp111865)))) (declare (not safe)) - (cons '##direct-structure-ref __tmp111867))) - _hd102325102363_ - _hd102322102355_ - _hd102319102347_) + (cons '##direct-structure-ref __tmp111864))) + _hd102322102360_ + _hd102319102352_ + _hd102316102344_) (let () (declare (not safe)) - (_g102310102331_ _g102311102334_))))) + (_g102307102328_ _g102308102331_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g102310102331_ - _g102311102334_))))) + (_g102307102328_ + _g102308102331_))))) (let () (declare (not safe)) - (_g102310102331_ _g102311102334_))))) + (_g102307102328_ _g102308102331_))))) (let () (declare (not safe)) - (_g102310102331_ _g102311102334_))))) + (_g102307102328_ _g102308102331_))))) (let () (declare (not safe)) - (_g102310102331_ _g102311102334_)))))) + (_g102307102328_ _g102308102331_)))))) (declare (not safe)) - (_g102309102388_ _stx102308_)))) + (_g102306102385_ _stx102305_)))) (define gxc#generate-runtime-struct-direct-setq% - (lambda (_stx102209_) - (let* ((_g102211102236_ - (lambda (_g102212102233_) + (lambda (_stx102206_) + (let* ((_g102208102233_ + (lambda (_g102209102230_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102212102233_)))) - (_g102210102305_ - (lambda (_g102212102239_) + _g102209102230_)))) + (_g102207102302_ + (lambda (_g102209102236_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102212102239_)) - (let ((_e102219102241_ + (gx#stx-pair? _g102209102236_)) + (let ((_e102216102238_ (let () (declare (not safe)) - (gx#stx-e _g102212102239_)))) - (let ((_hd102218102244_ + (gx#stx-e _g102209102236_)))) + (let ((_hd102215102241_ (let () (declare (not safe)) - (##car _e102219102241_))) - (_tl102217102246_ + (##car _e102216102238_))) + (_tl102214102243_ (let () (declare (not safe)) - (##cdr _e102219102241_)))) + (##cdr _e102216102238_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102217102246_)) - (let ((_e102222102249_ + (gx#stx-pair? _tl102214102243_)) + (let ((_e102219102246_ (let () (declare (not safe)) - (gx#stx-e _tl102217102246_)))) - (let ((_hd102221102252_ + (gx#stx-e _tl102214102243_)))) + (let ((_hd102218102249_ (let () (declare (not safe)) - (##car _e102222102249_))) - (_tl102220102254_ + (##car _e102219102246_))) + (_tl102217102251_ (let () (declare (not safe)) - (##cdr _e102222102249_)))) + (##cdr _e102219102246_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102220102254_)) - (let ((_e102225102257_ + (gx#stx-pair? _tl102217102251_)) + (let ((_e102222102254_ (let () (declare (not safe)) - (gx#stx-e _tl102220102254_)))) - (let ((_hd102224102260_ + (gx#stx-e _tl102217102251_)))) + (let ((_hd102221102257_ (let () (declare (not safe)) - (##car _e102225102257_))) - (_tl102223102262_ + (##car _e102222102254_))) + (_tl102220102259_ (let () (declare (not safe)) - (##cdr _e102225102257_)))) + (##cdr _e102222102254_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102223102262_)) - (let ((_e102228102265_ + _tl102220102259_)) + (let ((_e102225102262_ (let () (declare (not safe)) (gx#stx-e - _tl102223102262_)))) - (let ((_hd102227102268_ + _tl102220102259_)))) + (let ((_hd102224102265_ (let () (declare (not safe)) - (##car _e102228102265_))) - (_tl102226102270_ + (##car _e102225102262_))) + (_tl102223102267_ (let () (declare (not safe)) - (##cdr _e102228102265_)))) + (##cdr _e102225102262_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102226102270_)) - (let ((_e102231102273_ + _tl102223102267_)) + (let ((_e102228102270_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl102226102270_)))) - (let ((_hd102230102276_ - (let () (declare (not safe)) (##car _e102231102273_))) - (_tl102229102278_ + (gx#stx-e _tl102223102267_)))) + (let ((_hd102227102273_ + (let () (declare (not safe)) (##car _e102228102270_))) + (_tl102226102275_ (let () (declare (not safe)) - (##cdr _e102231102273_)))) + (##cdr _e102228102270_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl102229102278_)) - ((lambda (_L102281_ _L102282_ _L102283_ _L102284_) - (let ((__tmp111874 - (let ((__tmp111882 + (gx#stx-null? _tl102226102275_)) + ((lambda (_L102278_ _L102279_ _L102280_ _L102281_) + (let ((__tmp111871 + (let ((__tmp111879 (let () (declare (not safe)) - (gxc#compile-e__0 _L102282_))) - (__tmp111875 - (let ((__tmp111881 + (gxc#compile-e__0 _L102279_))) + (__tmp111872 + (let ((__tmp111878 (let () (declare (not safe)) (gxc#compile-e__0 - _L102281_))) - (__tmp111876 - (let ((__tmp111880 + _L102278_))) + (__tmp111873 + (let ((__tmp111877 (let () (declare (not safe)) (gxc#compile-e__0 - _L102283_))) - (__tmp111877 - (let ((__tmp111879 + _L102280_))) + (__tmp111874 + (let ((__tmp111876 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _L102284_))) - (__tmp111878 + (gxc#compile-e__0 _L102281_))) + (__tmp111875 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp111879 __tmp111878)))) + (cons __tmp111876 __tmp111875)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111880 - __tmp111877)))) + (cons __tmp111877 + __tmp111874)))) (declare (not safe)) - (cons __tmp111881 __tmp111876)))) + (cons __tmp111878 __tmp111873)))) (declare (not safe)) - (cons __tmp111882 __tmp111875)))) + (cons __tmp111879 __tmp111872)))) (declare (not safe)) - (cons '##direct-structure-set! __tmp111874))) - _hd102230102276_ - _hd102227102268_ - _hd102224102260_ - _hd102221102252_) + (cons '##direct-structure-set! __tmp111871))) + _hd102227102273_ + _hd102224102265_ + _hd102221102257_ + _hd102218102249_) (let () (declare (not safe)) - (_g102211102236_ _g102212102239_))))) + (_g102208102233_ _g102209102236_))))) (let () (declare (not safe)) - (_g102211102236_ _g102212102239_))))) + (_g102208102233_ _g102209102236_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g102211102236_ - _g102212102239_))))) + (_g102208102233_ + _g102209102236_))))) (let () (declare (not safe)) - (_g102211102236_ _g102212102239_))))) + (_g102208102233_ _g102209102236_))))) (let () (declare (not safe)) - (_g102211102236_ _g102212102239_))))) + (_g102208102233_ _g102209102236_))))) (let () (declare (not safe)) - (_g102211102236_ _g102212102239_)))))) + (_g102208102233_ _g102209102236_)))))) (declare (not safe)) - (_g102210102305_ _stx102209_)))) + (_g102207102302_ _stx102206_)))) (define gxc#generate-runtime-struct-unchecked-ref% - (lambda (_stx102005_) - (let* ((_g102007102028_ - (lambda (_g102008102025_) + (lambda (_stx102002_) + (let* ((_g102004102025_ + (lambda (_g102005102022_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102008102025_)))) - (_g102006102206_ - (lambda (_g102008102031_) + _g102005102022_)))) + (_g102003102203_ + (lambda (_g102005102028_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102008102031_)) - (let ((_e102014102033_ + (gx#stx-pair? _g102005102028_)) + (let ((_e102011102030_ (let () (declare (not safe)) - (gx#stx-e _g102008102031_)))) - (let ((_hd102013102036_ + (gx#stx-e _g102005102028_)))) + (let ((_hd102010102033_ (let () (declare (not safe)) - (##car _e102014102033_))) - (_tl102012102038_ + (##car _e102011102030_))) + (_tl102009102035_ (let () (declare (not safe)) - (##cdr _e102014102033_)))) + (##cdr _e102011102030_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102012102038_)) - (let ((_e102017102041_ + (gx#stx-pair? _tl102009102035_)) + (let ((_e102014102038_ (let () (declare (not safe)) - (gx#stx-e _tl102012102038_)))) - (let ((_hd102016102044_ + (gx#stx-e _tl102009102035_)))) + (let ((_hd102013102041_ (let () (declare (not safe)) - (##car _e102017102041_))) - (_tl102015102046_ + (##car _e102014102038_))) + (_tl102012102043_ (let () (declare (not safe)) - (##cdr _e102017102041_)))) + (##cdr _e102014102038_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102015102046_)) - (let ((_e102020102049_ + (gx#stx-pair? _tl102012102043_)) + (let ((_e102017102046_ (let () (declare (not safe)) - (gx#stx-e _tl102015102046_)))) - (let ((_hd102019102052_ + (gx#stx-e _tl102012102043_)))) + (let ((_hd102016102049_ (let () (declare (not safe)) - (##car _e102020102049_))) - (_tl102018102054_ + (##car _e102017102046_))) + (_tl102015102051_ (let () (declare (not safe)) - (##cdr _e102020102049_)))) + (##cdr _e102017102046_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102018102054_)) - (let ((_e102023102057_ + _tl102015102051_)) + (let ((_e102020102054_ (let () (declare (not safe)) (gx#stx-e - _tl102018102054_)))) - (let ((_hd102022102060_ + _tl102015102051_)))) + (let ((_hd102019102057_ (let () (declare (not safe)) - (##car _e102023102057_))) - (_tl102021102062_ + (##car _e102020102054_))) + (_tl102018102059_ (let () (declare (not safe)) - (##cdr _e102023102057_)))) + (##cdr _e102020102054_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102021102062_)) - ((lambda (_L102065_ + _tl102018102059_)) + ((lambda (_L102062_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L102066_ - _L102067_) + _L102063_ + _L102064_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111901 - (let ((__tmp111907 + (let ((__tmp111898 + (let ((__tmp111904 (let () (declare (not safe)) - (gxc#compile-e__0 _L102065_))) - (__tmp111902 - (let ((__tmp111906 + (gxc#compile-e__0 _L102062_))) + (__tmp111899 + (let ((__tmp111903 (let () (declare (not safe)) - (gxc#compile-e__0 _L102066_))) - (__tmp111903 - (let ((__tmp111905 + (gxc#compile-e__0 _L102063_))) + (__tmp111900 + (let ((__tmp111902 (let () (declare (not safe)) (gxc#compile-e__0 - _L102067_))) - (__tmp111904 + _L102064_))) + (__tmp111901 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp111905 __tmp111904)))) + (cons __tmp111902 __tmp111901)))) (declare (not safe)) - (cons __tmp111906 __tmp111903)))) + (cons __tmp111903 __tmp111900)))) (declare (not safe)) - (cons __tmp111907 __tmp111902)))) + (cons __tmp111904 __tmp111899)))) (declare (not safe)) - (cons '##unchecked-structure-ref __tmp111901)) - (let _lp102085_ ((_rest102088_ - (let ((__tmp111899 - (let ((__tmp111900 + (cons '##unchecked-structure-ref __tmp111898)) + (let _lp102082_ ((_rest102085_ + (let ((__tmp111896 + (let ((__tmp111897 (let () (declare (not safe)) - (cons _L102065_ + (cons _L102062_ '())))) (declare (not safe)) - (cons _L102066_ - __tmp111900)))) + (cons _L102063_ + __tmp111897)))) (declare (not safe)) - (cons _L102067_ __tmp111899))) - (_bind102090_ '()) - (_args102091_ '())) - (let* ((_rest102092102100_ _rest102088_) - (_else102094102108_ + (cons _L102064_ __tmp111896))) + (_bind102087_ '()) + (_args102088_ '())) + (let* ((_rest102089102097_ _rest102085_) + (_else102091102105_ (lambda () - (let ((__tmp111883 - (let ((__tmp111884 - (let ((__tmp111885 - (let ((__tmp111886 - (let ((__tmp111887 + (let ((__tmp111880 + (let ((__tmp111881 + (let ((__tmp111882 + (let ((__tmp111883 + (let ((__tmp111884 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111888 + (let ((__tmp111885 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (foldr1 cons __tmp111888 _args102091_)))) + (foldr1 cons __tmp111885 _args102088_)))) (declare (not safe)) - (cons '##unchecked-structure-ref __tmp111887)))) + (cons '##unchecked-structure-ref __tmp111884)))) (declare (not safe)) - (cons __tmp111886 '())))) + (cons __tmp111883 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp111885)))) + __tmp111882)))) (declare (not safe)) - (cons _bind102090_ __tmp111884)))) + (cons _bind102087_ __tmp111881)))) (declare (not safe)) - (cons 'let __tmp111883)))) - (_K102096102194_ - (lambda (_rest102111_ _e102112_) - (let* ((___stx111102111103_ _e102112_) - (_g102117102135_ + (cons 'let __tmp111880)))) + (_K102093102191_ + (lambda (_rest102108_ _e102109_) + (let* ((___stx111099111100_ _e102109_) + (_g102114102132_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx111102111103_))))) - (let ((___kont111104111105_ + ___stx111099111100_))))) + (let ((___kont111101111102_ (lambda () - (let ((__tmp111889 - (let ((__tmp111890 + (let ((__tmp111886 + (let ((__tmp111887 (let () (declare (not safe)) (gxc#compile-e__0 - _e102112_)))) + _e102109_)))) (declare (not safe)) - (cons __tmp111890 - _args102091_)))) + (cons __tmp111887 + _args102088_)))) (declare (not safe)) - (_lp102085_ - _rest102111_ - _bind102090_ - __tmp111889)))) - (___kont111106111107_ + (_lp102082_ + _rest102108_ + _bind102087_ + __tmp111886)))) + (___kont111103111104_ (lambda () - (let ((__tmp111891 - (let ((__tmp111892 + (let ((__tmp111888 + (let ((__tmp111889 (let () (declare (not safe)) (gxc#compile-e__0 - _e102112_)))) + _e102109_)))) (declare (not safe)) - (cons __tmp111892 - _args102091_)))) + (cons __tmp111889 + _args102088_)))) (declare (not safe)) - (_lp102085_ - _rest102111_ - _bind102090_ - __tmp111891)))) - (___kont111108111109_ + (_lp102082_ + _rest102108_ + _bind102087_ + __tmp111888)))) + (___kont111105111106_ (lambda () - (let ((_tmp102142_ - (let ((__tmp111893 + (let ((_tmp102139_ + (let ((__tmp111890 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp111893)))) - (let ((__tmp111895 - (let ((__tmp111896 - (let ((__tmp111897 + __tmp111890)))) + (let ((__tmp111892 + (let ((__tmp111893 + (let ((__tmp111894 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111898 + (let ((__tmp111895 (let () (declare (not safe)) - (gxc#compile-e__0 _e102112_)))) + (gxc#compile-e__0 _e102109_)))) (declare (not safe)) - (cons __tmp111898 '())))) + (cons __tmp111895 '())))) (declare (not safe)) - (cons _tmp102142_ __tmp111897)))) + (cons _tmp102139_ __tmp111894)))) (declare (not safe)) - (cons __tmp111896 _bind102090_))) - (__tmp111894 - (let () (declare (not safe)) (cons _tmp102142_ _args102091_)))) + (cons __tmp111893 _bind102087_))) + (__tmp111891 + (let () (declare (not safe)) (cons _tmp102139_ _args102088_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp102085_ - _rest102111_ - __tmp111895 - __tmp111894)))))) + (_lp102082_ + _rest102108_ + __tmp111892 + __tmp111891)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx111102111103_)) - (let ((_e102121102173_ + ___stx111099111100_)) + (let ((_e102118102170_ (let () (declare (not safe)) (gx#stx-e - ___stx111102111103_)))) - (let ((_tl102119102178_ + ___stx111099111100_)))) + (let ((_tl102116102175_ (let () (declare (not safe)) - (##cdr _e102121102173_))) - (_hd102120102176_ + (##cdr _e102118102170_))) + (_hd102117102173_ (let () (declare (not safe)) - (##car _e102121102173_)))) + (##car _e102118102170_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd102120102176_)) + _hd102117102173_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd102120102176_)) + _hd102117102173_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102119102178_)) - (let ((_e102124102181_ + _tl102116102175_)) + (let ((_e102121102178_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl102119102178_)))) - (let ((_tl102122102186_ + (gx#stx-e _tl102116102175_)))) + (let ((_tl102119102183_ (let () (declare (not safe)) - (##cdr _e102124102181_))) - (_hd102123102184_ + (##cdr _e102121102178_))) + (_hd102120102181_ (let () (declare (not safe)) - (##car _e102124102181_)))) + (##car _e102121102178_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl102122102186_)) - (___kont111104111105_) - (___kont111108111109_)))) - (___kont111108111109_)) + (gx#stx-null? _tl102119102183_)) + (___kont111101111102_) + (___kont111105111106_)))) + (___kont111105111106_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd102120102176_)) + (gx#stx-eq? '%#quote _hd102117102173_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102119102178_)) - (let ((_e102130102158_ + (gx#stx-pair? _tl102116102175_)) + (let ((_e102127102155_ (let () (declare (not safe)) - (gx#stx-e _tl102119102178_)))) - (let ((_tl102128102163_ + (gx#stx-e _tl102116102175_)))) + (let ((_tl102125102160_ (let () (declare (not safe)) - (##cdr _e102130102158_))) - (_hd102129102161_ + (##cdr _e102127102155_))) + (_hd102126102158_ (let () (declare (not safe)) - (##car _e102130102158_)))) + (##car _e102127102155_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl102128102163_)) - (___kont111106111107_) - (___kont111108111109_)))) - (___kont111108111109_)) - (___kont111108111109_))) + (gx#stx-null? _tl102125102160_)) + (___kont111103111104_) + (___kont111105111106_)))) + (___kont111105111106_)) + (___kont111105111106_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont111108111109_)))) - (___kont111108111109_))))))) + (___kont111105111106_)))) + (___kont111105111106_))))))) (if (let () (declare (not safe)) - (##pair? _rest102092102100_)) - (let ((_hd102097102197_ + (##pair? _rest102089102097_)) + (let ((_hd102094102194_ (let () (declare (not safe)) - (##car _rest102092102100_))) - (_tl102098102199_ + (##car _rest102089102097_))) + (_tl102095102196_ (let () (declare (not safe)) - (##cdr _rest102092102100_)))) - (let* ((_e102202_ _hd102097102197_) - (_rest102204_ _tl102098102199_)) + (##cdr _rest102089102097_)))) + (let* ((_e102199_ _hd102094102194_) + (_rest102201_ _tl102095102196_)) (declare (not safe)) - (_K102096102194_ _rest102204_ _e102202_))) + (_K102093102191_ _rest102201_ _e102199_))) (let () (declare (not safe)) - (_else102094102108_))))))) - _hd102022102060_ - _hd102019102052_ - _hd102016102044_) + (_else102091102105_))))))) + _hd102019102057_ + _hd102016102049_ + _hd102013102041_) (let () (declare (not safe)) - (_g102007102028_ _g102008102031_))))) + (_g102004102025_ _g102005102028_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g102007102028_ - _g102008102031_))))) + (_g102004102025_ + _g102005102028_))))) (let () (declare (not safe)) - (_g102007102028_ _g102008102031_))))) + (_g102004102025_ _g102005102028_))))) (let () (declare (not safe)) - (_g102007102028_ _g102008102031_))))) + (_g102004102025_ _g102005102028_))))) (let () (declare (not safe)) - (_g102007102028_ _g102008102031_)))))) + (_g102004102025_ _g102005102028_)))))) (declare (not safe)) - (_g102006102206_ _stx102005_)))) + (_g102003102203_ _stx102002_)))) (define gxc#generate-runtime-struct-unchecked-setq% - (lambda (_stx101785_) - (let* ((_g101787101812_ - (lambda (_g101788101809_) + (lambda (_stx101782_) + (let* ((_g101784101809_ + (lambda (_g101785101806_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101788101809_)))) - (_g101786102002_ - (lambda (_g101788101815_) + _g101785101806_)))) + (_g101783101999_ + (lambda (_g101785101812_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101788101815_)) - (let ((_e101795101817_ + (gx#stx-pair? _g101785101812_)) + (let ((_e101792101814_ (let () (declare (not safe)) - (gx#stx-e _g101788101815_)))) - (let ((_hd101794101820_ + (gx#stx-e _g101785101812_)))) + (let ((_hd101791101817_ (let () (declare (not safe)) - (##car _e101795101817_))) - (_tl101793101822_ + (##car _e101792101814_))) + (_tl101790101819_ (let () (declare (not safe)) - (##cdr _e101795101817_)))) + (##cdr _e101792101814_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101793101822_)) - (let ((_e101798101825_ + (gx#stx-pair? _tl101790101819_)) + (let ((_e101795101822_ (let () (declare (not safe)) - (gx#stx-e _tl101793101822_)))) - (let ((_hd101797101828_ + (gx#stx-e _tl101790101819_)))) + (let ((_hd101794101825_ (let () (declare (not safe)) - (##car _e101798101825_))) - (_tl101796101830_ + (##car _e101795101822_))) + (_tl101793101827_ (let () (declare (not safe)) - (##cdr _e101798101825_)))) + (##cdr _e101795101822_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101796101830_)) - (let ((_e101801101833_ + (gx#stx-pair? _tl101793101827_)) + (let ((_e101798101830_ (let () (declare (not safe)) - (gx#stx-e _tl101796101830_)))) - (let ((_hd101800101836_ + (gx#stx-e _tl101793101827_)))) + (let ((_hd101797101833_ (let () (declare (not safe)) - (##car _e101801101833_))) - (_tl101799101838_ + (##car _e101798101830_))) + (_tl101796101835_ (let () (declare (not safe)) - (##cdr _e101801101833_)))) + (##cdr _e101798101830_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl101799101838_)) - (let ((_e101804101841_ + _tl101796101835_)) + (let ((_e101801101838_ (let () (declare (not safe)) (gx#stx-e - _tl101799101838_)))) - (let ((_hd101803101844_ + _tl101796101835_)))) + (let ((_hd101800101841_ (let () (declare (not safe)) - (##car _e101804101841_))) - (_tl101802101846_ + (##car _e101801101838_))) + (_tl101799101843_ (let () (declare (not safe)) - (##cdr _e101804101841_)))) + (##cdr _e101801101838_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl101802101846_)) - (let ((_e101807101849_ + _tl101799101843_)) + (let ((_e101804101846_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl101802101846_)))) - (let ((_hd101806101852_ - (let () (declare (not safe)) (##car _e101807101849_))) - (_tl101805101854_ + (gx#stx-e _tl101799101843_)))) + (let ((_hd101803101849_ + (let () (declare (not safe)) (##car _e101804101846_))) + (_tl101802101851_ (let () (declare (not safe)) - (##cdr _e101807101849_)))) + (##cdr _e101804101846_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl101805101854_)) - ((lambda (_L101857_ _L101858_ _L101859_ _L101860_) + (gx#stx-null? _tl101802101851_)) + ((lambda (_L101854_ _L101855_ _L101856_ _L101857_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111927 - (let ((__tmp111935 + (let ((__tmp111924 + (let ((__tmp111932 (let () (declare (not safe)) - (gxc#compile-e__0 _L101858_))) - (__tmp111928 - (let ((__tmp111934 + (gxc#compile-e__0 _L101855_))) + (__tmp111925 + (let ((__tmp111931 (let () (declare (not safe)) (gxc#compile-e__0 - _L101857_))) - (__tmp111929 - (let ((__tmp111933 + _L101854_))) + (__tmp111926 + (let ((__tmp111930 (let () (declare (not safe)) (gxc#compile-e__0 - _L101859_))) - (__tmp111930 - (let ((__tmp111932 + _L101856_))) + (__tmp111927 + (let ((__tmp111929 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L101860_))) - (__tmp111931 + (gxc#compile-e__0 _L101857_))) + (__tmp111928 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp111932 __tmp111931)))) + (cons __tmp111929 __tmp111928)))) (declare (not safe)) - (cons __tmp111933 __tmp111930)))) + (cons __tmp111930 __tmp111927)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111934 - __tmp111929)))) + (cons __tmp111931 + __tmp111926)))) (declare (not safe)) - (cons __tmp111935 __tmp111928)))) + (cons __tmp111932 __tmp111925)))) (declare (not safe)) (cons '##unchecked-structure-set! - __tmp111927)) - (let _lp101881_ ((_rest101884_ - (let ((__tmp111924 - (let ((__tmp111925 - (let ((__tmp111926 + __tmp111924)) + (let _lp101878_ ((_rest101881_ + (let ((__tmp111921 + (let ((__tmp111922 + (let ((__tmp111923 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L101858_ '())))) + (cons _L101855_ '())))) (declare (not safe)) - (cons _L101857_ __tmp111926)))) + (cons _L101854_ __tmp111923)))) (declare (not safe)) - (cons _L101859_ __tmp111925)))) + (cons _L101856_ __tmp111922)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L101860_ - __tmp111924))) - (_bind101886_ '()) - (_args101887_ '())) - (let* ((_rest101888101896_ _rest101884_) - (_else101890101904_ + (cons _L101857_ + __tmp111921))) + (_bind101883_ '()) + (_args101884_ '())) + (let* ((_rest101885101893_ _rest101881_) + (_else101887101901_ (lambda () - (let ((__tmp111908 - (let ((__tmp111909 - (let ((__tmp111910 - (let ((__tmp111911 + (let ((__tmp111905 + (let ((__tmp111906 + (let ((__tmp111907 + (let ((__tmp111908 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111912 - (let ((__tmp111913 + (let ((__tmp111909 + (let ((__tmp111910 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) (foldr1 cons - __tmp111913 - _args101887_)))) + __tmp111910 + _args101884_)))) (declare (not safe)) (cons '##unchecked-structure-set! - __tmp111912)))) + __tmp111909)))) (declare (not safe)) - (cons __tmp111911 '())))) + (cons __tmp111908 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp111910)))) + (cons '(declare (not safe)) __tmp111907)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _bind101886_ - __tmp111909)))) + (cons _bind101883_ + __tmp111906)))) (declare (not safe)) - (cons 'let __tmp111908)))) - (_K101892101990_ - (lambda (_rest101907_ _e101908_) - (let* ((___stx111148111149_ - _e101908_) - (_g101913101931_ + (cons 'let __tmp111905)))) + (_K101889101987_ + (lambda (_rest101904_ _e101905_) + (let* ((___stx111145111146_ + _e101905_) + (_g101910101928_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx111148111149_))))) - (let ((___kont111150111151_ + ___stx111145111146_))))) + (let ((___kont111147111148_ (lambda () - (let ((__tmp111914 - (let ((__tmp111915 + (let ((__tmp111911 + (let ((__tmp111912 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e101908_)))) + (gxc#compile-e__0 _e101905_)))) (declare (not safe)) - (cons __tmp111915 _args101887_)))) + (cons __tmp111912 _args101884_)))) (declare (not safe)) - (_lp101881_ _rest101907_ _bind101886_ __tmp111914)))) + (_lp101878_ _rest101904_ _bind101883_ __tmp111911)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont111152111153_ + (___kont111149111150_ (lambda () - (let ((__tmp111916 - (let ((__tmp111917 + (let ((__tmp111913 + (let ((__tmp111914 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e101908_)))) + (gxc#compile-e__0 _e101905_)))) (declare (not safe)) - (cons __tmp111917 _args101887_)))) + (cons __tmp111914 _args101884_)))) (declare (not safe)) - (_lp101881_ _rest101907_ _bind101886_ __tmp111916)))) + (_lp101878_ _rest101904_ _bind101883_ __tmp111913)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont111154111155_ + (___kont111151111152_ (lambda () - (let ((_tmp101938_ - (let ((__tmp111918 + (let ((_tmp101935_ + (let ((__tmp111915 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp111918)))) - (let ((__tmp111920 - (let ((__tmp111921 - (let ((__tmp111922 - (let ((__tmp111923 + (make-symbol__0 __tmp111915)))) + (let ((__tmp111917 + (let ((__tmp111918 + (let ((__tmp111919 + (let ((__tmp111920 (let () (declare (not safe)) - (gxc#compile-e__0 _e101908_)))) + (gxc#compile-e__0 _e101905_)))) (declare (not safe)) - (cons __tmp111923 '())))) + (cons __tmp111920 '())))) (declare (not safe)) - (cons _tmp101938_ __tmp111922)))) + (cons _tmp101935_ __tmp111919)))) (declare (not safe)) - (cons __tmp111921 _bind101886_))) - (__tmp111919 + (cons __tmp111918 _bind101883_))) + (__tmp111916 (let () (declare (not safe)) - (cons _tmp101938_ _args101887_)))) + (cons _tmp101935_ _args101884_)))) (declare (not safe)) - (_lp101881_ _rest101907_ __tmp111920 __tmp111919)))))) + (_lp101878_ _rest101904_ __tmp111917 __tmp111916)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx111148111149_)) - (let ((_e101917101969_ + ___stx111145111146_)) + (let ((_e101914101966_ (let () (declare (not safe)) (gx#stx-e - ___stx111148111149_)))) - (let ((_tl101915101974_ + ___stx111145111146_)))) + (let ((_tl101912101971_ (let () (declare (not safe)) - (##cdr _e101917101969_))) - (_hd101916101972_ + (##cdr _e101914101966_))) + (_hd101913101969_ (let () (declare (not safe)) - (##car _e101917101969_)))) + (##car _e101914101966_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd101916101972_)) + _hd101913101969_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-eq? '%#ref _hd101916101972_)) + (gx#stx-eq? '%#ref _hd101913101969_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101915101974_)) - (let ((_e101920101977_ + (gx#stx-pair? _tl101912101971_)) + (let ((_e101917101974_ (let () (declare (not safe)) - (gx#stx-e _tl101915101974_)))) - (let ((_tl101918101982_ + (gx#stx-e _tl101912101971_)))) + (let ((_tl101915101979_ (let () (declare (not safe)) - (##cdr _e101920101977_))) - (_hd101919101980_ + (##cdr _e101917101974_))) + (_hd101916101977_ (let () (declare (not safe)) - (##car _e101920101977_)))) + (##car _e101917101974_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl101918101982_)) - (___kont111150111151_) - (___kont111154111155_)))) - (___kont111154111155_)) + (gx#stx-null? _tl101915101979_)) + (___kont111147111148_) + (___kont111151111152_)))) + (___kont111151111152_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd101916101972_)) + (gx#stx-eq? '%#quote _hd101913101969_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101915101974_)) - (let ((_e101926101954_ + (gx#stx-pair? _tl101912101971_)) + (let ((_e101923101951_ (let () (declare (not safe)) - (gx#stx-e _tl101915101974_)))) - (let ((_tl101924101959_ + (gx#stx-e _tl101912101971_)))) + (let ((_tl101921101956_ (let () (declare (not safe)) - (##cdr _e101926101954_))) - (_hd101925101957_ + (##cdr _e101923101951_))) + (_hd101922101954_ (let () (declare (not safe)) - (##car _e101926101954_)))) + (##car _e101923101951_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl101924101959_)) - (___kont111152111153_) - (___kont111154111155_)))) - (___kont111154111155_)) - (___kont111154111155_))) - (___kont111154111155_)))) + (gx#stx-null? _tl101921101956_)) + (___kont111149111150_) + (___kont111151111152_)))) + (___kont111151111152_)) + (___kont111151111152_))) + (___kont111151111152_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont111154111155_))))))) + (___kont111151111152_))))))) (if (let () (declare (not safe)) - (##pair? _rest101888101896_)) - (let ((_hd101893101993_ + (##pair? _rest101885101893_)) + (let ((_hd101890101990_ (let () (declare (not safe)) - (##car _rest101888101896_))) - (_tl101894101995_ + (##car _rest101885101893_))) + (_tl101891101992_ (let () (declare (not safe)) - (##cdr _rest101888101896_)))) - (let* ((_e101998_ _hd101893101993_) - (_rest102000_ - _tl101894101995_)) + (##cdr _rest101885101893_)))) + (let* ((_e101995_ _hd101890101990_) + (_rest101997_ + _tl101891101992_)) (declare (not safe)) - (_K101892101990_ - _rest102000_ - _e101998_))) + (_K101889101987_ + _rest101997_ + _e101995_))) (let () (declare (not safe)) - (_else101890101904_))))))) - _hd101806101852_ - _hd101803101844_ - _hd101800101836_ - _hd101797101828_) + (_else101887101901_))))))) + _hd101803101849_ + _hd101800101841_ + _hd101797101833_ + _hd101794101825_) (let () (declare (not safe)) - (_g101787101812_ _g101788101815_))))) + (_g101784101809_ _g101785101812_))))) (let () (declare (not safe)) - (_g101787101812_ _g101788101815_))))) + (_g101784101809_ _g101785101812_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g101787101812_ - _g101788101815_))))) + (_g101784101809_ + _g101785101812_))))) (let () (declare (not safe)) - (_g101787101812_ _g101788101815_))))) + (_g101784101809_ _g101785101812_))))) (let () (declare (not safe)) - (_g101787101812_ _g101788101815_))))) + (_g101784101809_ _g101785101812_))))) (let () (declare (not safe)) - (_g101787101812_ _g101788101815_)))))) + (_g101784101809_ _g101785101812_)))))) (declare (not safe)) - (_g101786102002_ _stx101785_)))) + (_g101783101999_ _stx101782_)))) (define gxc#generate-runtime-loader-import% - (lambda (_stx101639_) - (letrec ((_import-set-template101641_ - (lambda (_in101737_ _phi101738_) - (let ((_iphi101740_ - (fx+ _phi101738_ + (lambda (_stx101636_) + (letrec ((_import-set-template101638_ + (lambda (_in101734_ _phi101735_) + (let ((_iphi101737_ + (fx+ _phi101735_ (##direct-structure-ref - _in101737_ + _in101734_ '2 gx#import-set::t '#f))) - (_imports101741_ + (_imports101738_ (##structure-ref (##direct-structure-ref - _in101737_ + _in101734_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp101743_ ((_rest101745_ _imports101741_) - (_r101746_ '())) - (let* ((_rest101747101755_ _rest101745_) - (_else101749101763_ (lambda () _r101746_)) - (_K101751101773_ - (lambda (_rest101766_ _in101767_) + (let _lp101740_ ((_rest101742_ _imports101738_) + (_r101743_ '())) + (let* ((_rest101744101752_ _rest101742_) + (_else101746101760_ (lambda () _r101743_)) + (_K101748101770_ + (lambda (_rest101763_ _in101764_) (if (let () (declare (not safe)) (##structure-instance-of? - _in101767_ + _in101764_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (fxzero? _iphi101740_)) - (let ((__tmp111942 + (fxzero? _iphi101737_)) + (let ((__tmp111939 (let () (declare (not safe)) - (cons _in101767_ - _r101746_)))) + (cons _in101764_ + _r101743_)))) (declare (not safe)) - (_lp101743_ - _rest101766_ - __tmp111942)) + (_lp101740_ + _rest101763_ + __tmp111939)) (let () (declare (not safe)) - (_lp101743_ - _rest101766_ - _r101746_))) + (_lp101740_ + _rest101763_ + _r101743_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in101767_ + _in101764_ 'gx#module-import::t)) - (let ((_iphi101769_ - (fx+ _phi101738_ + (let ((_iphi101766_ + (fx+ _phi101735_ (##direct-structure-ref - _in101767_ + _in101764_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _iphi101769_)) - (let ((__tmp111940 - (let ((__tmp111941 + (fxzero? _iphi101766_)) + (let ((__tmp111937 + (let ((__tmp111938 (##direct-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in101767_ + _in101764_ '1 gx#module-import::t '#f) @@ -15241,194 +15241,194 @@ gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp111941 _r101746_)))) + (cons __tmp111938 _r101743_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp101743_ - _rest101766_ - __tmp111940)) + (_lp101740_ + _rest101763_ + __tmp111937)) (let () (declare (not safe)) - (_lp101743_ - _rest101766_ - _r101746_)))) + (_lp101740_ + _rest101763_ + _r101743_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in101767_ + _in101764_ 'gx#import-set::t)) - (let ((_xphi101771_ - (fx+ _iphi101740_ + (let ((_xphi101768_ + (fx+ _iphi101737_ (##direct-structure-ref - _in101767_ + _in101764_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _xphi101771_)) - (let ((__tmp111938 - (let ((__tmp111939 + (fxzero? _xphi101768_)) + (let ((__tmp111935 + (let ((__tmp111936 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in101767_ + _in101764_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp111939 _r101746_)))) + (cons __tmp111936 _r101743_)))) (declare (not safe)) - (_lp101743_ _rest101766_ __tmp111938)) - (if (fxpositive? _xphi101771_) - (let ((__tmp111936 - (let ((__tmp111937 + (_lp101740_ _rest101763_ __tmp111935)) + (if (fxpositive? _xphi101768_) + (let ((__tmp111933 + (let ((__tmp111934 (let () (declare (not safe)) - (_import-set-template101641_ - _in101767_ - _iphi101740_)))) + (_import-set-template101638_ + _in101764_ + _iphi101737_)))) (declare (not safe)) - (foldl1 cons _r101746_ __tmp111937)))) + (foldl1 cons _r101743_ __tmp111934)))) (declare (not safe)) - (_lp101743_ _rest101766_ __tmp111936)) + (_lp101740_ _rest101763_ __tmp111933)) (let () (declare (not safe)) - (_lp101743_ _rest101766_ _r101746_))))) + (_lp101740_ _rest101763_ _r101743_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp101743_ - _rest101766_ - _r101746_)))))))) + (_lp101740_ + _rest101763_ + _r101743_)))))))) (if (let () (declare (not safe)) - (##pair? _rest101747101755_)) - (let ((_hd101752101776_ + (##pair? _rest101744101752_)) + (let ((_hd101749101773_ (let () (declare (not safe)) - (##car _rest101747101755_))) - (_tl101753101778_ + (##car _rest101744101752_))) + (_tl101750101775_ (let () (declare (not safe)) - (##cdr _rest101747101755_)))) - (let* ((_in101781_ _hd101752101776_) - (_rest101783_ _tl101753101778_)) + (##cdr _rest101744101752_)))) + (let* ((_in101778_ _hd101749101773_) + (_rest101780_ _tl101750101775_)) (declare (not safe)) - (_K101751101773_ _rest101783_ _in101781_))) + (_K101748101770_ _rest101780_ _in101778_))) (let () (declare (not safe)) - (_else101749101763_))))))))) - (let* ((_g101643101653_ - (lambda (_g101644101650_) + (_else101746101760_))))))))) + (let* ((_g101640101650_ + (lambda (_g101641101647_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101644101650_)))) - (_g101642101734_ - (lambda (_g101644101656_) + _g101641101647_)))) + (_g101639101731_ + (lambda (_g101641101653_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101644101656_)) - (let ((_e101648101658_ + (gx#stx-pair? _g101641101653_)) + (let ((_e101645101655_ (let () (declare (not safe)) - (gx#stx-e _g101644101656_)))) - (let ((_hd101647101661_ + (gx#stx-e _g101641101653_)))) + (let ((_hd101644101658_ (let () (declare (not safe)) - (##car _e101648101658_))) - (_tl101646101663_ + (##car _e101645101655_))) + (_tl101643101660_ (let () (declare (not safe)) - (##cdr _e101648101658_)))) - ((lambda (_L101666_) - (let ((_ht101677_ + (##cdr _e101645101655_)))) + ((lambda (_L101663_) + (let ((_ht101674_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let _lp101679_ ((_rest101681_ _L101666_) - (_loads101682_ '())) - (letrec ((_K101684_ - (lambda (_ctx101727_ - _rest101728_) - (let ((_id101730_ + (let _lp101676_ ((_rest101678_ _L101663_) + (_loads101679_ '())) + (letrec ((_K101681_ + (lambda (_ctx101724_ + _rest101725_) + (let ((_id101727_ (##structure-ref - _ctx101727_ + _ctx101724_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (hash-get - _ht101677_ - _id101730_)) + _ht101674_ + _id101727_)) (let () (declare (not safe)) - (_lp101679_ - _rest101728_ - _loads101682_)) - (let ((_rt101732_ + (_lp101676_ + _rest101725_ + _loads101679_)) + (let ((_rt101729_ (string-append (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#module-id->path-string _id101730_)) + (gxc#module-id->path-string _id101727_)) '"__rt"))) (let () (declare (not safe)) - (hash-put! _ht101677_ _id101730_ _rt101732_)) - (let ((__tmp111943 + (hash-put! _ht101674_ _id101727_ _rt101729_)) + (let ((__tmp111940 (let () (declare (not safe)) - (cons _rt101732_ _loads101682_)))) + (cons _rt101729_ _loads101679_)))) (declare (not safe)) - (_lp101679_ _rest101728_ __tmp111943)))))))) + (_lp101676_ _rest101725_ __tmp111940)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest101685101693_ _rest101681_) - (_else101687101705_ + (let* ((_rest101682101690_ _rest101678_) + (_else101684101702_ (lambda () - (let ((__tmp111944 - (map (lambda (_g101700101702_) + (let ((__tmp111941 + (map (lambda (_g101697101699_) (list 'load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g101700101702_)) - (reverse _loads101682_)))) + _g101697101699_)) + (reverse _loads101679_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'begin __tmp111944)))) - (_K101689101715_ - (lambda (_rest101708_ - _in101709_) + (cons 'begin __tmp111941)))) + (_K101686101712_ + (lambda (_rest101705_ + _in101706_) (if (let () (declare (not safe)) (##structure-instance-of? - _in101709_ + _in101706_ 'gx#module-context::t)) (let () (declare (not safe)) - (_K101684_ - _in101709_ - _rest101708_)) + (_K101681_ + _in101706_ + _rest101705_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in101709_ + _in101706_ 'gx#module-import::t)) - (if (let ((__tmp111948 + (if (let ((__tmp111945 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in101709_ + _in101706_ '3 gx#module-import::t '#f))) (declare (not safe)) - (fxzero? __tmp111948)) - (let ((__tmp111947 + (fxzero? __tmp111945)) + (let ((__tmp111944 (##direct-structure-ref (##direct-structure-ref - _in101709_ + _in101706_ '1 gx#module-import::t '#f) @@ -15436,556 +15436,556 @@ gx#module-export::t '#f))) (declare (not safe)) - (_K101684_ __tmp111947 _rest101708_)) + (_K101681_ __tmp111944 _rest101705_)) (let () (declare (not safe)) - (_lp101679_ _rest101708_ _loads101682_))) + (_lp101676_ _rest101705_ _loads101679_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in101709_ + _in101706_ 'gx#import-set::t)) - (let ((_phi101711_ + (let ((_phi101708_ (##direct-structure-ref - _in101709_ + _in101706_ '2 gx#import-set::t '#f))) - (if (let () (declare (not safe)) (fxzero? _phi101711_)) - (let ((__tmp111946 + (if (let () (declare (not safe)) (fxzero? _phi101708_)) + (let ((__tmp111943 (##direct-structure-ref - _in101709_ + _in101706_ '1 gx#import-set::t '#f))) (declare (not safe)) - (_K101684_ __tmp111946 _rest101708_)) - (if (fxpositive? _phi101711_) - (let* ((_deps101713_ + (_K101681_ __tmp111943 _rest101705_)) + (if (fxpositive? _phi101708_) + (let* ((_deps101710_ (let () (declare (not safe)) - (_import-set-template101641_ - _in101709_ + (_import-set-template101638_ + _in101706_ '0))) - (__tmp111945 + (__tmp111942 (let () (declare (not safe)) (foldl1 cons - _rest101708_ - _deps101713_)))) + _rest101705_ + _deps101710_)))) (declare (not safe)) - (_lp101679_ __tmp111945 _loads101682_)) + (_lp101676_ __tmp111942 _loads101679_)) (let () (declare (not safe)) - (_lp101679_ _rest101708_ _loads101682_))))) + (_lp101676_ _rest101705_ _loads101679_))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected import" - _stx101639_ - _in101709_)))))))) + _stx101636_ + _in101706_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest101685101693_)) - (let ((_hd101690101718_ + (##pair? _rest101682101690_)) + (let ((_hd101687101715_ (let () (declare (not safe)) - (##car _rest101685101693_))) - (_tl101691101720_ + (##car _rest101682101690_))) + (_tl101688101717_ (let () (declare (not safe)) - (##cdr _rest101685101693_)))) - (let* ((_in101723_ - _hd101690101718_) - (_rest101725_ - _tl101691101720_)) + (##cdr _rest101682101690_)))) + (let* ((_in101720_ + _hd101687101715_) + (_rest101722_ + _tl101688101717_)) (declare (not safe)) - (_K101689101715_ - _rest101725_ - _in101723_))) + (_K101686101712_ + _rest101722_ + _in101720_))) (let () (declare (not safe)) - (_else101687101705_)))))))) - _tl101646101663_))) + (_else101684101702_)))))))) + _tl101643101660_))) (let () (declare (not safe)) - (_g101643101653_ _g101644101656_)))))) + (_g101640101650_ _g101641101653_)))))) (declare (not safe)) - (_g101642101734_ _stx101639_))))) + (_g101639101731_ _stx101636_))))) (define gxc#generate-runtime-quote-syntax% - (lambda (_stx101455_) - (letrec ((_add-lift!101457_ - (lambda (_expr101637_) + (lambda (_stx101452_) + (letrec ((_add-lift!101454_ + (lambda (_expr101634_) (set-box! (gxc#current-compile-lift) - (let ((__tmp111949 (unbox (gxc#current-compile-lift)))) + (let ((__tmp111946 (unbox (gxc#current-compile-lift)))) (declare (not safe)) - (cons _expr101637_ __tmp111949))))) - (_generate-syntax-quote101458_ - (lambda (_id101634_ _marks101635_) - (let ((__tmp111950 - (let ((__tmp111951 - (let ((__tmp111955 - (let ((__tmp111956 + (cons _expr101634_ __tmp111946))))) + (_generate-syntax-quote101455_ + (lambda (_id101631_ _marks101632_) + (let ((__tmp111947 + (let ((__tmp111948 + (let ((__tmp111952 + (let ((__tmp111953 (let () (declare (not safe)) - (cons _id101634_ '())))) + (cons _id101631_ '())))) (declare (not safe)) - (cons 'quote __tmp111956))) - (__tmp111952 - (let ((__tmp111953 - (let ((__tmp111954 + (cons 'quote __tmp111953))) + (__tmp111949 + (let ((__tmp111950 + (let ((__tmp111951 (let () (declare (not safe)) - (cons _marks101635_ + (cons _marks101632_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(gx#current-expander-context) - __tmp111954)))) + __tmp111951)))) (declare (not safe)) - (cons '#f __tmp111953)))) + (cons '#f __tmp111950)))) (declare (not safe)) - (cons __tmp111955 __tmp111952)))) + (cons __tmp111952 __tmp111949)))) (declare (not safe)) - (cons 'gx#syntax-quote::t __tmp111951)))) + (cons 'gx#syntax-quote::t __tmp111948)))) (declare (not safe)) - (cons '##structure __tmp111950)))) - (_generate-simple101459_ - (lambda (_stxq101629_) - (let ((_gid101631_ + (cons '##structure __tmp111947)))) + (_generate-simple101456_ + (lambda (_stxq101626_) + (let ((_gid101628_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_qid101632_ + (_qid101629_ (let () (declare (not safe)) (gxc#generate-runtime-identifier - _stxq101629_)))) - (let ((__tmp111957 - (let ((__tmp111958 - (let ((__tmp111959 - (let ((__tmp111960 + _stxq101626_)))) + (let ((__tmp111954 + (let ((__tmp111955 + (let ((__tmp111956 + (let ((__tmp111957 (let () (declare (not safe)) - (_generate-syntax-quote101458_ - _qid101632_ + (_generate-syntax-quote101455_ + _qid101629_ ''())))) (declare (not safe)) - (cons __tmp111960 '())))) + (cons __tmp111957 '())))) (declare (not safe)) - (cons _gid101631_ __tmp111959)))) + (cons _gid101628_ __tmp111956)))) (declare (not safe)) - (cons 'define __tmp111958)))) + (cons 'define __tmp111955)))) (declare (not safe)) - (_add-lift!101457_ __tmp111957)) - (let ((__tmp111961 (gxc#current-compile-identifiers))) + (_add-lift!101454_ __tmp111954)) + (let ((__tmp111958 (gxc#current-compile-identifiers))) (declare (not safe)) - (hash-put! __tmp111961 _stxq101629_ _gid101631_)) - _gid101631_))) - (_generate-serialized101460_ - (lambda (_stxq101619_ _marks101620_) - (let* ((_mark-refs101622_ - (map _generate-mark101461_ _marks101620_)) - (_gid101624_ + (hash-put! __tmp111958 _stxq101626_ _gid101628_)) + _gid101628_))) + (_generate-serialized101457_ + (lambda (_stxq101616_ _marks101617_) + (let* ((_mark-refs101619_ + (map _generate-mark101458_ _marks101617_)) + (_gid101621_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_qid101626_ + (_qid101623_ (let () (declare (not safe)) (gxc#generate-runtime-identifier - _stxq101619_)))) - (let ((__tmp111962 - (let ((__tmp111963 - (let ((__tmp111964 - (let ((__tmp111965 - (let ((__tmp111966 + _stxq101616_)))) + (let ((__tmp111959 + (let ((__tmp111960 + (let ((__tmp111961 + (let ((__tmp111962 + (let ((__tmp111963 (let () (declare (not safe)) (cons 'list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _mark-refs101622_)))) + _mark-refs101619_)))) (declare (not safe)) - (_generate-syntax-quote101458_ _qid101626_ __tmp111966)))) + (_generate-syntax-quote101455_ _qid101623_ __tmp111963)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111965 '())))) + (cons __tmp111962 '())))) (declare (not safe)) - (cons _gid101624_ __tmp111964)))) + (cons _gid101621_ __tmp111961)))) (declare (not safe)) - (cons 'define __tmp111963)))) + (cons 'define __tmp111960)))) (declare (not safe)) - (_add-lift!101457_ __tmp111962)) - (let ((__tmp111967 (gxc#current-compile-identifiers))) + (_add-lift!101454_ __tmp111959)) + (let ((__tmp111964 (gxc#current-compile-identifiers))) (declare (not safe)) - (hash-put! __tmp111967 _stxq101619_ _gid101624_)) - _gid101624_))) - (_generate-mark101461_ - (lambda (_mark101605_) - (let ((_$e101607_ - (let ((__tmp111968 (gxc#current-compile-marks))) + (hash-put! __tmp111964 _stxq101616_ _gid101621_)) + _gid101621_))) + (_generate-mark101458_ + (lambda (_mark101602_) + (let ((_$e101604_ + (let ((__tmp111965 (gxc#current-compile-marks))) (declare (not safe)) - (hash-get __tmp111968 _mark101605_)))) - (if _$e101607_ - (values _$e101607_) - (let* ((_gid101610_ + (hash-get __tmp111965 _mark101602_)))) + (if _$e101604_ + (values _$e101604_) + (let* ((_gid101607_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_repr101612_ + (_repr101609_ (let () (declare (not safe)) - (_serialize-mark101462_ _mark101605_))) - (_ctx101614_ - (let ((__tmp111969 + (_serialize-mark101459_ _mark101602_))) + (_ctx101611_ + (let ((__tmp111966 (##structure-ref - _mark101605_ + _mark101602_ '2 gx#expander-mark::t '#f))) (declare (not safe)) - (gx#core-context-top__1 __tmp111969))) - (_ctx-ref101616_ - (if (let ((__tmp111974 + (gx#core-context-top__1 __tmp111966))) + (_ctx-ref101613_ + (if (let ((__tmp111971 (gx#current-expander-context))) (declare (not safe)) - (eq? _ctx101614_ __tmp111974)) + (eq? _ctx101611_ __tmp111971)) '(gx#current-expander-context) - (let ((__tmp111970 - (let ((__tmp111971 - (let ((__tmp111972 - (let ((__tmp111973 + (let ((__tmp111967 + (let ((__tmp111968 + (let ((__tmp111969 + (let ((__tmp111970 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_context-ref101463_ _ctx101614_)))) + (_context-ref101460_ _ctx101611_)))) (declare (not safe)) - (cons __tmp111973 '())))) + (cons __tmp111970 '())))) (declare (not safe)) - (cons 'quote __tmp111972)))) + (cons 'quote __tmp111969)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111971 '())))) + (cons __tmp111968 '())))) (declare (not safe)) (cons 'gx#import-module - __tmp111970))))) - (let ((__tmp111975 (gxc#current-compile-marks))) + __tmp111967))))) + (let ((__tmp111972 (gxc#current-compile-marks))) (declare (not safe)) (hash-put! - __tmp111975 - _mark101605_ - _gid101610_)) - (let ((__tmp111976 - (let ((__tmp111977 - (let ((__tmp111978 - (let ((__tmp111979 - (let ((__tmp111980 + __tmp111972 + _mark101602_ + _gid101607_)) + (let ((__tmp111973 + (let ((__tmp111974 + (let ((__tmp111975 + (let ((__tmp111976 + (let ((__tmp111977 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111982 - (let ((__tmp111983 + (let ((__tmp111979 + (let ((__tmp111980 (let () (declare (not safe)) - (cons _repr101612_ '())))) + (cons _repr101609_ '())))) (declare (not safe)) - (cons 'quote __tmp111983))) - (__tmp111981 + (cons 'quote __tmp111980))) + (__tmp111978 (let () (declare (not safe)) - (cons _ctx-ref101616_ '())))) + (cons _ctx-ref101613_ '())))) (declare (not safe)) - (cons __tmp111982 __tmp111981)))) + (cons __tmp111979 __tmp111978)))) (declare (not safe)) - (cons 'gx#core-deserialize-mark __tmp111980)))) + (cons 'gx#core-deserialize-mark __tmp111977)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111979 '())))) + (cons __tmp111976 '())))) (declare (not safe)) - (cons _gid101610_ __tmp111978)))) + (cons _gid101607_ __tmp111975)))) (declare (not safe)) - (cons 'define __tmp111977)))) + (cons 'define __tmp111974)))) (declare (not safe)) - (_add-lift!101457_ __tmp111976)) - _gid101610_))))) - (_serialize-mark101462_ - (lambda (_mark101552_) - (letrec ((_quote-e101554_ - (lambda (_sym101603_) - (if (interned-symbol? _sym101603_) - _sym101603_ + (_add-lift!101454_ __tmp111973)) + _gid101607_))))) + (_serialize-mark101459_ + (lambda (_mark101549_) + (letrec ((_quote-e101551_ + (lambda (_sym101600_) + (if (interned-symbol? _sym101600_) + _sym101600_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _sym101603_)))))) - (let* ((_mark101555101564_ _mark101552_) - (_E101557101568_ + _sym101600_)))))) + (let* ((_mark101552101561_ _mark101549_) + (_E101554101565_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _mark101555101564_)))) - (_K101558101580_ - (lambda (_trace101571_ - _phi101572_ - _ctx101573_ - _subst101574_) - (let* ((_subs101576_ - (if _subst101574_ + _mark101552101561_)))) + (_K101555101577_ + (lambda (_trace101568_ + _phi101569_ + _ctx101570_ + _subst101571_) + (let* ((_subs101573_ + (if _subst101571_ (let () (declare (not safe)) - (hash->list _subst101574_)) + (hash->list _subst101571_)) '())) - (__tmp111984 - (map (lambda (_pair101578_) - (let ((__tmp111987 - (let ((__tmp111988 - (car _pair101578_))) + (__tmp111981 + (map (lambda (_pair101575_) + (let ((__tmp111984 + (let ((__tmp111985 + (car _pair101575_))) (declare (not safe)) - (_quote-e101554_ - __tmp111988))) - (__tmp111985 - (let ((__tmp111986 - (cdr _pair101578_))) + (_quote-e101551_ + __tmp111985))) + (__tmp111982 + (let ((__tmp111983 + (cdr _pair101575_))) (declare (not safe)) - (_quote-e101554_ - __tmp111986)))) + (_quote-e101551_ + __tmp111983)))) (declare (not safe)) - (cons __tmp111987 - __tmp111985))) - _subs101576_))) + (cons __tmp111984 + __tmp111982))) + _subs101573_))) (declare (not safe)) - (cons _phi101572_ __tmp111984))))) + (cons _phi101569_ __tmp111981))))) (if (let () (declare (not safe)) (##structure-instance-of? - _mark101555101564_ + _mark101552101561_ 'gx#expander-mark::t)) - (let* ((_e101559101583_ + (let* ((_e101556101580_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark101555101564_ + _mark101552101561_ '1 gx#expander-mark::t '#f))) - (_subst101586_ _e101559101583_) - (_e101560101588_ + (_subst101583_ _e101556101580_) + (_e101557101585_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark101555101564_ + _mark101552101561_ '2 gx#expander-mark::t '#f))) - (_ctx101591_ _e101560101588_) - (_e101561101593_ + (_ctx101588_ _e101557101585_) + (_e101558101590_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark101555101564_ + _mark101552101561_ '3 gx#expander-mark::t '#f))) - (_phi101596_ _e101561101593_) - (_e101562101598_ + (_phi101593_ _e101558101590_) + (_e101559101595_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark101555101564_ + _mark101552101561_ '4 gx#expander-mark::t '#f))) - (_trace101601_ _e101562101598_)) + (_trace101598_ _e101559101595_)) (declare (not safe)) - (_K101558101580_ - _trace101601_ - _phi101596_ - _ctx101591_ - _subst101586_)) + (_K101555101577_ + _trace101598_ + _phi101593_ + _ctx101588_ + _subst101583_)) (let () (declare (not safe)) - (_E101557101568_))))))) - (_context-ref101463_ - (lambda (_ctx101539_) - (if (let ((__tmp111996 + (_E101554101565_))))))) + (_context-ref101460_ + (lambda (_ctx101536_) + (if (let ((__tmp111993 (##structure-ref - _ctx101539_ + _ctx101536_ '3 gx#phi-context::t '#f))) (declare (not safe)) (##structure-instance-of? - __tmp111996 + __tmp111993 'gx#module-context::t)) - (let ((_ctx-ref101541_ + (let ((_ctx-ref101538_ (let () (declare (not safe)) - (_context-ref-nested101465_ _ctx101539_))) - (_ctx-origin101542_ + (_context-ref-nested101462_ _ctx101536_))) + (_ctx-origin101539_ (let () (declare (not safe)) - (_context-ref-origin101464_ _ctx101539_))) - (_origin101543_ - (let ((__tmp111990 + (_context-ref-origin101461_ _ctx101536_))) + (_origin101540_ + (let ((__tmp111987 (gx#current-expander-context))) (declare (not safe)) - (_context-ref-origin101464_ __tmp111990)))) + (_context-ref-origin101461_ __tmp111987)))) (if (let () (declare (not safe)) - (eq? _origin101543_ _ctx-origin101542_)) - (let ((_ref101545_ - (let ((__tmp111991 + (eq? _origin101540_ _ctx-origin101539_)) + (let ((_ref101542_ + (let ((__tmp111988 (gx#current-expander-context))) (declare (not safe)) - (_context-ref-nested101465_ - __tmp111991)))) - (let _lp101547_ ((_ref101549_ - (cdr _ref101545_)) - (_ctx-ref101550_ - (cdr _ctx-ref101541_))) + (_context-ref-nested101462_ + __tmp111988)))) + (let _lp101544_ ((_ref101546_ + (cdr _ref101542_)) + (_ctx-ref101547_ + (cdr _ctx-ref101538_))) (if (and (let () (declare (not safe)) - (pair? _ref101549_)) - (let ((__tmp111995 - (car _ref101549_)) - (__tmp111994 - (car _ctx-ref101550_))) + (pair? _ref101546_)) + (let ((__tmp111992 + (car _ref101546_)) + (__tmp111991 + (car _ctx-ref101547_))) (declare (not safe)) - (eq? __tmp111995 __tmp111994))) - (let ((__tmp111993 (cdr _ref101549_)) - (__tmp111992 - (cdr _ctx-ref101550_))) + (eq? __tmp111992 __tmp111991))) + (let ((__tmp111990 (cdr _ref101546_)) + (__tmp111989 + (cdr _ctx-ref101547_))) (declare (not safe)) - (_lp101547_ __tmp111993 __tmp111992)) + (_lp101544_ __tmp111990 __tmp111989)) (let () (declare (not safe)) - (cons '#f _ctx-ref101550_))))) - _ctx-ref101541_)) - (let ((__tmp111989 + (cons '#f _ctx-ref101547_))))) + _ctx-ref101538_)) + (let ((__tmp111986 (##structure-ref - _ctx101539_ + _ctx101536_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp111989))))) - (_context-ref-origin101464_ - (lambda (_ctx101531_) - (let _lp101533_ ((_ctx101535_ _ctx101531_)) - (let ((_super101537_ + (make-symbol__1 '":" __tmp111986))))) + (_context-ref-origin101461_ + (lambda (_ctx101528_) + (let _lp101530_ ((_ctx101532_ _ctx101528_)) + (let ((_super101534_ (##structure-ref - _ctx101535_ + _ctx101532_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _super101537_ + _super101534_ 'gx#module-context::t)) (let () (declare (not safe)) - (_lp101533_ _super101537_)) - _ctx101535_))))) - (_context-ref-nested101465_ - (lambda (_ctx101522_) - (let _lp101524_ ((_ctx101526_ _ctx101522_) - (_r101527_ '())) - (let ((_super101529_ + (_lp101530_ _super101534_)) + _ctx101532_))))) + (_context-ref-nested101462_ + (lambda (_ctx101519_) + (let _lp101521_ ((_ctx101523_ _ctx101519_) + (_r101524_ '())) + (let ((_super101526_ (##structure-ref - _ctx101526_ + _ctx101523_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _super101529_ + _super101526_ 'gx#module-context::t)) - (let ((__tmp111999 - (let ((__tmp112000 + (let ((__tmp111996 + (let ((__tmp111997 (car (##structure-ref - _ctx101526_ + _ctx101523_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp112000 _r101527_)))) + (cons __tmp111997 _r101524_)))) (declare (not safe)) - (_lp101524_ _super101529_ __tmp111999)) - (let ((__tmp111997 - (let ((__tmp111998 + (_lp101521_ _super101526_ __tmp111996)) + (let ((__tmp111994 + (let ((__tmp111995 (##structure-ref - _ctx101526_ + _ctx101523_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp111998)))) + (make-symbol__1 '":" __tmp111995)))) (declare (not safe)) - (cons __tmp111997 _r101527_)))))))) - (let* ((_g101467101480_ - (lambda (_g101468101477_) + (cons __tmp111994 _r101524_)))))))) + (let* ((_g101464101477_ + (lambda (_g101465101474_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101468101477_)))) - (_g101466101519_ - (lambda (_g101468101483_) + _g101465101474_)))) + (_g101463101516_ + (lambda (_g101465101480_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101468101483_)) - (let ((_e101472101485_ + (gx#stx-pair? _g101465101480_)) + (let ((_e101469101482_ (let () (declare (not safe)) - (gx#stx-e _g101468101483_)))) - (let ((_hd101471101488_ + (gx#stx-e _g101465101480_)))) + (let ((_hd101468101485_ (let () (declare (not safe)) - (##car _e101472101485_))) - (_tl101470101490_ + (##car _e101469101482_))) + (_tl101467101487_ (let () (declare (not safe)) - (##cdr _e101472101485_)))) + (##cdr _e101469101482_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101470101490_)) - (let ((_e101475101493_ + (gx#stx-pair? _tl101467101487_)) + (let ((_e101472101490_ (let () (declare (not safe)) - (gx#stx-e _tl101470101490_)))) - (let ((_hd101474101496_ + (gx#stx-e _tl101467101487_)))) + (let ((_hd101471101493_ (let () (declare (not safe)) - (##car _e101475101493_))) - (_tl101473101498_ + (##car _e101472101490_))) + (_tl101470101495_ (let () (declare (not safe)) - (##cdr _e101475101493_)))) + (##cdr _e101472101490_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl101473101498_)) - ((lambda (_L101501_) + (gx#stx-null? _tl101470101495_)) + ((lambda (_L101498_) (if (let () (declare (not safe)) - (gx#identifier? _L101501_)) - (let ((_$e101514_ - (let ((__tmp112001 + (gx#identifier? _L101498_)) + (let ((_$e101511_ + (let ((__tmp111998 (gxc#current-compile-identifiers))) (declare (not safe)) (hash-get - __tmp112001 - _L101501_)))) - (if _$e101514_ - (values _$e101514_) - (let ((_marks101517_ + __tmp111998 + _L101498_)))) + (if _$e101511_ + (values _$e101511_) + (let ((_marks101514_ (##direct-structure-ref - _L101501_ + _L101498_ '4 gx#syntax-quote::t '#f))) @@ -15993,2116 +15993,2116 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _marks101517_)) + (null? _marks101514_)) (let () (declare (not safe)) - (_generate-simple101459_ _L101501_)) + (_generate-simple101456_ _L101498_)) (let () (declare (not safe)) - (_generate-serialized101460_ - _L101501_ - _marks101517_)))))) + (_generate-serialized101457_ + _L101498_ + _marks101514_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot quote non-identifier syntax" - _L101501_)))) - _hd101474101496_) + _L101498_)))) + _hd101471101493_) (let () (declare (not safe)) - (_g101467101480_ - _g101468101483_))))) + (_g101464101477_ + _g101465101480_))))) (let () (declare (not safe)) - (_g101467101480_ _g101468101483_))))) + (_g101464101477_ _g101465101480_))))) (let () (declare (not safe)) - (_g101467101480_ _g101468101483_)))))) + (_g101464101477_ _g101465101480_)))))) (declare (not safe)) - (_g101466101519_ _stx101455_))))) + (_g101463101516_ _stx101452_))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_stx101388_) - (let* ((_g101390101407_ - (lambda (_g101391101404_) + (lambda (_stx101385_) + (let* ((_g101387101404_ + (lambda (_g101388101401_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101391101404_)))) - (_g101389101452_ - (lambda (_g101391101410_) + _g101388101401_)))) + (_g101386101449_ + (lambda (_g101388101407_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101391101410_)) - (let ((_e101396101412_ + (gx#stx-pair? _g101388101407_)) + (let ((_e101393101409_ (let () (declare (not safe)) - (gx#stx-e _g101391101410_)))) - (let ((_hd101395101415_ + (gx#stx-e _g101388101407_)))) + (let ((_hd101392101412_ (let () (declare (not safe)) - (##car _e101396101412_))) - (_tl101394101417_ + (##car _e101393101409_))) + (_tl101391101414_ (let () (declare (not safe)) - (##cdr _e101396101412_)))) + (##cdr _e101393101409_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101394101417_)) - (let ((_e101399101420_ + (gx#stx-pair? _tl101391101414_)) + (let ((_e101396101417_ (let () (declare (not safe)) - (gx#stx-e _tl101394101417_)))) - (let ((_hd101398101423_ + (gx#stx-e _tl101391101414_)))) + (let ((_hd101395101420_ (let () (declare (not safe)) - (##car _e101399101420_))) - (_tl101397101425_ + (##car _e101396101417_))) + (_tl101394101422_ (let () (declare (not safe)) - (##cdr _e101399101420_)))) + (##cdr _e101396101417_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101397101425_)) - (let ((_e101402101428_ + (gx#stx-pair? _tl101394101422_)) + (let ((_e101399101425_ (let () (declare (not safe)) - (gx#stx-e _tl101397101425_)))) - (let ((_hd101401101431_ + (gx#stx-e _tl101394101422_)))) + (let ((_hd101398101428_ (let () (declare (not safe)) - (##car _e101402101428_))) - (_tl101400101433_ + (##car _e101399101425_))) + (_tl101397101430_ (let () (declare (not safe)) - (##cdr _e101402101428_)))) + (##cdr _e101399101425_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl101400101433_)) - ((lambda (_L101436_ _L101437_) - (let ((__tmp112002 - (let ((__tmp112005 + _tl101397101430_)) + ((lambda (_L101433_ _L101434_) + (let ((__tmp111999 + (let ((__tmp112002 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L101437_))) - (__tmp112003 - (let ((__tmp112004 + (let () (declare (not safe)) (gx#stx-e _L101434_))) + (__tmp112000 + (let ((__tmp112001 (let () (declare (not safe)) - (gxc#compile-e__0 _L101436_)))) + (gxc#compile-e__0 _L101433_)))) (declare (not safe)) - (cons __tmp112004 '())))) + (cons __tmp112001 '())))) (declare (not safe)) - (cons __tmp112005 __tmp112003)))) + (cons __tmp112002 __tmp112000)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'define - __tmp112002))) - _hd101401101431_ - _hd101398101423_) + __tmp111999))) + _hd101398101428_ + _hd101395101420_) (let () (declare (not safe)) - (_g101390101407_ - _g101391101410_))))) + (_g101387101404_ + _g101388101407_))))) (let () (declare (not safe)) - (_g101390101407_ _g101391101410_))))) + (_g101387101404_ _g101388101407_))))) (let () (declare (not safe)) - (_g101390101407_ _g101391101410_))))) + (_g101387101404_ _g101388101407_))))) (let () (declare (not safe)) - (_g101390101407_ _g101391101410_)))))) + (_g101387101404_ _g101388101407_)))))) (declare (not safe)) - (_g101389101452_ _stx101388_)))) + (_g101386101449_ _stx101385_)))) (define gxc#generate-meta-begin% - (lambda (_stx101337_ _state101338_) - (let* ((_g101340101350_ - (lambda (_g101341101347_) + (lambda (_stx101334_ _state101335_) + (let* ((_g101337101347_ + (lambda (_g101338101344_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101341101347_)))) - (_g101339101385_ - (lambda (_g101341101353_) + _g101338101344_)))) + (_g101336101382_ + (lambda (_g101338101350_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101341101353_)) - (let ((_e101345101355_ + (gx#stx-pair? _g101338101350_)) + (let ((_e101342101352_ (let () (declare (not safe)) - (gx#stx-e _g101341101353_)))) - (let ((_hd101344101358_ + (gx#stx-e _g101338101350_)))) + (let ((_hd101341101355_ (let () (declare (not safe)) - (##car _e101345101355_))) - (_tl101343101360_ + (##car _e101342101352_))) + (_tl101340101357_ (let () (declare (not safe)) - (##cdr _e101345101355_)))) - ((lambda (_L101363_) - (let* ((_c-body101377_ - (map (lambda (_g101372101374_) + (##cdr _e101342101352_)))) + ((lambda (_L101360_) + (let* ((_c-body101374_ + (map (lambda (_g101369101371_) (let () (declare (not safe)) (gxc#compile-e__1 - _g101372101374_ - _state101338_))) - _L101363_)) - (_c-body101382_ - (let ((__tmp112006 - (lambda (_$obj101379_) - (let ((__tmp112007 + _g101369101371_ + _state101335_))) + _L101360_)) + (_c-body101379_ + (let ((__tmp112003 + (lambda (_$obj101376_) + (let ((__tmp112004 (let () (declare (not safe)) - (eq? _$obj101379_ + (eq? _$obj101376_ '#!void)))) (declare (not safe)) - (not __tmp112007))))) + (not __tmp112004))))) (declare (not safe)) - (filter __tmp112006 _c-body101377_)))) + (filter __tmp112003 _c-body101374_)))) (let () (declare (not safe)) - (cons '%#begin _c-body101382_)))) - _tl101343101360_))) + (cons '%#begin _c-body101379_)))) + _tl101340101357_))) (let () (declare (not safe)) - (_g101340101350_ _g101341101353_)))))) + (_g101337101347_ _g101338101350_)))))) (declare (not safe)) - (_g101339101385_ _stx101337_)))) + (_g101336101382_ _stx101334_)))) (define gxc#generate-meta-begin-syntax% - (lambda (_stx101245_ _state101246_) - (let* ((_g101248101258_ - (lambda (_g101249101255_) + (lambda (_stx101242_ _state101243_) + (let* ((_g101245101255_ + (lambda (_g101246101252_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101249101255_)))) - (_g101247101334_ - (lambda (_g101249101261_) + _g101246101252_)))) + (_g101244101331_ + (lambda (_g101246101258_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101249101261_)) - (let ((_e101253101263_ + (gx#stx-pair? _g101246101258_)) + (let ((_e101250101260_ (let () (declare (not safe)) - (gx#stx-e _g101249101261_)))) - (let ((_hd101252101266_ + (gx#stx-e _g101246101258_)))) + (let ((_hd101249101263_ (let () (declare (not safe)) - (##car _e101253101263_))) - (_tl101251101268_ + (##car _e101250101260_))) + (_tl101248101265_ (let () (declare (not safe)) - (##cdr _e101253101263_)))) - ((lambda (_L101271_) - (let* ((_phi101281_ - (let ((__tmp112008 + (##cdr _e101250101260_)))) + ((lambda (_L101268_) + (let* ((_phi101278_ + (let ((__tmp112005 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp112008 '1))) - (_block101283_ + (fx+ __tmp112005 '1))) + (_block101280_ (let () (declare (not safe)) (gxc#meta-state-begin-phi! - _state101246_ - _phi101281_))) - (_compiled101286_ - (let ((__tmp112009 + _state101243_ + _phi101278_))) + (_compiled101283_ + (let ((__tmp112006 (lambda () - (let ((__tmp112010 - (let ((__tmp112011 + (let ((__tmp112007 + (let ((__tmp112008 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#begin)))) (declare (not safe)) - (cons __tmp112011 _L101271_)))) + (cons __tmp112008 _L101268_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#apply-generate-meta-phi - __tmp112010 - _state101246_))))) + __tmp112007 + _state101243_))))) (declare (not safe)) (call-with-parameters - __tmp112009 + __tmp112006 gx#current-expander-phi - _phi101281_)))) - (let* ((_g101289101299_ - (lambda (_g101290101296_) + _phi101278_)))) + (let* ((_g101286101296_ + (lambda (_g101287101293_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101290101296_)))) - (_g101288101331_ - (lambda (_g101290101302_) + _g101287101293_)))) + (_g101285101328_ + (lambda (_g101287101299_) (if (let () (declare (not safe)) (gx#stx-pair? - _g101290101302_)) - (let ((_e101294101304_ + _g101287101299_)) + (let ((_e101291101301_ (let () (declare (not safe)) (gx#stx-e - _g101290101302_)))) - (let ((_hd101293101307_ + _g101287101299_)))) + (let ((_hd101290101304_ (let () (declare (not safe)) - (##car _e101294101304_))) - (_tl101292101309_ + (##car _e101291101301_))) + (_tl101289101306_ (let () (declare (not safe)) - (##cdr _e101294101304_)))) + (##cdr _e101291101301_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd101293101307_)) + _hd101290101304_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin - _hd101293101307_)) - ((lambda (_L101312_) - (let ((_c-body101329_ + _hd101290101304_)) + ((lambda (_L101309_) + (let ((_c-body101326_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112012 - (lambda (_$obj101326_) - (let ((__tmp112013 + (let ((__tmp112009 + (lambda (_$obj101323_) + (let ((__tmp112010 (let () (declare (not safe)) - (eq? _$obj101326_ '#!void)))) + (eq? _$obj101323_ '#!void)))) (declare (not safe)) - (not __tmp112013))))) + (not __tmp112010))))) (declare (not safe)) - (filter __tmp112012 _L101312_)))) - (if _block101283_ - (let ((__tmp112014 - (let ((__tmp112015 - (let ((__tmp112016 - (let ((__tmp112020 - (let ((__tmp112021 + (filter __tmp112009 _L101309_)))) + (if _block101280_ + (let ((__tmp112011 + (let ((__tmp112012 + (let ((__tmp112013 + (let ((__tmp112017 + (let ((__tmp112018 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp112021))) - (__tmp112017 - (let ((__tmp112018 - (let ((__tmp112019 + (cons '%#ref __tmp112018))) + (__tmp112014 + (let ((__tmp112015 + (let ((__tmp112016 (let () (declare (not safe)) - (cons _block101283_ '())))) + (cons _block101280_ '())))) (declare (not safe)) - (cons '%#quote __tmp112019)))) + (cons '%#quote __tmp112016)))) (declare (not safe)) - (cons __tmp112018 '())))) + (cons __tmp112015 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112020 - __tmp112017)))) + (cons __tmp112017 + __tmp112014)))) (declare (not safe)) - (cons '%#call __tmp112016)))) + (cons '%#call __tmp112013)))) (declare (not safe)) - (cons __tmp112015 _c-body101329_)))) + (cons __tmp112012 _c-body101326_)))) (declare (not safe)) - (cons '%#begin-syntax __tmp112014)) + (cons '%#begin-syntax __tmp112011)) (if (let () (declare (not safe)) - (null? _c-body101329_)) + (null? _c-body101326_)) '#!void (let () (declare (not safe)) - (cons '%#begin-syntax _c-body101329_)))))) - _tl101292101309_) + (cons '%#begin-syntax _c-body101326_)))))) + _tl101289101306_) (let () (declare (not safe)) - (_g101289101299_ _g101290101302_))) + (_g101286101296_ _g101287101299_))) (let () (declare (not safe)) - (_g101289101299_ _g101290101302_))))) + (_g101286101296_ _g101287101299_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g101289101299_ - _g101290101302_)))))) + (_g101286101296_ + _g101287101299_)))))) (declare (not safe)) - (_g101288101331_ _compiled101286_)))) - _tl101251101268_))) + (_g101285101328_ _compiled101283_)))) + _tl101248101265_))) (let () (declare (not safe)) - (_g101248101258_ _g101249101261_)))))) + (_g101245101255_ _g101246101258_)))))) (declare (not safe)) - (_g101247101334_ _stx101245_)))) + (_g101244101331_ _stx101242_)))) (define gxc#generate-meta-module% - (lambda (_stx101176_ _state101177_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state101177_)) - (let* ((_g101179101193_ - (lambda (_g101180101190_) + (lambda (_stx101173_ _state101174_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state101174_)) + (let* ((_g101176101190_ + (lambda (_g101177101187_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101180101190_)))) - (_g101178101242_ - (lambda (_g101180101196_) + _g101177101187_)))) + (_g101175101239_ + (lambda (_g101177101193_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101180101196_)) - (let ((_e101185101198_ + (gx#stx-pair? _g101177101193_)) + (let ((_e101182101195_ (let () (declare (not safe)) - (gx#stx-e _g101180101196_)))) - (let ((_hd101184101201_ + (gx#stx-e _g101177101193_)))) + (let ((_hd101181101198_ (let () (declare (not safe)) - (##car _e101185101198_))) - (_tl101183101203_ + (##car _e101182101195_))) + (_tl101180101200_ (let () (declare (not safe)) - (##cdr _e101185101198_)))) + (##cdr _e101182101195_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101183101203_)) - (let ((_e101188101206_ + (gx#stx-pair? _tl101180101200_)) + (let ((_e101185101203_ (let () (declare (not safe)) - (gx#stx-e _tl101183101203_)))) - (let ((_hd101187101209_ + (gx#stx-e _tl101180101200_)))) + (let ((_hd101184101206_ (let () (declare (not safe)) - (##car _e101188101206_))) - (_tl101186101211_ + (##car _e101185101203_))) + (_tl101183101208_ (let () (declare (not safe)) - (##cdr _e101188101206_)))) - ((lambda (_L101214_ _L101215_) - (let ((_key101228_ + (##cdr _e101185101203_)))) + ((lambda (_L101211_ _L101212_) + (let ((_key101225_ (let () (declare (not safe)) (gx#core-identifier-key - _L101215_)))) - (if (interned-symbol? _key101228_) + _L101212_)))) + (if (interned-symbol? _key101225_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile module with uninterned id" - _stx101176_ - _L101215_ - _key101228_))) - (let* ((_ctx101230_ + _stx101173_ + _L101212_ + _key101225_))) + (let* ((_ctx101227_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L101215_))) - (_code101233_ - (let ((__tmp112022 + _L101212_))) + (_code101230_ + (let ((__tmp112019 (lambda () - (let ((__tmp112023 + (let ((__tmp112020 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _ctx101230_ + _ctx101227_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#compile-e__1 __tmp112023 _state101177_))))) + (gxc#compile-e__1 __tmp112020 _state101174_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp112022 + __tmp112019 gx#current-expander-context - _ctx101230_))) - (_rt101235_ - (let ((__tmp112024 + _ctx101227_))) + (_rt101232_ + (let ((__tmp112021 (gxc#current-compile-runtime-sections))) (declare (not safe)) (hash-get - __tmp112024 - _ctx101230_))) - (_loader101237_ - (if _rt101235_ - (let ((__tmp112025 - (let ((__tmp112026 + __tmp112021 + _ctx101227_))) + (_loader101234_ + (if _rt101232_ + (let ((__tmp112022 + (let ((__tmp112023 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112030 - (let ((__tmp112031 + (let ((__tmp112027 + (let ((__tmp112028 (let () (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp112031))) - (__tmp112027 - (let ((__tmp112028 - (let ((__tmp112029 + (cons '%#ref __tmp112028))) + (__tmp112024 + (let ((__tmp112025 + (let ((__tmp112026 (let () (declare (not safe)) - (cons _rt101235_ '())))) + (cons _rt101232_ '())))) (declare (not safe)) - (cons '%#quote __tmp112029)))) + (cons '%#quote __tmp112026)))) (declare (not safe)) - (cons __tmp112028 '())))) + (cons __tmp112025 '())))) (declare (not safe)) - (cons __tmp112030 __tmp112027)))) + (cons __tmp112027 __tmp112024)))) (declare (not safe)) - (cons '%#call __tmp112026)))) + (cons '%#call __tmp112023)))) (declare (not safe)) - (cons __tmp112025 '())) + (cons __tmp112022 '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_modid101239_ + (_modid101236_ (let () (declare (not safe)) - (gx#stx-e _L101215_)))) + (gx#stx-e _L101212_)))) (let () (declare (not safe)) (gxc#meta-state-end-phi! - _state101177_)) - (let ((__tmp112032 - (let ((__tmp112033 + _state101174_)) + (let ((__tmp112029 + (let ((__tmp112030 (let () (declare (not safe)) - (cons _code101233_ + (cons _code101230_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _loader101237_)))) + _loader101234_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _modid101239_ - __tmp112033)))) + (cons _modid101236_ + __tmp112030)))) (declare (not safe)) - (cons '%#module __tmp112032))))) - _tl101186101211_ - _hd101187101209_))) + (cons '%#module __tmp112029))))) + _tl101183101208_ + _hd101184101206_))) (let () (declare (not safe)) - (_g101179101193_ _g101180101196_))))) + (_g101176101190_ _g101177101193_))))) (let () (declare (not safe)) - (_g101179101193_ _g101180101196_)))))) + (_g101176101190_ _g101177101193_)))))) (declare (not safe)) - (_g101178101242_ _stx101176_)))) + (_g101175101239_ _stx101173_)))) (define gxc#generate-meta-import-path - (lambda (_ctx101166_ _context-chain101167_) - (let _lp101169_ ((_ctx101171_ _ctx101166_) (_path101172_ '())) - (let ((_super101174_ - (##structure-ref _ctx101171_ '3 gx#phi-context::t '#f))) - (if (memq _super101174_ _context-chain101167_) - (let ((__tmp112038 - (let ((__tmp112039 + (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 (car (##structure-ref - _ctx101171_ + _ctx101168_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp112039 _path101172_)))) + (cons __tmp112036 _path101169_)))) (declare (not safe)) - (cons '#f __tmp112038)) + (cons '#f __tmp112035)) (if (let () (declare (not safe)) (##structure-instance-of? - _super101174_ + _super101171_ 'gx#module-context::t)) - (let ((__tmp112036 - (let ((__tmp112037 + (let ((__tmp112033 + (let ((__tmp112034 (car (##structure-ref - _ctx101171_ + _ctx101168_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp112037 _path101172_)))) + (cons __tmp112034 _path101169_)))) (declare (not safe)) - (_lp101169_ _super101174_ __tmp112036)) - (let ((__tmp112034 - (let ((__tmp112035 + (_lp101166_ _super101171_ __tmp112033)) + (let ((__tmp112031 + (let ((__tmp112032 (##structure-ref - _ctx101171_ + _ctx101168_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp112035)))) + (make-symbol__1 '":" __tmp112032)))) (declare (not safe)) - (cons __tmp112034 _path101172_)))))))) + (cons __tmp112031 _path101169_)))))))) (define gxc#current-context-chain (lambda () - (let _lp101161_ ((_ctx101163_ (gx#current-expander-context)) - (_r101164_ '())) + (let _lp101158_ ((_ctx101160_ (gx#current-expander-context)) + (_r101161_ '())) (if (let () (declare (not safe)) - (##structure-instance-of? _ctx101163_ 'gx#module-context::t)) - (let ((__tmp112041 - (##structure-ref _ctx101163_ '3 gx#phi-context::t '#f)) - (__tmp112040 + (##structure-instance-of? _ctx101160_ 'gx#module-context::t)) + (let ((__tmp112038 + (##structure-ref _ctx101160_ '3 gx#phi-context::t '#f)) + (__tmp112037 (let () (declare (not safe)) - (cons _ctx101163_ _r101164_)))) + (cons _ctx101160_ _r101161_)))) (declare (not safe)) - (_lp101161_ __tmp112041 __tmp112040)) - _r101164_)))) + (_lp101158_ __tmp112038 __tmp112037)) + _r101161_)))) (define gxc#generate-meta-import% - (lambda (_stx100930_ _state100931_) - (letrec* ((_context-chain100933_ + (lambda (_stx100927_ _state100928_) + (letrec* ((_context-chain100930_ (let () (declare (not safe)) (gxc#current-context-chain))) - (_make-import-spec100934_ - (lambda (_in101097_) - (let* ((_in101098101110_ _in101097_) - (_E101100101114_ + (_make-import-spec100931_ + (lambda (_in101094_) + (let* ((_in101095101107_ _in101094_) + (_E101097101111_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _in101098101110_)))) - (_K101101101124_ - (lambda (_phi101117_ - _name101118_ - _src-name101119_ - _src-phi101120_ - _src-key101121_ - _src-ctx101122_) - (let ((__tmp112042 - (let ((__tmp112046 + _in101095101107_)))) + (_K101098101121_ + (lambda (_phi101114_ + _name101115_ + _src-name101116_ + _src-phi101117_ + _src-key101118_ + _src-ctx101119_) + (let ((__tmp112039 + (let ((__tmp112043 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _name101118_))) - (__tmp112043 - (let ((__tmp112044 - (let ((__tmp112045 + _name101115_))) + (__tmp112040 + (let ((__tmp112041 + (let ((__tmp112042 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#generate-runtime-identifier-key - _src-name101119_)))) + _src-name101116_)))) (declare (not safe)) - (cons __tmp112045 '())))) + (cons __tmp112042 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _src-phi101120_ - __tmp112044)))) + (cons _src-phi101117_ + __tmp112041)))) (declare (not safe)) - (cons __tmp112046 __tmp112043)))) + (cons __tmp112043 __tmp112040)))) (declare (not safe)) - (cons _phi101117_ __tmp112042))))) + (cons _phi101114_ __tmp112039))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in101098101110_ + _in101095101107_ 'gx#module-import::t)) - (let ((_e101102101127_ + (let ((_e101099101124_ (let () (declare (not safe)) (##unchecked-structure-ref - _in101098101110_ + _in101095101107_ '1 gx#module-import::t '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _e101102101127_ + _e101099101124_ 'gx#module-export::t)) - (let* ((_e101105101130_ + (let* ((_e101102101127_ (let () (declare (not safe)) (##unchecked-structure-ref - _e101102101127_ + _e101099101124_ '1 gx#module-export::t '#f))) - (_src-ctx101133_ _e101105101130_) - (_e101106101135_ + (_src-ctx101130_ _e101102101127_) + (_e101103101132_ (let () (declare (not safe)) (##unchecked-structure-ref - _e101102101127_ + _e101099101124_ '2 gx#module-export::t '#f))) - (_src-key101138_ _e101106101135_) - (_e101107101140_ + (_src-key101135_ _e101103101132_) + (_e101104101137_ (let () (declare (not safe)) (##unchecked-structure-ref - _e101102101127_ + _e101099101124_ '3 gx#module-export::t '#f))) - (_src-phi101143_ _e101107101140_) - (_e101108101145_ + (_src-phi101140_ _e101104101137_) + (_e101105101142_ (let () (declare (not safe)) (##unchecked-structure-ref - _e101102101127_ + _e101099101124_ '4 gx#module-export::t '#f))) - (_src-name101148_ _e101108101145_) - (_e101103101150_ + (_src-name101145_ _e101105101142_) + (_e101100101147_ (let () (declare (not safe)) (##unchecked-structure-ref - _in101098101110_ + _in101095101107_ '2 gx#module-import::t '#f))) - (_name101153_ _e101103101150_) - (_e101104101155_ + (_name101150_ _e101100101147_) + (_e101101101152_ (let () (declare (not safe)) (##unchecked-structure-ref - _in101098101110_ + _in101095101107_ '3 gx#module-import::t '#f))) - (_phi101158_ _e101104101155_)) + (_phi101155_ _e101101101152_)) (declare (not safe)) - (_K101101101124_ - _phi101158_ - _name101153_ - _src-name101148_ - _src-phi101143_ - _src-key101138_ - _src-ctx101133_)) + (_K101098101121_ + _phi101155_ + _name101150_ + _src-name101145_ + _src-phi101140_ + _src-key101135_ + _src-ctx101130_)) (let () (declare (not safe)) - (_E101100101114_)))) + (_E101097101111_)))) (let () (declare (not safe)) - (_E101100101114_)))))) - (_make-import-path100935_ - (lambda (_ctx101095_) + (_E101097101111_)))))) + (_make-import-path100932_ + (lambda (_ctx101092_) (let () (declare (not safe)) (gxc#generate-meta-import-path - _ctx101095_ - _context-chain100933_)))) - (_make-import-spec-in100936_ - (lambda (_ctx101092_ _in101093_) - (let ((__tmp112047 - (let ((__tmp112049 + _ctx101092_ + _context-chain100930_)))) + (_make-import-spec-in100933_ + (lambda (_ctx101089_ _in101090_) + (let ((__tmp112044 + (let ((__tmp112046 (let () (declare (not safe)) - (_make-import-path100935_ _ctx101092_))) - (__tmp112048 (reverse _in101093_))) + (_make-import-path100932_ _ctx101089_))) + (__tmp112045 (reverse _in101090_))) (declare (not safe)) - (cons __tmp112049 __tmp112048)))) + (cons __tmp112046 __tmp112045)))) (declare (not safe)) - (cons 'spec: __tmp112047))))) + (cons 'spec: __tmp112044))))) (let () (declare (not safe)) - (gxc#meta-state-end-phi! _state100931_)) - (let* ((_g100938100948_ - (lambda (_g100939100945_) + (gxc#meta-state-end-phi! _state100928_)) + (let* ((_g100935100945_ + (lambda (_g100936100942_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100939100945_)))) - (_g100937101089_ - (lambda (_g100939100951_) + _g100936100942_)))) + (_g100934101086_ + (lambda (_g100936100948_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100939100951_)) - (let ((_e100943100953_ + (gx#stx-pair? _g100936100948_)) + (let ((_e100940100950_ (let () (declare (not safe)) - (gx#stx-e _g100939100951_)))) - (let ((_hd100942100956_ + (gx#stx-e _g100936100948_)))) + (let ((_hd100939100953_ (let () (declare (not safe)) - (##car _e100943100953_))) - (_tl100941100958_ + (##car _e100940100950_))) + (_tl100938100955_ (let () (declare (not safe)) - (##cdr _e100943100953_)))) - ((lambda (_L100961_) - (let _lp100972_ ((_rest100974_ _L100961_) - (_current-src100975_ '#f) - (_current-in100976_ '()) - (_r100977_ '())) - (let* ((_rest100978100986_ _rest100974_) - (_else100980100996_ + (##cdr _e100940100950_)))) + ((lambda (_L100958_) + (let _lp100969_ ((_rest100971_ _L100958_) + (_current-src100972_ '#f) + (_current-in100973_ '()) + (_r100974_ '())) + (let* ((_rest100975100983_ _rest100971_) + (_else100977100993_ (lambda () - (let* ((_r100994_ - (if _current-src100975_ - (let ((__tmp112050 + (let* ((_r100991_ + (if _current-src100972_ + (let ((__tmp112047 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_make-import-spec-in100936_ - _current-src100975_ - _current-in100976_)))) + (_make-import-spec-in100933_ + _current-src100972_ + _current-in100973_)))) (declare (not safe)) - (cons __tmp112050 _r100977_)) - _r100977_)) + (cons __tmp112047 _r100974_)) + _r100974_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp112051 - (reverse _r100994_))) + (__tmp112048 + (reverse _r100991_))) (declare (not safe)) - (cons '%#import __tmp112051)))) - (_K100982101077_ - (lambda (_rest100999_ _in101000_) + (cons '%#import __tmp112048)))) + (_K100979101074_ + (lambda (_rest100996_ _in100997_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in101000_ + _in100997_ 'gx#module-import::t)) - (let* ((_in101001101008_ - _in101000_) - (_E101003101012_ + (let* ((_in100998101005_ + _in100997_) + (_E101000101009_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in101001101008_)))) - (_K101004101017_ - (lambda (_src-ctx101015_) + _in100998101005_)))) + (_K101001101014_ + (lambda (_src-ctx101012_) (if (let () (declare (not safe)) - (eq? _current-src100975_ _src-ctx101015_)) - (let ((__tmp112067 - (let ((__tmp112068 + (eq? _current-src100972_ _src-ctx101012_)) + (let ((__tmp112064 + (let ((__tmp112065 (let () (declare (not safe)) - (_make-import-spec100934_ _in101000_)))) + (_make-import-spec100931_ _in100997_)))) (declare (not safe)) - (cons __tmp112068 _current-in100976_)))) + (cons __tmp112065 _current-in100973_)))) (declare (not safe)) - (_lp100972_ - _rest100999_ - _current-src100975_ - __tmp112067 - _r100977_)) - (if _current-src100975_ - (let ((__tmp112065 - (let ((__tmp112066 + (_lp100969_ + _rest100996_ + _current-src100972_ + __tmp112064 + _r100974_)) + (if _current-src100972_ + (let ((__tmp112062 + (let ((__tmp112063 (let () (declare (not safe)) - (_make-import-spec100934_ - _in101000_)))) + (_make-import-spec100931_ + _in100997_)))) (declare (not safe)) - (cons __tmp112066 '()))) - (__tmp112063 - (let ((__tmp112064 + (cons __tmp112063 '()))) + (__tmp112060 + (let ((__tmp112061 (let () (declare (not safe)) - (_make-import-spec-in100936_ - _current-src100975_ - _current-in100976_)))) + (_make-import-spec-in100933_ + _current-src100972_ + _current-in100973_)))) (declare (not safe)) - (cons __tmp112064 _r100977_)))) + (cons __tmp112061 _r100974_)))) (declare (not safe)) - (_lp100972_ - _rest100999_ - _src-ctx101015_ - __tmp112065 - __tmp112063)) - (let ((__tmp112061 - (let ((__tmp112062 + (_lp100969_ + _rest100996_ + _src-ctx101012_ + __tmp112062 + __tmp112060)) + (let ((__tmp112058 + (let ((__tmp112059 (let () (declare (not safe)) - (_make-import-spec100934_ - _in101000_)))) + (_make-import-spec100931_ + _in100997_)))) (declare (not safe)) - (cons __tmp112062 '())))) + (cons __tmp112059 '())))) (declare (not safe)) - (_lp100972_ - _rest100999_ - _src-ctx101015_ - __tmp112061 - _r100977_))))))) + (_lp100969_ + _rest100996_ + _src-ctx101012_ + __tmp112058 + _r100974_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in101001101008_ + _in100998101005_ 'gx#module-import::t)) - (let ((_e101005101020_ + (let ((_e101002101017_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _in101001101008_ + _in100998101005_ '1 gx#module-import::t '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _e101005101020_ + _e101002101017_ 'gx#module-export::t)) - (let* ((_e101006101023_ + (let* ((_e101003101020_ (let () (declare (not safe)) (##unchecked-structure-ref - _e101005101020_ + _e101002101017_ '1 gx#module-export::t '#f))) - (_src-ctx101026_ _e101006101023_)) + (_src-ctx101023_ _e101003101020_)) (declare (not safe)) - (_K101004101017_ _src-ctx101026_)) - (let () (declare (not safe)) (_E101003101012_)))) - (let () (declare (not safe)) (_E101003101012_)))) + (_K101001101014_ _src-ctx101023_)) + (let () (declare (not safe)) (_E101000101009_)))) + (let () (declare (not safe)) (_E101000101009_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in101000_ + _in100997_ 'gx#import-set::t)) - (let* ((_phi101028_ + (let* ((_phi101025_ (##direct-structure-ref - _in101000_ + _in100997_ '2 gx#import-set::t '#f)) - (_src101030_ + (_src101027_ (##direct-structure-ref - _in101000_ + _in100997_ '1 gx#import-set::t '#f)) - (_src-in101070_ - (let* ((_g101031101040_ + (_src-in101067_ + (let* ((_g101028101037_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_make-import-path100935_ _src101030_))) - (_E101034101044_ + (_make-import-path100932_ _src101027_))) + (_E101031101041_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _g101031101040_))))) - (let ((_K101036101060_ - (lambda (_path101058_) _path101058_)) - (_K101035101050_ - (lambda (_path101048_) + _g101028101037_))))) + (let ((_K101033101057_ + (lambda (_path101055_) _path101055_)) + (_K101032101047_ + (lambda (_path101045_) (let () (declare (not safe)) - (cons 'in: _path101048_))))) + (cons 'in: _path101045_))))) (if (let () (declare (not safe)) - (##pair? _g101031101040_)) - (let ((_tl101038101065_ + (##pair? _g101028101037_)) + (let ((_tl101035101062_ (let () (declare (not safe)) - (##cdr _g101031101040_))) - (_hd101037101063_ + (##cdr _g101028101037_))) + (_hd101034101060_ (let () (declare (not safe)) - (##car _g101031101040_)))) + (##car _g101028101037_)))) (if (let () (declare (not safe)) - (##null? _tl101038101065_)) - (let ((_path101068_ _hd101037101063_)) + (##null? _tl101035101062_)) + (let ((_path101065_ _hd101034101060_)) (declare (not safe)) - (_K101036101060_ _path101068_)) - (let ((_path101053_ _g101031101040_)) + (_K101033101057_ _path101065_)) + (let ((_path101050_ _g101028101037_)) (declare (not safe)) - (_K101035101050_ _path101053_)))) - (let ((_path101053_ _g101031101040_)) + (_K101032101047_ _path101050_)))) + (let ((_path101050_ _g101028101037_)) (declare (not safe)) - (_K101035101050_ _path101053_)))))) - (_r101072_ - (if _current-src100975_ - (let ((__tmp112056 + (_K101032101047_ _path101050_)))))) + (_r101069_ + (if _current-src100972_ + (let ((__tmp112053 (let () (declare (not safe)) - (_make-import-spec-in100936_ - _current-src100975_ - _current-in100976_)))) + (_make-import-spec-in100933_ + _current-src100972_ + _current-in100973_)))) (declare (not safe)) - (cons __tmp112056 _r100977_)) - _r100977_))) - (let ((__tmp112057 - (let ((__tmp112058 + (cons __tmp112053 _r100974_)) + _r100974_))) + (let ((__tmp112054 + (let ((__tmp112055 (if (let () (declare (not safe)) - (fxzero? _phi101028_)) - _src-in101070_ - (let ((__tmp112059 - (let ((__tmp112060 + (fxzero? _phi101025_)) + _src-in101067_ + (let ((__tmp112056 + (let ((__tmp112057 (let () (declare (not safe)) - (cons _src-in101070_ '())))) + (cons _src-in101067_ '())))) (declare (not safe)) - (cons _phi101028_ __tmp112060)))) + (cons _phi101025_ __tmp112057)))) (declare (not safe)) - (cons 'phi: __tmp112059))))) + (cons 'phi: __tmp112056))))) (declare (not safe)) - (cons __tmp112058 _r101072_)))) + (cons __tmp112055 _r101069_)))) (declare (not safe)) - (_lp100972_ _rest100999_ '#f '() __tmp112057))) + (_lp100969_ _rest100996_ '#f '() __tmp112054))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-instance-of? - _in101000_ + _in100997_ 'gx#module-context::t)) - (let* ((_r101075_ + (let* ((_r101072_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _current-src100975_ - (let ((__tmp112052 + (if _current-src100972_ + (let ((__tmp112049 (let () (declare (not safe)) - (_make-import-spec-in100936_ - _current-src100975_ - _current-in100976_)))) + (_make-import-spec-in100933_ + _current-src100972_ + _current-in100973_)))) (declare (not safe)) - (cons __tmp112052 _r100977_)) - _r100977_)) - (__tmp112053 - (let ((__tmp112054 - (let ((__tmp112055 + (cons __tmp112049 _r100974_)) + _r100974_)) + (__tmp112050 + (let ((__tmp112051 + (let ((__tmp112052 (let () (declare (not safe)) - (_make-import-path100935_ - _in101000_)))) + (_make-import-path100932_ + _in100997_)))) (declare (not safe)) - (cons 'runtime: __tmp112055)))) + (cons 'runtime: __tmp112052)))) (declare (not safe)) - (cons __tmp112054 _r101075_)))) + (cons __tmp112051 _r101072_)))) (declare (not safe)) - (_lp100972_ _rest100999_ '#f '() __tmp112053)) + (_lp100969_ _rest100996_ '#f '() __tmp112050)) '#!void)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest100978100986_)) - (let ((_hd100983101080_ + (##pair? _rest100975100983_)) + (let ((_hd100980101077_ (let () (declare (not safe)) - (##car _rest100978100986_))) - (_tl100984101082_ + (##car _rest100975100983_))) + (_tl100981101079_ (let () (declare (not safe)) - (##cdr _rest100978100986_)))) - (let* ((_in101085_ _hd100983101080_) - (_rest101087_ - _tl100984101082_)) + (##cdr _rest100975100983_)))) + (let* ((_in101082_ _hd100980101077_) + (_rest101084_ + _tl100981101079_)) (declare (not safe)) - (_K100982101077_ - _rest101087_ - _in101085_))) + (_K100979101074_ + _rest101084_ + _in101082_))) (let () (declare (not safe)) - (_else100980100996_)))))) - _tl100941100958_))) + (_else100977100993_)))))) + _tl100938100955_))) (let () (declare (not safe)) - (_g100938100948_ _g100939100951_)))))) + (_g100935100945_ _g100936100948_)))))) (declare (not safe)) - (_g100937101089_ _stx100930_))))) + (_g100934101086_ _stx100927_))))) (define gxc#generate-meta-export% - (lambda (_stx100740_ _state100741_) - (letrec* ((_context-chain100743_ + (lambda (_stx100737_ _state100738_) + (letrec* ((_context-chain100740_ (let () (declare (not safe)) (gxc#current-context-chain))) - (_make-import-path100744_ - (lambda (_ctx100928_) + (_make-import-path100741_ + (lambda (_ctx100925_) (let () (declare (not safe)) (gxc#generate-meta-import-path - _ctx100928_ - _context-chain100743_))))) - (let* ((_g100746100756_ - (lambda (_g100747100753_) + _ctx100925_ + _context-chain100740_))))) + (let* ((_g100743100753_ + (lambda (_g100744100750_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100747100753_)))) - (_g100745100925_ - (lambda (_g100747100759_) + _g100744100750_)))) + (_g100742100922_ + (lambda (_g100744100756_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100747100759_)) - (let ((_e100751100761_ + (gx#stx-pair? _g100744100756_)) + (let ((_e100748100758_ (let () (declare (not safe)) - (gx#stx-e _g100747100759_)))) - (let ((_hd100750100764_ + (gx#stx-e _g100744100756_)))) + (let ((_hd100747100761_ (let () (declare (not safe)) - (##car _e100751100761_))) - (_tl100749100766_ + (##car _e100748100758_))) + (_tl100746100763_ (let () (declare (not safe)) - (##cdr _e100751100761_)))) - ((lambda (_L100769_) - (let _lp100780_ ((_rest100782_ _L100769_) - (_r100783_ '())) - (let* ((_rest100784100792_ _rest100782_) - (_else100786100800_ + (##cdr _e100748100758_)))) + ((lambda (_L100766_) + (let _lp100777_ ((_rest100779_ _L100766_) + (_r100780_ '())) + (let* ((_rest100781100789_ _rest100779_) + (_else100783100797_ (lambda () - (let ((__tmp112069 - (reverse _r100783_))) + (let ((__tmp112066 + (reverse _r100780_))) (declare (not safe)) - (cons '%#export __tmp112069)))) - (_K100788100913_ - (lambda (_rest100803_ _out100804_) - (let* ((_out100805100818_ - _out100804_) - (_E100808100822_ + (cons '%#export __tmp112066)))) + (_K100785100910_ + (lambda (_rest100800_ _out100801_) + (let* ((_out100802100815_ + _out100801_) + (_E100805100819_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _out100805100818_))))) - (let ((_K100812100892_ - (lambda (_name100888_ - _phi100889_ - _key100890_) - (let ((__tmp112070 - (let ((__tmp112071 + _out100802100815_))))) + (let ((_K100809100889_ + (lambda (_name100885_ + _phi100886_ + _key100887_) + (let ((__tmp112067 + (let ((__tmp112068 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112072 - (let ((__tmp112073 - (let ((__tmp112076 + (let ((__tmp112069 + (let ((__tmp112070 + (let ((__tmp112073 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _key100890_))) - (__tmp112074 - (let ((__tmp112075 + _key100887_))) + (__tmp112071 + (let ((__tmp112072 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _name100888_)))) + _name100885_)))) (declare (not safe)) - (cons __tmp112075 '())))) + (cons __tmp112072 '())))) (declare (not safe)) - (cons __tmp112076 __tmp112074)))) + (cons __tmp112073 __tmp112071)))) (declare (not safe)) - (cons _phi100889_ __tmp112073)))) + (cons _phi100886_ __tmp112070)))) (declare (not safe)) - (cons 'spec: __tmp112072)))) + (cons 'spec: __tmp112069)))) (declare (not safe)) - (cons __tmp112071 _r100783_)))) + (cons __tmp112068 _r100780_)))) (declare (not safe)) - (_lp100780_ _rest100803_ __tmp112070)))) + (_lp100777_ _rest100800_ __tmp112067)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K100809100872_ - (lambda (_phi100826_ - _src100827_) - (let* ((_out100867_ - (if _src100827_ + (_K100806100869_ + (lambda (_phi100823_ + _src100824_) + (let* ((_out100864_ + (if _src100824_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112077 - (let ((__tmp112078 - (let* ((_g100828100837_ + (let ((__tmp112074 + (let ((__tmp112075 + (let* ((_g100825100834_ (let () (declare (not safe)) - (_make-import-path100744_ - _src100827_))) - (_E100831100841_ + (_make-import-path100741_ + _src100824_))) + (_E100828100838_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _g100828100837_))))) - (let ((_K100833100857_ - (lambda (_path100855_) - _path100855_)) - (_K100832100847_ - (lambda (_path100845_) + _g100825100834_))))) + (let ((_K100830100854_ + (lambda (_path100852_) + _path100852_)) + (_K100829100844_ + (lambda (_path100842_) (let () (declare (not safe)) (cons 'in: - _path100845_))))) + _path100842_))))) (if (let () (declare (not safe)) - (##pair? _g100828100837_)) - (let ((_tl100835100862_ + (##pair? _g100825100834_)) + (let ((_tl100832100859_ (let () (declare (not safe)) - (##cdr _g100828100837_))) - (_hd100834100860_ + (##cdr _g100825100834_))) + (_hd100831100857_ (let () (declare (not safe)) - (##car _g100828100837_)))) + (##car _g100825100834_)))) (if (let () (declare (not safe)) - (##null? _tl100835100862_)) - (let ((_path100865_ - _hd100834100860_)) + (##null? _tl100832100859_)) + (let ((_path100862_ + _hd100831100857_)) (declare (not safe)) - (_K100833100857_ - _path100865_)) - (let ((_path100850_ - _g100828100837_)) + (_K100830100854_ + _path100862_)) + (let ((_path100847_ + _g100825100834_)) (declare (not safe)) - (_K100832100847_ - _path100850_)))) - (let ((_path100850_ - _g100828100837_)) + (_K100829100844_ + _path100847_)))) + (let ((_path100847_ + _g100825100834_)) (declare (not safe)) - (_K100832100847_ - _path100850_))))))) + (_K100829100844_ + _path100847_))))))) (declare (not safe)) - (cons __tmp112078 '())))) + (cons __tmp112075 '())))) (declare (not safe)) - (cons 'import: __tmp112077)) + (cons 'import: __tmp112074)) '#t)) - (_out100869_ - (if (let () (declare (not safe)) (fxzero? _phi100826_)) - _out100867_ - (let ((__tmp112079 - (let ((__tmp112080 + (_out100866_ + (if (let () (declare (not safe)) (fxzero? _phi100823_)) + _out100864_ + (let ((__tmp112076 + (let ((__tmp112077 (let () (declare (not safe)) - (cons _out100867_ '())))) + (cons _out100864_ '())))) (declare (not safe)) - (cons _phi100826_ __tmp112080)))) + (cons _phi100823_ __tmp112077)))) (declare (not safe)) - (cons 'phi: __tmp112079))))) - (let ((__tmp112081 + (cons 'phi: __tmp112076))))) + (let ((__tmp112078 (let () (declare (not safe)) - (cons _out100869_ _r100783_)))) + (cons _out100866_ _r100780_)))) (declare (not safe)) - (_lp100780_ _rest100803_ __tmp112081)))))) + (_lp100777_ _rest100800_ __tmp112078)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match100807100885_ + (let ((_try-match100804100882_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - _out100805100818_ + _out100802100815_ 'gx#export-set::t)) - (let* ((_e100810100875_ + (let* ((_e100807100872_ (let () (declare (not safe)) (##unchecked-structure-ref - _out100805100818_ + _out100802100815_ '1 gx#export-set::t '#f))) - (_e100811100880_ + (_e100808100877_ (let () (declare (not safe)) (##unchecked-structure-ref - _out100805100818_ + _out100802100815_ '2 gx#export-set::t '#f)))) - (let ((_src100878_ _e100810100875_) - (_phi100883_ _e100811100880_)) + (let ((_src100875_ _e100807100872_) + (_phi100880_ _e100808100877_)) (let () (declare (not safe)) - (_K100809100872_ _phi100883_ _src100878_)))) - (let () (declare (not safe)) (_E100808100822_)))))) + (_K100806100869_ _phi100880_ _src100875_)))) + (let () (declare (not safe)) (_E100805100819_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _out100805100818_ + _out100802100815_ 'gx#module-export::t)) - (let* ((_e100813100895_ + (let* ((_e100810100892_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _out100805100818_ + _out100802100815_ '1 gx#module-export::t '#f))) - (_e100814100898_ + (_e100811100895_ (let () (declare (not safe)) (##unchecked-structure-ref - _out100805100818_ + _out100802100815_ '2 gx#module-export::t '#f))) - (_e100815100903_ + (_e100812100900_ (let () (declare (not safe)) (##unchecked-structure-ref - _out100805100818_ + _out100802100815_ '3 gx#module-export::t '#f))) - (_e100816100908_ + (_e100813100905_ (let () (declare (not safe)) (##unchecked-structure-ref - _out100805100818_ + _out100802100815_ '4 gx#module-export::t '#f)))) - (let ((_key100901_ _e100814100898_) - (_phi100906_ _e100815100903_) - (_name100911_ _e100816100908_)) + (let ((_key100898_ _e100811100895_) + (_phi100903_ _e100812100900_) + (_name100908_ _e100813100905_)) (let () (declare (not safe)) - (_K100812100892_ _name100911_ _phi100906_ _key100901_)))) - (let () (declare (not safe)) (_try-match100807100885_))))))))) + (_K100809100889_ _name100908_ _phi100903_ _key100898_)))) + (let () (declare (not safe)) (_try-match100804100882_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest100784100792_)) - (let ((_hd100789100916_ + (##pair? _rest100781100789_)) + (let ((_hd100786100913_ (let () (declare (not safe)) - (##car _rest100784100792_))) - (_tl100790100918_ + (##car _rest100781100789_))) + (_tl100787100915_ (let () (declare (not safe)) - (##cdr _rest100784100792_)))) - (let* ((_out100921_ - _hd100789100916_) - (_rest100923_ - _tl100790100918_)) + (##cdr _rest100781100789_)))) + (let* ((_out100918_ + _hd100786100913_) + (_rest100920_ + _tl100787100915_)) (declare (not safe)) - (_K100788100913_ - _rest100923_ - _out100921_))) + (_K100785100910_ + _rest100920_ + _out100918_))) (let () (declare (not safe)) - (_else100786100800_)))))) - _tl100749100766_))) + (_else100783100797_)))))) + _tl100746100763_))) (let () (declare (not safe)) - (_g100746100756_ _g100747100759_)))))) + (_g100743100753_ _g100744100756_)))))) (declare (not safe)) - (_g100745100925_ _stx100740_))))) + (_g100742100922_ _stx100737_))))) (define gxc#generate-meta-provide% - (lambda (_stx100701_ _state100702_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state100702_)) - (let* ((_g100704100714_ - (lambda (_g100705100711_) + (lambda (_stx100698_ _state100699_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state100699_)) + (let* ((_g100701100711_ + (lambda (_g100702100708_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100705100711_)))) - (_g100703100737_ - (lambda (_g100705100717_) + _g100702100708_)))) + (_g100700100734_ + (lambda (_g100702100714_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100705100717_)) - (let ((_e100709100719_ + (gx#stx-pair? _g100702100714_)) + (let ((_e100706100716_ (let () (declare (not safe)) - (gx#stx-e _g100705100717_)))) - (let ((_hd100708100722_ + (gx#stx-e _g100702100714_)))) + (let ((_hd100705100719_ (let () (declare (not safe)) - (##car _e100709100719_))) - (_tl100707100724_ + (##car _e100706100716_))) + (_tl100704100721_ (let () (declare (not safe)) - (##cdr _e100709100719_)))) - ((lambda (_L100727_) - (let ((__tmp112082 + (##cdr _e100706100716_)))) + ((lambda (_L100724_) + (let ((__tmp112079 (map gxc#generate-runtime-identifier - _L100727_))) + _L100724_))) (declare (not safe)) - (cons '%#provide __tmp112082))) - _tl100707100724_))) + (cons '%#provide __tmp112079))) + _tl100704100721_))) (let () (declare (not safe)) - (_g100704100714_ _g100705100717_)))))) + (_g100701100711_ _g100702100714_)))))) (declare (not safe)) - (_g100703100737_ _stx100701_)))) + (_g100700100734_ _stx100698_)))) (define gxc#generate-meta-extern% - (lambda (_stx100572_ _state100573_) - (letrec ((_generate1100575_ - (lambda (_id100696_ _eid100697_) - (let ((_eid100699_ + (lambda (_stx100569_ _state100570_) + (letrec ((_generate1100572_ + (lambda (_id100693_ _eid100694_) + (let ((_eid100696_ (let () (declare (not safe)) - (gx#stx-e _eid100697_)))) - (if (interned-symbol? _eid100699_) + (gx#stx-e _eid100694_)))) + (if (interned-symbol? _eid100696_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile extern reference" - _stx100572_ - _eid100699_))) - (let ((__tmp112084 + _stx100569_ + _eid100696_))) + (let ((__tmp112081 (let () (declare (not safe)) - (gxc#generate-runtime-identifier _id100696_))) - (__tmp112083 + (gxc#generate-runtime-identifier _id100693_))) + (__tmp112080 (let () (declare (not safe)) - (cons _eid100699_ '())))) + (cons _eid100696_ '())))) (declare (not safe)) - (cons __tmp112084 __tmp112083)))))) - (let* ((_g100577100605_ - (lambda (_g100578100602_) + (cons __tmp112081 __tmp112080)))))) + (let* ((_g100574100602_ + (lambda (_g100575100599_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100578100602_)))) - (_g100576100693_ - (lambda (_g100578100608_) + _g100575100599_)))) + (_g100573100690_ + (lambda (_g100575100605_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100578100608_)) - (let ((_e100583100610_ + (gx#stx-pair? _g100575100605_)) + (let ((_e100580100607_ (let () (declare (not safe)) - (gx#stx-e _g100578100608_)))) - (let ((_hd100582100613_ + (gx#stx-e _g100575100605_)))) + (let ((_hd100579100610_ (let () (declare (not safe)) - (##car _e100583100610_))) - (_tl100581100615_ + (##car _e100580100607_))) + (_tl100578100612_ (let () (declare (not safe)) - (##cdr _e100583100610_)))) + (##cdr _e100580100607_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl100581100615_)) - (let ((_g112085_ + (gx#stx-pair/null? _tl100578100612_)) + (let ((_g112082_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl100581100615_ + _tl100578100612_ '0)))) (begin - (let ((_g112086_ + (let ((_g112083_ (let () (declare (not safe)) - (if (##values? _g112085_) - (##vector-length _g112085_) + (if (##values? _g112082_) + (##vector-length _g112082_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g112086_ 2))) + (##fx= _g112083_ 2))) (error "Context expects 2 values" - _g112086_))) - (let ((_target100584100618_ + _g112083_))) + (let ((_target100581100615_ (let () (declare (not safe)) - (##vector-ref _g112085_ 0))) - (_tl100586100620_ + (##vector-ref _g112082_ 0))) + (_tl100583100617_ (let () (declare (not safe)) - (##vector-ref _g112085_ 1)))) + (##vector-ref _g112082_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl100586100620_)) - (letrec ((_loop100587100623_ - (lambda (_hd100585100626_ - _eid100591100628_ - _id100592100630_) + (gx#stx-null? _tl100583100617_)) + (letrec ((_loop100584100620_ + (lambda (_hd100582100623_ + _eid100588100625_ + _id100589100627_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd100585100626_)) - (let ((_e100588100633_ + _hd100582100623_)) + (let ((_e100585100630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd100585100626_)))) - (let ((_lp-hd100589100636_ + (gx#stx-e _hd100582100623_)))) + (let ((_lp-hd100586100633_ (let () (declare (not safe)) - (##car _e100588100633_))) - (_lp-tl100590100638_ + (##car _e100585100630_))) + (_lp-tl100587100635_ (let () (declare (not safe)) - (##cdr _e100588100633_)))) + (##cdr _e100585100630_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd100589100636_)) - (let ((_e100597100641_ + (gx#stx-pair? _lp-hd100586100633_)) + (let ((_e100594100638_ (let () (declare (not safe)) - (gx#stx-e _lp-hd100589100636_)))) - (let ((_hd100596100644_ + (gx#stx-e _lp-hd100586100633_)))) + (let ((_hd100593100641_ (let () (declare (not safe)) - (##car _e100597100641_))) - (_tl100595100646_ + (##car _e100594100638_))) + (_tl100592100643_ (let () (declare (not safe)) - (##cdr _e100597100641_)))) + (##cdr _e100594100638_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100595100646_)) - (let ((_e100600100649_ + (gx#stx-pair? _tl100592100643_)) + (let ((_e100597100646_ (let () (declare (not safe)) - (gx#stx-e _tl100595100646_)))) - (let ((_hd100599100652_ + (gx#stx-e _tl100592100643_)))) + (let ((_hd100596100649_ (let () (declare (not safe)) - (##car _e100600100649_))) - (_tl100598100654_ + (##car _e100597100646_))) + (_tl100595100651_ (let () (declare (not safe)) - (##cdr _e100600100649_)))) + (##cdr _e100597100646_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl100598100654_)) - (let ((__tmp112091 + (gx#stx-null? _tl100595100651_)) + (let ((__tmp112088 (let () (declare (not safe)) - (cons _hd100599100652_ - _eid100591100628_))) - (__tmp112090 + (cons _hd100596100649_ + _eid100588100625_))) + (__tmp112087 (let () (declare (not safe)) - (cons _hd100596100644_ - _id100592100630_)))) + (cons _hd100593100641_ + _id100589100627_)))) (declare (not safe)) - (_loop100587100623_ - _lp-tl100590100638_ - __tmp112091 - __tmp112090)) + (_loop100584100620_ + _lp-tl100587100635_ + __tmp112088 + __tmp112087)) (let () (declare (not safe)) - (_g100577100605_ - _g100578100608_))))) + (_g100574100602_ + _g100575100605_))))) (let () (declare (not safe)) - (_g100577100605_ _g100578100608_))))) + (_g100574100602_ _g100575100605_))))) (let () (declare (not safe)) - (_g100577100605_ _g100578100608_))))) - (let ((_eid100593100657_ (reverse _eid100591100628_)) - (_id100594100659_ (reverse _id100592100630_))) - ((lambda (_L100662_ _L100663_) - (let ((__tmp112087 - (map _generate1100575_ - (let ((__tmp112088 - (lambda (_g100678100681_ - _g100679100683_) + (_g100574100602_ _g100575100605_))))) + (let ((_eid100590100654_ (reverse _eid100588100625_)) + (_id100591100656_ (reverse _id100589100627_))) + ((lambda (_L100659_ _L100660_) + (let ((__tmp112084 + (map _generate1100572_ + (let ((__tmp112085 + (lambda (_g100675100678_ + _g100676100680_) (let () (declare (not safe)) - (cons _g100678100681_ - _g100679100683_))))) + (cons _g100675100678_ + _g100676100680_))))) (declare (not safe)) - (foldr1 __tmp112088 '() _L100663_)) - (let ((__tmp112089 - (lambda (_g100685100688_ - _g100686100690_) + (foldr1 __tmp112085 '() _L100660_)) + (let ((__tmp112086 + (lambda (_g100682100685_ + _g100683100687_) (let () (declare (not safe)) - (cons _g100685100688_ - _g100686100690_))))) + (cons _g100682100685_ + _g100683100687_))))) (declare (not safe)) - (foldr1 __tmp112089 '() _L100662_))))) + (foldr1 __tmp112086 '() _L100659_))))) (declare (not safe)) - (cons '%#extern __tmp112087))) - _eid100593100657_ - _id100594100659_)))))) + (cons '%#extern __tmp112084))) + _eid100590100654_ + _id100591100656_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop100587100623_ - _target100584100618_ + (_loop100584100620_ + _target100581100615_ '() '()))) (let () (declare (not safe)) - (_g100577100605_ - _g100578100608_)))))) + (_g100574100602_ + _g100575100605_)))))) (let () (declare (not safe)) - (_g100577100605_ _g100578100608_))))) + (_g100574100602_ _g100575100605_))))) (let () (declare (not safe)) - (_g100577100605_ _g100578100608_)))))) + (_g100574100602_ _g100575100605_)))))) (declare (not safe)) - (_g100576100693_ _stx100572_))))) + (_g100573100690_ _stx100569_))))) (define gxc#generate-meta-define-values% - (lambda (_stx100362_ _state100363_) - (letrec ((_generate1100365_ - (lambda (_id100567_) - (let ((_eid100569_ + (lambda (_stx100359_ _state100360_) + (letrec ((_generate1100362_ + (lambda (_id100564_) + (let ((_eid100566_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id100567_))) - (_ident100570_ + (gxc#generate-runtime-binding-id _id100564_))) + (_ident100567_ (let () (declare (not safe)) - (gxc#generate-runtime-identifier _id100567_)))) - (let ((__tmp112092 - (let ((__tmp112093 + (gxc#generate-runtime-identifier _id100564_)))) + (let ((__tmp112089 + (let ((__tmp112090 (let () (declare (not safe)) - (cons _eid100569_ '())))) + (cons _eid100566_ '())))) (declare (not safe)) - (cons _ident100570_ __tmp112093)))) + (cons _ident100567_ __tmp112090)))) (declare (not safe)) - (cons '%#define-runtime __tmp112092))))) - (_generate*100366_ - (lambda (_all100535_) - (let* ((_all100536100544_ _all100535_) - (_else100538100552_ + (cons '%#define-runtime __tmp112089))))) + (_generate*100363_ + (lambda (_all100532_) + (let* ((_all100533100541_ _all100532_) + (_else100535100549_ (lambda () (let () (declare (not safe)) - (cons '%#begin _all100535_)))) - (_K100540100557_ - (lambda (_one100555_) _one100555_))) + (cons '%#begin _all100532_)))) + (_K100537100554_ + (lambda (_one100552_) _one100552_))) (if (let () (declare (not safe)) - (##pair? _all100536100544_)) - (let ((_hd100541100560_ + (##pair? _all100533100541_)) + (let ((_hd100538100557_ (let () (declare (not safe)) - (##car _all100536100544_))) - (_tl100542100562_ + (##car _all100533100541_))) + (_tl100539100559_ (let () (declare (not safe)) - (##cdr _all100536100544_)))) - (let ((_one100565_ _hd100541100560_)) + (##cdr _all100533100541_)))) + (let ((_one100562_ _hd100538100557_)) (if (let () (declare (not safe)) - (##null? _tl100542100562_)) + (##null? _tl100539100559_)) (let () (declare (not safe)) - (_K100540100557_ _one100565_)) + (_K100537100554_ _one100562_)) (let () (declare (not safe)) - (_else100538100552_))))) + (_else100535100549_))))) (let () (declare (not safe)) - (_else100538100552_))))))) - (let* ((_g100368100385_ - (lambda (_g100369100382_) + (_else100535100549_))))))) + (let* ((_g100365100382_ + (lambda (_g100366100379_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100369100382_)))) - (_g100367100532_ - (lambda (_g100369100388_) + _g100366100379_)))) + (_g100364100529_ + (lambda (_g100366100385_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100369100388_)) - (let ((_e100374100390_ + (gx#stx-pair? _g100366100385_)) + (let ((_e100371100387_ (let () (declare (not safe)) - (gx#stx-e _g100369100388_)))) - (let ((_hd100373100393_ + (gx#stx-e _g100366100385_)))) + (let ((_hd100370100390_ (let () (declare (not safe)) - (##car _e100374100390_))) - (_tl100372100395_ + (##car _e100371100387_))) + (_tl100369100392_ (let () (declare (not safe)) - (##cdr _e100374100390_)))) + (##cdr _e100371100387_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100372100395_)) - (let ((_e100377100398_ + (gx#stx-pair? _tl100369100392_)) + (let ((_e100374100395_ (let () (declare (not safe)) - (gx#stx-e _tl100372100395_)))) - (let ((_hd100376100401_ + (gx#stx-e _tl100369100392_)))) + (let ((_hd100373100398_ (let () (declare (not safe)) - (##car _e100377100398_))) - (_tl100375100403_ + (##car _e100374100395_))) + (_tl100372100400_ (let () (declare (not safe)) - (##cdr _e100377100398_)))) + (##cdr _e100374100395_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100375100403_)) - (let ((_e100380100406_ + (gx#stx-pair? _tl100372100400_)) + (let ((_e100377100403_ (let () (declare (not safe)) (gx#stx-e - _tl100375100403_)))) - (let ((_hd100379100409_ + _tl100372100400_)))) + (let ((_hd100376100406_ (let () (declare (not safe)) - (##car _e100380100406_))) - (_tl100378100411_ + (##car _e100377100403_))) + (_tl100375100408_ (let () (declare (not safe)) - (##cdr _e100380100406_)))) + (##cdr _e100377100403_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl100378100411_)) - ((lambda (_L100414_ - _L100415_) - (let _lp100431_ ((_rest100433_ + _tl100375100408_)) + ((lambda (_L100411_ + _L100412_) + (let _lp100428_ ((_rest100430_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L100415_) - (_r100434_ '())) - (let* ((___stx111225111226_ _rest100433_) - (_g100439100456_ + _L100412_) + (_r100431_ '())) + (let* ((___stx111222111223_ _rest100430_) + (_g100436100453_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx111225111226_))))) - (let ((___kont111227111228_ - (lambda (_L100519_) + ___stx111222111223_))))) + (let ((___kont111224111225_ + (lambda (_L100516_) (let () (declare (not safe)) - (_lp100431_ _L100519_ _r100434_)))) - (___kont111229111230_ - (lambda (_L100492_ _L100493_) - (let ((__tmp112094 - (let ((__tmp112095 + (_lp100428_ _L100516_ _r100431_)))) + (___kont111226111227_ + (lambda (_L100489_ _L100490_) + (let ((__tmp112091 + (let ((__tmp112092 (let () (declare (not safe)) - (_generate1100365_ _L100493_)))) + (_generate1100362_ _L100490_)))) (declare (not safe)) - (cons __tmp112095 _r100434_)))) + (cons __tmp112092 _r100431_)))) (declare (not safe)) - (_lp100431_ _L100492_ __tmp112094)))) - (___kont111231111232_ - (lambda (_L100468_) - (let ((__tmp112096 - (let ((__tmp112097 - (let ((__tmp112098 + (_lp100428_ _L100489_ __tmp112091)))) + (___kont111228111229_ + (lambda (_L100465_) + (let ((__tmp112093 + (let ((__tmp112094 + (let ((__tmp112095 (let () (declare (not safe)) - (_generate1100365_ - _L100468_)))) + (_generate1100362_ + _L100465_)))) (declare (not safe)) - (cons __tmp112098 '())))) + (cons __tmp112095 '())))) (declare (not safe)) - (foldl1 cons __tmp112097 _r100434_)))) + (foldl1 cons __tmp112094 _r100431_)))) (declare (not safe)) - (_generate*100366_ __tmp112096)))) - (___kont111233111234_ + (_generate*100363_ __tmp112093)))) + (___kont111230111231_ (lambda () - (let ((__tmp112099 (reverse _r100434_))) + (let ((__tmp112096 (reverse _r100431_))) (declare (not safe)) - (_generate*100366_ __tmp112099))))) - (let ((_g100437100479_ + (_generate*100363_ __tmp112096))))) + (let ((_g100434100476_ (lambda () - (let ((_L100468_ ___stx111225111226_)) + (let ((_L100465_ ___stx111222111223_)) (if (let () (declare (not safe)) - (gx#identifier? _L100468_)) - (___kont111231111232_ _L100468_) - (___kont111233111234_)))))) + (gx#identifier? _L100465_)) + (___kont111228111229_ _L100465_) + (___kont111230111231_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx111225111226_)) - (let ((_e100444100508_ + (gx#stx-pair? ___stx111222111223_)) + (let ((_e100441100505_ (let () (declare (not safe)) - (gx#stx-e ___stx111225111226_)))) - (let ((_tl100442100513_ + (gx#stx-e ___stx111222111223_)))) + (let ((_tl100439100510_ (let () (declare (not safe)) - (##cdr _e100444100508_))) - (_hd100443100511_ + (##cdr _e100441100505_))) + (_hd100440100508_ (let () (declare (not safe)) - (##car _e100444100508_)))) + (##car _e100441100505_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd100443100511_)) - (let ((_e100445100516_ + (gx#stx-datum? _hd100440100508_)) + (let ((_e100442100513_ (let () (declare (not safe)) - (gx#stx-e _hd100443100511_)))) + (gx#stx-e _hd100440100508_)))) (if (let () (declare (not safe)) - (equal? _e100445100516_ '#f)) - (___kont111227111228_ _tl100442100513_) - (___kont111229111230_ - _tl100442100513_ - _hd100443100511_))) - (___kont111229111230_ - _tl100442100513_ - _hd100443100511_)))) - (let () (declare (not safe)) (_g100437100479_)))))))) + (equal? _e100442100513_ '#f)) + (___kont111224111225_ _tl100439100510_) + (___kont111226111227_ + _tl100439100510_ + _hd100440100508_))) + (___kont111226111227_ + _tl100439100510_ + _hd100440100508_)))) + (let () (declare (not safe)) (_g100434100476_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd100379100409_ - _hd100376100401_) + _hd100376100406_ + _hd100373100398_) (let () (declare (not safe)) - (_g100368100385_ - _g100369100388_))))) + (_g100365100382_ + _g100366100385_))))) (let () (declare (not safe)) - (_g100368100385_ - _g100369100388_))))) + (_g100365100382_ + _g100366100385_))))) (let () (declare (not safe)) - (_g100368100385_ _g100369100388_))))) + (_g100365100382_ _g100366100385_))))) (let () (declare (not safe)) - (_g100368100385_ _g100369100388_)))))) + (_g100365100382_ _g100366100385_)))))) (declare (not safe)) - (_g100367100532_ _stx100362_))))) + (_g100364100529_ _stx100359_))))) (define gxc#generate-meta-define-syntax% - (lambda (_stx100259_ _state100260_) - (let* ((_g100262100279_ - (lambda (_g100263100276_) + (lambda (_stx100256_ _state100257_) + (let* ((_g100259100276_ + (lambda (_g100260100273_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100263100276_)))) - (_g100261100359_ - (lambda (_g100263100282_) + _g100260100273_)))) + (_g100258100356_ + (lambda (_g100260100279_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100263100282_)) - (let ((_e100268100284_ + (gx#stx-pair? _g100260100279_)) + (let ((_e100265100281_ (let () (declare (not safe)) - (gx#stx-e _g100263100282_)))) - (let ((_hd100267100287_ + (gx#stx-e _g100260100279_)))) + (let ((_hd100264100284_ (let () (declare (not safe)) - (##car _e100268100284_))) - (_tl100266100289_ + (##car _e100265100281_))) + (_tl100263100286_ (let () (declare (not safe)) - (##cdr _e100268100284_)))) + (##cdr _e100265100281_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100266100289_)) - (let ((_e100271100292_ + (gx#stx-pair? _tl100263100286_)) + (let ((_e100268100289_ (let () (declare (not safe)) - (gx#stx-e _tl100266100289_)))) - (let ((_hd100270100295_ + (gx#stx-e _tl100263100286_)))) + (let ((_hd100267100292_ (let () (declare (not safe)) - (##car _e100271100292_))) - (_tl100269100297_ + (##car _e100268100289_))) + (_tl100266100294_ (let () (declare (not safe)) - (##cdr _e100271100292_)))) + (##cdr _e100268100289_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100269100297_)) - (let ((_e100274100300_ + (gx#stx-pair? _tl100266100294_)) + (let ((_e100271100297_ (let () (declare (not safe)) - (gx#stx-e _tl100269100297_)))) - (let ((_hd100273100303_ + (gx#stx-e _tl100266100294_)))) + (let ((_hd100270100300_ (let () (declare (not safe)) - (##car _e100274100300_))) - (_tl100272100305_ + (##car _e100271100297_))) + (_tl100269100302_ (let () (declare (not safe)) - (##cdr _e100274100300_)))) + (##cdr _e100271100297_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl100272100305_)) - ((lambda (_L100308_ _L100309_) - (let* ((_eid100324_ + _tl100269100302_)) + ((lambda (_L100305_ _L100306_) + (let* ((_eid100321_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L100309_))) - (_phi100326_ - (let ((__tmp112100 + _L100306_))) + (_phi100323_ + (let ((__tmp112097 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp112100 '1))) - (_block100328_ + (fx+ __tmp112097 '1))) + (_block100325_ (let () (declare (not safe)) - (gxc#meta-state-begin-phi! _state100260_ _phi100326_)))) + (gxc#meta-state-begin-phi! _state100257_ _phi100323_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_g100331100338_ - (lambda (_g100332100335_) + (let* ((_g100328100335_ + (lambda (_g100329100332_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100332100335_)))) - (_g100330100356_ - (lambda (_g100332100341_) - ((lambda (_L100343_) + _g100329100332_)))) + (_g100327100353_ + (lambda (_g100329100338_) + ((lambda (_L100340_) (let () - (let ((__tmp112101 - (let ((__tmp112104 + (let ((__tmp112098 + (let ((__tmp112101 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#define-runtime))) - (__tmp112102 - (let ((__tmp112103 + (__tmp112099 + (let ((__tmp112100 (let () (declare (not safe)) - (cons _L100308_ '())))) + (cons _L100305_ '())))) (declare (not safe)) - (cons _L100343_ __tmp112103)))) + (cons _L100340_ __tmp112100)))) (declare (not safe)) - (cons __tmp112104 __tmp112102)))) + (cons __tmp112101 __tmp112099)))) (declare (not safe)) (gxc#meta-state-add-phi! - _state100260_ - _phi100326_ - __tmp112101)))) - _g100332100341_)))) + _state100257_ + _phi100323_ + __tmp112098)))) + _g100329100338_)))) (declare (not safe)) - (_g100330100356_ _eid100324_)) + (_g100327100353_ _eid100321_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _block100328_ - (let ((__tmp112108 - (let ((__tmp112114 + (if _block100325_ + (let ((__tmp112105 + (let ((__tmp112111 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112115 - (let ((__tmp112116 - (let ((__tmp112117 - (let ((__tmp112121 - (let ((__tmp112122 + (let ((__tmp112112 + (let ((__tmp112113 + (let ((__tmp112114 + (let ((__tmp112118 + (let ((__tmp112119 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp112122))) - (__tmp112118 - (let ((__tmp112119 - (let ((__tmp112120 + (cons '%#ref __tmp112119))) + (__tmp112115 + (let ((__tmp112116 + (let ((__tmp112117 (let () (declare (not safe)) - (cons _block100328_ '())))) + (cons _block100325_ '())))) (declare (not safe)) - (cons '%#quote __tmp112120)))) + (cons '%#quote __tmp112117)))) (declare (not safe)) - (cons __tmp112119 '())))) + (cons __tmp112116 '())))) (declare (not safe)) - (cons __tmp112121 __tmp112118)))) + (cons __tmp112118 __tmp112115)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp112117)))) + (cons '%#call __tmp112114)))) (declare (not safe)) - (cons __tmp112116 '())))) + (cons __tmp112113 '())))) (declare (not safe)) - (cons '%#begin-syntax __tmp112115))) - (__tmp112109 - (let ((__tmp112110 - (let ((__tmp112111 - (let ((__tmp112113 + (cons '%#begin-syntax __tmp112112))) + (__tmp112106 + (let ((__tmp112107 + (let ((__tmp112108 + (let ((__tmp112110 (let () (declare (not safe)) (gxc#generate-runtime-identifier - _L100309_))) - (__tmp112112 + _L100306_))) + (__tmp112109 (let () (declare (not safe)) - (cons _eid100324_ '())))) + (cons _eid100321_ '())))) (declare (not safe)) - (cons __tmp112113 - __tmp112112)))) + (cons __tmp112110 + __tmp112109)))) (declare (not safe)) - (cons '%#define-syntax __tmp112111)))) + (cons '%#define-syntax __tmp112108)))) (declare (not safe)) - (cons __tmp112110 '())))) + (cons __tmp112107 '())))) (declare (not safe)) - (cons __tmp112114 __tmp112109)))) + (cons __tmp112111 __tmp112106)))) (declare (not safe)) - (cons '%#begin __tmp112108)) - (let ((__tmp112105 - (let ((__tmp112107 + (cons '%#begin __tmp112105)) + (let ((__tmp112102 + (let ((__tmp112104 (let () (declare (not safe)) - (gxc#generate-runtime-identifier _L100309_))) - (__tmp112106 + (gxc#generate-runtime-identifier _L100306_))) + (__tmp112103 (let () (declare (not safe)) - (cons _eid100324_ '())))) + (cons _eid100321_ '())))) (declare (not safe)) - (cons __tmp112107 __tmp112106)))) + (cons __tmp112104 __tmp112103)))) (declare (not safe)) - (cons '%#define-syntax __tmp112105))))) + (cons '%#define-syntax __tmp112102))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd100273100303_ - _hd100270100295_) + _hd100270100300_ + _hd100267100292_) (let () (declare (not safe)) - (_g100262100279_ - _g100263100282_))))) + (_g100259100276_ + _g100260100279_))))) (let () (declare (not safe)) - (_g100262100279_ _g100263100282_))))) + (_g100259100276_ _g100260100279_))))) (let () (declare (not safe)) - (_g100262100279_ _g100263100282_))))) + (_g100259100276_ _g100260100279_))))) (let () (declare (not safe)) - (_g100262100279_ _g100263100282_)))))) + (_g100259100276_ _g100260100279_)))))) (declare (not safe)) - (_g100261100359_ _stx100259_)))) + (_g100258100356_ _stx100256_)))) (define gxc#generate-meta-define-alias% - (lambda (_stx100191_ _state100192_) - (let* ((_g100194100211_ - (lambda (_g100195100208_) + (lambda (_stx100188_ _state100189_) + (let* ((_g100191100208_ + (lambda (_g100192100205_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100195100208_)))) - (_g100193100256_ - (lambda (_g100195100214_) + _g100192100205_)))) + (_g100190100253_ + (lambda (_g100192100211_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100195100214_)) - (let ((_e100200100216_ + (gx#stx-pair? _g100192100211_)) + (let ((_e100197100213_ (let () (declare (not safe)) - (gx#stx-e _g100195100214_)))) - (let ((_hd100199100219_ + (gx#stx-e _g100192100211_)))) + (let ((_hd100196100216_ (let () (declare (not safe)) - (##car _e100200100216_))) - (_tl100198100221_ + (##car _e100197100213_))) + (_tl100195100218_ (let () (declare (not safe)) - (##cdr _e100200100216_)))) + (##cdr _e100197100213_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100198100221_)) - (let ((_e100203100224_ + (gx#stx-pair? _tl100195100218_)) + (let ((_e100200100221_ (let () (declare (not safe)) - (gx#stx-e _tl100198100221_)))) - (let ((_hd100202100227_ + (gx#stx-e _tl100195100218_)))) + (let ((_hd100199100224_ (let () (declare (not safe)) - (##car _e100203100224_))) - (_tl100201100229_ + (##car _e100200100221_))) + (_tl100198100226_ (let () (declare (not safe)) - (##cdr _e100203100224_)))) + (##cdr _e100200100221_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100201100229_)) - (let ((_e100206100232_ + (gx#stx-pair? _tl100198100226_)) + (let ((_e100203100229_ (let () (declare (not safe)) - (gx#stx-e _tl100201100229_)))) - (let ((_hd100205100235_ + (gx#stx-e _tl100198100226_)))) + (let ((_hd100202100232_ (let () (declare (not safe)) - (##car _e100206100232_))) - (_tl100204100237_ + (##car _e100203100229_))) + (_tl100201100234_ (let () (declare (not safe)) - (##cdr _e100206100232_)))) + (##cdr _e100203100229_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl100204100237_)) - ((lambda (_L100240_ _L100241_) - (let ((__tmp112123 - (let ((__tmp112126 + _tl100201100234_)) + ((lambda (_L100237_ _L100238_) + (let ((__tmp112120 + (let ((__tmp112123 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-identifier _L100241_))) - (__tmp112124 - (let ((__tmp112125 + (gxc#generate-runtime-identifier _L100238_))) + (__tmp112121 + (let ((__tmp112122 (let () (declare (not safe)) (gxc#generate-runtime-identifier - _L100240_)))) + _L100237_)))) (declare (not safe)) - (cons __tmp112125 '())))) + (cons __tmp112122 '())))) (declare (not safe)) - (cons __tmp112126 __tmp112124)))) + (cons __tmp112123 __tmp112121)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#define-alias - __tmp112123))) - _hd100205100235_ - _hd100202100227_) + __tmp112120))) + _hd100202100232_ + _hd100199100224_) (let () (declare (not safe)) - (_g100194100211_ - _g100195100214_))))) + (_g100191100208_ + _g100192100211_))))) (let () (declare (not safe)) - (_g100194100211_ _g100195100214_))))) + (_g100191100208_ _g100192100211_))))) (let () (declare (not safe)) - (_g100194100211_ _g100195100214_))))) + (_g100191100208_ _g100192100211_))))) (let () (declare (not safe)) - (_g100194100211_ _g100195100214_)))))) + (_g100191100208_ _g100192100211_)))))) (declare (not safe)) - (_g100193100256_ _stx100191_)))) + (_g100190100253_ _stx100188_)))) (define gxc#generate-meta-phi-define-values% - (lambda (_stx100188_ _state100189_) - (let ((__tmp112127 (gx#current-expander-phi))) + (lambda (_stx100185_ _state100186_) + (let ((__tmp112124 (gx#current-expander-phi))) (declare (not safe)) - (gxc#meta-state-add-phi! _state100189_ __tmp112127 _stx100188_)) + (gxc#meta-state-add-phi! _state100186_ __tmp112124 _stx100185_)) (let () (declare (not safe)) - (gxc#generate-meta-define-values% _stx100188_ _state100189_)))) + (gxc#generate-meta-define-values% _stx100185_ _state100186_)))) (define gxc#generate-meta-phi-expr - (lambda (_stx100185_ _state100186_) - (let ((__tmp112128 (gx#current-expander-phi))) + (lambda (_stx100182_ _state100183_) + (let ((__tmp112125 (gx#current-expander-phi))) (declare (not safe)) - (gxc#meta-state-add-phi! _state100186_ __tmp112128 _stx100185_)) + (gxc#meta-state-add-phi! _state100183_ __tmp112125 _stx100182_)) '#!void)) (define gxc#meta-state::t - (let ((__tmp112131 (list)) - (__tmp112129 - (let ((__tmp112130 + (let ((__tmp112128 (list)) + (__tmp112126 + (let ((__tmp112127 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp112130 '())))) + (cons __tmp112127 '())))) (declare (not safe)) (make-class-type 'gxc#meta-state::t 'meta-state - __tmp112131 + __tmp112128 '(src n open blocks) - __tmp112129 + __tmp112126 ':init!))) (define gxc#meta-state? (let () (declare (not safe)) (make-class-predicate gxc#meta-state::t))) (define gxc#make-meta-state - (lambda _$args100182_ - (apply make-instance gxc#meta-state::t _$args100182_))) + (lambda _$args100179_ + (apply make-instance gxc#meta-state::t _$args100179_))) (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 (_self100179_ _ctx100180_) - (if (let ((__tmp112140 + (lambda (_self100176_ _ctx100177_) + (if (let ((__tmp112137 (let () (declare (not safe)) - (##structure-length _self100179_)))) + (##structure-length _self100176_)))) (declare (not safe)) - (##fx< '4 __tmp112140)) + (##fx< '4 __tmp112137)) (begin - (let ((__tmp112134 - (let ((__tmp112135 + (let ((__tmp112131 + (let ((__tmp112132 (##structure-ref - _ctx100180_ + _ctx100177_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp112135))) - (__tmp112133 + (gxc#module-id->path-string __tmp112132))) + (__tmp112130 (let () (declare (not safe)) - (##structure-type _self100179_)))) + (##structure-type _self100176_)))) (declare (not safe)) (##unchecked-structure-set! - _self100179_ - __tmp112134 + _self100176_ + __tmp112131 '1 - __tmp112133 + __tmp112130 '#f)) - (let ((__tmp112136 + (let ((__tmp112133 (let () (declare (not safe)) - (##structure-type _self100179_)))) + (##structure-type _self100176_)))) (declare (not safe)) (##unchecked-structure-set! - _self100179_ + _self100176_ '1 '2 - __tmp112136 + __tmp112133 '#f)) - (let ((__tmp112138 + (let ((__tmp112135 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp112137 + (__tmp112134 (let () (declare (not safe)) - (##structure-type _self100179_)))) + (##structure-type _self100176_)))) (declare (not safe)) (##unchecked-structure-set! - _self100179_ - __tmp112138 + _self100176_ + __tmp112135 '3 - __tmp112137 + __tmp112134 '#f)) - (let ((__tmp112139 + (let ((__tmp112136 (let () (declare (not safe)) - (##structure-type _self100179_)))) + (##structure-type _self100176_)))) (declare (not safe)) (##unchecked-structure-set! - _self100179_ + _self100176_ '() '4 - __tmp112139 + __tmp112136 '#f))) - (let ((__tmp112132 + (let ((__tmp112129 (let () (declare (not safe)) - (##vector-length _self100179_)))) + (##vector-length _self100176_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self100179_ + _self100176_ '4 - __tmp112132))))) + __tmp112129))))) (let () (declare (not safe)) (bind-method!__% gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) (define gxc#meta-state-block::t - (let ((__tmp112143 (list)) - (__tmp112141 - (let ((__tmp112142 + (let ((__tmp112140 (list)) + (__tmp112138 + (let ((__tmp112139 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp112142 '())))) + (cons __tmp112139 '())))) (declare (not safe)) (make-class-type 'gxc#meta-state-block::t 'meta-state-block - __tmp112143 + __tmp112140 '(ctx phi n code) - __tmp112141 + __tmp112138 '#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 _$args100054_ - (apply make-instance gxc#meta-state-block::t _$args100054_))) + (lambda _$args100051_ + (apply make-instance gxc#meta-state-block::t _$args100051_))) (define gxc#meta-state-block-ctx (let () (declare (not safe)) @@ -18330,1250 +18330,1250 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#meta-state-block::t 'code))) (define gxc#meta-state-begin-phi! - (lambda (_state100013_ _phi100014_) - (let* ((_state100015100023_ _state100013_) - (_E100017100027_ + (lambda (_state100010_ _phi100011_) + (let* ((_state100012100020_ _state100010_) + (_E100014100024_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _state100015100023_)))) - (_K100018100036_ - (lambda (_open100030_ _n100031_ _src100032_) + (error '"No clause matching" _state100012100020_)))) + (_K100015100033_ + (lambda (_open100027_ _n100028_ _src100029_) (if (let () (declare (not safe)) - (hash-get _open100030_ _phi100014_)) + (hash-get _open100027_ _phi100011_)) '#f - (let ((_block-ref100034_ + (let ((_block-ref100031_ (string-append - _src100032_ + _src100029_ '"__" - (number->string _n100031_)))) + (number->string _n100028_)))) (##structure-set! - _state100013_ - (let () (declare (not safe)) (fx+ _n100031_ '1)) + _state100010_ + (let () (declare (not safe)) (fx+ _n100028_ '1)) '2 gxc#meta-state::t '#f) - (let ((__tmp112144 - (let ((__tmp112145 + (let ((__tmp112141 + (let ((__tmp112142 (gx#current-expander-context))) (declare (not safe)) (##structure gxc#meta-state-block::t - __tmp112145 - _phi100014_ - _n100031_ + __tmp112142 + _phi100011_ + _n100028_ '())))) (declare (not safe)) - (hash-put! _open100030_ _phi100014_ __tmp112144)) - _block-ref100034_))))) + (hash-put! _open100027_ _phi100011_ __tmp112141)) + _block-ref100031_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _state100015100023_ + _state100012100020_ 'gxc#meta-state::t)) - (let* ((_e100019100039_ + (let* ((_e100016100036_ (let () (declare (not safe)) (##unchecked-structure-ref - _state100015100023_ + _state100012100020_ '1 gxc#meta-state::t '#f))) - (_src100042_ _e100019100039_) - (_e100020100044_ + (_src100039_ _e100016100036_) + (_e100017100041_ (let () (declare (not safe)) (##unchecked-structure-ref - _state100015100023_ + _state100012100020_ '2 gxc#meta-state::t '#f))) - (_n100047_ _e100020100044_) - (_e100021100049_ + (_n100044_ _e100017100041_) + (_e100018100046_ (let () (declare (not safe)) (##unchecked-structure-ref - _state100015100023_ + _state100012100020_ '3 gxc#meta-state::t '#f))) - (_open100052_ _e100021100049_)) + (_open100049_ _e100018100046_)) (declare (not safe)) - (_K100018100036_ _open100052_ _n100047_ _src100042_)) - (let () (declare (not safe)) (_E100017100027_)))))) + (_K100015100033_ _open100049_ _n100044_ _src100039_)) + (let () (declare (not safe)) (_E100014100024_)))))) (define gxc#meta-state-add-phi! - (lambda (_state100007_ _phi100008_ _stx100009_) - (let ((_block100011_ - (let ((__tmp112146 + (lambda (_state100004_ _phi100005_ _stx100006_) + (let ((_block100008_ + (let ((__tmp112143 (##structure-ref - _state100007_ + _state100004_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-get __tmp112146 _phi100008_)))) + (hash-get __tmp112143 _phi100005_)))) (##structure-set! - _block100011_ - (let ((__tmp112147 + _block100008_ + (let ((__tmp112144 (##structure-ref - _block100011_ + _block100008_ '4 gxc#meta-state-block::t '#f))) (declare (not safe)) - (cons _stx100009_ __tmp112147)) + (cons _stx100006_ __tmp112144)) '4 gxc#meta-state-block::t '#f)))) (define gxc#meta-state-end-phi! - (lambda (_state100002_) + (lambda (_state99999_) (##structure-set! - _state100002_ - (let ((__tmp112150 - (lambda (_g112151_ _block100004_ _r100005_) + _state99999_ + (let ((__tmp112147 + (lambda (_g112148_ _block100001_ _r100002_) (let () (declare (not safe)) - (cons _block100004_ _r100005_)))) - (__tmp112149 - (##structure-ref _state100002_ '4 gxc#meta-state::t '#f)) - (__tmp112148 - (##structure-ref _state100002_ '3 gxc#meta-state::t '#f))) + (cons _block100001_ _r100002_)))) + (__tmp112146 + (##structure-ref _state99999_ '4 gxc#meta-state::t '#f)) + (__tmp112145 + (##structure-ref _state99999_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-fold __tmp112150 __tmp112149 __tmp112148)) + (hash-fold __tmp112147 __tmp112146 __tmp112145)) '4 gxc#meta-state::t '#f) (##structure-set! - _state100002_ + _state99999_ (let () (declare (not safe)) (make-hash-table-eq)) '3 gxc#meta-state::t '#f))) (define gxc#meta-state-end! - (lambda (_state99954_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state99954_)) - (let ((__tmp112153 - (lambda (_block99956_ _r99957_) - (let* ((_block9995899967_ _block99956_) - (_E9996099971_ + (lambda (_state99951_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state99951_)) + (let ((__tmp112150 + (lambda (_block99953_ _r99954_) + (let* ((_block9995599964_ _block99953_) + (_E9995799968_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block9995899967_)))) - (_K9996199979_ - (lambda (_code99974_ _n99975_ _phi99976_ _ctx99977_) + _block9995599964_)))) + (_K9995899976_ + (lambda (_code99971_ _n99972_ _phi99973_ _ctx99974_) (if (let () (declare (not safe)) - (null? _code99974_)) - _r99957_ - (let ((__tmp112154 - (let ((__tmp112155 - (let ((__tmp112156 - (let ((__tmp112157 - (let ((__tmp112158 + (null? _code99971_)) + _r99954_ + (let ((__tmp112151 + (let ((__tmp112152 + (let ((__tmp112153 + (let ((__tmp112154 + (let ((__tmp112155 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112159 (reverse _code99974_))) + (let ((__tmp112156 (reverse _code99971_))) (declare (not safe)) - (cons '%#begin __tmp112159)))) + (cons '%#begin __tmp112156)))) (declare (not safe)) - (cons __tmp112158 '())))) + (cons __tmp112155 '())))) (declare (not safe)) - (cons _n99975_ __tmp112157)))) + (cons _n99972_ __tmp112154)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _phi99976_ - __tmp112156)))) + (cons _phi99973_ + __tmp112153)))) (declare (not safe)) - (cons _ctx99977_ __tmp112155)))) + (cons _ctx99974_ __tmp112152)))) (declare (not safe)) - (cons __tmp112154 _r99957_)))))) + (cons __tmp112151 _r99954_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _block9995899967_ + _block9995599964_ 'gxc#meta-state-block::t)) - (let* ((_e9996299982_ + (let* ((_e9995999979_ (let () (declare (not safe)) (##unchecked-structure-ref - _block9995899967_ + _block9995599964_ '1 gxc#meta-state-block::t '#f))) - (_ctx99985_ _e9996299982_) - (_e9996399987_ + (_ctx99982_ _e9995999979_) + (_e9996099984_ (let () (declare (not safe)) (##unchecked-structure-ref - _block9995899967_ + _block9995599964_ '2 gxc#meta-state-block::t '#f))) - (_phi99990_ _e9996399987_) - (_e9996499992_ + (_phi99987_ _e9996099984_) + (_e9996199989_ (let () (declare (not safe)) (##unchecked-structure-ref - _block9995899967_ + _block9995599964_ '3 gxc#meta-state-block::t '#f))) - (_n99995_ _e9996499992_) - (_e9996599997_ + (_n99992_ _e9996199989_) + (_e9996299994_ (let () (declare (not safe)) (##unchecked-structure-ref - _block9995899967_ + _block9995599964_ '4 gxc#meta-state-block::t '#f))) - (_code100000_ _e9996599997_)) + (_code99997_ _e9996299994_)) (declare (not safe)) - (_K9996199979_ - _code100000_ - _n99995_ - _phi99990_ - _ctx99985_)) - (let () (declare (not safe)) (_E9996099971_)))))) - (__tmp112152 - (##structure-ref _state99954_ '4 gxc#meta-state::t '#f))) + (_K9995899976_ + _code99997_ + _n99992_ + _phi99987_ + _ctx99982_)) + (let () (declare (not safe)) (_E9995799968_)))))) + (__tmp112149 + (##structure-ref _state99951_ '4 gxc#meta-state::t '#f))) (declare (not safe)) - (foldl1 __tmp112153 '() __tmp112152)))) + (foldl1 __tmp112150 '() __tmp112149)))) (define gxc#collect-expression-refs - (lambda (_stx99950_) - (let ((_ht99952_ (let () (declare (not safe)) (make-hash-table-eq)))) + (lambda (_stx99947_) + (let ((_ht99949_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (gxc#apply-collect-expression-refs _stx99950_ _ht99952_)) - _ht99952_))) + (gxc#apply-collect-expression-refs _stx99947_ _ht99949_)) + _ht99949_))) (define gxc#collect-refs-ref% - (lambda (_stx99893_ _ht99894_) - (let* ((_g9989699909_ - (lambda (_g9989799906_) + (lambda (_stx99890_ _ht99891_) + (let* ((_g9989399906_ + (lambda (_g9989499903_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9989799906_)))) - (_g9989599947_ - (lambda (_g9989799912_) + _g9989499903_)))) + (_g9989299944_ + (lambda (_g9989499909_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9989799912_)) - (let ((_e9990199914_ + (gx#stx-pair? _g9989499909_)) + (let ((_e9989899911_ (let () (declare (not safe)) - (gx#stx-e _g9989799912_)))) - (let ((_hd9990099917_ + (gx#stx-e _g9989499909_)))) + (let ((_hd9989799914_ (let () (declare (not safe)) - (##car _e9990199914_))) - (_tl9989999919_ + (##car _e9989899911_))) + (_tl9989699916_ (let () (declare (not safe)) - (##cdr _e9990199914_)))) + (##cdr _e9989899911_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9989999919_)) - (let ((_e9990499922_ + (gx#stx-pair? _tl9989699916_)) + (let ((_e9990199919_ (let () (declare (not safe)) - (gx#stx-e _tl9989999919_)))) - (let ((_hd9990399925_ + (gx#stx-e _tl9989699916_)))) + (let ((_hd9990099922_ (let () (declare (not safe)) - (##car _e9990499922_))) - (_tl9990299927_ + (##car _e9990199919_))) + (_tl9989999924_ (let () (declare (not safe)) - (##cdr _e9990499922_)))) + (##cdr _e9990199919_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9990299927_)) - ((lambda (_L99930_) - (let* ((_bind99942_ + (gx#stx-null? _tl9989999924_)) + ((lambda (_L99927_) + (let* ((_bind99939_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _L99930_))) - (_eid99944_ - (if _bind99942_ + _L99927_))) + (_eid99941_ + (if _bind99939_ (##structure-ref - _bind99942_ + _bind99939_ '1 gx#binding::t '#f) (let () (declare (not safe)) (gx#stx-e - _L99930_))))) + _L99927_))))) (let () (declare (not safe)) (hash-put! - _ht99894_ - _eid99944_ - _eid99944_)))) - _hd9990399925_) + _ht99891_ + _eid99941_ + _eid99941_)))) + _hd9990099922_) (let () (declare (not safe)) - (_g9989699909_ _g9989799912_))))) + (_g9989399906_ _g9989499909_))))) (let () (declare (not safe)) - (_g9989699909_ _g9989799912_))))) + (_g9989399906_ _g9989499909_))))) (let () (declare (not safe)) - (_g9989699909_ _g9989799912_)))))) + (_g9989399906_ _g9989499909_)))))) (declare (not safe)) - (_g9989599947_ _stx99893_)))) + (_g9989299944_ _stx99890_)))) (define gxc#collect-refs-setq% - (lambda (_stx99820_ _ht99821_) - (let* ((_g9982399840_ - (lambda (_g9982499837_) + (lambda (_stx99817_ _ht99818_) + (let* ((_g9982099837_ + (lambda (_g9982199834_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9982499837_)))) - (_g9982299890_ - (lambda (_g9982499843_) + _g9982199834_)))) + (_g9981999887_ + (lambda (_g9982199840_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9982499843_)) - (let ((_e9982999845_ + (gx#stx-pair? _g9982199840_)) + (let ((_e9982699842_ (let () (declare (not safe)) - (gx#stx-e _g9982499843_)))) - (let ((_hd9982899848_ + (gx#stx-e _g9982199840_)))) + (let ((_hd9982599845_ (let () (declare (not safe)) - (##car _e9982999845_))) - (_tl9982799850_ + (##car _e9982699842_))) + (_tl9982499847_ (let () (declare (not safe)) - (##cdr _e9982999845_)))) + (##cdr _e9982699842_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9982799850_)) - (let ((_e9983299853_ + (gx#stx-pair? _tl9982499847_)) + (let ((_e9982999850_ (let () (declare (not safe)) - (gx#stx-e _tl9982799850_)))) - (let ((_hd9983199856_ + (gx#stx-e _tl9982499847_)))) + (let ((_hd9982899853_ (let () (declare (not safe)) - (##car _e9983299853_))) - (_tl9983099858_ + (##car _e9982999850_))) + (_tl9982799855_ (let () (declare (not safe)) - (##cdr _e9983299853_)))) + (##cdr _e9982999850_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9983099858_)) - (let ((_e9983599861_ + (gx#stx-pair? _tl9982799855_)) + (let ((_e9983299858_ (let () (declare (not safe)) - (gx#stx-e _tl9983099858_)))) - (let ((_hd9983499864_ + (gx#stx-e _tl9982799855_)))) + (let ((_hd9983199861_ (let () (declare (not safe)) - (##car _e9983599861_))) - (_tl9983399866_ + (##car _e9983299858_))) + (_tl9983099863_ (let () (declare (not safe)) - (##cdr _e9983599861_)))) + (##cdr _e9983299858_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9983399866_)) - ((lambda (_L99869_ _L99870_) - (let* ((_bind99885_ + _tl9983099863_)) + ((lambda (_L99866_ _L99867_) + (let* ((_bind99882_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _L99870_))) - (_eid99887_ - (if _bind99885_ + _L99867_))) + (_eid99884_ + (if _bind99882_ (##structure-ref - _bind99885_ + _bind99882_ '1 gx#binding::t '#f) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L99870_))))) + (gx#stx-e _L99867_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (hash-put! - _ht99821_ - _eid99887_ - _eid99887_)) + _ht99818_ + _eid99884_ + _eid99884_)) (let () (declare (not safe)) (gxc#compile-e__1 - _L99869_ - _ht99821_)))) - _hd9983499864_ - _hd9983199856_) + _L99866_ + _ht99818_)))) + _hd9983199861_ + _hd9982899853_) (let () (declare (not safe)) - (_g9982399840_ - _g9982499843_))))) + (_g9982099837_ + _g9982199840_))))) (let () (declare (not safe)) - (_g9982399840_ _g9982499843_))))) + (_g9982099837_ _g9982199840_))))) (let () (declare (not safe)) - (_g9982399840_ _g9982499843_))))) + (_g9982099837_ _g9982199840_))))) (let () (declare (not safe)) - (_g9982399840_ _g9982499843_)))))) + (_g9982099837_ _g9982199840_)))))) (declare (not safe)) - (_g9982299890_ _stx99820_)))) + (_g9981999887_ _stx99817_)))) (define gxc#find-runtime-begin% - (lambda (_stx99782_) - (let* ((_g9978499794_ - (lambda (_g9978599791_) + (lambda (_stx99779_) + (let* ((_g9978199791_ + (lambda (_g9978299788_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9978599791_)))) - (_g9978399817_ - (lambda (_g9978599797_) + _g9978299788_)))) + (_g9978099814_ + (lambda (_g9978299794_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9978599797_)) - (let ((_e9978999799_ + (gx#stx-pair? _g9978299794_)) + (let ((_e9978699796_ (let () (declare (not safe)) - (gx#stx-e _g9978599797_)))) - (let ((_hd9978899802_ + (gx#stx-e _g9978299794_)))) + (let ((_hd9978599799_ (let () (declare (not safe)) - (##car _e9978999799_))) - (_tl9978799804_ + (##car _e9978699796_))) + (_tl9978499801_ (let () (declare (not safe)) - (##cdr _e9978999799_)))) - ((lambda (_L99807_) + (##cdr _e9978699796_)))) + ((lambda (_L99804_) (let () (declare (not safe)) - (ormap1 gxc#compile-e _L99807_))) - _tl9978799804_))) + (ormap1 gxc#compile-e _L99804_))) + _tl9978499801_))) (let () (declare (not safe)) - (_g9978499794_ _g9978599797_)))))) + (_g9978199791_ _g9978299794_)))))) (declare (not safe)) - (_g9978399817_ _stx99782_)))) + (_g9978099814_ _stx99779_)))) (define gxc#find-lambda-expression-begin% - (lambda (_stx99744_) - (let* ((_g9974699756_ - (lambda (_g9974799753_) + (lambda (_stx99741_) + (let* ((_g9974399753_ + (lambda (_g9974499750_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9974799753_)))) - (_g9974599779_ - (lambda (_g9974799759_) + _g9974499750_)))) + (_g9974299776_ + (lambda (_g9974499756_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9974799759_)) - (let ((_e9975199761_ + (gx#stx-pair? _g9974499756_)) + (let ((_e9974899758_ (let () (declare (not safe)) - (gx#stx-e _g9974799759_)))) - (let ((_hd9975099764_ + (gx#stx-e _g9974499756_)))) + (let ((_hd9974799761_ (let () (declare (not safe)) - (##car _e9975199761_))) - (_tl9974999766_ + (##car _e9974899758_))) + (_tl9974699763_ (let () (declare (not safe)) - (##cdr _e9975199761_)))) - ((lambda (_L99769_) - (let ((__tmp112160 + (##cdr _e9974899758_)))) + ((lambda (_L99766_) + (let ((__tmp112157 (let () (declare (not safe)) - (last _L99769_)))) + (last _L99766_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp112160))) - _tl9974999766_))) + (gxc#compile-e__0 __tmp112157))) + _tl9974699763_))) (let () (declare (not safe)) - (_g9974699756_ _g9974799759_)))))) + (_g9974399753_ _g9974499756_)))))) (declare (not safe)) - (_g9974599779_ _stx99744_)))) + (_g9974299776_ _stx99741_)))) (define gxc#find-lambda-expression-begin-annotation% - (lambda (_stx99677_) - (let* ((_g9967999696_ - (lambda (_g9968099693_) + (lambda (_stx99674_) + (let* ((_g9967699693_ + (lambda (_g9967799690_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9968099693_)))) - (_g9967899741_ - (lambda (_g9968099699_) + _g9967799690_)))) + (_g9967599738_ + (lambda (_g9967799696_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9968099699_)) - (let ((_e9968599701_ + (gx#stx-pair? _g9967799696_)) + (let ((_e9968299698_ (let () (declare (not safe)) - (gx#stx-e _g9968099699_)))) - (let ((_hd9968499704_ + (gx#stx-e _g9967799696_)))) + (let ((_hd9968199701_ (let () (declare (not safe)) - (##car _e9968599701_))) - (_tl9968399706_ + (##car _e9968299698_))) + (_tl9968099703_ (let () (declare (not safe)) - (##cdr _e9968599701_)))) + (##cdr _e9968299698_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9968399706_)) - (let ((_e9968899709_ + (gx#stx-pair? _tl9968099703_)) + (let ((_e9968599706_ (let () (declare (not safe)) - (gx#stx-e _tl9968399706_)))) - (let ((_hd9968799712_ + (gx#stx-e _tl9968099703_)))) + (let ((_hd9968499709_ (let () (declare (not safe)) - (##car _e9968899709_))) - (_tl9968699714_ + (##car _e9968599706_))) + (_tl9968399711_ (let () (declare (not safe)) - (##cdr _e9968899709_)))) + (##cdr _e9968599706_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9968699714_)) - (let ((_e9969199717_ + (gx#stx-pair? _tl9968399711_)) + (let ((_e9968899714_ (let () (declare (not safe)) - (gx#stx-e _tl9968699714_)))) - (let ((_hd9969099720_ + (gx#stx-e _tl9968399711_)))) + (let ((_hd9968799717_ (let () (declare (not safe)) - (##car _e9969199717_))) - (_tl9968999722_ + (##car _e9968899714_))) + (_tl9968699719_ (let () (declare (not safe)) - (##cdr _e9969199717_)))) + (##cdr _e9968899714_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9968999722_)) - ((lambda (_L99725_ _L99726_) + _tl9968699719_)) + ((lambda (_L99722_ _L99723_) (let () (declare (not safe)) (gxc#compile-e__0 - _L99725_))) - _hd9969099720_ - _hd9968799712_) + _L99722_))) + _hd9968799717_ + _hd9968499709_) (let () (declare (not safe)) - (_g9967999696_ - _g9968099699_))))) + (_g9967699693_ + _g9967799696_))))) (let () (declare (not safe)) - (_g9967999696_ _g9968099699_))))) + (_g9967699693_ _g9967799696_))))) (let () (declare (not safe)) - (_g9967999696_ _g9968099699_))))) + (_g9967699693_ _g9967799696_))))) (let () (declare (not safe)) - (_g9967999696_ _g9968099699_)))))) + (_g9967699693_ _g9967799696_)))))) (declare (not safe)) - (_g9967899741_ _stx99677_)))) + (_g9967599738_ _stx99674_)))) (define gxc#find-lambda-expression-let-values% - (lambda (_stx99610_) - (let* ((_g9961299629_ - (lambda (_g9961399626_) + (lambda (_stx99607_) + (let* ((_g9960999626_ + (lambda (_g9961099623_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9961399626_)))) - (_g9961199674_ - (lambda (_g9961399632_) + _g9961099623_)))) + (_g9960899671_ + (lambda (_g9961099629_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9961399632_)) - (let ((_e9961899634_ + (gx#stx-pair? _g9961099629_)) + (let ((_e9961599631_ (let () (declare (not safe)) - (gx#stx-e _g9961399632_)))) - (let ((_hd9961799637_ + (gx#stx-e _g9961099629_)))) + (let ((_hd9961499634_ (let () (declare (not safe)) - (##car _e9961899634_))) - (_tl9961699639_ + (##car _e9961599631_))) + (_tl9961399636_ (let () (declare (not safe)) - (##cdr _e9961899634_)))) + (##cdr _e9961599631_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9961699639_)) - (let ((_e9962199642_ + (gx#stx-pair? _tl9961399636_)) + (let ((_e9961899639_ (let () (declare (not safe)) - (gx#stx-e _tl9961699639_)))) - (let ((_hd9962099645_ + (gx#stx-e _tl9961399636_)))) + (let ((_hd9961799642_ (let () (declare (not safe)) - (##car _e9962199642_))) - (_tl9961999647_ + (##car _e9961899639_))) + (_tl9961699644_ (let () (declare (not safe)) - (##cdr _e9962199642_)))) + (##cdr _e9961899639_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9961999647_)) - (let ((_e9962499650_ + (gx#stx-pair? _tl9961699644_)) + (let ((_e9962199647_ (let () (declare (not safe)) - (gx#stx-e _tl9961999647_)))) - (let ((_hd9962399653_ + (gx#stx-e _tl9961699644_)))) + (let ((_hd9962099650_ (let () (declare (not safe)) - (##car _e9962499650_))) - (_tl9962299655_ + (##car _e9962199647_))) + (_tl9961999652_ (let () (declare (not safe)) - (##cdr _e9962499650_)))) + (##cdr _e9962199647_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9962299655_)) - ((lambda (_L99658_ _L99659_) + _tl9961999652_)) + ((lambda (_L99655_ _L99656_) (let () (declare (not safe)) (gxc#compile-e__0 - _L99658_))) - _hd9962399653_ - _hd9962099645_) + _L99655_))) + _hd9962099650_ + _hd9961799642_) (let () (declare (not safe)) - (_g9961299629_ - _g9961399632_))))) + (_g9960999626_ + _g9961099629_))))) (let () (declare (not safe)) - (_g9961299629_ _g9961399632_))))) + (_g9960999626_ _g9961099629_))))) (let () (declare (not safe)) - (_g9961299629_ _g9961399632_))))) + (_g9960999626_ _g9961099629_))))) (let () (declare (not safe)) - (_g9961299629_ _g9961399632_)))))) + (_g9960999626_ _g9961099629_)))))) (declare (not safe)) - (_g9961199674_ _stx99610_)))) - (define gxc#count-values-single% (lambda (_stx99608_) '1)) + (_g9960899671_ _stx99607_)))) + (define gxc#count-values-single% (lambda (_stx99605_) '1)) (define gxc#count-values-begin% - (lambda (_stx99526_) - (let* ((_g9952899547_ - (lambda (_g9952999544_) + (lambda (_stx99523_) + (let* ((_g9952599544_ + (lambda (_g9952699541_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9952999544_)))) - (_g9952799605_ - (lambda (_g9952999550_) + _g9952699541_)))) + (_g9952499602_ + (lambda (_g9952699547_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9952999550_)) - (let ((_e9953399552_ + (gx#stx-pair? _g9952699547_)) + (let ((_e9953099549_ (let () (declare (not safe)) - (gx#stx-e _g9952999550_)))) - (let ((_hd9953299555_ + (gx#stx-e _g9952699547_)))) + (let ((_hd9952999552_ (let () (declare (not safe)) - (##car _e9953399552_))) - (_tl9953199557_ + (##car _e9953099549_))) + (_tl9952899554_ (let () (declare (not safe)) - (##cdr _e9953399552_)))) + (##cdr _e9953099549_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl9953199557_)) - (let ((_g112161_ + (gx#stx-pair/null? _tl9952899554_)) + (let ((_g112158_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl9953199557_ + _tl9952899554_ '0)))) (begin - (let ((_g112162_ + (let ((_g112159_ (let () (declare (not safe)) - (if (##values? _g112161_) - (##vector-length _g112161_) + (if (##values? _g112158_) + (##vector-length _g112158_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g112162_ 2))) + (##fx= _g112159_ 2))) (error "Context expects 2 values" - _g112162_))) - (let ((_target9953499560_ + _g112159_))) + (let ((_target9953199557_ (let () (declare (not safe)) - (##vector-ref _g112161_ 0))) - (_tl9953699562_ + (##vector-ref _g112158_ 0))) + (_tl9953399559_ (let () (declare (not safe)) - (##vector-ref _g112161_ 1)))) + (##vector-ref _g112158_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9953699562_)) - (letrec ((_loop9953799565_ - (lambda (_hd9953599568_ - _expr9954199570_) + (gx#stx-null? _tl9953399559_)) + (letrec ((_loop9953499562_ + (lambda (_hd9953299565_ + _expr9953899567_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd9953599568_)) - (let ((_e9953899573_ + _hd9953299565_)) + (let ((_e9953599570_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd9953599568_)))) - (let ((_lp-hd9953999576_ - (let () (declare (not safe)) (##car _e9953899573_))) - (_lp-tl9954099578_ + (gx#stx-e _hd9953299565_)))) + (let ((_lp-hd9953699573_ + (let () (declare (not safe)) (##car _e9953599570_))) + (_lp-tl9953799575_ (let () (declare (not safe)) - (##cdr _e9953899573_)))) - (let ((__tmp112166 + (##cdr _e9953599570_)))) + (let ((__tmp112163 (let () (declare (not safe)) - (cons _lp-hd9953999576_ _expr9954199570_)))) + (cons _lp-hd9953699573_ _expr9953899567_)))) (declare (not safe)) - (_loop9953799565_ _lp-tl9954099578_ __tmp112166)))) - (let ((_expr9954299581_ (reverse _expr9954199570_))) - ((lambda (_L99584_) - (let ((__tmp112163 - (let ((__tmp112164 - (let ((__tmp112165 - (lambda (_g9959799600_ - _g9959899602_) + (_loop9953499562_ _lp-tl9953799575_ __tmp112163)))) + (let ((_expr9953999578_ (reverse _expr9953899567_))) + ((lambda (_L99581_) + (let ((__tmp112160 + (let ((__tmp112161 + (let ((__tmp112162 + (lambda (_g9959499597_ + _g9959599599_) (let () (declare (not safe)) - (cons _g9959799600_ - _g9959899602_))))) + (cons _g9959499597_ + _g9959599599_))))) (declare (not safe)) - (foldr1 __tmp112165 '() _L99584_)))) + (foldr1 __tmp112162 '() _L99581_)))) (declare (not safe)) - (last __tmp112164)))) + (last __tmp112161)))) (declare (not safe)) - (gxc#compile-e__0 __tmp112163))) - _expr9954299581_)))))) + (gxc#compile-e__0 __tmp112160))) + _expr9953999578_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop9953799565_ - _target9953499560_ + (_loop9953499562_ + _target9953199557_ '()))) (let () (declare (not safe)) - (_g9952899547_ _g9952999550_)))))) + (_g9952599544_ _g9952699547_)))))) (let () (declare (not safe)) - (_g9952899547_ _g9952999550_))))) + (_g9952599544_ _g9952699547_))))) (let () (declare (not safe)) - (_g9952899547_ _g9952999550_)))))) + (_g9952599544_ _g9952699547_)))))) (declare (not safe)) - (_g9952799605_ _stx99526_)))) + (_g9952499602_ _stx99523_)))) (define gxc#count-values-begin-annotation% - (lambda (_stx99459_) - (let* ((_g9946199478_ - (lambda (_g9946299475_) + (lambda (_stx99456_) + (let* ((_g9945899475_ + (lambda (_g9945999472_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9946299475_)))) - (_g9946099523_ - (lambda (_g9946299481_) + _g9945999472_)))) + (_g9945799520_ + (lambda (_g9945999478_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9946299481_)) - (let ((_e9946799483_ + (gx#stx-pair? _g9945999478_)) + (let ((_e9946499480_ (let () (declare (not safe)) - (gx#stx-e _g9946299481_)))) - (let ((_hd9946699486_ + (gx#stx-e _g9945999478_)))) + (let ((_hd9946399483_ (let () (declare (not safe)) - (##car _e9946799483_))) - (_tl9946599488_ + (##car _e9946499480_))) + (_tl9946299485_ (let () (declare (not safe)) - (##cdr _e9946799483_)))) + (##cdr _e9946499480_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9946599488_)) - (let ((_e9947099491_ + (gx#stx-pair? _tl9946299485_)) + (let ((_e9946799488_ (let () (declare (not safe)) - (gx#stx-e _tl9946599488_)))) - (let ((_hd9946999494_ + (gx#stx-e _tl9946299485_)))) + (let ((_hd9946699491_ (let () (declare (not safe)) - (##car _e9947099491_))) - (_tl9946899496_ + (##car _e9946799488_))) + (_tl9946599493_ (let () (declare (not safe)) - (##cdr _e9947099491_)))) + (##cdr _e9946799488_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9946899496_)) - (let ((_e9947399499_ + (gx#stx-pair? _tl9946599493_)) + (let ((_e9947099496_ (let () (declare (not safe)) - (gx#stx-e _tl9946899496_)))) - (let ((_hd9947299502_ + (gx#stx-e _tl9946599493_)))) + (let ((_hd9946999499_ (let () (declare (not safe)) - (##car _e9947399499_))) - (_tl9947199504_ + (##car _e9947099496_))) + (_tl9946899501_ (let () (declare (not safe)) - (##cdr _e9947399499_)))) + (##cdr _e9947099496_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9947199504_)) - ((lambda (_L99507_ _L99508_) + _tl9946899501_)) + ((lambda (_L99504_ _L99505_) (let () (declare (not safe)) (gxc#compile-e__0 - _L99507_))) - _hd9947299502_ - _hd9946999494_) + _L99504_))) + _hd9946999499_ + _hd9946699491_) (let () (declare (not safe)) - (_g9946199478_ - _g9946299481_))))) + (_g9945899475_ + _g9945999478_))))) (let () (declare (not safe)) - (_g9946199478_ _g9946299481_))))) + (_g9945899475_ _g9945999478_))))) (let () (declare (not safe)) - (_g9946199478_ _g9946299481_))))) + (_g9945899475_ _g9945999478_))))) (let () (declare (not safe)) - (_g9946199478_ _g9946299481_)))))) + (_g9945899475_ _g9945999478_)))))) (declare (not safe)) - (_g9946099523_ _stx99459_)))) + (_g9945799520_ _stx99456_)))) (define gxc#count-values-let-values% - (lambda (_stx99392_) - (let* ((_g9939499411_ - (lambda (_g9939599408_) + (lambda (_stx99389_) + (let* ((_g9939199408_ + (lambda (_g9939299405_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9939599408_)))) - (_g9939399456_ - (lambda (_g9939599414_) + _g9939299405_)))) + (_g9939099453_ + (lambda (_g9939299411_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9939599414_)) - (let ((_e9940099416_ + (gx#stx-pair? _g9939299411_)) + (let ((_e9939799413_ (let () (declare (not safe)) - (gx#stx-e _g9939599414_)))) - (let ((_hd9939999419_ + (gx#stx-e _g9939299411_)))) + (let ((_hd9939699416_ (let () (declare (not safe)) - (##car _e9940099416_))) - (_tl9939899421_ + (##car _e9939799413_))) + (_tl9939599418_ (let () (declare (not safe)) - (##cdr _e9940099416_)))) + (##cdr _e9939799413_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9939899421_)) - (let ((_e9940399424_ + (gx#stx-pair? _tl9939599418_)) + (let ((_e9940099421_ (let () (declare (not safe)) - (gx#stx-e _tl9939899421_)))) - (let ((_hd9940299427_ + (gx#stx-e _tl9939599418_)))) + (let ((_hd9939999424_ (let () (declare (not safe)) - (##car _e9940399424_))) - (_tl9940199429_ + (##car _e9940099421_))) + (_tl9939899426_ (let () (declare (not safe)) - (##cdr _e9940399424_)))) + (##cdr _e9940099421_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9940199429_)) - (let ((_e9940699432_ + (gx#stx-pair? _tl9939899426_)) + (let ((_e9940399429_ (let () (declare (not safe)) - (gx#stx-e _tl9940199429_)))) - (let ((_hd9940599435_ + (gx#stx-e _tl9939899426_)))) + (let ((_hd9940299432_ (let () (declare (not safe)) - (##car _e9940699432_))) - (_tl9940499437_ + (##car _e9940399429_))) + (_tl9940199434_ (let () (declare (not safe)) - (##cdr _e9940699432_)))) + (##cdr _e9940399429_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9940499437_)) - ((lambda (_L99440_ _L99441_) + _tl9940199434_)) + ((lambda (_L99437_ _L99438_) (let () (declare (not safe)) (gxc#compile-e__0 - _L99440_))) - _hd9940599435_ - _hd9940299427_) + _L99437_))) + _hd9940299432_ + _hd9939999424_) (let () (declare (not safe)) - (_g9939499411_ - _g9939599414_))))) + (_g9939199408_ + _g9939299411_))))) (let () (declare (not safe)) - (_g9939499411_ _g9939599414_))))) + (_g9939199408_ _g9939299411_))))) (let () (declare (not safe)) - (_g9939499411_ _g9939599414_))))) + (_g9939199408_ _g9939299411_))))) (let () (declare (not safe)) - (_g9939499411_ _g9939599414_)))))) + (_g9939199408_ _g9939299411_)))))) (declare (not safe)) - (_g9939399456_ _stx99392_)))) + (_g9939099453_ _stx99389_)))) (define gxc#count-values-call% - (lambda (_stx99259_) - (let* ((___stx111255111256_ _stx99259_) - (_g9926299291_ + (lambda (_stx99256_) + (let* ((___stx111252111253_ _stx99256_) + (_g9925999288_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx111255111256_))))) - (let ((___kont111257111258_ - (lambda (_L99359_ _L99360_) - (length (let ((__tmp112167 - (lambda (_g9938199384_ _g9938299386_) + ___stx111252111253_))))) + (let ((___kont111254111255_ + (lambda (_L99356_ _L99357_) + (length (let ((__tmp112164 + (lambda (_g9937899381_ _g9937999383_) (let () (declare (not safe)) - (cons _g9938199384_ _g9938299386_))))) + (cons _g9937899381_ _g9937999383_))))) (declare (not safe)) - (foldr1 __tmp112167 '() _L99359_))))) - (___kont111261111262_ (lambda () '#f))) - (let ((___match111300111301_ - (lambda (_e9926899303_ - _hd9926799306_ - _tl9926699308_ - _e9927199311_ - _hd9927099314_ - _tl9926999316_ - _e9927499319_ - _hd9927399322_ - _tl9927299324_ - _e9927799327_ - _hd9927699330_ - _tl9927599332_ - ___splice111259111260_ - _target9927899335_ - _tl9928099337_) - (letrec ((_loop9928199340_ - (lambda (_hd9927999343_ _rand9928599345_) + (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_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9927999343_)) - (let ((_e9928299348_ + (gx#stx-pair? _hd9927699340_)) + (let ((_e9927999345_ (let () (declare (not safe)) - (gx#stx-e _hd9927999343_)))) - (let ((_lp-tl9928499353_ + (gx#stx-e _hd9927699340_)))) + (let ((_lp-tl9928199350_ (let () (declare (not safe)) - (##cdr _e9928299348_))) - (_lp-hd9928399351_ + (##cdr _e9927999345_))) + (_lp-hd9928099348_ (let () (declare (not safe)) - (##car _e9928299348_)))) - (let ((__tmp112168 + (##car _e9927999345_)))) + (let ((__tmp112165 (let () (declare (not safe)) - (cons _lp-hd9928399351_ - _rand9928599345_)))) + (cons _lp-hd9928099348_ + _rand9928299342_)))) (declare (not safe)) - (_loop9928199340_ - _lp-tl9928499353_ - __tmp112168)))) - (let ((_rand9928699356_ - (reverse _rand9928599345_))) - (let ((_L99359_ _rand9928699356_) - (_L99360_ _hd9927699330_)) + (_loop9927899337_ + _lp-tl9928199350_ + __tmp112165)))) + (let ((_rand9928399353_ + (reverse _rand9928299342_))) + (let ((_L99356_ _rand9928399353_) + (_L99357_ _hd9927399327_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L99360_ + _L99357_ 'values)) - (___kont111257111258_ - _L99359_ - _L99360_) - (___kont111261111262_)))))))) + (___kont111254111255_ + _L99356_ + _L99357_) + (___kont111258111259_)))))))) (let () (declare (not safe)) - (_loop9928199340_ _target9927899335_ '())))))) + (_loop9927899337_ _target9927599332_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx111255111256_)) - (let ((_e9926899303_ + (gx#stx-pair? ___stx111252111253_)) + (let ((_e9926599300_ (let () (declare (not safe)) - (gx#stx-e ___stx111255111256_)))) - (let ((_tl9926699308_ + (gx#stx-e ___stx111252111253_)))) + (let ((_tl9926399305_ (let () (declare (not safe)) - (##cdr _e9926899303_))) - (_hd9926799306_ + (##cdr _e9926599300_))) + (_hd9926499303_ (let () (declare (not safe)) - (##car _e9926899303_)))) + (##car _e9926599300_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9926699308_)) - (let ((_e9927199311_ + (gx#stx-pair? _tl9926399305_)) + (let ((_e9926899308_ (let () (declare (not safe)) - (gx#stx-e _tl9926699308_)))) - (let ((_tl9926999316_ + (gx#stx-e _tl9926399305_)))) + (let ((_tl9926699313_ (let () (declare (not safe)) - (##cdr _e9927199311_))) - (_hd9927099314_ + (##cdr _e9926899308_))) + (_hd9926799311_ (let () (declare (not safe)) - (##car _e9927199311_)))) + (##car _e9926899308_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9927099314_)) - (let ((_e9927499319_ + (gx#stx-pair? _hd9926799311_)) + (let ((_e9927199316_ (let () (declare (not safe)) - (gx#stx-e _hd9927099314_)))) - (let ((_tl9927299324_ + (gx#stx-e _hd9926799311_)))) + (let ((_tl9926999321_ (let () (declare (not safe)) - (##cdr _e9927499319_))) - (_hd9927399322_ + (##cdr _e9927199316_))) + (_hd9927099319_ (let () (declare (not safe)) - (##car _e9927499319_)))) + (##car _e9927199316_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd9927399322_)) + (gx#identifier? _hd9927099319_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd9927399322_)) + _hd9927099319_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl9927299324_)) - (let ((_e9927799327_ + _tl9926999321_)) + (let ((_e9927499324_ (let () (declare (not safe)) (gx#stx-e - _tl9927299324_)))) - (let ((_tl9927599332_ + _tl9926999321_)))) + (let ((_tl9927299329_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e9927799327_))) - (_hd9927699330_ - (let () (declare (not safe)) (##car _e9927799327_)))) - (if (let () (declare (not safe)) (gx#stx-null? _tl9927599332_)) + (##cdr _e9927499324_))) + (_hd9927399327_ + (let () (declare (not safe)) (##car _e9927499324_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl9927299329_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl9926999316_)) - (let ((___splice111259111260_ + (gx#stx-pair/null? _tl9926699313_)) + (let ((___splice111256111257_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl9926999316_ '0)))) - (let ((_tl9928099337_ + (gx#syntax-split-splice _tl9926699313_ '0)))) + (let ((_tl9927799334_ (let () (declare (not safe)) - (##vector-ref ___splice111259111260_ '1))) - (_target9927899335_ + (##vector-ref ___splice111256111257_ '1))) + (_target9927599332_ (let () (declare (not safe)) - (##vector-ref ___splice111259111260_ '0)))) + (##vector-ref ___splice111256111257_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9928099337_)) - (___match111300111301_ - _e9926899303_ - _hd9926799306_ - _tl9926699308_ - _e9927199311_ - _hd9927099314_ - _tl9926999316_ - _e9927499319_ - _hd9927399322_ - _tl9927299324_ - _e9927799327_ - _hd9927699330_ - _tl9927599332_ - ___splice111259111260_ - _target9927899335_ - _tl9928099337_) - (___kont111261111262_)))) - (___kont111261111262_)) - (___kont111261111262_)))) + (gx#stx-null? _tl9927799334_)) + (___match111297111298_ + _e9926599300_ + _hd9926499303_ + _tl9926399305_ + _e9926899308_ + _hd9926799311_ + _tl9926699313_ + _e9927199316_ + _hd9927099319_ + _tl9926999321_ + _e9927499324_ + _hd9927399327_ + _tl9927299329_ + ___splice111256111257_ + _target9927599332_ + _tl9927799334_) + (___kont111258111259_)))) + (___kont111258111259_)) + (___kont111258111259_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont111261111262_)) - (___kont111261111262_)) - (___kont111261111262_)))) - (___kont111261111262_)))) - (___kont111261111262_)))) - (___kont111261111262_))))))) + (___kont111258111259_)) + (___kont111258111259_)) + (___kont111258111259_)))) + (___kont111258111259_)))) + (___kont111258111259_)))) + (___kont111258111259_))))))) (define gxc#count-values-if% - (lambda (_stx99163_) - (let* ((_g9916599186_ - (lambda (_g9916699183_) + (lambda (_stx99160_) + (let* ((_g9916299183_ + (lambda (_g9916399180_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9916699183_)))) - (_g9916499256_ - (lambda (_g9916699189_) + _g9916399180_)))) + (_g9916199253_ + (lambda (_g9916399186_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9916699189_)) - (let ((_e9917299191_ + (gx#stx-pair? _g9916399186_)) + (let ((_e9916999188_ (let () (declare (not safe)) - (gx#stx-e _g9916699189_)))) - (let ((_hd9917199194_ + (gx#stx-e _g9916399186_)))) + (let ((_hd9916899191_ (let () (declare (not safe)) - (##car _e9917299191_))) - (_tl9917099196_ + (##car _e9916999188_))) + (_tl9916799193_ (let () (declare (not safe)) - (##cdr _e9917299191_)))) + (##cdr _e9916999188_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9917099196_)) - (let ((_e9917599199_ + (gx#stx-pair? _tl9916799193_)) + (let ((_e9917299196_ (let () (declare (not safe)) - (gx#stx-e _tl9917099196_)))) - (let ((_hd9917499202_ + (gx#stx-e _tl9916799193_)))) + (let ((_hd9917199199_ (let () (declare (not safe)) - (##car _e9917599199_))) - (_tl9917399204_ + (##car _e9917299196_))) + (_tl9917099201_ (let () (declare (not safe)) - (##cdr _e9917599199_)))) + (##cdr _e9917299196_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9917399204_)) - (let ((_e9917899207_ + (gx#stx-pair? _tl9917099201_)) + (let ((_e9917599204_ (let () (declare (not safe)) - (gx#stx-e _tl9917399204_)))) - (let ((_hd9917799210_ + (gx#stx-e _tl9917099201_)))) + (let ((_hd9917499207_ (let () (declare (not safe)) - (##car _e9917899207_))) - (_tl9917699212_ + (##car _e9917599204_))) + (_tl9917399209_ (let () (declare (not safe)) - (##cdr _e9917899207_)))) + (##cdr _e9917599204_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl9917699212_)) - (let ((_e9918199215_ + _tl9917399209_)) + (let ((_e9917899212_ (let () (declare (not safe)) (gx#stx-e - _tl9917699212_)))) - (let ((_hd9918099218_ + _tl9917399209_)))) + (let ((_hd9917799215_ (let () (declare (not safe)) - (##car _e9918199215_))) - (_tl9917999220_ + (##car _e9917899212_))) + (_tl9917699217_ (let () (declare (not safe)) - (##cdr _e9918199215_)))) + (##cdr _e9917899212_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9917999220_)) - ((lambda (_L99223_ + _tl9917699217_)) + ((lambda (_L99220_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L99224_ - _L99225_) - (let ((_c19924299244_ + _L99221_ + _L99222_) + (let ((_c19923999241_ (let () (declare (not safe)) - (gxc#compile-e__0 _L99224_)))) - (if _c19924299244_ - (let* ((_c199247_ _c19924299244_) - (_c29924899250_ + (gxc#compile-e__0 _L99221_)))) + (if _c19923999241_ + (let* ((_c199244_ _c19923999241_) + (_c29924599247_ (let () (declare (not safe)) - (gxc#compile-e__0 _L99223_)))) - (if _c29924899250_ - (let ((_c299253_ _c29924899250_)) - (if (fx= _c199247_ _c299253_) _c199247_ '#f)) + (gxc#compile-e__0 _L99220_)))) + (if _c29924599247_ + (let ((_c299250_ _c29924599247_)) + (if (fx= _c199244_ _c299250_) _c199244_ '#f)) '#f)) '#f))) - _hd9918099218_ - _hd9917799210_ - _hd9917499202_) - (let () (declare (not safe)) (_g9916599186_ _g9916699189_))))) + _hd9917799215_ + _hd9917499207_ + _hd9917199199_) + (let () (declare (not safe)) (_g9916299183_ _g9916399186_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9916599186_ - _g9916699189_))))) + (_g9916299183_ + _g9916399186_))))) (let () (declare (not safe)) - (_g9916599186_ _g9916699189_))))) + (_g9916299183_ _g9916399186_))))) (let () (declare (not safe)) - (_g9916599186_ _g9916699189_))))) + (_g9916299183_ _g9916399186_))))) (let () (declare (not safe)) - (_g9916599186_ _g9916699189_)))))) + (_g9916299183_ _g9916399186_)))))) (declare (not safe)) - (_g9916499256_ _stx99163_))))))) + (_g9916199253_ _stx99160_))))))) diff --git a/src/bootstrap/gerbil/compiler/compile__1.scm b/src/bootstrap/gerbil/compiler/compile__1.scm index a97418fc..21635505 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]#_g112544_| + (define |gxc[1]#_g112541_| (##structure gx#syntax-quote::t 'meta-state::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112546_| + (define |gxc[1]#_g112543_| (##structure gx#syntax-quote::t 'make-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112548_| + (define |gxc[1]#_g112545_| (##structure gx#syntax-quote::t 'meta-state? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112555_| + (define |gxc[1]#_g112552_| (##structure gx#syntax-quote::t 'meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112558_| + (define |gxc[1]#_g112555_| (##structure gx#syntax-quote::t 'meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112561_| + (define |gxc[1]#_g112558_| (##structure gx#syntax-quote::t 'meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112564_| + (define |gxc[1]#_g112561_| (##structure gx#syntax-quote::t 'meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112571_| + (define |gxc[1]#_g112568_| (##structure gx#syntax-quote::t 'meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112574_| + (define |gxc[1]#_g112571_| (##structure gx#syntax-quote::t 'meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112577_| + (define |gxc[1]#_g112574_| (##structure gx#syntax-quote::t 'meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112580_| + (define |gxc[1]#_g112577_| (##structure gx#syntax-quote::t 'meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112587_| + (define |gxc[1]#_g112584_| (##structure gx#syntax-quote::t '&meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112590_| + (define |gxc[1]#_g112587_| (##structure gx#syntax-quote::t '&meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112593_| + (define |gxc[1]#_g112590_| (##structure gx#syntax-quote::t '&meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112596_| + (define |gxc[1]#_g112593_| (##structure gx#syntax-quote::t '&meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112603_| + (define |gxc[1]#_g112600_| (##structure gx#syntax-quote::t '&meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112606_| + (define |gxc[1]#_g112603_| (##structure gx#syntax-quote::t '&meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112609_| + (define |gxc[1]#_g112606_| (##structure gx#syntax-quote::t '&meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112612_| + (define |gxc[1]#_g112609_| (##structure gx#syntax-quote::t '&meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112614_| + (define |gxc[1]#_g112611_| (##structure gx#syntax-quote::t 'meta-state-block::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112616_| + (define |gxc[1]#_g112613_| (##structure gx#syntax-quote::t 'make-meta-state-block #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112618_| + (define |gxc[1]#_g112615_| (##structure gx#syntax-quote::t 'meta-state-block? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112625_| + (define |gxc[1]#_g112622_| (##structure gx#syntax-quote::t 'meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112628_| + (define |gxc[1]#_g112625_| (##structure gx#syntax-quote::t 'meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112631_| + (define |gxc[1]#_g112628_| (##structure gx#syntax-quote::t 'meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112634_| + (define |gxc[1]#_g112631_| (##structure gx#syntax-quote::t 'meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112641_| + (define |gxc[1]#_g112638_| (##structure gx#syntax-quote::t 'meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112644_| + (define |gxc[1]#_g112641_| (##structure gx#syntax-quote::t 'meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112647_| + (define |gxc[1]#_g112644_| (##structure gx#syntax-quote::t 'meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112650_| + (define |gxc[1]#_g112647_| (##structure gx#syntax-quote::t 'meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112657_| + (define |gxc[1]#_g112654_| (##structure gx#syntax-quote::t '&meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112660_| + (define |gxc[1]#_g112657_| (##structure gx#syntax-quote::t '&meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112663_| + (define |gxc[1]#_g112660_| (##structure gx#syntax-quote::t '&meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112666_| + (define |gxc[1]#_g112663_| (##structure gx#syntax-quote::t '&meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112673_| + (define |gxc[1]#_g112670_| (##structure gx#syntax-quote::t '&meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112676_| + (define |gxc[1]#_g112673_| (##structure gx#syntax-quote::t '&meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112679_| + (define |gxc[1]#_g112676_| (##structure gx#syntax-quote::t '&meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112682_| + (define |gxc[1]#_g112679_| (##structure gx#syntax-quote::t '&meta-state-block-ctx-set! @@ -268,103 +268,103 @@ '())) (begin (define |gxc[:0:]#do-compile-e| - (lambda (_$stx98323_) - (let* ((_g9832798349_ - (lambda (_g9832898345_) + (lambda (_$stx98320_) + (let* ((_g9832498346_ + (lambda (_g9832598342_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9832898345_)))) - (_g9832698419_ - (lambda (_g9832898353_) + _g9832598342_)))) + (_g9832398416_ + (lambda (_g9832598350_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9832898353_)) - (let ((_e9833498356_ + (gx#stx-pair? _g9832598350_)) + (let ((_e9833198353_ (let () (declare (not safe)) - (gx#syntax-e _g9832898353_)))) - (let ((_hd9833398360_ + (gx#syntax-e _g9832598350_)))) + (let ((_hd9833098357_ (let () (declare (not safe)) - (##car _e9833498356_))) - (_tl9833298363_ + (##car _e9833198353_))) + (_tl9832998360_ (let () (declare (not safe)) - (##cdr _e9833498356_)))) + (##cdr _e9833198353_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9833298363_)) - (let ((_e9833798366_ + (gx#stx-pair? _tl9832998360_)) + (let ((_e9833498363_ (let () (declare (not safe)) - (gx#syntax-e _tl9833298363_)))) - (let ((_hd9833698370_ + (gx#syntax-e _tl9832998360_)))) + (let ((_hd9833398367_ (let () (declare (not safe)) - (##car _e9833798366_))) - (_tl9833598373_ + (##car _e9833498363_))) + (_tl9833298370_ (let () (declare (not safe)) - (##cdr _e9833798366_)))) + (##cdr _e9833498363_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9833598373_)) - (let ((_e9834098376_ + (gx#stx-pair? _tl9833298370_)) + (let ((_e9833798373_ (let () (declare (not safe)) - (gx#syntax-e _tl9833598373_)))) - (let ((_hd9833998380_ + (gx#syntax-e _tl9833298370_)))) + (let ((_hd9833698377_ (let () (declare (not safe)) - (##car _e9834098376_))) - (_tl9833898383_ + (##car _e9833798373_))) + (_tl9833598380_ (let () (declare (not safe)) - (##cdr _e9834098376_)))) + (##cdr _e9833798373_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9833898383_)) - (let ((_e9834398386_ + (gx#stx-pair? _tl9833598380_)) + (let ((_e9834098383_ (let () (declare (not safe)) (gx#syntax-e - _tl9833898383_)))) - (let ((_hd9834298390_ + _tl9833598380_)))) + (let ((_hd9833998387_ (let () (declare (not safe)) - (##car _e9834398386_))) - (_tl9834198393_ + (##car _e9834098383_))) + (_tl9833898390_ (let () (declare (not safe)) - (##cdr _e9834398386_)))) + (##cdr _e9834098383_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9834198393_)) - ((lambda (_L98396_ - _L98398_ - _L98399_) - (let ((__tmp112223 + _tl9833898390_)) + ((lambda (_L98393_ + _L98395_ + _L98396_) + (let ((__tmp112220 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp112169 - (let ((__tmp112170 - (let ((__tmp112171 - (let ((__tmp112185 - (let ((__tmp112220 - (let ((__tmp112222 + (__tmp112166 + (let ((__tmp112167 + (let ((__tmp112168 + (let ((__tmp112182 + (let ((__tmp112217 + (let ((__tmp112219 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hd))) - (__tmp112221 + (__tmp112218 (let () (declare (not safe)) @@ -372,1246 +372,1246 @@ '#f '_)))) (declare (not safe)) - (cons __tmp112222 - __tmp112221))) - (__tmp112186 - (let ((__tmp112187 - (let ((__tmp112219 + (cons __tmp112219 + __tmp112218))) + (__tmp112183 + (let ((__tmp112184 + (let ((__tmp112216 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cond))) - (__tmp112188 - (let ((__tmp112189 - (let ((__tmp112206 - (let ((__tmp112218 + (__tmp112185 + (let ((__tmp112186 + (let ((__tmp112203 + (let ((__tmp112215 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-get))) - (__tmp112207 - (let ((__tmp112216 - (let ((__tmp112217 + (__tmp112204 + (let ((__tmp112213 + (let ((__tmp112214 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'current-compile-methods)))) (declare (not safe)) - (cons __tmp112217 '()))) + (cons __tmp112214 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp112208 - (let ((__tmp112209 - (let ((__tmp112215 + (__tmp112205 + (let ((__tmp112206 + (let ((__tmp112212 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx-e))) - (__tmp112210 - (let ((__tmp112211 - (let ((__tmp112214 + (__tmp112207 + (let ((__tmp112208 + (let ((__tmp112211 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp112212 - (let ((__tmp112213 + (__tmp112209 + (let ((__tmp112210 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hd)))) (declare (not safe)) - (cons __tmp112213 '())))) + (cons __tmp112210 '())))) (declare (not safe)) - (cons __tmp112214 __tmp112212)))) + (cons __tmp112211 __tmp112209)))) (declare (not safe)) - (cons __tmp112211 '())))) + (cons __tmp112208 '())))) (declare (not safe)) - (cons __tmp112215 __tmp112210)))) + (cons __tmp112212 __tmp112207)))) (declare (not safe)) - (cons __tmp112209 '())))) + (cons __tmp112206 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112216 - __tmp112208)))) + (cons __tmp112213 + __tmp112205)))) (declare (not safe)) - (cons __tmp112218 __tmp112207))) - (__tmp112190 - (let ((__tmp112205 + (cons __tmp112215 __tmp112204))) + (__tmp112187 + (let ((__tmp112202 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '=>))) - (__tmp112191 - (let ((__tmp112192 - (let ((__tmp112204 + (__tmp112188 + (let ((__tmp112189 + (let ((__tmp112201 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp112193 - (let ((__tmp112203 - (let () (declare (not safe)) (cons _L98398_ '()))) - (__tmp112194 - (let ((__tmp112196 - (let ((__tmp112202 + (__tmp112190 + (let ((__tmp112200 + (let () (declare (not safe)) (cons _L98395_ '()))) + (__tmp112191 + (let ((__tmp112193 + (let ((__tmp112199 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare))) - (__tmp112197 - (let ((__tmp112198 - (let ((__tmp112201 + (__tmp112194 + (let ((__tmp112195 + (let ((__tmp112198 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'not))) - (__tmp112199 - (let ((__tmp112200 + (__tmp112196 + (let ((__tmp112197 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'safe)))) (declare (not safe)) - (cons __tmp112200 '())))) + (cons __tmp112197 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112201 - __tmp112199)))) + (cons __tmp112198 + __tmp112196)))) (declare (not safe)) - (cons __tmp112198 '())))) + (cons __tmp112195 '())))) (declare (not safe)) - (cons __tmp112202 __tmp112197))) - (__tmp112195 + (cons __tmp112199 __tmp112194))) + (__tmp112192 (let () (declare (not safe)) - (cons _L98396_ '())))) + (cons _L98393_ '())))) (declare (not safe)) - (cons __tmp112196 __tmp112195)))) + (cons __tmp112193 __tmp112192)))) (declare (not safe)) - (cons __tmp112203 __tmp112194)))) + (cons __tmp112200 __tmp112191)))) (declare (not safe)) - (cons __tmp112204 __tmp112193)))) + (cons __tmp112201 __tmp112190)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112192 '())))) + (cons __tmp112189 '())))) (declare (not safe)) - (cons __tmp112205 __tmp112191)))) + (cons __tmp112202 __tmp112188)))) (declare (not safe)) - (cons __tmp112206 __tmp112190)))) + (cons __tmp112203 __tmp112187)))) (declare (not safe)) - (cons __tmp112189 '())))) + (cons __tmp112186 '())))) (declare (not safe)) - (cons __tmp112219 __tmp112188)))) + (cons __tmp112216 __tmp112185)))) (declare (not safe)) - (cons __tmp112187 '())))) + (cons __tmp112184 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112220 __tmp112186))) - (__tmp112172 - (let ((__tmp112173 - (let ((__tmp112184 + (cons __tmp112217 __tmp112183))) + (__tmp112169 + (let ((__tmp112170 + (let ((__tmp112181 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp112174 - (let ((__tmp112175 + (__tmp112171 + (let ((__tmp112172 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112183 + (let ((__tmp112180 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'raise-compile-error))) - (__tmp112176 - (let ((__tmp112177 - (let ((__tmp112178 - (let ((__tmp112179 - (let ((__tmp112182 + (__tmp112173 + (let ((__tmp112174 + (let ((__tmp112175 + (let ((__tmp112176 + (let ((__tmp112179 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp112180 - (let ((__tmp112181 + (__tmp112177 + (let ((__tmp112178 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hd)))) (declare (not safe)) - (cons __tmp112181 '())))) + (cons __tmp112178 '())))) (declare (not safe)) - (cons __tmp112182 __tmp112180)))) + (cons __tmp112179 __tmp112177)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112179 '())))) + (cons __tmp112176 '())))) (declare (not safe)) - (cons _L98399_ __tmp112178)))) + (cons _L98396_ __tmp112175)))) (declare (not safe)) (cons '"Cannot compile; missing method" - __tmp112177)))) + __tmp112174)))) (declare (not safe)) - (cons __tmp112183 __tmp112176)))) + (cons __tmp112180 __tmp112173)))) (declare (not safe)) - (cons __tmp112175 '())))) + (cons __tmp112172 '())))) (declare (not safe)) - (cons __tmp112184 __tmp112174)))) + (cons __tmp112181 __tmp112171)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112173 '())))) + (cons __tmp112170 '())))) (declare (not safe)) - (cons __tmp112185 __tmp112172)))) + (cons __tmp112182 __tmp112169)))) (declare (not safe)) - (cons '() __tmp112171)))) + (cons '() __tmp112168)))) (declare (not safe)) - (cons _L98399_ __tmp112170)))) + (cons _L98396_ __tmp112167)))) (declare (not safe)) - (cons __tmp112223 __tmp112169))) - _hd9834298390_ - _hd9833998380_ - _hd9833698370_) - (_g9832798349_ _g9832898353_)))) + (cons __tmp112220 __tmp112166))) + _hd9833998387_ + _hd9833698377_ + _hd9833398367_) + (_g9832498346_ _g9832598350_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g9832798349_ _g9832898353_)))) - (_g9832798349_ _g9832898353_)))) - (_g9832798349_ _g9832898353_)))) - (_g9832798349_ _g9832898353_))))) - (_g9832698419_ _$stx98323_)))) + (_g9832498346_ _g9832598350_)))) + (_g9832498346_ _g9832598350_)))) + (_g9832498346_ _g9832598350_)))) + (_g9832498346_ _g9832598350_))))) + (_g9832398416_ _$stx98320_)))) (define |gxc[:0:]#defcompile-method| - (lambda (_$stx98423_) - (let* ((___stx109879109880_ _$stx98423_) - (_g9842998509_ + (lambda (_$stx98420_) + (let* ((___stx109876109877_ _$stx98420_) + (_g9842698506_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx109879109880_))))) - (let ((___kont109882109883_ - (lambda (_L98805_ _L98807_ _L98808_ _L98809_) - (let ((__tmp112224 - (let ((__tmp112225 - (let ((__tmp112226 + ___stx109876109877_))))) + (let ((___kont109879109880_ + (lambda (_L98802_ _L98804_ _L98805_ _L98806_) + (let ((__tmp112221 + (let ((__tmp112222 + (let ((__tmp112223 (let () (declare (not safe)) - (cons _L98807_ '())))) + (cons _L98804_ '())))) (declare (not safe)) - (cons __tmp112226 _L98805_)))) + (cons __tmp112223 _L98802_)))) (declare (not safe)) - (cons _L98808_ __tmp112225)))) + (cons _L98805_ __tmp112222)))) (declare (not safe)) - (cons _L98809_ __tmp112224)))) - (___kont109884109885_ - (lambda (_L98717_ _L98719_ _L98720_ _L98721_) - (let ((__tmp112263 + (cons _L98806_ __tmp112221)))) + (___kont109881109882_ + (lambda (_L98714_ _L98716_ _L98717_ _L98718_) + (let ((__tmp112260 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp112227 - (let ((__tmp112228 - (let ((__tmp112229 - (let ((__tmp112262 + (__tmp112224 + (let ((__tmp112225 + (let ((__tmp112226 + (let ((__tmp112259 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'delay))) - (__tmp112230 - (let ((__tmp112231 - (let ((__tmp112261 + (__tmp112227 + (let ((__tmp112228 + (let ((__tmp112258 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp112232 - (let ((__tmp112256 - (let ((__tmp112260 + (__tmp112229 + (let ((__tmp112253 + (let ((__tmp112257 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl))) - (__tmp112257 - (let ((__tmp112258 - (let ((__tmp112259 + (__tmp112254 + (let ((__tmp112255 + (let ((__tmp112256 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-hash-table-eq)))) (declare (not safe)) - (cons __tmp112259 '())))) + (cons __tmp112256 '())))) (declare (not safe)) - (cons __tmp112258 '())))) + (cons __tmp112255 '())))) (declare (not safe)) - (cons __tmp112260 __tmp112257))) - (__tmp112233 - (let ((__tmp112247 - (lambda (_g9874898754_ _g9874998757_) - (let ((__tmp112248 - (let ((__tmp112255 + (cons __tmp112257 __tmp112254))) + (__tmp112230 + (let ((__tmp112244 + (lambda (_g9874598751_ _g9874698754_) + (let ((__tmp112245 + (let ((__tmp112252 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-merge!))) - (__tmp112249 - (let ((__tmp112254 + (__tmp112246 + (let ((__tmp112251 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl))) - (__tmp112250 - (let ((__tmp112251 + (__tmp112247 + (let ((__tmp112248 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112253 + (let ((__tmp112250 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp112252 + (__tmp112249 (let () (declare (not safe)) - (cons _g9874898754_ '())))) + (cons _g9874598751_ '())))) (declare (not safe)) - (cons __tmp112253 __tmp112252)))) + (cons __tmp112250 __tmp112249)))) (declare (not safe)) - (cons __tmp112251 '())))) + (cons __tmp112248 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112254 - __tmp112250)))) + (cons __tmp112251 + __tmp112247)))) (declare (not safe)) - (cons __tmp112255 __tmp112249)))) + (cons __tmp112252 __tmp112246)))) (declare (not safe)) - (cons __tmp112248 _g9874998757_)))) - (__tmp112234 + (cons __tmp112245 _g9874698754_)))) + (__tmp112231 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L98717_ - _L98719_)) - (let ((__tmp112237 - (lambda (_g9875098760_ - _g9875198763_ - _g9875298765_) - (let ((__tmp112238 - (let ((__tmp112246 + _L98714_ + _L98716_)) + (let ((__tmp112234 + (lambda (_g9874798757_ + _g9874898760_ + _g9874998762_) + (let ((__tmp112235 + (let ((__tmp112243 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp112239 - (let ((__tmp112245 + (__tmp112236 + (let ((__tmp112242 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl))) - (__tmp112240 - (let ((__tmp112242 - (let ((__tmp112244 + (__tmp112237 + (let ((__tmp112239 + (let ((__tmp112241 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp112243 + (__tmp112240 (let () (declare (not safe)) - (cons _g9875198763_ '())))) + (cons _g9874898760_ '())))) (declare (not safe)) - (cons __tmp112244 __tmp112243))) - (__tmp112241 + (cons __tmp112241 __tmp112240))) + (__tmp112238 (let () (declare (not safe)) - (cons _g9875098760_ '())))) + (cons _g9874798757_ '())))) (declare (not safe)) - (cons __tmp112242 __tmp112241)))) + (cons __tmp112239 __tmp112238)))) (declare (not safe)) - (cons __tmp112245 __tmp112240)))) + (cons __tmp112242 __tmp112237)))) (declare (not safe)) - (cons __tmp112246 __tmp112239)))) + (cons __tmp112243 __tmp112236)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112238 - _g9875298765_)))) - (__tmp112235 - (let ((__tmp112236 + (cons __tmp112235 + _g9874998762_)))) + (__tmp112232 + (let ((__tmp112233 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl)))) (declare (not safe)) - (cons __tmp112236 '())))) + (cons __tmp112233 '())))) (declare (not safe)) - (foldr2 __tmp112237 - __tmp112235 - _L98717_ - _L98719_))))) + (foldr2 __tmp112234 + __tmp112232 + _L98714_ + _L98716_))))) (declare (not safe)) - (foldr1 __tmp112247 __tmp112234 _L98720_)))) + (foldr1 __tmp112244 __tmp112231 _L98717_)))) (declare (not safe)) - (cons __tmp112256 __tmp112233)))) + (cons __tmp112253 __tmp112230)))) (declare (not safe)) - (cons __tmp112261 __tmp112232)))) + (cons __tmp112258 __tmp112229)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112231 '())))) + (cons __tmp112228 '())))) (declare (not safe)) - (cons __tmp112262 __tmp112230)))) + (cons __tmp112259 __tmp112227)))) (declare (not safe)) - (cons __tmp112229 '())))) + (cons __tmp112226 '())))) (declare (not safe)) - (cons _L98721_ __tmp112228)))) + (cons _L98718_ __tmp112225)))) (declare (not safe)) - (cons __tmp112263 __tmp112227)))) - (___kont109890109891_ - (lambda (_L98556_ _L98558_ _L98559_ _L98560_ _L98561_) - (let ((__tmp112303 + (cons __tmp112260 __tmp112224)))) + (___kont109887109888_ + (lambda (_L98553_ _L98555_ _L98556_ _L98557_ _L98558_) + (let ((__tmp112300 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp112264 - (let ((__tmp112299 - (let ((__tmp112300 - (let ((__tmp112301 - (let ((__tmp112302 + (__tmp112261 + (let ((__tmp112296 + (let ((__tmp112297 + (let ((__tmp112298 + (let ((__tmp112299 (let () (declare (not safe)) - (cons _L98559_ - _L98558_)))) + (cons _L98556_ + _L98555_)))) (declare (not safe)) - (cons __tmp112302 _L98556_)))) + (cons __tmp112299 _L98553_)))) (declare (not safe)) - (cons '#f __tmp112301)))) + (cons '#f __tmp112298)))) (declare (not safe)) - (cons _L98561_ __tmp112300))) - (__tmp112265 - (let ((__tmp112266 - (let ((__tmp112298 + (cons _L98558_ __tmp112297))) + (__tmp112262 + (let ((__tmp112263 + (let ((__tmp112295 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp112267 - (let ((__tmp112294 - (let ((__tmp112295 - (let ((__tmp112297 + (__tmp112264 + (let ((__tmp112291 + (let ((__tmp112292 + (let ((__tmp112294 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx))) - (__tmp112296 + (__tmp112293 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'args)))) (declare (not safe)) - (cons __tmp112297 __tmp112296)))) + (cons __tmp112294 __tmp112293)))) (declare (not safe)) - (cons _L98560_ __tmp112295))) + (cons _L98557_ __tmp112292))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp112268 - (let ((__tmp112269 - (let ((__tmp112293 + (__tmp112265 + (let ((__tmp112266 + (let ((__tmp112290 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'parameterize))) - (__tmp112270 - (let ((__tmp112286 - (let ((__tmp112287 - (let ((__tmp112292 + (__tmp112267 + (let ((__tmp112283 + (let ((__tmp112284 + (let ((__tmp112289 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'current-compile-methods))) - (__tmp112288 - (let ((__tmp112289 - (let ((__tmp112291 + (__tmp112285 + (let ((__tmp112286 + (let ((__tmp112288 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp112290 - (let () (declare (not safe)) (cons _L98559_ '())))) + (__tmp112287 + (let () (declare (not safe)) (cons _L98556_ '())))) (declare (not safe)) - (cons __tmp112291 __tmp112290)))) + (cons __tmp112288 __tmp112287)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112289 '())))) + (cons __tmp112286 '())))) (declare (not safe)) - (cons __tmp112292 __tmp112288)))) + (cons __tmp112289 __tmp112285)))) (declare (not safe)) - (cons __tmp112287 '()))) - (__tmp112271 - (let ((__tmp112279 - (let ((__tmp112285 + (cons __tmp112284 '()))) + (__tmp112268 + (let ((__tmp112276 + (let ((__tmp112282 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare))) - (__tmp112280 - (let ((__tmp112281 - (let ((__tmp112284 + (__tmp112277 + (let ((__tmp112278 + (let ((__tmp112281 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'not))) - (__tmp112282 - (let ((__tmp112283 + (__tmp112279 + (let ((__tmp112280 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'safe)))) (declare (not safe)) - (cons __tmp112283 '())))) + (cons __tmp112280 '())))) (declare (not safe)) - (cons __tmp112284 __tmp112282)))) + (cons __tmp112281 __tmp112279)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112281 '())))) + (cons __tmp112278 '())))) (declare (not safe)) - (cons __tmp112285 __tmp112280))) - (__tmp112272 - (let ((__tmp112273 - (let ((__tmp112278 + (cons __tmp112282 __tmp112277))) + (__tmp112269 + (let ((__tmp112270 + (let ((__tmp112275 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'do-apply-compile-e))) - (__tmp112274 - (let ((__tmp112277 + (__tmp112271 + (let ((__tmp112274 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'stx))) - (__tmp112275 - (let ((__tmp112276 + (__tmp112272 + (let ((__tmp112273 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'args)))) (declare (not safe)) - (cons __tmp112276 '())))) + (cons __tmp112273 '())))) (declare (not safe)) - (cons __tmp112277 __tmp112275)))) + (cons __tmp112274 __tmp112272)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112278 - __tmp112274)))) + (cons __tmp112275 + __tmp112271)))) (declare (not safe)) - (cons __tmp112273 '())))) + (cons __tmp112270 '())))) (declare (not safe)) - (cons __tmp112279 __tmp112272)))) + (cons __tmp112276 __tmp112269)))) (declare (not safe)) - (cons __tmp112286 __tmp112271)))) + (cons __tmp112283 __tmp112268)))) (declare (not safe)) - (cons __tmp112293 __tmp112270)))) + (cons __tmp112290 __tmp112267)))) (declare (not safe)) - (cons __tmp112269 '())))) + (cons __tmp112266 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112294 - __tmp112268)))) + (cons __tmp112291 + __tmp112265)))) (declare (not safe)) - (cons __tmp112298 __tmp112267)))) + (cons __tmp112295 __tmp112264)))) (declare (not safe)) - (cons __tmp112266 '())))) + (cons __tmp112263 '())))) (declare (not safe)) - (cons __tmp112299 __tmp112265)))) + (cons __tmp112296 __tmp112262)))) (declare (not safe)) - (cons __tmp112303 __tmp112264))))) - (let* ((___match109972109973_ - (lambda (_e9849498516_ - _hd9849398520_ - _tl9849298523_ - _e9849798526_ - _hd9849698530_ - _tl9849598533_ - _e9850098536_ - _hd9849998540_ - _tl9849898543_ - _e9850398546_ - _hd9850298550_ - _tl9850198553_) - (let ((_L98556_ _tl9849898543_) - (_L98558_ _tl9850198553_) - (_L98559_ _hd9850298550_) - (_L98560_ _hd9849698530_) - (_L98561_ _hd9849398520_)) + (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_)) (if (let () (declare (not safe)) - (gx#identifier? _L98560_)) - (___kont109890109891_ + (gx#identifier? _L98557_)) + (___kont109887109888_ + _L98553_ + _L98555_ _L98556_ - _L98558_ - _L98559_ - _L98560_ - _L98561_) - (let () (declare (not safe)) (_g9842998509_)))))) - (___match109948109949_ - (lambda (_e9845098589_ - _hd9844998593_ - _tl9844898596_ - _e9845398599_ - _hd9845298603_ - _tl9845198606_ - _e9845498609_ - _e9845798613_ - _hd9845698617_ - _tl9845598620_ - _e9846098623_ - _hd9845998627_ - _tl9845898630_ - ___splice109886109887_ - _target9846198633_ - _tl9846398636_) - (letrec ((_loop9846498639_ - (lambda (_hd9846298643_ _super9846898646_) + _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_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9846298643_)) - (let ((_e9846598649_ + (gx#stx-pair? _hd9845998640_)) + (let ((_e9846298646_ (let () (declare (not safe)) - (gx#syntax-e _hd9846298643_)))) - (let ((_lp-tl9846798656_ + (gx#syntax-e _hd9845998640_)))) + (let ((_lp-tl9846498653_ (let () (declare (not safe)) - (##cdr _e9846598649_))) - (_lp-hd9846698653_ + (##cdr _e9846298646_))) + (_lp-hd9846398650_ (let () (declare (not safe)) - (##car _e9846598649_)))) - (_loop9846498639_ - _lp-tl9846798656_ + (##car _e9846298646_)))) + (_loop9846198636_ + _lp-tl9846498653_ (let () (declare (not safe)) - (cons _lp-hd9846698653_ - _super9846898646_))))) - (let ((_super9846998659_ - (reverse _super9846898646_))) + (cons _lp-hd9846398650_ + _super9846598643_))))) + (let ((_super9846698656_ + (reverse _super9846598643_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl9845598620_)) - (let ((___splice109888109889_ + _tl9845298617_)) + (let ((___splice109885109886_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl9845598620_ + _tl9845298617_ '0)))) - (let ((_tl9847298666_ + (let ((_tl9846998663_ (let () (declare (not safe)) (##vector-ref - ___splice109888109889_ + ___splice109885109886_ '1))) - (_target9847098663_ + (_target9846798660_ (let () (declare (not safe)) (##vector-ref - ___splice109888109889_ + ___splice109885109886_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9847298666_)) - (letrec ((_loop9847398669_ - (lambda (_hd9847198673_ + _tl9846998663_)) + (letrec ((_loop9847098666_ + (lambda (_hd9846898670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _method9847798676_ - _symbol9847898678_) + _method9847498673_ + _symbol9847598675_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9847198673_)) - (let ((_e9847498681_ + (gx#stx-pair? _hd9846898670_)) + (let ((_e9847198678_ (let () (declare (not safe)) - (gx#syntax-e _hd9847198673_)))) - (let ((_lp-tl9847698688_ + (gx#syntax-e _hd9846898670_)))) + (let ((_lp-tl9847398685_ (let () (declare (not safe)) - (##cdr _e9847498681_))) - (_lp-hd9847598685_ + (##cdr _e9847198678_))) + (_lp-hd9847298682_ (let () (declare (not safe)) - (##car _e9847498681_)))) + (##car _e9847198678_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd9847598685_)) - (let ((_e9848398691_ + (gx#stx-pair? _lp-hd9847298682_)) + (let ((_e9848098688_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd9847598685_)))) - (let ((_tl9848198698_ + (gx#syntax-e _lp-hd9847298682_)))) + (let ((_tl9847898695_ (let () (declare (not safe)) - (##cdr _e9848398691_))) - (_hd9848298695_ + (##cdr _e9848098688_))) + (_hd9847998692_ (let () (declare (not safe)) - (##car _e9848398691_)))) + (##car _e9848098688_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9848198698_)) - (let ((_e9848698701_ + (gx#stx-pair? _tl9847898695_)) + (let ((_e9848398698_ (let () (declare (not safe)) (gx#syntax-e - _tl9848198698_)))) - (let ((_tl9848498708_ + _tl9847898695_)))) + (let ((_tl9848198705_ (let () (declare (not safe)) - (##cdr _e9848698701_))) - (_hd9848598705_ + (##cdr _e9848398698_))) + (_hd9848298702_ (let () (declare (not safe)) - (##car _e9848698701_)))) + (##car _e9848398698_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9848498708_)) - (_loop9847398669_ - _lp-tl9847698688_ + _tl9848198705_)) + (_loop9847098666_ + _lp-tl9847398685_ (let () (declare (not safe)) - (cons _hd9848598705_ - _method9847798676_)) + (cons _hd9848298702_ + _method9847498673_)) (let () (declare (not safe)) - (cons _hd9848298695_ - _symbol9847898678_))) - (___match109972109973_ - _e9845098589_ - _hd9844998593_ - _tl9844898596_ - _e9845398599_ - _hd9845298603_ - _tl9845198606_ - _e9845798613_ - _hd9845698617_ - _tl9845598620_ - _e9846098623_ - _hd9845998627_ - _tl9845898630_)))) - (___match109972109973_ - _e9845098589_ - _hd9844998593_ - _tl9844898596_ - _e9845398599_ - _hd9845298603_ - _tl9845198606_ - _e9845798613_ - _hd9845698617_ - _tl9845598620_ - _e9846098623_ - _hd9845998627_ - _tl9845898630_)))) - (___match109972109973_ - _e9845098589_ - _hd9844998593_ - _tl9844898596_ - _e9845398599_ - _hd9845298603_ - _tl9845198606_ - _e9845798613_ - _hd9845698617_ - _tl9845598620_ - _e9846098623_ - _hd9845998627_ - _tl9845898630_)))) - (let ((_symbol9848098714_ - (reverse _symbol9847898678_)) - (_method9847998711_ - (reverse _method9847798676_))) - (___kont109884109885_ - _method9847998711_ - _symbol9848098714_ - _super9846998659_ - _hd9845998627_)))))) - (_loop9847398669_ _target9847098663_ '() '())) + (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_ '() '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match109972109973_ - _e9845098589_ - _hd9844998593_ - _tl9844898596_ - _e9845398599_ - _hd9845298603_ - _tl9845198606_ - _e9845798613_ - _hd9845698617_ - _tl9845598620_ - _e9846098623_ - _hd9845998627_ - _tl9845898630_)))) - (___match109972109973_ - _e9845098589_ - _hd9844998593_ - _tl9844898596_ - _e9845398599_ - _hd9845298603_ - _tl9845198606_ - _e9845798613_ - _hd9845698617_ - _tl9845598620_ - _e9846098623_ - _hd9845998627_ - _tl9845898630_))))))) - (_loop9846498639_ _target9846198633_ '())))) - (___match109910109911_ - (lambda (_e9843798775_ - _hd9843698779_ - _tl9843598782_ - _e9844098785_ - _hd9843998789_ - _tl9843898792_ - _e9844398795_ - _hd9844298799_ - _tl9844198802_) - (let ((_L98805_ _tl9844198802_) - (_L98807_ _hd9844298799_) - (_L98808_ _hd9843998789_) - (_L98809_ _hd9843698779_)) + (___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_)) (if (let () (declare (not safe)) - (gx#identifier? _L98807_)) - (___kont109882109883_ + (gx#identifier? _L98804_)) + (___kont109879109880_ + _L98802_ + _L98804_ _L98805_ - _L98807_ - _L98808_ - _L98809_) + _L98806_) (if (let () (declare (not safe)) - (gx#stx-datum? _hd9843998789_)) - (let ((_e9845498609_ + (gx#stx-datum? _hd9843698786_)) + (let ((_e9845198606_ (let () (declare (not safe)) - (gx#stx-e _hd9843998789_)))) + (gx#stx-e _hd9843698786_)))) (if (let () (declare (not safe)) - (equal? _e9845498609_ '#f)) + (equal? _e9845198606_ '#f)) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9844298799_)) - (let ((_e9846098623_ + (gx#stx-pair? _hd9843998796_)) + (let ((_e9845798620_ (let () (declare (not safe)) (gx#syntax-e - _hd9844298799_)))) - (let ((_tl9845898630_ + _hd9843998796_)))) + (let ((_tl9845598627_ (let () (declare (not safe)) - (##cdr _e9846098623_))) - (_hd9845998627_ + (##cdr _e9845798620_))) + (_hd9845698624_ (let () (declare (not safe)) - (##car _e9846098623_)))) + (##car _e9845798620_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl9845898630_)) - (let ((___splice109886109887_ + _tl9845598627_)) + (let ((___splice109883109884_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl9845898630_ + _tl9845598627_ '0)))) - (let ((_tl9846398636_ + (let ((_tl9846098633_ (let () (declare (not safe)) (##vector-ref - ___splice109886109887_ + ___splice109883109884_ '1))) - (_target9846198633_ + (_target9845898630_ (let () (declare (not safe)) (##vector-ref - ___splice109886109887_ + ___splice109883109884_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9846398636_)) - (___match109948109949_ - _e9843798775_ - _hd9843698779_ - _tl9843598782_ - _e9844098785_ - _hd9843998789_ - _tl9843898792_ - _e9845498609_ - _e9844398795_ - _hd9844298799_ - _tl9844198802_ - _e9846098623_ - _hd9845998627_ - _tl9845898630_ - ___splice109886109887_ - _target9846198633_ - _tl9846398636_) - (___match109972109973_ - _e9843798775_ - _hd9843698779_ - _tl9843598782_ - _e9844098785_ - _hd9843998789_ - _tl9843898792_ - _e9844398795_ - _hd9844298799_ - _tl9844198802_ - _e9846098623_ - _hd9845998627_ - _tl9845898630_)))) - (___match109972109973_ - _e9843798775_ - _hd9843698779_ - _tl9843598782_ - _e9844098785_ - _hd9843998789_ - _tl9843898792_ - _e9844398795_ - _hd9844298799_ - _tl9844198802_ - _e9846098623_ - _hd9845998627_ - _tl9845898630_)))) + _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_)))) (let () (declare (not safe)) - (_g9842998509_))) + (_g9842698506_))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9844298799_)) - (let ((_e9850398546_ + (gx#stx-pair? _hd9843998796_)) + (let ((_e9850098543_ (let () (declare (not safe)) (gx#syntax-e - _hd9844298799_)))) - (let ((_tl9850198553_ + _hd9843998796_)))) + (let ((_tl9849898550_ (let () (declare (not safe)) - (##cdr _e9850398546_))) - (_hd9850298550_ + (##cdr _e9850098543_))) + (_hd9849998547_ (let () (declare (not safe)) - (##car _e9850398546_)))) - (___match109972109973_ - _e9843798775_ - _hd9843698779_ - _tl9843598782_ - _e9844098785_ - _hd9843998789_ - _tl9843898792_ - _e9844398795_ - _hd9844298799_ - _tl9844198802_ - _e9850398546_ - _hd9850298550_ - _tl9850198553_))) + (##car _e9850098543_)))) + (___match109969109970_ + _e9843498772_ + _hd9843398776_ + _tl9843298779_ + _e9843798782_ + _hd9843698786_ + _tl9843598789_ + _e9844098792_ + _hd9843998796_ + _tl9843898799_ + _e9850098543_ + _hd9849998547_ + _tl9849898550_))) (let () (declare (not safe)) - (_g9842998509_))))) + (_g9842698506_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9844298799_)) - (let ((_e9850398546_ + (gx#stx-pair? _hd9843998796_)) + (let ((_e9850098543_ (let () (declare (not safe)) - (gx#syntax-e _hd9844298799_)))) - (let ((_tl9850198553_ + (gx#syntax-e _hd9843998796_)))) + (let ((_tl9849898550_ (let () (declare (not safe)) - (##cdr _e9850398546_))) - (_hd9850298550_ + (##cdr _e9850098543_))) + (_hd9849998547_ (let () (declare (not safe)) - (##car _e9850398546_)))) - (___match109972109973_ - _e9843798775_ - _hd9843698779_ - _tl9843598782_ - _e9844098785_ - _hd9843998789_ - _tl9843898792_ - _e9844398795_ - _hd9844298799_ - _tl9844198802_ - _e9850398546_ - _hd9850298550_ - _tl9850198553_))) + (##car _e9850098543_)))) + (___match109969109970_ + _e9843498772_ + _hd9843398776_ + _tl9843298779_ + _e9843798782_ + _hd9843698786_ + _tl9843598789_ + _e9844098792_ + _hd9843998796_ + _tl9843898799_ + _e9850098543_ + _hd9849998547_ + _tl9849898550_))) (let () (declare (not safe)) - (_g9842998509_))))))))) + (_g9842698506_))))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx109879109880_)) - (let ((_e9843798775_ + (gx#stx-pair? ___stx109876109877_)) + (let ((_e9843498772_ (let () (declare (not safe)) - (gx#syntax-e ___stx109879109880_)))) - (let ((_tl9843598782_ - (let () (declare (not safe)) (##cdr _e9843798775_))) - (_hd9843698779_ + (gx#syntax-e ___stx109876109877_)))) + (let ((_tl9843298779_ + (let () (declare (not safe)) (##cdr _e9843498772_))) + (_hd9843398776_ (let () (declare (not safe)) - (##car _e9843798775_)))) + (##car _e9843498772_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9843598782_)) - (let ((_e9844098785_ + (gx#stx-pair? _tl9843298779_)) + (let ((_e9843798782_ (let () (declare (not safe)) - (gx#syntax-e _tl9843598782_)))) - (let ((_tl9843898792_ + (gx#syntax-e _tl9843298779_)))) + (let ((_tl9843598789_ (let () (declare (not safe)) - (##cdr _e9844098785_))) - (_hd9843998789_ + (##cdr _e9843798782_))) + (_hd9843698786_ (let () (declare (not safe)) - (##car _e9844098785_)))) + (##car _e9843798782_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9843898792_)) - (let ((_e9844398795_ + (gx#stx-pair? _tl9843598789_)) + (let ((_e9844098792_ (let () (declare (not safe)) - (gx#syntax-e _tl9843898792_)))) - (let ((_tl9844198802_ + (gx#syntax-e _tl9843598789_)))) + (let ((_tl9843898799_ (let () (declare (not safe)) - (##cdr _e9844398795_))) - (_hd9844298799_ + (##cdr _e9844098792_))) + (_hd9843998796_ (let () (declare (not safe)) - (##car _e9844398795_)))) - (___match109910109911_ - _e9843798775_ - _hd9843698779_ - _tl9843598782_ - _e9844098785_ - _hd9843998789_ - _tl9843898792_ - _e9844398795_ - _hd9844298799_ - _tl9844198802_))) + (##car _e9844098792_)))) + (___match109907109908_ + _e9843498772_ + _hd9843398776_ + _tl9843298779_ + _e9843798782_ + _hd9843698786_ + _tl9843598789_ + _e9844098792_ + _hd9843998796_ + _tl9843898799_))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd9843998789_)) - (let ((_e9845498609_ + (gx#stx-datum? _hd9843698786_)) + (let ((_e9845198606_ (let () (declare (not safe)) - (gx#stx-e _hd9843998789_)))) + (gx#stx-e _hd9843698786_)))) (declare (not safe)) - (_g9842998509_)) + (_g9842698506_)) (let () (declare (not safe)) - (_g9842998509_)))))) - (let () (declare (not safe)) (_g9842998509_))))) - (let () (declare (not safe)) (_g9842998509_)))))))) + (_g9842698506_)))))) + (let () (declare (not safe)) (_g9842698506_))))) + (let () (declare (not safe)) (_g9842698506_)))))))) (define |gxc[:0:]#do-apply-compile-e| - (lambda (_$stx98832_) - (let* ((_g9883698854_ - (lambda (_g9883798850_) + (lambda (_$stx98829_) + (let* ((_g9883398851_ + (lambda (_g9883498847_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9883798850_)))) - (_g9883598909_ - (lambda (_g9883798858_) + _g9883498847_)))) + (_g9883298906_ + (lambda (_g9883498855_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9883798858_)) - (let ((_e9884298861_ + (gx#stx-pair? _g9883498855_)) + (let ((_e9883998858_ (let () (declare (not safe)) - (gx#syntax-e _g9883798858_)))) - (let ((_hd9884198865_ + (gx#syntax-e _g9883498855_)))) + (let ((_hd9883898862_ (let () (declare (not safe)) - (##car _e9884298861_))) - (_tl9884098868_ + (##car _e9883998858_))) + (_tl9883798865_ (let () (declare (not safe)) - (##cdr _e9884298861_)))) + (##cdr _e9883998858_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9884098868_)) - (let ((_e9884598871_ + (gx#stx-pair? _tl9883798865_)) + (let ((_e9884298868_ (let () (declare (not safe)) - (gx#syntax-e _tl9884098868_)))) - (let ((_hd9884498875_ + (gx#syntax-e _tl9883798865_)))) + (let ((_hd9884198872_ (let () (declare (not safe)) - (##car _e9884598871_))) - (_tl9884398878_ + (##car _e9884298868_))) + (_tl9884098875_ (let () (declare (not safe)) - (##cdr _e9884598871_)))) + (##cdr _e9884298868_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9884398878_)) - (let ((_e9884898881_ + (gx#stx-pair? _tl9884098875_)) + (let ((_e9884598878_ (let () (declare (not safe)) - (gx#syntax-e _tl9884398878_)))) - (let ((_hd9884798885_ + (gx#syntax-e _tl9884098875_)))) + (let ((_hd9884498882_ (let () (declare (not safe)) - (##car _e9884898881_))) - (_tl9884698888_ + (##car _e9884598878_))) + (_tl9884398885_ (let () (declare (not safe)) - (##cdr _e9884898881_)))) + (##cdr _e9884598878_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9884698888_)) - ((lambda (_L98891_ _L98893_) - (let ((__tmp112392 + (gx#stx-null? _tl9884398885_)) + ((lambda (_L98888_ _L98890_) + (let ((__tmp112389 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp112304 - (let ((__tmp112389 - (let ((__tmp112391 + (__tmp112301 + (let ((__tmp112386 + (let ((__tmp112388 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'null?))) - (__tmp112390 + (__tmp112387 (let () (declare (not safe)) - (cons _L98891_ '())))) + (cons _L98888_ '())))) (declare (not safe)) - (cons __tmp112391 __tmp112390))) - (__tmp112305 - (let ((__tmp112386 - (let ((__tmp112388 + (cons __tmp112388 __tmp112387))) + (__tmp112302 + (let ((__tmp112383 + (let ((__tmp112385 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp112387 + (__tmp112384 (let () (declare (not safe)) - (cons _L98893_ '())))) + (cons _L98890_ '())))) (declare (not safe)) - (cons __tmp112388 __tmp112387))) - (__tmp112306 - (let ((__tmp112307 - (let ((__tmp112385 + (cons __tmp112385 __tmp112384))) + (__tmp112303 + (let ((__tmp112304 + (let ((__tmp112382 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp112308 - (let ((__tmp112371 - (let ((__tmp112379 - (let ((__tmp112384 + (__tmp112305 + (let ((__tmp112368 + (let ((__tmp112376 + (let ((__tmp112381 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg1))) - (__tmp112380 - (let ((__tmp112381 - (let ((__tmp112383 + (__tmp112377 + (let ((__tmp112378 + (let ((__tmp112380 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'car))) - (__tmp112382 + (__tmp112379 (let () (declare (not safe)) - (cons _L98891_ '())))) + (cons _L98888_ '())))) (declare (not safe)) - (cons __tmp112383 __tmp112382)))) + (cons __tmp112380 __tmp112379)))) (declare (not safe)) - (cons __tmp112381 '())))) + (cons __tmp112378 '())))) (declare (not safe)) - (cons __tmp112384 __tmp112380))) - (__tmp112372 - (let ((__tmp112373 - (let ((__tmp112378 + (cons __tmp112381 __tmp112377))) + (__tmp112369 + (let ((__tmp112370 + (let ((__tmp112375 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp112374 - (let ((__tmp112375 - (let ((__tmp112377 + (__tmp112371 + (let ((__tmp112372 + (let ((__tmp112374 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cdr))) - (__tmp112376 + (__tmp112373 (let () (declare (not safe)) - (cons _L98891_ '())))) + (cons _L98888_ '())))) (declare (not safe)) - (cons __tmp112377 __tmp112376)))) + (cons __tmp112374 __tmp112373)))) (declare (not safe)) - (cons __tmp112375 '())))) + (cons __tmp112372 '())))) (declare (not safe)) - (cons __tmp112378 __tmp112374)))) + (cons __tmp112375 __tmp112371)))) (declare (not safe)) - (cons __tmp112373 '())))) + (cons __tmp112370 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112379 - __tmp112372))) - (__tmp112309 - (let ((__tmp112310 - (let ((__tmp112370 + (cons __tmp112376 + __tmp112369))) + (__tmp112306 + (let ((__tmp112307 + (let ((__tmp112367 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp112311 - (let ((__tmp112366 - (let ((__tmp112369 + (__tmp112308 + (let ((__tmp112363 + (let ((__tmp112366 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'null?))) - (__tmp112367 - (let ((__tmp112368 + (__tmp112364 + (let ((__tmp112365 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp112368 '())))) + (cons __tmp112365 '())))) (declare (not safe)) - (cons __tmp112369 __tmp112367))) - (__tmp112312 - (let ((__tmp112361 - (let ((__tmp112365 + (cons __tmp112366 __tmp112364))) + (__tmp112309 + (let ((__tmp112358 + (let ((__tmp112362 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp112362 - (let ((__tmp112363 - (let ((__tmp112364 + (__tmp112359 + (let ((__tmp112360 + (let ((__tmp112361 (let () (declare (not safe)) @@ -1619,575 +1619,575 @@ '#f 'arg1)))) (declare (not safe)) - (cons __tmp112364 + (cons __tmp112361 '())))) (declare (not safe)) - (cons _L98893_ __tmp112363)))) + (cons _L98890_ __tmp112360)))) (declare (not safe)) - (cons __tmp112365 __tmp112362))) - (__tmp112313 - (let ((__tmp112314 - (let ((__tmp112360 + (cons __tmp112362 __tmp112359))) + (__tmp112310 + (let ((__tmp112311 + (let ((__tmp112357 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp112315 - (let ((__tmp112344 - (let ((__tmp112353 + (__tmp112312 + (let ((__tmp112341 + (let ((__tmp112350 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112359 + (let ((__tmp112356 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg2))) - (__tmp112354 - (let ((__tmp112355 - (let ((__tmp112358 + (__tmp112351 + (let ((__tmp112352 + (let ((__tmp112355 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'car))) - (__tmp112356 - (let ((__tmp112357 + (__tmp112353 + (let ((__tmp112354 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp112357 '())))) + (cons __tmp112354 '())))) (declare (not safe)) - (cons __tmp112358 __tmp112356)))) + (cons __tmp112355 __tmp112353)))) (declare (not safe)) - (cons __tmp112355 '())))) + (cons __tmp112352 '())))) (declare (not safe)) - (cons __tmp112359 __tmp112354))) - (__tmp112345 - (let ((__tmp112346 - (let ((__tmp112352 + (cons __tmp112356 __tmp112351))) + (__tmp112342 + (let ((__tmp112343 + (let ((__tmp112349 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp112347 - (let ((__tmp112348 - (let ((__tmp112351 + (__tmp112344 + (let ((__tmp112345 + (let ((__tmp112348 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cdr))) - (__tmp112349 - (let ((__tmp112350 + (__tmp112346 + (let ((__tmp112347 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp112350 '())))) + (cons __tmp112347 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112351 - __tmp112349)))) + (cons __tmp112348 + __tmp112346)))) (declare (not safe)) - (cons __tmp112348 '())))) + (cons __tmp112345 '())))) (declare (not safe)) - (cons __tmp112352 __tmp112347)))) + (cons __tmp112349 __tmp112344)))) (declare (not safe)) - (cons __tmp112346 '())))) + (cons __tmp112343 '())))) (declare (not safe)) - (cons __tmp112353 __tmp112345))) - (__tmp112316 - (let ((__tmp112317 - (let ((__tmp112343 + (cons __tmp112350 __tmp112342))) + (__tmp112313 + (let ((__tmp112314 + (let ((__tmp112340 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp112318 - (let ((__tmp112339 - (let ((__tmp112342 + (__tmp112315 + (let ((__tmp112336 + (let ((__tmp112339 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'null?))) - (__tmp112340 - (let ((__tmp112341 + (__tmp112337 + (let ((__tmp112338 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp112341 '())))) + (cons __tmp112338 '())))) (declare (not safe)) - (cons __tmp112342 __tmp112340))) - (__tmp112319 - (let ((__tmp112332 - (let ((__tmp112338 + (cons __tmp112339 __tmp112337))) + (__tmp112316 + (let ((__tmp112329 + (let ((__tmp112335 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp112333 - (let ((__tmp112334 - (let ((__tmp112337 + (__tmp112330 + (let ((__tmp112331 + (let ((__tmp112334 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg1))) - (__tmp112335 - (let ((__tmp112336 + (__tmp112332 + (let ((__tmp112333 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg2)))) (declare (not safe)) - (cons __tmp112336 '())))) + (cons __tmp112333 '())))) (declare (not safe)) - (cons __tmp112337 __tmp112335)))) + (cons __tmp112334 __tmp112332)))) (declare (not safe)) - (cons _L98893_ __tmp112334)))) + (cons _L98890_ __tmp112331)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112338 - __tmp112333))) - (__tmp112320 - (let ((__tmp112321 - (let ((__tmp112331 + (cons __tmp112335 + __tmp112330))) + (__tmp112317 + (let ((__tmp112318 + (let ((__tmp112328 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'apply))) - (__tmp112322 - (let ((__tmp112330 + (__tmp112319 + (let ((__tmp112327 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp112323 - (let ((__tmp112324 - (let ((__tmp112329 + (__tmp112320 + (let ((__tmp112321 + (let ((__tmp112326 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg1))) - (__tmp112325 - (let ((__tmp112328 + (__tmp112322 + (let ((__tmp112325 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg2))) - (__tmp112326 - (let ((__tmp112327 + (__tmp112323 + (let ((__tmp112324 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp112327 '())))) + (cons __tmp112324 '())))) (declare (not safe)) - (cons __tmp112328 __tmp112326)))) + (cons __tmp112325 __tmp112323)))) (declare (not safe)) - (cons __tmp112329 __tmp112325)))) + (cons __tmp112326 __tmp112322)))) (declare (not safe)) - (cons _L98893_ __tmp112324)))) + (cons _L98890_ __tmp112321)))) (declare (not safe)) - (cons __tmp112330 __tmp112323)))) + (cons __tmp112327 __tmp112320)))) (declare (not safe)) - (cons __tmp112331 __tmp112322)))) + (cons __tmp112328 __tmp112319)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112321 '())))) + (cons __tmp112318 '())))) (declare (not safe)) - (cons __tmp112332 __tmp112320)))) + (cons __tmp112329 __tmp112317)))) (declare (not safe)) - (cons __tmp112339 __tmp112319)))) + (cons __tmp112336 __tmp112316)))) (declare (not safe)) - (cons __tmp112343 __tmp112318)))) + (cons __tmp112340 __tmp112315)))) (declare (not safe)) - (cons __tmp112317 '())))) + (cons __tmp112314 '())))) (declare (not safe)) - (cons __tmp112344 __tmp112316)))) + (cons __tmp112341 __tmp112313)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112360 - __tmp112315)))) + (cons __tmp112357 + __tmp112312)))) (declare (not safe)) - (cons __tmp112314 '())))) + (cons __tmp112311 '())))) (declare (not safe)) - (cons __tmp112361 __tmp112313)))) + (cons __tmp112358 __tmp112310)))) (declare (not safe)) - (cons __tmp112366 __tmp112312)))) + (cons __tmp112363 __tmp112309)))) (declare (not safe)) - (cons __tmp112370 __tmp112311)))) + (cons __tmp112367 __tmp112308)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112310 '())))) + (cons __tmp112307 '())))) (declare (not safe)) - (cons __tmp112371 __tmp112309)))) + (cons __tmp112368 __tmp112306)))) (declare (not safe)) - (cons __tmp112385 __tmp112308)))) + (cons __tmp112382 __tmp112305)))) (declare (not safe)) - (cons __tmp112307 '())))) + (cons __tmp112304 '())))) (declare (not safe)) - (cons __tmp112386 __tmp112306)))) + (cons __tmp112383 __tmp112303)))) (declare (not safe)) - (cons __tmp112389 __tmp112305)))) + (cons __tmp112386 __tmp112302)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112392 - __tmp112304))) - _hd9884798885_ - _hd9884498875_) - (_g9883698854_ _g9883798858_)))) - (_g9883698854_ _g9883798858_)))) - (_g9883698854_ _g9883798858_)))) - (_g9883698854_ _g9883798858_))))) - (_g9883598909_ _$stx98832_)))) + (cons __tmp112389 + __tmp112301))) + _hd9884498882_ + _hd9884198872_) + (_g9883398851_ _g9883498855_)))) + (_g9883398851_ _g9883498855_)))) + (_g9883398851_ _g9883498855_)))) + (_g9883398851_ _g9883498855_))))) + (_g9883298906_ _$stx98829_)))) (define |gxc[:0:]#with-primitive-bind+args| - (lambda (_$stx98913_) - (let* ((_g9891798952_ - (lambda (_g9891898948_) + (lambda (_$stx98910_) + (let* ((_g9891498949_ + (lambda (_g9891598945_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9891898948_)))) - (_g9891699077_ - (lambda (_g9891898956_) + _g9891598945_)))) + (_g9891399074_ + (lambda (_g9891598953_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9891898956_)) - (let ((_e9892598959_ + (gx#stx-pair? _g9891598953_)) + (let ((_e9892298956_ (let () (declare (not safe)) - (gx#syntax-e _g9891898956_)))) - (let ((_hd9892498963_ + (gx#syntax-e _g9891598953_)))) + (let ((_hd9892198960_ (let () (declare (not safe)) - (##car _e9892598959_))) - (_tl9892398966_ + (##car _e9892298956_))) + (_tl9892098963_ (let () (declare (not safe)) - (##cdr _e9892598959_)))) + (##cdr _e9892298956_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9892398966_)) - (let ((_e9892898969_ + (gx#stx-pair? _tl9892098963_)) + (let ((_e9892598966_ (let () (declare (not safe)) - (gx#syntax-e _tl9892398966_)))) - (let ((_hd9892798973_ + (gx#syntax-e _tl9892098963_)))) + (let ((_hd9892498970_ (let () (declare (not safe)) - (##car _e9892898969_))) - (_tl9892698976_ + (##car _e9892598966_))) + (_tl9892398973_ (let () (declare (not safe)) - (##cdr _e9892898969_)))) + (##cdr _e9892598966_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9892798973_)) - (let ((_e9893198979_ + (gx#stx-pair? _hd9892498970_)) + (let ((_e9892898976_ (let () (declare (not safe)) - (gx#syntax-e _hd9892798973_)))) - (let ((_hd9893098983_ + (gx#syntax-e _hd9892498970_)))) + (let ((_hd9892798980_ (let () (declare (not safe)) - (##car _e9893198979_))) - (_tl9892998986_ + (##car _e9892898976_))) + (_tl9892698983_ (let () (declare (not safe)) - (##cdr _e9893198979_)))) + (##cdr _e9892898976_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9892998986_)) - (let ((_e9893498989_ + (gx#stx-pair? _tl9892698983_)) + (let ((_e9893198986_ (let () (declare (not safe)) (gx#syntax-e - _tl9892998986_)))) - (let ((_hd9893398993_ + _tl9892698983_)))) + (let ((_hd9893098990_ (let () (declare (not safe)) - (##car _e9893498989_))) - (_tl9893298996_ + (##car _e9893198986_))) + (_tl9892998993_ (let () (declare (not safe)) - (##cdr _e9893498989_)))) + (##cdr _e9893198986_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl9893298996_)) - (let ((_e9893798999_ + _tl9892998993_)) + (let ((_e9893498996_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _tl9893298996_)))) - (let ((_hd9893699003_ - (let () (declare (not safe)) (##car _e9893798999_))) - (_tl9893599006_ - (let () (declare (not safe)) (##cdr _e9893798999_)))) + (gx#syntax-e _tl9892998993_)))) + (let ((_hd9893399000_ + (let () (declare (not safe)) (##car _e9893498996_))) + (_tl9893299003_ + (let () (declare (not safe)) (##cdr _e9893498996_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9893599006_)) + (gx#stx-null? _tl9893299003_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl9892698976_)) - (let ((_g112393_ + (gx#stx-pair/null? _tl9892398973_)) + (let ((_g112390_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl9892698976_ + _tl9892398973_ '0)))) (begin - (let ((_g112394_ + (let ((_g112391_ (let () (declare (not safe)) - (if (##values? _g112393_) - (##vector-length _g112393_) + (if (##values? _g112390_) + (##vector-length _g112390_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g112394_ 2))) + (##fx= _g112391_ 2))) (error "Context expects 2 values" - _g112394_))) - (let ((_target9893899009_ + _g112391_))) + (let ((_target9893599006_ (let () (declare (not safe)) - (##vector-ref _g112393_ 0))) - (_tl9894099012_ + (##vector-ref _g112390_ 0))) + (_tl9893799009_ (let () (declare (not safe)) - (##vector-ref _g112393_ 1)))) + (##vector-ref _g112390_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9894099012_)) - (letrec ((_loop9894199015_ - (lambda (_hd9893999019_ - _body9894599022_) + (gx#stx-null? _tl9893799009_)) + (letrec ((_loop9893899012_ + (lambda (_hd9893699016_ + _body9894299019_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd9893999019_)) - (let ((_e9894299025_ + _hd9893699016_)) + (let ((_e9893999022_ (let () (declare (not safe)) (gx#syntax-e - _hd9893999019_)))) - (let ((_lp-hd9894399029_ + _hd9893699016_)))) + (let ((_lp-hd9894099026_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e9894299025_))) - (_lp-tl9894499032_ - (let () (declare (not safe)) (##cdr _e9894299025_)))) - (_loop9894199015_ - _lp-tl9894499032_ + (##car _e9893999022_))) + (_lp-tl9894199029_ + (let () (declare (not safe)) (##cdr _e9893999022_)))) + (_loop9893899012_ + _lp-tl9894199029_ (let () (declare (not safe)) - (cons _lp-hd9894399029_ _body9894599022_))))) + (cons _lp-hd9894099026_ _body9894299019_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_body9894699035_ - (reverse _body9894599022_))) - ((lambda (_L99039_ - _L99041_ - _L99042_ - _L99043_) - (let ((__tmp112526 + (let ((_body9894399032_ + (reverse _body9894299019_))) + ((lambda (_L99036_ + _L99038_ + _L99039_ + _L99040_) + (let ((__tmp112523 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp112395 - (let ((__tmp112525 + (__tmp112392 + (let ((__tmp112522 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp112396 - (let ((__tmp112511 - (let ((__tmp112522 - (let ((__tmp112524 + (__tmp112393 + (let ((__tmp112508 + (let ((__tmp112519 + (let ((__tmp112521 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp112523 + (__tmp112520 (let () (declare (not safe)) - (cons _L99041_ '())))) + (cons _L99038_ '())))) (declare (not safe)) - (cons __tmp112524 __tmp112523))) - (__tmp112512 - (let ((__tmp112518 - (let ((__tmp112519 - (let ((__tmp112520 + (cons __tmp112521 __tmp112520))) + (__tmp112509 + (let ((__tmp112515 + (let ((__tmp112516 + (let ((__tmp112517 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112521 + (let ((__tmp112518 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)))) (declare (not safe)) - (cons __tmp112521 '())))) + (cons __tmp112518 '())))) (declare (not safe)) - (cons __tmp112520 '())))) + (cons __tmp112517 '())))) (declare (not safe)) - (cons _L99043_ __tmp112519))) + (cons _L99040_ __tmp112516))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp112513 - (let ((__tmp112514 - (let ((__tmp112515 + (__tmp112510 + (let ((__tmp112511 + (let ((__tmp112512 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112516 - (let ((__tmp112517 + (let ((__tmp112513 + (let ((__tmp112514 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)))) (declare (not safe)) - (cons __tmp112517 '())))) + (cons __tmp112514 '())))) (declare (not safe)) - (cons __tmp112516 '())))) + (cons __tmp112513 '())))) (declare (not safe)) - (cons _L99042_ __tmp112515)))) + (cons _L99039_ __tmp112512)))) (declare (not safe)) - (cons __tmp112514 '())))) + (cons __tmp112511 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112518 - __tmp112513)))) + (cons __tmp112515 + __tmp112510)))) (declare (not safe)) - (cons __tmp112522 __tmp112512))) - (__tmp112397 - (let ((__tmp112398 - (let ((__tmp112510 + (cons __tmp112519 __tmp112509))) + (__tmp112394 + (let ((__tmp112395 + (let ((__tmp112507 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'match))) - (__tmp112399 - (let ((__tmp112509 + (__tmp112396 + (let ((__tmp112506 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp112400 - (let ((__tmp112406 + (__tmp112397 + (let ((__tmp112403 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112504 - (let ((__tmp112508 + (let ((__tmp112501 + (let ((__tmp112505 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp112505 - (let ((__tmp112507 + (__tmp112502 + (let ((__tmp112504 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e))) - (__tmp112506 + (__tmp112503 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp112507 __tmp112506)))) + (cons __tmp112504 __tmp112503)))) (declare (not safe)) - (cons __tmp112508 __tmp112505))) - (__tmp112407 - (let ((__tmp112408 - (let ((__tmp112503 + (cons __tmp112505 __tmp112502))) + (__tmp112404 + (let ((__tmp112405 + (let ((__tmp112500 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp112409 - (let ((__tmp112502 + (__tmp112406 + (let ((__tmp112499 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e))) - (__tmp112410 - (let ((__tmp112498 - (let ((__tmp112501 + (__tmp112407 + (let ((__tmp112495 + (let ((__tmp112498 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp112499 - (let ((__tmp112500 + (__tmp112496 + (let ((__tmp112497 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)))) (declare (not safe)) - (cons __tmp112500 '())))) + (cons __tmp112497 '())))) (declare (not safe)) - (cons __tmp112501 __tmp112499))) - (__tmp112411 - (let ((__tmp112478 - (let ((__tmp112494 - (let ((__tmp112497 + (cons __tmp112498 __tmp112496))) + (__tmp112408 + (let ((__tmp112475 + (let ((__tmp112491 + (let ((__tmp112494 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp112495 - (let ((__tmp112496 + (__tmp112492 + (let ((__tmp112493 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_)))) (declare (not safe)) - (cons __tmp112496 '())))) + (cons __tmp112493 '())))) (declare (not safe)) - (cons __tmp112497 __tmp112495))) - (__tmp112479 - (let ((__tmp112480 - (let ((__tmp112493 + (cons __tmp112494 __tmp112492))) + (__tmp112476 + (let ((__tmp112477 + (let ((__tmp112490 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp112481 - (let ((__tmp112492 + (__tmp112478 + (let ((__tmp112489 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp112482 - (let ((__tmp112483 - (let ((__tmp112484 + (__tmp112479 + (let ((__tmp112480 + (let ((__tmp112481 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112491 + (let ((__tmp112488 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp112485 - (let ((__tmp112487 - (let ((__tmp112490 + (__tmp112482 + (let ((__tmp112484 + (let ((__tmp112487 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp112488 - (let ((__tmp112489 + (__tmp112485 + (let ((__tmp112486 (let () (declare (not safe)) @@ -2195,459 +2195,459 @@ '#f 'e)))) (declare (not safe)) - (cons __tmp112489 '())))) + (cons __tmp112486 '())))) (declare (not safe)) - (cons __tmp112490 __tmp112488))) - (__tmp112486 + (cons __tmp112487 __tmp112485))) + (__tmp112483 (let () (declare (not safe)) - (cons _L99042_ '())))) + (cons _L99039_ '())))) (declare (not safe)) - (cons __tmp112487 __tmp112486)))) + (cons __tmp112484 __tmp112483)))) (declare (not safe)) - (cons __tmp112491 __tmp112485)))) + (cons __tmp112488 __tmp112482)))) (declare (not safe)) - (cons __tmp112484 '())))) + (cons __tmp112481 '())))) (declare (not safe)) - (cons _L99043_ __tmp112483)))) + (cons _L99040_ __tmp112480)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112492 - __tmp112482)))) + (cons __tmp112489 + __tmp112479)))) (declare (not safe)) - (cons __tmp112493 __tmp112481)))) + (cons __tmp112490 __tmp112478)))) (declare (not safe)) - (cons __tmp112480 '())))) + (cons __tmp112477 '())))) (declare (not safe)) - (cons __tmp112494 __tmp112479))) - (__tmp112412 - (let ((__tmp112458 - (let ((__tmp112474 - (let ((__tmp112477 + (cons __tmp112491 __tmp112476))) + (__tmp112409 + (let ((__tmp112455 + (let ((__tmp112471 + (let ((__tmp112474 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp112475 - (let ((__tmp112476 + (__tmp112472 + (let ((__tmp112473 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_)))) (declare (not safe)) - (cons __tmp112476 '())))) + (cons __tmp112473 '())))) (declare (not safe)) - (cons __tmp112477 __tmp112475))) - (__tmp112459 - (let ((__tmp112460 - (let ((__tmp112473 + (cons __tmp112474 __tmp112472))) + (__tmp112456 + (let ((__tmp112457 + (let ((__tmp112470 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp112461 - (let ((__tmp112472 + (__tmp112458 + (let ((__tmp112469 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp112462 - (let ((__tmp112463 - (let ((__tmp112464 - (let ((__tmp112471 + (__tmp112459 + (let ((__tmp112460 + (let ((__tmp112461 + (let ((__tmp112468 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp112465 - (let ((__tmp112467 - (let ((__tmp112470 + (__tmp112462 + (let ((__tmp112464 + (let ((__tmp112467 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp112468 - (let ((__tmp112469 + (__tmp112465 + (let ((__tmp112466 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e)))) (declare (not safe)) - (cons __tmp112469 '())))) + (cons __tmp112466 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112470 - __tmp112468))) - (__tmp112466 + (cons __tmp112467 + __tmp112465))) + (__tmp112463 (let () (declare (not safe)) - (cons _L99042_ '())))) + (cons _L99039_ '())))) (declare (not safe)) - (cons __tmp112467 __tmp112466)))) + (cons __tmp112464 __tmp112463)))) (declare (not safe)) - (cons __tmp112471 __tmp112465)))) + (cons __tmp112468 __tmp112462)))) (declare (not safe)) - (cons __tmp112464 '())))) + (cons __tmp112461 '())))) (declare (not safe)) - (cons _L99043_ __tmp112463)))) + (cons _L99040_ __tmp112460)))) (declare (not safe)) - (cons __tmp112472 __tmp112462)))) + (cons __tmp112469 __tmp112459)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112473 - __tmp112461)))) + (cons __tmp112470 + __tmp112458)))) (declare (not safe)) - (cons __tmp112460 '())))) + (cons __tmp112457 '())))) (declare (not safe)) - (cons __tmp112474 __tmp112459))) - (__tmp112413 - (let ((__tmp112414 - (let ((__tmp112457 + (cons __tmp112471 __tmp112456))) + (__tmp112410 + (let ((__tmp112411 + (let ((__tmp112454 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_))) - (__tmp112415 - (let ((__tmp112416 - (let ((__tmp112456 + (__tmp112412 + (let ((__tmp112413 + (let ((__tmp112453 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp112417 - (let ((__tmp112443 - (let ((__tmp112455 + (__tmp112414 + (let ((__tmp112440 + (let ((__tmp112452 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp112444 - (let ((__tmp112445 - (let ((__tmp112454 + (__tmp112441 + (let ((__tmp112442 + (let ((__tmp112451 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-symbol))) - (__tmp112446 - (let ((__tmp112447 - (let ((__tmp112453 + (__tmp112443 + (let ((__tmp112444 + (let ((__tmp112450 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'gensym))) - (__tmp112448 - (let ((__tmp112449 - (let ((__tmp112452 + (__tmp112445 + (let ((__tmp112446 + (let ((__tmp112449 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp112450 - (let ((__tmp112451 + (__tmp112447 + (let ((__tmp112448 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '__tmp)))) (declare (not safe)) - (cons __tmp112451 '())))) + (cons __tmp112448 '())))) (declare (not safe)) - (cons __tmp112452 __tmp112450)))) + (cons __tmp112449 __tmp112447)))) (declare (not safe)) - (cons __tmp112449 '())))) + (cons __tmp112446 '())))) (declare (not safe)) - (cons __tmp112453 __tmp112448)))) + (cons __tmp112450 __tmp112445)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112447 '())))) + (cons __tmp112444 '())))) (declare (not safe)) - (cons __tmp112454 __tmp112446)))) + (cons __tmp112451 __tmp112443)))) (declare (not safe)) - (cons __tmp112445 '())))) + (cons __tmp112442 '())))) (declare (not safe)) - (cons __tmp112455 __tmp112444))) - (__tmp112418 - (let ((__tmp112419 - (let ((__tmp112442 + (cons __tmp112452 __tmp112441))) + (__tmp112415 + (let ((__tmp112416 + (let ((__tmp112439 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp112420 - (let ((__tmp112441 + (__tmp112417 + (let ((__tmp112438 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp112421 - (let ((__tmp112428 - (let ((__tmp112440 + (__tmp112418 + (let ((__tmp112425 + (let ((__tmp112437 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp112429 - (let ((__tmp112431 - (let ((__tmp112439 + (__tmp112426 + (let ((__tmp112428 + (let ((__tmp112436 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp112432 - (let ((__tmp112438 + (__tmp112429 + (let ((__tmp112435 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp112433 - (let ((__tmp112434 - (let ((__tmp112437 + (__tmp112430 + (let ((__tmp112431 + (let ((__tmp112434 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp112435 - (let ((__tmp112436 + (__tmp112432 + (let ((__tmp112433 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e)))) (declare (not safe)) - (cons __tmp112436 '())))) + (cons __tmp112433 '())))) (declare (not safe)) - (cons __tmp112437 __tmp112435)))) + (cons __tmp112434 __tmp112432)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112434 '())))) + (cons __tmp112431 '())))) (declare (not safe)) - (cons __tmp112438 __tmp112433)))) + (cons __tmp112435 __tmp112430)))) (declare (not safe)) - (cons __tmp112439 __tmp112432))) - (__tmp112430 + (cons __tmp112436 __tmp112429))) + (__tmp112427 (let () (declare (not safe)) - (cons _L99043_ '())))) + (cons _L99040_ '())))) (declare (not safe)) - (cons __tmp112431 __tmp112430)))) + (cons __tmp112428 __tmp112427)))) (declare (not safe)) - (cons __tmp112440 __tmp112429))) - (__tmp112422 - (let ((__tmp112423 - (let ((__tmp112427 + (cons __tmp112437 __tmp112426))) + (__tmp112419 + (let ((__tmp112420 + (let ((__tmp112424 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp112424 - (let ((__tmp112426 + (__tmp112421 + (let ((__tmp112423 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp112425 + (__tmp112422 (let () (declare (not safe)) - (cons _L99042_ '())))) + (cons _L99039_ '())))) (declare (not safe)) - (cons __tmp112426 __tmp112425)))) + (cons __tmp112423 __tmp112422)))) (declare (not safe)) - (cons __tmp112427 __tmp112424)))) + (cons __tmp112424 __tmp112421)))) (declare (not safe)) - (cons __tmp112423 '())))) + (cons __tmp112420 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112428 - __tmp112422)))) + (cons __tmp112425 + __tmp112419)))) (declare (not safe)) - (cons __tmp112441 __tmp112421)))) + (cons __tmp112438 __tmp112418)))) (declare (not safe)) - (cons __tmp112442 __tmp112420)))) + (cons __tmp112439 __tmp112417)))) (declare (not safe)) - (cons __tmp112419 '())))) + (cons __tmp112416 '())))) (declare (not safe)) - (cons __tmp112443 __tmp112418)))) + (cons __tmp112440 __tmp112415)))) (declare (not safe)) - (cons __tmp112456 __tmp112417)))) + (cons __tmp112453 __tmp112414)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112416 '())))) + (cons __tmp112413 '())))) (declare (not safe)) - (cons __tmp112457 __tmp112415)))) + (cons __tmp112454 __tmp112412)))) (declare (not safe)) - (cons __tmp112414 '())))) + (cons __tmp112411 '())))) (declare (not safe)) - (cons __tmp112458 __tmp112413)))) + (cons __tmp112455 __tmp112410)))) (declare (not safe)) - (cons __tmp112478 __tmp112412)))) + (cons __tmp112475 __tmp112409)))) (declare (not safe)) - (cons __tmp112498 __tmp112411)))) + (cons __tmp112495 __tmp112408)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112502 - __tmp112410)))) + (cons __tmp112499 + __tmp112407)))) (declare (not safe)) - (cons __tmp112503 __tmp112409)))) + (cons __tmp112500 __tmp112406)))) (declare (not safe)) - (cons __tmp112408 '())))) + (cons __tmp112405 '())))) (declare (not safe)) - (cons __tmp112504 __tmp112407))) - (__tmp112401 - (let ((__tmp112402 - (let ((__tmp112405 + (cons __tmp112501 __tmp112404))) + (__tmp112398 + (let ((__tmp112399 + (let ((__tmp112402 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp112403 - (let ((__tmp112404 - (lambda (_g9906899071_ - _g9906999074_) + (__tmp112400 + (let ((__tmp112401 + (lambda (_g9906599068_ + _g9906699071_) (let () (declare (not safe)) - (cons _g9906899071_ - _g9906999074_))))) + (cons _g9906599068_ + _g9906699071_))))) (declare (not safe)) - (foldr1 __tmp112404 '() _L99039_)))) + (foldr1 __tmp112401 '() _L99036_)))) (declare (not safe)) - (cons __tmp112405 __tmp112403)))) + (cons __tmp112402 __tmp112400)))) (declare (not safe)) - (cons __tmp112402 '())))) + (cons __tmp112399 '())))) (declare (not safe)) - (cons __tmp112406 __tmp112401)))) + (cons __tmp112403 __tmp112398)))) (declare (not safe)) - (cons __tmp112509 __tmp112400)))) + (cons __tmp112506 __tmp112397)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112510 - __tmp112399)))) + (cons __tmp112507 + __tmp112396)))) (declare (not safe)) - (cons __tmp112398 '())))) + (cons __tmp112395 '())))) (declare (not safe)) - (cons __tmp112511 __tmp112397)))) + (cons __tmp112508 __tmp112394)))) (declare (not safe)) - (cons __tmp112525 __tmp112396)))) + (cons __tmp112522 __tmp112393)))) (declare (not safe)) - (cons __tmp112526 __tmp112395))) - _body9894699035_ - _hd9893699003_ - _hd9893398993_ - _hd9893098983_)))))) + (cons __tmp112523 __tmp112392))) + _body9894399032_ + _hd9893399000_ + _hd9893098990_ + _hd9892798980_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop9894199015_ - _target9893899009_ + (_loop9893899012_ + _target9893599006_ '())) - (_g9891798952_ _g9891898956_))))) - (_g9891798952_ _g9891898956_)) - (_g9891798952_ _g9891898956_)))) - (_g9891798952_ _g9891898956_)))) + (_g9891498949_ _g9891598953_))))) + (_g9891498949_ _g9891598953_)) + (_g9891498949_ _g9891598953_)))) + (_g9891498949_ _g9891598953_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g9891798952_ _g9891898956_)))) - (_g9891798952_ _g9891898956_)))) - (_g9891798952_ _g9891898956_)))) - (_g9891798952_ _g9891898956_))))) - (_g9891699077_ _$stx98913_)))) + (_g9891498949_ _g9891598953_)))) + (_g9891498949_ _g9891598953_)))) + (_g9891498949_ _g9891598953_)))) + (_g9891498949_ _g9891598953_))))) + (_g9891399074_ _$stx98910_)))) (define |gxc[:0:]#with-inline-unsafe-primitives| - (lambda (_$stx99082_) - (let* ((_g9908699104_ - (lambda (_g9908799100_) + (lambda (_$stx99079_) + (let* ((_g9908399101_ + (lambda (_g9908499097_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9908799100_)))) - (_g9908599159_ - (lambda (_g9908799108_) + _g9908499097_)))) + (_g9908299156_ + (lambda (_g9908499105_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9908799108_)) - (let ((_e9909299111_ + (gx#stx-pair? _g9908499105_)) + (let ((_e9908999108_ (let () (declare (not safe)) - (gx#syntax-e _g9908799108_)))) - (let ((_hd9909199115_ + (gx#syntax-e _g9908499105_)))) + (let ((_hd9908899112_ (let () (declare (not safe)) - (##car _e9909299111_))) - (_tl9909099118_ + (##car _e9908999108_))) + (_tl9908799115_ (let () (declare (not safe)) - (##cdr _e9909299111_)))) + (##cdr _e9908999108_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9909099118_)) - (let ((_e9909599121_ + (gx#stx-pair? _tl9908799115_)) + (let ((_e9909299118_ (let () (declare (not safe)) - (gx#syntax-e _tl9909099118_)))) - (let ((_hd9909499125_ + (gx#syntax-e _tl9908799115_)))) + (let ((_hd9909199122_ (let () (declare (not safe)) - (##car _e9909599121_))) - (_tl9909399128_ + (##car _e9909299118_))) + (_tl9909099125_ (let () (declare (not safe)) - (##cdr _e9909599121_)))) + (##cdr _e9909299118_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9909399128_)) - (let ((_e9909899131_ + (gx#stx-pair? _tl9909099125_)) + (let ((_e9909599128_ (let () (declare (not safe)) - (gx#syntax-e _tl9909399128_)))) - (let ((_hd9909799135_ + (gx#syntax-e _tl9909099125_)))) + (let ((_hd9909499132_ (let () (declare (not safe)) - (##car _e9909899131_))) - (_tl9909699138_ + (##car _e9909599128_))) + (_tl9909399135_ (let () (declare (not safe)) - (##cdr _e9909899131_)))) + (##cdr _e9909599128_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9909699138_)) - ((lambda (_L99141_ _L99143_) - (let ((__tmp112542 + (gx#stx-null? _tl9909399135_)) + ((lambda (_L99138_ _L99140_) + (let ((__tmp112539 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cond-expand))) - (__tmp112527 - (let ((__tmp112539 - (let ((__tmp112541 + (__tmp112524 + (let ((__tmp112536 + (let ((__tmp112538 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'gambit-inline-unsafe-primitives))) - (__tmp112540 + (__tmp112537 (let () (declare (not safe)) - (cons _L99143_ '())))) + (cons _L99140_ '())))) (declare (not safe)) - (cons __tmp112541 __tmp112540))) - (__tmp112528 - (let ((__tmp112529 - (let ((__tmp112538 + (cons __tmp112538 __tmp112537))) + (__tmp112525 + (let ((__tmp112526 + (let ((__tmp112535 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp112530 - (let ((__tmp112531 - (let ((__tmp112537 + (__tmp112527 + (let ((__tmp112528 + (let ((__tmp112534 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp112532 - (let ((__tmp112535 - (let ((__tmp112536 + (__tmp112529 + (let ((__tmp112532 + (let ((__tmp112533 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -2655,39 +2655,39 @@ '#f 'current-compile-decls-unsafe?)))) (declare (not safe)) - (cons __tmp112536 '()))) - (__tmp112533 - (let ((__tmp112534 - (let () (declare (not safe)) (cons _L99141_ '())))) + (cons __tmp112533 '()))) + (__tmp112530 + (let ((__tmp112531 + (let () (declare (not safe)) (cons _L99138_ '())))) (declare (not safe)) - (cons _L99143_ __tmp112534)))) + (cons _L99140_ __tmp112531)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112535 - __tmp112533)))) + (cons __tmp112532 + __tmp112530)))) (declare (not safe)) - (cons __tmp112537 __tmp112532)))) + (cons __tmp112534 __tmp112529)))) (declare (not safe)) - (cons __tmp112531 '())))) + (cons __tmp112528 '())))) (declare (not safe)) - (cons __tmp112538 __tmp112530)))) + (cons __tmp112535 __tmp112527)))) (declare (not safe)) - (cons __tmp112529 '())))) + (cons __tmp112526 '())))) (declare (not safe)) - (cons __tmp112539 __tmp112528)))) + (cons __tmp112536 __tmp112525)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112542 - __tmp112527))) - _hd9909799135_ - _hd9909499125_) - (_g9908699104_ _g9908799108_)))) - (_g9908699104_ _g9908799108_)))) - (_g9908699104_ _g9908799108_)))) - (_g9908699104_ _g9908799108_))))) - (_g9908599159_ _$stx99082_)))) + (cons __tmp112539 + __tmp112524))) + _hd9909499132_ + _hd9909199122_) + (_g9908399101_ _g9908499105_)))) + (_g9908399101_ _g9908499105_)))) + (_g9908399101_ _g9908499105_)))) + (_g9908399101_ _g9908499105_))))) + (_g9908299156_ _$stx99079_)))) (define |gxc[:0:]#meta-state| - (let ((__obj111302 + (let ((__obj111299 (let () (declare (not safe)) (##structure @@ -2710,7 +2710,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111302 + __obj111299 '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! - __obj111302 + __obj111299 'meta-state '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2726,7 +2726,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111302 + __obj111299 '(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! - __obj111302 + __obj111299 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2742,7 +2742,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111302 + __obj111299 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2750,7 +2750,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111302 + __obj111299 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2758,7 +2758,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111302 + __obj111299 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2766,182 +2766,182 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111302 + __obj111299 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112543 |gxc[1]#_g112544_|)) + (let ((__tmp112540 |gxc[1]#_g112541_|)) (declare (not safe)) (##unchecked-structure-set! - __obj111302 - __tmp112543 + __obj111299 + __tmp112540 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112545 |gxc[1]#_g112546_|)) + (let ((__tmp112542 |gxc[1]#_g112543_|)) (declare (not safe)) (##unchecked-structure-set! - __obj111302 - __tmp112545 + __obj111299 + __tmp112542 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112547 |gxc[1]#_g112548_|)) + (let ((__tmp112544 |gxc[1]#_g112545_|)) (declare (not safe)) (##unchecked-structure-set! - __obj111302 - __tmp112547 + __obj111299 + __tmp112544 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112549 - (let ((__tmp112562 - (let ((__tmp112563 |gxc[1]#_g112564_|)) + (let ((__tmp112546 + (let ((__tmp112559 + (let ((__tmp112560 |gxc[1]#_g112561_|)) (declare (not safe)) - (cons 'src __tmp112563))) - (__tmp112550 - (let ((__tmp112559 - (let ((__tmp112560 |gxc[1]#_g112561_|)) + (cons 'src __tmp112560))) + (__tmp112547 + (let ((__tmp112556 + (let ((__tmp112557 |gxc[1]#_g112558_|)) (declare (not safe)) - (cons 'n __tmp112560))) - (__tmp112551 - (let ((__tmp112556 - (let ((__tmp112557 |gxc[1]#_g112558_|)) + (cons 'n __tmp112557))) + (__tmp112548 + (let ((__tmp112553 + (let ((__tmp112554 |gxc[1]#_g112555_|)) (declare (not safe)) - (cons 'open __tmp112557))) - (__tmp112552 - (let ((__tmp112553 - (let ((__tmp112554 - |gxc[1]#_g112555_|)) + (cons 'open __tmp112554))) + (__tmp112549 + (let ((__tmp112550 + (let ((__tmp112551 + |gxc[1]#_g112552_|)) (declare (not safe)) - (cons 'blocks __tmp112554)))) + (cons 'blocks __tmp112551)))) (declare (not safe)) - (cons __tmp112553 '())))) + (cons __tmp112550 '())))) (declare (not safe)) - (cons __tmp112556 __tmp112552)))) + (cons __tmp112553 __tmp112549)))) (declare (not safe)) - (cons __tmp112559 __tmp112551)))) + (cons __tmp112556 __tmp112548)))) (declare (not safe)) - (cons __tmp112562 __tmp112550)))) + (cons __tmp112559 __tmp112547)))) (declare (not safe)) (##unchecked-structure-set! - __obj111302 - __tmp112549 + __obj111299 + __tmp112546 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112565 - (let ((__tmp112578 - (let ((__tmp112579 |gxc[1]#_g112580_|)) + (let ((__tmp112562 + (let ((__tmp112575 + (let ((__tmp112576 |gxc[1]#_g112577_|)) (declare (not safe)) - (cons 'src __tmp112579))) - (__tmp112566 - (let ((__tmp112575 - (let ((__tmp112576 |gxc[1]#_g112577_|)) + (cons 'src __tmp112576))) + (__tmp112563 + (let ((__tmp112572 + (let ((__tmp112573 |gxc[1]#_g112574_|)) (declare (not safe)) - (cons 'n __tmp112576))) - (__tmp112567 - (let ((__tmp112572 - (let ((__tmp112573 |gxc[1]#_g112574_|)) + (cons 'n __tmp112573))) + (__tmp112564 + (let ((__tmp112569 + (let ((__tmp112570 |gxc[1]#_g112571_|)) (declare (not safe)) - (cons 'open __tmp112573))) - (__tmp112568 - (let ((__tmp112569 - (let ((__tmp112570 - |gxc[1]#_g112571_|)) + (cons 'open __tmp112570))) + (__tmp112565 + (let ((__tmp112566 + (let ((__tmp112567 + |gxc[1]#_g112568_|)) (declare (not safe)) - (cons 'blocks __tmp112570)))) + (cons 'blocks __tmp112567)))) (declare (not safe)) - (cons __tmp112569 '())))) + (cons __tmp112566 '())))) (declare (not safe)) - (cons __tmp112572 __tmp112568)))) + (cons __tmp112569 __tmp112565)))) (declare (not safe)) - (cons __tmp112575 __tmp112567)))) + (cons __tmp112572 __tmp112564)))) (declare (not safe)) - (cons __tmp112578 __tmp112566)))) + (cons __tmp112575 __tmp112563)))) (declare (not safe)) (##unchecked-structure-set! - __obj111302 - __tmp112565 + __obj111299 + __tmp112562 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112581 - (let ((__tmp112594 - (let ((__tmp112595 |gxc[1]#_g112596_|)) + (let ((__tmp112578 + (let ((__tmp112591 + (let ((__tmp112592 |gxc[1]#_g112593_|)) (declare (not safe)) - (cons 'src __tmp112595))) - (__tmp112582 - (let ((__tmp112591 - (let ((__tmp112592 |gxc[1]#_g112593_|)) + (cons 'src __tmp112592))) + (__tmp112579 + (let ((__tmp112588 + (let ((__tmp112589 |gxc[1]#_g112590_|)) (declare (not safe)) - (cons 'n __tmp112592))) - (__tmp112583 - (let ((__tmp112588 - (let ((__tmp112589 |gxc[1]#_g112590_|)) + (cons 'n __tmp112589))) + (__tmp112580 + (let ((__tmp112585 + (let ((__tmp112586 |gxc[1]#_g112587_|)) (declare (not safe)) - (cons 'open __tmp112589))) - (__tmp112584 - (let ((__tmp112585 - (let ((__tmp112586 - |gxc[1]#_g112587_|)) + (cons 'open __tmp112586))) + (__tmp112581 + (let ((__tmp112582 + (let ((__tmp112583 + |gxc[1]#_g112584_|)) (declare (not safe)) - (cons 'blocks __tmp112586)))) + (cons 'blocks __tmp112583)))) (declare (not safe)) - (cons __tmp112585 '())))) + (cons __tmp112582 '())))) (declare (not safe)) - (cons __tmp112588 __tmp112584)))) + (cons __tmp112585 __tmp112581)))) (declare (not safe)) - (cons __tmp112591 __tmp112583)))) + (cons __tmp112588 __tmp112580)))) (declare (not safe)) - (cons __tmp112594 __tmp112582)))) + (cons __tmp112591 __tmp112579)))) (declare (not safe)) (##unchecked-structure-set! - __obj111302 - __tmp112581 + __obj111299 + __tmp112578 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112597 - (let ((__tmp112610 - (let ((__tmp112611 |gxc[1]#_g112612_|)) + (let ((__tmp112594 + (let ((__tmp112607 + (let ((__tmp112608 |gxc[1]#_g112609_|)) (declare (not safe)) - (cons 'src __tmp112611))) - (__tmp112598 - (let ((__tmp112607 - (let ((__tmp112608 |gxc[1]#_g112609_|)) + (cons 'src __tmp112608))) + (__tmp112595 + (let ((__tmp112604 + (let ((__tmp112605 |gxc[1]#_g112606_|)) (declare (not safe)) - (cons 'n __tmp112608))) - (__tmp112599 - (let ((__tmp112604 - (let ((__tmp112605 |gxc[1]#_g112606_|)) + (cons 'n __tmp112605))) + (__tmp112596 + (let ((__tmp112601 + (let ((__tmp112602 |gxc[1]#_g112603_|)) (declare (not safe)) - (cons 'open __tmp112605))) - (__tmp112600 - (let ((__tmp112601 - (let ((__tmp112602 - |gxc[1]#_g112603_|)) + (cons 'open __tmp112602))) + (__tmp112597 + (let ((__tmp112598 + (let ((__tmp112599 + |gxc[1]#_g112600_|)) (declare (not safe)) - (cons 'blocks __tmp112602)))) + (cons 'blocks __tmp112599)))) (declare (not safe)) - (cons __tmp112601 '())))) + (cons __tmp112598 '())))) (declare (not safe)) - (cons __tmp112604 __tmp112600)))) + (cons __tmp112601 __tmp112597)))) (declare (not safe)) - (cons __tmp112607 __tmp112599)))) + (cons __tmp112604 __tmp112596)))) (declare (not safe)) - (cons __tmp112610 __tmp112598)))) + (cons __tmp112607 __tmp112595)))) (declare (not safe)) (##unchecked-structure-set! - __obj111302 - __tmp112597 + __obj111299 + __tmp112594 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj111302)) + __obj111299)) (define |gxc[:0:]#meta-state-block| - (let ((__obj111303 + (let ((__obj111300 (let () (declare (not safe)) (##structure @@ -2964,7 +2964,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111303 + __obj111300 '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! - __obj111303 + __obj111300 'meta-state-block '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2980,7 +2980,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111303 + __obj111300 '(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! - __obj111303 + __obj111300 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2996,7 +2996,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111303 + __obj111300 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3004,7 +3004,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111303 + __obj111300 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3012,7 +3012,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111303 + __obj111300 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3020,177 +3020,177 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111303 + __obj111300 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112613 |gxc[1]#_g112614_|)) + (let ((__tmp112610 |gxc[1]#_g112611_|)) (declare (not safe)) (##unchecked-structure-set! - __obj111303 - __tmp112613 + __obj111300 + __tmp112610 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112615 |gxc[1]#_g112616_|)) + (let ((__tmp112612 |gxc[1]#_g112613_|)) (declare (not safe)) (##unchecked-structure-set! - __obj111303 - __tmp112615 + __obj111300 + __tmp112612 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112617 |gxc[1]#_g112618_|)) + (let ((__tmp112614 |gxc[1]#_g112615_|)) (declare (not safe)) (##unchecked-structure-set! - __obj111303 - __tmp112617 + __obj111300 + __tmp112614 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112619 - (let ((__tmp112632 - (let ((__tmp112633 |gxc[1]#_g112634_|)) + (let ((__tmp112616 + (let ((__tmp112629 + (let ((__tmp112630 |gxc[1]#_g112631_|)) (declare (not safe)) - (cons 'ctx __tmp112633))) - (__tmp112620 - (let ((__tmp112629 - (let ((__tmp112630 |gxc[1]#_g112631_|)) + (cons 'ctx __tmp112630))) + (__tmp112617 + (let ((__tmp112626 + (let ((__tmp112627 |gxc[1]#_g112628_|)) (declare (not safe)) - (cons 'phi __tmp112630))) - (__tmp112621 - (let ((__tmp112626 - (let ((__tmp112627 |gxc[1]#_g112628_|)) + (cons 'phi __tmp112627))) + (__tmp112618 + (let ((__tmp112623 + (let ((__tmp112624 |gxc[1]#_g112625_|)) (declare (not safe)) - (cons 'n __tmp112627))) - (__tmp112622 - (let ((__tmp112623 - (let ((__tmp112624 - |gxc[1]#_g112625_|)) + (cons 'n __tmp112624))) + (__tmp112619 + (let ((__tmp112620 + (let ((__tmp112621 + |gxc[1]#_g112622_|)) (declare (not safe)) - (cons 'code __tmp112624)))) + (cons 'code __tmp112621)))) (declare (not safe)) - (cons __tmp112623 '())))) + (cons __tmp112620 '())))) (declare (not safe)) - (cons __tmp112626 __tmp112622)))) + (cons __tmp112623 __tmp112619)))) (declare (not safe)) - (cons __tmp112629 __tmp112621)))) + (cons __tmp112626 __tmp112618)))) (declare (not safe)) - (cons __tmp112632 __tmp112620)))) + (cons __tmp112629 __tmp112617)))) (declare (not safe)) (##unchecked-structure-set! - __obj111303 - __tmp112619 + __obj111300 + __tmp112616 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112635 - (let ((__tmp112648 - (let ((__tmp112649 |gxc[1]#_g112650_|)) + (let ((__tmp112632 + (let ((__tmp112645 + (let ((__tmp112646 |gxc[1]#_g112647_|)) (declare (not safe)) - (cons 'ctx __tmp112649))) - (__tmp112636 - (let ((__tmp112645 - (let ((__tmp112646 |gxc[1]#_g112647_|)) + (cons 'ctx __tmp112646))) + (__tmp112633 + (let ((__tmp112642 + (let ((__tmp112643 |gxc[1]#_g112644_|)) (declare (not safe)) - (cons 'phi __tmp112646))) - (__tmp112637 - (let ((__tmp112642 - (let ((__tmp112643 |gxc[1]#_g112644_|)) + (cons 'phi __tmp112643))) + (__tmp112634 + (let ((__tmp112639 + (let ((__tmp112640 |gxc[1]#_g112641_|)) (declare (not safe)) - (cons 'n __tmp112643))) - (__tmp112638 - (let ((__tmp112639 - (let ((__tmp112640 - |gxc[1]#_g112641_|)) + (cons 'n __tmp112640))) + (__tmp112635 + (let ((__tmp112636 + (let ((__tmp112637 + |gxc[1]#_g112638_|)) (declare (not safe)) - (cons 'code __tmp112640)))) + (cons 'code __tmp112637)))) (declare (not safe)) - (cons __tmp112639 '())))) + (cons __tmp112636 '())))) (declare (not safe)) - (cons __tmp112642 __tmp112638)))) + (cons __tmp112639 __tmp112635)))) (declare (not safe)) - (cons __tmp112645 __tmp112637)))) + (cons __tmp112642 __tmp112634)))) (declare (not safe)) - (cons __tmp112648 __tmp112636)))) + (cons __tmp112645 __tmp112633)))) (declare (not safe)) (##unchecked-structure-set! - __obj111303 - __tmp112635 + __obj111300 + __tmp112632 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112651 - (let ((__tmp112664 - (let ((__tmp112665 |gxc[1]#_g112666_|)) + (let ((__tmp112648 + (let ((__tmp112661 + (let ((__tmp112662 |gxc[1]#_g112663_|)) (declare (not safe)) - (cons 'ctx __tmp112665))) - (__tmp112652 - (let ((__tmp112661 - (let ((__tmp112662 |gxc[1]#_g112663_|)) + (cons 'ctx __tmp112662))) + (__tmp112649 + (let ((__tmp112658 + (let ((__tmp112659 |gxc[1]#_g112660_|)) (declare (not safe)) - (cons 'phi __tmp112662))) - (__tmp112653 - (let ((__tmp112658 - (let ((__tmp112659 |gxc[1]#_g112660_|)) + (cons 'phi __tmp112659))) + (__tmp112650 + (let ((__tmp112655 + (let ((__tmp112656 |gxc[1]#_g112657_|)) (declare (not safe)) - (cons 'n __tmp112659))) - (__tmp112654 - (let ((__tmp112655 - (let ((__tmp112656 - |gxc[1]#_g112657_|)) + (cons 'n __tmp112656))) + (__tmp112651 + (let ((__tmp112652 + (let ((__tmp112653 + |gxc[1]#_g112654_|)) (declare (not safe)) - (cons 'code __tmp112656)))) + (cons 'code __tmp112653)))) (declare (not safe)) - (cons __tmp112655 '())))) + (cons __tmp112652 '())))) (declare (not safe)) - (cons __tmp112658 __tmp112654)))) + (cons __tmp112655 __tmp112651)))) (declare (not safe)) - (cons __tmp112661 __tmp112653)))) + (cons __tmp112658 __tmp112650)))) (declare (not safe)) - (cons __tmp112664 __tmp112652)))) + (cons __tmp112661 __tmp112649)))) (declare (not safe)) (##unchecked-structure-set! - __obj111303 - __tmp112651 + __obj111300 + __tmp112648 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112667 - (let ((__tmp112680 - (let ((__tmp112681 |gxc[1]#_g112682_|)) + (let ((__tmp112664 + (let ((__tmp112677 + (let ((__tmp112678 |gxc[1]#_g112679_|)) (declare (not safe)) - (cons 'ctx __tmp112681))) - (__tmp112668 - (let ((__tmp112677 - (let ((__tmp112678 |gxc[1]#_g112679_|)) + (cons 'ctx __tmp112678))) + (__tmp112665 + (let ((__tmp112674 + (let ((__tmp112675 |gxc[1]#_g112676_|)) (declare (not safe)) - (cons 'phi __tmp112678))) - (__tmp112669 - (let ((__tmp112674 - (let ((__tmp112675 |gxc[1]#_g112676_|)) + (cons 'phi __tmp112675))) + (__tmp112666 + (let ((__tmp112671 + (let ((__tmp112672 |gxc[1]#_g112673_|)) (declare (not safe)) - (cons 'n __tmp112675))) - (__tmp112670 - (let ((__tmp112671 - (let ((__tmp112672 - |gxc[1]#_g112673_|)) + (cons 'n __tmp112672))) + (__tmp112667 + (let ((__tmp112668 + (let ((__tmp112669 + |gxc[1]#_g112670_|)) (declare (not safe)) - (cons 'code __tmp112672)))) + (cons 'code __tmp112669)))) (declare (not safe)) - (cons __tmp112671 '())))) + (cons __tmp112668 '())))) (declare (not safe)) - (cons __tmp112674 __tmp112670)))) + (cons __tmp112671 __tmp112667)))) (declare (not safe)) - (cons __tmp112677 __tmp112669)))) + (cons __tmp112674 __tmp112666)))) (declare (not safe)) - (cons __tmp112680 __tmp112668)))) + (cons __tmp112677 __tmp112665)))) (declare (not safe)) (##unchecked-structure-set! - __obj111303 - __tmp112667 + __obj111300 + __tmp112664 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj111303)))) + __obj111300)))) diff --git a/src/bootstrap/gerbil/compiler/driver__0.scm b/src/bootstrap/gerbil/compiler/driver__0.scm index 1775ba8c..679762a1 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 1709128376) + (define gerbil/compiler/driver::timestamp 1709229975) (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 (_path158015_ _fun158016_) + (lambda (_path158012_ _fun158013_) (with-output-to-file - (let ((__tmp158109 + (let ((__tmp158106 (let () (declare (not safe)) - (cons _path158015_ gxc#scheme-file-settings)))) + (cons _path158012_ gxc#scheme-file-settings)))) (declare (not safe)) - (cons 'path: __tmp158109)) - _fun158016_))) + (cons 'path: __tmp158106)) + _fun158013_))) (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-libdir158010_) - (string-append '"-Wl,-rpath=" _gerbil-libdir158010_))) + (lambda (_gerbil-libdir158007_) + (string-append '"-Wl,-rpath=" _gerbil-libdir158007_))) (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 (_dir158008_) (delete-file-or-directory _dir158008_ '#t))) + (lambda (_dir158005_) (delete-file-or-directory _dir158005_ '#t))) (define gxc#compile-module__% - (lambda (_srcpath157982_ _opts157983_) - (if (let () (declare (not safe)) (string? _srcpath157982_)) + (lambda (_srcpath157979_ _opts157980_) + (if (let () (declare (not safe)) (string? _srcpath157979_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath157982_))) - (let ((_outdir157985_ + _srcpath157979_))) + (let ((_outdir157982_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _opts157983_))) - (_invoke-gsc?157986_ + (pgetq__0 'output-dir: _opts157980_))) + (_invoke-gsc?157983_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _opts157983_))) - (_gsc-options157987_ + (pgetq__0 'invoke-gsc: _opts157980_))) + (_gsc-options157984_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _opts157983_))) - (_keep-scm?157988_ + (pgetq__0 'gsc-options: _opts157980_))) + (_keep-scm?157985_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _opts157983_))) - (_verbosity157989_ - (let () (declare (not safe)) (pgetq__0 'verbose: _opts157983_))) - (_optimize157990_ + (pgetq__0 'keep-scm: _opts157980_))) + (_verbosity157986_ + (let () (declare (not safe)) (pgetq__0 'verbose: _opts157980_))) + (_optimize157987_ (let () (declare (not safe)) - (pgetq__0 'optimize: _opts157983_))) - (_debug157991_ - (let () (declare (not safe)) (pgetq__0 'debug: _opts157983_))) - (_gen-ssxi157992_ + (pgetq__0 'optimize: _opts157980_))) + (_debug157988_ + (let () (declare (not safe)) (pgetq__0 'debug: _opts157980_))) + (_gen-ssxi157989_ (let () (declare (not safe)) - (pgetq__0 'generate-ssxi: _opts157983_)))) - (if _outdir157985_ - (let ((__tmp158110 + (pgetq__0 'generate-ssxi: _opts157980_)))) + (if _outdir157982_ + (let ((__tmp158107 (lambda () (let () (declare (not safe)) - (create-directory*__0 _outdir157985_))))) + (create-directory*__0 _outdir157982_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158110)) + (with-lock gxc#+driver-mutex+ __tmp158107)) '#!void) - (if _optimize157990_ - (let ((__tmp158111 + (if _optimize157987_ + (let ((__tmp158108 (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158111)) + (with-lock gxc#+driver-mutex+ __tmp158108)) '#!void) - (let ((__tmp158115 + (let ((__tmp158112 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile " _srcpath157982_)) - (let ((__tmp158116 - (let ((__tmp158117 + (gxc#verbose '"compile " _srcpath157979_)) + (let ((__tmp158113 + (let ((__tmp158114 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath157982_))))) + (gx#import-module__0 _srcpath157979_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158117)))) + (with-lock gxc#+driver-mutex+ __tmp158114)))) (declare (not safe)) - (gxc#compile-top-module __tmp158116)))) - (__tmp158114 + (gxc#compile-top-module __tmp158113)))) + (__tmp158111 (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp158112 - (let ((__tmp158113 + (__tmp158109 + (let ((__tmp158110 (let () (declare (not safe)) - (cons _srcpath157982_ '())))) + (cons _srcpath157979_ '())))) (declare (not safe)) - (cons 'compile-module __tmp158113)))) + (cons 'compile-module __tmp158110)))) (declare (not safe)) (call-with-parameters - __tmp158115 + __tmp158112 gxc#current-compile-output-dir - _outdir157985_ + _outdir157982_ gxc#current-compile-invoke-gsc - _invoke-gsc?157986_ + _invoke-gsc?157983_ gxc#current-compile-gsc-options - _gsc-options157987_ + _gsc-options157984_ gxc#current-compile-keep-scm - _keep-scm?157988_ + _keep-scm?157985_ gxc#current-compile-verbose - _verbosity157989_ + _verbosity157986_ gxc#current-compile-optimize - _optimize157990_ + _optimize157987_ gxc#current-compile-debug - _debug157991_ + _debug157988_ gxc#current-compile-generate-ssxi - _gen-ssxi157992_ + _gen-ssxi157989_ gxc#current-compile-timestamp - __tmp158114 + __tmp158111 gxc#current-compile-context - __tmp158112 + __tmp158109 gx#current-expander-compiling? '#t))))) (define gxc#compile-module__0 - (lambda (_srcpath158001_) - (let ((_opts158003_ '())) + (lambda (_srcpath157998_) + (let ((_opts158000_ '())) (declare (not safe)) - (gxc#compile-module__% _srcpath158001_ _opts158003_)))) + (gxc#compile-module__% _srcpath157998_ _opts158000_)))) (define gxc#compile-module - (lambda _g158119_ - (let ((_g158118_ (let () (declare (not safe)) (##length _g158119_)))) - (cond ((let () (declare (not safe)) (##fx= _g158118_ 1)) - (apply (lambda (_srcpath158001_) + (lambda _g158116_ + (let ((_g158115_ (let () (declare (not safe)) (##length _g158116_)))) + (cond ((let () (declare (not safe)) (##fx= _g158115_ 1)) + (apply (lambda (_srcpath157998_) (let () (declare (not safe)) - (gxc#compile-module__0 _srcpath158001_))) - _g158119_)) - ((let () (declare (not safe)) (##fx= _g158118_ 2)) - (apply (lambda (_srcpath158005_ _opts158006_) + (gxc#compile-module__0 _srcpath157998_))) + _g158116_)) + ((let () (declare (not safe)) (##fx= _g158115_ 2)) + (apply (lambda (_srcpath158002_ _opts158003_) (let () (declare (not safe)) (gxc#compile-module__% - _srcpath158005_ - _opts158006_))) - _g158119_)) + _srcpath158002_ + _opts158003_))) + _g158116_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g158119_)))))) + _g158116_)))))) (define gxc#compile-exe__% - (lambda (_srcpath157958_ _opts157959_) - (if (let () (declare (not safe)) (string? _srcpath157958_)) + (lambda (_srcpath157955_ _opts157956_) + (if (let () (declare (not safe)) (string? _srcpath157955_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath157958_))) - (let ((_outdir157961_ + _srcpath157955_))) + (let ((_outdir157958_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _opts157959_))) - (_invoke-gsc?157962_ + (pgetq__0 'output-dir: _opts157956_))) + (_invoke-gsc?157959_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _opts157959_))) - (_gsc-options157963_ + (pgetq__0 'invoke-gsc: _opts157956_))) + (_gsc-options157960_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _opts157959_))) - (_keep-scm?157964_ + (pgetq__0 'gsc-options: _opts157956_))) + (_keep-scm?157961_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _opts157959_))) - (_verbosity157965_ - (let () (declare (not safe)) (pgetq__0 'verbose: _opts157959_))) - (_debug157966_ - (let () (declare (not safe)) (pgetq__0 'debug: _opts157959_)))) - (if _outdir157961_ - (let ((__tmp158120 + (pgetq__0 'keep-scm: _opts157956_))) + (_verbosity157962_ + (let () (declare (not safe)) (pgetq__0 'verbose: _opts157956_))) + (_debug157963_ + (let () (declare (not safe)) (pgetq__0 'debug: _opts157956_)))) + (if _outdir157958_ + (let ((__tmp158117 (lambda () (let () (declare (not safe)) - (create-directory*__0 _outdir157961_))))) + (create-directory*__0 _outdir157958_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158120)) + (with-lock gxc#+driver-mutex+ __tmp158117)) '#!void) - (let ((__tmp158124 + (let ((__tmp158121 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _srcpath157958_)) - (let ((__tmp158125 - (let ((__tmp158126 + (gxc#verbose '"compile exe " _srcpath157955_)) + (let ((__tmp158122 + (let ((__tmp158123 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath157958_))))) + (gx#import-module__0 _srcpath157955_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158126)))) + (with-lock gxc#+driver-mutex+ __tmp158123)))) (declare (not safe)) (gxc#compile-executable-module - __tmp158125 - _opts157959_)))) - (__tmp158123 + __tmp158122 + _opts157956_)))) + (__tmp158120 (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp158121 - (let ((__tmp158122 + (__tmp158118 + (let ((__tmp158119 (let () (declare (not safe)) - (cons _srcpath157958_ '())))) + (cons _srcpath157955_ '())))) (declare (not safe)) - (cons 'compile-exe __tmp158122)))) + (cons 'compile-exe __tmp158119)))) (declare (not safe)) (call-with-parameters - __tmp158124 + __tmp158121 gxc#current-compile-output-dir - _outdir157961_ + _outdir157958_ gxc#current-compile-invoke-gsc - _invoke-gsc?157962_ + _invoke-gsc?157959_ gxc#current-compile-gsc-options - _gsc-options157963_ + _gsc-options157960_ gxc#current-compile-keep-scm - _keep-scm?157964_ + _keep-scm?157961_ gxc#current-compile-verbose - _verbosity157965_ + _verbosity157962_ gxc#current-compile-debug - _debug157966_ + _debug157963_ gxc#current-compile-timestamp - __tmp158123 + __tmp158120 gxc#current-compile-context - __tmp158121 + __tmp158118 gx#current-expander-compiling? '#t))))) (define gxc#compile-exe__0 - (lambda (_srcpath157974_) - (let ((_opts157976_ '())) + (lambda (_srcpath157971_) + (let ((_opts157973_ '())) (declare (not safe)) - (gxc#compile-exe__% _srcpath157974_ _opts157976_)))) + (gxc#compile-exe__% _srcpath157971_ _opts157973_)))) (define gxc#compile-exe - (lambda _g158128_ - (let ((_g158127_ (let () (declare (not safe)) (##length _g158128_)))) - (cond ((let () (declare (not safe)) (##fx= _g158127_ 1)) - (apply (lambda (_srcpath157974_) + (lambda _g158125_ + (let ((_g158124_ (let () (declare (not safe)) (##length _g158125_)))) + (cond ((let () (declare (not safe)) (##fx= _g158124_ 1)) + (apply (lambda (_srcpath157971_) (let () (declare (not safe)) - (gxc#compile-exe__0 _srcpath157974_))) - _g158128_)) - ((let () (declare (not safe)) (##fx= _g158127_ 2)) - (apply (lambda (_srcpath157978_ _opts157979_) + (gxc#compile-exe__0 _srcpath157971_))) + _g158125_)) + ((let () (declare (not safe)) (##fx= _g158124_ 2)) + (apply (lambda (_srcpath157975_ _opts157976_) (let () (declare (not safe)) - (gxc#compile-exe__% _srcpath157978_ _opts157979_))) - _g158128_)) + (gxc#compile-exe__% _srcpath157975_ _opts157976_))) + _g158125_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g158128_)))))) + _g158125_)))))) (define gxc#compile-executable-module - (lambda (_ctx157954_ _opts157955_) + (lambda (_ctx157951_ _opts157952_) (if (let () (declare (not safe)) - (pgetq__0 'full-program-optimization: _opts157955_)) + (pgetq__0 'full-program-optimization: _opts157952_)) (let () (declare (not safe)) (gxc#compile-executable-module/full-program-optimization - _ctx157954_ - _opts157955_)) + _ctx157951_ + _opts157952_)) (let () (declare (not safe)) (gxc#compile-executable-module/separate - _ctx157954_ - _opts157955_))))) + _ctx157951_ + _opts157952_))))) (define gxc#compile-executable-module/separate - (lambda (_ctx157837_ _opts157838_) - (letrec ((_generate-stub157840_ - (lambda (_builtin-modules157950_) - (let ((_mod-main157952_ + (lambda (_ctx157834_ _opts157835_) + (letrec ((_generate-stub157837_ + (lambda (_builtin-modules157947_) + (let ((_mod-main157949_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx157837_ 'main)))) - (write (let ((__tmp158129 - (let ((__tmp158130 - (let ((__tmp158131 - (let ((__tmp158132 - (let ((__tmp158134 - (let ((__tmp158135 + (gxc#find-runtime-symbol _ctx157834_ 'main)))) + (write (let ((__tmp158126 + (let ((__tmp158127 + (let ((__tmp158128 + (let ((__tmp158129 + (let ((__tmp158131 + (let ((__tmp158132 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _builtin-modules157950_ '())))) + (cons _builtin-modules157947_ '())))) (declare (not safe)) - (cons 'quote __tmp158135))) - (__tmp158133 + (cons 'quote __tmp158132))) + (__tmp158130 (let () (declare (not safe)) (cons 'libgerbil-builtin-modules '())))) (declare (not safe)) - (cons __tmp158134 __tmp158133)))) + (cons __tmp158131 __tmp158130)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'append - __tmp158132)))) + __tmp158129)))) (declare (not safe)) - (cons __tmp158131 '())))) + (cons __tmp158128 '())))) (declare (not safe)) - (cons 'builtin-modules __tmp158130)))) + (cons 'builtin-modules __tmp158127)))) (declare (not safe)) - (cons 'define __tmp158129))) - (write (let ((__tmp158136 - (let ((__tmp158175 + (cons 'define __tmp158126))) + (write (let ((__tmp158133 + (let ((__tmp158172 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp158137 - (let ((__tmp158138 - (let ((__tmp158139 - (let ((__tmp158163 - (let ((__tmp158164 + (__tmp158134 + (let ((__tmp158135 + (let ((__tmp158136 + (let ((__tmp158160 + (let ((__tmp158161 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158165 - (let ((__tmp158173 - (let ((__tmp158174 + (let ((__tmp158162 + (let ((__tmp158170 + (let ((__tmp158171 (let () (declare (not safe)) (cons 'builtin-modules '())))) (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp158174))) - (__tmp158166 - (let ((__tmp158167 - (let ((__tmp158168 - (let ((__tmp158169 + __tmp158171))) + (__tmp158163 + (let ((__tmp158164 + (let ((__tmp158165 + (let ((__tmp158166 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158170 - (let ((__tmp158171 - (let ((__tmp158172 + (let ((__tmp158167 + (let ((__tmp158168 + (let ((__tmp158169 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp158172 '())))) + (cons __tmp158169 '())))) (declare (not safe)) - (cons 'cdr __tmp158171)))) + (cons 'cdr __tmp158168)))) (declare (not safe)) - (cons __tmp158170 '())))) + (cons __tmp158167 '())))) (declare (not safe)) - (cons _mod-main157952_ __tmp158169)))) + (cons _mod-main157949_ __tmp158166)))) (declare (not safe)) - (cons 'apply __tmp158168)))) + (cons 'apply __tmp158165)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158167 '())))) + (cons __tmp158164 '())))) (declare (not safe)) - (cons __tmp158173 __tmp158166)))) + (cons __tmp158170 __tmp158163)))) (declare (not safe)) - (cons '() __tmp158165)))) + (cons '() __tmp158162)))) (declare (not safe)) - (cons 'lambda __tmp158164))) - (__tmp158140 - (let ((__tmp158141 - (let ((__tmp158142 - (let ((__tmp158143 - (let ((__tmp158154 - (let ((__tmp158155 - (let ((__tmp158156 + (cons 'lambda __tmp158161))) + (__tmp158137 + (let ((__tmp158138 + (let ((__tmp158139 + (let ((__tmp158140 + (let ((__tmp158151 + (let ((__tmp158152 + (let ((__tmp158153 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158157 - (let ((__tmp158158 - (let ((__tmp158159 - (let ((__tmp158160 - (let ((__tmp158161 - (let ((__tmp158162 + (let ((__tmp158154 + (let ((__tmp158155 + (let ((__tmp158156 + (let ((__tmp158157 + (let ((__tmp158158 + (let ((__tmp158159 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'current-output-port '())))) (declare (not safe)) - (cons __tmp158162 '())))) + (cons __tmp158159 '())))) (declare (not safe)) - (cons 'force-output __tmp158161)))) + (cons 'force-output __tmp158158)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158160 '())))) + (cons __tmp158157 '())))) (declare (not safe)) - (cons '() __tmp158159)))) + (cons '() __tmp158156)))) (declare (not safe)) - (cons 'lambda __tmp158158)))) + (cons 'lambda __tmp158155)))) (declare (not safe)) - (cons __tmp158157 '())))) + (cons __tmp158154 '())))) (declare (not safe)) - (cons 'void __tmp158156)))) + (cons 'void __tmp158153)))) (declare (not safe)) - (cons 'with-catch __tmp158155))) + (cons 'with-catch __tmp158152))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp158144 - (let ((__tmp158145 - (let ((__tmp158146 + (__tmp158141 + (let ((__tmp158142 + (let ((__tmp158143 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158147 - (let ((__tmp158148 - (let ((__tmp158149 - (let ((__tmp158150 - (let ((__tmp158151 - (let ((__tmp158152 + (let ((__tmp158144 + (let ((__tmp158145 + (let ((__tmp158146 + (let ((__tmp158147 + (let ((__tmp158148 + (let ((__tmp158149 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158153 + (let ((__tmp158150 (let () (declare (not safe)) (cons 'current-error-port '())))) (declare (not safe)) - (cons __tmp158153 '())))) + (cons __tmp158150 '())))) (declare (not safe)) - (cons 'force-output __tmp158152)))) + (cons 'force-output __tmp158149)))) (declare (not safe)) - (cons __tmp158151 '())))) + (cons __tmp158148 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp158150)))) + (cons '() __tmp158147)))) (declare (not safe)) - (cons 'lambda __tmp158149)))) + (cons 'lambda __tmp158146)))) (declare (not safe)) - (cons __tmp158148 '())))) + (cons __tmp158145 '())))) (declare (not safe)) - (cons 'void __tmp158147)))) + (cons 'void __tmp158144)))) (declare (not safe)) - (cons 'with-catch __tmp158146)))) + (cons 'with-catch __tmp158143)))) (declare (not safe)) - (cons __tmp158145 '())))) + (cons __tmp158142 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158154 - __tmp158144)))) + (cons __tmp158151 + __tmp158141)))) (declare (not safe)) - (cons '() __tmp158143)))) + (cons '() __tmp158140)))) (declare (not safe)) - (cons 'lambda __tmp158142)))) + (cons 'lambda __tmp158139)))) (declare (not safe)) - (cons __tmp158141 '())))) + (cons __tmp158138 '())))) (declare (not safe)) - (cons __tmp158163 __tmp158140)))) + (cons __tmp158160 __tmp158137)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'with-unwind-protect - __tmp158139)))) + __tmp158136)))) (declare (not safe)) - (cons __tmp158138 '())))) + (cons __tmp158135 '())))) (declare (not safe)) - (cons __tmp158175 __tmp158137)))) + (cons __tmp158172 __tmp158134)))) (declare (not safe)) - (cons 'define __tmp158136))) + (cons 'define __tmp158133))) (write '(gerbil-main)) (newline)))) - (_get-libgerbil-ld-opts157841_ - (lambda (_libgerbil157948_) + (_get-libgerbil-ld-opts157838_ + (lambda (_libgerbil157945_) (call-with-input-file - (string-append _libgerbil157948_ '".ldd") + (string-append _libgerbil157945_ '".ldd") read))) - (_replace-extension157842_ - (lambda (_path157945_ _ext157946_) + (_replace-extension157839_ + (lambda (_path157942_ _ext157943_) (string-append - (path-strip-extension _path157945_) - _ext157946_))) - (_not-exclude-module?157843_ - (lambda (_ctx157941_) - (let ((_id-str157943_ + (path-strip-extension _path157942_) + _ext157943_))) + (_not-exclude-module?157840_ + (lambda (_ctx157938_) + (let ((_id-str157940_ (symbol->string (##structure-ref - _ctx157941_ + _ctx157938_ '1 gx#expander-context::t '#f)))) - (if (let ((__tmp158177 + (if (let ((__tmp158174 (let () (declare (not safe)) (string-prefix? '"gerbil/" - _id-str157943_)))) + _id-str157940_)))) (declare (not safe)) - (not __tmp158177)) - (let ((__tmp158176 + (not __tmp158174)) + (let ((__tmp158173 (let () (declare (not safe)) - (string-prefix? '"std/" _id-str157943_)))) + (string-prefix? '"std/" _id-str157940_)))) (declare (not safe)) - (not __tmp158176)) + (not __tmp158173)) '#f)))) - (_not-file-empty?157844_ - (lambda (_path157939_) - (let ((__tmp158178 + (_not-file-empty?157841_ + (lambda (_path157936_) + (let ((__tmp158175 (let () (declare (not safe)) - (gxc#file-empty? _path157939_)))) + (gxc#file-empty? _path157936_)))) (declare (not safe)) - (not __tmp158178)))) - (_compile-stub157845_ - (lambda (_output-scm157852_ _output-bin157853_) - (let* ((_gerbil-home157855_ + (not __tmp158175)))) + (_compile-stub157842_ + (lambda (_output-scm157849_ _output-bin157850_) + (let* ((_gerbil-home157852_ (getenv '"GERBIL_BUILD_PREFIX" (let () (declare (not safe)) (gerbil-home)))) - (_gerbil-libdir157857_ - (path-expand '"lib" _gerbil-home157855_)) - (_gerbil-staticdir157859_ - (path-expand '"static" _gerbil-libdir157857_)) - (_gxlink157861_ + (_gerbil-libdir157854_ + (path-expand '"lib" _gerbil-home157852_)) + (_gerbil-staticdir157856_ + (path-expand '"static" _gerbil-libdir157854_)) + (_gxlink157858_ (path-expand '"libgerbil-link" - _gerbil-libdir157857_)) - (_tmp157863_ + _gerbil-libdir157854_)) + (_tmp157860_ (path-expand (string-append '"gxc." @@ -570,334 +570,334 @@ (declare (not safe)) (gxc#compile-timestamp-nanos)))) '"/tmp")) - (_tmp-path157867_ - (lambda (_f157865_) + (_tmp-path157864_ + (lambda (_f157862_) (path-expand - (path-strip-directory _f157865_) - _tmp157863_))) - (_deps157869_ + (path-strip-directory _f157862_) + _tmp157860_))) + (_deps157866_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx157837_))) - (_deps157871_ + (gxc#find-runtime-module-deps _ctx157834_))) + (_deps157868_ (let () (declare (not safe)) - (filter _not-exclude-module?157843_ - _deps157869_))) - (_src-deps-scm157873_ - (map gxc#find-static-module-file _deps157871_)) - (_src-deps-scm157875_ + (filter _not-exclude-module?157840_ + _deps157866_))) + (_src-deps-scm157870_ + (map gxc#find-static-module-file _deps157868_)) + (_src-deps-scm157872_ (let () (declare (not safe)) - (filter _not-file-empty?157844_ - _src-deps-scm157873_))) - (_src-deps-scm157877_ - (map path-expand _src-deps-scm157875_)) - (_deps-scm157879_ - (map _tmp-path157867_ _src-deps-scm157877_)) - (_deps-c157885_ - (map (lambda (_g157880157882_) + (filter _not-file-empty?157841_ + _src-deps-scm157870_))) + (_src-deps-scm157874_ + (map path-expand _src-deps-scm157872_)) + (_deps-scm157876_ + (map _tmp-path157864_ _src-deps-scm157874_)) + (_deps-c157882_ + (map (lambda (_g157877157879_) (let () (declare (not safe)) - (_replace-extension157842_ - _g157880157882_ + (_replace-extension157839_ + _g157877157879_ '".c"))) - _deps-scm157879_)) - (_deps-o157891_ - (map (lambda (_g157886157888_) + _deps-scm157876_)) + (_deps-o157888_ + (map (lambda (_g157883157885_) (let () (declare (not safe)) - (_replace-extension157842_ - _g157886157888_ + (_replace-extension157839_ + _g157883157885_ '".o"))) - _deps-scm157879_)) - (_src-bin-scm157893_ + _deps-scm157876_)) + (_src-bin-scm157890_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx157837_))) - (_src-bin-scm157895_ - (path-expand _src-bin-scm157893_)) - (_bin-scm157897_ + (gxc#find-static-module-file _ctx157834_))) + (_src-bin-scm157892_ + (path-expand _src-bin-scm157890_)) + (_bin-scm157894_ (let () (declare (not safe)) - (_tmp-path157867_ _src-bin-scm157895_))) - (_bin-c157899_ + (_tmp-path157864_ _src-bin-scm157892_))) + (_bin-c157896_ (let () (declare (not safe)) - (_replace-extension157842_ - _bin-scm157897_ + (_replace-extension157839_ + _bin-scm157894_ '".c"))) - (_bin-o157901_ + (_bin-o157898_ (let () (declare (not safe)) - (_replace-extension157842_ - _bin-scm157897_ + (_replace-extension157839_ + _bin-scm157894_ '".o"))) - (_output-bin157903_ - (path-expand _output-bin157853_)) - (_output-scm157905_ - (path-expand _output-scm157852_)) - (_output-c157907_ + (_output-bin157900_ + (path-expand _output-bin157850_)) + (_output-scm157902_ + (path-expand _output-scm157849_)) + (_output-c157904_ (let () (declare (not safe)) - (_replace-extension157842_ - _output-scm157905_ + (_replace-extension157839_ + _output-scm157902_ '".c"))) - (_output-o157909_ + (_output-o157906_ (let () (declare (not safe)) - (_replace-extension157842_ - _output-scm157905_ + (_replace-extension157839_ + _output-scm157902_ '".o"))) - (_output_-c157911_ + (_output_-c157908_ (let () (declare (not safe)) - (_replace-extension157842_ - _output-scm157905_ + (_replace-extension157839_ + _output-scm157902_ '"_.c"))) - (_output_-o157913_ + (_output_-o157910_ (let () (declare (not safe)) - (_replace-extension157842_ - _output-scm157905_ + (_replace-extension157839_ + _output-scm157902_ '"_.o"))) - (_gsc-link-opts157915_ + (_gsc-link-opts157912_ (let () (declare (not safe)) (gxc#gsc-link-options__0))) - (_gsc-cc-opts157917_ + (_gsc-cc-opts157914_ (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - (_gsc-static-opts157919_ + (_gsc-static-opts157916_ (let () (declare (not safe)) (gxc#gsc-static-include-options - _gerbil-staticdir157859_))) - (_output-ld-opts157921_ + _gerbil-staticdir157856_))) + (_output-ld-opts157918_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_libgerbil.a157923_ - (path-expand '"libgerbil.a" _gerbil-libdir157857_)) - (_libgerbil.so157925_ + (_libgerbil.a157920_ + (path-expand '"libgerbil.a" _gerbil-libdir157854_)) + (_libgerbil.so157922_ (path-expand '"libgerbil.so" - _gerbil-libdir157857_)) - (_libgerbil-ld-opts157927_ - (if (file-exists? _libgerbil.so157925_) + _gerbil-libdir157854_)) + (_libgerbil-ld-opts157924_ + (if (file-exists? _libgerbil.so157922_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts157841_ - _libgerbil.so157925_)) - (if (file-exists? _libgerbil.a157923_) + (_get-libgerbil-ld-opts157838_ + _libgerbil.so157922_)) + (if (file-exists? _libgerbil.a157920_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts157841_ - _libgerbil.a157923_)) + (_get-libgerbil-ld-opts157838_ + _libgerbil.a157920_)) (let () (declare (not safe)) (gxc#raise-compile-error '"libgerbil does not exist" - _libgerbil.a157923_ - _libgerbil.so157925_))))) - (_rpath157929_ + _libgerbil.a157920_ + _libgerbil.so157922_))))) + (_rpath157926_ (let () (declare (not safe)) - (gxc#gerbil-rpath _gerbil-libdir157857_))) - (_builtin-modules157933_ - (map (lambda (_mod157931_) + (gxc#gerbil-rpath _gerbil-libdir157854_))) + (_builtin-modules157930_ + (map (lambda (_mod157928_) (symbol->string (##structure-ref - _mod157931_ + _mod157928_ '1 gx#expander-context::t '#f))) (let () (declare (not safe)) - (cons _ctx157837_ _deps157871_))))) - (let ((__tmp158179 + (cons _ctx157834_ _deps157868_))))) + (let ((__tmp158176 (lambda () - (let ((__tmp158180 - (path-directory _output-bin157903_))) + (let ((__tmp158177 + (path-directory _output-bin157900_))) (declare (not safe)) - (create-directory*__0 __tmp158180))))) + (create-directory*__0 __tmp158177))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158179)) - (let ((__tmp158181 + (with-lock gxc#+driver-mutex+ __tmp158176)) + (let ((__tmp158178 (lambda () (let () (declare (not safe)) - (_generate-stub157840_ - _builtin-modules157933_))))) + (_generate-stub157837_ + _builtin-modules157930_))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm157905_ - __tmp158181)) + _output-scm157902_ + __tmp158178)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp158182 - (lambda () (create-directory _tmp157863_)))) + (let ((__tmp158179 + (lambda () (create-directory _tmp157860_)))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158182)) + (with-lock gxc#+driver-mutex+ __tmp158179)) (for-each copy-file - _src-deps-scm157877_ - _deps-scm157879_) - (copy-file _src-bin-scm157895_ _bin-scm157897_) - (let ((__tmp158190 + _src-deps-scm157874_ + _deps-scm157876_) + (copy-file _src-bin-scm157892_ _bin-scm157894_) + (let ((__tmp158187 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp158183 - (let ((__tmp158184 - (let ((__tmp158185 - (let ((__tmp158186 - (let ((__tmp158187 - (let ((__tmp158188 + (__tmp158180 + (let ((__tmp158181 + (let ((__tmp158182 + (let ((__tmp158183 + (let ((__tmp158184 + (let ((__tmp158185 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158189 + (let ((__tmp158186 (let () (declare (not safe)) - (cons _output-scm157905_ '())))) + (cons _output-scm157902_ '())))) (declare (not safe)) - (cons _bin-scm157897_ __tmp158189)))) + (cons _bin-scm157894_ __tmp158186)))) (declare (not safe)) - (foldr1 cons __tmp158188 _deps-scm157879_)))) + (foldr1 cons __tmp158185 _deps-scm157876_)))) (declare (not safe)) - (foldr1 cons __tmp158187 _gsc-link-opts157915_)))) + (foldr1 cons __tmp158184 _gsc-link-opts157912_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _gxlink157861_ - __tmp158186)))) + (cons _gxlink157858_ + __tmp158183)))) (declare (not safe)) - (cons '"-l" __tmp158185)))) + (cons '"-l" __tmp158182)))) (declare (not safe)) - (cons '"-link" __tmp158184)))) + (cons '"-link" __tmp158181)))) (declare (not safe)) - (gxc#invoke __tmp158190 __tmp158183)) - (let ((__tmp158198 + (gxc#invoke __tmp158187 __tmp158180)) + (let ((__tmp158195 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp158191 - (let ((__tmp158192 - (let ((__tmp158193 - (let ((__tmp158194 - (let ((__tmp158195 - (let ((__tmp158196 + (__tmp158188 + (let ((__tmp158189 + (let ((__tmp158190 + (let ((__tmp158191 + (let ((__tmp158192 + (let ((__tmp158193 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158197 + (let ((__tmp158194 (let () (declare (not safe)) - (cons _output_-c157911_ '())))) + (cons _output_-c157908_ '())))) (declare (not safe)) - (cons _output-c157907_ __tmp158197)))) + (cons _output-c157904_ __tmp158194)))) (declare (not safe)) - (cons _bin-c157899_ __tmp158196)))) + (cons _bin-c157896_ __tmp158193)))) (declare (not safe)) - (foldr1 cons __tmp158195 _deps-c157885_)))) + (foldr1 cons __tmp158192 _deps-c157882_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp158194 - _gsc-static-opts157919_)))) + __tmp158191 + _gsc-static-opts157916_)))) (declare (not safe)) (foldr1 cons - __tmp158193 - _gsc-cc-opts157917_)))) + __tmp158190 + _gsc-cc-opts157914_)))) (declare (not safe)) - (cons '"-obj" __tmp158192)))) + (cons '"-obj" __tmp158189)))) (declare (not safe)) - (gxc#invoke __tmp158198 __tmp158191)) - (let ((__tmp158211 + (gxc#invoke __tmp158195 __tmp158188)) + (let ((__tmp158208 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp158199 - (let ((__tmp158200 - (let ((__tmp158201 - (let ((__tmp158202 - (let ((__tmp158203 - (let ((__tmp158204 + (__tmp158196 + (let ((__tmp158197 + (let ((__tmp158198 + (let ((__tmp158199 + (let ((__tmp158200 + (let ((__tmp158201 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158205 - (let ((__tmp158206 - (let ((__tmp158207 - (let ((__tmp158208 - (let ((__tmp158209 + (let ((__tmp158202 + (let ((__tmp158203 + (let ((__tmp158204 + (let ((__tmp158205 + (let ((__tmp158206 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158210 + (let ((__tmp158207 (let () (declare (not safe)) (cons '"-lgambit" - _libgerbil-ld-opts157927_)))) + _libgerbil-ld-opts157924_)))) (declare (not safe)) - (cons '"-lgerbil" __tmp158210)))) + (cons '"-lgerbil" __tmp158207)))) (declare (not safe)) - (cons _gerbil-libdir157857_ __tmp158209)))) + (cons _gerbil-libdir157854_ __tmp158206)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"-L" - __tmp158208)))) + __tmp158205)))) (declare (not safe)) - (cons _rpath157929_ - __tmp158207)))) + (cons _rpath157926_ + __tmp158204)))) (declare (not safe)) (foldr1 cons - __tmp158206 - _output-ld-opts157921_)))) + __tmp158203 + _output-ld-opts157918_)))) (declare (not safe)) - (cons _output_-o157913_ __tmp158205)))) + (cons _output_-o157910_ __tmp158202)))) (declare (not safe)) - (cons _output-o157909_ __tmp158204)))) + (cons _output-o157906_ __tmp158201)))) (declare (not safe)) - (cons _bin-o157901_ __tmp158203)))) + (cons _bin-o157898_ __tmp158200)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp158202 - _deps-o157891_)))) + __tmp158199 + _deps-o157888_)))) (declare (not safe)) - (cons _output-bin157903_ - __tmp158201)))) + (cons _output-bin157900_ + __tmp158198)))) (declare (not safe)) - (cons '"-o" __tmp158200)))) + (cons '"-o" __tmp158197)))) (declare (not safe)) - (gxc#invoke __tmp158211 __tmp158199)) + (gxc#invoke __tmp158208 __tmp158196)) (for-each delete-file - (let ((__tmp158212 - (let ((__tmp158213 - (let ((__tmp158214 + (let ((__tmp158209 + (let ((__tmp158210 + (let ((__tmp158211 (let () (declare (not safe)) - (cons _output_-o157913_ + (cons _output_-o157910_ '())))) (declare (not safe)) - (cons _output-o157909_ - __tmp158214)))) + (cons _output-o157906_ + __tmp158211)))) (declare (not safe)) - (cons _output_-c157911_ __tmp158213)))) + (cons _output_-c157908_ __tmp158210)))) (declare (not safe)) - (cons _output-c157907_ __tmp158212))) + (cons _output-c157904_ __tmp158209))) (let () (declare (not safe)) - (gxc#delete-directory* _tmp157863_))) + (gxc#delete-directory* _tmp157860_))) '#!void))))) - (let* ((_output-bin157847_ + (let* ((_output-bin157844_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx157837_ _opts157838_))) - (_output-scm157849_ - (string-append _output-bin157847_ '"__exe.scm"))) + (gxc#compile-exe-output-file _ctx157834_ _opts157835_))) + (_output-scm157846_ + (string-append _output-bin157844_ '"__exe.scm"))) (let () (declare (not safe)) - (_compile-stub157845_ _output-scm157849_ _output-bin157847_)) + (_compile-stub157842_ _output-scm157846_ _output-bin157844_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm157849_)))))) + (delete-file _output-scm157846_)))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_ctx157662_ _opts157663_) - (letrec ((_reset-declare157665_ + (lambda (_ctx157659_ _opts157660_) + (letrec ((_reset-declare157662_ (lambda () '(declare (gambit-scheme) @@ -919,646 +919,646 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_generate-stub157666_ - (lambda (_deps157828_) - (let ((_mod-main157830_ + (_generate-stub157663_ + (lambda (_deps157825_) + (let ((_mod-main157827_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx157662_ 'main))) - (_reset-decl157831_ + (gxc#find-runtime-symbol _ctx157659_ 'main))) + (_reset-decl157828_ (let () (declare (not safe)) - (_reset-declare157665_))) - (_user-decl157832_ + (_reset-declare157662_))) + (_user-decl157829_ (let () (declare (not safe)) - (_user-declare157667_)))) + (_user-declare157664_)))) (for-each - (lambda (_dep157834_) + (lambda (_dep157831_) (write '(##namespace (""))) (newline) - (write _reset-decl157831_) + (write _reset-decl157828_) (newline) - (if _user-decl157832_ - (begin (write _user-decl157832_) (newline)) + (if _user-decl157829_ + (begin (write _user-decl157829_) (newline)) '#!void) - (write (let ((__tmp158215 + (write (let ((__tmp158212 (let () (declare (not safe)) - (cons _dep157834_ '())))) + (cons _dep157831_ '())))) (declare (not safe)) - (cons 'include __tmp158215))) + (cons 'include __tmp158212))) (newline)) - _deps157828_) - (write (let ((__tmp158216 - (let ((__tmp158229 + _deps157825_) + (write (let ((__tmp158213 + (let ((__tmp158226 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp158217 - (let ((__tmp158225 - (let ((__tmp158226 - (let ((__tmp158227 - (let ((__tmp158228 + (__tmp158214 + (let ((__tmp158222 + (let ((__tmp158223 + (let ((__tmp158224 + (let ((__tmp158225 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons 'quote __tmp158228)))) + (cons 'quote __tmp158225)))) (declare (not safe)) - (cons __tmp158227 '())))) + (cons __tmp158224 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp158226))) - (__tmp158218 - (let ((__tmp158219 - (let ((__tmp158220 - (let ((__tmp158221 + __tmp158223))) + (__tmp158215 + (let ((__tmp158216 + (let ((__tmp158217 + (let ((__tmp158218 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158222 - (let ((__tmp158223 - (let ((__tmp158224 + (let ((__tmp158219 + (let ((__tmp158220 + (let ((__tmp158221 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp158224 '())))) + (cons __tmp158221 '())))) (declare (not safe)) - (cons 'cdr __tmp158223)))) + (cons 'cdr __tmp158220)))) (declare (not safe)) - (cons __tmp158222 '())))) + (cons __tmp158219 '())))) (declare (not safe)) - (cons _mod-main157830_ __tmp158221)))) + (cons _mod-main157827_ __tmp158218)))) (declare (not safe)) - (cons 'apply __tmp158220)))) + (cons 'apply __tmp158217)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158219 '())))) + (cons __tmp158216 '())))) (declare (not safe)) - (cons __tmp158225 __tmp158218)))) + (cons __tmp158222 __tmp158215)))) (declare (not safe)) - (cons __tmp158229 __tmp158217)))) + (cons __tmp158226 __tmp158214)))) (declare (not safe)) - (cons 'define __tmp158216))) + (cons 'define __tmp158213))) (write '(gerbil-main)) (newline)))) - (_user-declare157667_ + (_user-declare157664_ (lambda () - (let* ((_gsc-opts157733_ + (let* ((_gsc-opts157730_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _opts157663_))) - (_gsc-prelude157735_ - (if _gsc-opts157733_ - (member '"-prelude" _gsc-opts157733_) + (pgetq__0 'gsc-options: _opts157660_))) + (_gsc-prelude157732_ + (if _gsc-opts157730_ + (member '"-prelude" _gsc-opts157730_) '#f)) - (_gsc-prelude157737_ - (if _gsc-prelude157735_ + (_gsc-prelude157734_ + (if _gsc-prelude157732_ (read (open-input-string - (cadr _gsc-prelude157735_))) + (cadr _gsc-prelude157732_))) '#f))) - (let _lp157740_ ((_rest157742_ + (let _lp157737_ ((_rest157739_ (let () (declare (not safe)) - (cons _gsc-prelude157737_ '()))) - (_user-decls157743_ '())) - (let* ((_rest157744157752_ _rest157742_) - (_else157746157760_ + (cons _gsc-prelude157734_ '()))) + (_user-decls157740_ '())) + (let* ((_rest157741157749_ _rest157739_) + (_else157743157757_ (lambda () (if (let () (declare (not safe)) - (null? _user-decls157743_)) + (null? _user-decls157740_)) '#f - (let ((__tmp158230 - (reverse _user-decls157743_))) + (let ((__tmp158227 + (reverse _user-decls157740_))) (declare (not safe)) - (cons 'declare __tmp158230))))) - (_K157748157816_ - (lambda (_rest157763_ _expr157764_) - (let* ((_expr157765157777_ _expr157764_) - (_else157768157785_ + (cons 'declare __tmp158227))))) + (_K157745157813_ + (lambda (_rest157760_ _expr157761_) + (let* ((_expr157762157774_ _expr157761_) + (_else157765157782_ (lambda () (let () (declare (not safe)) - (_lp157740_ - _rest157763_ - _user-decls157743_))))) - (let ((_K157773157806_ - (lambda (_decls157804_) - (let ((__tmp158231 + (_lp157737_ + _rest157760_ + _user-decls157740_))))) + (let ((_K157770157803_ + (lambda (_decls157801_) + (let ((__tmp158228 (let () (declare (not safe)) (foldl1 cons - _user-decls157743_ - _decls157804_)))) + _user-decls157740_ + _decls157801_)))) (declare (not safe)) - (_lp157740_ - _rest157763_ - __tmp158231)))) - (_K157770157791_ - (lambda (_exprs157789_) - (let ((__tmp158232 - (append _exprs157789_ - _rest157763_))) + (_lp157737_ + _rest157760_ + __tmp158228)))) + (_K157767157788_ + (lambda (_exprs157786_) + (let ((__tmp158229 + (append _exprs157786_ + _rest157760_))) (declare (not safe)) - (_lp157740_ - __tmp158232 - _user-decls157743_))))) + (_lp157737_ + __tmp158229 + _user-decls157740_))))) (if (let () (declare (not safe)) - (##pair? _expr157765157777_)) - (let ((_tl157775157811_ + (##pair? _expr157762157774_)) + (let ((_tl157772157808_ (let () (declare (not safe)) - (##cdr _expr157765157777_))) - (_hd157774157809_ + (##cdr _expr157762157774_))) + (_hd157771157806_ (let () (declare (not safe)) - (##car _expr157765157777_)))) + (##car _expr157762157774_)))) (if (let () (declare (not safe)) - (##eq? _hd157774157809_ + (##eq? _hd157771157806_ 'declare)) - (let ((_decls157814_ - _tl157775157811_)) + (let ((_decls157811_ + _tl157772157808_)) (declare (not safe)) - (_K157773157806_ - _decls157814_)) + (_K157770157803_ + _decls157811_)) (if (let () (declare (not safe)) - (##eq? _hd157774157809_ + (##eq? _hd157771157806_ 'begin)) - (let ((_exprs157799_ - _tl157775157811_)) + (let ((_exprs157796_ + _tl157772157808_)) (declare (not safe)) - (_K157770157791_ - _exprs157799_)) + (_K157767157788_ + _exprs157796_)) (let () (declare (not safe)) - (_else157768157785_))))) + (_else157765157782_))))) (let () (declare (not safe)) - (_else157768157785_)))))))) + (_else157765157782_)))))))) (if (let () (declare (not safe)) - (##pair? _rest157744157752_)) - (let ((_hd157749157819_ + (##pair? _rest157741157749_)) + (let ((_hd157746157816_ (let () (declare (not safe)) - (##car _rest157744157752_))) - (_tl157750157821_ + (##car _rest157741157749_))) + (_tl157747157818_ (let () (declare (not safe)) - (##cdr _rest157744157752_)))) - (let* ((_expr157824_ _hd157749157819_) - (_rest157826_ _tl157750157821_)) + (##cdr _rest157741157749_)))) + (let* ((_expr157821_ _hd157746157816_) + (_rest157823_ _tl157747157818_)) (declare (not safe)) - (_K157748157816_ _rest157826_ _expr157824_))) + (_K157745157813_ _rest157823_ _expr157821_))) (let () (declare (not safe)) - (_else157746157760_)))))))) - (_compile-stub157668_ - (lambda (_output-scm157675_ _output-bin157676_) - (let* ((_gerbil-home157678_ + (_else157743157757_)))))))) + (_compile-stub157665_ + (lambda (_output-scm157672_ _output-bin157673_) + (let* ((_gerbil-home157675_ (getenv '"GERBIL_BUILD_PREFIX" (let () (declare (not safe)) (gerbil-home)))) - (_gerbil-libdir157680_ - (path-expand '"lib" _gerbil-home157678_)) - (_runtime157682_ + (_gerbil-libdir157677_ + (path-expand '"lib" _gerbil-home157675_)) + (_runtime157679_ (map gxc#find-static-module-file gxc#gerbil-runtime-modules)) - (_gambit-sharp157684_ + (_gambit-sharp157681_ (path-expand '"lib/_gambit#.scm" - _gerbil-home157678_)) - (_include-gambit-sharp157686_ + _gerbil-home157675_)) + (_include-gambit-sharp157683_ (string-append '"(include \"" - _gambit-sharp157684_ + _gambit-sharp157681_ '"\")")) - (_bin-scm157688_ + (_bin-scm157685_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx157662_))) - (_deps157690_ + (gxc#find-static-module-file _ctx157659_))) + (_deps157687_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx157662_))) - (_deps157692_ - (map gxc#find-static-module-file _deps157690_)) - (_deps157697_ - (let ((__tmp158233 - (lambda (_$obj157694_) - (let ((__tmp158234 + (gxc#find-runtime-module-deps _ctx157659_))) + (_deps157689_ + (map gxc#find-static-module-file _deps157687_)) + (_deps157694_ + (let ((__tmp158230 + (lambda (_$obj157691_) + (let ((__tmp158231 (let () (declare (not safe)) - (gxc#file-empty? _$obj157694_)))) + (gxc#file-empty? _$obj157691_)))) (declare (not safe)) - (not __tmp158234))))) - (declare (not safe)) - (filter __tmp158233 _deps157692_))) - (_deps157701_ - (let ((__tmp158235 - (lambda (_f157699_) - (let ((__tmp158236 - (member _f157699_ - _runtime157682_))) + (not __tmp158231))))) + (declare (not safe)) + (filter __tmp158230 _deps157689_))) + (_deps157698_ + (let ((__tmp158232 + (lambda (_f157696_) + (let ((__tmp158233 + (member _f157696_ + _runtime157679_))) (declare (not safe)) - (not __tmp158236))))) + (not __tmp158233))))) (declare (not safe)) - (filter __tmp158235 _deps157697_))) - (_output-base157703_ + (filter __tmp158232 _deps157694_))) + (_output-base157700_ (string-append - (path-strip-extension _output-scm157675_))) - (_output-c157705_ - (string-append _output-base157703_ '".c")) - (_output-o157707_ - (string-append _output-base157703_ '".o")) - (_output-c_157709_ - (string-append _output-base157703_ '"_.c")) - (_output-o_157711_ - (string-append _output-base157703_ '"_.o")) - (_gsc-link-opts157713_ + (path-strip-extension _output-scm157672_))) + (_output-c157702_ + (string-append _output-base157700_ '".c")) + (_output-o157704_ + (string-append _output-base157700_ '".o")) + (_output-c_157706_ + (string-append _output-base157700_ '"_.c")) + (_output-o_157708_ + (string-append _output-base157700_ '"_.o")) + (_gsc-link-opts157710_ (let () (declare (not safe)) (gxc#gsc-link-options__0))) - (_gsc-cc-opts157715_ + (_gsc-cc-opts157712_ (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - (_gsc-static-opts157717_ - (let ((__tmp158237 + (_gsc-static-opts157714_ + (let ((__tmp158234 (path-expand '"static" - _gerbil-libdir157680_))) + _gerbil-libdir157677_))) (declare (not safe)) - (gxc#gsc-static-include-options __tmp158237))) - (_output-ld-opts157719_ + (gxc#gsc-static-include-options __tmp158234))) + (_output-ld-opts157716_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_gsc-gx-macros157721_ + (_gsc-gx-macros157718_ (if (let () (declare (not safe)) (gerbil-runtime-smp?)) - (let ((__tmp158239 - (let ((__tmp158240 - (let ((__tmp158241 + (let ((__tmp158236 + (let ((__tmp158237 + (let ((__tmp158238 (let () (declare (not safe)) - (cons _include-gambit-sharp157686_ + (cons _include-gambit-sharp157683_ '())))) (declare (not safe)) - (cons '"-e" __tmp158241)))) + (cons '"-e" __tmp158238)))) (declare (not safe)) (cons '"(define-cond-expand-feature|enable-smp|)" - __tmp158240)))) + __tmp158237)))) (declare (not safe)) - (cons '"-e" __tmp158239)) - (let ((__tmp158238 + (cons '"-e" __tmp158236)) + (let ((__tmp158235 (let () (declare (not safe)) - (cons _include-gambit-sharp157686_ + (cons _include-gambit-sharp157683_ '())))) (declare (not safe)) - (cons '"-e" __tmp158238)))) - (_gsc-link-opts157723_ - (append _gsc-link-opts157713_ - _gsc-gx-macros157721_)) - (_rpath157725_ + (cons '"-e" __tmp158235)))) + (_gsc-link-opts157720_ + (append _gsc-link-opts157710_ + _gsc-gx-macros157718_)) + (_rpath157722_ (let () (declare (not safe)) - (gxc#gerbil-rpath _gerbil-libdir157680_))) - (_default-ld-options157727_ - (let ((__tmp158242 + (gxc#gerbil-rpath _gerbil-libdir157677_))) + (_default-ld-options157724_ + (let ((__tmp158239 (let () (declare (not safe)) (cons '"-lm" '())))) (declare (not safe)) - (cons '"-ldl" __tmp158242)))) - (let ((__tmp158243 + (cons '"-ldl" __tmp158239)))) + (let ((__tmp158240 (lambda () - (let ((__tmp158244 - (path-directory _output-bin157676_))) + (let ((__tmp158241 + (path-directory _output-bin157673_))) (declare (not safe)) - (create-directory*__0 __tmp158244))))) + (create-directory*__0 __tmp158241))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158243)) - (let ((__tmp158245 + (with-lock gxc#+driver-mutex+ __tmp158240)) + (let ((__tmp158242 (lambda () - (let ((__tmp158246 - (let ((__tmp158247 - (let ((__tmp158248 + (let ((__tmp158243 + (let ((__tmp158244 + (let ((__tmp158245 (let () (declare (not safe)) - (cons _bin-scm157688_ + (cons _bin-scm157685_ '())))) (declare (not safe)) (foldr1 cons - __tmp158248 - _deps157701_)))) + __tmp158245 + _deps157698_)))) (declare (not safe)) (foldr1 cons - __tmp158247 - _runtime157682_)))) + __tmp158244 + _runtime157679_)))) (declare (not safe)) - (_generate-stub157666_ __tmp158246))))) + (_generate-stub157663_ __tmp158243))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm157675_ - __tmp158245)) + _output-scm157672_ + __tmp158242)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp158254 + (let ((__tmp158251 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp158249 - (let ((__tmp158250 - (let ((__tmp158251 - (let ((__tmp158252 - (let ((__tmp158253 + (__tmp158246 + (let ((__tmp158247 + (let ((__tmp158248 + (let ((__tmp158249 + (let ((__tmp158250 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-scm157675_ '())))) + (cons _output-scm157672_ '())))) (declare (not safe)) - (foldr1 cons __tmp158253 _gsc-link-opts157723_)))) + (foldr1 cons __tmp158250 _gsc-link-opts157720_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-c_157709_ - __tmp158252)))) + (cons _output-c_157706_ + __tmp158249)))) (declare (not safe)) - (cons '"-o" __tmp158251)))) + (cons '"-o" __tmp158248)))) (declare (not safe)) - (cons '"-link" __tmp158250)))) + (cons '"-link" __tmp158247)))) (declare (not safe)) - (gxc#invoke __tmp158254 __tmp158249)) - (let ((__tmp158260 + (gxc#invoke __tmp158251 __tmp158246)) + (let ((__tmp158257 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp158255 - (let ((__tmp158256 - (let ((__tmp158257 - (let ((__tmp158258 - (let ((__tmp158259 + (__tmp158252 + (let ((__tmp158253 + (let ((__tmp158254 + (let ((__tmp158255 + (let ((__tmp158256 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-c_157709_ '())))) + (cons _output-c_157706_ '())))) (declare (not safe)) - (cons _output-c157705_ __tmp158259)))) + (cons _output-c157702_ __tmp158256)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp158258 - _gsc-static-opts157717_)))) + __tmp158255 + _gsc-static-opts157714_)))) (declare (not safe)) (foldr1 cons - __tmp158257 - _gsc-cc-opts157715_)))) + __tmp158254 + _gsc-cc-opts157712_)))) (declare (not safe)) - (cons '"-obj" __tmp158256)))) + (cons '"-obj" __tmp158253)))) (declare (not safe)) - (gxc#invoke __tmp158260 __tmp158255)) - (let ((__tmp158270 + (gxc#invoke __tmp158257 __tmp158252)) + (let ((__tmp158267 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp158261 - (let ((__tmp158262 - (let ((__tmp158263 - (let ((__tmp158264 - (let ((__tmp158265 - (let ((__tmp158266 + (__tmp158258 + (let ((__tmp158259 + (let ((__tmp158260 + (let ((__tmp158261 + (let ((__tmp158262 + (let ((__tmp158263 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158267 - (let ((__tmp158268 - (let ((__tmp158269 + (let ((__tmp158264 + (let ((__tmp158265 + (let ((__tmp158266 (let () (declare (not safe)) (cons '"-lgambit" - _default-ld-options157727_)))) + _default-ld-options157724_)))) (declare (not safe)) - (cons _gerbil-libdir157680_ - __tmp158269)))) + (cons _gerbil-libdir157677_ + __tmp158266)))) (declare (not safe)) - (cons '"-L" __tmp158268)))) + (cons '"-L" __tmp158265)))) (declare (not safe)) - (cons _rpath157725_ __tmp158267)))) + (cons _rpath157722_ __tmp158264)))) (declare (not safe)) - (foldr1 cons __tmp158266 _output-ld-opts157719_)))) + (foldr1 cons __tmp158263 _output-ld-opts157716_)))) (declare (not safe)) - (cons _output-o_157711_ __tmp158265)))) + (cons _output-o_157708_ __tmp158262)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-o157707_ - __tmp158264)))) + (cons _output-o157704_ + __tmp158261)))) (declare (not safe)) - (cons _output-bin157676_ - __tmp158263)))) + (cons _output-bin157673_ + __tmp158260)))) (declare (not safe)) - (cons '"-o" __tmp158262)))) + (cons '"-o" __tmp158259)))) (declare (not safe)) - (gxc#invoke __tmp158270 __tmp158261))) + (gxc#invoke __tmp158267 __tmp158258))) '#!void))))) - (let* ((_output-bin157670_ + (let* ((_output-bin157667_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx157662_ _opts157663_))) - (_output-scm157672_ - (string-append _output-bin157670_ '"__exe.scm"))) + (gxc#compile-exe-output-file _ctx157659_ _opts157660_))) + (_output-scm157669_ + (string-append _output-bin157667_ '"__exe.scm"))) (let () (declare (not safe)) - (_compile-stub157668_ _output-scm157672_ _output-bin157670_)) + (_compile-stub157665_ _output-scm157669_ _output-bin157667_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm157672_)))))) + (delete-file _output-scm157669_)))))) (define gxc#find-export-binding - (lambda (_ctx157612_ _id157613_) - (let ((_$e157659_ - (let ((__tmp158272 - (lambda (_e157614157616_) - (let* ((_g157618157628_ _e157614157616_) - (_else157620157636_ (lambda () '#f)) - (_K157622157640_ (lambda () '#t))) + (lambda (_ctx157609_ _id157610_) + (let ((_$e157656_ + (let ((__tmp158269 + (lambda (_e157611157613_) + (let* ((_g157615157625_ _e157611157613_) + (_else157617157633_ (lambda () '#f)) + (_K157619157637_ (lambda () '#t))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _g157618157628_ + _g157615157625_ 'gx#module-export::t)) - (let* ((_e157623157643_ + (let* ((_e157620157640_ (let () (declare (not safe)) (##unchecked-structure-ref - _g157618157628_ + _g157615157625_ '1 gx#module-export::t '#f))) - (_e157624157646_ + (_e157621157643_ (let () (declare (not safe)) (##unchecked-structure-ref - _g157618157628_ + _g157615157625_ '2 gx#module-export::t '#f))) - (_e157625157649_ + (_e157622157646_ (let () (declare (not safe)) (##unchecked-structure-ref - _g157618157628_ + _g157615157625_ '3 gx#module-export::t '#f)))) (if (let () (declare (not safe)) - (##eq? _e157625157649_ '0)) - (let ((_e157626157652_ + (##eq? _e157622157646_ '0)) + (let ((_e157623157649_ (let () (declare (not safe)) (##unchecked-structure-ref - _g157618157628_ + _g157615157625_ '4 gx#module-export::t '#f)))) - (if ((lambda (_g157654157656_) + (if ((lambda (_g157651157653_) (let () (declare (not safe)) - (eq? _g157654157656_ - _id157613_))) - _e157626157652_) + (eq? _g157651157653_ + _id157610_))) + _e157623157649_) (let () (declare (not safe)) - (_K157622157640_)) + (_K157619157637_)) (let () (declare (not safe)) - (_else157620157636_)))) + (_else157617157633_)))) (let () (declare (not safe)) - (_else157620157636_)))) + (_else157617157633_)))) (let () (declare (not safe)) - (_else157620157636_)))))) - (__tmp158271 + (_else157617157633_)))))) + (__tmp158268 (##structure-ref - _ctx157612_ + _ctx157609_ '9 gx#module-context::t '#f))) (declare (not safe)) - (find __tmp158272 __tmp158271)))) - (if _$e157659_ + (find __tmp158269 __tmp158268)))) + (if _$e157656_ (let () (declare (not safe)) - (gx#core-resolve-module-export _$e157659_)) + (gx#core-resolve-module-export _$e157656_)) '#f)))) (define gxc#find-runtime-symbol - (lambda (_ctx157604_ _id157605_) - (let ((_$e157607_ + (lambda (_ctx157601_ _id157602_) + (let ((_$e157604_ (let () (declare (not safe)) - (gxc#find-export-binding _ctx157604_ _id157605_)))) - (if _$e157607_ - ((lambda (_bind157610_) + (gxc#find-export-binding _ctx157601_ _id157602_)))) + (if _$e157604_ + ((lambda (_bind157607_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind157610_ + _bind157607_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _id157605_))) - (##structure-ref _bind157610_ '1 gx#binding::t '#f)) - _$e157607_) - (let ((__tmp158273 + _id157602_))) + (##structure-ref _bind157607_ '1 gx#binding::t '#f)) + _$e157604_) + (let ((__tmp158270 (##structure-ref - _ctx157604_ + _ctx157601_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp158273 - _id157605_)))))) + __tmp158270 + _id157602_)))))) (define gxc#find-runtime-module-deps - (lambda (_ctx157491_) - (letrec* ((_ht157493_ + (lambda (_ctx157488_) + (letrec* ((_ht157490_ (let () (declare (not safe)) (make-hash-table-eq))) - (_import-set-template157494_ - (lambda (_in157556_ _phi157557_) - (let ((_iphi157559_ - (fx+ _phi157557_ + (_import-set-template157491_ + (lambda (_in157553_ _phi157554_) + (let ((_iphi157556_ + (fx+ _phi157554_ (##direct-structure-ref - _in157556_ + _in157553_ '2 gx#import-set::t '#f))) - (_imports157560_ + (_imports157557_ (##structure-ref (##direct-structure-ref - _in157556_ + _in157553_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp157562_ ((_rest157564_ _imports157560_) - (_r157565_ '())) - (let* ((_rest157566157574_ _rest157564_) - (_else157568157582_ (lambda () _r157565_)) - (_K157570157592_ - (lambda (_rest157585_ _in157586_) + (let _lp157559_ ((_rest157561_ _imports157557_) + (_r157562_ '())) + (let* ((_rest157563157571_ _rest157561_) + (_else157565157579_ (lambda () _r157562_)) + (_K157567157589_ + (lambda (_rest157582_ _in157583_) (if (let () (declare (not safe)) (##structure-instance-of? - _in157586_ + _in157583_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (fxzero? _iphi157559_)) - (let ((__tmp158280 + (fxzero? _iphi157556_)) + (let ((__tmp158277 (let () (declare (not safe)) - (cons _in157586_ - _r157565_)))) + (cons _in157583_ + _r157562_)))) (declare (not safe)) - (_lp157562_ - _rest157585_ - __tmp158280)) + (_lp157559_ + _rest157582_ + __tmp158277)) (let () (declare (not safe)) - (_lp157562_ - _rest157585_ - _r157565_))) + (_lp157559_ + _rest157582_ + _r157562_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in157586_ + _in157583_ 'gx#module-import::t)) - (let ((_iphi157588_ - (fx+ _phi157557_ + (let ((_iphi157585_ + (fx+ _phi157554_ (##direct-structure-ref - _in157586_ + _in157583_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _iphi157588_)) - (let ((__tmp158278 - (let ((__tmp158279 + (fxzero? _iphi157585_)) + (let ((__tmp158275 + (let ((__tmp158276 (##direct-structure-ref (##direct-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in157586_ + _in157583_ '1 gx#module-import::t '#f) @@ -1566,888 +1566,888 @@ gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp158279 _r157565_)))) + (cons __tmp158276 _r157562_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp157562_ - _rest157585_ - __tmp158278)) + (_lp157559_ + _rest157582_ + __tmp158275)) (let () (declare (not safe)) - (_lp157562_ - _rest157585_ - _r157565_)))) + (_lp157559_ + _rest157582_ + _r157562_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in157586_ + _in157583_ 'gx#import-set::t)) - (let ((_xphi157590_ - (fx+ _iphi157559_ + (let ((_xphi157587_ + (fx+ _iphi157556_ (##direct-structure-ref - _in157586_ + _in157583_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _xphi157590_)) - (let ((__tmp158276 - (let ((__tmp158277 + (fxzero? _xphi157587_)) + (let ((__tmp158273 + (let ((__tmp158274 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in157586_ + _in157583_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp158277 _r157565_)))) + (cons __tmp158274 _r157562_)))) (declare (not safe)) - (_lp157562_ _rest157585_ __tmp158276)) + (_lp157559_ _rest157582_ __tmp158273)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (fxpositive? - _xphi157590_) - (let ((__tmp158274 - (let ((__tmp158275 + _xphi157587_) + (let ((__tmp158271 + (let ((__tmp158272 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_import-set-template157494_ - _in157586_ - _iphi157559_)))) + (_import-set-template157491_ + _in157583_ + _iphi157556_)))) (declare (not safe)) - (foldl1 cons _r157565_ __tmp158275)))) + (foldl1 cons _r157562_ __tmp158272)))) (declare (not safe)) - (_lp157562_ _rest157585_ __tmp158274)) + (_lp157559_ _rest157582_ __tmp158271)) (let () (declare (not safe)) - (_lp157562_ _rest157585_ _r157565_))))) + (_lp157559_ _rest157582_ _r157562_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp157562_ - _rest157585_ - _r157565_)))))))) + (_lp157559_ + _rest157582_ + _r157562_)))))))) (if (let () (declare (not safe)) - (##pair? _rest157566157574_)) - (let ((_hd157571157595_ + (##pair? _rest157563157571_)) + (let ((_hd157568157592_ (let () (declare (not safe)) - (##car _rest157566157574_))) - (_tl157572157597_ + (##car _rest157563157571_))) + (_tl157569157594_ (let () (declare (not safe)) - (##cdr _rest157566157574_)))) - (let* ((_in157600_ _hd157571157595_) - (_rest157602_ _tl157572157597_)) + (##cdr _rest157563157571_)))) + (let* ((_in157597_ _hd157568157592_) + (_rest157599_ _tl157569157594_)) (declare (not safe)) - (_K157570157592_ _rest157602_ _in157600_))) + (_K157567157589_ _rest157599_ _in157597_))) (let () (declare (not safe)) - (_else157568157582_)))))))) - (_find-deps157495_ - (lambda (_rest157502_ _deps157503_) - (let* ((_rest157504157512_ _rest157502_) - (_else157506157520_ (lambda () _deps157503_)) - (_K157508157544_ - (lambda (_rest157523_ _hd157524_) + (_else157565157579_)))))))) + (_find-deps157492_ + (lambda (_rest157499_ _deps157500_) + (let* ((_rest157501157509_ _rest157499_) + (_else157503157517_ (lambda () _deps157500_)) + (_K157505157541_ + (lambda (_rest157520_ _hd157521_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd157524_ + _hd157521_ 'gx#module-context::t)) - (let ((_id157526_ + (let ((_id157523_ (##structure-ref - _hd157524_ + _hd157521_ '1 gx#expander-context::t '#f)) - (_imports157527_ + (_imports157524_ (##structure-ref - _hd157524_ + _hd157521_ '8 gx#module-context::t '#f))) (if (let () (declare (not safe)) - (hash-get _ht157493_ _id157526_)) + (hash-get _ht157490_ _id157523_)) (let () (declare (not safe)) - (_find-deps157495_ - _rest157523_ - _deps157503_)) - (let ((_$e157529_ + (_find-deps157492_ + _rest157520_ + _deps157500_)) + (let ((_$e157526_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd157524_)))) - (if _$e157529_ - ((lambda (_pre157532_) - (let ((_xdeps157534_ - (let ((__tmp158293 + _hd157521_)))) + (if _$e157526_ + ((lambda (_pre157529_) + (let ((_xdeps157531_ + (let ((__tmp158290 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _pre157532_ _imports157527_)))) + (cons _pre157529_ _imports157524_)))) (declare (not safe)) - (_find-deps157495_ __tmp158293 _deps157503_)))) + (_find-deps157492_ __tmp158290 _deps157500_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (hash-put! - _ht157493_ - _id157526_ - _hd157524_)) - (let ((__tmp158294 + _ht157490_ + _id157523_ + _hd157521_)) + (let ((__tmp158291 (let () (declare (not safe)) - (cons _hd157524_ + (cons _hd157521_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps157534_)))) + _xdeps157531_)))) (declare (not safe)) - (_find-deps157495_ _rest157523_ __tmp158294)))) + (_find-deps157492_ _rest157520_ __tmp158291)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e157529_) - (let ((_xdeps157536_ + _$e157526_) + (let ((_xdeps157533_ (let () (declare (not safe)) - (_find-deps157495_ - _imports157527_ - _deps157503_)))) + (_find-deps157492_ + _imports157524_ + _deps157500_)))) (let () (declare (not safe)) (hash-put! - _ht157493_ - _id157526_ - _hd157524_)) - (let ((__tmp158292 + _ht157490_ + _id157523_ + _hd157521_)) + (let ((__tmp158289 (let () (declare (not safe)) - (cons _hd157524_ - _xdeps157536_)))) + (cons _hd157521_ + _xdeps157533_)))) (declare (not safe)) - (_find-deps157495_ - _rest157523_ - __tmp158292))))))) + (_find-deps157492_ + _rest157520_ + __tmp158289))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd157524_ + _hd157521_ 'gx#prelude-context::t)) - (let ((_id157538_ + (let ((_id157535_ (##structure-ref - _hd157524_ + _hd157521_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (hash-get - _ht157493_ - _id157538_)) + _ht157490_ + _id157535_)) (let () (declare (not safe)) - (_find-deps157495_ - _rest157523_ - _deps157503_)) - (let ((_xdeps157540_ - (let ((__tmp158290 + (_find-deps157492_ + _rest157520_ + _deps157500_)) + (let ((_xdeps157537_ + (let ((__tmp158287 (##structure-ref - _hd157524_ + _hd157521_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_find-deps157495_ - __tmp158290 - _deps157503_)))) + (_find-deps157492_ + __tmp158287 + _deps157500_)))) (if (let () (declare (not safe)) (hash-get - _ht157493_ - _id157538_)) + _ht157490_ + _id157535_)) (let () (declare (not safe)) - (_find-deps157495_ - _rest157523_ - _xdeps157540_)) + (_find-deps157492_ + _rest157520_ + _xdeps157537_)) (begin (let () (declare (not safe)) (hash-put! - _ht157493_ - _id157538_ - _hd157524_)) - (let ((__tmp158291 + _ht157490_ + _id157535_ + _hd157521_)) + (let ((__tmp158288 (let () (declare (not safe)) - (cons _hd157524_ + (cons _hd157521_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps157540_)))) + _xdeps157537_)))) (declare (not safe)) - (_find-deps157495_ _rest157523_ __tmp158291))))))) + (_find-deps157492_ _rest157520_ __tmp158288))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd157524_ + _hd157521_ 'gx#module-import::t)) - (if (let ((__tmp158289 + (if (let ((__tmp158286 (##direct-structure-ref - _hd157524_ + _hd157521_ '3 gx#module-import::t '#f))) (declare (not safe)) - (fxzero? __tmp158289)) - (let ((__tmp158287 - (let ((__tmp158288 + (fxzero? __tmp158286)) + (let ((__tmp158284 + (let ((__tmp158285 (##direct-structure-ref - _hd157524_ + _hd157521_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp158288 - _rest157523_)))) + (cons __tmp158285 + _rest157520_)))) (declare (not safe)) - (_find-deps157495_ - __tmp158287 - _deps157503_)) + (_find-deps157492_ + __tmp158284 + _deps157500_)) (let () (declare (not safe)) - (_find-deps157495_ - _rest157523_ - _deps157503_))) + (_find-deps157492_ + _rest157520_ + _deps157500_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd157524_ + _hd157521_ 'gx#module-export::t)) - (let ((__tmp158285 - (let ((__tmp158286 + (let ((__tmp158282 + (let ((__tmp158283 (##direct-structure-ref - _hd157524_ + _hd157521_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp158286 - _rest157523_)))) + (cons __tmp158283 + _rest157520_)))) (declare (not safe)) - (_find-deps157495_ - __tmp158285 - _deps157503_)) + (_find-deps157492_ + __tmp158282 + _deps157500_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd157524_ + _hd157521_ 'gx#import-set::t)) - (if (let ((__tmp158284 + (if (let ((__tmp158281 (##direct-structure-ref - _hd157524_ + _hd157521_ '2 gx#import-set::t '#f))) (declare (not safe)) - (fxzero? __tmp158284)) - (let ((__tmp158282 - (let ((__tmp158283 + (fxzero? __tmp158281)) + (let ((__tmp158279 + (let ((__tmp158280 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _hd157524_ + _hd157521_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp158283 _rest157523_)))) + (cons __tmp158280 _rest157520_)))) (declare (not safe)) - (_find-deps157495_ __tmp158282 _deps157503_)) + (_find-deps157492_ __tmp158279 _deps157500_)) (if (fxpositive? (##direct-structure-ref - _hd157524_ + _hd157521_ '2 gx#import-set::t '#f)) - (let* ((_xdeps157542_ + (let* ((_xdeps157539_ (let () (declare (not safe)) - (_import-set-template157494_ _hd157524_ '0))) - (__tmp158281 + (_import-set-template157491_ _hd157521_ '0))) + (__tmp158278 (let () (declare (not safe)) - (foldl1 cons _rest157523_ _xdeps157542_)))) + (foldl1 cons _rest157520_ _xdeps157539_)))) (declare (not safe)) - (_find-deps157495_ __tmp158281 _deps157503_)) + (_find-deps157492_ __tmp158278 _deps157500_)) (let () (declare (not safe)) - (_find-deps157495_ _rest157523_ _deps157503_)))) + (_find-deps157492_ _rest157520_ _deps157500_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (error '"Unexpected module import" - _hd157524_)))))))))) + _hd157521_)))))))))) (if (let () (declare (not safe)) - (##pair? _rest157504157512_)) - (let ((_hd157509157547_ + (##pair? _rest157501157509_)) + (let ((_hd157506157544_ (let () (declare (not safe)) - (##car _rest157504157512_))) - (_tl157510157549_ + (##car _rest157501157509_))) + (_tl157507157546_ (let () (declare (not safe)) - (##cdr _rest157504157512_)))) - (let* ((_hd157552_ _hd157509157547_) - (_rest157554_ _tl157510157549_)) + (##cdr _rest157501157509_)))) + (let* ((_hd157549_ _hd157506157544_) + (_rest157551_ _tl157507157546_)) (declare (not safe)) - (_K157508157544_ _rest157554_ _hd157552_))) + (_K157505157541_ _rest157551_ _hd157549_))) (let () (declare (not safe)) - (_else157506157520_))))))) - (reverse (let ((__tmp158295 - (let ((__tmp158296 - (let ((_$e157497_ + (_else157503157517_))))))) + (reverse (let ((__tmp158292 + (let ((__tmp158293 + (let ((_$e157494_ (let () (declare (not safe)) (gx#core-context-prelude__% - _ctx157491_)))) - (if _$e157497_ - ((lambda (_pre157500_) - (let ((__tmp158297 + _ctx157488_)))) + (if _$e157494_ + ((lambda (_pre157497_) + (let ((__tmp158294 (##structure-ref - _ctx157491_ + _ctx157488_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre157500_ __tmp158297))) - _$e157497_) + (cons _pre157497_ __tmp158294))) + _$e157494_) (##structure-ref - _ctx157491_ + _ctx157488_ '8 gx#module-context::t '#f))))) (declare (not safe)) - (_find-deps157495_ __tmp158296 '())))) + (_find-deps157492_ __tmp158293 '())))) (declare (not safe)) - (filter gx#expander-context-id __tmp158295)))))) + (filter gx#expander-context-id __tmp158292)))))) (define gxc#find-static-module-file - (lambda (_ctx157422_) - (let* ((_context-id157424_ + (lambda (_ctx157419_) + (let* ((_context-id157421_ (if (let () (declare (not safe)) (##structure-instance-of? - _ctx157422_ + _ctx157419_ 'gx#module-context::t)) - (##structure-ref _ctx157422_ '1 gx#expander-context::t '#f) - (string->symbol _ctx157422_))) - (_scm157426_ + (##structure-ref _ctx157419_ '1 gx#expander-context::t '#f) + (string->symbol _ctx157419_))) + (_scm157423_ (string-append (let () (declare (not safe)) - (gxc#static-module-name _context-id157424_)) + (gxc#static-module-name _context-id157421_)) '".scm")) - (_dirs157428_ (gx#current-expander-module-library-path)) - (_dirs157434_ - (let ((_user-libpath157430_ (getenv '"GERBIL_PATH" '#f))) - (if _user-libpath157430_ - (let ((_user-libpath157432_ - (path-expand '"lib" _user-libpath157430_))) - (if (member _user-libpath157432_ _dirs157428_) - _dirs157428_ + (_dirs157425_ (gx#current-expander-module-library-path)) + (_dirs157431_ + (let ((_user-libpath157427_ (getenv '"GERBIL_PATH" '#f))) + (if _user-libpath157427_ + (let ((_user-libpath157429_ + (path-expand '"lib" _user-libpath157427_))) + (if (member _user-libpath157429_ _dirs157425_) + _dirs157425_ (let () (declare (not safe)) - (cons _user-libpath157432_ _dirs157428_)))) - _dirs157428_))) - (_dirs157443_ - (let ((_$e157436_ (gxc#current-compile-output-dir))) - (if _$e157436_ - ((lambda (_g157438157440_) + (cons _user-libpath157429_ _dirs157425_)))) + _dirs157425_))) + (_dirs157440_ + (let ((_$e157433_ (gxc#current-compile-output-dir))) + (if _$e157433_ + ((lambda (_g157435157437_) (let () (declare (not safe)) - (cons _g157438157440_ _dirs157434_))) - _$e157436_) - _dirs157434_))) - (_dirs157449_ - (map (lambda (_g157444157446_) - (path-expand '"static" _g157444157446_)) - _dirs157443_))) - (let _lp157452_ ((_rest157454_ _dirs157449_)) - (let* ((_rest157455157463_ _rest157454_) - (_else157457157471_ + (cons _g157435157437_ _dirs157431_))) + _$e157433_) + _dirs157431_))) + (_dirs157446_ + (map (lambda (_g157441157443_) + (path-expand '"static" _g157441157443_)) + _dirs157440_))) + (let _lp157449_ ((_rest157451_ _dirs157446_)) + (let* ((_rest157452157460_ _rest157451_) + (_else157454157468_ (lambda () - (let ((__tmp158298 + (let ((__tmp158295 (##structure-ref - _ctx157422_ + _ctx157419_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp158298 - _scm157426_)))) - (_K157459157479_ - (lambda (_rest157474_ _dir157475_) - (let ((_path157477_ - (path-expand _scm157426_ _dir157475_))) - (if (file-exists? _path157477_) - _path157477_ + __tmp158295 + _scm157423_)))) + (_K157456157476_ + (lambda (_rest157471_ _dir157472_) + (let ((_path157474_ + (path-expand _scm157423_ _dir157472_))) + (if (file-exists? _path157474_) + _path157474_ (let () (declare (not safe)) - (_lp157452_ _rest157474_))))))) - (if (let () (declare (not safe)) (##pair? _rest157455157463_)) - (let ((_hd157460157482_ + (_lp157449_ _rest157471_))))))) + (if (let () (declare (not safe)) (##pair? _rest157452157460_)) + (let ((_hd157457157479_ (let () (declare (not safe)) - (##car _rest157455157463_))) - (_tl157461157484_ + (##car _rest157452157460_))) + (_tl157458157481_ (let () (declare (not safe)) - (##cdr _rest157455157463_)))) - (let* ((_dir157487_ _hd157460157482_) - (_rest157489_ _tl157461157484_)) + (##cdr _rest157452157460_)))) + (let* ((_dir157484_ _hd157457157479_) + (_rest157486_ _tl157458157481_)) (declare (not safe)) - (_K157459157479_ _rest157489_ _dir157487_))) - (let () (declare (not safe)) (_else157457157471_)))))))) + (_K157456157476_ _rest157486_ _dir157484_))) + (let () (declare (not safe)) (_else157454157468_)))))))) (define gxc#file-empty? - (lambda (_path157420_) - (let ((__tmp158299 (file-info-size (file-info _path157420_ '#t)))) + (lambda (_path157417_) + (let ((__tmp158296 (file-info-size (file-info _path157417_ '#t)))) (declare (not safe)) - (zero? __tmp158299)))) + (zero? __tmp158296)))) (define gxc#compile-top-module - (lambda (_ctx157409_) - (let ((__tmp158303 + (lambda (_ctx157406_) + (let ((__tmp158300 (lambda () - (let ((__tmp158304 + (let ((__tmp158301 (##structure-ref - _ctx157409_ + _ctx157406_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp158304)) + (gxc#verbose '"compile " __tmp158301)) (if (gxc#current-compile-optimize) - (let ((__tmp158305 + (let ((__tmp158302 (lambda () (let () (declare (not safe)) - (gxc#optimize! _ctx157409_))))) + (gxc#optimize! _ctx157406_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158305)) + (with-lock gxc#+driver-mutex+ __tmp158302)) '#!void) (let () (declare (not safe)) - (gxc#collect-bindings _ctx157409_)) - (if (let ((__tmp158308 + (gxc#collect-bindings _ctx157406_)) + (if (let ((__tmp158305 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx157409_)))) + (gxc#lift-nested-modules _ctx157406_)))) (declare (not safe)) - (null? __tmp158308)) - (let* ((_thr1157414_ - (let ((__tmp158306 + (null? __tmp158305)) + (let* ((_thr1157411_ + (let ((__tmp158303 (lambda () (let () (declare (not safe)) (gxc#compile-runtime-code - _ctx157409_))))) + _ctx157406_))))) (declare (not safe)) - (spawn __tmp158306))) - (_thr2157417_ - (let ((__tmp158307 + (spawn __tmp158303))) + (_thr2157414_ + (let ((__tmp158304 (lambda () (let () (declare (not safe)) - (gxc#compile-meta-code _ctx157409_))))) + (gxc#compile-meta-code _ctx157406_))))) (declare (not safe)) - (spawn __tmp158307)))) - (let () (declare (not safe)) (gxc#join! _thr1157414_)) - (let () (declare (not safe)) (gxc#join! _thr2157417_))) + (spawn __tmp158304)))) + (let () (declare (not safe)) (gxc#join! _thr1157411_)) + (let () (declare (not safe)) (gxc#join! _thr2157414_))) (begin (let () (declare (not safe)) - (gxc#compile-runtime-code _ctx157409_)) + (gxc#compile-runtime-code _ctx157406_)) (let () (declare (not safe)) - (gxc#compile-meta-code _ctx157409_)))) + (gxc#compile-meta-code _ctx157406_)))) (if (and (gxc#current-compile-optimize) (gxc#current-compile-generate-ssxi)) (let () (declare (not safe)) - (gxc#compile-ssxi-code _ctx157409_)) + (gxc#compile-ssxi-code _ctx157406_)) '#!void))) - (__tmp158302 - (let ((__obj158107 + (__tmp158299 + (let ((__obj158104 (let () (declare (not safe)) (##structure gxc#symbol-table::t '#f '#f)))) - (gxc#symbol-table:::init! __obj158107) - __obj158107)) - (__tmp158301 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp158300 (let () (declare (not safe)) (make-hash-table)))) + (gxc#symbol-table:::init! __obj158104) + __obj158104)) + (__tmp158298 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp158297 (let () (declare (not safe)) (make-hash-table)))) (declare (not safe)) (call-with-parameters - __tmp158303 + __tmp158300 gx#current-expander-context - _ctx157409_ + _ctx157406_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - __tmp158302 + __tmp158299 gxc#current-compile-runtime-sections - __tmp158301 + __tmp158298 gxc#current-compile-runtime-names - __tmp158300)))) + __tmp158297)))) (define gxc#collect-bindings - (lambda (_ctx157407_) - (let ((__tmp158309 - (##structure-ref _ctx157407_ '11 gx#module-context::t '#f))) + (lambda (_ctx157404_) + (let ((__tmp158306 + (##structure-ref _ctx157404_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-collect-bindings __tmp158309)))) + (gxc#apply-collect-bindings __tmp158306)))) (define gxc#compile-runtime-code - (lambda (_ctx157353_) - (letrec ((_compile1157355_ - (lambda (_ctx157396_) - (let* ((_code157398_ + (lambda (_ctx157350_) + (letrec ((_compile1157352_ + (lambda (_ctx157393_) + (let* ((_code157395_ (##structure-ref - _ctx157396_ + _ctx157393_ '11 gx#module-context::t '#f)) - (_rt157402_ + (_rt157399_ (if (let () (declare (not safe)) - (gxc#apply-find-runtime-code _code157398_)) - (let ((_idstr157400_ - (let ((__tmp158310 + (gxc#apply-find-runtime-code _code157395_)) + (let ((_idstr157397_ + (let ((__tmp158307 (##structure-ref - _ctx157396_ + _ctx157393_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp158310)))) - (string-append _idstr157400_ '"__0")) + __tmp158307)))) + (string-append _idstr157397_ '"__0")) '#f))) - (if _rt157402_ + (if _rt157399_ (begin - (let ((__tmp158311 + (let ((__tmp158308 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (hash-put! __tmp158311 _ctx157396_ _rt157402_)) + (hash-put! __tmp158308 _ctx157393_ _rt157399_)) (let () (declare (not safe)) - (_generate-runtime-code157357_ - _ctx157396_ - _code157398_))) - (let ((_path157405_ + (_generate-runtime-code157354_ + _ctx157393_ + _code157395_))) + (let ((_path157402_ (let () (declare (not safe)) (gxc#compile-static-output-file - _ctx157396_)))) + _ctx157393_)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path157405_ + _path157402_ void))) (let () (declare (not safe)) - (_generate-loader-code157358_ - _ctx157396_ - _code157398_ - _rt157402_))))) - (_context-timestamp157356_ - (lambda (_ctx157394_) + (_generate-loader-code157355_ + _ctx157393_ + _code157395_ + _rt157399_))))) + (_context-timestamp157353_ + (lambda (_ctx157391_) (string->symbol (string-append (symbol->string (##structure-ref - _ctx157394_ + _ctx157391_ '1 gx#expander-context::t '#f)) '"::timestamp")))) - (_generate-runtime-code157357_ - (lambda (_ctx157376_ _code157377_) - (let* ((_lifts157379_ + (_generate-runtime-code157354_ + (lambda (_ctx157373_ _code157374_) + (let* ((_lifts157376_ (let () (declare (not safe)) (box '()))) - (_runtime-code157382_ - (let ((__tmp158314 + (_runtime-code157379_ + (let ((__tmp158311 (lambda () (let () (declare (not safe)) (gxc#apply-generate-runtime - _code157377_)))) - (__tmp158313 + _code157374_)))) + (__tmp158310 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp158312 + (__tmp158309 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp158314 + __tmp158311 gx#current-expander-context - _ctx157376_ + _ctx157373_ gx#current-expander-phi '0 gxc#current-compile-lift - _lifts157379_ + _lifts157376_ gxc#current-compile-marks - __tmp158313 + __tmp158310 gxc#current-compile-identifiers - __tmp158312))) - (_runtime-code157384_ - (if (let ((__tmp158318 (unbox _lifts157379_))) + __tmp158309))) + (_runtime-code157381_ + (if (let ((__tmp158315 (unbox _lifts157376_))) (declare (not safe)) - (null? __tmp158318)) - _runtime-code157382_ - (let ((__tmp158315 - (let ((__tmp158317 + (null? __tmp158315)) + _runtime-code157379_ + (let ((__tmp158312 + (let ((__tmp158314 (let () (declare (not safe)) - (cons _runtime-code157382_ + (cons _runtime-code157379_ '()))) - (__tmp158316 - (reverse (unbox _lifts157379_)))) + (__tmp158313 + (reverse (unbox _lifts157376_)))) (declare (not safe)) (foldr1 cons - __tmp158317 - __tmp158316)))) + __tmp158314 + __tmp158313)))) (declare (not safe)) - (cons 'begin __tmp158315)))) - (_runtime-code157386_ - (let ((__tmp158319 - (let ((__tmp158321 - (let ((__tmp158322 - (let ((__tmp158325 + (cons 'begin __tmp158312)))) + (_runtime-code157383_ + (let ((__tmp158316 + (let ((__tmp158318 + (let ((__tmp158319 + (let ((__tmp158322 (let () (declare (not safe)) - (_context-timestamp157356_ - _ctx157376_))) - (__tmp158323 - (let ((__tmp158324 + (_context-timestamp157353_ + _ctx157373_))) + (__tmp158320 + (let ((__tmp158321 (gxc#current-compile-timestamp))) (declare (not safe)) - (cons __tmp158324 + (cons __tmp158321 '())))) (declare (not safe)) - (cons __tmp158325 - __tmp158323)))) + (cons __tmp158322 + __tmp158320)))) (declare (not safe)) - (cons 'define __tmp158322))) - (__tmp158320 + (cons 'define __tmp158319))) + (__tmp158317 (let () (declare (not safe)) - (cons _runtime-code157384_ '())))) + (cons _runtime-code157381_ '())))) (declare (not safe)) - (cons __tmp158321 __tmp158320)))) + (cons __tmp158318 __tmp158317)))) (declare (not safe)) - (cons 'begin __tmp158319))) - (_scm0157388_ + (cons 'begin __tmp158316))) + (_scm0157385_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx157376_ + _ctx157373_ '0 '".scm")))) - (let ((_scms157391_ + (let ((_scms157388_ (let () (declare (not safe)) - (gxc#compile-static-output-file _ctx157376_)))) - (let ((__tmp158326 + (gxc#compile-static-output-file _ctx157373_)))) + (let ((__tmp158323 (lambda () (let () (declare (not safe)) (gxc#compile-scm-file__0 - _scm0157388_ - _runtime-code157386_))))) + _scm0157385_ + _runtime-code157383_))))) (declare (not safe)) (call-with-parameters - __tmp158326 + __tmp158323 gxc#current-compile-keep-scm '#t)) - (if (file-exists? _scms157391_) - (delete-file _scms157391_) + (if (file-exists? _scms157388_) + (delete-file _scms157388_) '#!void) (let () (declare (not safe)) (gxc#verbose '"copy static module " - _scm0157388_ + _scm0157385_ '" => " - _scms157391_)) - (copy-file _scm0157388_ _scms157391_) + _scms157388_)) + (copy-file _scm0157385_ _scms157388_) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _scm0157388_)))))) - (_generate-loader-code157358_ - (lambda (_ctx157365_ _code157366_ _rt157367_) - (let* ((_loader-code157370_ - (let ((__tmp158327 + (delete-file _scm0157385_)))))) + (_generate-loader-code157355_ + (lambda (_ctx157362_ _code157363_ _rt157364_) + (let* ((_loader-code157367_ + (let ((__tmp158324 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _code157366_))))) + _code157363_))))) (declare (not safe)) (call-with-parameters - __tmp158327 + __tmp158324 gx#current-expander-context - _ctx157365_))) - (_loader-code157372_ - (if _rt157367_ - (let ((__tmp158328 - (let ((__tmp158329 - (let ((__tmp158330 - (let ((__tmp158331 + _ctx157362_))) + (_loader-code157369_ + (if _rt157364_ + (let ((__tmp158325 + (let ((__tmp158326 + (let ((__tmp158327 + (let ((__tmp158328 (let () (declare (not safe)) - (cons _rt157367_ + (cons _rt157364_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons 'load-module __tmp158331)))) + (cons 'load-module __tmp158328)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158330 '())))) + (cons __tmp158327 '())))) (declare (not safe)) - (cons _loader-code157370_ - __tmp158329)))) + (cons _loader-code157367_ + __tmp158326)))) (declare (not safe)) - (cons 'begin __tmp158328)) - _loader-code157370_))) - (let ((__tmp158332 + (cons 'begin __tmp158325)) + _loader-code157367_))) + (let ((__tmp158329 (lambda () - (let ((__tmp158333 + (let ((__tmp158330 (let () (declare (not safe)) (gxc#compile-output-file - _ctx157365_ + _ctx157362_ 'rt '".scm")))) (declare (not safe)) (gxc#compile-scm-file__0 - __tmp158333 - _loader-code157372_))))) + __tmp158330 + _loader-code157369_))))) (declare (not safe)) (call-with-parameters - __tmp158332 + __tmp158329 gxc#current-compile-gsc-options '#f)))))) - (let ((_all-modules157360_ - (let ((__tmp158334 + (let ((_all-modules157357_ + (let ((__tmp158331 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx157353_)))) + (gxc#lift-nested-modules _ctx157350_)))) (declare (not safe)) - (cons _ctx157353_ __tmp158334)))) + (cons _ctx157350_ __tmp158331)))) (for-each - (lambda (_ctx157362_) - (let ((__tmp158335 + (lambda (_ctx157359_) + (let ((__tmp158332 (lambda () (let () (declare (not safe)) - (_compile1157355_ _ctx157362_))))) + (_compile1157352_ _ctx157359_))))) (declare (not safe)) (call-with-parameters - __tmp158335 + __tmp158332 gxc#current-compile-decls '()))) - _all-modules157360_))))) + _all-modules157357_))))) (define gxc#compile-meta-code - (lambda (_ctx157250_) - (letrec ((_compile-ssi157252_ - (lambda (_code157323_) - (let* ((_path157325_ + (lambda (_ctx157247_) + (letrec ((_compile-ssi157249_ + (lambda (_code157320_) + (let* ((_path157322_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx157250_ + _ctx157247_ '#f '".ssi"))) - (_prelude157336_ - (let* ((_super157327_ + (_prelude157333_ + (let* ((_super157324_ (##structure-ref - _ctx157250_ + _ctx157247_ '3 gx#phi-context::t '#f)) - (_$e157329_ + (_$e157326_ (##structure-ref - _super157327_ + _super157324_ '1 gx#expander-context::t '#f))) - (if _$e157329_ - ((lambda (_g157331157333_) + (if _$e157326_ + ((lambda (_g157328157330_) (let () (declare (not safe)) - (make-symbol__1 '":" _g157331157333_))) - _$e157329_) + (make-symbol__1 '":" _g157328157330_))) + _$e157326_) ':<root>))) - (_ns157338_ + (_ns157335_ (##structure-ref - _ctx157250_ + _ctx157247_ '6 gx#module-context::t '#f)) - (_idstr157340_ + (_idstr157337_ (symbol->string (##structure-ref - _ctx157250_ + _ctx157247_ '1 gx#expander-context::t '#f))) - (_pkg157347_ - (let ((_$e157342_ + (_pkg157344_ + (let ((_$e157339_ (let () (declare (not safe)) - (string-rindex__0 _idstr157340_ '#\/)))) - (if _$e157342_ - ((lambda (_x157345_) + (string-rindex__0 _idstr157337_ '#\/)))) + (if _$e157339_ + ((lambda (_x157342_) (string->symbol - (substring _idstr157340_ '0 _x157345_))) - _$e157342_) + (substring _idstr157337_ '0 _x157342_))) + _$e157339_) '#f))) - (_rt157349_ - (let ((__tmp158336 + (_rt157346_ + (let ((__tmp158333 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (hash-get __tmp158336 _ctx157250_)))) + (hash-get __tmp158333 _ctx157247_)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _path157325_)) - (let ((__tmp158337 + (gxc#verbose '"compile " _path157322_)) + (let ((__tmp158334 (lambda () (let () (declare (not safe)) - (displayln '"prelude:" '" " _prelude157336_)) - (if _pkg157347_ + (displayln '"prelude:" '" " _prelude157333_)) + (if _pkg157344_ (let () (declare (not safe)) - (displayln '"package:" '" " _pkg157347_)) + (displayln '"package:" '" " _pkg157344_)) '#!void) (let () (declare (not safe)) - (displayln '"namespace:" '" " _ns157338_)) + (displayln '"namespace:" '" " _ns157335_)) (newline) - (pretty-print _code157323_) - (if _rt157349_ + (pretty-print _code157320_) + (if _rt157346_ (pretty-print - (let ((__tmp158338 - (let ((__tmp158342 - (let ((__tmp158343 + (let ((__tmp158335 + (let ((__tmp158339 + (let ((__tmp158340 (let () (declare (not safe)) (cons 'load-module @@ -2455,1098 +2455,1098 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp158343))) - (__tmp158339 - (let ((__tmp158340 - (let ((__tmp158341 + (cons '%#ref __tmp158340))) + (__tmp158336 + (let ((__tmp158337 + (let ((__tmp158338 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _rt157349_ '())))) + (cons _rt157346_ '())))) (declare (not safe)) - (cons '%#quote __tmp158341)))) + (cons '%#quote __tmp158338)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158340 '())))) + (cons __tmp158337 '())))) (declare (not safe)) - (cons __tmp158342 __tmp158339)))) + (cons __tmp158339 __tmp158336)))) (declare (not safe)) - (cons '%#call __tmp158338))) + (cons '%#call __tmp158335))) '#!void)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path157325_ - __tmp158337))))) - (_compile-phi157253_ - (lambda (_part157263_) - (let* ((_part157264157277_ _part157263_) - (_E157266157281_ + _path157322_ + __tmp158334))))) + (_compile-phi157250_ + (lambda (_part157260_) + (let* ((_part157261157274_ _part157260_) + (_E157263157278_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _part157264157277_)))) - (_K157267157292_ - (lambda (_code157284_ - _n157285_ - _phi157286_ - _phi-ctx157287_) - (let* ((_code157290_ - (let ((__tmp158344 + _part157261157274_)))) + (_K157264157289_ + (lambda (_code157281_ + _n157282_ + _phi157283_ + _phi-ctx157284_) + (let* ((_code157287_ + (let ((__tmp158341 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-phi - _code157284_))))) + _code157281_))))) (declare (not safe)) (call-with-parameters - __tmp158344 + __tmp158341 gx#current-expander-context - _phi-ctx157287_ + _phi-ctx157284_ gx#current-expander-phi - _phi157286_))) - (__tmp158345 + _phi157283_))) + (__tmp158342 (let () (declare (not safe)) (gxc#compile-output-file - _ctx157250_ - _n157285_ + _ctx157247_ + _n157282_ '".scm")))) (declare (not safe)) (gxc#compile-scm-file__% - __tmp158345 - _code157290_ + __tmp158342 + _code157287_ '#t))))) (if (let () (declare (not safe)) - (##pair? _part157264157277_)) - (let ((_hd157268157295_ + (##pair? _part157261157274_)) + (let ((_hd157265157292_ (let () (declare (not safe)) - (##car _part157264157277_))) - (_tl157269157297_ + (##car _part157261157274_))) + (_tl157266157294_ (let () (declare (not safe)) - (##cdr _part157264157277_)))) - (let ((_phi-ctx157300_ _hd157268157295_)) + (##cdr _part157261157274_)))) + (let ((_phi-ctx157297_ _hd157265157292_)) (if (let () (declare (not safe)) - (##pair? _tl157269157297_)) - (let ((_hd157270157302_ + (##pair? _tl157266157294_)) + (let ((_hd157267157299_ (let () (declare (not safe)) - (##car _tl157269157297_))) - (_tl157271157304_ + (##car _tl157266157294_))) + (_tl157268157301_ (let () (declare (not safe)) - (##cdr _tl157269157297_)))) - (let ((_phi157307_ _hd157270157302_)) + (##cdr _tl157266157294_)))) + (let ((_phi157304_ _hd157267157299_)) (if (let () (declare (not safe)) - (##pair? _tl157271157304_)) - (let ((_hd157272157309_ + (##pair? _tl157268157301_)) + (let ((_hd157269157306_ (let () (declare (not safe)) - (##car _tl157271157304_))) - (_tl157273157311_ + (##car _tl157268157301_))) + (_tl157270157308_ (let () (declare (not safe)) - (##cdr _tl157271157304_)))) - (let ((_n157314_ _hd157272157309_)) + (##cdr _tl157268157301_)))) + (let ((_n157311_ _hd157269157306_)) (if (let () (declare (not safe)) - (##pair? _tl157273157311_)) - (let ((_hd157274157316_ + (##pair? _tl157270157308_)) + (let ((_hd157271157313_ (let () (declare (not safe)) - (##car _tl157273157311_))) - (_tl157275157318_ + (##car _tl157270157308_))) + (_tl157272157315_ (let () (declare (not safe)) - (##cdr _tl157273157311_)))) - (let ((_code157321_ - _hd157274157316_)) + (##cdr _tl157270157308_)))) + (let ((_code157318_ + _hd157271157313_)) (if (let () (declare (not safe)) - (##null? _tl157275157318_)) + (##null? _tl157272157315_)) (let () (declare (not safe)) - (_K157267157292_ - _code157321_ - _n157314_ - _phi157307_ - _phi-ctx157300_)) + (_K157264157289_ + _code157318_ + _n157311_ + _phi157304_ + _phi-ctx157297_)) (let () (declare (not safe)) - (_E157266157281_))))) + (_E157263157278_))))) (let () (declare (not safe)) - (_E157266157281_))))) + (_E157263157278_))))) (let () (declare (not safe)) - (_E157266157281_))))) + (_E157263157278_))))) (let () (declare (not safe)) - (_E157266157281_))))) - (let () (declare (not safe)) (_E157266157281_))))))) - (let ((_g158346_ + (_E157263157278_))))) + (let () (declare (not safe)) (_E157263157278_))))))) + (let ((_g158343_ (let () (declare (not safe)) - (gxc#generate-meta-code _ctx157250_)))) + (gxc#generate-meta-code _ctx157247_)))) (begin - (let ((_g158347_ + (let ((_g158344_ (let () (declare (not safe)) - (if (##values? _g158346_) - (##vector-length _g158346_) + (if (##values? _g158343_) + (##vector-length _g158343_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g158347_ 2))) - (error "Context expects 2 values" _g158347_))) - (let ((_ssi-code157255_ - (let () (declare (not safe)) (##vector-ref _g158346_ 0))) - (_phi-code157256_ - (let () (declare (not safe)) (##vector-ref _g158346_ 1)))) + (if (not (let () (declare (not safe)) (##fx= _g158344_ 2))) + (error "Context expects 2 values" _g158344_))) + (let ((_ssi-code157252_ + (let () (declare (not safe)) (##vector-ref _g158343_ 0))) + (_phi-code157253_ + (let () (declare (not safe)) (##vector-ref _g158343_ 1)))) (begin (let () (declare (not safe)) - (_compile-ssi157252_ _ssi-code157255_)) - (let ((_threads157261_ - (map (lambda (_code157258_) - (let ((__tmp158348 + (_compile-ssi157249_ _ssi-code157252_)) + (let ((_threads157258_ + (map (lambda (_code157255_) + (let ((__tmp158345 (lambda () (let () (declare (not safe)) - (_compile-phi157253_ - _code157258_))))) + (_compile-phi157250_ + _code157255_))))) (declare (not safe)) - (spawn __tmp158348))) - _phi-code157256_))) - (for-each gxc#join! _threads157261_))))))))) + (spawn __tmp158345))) + _phi-code157253_))) + (for-each gxc#join! _threads157258_))))))))) (define gxc#compile-ssxi-code - (lambda (_ctx157233_) - (let* ((_path157235_ + (lambda (_ctx157230_) + (let* ((_path157232_ (let () (declare (not safe)) - (gxc#compile-output-file _ctx157233_ '#f '".ssxi.ss"))) - (_code157237_ - (let ((__tmp158349 + (gxc#compile-output-file _ctx157230_ '#f '".ssxi.ss"))) + (_code157234_ + (let ((__tmp158346 (##structure-ref - _ctx157233_ + _ctx157230_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp158349))) - (_idstr157239_ + (gxc#apply-generate-ssxi __tmp158346))) + (_idstr157236_ (symbol->string - (##structure-ref _ctx157233_ '1 gx#expander-context::t '#f))) - (_pkg157246_ - (let ((_$e157241_ + (##structure-ref _ctx157230_ '1 gx#expander-context::t '#f))) + (_pkg157243_ + (let ((_$e157238_ (let () (declare (not safe)) - (string-rindex__0 _idstr157239_ '#\/)))) - (if _$e157241_ - ((lambda (_x157244_) + (string-rindex__0 _idstr157236_ '#\/)))) + (if _$e157238_ + ((lambda (_x157241_) (string->symbol - (substring _idstr157239_ '0 _x157244_))) - _$e157241_) + (substring _idstr157236_ '0 _x157241_))) + _$e157238_) '#f)))) - (let () (declare (not safe)) (gxc#verbose '"compile " _path157235_)) - (let ((__tmp158350 + (let () (declare (not safe)) (gxc#verbose '"compile " _path157232_)) + (let ((__tmp158347 (lambda () (let () (declare (not safe)) (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _pkg157246_ + (if _pkg157243_ (let () (declare (not safe)) - (displayln '"package: " _pkg157246_)) + (displayln '"package: " _pkg157243_)) '#!void) (newline) - (pretty-print _code157237_)))) + (pretty-print _code157234_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path157235_ __tmp158350))))) + (gxc#with-output-to-scheme-file _path157232_ __tmp158347))))) (define gxc#generate-meta-code - (lambda (_ctx157226_) - (let* ((_state157228_ - (let ((__obj158108 + (lambda (_ctx157223_) + (let* ((_state157225_ + (let ((__obj158105 (let () (declare (not safe)) (##structure gxc#meta-state::t '#f '#f '#f '#f)))) - (gxc#meta-state:::init! __obj158108 _ctx157226_) - __obj158108)) - (_ssi-code157230_ - (let ((__tmp158351 + (gxc#meta-state:::init! __obj158105 _ctx157223_) + __obj158105)) + (_ssi-code157227_ + (let ((__tmp158348 (##structure-ref - _ctx157226_ + _ctx157223_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-meta __tmp158351 _state157228_)))) - (values _ssi-code157230_ + (gxc#apply-generate-meta __tmp158348 _state157225_)))) + (values _ssi-code157227_ (let () (declare (not safe)) - (gxc#meta-state-end! _state157228_)))))) + (gxc#meta-state-end! _state157225_)))))) (define gxc#generate-runtime-phi - (lambda (_stx157219_) - (let ((_lifts157221_ (let () (declare (not safe)) (box '())))) - (let ((__tmp158354 + (lambda (_stx157216_) + (let ((_lifts157218_ (let () (declare (not safe)) (box '())))) + (let ((__tmp158351 (lambda () - (let ((_code157224_ + (let ((_code157221_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-phi _stx157219_)))) - (if (let ((__tmp158358 (unbox _lifts157221_))) + (gxc#apply-generate-runtime-phi _stx157216_)))) + (if (let ((__tmp158355 (unbox _lifts157218_))) (declare (not safe)) - (null? __tmp158358)) - _code157224_ - (let ((__tmp158355 - (let ((__tmp158357 + (null? __tmp158355)) + _code157221_ + (let ((__tmp158352 + (let ((__tmp158354 (let () (declare (not safe)) - (cons _code157224_ '()))) - (__tmp158356 - (reverse (unbox _lifts157221_)))) + (cons _code157221_ '()))) + (__tmp158353 + (reverse (unbox _lifts157218_)))) (declare (not safe)) - (foldr1 cons __tmp158357 __tmp158356)))) + (foldr1 cons __tmp158354 __tmp158353)))) (declare (not safe)) - (cons 'begin __tmp158355)))))) - (__tmp158353 + (cons 'begin __tmp158352)))))) + (__tmp158350 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp158352 + (__tmp158349 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp158354 + __tmp158351 gxc#current-compile-lift - _lifts157221_ + _lifts157218_ gxc#current-compile-marks - __tmp158353 + __tmp158350 gxc#current-compile-identifiers - __tmp158352))))) + __tmp158349))))) (define gxc#lift-nested-modules - (lambda (_ctx157215_) - (let ((_modules157217_ (let () (declare (not safe)) (box '())))) - (let ((__tmp158359 - (##structure-ref _ctx157215_ '11 gx#module-context::t '#f))) + (lambda (_ctx157212_) + (let ((_modules157214_ (let () (declare (not safe)) (box '())))) + (let ((__tmp158356 + (##structure-ref _ctx157212_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-lift-modules __tmp158359 _modules157217_)) - (reverse (unbox _modules157217_))))) + (gxc#apply-lift-modules __tmp158356 _modules157214_)) + (reverse (unbox _modules157214_))))) (define gxc#compile-scm-file__% - (lambda (_path157198_ _code157199_ _phi?157200_) - (let () (declare (not safe)) (gxc#verbose '"compile " _path157198_)) - (let ((__tmp158360 + (lambda (_path157195_ _code157196_ _phi?157197_) + (let () (declare (not safe)) (gxc#verbose '"compile " _path157195_)) + (let ((__tmp158357 (lambda () (pretty-print - (let ((__tmp158361 - (let ((__tmp158368 + (let ((__tmp158358 + (let ((__tmp158365 (let () (declare (not safe)) (cons 'block '()))) - (__tmp158362 - (let ((__tmp158367 + (__tmp158359 + (let ((__tmp158364 (let () (declare (not safe)) (cons 'standard-bindings '()))) - (__tmp158363 - (let ((__tmp158366 + (__tmp158360 + (let ((__tmp158363 (let () (declare (not safe)) (cons 'extended-bindings '()))) - (__tmp158364 - (let ((__tmp158365 - (if _phi?157200_ + (__tmp158361 + (let ((__tmp158362 + (if _phi?157197_ '((inlining-limit 200)) '()))) (declare (not safe)) (foldr1 cons '() - __tmp158365)))) + __tmp158362)))) (declare (not safe)) - (cons __tmp158366 __tmp158364)))) + (cons __tmp158363 __tmp158361)))) (declare (not safe)) - (cons __tmp158367 __tmp158363)))) + (cons __tmp158364 __tmp158360)))) (declare (not safe)) - (cons __tmp158368 __tmp158362)))) + (cons __tmp158365 __tmp158359)))) (declare (not safe)) - (cons 'declare __tmp158361))) - (pretty-print _code157199_)))) + (cons 'declare __tmp158358))) + (pretty-print _code157196_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path157198_ __tmp158360)) + (gxc#with-output-to-scheme-file _path157195_ __tmp158357)) (if (gxc#current-compile-invoke-gsc) (let () (declare (not safe)) - (gxc#gsc-compile-file _path157198_ _phi?157200_)) + (gxc#gsc-compile-file _path157195_ _phi?157197_)) '#!void) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _path157198_)))) + (delete-file _path157195_)))) (define gxc#compile-scm-file__0 - (lambda (_path157206_ _code157207_) - (let ((_phi?157209_ '#f)) + (lambda (_path157203_ _code157204_) + (let ((_phi?157206_ '#f)) (declare (not safe)) - (gxc#compile-scm-file__% _path157206_ _code157207_ _phi?157209_)))) + (gxc#compile-scm-file__% _path157203_ _code157204_ _phi?157206_)))) (define gxc#compile-scm-file - (lambda _g158370_ - (let ((_g158369_ (let () (declare (not safe)) (##length _g158370_)))) - (cond ((let () (declare (not safe)) (##fx= _g158369_ 2)) - (apply (lambda (_path157206_ _code157207_) + (lambda _g158367_ + (let ((_g158366_ (let () (declare (not safe)) (##length _g158367_)))) + (cond ((let () (declare (not safe)) (##fx= _g158366_ 2)) + (apply (lambda (_path157203_ _code157204_) (let () (declare (not safe)) (gxc#compile-scm-file__0 - _path157206_ - _code157207_))) - _g158370_)) - ((let () (declare (not safe)) (##fx= _g158369_ 3)) - (apply (lambda (_path157211_ _code157212_ _phi?157213_) + _path157203_ + _code157204_))) + _g158367_)) + ((let () (declare (not safe)) (##fx= _g158366_ 3)) + (apply (lambda (_path157208_ _code157209_ _phi?157210_) (let () (declare (not safe)) (gxc#compile-scm-file__% - _path157211_ - _code157212_ - _phi?157213_))) - _g158370_)) + _path157208_ + _code157209_ + _phi?157210_))) + _g158367_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g158370_)))))) + _g158367_)))))) (define gxc#gsc-link-options__% - (lambda (_phi?157099_) - (let _lp157101_ ((_rest157103_ (gxc#current-compile-gsc-options)) - (_opts157104_ '())) - (let* ((_rest157105157125_ _rest157103_) - (_else157109157133_ + (lambda (_phi?157096_) + (let _lp157098_ ((_rest157100_ (gxc#current-compile-gsc-options)) + (_opts157101_ '())) + (let* ((_rest157102157122_ _rest157100_) + (_else157106157130_ (lambda () - (if (and (let () (declare (not safe)) (not _phi?157099_)) + (if (and (let () (declare (not safe)) (not _phi?157096_)) (gxc#current-compile-debug)) - (let ((__tmp158371 - (let ((__tmp158372 (reverse _opts157104_))) + (let ((__tmp158368 + (let ((__tmp158369 (reverse _opts157101_))) (declare (not safe)) - (cons '"-track-scheme" __tmp158372)))) + (cons '"-track-scheme" __tmp158369)))) (declare (not safe)) - (cons '"-debug-source" __tmp158371)) - (reverse _opts157104_))))) - (let ((_K157119157176_ - (lambda (_rest157174_) + (cons '"-debug-source" __tmp158368)) + (reverse _opts157101_))))) + (let ((_K157116157173_ + (lambda (_rest157171_) (let () (declare (not safe)) - (_lp157101_ _rest157174_ _opts157104_)))) - (_K157114157158_ - (lambda (_rest157156_) + (_lp157098_ _rest157171_ _opts157101_)))) + (_K157111157155_ + (lambda (_rest157153_) (let () (declare (not safe)) - (_lp157101_ _rest157156_ _opts157104_)))) - (_K157111157140_ - (lambda (_rest157137_ _opt157138_) - (let ((__tmp158373 + (_lp157098_ _rest157153_ _opts157101_)))) + (_K157108157137_ + (lambda (_rest157134_ _opt157135_) + (let ((__tmp158370 (let () (declare (not safe)) - (cons _opt157138_ _opts157104_)))) + (cons _opt157135_ _opts157101_)))) (declare (not safe)) - (_lp157101_ _rest157137_ __tmp158373))))) - (if (let () (declare (not safe)) (##pair? _rest157105157125_)) - (let ((_tl157121157181_ + (_lp157098_ _rest157134_ __tmp158370))))) + (if (let () (declare (not safe)) (##pair? _rest157102157122_)) + (let ((_tl157118157178_ (let () (declare (not safe)) - (##cdr _rest157105157125_))) - (_hd157120157179_ + (##cdr _rest157102157122_))) + (_hd157117157176_ (let () (declare (not safe)) - (##car _rest157105157125_)))) + (##car _rest157102157122_)))) (if (let () (declare (not safe)) - (equal? _hd157120157179_ '"-cc-options")) + (equal? _hd157117157176_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl157121157181_)) - (let* ((_tl157123157184_ + (##pair? _tl157118157178_)) + (let* ((_tl157120157181_ (let () (declare (not safe)) - (##cdr _tl157121157181_))) - (_rest157187_ _tl157123157184_)) + (##cdr _tl157118157178_))) + (_rest157184_ _tl157120157181_)) (declare (not safe)) - (_K157119157176_ _rest157187_)) - (let ((_opt157148_ _hd157120157179_) - (_rest157150_ _tl157121157181_)) + (_K157116157173_ _rest157184_)) + (let ((_opt157145_ _hd157117157176_) + (_rest157147_ _tl157118157178_)) (let () (declare (not safe)) - (_K157111157140_ _rest157150_ _opt157148_)))) + (_K157108157137_ _rest157147_ _opt157145_)))) (if (let () (declare (not safe)) - (equal? _hd157120157179_ '"-ld-options")) + (equal? _hd157117157176_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl157121157181_)) - (let* ((_tl157118157166_ + (##pair? _tl157118157178_)) + (let* ((_tl157115157163_ (let () (declare (not safe)) - (##cdr _tl157121157181_))) - (_rest157169_ _tl157118157166_)) + (##cdr _tl157118157178_))) + (_rest157166_ _tl157115157163_)) (declare (not safe)) - (_K157114157158_ _rest157169_)) - (let ((_opt157148_ _hd157120157179_) - (_rest157150_ _tl157121157181_)) + (_K157111157155_ _rest157166_)) + (let ((_opt157145_ _hd157117157176_) + (_rest157147_ _tl157118157178_)) (let () (declare (not safe)) - (_K157111157140_ - _rest157150_ - _opt157148_)))) - (let ((_opt157148_ _hd157120157179_) - (_rest157150_ _tl157121157181_)) + (_K157108157137_ + _rest157147_ + _opt157145_)))) + (let ((_opt157145_ _hd157117157176_) + (_rest157147_ _tl157118157178_)) (let () (declare (not safe)) - (_K157111157140_ _rest157150_ _opt157148_)))))) - (let () (declare (not safe)) (_else157109157133_)))))))) + (_K157108157137_ _rest157147_ _opt157145_)))))) + (let () (declare (not safe)) (_else157106157130_)))))))) (define gxc#gsc-link-options__0 (lambda () - (let ((_phi?157193_ '#f)) + (let ((_phi?157190_ '#f)) (declare (not safe)) - (gxc#gsc-link-options__% _phi?157193_)))) + (gxc#gsc-link-options__% _phi?157190_)))) (define gxc#gsc-link-options - (lambda _g158375_ - (let ((_g158374_ (let () (declare (not safe)) (##length _g158375_)))) - (cond ((let () (declare (not safe)) (##fx= _g158374_ 0)) + (lambda _g158372_ + (let ((_g158371_ (let () (declare (not safe)) (##length _g158372_)))) + (cond ((let () (declare (not safe)) (##fx= _g158371_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-link-options__0))) - _g158375_)) - ((let () (declare (not safe)) (##fx= _g158374_ 1)) - (apply (lambda (_phi?157195_) + _g158372_)) + ((let () (declare (not safe)) (##fx= _g158371_ 1)) + (apply (lambda (_phi?157192_) (let () (declare (not safe)) - (gxc#gsc-link-options__% _phi?157195_))) - _g158375_)) + (gxc#gsc-link-options__% _phi?157192_))) + _g158372_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-link-options - _g158375_)))))) + _g158372_)))))) (define gxc#gsc-cc-options__% - (lambda (_phi?157000_) - (let _lp157002_ ((_rest157004_ (gxc#current-compile-gsc-options)) - (_opts157005_ '())) - (let* ((_rest157006157026_ _rest157004_) - (_else157010157034_ + (lambda (_phi?156997_) + (let _lp156999_ ((_rest157001_ (gxc#current-compile-gsc-options)) + (_opts157002_ '())) + (let* ((_rest157003157023_ _rest157001_) + (_else157007157031_ (lambda () - (if (and (let () (declare (not safe)) (not _phi?157000_)) + (if (and (let () (declare (not safe)) (not _phi?156997_)) (gxc#current-compile-debug)) - (let ((__tmp158376 - (let ((__tmp158377 (reverse _opts157005_))) + (let ((__tmp158373 + (let ((__tmp158374 (reverse _opts157002_))) (declare (not safe)) - (cons '"-g" __tmp158377)))) + (cons '"-g" __tmp158374)))) (declare (not safe)) - (cons '"-cc-options" __tmp158376)) - (reverse _opts157005_))))) - (let ((_K157020157073_ - (lambda (_rest157070_ _opt157071_) - (let ((__tmp158378 - (let ((__tmp158379 + (cons '"-cc-options" __tmp158373)) + (reverse _opts157002_))))) + (let ((_K157017157070_ + (lambda (_rest157067_ _opt157068_) + (let ((__tmp158375 + (let ((__tmp158376 (let () (declare (not safe)) - (cons '"-cc-options" _opts157005_)))) + (cons '"-cc-options" _opts157002_)))) (declare (not safe)) - (cons _opt157071_ __tmp158379)))) + (cons _opt157068_ __tmp158376)))) (declare (not safe)) - (_lp157002_ _rest157070_ __tmp158378)))) - (_K157015157054_ - (lambda (_rest157052_) + (_lp156999_ _rest157067_ __tmp158375)))) + (_K157012157051_ + (lambda (_rest157049_) (let () (declare (not safe)) - (_lp157002_ _rest157052_ _opts157005_)))) - (_K157012157040_ - (lambda (_rest157038_) + (_lp156999_ _rest157049_ _opts157002_)))) + (_K157009157037_ + (lambda (_rest157035_) (let () (declare (not safe)) - (_lp157002_ _rest157038_ _opts157005_))))) - (if (let () (declare (not safe)) (##pair? _rest157006157026_)) - (let ((_tl157022157078_ + (_lp156999_ _rest157035_ _opts157002_))))) + (if (let () (declare (not safe)) (##pair? _rest157003157023_)) + (let ((_tl157019157075_ (let () (declare (not safe)) - (##cdr _rest157006157026_))) - (_hd157021157076_ + (##cdr _rest157003157023_))) + (_hd157018157073_ (let () (declare (not safe)) - (##car _rest157006157026_)))) + (##car _rest157003157023_)))) (if (let () (declare (not safe)) - (equal? _hd157021157076_ '"-cc-options")) + (equal? _hd157018157073_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl157022157078_)) - (let ((_tl157024157083_ + (##pair? _tl157019157075_)) + (let ((_tl157021157080_ (let () (declare (not safe)) - (##cdr _tl157022157078_))) - (_hd157023157081_ + (##cdr _tl157019157075_))) + (_hd157020157078_ (let () (declare (not safe)) - (##car _tl157022157078_)))) - (let ((_opt157086_ _hd157023157081_) - (_rest157088_ _tl157024157083_)) + (##car _tl157019157075_)))) + (let ((_opt157083_ _hd157020157078_) + (_rest157085_ _tl157021157080_)) (let () (declare (not safe)) - (_K157020157073_ _rest157088_ _opt157086_)))) - (let ((_rest157046_ _tl157022157078_)) + (_K157017157070_ _rest157085_ _opt157083_)))) + (let ((_rest157043_ _tl157019157075_)) (declare (not safe)) - (_K157012157040_ _rest157046_))) + (_K157009157037_ _rest157043_))) (if (let () (declare (not safe)) - (equal? _hd157021157076_ '"-ld-options")) + (equal? _hd157018157073_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl157022157078_)) - (let* ((_tl157019157062_ + (##pair? _tl157019157075_)) + (let* ((_tl157016157059_ (let () (declare (not safe)) - (##cdr _tl157022157078_))) - (_rest157065_ _tl157019157062_)) + (##cdr _tl157019157075_))) + (_rest157062_ _tl157016157059_)) (declare (not safe)) - (_K157015157054_ _rest157065_)) - (let ((_rest157046_ _tl157022157078_)) + (_K157012157051_ _rest157062_)) + (let ((_rest157043_ _tl157019157075_)) (declare (not safe)) - (_K157012157040_ _rest157046_))) - (let ((_rest157046_ _tl157022157078_)) + (_K157009157037_ _rest157043_))) + (let ((_rest157043_ _tl157019157075_)) (declare (not safe)) - (_K157012157040_ _rest157046_))))) - (let () (declare (not safe)) (_else157010157034_)))))))) + (_K157009157037_ _rest157043_))))) + (let () (declare (not safe)) (_else157007157031_)))))))) (define gxc#gsc-cc-options__0 (lambda () - (let ((_phi?157094_ '#f)) + (let ((_phi?157091_ '#f)) (declare (not safe)) - (gxc#gsc-cc-options__% _phi?157094_)))) + (gxc#gsc-cc-options__% _phi?157091_)))) (define gxc#gsc-cc-options - (lambda _g158381_ - (let ((_g158380_ (let () (declare (not safe)) (##length _g158381_)))) - (cond ((let () (declare (not safe)) (##fx= _g158380_ 0)) + (lambda _g158378_ + (let ((_g158377_ (let () (declare (not safe)) (##length _g158378_)))) + (cond ((let () (declare (not safe)) (##fx= _g158377_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - _g158381_)) - ((let () (declare (not safe)) (##fx= _g158380_ 1)) - (apply (lambda (_phi?157096_) + _g158378_)) + ((let () (declare (not safe)) (##fx= _g158377_ 1)) + (apply (lambda (_phi?157093_) (let () (declare (not safe)) - (gxc#gsc-cc-options__% _phi?157096_))) - _g158381_)) + (gxc#gsc-cc-options__% _phi?157093_))) + _g158378_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-cc-options - _g158381_)))))) + _g158378_)))))) (define gxc#gsc-static-include-options - (lambda (_staticdir156995_) - (let* ((_user-staticdir156997_ + (lambda (_staticdir156992_) + (let* ((_user-staticdir156994_ (path-expand (path-expand '"lib/static" (let () (declare (not safe)) (gerbil-path))))) - (__tmp158382 - (let ((__tmp158383 + (__tmp158379 + (let ((__tmp158380 (string-append '"-I " - _staticdir156995_ + _staticdir156992_ '" -I " - _user-staticdir156997_))) + _user-staticdir156994_))) (declare (not safe)) - (cons __tmp158383 '())))) + (cons __tmp158380 '())))) (declare (not safe)) - (cons '"-cc-options" __tmp158382)))) + (cons '"-cc-options" __tmp158379)))) (define gxc#gcc-ld-options (lambda () - (let _lp156907_ ((_rest156909_ (gxc#current-compile-gsc-options)) - (_opts156910_ '())) - (let* ((_rest156911156931_ _rest156909_) - (_else156915156939_ (lambda () _opts156910_))) - (let ((_K156925156982_ - (lambda (_rest156980_) + (let _lp156904_ ((_rest156906_ (gxc#current-compile-gsc-options)) + (_opts156907_ '())) + (let* ((_rest156908156928_ _rest156906_) + (_else156912156936_ (lambda () _opts156907_))) + (let ((_K156922156979_ + (lambda (_rest156977_) (let () (declare (not safe)) - (_lp156907_ _rest156980_ _opts156910_)))) - (_K156920156960_ - (lambda (_rest156957_ _opt156958_) - (let ((__tmp158384 - (append _opts156910_ - (let ((__tmp158385 + (_lp156904_ _rest156977_ _opts156907_)))) + (_K156917156957_ + (lambda (_rest156954_ _opt156955_) + (let ((__tmp158381 + (append _opts156907_ + (let ((__tmp158382 (let () (declare (not safe)) (string-split - _opt156958_ + _opt156955_ '#\space)))) (declare (not safe)) (filter gxc#not-string-empty? - __tmp158385))))) + __tmp158382))))) (declare (not safe)) - (_lp156907_ _rest156957_ __tmp158384)))) - (_K156917156945_ - (lambda (_rest156943_) + (_lp156904_ _rest156954_ __tmp158381)))) + (_K156914156942_ + (lambda (_rest156940_) (let () (declare (not safe)) - (_lp156907_ _rest156943_ _opts156910_))))) - (if (let () (declare (not safe)) (##pair? _rest156911156931_)) - (let ((_tl156927156987_ + (_lp156904_ _rest156940_ _opts156907_))))) + (if (let () (declare (not safe)) (##pair? _rest156908156928_)) + (let ((_tl156924156984_ (let () (declare (not safe)) - (##cdr _rest156911156931_))) - (_hd156926156985_ + (##cdr _rest156908156928_))) + (_hd156923156982_ (let () (declare (not safe)) - (##car _rest156911156931_)))) + (##car _rest156908156928_)))) (if (let () (declare (not safe)) - (equal? _hd156926156985_ '"-cc-options")) + (equal? _hd156923156982_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl156927156987_)) - (let* ((_tl156929156990_ + (##pair? _tl156924156984_)) + (let* ((_tl156926156987_ (let () (declare (not safe)) - (##cdr _tl156927156987_))) - (_rest156993_ _tl156929156990_)) + (##cdr _tl156924156984_))) + (_rest156990_ _tl156926156987_)) (declare (not safe)) - (_K156925156982_ _rest156993_)) - (let ((_rest156951_ _tl156927156987_)) + (_K156922156979_ _rest156990_)) + (let ((_rest156948_ _tl156924156984_)) (declare (not safe)) - (_K156917156945_ _rest156951_))) + (_K156914156942_ _rest156948_))) (if (let () (declare (not safe)) - (equal? _hd156926156985_ '"-ld-options")) + (equal? _hd156923156982_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl156927156987_)) - (let ((_tl156924156970_ + (##pair? _tl156924156984_)) + (let ((_tl156921156967_ (let () (declare (not safe)) - (##cdr _tl156927156987_))) - (_hd156923156968_ + (##cdr _tl156924156984_))) + (_hd156920156965_ (let () (declare (not safe)) - (##car _tl156927156987_)))) - (let ((_opt156973_ _hd156923156968_) - (_rest156975_ _tl156924156970_)) + (##car _tl156924156984_)))) + (let ((_opt156970_ _hd156920156965_) + (_rest156972_ _tl156921156967_)) (let () (declare (not safe)) - (_K156920156960_ - _rest156975_ - _opt156973_)))) - (let ((_rest156951_ _tl156927156987_)) + (_K156917156957_ + _rest156972_ + _opt156970_)))) + (let ((_rest156948_ _tl156924156984_)) (declare (not safe)) - (_K156917156945_ _rest156951_))) - (let ((_rest156951_ _tl156927156987_)) + (_K156914156942_ _rest156948_))) + (let ((_rest156948_ _tl156924156984_)) (declare (not safe)) - (_K156917156945_ _rest156951_))))) - (let () (declare (not safe)) (_else156915156939_)))))))) + (_K156914156942_ _rest156948_))))) + (let () (declare (not safe)) (_else156912156936_)))))))) (define gxc#not-string-empty? - (lambda (_str156904_) - (let ((__tmp158386 - (let () (declare (not safe)) (string-empty? _str156904_)))) + (lambda (_str156901_) + (let ((__tmp158383 + (let () (declare (not safe)) (string-empty? _str156901_)))) (declare (not safe)) - (not __tmp158386)))) + (not __tmp158383)))) (define gxc#gsc-compile-file - (lambda (_path156872_ _phi?156873_) - (letrec ((_gsc-link-path156875_ - (lambda (_base-path156896_) - (let _lp156898_ ((_n156900_ '1)) - (let ((_path156902_ + (lambda (_path156869_ _phi?156870_) + (letrec ((_gsc-link-path156872_ + (lambda (_base-path156893_) + (let _lp156895_ ((_n156897_ '1)) + (let ((_path156899_ (string-append - _base-path156896_ + _base-path156893_ '".o" - (number->string _n156900_)))) - (if (file-exists? _path156902_) - (let ((__tmp158387 + (number->string _n156897_)))) + (if (file-exists? _path156899_) + (let ((__tmp158384 (let () (declare (not safe)) - (+ _n156900_ '1)))) - (declare (not safe)) - (_lp156898_ __tmp158387)) - _path156902_)))))) - (let* ((_base-path156877_ (path-strip-extension _path156872_)) - (_path-c156879_ (string-append _base-path156877_ '".c")) - (_path-o156881_ (string-append _base-path156877_ '".o")) - (_link-path156883_ + (+ _n156897_ '1)))) + (declare (not safe)) + (_lp156895_ __tmp158384)) + _path156899_)))))) + (let* ((_base-path156874_ (path-strip-extension _path156869_)) + (_path-c156876_ (string-append _base-path156874_ '".c")) + (_path-o156878_ (string-append _base-path156874_ '".o")) + (_link-path156880_ (let () (declare (not safe)) - (_gsc-link-path156875_ _base-path156877_))) - (_link-path-c156885_ (string-append _link-path156883_ '".c")) - (_link-path-o156887_ (string-append _link-path156883_ '".o")) - (_gsc-link-opts156889_ + (_gsc-link-path156872_ _base-path156874_))) + (_link-path-c156882_ (string-append _link-path156880_ '".c")) + (_link-path-o156884_ (string-append _link-path156880_ '".o")) + (_gsc-link-opts156886_ (let () (declare (not safe)) - (gxc#gsc-link-options__% _phi?156873_))) - (_gsc-cc-opts156891_ + (gxc#gsc-link-options__% _phi?156870_))) + (_gsc-cc-opts156888_ (let () (declare (not safe)) - (gxc#gsc-cc-options__% _phi?156873_))) - (_gcc-ld-opts156893_ + (gxc#gsc-cc-options__% _phi?156870_))) + (_gcc-ld-opts156890_ (let () (declare (not safe)) (gxc#gcc-ld-options)))) - (let ((__tmp158394 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp158388 - (let ((__tmp158389 - (let ((__tmp158390 - (let ((__tmp158391 - (let ((__tmp158392 - (let ((__tmp158393 + (let ((__tmp158391 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp158385 + (let ((__tmp158386 + (let ((__tmp158387 + (let ((__tmp158388 + (let ((__tmp158389 + (let ((__tmp158390 (let () (declare (not safe)) - (cons _path156872_ + (cons _path156869_ '())))) (declare (not safe)) (foldr1 cons - __tmp158393 - _gsc-link-opts156889_)))) + __tmp158390 + _gsc-link-opts156886_)))) (declare (not safe)) - (cons _link-path-c156885_ - __tmp158392)))) + (cons _link-path-c156882_ + __tmp158389)))) (declare (not safe)) - (cons '"-o" __tmp158391)))) + (cons '"-o" __tmp158388)))) (declare (not safe)) - (cons '"-flat" __tmp158390)))) + (cons '"-flat" __tmp158387)))) (declare (not safe)) - (cons '"-link" __tmp158389)))) + (cons '"-link" __tmp158386)))) (declare (not safe)) - (gxc#invoke __tmp158394 __tmp158388 'stdout-redirection: '#t)) - (let ((__tmp158401 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp158395 - (let ((__tmp158396 - (let ((__tmp158397 - (let ((__tmp158398 - (let ((__tmp158399 - (let ((__tmp158400 + (gxc#invoke __tmp158391 __tmp158385 'stdout-redirection: '#t)) + (let ((__tmp158398 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp158392 + (let ((__tmp158393 + (let ((__tmp158394 + (let ((__tmp158395 + (let ((__tmp158396 + (let ((__tmp158397 (let () (declare (not safe)) - (cons _link-path-c156885_ + (cons _link-path-c156882_ '())))) (declare (not safe)) - (cons _path-c156879_ - __tmp158400)))) + (cons _path-c156876_ + __tmp158397)))) (declare (not safe)) (foldr1 cons - __tmp158399 - _gsc-cc-opts156891_)))) + __tmp158396 + _gsc-cc-opts156888_)))) (declare (not safe)) - (cons '"-D___DYNAMIC" __tmp158398)))) + (cons '"-D___DYNAMIC" __tmp158395)))) (declare (not safe)) - (cons '"-cc-options" __tmp158397)))) + (cons '"-cc-options" __tmp158394)))) (declare (not safe)) - (cons '"-obj" __tmp158396)))) + (cons '"-obj" __tmp158393)))) (declare (not safe)) - (gxc#invoke __tmp158401 __tmp158395 'stdout-redirection: '#t)) - (let ((__tmp158407 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp158402 - (let ((__tmp158403 - (let ((__tmp158404 - (let ((__tmp158405 - (let ((__tmp158406 + (gxc#invoke __tmp158398 __tmp158392 'stdout-redirection: '#t)) + (let ((__tmp158404 (let () (declare (not safe)) (gxc#gerbil-gcc))) + (__tmp158399 + (let ((__tmp158400 + (let ((__tmp158401 + (let ((__tmp158402 + (let ((__tmp158403 (let () (declare (not safe)) - (cons _link-path-o156887_ - _gcc-ld-opts156893_)))) + (cons _link-path-o156884_ + _gcc-ld-opts156890_)))) (declare (not safe)) - (cons _path-o156881_ __tmp158406)))) + (cons _path-o156878_ __tmp158403)))) (declare (not safe)) - (cons _link-path156883_ __tmp158405)))) + (cons _link-path156880_ __tmp158402)))) (declare (not safe)) - (cons '"-o" __tmp158404)))) + (cons '"-o" __tmp158401)))) (declare (not safe)) - (cons '"-shared" __tmp158403)))) + (cons '"-shared" __tmp158400)))) (declare (not safe)) - (gxc#invoke __tmp158407 __tmp158402)) + (gxc#invoke __tmp158404 __tmp158399)) (for-each delete-file - (let ((__tmp158408 - (let ((__tmp158409 - (let ((__tmp158410 + (let ((__tmp158405 + (let ((__tmp158406 + (let ((__tmp158407 (let () (declare (not safe)) - (cons _link-path-o156887_ '())))) + (cons _link-path-o156884_ '())))) (declare (not safe)) - (cons _link-path-c156885_ __tmp158410)))) + (cons _link-path-c156882_ __tmp158407)))) (declare (not safe)) - (cons _path-o156881_ __tmp158409)))) + (cons _path-o156878_ __tmp158406)))) (declare (not safe)) - (cons _path-c156879_ __tmp158408))))))) + (cons _path-c156876_ __tmp158405))))))) (define gxc#compile-output-file - (lambda (_ctx156843_ _n156844_ _ext156845_) - (letrec ((_module-relative-path156847_ - (lambda (_ctx156870_) + (lambda (_ctx156840_ _n156841_ _ext156842_) + (letrec ((_module-relative-path156844_ + (lambda (_ctx156867_) (path-strip-directory - (let ((__tmp158411 + (let ((__tmp158408 (##structure-ref - _ctx156870_ + _ctx156867_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp158411))))) - (_module-source-directory156848_ - (lambda (_ctx156866_) + (gxc#module-id->path-string __tmp158408))))) + (_module-source-directory156845_ + (lambda (_ctx156863_) (path-directory - (let ((_mpath156868_ + (let ((_mpath156865_ (##structure-ref - _ctx156866_ + _ctx156863_ '7 gx#module-context::t '#f))) (if (let () (declare (not safe)) - (string? _mpath156868_)) - _mpath156868_ + (string? _mpath156865_)) + _mpath156865_ (let () (declare (not safe)) - (last _mpath156868_))))))) - (_section-string156849_ - (lambda (_n156864_) - (if (let () (declare (not safe)) (number? _n156864_)) - (number->string _n156864_) - (if (let () (declare (not safe)) (symbol? _n156864_)) - (symbol->string _n156864_) + (last _mpath156865_))))))) + (_section-string156846_ + (lambda (_n156861_) + (if (let () (declare (not safe)) (number? _n156861_)) + (number->string _n156861_) + (if (let () (declare (not safe)) (symbol? _n156861_)) + (symbol->string _n156861_) (if (let () (declare (not safe)) - (string? _n156864_)) - _n156864_ + (string? _n156861_)) + _n156861_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _n156864_))))))) - (_file-name156850_ - (lambda (_path156862_) - (if _n156844_ + _n156861_))))))) + (_file-name156847_ + (lambda (_path156859_) + (if _n156841_ (string-append - _path156862_ + _path156859_ '"__" (let () (declare (not safe)) - (_section-string156849_ _n156844_)) - _ext156845_) - (string-append _path156862_ _ext156845_)))) - (_file-path156851_ + (_section-string156846_ _n156841_)) + _ext156842_) + (string-append _path156859_ _ext156842_)))) + (_file-path156848_ (lambda () - (let ((_$e156857_ (gxc#current-compile-output-dir))) - (if _$e156857_ - ((lambda (_outdir156860_) + (let ((_$e156854_ (gxc#current-compile-output-dir))) + (if _$e156854_ + ((lambda (_outdir156857_) (path-expand - (let ((__tmp158413 - (let ((__tmp158414 + (let ((__tmp158410 + (let ((__tmp158411 (##structure-ref - _ctx156843_ + _ctx156840_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp158414)))) + __tmp158411)))) (declare (not safe)) - (_file-name156850_ __tmp158413)) - _outdir156860_)) - _$e156857_) + (_file-name156847_ __tmp158410)) + _outdir156857_)) + _$e156854_) (path-expand - (let ((__tmp158412 + (let ((__tmp158409 (let () (declare (not safe)) - (_module-relative-path156847_ - _ctx156843_)))) + (_module-relative-path156844_ + _ctx156840_)))) (declare (not safe)) - (_file-name156850_ __tmp158412)) + (_file-name156847_ __tmp158409)) (let () (declare (not safe)) - (_module-source-directory156848_ - _ctx156843_)))))))) - (let ((_path156853_ - (let () (declare (not safe)) (_file-path156851_)))) - (let ((__tmp158415 + (_module-source-directory156845_ + _ctx156840_)))))))) + (let ((_path156850_ + (let () (declare (not safe)) (_file-path156848_)))) + (let ((__tmp158412 (lambda () - (let ((__tmp158416 (path-directory _path156853_))) + (let ((__tmp158413 (path-directory _path156850_))) (declare (not safe)) - (create-directory*__0 __tmp158416))))) + (create-directory*__0 __tmp158413))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158415)) - _path156853_)))) + (with-lock gxc#+driver-mutex+ __tmp158412)) + _path156850_)))) (define gxc#compile-static-output-file - (lambda (_ctx156825_) - (letrec ((_file-name156827_ - (lambda (_id156841_) + (lambda (_ctx156822_) + (letrec ((_file-name156824_ + (lambda (_id156838_) (string-append (let () (declare (not safe)) - (gxc#static-module-name _id156841_)) + (gxc#static-module-name _id156838_)) '".scm"))) - (_file-path156828_ + (_file-path156825_ (lambda () - (let* ((_file156834_ - (let ((__tmp158417 + (let* ((_file156831_ + (let ((__tmp158414 (##structure-ref - _ctx156825_ + _ctx156822_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (_file-name156827_ __tmp158417))) - (_$e156836_ (gxc#current-compile-output-dir))) - (if _$e156836_ - ((lambda (_outdir156839_) + (_file-name156824_ __tmp158414))) + (_$e156833_ (gxc#current-compile-output-dir))) + (if _$e156833_ + ((lambda (_outdir156836_) (path-expand - _file156834_ - (path-expand '"static" _outdir156839_))) - _$e156836_) - (path-expand _file156834_ '"static")))))) - (let ((_path156830_ - (let () (declare (not safe)) (_file-path156828_)))) - (let ((__tmp158418 + _file156831_ + (path-expand '"static" _outdir156836_))) + _$e156833_) + (path-expand _file156831_ '"static")))))) + (let ((_path156827_ + (let () (declare (not safe)) (_file-path156825_)))) + (let ((__tmp158415 (lambda () - (let ((__tmp158419 (path-directory _path156830_))) + (let ((__tmp158416 (path-directory _path156827_))) (declare (not safe)) - (create-directory*__0 __tmp158419))))) + (create-directory*__0 __tmp158416))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158418)) - _path156830_)))) + (with-lock gxc#+driver-mutex+ __tmp158415)) + _path156827_)))) (define gxc#compile-exe-output-file - (lambda (_ctx156819_ _opts156820_) - (let ((_$e156822_ + (lambda (_ctx156816_ _opts156817_) + (let ((_$e156819_ (let () (declare (not safe)) - (pgetq__0 'output-file: _opts156820_)))) - (if _$e156822_ - (values _$e156822_) + (pgetq__0 'output-file: _opts156817_)))) + (if _$e156819_ + (values _$e156819_) (path-strip-directory (symbol->string (##structure-ref - _ctx156819_ + _ctx156816_ '1 gx#expander-context::t '#f))))))) (define gxc#static-module-name - (lambda (_idstr156812_) - (if (let () (declare (not safe)) (string? _idstr156812_)) - (let* ((_str156814_ + (lambda (_idstr156809_) + (if (let () (declare (not safe)) (string? _idstr156809_)) + (let* ((_str156811_ (let () (declare (not safe)) - (gxc#module-id->path-string _idstr156812_))) - (_strs156816_ + (gxc#module-id->path-string _idstr156809_))) + (_strs156813_ (let () (declare (not safe)) - (string-split _str156814_ '#\/)))) - (let () (declare (not safe)) (string-join _strs156816_ '"__"))) - (if (let () (declare (not safe)) (symbol? _idstr156812_)) - (let ((__tmp158420 (symbol->string _idstr156812_))) + (string-split _str156811_ '#\/)))) + (let () (declare (not safe)) (string-join _strs156813_ '"__"))) + (if (let () (declare (not safe)) (symbol? _idstr156809_)) + (let ((__tmp158417 (symbol->string _idstr156809_))) (declare (not safe)) - (gxc#static-module-name __tmp158420)) + (gxc#static-module-name __tmp158417)) (let () (declare (not safe)) - (error '"Bad module id" _idstr156812_)))))) + (error '"Bad module id" _idstr156809_)))))) (define gxc#invoke__% - (lambda (_g158421_ - _stdout-redirection156773156777_ - _stderr-redirection156774156779_ - _program156781_ - _args156782_) - (let* ((_stdout-redirection156784_ + (lambda (_g158418_ + _stdout-redirection156770156774_ + _stderr-redirection156771156776_ + _program156778_ + _args156779_) + (let* ((_stdout-redirection156781_ (if (let () (declare (not safe)) - (eq? _stdout-redirection156773156777_ absent-value)) + (eq? _stdout-redirection156770156774_ absent-value)) '#f - _stdout-redirection156773156777_)) - (_stderr-redirection156786_ + _stdout-redirection156770156774_)) + (_stderr-redirection156783_ (if (let () (declare (not safe)) - (eq? _stderr-redirection156774156779_ absent-value)) + (eq? _stderr-redirection156771156776_ absent-value)) '#f - _stderr-redirection156774156779_))) - (let ((__tmp158422 + _stderr-redirection156771156776_))) + (let ((__tmp158419 (let () (declare (not safe)) - (cons _program156781_ _args156782_)))) + (cons _program156778_ _args156779_)))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp158422)) - (let* ((_proc156788_ + (gxc#verbose '"invoke " __tmp158419)) + (let* ((_proc156785_ (open-process - (let ((__tmp158423 - (let ((__tmp158424 - (let ((__tmp158425 - (let ((__tmp158426 - (let ((__tmp158427 - (let ((__tmp158428 - (let ((__tmp158429 + (let ((__tmp158420 + (let ((__tmp158421 + (let ((__tmp158422 + (let ((__tmp158423 + (let ((__tmp158424 + (let ((__tmp158425 + (let ((__tmp158426 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _stderr-redirection156786_ '())))) + (cons _stderr-redirection156783_ '())))) (declare (not safe)) - (cons 'stderr-redirection: __tmp158429)))) + (cons 'stderr-redirection: __tmp158426)))) (declare (not safe)) - (cons _stdout-redirection156784_ __tmp158428)))) + (cons _stdout-redirection156781_ __tmp158425)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'stdout-redirection: - __tmp158427)))) + __tmp158424)))) (declare (not safe)) - (cons _args156782_ __tmp158426)))) + (cons _args156779_ __tmp158423)))) (declare (not safe)) - (cons 'arguments: __tmp158425)))) + (cons 'arguments: __tmp158422)))) (declare (not safe)) - (cons _program156781_ __tmp158424)))) + (cons _program156778_ __tmp158421)))) (declare (not safe)) - (cons 'path: __tmp158423)))) - (_output156793_ - (if (or _stdout-redirection156784_ - _stderr-redirection156786_) - (read-line _proc156788_ '#f) + (cons 'path: __tmp158420)))) + (_output156790_ + (if (or _stdout-redirection156781_ + _stderr-redirection156783_) + (read-line _proc156785_ '#f) '#f))) - (let ((_status156796_ (process-status _proc156788_))) - (close-port _proc156788_) - (if (let () (declare (not safe)) (zero? _status156796_)) + (let ((_status156793_ (process-status _proc156785_))) + (close-port _proc156785_) + (if (let () (declare (not safe)) (zero? _status156793_)) '#!void (begin - (display _output156793_) - (let ((__tmp158430 + (display _output156790_) + (let ((__tmp158427 (let () (declare (not safe)) - (cons _program156781_ _args156782_)))) + (cons _program156778_ _args156779_)))) (declare (not safe)) (gxc#raise-compile-error '"Compilation error; process exit with nonzero status" - __tmp158430 - _status156796_))))))))) + __tmp158427 + _status156793_))))))))) (define gxc#invoke__@ - (lambda (_keys156772156801_ . _args156803_) + (lambda (_keys156769156798_ . _args156800_) (apply gxc#invoke__% - _keys156772156801_ + _keys156769156798_ (let () (declare (not safe)) (symbolic-table-ref - _keys156772156801_ + _keys156769156798_ 'stdout-redirection: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _keys156772156801_ + _keys156769156798_ 'stderr-redirection: absent-value)) - _args156803_))) + _args156800_))) (define gxc#invoke - (lambda _args156775156809_ + (lambda _args156772156806_ (apply keyword-dispatch '#(stderr-redirection: stdout-redirection:) gxc#invoke__@ - _args156775156809_))) + _args156772156806_))) (define gxc#join! - (lambda (_thread156766_) - (let ((__tmp158432 - (lambda (_exn156768_) + (lambda (_thread156763_) + (let ((__tmp158429 + (lambda (_exn156765_) (if (let () (declare (not safe)) - (uncaught-exception? _exn156768_)) + (uncaught-exception? _exn156765_)) (raise (let () (declare (not safe)) - (uncaught-exception-reason _exn156768_))) - (raise _exn156768_)))) - (__tmp158431 (lambda () (thread-join! _thread156766_)))) + (uncaught-exception-reason _exn156765_))) + (raise _exn156765_)))) + (__tmp158428 (lambda () (thread-join! _thread156763_)))) (declare (not safe)) - (with-catch __tmp158432 __tmp158431)))))) + (with-catch __tmp158429 __tmp158428)))))) diff --git a/src/bootstrap/gerbil/compiler/driver__1.scm b/src/bootstrap/gerbil/compiler/driver__1.scm index 12c2697d..fb10febf 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 (_$stx156639_) - (let* ((_g156643156657_ - (lambda (_g156644156653_) + (lambda (_$stx156636_) + (let* ((_g156640156654_ + (lambda (_g156641156650_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g156644156653_)))) - (_g156642156699_ - (lambda (_g156644156661_) + _g156641156650_)))) + (_g156639156696_ + (lambda (_g156641156658_) (if (let () (declare (not safe)) - (gx#stx-pair? _g156644156661_)) - (let ((_e156648156664_ + (gx#stx-pair? _g156641156658_)) + (let ((_e156645156661_ (let () (declare (not safe)) - (gx#syntax-e _g156644156661_)))) - (let ((_hd156647156668_ + (gx#syntax-e _g156641156658_)))) + (let ((_hd156644156665_ (let () (declare (not safe)) - (##car _e156648156664_))) - (_tl156646156671_ + (##car _e156645156661_))) + (_tl156643156668_ (let () (declare (not safe)) - (##cdr _e156648156664_)))) + (##cdr _e156645156661_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl156646156671_)) - (let ((_e156651156674_ + (gx#stx-pair? _tl156643156668_)) + (let ((_e156648156671_ (let () (declare (not safe)) - (gx#syntax-e _tl156646156671_)))) - (let ((_hd156650156678_ + (gx#syntax-e _tl156643156668_)))) + (let ((_hd156647156675_ (let () (declare (not safe)) - (##car _e156651156674_))) - (_tl156649156681_ + (##car _e156648156671_))) + (_tl156646156678_ (let () (declare (not safe)) - (##cdr _e156651156674_)))) + (##cdr _e156648156671_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl156649156681_)) - ((lambda (_L156684_) - (let ((__tmp158440 + (gx#stx-null? _tl156646156678_)) + ((lambda (_L156681_) + (let ((__tmp158437 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'with-lock))) - (__tmp158433 - (let ((__tmp158439 + (__tmp158430 + (let ((__tmp158436 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '+driver-mutex+))) - (__tmp158434 - (let ((__tmp158435 - (let ((__tmp158438 + (__tmp158431 + (let ((__tmp158432 + (let ((__tmp158435 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp158436 - (let ((__tmp158437 + (__tmp158433 + (let ((__tmp158434 (let () (declare (not safe)) - (cons _L156684_ '())))) + (cons _L156681_ '())))) (declare (not safe)) - (cons '() __tmp158437)))) + (cons '() __tmp158434)))) (declare (not safe)) - (cons __tmp158438 __tmp158436)))) + (cons __tmp158435 __tmp158433)))) (declare (not safe)) - (cons __tmp158435 '())))) + (cons __tmp158432 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158439 - __tmp158434)))) + (cons __tmp158436 + __tmp158431)))) (declare (not safe)) - (cons __tmp158440 __tmp158433))) - _hd156650156678_) - (_g156643156657_ _g156644156661_)))) - (_g156643156657_ _g156644156661_)))) - (_g156643156657_ _g156644156661_))))) - (_g156642156699_ _$stx156639_)))) + (cons __tmp158437 __tmp158430))) + _hd156647156675_) + (_g156640156654_ _g156641156658_)))) + (_g156640156654_ _g156641156658_)))) + (_g156640156654_ _g156641156658_))))) + (_g156639156696_ _$stx156636_)))) (define |gxc[:0:]#go!| - (lambda (_$stx156703_) - (let* ((_g156707156721_ - (lambda (_g156708156717_) + (lambda (_$stx156700_) + (let* ((_g156704156718_ + (lambda (_g156705156714_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g156708156717_)))) - (_g156706156762_ - (lambda (_g156708156725_) + _g156705156714_)))) + (_g156703156759_ + (lambda (_g156705156722_) (if (let () (declare (not safe)) - (gx#stx-pair? _g156708156725_)) - (let ((_e156712156728_ + (gx#stx-pair? _g156705156722_)) + (let ((_e156709156725_ (let () (declare (not safe)) - (gx#syntax-e _g156708156725_)))) - (let ((_hd156711156732_ + (gx#syntax-e _g156705156722_)))) + (let ((_hd156708156729_ (let () (declare (not safe)) - (##car _e156712156728_))) - (_tl156710156735_ + (##car _e156709156725_))) + (_tl156707156732_ (let () (declare (not safe)) - (##cdr _e156712156728_)))) + (##cdr _e156709156725_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl156710156735_)) - (let ((_e156715156738_ + (gx#stx-pair? _tl156707156732_)) + (let ((_e156712156735_ (let () (declare (not safe)) - (gx#syntax-e _tl156710156735_)))) - (let ((_hd156714156742_ + (gx#syntax-e _tl156707156732_)))) + (let ((_hd156711156739_ (let () (declare (not safe)) - (##car _e156715156738_))) - (_tl156713156745_ + (##car _e156712156735_))) + (_tl156710156742_ (let () (declare (not safe)) - (##cdr _e156715156738_)))) + (##cdr _e156712156735_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl156713156745_)) - ((lambda (_L156748_) - (let ((__tmp158446 + (gx#stx-null? _tl156710156742_)) + ((lambda (_L156745_) + (let ((__tmp158443 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'spawn))) - (__tmp158441 - (let ((__tmp158442 - (let ((__tmp158445 + (__tmp158438 + (let ((__tmp158439 + (let ((__tmp158442 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp158443 - (let ((__tmp158444 + (__tmp158440 + (let ((__tmp158441 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L156748_ '())))) + (let () (declare (not safe)) (cons _L156745_ '())))) (declare (not safe)) - (cons '() __tmp158444)))) + (cons '() __tmp158441)))) (declare (not safe)) - (cons __tmp158445 __tmp158443)))) + (cons __tmp158442 __tmp158440)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158442 '())))) + (cons __tmp158439 '())))) (declare (not safe)) - (cons __tmp158446 __tmp158441))) - _hd156714156742_) - (_g156707156721_ _g156708156725_)))) - (_g156707156721_ _g156708156725_)))) - (_g156707156721_ _g156708156725_))))) - (_g156706156762_ _$stx156703_))))) + (cons __tmp158443 __tmp158438))) + _hd156711156739_) + (_g156704156718_ _g156705156722_)))) + (_g156704156718_ _g156705156722_)))) + (_g156704156718_ _g156705156722_))))) + (_g156703156759_ _$stx156700_))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm index 938d36bf..62619e83 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 1709128375) + (define gerbil/compiler/optimize-ann::timestamp 1709229973) (begin (declare (inlining-limit 200)) (define gxc#&optmize-annotated (make-promise (lambda () - (let ((_tbl146868_ + (let ((_tbl146865_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp149990 (force gxc#&basic-xform))) + (let ((__tmp149987 (force gxc#&basic-xform))) (declare (not safe)) - (hash-merge! _tbl146868_ __tmp149990)) + (hash-merge! _tbl146865_ __tmp149987)) (let () (declare (not safe)) (hash-put! - _tbl146868_ + _tbl146865_ '%#begin-annotation gxc#optimize-annotation%)) - _tbl146868_)))) + _tbl146865_)))) (define gxc#apply-optimize-annotated - (lambda (_stx146851_ . _args146853_) - (let ((__tmp149992 + (lambda (_stx146848_ . _args146850_) + (let ((__tmp149989 (lambda () (declare (not safe)) - (if (null? _args146853_) - (gxc#compile-e__0 _stx146851_) - (let ((_arg1146858_ (car _args146853_)) - (_rest146860_ (cdr _args146853_))) - (if (null? _rest146860_) - (gxc#compile-e__1 _stx146851_ _arg1146858_) - (let ((_arg2146863_ (car _rest146860_)) - (_rest146865_ (cdr _rest146860_))) - (if (null? _rest146865_) + (if (null? _args146850_) + (gxc#compile-e__0 _stx146848_) + (let ((_arg1146855_ (car _args146850_)) + (_rest146857_ (cdr _args146850_))) + (if (null? _rest146857_) + (gxc#compile-e__1 _stx146848_ _arg1146855_) + (let ((_arg2146860_ (car _rest146857_)) + (_rest146862_ (cdr _rest146857_))) + (if (null? _rest146862_) (gxc#compile-e__2 - _stx146851_ - _arg1146858_ - _arg2146863_) + _stx146848_ + _arg1146855_ + _arg2146860_) (apply gxc#compile-e - _stx146851_ - _arg1146858_ - _arg2146863_ - _rest146865_)))))))) - (__tmp149991 (force gxc#&optmize-annotated))) + _stx146848_ + _arg1146855_ + _arg2146860_ + _rest146862_)))))))) + (__tmp149988 (force gxc#&optmize-annotated))) (declare (not safe)) (call-with-parameters - __tmp149992 + __tmp149989 gxc#current-compile-methods - __tmp149991)))) + __tmp149988)))) (define gxc#&generate-runtime-repr (make-promise (lambda () - (let ((_tbl146848_ + (let ((_tbl146845_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp149993 (force gxc#&generate-runtime))) + (let ((__tmp149990 (force gxc#&generate-runtime))) (declare (not safe)) - (hash-merge! _tbl146848_ __tmp149993)) + (hash-merge! _tbl146845_ __tmp149990)) (let () (declare (not safe)) - (hash-put! _tbl146848_ '%#quote-syntax identity)) - _tbl146848_)))) + (hash-put! _tbl146845_ '%#quote-syntax identity)) + _tbl146845_)))) (define gxc#apply-generate-runtime-repr - (lambda (_stx146831_ . _args146833_) - (let ((__tmp149995 + (lambda (_stx146828_ . _args146830_) + (let ((__tmp149992 (lambda () (declare (not safe)) - (if (null? _args146833_) - (gxc#compile-e__0 _stx146831_) - (let ((_arg1146838_ (car _args146833_)) - (_rest146840_ (cdr _args146833_))) - (if (null? _rest146840_) - (gxc#compile-e__1 _stx146831_ _arg1146838_) - (let ((_arg2146843_ (car _rest146840_)) - (_rest146845_ (cdr _rest146840_))) - (if (null? _rest146845_) + (if (null? _args146830_) + (gxc#compile-e__0 _stx146828_) + (let ((_arg1146835_ (car _args146830_)) + (_rest146837_ (cdr _args146830_))) + (if (null? _rest146837_) + (gxc#compile-e__1 _stx146828_ _arg1146835_) + (let ((_arg2146840_ (car _rest146837_)) + (_rest146842_ (cdr _rest146837_))) + (if (null? _rest146842_) (gxc#compile-e__2 - _stx146831_ - _arg1146838_ - _arg2146843_) + _stx146828_ + _arg1146835_ + _arg2146840_) (apply gxc#compile-e - _stx146831_ - _arg1146838_ - _arg2146843_ - _rest146845_)))))))) - (__tmp149994 (force gxc#&generate-runtime-repr))) + _stx146828_ + _arg1146835_ + _arg2146840_ + _rest146842_)))))))) + (__tmp149991 (force gxc#&generate-runtime-repr))) (declare (not safe)) (call-with-parameters - __tmp149995 + __tmp149992 gxc#current-compile-methods - __tmp149994)))) + __tmp149991)))) (define gxc#&push-match-vars (make-promise (lambda () - (let ((_tbl146828_ + (let ((_tbl146825_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl146828_ '%#lambda gxc#xform-lambda%)) + (hash-put! _tbl146825_ '%#lambda gxc#xform-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl146828_ + _tbl146825_ '%#let-values gxc#push-match-vars-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl146828_ '%#letrec-values gxc#push-match-vars-stop)) + (hash-put! _tbl146825_ '%#letrec-values gxc#push-match-vars-stop)) (let () (declare (not safe)) - (hash-put! _tbl146828_ '%#if gxc#push-match-vars-if%)) + (hash-put! _tbl146825_ '%#if gxc#push-match-vars-if%)) (let () (declare (not safe)) - (hash-put! _tbl146828_ '%#call gxc#push-match-vars-call%)) - _tbl146828_)))) + (hash-put! _tbl146825_ '%#call gxc#push-match-vars-call%)) + _tbl146825_)))) (define gxc#apply-push-match-vars - (lambda (_stx146811_ . _args146813_) - (let ((__tmp149997 + (lambda (_stx146808_ . _args146810_) + (let ((__tmp149994 (lambda () (declare (not safe)) - (if (null? _args146813_) - (gxc#compile-e__0 _stx146811_) - (let ((_arg1146818_ (car _args146813_)) - (_rest146820_ (cdr _args146813_))) - (if (null? _rest146820_) - (gxc#compile-e__1 _stx146811_ _arg1146818_) - (let ((_arg2146823_ (car _rest146820_)) - (_rest146825_ (cdr _rest146820_))) - (if (null? _rest146825_) + (if (null? _args146810_) + (gxc#compile-e__0 _stx146808_) + (let ((_arg1146815_ (car _args146810_)) + (_rest146817_ (cdr _args146810_))) + (if (null? _rest146817_) + (gxc#compile-e__1 _stx146808_ _arg1146815_) + (let ((_arg2146820_ (car _rest146817_)) + (_rest146822_ (cdr _rest146817_))) + (if (null? _rest146822_) (gxc#compile-e__2 - _stx146811_ - _arg1146818_ - _arg2146823_) + _stx146808_ + _arg1146815_ + _arg2146820_) (apply gxc#compile-e - _stx146811_ - _arg1146818_ - _arg2146823_ - _rest146825_)))))))) - (__tmp149996 (force gxc#&push-match-vars))) + _stx146808_ + _arg1146815_ + _arg2146820_ + _rest146822_)))))))) + (__tmp149993 (force gxc#&push-match-vars))) (declare (not safe)) (call-with-parameters - __tmp149997 + __tmp149994 gxc#current-compile-methods - __tmp149996)))) + __tmp149993)))) (define gxc#current-annotation-optimizer (make-parameter '())) (define gxc#optimize-annotation% - (lambda (_stx146620_) - (let* ((___stx146884146885_ _stx146620_) - (_g146624146665_ + (lambda (_stx146617_) + (let* ((___stx146881146882_ _stx146617_) + (_g146621146662_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx146884146885_))))) - (let ((___kont146886146887_ - (lambda (_L146787_ _L146788_) - (let ((_ann146802_ - (let () (declare (not safe)) (gx#stx-e _L146788_)))) - (let ((__tmp150000 + ___stx146881146882_))))) + (let ((___kont146883146884_ + (lambda (_L146784_ _L146785_) + (let ((_ann146799_ + (let () (declare (not safe)) (gx#stx-e _L146785_)))) + (let ((__tmp149997 (lambda () - (let ((_$e146805_ _ann146802_)) + (let ((_$e146802_ _ann146799_)) (if (let () (declare (not safe)) - (eq? '@match _$e146805_)) + (eq? '@match _$e146802_)) (begin (let () (declare (not safe)) @@ -170,10 +170,10 @@ '"Optimizing match expansion")) (let () (declare (not safe)) - (gxc#optimize-match _L146787_))) + (gxc#optimize-match _L146784_))) (if (let () (declare (not safe)) - (eq? '@syntax-case _$e146805_)) + (eq? '@syntax-case _$e146802_)) (begin (let () (declare (not safe)) @@ -182,2009 +182,2009 @@ (let () (declare (not safe)) (gxc#optimize-syntax-case - _L146787_))) + _L146784_))) (let () (declare (not safe)) - (gxc#compile-e__0 _L146787_))))))) - (__tmp149998 - (let ((__tmp149999 + (gxc#compile-e__0 _L146784_))))))) + (__tmp149995 + (let ((__tmp149996 (gxc#current-annotation-optimizer))) (declare (not safe)) - (cons _ann146802_ __tmp149999)))) + (cons _ann146799_ __tmp149996)))) (declare (not safe)) (call-with-parameters - __tmp150000 + __tmp149997 gxc#current-annotation-optimizer - __tmp149998))))) - (___kont146888146889_ - (lambda (_L146733_ _L146734_ _L146735_) - (let () (declare (not safe)) (gxc#compile-e__0 _L146733_)))) - (___kont146892146893_ + __tmp149995))))) + (___kont146885146886_ + (lambda (_L146730_ _L146731_ _L146732_) + (let () (declare (not safe)) (gxc#compile-e__0 _L146730_)))) + (___kont146889146890_ (lambda () (let () (declare (not safe)) - (gxc#xform-begin-annotation% _stx146620_))))) - (let* ((___match146939146940_ - (lambda (_e146642146677_ - _hd146641146680_ - _tl146640146682_ - _e146645146685_ - _hd146644146688_ - _tl146643146690_ - _e146648146693_ - _hd146647146696_ - _tl146646146698_ - ___splice146890146891_ - _target146649146701_ - _tl146651146703_) - (letrec ((_loop146652146706_ - (lambda (_hd146650146709_ _param146656146711_) + (gxc#xform-begin-annotation% _stx146617_))))) + (let* ((___match146936146937_ + (lambda (_e146639146674_ + _hd146638146677_ + _tl146637146679_ + _e146642146682_ + _hd146641146685_ + _tl146640146687_ + _e146645146690_ + _hd146644146693_ + _tl146643146695_ + ___splice146887146888_ + _target146646146698_ + _tl146648146700_) + (letrec ((_loop146649146703_ + (lambda (_hd146647146706_ _param146653146708_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146650146709_)) - (let ((_e146653146714_ + (gx#stx-pair? _hd146647146706_)) + (let ((_e146650146711_ (let () (declare (not safe)) - (gx#stx-e _hd146650146709_)))) - (let ((_lp-tl146655146719_ + (gx#stx-e _hd146647146706_)))) + (let ((_lp-tl146652146716_ (let () (declare (not safe)) - (##cdr _e146653146714_))) - (_lp-hd146654146717_ + (##cdr _e146650146711_))) + (_lp-hd146651146714_ (let () (declare (not safe)) - (##car _e146653146714_)))) - (let ((__tmp150002 + (##car _e146650146711_)))) + (let ((__tmp149999 (let () (declare (not safe)) - (cons _lp-hd146654146717_ - _param146656146711_)))) + (cons _lp-hd146651146714_ + _param146653146708_)))) (declare (not safe)) - (_loop146652146706_ - _lp-tl146655146719_ - __tmp150002)))) - (let ((_param146657146722_ - (reverse _param146656146711_))) + (_loop146649146703_ + _lp-tl146652146716_ + __tmp149999)))) + (let ((_param146654146719_ + (reverse _param146653146708_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146643146690_)) - (let ((_e146660146725_ + (gx#stx-pair? _tl146640146687_)) + (let ((_e146657146722_ (let () (declare (not safe)) (gx#stx-e - _tl146643146690_)))) - (let ((_tl146658146730_ + _tl146640146687_)))) + (let ((_tl146655146727_ (let () (declare (not safe)) - (##cdr _e146660146725_))) - (_hd146659146728_ + (##cdr _e146657146722_))) + (_hd146656146725_ (let () (declare (not safe)) - (##car _e146660146725_)))) + (##car _e146657146722_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146658146730_)) - (let ((_L146733_ - _hd146659146728_) - (_L146734_ - _param146657146722_) - (_L146735_ - _hd146647146696_)) + _tl146655146727_)) + (let ((_L146730_ + _hd146656146725_) + (_L146731_ + _param146654146719_) + (_L146732_ + _hd146644146693_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _L146735_)) - (let ((__tmp150001 + (gx#identifier? _L146732_)) + (let ((__tmp149998 (memq (let () (declare (not safe)) - (gx#stx-e _L146735_)) + (gx#stx-e _L146732_)) gxc#gambit-annotations))) (declare (not safe)) - (not __tmp150001))) - (___kont146888146889_ _L146733_ _L146734_ _L146735_) - (___kont146892146893_))) + (not __tmp149998))) + (___kont146885146886_ _L146730_ _L146731_ _L146732_) + (___kont146889146890_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont146892146893_)))) - (___kont146892146893_))))))) + (___kont146889146890_)))) + (___kont146889146890_))))))) (let () (declare (not safe)) - (_loop146652146706_ _target146649146701_ '()))))) - (___match146913146914_ - (lambda (_e146630146763_ - _hd146629146766_ - _tl146628146768_ - _e146633146771_ - _hd146632146774_ - _tl146631146776_ - _e146636146779_ - _hd146635146782_ - _tl146634146784_) - (let ((_L146787_ _hd146635146782_) - (_L146788_ _hd146632146774_)) + (_loop146649146703_ _target146646146698_ '()))))) + (___match146910146911_ + (lambda (_e146627146760_ + _hd146626146763_ + _tl146625146765_ + _e146630146768_ + _hd146629146771_ + _tl146628146773_ + _e146633146776_ + _hd146632146779_ + _tl146631146781_) + (let ((_L146784_ _hd146632146779_) + (_L146785_ _hd146629146771_)) (if (let () (declare (not safe)) - (gx#identifier? _L146788_)) - (___kont146886146887_ _L146787_ _L146788_) + (gx#identifier? _L146785_)) + (___kont146883146884_ _L146784_ _L146785_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146632146774_)) - (let ((_e146648146693_ + (gx#stx-pair? _hd146629146771_)) + (let ((_e146645146690_ (let () (declare (not safe)) - (gx#stx-e _hd146632146774_)))) - (let ((_tl146646146698_ + (gx#stx-e _hd146629146771_)))) + (let ((_tl146643146695_ (let () (declare (not safe)) - (##cdr _e146648146693_))) - (_hd146647146696_ + (##cdr _e146645146690_))) + (_hd146644146693_ (let () (declare (not safe)) - (##car _e146648146693_)))) + (##car _e146645146690_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl146646146698_)) - (let ((___splice146890146891_ + (gx#stx-pair/null? _tl146643146695_)) + (let ((___splice146887146888_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl146646146698_ + _tl146643146695_ '0)))) - (let ((_tl146651146703_ + (let ((_tl146648146700_ (let () (declare (not safe)) (##vector-ref - ___splice146890146891_ + ___splice146887146888_ '1))) - (_target146649146701_ + (_target146646146698_ (let () (declare (not safe)) (##vector-ref - ___splice146890146891_ + ___splice146887146888_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146651146703_)) - (___match146939146940_ - _e146630146763_ - _hd146629146766_ - _tl146628146768_ - _e146633146771_ - _hd146632146774_ - _tl146631146776_ - _e146648146693_ - _hd146647146696_ - _tl146646146698_ - ___splice146890146891_ - _target146649146701_ - _tl146651146703_) - (___kont146892146893_)))) - (___kont146892146893_)))) - (___kont146892146893_))))))) + _tl146648146700_)) + (___match146936146937_ + _e146627146760_ + _hd146626146763_ + _tl146625146765_ + _e146630146768_ + _hd146629146771_ + _tl146628146773_ + _e146645146690_ + _hd146644146693_ + _tl146643146695_ + ___splice146887146888_ + _target146646146698_ + _tl146648146700_) + (___kont146889146890_)))) + (___kont146889146890_)))) + (___kont146889146890_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx146884146885_)) - (let ((_e146630146763_ + (gx#stx-pair? ___stx146881146882_)) + (let ((_e146627146760_ (let () (declare (not safe)) - (gx#stx-e ___stx146884146885_)))) - (let ((_tl146628146768_ + (gx#stx-e ___stx146881146882_)))) + (let ((_tl146625146765_ (let () (declare (not safe)) - (##cdr _e146630146763_))) - (_hd146629146766_ + (##cdr _e146627146760_))) + (_hd146626146763_ (let () (declare (not safe)) - (##car _e146630146763_)))) + (##car _e146627146760_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146628146768_)) - (let ((_e146633146771_ + (gx#stx-pair? _tl146625146765_)) + (let ((_e146630146768_ (let () (declare (not safe)) - (gx#stx-e _tl146628146768_)))) - (let ((_tl146631146776_ + (gx#stx-e _tl146625146765_)))) + (let ((_tl146628146773_ (let () (declare (not safe)) - (##cdr _e146633146771_))) - (_hd146632146774_ + (##cdr _e146630146768_))) + (_hd146629146771_ (let () (declare (not safe)) - (##car _e146633146771_)))) + (##car _e146630146768_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146631146776_)) - (let ((_e146636146779_ + (gx#stx-pair? _tl146628146773_)) + (let ((_e146633146776_ (let () (declare (not safe)) - (gx#stx-e _tl146631146776_)))) - (let ((_tl146634146784_ + (gx#stx-e _tl146628146773_)))) + (let ((_tl146631146781_ (let () (declare (not safe)) - (##cdr _e146636146779_))) - (_hd146635146782_ + (##cdr _e146633146776_))) + (_hd146632146779_ (let () (declare (not safe)) - (##car _e146636146779_)))) + (##car _e146633146776_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146634146784_)) - (___match146913146914_ - _e146630146763_ - _hd146629146766_ - _tl146628146768_ - _e146633146771_ - _hd146632146774_ - _tl146631146776_ - _e146636146779_ - _hd146635146782_ - _tl146634146784_) + (gx#stx-null? _tl146631146781_)) + (___match146910146911_ + _e146627146760_ + _hd146626146763_ + _tl146625146765_ + _e146630146768_ + _hd146629146771_ + _tl146628146773_ + _e146633146776_ + _hd146632146779_ + _tl146631146781_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd146632146774_)) - (let ((_e146648146693_ + _hd146629146771_)) + (let ((_e146645146690_ (let () (declare (not safe)) (gx#stx-e - _hd146632146774_)))) - (let ((_tl146646146698_ + _hd146629146771_)))) + (let ((_tl146643146695_ (let () (declare (not safe)) - (##cdr _e146648146693_))) - (_hd146647146696_ + (##cdr _e146645146690_))) + (_hd146644146693_ (let () (declare (not safe)) - (##car _e146648146693_)))) + (##car _e146645146690_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl146646146698_)) - (let ((___splice146890146891_ + _tl146643146695_)) + (let ((___splice146887146888_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl146646146698_ '0)))) - (let ((_tl146651146703_ + (gx#syntax-split-splice _tl146643146695_ '0)))) + (let ((_tl146648146700_ (let () (declare (not safe)) - (##vector-ref ___splice146890146891_ '1))) - (_target146649146701_ + (##vector-ref ___splice146887146888_ '1))) + (_target146646146698_ (let () (declare (not safe)) - (##vector-ref ___splice146890146891_ '0)))) + (##vector-ref ___splice146887146888_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146651146703_)) - (___match146939146940_ - _e146630146763_ - _hd146629146766_ - _tl146628146768_ - _e146633146771_ - _hd146632146774_ - _tl146631146776_ - _e146648146693_ - _hd146647146696_ - _tl146646146698_ - ___splice146890146891_ - _target146649146701_ - _tl146651146703_) - (___kont146892146893_)))) - (___kont146892146893_)))) + (gx#stx-null? _tl146648146700_)) + (___match146936146937_ + _e146627146760_ + _hd146626146763_ + _tl146625146765_ + _e146630146768_ + _hd146629146771_ + _tl146628146773_ + _e146645146690_ + _hd146644146693_ + _tl146643146695_ + ___splice146887146888_ + _target146646146698_ + _tl146648146700_) + (___kont146889146890_)))) + (___kont146889146890_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont146892146893_))))) + (___kont146889146890_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146632146774_)) - (let ((_e146648146693_ + (gx#stx-pair? _hd146629146771_)) + (let ((_e146645146690_ (let () (declare (not safe)) - (gx#stx-e _hd146632146774_)))) - (let ((_tl146646146698_ + (gx#stx-e _hd146629146771_)))) + (let ((_tl146643146695_ (let () (declare (not safe)) - (##cdr _e146648146693_))) - (_hd146647146696_ + (##cdr _e146645146690_))) + (_hd146644146693_ (let () (declare (not safe)) - (##car _e146648146693_)))) + (##car _e146645146690_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl146646146698_)) - (let ((___splice146890146891_ + _tl146643146695_)) + (let ((___splice146887146888_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl146646146698_ + _tl146643146695_ '0)))) - (let ((_tl146651146703_ + (let ((_tl146648146700_ (let () (declare (not safe)) (##vector-ref - ___splice146890146891_ + ___splice146887146888_ '1))) - (_target146649146701_ + (_target146646146698_ (let () (declare (not safe)) (##vector-ref - ___splice146890146891_ + ___splice146887146888_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146651146703_)) - (___match146939146940_ - _e146630146763_ - _hd146629146766_ - _tl146628146768_ - _e146633146771_ - _hd146632146774_ - _tl146631146776_ - _e146648146693_ - _hd146647146696_ - _tl146646146698_ - ___splice146890146891_ - _target146649146701_ - _tl146651146703_) - (___kont146892146893_)))) - (___kont146892146893_)))) - (___kont146892146893_))))) - (___kont146892146893_)))) - (___kont146892146893_))))))) + _tl146648146700_)) + (___match146936146937_ + _e146627146760_ + _hd146626146763_ + _tl146625146765_ + _e146630146768_ + _hd146629146771_ + _tl146628146773_ + _e146645146690_ + _hd146644146693_ + _tl146643146695_ + ___splice146887146888_ + _target146646146698_ + _tl146648146700_) + (___kont146889146890_)))) + (___kont146889146890_)))) + (___kont146889146890_))))) + (___kont146889146890_)))) + (___kont146889146890_))))))) (define gxc#optimize-match - (lambda (_stx145919_) - (let* ((_g145921145951_ - (lambda (_g145922145948_) + (lambda (_stx145916_) + (let* ((_g145918145948_ + (lambda (_g145919145945_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g145922145948_)))) - (_g145920146617_ - (lambda (_g145922145954_) + _g145919145945_)))) + (_g145917146614_ + (lambda (_g145919145951_) (if (let () (declare (not safe)) - (gx#stx-pair? _g145922145954_)) - (let ((_e145928145956_ + (gx#stx-pair? _g145919145951_)) + (let ((_e145925145953_ (let () (declare (not safe)) - (gx#stx-e _g145922145954_)))) - (let ((_hd145927145959_ + (gx#stx-e _g145919145951_)))) + (let ((_hd145924145956_ (let () (declare (not safe)) - (##car _e145928145956_))) - (_tl145926145961_ + (##car _e145925145953_))) + (_tl145923145958_ (let () (declare (not safe)) - (##cdr _e145928145956_)))) + (##cdr _e145925145953_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145927145959_)) + (gx#identifier? _hd145924145956_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd145927145959_)) + _hd145924145956_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145926145961_)) - (let ((_e145931145964_ + (gx#stx-pair? _tl145923145958_)) + (let ((_e145928145961_ (let () (declare (not safe)) - (gx#stx-e _tl145926145961_)))) - (let ((_hd145930145967_ + (gx#stx-e _tl145923145958_)))) + (let ((_hd145927145964_ (let () (declare (not safe)) - (##car _e145931145964_))) - (_tl145929145969_ + (##car _e145928145961_))) + (_tl145926145966_ (let () (declare (not safe)) - (##cdr _e145931145964_)))) + (##cdr _e145928145961_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145930145967_)) - (let ((_e145934145972_ + _hd145927145964_)) + (let ((_e145931145969_ (let () (declare (not safe)) (gx#stx-e - _hd145930145967_)))) - (let ((_hd145933145975_ + _hd145927145964_)))) + (let ((_hd145930145972_ (let () (declare (not safe)) - (##car _e145934145972_))) - (_tl145932145977_ + (##car _e145931145969_))) + (_tl145929145974_ (let () (declare (not safe)) - (##cdr _e145934145972_)))) + (##cdr _e145931145969_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145933145975_)) - (let ((_e145937145980_ + _hd145930145972_)) + (let ((_e145934145977_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd145933145975_)))) - (let ((_hd145936145983_ - (let () (declare (not safe)) (##car _e145937145980_))) - (_tl145935145985_ - (let () (declare (not safe)) (##cdr _e145937145980_)))) + (gx#stx-e _hd145930145972_)))) + (let ((_hd145933145980_ + (let () (declare (not safe)) (##car _e145934145977_))) + (_tl145932145982_ + (let () (declare (not safe)) (##cdr _e145934145977_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145936145983_)) - (let ((_e145940145988_ + (gx#stx-pair? _hd145933145980_)) + (let ((_e145937145985_ (let () (declare (not safe)) - (gx#stx-e _hd145936145983_)))) - (let ((_hd145939145991_ + (gx#stx-e _hd145933145980_)))) + (let ((_hd145936145988_ (let () (declare (not safe)) - (##car _e145940145988_))) - (_tl145938145993_ + (##car _e145937145985_))) + (_tl145935145990_ (let () (declare (not safe)) - (##cdr _e145940145988_)))) + (##cdr _e145937145985_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145938145993_)) + (gx#stx-null? _tl145935145990_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145935145985_)) - (let ((_e145943145996_ + (gx#stx-pair? _tl145932145982_)) + (let ((_e145940145993_ (let () (declare (not safe)) - (gx#stx-e _tl145935145985_)))) - (let ((_hd145942145999_ + (gx#stx-e _tl145932145982_)))) + (let ((_hd145939145996_ (let () (declare (not safe)) - (##car _e145943145996_))) - (_tl145941146001_ + (##car _e145940145993_))) + (_tl145938145998_ (let () (declare (not safe)) - (##cdr _e145943145996_)))) + (##cdr _e145940145993_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145941146001_)) + (gx#stx-null? _tl145938145998_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl145932145977_)) + _tl145929145974_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145929145969_)) - (let ((_e145946146004_ + _tl145926145966_)) + (let ((_e145943146001_ (let () (declare (not safe)) (gx#stx-e - _tl145929145969_)))) - (let ((_hd145945146007_ + _tl145926145966_)))) + (let ((_hd145942146004_ (let () (declare (not safe)) - (##car _e145946146004_))) - (_tl145944146009_ + (##car _e145943146001_))) + (_tl145941146006_ (let () (declare (not safe)) - (##cdr _e145946146004_)))) + (##cdr _e145943146001_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl145944146009_)) - ((lambda (_L146012_ + _tl145941146006_)) + ((lambda (_L146009_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L146013_ - _L146014_) - (let _lp146038_ ((_body146040_ _L146012_) - (_negation146041_ + _L146010_ + _L146011_) + (let _lp146035_ ((_body146037_ _L146009_) + (_negation146038_ (let () (declare (not safe)) - (cons _L146014_ _L146013_))) - (_clauses146042_ '()) - (_konts146043_ '())) - (let* ((___stx147122147123_ _body146040_) - (_g146046146086_ + (cons _L146011_ _L146010_))) + (_clauses146039_ '()) + (_konts146040_ '())) + (let* ((___stx147119147120_ _body146037_) + (_g146043146083_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147122147123_))))) - (let ((___kont147124147125_ - (lambda (_L146416_) - (let* ((___stx147058147059_ _L146416_) - (_g146430146460_ + ___stx147119147120_))))) + (let ((___kont147121147122_ + (lambda (_L146413_) + (let* ((___stx147055147056_ _L146413_) + (_g146427146457_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147058147059_))))) - (let ((___kont147060147061_ - (lambda (_L146556_ - _L146557_ - _L146558_) + ___stx147055147056_))))) + (let ((___kont147057147058_ + (lambda (_L146553_ + _L146554_ + _L146555_) (if (let () (declare (not safe)) - (null? _clauses146042_)) - (let* ((_negation146582146589_ - _negation146041_) - (_E146584146593_ + (null? _clauses146039_)) + (let* ((_negation146579146586_ + _negation146038_) + (_E146581146590_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _negation146582146589_)))) - (_K146585146599_ - (lambda (_negate146596_ _E146597_) - (let ((__tmp150012 - (let ((__tmp150013 - (let ((__tmp150023 - (let ((__tmp150024 - (let ((__tmp150026 + _negation146579146586_)))) + (_K146582146596_ + (lambda (_negate146593_ _E146594_) + (let ((__tmp150009 + (let ((__tmp150010 + (let ((__tmp150020 + (let ((__tmp150021 + (let ((__tmp150023 (let () (declare (not safe)) - (cons _E146597_ '()))) - (__tmp150025 + (cons _E146594_ '()))) + (__tmp150022 (let () (declare (not safe)) - (cons _negate146596_ + (cons _negate146593_ '())))) (declare (not safe)) - (cons __tmp150026 - __tmp150025)))) + (cons __tmp150023 + __tmp150022)))) (declare (not safe)) - (cons __tmp150024 '()))) - (__tmp150014 - (let ((__tmp150015 - (let ((__tmp150016 - (let ((__tmp150018 - (let ((__tmp150019 + (cons __tmp150021 '()))) + (__tmp150011 + (let ((__tmp150012 + (let ((__tmp150013 + (let ((__tmp150015 + (let ((__tmp150016 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150022 + (let ((__tmp150019 (let () (declare (not safe)) - (cons _L146558_ '()))) - (__tmp150020 - (let ((__tmp150021 + (cons _L146555_ '()))) + (__tmp150017 + (let ((__tmp150018 (let () (declare (not safe)) - (gxc#compile-e__0 _L146557_)))) + (gxc#compile-e__0 _L146554_)))) (declare (not safe)) - (cons __tmp150021 '())))) + (cons __tmp150018 '())))) (declare (not safe)) - (cons __tmp150022 __tmp150020)))) + (cons __tmp150019 __tmp150017)))) (declare (not safe)) - (cons __tmp150019 '()))) - (__tmp150017 - (let () (declare (not safe)) (cons _L146556_ '())))) + (cons __tmp150016 '()))) + (__tmp150014 + (let () (declare (not safe)) (cons _L146553_ '())))) (declare (not safe)) - (cons __tmp150018 __tmp150017)))) + (cons __tmp150015 __tmp150014)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp150016)))) + __tmp150013)))) (declare (not safe)) - (cons __tmp150015 '())))) + (cons __tmp150012 '())))) (declare (not safe)) - (cons __tmp150023 __tmp150014)))) + (cons __tmp150020 __tmp150011)))) (declare (not safe)) - (cons '%#let-values __tmp150013)))) + (cons '%#let-values __tmp150010)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150012 _stx145919_))))) + (gxc#xform-wrap-source __tmp150009 _stx145916_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation146582146589_)) - (let ((_hd146586146602_ + (##pair? _negation146579146586_)) + (let ((_hd146583146599_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _negation146582146589_))) - (_tl146587146604_ + (##car _negation146579146586_))) + (_tl146584146601_ (let () (declare (not safe)) - (##cdr _negation146582146589_)))) - (let* ((_E146607_ _hd146586146602_) - (_negate146609_ _tl146587146604_)) + (##cdr _negation146579146586_)))) + (let* ((_E146604_ _hd146583146599_) + (_negate146606_ _tl146584146601_)) (declare (not safe)) - (_K146585146599_ _negate146609_ _E146607_))) - (let () (declare (not safe)) (_E146584146593_)))) + (_K146582146596_ _negate146606_ _E146604_))) + (let () (declare (not safe)) (_E146581146590_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp150006 - (let ((__tmp150007 - (let ((__tmp150008 + (let ((__tmp150003 + (let ((__tmp150004 + (let ((__tmp150005 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150011 + (let ((__tmp150008 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp150009 - (let ((__tmp150010 + (__tmp150006 + (let ((__tmp150007 (let () (declare (not safe)) - (cons _L146556_ '())))) + (cons _L146553_ '())))) (declare (not safe)) - (cons '() __tmp150010)))) + (cons '() __tmp150007)))) (declare (not safe)) - (cons __tmp150011 __tmp150009)))) + (cons __tmp150008 __tmp150006)))) (declare (not safe)) - (cons '#f __tmp150008)))) + (cons '#f __tmp150005)))) (declare (not safe)) - (cons __tmp150007 _clauses146042_))) - (__tmp150003 - (let ((__tmp150004 - (let ((__tmp150005 + (cons __tmp150004 _clauses146039_))) + (__tmp150000 + (let ((__tmp150001 + (let ((__tmp150002 (let () (declare (not safe)) - (gxc#compile-e__0 _L146557_)))) + (gxc#compile-e__0 _L146554_)))) (declare (not safe)) - (cons _L146558_ __tmp150005)))) + (cons _L146555_ __tmp150002)))) (declare (not safe)) - (cons __tmp150004 _konts146043_)))) + (cons __tmp150001 _konts146040_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimize-match-body - _stx145919_ - _negation146041_ - __tmp150006 - __tmp150003))))) - (___kont147062147063_ + _stx145916_ + _negation146038_ + __tmp150003 + __tmp150000))))) + (___kont147059147060_ (lambda () - (let* ((_negation146466146473_ - _negation146041_) - (_E146468146477_ + (let* ((_negation146463146470_ + _negation146038_) + (_E146465146474_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _negation146466146473_)))) - (_K146469146483_ - (lambda (_negate146480_ - _E146481_) - (let ((__tmp150027 - (let ((__tmp150028 + _negation146463146470_)))) + (_K146466146480_ + (lambda (_negate146477_ + _E146478_) + (let ((__tmp150024 + (let ((__tmp150025 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150030 - (let ((__tmp150031 - (let ((__tmp150033 + (let ((__tmp150027 + (let ((__tmp150028 + (let ((__tmp150030 (let () (declare (not safe)) - (cons _E146481_ '()))) - (__tmp150032 + (cons _E146478_ '()))) + (__tmp150029 (let () (declare (not safe)) - (cons _negate146480_ + (cons _negate146477_ '())))) (declare (not safe)) - (cons __tmp150033 __tmp150032)))) + (cons __tmp150030 __tmp150029)))) (declare (not safe)) - (cons __tmp150031 '()))) - (__tmp150029 + (cons __tmp150028 '()))) + (__tmp150026 (let () (declare (not safe)) - (cons _L146416_ '())))) + (cons _L146413_ '())))) (declare (not safe)) - (cons __tmp150030 __tmp150029)))) + (cons __tmp150027 __tmp150026)))) (declare (not safe)) - (cons '%#let-values __tmp150028)))) + (cons '%#let-values __tmp150025)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150027 _stx145919_))))) + (gxc#xform-wrap-source __tmp150024 _stx145916_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation146466146473_)) - (let ((_hd146470146486_ + (##pair? _negation146463146470_)) + (let ((_hd146467146483_ (let () (declare (not safe)) - (##car _negation146466146473_))) - (_tl146471146488_ + (##car _negation146463146470_))) + (_tl146468146485_ (let () (declare (not safe)) - (##cdr _negation146466146473_)))) - (let* ((_E146491_ - _hd146470146486_) - (_negate146493_ - _tl146471146488_)) + (##cdr _negation146463146470_)))) + (let* ((_E146488_ + _hd146467146483_) + (_negate146490_ + _tl146468146485_)) (declare (not safe)) - (_K146469146483_ - _negate146493_ - _E146491_))) + (_K146466146480_ + _negate146490_ + _E146488_))) (let () (declare (not safe)) - (_E146468146477_))))))) - (let ((_g146429146495_ + (_E146465146474_))))))) + (let ((_g146426146492_ (lambda () (if (let () (declare (not safe)) - (null? _clauses146042_)) - (___kont147062147063_) + (null? _clauses146039_)) + (___kont147059147060_) (let () (declare (not safe)) - (_g146430146460_)))))) + (_g146427146457_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx147058147059_)) - (let ((_e146437146500_ + ___stx147055147056_)) + (let ((_e146434146497_ (let () (declare (not safe)) (gx#stx-e - ___stx147058147059_)))) - (let ((_tl146435146505_ + ___stx147055147056_)))) + (let ((_tl146432146502_ (let () (declare (not safe)) - (##cdr _e146437146500_))) - (_hd146436146503_ + (##cdr _e146434146497_))) + (_hd146433146500_ (let () (declare (not safe)) - (##car _e146437146500_)))) + (##car _e146434146497_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd146436146503_)) + _hd146433146500_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd146436146503_)) + _hd146433146500_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146435146505_)) - (let ((_e146440146508_ + _tl146432146502_)) + (let ((_e146437146505_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl146435146505_)))) - (let ((_tl146438146513_ + (gx#stx-e _tl146432146502_)))) + (let ((_tl146435146510_ (let () (declare (not safe)) - (##cdr _e146440146508_))) - (_hd146439146511_ + (##cdr _e146437146505_))) + (_hd146436146508_ (let () (declare (not safe)) - (##car _e146440146508_)))) + (##car _e146437146505_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146439146511_)) - (let ((_e146443146516_ + (gx#stx-pair? _hd146436146508_)) + (let ((_e146440146513_ (let () (declare (not safe)) - (gx#stx-e _hd146439146511_)))) - (let ((_tl146441146521_ + (gx#stx-e _hd146436146508_)))) + (let ((_tl146438146518_ (let () (declare (not safe)) - (##cdr _e146443146516_))) - (_hd146442146519_ + (##cdr _e146440146513_))) + (_hd146439146516_ (let () (declare (not safe)) - (##car _e146443146516_)))) + (##car _e146440146513_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146442146519_)) - (let ((_e146446146524_ + (gx#stx-pair? _hd146439146516_)) + (let ((_e146443146521_ (let () (declare (not safe)) - (gx#stx-e _hd146442146519_)))) - (let ((_tl146444146529_ + (gx#stx-e _hd146439146516_)))) + (let ((_tl146441146526_ (let () (declare (not safe)) - (##cdr _e146446146524_))) - (_hd146445146527_ + (##cdr _e146443146521_))) + (_hd146442146524_ (let () (declare (not safe)) - (##car _e146446146524_)))) + (##car _e146443146521_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146445146527_)) - (let ((_e146449146532_ + (gx#stx-pair? _hd146442146524_)) + (let ((_e146446146529_ (let () (declare (not safe)) (gx#stx-e - _hd146445146527_)))) - (let ((_tl146447146537_ + _hd146442146524_)))) + (let ((_tl146444146534_ (let () (declare (not safe)) - (##cdr _e146449146532_))) - (_hd146448146535_ + (##cdr _e146446146529_))) + (_hd146445146532_ (let () (declare (not safe)) - (##car _e146449146532_)))) + (##car _e146446146529_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146447146537_)) + _tl146444146534_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146444146529_)) - (let ((_e146452146540_ + _tl146441146526_)) + (let ((_e146449146537_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl146444146529_)))) - (let ((_tl146450146545_ - (let () (declare (not safe)) (##cdr _e146452146540_))) - (_hd146451146543_ + (gx#stx-e _tl146441146526_)))) + (let ((_tl146447146542_ + (let () (declare (not safe)) (##cdr _e146449146537_))) + (_hd146448146540_ (let () (declare (not safe)) - (##car _e146452146540_)))) + (##car _e146449146537_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146450146545_)) + (gx#stx-null? _tl146447146542_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl146441146521_)) + (gx#stx-null? _tl146438146518_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146438146513_)) - (let ((_e146455146548_ + (gx#stx-pair? _tl146435146510_)) + (let ((_e146452146545_ (let () (declare (not safe)) - (gx#stx-e _tl146438146513_)))) - (let ((_tl146453146553_ + (gx#stx-e _tl146435146510_)))) + (let ((_tl146450146550_ (let () (declare (not safe)) - (##cdr _e146455146548_))) - (_hd146454146551_ + (##cdr _e146452146545_))) + (_hd146451146548_ (let () (declare (not safe)) - (##car _e146455146548_)))) + (##car _e146452146545_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146453146553_)) - (___kont147060147061_ - _hd146454146551_ - _hd146451146543_ - _hd146448146535_) + (gx#stx-null? _tl146450146550_)) + (___kont147057147058_ + _hd146451146548_ + _hd146448146540_ + _hd146445146532_) (let () (declare (not safe)) - (_g146429146495_))))) + (_g146426146492_))))) (let () (declare (not safe)) - (_g146429146495_))) - (let () (declare (not safe)) (_g146429146495_))) - (let () (declare (not safe)) (_g146429146495_))))) - (let () (declare (not safe)) (_g146429146495_))) + (_g146426146492_))) + (let () (declare (not safe)) (_g146426146492_))) + (let () (declare (not safe)) (_g146426146492_))))) + (let () (declare (not safe)) (_g146426146492_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146429146495_))))) + (_g146426146492_))))) (let () (declare (not safe)) - (_g146429146495_))))) + (_g146426146492_))))) (let () (declare (not safe)) - (_g146429146495_))))) - (let () (declare (not safe)) (_g146429146495_))))) - (let () (declare (not safe)) (_g146429146495_))) - (let () (declare (not safe)) (_g146429146495_))) + (_g146426146492_))))) + (let () (declare (not safe)) (_g146426146492_))))) + (let () (declare (not safe)) (_g146426146492_))) + (let () (declare (not safe)) (_g146426146492_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146429146495_))))) + (_g146426146492_))))) (let () (declare (not safe)) - (_g146429146495_)))))))) - (___kont147126147127_ - (lambda (_L146147_ _L146148_ _L146149_) - (let* ((___stx146942146943_ _L146148_) - (_g146176146225_ + (_g146426146492_)))))))) + (___kont147123147124_ + (lambda (_L146144_ _L146145_ _L146146_) + (let* ((___stx146939146940_ _L146145_) + (_g146173146222_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx146942146943_))))) - (let ((___kont146944146945_ - (lambda (_L146353_ - _L146354_ - _L146355_) - (let ((__tmp150037 - (let ((__tmp150038 - (let ((__tmp150039 + ___stx146939146940_))))) + (let ((___kont146941146942_ + (lambda (_L146350_ + _L146351_ + _L146352_) + (let ((__tmp150034 + (let ((__tmp150035 + (let ((__tmp150036 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150042 + (let ((__tmp150039 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp150040 - (let ((__tmp150041 + (__tmp150037 + (let ((__tmp150038 (let () (declare (not safe)) - (cons _L146353_ '())))) + (cons _L146350_ '())))) (declare (not safe)) - (cons '() __tmp150041)))) + (cons '() __tmp150038)))) (declare (not safe)) - (cons __tmp150042 __tmp150040)))) + (cons __tmp150039 __tmp150037)))) (declare (not safe)) - (cons _L146149_ __tmp150039)))) + (cons _L146146_ __tmp150036)))) (declare (not safe)) - (cons __tmp150038 _clauses146042_))) + (cons __tmp150035 _clauses146039_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp150034 - (let ((__tmp150035 - (let ((__tmp150036 + (__tmp150031 + (let ((__tmp150032 + (let ((__tmp150033 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L146354_)))) + (gxc#compile-e__0 _L146351_)))) (declare (not safe)) - (cons _L146355_ __tmp150036)))) + (cons _L146352_ __tmp150033)))) (declare (not safe)) - (cons __tmp150035 _konts146043_)))) + (cons __tmp150032 _konts146040_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp146038_ - _L146147_ - _negation146041_ - __tmp150037 - __tmp150034)))) - (___kont146946146947_ - (lambda (_L146254_) - (let ((__tmp150043 - (let ((__tmp150044 + (_lp146035_ + _L146144_ + _negation146038_ + __tmp150034 + __tmp150031)))) + (___kont146943146944_ + (lambda (_L146251_) + (let ((__tmp150040 + (let ((__tmp150041 (let () (declare (not safe)) (gxc#compile-e__0 - _L146254_)))) + _L146251_)))) (declare (not safe)) - (cons _L146149_ - __tmp150044)))) + (cons _L146146_ + __tmp150041)))) (declare (not safe)) - (_lp146038_ - _L146147_ - __tmp150043 - _clauses146042_ - _konts146043_))))) + (_lp146035_ + _L146144_ + __tmp150040 + _clauses146039_ + _konts146040_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx146942146943_)) - (let ((_e146183146273_ + (gx#stx-pair? ___stx146939146940_)) + (let ((_e146180146270_ (let () (declare (not safe)) (gx#stx-e - ___stx146942146943_)))) - (let ((_tl146181146278_ + ___stx146939146940_)))) + (let ((_tl146178146275_ (let () (declare (not safe)) - (##cdr _e146183146273_))) - (_hd146182146276_ + (##cdr _e146180146270_))) + (_hd146179146273_ (let () (declare (not safe)) - (##car _e146183146273_)))) + (##car _e146180146270_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd146182146276_)) + _hd146179146273_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd146182146276_)) + _hd146179146273_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146181146278_)) - (let ((_e146186146281_ + _tl146178146275_)) + (let ((_e146183146278_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl146181146278_)))) - (let ((_tl146184146286_ + (gx#stx-e _tl146178146275_)))) + (let ((_tl146181146283_ (let () (declare (not safe)) - (##cdr _e146186146281_))) - (_hd146185146284_ + (##cdr _e146183146278_))) + (_hd146182146281_ (let () (declare (not safe)) - (##car _e146186146281_)))) + (##car _e146183146278_)))) (if (let () (declare (not safe)) - (gx#stx-null? _hd146185146284_)) + (gx#stx-null? _hd146182146281_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146184146286_)) - (let ((_e146189146289_ + (gx#stx-pair? _tl146181146283_)) + (let ((_e146186146286_ (let () (declare (not safe)) - (gx#stx-e _tl146184146286_)))) - (let ((_tl146187146294_ + (gx#stx-e _tl146181146283_)))) + (let ((_tl146184146291_ (let () (declare (not safe)) - (##cdr _e146189146289_))) - (_hd146188146292_ + (##cdr _e146186146286_))) + (_hd146185146289_ (let () (declare (not safe)) - (##car _e146189146289_)))) + (##car _e146186146286_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146188146292_)) - (let ((_e146192146297_ + (gx#stx-pair? _hd146185146289_)) + (let ((_e146189146294_ (let () (declare (not safe)) - (gx#stx-e _hd146188146292_)))) - (let ((_tl146190146302_ + (gx#stx-e _hd146185146289_)))) + (let ((_tl146187146299_ (let () (declare (not safe)) - (##cdr _e146192146297_))) - (_hd146191146300_ + (##cdr _e146189146294_))) + (_hd146188146297_ (let () (declare (not safe)) - (##car _e146192146297_)))) + (##car _e146189146294_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd146191146300_)) + _hd146188146297_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd146191146300_)) + _hd146188146297_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146190146302_)) - (let ((_e146195146305_ + _tl146187146299_)) + (let ((_e146192146302_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl146190146302_)))) - (let ((_tl146193146310_ - (let () (declare (not safe)) (##cdr _e146195146305_))) - (_hd146194146308_ - (let () (declare (not safe)) (##car _e146195146305_)))) + (gx#stx-e _tl146187146299_)))) + (let ((_tl146190146307_ + (let () (declare (not safe)) (##cdr _e146192146302_))) + (_hd146191146305_ + (let () (declare (not safe)) (##car _e146192146302_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146194146308_)) - (let ((_e146198146313_ + (gx#stx-pair? _hd146191146305_)) + (let ((_e146195146310_ (let () (declare (not safe)) - (gx#stx-e _hd146194146308_)))) - (let ((_tl146196146318_ + (gx#stx-e _hd146191146305_)))) + (let ((_tl146193146315_ (let () (declare (not safe)) - (##cdr _e146198146313_))) - (_hd146197146316_ + (##cdr _e146195146310_))) + (_hd146194146313_ (let () (declare (not safe)) - (##car _e146198146313_)))) + (##car _e146195146310_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146197146316_)) - (let ((_e146201146321_ + (gx#stx-pair? _hd146194146313_)) + (let ((_e146198146318_ (let () (declare (not safe)) - (gx#stx-e _hd146197146316_)))) - (let ((_tl146199146326_ + (gx#stx-e _hd146194146313_)))) + (let ((_tl146196146323_ (let () (declare (not safe)) - (##cdr _e146201146321_))) - (_hd146200146324_ + (##cdr _e146198146318_))) + (_hd146197146321_ (let () (declare (not safe)) - (##car _e146201146321_)))) + (##car _e146198146318_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146200146324_)) - (let ((_e146204146329_ + (gx#stx-pair? _hd146197146321_)) + (let ((_e146201146326_ (let () (declare (not safe)) - (gx#stx-e _hd146200146324_)))) - (let ((_tl146202146334_ + (gx#stx-e _hd146197146321_)))) + (let ((_tl146199146331_ (let () (declare (not safe)) - (##cdr _e146204146329_))) - (_hd146203146332_ + (##cdr _e146201146326_))) + (_hd146200146329_ (let () (declare (not safe)) - (##car _e146204146329_)))) + (##car _e146201146326_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146202146334_)) + _tl146199146331_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146199146326_)) - (let ((_e146207146337_ + _tl146196146323_)) + (let ((_e146204146334_ (let () (declare (not safe)) (gx#stx-e - _tl146199146326_)))) - (let ((_tl146205146342_ + _tl146196146323_)))) + (let ((_tl146202146339_ (let () (declare (not safe)) - (##cdr _e146207146337_))) - (_hd146206146340_ + (##cdr _e146204146334_))) + (_hd146203146337_ (let () (declare (not safe)) - (##car _e146207146337_)))) + (##car _e146204146334_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146205146342_)) + _tl146202146339_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl146196146318_)) + (gx#stx-null? _tl146193146315_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146193146310_)) - (let ((_e146210146345_ + (gx#stx-pair? _tl146190146307_)) + (let ((_e146207146342_ (let () (declare (not safe)) - (gx#stx-e _tl146193146310_)))) - (let ((_tl146208146350_ + (gx#stx-e _tl146190146307_)))) + (let ((_tl146205146347_ (let () (declare (not safe)) - (##cdr _e146210146345_))) - (_hd146209146348_ + (##cdr _e146207146342_))) + (_hd146206146345_ (let () (declare (not safe)) - (##car _e146210146345_)))) + (##car _e146207146342_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146208146350_)) + (gx#stx-null? _tl146205146347_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl146187146294_)) - (___kont146944146945_ - _hd146209146348_ - _hd146206146340_ - _hd146203146332_) + (gx#stx-null? _tl146184146291_)) + (___kont146941146942_ + _hd146206146345_ + _hd146203146337_ + _hd146200146329_) (let () (declare (not safe)) - (_g146176146225_))) + (_g146173146222_))) (let () (declare (not safe)) - (_g146176146225_))))) - (let () (declare (not safe)) (_g146176146225_))) - (let () (declare (not safe)) (_g146176146225_))) - (let () (declare (not safe)) (_g146176146225_))))) + (_g146173146222_))))) + (let () (declare (not safe)) (_g146173146222_))) + (let () (declare (not safe)) (_g146173146222_))) + (let () (declare (not safe)) (_g146173146222_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146176146225_))) + (_g146173146222_))) (let () (declare (not safe)) - (_g146176146225_))))) + (_g146173146222_))))) (let () (declare (not safe)) - (_g146176146225_))))) + (_g146173146222_))))) (let () (declare (not safe)) - (_g146176146225_))))) - (let () (declare (not safe)) (_g146176146225_))))) - (let () (declare (not safe)) (_g146176146225_))) + (_g146173146222_))))) + (let () (declare (not safe)) (_g146173146222_))))) + (let () (declare (not safe)) (_g146173146222_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146176146225_))) + (_g146173146222_))) (let () (declare (not safe)) - (_g146176146225_))))) + (_g146173146222_))))) (let () (declare (not safe)) - (_g146176146225_))))) - (let () (declare (not safe)) (_g146176146225_))) - (let () (declare (not safe)) (_g146176146225_))))) - (let () (declare (not safe)) (_g146176146225_))) + (_g146173146222_))))) + (let () (declare (not safe)) (_g146173146222_))) + (let () (declare (not safe)) (_g146173146222_))))) + (let () (declare (not safe)) (_g146173146222_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#begin-annotation _hd146182146276_)) + (gx#stx-eq? '%#begin-annotation _hd146179146273_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146181146278_)) - (let ((_e146217146238_ + (gx#stx-pair? _tl146178146275_)) + (let ((_e146214146235_ (let () (declare (not safe)) - (gx#stx-e _tl146181146278_)))) - (let ((_tl146215146243_ + (gx#stx-e _tl146178146275_)))) + (let ((_tl146212146240_ (let () (declare (not safe)) - (##cdr _e146217146238_))) - (_hd146216146241_ + (##cdr _e146214146235_))) + (_hd146213146238_ (let () (declare (not safe)) - (##car _e146217146238_)))) + (##car _e146214146235_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd146216146241_)) + (gx#identifier? _hd146213146238_)) (if (let () (declare (not safe)) - (gx#stx-eq? '@match-else _hd146216146241_)) + (gx#stx-eq? '@match-else _hd146213146238_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146215146243_)) - (let ((_e146220146246_ + (gx#stx-pair? _tl146212146240_)) + (let ((_e146217146243_ (let () (declare (not safe)) - (gx#stx-e _tl146215146243_)))) - (let ((_tl146218146251_ + (gx#stx-e _tl146212146240_)))) + (let ((_tl146215146248_ (let () (declare (not safe)) - (##cdr _e146220146246_))) - (_hd146219146249_ + (##cdr _e146217146243_))) + (_hd146216146246_ (let () (declare (not safe)) - (##car _e146220146246_)))) + (##car _e146217146243_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146218146251_)) - (___kont146946146947_ - _hd146219146249_) + _tl146215146248_)) + (___kont146943146944_ + _hd146216146246_) (let () (declare (not safe)) - (_g146176146225_))))) + (_g146173146222_))))) (let () (declare (not safe)) - (_g146176146225_))) + (_g146173146222_))) (let () (declare (not safe)) - (_g146176146225_))) + (_g146173146222_))) (let () (declare (not safe)) - (_g146176146225_))))) - (let () (declare (not safe)) (_g146176146225_))) - (let () (declare (not safe)) (_g146176146225_)))) + (_g146173146222_))))) + (let () (declare (not safe)) (_g146173146222_))) + (let () (declare (not safe)) (_g146173146222_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146176146225_))))) + (_g146173146222_))))) (let () (declare (not safe)) - (_g146176146225_)))))))) + (_g146173146222_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx147122147123_)) - (let ((_e146051146392_ + (gx#stx-pair? ___stx147119147120_)) + (let ((_e146048146389_ (let () (declare (not safe)) - (gx#stx-e ___stx147122147123_)))) - (let ((_tl146049146397_ + (gx#stx-e ___stx147119147120_)))) + (let ((_tl146046146394_ (let () (declare (not safe)) - (##cdr _e146051146392_))) - (_hd146050146395_ + (##cdr _e146048146389_))) + (_hd146047146392_ (let () (declare (not safe)) - (##car _e146051146392_)))) + (##car _e146048146389_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd146050146395_)) + (gx#identifier? _hd146047146392_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin-annotation - _hd146050146395_)) + _hd146047146392_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146049146397_)) - (let ((_e146054146400_ + _tl146046146394_)) + (let ((_e146051146397_ (let () (declare (not safe)) (gx#stx-e - _tl146049146397_)))) - (let ((_tl146052146405_ + _tl146046146394_)))) + (let ((_tl146049146402_ (let () (declare (not safe)) - (##cdr _e146054146400_))) - (_hd146053146403_ + (##cdr _e146051146397_))) + (_hd146050146400_ (let () (declare (not safe)) - (##car _e146054146400_)))) + (##car _e146051146397_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd146053146403_)) + _hd146050146400_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-body - _hd146053146403_)) + _hd146050146400_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl146052146405_)) - (let ((_e146057146408_ + (gx#stx-pair? _tl146049146402_)) + (let ((_e146054146405_ (let () (declare (not safe)) - (gx#stx-e _tl146052146405_)))) - (let ((_tl146055146413_ + (gx#stx-e _tl146049146402_)))) + (let ((_tl146052146410_ (let () (declare (not safe)) - (##cdr _e146057146408_))) - (_hd146056146411_ + (##cdr _e146054146405_))) + (_hd146053146408_ (let () (declare (not safe)) - (##car _e146057146408_)))) + (##car _e146054146405_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146055146413_)) - (___kont147124147125_ _hd146056146411_) + (gx#stx-null? _tl146052146410_)) + (___kont147121147122_ _hd146053146408_) (let () (declare (not safe)) - (_g146046146086_))))) - (let () (declare (not safe)) (_g146046146086_))) - (let () (declare (not safe)) (_g146046146086_))) - (let () (declare (not safe)) (_g146046146086_))))) + (_g146043146083_))))) + (let () (declare (not safe)) (_g146043146083_))) + (let () (declare (not safe)) (_g146043146083_))) + (let () (declare (not safe)) (_g146043146083_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146046146086_))) + (_g146043146083_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd146050146395_)) + _hd146047146392_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146049146397_)) - (let ((_e146066146099_ + _tl146046146394_)) + (let ((_e146063146096_ (let () (declare (not safe)) (gx#stx-e - _tl146049146397_)))) - (let ((_tl146064146104_ + _tl146046146394_)))) + (let ((_tl146061146101_ (let () (declare (not safe)) - (##cdr _e146066146099_))) - (_hd146065146102_ + (##cdr _e146063146096_))) + (_hd146062146099_ (let () (declare (not safe)) - (##car _e146066146099_)))) + (##car _e146063146096_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd146065146102_)) - (let ((_e146069146107_ + _hd146062146099_)) + (let ((_e146066146104_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd146065146102_)))) - (let ((_tl146067146112_ + (gx#stx-e _hd146062146099_)))) + (let ((_tl146064146109_ (let () (declare (not safe)) - (##cdr _e146069146107_))) - (_hd146068146110_ + (##cdr _e146066146104_))) + (_hd146065146107_ (let () (declare (not safe)) - (##car _e146069146107_)))) + (##car _e146066146104_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146068146110_)) - (let ((_e146072146115_ + (gx#stx-pair? _hd146065146107_)) + (let ((_e146069146112_ (let () (declare (not safe)) - (gx#stx-e _hd146068146110_)))) - (let ((_tl146070146120_ + (gx#stx-e _hd146065146107_)))) + (let ((_tl146067146117_ (let () (declare (not safe)) - (##cdr _e146072146115_))) - (_hd146071146118_ + (##cdr _e146069146112_))) + (_hd146068146115_ (let () (declare (not safe)) - (##car _e146072146115_)))) + (##car _e146069146112_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146071146118_)) - (let ((_e146075146123_ + (gx#stx-pair? _hd146068146115_)) + (let ((_e146072146120_ (let () (declare (not safe)) - (gx#stx-e _hd146071146118_)))) - (let ((_tl146073146128_ + (gx#stx-e _hd146068146115_)))) + (let ((_tl146070146125_ (let () (declare (not safe)) - (##cdr _e146075146123_))) - (_hd146074146126_ + (##cdr _e146072146120_))) + (_hd146071146123_ (let () (declare (not safe)) - (##car _e146075146123_)))) + (##car _e146072146120_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146073146128_)) + (gx#stx-null? _tl146070146125_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146070146120_)) - (let ((_e146078146131_ + _tl146067146117_)) + (let ((_e146075146128_ (let () (declare (not safe)) (gx#stx-e - _tl146070146120_)))) - (let ((_tl146076146136_ + _tl146067146117_)))) + (let ((_tl146073146133_ (let () (declare (not safe)) - (##cdr _e146078146131_))) - (_hd146077146134_ + (##cdr _e146075146128_))) + (_hd146074146131_ (let () (declare (not safe)) - (##car _e146078146131_)))) + (##car _e146075146128_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146076146136_)) + _tl146073146133_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl146067146112_)) + _tl146064146109_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl146064146104_)) - (let ((_e146081146139_ + (gx#stx-pair? _tl146061146101_)) + (let ((_e146078146136_ (let () (declare (not safe)) - (gx#stx-e _tl146064146104_)))) - (let ((_tl146079146144_ + (gx#stx-e _tl146061146101_)))) + (let ((_tl146076146141_ (let () (declare (not safe)) - (##cdr _e146081146139_))) - (_hd146080146142_ + (##cdr _e146078146136_))) + (_hd146077146139_ (let () (declare (not safe)) - (##car _e146081146139_)))) + (##car _e146078146136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146079146144_)) - (___kont147126147127_ - _hd146080146142_ - _hd146077146134_ - _hd146074146126_) + (gx#stx-null? _tl146076146141_)) + (___kont147123147124_ + _hd146077146139_ + _hd146074146131_ + _hd146071146123_) (let () (declare (not safe)) - (_g146046146086_))))) - (let () (declare (not safe)) (_g146046146086_))) - (let () (declare (not safe)) (_g146046146086_))) - (let () (declare (not safe)) (_g146046146086_))))) + (_g146043146083_))))) + (let () (declare (not safe)) (_g146043146083_))) + (let () (declare (not safe)) (_g146043146083_))) + (let () (declare (not safe)) (_g146043146083_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146046146086_))) + (_g146043146083_))) (let () (declare (not safe)) - (_g146046146086_))))) + (_g146043146083_))))) (let () (declare (not safe)) - (_g146046146086_))))) - (let () (declare (not safe)) (_g146046146086_))))) - (let () (declare (not safe)) (_g146046146086_))))) + (_g146043146083_))))) + (let () (declare (not safe)) (_g146043146083_))))) + (let () (declare (not safe)) (_g146043146083_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146046146086_))) + (_g146043146083_))) (let () (declare (not safe)) - (_g146046146086_)))) + (_g146043146083_)))) (let () (declare (not safe)) - (_g146046146086_))))) + (_g146043146083_))))) (let () (declare (not safe)) - (_g146046146086_))))))) - _hd145945146007_ - _hd145942145999_ - _hd145939145991_) + (_g146043146083_))))))) + _hd145942146004_ + _hd145939145996_ + _hd145936145988_) (let () (declare (not safe)) - (_g145921145951_ _g145922145954_))))) + (_g145918145948_ _g145919145951_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g145921145951_ - _g145922145954_))) + (_g145918145948_ + _g145919145951_))) (let () (declare (not safe)) - (_g145921145951_ - _g145922145954_))) + (_g145918145948_ + _g145919145951_))) (let () (declare (not safe)) - (_g145921145951_ - _g145922145954_))))) + (_g145918145948_ + _g145919145951_))))) (let () (declare (not safe)) - (_g145921145951_ _g145922145954_))) + (_g145918145948_ _g145919145951_))) (let () (declare (not safe)) - (_g145921145951_ _g145922145954_))))) + (_g145918145948_ _g145919145951_))))) (let () (declare (not safe)) - (_g145921145951_ _g145922145954_))))) + (_g145918145948_ _g145919145951_))))) (let () (declare (not safe)) - (_g145921145951_ _g145922145954_))))) + (_g145918145948_ _g145919145951_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g145921145951_ - _g145922145954_))))) + (_g145918145948_ + _g145919145951_))))) (let () (declare (not safe)) - (_g145921145951_ _g145922145954_))) + (_g145918145948_ _g145919145951_))) (let () (declare (not safe)) - (_g145921145951_ _g145922145954_))) + (_g145918145948_ _g145919145951_))) (let () (declare (not safe)) - (_g145921145951_ _g145922145954_))))) + (_g145918145948_ _g145919145951_))))) (let () (declare (not safe)) - (_g145921145951_ _g145922145954_)))))) + (_g145918145948_ _g145919145951_)))))) (declare (not safe)) - (_g145920146617_ _stx145919_)))) + (_g145917146614_ _stx145916_)))) (define gxc#optimize-match-body - (lambda (_stx145625_ _negation145626_ _clauses145627_ _konts145628_) - (letrec ((_push-variables145630_ - (lambda (_clause145877_ _kont145878_) - (let ((_clause145879145889_ _clause145877_) - (_kont145880145891_ _kont145878_)) - (let* ((_E145882145895_ + (lambda (_stx145622_ _negation145623_ _clauses145624_ _konts145625_) + (letrec ((_push-variables145627_ + (lambda (_clause145874_ _kont145875_) + (let ((_clause145876145886_ _clause145874_) + (_kont145877145888_ _kont145875_)) + (let* ((_E145879145892_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clause145879145889_ - _kont145880145891_)))) - (_K145883145902_ - (lambda (_clause-lambda145898_ - _clause-name145899_ - _K145900_) - (let ((__tmp150045 + _clause145876145886_ + _kont145877145888_)))) + (_K145880145899_ + (lambda (_clause-lambda145895_ + _clause-name145896_ + _K145897_) + (let ((__tmp150042 (let () (declare (not safe)) (gxc#apply-push-match-vars - _clause-lambda145898_ + _clause-lambda145895_ '() - _K145900_)))) + _K145897_)))) (declare (not safe)) - (cons _clause-name145899_ __tmp150045))))) + (cons _clause-name145896_ __tmp150042))))) (if (let () (declare (not safe)) - (##pair? _clause145879145889_)) - (let ((_hd145886145905_ + (##pair? _clause145876145886_)) + (let ((_hd145883145902_ (let () (declare (not safe)) - (##car _clause145879145889_))) - (_tl145887145907_ + (##car _clause145876145886_))) + (_tl145884145904_ (let () (declare (not safe)) - (##cdr _clause145879145889_)))) - (let* ((_clause-name145910_ _hd145886145905_) - (_clause-lambda145912_ _tl145887145907_)) + (##cdr _clause145876145886_)))) + (let* ((_clause-name145907_ _hd145883145902_) + (_clause-lambda145909_ _tl145884145904_)) (if (let () (declare (not safe)) - (##pair? _kont145880145891_)) - (let* ((_hd145884145914_ + (##pair? _kont145877145888_)) + (let* ((_hd145881145911_ (let () (declare (not safe)) - (##car _kont145880145891_))) - (_K145917_ _hd145884145914_)) + (##car _kont145877145888_))) + (_K145914_ _hd145881145911_)) (declare (not safe)) - (_K145883145902_ - _clause-lambda145912_ - _clause-name145910_ - _K145917_)) + (_K145880145899_ + _clause-lambda145909_ + _clause-name145907_ + _K145914_)) (let () (declare (not safe)) - (_E145882145895_))))) + (_E145879145892_))))) (let () (declare (not safe)) - (_E145882145895_))))))) - (_start-match145631_ - (lambda (_kont145811_) - (let* ((_g145813145829_ - (lambda (_g145814145826_) + (_E145879145892_))))))) + (_start-match145628_ + (lambda (_kont145808_) + (let* ((_g145810145826_ + (lambda (_g145811145823_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g145814145826_)))) - (_g145812145874_ - (lambda (_g145814145832_) + _g145811145823_)))) + (_g145809145871_ + (lambda (_g145811145829_) (if (let () (declare (not safe)) - (gx#stx-pair? _g145814145832_)) - (let ((_e145818145834_ + (gx#stx-pair? _g145811145829_)) + (let ((_e145815145831_ (let () (declare (not safe)) - (gx#stx-e _g145814145832_)))) - (let ((_hd145817145837_ + (gx#stx-e _g145811145829_)))) + (let ((_hd145814145834_ (let () (declare (not safe)) - (##car _e145818145834_))) - (_tl145816145839_ + (##car _e145815145831_))) + (_tl145813145836_ (let () (declare (not safe)) - (##cdr _e145818145834_)))) + (##cdr _e145815145831_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145817145837_)) + (gx#identifier? _hd145814145834_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd145817145837_)) + _hd145814145834_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145816145839_)) - (let ((_e145821145842_ + _tl145813145836_)) + (let ((_e145818145839_ (let () (declare (not safe)) (gx#stx-e - _tl145816145839_)))) - (let ((_hd145820145845_ + _tl145813145836_)))) + (let ((_hd145817145842_ (let () (declare (not safe)) - (##car _e145821145842_))) - (_tl145819145847_ + (##car _e145818145839_))) + (_tl145816145844_ (let () (declare (not safe)) - (##cdr _e145821145842_)))) + (##cdr _e145818145839_)))) (if (let () (declare (not safe)) (gx#stx-null? - _hd145820145845_)) + _hd145817145842_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl145819145847_)) - (let ((_e145824145850_ + (gx#stx-pair? _tl145816145844_)) + (let ((_e145821145847_ (let () (declare (not safe)) - (gx#stx-e _tl145819145847_)))) - (let ((_hd145823145853_ + (gx#stx-e _tl145816145844_)))) + (let ((_hd145820145850_ (let () (declare (not safe)) - (##car _e145824145850_))) - (_tl145822145855_ + (##car _e145821145847_))) + (_tl145819145852_ (let () (declare (not safe)) - (##cdr _e145824145850_)))) + (##cdr _e145821145847_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145822145855_)) - ((lambda (_L145858_) _L145858_) _hd145823145853_) + (gx#stx-null? _tl145819145852_)) + ((lambda (_L145855_) _L145855_) _hd145820145850_) (let () (declare (not safe)) - (_g145813145829_ _g145814145832_))))) + (_g145810145826_ _g145811145829_))))) (let () (declare (not safe)) - (_g145813145829_ _g145814145832_))) + (_g145810145826_ _g145811145829_))) (let () (declare (not safe)) - (_g145813145829_ _g145814145832_))))) + (_g145810145826_ _g145811145829_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g145813145829_ - _g145814145832_))) + (_g145810145826_ + _g145811145829_))) (let () (declare (not safe)) - (_g145813145829_ - _g145814145832_))) + (_g145810145826_ + _g145811145829_))) (let () (declare (not safe)) - (_g145813145829_ - _g145814145832_))))) + (_g145810145826_ + _g145811145829_))))) (let () (declare (not safe)) - (_g145813145829_ _g145814145832_)))))) + (_g145810145826_ _g145811145829_)))))) (declare (not safe)) - (_g145812145874_ _kont145811_)))) - (_match-body145632_ - (lambda (_blocks145708_) - (let* ((_blocks145709145718_ _blocks145708_) - (_E145711145722_ + (_g145809145871_ _kont145808_)))) + (_match-body145629_ + (lambda (_blocks145705_) + (let* ((_blocks145706145715_ _blocks145705_) + (_E145708145719_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _blocks145709145718_)))) - (_K145712145794_ - (lambda (_rest145725_ _start145726_) - (let _lp145728_ ((_rest145730_ _rest145725_) - (_body145731_ + _blocks145706145715_)))) + (_K145709145791_ + (lambda (_rest145722_ _start145723_) + (let _lp145725_ ((_rest145727_ _rest145722_) + (_body145728_ (let () (declare (not safe)) - (_start-match145631_ - _start145726_)))) - (let* ((_rest145732145740_ _rest145730_) - (_else145734145748_ - (lambda () _body145731_)) - (_K145736145782_ - (lambda (_rest145751_ _block145752_) - (let* ((_block145753145760_ - _block145752_) - (_E145755145764_ + (_start-match145628_ + _start145723_)))) + (let* ((_rest145729145737_ _rest145727_) + (_else145731145745_ + (lambda () _body145728_)) + (_K145733145779_ + (lambda (_rest145748_ _block145749_) + (let* ((_block145750145757_ + _block145749_) + (_E145752145761_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block145753145760_)))) - (_K145756145770_ - (lambda (_kont145767_ - _K145768_) - (let ((__tmp150046 - (let ((__tmp150047 + _block145750145757_)))) + (_K145753145767_ + (lambda (_kont145764_ + _K145765_) + (let ((__tmp150043 + (let ((__tmp150044 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150049 - (let ((__tmp150050 - (let ((__tmp150052 + (let ((__tmp150046 + (let ((__tmp150047 + (let ((__tmp150049 (let () (declare (not safe)) - (cons _K145768_ '()))) - (__tmp150051 + (cons _K145765_ '()))) + (__tmp150048 (let () (declare (not safe)) - (cons _kont145767_ '())))) + (cons _kont145764_ '())))) (declare (not safe)) - (cons __tmp150052 __tmp150051)))) + (cons __tmp150049 __tmp150048)))) (declare (not safe)) - (cons __tmp150050 '()))) - (__tmp150048 + (cons __tmp150047 '()))) + (__tmp150045 (let () (declare (not safe)) - (cons _body145731_ '())))) + (cons _body145728_ '())))) (declare (not safe)) - (cons __tmp150049 __tmp150048)))) + (cons __tmp150046 __tmp150045)))) (declare (not safe)) - (cons '%#let-values __tmp150047)))) + (cons '%#let-values __tmp150044)))) (declare (not safe)) - (_lp145728_ _rest145751_ __tmp150046))))) + (_lp145725_ _rest145748_ __tmp150043))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _block145753145760_)) - (let ((_hd145757145773_ + (##pair? _block145750145757_)) + (let ((_hd145754145770_ (let () (declare (not safe)) - (##car _block145753145760_))) - (_tl145758145775_ + (##car _block145750145757_))) + (_tl145755145772_ (let () (declare (not safe)) - (##cdr _block145753145760_)))) - (let* ((_K145778_ - _hd145757145773_) - (_kont145780_ - _tl145758145775_)) + (##cdr _block145750145757_)))) + (let* ((_K145775_ + _hd145754145770_) + (_kont145777_ + _tl145755145772_)) (declare (not safe)) - (_K145756145770_ - _kont145780_ - _K145778_))) + (_K145753145767_ + _kont145777_ + _K145775_))) (let () (declare (not safe)) - (_E145755145764_))))))) + (_E145752145761_))))))) (if (let () (declare (not safe)) - (##pair? _rest145732145740_)) - (let ((_hd145737145785_ + (##pair? _rest145729145737_)) + (let ((_hd145734145782_ (let () (declare (not safe)) - (##car _rest145732145740_))) - (_tl145738145787_ + (##car _rest145729145737_))) + (_tl145735145784_ (let () (declare (not safe)) - (##cdr _rest145732145740_)))) - (let* ((_block145790_ _hd145737145785_) - (_rest145792_ _tl145738145787_)) + (##cdr _rest145729145737_)))) + (let* ((_block145787_ _hd145734145782_) + (_rest145789_ _tl145735145784_)) (declare (not safe)) - (_K145736145782_ - _rest145792_ - _block145790_))) + (_K145733145779_ + _rest145789_ + _block145787_))) (let () (declare (not safe)) - (_else145734145748_)))))))) + (_else145731145745_)))))))) (if (let () (declare (not safe)) - (##pair? _blocks145709145718_)) - (let ((_hd145713145797_ + (##pair? _blocks145706145715_)) + (let ((_hd145710145794_ (let () (declare (not safe)) - (##car _blocks145709145718_))) - (_tl145714145799_ + (##car _blocks145706145715_))) + (_tl145711145796_ (let () (declare (not safe)) - (##cdr _blocks145709145718_)))) + (##cdr _blocks145706145715_)))) (if (let () (declare (not safe)) - (##pair? _hd145713145797_)) - (let ((_hd145715145802_ + (##pair? _hd145710145794_)) + (let ((_hd145712145799_ (let () (declare (not safe)) - (##car _hd145713145797_))) - (_tl145716145804_ + (##car _hd145710145794_))) + (_tl145713145801_ (let () (declare (not safe)) - (##cdr _hd145713145797_)))) + (##cdr _hd145710145794_)))) (if (let () (declare (not safe)) - (##eq? _hd145715145802_ '#f)) - (let* ((_start145807_ _tl145716145804_) - (_rest145809_ _tl145714145799_)) + (##eq? _hd145712145799_ '#f)) + (let* ((_start145804_ _tl145713145801_) + (_rest145806_ _tl145711145796_)) (declare (not safe)) - (_K145712145794_ - _rest145809_ - _start145807_)) + (_K145709145791_ + _rest145806_ + _start145804_)) (let () (declare (not safe)) - (_E145711145722_)))) + (_E145708145719_)))) (let () (declare (not safe)) - (_E145711145722_)))) - (let () (declare (not safe)) (_E145711145722_))))))) - (let ((__tmp150054 + (_E145708145719_)))) + (let () (declare (not safe)) (_E145708145719_))))))) + (let ((__tmp150051 (lambda () - (let* ((_clauses145635_ - (map _push-variables145630_ - _clauses145627_ - _konts145628_)) - (_blocks145637_ + (let* ((_clauses145632_ + (map _push-variables145627_ + _clauses145624_ + _konts145625_)) + (_blocks145634_ (let () (declare (not safe)) (gxc#optimize-match-basic-blocks - _clauses145635_))) - (_blocks145639_ + _clauses145632_))) + (_blocks145636_ (let () (declare (not safe)) (gxc#optimize-match-fold-basic-blocks - _blocks145637_))) - (_body145641_ + _blocks145634_))) + (_body145638_ (let () (declare (not safe)) - (_match-body145632_ _blocks145639_))) - (_bind145675_ - (map (lambda (_e145642145644_) - (let* ((_g145646145653_ _e145642145644_) - (_E145648145657_ + (_match-body145629_ _blocks145636_))) + (_bind145672_ + (map (lambda (_e145639145641_) + (let* ((_g145643145650_ _e145639145641_) + (_E145645145654_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _g145646145653_)))) - (_K145649145663_ - (lambda (_kont145660_ _K145661_) - (let ((__tmp150056 + _g145643145650_)))) + (_K145646145660_ + (lambda (_kont145657_ _K145658_) + (let ((__tmp150053 (let () (declare (not safe)) - (cons _K145661_ '()))) - (__tmp150055 + (cons _K145658_ '()))) + (__tmp150052 (let () (declare (not safe)) - (cons _kont145660_ '())))) + (cons _kont145657_ '())))) (declare (not safe)) - (cons __tmp150056 - __tmp150055))))) + (cons __tmp150053 + __tmp150052))))) (if (let () (declare (not safe)) - (##pair? _g145646145653_)) - (let ((_hd145650145666_ + (##pair? _g145643145650_)) + (let ((_hd145647145663_ (let () (declare (not safe)) - (##car _g145646145653_))) - (_tl145651145668_ + (##car _g145643145650_))) + (_tl145648145665_ (let () (declare (not safe)) - (##cdr _g145646145653_)))) - (let* ((_K145671_ _hd145650145666_) - (_kont145673_ - _tl145651145668_)) + (##cdr _g145643145650_)))) + (let* ((_K145668_ _hd145647145663_) + (_kont145670_ + _tl145648145665_)) (declare (not safe)) - (_K145649145663_ - _kont145673_ - _K145671_))) + (_K145646145660_ + _kont145670_ + _K145668_))) (let () (declare (not safe)) - (_E145648145657_))))) - _konts145628_)) - (_negate145705_ - (let* ((_negation145676145683_ _negation145626_) - (_E145678145687_ + (_E145645145654_))))) + _konts145625_)) + (_negate145702_ + (let* ((_negation145673145680_ _negation145623_) + (_E145675145684_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _negation145676145683_)))) - (_K145679145693_ - (lambda (_kont145690_ _K145691_) - (let ((__tmp150058 + _negation145673145680_)))) + (_K145676145690_ + (lambda (_kont145687_ _K145688_) + (let ((__tmp150055 (let () (declare (not safe)) - (cons _K145691_ '()))) - (__tmp150057 + (cons _K145688_ '()))) + (__tmp150054 (let () (declare (not safe)) - (cons _kont145690_ '())))) + (cons _kont145687_ '())))) (declare (not safe)) - (cons __tmp150058 __tmp150057))))) + (cons __tmp150055 __tmp150054))))) (if (let () (declare (not safe)) - (##pair? _negation145676145683_)) - (let ((_hd145680145696_ + (##pair? _negation145673145680_)) + (let ((_hd145677145693_ (let () (declare (not safe)) - (##car _negation145676145683_))) - (_tl145681145698_ + (##car _negation145673145680_))) + (_tl145678145695_ (let () (declare (not safe)) - (##cdr _negation145676145683_)))) - (let* ((_K145701_ _hd145680145696_) - (_kont145703_ _tl145681145698_)) + (##cdr _negation145673145680_)))) + (let* ((_K145698_ _hd145677145693_) + (_kont145700_ _tl145678145695_)) (declare (not safe)) - (_K145679145693_ _kont145703_ _K145701_))) + (_K145676145690_ _kont145700_ _K145698_))) (let () (declare (not safe)) - (_E145678145687_)))))) - (let ((__tmp150059 - (let ((__tmp150060 - (let ((__tmp150065 + (_E145675145684_)))))) + (let ((__tmp150056 + (let ((__tmp150057 + (let ((__tmp150062 (let () (declare (not safe)) - (cons _negate145705_ '()))) - (__tmp150061 - (let ((__tmp150062 - (let ((__tmp150063 - (let ((__tmp150064 + (cons _negate145702_ '()))) + (__tmp150058 + (let ((__tmp150059 + (let ((__tmp150060 + (let ((__tmp150061 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body145641_ '())))) + (cons _body145638_ '())))) (declare (not safe)) - (cons _bind145675_ __tmp150064)))) + (cons _bind145672_ __tmp150061)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp150063)))) + __tmp150060)))) (declare (not safe)) - (cons __tmp150062 '())))) + (cons __tmp150059 '())))) (declare (not safe)) - (cons __tmp150065 __tmp150061)))) + (cons __tmp150062 __tmp150058)))) (declare (not safe)) - (cons '%#let-values __tmp150060)))) + (cons '%#let-values __tmp150057)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150059 _stx145625_))))) - (__tmp150053 - (let ((__obj149987 + (gxc#xform-wrap-source __tmp150056 _stx145622_))))) + (__tmp150050 + (let ((__obj149984 (let () (declare (not safe)) (##structure @@ -2194,2112 +2194,2112 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj149987) - __obj149987))) + (gx#local-context:::init! __obj149984) + __obj149984))) (declare (not safe)) (call-with-parameters - __tmp150054 + __tmp150051 gx#current-expander-context - __tmp150053))))) + __tmp150050))))) (define gxc#optimize-match-basic-blocks - (lambda (_clauses145585_) - (let _lp145587_ ((_rest145589_ _clauses145585_) (_blocks145590_ '())) - (let* ((_rest145591145599_ _rest145589_) - (_else145593145607_ (lambda () (reverse _blocks145590_))) - (_K145595145613_ - (lambda (_rest145610_ _clause145611_) - (let ((__tmp150066 + (lambda (_clauses145582_) + (let _lp145584_ ((_rest145586_ _clauses145582_) (_blocks145587_ '())) + (let* ((_rest145588145596_ _rest145586_) + (_else145590145604_ (lambda () (reverse _blocks145587_))) + (_K145592145610_ + (lambda (_rest145607_ _clause145608_) + (let ((__tmp150063 (let () (declare (not safe)) (gxc#optimize-match-lift-basic-blocks - _clause145611_ - _blocks145590_)))) + _clause145608_ + _blocks145587_)))) (declare (not safe)) - (_lp145587_ _rest145610_ __tmp150066))))) - (if (let () (declare (not safe)) (##pair? _rest145591145599_)) - (let ((_hd145596145616_ + (_lp145584_ _rest145607_ __tmp150063))))) + (if (let () (declare (not safe)) (##pair? _rest145588145596_)) + (let ((_hd145593145613_ (let () (declare (not safe)) - (##car _rest145591145599_))) - (_tl145597145618_ + (##car _rest145588145596_))) + (_tl145594145615_ (let () (declare (not safe)) - (##cdr _rest145591145599_)))) - (let* ((_clause145621_ _hd145596145616_) - (_rest145623_ _tl145597145618_)) + (##cdr _rest145588145596_)))) + (let* ((_clause145618_ _hd145593145613_) + (_rest145620_ _tl145594145615_)) (declare (not safe)) - (_K145595145613_ _rest145623_ _clause145621_))) - (let () (declare (not safe)) (_else145593145607_))))))) + (_K145592145610_ _rest145620_ _clause145618_))) + (let () (declare (not safe)) (_else145590145604_))))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_clause144929_ _blocks144930_) - (letrec ((_bind->args144932_ - (lambda (_bind145580_) - (let ((__tmp150067 - (lambda (_b145582_ _r145583_) - (let ((__tmp150068 - (let ((__tmp150069 - (let ((__tmp150070 (car _b145582_))) + (lambda (_clause144926_ _blocks144927_) + (letrec ((_bind->args144929_ + (lambda (_bind145577_) + (let ((__tmp150064 + (lambda (_b145579_ _r145580_) + (let ((__tmp150065 + (let ((__tmp150066 + (let ((__tmp150067 (car _b145579_))) (declare (not safe)) - (cons __tmp150070 '())))) + (cons __tmp150067 '())))) (declare (not safe)) - (cons '%#ref __tmp150069)))) + (cons '%#ref __tmp150066)))) (declare (not safe)) - (cons __tmp150068 _r145583_))))) + (cons __tmp150065 _r145580_))))) (declare (not safe)) - (foldl1 __tmp150067 '() _bind145580_)))) - (_create-block144933_ - (lambda (_body145529_ - _let-bind145530_ - _bind145531_ - _assert145532_) - (let* ((_id145534_ - (let ((__tmp150071 (gensym '__match))) + (foldl1 __tmp150064 '() _bind145577_)))) + (_create-block144930_ + (lambda (_body145526_ + _let-bind145527_ + _bind145528_ + _assert145529_) + (let* ((_id145531_ + (let ((__tmp150068 (gensym '__match))) (declare (not safe)) - (make-symbol__0 __tmp150071))) - (_id145536_ + (make-symbol__0 __tmp150068))) + (_id145533_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id145534_))) - (_g150072_ + (gx#core-quote-syntax__0 _id145531_))) + (_g150069_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _id145536_))) - (_block145539_ - (let ((__tmp150073 - (let ((__tmp150074 - (let ((__tmp150075 + (gx#core-bind-runtime!__0 _id145533_))) + (_block145536_ + (let ((__tmp150070 + (let ((__tmp150071 + (let ((__tmp150072 (let () (declare (not safe)) - (cons _assert145532_ '())))) + (cons _assert145529_ '())))) (declare (not safe)) - (cons _bind145531_ __tmp150075)))) + (cons _bind145528_ __tmp150072)))) (declare (not safe)) - (cons _body145529_ __tmp150074)))) + (cons _body145526_ __tmp150071)))) (declare (not safe)) - (cons _id145536_ __tmp150073))) - (_continue145541_ - (let ((__tmp150076 - (let ((__tmp150078 - (let ((__tmp150079 + (cons _id145533_ __tmp150070))) + (_continue145538_ + (let ((__tmp150073 + (let ((__tmp150075 + (let ((__tmp150076 (let () (declare (not safe)) - (cons _id145536_ '())))) + (cons _id145533_ '())))) (declare (not safe)) - (cons '%#ref __tmp150079))) - (__tmp150077 + (cons '%#ref __tmp150076))) + (__tmp150074 (let () (declare (not safe)) - (_bind->args144932_ - _bind145531_)))) + (_bind->args144929_ + _bind145528_)))) (declare (not safe)) - (cons __tmp150078 __tmp150077)))) + (cons __tmp150075 __tmp150074)))) (declare (not safe)) - (cons '%#call __tmp150076))) - (_continue145577_ + (cons '%#call __tmp150073))) + (_continue145574_ (if (let () (declare (not safe)) - (null? _let-bind145530_)) - _continue145541_ - (let* ((_locals145575_ - (map (lambda (_e145542145544_) - (let* ((_g145546145553_ - _e145542145544_) - (_E145548145557_ + (null? _let-bind145527_)) + _continue145538_ + (let* ((_locals145572_ + (map (lambda (_e145539145541_) + (let* ((_g145543145550_ + _e145539145541_) + (_E145545145554_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g145546145553_)))) - (_K145549145563_ - (lambda (_expr145560_ _id145561_) - (let ((__tmp150081 - (let () (declare (not safe)) (cons _id145561_ '()))) - (__tmp150080 - (let () (declare (not safe)) (cons _expr145560_ '())))) + _g145543145550_)))) + (_K145546145560_ + (lambda (_expr145557_ _id145558_) + (let ((__tmp150078 + (let () (declare (not safe)) (cons _id145558_ '()))) + (__tmp150077 + (let () (declare (not safe)) (cons _expr145557_ '())))) (declare (not safe)) - (cons __tmp150081 __tmp150080))))) + (cons __tmp150078 __tmp150077))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _g145546145553_)) - (let ((_hd145550145566_ + (##pair? _g145543145550_)) + (let ((_hd145547145563_ (let () (declare (not safe)) - (##car _g145546145553_))) - (_tl145551145568_ + (##car _g145543145550_))) + (_tl145548145565_ (let () (declare (not safe)) - (##cdr _g145546145553_)))) - (let* ((_id145571_ - _hd145550145566_) - (_expr145573_ - _tl145551145568_)) + (##cdr _g145543145550_)))) + (let* ((_id145568_ + _hd145547145563_) + (_expr145570_ + _tl145548145565_)) (declare (not safe)) - (_K145549145563_ - _expr145573_ - _id145571_))) + (_K145546145560_ + _expr145570_ + _id145568_))) (let () (declare (not safe)) - (_E145548145557_))))) - _let-bind145530_)) - (__tmp150082 - (let ((__tmp150083 + (_E145545145554_))))) + _let-bind145527_)) + (__tmp150079 + (let ((__tmp150080 (let () (declare (not safe)) - (cons _continue145541_ '())))) + (cons _continue145538_ '())))) (declare (not safe)) - (cons _locals145575_ __tmp150083)))) + (cons _locals145572_ __tmp150080)))) (declare (not safe)) - (cons '%#let-values __tmp150082))))) - (values _continue145577_ _block145539_)))) - (_basic-block144934_ - (lambda (_body145115_ _bind145116_ _assert145117_) - (let* ((___stx147230147231_ _body145115_) - (_g145122145206_ + (cons '%#let-values __tmp150079))))) + (values _continue145574_ _block145536_)))) + (_basic-block144931_ + (lambda (_body145112_ _bind145113_ _assert145114_) + (let* ((___stx147227147228_ _body145112_) + (_g145119145203_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147230147231_))))) - (let ((___kont147232147233_ - (lambda (_L145465_ _L145466_ _L145467_) - (let ((_g150084_ - (let ((__tmp150086 - (let ((__tmp150087 + ___stx147227147228_))))) + (let ((___kont147229147230_ + (lambda (_L145462_ _L145463_ _L145464_) + (let ((_g150081_ + (let ((__tmp150083 + (let ((__tmp150084 (let () (declare (not safe)) - (cons _L145467_ '#t)))) + (cons _L145464_ '#t)))) (declare (not safe)) - (cons __tmp150087 - _assert145117_)))) + (cons __tmp150084 + _assert145114_)))) (declare (not safe)) - (_create-block144933_ - _L145466_ + (_create-block144930_ + _L145463_ '() - _bind145116_ - __tmp150086)))) + _bind145113_ + __tmp150083)))) (begin - (let ((_g150085_ + (let ((_g150082_ (let () (declare (not safe)) - (if (##values? _g150084_) - (##vector-length _g150084_) + (if (##values? _g150081_) + (##vector-length _g150081_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150085_ 2))) + (##fx= _g150082_ 2))) (error "Context expects 2 values" - _g150085_))) - (let ((_k-continue145485_ + _g150082_))) + (let ((_k-continue145482_ (let () (declare (not safe)) - (##vector-ref _g150084_ 0))) - (_k-block145486_ + (##vector-ref _g150081_ 0))) + (_k-block145483_ (let () (declare (not safe)) - (##vector-ref _g150084_ 1)))) - (let* ((___stx147212147213_ _L145465_) - (_g145489145498_ + (##vector-ref _g150081_ 1)))) + (let* ((___stx147209147210_ _L145462_) + (_g145486145495_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147212147213_))))) - (let ((___kont147214147215_ + ___stx147209147210_))))) + (let ((___kont147211147212_ (lambda () - (values (let ((__tmp150088 - (let ((__tmp150089 + (values (let ((__tmp150085 + (let ((__tmp150086 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150090 + (let ((__tmp150087 (let () (declare (not safe)) - (cons _L145465_ '())))) + (cons _L145462_ '())))) (declare (not safe)) - (cons _k-continue145485_ __tmp150090)))) + (cons _k-continue145482_ __tmp150087)))) (declare (not safe)) - (cons _L145467_ __tmp150089)))) + (cons _L145464_ __tmp150086)))) (declare (not safe)) - (cons '%#if __tmp150088)) - (let () (declare (not safe)) (cons _k-block145486_ '()))))) + (cons '%#if __tmp150085)) + (let () (declare (not safe)) (cons _k-block145483_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147216147217_ + (___kont147213147214_ (lambda () - (let ((_g150091_ - (let ((__tmp150093 - (let ((__tmp150094 + (let ((_g150088_ + (let ((__tmp150090 + (let ((__tmp150091 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L145467_ '#f)))) + (cons _L145464_ '#f)))) (declare (not safe)) - (cons __tmp150094 _assert145117_)))) + (cons __tmp150091 _assert145114_)))) (declare (not safe)) - (_create-block144933_ - _L145465_ + (_create-block144930_ + _L145462_ '() - _bind145116_ - __tmp150093)))) + _bind145113_ + __tmp150090)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g150092_ + (let ((_g150089_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g150091_) - (##vector-length _g150091_) + _g150088_) + (##vector-length _g150088_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g150092_ 2))) - (error "Context expects 2 values" _g150092_))) + (if (not (let () (declare (not safe)) (##fx= _g150089_ 2))) + (error "Context expects 2 values" _g150089_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_e-continue145505_ + (let ((_e-continue145502_ (let () (declare (not safe)) (##vector-ref - _g150091_ + _g150088_ 0))) - (_e-block145506_ + (_e-block145503_ (let () (declare (not safe)) (##vector-ref - _g150091_ + _g150088_ 1)))) - (values (let ((__tmp150095 + (values (let ((__tmp150092 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150096 - (let ((__tmp150097 + (let ((__tmp150093 + (let ((__tmp150094 (let () (declare (not safe)) - (cons _e-continue145505_ '())))) + (cons _e-continue145502_ '())))) (declare (not safe)) - (cons _k-continue145485_ __tmp150097)))) + (cons _k-continue145482_ __tmp150094)))) (declare (not safe)) - (cons _L145467_ __tmp150096)))) + (cons _L145464_ __tmp150093)))) (declare (not safe)) - (cons '%#if __tmp150095)) - (let ((__tmp150098 + (cons '%#if __tmp150092)) + (let ((__tmp150095 (let () (declare (not safe)) - (cons _e-block145506_ '())))) + (cons _e-block145503_ '())))) (declare (not safe)) - (cons _k-block145486_ __tmp150098))))))))) + (cons _k-block145483_ __tmp150095))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx147212147213_)) - (let ((_e145493145513_ + ___stx147209147210_)) + (let ((_e145490145510_ (let () (declare (not safe)) (gx#stx-e - ___stx147212147213_)))) - (let ((_tl145491145518_ + ___stx147209147210_)))) + (let ((_tl145488145515_ (let () (declare (not safe)) - (##cdr _e145493145513_))) - (_hd145492145516_ + (##cdr _e145490145510_))) + (_hd145489145513_ (let () (declare (not safe)) - (##car _e145493145513_)))) + (##car _e145490145510_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd145492145516_)) + _hd145489145513_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd145492145516_)) - (___kont147214147215_) - (___kont147216147217_)) - (___kont147216147217_)))) - (___kont147216147217_))))))))) - (___kont147234147235_ - (lambda () (values _body145115_ '()))) - (___kont147238147239_ - (lambda (_L145294_ _L145295_ _L145296_) - (let* ((_let-bind145331_ + _hd145489145513_)) + (___kont147211147212_) + (___kont147213147214_)) + (___kont147213147214_)))) + (___kont147213147214_))))))))) + (___kont147231147232_ + (lambda () (values _body145112_ '()))) + (___kont147235147236_ + (lambda (_L145291_ _L145292_ _L145293_) + (let* ((_let-bind145328_ (map cons - (let ((__tmp150099 - (lambda (_g145316145319_ - _g145317145321_) + (let ((__tmp150096 + (lambda (_g145313145316_ + _g145314145318_) (let () (declare (not safe)) - (cons _g145316145319_ - _g145317145321_))))) + (cons _g145313145316_ + _g145314145318_))))) (declare (not safe)) - (foldr1 __tmp150099 + (foldr1 __tmp150096 '() - _L145296_)) - (let ((__tmp150100 - (lambda (_g145323145326_ - _g145324145328_) + _L145293_)) + (let ((__tmp150097 + (lambda (_g145320145323_ + _g145321145325_) (let () (declare (not safe)) - (cons _g145323145326_ - _g145324145328_))))) + (cons _g145320145323_ + _g145321145325_))))) (declare (not safe)) - (foldr1 __tmp150100 + (foldr1 __tmp150097 '() - _L145295_)))) - (_g150101_ - (let ((__tmp150103 + _L145292_)))) + (_g150098_ + (let ((__tmp150100 (let () (declare (not safe)) (foldl1 cons - _bind145116_ - _let-bind145331_)))) + _bind145113_ + _let-bind145328_)))) (declare (not safe)) - (_create-block144933_ - _L145294_ - _let-bind145331_ - __tmp150103 - _assert145117_)))) + (_create-block144930_ + _L145291_ + _let-bind145328_ + __tmp150100 + _assert145114_)))) (begin - (let ((_g150102_ + (let ((_g150099_ (let () (declare (not safe)) - (if (##values? _g150101_) - (##vector-length _g150101_) + (if (##values? _g150098_) + (##vector-length _g150098_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150102_ 2))) + (##fx= _g150099_ 2))) (error "Context expects 2 values" - _g150102_))) - (let ((_continue145333_ + _g150099_))) + (let ((_continue145330_ (let () (declare (not safe)) - (##vector-ref _g150101_ 0))) - (_block145334_ + (##vector-ref _g150098_ 0))) + (_block145331_ (let () (declare (not safe)) - (##vector-ref _g150101_ 1)))) + (##vector-ref _g150098_ 1)))) (let () - (values _continue145333_ + (values _continue145330_ (let () (declare (not safe)) - (cons _block145334_ + (cons _block145331_ '()))))))))) - (___kont147242147243_ - (lambda () (values _body145115_ '())))) - (let* ((___match147321147322_ - (lambda (_e145175145218_ - _hd145174145221_ - _tl145173145223_ - _e145178145226_ - _hd145177145229_ - _tl145176145231_ - ___splice147240147241_ - _target145179145234_ - _tl145181145236_) - (letrec ((_loop145182145239_ - (lambda (_hd145180145242_ - _expr145186145244_ - _id145187145246_) + (___kont147239147240_ + (lambda () (values _body145112_ '())))) + (let* ((___match147318147319_ + (lambda (_e145172145215_ + _hd145171145218_ + _tl145170145220_ + _e145175145223_ + _hd145174145226_ + _tl145173145228_ + ___splice147237147238_ + _target145176145231_ + _tl145178145233_) + (letrec ((_loop145179145236_ + (lambda (_hd145177145239_ + _expr145183145241_ + _id145184145243_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145180145242_)) - (let ((_e145183145249_ + _hd145177145239_)) + (let ((_e145180145246_ (let () (declare (not safe)) (gx#stx-e - _hd145180145242_)))) - (let ((_lp-tl145185145254_ + _hd145177145239_)))) + (let ((_lp-tl145182145251_ (let () (declare (not safe)) - (##cdr _e145183145249_))) - (_lp-hd145184145252_ + (##cdr _e145180145246_))) + (_lp-hd145181145249_ (let () (declare (not safe)) - (##car _e145183145249_)))) + (##car _e145180145246_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd145184145252_)) - (let ((_e145192145257_ + _lp-hd145181145249_)) + (let ((_e145189145254_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd145184145252_)))) - (let ((_tl145190145262_ + (gx#stx-e _lp-hd145181145249_)))) + (let ((_tl145187145259_ (let () (declare (not safe)) - (##cdr _e145192145257_))) - (_hd145191145260_ + (##cdr _e145189145254_))) + (_hd145188145257_ (let () (declare (not safe)) - (##car _e145192145257_)))) + (##car _e145189145254_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145191145260_)) - (let ((_e145195145265_ + (gx#stx-pair? _hd145188145257_)) + (let ((_e145192145262_ (let () (declare (not safe)) - (gx#stx-e _hd145191145260_)))) - (let ((_tl145193145270_ + (gx#stx-e _hd145188145257_)))) + (let ((_tl145190145267_ (let () (declare (not safe)) - (##cdr _e145195145265_))) - (_hd145194145268_ + (##cdr _e145192145262_))) + (_hd145191145265_ (let () (declare (not safe)) - (##car _e145195145265_)))) + (##car _e145192145262_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145193145270_)) + (gx#stx-null? _tl145190145267_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145190145262_)) - (let ((_e145198145273_ + (gx#stx-pair? _tl145187145259_)) + (let ((_e145195145270_ (let () (declare (not safe)) - (gx#stx-e _tl145190145262_)))) - (let ((_tl145196145278_ + (gx#stx-e _tl145187145259_)))) + (let ((_tl145193145275_ (let () (declare (not safe)) - (##cdr _e145198145273_))) - (_hd145197145276_ + (##cdr _e145195145270_))) + (_hd145194145273_ (let () (declare (not safe)) - (##car _e145198145273_)))) + (##car _e145195145270_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl145196145278_)) - (let ((__tmp150105 + _tl145193145275_)) + (let ((__tmp150102 (let () (declare (not safe)) - (cons _hd145197145276_ - _expr145186145244_))) - (__tmp150104 + (cons _hd145194145273_ + _expr145183145241_))) + (__tmp150101 (let () (declare (not safe)) - (cons _hd145194145268_ - _id145187145246_)))) + (cons _hd145191145265_ + _id145184145243_)))) (declare (not safe)) - (_loop145182145239_ - _lp-tl145185145254_ - __tmp150105 - __tmp150104)) - (___kont147242147243_)))) - (___kont147242147243_)) - (___kont147242147243_)))) - (___kont147242147243_)))) - (___kont147242147243_)))) + (_loop145179145236_ + _lp-tl145182145251_ + __tmp150102 + __tmp150101)) + (___kont147239147240_)))) + (___kont147239147240_)) + (___kont147239147240_)))) + (___kont147239147240_)))) + (___kont147239147240_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id145189145283_ - (reverse _id145187145246_)) - (_expr145188145281_ - (reverse _expr145186145244_))) + (let ((_id145186145280_ + (reverse _id145184145243_)) + (_expr145185145278_ + (reverse _expr145183145241_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145176145231_)) - (let ((_e145201145286_ + _tl145173145228_)) + (let ((_e145198145283_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl145176145231_)))) - (let ((_tl145199145291_ - (let () (declare (not safe)) (##cdr _e145201145286_))) - (_hd145200145289_ + (gx#stx-e _tl145173145228_)))) + (let ((_tl145196145288_ + (let () (declare (not safe)) (##cdr _e145198145283_))) + (_hd145197145286_ (let () (declare (not safe)) - (##car _e145201145286_)))) + (##car _e145198145283_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145199145291_)) - (___kont147238147239_ - _hd145200145289_ - _expr145188145281_ - _id145189145283_) - (___kont147242147243_)))) - (___kont147242147243_))))))) + (gx#stx-null? _tl145196145288_)) + (___kont147235147236_ + _hd145197145286_ + _expr145185145278_ + _id145186145280_) + (___kont147239147240_)))) + (___kont147239147240_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop145182145239_ - _target145179145234_ + (_loop145179145236_ + _target145176145231_ '() '()))))) - (___match147297147298_ - (lambda (_e145141145342_ - _hd145140145345_ - _tl145139145347_ - _e145144145350_ - _hd145143145353_ - _tl145142145355_ - ___splice147236147237_ - _target145145145358_ - _tl145147145360_) - (letrec ((_loop145148145363_ - (lambda (_hd145146145366_) + (___match147294147295_ + (lambda (_e145138145339_ + _hd145137145342_ + _tl145136145344_ + _e145141145347_ + _hd145140145350_ + _tl145139145352_ + ___splice147233147234_ + _target145142145355_ + _tl145144145357_) + (letrec ((_loop145145145360_ + (lambda (_hd145143145363_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145146145366_)) - (let ((_e145149145369_ + _hd145143145363_)) + (let ((_e145146145366_ (let () (declare (not safe)) (gx#stx-e - _hd145146145366_)))) - (let ((_lp-tl145151145374_ + _hd145143145363_)))) + (let ((_lp-tl145148145371_ (let () (declare (not safe)) - (##cdr _e145149145369_))) - (_lp-hd145150145372_ + (##cdr _e145146145366_))) + (_lp-hd145147145369_ (let () (declare (not safe)) - (##car _e145149145369_)))) + (##car _e145146145366_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd145150145372_)) - (let ((_e145154145377_ + _lp-hd145147145369_)) + (let ((_e145151145374_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd145150145372_)))) - (let ((_tl145152145382_ + (gx#stx-e _lp-hd145147145369_)))) + (let ((_tl145149145379_ (let () (declare (not safe)) - (##cdr _e145154145377_))) - (_hd145153145380_ + (##cdr _e145151145374_))) + (_hd145150145377_ (let () (declare (not safe)) - (##car _e145154145377_)))) + (##car _e145151145374_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145153145380_)) - (let ((_e145157145385_ + (gx#stx-pair? _hd145150145377_)) + (let ((_e145154145382_ (let () (declare (not safe)) - (gx#stx-e _hd145153145380_)))) - (let ((_tl145155145390_ + (gx#stx-e _hd145150145377_)))) + (let ((_tl145152145387_ (let () (declare (not safe)) - (##cdr _e145157145385_))) - (_hd145156145388_ + (##cdr _e145154145382_))) + (_hd145153145385_ (let () (declare (not safe)) - (##car _e145157145385_)))) + (##car _e145154145382_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145155145390_)) + (gx#stx-null? _tl145152145387_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145152145382_)) - (let ((_e145160145393_ + (gx#stx-pair? _tl145149145379_)) + (let ((_e145157145390_ (let () (declare (not safe)) - (gx#stx-e _tl145152145382_)))) - (let ((_tl145158145398_ + (gx#stx-e _tl145149145379_)))) + (let ((_tl145155145395_ (let () (declare (not safe)) - (##cdr _e145160145393_))) - (_hd145159145396_ + (##cdr _e145157145390_))) + (_hd145156145393_ (let () (declare (not safe)) - (##car _e145160145393_)))) + (##car _e145157145390_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145159145396_)) - (let ((_e145163145401_ + _hd145156145393_)) + (let ((_e145160145398_ (let () (declare (not safe)) (gx#stx-e - _hd145159145396_)))) - (let ((_tl145161145406_ + _hd145156145393_)))) + (let ((_tl145158145403_ (let () (declare (not safe)) - (##cdr _e145163145401_))) - (_hd145162145404_ + (##cdr _e145160145398_))) + (_hd145159145401_ (let () (declare (not safe)) - (##car _e145163145401_)))) + (##car _e145160145398_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd145162145404_)) + _hd145159145401_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd145162145404_)) + _hd145159145401_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl145161145406_)) - (let ((_e145166145409_ + (gx#stx-pair? _tl145158145403_)) + (let ((_e145163145406_ (let () (declare (not safe)) - (gx#stx-e _tl145161145406_)))) - (let ((_tl145164145414_ + (gx#stx-e _tl145158145403_)))) + (let ((_tl145161145411_ (let () (declare (not safe)) - (##cdr _e145166145409_))) - (_hd145165145412_ + (##cdr _e145163145406_))) + (_hd145162145409_ (let () (declare (not safe)) - (##car _e145166145409_)))) + (##car _e145163145406_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145164145414_)) + (gx#stx-null? _tl145161145411_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145158145398_)) + (gx#stx-null? _tl145155145395_)) (let () (declare (not safe)) - (_loop145148145363_ _lp-tl145151145374_)) - (___match147321147322_ - _e145141145342_ - _hd145140145345_ - _tl145139145347_ - _e145144145350_ - _hd145143145353_ - _tl145142145355_ - ___splice147236147237_ - _target145145145358_ - _tl145147145360_)) - (___match147321147322_ - _e145141145342_ - _hd145140145345_ - _tl145139145347_ - _e145144145350_ - _hd145143145353_ - _tl145142145355_ - ___splice147236147237_ - _target145145145358_ - _tl145147145360_)))) - (___match147321147322_ - _e145141145342_ - _hd145140145345_ - _tl145139145347_ - _e145144145350_ - _hd145143145353_ - _tl145142145355_ - ___splice147236147237_ - _target145145145358_ - _tl145147145360_)) - (___match147321147322_ - _e145141145342_ - _hd145140145345_ - _tl145139145347_ - _e145144145350_ - _hd145143145353_ - _tl145142145355_ - ___splice147236147237_ - _target145145145358_ - _tl145147145360_)) - (___match147321147322_ - _e145141145342_ - _hd145140145345_ - _tl145139145347_ - _e145144145350_ - _hd145143145353_ - _tl145142145355_ - ___splice147236147237_ - _target145145145358_ - _tl145147145360_)))) + (_loop145145145360_ _lp-tl145148145371_)) + (___match147318147319_ + _e145138145339_ + _hd145137145342_ + _tl145136145344_ + _e145141145347_ + _hd145140145350_ + _tl145139145352_ + ___splice147233147234_ + _target145142145355_ + _tl145144145357_)) + (___match147318147319_ + _e145138145339_ + _hd145137145342_ + _tl145136145344_ + _e145141145347_ + _hd145140145350_ + _tl145139145352_ + ___splice147233147234_ + _target145142145355_ + _tl145144145357_)))) + (___match147318147319_ + _e145138145339_ + _hd145137145342_ + _tl145136145344_ + _e145141145347_ + _hd145140145350_ + _tl145139145352_ + ___splice147233147234_ + _target145142145355_ + _tl145144145357_)) + (___match147318147319_ + _e145138145339_ + _hd145137145342_ + _tl145136145344_ + _e145141145347_ + _hd145140145350_ + _tl145139145352_ + ___splice147233147234_ + _target145142145355_ + _tl145144145357_)) + (___match147318147319_ + _e145138145339_ + _hd145137145342_ + _tl145136145344_ + _e145141145347_ + _hd145140145350_ + _tl145139145352_ + ___splice147233147234_ + _target145142145355_ + _tl145144145357_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match147321147322_ - _e145141145342_ - _hd145140145345_ - _tl145139145347_ - _e145144145350_ - _hd145143145353_ - _tl145142145355_ - ___splice147236147237_ - _target145145145358_ - _tl145147145360_)))) - (___match147321147322_ - _e145141145342_ - _hd145140145345_ - _tl145139145347_ - _e145144145350_ - _hd145143145353_ - _tl145142145355_ - ___splice147236147237_ - _target145145145358_ - _tl145147145360_)) - (___match147321147322_ - _e145141145342_ - _hd145140145345_ - _tl145139145347_ - _e145144145350_ - _hd145143145353_ - _tl145142145355_ - ___splice147236147237_ - _target145145145358_ - _tl145147145360_)))) - (___match147321147322_ - _e145141145342_ - _hd145140145345_ - _tl145139145347_ - _e145144145350_ - _hd145143145353_ - _tl145142145355_ - ___splice147236147237_ - _target145145145358_ - _tl145147145360_)))) - (___match147321147322_ - _e145141145342_ - _hd145140145345_ - _tl145139145347_ - _e145144145350_ - _hd145143145353_ - _tl145142145355_ - ___splice147236147237_ - _target145145145358_ - _tl145147145360_)))) + (___match147318147319_ + _e145138145339_ + _hd145137145342_ + _tl145136145344_ + _e145141145347_ + _hd145140145350_ + _tl145139145352_ + ___splice147233147234_ + _target145142145355_ + _tl145144145357_)))) + (___match147318147319_ + _e145138145339_ + _hd145137145342_ + _tl145136145344_ + _e145141145347_ + _hd145140145350_ + _tl145139145352_ + ___splice147233147234_ + _target145142145355_ + _tl145144145357_)) + (___match147318147319_ + _e145138145339_ + _hd145137145342_ + _tl145136145344_ + _e145141145347_ + _hd145140145350_ + _tl145139145352_ + ___splice147233147234_ + _target145142145355_ + _tl145144145357_)))) + (___match147318147319_ + _e145138145339_ + _hd145137145342_ + _tl145136145344_ + _e145141145347_ + _hd145140145350_ + _tl145139145352_ + ___splice147233147234_ + _target145142145355_ + _tl145144145357_)))) + (___match147318147319_ + _e145138145339_ + _hd145137145342_ + _tl145136145344_ + _e145141145347_ + _hd145140145350_ + _tl145139145352_ + ___splice147233147234_ + _target145142145355_ + _tl145144145357_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (if (let () (declare (not safe)) (gx#stx-pair? - _tl145142145355_)) - (let ((_e145169145418_ + _tl145139145352_)) + (let ((_e145166145415_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl145142145355_)))) - (let ((_tl145167145423_ - (let () (declare (not safe)) (##cdr _e145169145418_))) - (_hd145168145421_ + (gx#stx-e _tl145139145352_)))) + (let ((_tl145164145420_ + (let () (declare (not safe)) (##cdr _e145166145415_))) + (_hd145165145418_ (let () (declare (not safe)) - (##car _e145169145418_)))) + (##car _e145166145415_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145167145423_)) - (___kont147234147235_) - (___match147321147322_ - _e145141145342_ - _hd145140145345_ - _tl145139145347_ - _e145144145350_ - _hd145143145353_ - _tl145142145355_ - ___splice147236147237_ - _target145145145358_ - _tl145147145360_)))) - (___match147321147322_ - _e145141145342_ - _hd145140145345_ - _tl145139145347_ - _e145144145350_ - _hd145143145353_ - _tl145142145355_ - ___splice147236147237_ - _target145145145358_ - _tl145147145360_))))))) + (gx#stx-null? _tl145164145420_)) + (___kont147231147232_) + (___match147318147319_ + _e145138145339_ + _hd145137145342_ + _tl145136145344_ + _e145141145347_ + _hd145140145350_ + _tl145139145352_ + ___splice147233147234_ + _target145142145355_ + _tl145144145357_)))) + (___match147318147319_ + _e145138145339_ + _hd145137145342_ + _tl145136145344_ + _e145141145347_ + _hd145140145350_ + _tl145139145352_ + ___splice147233147234_ + _target145142145355_ + _tl145144145357_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop145148145363_ - _target145145145358_)))))) + (_loop145145145360_ + _target145142145355_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx147230147231_)) - (let ((_e145129145433_ + (gx#stx-pair? ___stx147227147228_)) + (let ((_e145126145430_ (let () (declare (not safe)) - (gx#stx-e ___stx147230147231_)))) - (let ((_tl145127145438_ + (gx#stx-e ___stx147227147228_)))) + (let ((_tl145124145435_ (let () (declare (not safe)) - (##cdr _e145129145433_))) - (_hd145128145436_ + (##cdr _e145126145430_))) + (_hd145125145433_ (let () (declare (not safe)) - (##car _e145129145433_)))) + (##car _e145126145430_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145128145436_)) + (gx#identifier? _hd145125145433_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd145128145436_)) + _hd145125145433_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145127145438_)) - (let ((_e145132145441_ + _tl145124145435_)) + (let ((_e145129145438_ (let () (declare (not safe)) (gx#stx-e - _tl145127145438_)))) - (let ((_tl145130145446_ + _tl145124145435_)))) + (let ((_tl145127145443_ (let () (declare (not safe)) - (##cdr _e145132145441_))) - (_hd145131145444_ + (##cdr _e145129145438_))) + (_hd145128145441_ (let () (declare (not safe)) - (##car _e145132145441_)))) + (##car _e145129145438_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145130145446_)) - (let ((_e145135145449_ + _tl145127145443_)) + (let ((_e145132145446_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl145130145446_)))) - (let ((_tl145133145454_ - (let () (declare (not safe)) (##cdr _e145135145449_))) - (_hd145134145452_ - (let () (declare (not safe)) (##car _e145135145449_)))) + (gx#stx-e _tl145127145443_)))) + (let ((_tl145130145451_ + (let () (declare (not safe)) (##cdr _e145132145446_))) + (_hd145131145449_ + (let () (declare (not safe)) (##car _e145132145446_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145133145454_)) - (let ((_e145138145457_ + (gx#stx-pair? _tl145130145451_)) + (let ((_e145135145454_ (let () (declare (not safe)) - (gx#stx-e _tl145133145454_)))) - (let ((_tl145136145462_ + (gx#stx-e _tl145130145451_)))) + (let ((_tl145133145459_ (let () (declare (not safe)) - (##cdr _e145138145457_))) - (_hd145137145460_ + (##cdr _e145135145454_))) + (_hd145134145457_ (let () (declare (not safe)) - (##car _e145138145457_)))) + (##car _e145135145454_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145136145462_)) - (___kont147232147233_ - _hd145137145460_ - _hd145134145452_ - _hd145131145444_) - (___kont147242147243_)))) - (___kont147242147243_)))) - (___kont147242147243_)))) + (gx#stx-null? _tl145133145459_)) + (___kont147229147230_ + _hd145134145457_ + _hd145131145449_ + _hd145128145441_) + (___kont147239147240_)))) + (___kont147239147240_)))) + (___kont147239147240_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147242147243_)) + (___kont147239147240_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd145128145436_)) + _hd145125145433_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145127145438_)) - (let ((_e145144145350_ + _tl145124145435_)) + (let ((_e145141145347_ (let () (declare (not safe)) (gx#stx-e - _tl145127145438_)))) - (let ((_tl145142145355_ + _tl145124145435_)))) + (let ((_tl145139145352_ (let () (declare (not safe)) - (##cdr _e145144145350_))) - (_hd145143145353_ + (##cdr _e145141145347_))) + (_hd145140145350_ (let () (declare (not safe)) - (##car _e145144145350_)))) + (##car _e145141145347_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd145143145353_)) - (let ((___splice147236147237_ + _hd145140145350_)) + (let ((___splice147233147234_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd145143145353_ '0)))) - (let ((_tl145147145360_ + (gx#syntax-split-splice _hd145140145350_ '0)))) + (let ((_tl145144145357_ (let () (declare (not safe)) - (##vector-ref ___splice147236147237_ '1))) - (_target145145145358_ + (##vector-ref ___splice147233147234_ '1))) + (_target145142145355_ (let () (declare (not safe)) - (##vector-ref ___splice147236147237_ '0)))) + (##vector-ref ___splice147233147234_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145147145360_)) - (___match147297147298_ - _e145129145433_ - _hd145128145436_ - _tl145127145438_ - _e145144145350_ - _hd145143145353_ - _tl145142145355_ - ___splice147236147237_ - _target145145145358_ - _tl145147145360_) - (___kont147242147243_)))) - (___kont147242147243_)))) + (gx#stx-null? _tl145144145357_)) + (___match147294147295_ + _e145126145430_ + _hd145125145433_ + _tl145124145435_ + _e145141145347_ + _hd145140145350_ + _tl145139145352_ + ___splice147233147234_ + _target145142145355_ + _tl145144145357_) + (___kont147239147240_)))) + (___kont147239147240_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147242147243_)) - (___kont147242147243_))) - (___kont147242147243_)))) - (___kont147242147243_))))))) - (_fold-blocks144935_ - (lambda (_rest145034_ _blocks145035_) - (let* ((_rest145036145053_ _rest145034_) - (_E145039145057_ + (___kont147239147240_)) + (___kont147239147240_))) + (___kont147239147240_)))) + (___kont147239147240_))))))) + (_fold-blocks144932_ + (lambda (_rest145031_ _blocks145032_) + (let* ((_rest145033145050_ _rest145031_) + (_E145036145054_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _rest145036145053_))))) - (let ((_K145041145077_ - (lambda (_rest145068_ - _assert145069_ - _bind145070_ - _body145071_ - _name145072_) - (let ((_g150106_ + _rest145033145050_))))) + (let ((_K145038145074_ + (lambda (_rest145065_ + _assert145066_ + _bind145067_ + _body145068_ + _name145069_) + (let ((_g150103_ (let () (declare (not safe)) - (_basic-block144934_ - _body145071_ - _bind145070_ - _assert145069_)))) + (_basic-block144931_ + _body145068_ + _bind145067_ + _assert145066_)))) (begin - (let ((_g150107_ + (let ((_g150104_ (let () (declare (not safe)) - (if (##values? _g150106_) - (##vector-length _g150106_) + (if (##values? _g150103_) + (##vector-length _g150103_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150107_ 2))) + (##fx= _g150104_ 2))) (error "Context expects 2 values" - _g150107_))) - (let ((_body145074_ + _g150104_))) + (let ((_body145071_ (let () (declare (not safe)) - (##vector-ref _g150106_ 0))) - (_body-blocks145075_ + (##vector-ref _g150103_ 0))) + (_body-blocks145072_ (let () (declare (not safe)) - (##vector-ref _g150106_ 1)))) - (let ((__tmp150118 + (##vector-ref _g150103_ 1)))) + (let ((__tmp150115 (let () (declare (not safe)) (foldl1 cons - _rest145068_ - _body-blocks145075_))) - (__tmp150108 - (let ((__tmp150109 - (let ((__tmp150110 - (let ((__tmp150111 + _rest145065_ + _body-blocks145072_))) + (__tmp150105 + (let ((__tmp150106 + (let ((__tmp150107 + (let ((__tmp150108 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150114 - (let ((__tmp150115 - (let ((__tmp150117 - (reverse (map car _bind145070_))) - (__tmp150116 + (let ((__tmp150111 + (let ((__tmp150112 + (let ((__tmp150114 + (reverse (map car _bind145067_))) + (__tmp150113 (let () (declare (not safe)) - (cons _body145074_ '())))) + (cons _body145071_ '())))) (declare (not safe)) - (cons __tmp150117 __tmp150116)))) + (cons __tmp150114 __tmp150113)))) (declare (not safe)) - (cons '%#lambda __tmp150115))) - (__tmp150112 - (let ((__tmp150113 + (cons '%#lambda __tmp150112))) + (__tmp150109 + (let ((__tmp150110 (let () (declare (not safe)) - (cons _bind145070_ '())))) + (cons _bind145067_ '())))) (declare (not safe)) - (cons _assert145069_ __tmp150113)))) + (cons _assert145066_ __tmp150110)))) (declare (not safe)) - (cons __tmp150114 __tmp150112)))) + (cons __tmp150111 __tmp150109)))) (declare (not safe)) - (cons 'continue: __tmp150111)))) + (cons 'continue: __tmp150108)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _name145072_ - __tmp150110)))) + (cons _name145069_ + __tmp150107)))) (declare (not safe)) - (cons __tmp150109 - _blocks145035_)))) + (cons __tmp150106 + _blocks145032_)))) (declare (not safe)) - (_fold-blocks144935_ - __tmp150118 - __tmp150108))))))) - (_K145040145062_ (lambda () _blocks145035_))) - (let ((_try-match145038145065_ + (_fold-blocks144932_ + __tmp150115 + __tmp150105))))))) + (_K145037145059_ (lambda () _blocks145032_))) + (let ((_try-match145035145062_ (lambda () (if (let () (declare (not safe)) - (##null? _rest145036145053_)) + (##null? _rest145033145050_)) (let () (declare (not safe)) - (_K145040145062_)) + (_K145037145059_)) (let () (declare (not safe)) - (_E145039145057_)))))) + (_E145036145054_)))))) (if (let () (declare (not safe)) - (##pair? _rest145036145053_)) - (let ((_tl145043145082_ + (##pair? _rest145033145050_)) + (let ((_tl145040145079_ (let () (declare (not safe)) - (##cdr _rest145036145053_))) - (_hd145042145080_ + (##cdr _rest145033145050_))) + (_hd145039145077_ (let () (declare (not safe)) - (##car _rest145036145053_)))) + (##car _rest145033145050_)))) (if (let () (declare (not safe)) - (##pair? _hd145042145080_)) - (let ((_tl145045145087_ + (##pair? _hd145039145077_)) + (let ((_tl145042145084_ (let () (declare (not safe)) - (##cdr _hd145042145080_))) - (_hd145044145085_ + (##cdr _hd145039145077_))) + (_hd145041145082_ (let () (declare (not safe)) - (##car _hd145042145080_)))) + (##car _hd145039145077_)))) (if (let () (declare (not safe)) - (##pair? _tl145045145087_)) - (let ((_tl145047145094_ + (##pair? _tl145042145084_)) + (let ((_tl145044145091_ (let () (declare (not safe)) - (##cdr _tl145045145087_))) - (_hd145046145092_ + (##cdr _tl145042145084_))) + (_hd145043145089_ (let () (declare (not safe)) - (##car _tl145045145087_)))) + (##car _tl145042145084_)))) (if (let () (declare (not safe)) - (##pair? _tl145047145094_)) - (let ((_tl145049145101_ + (##pair? _tl145044145091_)) + (let ((_tl145046145098_ (let () (declare (not safe)) - (##cdr _tl145047145094_))) - (_hd145048145099_ + (##cdr _tl145044145091_))) + (_hd145045145096_ (let () (declare (not safe)) - (##car _tl145047145094_)))) + (##car _tl145044145091_)))) (if (let () (declare (not safe)) - (##pair? _tl145049145101_)) - (let ((_tl145051145108_ + (##pair? _tl145046145098_)) + (let ((_tl145048145105_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl145049145101_))) - (_hd145050145106_ - (let () (declare (not safe)) (##car _tl145049145101_)))) - (if (let () (declare (not safe)) (##null? _tl145051145108_)) - (let ((_name145090_ _hd145044145085_) - (_body145097_ _hd145046145092_) - (_bind145104_ _hd145048145099_) - (_assert145111_ _hd145050145106_) - (_rest145113_ _tl145043145082_)) + (##cdr _tl145046145098_))) + (_hd145047145103_ + (let () (declare (not safe)) (##car _tl145046145098_)))) + (if (let () (declare (not safe)) (##null? _tl145048145105_)) + (let ((_name145087_ _hd145041145082_) + (_body145094_ _hd145043145089_) + (_bind145101_ _hd145045145096_) + (_assert145108_ _hd145047145103_) + (_rest145110_ _tl145040145079_)) (let () (declare (not safe)) - (_K145041145077_ - _rest145113_ - _assert145111_ - _bind145104_ - _body145097_ - _name145090_))) - (let () (declare (not safe)) (_E145039145057_)))) - (let () (declare (not safe)) (_E145039145057_)))) + (_K145038145074_ + _rest145110_ + _assert145108_ + _bind145101_ + _body145094_ + _name145087_))) + (let () (declare (not safe)) (_E145036145054_)))) + (let () (declare (not safe)) (_E145036145054_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E145039145057_)))) + (_E145036145054_)))) (let () (declare (not safe)) - (_E145039145057_)))) + (_E145036145054_)))) (let () (declare (not safe)) - (_E145039145057_)))) + (_E145036145054_)))) (let () (declare (not safe)) - (_try-match145038145065_))))))))) - (let* ((_clause144936144943_ _clause144929_) - (_E144938144947_ + (_try-match145035145062_))))))))) + (let* ((_clause144933144940_ _clause144926_) + (_E144935144944_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _clause144936144943_)))) - (_K144939145022_ - (lambda (_body144950_ _name144951_) - (let* ((_g144953144969_ - (lambda (_g144954144966_) + (error '"No clause matching" _clause144933144940_)))) + (_K144936145019_ + (lambda (_body144947_ _name144948_) + (let* ((_g144950144966_ + (lambda (_g144951144963_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g144954144966_)))) - (_g144952145019_ - (lambda (_g144954144972_) + _g144951144963_)))) + (_g144949145016_ + (lambda (_g144951144969_) (if (let () (declare (not safe)) - (gx#stx-pair? _g144954144972_)) - (let ((_e144958144974_ + (gx#stx-pair? _g144951144969_)) + (let ((_e144955144971_ (let () (declare (not safe)) - (gx#stx-e _g144954144972_)))) - (let ((_hd144957144977_ + (gx#stx-e _g144951144969_)))) + (let ((_hd144954144974_ (let () (declare (not safe)) - (##car _e144958144974_))) - (_tl144956144979_ + (##car _e144955144971_))) + (_tl144953144976_ (let () (declare (not safe)) - (##cdr _e144958144974_)))) + (##cdr _e144955144971_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144957144977_)) + (gx#identifier? _hd144954144974_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd144957144977_)) + _hd144954144974_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144956144979_)) - (let ((_e144961144982_ + _tl144953144976_)) + (let ((_e144958144979_ (let () (declare (not safe)) (gx#stx-e - _tl144956144979_)))) - (let ((_hd144960144985_ + _tl144953144976_)))) + (let ((_hd144957144982_ (let () (declare (not safe)) - (##car _e144961144982_))) - (_tl144959144987_ + (##car _e144958144979_))) + (_tl144956144984_ (let () (declare (not safe)) - (##cdr _e144961144982_)))) + (##cdr _e144958144979_)))) (if (let () (declare (not safe)) (gx#stx-null? - _hd144960144985_)) + _hd144957144982_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl144959144987_)) - (let ((_e144964144990_ + (gx#stx-pair? _tl144956144984_)) + (let ((_e144961144987_ (let () (declare (not safe)) - (gx#stx-e _tl144959144987_)))) - (let ((_hd144963144993_ + (gx#stx-e _tl144956144984_)))) + (let ((_hd144960144990_ (let () (declare (not safe)) - (##car _e144964144990_))) - (_tl144962144995_ + (##car _e144961144987_))) + (_tl144959144992_ (let () (declare (not safe)) - (##cdr _e144964144990_)))) + (##cdr _e144961144987_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144962144995_)) - ((lambda (_L144998_) - (let ((_g150119_ + (gx#stx-null? _tl144959144992_)) + ((lambda (_L144995_) + (let ((_g150116_ (let () (declare (not safe)) - (_basic-block144934_ - _L144998_ + (_basic-block144931_ + _L144995_ '() '())))) (begin - (let ((_g150120_ + (let ((_g150117_ (let () (declare (not safe)) - (if (##values? _g150119_) - (##vector-length _g150119_) + (if (##values? _g150116_) + (##vector-length _g150116_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150120_ 2))) + (##fx= _g150117_ 2))) (error "Context expects 2 values" - _g150120_))) - (let ((_body145016_ + _g150117_))) + (let ((_body145013_ (let () (declare (not safe)) - (##vector-ref _g150119_ 0))) - (_body-blocks145017_ + (##vector-ref _g150116_ 0))) + (_body-blocks145014_ (let () (declare (not safe)) - (##vector-ref _g150119_ 1)))) - (let ((__tmp150121 - (let ((__tmp150122 - (let ((__tmp150123 - (let ((__tmp150124 + (##vector-ref _g150116_ 1)))) + (let ((__tmp150118 + (let ((__tmp150119 + (let ((__tmp150120 + (let ((__tmp150121 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150126 - (let ((__tmp150127 - (let ((__tmp150128 + (let ((__tmp150123 + (let ((__tmp150124 + (let ((__tmp150125 (let () (declare (not safe)) - (cons _body145016_ '())))) + (cons _body145013_ '())))) (declare (not safe)) - (cons '() __tmp150128)))) + (cons '() __tmp150125)))) (declare (not safe)) - (cons '%#lambda __tmp150127))) - (__tmp150125 + (cons '%#lambda __tmp150124))) + (__tmp150122 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp150126 __tmp150125)))) + (cons __tmp150123 __tmp150122)))) (declare (not safe)) - (cons 'restart: __tmp150124)))) + (cons 'restart: __tmp150121)))) (declare (not safe)) - (cons _name144951_ __tmp150123)))) + (cons _name144948_ __tmp150120)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150122 - _blocks144930_)))) + (cons __tmp150119 + _blocks144927_)))) (declare (not safe)) - (_fold-blocks144935_ - _body-blocks145017_ - __tmp150121)))))) - _hd144963144993_) + (_fold-blocks144932_ + _body-blocks145014_ + __tmp150118)))))) + _hd144960144990_) (let () (declare (not safe)) - (_g144953144969_ _g144954144972_))))) + (_g144950144966_ _g144951144969_))))) (let () (declare (not safe)) - (_g144953144969_ _g144954144972_))) + (_g144950144966_ _g144951144969_))) (let () (declare (not safe)) - (_g144953144969_ _g144954144972_))))) + (_g144950144966_ _g144951144969_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g144953144969_ - _g144954144972_))) + (_g144950144966_ + _g144951144969_))) (let () (declare (not safe)) - (_g144953144969_ - _g144954144972_))) + (_g144950144966_ + _g144951144969_))) (let () (declare (not safe)) - (_g144953144969_ - _g144954144972_))))) + (_g144950144966_ + _g144951144969_))))) (let () (declare (not safe)) - (_g144953144969_ _g144954144972_)))))) + (_g144950144966_ _g144951144969_)))))) (declare (not safe)) - (_g144952145019_ _body144950_))))) - (if (let () (declare (not safe)) (##pair? _clause144936144943_)) - (let ((_hd144940145025_ + (_g144949145016_ _body144947_))))) + (if (let () (declare (not safe)) (##pair? _clause144933144940_)) + (let ((_hd144937145022_ (let () (declare (not safe)) - (##car _clause144936144943_))) - (_tl144941145027_ + (##car _clause144933144940_))) + (_tl144938145024_ (let () (declare (not safe)) - (##cdr _clause144936144943_)))) - (let* ((_name145030_ _hd144940145025_) - (_body145032_ _tl144941145027_)) + (##cdr _clause144933144940_)))) + (let* ((_name145027_ _hd144937145022_) + (_body145029_ _tl144938145024_)) (declare (not safe)) - (_K144939145022_ _body145032_ _name145030_))) - (let () (declare (not safe)) (_E144938144947_))))))) + (_K144936145019_ _body145029_ _name145027_))) + (let () (declare (not safe)) (_E144935144944_))))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_blocks144535_) - (let _lp144537_ ((_rest144539_ _blocks144535_) (_blocks144540_ '())) - (let* ((_rest144541144549_ _rest144539_) - (_else144543144598_ + (lambda (_blocks144532_) + (let _lp144534_ ((_rest144536_ _blocks144532_) (_blocks144537_ '())) + (let* ((_rest144538144546_ _rest144536_) + (_else144540144595_ (lambda () - (let ((__tmp150129 - (lambda (_block144557_ _r144558_) - (let* ((_block144559144570_ _block144557_) - (_E144561144574_ + (let ((__tmp150126 + (lambda (_block144554_ _r144555_) + (let* ((_block144556144567_ _block144554_) + (_E144558144571_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block144559144570_)))) - (_K144562144580_ - (lambda (_kont144577_ _name144578_) - (let ((__tmp150130 + _block144556144567_)))) + (_K144559144577_ + (lambda (_kont144574_ _name144575_) + (let ((__tmp150127 (let () (declare (not safe)) - (cons _name144578_ - _kont144577_)))) + (cons _name144575_ + _kont144574_)))) (declare (not safe)) - (cons __tmp150130 _r144558_))))) + (cons __tmp150127 _r144555_))))) (if (let () (declare (not safe)) - (##pair? _block144559144570_)) - (let ((_hd144563144583_ + (##pair? _block144556144567_)) + (let ((_hd144560144580_ (let () (declare (not safe)) - (##car _block144559144570_))) - (_tl144564144585_ + (##car _block144556144567_))) + (_tl144561144582_ (let () (declare (not safe)) - (##cdr _block144559144570_)))) - (let ((_name144588_ _hd144563144583_)) + (##cdr _block144556144567_)))) + (let ((_name144585_ _hd144560144580_)) (if (let () (declare (not safe)) - (##pair? _tl144564144585_)) - (let ((_tl144566144590_ + (##pair? _tl144561144582_)) + (let ((_tl144563144587_ (let () (declare (not safe)) - (##cdr _tl144564144585_)))) + (##cdr _tl144561144582_)))) (if (let () (declare (not safe)) - (##pair? _tl144566144590_)) - (let* ((_hd144567144593_ + (##pair? _tl144563144587_)) + (let* ((_hd144564144590_ (let () (declare (not safe)) - (##car _tl144566144590_))) - (_kont144596_ - _hd144567144593_)) + (##car _tl144563144587_))) + (_kont144593_ + _hd144564144590_)) (declare (not safe)) - (_K144562144580_ - _kont144596_ - _name144588_)) + (_K144559144577_ + _kont144593_ + _name144585_)) (let () (declare (not safe)) - (_E144561144574_)))) + (_E144558144571_)))) (let () (declare (not safe)) - (_E144561144574_))))) + (_E144558144571_))))) (let () (declare (not safe)) - (_E144561144574_))))))) + (_E144558144571_))))))) (declare (not safe)) - (foldl1 __tmp150129 '() _blocks144540_)))) - (_K144545144917_ - (lambda (_rest144601_ _block144602_) - (let* ((_block144603144628_ _block144602_) - (_E144606144632_ + (foldl1 __tmp150126 '() _blocks144537_)))) + (_K144542144914_ + (lambda (_rest144598_ _block144599_) + (let* ((_block144600144625_ _block144599_) + (_E144603144629_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block144603144628_))))) - (let ((_K144618144888_ - (lambda (_assert144810_ _kont144811_ _name144812_) - (let* ((_g144814144830_ - (lambda (_g144815144827_) + _block144600144625_))))) + (let ((_K144615144885_ + (lambda (_assert144807_ _kont144808_ _name144809_) + (let* ((_g144811144827_ + (lambda (_g144812144824_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g144815144827_)))) - (_g144813144885_ - (lambda (_g144815144833_) + _g144812144824_)))) + (_g144810144882_ + (lambda (_g144812144830_) (if (let () (declare (not safe)) - (gx#stx-pair? _g144815144833_)) - (let ((_e144819144835_ + (gx#stx-pair? _g144812144830_)) + (let ((_e144816144832_ (let () (declare (not safe)) (gx#stx-e - _g144815144833_)))) - (let ((_hd144818144838_ + _g144812144830_)))) + (let ((_hd144815144835_ (let () (declare (not safe)) - (##car _e144819144835_))) - (_tl144817144840_ + (##car _e144816144832_))) + (_tl144814144837_ (let () (declare (not safe)) - (##cdr _e144819144835_)))) + (##cdr _e144816144832_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd144818144838_)) + _hd144815144835_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd144818144838_)) + _hd144815144835_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl144817144840_)) - (let ((_e144822144843_ + (gx#stx-pair? _tl144814144837_)) + (let ((_e144819144840_ (let () (declare (not safe)) - (gx#stx-e _tl144817144840_)))) - (let ((_hd144821144846_ + (gx#stx-e _tl144814144837_)))) + (let ((_hd144818144843_ (let () (declare (not safe)) - (##car _e144822144843_))) - (_tl144820144848_ + (##car _e144819144840_))) + (_tl144817144845_ (let () (declare (not safe)) - (##cdr _e144822144843_)))) + (##cdr _e144819144840_)))) (if (let () (declare (not safe)) - (gx#stx-null? _hd144821144846_)) + (gx#stx-null? _hd144818144843_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144820144848_)) - (let ((_e144825144851_ + (gx#stx-pair? _tl144817144845_)) + (let ((_e144822144848_ (let () (declare (not safe)) - (gx#stx-e _tl144820144848_)))) - (let ((_hd144824144854_ + (gx#stx-e _tl144817144845_)))) + (let ((_hd144821144851_ (let () (declare (not safe)) - (##car _e144825144851_))) - (_tl144823144856_ + (##car _e144822144848_))) + (_tl144820144853_ (let () (declare (not safe)) - (##cdr _e144825144851_)))) + (##cdr _e144822144848_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144823144856_)) - ((lambda (_L144859_) - (let* ((_body144874_ + (gx#stx-null? _tl144820144853_)) + ((lambda (_L144856_) + (let* ((_body144871_ (let () (declare (not safe)) (gxc#optimize-match-block - _L144859_ - _assert144810_ + _L144856_ + _assert144807_ '() - _rest144601_))) - (_block144876_ - (let ((__tmp150131 - (let ((__tmp150132 + _rest144598_))) + (_block144873_ + (let ((__tmp150128 + (let ((__tmp150129 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150134 - (let ((__tmp150135 - (let ((__tmp150136 + (let ((__tmp150131 + (let ((__tmp150132 + (let ((__tmp150133 (let () (declare (not safe)) - (cons _body144874_ '())))) + (cons _body144871_ '())))) (declare (not safe)) - (cons '() __tmp150136)))) + (cons '() __tmp150133)))) (declare (not safe)) - (cons '%#lambda __tmp150135))) - (__tmp150133 + (cons '%#lambda __tmp150132))) + (__tmp150130 (let () (declare (not safe)) - (cons _assert144810_ '())))) + (cons _assert144807_ '())))) (declare (not safe)) - (cons __tmp150134 __tmp150133)))) + (cons __tmp150131 __tmp150130)))) (declare (not safe)) - (cons 'restart: __tmp150132)))) + (cons 'restart: __tmp150129)))) (declare (not safe)) - (cons _name144812_ __tmp150131))) + (cons _name144809_ __tmp150128))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_blocks144878_ + (_blocks144875_ (let () (declare (not safe)) - (cons _block144876_ - _blocks144540_))) - (_rest144880_ + (cons _block144873_ + _blocks144537_))) + (_rest144877_ (let () (declare (not safe)) (gxc#optimize-match-prune-blocks - _rest144601_ - _blocks144878_))) - (_rest144882_ + _rest144598_ + _blocks144875_))) + (_rest144879_ (let () (declare (not safe)) (gxc#optimize-match-fuse-restart-blocks - _rest144880_ - _blocks144878_)))) + _rest144877_ + _blocks144875_)))) (let () (declare (not safe)) - (_lp144537_ - _rest144882_ - _blocks144878_)))) - _hd144824144854_) + (_lp144534_ + _rest144879_ + _blocks144875_)))) + _hd144821144851_) (let () (declare (not safe)) - (_g144814144830_ - _g144815144833_))))) + (_g144811144827_ + _g144812144830_))))) (let () (declare (not safe)) - (_g144814144830_ _g144815144833_))) + (_g144811144827_ _g144812144830_))) (let () (declare (not safe)) - (_g144814144830_ _g144815144833_))))) + (_g144811144827_ _g144812144830_))))) (let () (declare (not safe)) - (_g144814144830_ _g144815144833_))) + (_g144811144827_ _g144812144830_))) (let () (declare (not safe)) - (_g144814144830_ _g144815144833_))) + (_g144811144827_ _g144812144830_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g144814144830_ - _g144815144833_))))) + (_g144811144827_ + _g144812144830_))))) (let () (declare (not safe)) - (_g144814144830_ - _g144815144833_)))))) + (_g144811144827_ + _g144812144830_)))))) (declare (not safe)) - (_g144813144885_ _kont144811_)))) - (_K144607144771_ - (lambda (_bind144636_ - _assert144637_ - _kont144638_ - _name144639_) - (let* ((_g144641144667_ - (lambda (_g144642144664_) + (_g144810144882_ _kont144808_)))) + (_K144604144768_ + (lambda (_bind144633_ + _assert144634_ + _kont144635_ + _name144636_) + (let* ((_g144638144664_ + (lambda (_g144639144661_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g144642144664_)))) - (_g144640144768_ - (lambda (_g144642144670_) + _g144639144661_)))) + (_g144637144765_ + (lambda (_g144639144667_) (if (let () (declare (not safe)) - (gx#stx-pair? _g144642144670_)) - (let ((_e144647144672_ + (gx#stx-pair? _g144639144667_)) + (let ((_e144644144669_ (let () (declare (not safe)) (gx#stx-e - _g144642144670_)))) - (let ((_hd144646144675_ + _g144639144667_)))) + (let ((_hd144643144672_ (let () (declare (not safe)) - (##car _e144647144672_))) - (_tl144645144677_ + (##car _e144644144669_))) + (_tl144642144674_ (let () (declare (not safe)) - (##cdr _e144647144672_)))) + (##cdr _e144644144669_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd144646144675_)) + _hd144643144672_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd144646144675_)) + _hd144643144672_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl144645144677_)) - (let ((_e144650144680_ + (gx#stx-pair? _tl144642144674_)) + (let ((_e144647144677_ (let () (declare (not safe)) - (gx#stx-e _tl144645144677_)))) - (let ((_hd144649144683_ + (gx#stx-e _tl144642144674_)))) + (let ((_hd144646144680_ (let () (declare (not safe)) - (##car _e144650144680_))) - (_tl144648144685_ + (##car _e144647144677_))) + (_tl144645144682_ (let () (declare (not safe)) - (##cdr _e144650144680_)))) + (##cdr _e144647144677_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd144649144683_)) - (let ((_g150137_ + (gx#stx-pair/null? _hd144646144680_)) + (let ((_g150134_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd144649144683_ + _hd144646144680_ '0)))) (begin - (let ((_g150138_ + (let ((_g150135_ (let () (declare (not safe)) - (if (##values? _g150137_) - (##vector-length _g150137_) + (if (##values? _g150134_) + (##vector-length _g150134_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150138_ 2))) + (##fx= _g150135_ 2))) (error "Context expects 2 values" - _g150138_))) - (let ((_target144651144688_ + _g150135_))) + (let ((_target144648144685_ (let () (declare (not safe)) - (##vector-ref _g150137_ 0))) - (_tl144653144690_ + (##vector-ref _g150134_ 0))) + (_tl144650144687_ (let () (declare (not safe)) - (##vector-ref _g150137_ 1)))) + (##vector-ref _g150134_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144653144690_)) - (letrec ((_loop144654144693_ - (lambda (_hd144652144696_ - _id144658144698_) + (gx#stx-null? _tl144650144687_)) + (letrec ((_loop144651144690_ + (lambda (_hd144649144693_ + _id144655144695_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd144652144696_)) - (let ((_e144655144701_ + _hd144649144693_)) + (let ((_e144652144698_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd144652144696_)))) - (let ((_lp-hd144656144704_ - (let () (declare (not safe)) (##car _e144655144701_))) - (_lp-tl144657144706_ - (let () (declare (not safe)) (##cdr _e144655144701_)))) - (let ((__tmp150148 + (gx#stx-e _hd144649144693_)))) + (let ((_lp-hd144653144701_ + (let () (declare (not safe)) (##car _e144652144698_))) + (_lp-tl144654144703_ + (let () (declare (not safe)) (##cdr _e144652144698_)))) + (let ((__tmp150145 (let () (declare (not safe)) - (cons _lp-hd144656144704_ _id144658144698_)))) + (cons _lp-hd144653144701_ _id144655144695_)))) (declare (not safe)) - (_loop144654144693_ _lp-tl144657144706_ __tmp150148)))) - (let ((_id144659144709_ (reverse _id144658144698_))) + (_loop144651144690_ _lp-tl144654144703_ __tmp150145)))) + (let ((_id144656144706_ (reverse _id144655144695_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144648144685_)) - (let ((_e144662144712_ + (gx#stx-pair? _tl144645144682_)) + (let ((_e144659144709_ (let () (declare (not safe)) - (gx#stx-e _tl144648144685_)))) - (let ((_hd144661144715_ + (gx#stx-e _tl144645144682_)))) + (let ((_hd144658144712_ (let () (declare (not safe)) - (##car _e144662144712_))) - (_tl144660144717_ + (##car _e144659144709_))) + (_tl144657144714_ (let () (declare (not safe)) - (##cdr _e144662144712_)))) + (##cdr _e144659144709_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144660144717_)) - ((lambda (_L144720_ _L144721_) - (let* ((_body144750_ + (gx#stx-null? _tl144657144714_)) + ((lambda (_L144717_ _L144718_) + (let* ((_body144747_ (let () (declare (not safe)) (gxc#optimize-match-block - _L144720_ - _assert144637_ - _bind144636_ - _rest144601_))) - (_block144759_ - (let ((__tmp150139 - (let ((__tmp150140 - (let ((__tmp150143 - (let ((__tmp150144 + _L144717_ + _assert144634_ + _bind144633_ + _rest144598_))) + (_block144756_ + (let ((__tmp150136 + (let ((__tmp150137 + (let ((__tmp150140 + (let ((__tmp150141 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150146 - (let ((__tmp150147 - (lambda (_g144751144754_ - _g144752144756_) + (let ((__tmp150143 + (let ((__tmp150144 + (lambda (_g144748144751_ + _g144749144753_) (let () (declare (not safe)) - (cons _g144751144754_ - _g144752144756_))))) + (cons _g144748144751_ + _g144749144753_))))) (declare (not safe)) - (foldr1 __tmp150147 '() _L144721_))) - (__tmp150145 + (foldr1 __tmp150144 '() _L144718_))) + (__tmp150142 (let () (declare (not safe)) - (cons _body144750_ '())))) + (cons _body144747_ '())))) (declare (not safe)) - (cons __tmp150146 __tmp150145)))) + (cons __tmp150143 __tmp150142)))) (declare (not safe)) - (cons '%#lambda __tmp150144))) - (__tmp150141 - (let ((__tmp150142 + (cons '%#lambda __tmp150141))) + (__tmp150138 + (let ((__tmp150139 (let () (declare (not safe)) - (cons _bind144636_ '())))) + (cons _bind144633_ '())))) (declare (not safe)) - (cons _assert144637_ __tmp150142)))) + (cons _assert144634_ __tmp150139)))) (declare (not safe)) - (cons __tmp150143 __tmp150141)))) + (cons __tmp150140 __tmp150138)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'continue: - __tmp150140)))) + __tmp150137)))) (declare (not safe)) - (cons _name144639_ __tmp150139))) - (_blocks144761_ + (cons _name144636_ __tmp150136))) + (_blocks144758_ (let () (declare (not safe)) - (cons _block144759_ _blocks144540_))) - (_rest144763_ + (cons _block144756_ _blocks144537_))) + (_rest144760_ (let () (declare (not safe)) (gxc#optimize-match-prune-blocks - _rest144601_ - _blocks144761_))) - (_rest144765_ + _rest144598_ + _blocks144758_))) + (_rest144762_ (let () (declare (not safe)) (gxc#optimize-match-fuse-restart-blocks - _rest144763_ - _blocks144761_)))) + _rest144760_ + _blocks144758_)))) (let () (declare (not safe)) - (_lp144537_ _rest144765_ _blocks144761_)))) - _hd144661144715_ - _id144659144709_) + (_lp144534_ _rest144762_ _blocks144758_)))) + _hd144658144712_ + _id144656144706_) (let () (declare (not safe)) - (_g144641144667_ _g144642144670_))))) + (_g144638144664_ _g144639144667_))))) (let () (declare (not safe)) - (_g144641144667_ _g144642144670_)))))))) + (_g144638144664_ _g144639144667_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop144654144693_ - _target144651144688_ + (_loop144651144690_ + _target144648144685_ '()))) (let () (declare (not safe)) - (_g144641144667_ _g144642144670_)))))) + (_g144638144664_ _g144639144667_)))))) (let () (declare (not safe)) - (_g144641144667_ _g144642144670_))))) + (_g144638144664_ _g144639144667_))))) (let () (declare (not safe)) - (_g144641144667_ _g144642144670_))) + (_g144638144664_ _g144639144667_))) (let () (declare (not safe)) - (_g144641144667_ _g144642144670_))) + (_g144638144664_ _g144639144667_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g144641144667_ - _g144642144670_))))) + (_g144638144664_ + _g144639144667_))))) (let () (declare (not safe)) - (_g144641144667_ - _g144642144670_)))))) + (_g144638144664_ + _g144639144667_)))))) (declare (not safe)) - (_g144640144768_ _kont144638_))))) + (_g144637144765_ _kont144635_))))) (if (let () (declare (not safe)) - (##pair? _block144603144628_)) - (let ((_tl144620144893_ + (##pair? _block144600144625_)) + (let ((_tl144617144890_ (let () (declare (not safe)) - (##cdr _block144603144628_))) - (_hd144619144891_ + (##cdr _block144600144625_))) + (_hd144616144888_ (let () (declare (not safe)) - (##car _block144603144628_)))) + (##car _block144600144625_)))) (if (let () (declare (not safe)) - (##pair? _tl144620144893_)) - (let ((_tl144622144900_ + (##pair? _tl144617144890_)) + (let ((_tl144619144897_ (let () (declare (not safe)) - (##cdr _tl144620144893_))) - (_hd144621144898_ + (##cdr _tl144617144890_))) + (_hd144618144895_ (let () (declare (not safe)) - (##car _tl144620144893_)))) + (##car _tl144617144890_)))) (if (let () (declare (not safe)) - (##eq? _hd144621144898_ 'restart:)) + (##eq? _hd144618144895_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl144622144900_)) - (let ((_tl144624144905_ + (##pair? _tl144619144897_)) + (let ((_tl144621144902_ (let () (declare (not safe)) - (##cdr _tl144622144900_))) - (_hd144623144903_ + (##cdr _tl144619144897_))) + (_hd144620144900_ (let () (declare (not safe)) - (##car _tl144622144900_)))) + (##car _tl144619144897_)))) (if (let () (declare (not safe)) - (##pair? _tl144624144905_)) - (let ((_tl144626144912_ + (##pair? _tl144621144902_)) + (let ((_tl144623144909_ (let () (declare (not safe)) - (##cdr _tl144624144905_))) - (_hd144625144910_ + (##cdr _tl144621144902_))) + (_hd144622144907_ (let () (declare (not safe)) - (##car _tl144624144905_)))) + (##car _tl144621144902_)))) (if (let () (declare (not safe)) - (##null? _tl144626144912_)) - (let ((_name144896_ - _hd144619144891_) - (_kont144908_ - _hd144623144903_) - (_assert144915_ - _hd144625144910_)) + (##null? _tl144623144909_)) + (let ((_name144893_ + _hd144616144888_) + (_kont144905_ + _hd144620144900_) + (_assert144912_ + _hd144622144907_)) (let () (declare (not safe)) - (_K144618144888_ - _assert144915_ - _kont144908_ - _name144896_))) + (_K144615144885_ + _assert144912_ + _kont144905_ + _name144893_))) (let () (declare (not safe)) - (_E144606144632_)))) + (_E144603144629_)))) (let () (declare (not safe)) - (_E144606144632_)))) + (_E144603144629_)))) (let () (declare (not safe)) - (_E144606144632_))) + (_E144603144629_))) (if (let () (declare (not safe)) - (##eq? _hd144621144898_ + (##eq? _hd144618144895_ 'continue:)) (if (let () (declare (not safe)) - (##pair? _tl144622144900_)) - (let ((_tl144613144788_ + (##pair? _tl144619144897_)) + (let ((_tl144610144785_ (let () (declare (not safe)) - (##cdr _tl144622144900_))) - (_hd144612144786_ + (##cdr _tl144619144897_))) + (_hd144609144783_ (let () (declare (not safe)) - (##car _tl144622144900_)))) + (##car _tl144619144897_)))) (if (let () (declare (not safe)) - (##pair? _tl144613144788_)) - (let ((_tl144615144795_ + (##pair? _tl144610144785_)) + (let ((_tl144612144792_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl144613144788_))) - (_hd144614144793_ - (let () (declare (not safe)) (##car _tl144613144788_)))) - (if (let () (declare (not safe)) (##pair? _tl144615144795_)) - (let ((_tl144617144802_ + (##cdr _tl144610144785_))) + (_hd144611144790_ + (let () (declare (not safe)) (##car _tl144610144785_)))) + (if (let () (declare (not safe)) (##pair? _tl144612144792_)) + (let ((_tl144614144799_ (let () (declare (not safe)) - (##cdr _tl144615144795_))) - (_hd144616144800_ + (##cdr _tl144612144792_))) + (_hd144613144797_ (let () (declare (not safe)) - (##car _tl144615144795_)))) + (##car _tl144612144792_)))) (if (let () (declare (not safe)) - (##null? _tl144617144802_)) - (let ((_name144779_ _hd144619144891_) - (_kont144791_ _hd144612144786_) - (_assert144798_ _hd144614144793_) - (_bind144805_ _hd144616144800_)) + (##null? _tl144614144799_)) + (let ((_name144776_ _hd144616144888_) + (_kont144788_ _hd144609144783_) + (_assert144795_ _hd144611144790_) + (_bind144802_ _hd144613144797_)) (let () (declare (not safe)) - (_K144607144771_ - _bind144805_ - _assert144798_ - _kont144791_ - _name144779_))) - (let () (declare (not safe)) (_E144606144632_)))) - (let () (declare (not safe)) (_E144606144632_)))) - (let () (declare (not safe)) (_E144606144632_)))) + (_K144604144768_ + _bind144802_ + _assert144795_ + _kont144788_ + _name144776_))) + (let () (declare (not safe)) (_E144603144629_)))) + (let () (declare (not safe)) (_E144603144629_)))) + (let () (declare (not safe)) (_E144603144629_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E144606144632_))) + (_E144603144629_))) (let () (declare (not safe)) - (_E144606144632_))))) + (_E144603144629_))))) (let () (declare (not safe)) - (_E144606144632_)))) + (_E144603144629_)))) (let () (declare (not safe)) - (_E144606144632_)))))))) - (if (let () (declare (not safe)) (##pair? _rest144541144549_)) - (let ((_hd144546144920_ + (_E144603144629_)))))))) + (if (let () (declare (not safe)) (##pair? _rest144538144546_)) + (let ((_hd144543144917_ (let () (declare (not safe)) - (##car _rest144541144549_))) - (_tl144547144922_ + (##car _rest144538144546_))) + (_tl144544144919_ (let () (declare (not safe)) - (##cdr _rest144541144549_)))) - (let* ((_block144925_ _hd144546144920_) - (_rest144927_ _tl144547144922_)) + (##cdr _rest144538144546_)))) + (let* ((_block144922_ _hd144543144917_) + (_rest144924_ _tl144544144919_)) (declare (not safe)) - (_K144545144917_ _rest144927_ _block144925_))) - (let () (declare (not safe)) (_else144543144598_))))))) + (_K144542144914_ _rest144924_ _block144922_))) + (let () (declare (not safe)) (_else144540144595_))))))) (define gxc#optimize-match-block - (lambda (_body139168_ _assert139169_ _bind139170_ _blocks139171_) - (letrec* ((_env-assert139406_ '()) - (_env-type139407_ '()) - (_env-bind139408_ '()) - (_in-splice?139409_ '#f) - (_do-assert139410_ - (lambda (_assert144458_ _K144459_) - (if (let () (declare (not safe)) (pair? _assert144458_)) - (let _lp144461_ ((_rest144463_ _assert144458_) - (_env-assert144464_ - _env-assert139406_) - (_env-type144465_ _env-type139407_)) - (let* ((_rest144466144474_ _rest144463_) - (_else144468144482_ + (lambda (_body139165_ _assert139166_ _bind139167_ _blocks139168_) + (letrec* ((_env-assert139403_ '()) + (_env-type139404_ '()) + (_env-bind139405_ '()) + (_in-splice?139406_ '#f) + (_do-assert139407_ + (lambda (_assert144455_ _K144456_) + (if (let () (declare (not safe)) (pair? _assert144455_)) + (let _lp144458_ ((_rest144460_ _assert144455_) + (_env-assert144461_ + _env-assert139403_) + (_env-type144462_ _env-type139404_)) + (let* ((_rest144463144471_ _rest144460_) + (_else144465144479_ (lambda () (let () (declare (not safe)) - (_do-assert!139416_ - _env-assert144464_ - _env-type144465_ - _K144459_)))) - (_K144470144523_ - (lambda (_rest144485_ _assert144486_) - (let* ((_assert144487144494_ - _assert144486_) - (_E144489144498_ + (_do-assert!139413_ + _env-assert144461_ + _env-type144462_ + _K144456_)))) + (_K144467144520_ + (lambda (_rest144482_ _assert144483_) + (let* ((_assert144484144491_ + _assert144483_) + (_E144486144495_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _assert144487144494_)))) - (_K144490144511_ - (lambda (_val144501_ _expr144502_) - (let* ((_sexpr144504_ + _assert144484144491_)))) + (_K144487144508_ + (lambda (_val144498_ _expr144499_) + (let* ((_sexpr144501_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr144502_))) - (_env-assert144506_ - (let ((__tmp150149 + _expr144499_))) + (_env-assert144503_ + (let ((__tmp150146 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _sexpr144504_ _val144501_)))) + (cons _sexpr144501_ _val144498_)))) (declare (not safe)) - (cons __tmp150149 _env-assert144464_))) - (_env-type144508_ + (cons __tmp150146 _env-assert144461_))) + (_env-type144505_ (let () (declare (not safe)) - (_fold-assert-type139412_ - _expr144502_ - _val144501_ - _env-type144465_)))) + (_fold-assert-type139409_ + _expr144499_ + _val144498_ + _env-type144462_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp144461_ - _rest144485_ - _env-assert144506_ - _env-type144508_)))))) + (_lp144458_ + _rest144482_ + _env-assert144503_ + _env-type144505_)))))) (if (let () (declare (not safe)) - (##pair? _assert144487144494_)) - (let ((_hd144491144514_ + (##pair? _assert144484144491_)) + (let ((_hd144488144511_ (let () (declare (not safe)) - (##car _assert144487144494_))) - (_tl144492144516_ + (##car _assert144484144491_))) + (_tl144489144513_ (let () (declare (not safe)) - (##cdr _assert144487144494_)))) - (let* ((_expr144519_ - _hd144491144514_) - (_val144521_ - _tl144492144516_)) + (##cdr _assert144484144491_)))) + (let* ((_expr144516_ + _hd144488144511_) + (_val144518_ + _tl144489144513_)) (declare (not safe)) - (_K144490144511_ - _val144521_ - _expr144519_))) + (_K144487144508_ + _val144518_ + _expr144516_))) (let () (declare (not safe)) - (_E144489144498_))))))) + (_E144486144495_))))))) (if (let () (declare (not safe)) - (##pair? _rest144466144474_)) - (let ((_hd144471144526_ + (##pair? _rest144463144471_)) + (let ((_hd144468144523_ (let () (declare (not safe)) - (##car _rest144466144474_))) - (_tl144472144528_ + (##car _rest144463144471_))) + (_tl144469144525_ (let () (declare (not safe)) - (##cdr _rest144466144474_)))) - (let* ((_assert144531_ _hd144471144526_) - (_rest144533_ _tl144472144528_)) + (##cdr _rest144463144471_)))) + (let* ((_assert144528_ _hd144468144523_) + (_rest144530_ _tl144469144525_)) (declare (not safe)) - (_K144470144523_ - _rest144533_ - _assert144531_))) + (_K144467144520_ + _rest144530_ + _assert144528_))) (let () (declare (not safe)) - (_else144468144482_))))) - (_K144459_)))) - (_predicate-type139411_ - (lambda (_id144403_) - (let* ((_sym144405_ + (_else144465144479_))))) + (_K144456_)))) + (_predicate-type139408_ + (lambda (_id144400_) + (let* ((_sym144402_ (let () (declare (not safe)) - (gxc#identifier-symbol _id144403_))) - (_$e144407_ _sym144405_)) - (let ((_default144409144440_ + (gxc#identifier-symbol _id144400_))) + (_$e144404_ _sym144402_)) + (let ((_default144406144437_ (lambda () - (let* ((_g144412144419_ + (let* ((_g144409144416_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _sym144405_))) - (_else144414144427_ (lambda () '#f)) - (_K144416144432_ - (lambda (_t144430_) + _sym144402_))) + (_else144411144424_ (lambda () '#f)) + (_K144413144429_ + (lambda (_t144427_) (let () (declare (not safe)) (gxc#optimizer-resolve-type - _t144430_))))) + _t144427_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g144412144419_ + _g144409144416_ 'gxc#!predicate::t)) - (let* ((_e144417144435_ + (let* ((_e144414144432_ (let () (declare (not safe)) (##unchecked-structure-ref - _g144412144419_ + _g144409144416_ '1 gxc#!type::t '#f))) - (_t144438_ _e144417144435_)) + (_t144435_ _e144414144432_)) (declare (not safe)) - (gxc#optimizer-resolve-type _t144438_)) + (gxc#optimizer-resolve-type _t144435_)) (let () (declare (not safe)) - (_else144414144427_)))))) - (_table144410144442_ + (_else144411144424_)))))) + (_table144407144439_ '#(#f (##box? . 3) #f @@ -4363,50 +4363,50 @@ #f #f #f))) - (if (let () (declare (not safe)) (symbol? _$e144407_)) - (let* ((_h144445_ + (if (let () (declare (not safe)) (symbol? _$e144404_)) + (let* ((_h144442_ (let () (declare (not safe)) - (##symbol-hash _$e144407_))) - (_ix144448_ + (##symbol-hash _$e144404_))) + (_ix144445_ (let () (declare (not safe)) - (##fxmodulo _h144445_ '63))) - (_q144451_ + (##fxmodulo _h144442_ '63))) + (_q144448_ (let () (declare (not safe)) (##vector-ref - _table144410144442_ - _ix144448_)))) - (if _q144451_ - (if (let ((__tmp150150 + _table144407144439_ + _ix144445_)))) + (if _q144448_ + (if (let ((__tmp150147 (let () (declare (not safe)) - (##car _q144451_)))) + (##car _q144448_)))) (declare (not safe)) - (eq? __tmp150150 _$e144407_)) - (let ((_x144455_ + (eq? __tmp150147 _$e144404_)) + (let ((_x144452_ (let () (declare (not safe)) - (##cdr _q144451_)))) + (##cdr _q144448_)))) (if (let () (declare (not safe)) - (##fx< _x144455_ '5)) + (##fx< _x144452_ '5)) (if (let () (declare (not safe)) - (##fx< _x144455_ '2)) + (##fx< _x144452_ '2)) (if (let () (declare (not safe)) - (##fx= _x144455_ '0)) + (##fx= _x144452_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _x144455_ '2)) + (##fx= _x144452_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _x144455_ + (##fx= _x144452_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '3)) 'box @@ -4414,19 +4414,19 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##fx< _x144455_ '7)) + (##fx< _x144452_ '7)) (if (let () (declare (not safe)) - (##fx= _x144455_ '5)) + (##fx= _x144452_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _x144455_ '7)) + (##fx= _x144452_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _x144455_ + (##fx= _x144452_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '8)) 'stx-box @@ -4434,5306 +4434,5306 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_default144409144440_))) + (_default144406144437_))) (let () (declare (not safe)) - (_default144409144440_)))) + (_default144406144437_)))) (let () (declare (not safe)) - (_default144409144440_))))))) - (_fold-assert-type139412_ - (lambda (_expr143351_ _val143352_ _env143353_) - (let* ((___stx147488147489_ _expr143351_) - (_g143361143540_ + (_default144406144437_))))))) + (_fold-assert-type139409_ + (lambda (_expr143348_ _val143349_ _env143350_) + (let* ((___stx147485147486_ _expr143348_) + (_g143358143537_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147488147489_))))) - (let ((___kont147490147491_ - (lambda (_L144372_ _L144373_) - (let ((_$e144395_ + ___stx147485147486_))))) + (let ((___kont147487147488_ + (lambda (_L144369_ _L144370_) + (let ((_$e144392_ (let () (declare (not safe)) - (_predicate-type139411_ _L144373_)))) - (if _$e144395_ - ((lambda (_t144398_) - (let ((__tmp150151 - (let ((__tmp150152 - (let ((__tmp150153 + (_predicate-type139408_ _L144370_)))) + (if _$e144392_ + ((lambda (_t144395_) + (let ((__tmp150148 + (let ((__tmp150149 + (let ((__tmp150150 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _val143352_ '())))) + (cons _val143349_ '())))) (declare (not safe)) - (cons _t144398_ __tmp150153)))) + (cons _t144395_ __tmp150150)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L144372_ - __tmp150152)))) + (cons _L144369_ + __tmp150149)))) (declare (not safe)) - (cons __tmp150151 _env143353_))) - _$e144395_) - _env143353_)))) - (___kont147492147493_ - (lambda (_L144062_ _L144063_ _L144064_) - (let ((_$e144089_ + (cons __tmp150148 _env143350_))) + _$e144392_) + _env143350_)))) + (___kont147489147490_ + (lambda (_L144059_ _L144060_ _L144061_) + (let ((_$e144086_ (let () (declare (not safe)) - (gxc#identifier-symbol _L144064_)))) + (gxc#identifier-symbol _L144061_)))) (if (or (let () (declare (not safe)) - (eq? '##fx= _$e144089_)) + (eq? '##fx= _$e144086_)) (let () (declare (not safe)) - (eq? 'fx= _$e144089_))) - (let* ((___stx147394147395_ _L144063_) - (_g144096144125_ + (eq? 'fx= _$e144086_))) + (let* ((___stx147391147392_ _L144060_) + (_g144093144122_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147394147395_))))) - (let ((___kont147396147397_ - (lambda (_L144193_ _L144194_) - (let ((_$e144219_ + ___stx147391147392_))))) + (let ((___kont147393147394_ + (lambda (_L144190_ _L144191_) + (let ((_$e144216_ (let () (declare (not safe)) - (_countf-symbol139413_ - _L144194_)))) - (if _$e144219_ - ((lambda (_sym144222_) - (let ((__tmp150159 + (_countf-symbol139410_ + _L144191_)))) + (if _$e144216_ + ((lambda (_sym144219_) + (let ((__tmp150156 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150160 - (let ((__tmp150161 - (let ((__tmp150163 + (let ((__tmp150157 + (let ((__tmp150158 + (let ((__tmp150160 (let () (declare (not safe)) - (gx#stx-e _L144062_))) - (__tmp150162 + (gx#stx-e _L144059_))) + (__tmp150159 (let () (declare (not safe)) - (cons _val143352_ '())))) + (cons _val143349_ '())))) (declare (not safe)) - (cons __tmp150163 __tmp150162)))) + (cons __tmp150160 __tmp150159)))) (declare (not safe)) - (cons _sym144222_ __tmp150161)))) + (cons _sym144219_ __tmp150158)))) (declare (not safe)) - (cons _L144193_ __tmp150160)))) + (cons _L144190_ __tmp150157)))) (declare (not safe)) - (cons __tmp150159 _env143353_))) - _$e144219_) - _env143353_)))) + (cons __tmp150156 _env143350_))) + _$e144216_) + _env143350_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147398147399_ - (lambda () _env143353_))) + (___kont147395147396_ + (lambda () _env143350_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx147394147395_)) - (let ((_e144102144137_ + ___stx147391147392_)) + (let ((_e144099144134_ (let () (declare (not safe)) (gx#stx-e - ___stx147394147395_)))) - (let ((_tl144100144142_ + ___stx147391147392_)))) + (let ((_tl144097144139_ (let () (declare (not safe)) - (##cdr _e144102144137_))) - (_hd144101144140_ + (##cdr _e144099144134_))) + (_hd144098144137_ (let () (declare (not safe)) - (##car _e144102144137_)))) + (##car _e144099144134_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd144101144140_)) + _hd144098144137_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd144101144140_)) + _hd144098144137_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl144100144142_)) - (let ((_e144105144145_ + (gx#stx-pair? _tl144097144139_)) + (let ((_e144102144142_ (let () (declare (not safe)) - (gx#stx-e _tl144100144142_)))) - (let ((_tl144103144150_ + (gx#stx-e _tl144097144139_)))) + (let ((_tl144100144147_ (let () (declare (not safe)) - (##cdr _e144105144145_))) - (_hd144104144148_ + (##cdr _e144102144142_))) + (_hd144101144145_ (let () (declare (not safe)) - (##car _e144105144145_)))) + (##car _e144102144142_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd144104144148_)) - (let ((_e144108144153_ + (gx#stx-pair? _hd144101144145_)) + (let ((_e144105144150_ (let () (declare (not safe)) - (gx#stx-e _hd144104144148_)))) - (let ((_tl144106144158_ + (gx#stx-e _hd144101144145_)))) + (let ((_tl144103144155_ (let () (declare (not safe)) - (##cdr _e144108144153_))) - (_hd144107144156_ + (##cdr _e144105144150_))) + (_hd144104144153_ (let () (declare (not safe)) - (##car _e144108144153_)))) + (##car _e144105144150_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144107144156_)) + (gx#identifier? _hd144104144153_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd144107144156_)) + _hd144104144153_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144106144158_)) - (let ((_e144111144161_ + _tl144103144155_)) + (let ((_e144108144158_ (let () (declare (not safe)) (gx#stx-e - _tl144106144158_)))) - (let ((_tl144109144166_ + _tl144103144155_)))) + (let ((_tl144106144163_ (let () (declare (not safe)) - (##cdr _e144111144161_))) - (_hd144110144164_ + (##cdr _e144108144158_))) + (_hd144107144161_ (let () (declare (not safe)) - (##car _e144111144161_)))) + (##car _e144108144158_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl144109144166_)) + _tl144106144163_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144103144150_)) - (let ((_e144114144169_ + _tl144100144147_)) + (let ((_e144111144166_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl144103144150_)))) - (let ((_tl144112144174_ + (gx#stx-e _tl144100144147_)))) + (let ((_tl144109144171_ (let () (declare (not safe)) - (##cdr _e144114144169_))) - (_hd144113144172_ + (##cdr _e144111144166_))) + (_hd144110144169_ (let () (declare (not safe)) - (##car _e144114144169_)))) + (##car _e144111144166_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd144113144172_)) - (let ((_e144117144177_ + (gx#stx-pair? _hd144110144169_)) + (let ((_e144114144174_ (let () (declare (not safe)) - (gx#stx-e _hd144113144172_)))) - (let ((_tl144115144182_ + (gx#stx-e _hd144110144169_)))) + (let ((_tl144112144179_ (let () (declare (not safe)) - (##cdr _e144117144177_))) - (_hd144116144180_ + (##cdr _e144114144174_))) + (_hd144113144177_ (let () (declare (not safe)) - (##car _e144117144177_)))) + (##car _e144114144174_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144116144180_)) + (gx#identifier? _hd144113144177_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd144116144180_)) + (gx#stx-eq? '%#ref _hd144113144177_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144115144182_)) - (let ((_e144120144185_ + (gx#stx-pair? _tl144112144179_)) + (let ((_e144117144182_ (let () (declare (not safe)) (gx#stx-e - _tl144115144182_)))) - (let ((_tl144118144190_ + _tl144112144179_)))) + (let ((_tl144115144187_ (let () (declare (not safe)) - (##cdr _e144120144185_))) - (_hd144119144188_ + (##cdr _e144117144182_))) + (_hd144116144185_ (let () (declare (not safe)) - (##car _e144120144185_)))) + (##car _e144117144182_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl144118144190_)) + _tl144115144187_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl144112144174_)) - (___kont147396147397_ - _hd144119144188_ - _hd144110144164_) - (___kont147398147399_)) - (___kont147398147399_)))) - (___kont147398147399_)) - (___kont147398147399_)) - (___kont147398147399_)))) - (___kont147398147399_)))) - (___kont147398147399_)) - (___kont147398147399_)))) + _tl144109144171_)) + (___kont147393147394_ + _hd144116144185_ + _hd144107144161_) + (___kont147395147396_)) + (___kont147395147396_)))) + (___kont147395147396_)) + (___kont147395147396_)) + (___kont147395147396_)))) + (___kont147395147396_)))) + (___kont147395147396_)) + (___kont147395147396_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147398147399_)) - (___kont147398147399_)) - (___kont147398147399_)))) - (___kont147398147399_)))) - (___kont147398147399_)) - (___kont147398147399_)) - (___kont147398147399_)))) + (___kont147395147396_)) + (___kont147395147396_)) + (___kont147395147396_)))) + (___kont147395147396_)))) + (___kont147395147396_)) + (___kont147395147396_)) + (___kont147395147396_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147398147399_)))) + (___kont147395147396_)))) (if (or (let () (declare (not safe)) - (eq? '##eq? _$e144089_)) + (eq? '##eq? _$e144086_)) (let () (declare (not safe)) - (eq? 'eq? _$e144089_)) + (eq? 'eq? _$e144086_)) (let () (declare (not safe)) - (eq? '##eqv? _$e144089_)) + (eq? '##eqv? _$e144086_)) (let () (declare (not safe)) - (eq? 'eqv? _$e144089_)) + (eq? 'eqv? _$e144086_)) (let () (declare (not safe)) - (eq? '##equal? _$e144089_)) + (eq? '##equal? _$e144086_)) (let () (declare (not safe)) - (eq? 'equal? _$e144089_)) + (eq? 'equal? _$e144086_)) (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e144089_)) + _$e144086_)) (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e144089_))) - ((lambda (_sym144248_) - (let* ((_sym144250_ + (eq? 'gx#stx-eq? _$e144086_))) + ((lambda (_sym144245_) + (let* ((_sym144247_ (let () (declare (not safe)) - (_eqf-symbol139414_ - _sym144248_))) - (___stx147462147463_ - _L144063_) - (_g144253144266_ + (_eqf-symbol139411_ + _sym144245_))) + (___stx147459147460_ + _L144060_) + (_g144250144263_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147462147463_))))) - (let ((___kont147464147465_ - (lambda (_L144294_) - (let ((__tmp150154 - (let ((__tmp150155 + ___stx147459147460_))))) + (let ((___kont147461147462_ + (lambda (_L144291_) + (let ((__tmp150151 + (let ((__tmp150152 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150156 - (let ((__tmp150158 + (let ((__tmp150153 + (let ((__tmp150155 (let () (declare (not safe)) - (gx#stx-e _L144062_))) - (__tmp150157 + (gx#stx-e _L144059_))) + (__tmp150154 (let () (declare (not safe)) - (cons _val143352_ '())))) + (cons _val143349_ '())))) (declare (not safe)) - (cons __tmp150158 __tmp150157)))) + (cons __tmp150155 __tmp150154)))) (declare (not safe)) - (cons _sym144250_ __tmp150156)))) + (cons _sym144247_ __tmp150153)))) (declare (not safe)) - (cons _L144294_ __tmp150155)))) + (cons _L144291_ __tmp150152)))) (declare (not safe)) - (cons __tmp150154 _env143353_)))) + (cons __tmp150151 _env143350_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147466147467_ - (lambda () _env143353_))) + (___kont147463147464_ + (lambda () _env143350_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx147462147463_)) - (let ((_e144258144278_ + ___stx147459147460_)) + (let ((_e144255144275_ (let () (declare (not safe)) (gx#stx-e - ___stx147462147463_)))) - (let ((_tl144256144283_ + ___stx147459147460_)))) + (let ((_tl144253144280_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e144258144278_))) - (_hd144257144281_ - (let () (declare (not safe)) (##car _e144258144278_)))) + (##cdr _e144255144275_))) + (_hd144254144278_ + (let () (declare (not safe)) (##car _e144255144275_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144257144281_)) + (gx#identifier? _hd144254144278_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd144257144281_)) + (gx#stx-eq? '%#ref _hd144254144278_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144256144283_)) - (let ((_e144261144286_ + (gx#stx-pair? _tl144253144280_)) + (let ((_e144258144283_ (let () (declare (not safe)) - (gx#stx-e _tl144256144283_)))) - (let ((_tl144259144291_ + (gx#stx-e _tl144253144280_)))) + (let ((_tl144256144288_ (let () (declare (not safe)) - (##cdr _e144261144286_))) - (_hd144260144289_ + (##cdr _e144258144283_))) + (_hd144257144286_ (let () (declare (not safe)) - (##car _e144261144286_)))) + (##car _e144258144283_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144259144291_)) - (___kont147464147465_ _hd144260144289_) - (___kont147466147467_)))) - (___kont147466147467_)) - (___kont147466147467_)) - (___kont147466147467_)))) + (gx#stx-null? _tl144256144288_)) + (___kont147461147462_ _hd144257144286_) + (___kont147463147464_)))) + (___kont147463147464_)) + (___kont147463147464_)) + (___kont147463147464_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147466147467_))))) - _$e144089_) - _env143353_))))) - (___kont147494147495_ - (lambda (_L143966_ _L143967_ _L143968_) - (let ((__tmp150164 - (let ((__tmp150174 + (___kont147463147464_))))) + _$e144086_) + _env143350_))))) + (___kont147491147492_ + (lambda (_L143963_ _L143964_ _L143965_) + (let ((__tmp150161 + (let ((__tmp150171 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp150165 - (let ((__tmp150171 - (let ((__tmp150173 + (__tmp150162 + (let ((__tmp150168 + (let ((__tmp150170 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150172 + (__tmp150169 (let () (declare (not safe)) - (cons _L143968_ + (cons _L143965_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp150173 __tmp150172))) + (cons __tmp150170 __tmp150169))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp150166 - (let ((__tmp150167 - (let ((__tmp150168 + (__tmp150163 + (let ((__tmp150164 + (let ((__tmp150165 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150170 + (let ((__tmp150167 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp150169 + (__tmp150166 (let () (declare (not safe)) - (cons _L143967_ '())))) + (cons _L143964_ '())))) (declare (not safe)) - (cons __tmp150170 __tmp150169)))) + (cons __tmp150167 __tmp150166)))) (declare (not safe)) - (cons __tmp150168 '())))) + (cons __tmp150165 '())))) (declare (not safe)) - (cons _L143966_ __tmp150167)))) + (cons _L143963_ __tmp150164)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150171 - __tmp150166)))) + (cons __tmp150168 + __tmp150163)))) (declare (not safe)) - (cons __tmp150174 __tmp150165)))) + (cons __tmp150171 __tmp150162)))) (declare (not safe)) - (_fold-assert-type139412_ - __tmp150164 - _val143352_ - _env143353_)))) - (___kont147496147497_ - (lambda (_L143856_ _L143857_ _L143858_) - (let ((_$e143887_ + (_fold-assert-type139409_ + __tmp150161 + _val143349_ + _env143350_)))) + (___kont147493147494_ + (lambda (_L143853_ _L143854_ _L143855_) + (let ((_$e143884_ (let () (declare (not safe)) - (gxc#identifier-symbol _L143858_)))) + (gxc#identifier-symbol _L143855_)))) (if (or (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e143887_)) + _$e143884_)) (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e143887_))) - ((lambda (_sym143893_) - (let* ((_sym143895_ + (eq? 'gx#stx-eq? _$e143884_))) + ((lambda (_sym143890_) + (let* ((_sym143892_ (let () (declare (not safe)) - (_eqf-symbol139414_ - _sym143893_))) - (__tmp150175 - (let ((__tmp150176 - (let ((__tmp150177 - (let ((__tmp150178 + (_eqf-symbol139411_ + _sym143890_))) + (__tmp150172 + (let ((__tmp150173 + (let ((__tmp150174 + (let ((__tmp150175 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _val143352_ '())))) + (cons _val143349_ '())))) (declare (not safe)) - (cons _L143856_ __tmp150178)))) + (cons _L143853_ __tmp150175)))) (declare (not safe)) - (cons _sym143895_ __tmp150177)))) + (cons _sym143892_ __tmp150174)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L143857_ - __tmp150176)))) + (cons _L143854_ + __tmp150173)))) (declare (not safe)) - (cons __tmp150175 _env143353_))) - _$e143887_) - _env143353_)))) - (___kont147498147499_ - (lambda (_L143740_ _L143741_ _L143742_) - (let ((__tmp150179 - (let ((__tmp150192 + (cons __tmp150172 _env143350_))) + _$e143884_) + _env143350_)))) + (___kont147495147496_ + (lambda (_L143737_ _L143738_ _L143739_) + (let ((__tmp150176 + (let ((__tmp150189 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp150180 - (let ((__tmp150189 - (let ((__tmp150191 + (__tmp150177 + (let ((__tmp150186 + (let ((__tmp150188 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150190 + (__tmp150187 (let () (declare (not safe)) - (cons _L143742_ + (cons _L143739_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp150191 __tmp150190))) + (cons __tmp150188 __tmp150187))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp150181 - (let ((__tmp150186 - (let ((__tmp150188 + (__tmp150178 + (let ((__tmp150183 + (let ((__tmp150185 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150187 - (let () (declare (not safe)) (cons _L143740_ '())))) + (__tmp150184 + (let () (declare (not safe)) (cons _L143737_ '())))) (declare (not safe)) - (cons __tmp150188 __tmp150187))) - (__tmp150182 - (let ((__tmp150183 - (let ((__tmp150185 + (cons __tmp150185 __tmp150184))) + (__tmp150179 + (let ((__tmp150180 + (let ((__tmp150182 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax))) - (__tmp150184 + (__tmp150181 (let () (declare (not safe)) - (cons _L143741_ '())))) + (cons _L143738_ '())))) (declare (not safe)) - (cons __tmp150185 __tmp150184)))) + (cons __tmp150182 __tmp150181)))) (declare (not safe)) - (cons __tmp150183 '())))) + (cons __tmp150180 '())))) (declare (not safe)) - (cons __tmp150186 __tmp150182)))) + (cons __tmp150183 __tmp150179)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150189 - __tmp150181)))) + (cons __tmp150186 + __tmp150178)))) (declare (not safe)) - (cons __tmp150192 __tmp150180)))) + (cons __tmp150189 __tmp150177)))) (declare (not safe)) - (_fold-assert-type139412_ - __tmp150179 - _val143352_ - _env143353_)))) - (___kont147500147501_ - (lambda (_L143624_ _L143625_ _L143626_) - (let ((__tmp150193 + (_fold-assert-type139409_ + __tmp150176 + _val143349_ + _env143350_)))) + (___kont147497147498_ + (lambda (_L143621_ _L143622_ _L143623_) + (let ((__tmp150190 (let () (declare (not safe)) (gxc#apply-expression-subst - _L143625_ - _L143626_ - _L143624_)))) + _L143622_ + _L143623_ + _L143621_)))) (declare (not safe)) - (_fold-assert-type139412_ - __tmp150193 - _val143352_ - _env143353_)))) - (___kont147502147503_ (lambda () _env143353_))) + (_fold-assert-type139409_ + __tmp150190 + _val143349_ + _env143350_)))) + (___kont147499147500_ (lambda () _env143350_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx147488147489_)) - (let ((_e143367144316_ + (gx#stx-pair? ___stx147485147486_)) + (let ((_e143364144313_ (let () (declare (not safe)) - (gx#stx-e ___stx147488147489_)))) - (let ((_tl143365144321_ + (gx#stx-e ___stx147485147486_)))) + (let ((_tl143362144318_ (let () (declare (not safe)) - (##cdr _e143367144316_))) - (_hd143366144319_ + (##cdr _e143364144313_))) + (_hd143363144316_ (let () (declare (not safe)) - (##car _e143367144316_)))) + (##car _e143364144313_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143366144319_)) + (gx#identifier? _hd143363144316_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd143366144319_)) + _hd143363144316_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143365144321_)) - (let ((_e143370144324_ + (gx#stx-pair? _tl143362144318_)) + (let ((_e143367144321_ (let () (declare (not safe)) (gx#stx-e - _tl143365144321_)))) - (let ((_tl143368144329_ + _tl143362144318_)))) + (let ((_tl143365144326_ (let () (declare (not safe)) - (##cdr _e143370144324_))) - (_hd143369144327_ + (##cdr _e143367144321_))) + (_hd143366144324_ (let () (declare (not safe)) - (##car _e143370144324_)))) + (##car _e143367144321_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143369144327_)) - (let ((_e143373144332_ + _hd143366144324_)) + (let ((_e143370144329_ (let () (declare (not safe)) (gx#stx-e - _hd143369144327_)))) - (let ((_tl143371144337_ + _hd143366144324_)))) + (let ((_tl143368144334_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143373144332_))) - (_hd143372144335_ - (let () (declare (not safe)) (##car _e143373144332_)))) + (##cdr _e143370144329_))) + (_hd143369144332_ + (let () (declare (not safe)) (##car _e143370144329_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143372144335_)) + (gx#identifier? _hd143369144332_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd143372144335_)) + (gx#stx-eq? '%#ref _hd143369144332_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143371144337_)) - (let ((_e143376144340_ + (gx#stx-pair? _tl143368144334_)) + (let ((_e143373144337_ (let () (declare (not safe)) - (gx#stx-e _tl143371144337_)))) - (let ((_tl143374144345_ + (gx#stx-e _tl143368144334_)))) + (let ((_tl143371144342_ (let () (declare (not safe)) - (##cdr _e143376144340_))) - (_hd143375144343_ + (##cdr _e143373144337_))) + (_hd143372144340_ (let () (declare (not safe)) - (##car _e143376144340_)))) + (##car _e143373144337_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143374144345_)) + (gx#stx-null? _tl143371144342_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143368144329_)) - (let ((_e143379144348_ + (gx#stx-pair? _tl143365144326_)) + (let ((_e143376144345_ (let () (declare (not safe)) (gx#stx-e - _tl143368144329_)))) - (let ((_tl143377144353_ + _tl143365144326_)))) + (let ((_tl143374144350_ (let () (declare (not safe)) - (##cdr _e143379144348_))) - (_hd143378144351_ + (##cdr _e143376144345_))) + (_hd143375144348_ (let () (declare (not safe)) - (##car _e143379144348_)))) + (##car _e143376144345_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143378144351_)) - (let ((_e143382144356_ + _hd143375144348_)) + (let ((_e143379144353_ (let () (declare (not safe)) (gx#stx-e - _hd143378144351_)))) - (let ((_tl143380144361_ + _hd143375144348_)))) + (let ((_tl143377144358_ (let () (declare (not safe)) - (##cdr _e143382144356_))) - (_hd143381144359_ + (##cdr _e143379144353_))) + (_hd143378144356_ (let () (declare (not safe)) - (##car _e143382144356_)))) + (##car _e143379144353_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd143381144359_)) + _hd143378144356_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd143381144359_)) + (gx#stx-eq? '%#ref _hd143378144356_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143380144361_)) - (let ((_e143385144364_ + (gx#stx-pair? _tl143377144358_)) + (let ((_e143382144361_ (let () (declare (not safe)) - (gx#stx-e _tl143380144361_)))) - (let ((_tl143383144369_ + (gx#stx-e _tl143377144358_)))) + (let ((_tl143380144366_ (let () (declare (not safe)) - (##cdr _e143385144364_))) - (_hd143384144367_ + (##cdr _e143382144361_))) + (_hd143381144364_ (let () (declare (not safe)) - (##car _e143385144364_)))) + (##car _e143382144361_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143383144369_)) + (gx#stx-null? _tl143380144366_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143377144353_)) - (___kont147490147491_ - _hd143384144367_ - _hd143375144343_) + (gx#stx-null? _tl143374144350_)) + (___kont147487147488_ + _hd143381144364_ + _hd143372144340_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143377144353_)) - (let ((_e143406144038_ + (gx#stx-pair? _tl143374144350_)) + (let ((_e143403144035_ (let () (declare (not safe)) (gx#stx-e - _tl143377144353_)))) - (let ((_tl143404144043_ + _tl143374144350_)))) + (let ((_tl143401144040_ (let () (declare (not safe)) - (##cdr _e143406144038_))) - (_hd143405144041_ + (##cdr _e143403144035_))) + (_hd143402144038_ (let () (declare (not safe)) - (##car _e143406144038_)))) + (##car _e143403144035_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143405144041_)) - (let ((_e143409144046_ + _hd143402144038_)) + (let ((_e143406144043_ (let () (declare (not safe)) (gx#stx-e - _hd143405144041_)))) - (let ((_tl143407144051_ + _hd143402144038_)))) + (let ((_tl143404144048_ (let () (declare (not safe)) - (##cdr _e143409144046_))) - (_hd143408144049_ + (##cdr _e143406144043_))) + (_hd143405144046_ (let () (declare (not safe)) - (##car _e143409144046_)))) + (##car _e143406144043_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd143408144049_)) + _hd143405144046_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _hd143408144049_)) + (gx#stx-eq? '%#quote _hd143405144046_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143407144051_)) - (let ((_e143412144054_ + (gx#stx-pair? _tl143404144048_)) + (let ((_e143409144051_ (let () (declare (not safe)) - (gx#stx-e _tl143407144051_)))) - (let ((_tl143410144059_ + (gx#stx-e _tl143404144048_)))) + (let ((_tl143407144056_ (let () (declare (not safe)) - (##cdr _e143412144054_))) - (_hd143411144057_ + (##cdr _e143409144051_))) + (_hd143408144054_ (let () (declare (not safe)) - (##car _e143412144054_)))) + (##car _e143409144051_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143410144059_)) + (gx#stx-null? _tl143407144056_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143404144043_)) - (___kont147492147493_ - _hd143411144057_ - _hd143378144351_ - _hd143375144343_) - (___kont147502147503_)) - (___kont147502147503_)))) - (___kont147502147503_)) + (gx#stx-null? _tl143401144040_)) + (___kont147489147490_ + _hd143408144054_ + _hd143375144348_ + _hd143372144340_) + (___kont147499147500_)) + (___kont147499147500_)))) + (___kont147499147500_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd143408144049_)) + (gx#stx-eq? '%#quote-syntax _hd143405144046_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143407144051_)) - (let ((_e143472143848_ + (gx#stx-pair? _tl143404144048_)) + (let ((_e143469143845_ (let () (declare (not safe)) - (gx#stx-e _tl143407144051_)))) - (let ((_tl143470143853_ + (gx#stx-e _tl143404144048_)))) + (let ((_tl143467143850_ (let () (declare (not safe)) - (##cdr _e143472143848_))) - (_hd143471143851_ + (##cdr _e143469143845_))) + (_hd143468143848_ (let () (declare (not safe)) - (##car _e143472143848_)))) + (##car _e143469143845_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143470143853_)) + (gx#stx-null? _tl143467143850_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143404144043_)) - (___kont147496147497_ - _hd143471143851_ - _hd143384144367_ - _hd143375144343_) - (___kont147502147503_)) - (___kont147502147503_)))) - (___kont147502147503_)) - (___kont147502147503_))) - (___kont147502147503_)))) + (gx#stx-null? _tl143401144040_)) + (___kont147493147494_ + _hd143468143848_ + _hd143381144364_ + _hd143372144340_) + (___kont147499147500_)) + (___kont147499147500_)))) + (___kont147499147500_)) + (___kont147499147500_))) + (___kont147499147500_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147502147503_)))) - (___kont147502147503_))) + (___kont147499147500_)))) + (___kont147499147500_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143377144353_)) - (let ((_e143406144038_ + (gx#stx-pair? _tl143374144350_)) + (let ((_e143403144035_ (let () (declare (not safe)) - (gx#stx-e _tl143377144353_)))) - (let ((_tl143404144043_ + (gx#stx-e _tl143374144350_)))) + (let ((_tl143401144040_ (let () (declare (not safe)) - (##cdr _e143406144038_))) - (_hd143405144041_ + (##cdr _e143403144035_))) + (_hd143402144038_ (let () (declare (not safe)) - (##car _e143406144038_)))) + (##car _e143403144035_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143405144041_)) - (let ((_e143409144046_ + (gx#stx-pair? _hd143402144038_)) + (let ((_e143406144043_ (let () (declare (not safe)) (gx#stx-e - _hd143405144041_)))) - (let ((_tl143407144051_ + _hd143402144038_)))) + (let ((_tl143404144048_ (let () (declare (not safe)) - (##cdr _e143409144046_))) - (_hd143408144049_ + (##cdr _e143406144043_))) + (_hd143405144046_ (let () (declare (not safe)) - (##car _e143409144046_)))) + (##car _e143406144043_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd143408144049_)) + _hd143405144046_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143408144049_)) + _hd143405144046_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl143407144051_)) - (let ((_e143412144054_ + (gx#stx-pair? _tl143404144048_)) + (let ((_e143409144051_ (let () (declare (not safe)) - (gx#stx-e _tl143407144051_)))) - (let ((_tl143410144059_ + (gx#stx-e _tl143404144048_)))) + (let ((_tl143407144056_ (let () (declare (not safe)) - (##cdr _e143412144054_))) - (_hd143411144057_ + (##cdr _e143409144051_))) + (_hd143408144054_ (let () (declare (not safe)) - (##car _e143412144054_)))) + (##car _e143409144051_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143410144059_)) + (gx#stx-null? _tl143407144056_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143404144043_)) - (___kont147492147493_ - _hd143411144057_ - _hd143378144351_ - _hd143375144343_) - (___kont147502147503_)) - (___kont147502147503_)))) - (___kont147502147503_)) - (___kont147502147503_)) + (gx#stx-null? _tl143401144040_)) + (___kont147489147490_ + _hd143408144054_ + _hd143375144348_ + _hd143372144340_) + (___kont147499147500_)) + (___kont147499147500_)))) + (___kont147499147500_)) + (___kont147499147500_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147502147503_)))) - (___kont147502147503_)))) - (___kont147502147503_))))) + (___kont147499147500_)))) + (___kont147499147500_)))) + (___kont147499147500_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143377144353_)) - (let ((_e143406144038_ + (gx#stx-pair? _tl143374144350_)) + (let ((_e143403144035_ (let () (declare (not safe)) - (gx#stx-e _tl143377144353_)))) - (let ((_tl143404144043_ + (gx#stx-e _tl143374144350_)))) + (let ((_tl143401144040_ (let () (declare (not safe)) - (##cdr _e143406144038_))) - (_hd143405144041_ + (##cdr _e143403144035_))) + (_hd143402144038_ (let () (declare (not safe)) - (##car _e143406144038_)))) + (##car _e143403144035_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143405144041_)) - (let ((_e143409144046_ + (gx#stx-pair? _hd143402144038_)) + (let ((_e143406144043_ (let () (declare (not safe)) - (gx#stx-e _hd143405144041_)))) - (let ((_tl143407144051_ + (gx#stx-e _hd143402144038_)))) + (let ((_tl143404144048_ (let () (declare (not safe)) - (##cdr _e143409144046_))) - (_hd143408144049_ + (##cdr _e143406144043_))) + (_hd143405144046_ (let () (declare (not safe)) - (##car _e143409144046_)))) + (##car _e143406144043_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd143408144049_)) + _hd143405144046_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143408144049_)) + _hd143405144046_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143407144051_)) - (let ((_e143412144054_ + _tl143404144048_)) + (let ((_e143409144051_ (let () (declare (not safe)) (gx#stx-e - _tl143407144051_)))) - (let ((_tl143410144059_ + _tl143404144048_)))) + (let ((_tl143407144056_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143412144054_))) - (_hd143411144057_ - (let () (declare (not safe)) (##car _e143412144054_)))) + (##cdr _e143409144051_))) + (_hd143408144054_ + (let () (declare (not safe)) (##car _e143409144051_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143410144059_)) + (gx#stx-null? _tl143407144056_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143404144043_)) - (___kont147492147493_ - _hd143411144057_ - _hd143378144351_ - _hd143375144343_) - (___kont147502147503_)) - (___kont147502147503_)))) + (gx#stx-null? _tl143401144040_)) + (___kont147489147490_ + _hd143408144054_ + _hd143375144348_ + _hd143372144340_) + (___kont147499147500_)) + (___kont147499147500_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147502147503_)) - (___kont147502147503_)) - (___kont147502147503_)))) - (___kont147502147503_)))) - (___kont147502147503_))) + (___kont147499147500_)) + (___kont147499147500_)) + (___kont147499147500_)))) + (___kont147499147500_)))) + (___kont147499147500_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143377144353_)) - (let ((_e143406144038_ + (gx#stx-pair? _tl143374144350_)) + (let ((_e143403144035_ (let () (declare (not safe)) - (gx#stx-e _tl143377144353_)))) - (let ((_tl143404144043_ + (gx#stx-e _tl143374144350_)))) + (let ((_tl143401144040_ (let () (declare (not safe)) - (##cdr _e143406144038_))) - (_hd143405144041_ + (##cdr _e143403144035_))) + (_hd143402144038_ (let () (declare (not safe)) - (##car _e143406144038_)))) + (##car _e143403144035_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143405144041_)) - (let ((_e143409144046_ + (gx#stx-pair? _hd143402144038_)) + (let ((_e143406144043_ (let () (declare (not safe)) - (gx#stx-e _hd143405144041_)))) - (let ((_tl143407144051_ + (gx#stx-e _hd143402144038_)))) + (let ((_tl143404144048_ (let () (declare (not safe)) - (##cdr _e143409144046_))) - (_hd143408144049_ + (##cdr _e143406144043_))) + (_hd143405144046_ (let () (declare (not safe)) - (##car _e143409144046_)))) + (##car _e143406144043_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143408144049_)) + (gx#identifier? _hd143405144046_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143408144049_)) + _hd143405144046_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143407144051_)) - (let ((_e143412144054_ + _tl143404144048_)) + (let ((_e143409144051_ (let () (declare (not safe)) (gx#stx-e - _tl143407144051_)))) - (let ((_tl143410144059_ + _tl143404144048_)))) + (let ((_tl143407144056_ (let () (declare (not safe)) - (##cdr _e143412144054_))) - (_hd143411144057_ + (##cdr _e143409144051_))) + (_hd143408144054_ (let () (declare (not safe)) - (##car _e143412144054_)))) + (##car _e143409144051_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143410144059_)) + _tl143407144056_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl143404144043_)) - (___kont147492147493_ - _hd143411144057_ - _hd143378144351_ - _hd143375144343_) + (gx#stx-null? _tl143401144040_)) + (___kont147489147490_ + _hd143408144054_ + _hd143375144348_ + _hd143372144340_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd143381144359_)) + (gx#stx-eq? '%#quote _hd143378144356_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143380144361_)) - (let ((_e143436143950_ + (gx#stx-pair? _tl143377144358_)) + (let ((_e143433143947_ (let () (declare (not safe)) - (gx#stx-e _tl143380144361_)))) - (let ((_tl143434143955_ + (gx#stx-e _tl143377144358_)))) + (let ((_tl143431143952_ (let () (declare (not safe)) - (##cdr _e143436143950_))) - (_hd143435143953_ + (##cdr _e143433143947_))) + (_hd143432143950_ (let () (declare (not safe)) - (##car _e143436143950_)))) - (___kont147502147503_))) - (___kont147502147503_)) + (##car _e143433143947_)))) + (___kont147499147500_))) + (___kont147499147500_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd143381144359_)) + (gx#stx-eq? '%#quote-syntax _hd143378144356_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143380144361_)) - (let ((_e143496143708_ + (gx#stx-pair? _tl143377144358_)) + (let ((_e143493143705_ (let () (declare (not safe)) - (gx#stx-e _tl143380144361_)))) - (let ((_tl143494143713_ + (gx#stx-e _tl143377144358_)))) + (let ((_tl143491143710_ (let () (declare (not safe)) - (##cdr _e143496143708_))) - (_hd143495143711_ + (##cdr _e143493143705_))) + (_hd143492143708_ (let () (declare (not safe)) - (##car _e143496143708_)))) - (___kont147502147503_))) - (___kont147502147503_)) - (___kont147502147503_)))) + (##car _e143493143705_)))) + (___kont147499147500_))) + (___kont147499147500_)) + (___kont147499147500_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd143381144359_)) + (gx#stx-eq? '%#quote _hd143378144356_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143380144361_)) - (let ((_e143436143950_ + (gx#stx-pair? _tl143377144358_)) + (let ((_e143433143947_ (let () (declare (not safe)) - (gx#stx-e _tl143380144361_)))) - (let ((_tl143434143955_ + (gx#stx-e _tl143377144358_)))) + (let ((_tl143431143952_ (let () (declare (not safe)) - (##cdr _e143436143950_))) - (_hd143435143953_ + (##cdr _e143433143947_))) + (_hd143432143950_ (let () (declare (not safe)) - (##car _e143436143950_)))) + (##car _e143433143947_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143434143955_)) + (gx#stx-null? _tl143431143952_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143404144043_)) - (___kont147494147495_ - _hd143405144041_ - _hd143435143953_ - _hd143375144343_) - (___kont147502147503_)) - (___kont147502147503_)))) - (___kont147502147503_)) + (gx#stx-null? _tl143401144040_)) + (___kont147491147492_ + _hd143402144038_ + _hd143432143950_ + _hd143372144340_) + (___kont147499147500_)) + (___kont147499147500_)))) + (___kont147499147500_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd143381144359_)) + (gx#stx-eq? '%#quote-syntax _hd143378144356_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143380144361_)) - (let ((_e143496143708_ + (gx#stx-pair? _tl143377144358_)) + (let ((_e143493143705_ (let () (declare (not safe)) - (gx#stx-e _tl143380144361_)))) - (let ((_tl143494143713_ + (gx#stx-e _tl143377144358_)))) + (let ((_tl143491143710_ (let () (declare (not safe)) - (##cdr _e143496143708_))) - (_hd143495143711_ + (##cdr _e143493143705_))) + (_hd143492143708_ (let () (declare (not safe)) - (##car _e143496143708_)))) - (___kont147502147503_))) - (___kont147502147503_)) - (___kont147502147503_)))))) + (##car _e143493143705_)))) + (___kont147499147500_))) + (___kont147499147500_)) + (___kont147499147500_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143381144359_)) + _hd143378144356_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143380144361_)) - (let ((_e143436143950_ + _tl143377144358_)) + (let ((_e143433143947_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl143380144361_)))) - (let ((_tl143434143955_ + (gx#stx-e _tl143377144358_)))) + (let ((_tl143431143952_ (let () (declare (not safe)) - (##cdr _e143436143950_))) - (_hd143435143953_ + (##cdr _e143433143947_))) + (_hd143432143950_ (let () (declare (not safe)) - (##car _e143436143950_)))) + (##car _e143433143947_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143434143955_)) + (gx#stx-null? _tl143431143952_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143404144043_)) - (___kont147494147495_ - _hd143405144041_ - _hd143435143953_ - _hd143375144343_) - (___kont147502147503_)) - (___kont147502147503_)))) - (___kont147502147503_)) + (gx#stx-null? _tl143401144040_)) + (___kont147491147492_ + _hd143402144038_ + _hd143432143950_ + _hd143372144340_) + (___kont147499147500_)) + (___kont147499147500_)))) + (___kont147499147500_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd143381144359_)) + _hd143378144356_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl143380144361_)) - (let ((_e143496143708_ + (gx#stx-pair? _tl143377144358_)) + (let ((_e143493143705_ (let () (declare (not safe)) - (gx#stx-e _tl143380144361_)))) - (let ((_tl143494143713_ + (gx#stx-e _tl143377144358_)))) + (let ((_tl143491143710_ (let () (declare (not safe)) - (##cdr _e143496143708_))) - (_hd143495143711_ + (##cdr _e143493143705_))) + (_hd143492143708_ (let () (declare (not safe)) - (##car _e143496143708_)))) - (___kont147502147503_))) - (___kont147502147503_)) - (___kont147502147503_)))) + (##car _e143493143705_)))) + (___kont147499147500_))) + (___kont147499147500_)) + (___kont147499147500_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143381144359_)) + _hd143378144356_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143380144361_)) - (let ((_e143436143950_ + _tl143377144358_)) + (let ((_e143433143947_ (let () (declare (not safe)) (gx#stx-e - _tl143380144361_)))) - (let ((_tl143434143955_ + _tl143377144358_)))) + (let ((_tl143431143952_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143436143950_))) - (_hd143435143953_ - (let () (declare (not safe)) (##car _e143436143950_)))) + (##cdr _e143433143947_))) + (_hd143432143950_ + (let () (declare (not safe)) (##car _e143433143947_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143434143955_)) + (gx#stx-null? _tl143431143952_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143404144043_)) - (___kont147494147495_ - _hd143405144041_ - _hd143435143953_ - _hd143375144343_) - (___kont147502147503_)) - (___kont147502147503_)))) + (gx#stx-null? _tl143401144040_)) + (___kont147491147492_ + _hd143402144038_ + _hd143432143950_ + _hd143372144340_) + (___kont147499147500_)) + (___kont147499147500_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147502147503_)) + (___kont147499147500_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd143381144359_)) + _hd143378144356_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143380144361_)) - (let ((_e143496143708_ + _tl143377144358_)) + (let ((_e143493143705_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl143380144361_)))) - (let ((_tl143494143713_ + (gx#stx-e _tl143377144358_)))) + (let ((_tl143491143710_ (let () (declare (not safe)) - (##cdr _e143496143708_))) - (_hd143495143711_ + (##cdr _e143493143705_))) + (_hd143492143708_ (let () (declare (not safe)) - (##car _e143496143708_)))) + (##car _e143493143705_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143494143713_)) + (gx#stx-null? _tl143491143710_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd143408144049_)) + (gx#stx-eq? '%#ref _hd143405144046_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143407144051_)) - (let ((_e143505143732_ + (gx#stx-pair? _tl143404144048_)) + (let ((_e143502143729_ (let () (declare (not safe)) - (gx#stx-e _tl143407144051_)))) - (let ((_tl143503143737_ + (gx#stx-e _tl143404144048_)))) + (let ((_tl143500143734_ (let () (declare (not safe)) - (##cdr _e143505143732_))) - (_hd143504143735_ + (##cdr _e143502143729_))) + (_hd143501143732_ (let () (declare (not safe)) - (##car _e143505143732_)))) + (##car _e143502143729_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143503143737_)) + (gx#stx-null? _tl143500143734_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143404144043_)) - (___kont147498147499_ - _hd143504143735_ - _hd143495143711_ - _hd143375144343_) - (___kont147502147503_)) - (___kont147502147503_)))) - (___kont147502147503_)) - (___kont147502147503_)) - (___kont147502147503_)))) - (___kont147502147503_)) + (gx#stx-null? _tl143401144040_)) + (___kont147495147496_ + _hd143501143732_ + _hd143492143708_ + _hd143372144340_) + (___kont147499147500_)) + (___kont147499147500_)))) + (___kont147499147500_)) + (___kont147499147500_)) + (___kont147499147500_)))) + (___kont147499147500_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147502147503_)))) + (___kont147499147500_)))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143381144359_)) + _hd143378144356_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143380144361_)) - (let ((_e143436143950_ + _tl143377144358_)) + (let ((_e143433143947_ (let () (declare (not safe)) (gx#stx-e - _tl143380144361_)))) - (let ((_tl143434143955_ + _tl143377144358_)))) + (let ((_tl143431143952_ (let () (declare (not safe)) - (##cdr _e143436143950_))) - (_hd143435143953_ + (##cdr _e143433143947_))) + (_hd143432143950_ (let () (declare (not safe)) - (##car _e143436143950_)))) + (##car _e143433143947_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143434143955_)) + _tl143431143952_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl143404144043_)) - (___kont147494147495_ - _hd143405144041_ - _hd143435143953_ - _hd143375144343_) - (___kont147502147503_)) - (___kont147502147503_)))) + (gx#stx-null? _tl143401144040_)) + (___kont147491147492_ + _hd143402144038_ + _hd143432143950_ + _hd143372144340_) + (___kont147499147500_)) + (___kont147499147500_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147502147503_)) + (___kont147499147500_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd143381144359_)) + _hd143378144356_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143380144361_)) - (let ((_e143496143708_ + _tl143377144358_)) + (let ((_e143493143705_ (let () (declare (not safe)) (gx#stx-e - _tl143380144361_)))) - (let ((_tl143494143713_ + _tl143377144358_)))) + (let ((_tl143491143710_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143496143708_))) - (_hd143495143711_ - (let () (declare (not safe)) (##car _e143496143708_)))) - (___kont147502147503_))) + (##cdr _e143493143705_))) + (_hd143492143708_ + (let () (declare (not safe)) (##car _e143493143705_)))) + (___kont147499147500_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147502147503_)) - (___kont147502147503_)))))) + (___kont147499147500_)) + (___kont147499147500_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd143381144359_)) + (gx#stx-eq? '%#quote _hd143378144356_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143380144361_)) - (let ((_e143436143950_ + (gx#stx-pair? _tl143377144358_)) + (let ((_e143433143947_ (let () (declare (not safe)) (gx#stx-e - _tl143380144361_)))) - (let ((_tl143434143955_ + _tl143377144358_)))) + (let ((_tl143431143952_ (let () (declare (not safe)) - (##cdr _e143436143950_))) - (_hd143435143953_ + (##cdr _e143433143947_))) + (_hd143432143950_ (let () (declare (not safe)) - (##car _e143436143950_)))) + (##car _e143433143947_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143434143955_)) + _tl143431143952_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl143404144043_)) - (___kont147494147495_ - _hd143405144041_ - _hd143435143953_ - _hd143375144343_) - (___kont147502147503_)) - (___kont147502147503_)))) - (___kont147502147503_)) + _tl143401144040_)) + (___kont147491147492_ + _hd143402144038_ + _hd143432143950_ + _hd143372144340_) + (___kont147499147500_)) + (___kont147499147500_)))) + (___kont147499147500_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd143381144359_)) + _hd143378144356_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143380144361_)) - (let ((_e143496143708_ + (gx#stx-pair? _tl143377144358_)) + (let ((_e143493143705_ (let () (declare (not safe)) (gx#stx-e - _tl143380144361_)))) - (let ((_tl143494143713_ + _tl143377144358_)))) + (let ((_tl143491143710_ (let () (declare (not safe)) - (##cdr _e143496143708_))) - (_hd143495143711_ + (##cdr _e143493143705_))) + (_hd143492143708_ (let () (declare (not safe)) - (##car _e143496143708_)))) - (___kont147502147503_))) - (___kont147502147503_)) - (___kont147502147503_)))))) + (##car _e143493143705_)))) + (___kont147499147500_))) + (___kont147499147500_)) + (___kont147499147500_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd143381144359_)) + (gx#stx-eq? '%#quote _hd143378144356_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143380144361_)) - (let ((_e143436143950_ + (gx#stx-pair? _tl143377144358_)) + (let ((_e143433143947_ (let () (declare (not safe)) - (gx#stx-e _tl143380144361_)))) - (let ((_tl143434143955_ + (gx#stx-e _tl143377144358_)))) + (let ((_tl143431143952_ (let () (declare (not safe)) - (##cdr _e143436143950_))) - (_hd143435143953_ + (##cdr _e143433143947_))) + (_hd143432143950_ (let () (declare (not safe)) - (##car _e143436143950_)))) - (___kont147502147503_))) - (___kont147502147503_)) + (##car _e143433143947_)))) + (___kont147499147500_))) + (___kont147499147500_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd143381144359_)) + _hd143378144356_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143380144361_)) - (let ((_e143496143708_ + (gx#stx-pair? _tl143377144358_)) + (let ((_e143493143705_ (let () (declare (not safe)) - (gx#stx-e _tl143380144361_)))) - (let ((_tl143494143713_ + (gx#stx-e _tl143377144358_)))) + (let ((_tl143491143710_ (let () (declare (not safe)) - (##cdr _e143496143708_))) - (_hd143495143711_ + (##cdr _e143493143705_))) + (_hd143492143708_ (let () (declare (not safe)) - (##car _e143496143708_)))) - (___kont147502147503_))) - (___kont147502147503_)) - (___kont147502147503_))))) + (##car _e143493143705_)))) + (___kont147499147500_))) + (___kont147499147500_)) + (___kont147499147500_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143377144353_)) - (let ((_e143406144038_ + (gx#stx-pair? _tl143374144350_)) + (let ((_e143403144035_ (let () (declare (not safe)) - (gx#stx-e _tl143377144353_)))) - (let ((_tl143404144043_ + (gx#stx-e _tl143374144350_)))) + (let ((_tl143401144040_ (let () (declare (not safe)) - (##cdr _e143406144038_))) - (_hd143405144041_ + (##cdr _e143403144035_))) + (_hd143402144038_ (let () (declare (not safe)) - (##car _e143406144038_)))) + (##car _e143403144035_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143405144041_)) - (let ((_e143409144046_ + (gx#stx-pair? _hd143402144038_)) + (let ((_e143406144043_ (let () (declare (not safe)) - (gx#stx-e _hd143405144041_)))) - (let ((_tl143407144051_ + (gx#stx-e _hd143402144038_)))) + (let ((_tl143404144048_ (let () (declare (not safe)) - (##cdr _e143409144046_))) - (_hd143408144049_ + (##cdr _e143406144043_))) + (_hd143405144046_ (let () (declare (not safe)) - (##car _e143409144046_)))) + (##car _e143406144043_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143408144049_)) + (gx#identifier? _hd143405144046_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143408144049_)) + _hd143405144046_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143407144051_)) - (let ((_e143412144054_ + (gx#stx-pair? _tl143404144048_)) + (let ((_e143409144051_ (let () (declare (not safe)) (gx#stx-e - _tl143407144051_)))) - (let ((_tl143410144059_ + _tl143404144048_)))) + (let ((_tl143407144056_ (let () (declare (not safe)) - (##cdr _e143412144054_))) - (_hd143411144057_ + (##cdr _e143409144051_))) + (_hd143408144054_ (let () (declare (not safe)) - (##car _e143412144054_)))) + (##car _e143409144051_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143410144059_)) + _tl143407144056_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl143404144043_)) - (___kont147492147493_ - _hd143411144057_ - _hd143378144351_ - _hd143375144343_) - (___kont147502147503_)) - (___kont147502147503_)))) - (___kont147502147503_)) - (___kont147502147503_)) - (___kont147502147503_)))) - (___kont147502147503_)))) - (___kont147502147503_))))) + _tl143401144040_)) + (___kont147489147490_ + _hd143408144054_ + _hd143375144348_ + _hd143372144340_) + (___kont147499147500_)) + (___kont147499147500_)))) + (___kont147499147500_)) + (___kont147499147500_)) + (___kont147499147500_)))) + (___kont147499147500_)))) + (___kont147499147500_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl143377144353_)) - (let ((_e143406144038_ + _tl143374144350_)) + (let ((_e143403144035_ (let () (declare (not safe)) (gx#stx-e - _tl143377144353_)))) - (let ((_tl143404144043_ + _tl143374144350_)))) + (let ((_tl143401144040_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143406144038_))) - (_hd143405144041_ - (let () (declare (not safe)) (##car _e143406144038_)))) + (##cdr _e143403144035_))) + (_hd143402144038_ + (let () (declare (not safe)) (##car _e143403144035_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143405144041_)) - (let ((_e143409144046_ + (gx#stx-pair? _hd143402144038_)) + (let ((_e143406144043_ (let () (declare (not safe)) - (gx#stx-e _hd143405144041_)))) - (let ((_tl143407144051_ + (gx#stx-e _hd143402144038_)))) + (let ((_tl143404144048_ (let () (declare (not safe)) - (##cdr _e143409144046_))) - (_hd143408144049_ + (##cdr _e143406144043_))) + (_hd143405144046_ (let () (declare (not safe)) - (##car _e143409144046_)))) + (##car _e143406144043_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143408144049_)) + (gx#identifier? _hd143405144046_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd143408144049_)) + (gx#stx-eq? '%#quote _hd143405144046_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143407144051_)) - (let ((_e143412144054_ + (gx#stx-pair? _tl143404144048_)) + (let ((_e143409144051_ (let () (declare (not safe)) - (gx#stx-e _tl143407144051_)))) - (let ((_tl143410144059_ + (gx#stx-e _tl143404144048_)))) + (let ((_tl143407144056_ (let () (declare (not safe)) - (##cdr _e143412144054_))) - (_hd143411144057_ + (##cdr _e143409144051_))) + (_hd143408144054_ (let () (declare (not safe)) - (##car _e143412144054_)))) + (##car _e143409144051_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143410144059_)) + (gx#stx-null? _tl143407144056_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl143404144043_)) - (___kont147492147493_ - _hd143411144057_ - _hd143378144351_ - _hd143375144343_) - (___kont147502147503_)) - (___kont147502147503_)))) - (___kont147502147503_)) - (___kont147502147503_)) - (___kont147502147503_)))) - (___kont147502147503_)))) + _tl143401144040_)) + (___kont147489147490_ + _hd143408144054_ + _hd143375144348_ + _hd143372144340_) + (___kont147499147500_)) + (___kont147499147500_)))) + (___kont147499147500_)) + (___kont147499147500_)) + (___kont147499147500_)))) + (___kont147499147500_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147502147503_))))) - (___kont147502147503_)) - (___kont147502147503_)))) - (___kont147502147503_)) + (___kont147499147500_))))) + (___kont147499147500_)) + (___kont147499147500_)))) + (___kont147499147500_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd143372144335_)) + (gx#stx-eq? '%#lambda _hd143369144332_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143371144337_)) - (let ((_e143520143576_ + (gx#stx-pair? _tl143368144334_)) + (let ((_e143517143573_ (let () (declare (not safe)) - (gx#stx-e _tl143371144337_)))) - (let ((_tl143518143581_ + (gx#stx-e _tl143368144334_)))) + (let ((_tl143515143578_ (let () (declare (not safe)) - (##cdr _e143520143576_))) - (_hd143519143579_ + (##cdr _e143517143573_))) + (_hd143516143576_ (let () (declare (not safe)) - (##car _e143520143576_)))) + (##car _e143517143573_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143519143579_)) - (let ((_e143523143584_ + (gx#stx-pair? _hd143516143576_)) + (let ((_e143520143581_ (let () (declare (not safe)) (gx#stx-e - _hd143519143579_)))) - (let ((_tl143521143589_ + _hd143516143576_)))) + (let ((_tl143518143586_ (let () (declare (not safe)) - (##cdr _e143523143584_))) - (_hd143522143587_ + (##cdr _e143520143581_))) + (_hd143519143584_ (let () (declare (not safe)) - (##car _e143523143584_)))) + (##car _e143520143581_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143521143589_)) + _tl143518143586_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143518143581_)) - (let ((_e143526143592_ + _tl143515143578_)) + (let ((_e143523143589_ (let () (declare (not safe)) (gx#stx-e - _tl143518143581_)))) - (let ((_tl143524143597_ + _tl143515143578_)))) + (let ((_tl143521143594_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143526143592_))) - (_hd143525143595_ - (let () (declare (not safe)) (##car _e143526143592_)))) + (##cdr _e143523143589_))) + (_hd143522143592_ + (let () (declare (not safe)) (##car _e143523143589_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143524143597_)) + (gx#stx-null? _tl143521143594_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143368144329_)) - (let ((_e143529143600_ + (gx#stx-pair? _tl143365144326_)) + (let ((_e143526143597_ (let () (declare (not safe)) - (gx#stx-e _tl143368144329_)))) - (let ((_tl143527143605_ + (gx#stx-e _tl143365144326_)))) + (let ((_tl143524143602_ (let () (declare (not safe)) - (##cdr _e143529143600_))) - (_hd143528143603_ + (##cdr _e143526143597_))) + (_hd143525143600_ (let () (declare (not safe)) - (##car _e143529143600_)))) + (##car _e143526143597_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143528143603_)) - (let ((_e143532143608_ + (gx#stx-pair? _hd143525143600_)) + (let ((_e143529143605_ (let () (declare (not safe)) - (gx#stx-e _hd143528143603_)))) - (let ((_tl143530143613_ + (gx#stx-e _hd143525143600_)))) + (let ((_tl143527143610_ (let () (declare (not safe)) - (##cdr _e143532143608_))) - (_hd143531143611_ + (##cdr _e143529143605_))) + (_hd143528143608_ (let () (declare (not safe)) - (##car _e143532143608_)))) + (##car _e143529143605_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143531143611_)) + (gx#identifier? _hd143528143608_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd143531143611_)) + _hd143528143608_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143530143613_)) - (let ((_e143535143616_ + _tl143527143610_)) + (let ((_e143532143613_ (let () (declare (not safe)) (gx#stx-e - _tl143530143613_)))) - (let ((_tl143533143621_ + _tl143527143610_)))) + (let ((_tl143530143618_ (let () (declare (not safe)) - (##cdr _e143535143616_))) - (_hd143534143619_ + (##cdr _e143532143613_))) + (_hd143531143616_ (let () (declare (not safe)) - (##car _e143535143616_)))) + (##car _e143532143613_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143533143621_)) + _tl143530143618_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl143527143605_)) - (___kont147500147501_ - _hd143534143619_ - _hd143525143595_ - _hd143522143587_) - (___kont147502147503_)) - (___kont147502147503_)))) + (gx#stx-null? _tl143524143602_)) + (___kont147497147498_ + _hd143531143616_ + _hd143522143592_ + _hd143519143584_) + (___kont147499147500_)) + (___kont147499147500_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147502147503_)) - (___kont147502147503_)) - (___kont147502147503_)))) - (___kont147502147503_)))) - (___kont147502147503_)) - (___kont147502147503_)))) + (___kont147499147500_)) + (___kont147499147500_)) + (___kont147499147500_)))) + (___kont147499147500_)))) + (___kont147499147500_)) + (___kont147499147500_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147502147503_)) - (___kont147502147503_)))) - (___kont147502147503_)))) - (___kont147502147503_)) - (___kont147502147503_))) - (___kont147502147503_)))) + (___kont147499147500_)) + (___kont147499147500_)))) + (___kont147499147500_)))) + (___kont147499147500_)) + (___kont147499147500_))) + (___kont147499147500_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147502147503_)))) - (___kont147502147503_)) - (___kont147502147503_)) - (___kont147502147503_)))) - (___kont147502147503_)))))) - (_countf-symbol139413_ - (lambda (_id143343_) - (let ((_$e143345_ + (___kont147499147500_)))) + (___kont147499147500_)) + (___kont147499147500_)) + (___kont147499147500_)))) + (___kont147499147500_)))))) + (_countf-symbol139410_ + (lambda (_id143340_) + (let ((_$e143342_ (let () (declare (not safe)) - (gxc#identifier-symbol _id143343_)))) + (gxc#identifier-symbol _id143340_)))) (if (or (let () (declare (not safe)) - (eq? '##vector-length _$e143345_)) + (eq? '##vector-length _$e143342_)) (let () (declare (not safe)) - (eq? 'vector-length _$e143345_))) + (eq? 'vector-length _$e143342_))) 'vector-length (if (let () (declare (not safe)) - (eq? 'values-count _$e143345_)) + (eq? 'values-count _$e143342_)) 'values-count '#f))))) - (_eqf-symbol139414_ - (lambda (_sym143329_) - (let ((_$e143331_ _sym143329_)) + (_eqf-symbol139411_ + (lambda (_sym143326_) + (let ((_$e143328_ _sym143326_)) (if (or (let () (declare (not safe)) - (eq? '##eq? _$e143331_)) + (eq? '##eq? _$e143328_)) (let () (declare (not safe)) - (eq? 'eq? _$e143331_))) + (eq? 'eq? _$e143328_))) 'eq? (if (or (let () (declare (not safe)) - (eq? '##eqv? _$e143331_)) + (eq? '##eqv? _$e143328_)) (let () (declare (not safe)) - (eq? 'eqv? _$e143331_))) + (eq? 'eqv? _$e143328_))) 'eqv? (if (or (let () (declare (not safe)) - (eq? '##equal? _$e143331_)) + (eq? '##equal? _$e143328_)) (let () (declare (not safe)) - (eq? 'equal? _$e143331_))) + (eq? 'equal? _$e143328_))) 'equal? (if (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e143331_)) + _$e143328_)) 'free-identifier=? (if (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e143331_)) + (eq? 'gx#stx-eq? _$e143328_)) 'stx-eq? '#f)))))))) - (_eqf-symbol?139415_ - (lambda (_sym143312_) - (let ((_$e143314_ _sym143312_)) + (_eqf-symbol?139412_ + (lambda (_sym143309_) + (let ((_$e143311_ _sym143309_)) (if (or (let () (declare (not safe)) - (eq? 'eq? _$e143314_)) + (eq? 'eq? _$e143311_)) (let () (declare (not safe)) - (eq? 'eqv? _$e143314_)) + (eq? 'eqv? _$e143311_)) (let () (declare (not safe)) - (eq? 'equal? _$e143314_)) + (eq? 'equal? _$e143311_)) (let () (declare (not safe)) - (eq? 'free-identifier=? _$e143314_)) + (eq? 'free-identifier=? _$e143311_)) (let () (declare (not safe)) - (eq? 'stx-eq? _$e143314_))) + (eq? 'stx-eq? _$e143311_))) '#t '#f)))) - (_do-assert!139416_ - (lambda (_assert143303_ _type143304_ _K143305_) - (let ((_unwind-assert143307_ _env-assert139406_) - (_unwind-type143308_ _env-type139407_)) - (set! _env-assert139406_ _assert143303_) - (set! _env-type139407_ _type143304_) - (let ((_val143310_ (_K143305_))) - (set! _env-assert139406_ _unwind-assert143307_) - (set! _env-type139407_ _unwind-type143308_) - _val143310_)))) - (_do-bind139417_ - (lambda (_bind143300_ _K143301_) - (if (let () (declare (not safe)) (pair? _bind143300_)) - (let ((__tmp150194 + (_do-assert!139413_ + (lambda (_assert143300_ _type143301_ _K143302_) + (let ((_unwind-assert143304_ _env-assert139403_) + (_unwind-type143305_ _env-type139404_)) + (set! _env-assert139403_ _assert143300_) + (set! _env-type139404_ _type143301_) + (let ((_val143307_ (_K143302_))) + (set! _env-assert139403_ _unwind-assert143304_) + (set! _env-type139404_ _unwind-type143305_) + _val143307_)))) + (_do-bind139414_ + (lambda (_bind143297_ _K143298_) + (if (let () (declare (not safe)) (pair? _bind143297_)) + (let ((__tmp150191 (let () (declare (not safe)) - (_fold-bind-env139418_ - _bind143300_ - _env-bind139408_)))) + (_fold-bind-env139415_ + _bind143297_ + _env-bind139405_)))) (declare (not safe)) - (_do-bind!139419_ __tmp150194 _K143301_)) - (_K143301_)))) - (_fold-bind-env139418_ - (lambda (_bind143229_ _env143230_) - (let _lp143232_ ((_rest143234_ _bind143229_) - (_env143235_ _env143230_)) - (let* ((_rest143236143244_ _rest143234_) - (_else143238143252_ (lambda () _env143235_)) - (_K143240143288_ - (lambda (_rest143255_ _bind143256_) - (let* ((_bind143257143264_ _bind143256_) - (_E143259143268_ + (_do-bind!139416_ __tmp150191 _K143298_)) + (_K143298_)))) + (_fold-bind-env139415_ + (lambda (_bind143226_ _env143227_) + (let _lp143229_ ((_rest143231_ _bind143226_) + (_env143232_ _env143227_)) + (let* ((_rest143233143241_ _rest143231_) + (_else143235143249_ (lambda () _env143232_)) + (_K143237143285_ + (lambda (_rest143252_ _bind143253_) + (let* ((_bind143254143261_ _bind143253_) + (_E143256143265_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _bind143257143264_)))) - (_K143260143276_ - (lambda (_expr143271_ _id143272_) - (let* ((_sexpr143274_ + _bind143254143261_)))) + (_K143257143273_ + (lambda (_expr143268_ _id143269_) + (let* ((_sexpr143271_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr143271_))) - (__tmp150195 - (let ((__tmp150196 + _expr143268_))) + (__tmp150192 + (let ((__tmp150193 (let () (declare (not safe)) - (cons _sexpr143274_ + (cons _sexpr143271_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id143272_)))) + _id143269_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150196 - _env143235_)))) + (cons __tmp150193 + _env143232_)))) (declare (not safe)) - (_lp143232_ - _rest143255_ - __tmp150195))))) + (_lp143229_ + _rest143252_ + __tmp150192))))) (if (let () (declare (not safe)) - (##pair? _bind143257143264_)) - (let ((_hd143261143279_ + (##pair? _bind143254143261_)) + (let ((_hd143258143276_ (let () (declare (not safe)) - (##car _bind143257143264_))) - (_tl143262143281_ + (##car _bind143254143261_))) + (_tl143259143278_ (let () (declare (not safe)) - (##cdr _bind143257143264_)))) - (let* ((_id143284_ _hd143261143279_) - (_expr143286_ - _tl143262143281_)) + (##cdr _bind143254143261_)))) + (let* ((_id143281_ _hd143258143276_) + (_expr143283_ + _tl143259143278_)) (declare (not safe)) - (_K143260143276_ - _expr143286_ - _id143284_))) + (_K143257143273_ + _expr143283_ + _id143281_))) (let () (declare (not safe)) - (_E143259143268_))))))) + (_E143256143265_))))))) (if (let () (declare (not safe)) - (##pair? _rest143236143244_)) - (let ((_hd143241143291_ + (##pair? _rest143233143241_)) + (let ((_hd143238143288_ (let () (declare (not safe)) - (##car _rest143236143244_))) - (_tl143242143293_ + (##car _rest143233143241_))) + (_tl143239143290_ (let () (declare (not safe)) - (##cdr _rest143236143244_)))) - (let* ((_bind143296_ _hd143241143291_) - (_rest143298_ _tl143242143293_)) + (##cdr _rest143233143241_)))) + (let* ((_bind143293_ _hd143238143288_) + (_rest143295_ _tl143239143290_)) (declare (not safe)) - (_K143240143288_ _rest143298_ _bind143296_))) + (_K143237143285_ _rest143295_ _bind143293_))) (let () (declare (not safe)) - (_else143238143252_))))))) - (_do-bind!139419_ - (lambda (_env143222_ _K143223_) - (let ((_unwind143225_ _env-bind139408_)) - (set! _env-bind139408_ _env143222_) - (let ((_val143227_ (_K143223_))) - (set! _env-bind139408_ _unwind143225_) - _val143227_)))) - (_do-splice!139420_ - (lambda (_K143216_) - (let ((_unwind143218_ _in-splice?139409_)) - (set! _in-splice?139409_ '#t) - (let ((_val143220_ (_K143216_))) - (set! _in-splice?139409_ _unwind143218_) - _val143220_)))) - (_optimize-e139421_ - (lambda (_expr142413_) - (let* ((___stx147940147941_ _expr142413_) - (_g142420142593_ + (_else143235143249_))))))) + (_do-bind!139416_ + (lambda (_env143219_ _K143220_) + (let ((_unwind143222_ _env-bind139405_)) + (set! _env-bind139405_ _env143219_) + (let ((_val143224_ (_K143220_))) + (set! _env-bind139405_ _unwind143222_) + _val143224_)))) + (_do-splice!139417_ + (lambda (_K143213_) + (let ((_unwind143215_ _in-splice?139406_)) + (set! _in-splice?139406_ '#t) + (let ((_val143217_ (_K143213_))) + (set! _in-splice?139406_ _unwind143215_) + _val143217_)))) + (_optimize-e139418_ + (lambda (_expr142410_) + (let* ((___stx147937147938_ _expr142410_) + (_g142417142590_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147940147941_))))) - (let ((___kont147942147943_ - (lambda (_L143188_ _L143189_ _L143190_) - (let ((_$e143207_ + ___stx147937147938_))))) + (let ((___kont147939147940_ + (lambda (_L143185_ _L143186_ _L143187_) + (let ((_$e143204_ (let () (declare (not safe)) - (_assert-e139424_ _L143190_)))) + (_assert-e139421_ _L143187_)))) (if (let () (declare (not safe)) - (eq? '#t _$e143207_)) + (eq? '#t _$e143204_)) (let () (declare (not safe)) - (_optimize-e139421_ _L143189_)) + (_optimize-e139418_ _L143186_)) (if (let () (declare (not safe)) - (eq? '#f _$e143207_)) + (eq? '#f _$e143204_)) (let () (declare (not safe)) - (_optimize-e139421_ _L143188_)) - (let ((_K143210_ + (_optimize-e139418_ _L143185_)) + (let ((_K143207_ (let () (declare (not safe)) - (_optimize-t__0__146873146874_ - _L143189_ - _L143190_))) - (_E143211_ + (_optimize-t__0__146870146871_ + _L143186_ + _L143187_))) + (_E143208_ (let () (declare (not safe)) - (_optimize-f__146875146876_ - _L143188_ - _L143190_)))) - (if (let ((__tmp150201 + (_optimize-f__146872146873_ + _L143185_ + _L143187_)))) + (if (let ((__tmp150198 (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _K143210_))) - (__tmp150200 + _K143207_))) + (__tmp150197 (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _E143211_)))) + _E143208_)))) (declare (not safe)) - (equal? __tmp150201 - __tmp150200)) - _K143210_ - (let ((__tmp150197 - (let ((__tmp150198 - (let ((__tmp150199 + (equal? __tmp150198 + __tmp150197)) + _K143207_ + (let ((__tmp150194 + (let ((__tmp150195 + (let ((__tmp150196 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _E143211_ '())))) + (cons _E143208_ '())))) (declare (not safe)) - (cons _K143210_ __tmp150199)))) + (cons _K143207_ __tmp150196)))) (declare (not safe)) - (cons _L143190_ __tmp150198)))) + (cons _L143187_ __tmp150195)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#if - __tmp150197))))))))) - (___kont147944147945_ - (lambda (_L143118_ _L143119_) - (let ((_$e143139_ + __tmp150194))))))))) + (___kont147941147942_ + (lambda (_L143115_ _L143116_) + (let ((_$e143136_ (let () (declare (not safe)) - (_lookup-block139429_ _L143119_)))) - (if _$e143139_ - ((lambda (_block143142_) + (_lookup-block139426_ _L143116_)))) + (if _$e143136_ + ((lambda (_block143139_) (if (let () (declare (not safe)) - (_nonlinear-block?139431_ - _block143142_)) - _expr142413_ - (let ((__tmp150202 - (let ((__tmp150203 - (let ((__tmp150204 + (_nonlinear-block?139428_ + _block143139_)) + _expr142410_ + (let ((__tmp150199 + (let ((__tmp150200 + (let ((__tmp150201 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g143143143146_ _g143144143148_) + (lambda (_g143140143143_ _g143141143145_) (let () (declare (not safe)) - (cons _g143143143146_ _g143144143148_))))) + (cons _g143140143143_ _g143141143145_))))) (declare (not safe)) - (foldr1 __tmp150204 '() _L143118_)))) + (foldr1 __tmp150201 '() _L143115_)))) (declare (not safe)) - (_inline-block139430_ _block143142_ __tmp150203)))) + (_inline-block139427_ _block143139_ __tmp150200)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_optimize-e139421_ - __tmp150202)))) - _$e143139_) - _expr142413_)))) - (___kont147948147949_ - (lambda (_L143008_ _L143009_ _L143010_) - (let* ((_body143029_ + (_optimize-e139418_ + __tmp150199)))) + _$e143136_) + _expr142410_)))) + (___kont147945147946_ + (lambda (_L143005_ _L143006_ _L143007_) + (let* ((_body143026_ (let () (declare (not safe)) - (_optimize-e139421_ _L143008_))) - (__tmp150205 - (let ((__tmp150207 + (_optimize-e139418_ _L143005_))) + (__tmp150202 + (let ((__tmp150204 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L143009_ - _L143010_)) - (let ((__tmp150208 - (lambda (_g143030143034_ + _L143006_ + _L143007_)) + (let ((__tmp150205 + (lambda (_g143027143031_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g143031143036_ - _g143032143038_) - (let ((__tmp150209 - (let ((__tmp150214 + _g143028143033_ + _g143029143035_) + (let ((__tmp150206 + (let ((__tmp150211 (let () (declare (not safe)) - (cons _g143031143036_ '()))) - (__tmp150210 - (let ((__tmp150211 - (let ((__tmp150213 + (cons _g143028143033_ '()))) + (__tmp150207 + (let ((__tmp150208 + (let ((__tmp150210 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150212 + (__tmp150209 (let () (declare (not safe)) - (cons _g143030143034_ '())))) + (cons _g143027143031_ '())))) (declare (not safe)) - (cons __tmp150213 __tmp150212)))) + (cons __tmp150210 __tmp150209)))) (declare (not safe)) - (cons __tmp150211 '())))) + (cons __tmp150208 '())))) (declare (not safe)) - (cons __tmp150214 __tmp150210)))) + (cons __tmp150211 __tmp150207)))) (declare (not safe)) - (cons __tmp150209 _g143032143038_))))) + (cons __tmp150206 _g143029143035_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp150208 + (foldr2 __tmp150205 '() - _L143009_ - _L143010_)))) - (__tmp150206 + _L143006_ + _L143007_)))) + (__tmp150203 (let () (declare (not safe)) - (cons _body143029_ '())))) + (cons _body143026_ '())))) (declare (not safe)) - (cons __tmp150207 __tmp150206)))) + (cons __tmp150204 __tmp150203)))) (declare (not safe)) - (cons '%#let-values __tmp150205)))) - (___kont147952147953_ - (lambda (_L142876_ _L142877_ _L142878_) - (let ((__tmp150215 + (cons '%#let-values __tmp150202)))) + (___kont147949147950_ + (lambda (_L142873_ _L142874_ _L142875_) + (let ((__tmp150212 (map cons - (let ((__tmp150216 - (lambda (_g142896142899_ - _g142897142901_) + (let ((__tmp150213 + (lambda (_g142893142896_ + _g142894142898_) (let () (declare (not safe)) - (cons _g142896142899_ - _g142897142901_))))) + (cons _g142893142896_ + _g142894142898_))))) (declare (not safe)) - (foldr1 __tmp150216 + (foldr1 __tmp150213 '() - _L142878_)) - (let ((__tmp150217 - (lambda (_g142903142906_ - _g142904142908_) + _L142875_)) + (let ((__tmp150214 + (lambda (_g142900142903_ + _g142901142905_) (let () (declare (not safe)) - (cons _g142903142906_ - _g142904142908_))))) + (cons _g142900142903_ + _g142901142905_))))) (declare (not safe)) - (foldr1 __tmp150217 + (foldr1 __tmp150214 '() - _L142877_))))) + _L142874_))))) (declare (not safe)) - (_bind-e__0__146881146882_ - __tmp150215 - _L142876_)))) - (___kont147956147957_ - (lambda (_L142733_ - _L142734_ - _L142735_ - _L142736_ - _L142737_) - (let ((__tmp150218 + (_bind-e__0__146878146879_ + __tmp150212 + _L142873_)))) + (___kont147953147954_ + (lambda (_L142730_ + _L142731_ + _L142732_ + _L142733_ + _L142734_) + (let ((__tmp150215 (lambda () - (let* ((_expr142779_ + (let* ((_expr142776_ (let () (declare (not safe)) - (_optimize-e139421_ - _L142735_))) - (__tmp150219 - (let ((__tmp150221 - (let ((__tmp150224 - (let ((__tmp150231 + (_optimize-e139418_ + _L142732_))) + (__tmp150216 + (let ((__tmp150218 + (let ((__tmp150221 + (let ((__tmp150228 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L142737_ '()))) - (__tmp150225 - (let ((__tmp150226 - (let ((__tmp150227 - (let ((__tmp150229 - (let ((__tmp150230 - (lambda (_g142780142783_ + (cons _L142734_ '()))) + (__tmp150222 + (let ((__tmp150223 + (let ((__tmp150224 + (let ((__tmp150226 + (let ((__tmp150227 + (lambda (_g142777142780_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g142781142785_) + _g142778142782_) (let () (declare (not safe)) - (cons _g142780142783_ _g142781142785_))))) + (cons _g142777142780_ _g142778142782_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp150230 + (foldr1 __tmp150227 '() - _L142736_))) - (__tmp150228 + _L142733_))) + (__tmp150225 (let () (declare (not safe)) - (cons _expr142779_ '())))) + (cons _expr142776_ '())))) (declare (not safe)) - (cons __tmp150229 __tmp150228)))) + (cons __tmp150226 __tmp150225)))) (declare (not safe)) - (cons '%#lambda __tmp150227)))) + (cons '%#lambda __tmp150224)))) (declare (not safe)) - (cons __tmp150226 '())))) + (cons __tmp150223 '())))) (declare (not safe)) - (cons __tmp150231 __tmp150225))) - (__tmp150222 - (let ((__tmp150223 - (lambda (_g142787142790_ _g142788142792_) + (cons __tmp150228 __tmp150222))) + (__tmp150219 + (let ((__tmp150220 + (lambda (_g142784142787_ _g142785142789_) (let () (declare (not safe)) - (cons _g142787142790_ _g142788142792_))))) + (cons _g142784142787_ _g142785142789_))))) (declare (not safe)) - (foldr1 __tmp150223 '() _L142734_)))) + (foldr1 __tmp150220 '() _L142731_)))) (declare (not safe)) - (cons __tmp150224 __tmp150222))) - (__tmp150220 - (let () (declare (not safe)) (cons _L142733_ '())))) + (cons __tmp150221 __tmp150219))) + (__tmp150217 + (let () (declare (not safe)) (cons _L142730_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150221 - __tmp150220)))) + (cons __tmp150218 + __tmp150217)))) (declare (not safe)) (cons '%#letrec-values - __tmp150219))))) + __tmp150216))))) (declare (not safe)) - (_do-splice!139420_ __tmp150218)))) - (___kont147962147963_ (lambda () _expr142413_))) - (let* ((___match148149148150_ - (lambda (_e142543142605_ - _hd142542142608_ - _tl142541142610_ - _e142546142613_ - _hd142545142616_ - _tl142544142618_ - _e142549142621_ - _hd142548142624_ - _tl142547142626_ - _e142552142629_ - _hd142551142632_ - _tl142550142634_ - _e142555142637_ - _hd142554142640_ - _tl142553142642_ - _e142558142645_ - _hd142557142648_ - _tl142556142650_ - _e142561142653_ - _hd142560142656_ - _tl142559142658_ - _e142564142661_ - _hd142563142664_ - _tl142562142666_ - ___splice147958147959_ - _target142565142669_ - _tl142567142671_) - (letrec ((_loop142568142674_ - (lambda (_hd142566142677_ - _id142572142679_) + (_do-splice!139417_ __tmp150215)))) + (___kont147959147960_ (lambda () _expr142410_))) + (let* ((___match148146148147_ + (lambda (_e142540142602_ + _hd142539142605_ + _tl142538142607_ + _e142543142610_ + _hd142542142613_ + _tl142541142615_ + _e142546142618_ + _hd142545142621_ + _tl142544142623_ + _e142549142626_ + _hd142548142629_ + _tl142547142631_ + _e142552142634_ + _hd142551142637_ + _tl142550142639_ + _e142555142642_ + _hd142554142645_ + _tl142553142647_ + _e142558142650_ + _hd142557142653_ + _tl142556142655_ + _e142561142658_ + _hd142560142661_ + _tl142559142663_ + ___splice147955147956_ + _target142562142666_ + _tl142564142668_) + (letrec ((_loop142565142671_ + (lambda (_hd142563142674_ + _id142569142676_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142566142677_)) - (let ((_e142569142682_ + _hd142563142674_)) + (let ((_e142566142679_ (let () (declare (not safe)) (gx#stx-e - _hd142566142677_)))) - (let ((_lp-tl142571142687_ + _hd142563142674_)))) + (let ((_lp-tl142568142684_ (let () (declare (not safe)) - (##cdr _e142569142682_))) - (_lp-hd142570142685_ + (##cdr _e142566142679_))) + (_lp-hd142567142682_ (let () (declare (not safe)) - (##car _e142569142682_)))) - (let ((__tmp150233 + (##car _e142566142679_)))) + (let ((__tmp150230 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd142570142685_ _id142572142679_)))) + (cons _lp-hd142567142682_ _id142569142676_)))) (declare (not safe)) - (_loop142568142674_ _lp-tl142571142687_ __tmp150233)))) + (_loop142565142671_ _lp-tl142568142684_ __tmp150230)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id142573142690_ - (reverse _id142572142679_))) + (let ((_id142570142687_ + (reverse _id142569142676_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142562142666_)) - (let ((_e142576142693_ + _tl142559142663_)) + (let ((_e142573142690_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl142562142666_)))) - (let ((_tl142574142698_ + (gx#stx-e _tl142559142663_)))) + (let ((_tl142571142695_ (let () (declare (not safe)) - (##cdr _e142576142693_))) - (_hd142575142696_ + (##cdr _e142573142690_))) + (_hd142572142693_ (let () (declare (not safe)) - (##car _e142576142693_)))) + (##car _e142573142690_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142574142698_)) + (gx#stx-null? _tl142571142695_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142556142650_)) + (gx#stx-null? _tl142553142647_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl142547142626_)) - (let ((___splice147960147961_ + (gx#stx-pair/null? _tl142544142623_)) + (let ((___splice147957147958_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl142547142626_ + _tl142544142623_ '0)))) - (let ((_tl142579142703_ + (let ((_tl142576142700_ (let () (declare (not safe)) (##vector-ref - ___splice147960147961_ + ___splice147957147958_ '1))) - (_target142577142701_ + (_target142574142698_ (let () (declare (not safe)) (##vector-ref - ___splice147960147961_ + ___splice147957147958_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142579142703_)) - (letrec ((_loop142580142706_ - (lambda (_hd142578142709_ - _bind142584142711_) + (gx#stx-null? _tl142576142700_)) + (letrec ((_loop142577142703_ + (lambda (_hd142575142706_ + _bind142581142708_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142578142709_)) - (let ((_e142581142714_ + _hd142575142706_)) + (let ((_e142578142711_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd142578142709_)))) - (let ((_lp-tl142583142719_ + (gx#stx-e _hd142575142706_)))) + (let ((_lp-tl142580142716_ (let () (declare (not safe)) - (##cdr _e142581142714_))) - (_lp-hd142582142717_ + (##cdr _e142578142711_))) + (_lp-hd142579142714_ (let () (declare (not safe)) - (##car _e142581142714_)))) - (let ((__tmp150232 + (##car _e142578142711_)))) + (let ((__tmp150229 (let () (declare (not safe)) - (cons _lp-hd142582142717_ _bind142584142711_)))) + (cons _lp-hd142579142714_ _bind142581142708_)))) (declare (not safe)) - (_loop142580142706_ _lp-tl142583142719_ __tmp150232)))) - (let ((_bind142585142722_ (reverse _bind142584142711_))) + (_loop142577142703_ _lp-tl142580142716_ __tmp150229)))) + (let ((_bind142582142719_ (reverse _bind142581142708_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142544142618_)) - (let ((_e142588142725_ + (gx#stx-pair? _tl142541142615_)) + (let ((_e142585142722_ (let () (declare (not safe)) - (gx#stx-e _tl142544142618_)))) - (let ((_tl142586142730_ + (gx#stx-e _tl142541142615_)))) + (let ((_tl142583142727_ (let () (declare (not safe)) - (##cdr _e142588142725_))) - (_hd142587142728_ + (##cdr _e142585142722_))) + (_hd142584142725_ (let () (declare (not safe)) - (##car _e142588142725_)))) + (##car _e142585142722_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142586142730_)) - (___kont147956147957_ - _hd142587142728_ - _bind142585142722_ - _hd142575142696_ - _id142573142690_ - _hd142554142640_) - (___kont147962147963_)))) - (___kont147962147963_))))))) + (gx#stx-null? _tl142583142727_)) + (___kont147953147954_ + _hd142584142725_ + _bind142582142719_ + _hd142572142693_ + _id142570142687_ + _hd142551142637_) + (___kont147959147960_)))) + (___kont147959147960_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop142580142706_ - _target142577142701_ + (_loop142577142703_ + _target142574142698_ '()))) - (___kont147962147963_)))) - (___kont147962147963_)) - (___kont147962147963_)) - (___kont147962147963_)))) - (___kont147962147963_))))))) + (___kont147959147960_)))) + (___kont147959147960_)) + (___kont147959147960_)) + (___kont147959147960_)))) + (___kont147959147960_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop142568142674_ - _target142565142669_ + (_loop142565142671_ + _target142562142666_ '()))))) - (___match148083148084_ - (lambda (_e142509142800_ - _hd142508142803_ - _tl142507142805_ - _e142512142808_ - _hd142511142811_ - _tl142510142813_ - ___splice147954147955_ - _target142513142816_ - _tl142515142818_) - (letrec ((_loop142516142821_ - (lambda (_hd142514142824_ - _expr142520142826_ - _id142521142828_) + (___match148080148081_ + (lambda (_e142506142797_ + _hd142505142800_ + _tl142504142802_ + _e142509142805_ + _hd142508142808_ + _tl142507142810_ + ___splice147951147952_ + _target142510142813_ + _tl142512142815_) + (letrec ((_loop142513142818_ + (lambda (_hd142511142821_ + _expr142517142823_ + _id142518142825_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142514142824_)) - (let ((_e142517142831_ + _hd142511142821_)) + (let ((_e142514142828_ (let () (declare (not safe)) (gx#stx-e - _hd142514142824_)))) - (let ((_lp-tl142519142836_ + _hd142511142821_)))) + (let ((_lp-tl142516142833_ (let () (declare (not safe)) - (##cdr _e142517142831_))) - (_lp-hd142518142834_ + (##cdr _e142514142828_))) + (_lp-hd142515142831_ (let () (declare (not safe)) - (##car _e142517142831_)))) + (##car _e142514142828_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd142518142834_)) - (let ((_e142526142839_ + _lp-hd142515142831_)) + (let ((_e142523142836_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd142518142834_)))) - (let ((_tl142524142844_ + (gx#stx-e _lp-hd142515142831_)))) + (let ((_tl142521142841_ (let () (declare (not safe)) - (##cdr _e142526142839_))) - (_hd142525142842_ + (##cdr _e142523142836_))) + (_hd142522142839_ (let () (declare (not safe)) - (##car _e142526142839_)))) + (##car _e142523142836_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142525142842_)) - (let ((_e142529142847_ + (gx#stx-pair? _hd142522142839_)) + (let ((_e142526142844_ (let () (declare (not safe)) - (gx#stx-e _hd142525142842_)))) - (let ((_tl142527142852_ + (gx#stx-e _hd142522142839_)))) + (let ((_tl142524142849_ (let () (declare (not safe)) - (##cdr _e142529142847_))) - (_hd142528142850_ + (##cdr _e142526142844_))) + (_hd142525142847_ (let () (declare (not safe)) - (##car _e142529142847_)))) + (##car _e142526142844_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142527142852_)) + (gx#stx-null? _tl142524142849_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142524142844_)) - (let ((_e142532142855_ + (gx#stx-pair? _tl142521142841_)) + (let ((_e142529142852_ (let () (declare (not safe)) - (gx#stx-e _tl142524142844_)))) - (let ((_tl142530142860_ + (gx#stx-e _tl142521142841_)))) + (let ((_tl142527142857_ (let () (declare (not safe)) - (##cdr _e142532142855_))) - (_hd142531142858_ + (##cdr _e142529142852_))) + (_hd142528142855_ (let () (declare (not safe)) - (##car _e142532142855_)))) + (##car _e142529142852_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142530142860_)) - (let ((__tmp150235 + _tl142527142857_)) + (let ((__tmp150232 (let () (declare (not safe)) - (cons _hd142531142858_ - _expr142520142826_))) - (__tmp150234 + (cons _hd142528142855_ + _expr142517142823_))) + (__tmp150231 (let () (declare (not safe)) - (cons _hd142528142850_ - _id142521142828_)))) + (cons _hd142525142847_ + _id142518142825_)))) (declare (not safe)) - (_loop142516142821_ - _lp-tl142519142836_ - __tmp150235 - __tmp150234)) - (___kont147962147963_)))) - (___kont147962147963_)) - (___kont147962147963_)))) - (___kont147962147963_)))) - (___kont147962147963_)))) + (_loop142513142818_ + _lp-tl142516142833_ + __tmp150232 + __tmp150231)) + (___kont147959147960_)))) + (___kont147959147960_)) + (___kont147959147960_)))) + (___kont147959147960_)))) + (___kont147959147960_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id142523142865_ - (reverse _id142521142828_)) - (_expr142522142863_ - (reverse _expr142520142826_))) + (let ((_id142520142862_ + (reverse _id142518142825_)) + (_expr142519142860_ + (reverse _expr142517142823_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142510142813_)) - (let ((_e142535142868_ + _tl142507142810_)) + (let ((_e142532142865_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl142510142813_)))) - (let ((_tl142533142873_ + (gx#stx-e _tl142507142810_)))) + (let ((_tl142530142870_ (let () (declare (not safe)) - (##cdr _e142535142868_))) - (_hd142534142871_ + (##cdr _e142532142865_))) + (_hd142531142868_ (let () (declare (not safe)) - (##car _e142535142868_)))) + (##car _e142532142865_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142533142873_)) - (___kont147952147953_ - _hd142534142871_ - _expr142522142863_ - _id142523142865_) - (___kont147962147963_)))) - (___kont147962147963_))))))) + (gx#stx-null? _tl142530142870_)) + (___kont147949147950_ + _hd142531142868_ + _expr142519142860_ + _id142520142862_) + (___kont147959147960_)))) + (___kont147959147960_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop142516142821_ - _target142513142816_ + (_loop142513142818_ + _target142510142813_ '() '()))))) - (___match148059148060_ - (lambda (_e142471142916_ - _hd142470142919_ - _tl142469142921_ - _e142474142924_ - _hd142473142927_ - _tl142472142929_ - ___splice147950147951_ - _target142475142932_ - _tl142477142934_) - (letrec ((_loop142478142937_ - (lambda (_hd142476142940_ - _xid142482142942_ - _id142483142944_) + (___match148056148057_ + (lambda (_e142468142913_ + _hd142467142916_ + _tl142466142918_ + _e142471142921_ + _hd142470142924_ + _tl142469142926_ + ___splice147947147948_ + _target142472142929_ + _tl142474142931_) + (letrec ((_loop142475142934_ + (lambda (_hd142473142937_ + _xid142479142939_ + _id142480142941_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142476142940_)) - (let ((_e142479142947_ + _hd142473142937_)) + (let ((_e142476142944_ (let () (declare (not safe)) (gx#stx-e - _hd142476142940_)))) - (let ((_lp-tl142481142952_ + _hd142473142937_)))) + (let ((_lp-tl142478142949_ (let () (declare (not safe)) - (##cdr _e142479142947_))) - (_lp-hd142480142950_ + (##cdr _e142476142944_))) + (_lp-hd142477142947_ (let () (declare (not safe)) - (##car _e142479142947_)))) + (##car _e142476142944_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd142480142950_)) - (let ((_e142488142955_ + _lp-hd142477142947_)) + (let ((_e142485142952_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd142480142950_)))) - (let ((_tl142486142960_ + (gx#stx-e _lp-hd142477142947_)))) + (let ((_tl142483142957_ (let () (declare (not safe)) - (##cdr _e142488142955_))) - (_hd142487142958_ + (##cdr _e142485142952_))) + (_hd142484142955_ (let () (declare (not safe)) - (##car _e142488142955_)))) + (##car _e142485142952_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142487142958_)) - (let ((_e142491142963_ + (gx#stx-pair? _hd142484142955_)) + (let ((_e142488142960_ (let () (declare (not safe)) - (gx#stx-e _hd142487142958_)))) - (let ((_tl142489142968_ + (gx#stx-e _hd142484142955_)))) + (let ((_tl142486142965_ (let () (declare (not safe)) - (##cdr _e142491142963_))) - (_hd142490142966_ + (##cdr _e142488142960_))) + (_hd142487142963_ (let () (declare (not safe)) - (##car _e142491142963_)))) + (##car _e142488142960_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142489142968_)) + (gx#stx-null? _tl142486142965_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142486142960_)) - (let ((_e142494142971_ + (gx#stx-pair? _tl142483142957_)) + (let ((_e142491142968_ (let () (declare (not safe)) - (gx#stx-e _tl142486142960_)))) - (let ((_tl142492142976_ + (gx#stx-e _tl142483142957_)))) + (let ((_tl142489142973_ (let () (declare (not safe)) - (##cdr _e142494142971_))) - (_hd142493142974_ + (##cdr _e142491142968_))) + (_hd142490142971_ (let () (declare (not safe)) - (##car _e142494142971_)))) + (##car _e142491142968_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142493142974_)) - (let ((_e142497142979_ + _hd142490142971_)) + (let ((_e142494142976_ (let () (declare (not safe)) (gx#stx-e - _hd142493142974_)))) - (let ((_tl142495142984_ + _hd142490142971_)))) + (let ((_tl142492142981_ (let () (declare (not safe)) - (##cdr _e142497142979_))) - (_hd142496142982_ + (##cdr _e142494142976_))) + (_hd142493142979_ (let () (declare (not safe)) - (##car _e142497142979_)))) + (##car _e142494142976_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd142496142982_)) + _hd142493142979_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd142496142982_)) + _hd142493142979_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl142495142984_)) - (let ((_e142500142987_ + (gx#stx-pair? _tl142492142981_)) + (let ((_e142497142984_ (let () (declare (not safe)) - (gx#stx-e _tl142495142984_)))) - (let ((_tl142498142992_ + (gx#stx-e _tl142492142981_)))) + (let ((_tl142495142989_ (let () (declare (not safe)) - (##cdr _e142500142987_))) - (_hd142499142990_ + (##cdr _e142497142984_))) + (_hd142496142987_ (let () (declare (not safe)) - (##car _e142500142987_)))) + (##car _e142497142984_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142498142992_)) + (gx#stx-null? _tl142495142989_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142492142976_)) - (let ((__tmp150237 + (gx#stx-null? _tl142489142973_)) + (let ((__tmp150234 (let () (declare (not safe)) - (cons _hd142499142990_ - _xid142482142942_))) - (__tmp150236 + (cons _hd142496142987_ + _xid142479142939_))) + (__tmp150233 (let () (declare (not safe)) - (cons _hd142490142966_ - _id142483142944_)))) + (cons _hd142487142963_ + _id142480142941_)))) (declare (not safe)) - (_loop142478142937_ - _lp-tl142481142952_ - __tmp150237 - __tmp150236)) - (___match148083148084_ - _e142471142916_ - _hd142470142919_ - _tl142469142921_ - _e142474142924_ - _hd142473142927_ - _tl142472142929_ - ___splice147950147951_ - _target142475142932_ - _tl142477142934_)) - (___match148083148084_ - _e142471142916_ - _hd142470142919_ - _tl142469142921_ - _e142474142924_ - _hd142473142927_ - _tl142472142929_ - ___splice147950147951_ - _target142475142932_ - _tl142477142934_)))) - (___match148083148084_ - _e142471142916_ - _hd142470142919_ - _tl142469142921_ - _e142474142924_ - _hd142473142927_ - _tl142472142929_ - ___splice147950147951_ - _target142475142932_ - _tl142477142934_)) - (___match148083148084_ - _e142471142916_ - _hd142470142919_ - _tl142469142921_ - _e142474142924_ - _hd142473142927_ - _tl142472142929_ - ___splice147950147951_ - _target142475142932_ - _tl142477142934_)) - (___match148083148084_ - _e142471142916_ - _hd142470142919_ - _tl142469142921_ - _e142474142924_ - _hd142473142927_ - _tl142472142929_ - ___splice147950147951_ - _target142475142932_ - _tl142477142934_)))) + (_loop142475142934_ + _lp-tl142478142949_ + __tmp150234 + __tmp150233)) + (___match148080148081_ + _e142468142913_ + _hd142467142916_ + _tl142466142918_ + _e142471142921_ + _hd142470142924_ + _tl142469142926_ + ___splice147947147948_ + _target142472142929_ + _tl142474142931_)) + (___match148080148081_ + _e142468142913_ + _hd142467142916_ + _tl142466142918_ + _e142471142921_ + _hd142470142924_ + _tl142469142926_ + ___splice147947147948_ + _target142472142929_ + _tl142474142931_)))) + (___match148080148081_ + _e142468142913_ + _hd142467142916_ + _tl142466142918_ + _e142471142921_ + _hd142470142924_ + _tl142469142926_ + ___splice147947147948_ + _target142472142929_ + _tl142474142931_)) + (___match148080148081_ + _e142468142913_ + _hd142467142916_ + _tl142466142918_ + _e142471142921_ + _hd142470142924_ + _tl142469142926_ + ___splice147947147948_ + _target142472142929_ + _tl142474142931_)) + (___match148080148081_ + _e142468142913_ + _hd142467142916_ + _tl142466142918_ + _e142471142921_ + _hd142470142924_ + _tl142469142926_ + ___splice147947147948_ + _target142472142929_ + _tl142474142931_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match148083148084_ - _e142471142916_ - _hd142470142919_ - _tl142469142921_ - _e142474142924_ - _hd142473142927_ - _tl142472142929_ - ___splice147950147951_ - _target142475142932_ - _tl142477142934_)))) - (___match148083148084_ - _e142471142916_ - _hd142470142919_ - _tl142469142921_ - _e142474142924_ - _hd142473142927_ - _tl142472142929_ - ___splice147950147951_ - _target142475142932_ - _tl142477142934_)) - (___match148083148084_ - _e142471142916_ - _hd142470142919_ - _tl142469142921_ - _e142474142924_ - _hd142473142927_ - _tl142472142929_ - ___splice147950147951_ - _target142475142932_ - _tl142477142934_)))) - (___match148083148084_ - _e142471142916_ - _hd142470142919_ - _tl142469142921_ - _e142474142924_ - _hd142473142927_ - _tl142472142929_ - ___splice147950147951_ - _target142475142932_ - _tl142477142934_)))) - (___match148083148084_ - _e142471142916_ - _hd142470142919_ - _tl142469142921_ - _e142474142924_ - _hd142473142927_ - _tl142472142929_ - ___splice147950147951_ - _target142475142932_ - _tl142477142934_)))) + (___match148080148081_ + _e142468142913_ + _hd142467142916_ + _tl142466142918_ + _e142471142921_ + _hd142470142924_ + _tl142469142926_ + ___splice147947147948_ + _target142472142929_ + _tl142474142931_)))) + (___match148080148081_ + _e142468142913_ + _hd142467142916_ + _tl142466142918_ + _e142471142921_ + _hd142470142924_ + _tl142469142926_ + ___splice147947147948_ + _target142472142929_ + _tl142474142931_)) + (___match148080148081_ + _e142468142913_ + _hd142467142916_ + _tl142466142918_ + _e142471142921_ + _hd142470142924_ + _tl142469142926_ + ___splice147947147948_ + _target142472142929_ + _tl142474142931_)))) + (___match148080148081_ + _e142468142913_ + _hd142467142916_ + _tl142466142918_ + _e142471142921_ + _hd142470142924_ + _tl142469142926_ + ___splice147947147948_ + _target142472142929_ + _tl142474142931_)))) + (___match148080148081_ + _e142468142913_ + _hd142467142916_ + _tl142466142918_ + _e142471142921_ + _hd142470142924_ + _tl142469142926_ + ___splice147947147948_ + _target142472142929_ + _tl142474142931_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id142485142997_ - (reverse _id142483142944_)) - (_xid142484142995_ - (reverse _xid142482142942_))) + (let ((_id142482142994_ + (reverse _id142480142941_)) + (_xid142481142992_ + (reverse _xid142479142939_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142472142929_)) - (let ((_e142503143000_ + _tl142469142926_)) + (let ((_e142500142997_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl142472142929_)))) - (let ((_tl142501143005_ + (gx#stx-e _tl142469142926_)))) + (let ((_tl142498143002_ (let () (declare (not safe)) - (##cdr _e142503143000_))) - (_hd142502143003_ + (##cdr _e142500142997_))) + (_hd142499143000_ (let () (declare (not safe)) - (##car _e142503143000_)))) + (##car _e142500142997_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142501143005_)) - (___kont147948147949_ - _hd142502143003_ - _xid142484142995_ - _id142485142997_) - (___match148083148084_ - _e142471142916_ - _hd142470142919_ - _tl142469142921_ - _e142474142924_ - _hd142473142927_ - _tl142472142929_ - ___splice147950147951_ - _target142475142932_ - _tl142477142934_)))) - (___match148083148084_ - _e142471142916_ - _hd142470142919_ - _tl142469142921_ - _e142474142924_ - _hd142473142927_ - _tl142472142929_ - ___splice147950147951_ - _target142475142932_ - _tl142477142934_))))))) + (gx#stx-null? _tl142498143002_)) + (___kont147945147946_ + _hd142499143000_ + _xid142481142992_ + _id142482142994_) + (___match148080148081_ + _e142468142913_ + _hd142467142916_ + _tl142466142918_ + _e142471142921_ + _hd142470142924_ + _tl142469142926_ + ___splice147947147948_ + _target142472142929_ + _tl142474142931_)))) + (___match148080148081_ + _e142468142913_ + _hd142467142916_ + _tl142466142918_ + _e142471142921_ + _hd142470142924_ + _tl142469142926_ + ___splice147947147948_ + _target142472142929_ + _tl142474142931_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop142478142937_ - _target142475142932_ + (_loop142475142934_ + _target142472142929_ '() '()))))) - (___match148035148036_ - (lambda (_e142441143046_ - _hd142440143049_ - _tl142439143051_ - _e142444143054_ - _hd142443143057_ - _tl142442143059_ - _e142447143062_ - _hd142446143065_ - _tl142445143067_ - _e142450143070_ - _hd142449143073_ - _tl142448143075_ - ___splice147946147947_ - _target142451143078_ - _tl142453143080_) - (letrec ((_loop142454143083_ - (lambda (_hd142452143086_ - _id142458143088_) + (___match148032148033_ + (lambda (_e142438143043_ + _hd142437143046_ + _tl142436143048_ + _e142441143051_ + _hd142440143054_ + _tl142439143056_ + _e142444143059_ + _hd142443143062_ + _tl142442143064_ + _e142447143067_ + _hd142446143070_ + _tl142445143072_ + ___splice147943147944_ + _target142448143075_ + _tl142450143077_) + (letrec ((_loop142451143080_ + (lambda (_hd142449143083_ + _id142455143085_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142452143086_)) - (let ((_e142455143091_ + _hd142449143083_)) + (let ((_e142452143088_ (let () (declare (not safe)) (gx#stx-e - _hd142452143086_)))) - (let ((_lp-tl142457143096_ + _hd142449143083_)))) + (let ((_lp-tl142454143093_ (let () (declare (not safe)) - (##cdr _e142455143091_))) - (_lp-hd142456143094_ + (##cdr _e142452143088_))) + (_lp-hd142453143091_ (let () (declare (not safe)) - (##car _e142455143091_)))) + (##car _e142452143088_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd142456143094_)) - (let ((_e142462143099_ + _lp-hd142453143091_)) + (let ((_e142459143096_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd142456143094_)))) - (let ((_tl142460143104_ + (gx#stx-e _lp-hd142453143091_)))) + (let ((_tl142457143101_ (let () (declare (not safe)) - (##cdr _e142462143099_))) - (_hd142461143102_ + (##cdr _e142459143096_))) + (_hd142458143099_ (let () (declare (not safe)) - (##car _e142462143099_)))) + (##car _e142459143096_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142461143102_)) + (gx#identifier? _hd142458143099_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd142461143102_)) + (gx#stx-eq? '%#ref _hd142458143099_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142460143104_)) - (let ((_e142465143107_ + (gx#stx-pair? _tl142457143101_)) + (let ((_e142462143104_ (let () (declare (not safe)) - (gx#stx-e _tl142460143104_)))) - (let ((_tl142463143112_ + (gx#stx-e _tl142457143101_)))) + (let ((_tl142460143109_ (let () (declare (not safe)) - (##cdr _e142465143107_))) - (_hd142464143110_ + (##cdr _e142462143104_))) + (_hd142461143107_ (let () (declare (not safe)) - (##car _e142465143107_)))) + (##car _e142462143104_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142463143112_)) - (let ((__tmp150238 + (gx#stx-null? _tl142460143109_)) + (let ((__tmp150235 (let () (declare (not safe)) - (cons _hd142464143110_ - _id142458143088_)))) + (cons _hd142461143107_ + _id142455143085_)))) (declare (not safe)) - (_loop142454143083_ - _lp-tl142457143096_ - __tmp150238)) - (___kont147962147963_)))) - (___kont147962147963_)) - (___kont147962147963_)) - (___kont147962147963_)))) - (___kont147962147963_)))) + (_loop142451143080_ + _lp-tl142454143093_ + __tmp150235)) + (___kont147959147960_)))) + (___kont147959147960_)) + (___kont147959147960_)) + (___kont147959147960_)))) + (___kont147959147960_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id142459143115_ - (reverse _id142458143088_))) - (___kont147944147945_ - _id142459143115_ - _hd142449143073_)))))) + (let ((_id142456143112_ + (reverse _id142455143085_))) + (___kont147941147942_ + _id142456143112_ + _hd142446143070_)))))) (let () (declare (not safe)) - (_loop142454143083_ - _target142451143078_ + (_loop142451143080_ + _target142448143075_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx147940147941_)) - (let ((_e142427143156_ + (gx#stx-pair? ___stx147937147938_)) + (let ((_e142424143153_ (let () (declare (not safe)) - (gx#stx-e ___stx147940147941_)))) - (let ((_tl142425143161_ + (gx#stx-e ___stx147937147938_)))) + (let ((_tl142422143158_ (let () (declare (not safe)) - (##cdr _e142427143156_))) - (_hd142426143159_ + (##cdr _e142424143153_))) + (_hd142423143156_ (let () (declare (not safe)) - (##car _e142427143156_)))) + (##car _e142424143153_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142426143159_)) + (gx#identifier? _hd142423143156_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd142426143159_)) + _hd142423143156_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142425143161_)) - (let ((_e142430143164_ + _tl142422143158_)) + (let ((_e142427143161_ (let () (declare (not safe)) (gx#stx-e - _tl142425143161_)))) - (let ((_tl142428143169_ + _tl142422143158_)))) + (let ((_tl142425143166_ (let () (declare (not safe)) - (##cdr _e142430143164_))) - (_hd142429143167_ + (##cdr _e142427143161_))) + (_hd142426143164_ (let () (declare (not safe)) - (##car _e142430143164_)))) + (##car _e142427143161_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142428143169_)) - (let ((_e142433143172_ + _tl142425143166_)) + (let ((_e142430143169_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl142428143169_)))) - (let ((_tl142431143177_ - (let () (declare (not safe)) (##cdr _e142433143172_))) - (_hd142432143175_ - (let () (declare (not safe)) (##car _e142433143172_)))) + (gx#stx-e _tl142425143166_)))) + (let ((_tl142428143174_ + (let () (declare (not safe)) (##cdr _e142430143169_))) + (_hd142429143172_ + (let () (declare (not safe)) (##car _e142430143169_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142431143177_)) - (let ((_e142436143180_ + (gx#stx-pair? _tl142428143174_)) + (let ((_e142433143177_ (let () (declare (not safe)) - (gx#stx-e _tl142431143177_)))) - (let ((_tl142434143185_ + (gx#stx-e _tl142428143174_)))) + (let ((_tl142431143182_ (let () (declare (not safe)) - (##cdr _e142436143180_))) - (_hd142435143183_ + (##cdr _e142433143177_))) + (_hd142432143180_ (let () (declare (not safe)) - (##car _e142436143180_)))) + (##car _e142433143177_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142434143185_)) - (___kont147942147943_ - _hd142435143183_ - _hd142432143175_ - _hd142429143167_) - (___kont147962147963_)))) - (___kont147962147963_)))) - (___kont147962147963_)))) + (gx#stx-null? _tl142431143182_)) + (___kont147939147940_ + _hd142432143180_ + _hd142429143172_ + _hd142426143164_) + (___kont147959147960_)))) + (___kont147959147960_)))) + (___kont147959147960_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147962147963_)) + (___kont147959147960_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd142426143159_)) + _hd142423143156_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142425143161_)) - (let ((_e142444143054_ + _tl142422143158_)) + (let ((_e142441143051_ (let () (declare (not safe)) (gx#stx-e - _tl142425143161_)))) - (let ((_tl142442143059_ + _tl142422143158_)))) + (let ((_tl142439143056_ (let () (declare (not safe)) - (##cdr _e142444143054_))) - (_hd142443143057_ + (##cdr _e142441143051_))) + (_hd142440143054_ (let () (declare (not safe)) - (##car _e142444143054_)))) + (##car _e142441143051_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142443143057_)) - (let ((_e142447143062_ + _hd142440143054_)) + (let ((_e142444143059_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd142443143057_)))) - (let ((_tl142445143067_ + (gx#stx-e _hd142440143054_)))) + (let ((_tl142442143064_ (let () (declare (not safe)) - (##cdr _e142447143062_))) - (_hd142446143065_ + (##cdr _e142444143059_))) + (_hd142443143062_ (let () (declare (not safe)) - (##car _e142447143062_)))) + (##car _e142444143059_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142446143065_)) + (gx#identifier? _hd142443143062_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd142446143065_)) + (gx#stx-eq? '%#ref _hd142443143062_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142445143067_)) - (let ((_e142450143070_ + (gx#stx-pair? _tl142442143064_)) + (let ((_e142447143067_ (let () (declare (not safe)) - (gx#stx-e _tl142445143067_)))) - (let ((_tl142448143075_ + (gx#stx-e _tl142442143064_)))) + (let ((_tl142445143072_ (let () (declare (not safe)) - (##cdr _e142450143070_))) - (_hd142449143073_ + (##cdr _e142447143067_))) + (_hd142446143070_ (let () (declare (not safe)) - (##car _e142450143070_)))) + (##car _e142447143067_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142448143075_)) + (gx#stx-null? _tl142445143072_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl142442143059_)) - (let ((___splice147946147947_ + _tl142439143056_)) + (let ((___splice147943147944_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl142442143059_ + _tl142439143056_ '0)))) - (let ((_tl142453143080_ + (let ((_tl142450143077_ (let () (declare (not safe)) (##vector-ref - ___splice147946147947_ + ___splice147943147944_ '1))) - (_target142451143078_ + (_target142448143075_ (let () (declare (not safe)) (##vector-ref - ___splice147946147947_ + ___splice147943147944_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142453143080_)) - (___match148035148036_ - _e142427143156_ - _hd142426143159_ - _tl142425143161_ - _e142444143054_ - _hd142443143057_ - _tl142442143059_ - _e142447143062_ - _hd142446143065_ - _tl142445143067_ - _e142450143070_ - _hd142449143073_ - _tl142448143075_ - ___splice147946147947_ - _target142451143078_ - _tl142453143080_) - (___kont147962147963_)))) - (___kont147962147963_)) - (___kont147962147963_)))) - (___kont147962147963_)) - (___kont147962147963_)) - (___kont147962147963_)))) - (___kont147962147963_)))) + _tl142450143077_)) + (___match148032148033_ + _e142424143153_ + _hd142423143156_ + _tl142422143158_ + _e142441143051_ + _hd142440143054_ + _tl142439143056_ + _e142444143059_ + _hd142443143062_ + _tl142442143064_ + _e142447143067_ + _hd142446143070_ + _tl142445143072_ + ___splice147943147944_ + _target142448143075_ + _tl142450143077_) + (___kont147959147960_)))) + (___kont147959147960_)) + (___kont147959147960_)))) + (___kont147959147960_)) + (___kont147959147960_)) + (___kont147959147960_)))) + (___kont147959147960_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147962147963_)) + (___kont147959147960_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd142426143159_)) + _hd142423143156_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142425143161_)) - (let ((_e142474142924_ + _tl142422143158_)) + (let ((_e142471142921_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl142425143161_)))) - (let ((_tl142472142929_ - (let () (declare (not safe)) (##cdr _e142474142924_))) - (_hd142473142927_ - (let () (declare (not safe)) (##car _e142474142924_)))) + (gx#stx-e _tl142422143158_)))) + (let ((_tl142469142926_ + (let () (declare (not safe)) (##cdr _e142471142921_))) + (_hd142470142924_ + (let () (declare (not safe)) (##car _e142471142921_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd142473142927_)) - (let ((___splice147950147951_ + (gx#stx-pair/null? _hd142470142924_)) + (let ((___splice147947147948_ (let () (declare (not safe)) - (gx#syntax-split-splice _hd142473142927_ '0)))) - (let ((_tl142477142934_ + (gx#syntax-split-splice _hd142470142924_ '0)))) + (let ((_tl142474142931_ (let () (declare (not safe)) - (##vector-ref ___splice147950147951_ '1))) - (_target142475142932_ + (##vector-ref ___splice147947147948_ '1))) + (_target142472142929_ (let () (declare (not safe)) - (##vector-ref ___splice147950147951_ '0)))) + (##vector-ref ___splice147947147948_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142477142934_)) - (___match148059148060_ - _e142427143156_ - _hd142426143159_ - _tl142425143161_ - _e142474142924_ - _hd142473142927_ - _tl142472142929_ - ___splice147950147951_ - _target142475142932_ - _tl142477142934_) - (___kont147962147963_)))) - (___kont147962147963_)))) - (___kont147962147963_)) + (gx#stx-null? _tl142474142931_)) + (___match148056148057_ + _e142424143153_ + _hd142423143156_ + _tl142422143158_ + _e142471142921_ + _hd142470142924_ + _tl142469142926_ + ___splice147947147948_ + _target142472142929_ + _tl142474142931_) + (___kont147959147960_)))) + (___kont147959147960_)))) + (___kont147959147960_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd142426143159_)) + _hd142423143156_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142425143161_)) - (let ((_e142546142613_ + _tl142422143158_)) + (let ((_e142543142610_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl142425143161_)))) - (let ((_tl142544142618_ + (gx#stx-e _tl142422143158_)))) + (let ((_tl142541142615_ (let () (declare (not safe)) - (##cdr _e142546142613_))) - (_hd142545142616_ + (##cdr _e142543142610_))) + (_hd142542142613_ (let () (declare (not safe)) - (##car _e142546142613_)))) + (##car _e142543142610_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142545142616_)) - (let ((_e142549142621_ + (gx#stx-pair? _hd142542142613_)) + (let ((_e142546142618_ (let () (declare (not safe)) - (gx#stx-e _hd142545142616_)))) - (let ((_tl142547142626_ + (gx#stx-e _hd142542142613_)))) + (let ((_tl142544142623_ (let () (declare (not safe)) - (##cdr _e142549142621_))) - (_hd142548142624_ + (##cdr _e142546142618_))) + (_hd142545142621_ (let () (declare (not safe)) - (##car _e142549142621_)))) + (##car _e142546142618_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142548142624_)) - (let ((_e142552142629_ + (gx#stx-pair? _hd142545142621_)) + (let ((_e142549142626_ (let () (declare (not safe)) - (gx#stx-e _hd142548142624_)))) - (let ((_tl142550142634_ + (gx#stx-e _hd142545142621_)))) + (let ((_tl142547142631_ (let () (declare (not safe)) - (##cdr _e142552142629_))) - (_hd142551142632_ + (##cdr _e142549142626_))) + (_hd142548142629_ (let () (declare (not safe)) - (##car _e142552142629_)))) + (##car _e142549142626_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142551142632_)) - (let ((_e142555142637_ + (gx#stx-pair? _hd142548142629_)) + (let ((_e142552142634_ (let () (declare (not safe)) (gx#stx-e - _hd142551142632_)))) - (let ((_tl142553142642_ + _hd142548142629_)))) + (let ((_tl142550142639_ (let () (declare (not safe)) - (##cdr _e142555142637_))) - (_hd142554142640_ + (##cdr _e142552142634_))) + (_hd142551142637_ (let () (declare (not safe)) - (##car _e142555142637_)))) + (##car _e142552142634_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142553142642_)) + _tl142550142639_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142550142634_)) - (let ((_e142558142645_ + _tl142547142631_)) + (let ((_e142555142642_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl142550142634_)))) - (let ((_tl142556142650_ - (let () (declare (not safe)) (##cdr _e142558142645_))) - (_hd142557142648_ - (let () (declare (not safe)) (##car _e142558142645_)))) + (gx#stx-e _tl142547142631_)))) + (let ((_tl142553142647_ + (let () (declare (not safe)) (##cdr _e142555142642_))) + (_hd142554142645_ + (let () (declare (not safe)) (##car _e142555142642_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142557142648_)) - (let ((_e142561142653_ + (gx#stx-pair? _hd142554142645_)) + (let ((_e142558142650_ (let () (declare (not safe)) - (gx#stx-e _hd142557142648_)))) - (let ((_tl142559142658_ + (gx#stx-e _hd142554142645_)))) + (let ((_tl142556142655_ (let () (declare (not safe)) - (##cdr _e142561142653_))) - (_hd142560142656_ + (##cdr _e142558142650_))) + (_hd142557142653_ (let () (declare (not safe)) - (##car _e142561142653_)))) + (##car _e142558142650_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142560142656_)) + (gx#identifier? _hd142557142653_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd142560142656_)) + (gx#stx-eq? '%#lambda _hd142557142653_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142559142658_)) - (let ((_e142564142661_ + (gx#stx-pair? _tl142556142655_)) + (let ((_e142561142658_ (let () (declare (not safe)) - (gx#stx-e _tl142559142658_)))) - (let ((_tl142562142666_ + (gx#stx-e _tl142556142655_)))) + (let ((_tl142559142663_ (let () (declare (not safe)) - (##cdr _e142564142661_))) - (_hd142563142664_ + (##cdr _e142561142658_))) + (_hd142560142661_ (let () (declare (not safe)) - (##car _e142564142661_)))) + (##car _e142561142658_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd142563142664_)) - (let ((___splice147958147959_ + _hd142560142661_)) + (let ((___splice147955147956_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd142563142664_ + _hd142560142661_ '0)))) - (let ((_tl142567142671_ + (let ((_tl142564142668_ (let () (declare (not safe)) (##vector-ref - ___splice147958147959_ + ___splice147955147956_ '1))) - (_target142565142669_ + (_target142562142666_ (let () (declare (not safe)) (##vector-ref - ___splice147958147959_ + ___splice147955147956_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142567142671_)) - (___match148149148150_ - _e142427143156_ - _hd142426143159_ - _tl142425143161_ - _e142546142613_ - _hd142545142616_ - _tl142544142618_ - _e142549142621_ - _hd142548142624_ - _tl142547142626_ - _e142552142629_ - _hd142551142632_ - _tl142550142634_ - _e142555142637_ - _hd142554142640_ - _tl142553142642_ - _e142558142645_ - _hd142557142648_ - _tl142556142650_ - _e142561142653_ - _hd142560142656_ - _tl142559142658_ - _e142564142661_ - _hd142563142664_ - _tl142562142666_ - ___splice147958147959_ - _target142565142669_ - _tl142567142671_) - (___kont147962147963_)))) - (___kont147962147963_)))) - (___kont147962147963_)) - (___kont147962147963_)) - (___kont147962147963_)))) - (___kont147962147963_)))) - (___kont147962147963_)) + _tl142564142668_)) + (___match148146148147_ + _e142424143153_ + _hd142423143156_ + _tl142422143158_ + _e142543142610_ + _hd142542142613_ + _tl142541142615_ + _e142546142618_ + _hd142545142621_ + _tl142544142623_ + _e142549142626_ + _hd142548142629_ + _tl142547142631_ + _e142552142634_ + _hd142551142637_ + _tl142550142639_ + _e142555142642_ + _hd142554142645_ + _tl142553142647_ + _e142558142650_ + _hd142557142653_ + _tl142556142655_ + _e142561142658_ + _hd142560142661_ + _tl142559142663_ + ___splice147955147956_ + _target142562142666_ + _tl142564142668_) + (___kont147959147960_)))) + (___kont147959147960_)))) + (___kont147959147960_)) + (___kont147959147960_)) + (___kont147959147960_)))) + (___kont147959147960_)))) + (___kont147959147960_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147962147963_)))) - (___kont147962147963_)))) - (___kont147962147963_)))) - (___kont147962147963_)))) - (___kont147962147963_)) - (___kont147962147963_))))) + (___kont147959147960_)))) + (___kont147959147960_)))) + (___kont147959147960_)))) + (___kont147959147960_)))) + (___kont147959147960_)) + (___kont147959147960_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147962147963_)))) - (___kont147962147963_))))))) - (_optimize-t__146871146872_ - (lambda (_expr142396_ _test142397_ _continue142398_) - (let ((__tmp150240 - (let ((__tmp150241 + (___kont147959147960_)))) + (___kont147959147960_))))))) + (_optimize-t__146868146869_ + (lambda (_expr142393_ _test142394_ _continue142395_) + (let ((__tmp150237 + (let ((__tmp150238 (let () (declare (not safe)) - (cons _test142397_ '#t)))) + (cons _test142394_ '#t)))) (declare (not safe)) - (cons __tmp150241 '()))) - (__tmp150239 - (lambda () (_continue142398_ _expr142396_)))) + (cons __tmp150238 '()))) + (__tmp150236 + (lambda () (_continue142395_ _expr142393_)))) (declare (not safe)) - (_do-assert139410_ __tmp150240 __tmp150239)))) - (_optimize-t__0__146873146874_ - (lambda (_expr142404_ _test142405_) - (let ((_continue142407_ _optimize-e139421_)) + (_do-assert139407_ __tmp150237 __tmp150236)))) + (_optimize-t__0__146870146871_ + (lambda (_expr142401_ _test142402_) + (let ((_continue142404_ _optimize-e139418_)) (declare (not safe)) - (_optimize-t__146871146872_ - _expr142404_ - _test142405_ - _continue142407_)))) - (_optimize-t139422_ - (lambda _g150243_ - (let ((_g150242_ + (_optimize-t__146868146869_ + _expr142401_ + _test142402_ + _continue142404_)))) + (_optimize-t139419_ + (lambda _g150240_ + (let ((_g150239_ (let () (declare (not safe)) - (##length _g150243_)))) - (cond ((let () (declare (not safe)) (##fx= _g150242_ 2)) - (apply (lambda (_expr142404_ _test142405_) + (##length _g150240_)))) + (cond ((let () (declare (not safe)) (##fx= _g150239_ 2)) + (apply (lambda (_expr142401_ _test142402_) (let () (declare (not safe)) - (_optimize-t__0__146873146874_ - _expr142404_ - _test142405_))) - _g150243_)) - ((let () (declare (not safe)) (##fx= _g150242_ 3)) - (apply (lambda (_expr142409_ - _test142410_ - _continue142411_) + (_optimize-t__0__146870146871_ + _expr142401_ + _test142402_))) + _g150240_)) + ((let () (declare (not safe)) (##fx= _g150239_ 3)) + (apply (lambda (_expr142406_ + _test142407_ + _continue142408_) (let () (declare (not safe)) - (_optimize-t__146871146872_ - _expr142409_ - _test142410_ - _continue142411_))) - _g150243_)) + (_optimize-t__146868146869_ + _expr142406_ + _test142407_ + _continue142408_))) + _g150240_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g150243_)))))) - (_optimize-f__146875146876_ - (lambda (_expr141481_ _test141482_) - (let ((__tmp150286 - (if _test141482_ - (let ((__tmp150287 + _g150240_)))))) + (_optimize-f__146872146873_ + (lambda (_expr141478_ _test141479_) + (let ((__tmp150283 + (if _test141479_ + (let ((__tmp150284 (let () (declare (not safe)) - (cons _test141482_ '#f)))) + (cons _test141479_ '#f)))) (declare (not safe)) - (cons __tmp150287 '())) + (cons __tmp150284 '())) '())) - (__tmp150244 + (__tmp150241 (lambda () - (let* ((___stx148190148191_ _expr141481_) - (_g141490141663_ + (let* ((___stx148187148188_ _expr141478_) + (_g141487141660_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148190148191_))))) - (let ((___kont148192148193_ - (lambda (_L142251_ _L142252_) - (let ((_$e142272_ + ___stx148187148188_))))) + (let ((___kont148189148190_ + (lambda (_L142248_ _L142249_) + (let ((_$e142269_ (let () (declare (not safe)) - (_lookup-block139429_ - _L142252_)))) - (if _$e142272_ - ((lambda (_block142275_) + (_lookup-block139426_ + _L142249_)))) + (if _$e142269_ + ((lambda (_block142272_) (if (let () (declare (not safe)) - (_nonlinear-block?139431_ - _block142275_)) - _expr141481_ - (let* ((_inline142284_ - (let ((__tmp150245 + (_nonlinear-block?139428_ + _block142272_)) + _expr141478_ + (let* ((_inline142281_ + (let ((__tmp150242 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150246 - (lambda (_g142276142279_ _g142277142281_) + (let ((__tmp150243 + (lambda (_g142273142276_ _g142274142278_) (let () (declare (not safe)) - (cons _g142276142279_ - _g142277142281_))))) + (cons _g142273142276_ + _g142274142278_))))) (declare (not safe)) - (foldr1 __tmp150246 '() _L142251_)))) + (foldr1 __tmp150243 '() _L142248_)))) (declare (not safe)) - (_inline-block139430_ _block142275_ __tmp150245))) - (___stx148152148153_ _inline142284_) - (_g142287142308_ + (_inline-block139427_ _block142272_ __tmp150242))) + (___stx148149148150_ _inline142281_) + (_g142284142305_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148152148153_))))) - (let ((___kont148154148155_ - (lambda (_L142352_ _L142353_ _L142354_) - (let ((_$e142376_ + ___stx148149148150_))))) + (let ((___kont148151148152_ + (lambda (_L142349_ _L142350_ _L142351_) + (let ((_$e142373_ (let () (declare (not safe)) - (_assert-e139424_ _L142354_)))) + (_assert-e139421_ _L142351_)))) (if (let () (declare (not safe)) - (eq? '#t _$e142376_)) - (if _in-splice?139409_ + (eq? '#t _$e142373_)) + (if _in-splice?139406_ (let () (declare (not safe)) - (_optimize-f__0__146877146878_ _L142353_)) + (_optimize-f__0__146874146875_ _L142350_)) (let () (declare (not safe)) - (_optimize-e139421_ _L142353_))) + (_optimize-e139418_ _L142350_))) (if (let () (declare (not safe)) - (eq? '#f _$e142376_)) + (eq? '#f _$e142373_)) (let () (declare (not safe)) - (_optimize-f__0__146877146878_ _L142352_)) - _expr141481_))))) - (___kont148156148157_ + (_optimize-f__0__146874146875_ _L142349_)) + _expr141478_))))) + (___kont148153148154_ (lambda () (let () (declare (not safe)) - (_optimize-f__0__146877146878_ _inline142284_))))) + (_optimize-f__0__146874146875_ _inline142281_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx148152148153_)) - (let ((_e142294142320_ + (gx#stx-pair? ___stx148149148150_)) + (let ((_e142291142317_ (let () (declare (not safe)) - (gx#stx-e ___stx148152148153_)))) - (let ((_tl142292142325_ + (gx#stx-e ___stx148149148150_)))) + (let ((_tl142289142322_ (let () (declare (not safe)) - (##cdr _e142294142320_))) - (_hd142293142323_ + (##cdr _e142291142317_))) + (_hd142290142320_ (let () (declare (not safe)) - (##car _e142294142320_)))) + (##car _e142291142317_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142293142323_)) + (gx#identifier? _hd142290142320_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd142293142323_)) + (gx#stx-eq? '%#if _hd142290142320_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142292142325_)) - (let ((_e142297142328_ + (gx#stx-pair? _tl142289142322_)) + (let ((_e142294142325_ (let () (declare (not safe)) - (gx#stx-e _tl142292142325_)))) - (let ((_tl142295142333_ + (gx#stx-e _tl142289142322_)))) + (let ((_tl142292142330_ (let () (declare (not safe)) - (##cdr _e142297142328_))) - (_hd142296142331_ + (##cdr _e142294142325_))) + (_hd142293142328_ (let () (declare (not safe)) - (##car _e142297142328_)))) + (##car _e142294142325_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142295142333_)) - (let ((_e142300142336_ + _tl142292142330_)) + (let ((_e142297142333_ (let () (declare (not safe)) (gx#stx-e - _tl142295142333_)))) - (let ((_tl142298142341_ + _tl142292142330_)))) + (let ((_tl142295142338_ (let () (declare (not safe)) - (##cdr _e142300142336_))) - (_hd142299142339_ + (##cdr _e142297142333_))) + (_hd142296142336_ (let () (declare (not safe)) - (##car _e142300142336_)))) + (##car _e142297142333_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142298142341_)) - (let ((_e142303142344_ + _tl142295142338_)) + (let ((_e142300142341_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl142298142341_)))) - (let ((_tl142301142349_ - (let () (declare (not safe)) (##cdr _e142303142344_))) - (_hd142302142347_ - (let () (declare (not safe)) (##car _e142303142344_)))) + (gx#stx-e _tl142295142338_)))) + (let ((_tl142298142346_ + (let () (declare (not safe)) (##cdr _e142300142341_))) + (_hd142299142344_ + (let () (declare (not safe)) (##car _e142300142341_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142301142349_)) - (___kont148154148155_ - _hd142302142347_ - _hd142299142339_ - _hd142296142331_) - (___kont148156148157_)))) - (___kont148156148157_)))) + (gx#stx-null? _tl142298142346_)) + (___kont148151148152_ + _hd142299142344_ + _hd142296142336_ + _hd142293142328_) + (___kont148153148154_)))) + (___kont148153148154_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148156148157_)))) - (___kont148156148157_)) - (___kont148156148157_)) - (___kont148156148157_)))) - (___kont148156148157_)))))) + (___kont148153148154_)))) + (___kont148153148154_)) + (___kont148153148154_)) + (___kont148153148154_)))) + (___kont148153148154_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e142272_) - _expr141481_)))) - (___kont148196148197_ - (lambda (_L142149_ _L142150_ _L142151_) - (let ((_$e142168_ + _$e142269_) + _expr141478_)))) + (___kont148193148194_ + (lambda (_L142146_ _L142147_ _L142148_) + (let ((_$e142165_ (let () (declare (not safe)) - (_assert-e139424_ - _L142151_)))) + (_assert-e139421_ + _L142148_)))) (if (let () (declare (not safe)) - (eq? '#t _$e142168_)) - (if _in-splice?139409_ + (eq? '#t _$e142165_)) + (if _in-splice?139406_ (let () (declare (not safe)) - (_optimize-f__0__146877146878_ - _L142150_)) + (_optimize-f__0__146874146875_ + _L142147_)) (let () (declare (not safe)) - (_optimize-e139421_ - _L142150_))) + (_optimize-e139418_ + _L142147_))) (if (let () (declare (not safe)) - (eq? '#f _$e142168_)) + (eq? '#f _$e142165_)) (let () (declare (not safe)) - (_optimize-f__0__146877146878_ - _L142149_)) - (let ((_K142171_ + (_optimize-f__0__146874146875_ + _L142146_)) + (let ((_K142168_ (let () (declare (not safe)) - (_optimize-t__146871146872_ - _L142150_ - _L142151_ - _optimize-f139423_))) - (_E142172_ + (_optimize-t__146868146869_ + _L142147_ + _L142148_ + _optimize-f139420_))) + (_E142169_ (let () (declare (not safe)) - (_optimize-f__146875146876_ - _L142149_ - _L142151_)))) - (if (let ((__tmp150251 + (_optimize-f__146872146873_ + _L142146_ + _L142148_)))) + (if (let ((__tmp150248 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#apply-generate-runtime-repr _K142171_))) - (__tmp150250 + (gxc#apply-generate-runtime-repr _K142168_))) + (__tmp150247 (let () (declare (not safe)) - (gxc#apply-generate-runtime-repr _E142172_)))) + (gxc#apply-generate-runtime-repr _E142169_)))) (declare (not safe)) - (equal? __tmp150251 __tmp150250)) - _K142171_ - (let ((__tmp150247 - (let ((__tmp150248 - (let ((__tmp150249 + (equal? __tmp150248 __tmp150247)) + _K142168_ + (let ((__tmp150244 + (let ((__tmp150245 + (let ((__tmp150246 (let () (declare (not safe)) - (cons _E142172_ '())))) + (cons _E142169_ '())))) (declare (not safe)) - (cons _K142171_ __tmp150249)))) + (cons _K142168_ __tmp150246)))) (declare (not safe)) - (cons _L142151_ __tmp150248)))) + (cons _L142148_ __tmp150245)))) (declare (not safe)) - (cons '%#if __tmp150247))))))))) + (cons '%#if __tmp150244))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148198148199_ - (lambda (_L142079_ _L142080_ _L142081_) - (let* ((_body142100_ + (___kont148195148196_ + (lambda (_L142076_ _L142077_ _L142078_) + (let* ((_body142097_ (let () (declare (not safe)) - (_optimize-f__0__146877146878_ - _L142079_))) - (__tmp150252 - (let ((__tmp150254 + (_optimize-f__0__146874146875_ + _L142076_))) + (__tmp150249 + (let ((__tmp150251 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L142080_ - _L142081_)) - (let ((__tmp150255 + _L142077_ + _L142078_)) + (let ((__tmp150252 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g142101142105_ - _g142102142107_ - _g142103142109_) - (let ((__tmp150256 - (let ((__tmp150261 + (lambda (_g142098142102_ + _g142099142104_ + _g142100142106_) + (let ((__tmp150253 + (let ((__tmp150258 (let () (declare (not safe)) - (cons _g142102142107_ '()))) - (__tmp150257 - (let ((__tmp150258 - (let ((__tmp150260 + (cons _g142099142104_ '()))) + (__tmp150254 + (let ((__tmp150255 + (let ((__tmp150257 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150259 + (__tmp150256 (let () (declare (not safe)) - (cons _g142101142105_ + (cons _g142098142102_ '())))) (declare (not safe)) - (cons __tmp150260 - __tmp150259)))) + (cons __tmp150257 + __tmp150256)))) (declare (not safe)) - (cons __tmp150258 '())))) + (cons __tmp150255 '())))) (declare (not safe)) - (cons __tmp150261 __tmp150257)))) + (cons __tmp150258 __tmp150254)))) (declare (not safe)) - (cons __tmp150256 _g142103142109_))))) + (cons __tmp150253 _g142100142106_))))) (declare (not safe)) - (foldr2 __tmp150255 '() _L142080_ _L142081_)))) - (__tmp150253 - (let () (declare (not safe)) (cons _body142100_ '())))) + (foldr2 __tmp150252 '() _L142077_ _L142078_)))) + (__tmp150250 + (let () (declare (not safe)) (cons _body142097_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150254 - __tmp150253)))) + (cons __tmp150251 + __tmp150250)))) (declare (not safe)) - (cons '%#let-values __tmp150252)))) - (___kont148202148203_ - (lambda (_L141947_ _L141948_ _L141949_) - (let ((__tmp150262 + (cons '%#let-values __tmp150249)))) + (___kont148199148200_ + (lambda (_L141944_ _L141945_ _L141946_) + (let ((__tmp150259 (map cons - (let ((__tmp150263 - (lambda (_g141967141970_ + (let ((__tmp150260 + (lambda (_g141964141967_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g141968141972_) + _g141965141969_) (let () (declare (not safe)) - (cons _g141967141970_ _g141968141972_))))) + (cons _g141964141967_ _g141965141969_))))) (declare (not safe)) - (foldr1 __tmp150263 '() _L141949_)) + (foldr1 __tmp150260 '() _L141946_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp150264 - (lambda (_g141974141977_ + (let ((__tmp150261 + (lambda (_g141971141974_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g141975141979_) + _g141972141976_) (let () (declare (not safe)) - (cons _g141974141977_ _g141975141979_))))) + (cons _g141971141974_ _g141972141976_))))) (declare (not safe)) - (foldr1 __tmp150264 '() _L141948_))))) + (foldr1 __tmp150261 '() _L141945_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_bind-e__146879146880_ - __tmp150262 - _L141947_ - _optimize-f139423_)))) - (___kont148206148207_ - (lambda (_L141803_ - _L141804_ - _L141805_ - _L141806_ - _L141807_) - (let ((__tmp150265 + (_bind-e__146876146877_ + __tmp150259 + _L141944_ + _optimize-f139420_)))) + (___kont148203148204_ + (lambda (_L141800_ + _L141801_ + _L141802_ + _L141803_ + _L141804_) + (let ((__tmp150262 (lambda () - (let* ((_expr141850_ + (let* ((_expr141847_ (let () (declare (not safe)) - (_optimize-f__0__146877146878_ - _L141805_))) - (__tmp150266 - (let ((__tmp150268 + (_optimize-f__0__146874146875_ + _L141802_))) + (__tmp150263 + (let ((__tmp150265 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150271 - (let ((__tmp150278 + (let ((__tmp150268 + (let ((__tmp150275 (let () (declare (not safe)) - (cons _L141807_ '()))) - (__tmp150272 - (let ((__tmp150273 - (let ((__tmp150274 - (let ((__tmp150276 - (let ((__tmp150277 + (cons _L141804_ '()))) + (__tmp150269 + (let ((__tmp150270 + (let ((__tmp150271 + (let ((__tmp150273 + (let ((__tmp150274 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g141851141854_ _g141852141856_) + (lambda (_g141848141851_ _g141849141853_) (let () (declare (not safe)) - (cons _g141851141854_ _g141852141856_))))) + (cons _g141848141851_ _g141849141853_))))) (declare (not safe)) - (foldr1 __tmp150277 '() _L141806_))) - (__tmp150275 - (let () (declare (not safe)) (cons _expr141850_ '())))) + (foldr1 __tmp150274 '() _L141803_))) + (__tmp150272 + (let () (declare (not safe)) (cons _expr141847_ '())))) (declare (not safe)) - (cons __tmp150276 __tmp150275)))) + (cons __tmp150273 __tmp150272)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#lambda __tmp150274)))) + (cons '%#lambda __tmp150271)))) (declare (not safe)) - (cons __tmp150273 '())))) + (cons __tmp150270 '())))) (declare (not safe)) - (cons __tmp150278 __tmp150272))) - (__tmp150269 - (let ((__tmp150270 - (lambda (_g141858141861_ - _g141859141863_) + (cons __tmp150275 __tmp150269))) + (__tmp150266 + (let ((__tmp150267 + (lambda (_g141855141858_ + _g141856141860_) (let () (declare (not safe)) - (cons _g141858141861_ - _g141859141863_))))) + (cons _g141855141858_ + _g141856141860_))))) (declare (not safe)) - (foldr1 __tmp150270 '() _L141804_)))) + (foldr1 __tmp150267 '() _L141801_)))) (declare (not safe)) - (cons __tmp150271 __tmp150269))) - (__tmp150267 - (let () (declare (not safe)) (cons _L141803_ '())))) + (cons __tmp150268 __tmp150266))) + (__tmp150264 + (let () (declare (not safe)) (cons _L141800_ '())))) (declare (not safe)) - (cons __tmp150268 __tmp150267)))) + (cons __tmp150265 __tmp150264)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#letrec-values - __tmp150266))))) + __tmp150263))))) (declare (not safe)) - (_do-splice!139420_ __tmp150265)))) - (___kont148212148213_ - (lambda () _expr141481_))) - (let* ((___match148399148400_ - (lambda (_e141613141675_ - _hd141612141678_ - _tl141611141680_ - _e141616141683_ - _hd141615141686_ - _tl141614141688_ - _e141619141691_ - _hd141618141694_ - _tl141617141696_ - _e141622141699_ - _hd141621141702_ - _tl141620141704_ - _e141625141707_ - _hd141624141710_ - _tl141623141712_ - _e141628141715_ - _hd141627141718_ - _tl141626141720_ - _e141631141723_ - _hd141630141726_ - _tl141629141728_ - _e141634141731_ - _hd141633141734_ - _tl141632141736_ - ___splice148208148209_ - _target141635141739_ - _tl141637141741_) - (letrec ((_loop141638141744_ - (lambda (_hd141636141747_ - _id141642141749_) + (_do-splice!139417_ __tmp150262)))) + (___kont148209148210_ + (lambda () _expr141478_))) + (let* ((___match148396148397_ + (lambda (_e141610141672_ + _hd141609141675_ + _tl141608141677_ + _e141613141680_ + _hd141612141683_ + _tl141611141685_ + _e141616141688_ + _hd141615141691_ + _tl141614141693_ + _e141619141696_ + _hd141618141699_ + _tl141617141701_ + _e141622141704_ + _hd141621141707_ + _tl141620141709_ + _e141625141712_ + _hd141624141715_ + _tl141623141717_ + _e141628141720_ + _hd141627141723_ + _tl141626141725_ + _e141631141728_ + _hd141630141731_ + _tl141629141733_ + ___splice148205148206_ + _target141632141736_ + _tl141634141738_) + (letrec ((_loop141635141741_ + (lambda (_hd141633141744_ + _id141639141746_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141636141747_)) - (let ((_e141639141752_ + _hd141633141744_)) + (let ((_e141636141749_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd141636141747_)))) - (let ((_lp-tl141641141757_ + (gx#stx-e _hd141633141744_)))) + (let ((_lp-tl141638141754_ (let () (declare (not safe)) - (##cdr _e141639141752_))) - (_lp-hd141640141755_ + (##cdr _e141636141749_))) + (_lp-hd141637141752_ (let () (declare (not safe)) - (##car _e141639141752_)))) - (let ((__tmp150280 + (##car _e141636141749_)))) + (let ((__tmp150277 (let () (declare (not safe)) - (cons _lp-hd141640141755_ _id141642141749_)))) + (cons _lp-hd141637141752_ _id141639141746_)))) (declare (not safe)) - (_loop141638141744_ - _lp-tl141641141757_ - __tmp150280)))) - (let ((_id141643141760_ (reverse _id141642141749_))) + (_loop141635141741_ + _lp-tl141638141754_ + __tmp150277)))) + (let ((_id141640141757_ (reverse _id141639141746_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141632141736_)) - (let ((_e141646141763_ + (gx#stx-pair? _tl141629141733_)) + (let ((_e141643141760_ (let () (declare (not safe)) - (gx#stx-e _tl141632141736_)))) - (let ((_tl141644141768_ + (gx#stx-e _tl141629141733_)))) + (let ((_tl141641141765_ (let () (declare (not safe)) - (##cdr _e141646141763_))) - (_hd141645141766_ + (##cdr _e141643141760_))) + (_hd141642141763_ (let () (declare (not safe)) - (##car _e141646141763_)))) + (##car _e141643141760_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141644141768_)) + (gx#stx-null? _tl141641141765_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl141626141720_)) + (gx#stx-null? _tl141623141717_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl141617141696_)) - (let ((___splice148210148211_ + _tl141614141693_)) + (let ((___splice148207148208_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl141617141696_ + _tl141614141693_ '0)))) - (let ((_tl141649141773_ + (let ((_tl141646141770_ (let () (declare (not safe)) (##vector-ref - ___splice148210148211_ + ___splice148207148208_ '1))) - (_target141647141771_ + (_target141644141768_ (let () (declare (not safe)) (##vector-ref - ___splice148210148211_ + ___splice148207148208_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141649141773_)) - (letrec ((_loop141650141776_ - (lambda (_hd141648141779_ + _tl141646141770_)) + (letrec ((_loop141647141773_ + (lambda (_hd141645141776_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind141654141781_) + _bind141651141778_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141648141779_)) - (let ((_e141651141784_ + (gx#stx-pair? _hd141645141776_)) + (let ((_e141648141781_ (let () (declare (not safe)) - (gx#stx-e _hd141648141779_)))) - (let ((_lp-tl141653141789_ + (gx#stx-e _hd141645141776_)))) + (let ((_lp-tl141650141786_ (let () (declare (not safe)) - (##cdr _e141651141784_))) - (_lp-hd141652141787_ + (##cdr _e141648141781_))) + (_lp-hd141649141784_ (let () (declare (not safe)) - (##car _e141651141784_)))) - (let ((__tmp150279 + (##car _e141648141781_)))) + (let ((__tmp150276 (let () (declare (not safe)) - (cons _lp-hd141652141787_ - _bind141654141781_)))) + (cons _lp-hd141649141784_ + _bind141651141778_)))) (declare (not safe)) - (_loop141650141776_ - _lp-tl141653141789_ - __tmp150279)))) - (let ((_bind141655141792_ - (reverse _bind141654141781_))) + (_loop141647141773_ + _lp-tl141650141786_ + __tmp150276)))) + (let ((_bind141652141789_ + (reverse _bind141651141778_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141614141688_)) - (let ((_e141658141795_ + (gx#stx-pair? _tl141611141685_)) + (let ((_e141655141792_ (let () (declare (not safe)) - (gx#stx-e _tl141614141688_)))) - (let ((_tl141656141800_ + (gx#stx-e _tl141611141685_)))) + (let ((_tl141653141797_ (let () (declare (not safe)) - (##cdr _e141658141795_))) - (_hd141657141798_ + (##cdr _e141655141792_))) + (_hd141654141795_ (let () (declare (not safe)) - (##car _e141658141795_)))) + (##car _e141655141792_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141656141800_)) - (___kont148206148207_ - _hd141657141798_ - _bind141655141792_ - _hd141645141766_ - _id141643141760_ - _hd141624141710_) - (___kont148212148213_)))) - (___kont148212148213_))))))) + (gx#stx-null? _tl141653141797_)) + (___kont148203148204_ + _hd141654141795_ + _bind141652141789_ + _hd141642141763_ + _id141640141757_ + _hd141621141707_) + (___kont148209148210_)))) + (___kont148209148210_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop141650141776_ - _target141647141771_ + (_loop141647141773_ + _target141644141768_ '()))) - (___kont148212148213_)))) - (___kont148212148213_)) - (___kont148212148213_)) - (___kont148212148213_)))) - (___kont148212148213_))))))) + (___kont148209148210_)))) + (___kont148209148210_)) + (___kont148209148210_)) + (___kont148209148210_)))) + (___kont148209148210_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop141638141744_ - _target141635141739_ + (_loop141635141741_ + _target141632141736_ '()))))) - (___match148333148334_ - (lambda (_e141579141871_ - _hd141578141874_ - _tl141577141876_ - _e141582141879_ - _hd141581141882_ - _tl141580141884_ - ___splice148204148205_ - _target141583141887_ - _tl141585141889_) - (letrec ((_loop141586141892_ - (lambda (_hd141584141895_ - _expr141590141897_ - _id141591141899_) + (___match148330148331_ + (lambda (_e141576141868_ + _hd141575141871_ + _tl141574141873_ + _e141579141876_ + _hd141578141879_ + _tl141577141881_ + ___splice148201148202_ + _target141580141884_ + _tl141582141886_) + (letrec ((_loop141583141889_ + (lambda (_hd141581141892_ + _expr141587141894_ + _id141588141896_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141584141895_)) - (let ((_e141587141902_ + _hd141581141892_)) + (let ((_e141584141899_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd141584141895_)))) - (let ((_lp-tl141589141907_ + (gx#stx-e _hd141581141892_)))) + (let ((_lp-tl141586141904_ (let () (declare (not safe)) - (##cdr _e141587141902_))) - (_lp-hd141588141905_ + (##cdr _e141584141899_))) + (_lp-hd141585141902_ (let () (declare (not safe)) - (##car _e141587141902_)))) + (##car _e141584141899_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd141588141905_)) - (let ((_e141596141910_ + (gx#stx-pair? _lp-hd141585141902_)) + (let ((_e141593141907_ (let () (declare (not safe)) - (gx#stx-e _lp-hd141588141905_)))) - (let ((_tl141594141915_ + (gx#stx-e _lp-hd141585141902_)))) + (let ((_tl141591141912_ (let () (declare (not safe)) - (##cdr _e141596141910_))) - (_hd141595141913_ + (##cdr _e141593141907_))) + (_hd141592141910_ (let () (declare (not safe)) - (##car _e141596141910_)))) + (##car _e141593141907_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141595141913_)) - (let ((_e141599141918_ + (gx#stx-pair? _hd141592141910_)) + (let ((_e141596141915_ (let () (declare (not safe)) - (gx#stx-e _hd141595141913_)))) - (let ((_tl141597141923_ + (gx#stx-e _hd141592141910_)))) + (let ((_tl141594141920_ (let () (declare (not safe)) - (##cdr _e141599141918_))) - (_hd141598141921_ + (##cdr _e141596141915_))) + (_hd141595141918_ (let () (declare (not safe)) - (##car _e141599141918_)))) + (##car _e141596141915_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141597141923_)) + (gx#stx-null? _tl141594141920_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141594141915_)) - (let ((_e141602141926_ + _tl141591141912_)) + (let ((_e141599141923_ (let () (declare (not safe)) (gx#stx-e - _tl141594141915_)))) - (let ((_tl141600141931_ + _tl141591141912_)))) + (let ((_tl141597141928_ (let () (declare (not safe)) - (##cdr _e141602141926_))) - (_hd141601141929_ + (##cdr _e141599141923_))) + (_hd141598141926_ (let () (declare (not safe)) - (##car _e141602141926_)))) + (##car _e141599141923_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141600141931_)) - (let ((__tmp150282 + _tl141597141928_)) + (let ((__tmp150279 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _hd141601141929_ _expr141590141897_))) - (__tmp150281 + (cons _hd141598141926_ _expr141587141894_))) + (__tmp150278 (let () (declare (not safe)) - (cons _hd141598141921_ _id141591141899_)))) + (cons _hd141595141918_ _id141588141896_)))) (declare (not safe)) - (_loop141586141892_ - _lp-tl141589141907_ - __tmp150282 - __tmp150281)) - (___kont148212148213_)))) + (_loop141583141889_ + _lp-tl141586141904_ + __tmp150279 + __tmp150278)) + (___kont148209148210_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148212148213_)) - (___kont148212148213_)))) - (___kont148212148213_)))) - (___kont148212148213_)))) - (let ((_id141593141936_ (reverse _id141591141899_)) - (_expr141592141934_ (reverse _expr141590141897_))) + (___kont148209148210_)) + (___kont148209148210_)))) + (___kont148209148210_)))) + (___kont148209148210_)))) + (let ((_id141590141933_ (reverse _id141588141896_)) + (_expr141589141931_ (reverse _expr141587141894_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141580141884_)) - (let ((_e141605141939_ + (gx#stx-pair? _tl141577141881_)) + (let ((_e141602141936_ (let () (declare (not safe)) - (gx#stx-e _tl141580141884_)))) - (let ((_tl141603141944_ + (gx#stx-e _tl141577141881_)))) + (let ((_tl141600141941_ (let () (declare (not safe)) - (##cdr _e141605141939_))) - (_hd141604141942_ + (##cdr _e141602141936_))) + (_hd141601141939_ (let () (declare (not safe)) - (##car _e141605141939_)))) + (##car _e141602141936_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141603141944_)) - (___kont148202148203_ - _hd141604141942_ - _expr141592141934_ - _id141593141936_) - (___kont148212148213_)))) - (___kont148212148213_))))))) + (gx#stx-null? _tl141600141941_)) + (___kont148199148200_ + _hd141601141939_ + _expr141589141931_ + _id141590141933_) + (___kont148209148210_)))) + (___kont148209148210_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop141586141892_ - _target141583141887_ + (_loop141583141889_ + _target141580141884_ '() '()))))) - (___match148309148310_ - (lambda (_e141541141987_ - _hd141540141990_ - _tl141539141992_ - _e141544141995_ - _hd141543141998_ - _tl141542142000_ - ___splice148200148201_ - _target141545142003_ - _tl141547142005_) - (letrec ((_loop141548142008_ - (lambda (_hd141546142011_ - _xid141552142013_ - _id141553142015_) + (___match148306148307_ + (lambda (_e141538141984_ + _hd141537141987_ + _tl141536141989_ + _e141541141992_ + _hd141540141995_ + _tl141539141997_ + ___splice148197148198_ + _target141542142000_ + _tl141544142002_) + (letrec ((_loop141545142005_ + (lambda (_hd141543142008_ + _xid141549142010_ + _id141550142012_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141546142011_)) - (let ((_e141549142018_ + _hd141543142008_)) + (let ((_e141546142015_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd141546142011_)))) - (let ((_lp-tl141551142023_ + (gx#stx-e _hd141543142008_)))) + (let ((_lp-tl141548142020_ (let () (declare (not safe)) - (##cdr _e141549142018_))) - (_lp-hd141550142021_ + (##cdr _e141546142015_))) + (_lp-hd141547142018_ (let () (declare (not safe)) - (##car _e141549142018_)))) + (##car _e141546142015_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd141550142021_)) - (let ((_e141558142026_ + (gx#stx-pair? _lp-hd141547142018_)) + (let ((_e141555142023_ (let () (declare (not safe)) - (gx#stx-e _lp-hd141550142021_)))) - (let ((_tl141556142031_ + (gx#stx-e _lp-hd141547142018_)))) + (let ((_tl141553142028_ (let () (declare (not safe)) - (##cdr _e141558142026_))) - (_hd141557142029_ + (##cdr _e141555142023_))) + (_hd141554142026_ (let () (declare (not safe)) - (##car _e141558142026_)))) + (##car _e141555142023_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141557142029_)) - (let ((_e141561142034_ + (gx#stx-pair? _hd141554142026_)) + (let ((_e141558142031_ (let () (declare (not safe)) - (gx#stx-e _hd141557142029_)))) - (let ((_tl141559142039_ + (gx#stx-e _hd141554142026_)))) + (let ((_tl141556142036_ (let () (declare (not safe)) - (##cdr _e141561142034_))) - (_hd141560142037_ + (##cdr _e141558142031_))) + (_hd141557142034_ (let () (declare (not safe)) - (##car _e141561142034_)))) + (##car _e141558142031_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141559142039_)) + (gx#stx-null? _tl141556142036_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141556142031_)) - (let ((_e141564142042_ + _tl141553142028_)) + (let ((_e141561142039_ (let () (declare (not safe)) (gx#stx-e - _tl141556142031_)))) - (let ((_tl141562142047_ + _tl141553142028_)))) + (let ((_tl141559142044_ (let () (declare (not safe)) - (##cdr _e141564142042_))) - (_hd141563142045_ + (##cdr _e141561142039_))) + (_hd141560142042_ (let () (declare (not safe)) - (##car _e141564142042_)))) + (##car _e141561142039_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141563142045_)) - (let ((_e141567142050_ + _hd141560142042_)) + (let ((_e141564142047_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd141563142045_)))) - (let ((_tl141565142055_ - (let () (declare (not safe)) (##cdr _e141567142050_))) - (_hd141566142053_ + (gx#stx-e _hd141560142042_)))) + (let ((_tl141562142052_ + (let () (declare (not safe)) (##cdr _e141564142047_))) + (_hd141563142050_ (let () (declare (not safe)) - (##car _e141567142050_)))) + (##car _e141564142047_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141566142053_)) + (gx#identifier? _hd141563142050_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd141566142053_)) + (gx#stx-eq? '%#ref _hd141563142050_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141565142055_)) - (let ((_e141570142058_ + (gx#stx-pair? _tl141562142052_)) + (let ((_e141567142055_ (let () (declare (not safe)) - (gx#stx-e _tl141565142055_)))) - (let ((_tl141568142063_ + (gx#stx-e _tl141562142052_)))) + (let ((_tl141565142060_ (let () (declare (not safe)) - (##cdr _e141570142058_))) - (_hd141569142061_ + (##cdr _e141567142055_))) + (_hd141566142058_ (let () (declare (not safe)) - (##car _e141570142058_)))) + (##car _e141567142055_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141568142063_)) + (gx#stx-null? _tl141565142060_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl141562142047_)) - (let ((__tmp150284 + (gx#stx-null? _tl141559142044_)) + (let ((__tmp150281 (let () (declare (not safe)) - (cons _hd141569142061_ - _xid141552142013_))) - (__tmp150283 + (cons _hd141566142058_ + _xid141549142010_))) + (__tmp150280 (let () (declare (not safe)) - (cons _hd141560142037_ - _id141553142015_)))) + (cons _hd141557142034_ + _id141550142012_)))) (declare (not safe)) - (_loop141548142008_ - _lp-tl141551142023_ - __tmp150284 - __tmp150283)) - (___match148333148334_ - _e141541141987_ - _hd141540141990_ - _tl141539141992_ - _e141544141995_ - _hd141543141998_ - _tl141542142000_ - ___splice148200148201_ - _target141545142003_ - _tl141547142005_)) - (___match148333148334_ - _e141541141987_ - _hd141540141990_ - _tl141539141992_ - _e141544141995_ - _hd141543141998_ - _tl141542142000_ - ___splice148200148201_ - _target141545142003_ - _tl141547142005_)))) - (___match148333148334_ - _e141541141987_ - _hd141540141990_ - _tl141539141992_ - _e141544141995_ - _hd141543141998_ - _tl141542142000_ - ___splice148200148201_ - _target141545142003_ - _tl141547142005_)) - (___match148333148334_ - _e141541141987_ - _hd141540141990_ - _tl141539141992_ - _e141544141995_ - _hd141543141998_ - _tl141542142000_ - ___splice148200148201_ - _target141545142003_ - _tl141547142005_)) - (___match148333148334_ - _e141541141987_ - _hd141540141990_ - _tl141539141992_ - _e141544141995_ - _hd141543141998_ - _tl141542142000_ - ___splice148200148201_ - _target141545142003_ - _tl141547142005_)))) - (___match148333148334_ - _e141541141987_ - _hd141540141990_ - _tl141539141992_ - _e141544141995_ - _hd141543141998_ - _tl141542142000_ - ___splice148200148201_ - _target141545142003_ - _tl141547142005_)))) + (_loop141545142005_ + _lp-tl141548142020_ + __tmp150281 + __tmp150280)) + (___match148330148331_ + _e141538141984_ + _hd141537141987_ + _tl141536141989_ + _e141541141992_ + _hd141540141995_ + _tl141539141997_ + ___splice148197148198_ + _target141542142000_ + _tl141544142002_)) + (___match148330148331_ + _e141538141984_ + _hd141537141987_ + _tl141536141989_ + _e141541141992_ + _hd141540141995_ + _tl141539141997_ + ___splice148197148198_ + _target141542142000_ + _tl141544142002_)))) + (___match148330148331_ + _e141538141984_ + _hd141537141987_ + _tl141536141989_ + _e141541141992_ + _hd141540141995_ + _tl141539141997_ + ___splice148197148198_ + _target141542142000_ + _tl141544142002_)) + (___match148330148331_ + _e141538141984_ + _hd141537141987_ + _tl141536141989_ + _e141541141992_ + _hd141540141995_ + _tl141539141997_ + ___splice148197148198_ + _target141542142000_ + _tl141544142002_)) + (___match148330148331_ + _e141538141984_ + _hd141537141987_ + _tl141536141989_ + _e141541141992_ + _hd141540141995_ + _tl141539141997_ + ___splice148197148198_ + _target141542142000_ + _tl141544142002_)))) + (___match148330148331_ + _e141538141984_ + _hd141537141987_ + _tl141536141989_ + _e141541141992_ + _hd141540141995_ + _tl141539141997_ + ___splice148197148198_ + _target141542142000_ + _tl141544142002_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match148333148334_ - _e141541141987_ - _hd141540141990_ - _tl141539141992_ - _e141544141995_ - _hd141543141998_ - _tl141542142000_ - ___splice148200148201_ - _target141545142003_ - _tl141547142005_)) - (___match148333148334_ - _e141541141987_ - _hd141540141990_ - _tl141539141992_ - _e141544141995_ - _hd141543141998_ - _tl141542142000_ - ___splice148200148201_ - _target141545142003_ - _tl141547142005_)))) - (___match148333148334_ - _e141541141987_ - _hd141540141990_ - _tl141539141992_ - _e141544141995_ - _hd141543141998_ - _tl141542142000_ - ___splice148200148201_ - _target141545142003_ - _tl141547142005_)))) - (___match148333148334_ - _e141541141987_ - _hd141540141990_ - _tl141539141992_ - _e141544141995_ - _hd141543141998_ - _tl141542142000_ - ___splice148200148201_ - _target141545142003_ - _tl141547142005_)))) - (let ((_id141555142068_ (reverse _id141553142015_)) - (_xid141554142066_ (reverse _xid141552142013_))) + (___match148330148331_ + _e141538141984_ + _hd141537141987_ + _tl141536141989_ + _e141541141992_ + _hd141540141995_ + _tl141539141997_ + ___splice148197148198_ + _target141542142000_ + _tl141544142002_)) + (___match148330148331_ + _e141538141984_ + _hd141537141987_ + _tl141536141989_ + _e141541141992_ + _hd141540141995_ + _tl141539141997_ + ___splice148197148198_ + _target141542142000_ + _tl141544142002_)))) + (___match148330148331_ + _e141538141984_ + _hd141537141987_ + _tl141536141989_ + _e141541141992_ + _hd141540141995_ + _tl141539141997_ + ___splice148197148198_ + _target141542142000_ + _tl141544142002_)))) + (___match148330148331_ + _e141538141984_ + _hd141537141987_ + _tl141536141989_ + _e141541141992_ + _hd141540141995_ + _tl141539141997_ + ___splice148197148198_ + _target141542142000_ + _tl141544142002_)))) + (let ((_id141552142065_ (reverse _id141550142012_)) + (_xid141551142063_ (reverse _xid141549142010_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141542142000_)) - (let ((_e141573142071_ + (gx#stx-pair? _tl141539141997_)) + (let ((_e141570142068_ (let () (declare (not safe)) - (gx#stx-e _tl141542142000_)))) - (let ((_tl141571142076_ + (gx#stx-e _tl141539141997_)))) + (let ((_tl141568142073_ (let () (declare (not safe)) - (##cdr _e141573142071_))) - (_hd141572142074_ + (##cdr _e141570142068_))) + (_hd141569142071_ (let () (declare (not safe)) - (##car _e141573142071_)))) + (##car _e141570142068_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141571142076_)) - (___kont148198148199_ - _hd141572142074_ - _xid141554142066_ - _id141555142068_) - (___match148333148334_ - _e141541141987_ - _hd141540141990_ - _tl141539141992_ - _e141544141995_ - _hd141543141998_ - _tl141542142000_ - ___splice148200148201_ - _target141545142003_ - _tl141547142005_)))) - (___match148333148334_ - _e141541141987_ - _hd141540141990_ - _tl141539141992_ - _e141544141995_ - _hd141543141998_ - _tl141542142000_ - ___splice148200148201_ - _target141545142003_ - _tl141547142005_))))))) + (gx#stx-null? _tl141568142073_)) + (___kont148195148196_ + _hd141569142071_ + _xid141551142063_ + _id141552142065_) + (___match148330148331_ + _e141538141984_ + _hd141537141987_ + _tl141536141989_ + _e141541141992_ + _hd141540141995_ + _tl141539141997_ + ___splice148197148198_ + _target141542142000_ + _tl141544142002_)))) + (___match148330148331_ + _e141538141984_ + _hd141537141987_ + _tl141536141989_ + _e141541141992_ + _hd141540141995_ + _tl141539141997_ + ___splice148197148198_ + _target141542142000_ + _tl141544142002_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop141548142008_ - _target141545142003_ + (_loop141545142005_ + _target141542142000_ '() '()))))) - (___match148255148256_ - (lambda (_e141496142179_ - _hd141495142182_ - _tl141494142184_ - _e141499142187_ - _hd141498142190_ - _tl141497142192_ - _e141502142195_ - _hd141501142198_ - _tl141500142200_ - _e141505142203_ - _hd141504142206_ - _tl141503142208_ - ___splice148194148195_ - _target141506142211_ - _tl141508142213_) - (letrec ((_loop141509142216_ - (lambda (_hd141507142219_ - _id141513142221_) + (___match148252148253_ + (lambda (_e141493142176_ + _hd141492142179_ + _tl141491142181_ + _e141496142184_ + _hd141495142187_ + _tl141494142189_ + _e141499142192_ + _hd141498142195_ + _tl141497142197_ + _e141502142200_ + _hd141501142203_ + _tl141500142205_ + ___splice148191148192_ + _target141503142208_ + _tl141505142210_) + (letrec ((_loop141506142213_ + (lambda (_hd141504142216_ + _id141510142218_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141507142219_)) - (let ((_e141510142224_ + _hd141504142216_)) + (let ((_e141507142221_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd141507142219_)))) - (let ((_lp-tl141512142229_ + (gx#stx-e _hd141504142216_)))) + (let ((_lp-tl141509142226_ (let () (declare (not safe)) - (##cdr _e141510142224_))) - (_lp-hd141511142227_ + (##cdr _e141507142221_))) + (_lp-hd141508142224_ (let () (declare (not safe)) - (##car _e141510142224_)))) + (##car _e141507142221_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd141511142227_)) - (let ((_e141517142232_ + (gx#stx-pair? _lp-hd141508142224_)) + (let ((_e141514142229_ (let () (declare (not safe)) - (gx#stx-e _lp-hd141511142227_)))) - (let ((_tl141515142237_ + (gx#stx-e _lp-hd141508142224_)))) + (let ((_tl141512142234_ (let () (declare (not safe)) - (##cdr _e141517142232_))) - (_hd141516142235_ + (##cdr _e141514142229_))) + (_hd141513142232_ (let () (declare (not safe)) - (##car _e141517142232_)))) + (##car _e141514142229_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141516142235_)) + (gx#identifier? _hd141513142232_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd141516142235_)) + (gx#stx-eq? '%#ref _hd141513142232_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141515142237_)) - (let ((_e141520142240_ + (gx#stx-pair? _tl141512142234_)) + (let ((_e141517142237_ (let () (declare (not safe)) (gx#stx-e - _tl141515142237_)))) - (let ((_tl141518142245_ + _tl141512142234_)))) + (let ((_tl141515142242_ (let () (declare (not safe)) - (##cdr _e141520142240_))) - (_hd141519142243_ + (##cdr _e141517142237_))) + (_hd141516142240_ (let () (declare (not safe)) - (##car _e141520142240_)))) + (##car _e141517142237_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141518142245_)) - (let ((__tmp150285 + _tl141515142242_)) + (let ((__tmp150282 (let () (declare (not safe)) - (cons _hd141519142243_ + (cons _hd141516142240_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id141513142221_)))) + _id141510142218_)))) (declare (not safe)) - (_loop141509142216_ _lp-tl141512142229_ __tmp150285)) + (_loop141506142213_ _lp-tl141509142226_ __tmp150282)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148212148213_)))) - (___kont148212148213_)) - (___kont148212148213_)) - (___kont148212148213_)))) - (___kont148212148213_)))) - (let ((_id141514142248_ (reverse _id141513142221_))) - (___kont148192148193_ - _id141514142248_ - _hd141504142206_)))))) + (___kont148209148210_)))) + (___kont148209148210_)) + (___kont148209148210_)) + (___kont148209148210_)))) + (___kont148209148210_)))) + (let ((_id141511142245_ (reverse _id141510142218_))) + (___kont148189148190_ + _id141511142245_ + _hd141501142203_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop141509142216_ - _target141506142211_ + (_loop141506142213_ + _target141503142208_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx148190148191_)) - (let ((_e141496142179_ + (gx#stx-pair? ___stx148187148188_)) + (let ((_e141493142176_ (let () (declare (not safe)) (gx#stx-e - ___stx148190148191_)))) - (let ((_tl141494142184_ + ___stx148187148188_)))) + (let ((_tl141491142181_ (let () (declare (not safe)) - (##cdr _e141496142179_))) - (_hd141495142182_ + (##cdr _e141493142176_))) + (_hd141492142179_ (let () (declare (not safe)) - (##car _e141496142179_)))) + (##car _e141493142176_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd141495142182_)) + _hd141492142179_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd141495142182_)) + _hd141492142179_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141494142184_)) - (let ((_e141499142187_ + _tl141491142181_)) + (let ((_e141496142184_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl141494142184_)))) - (let ((_tl141497142192_ - (let () (declare (not safe)) (##cdr _e141499142187_))) - (_hd141498142190_ + (gx#stx-e _tl141491142181_)))) + (let ((_tl141494142189_ + (let () (declare (not safe)) (##cdr _e141496142184_))) + (_hd141495142187_ (let () (declare (not safe)) - (##car _e141499142187_)))) + (##car _e141496142184_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141498142190_)) - (let ((_e141502142195_ + (gx#stx-pair? _hd141495142187_)) + (let ((_e141499142192_ (let () (declare (not safe)) - (gx#stx-e _hd141498142190_)))) - (let ((_tl141500142200_ + (gx#stx-e _hd141495142187_)))) + (let ((_tl141497142197_ (let () (declare (not safe)) - (##cdr _e141502142195_))) - (_hd141501142198_ + (##cdr _e141499142192_))) + (_hd141498142195_ (let () (declare (not safe)) - (##car _e141502142195_)))) + (##car _e141499142192_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141501142198_)) + (gx#identifier? _hd141498142195_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd141501142198_)) + (gx#stx-eq? '%#ref _hd141498142195_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141500142200_)) - (let ((_e141505142203_ + (gx#stx-pair? _tl141497142197_)) + (let ((_e141502142200_ (let () (declare (not safe)) - (gx#stx-e _tl141500142200_)))) - (let ((_tl141503142208_ + (gx#stx-e _tl141497142197_)))) + (let ((_tl141500142205_ (let () (declare (not safe)) - (##cdr _e141505142203_))) - (_hd141504142206_ + (##cdr _e141502142200_))) + (_hd141501142203_ (let () (declare (not safe)) - (##car _e141505142203_)))) + (##car _e141502142200_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141503142208_)) + _tl141500142205_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl141497142192_)) - (let ((___splice148194148195_ + _tl141494142189_)) + (let ((___splice148191148192_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl141497142192_ + _tl141494142189_ '0)))) - (let ((_tl141508142213_ + (let ((_tl141505142210_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice148194148195_ '1))) - (_target141506142211_ + (##vector-ref ___splice148191148192_ '1))) + (_target141503142208_ (let () (declare (not safe)) - (##vector-ref ___splice148194148195_ '0)))) + (##vector-ref ___splice148191148192_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141508142213_)) - (___match148255148256_ - _e141496142179_ - _hd141495142182_ - _tl141494142184_ - _e141499142187_ - _hd141498142190_ - _tl141497142192_ - _e141502142195_ - _hd141501142198_ - _tl141500142200_ - _e141505142203_ - _hd141504142206_ - _tl141503142208_ - ___splice148194148195_ - _target141506142211_ - _tl141508142213_) - (___kont148212148213_)))) + (gx#stx-null? _tl141505142210_)) + (___match148252148253_ + _e141493142176_ + _hd141492142179_ + _tl141491142181_ + _e141496142184_ + _hd141495142187_ + _tl141494142189_ + _e141499142192_ + _hd141498142195_ + _tl141497142197_ + _e141502142200_ + _hd141501142203_ + _tl141500142205_ + ___splice148191148192_ + _target141503142208_ + _tl141505142210_) + (___kont148209148210_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148212148213_)) - (___kont148212148213_)))) - (___kont148212148213_)) - (___kont148212148213_)) - (___kont148212148213_)))) - (___kont148212148213_)))) - (___kont148212148213_)) + (___kont148209148210_)) + (___kont148209148210_)))) + (___kont148209148210_)) + (___kont148209148210_)) + (___kont148209148210_)))) + (___kont148209148210_)))) + (___kont148209148210_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd141495142182_)) + _hd141492142179_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141494142184_)) - (let ((_e141529142125_ + _tl141491142181_)) + (let ((_e141526142122_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl141494142184_)))) - (let ((_tl141527142130_ + (gx#stx-e _tl141491142181_)))) + (let ((_tl141524142127_ (let () (declare (not safe)) - (##cdr _e141529142125_))) - (_hd141528142128_ + (##cdr _e141526142122_))) + (_hd141525142125_ (let () (declare (not safe)) - (##car _e141529142125_)))) + (##car _e141526142122_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141527142130_)) - (let ((_e141532142133_ + (gx#stx-pair? _tl141524142127_)) + (let ((_e141529142130_ (let () (declare (not safe)) - (gx#stx-e _tl141527142130_)))) - (let ((_tl141530142138_ + (gx#stx-e _tl141524142127_)))) + (let ((_tl141527142135_ (let () (declare (not safe)) - (##cdr _e141532142133_))) - (_hd141531142136_ + (##cdr _e141529142130_))) + (_hd141528142133_ (let () (declare (not safe)) - (##car _e141532142133_)))) + (##car _e141529142130_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141530142138_)) - (let ((_e141535142141_ + (gx#stx-pair? _tl141527142135_)) + (let ((_e141532142138_ (let () (declare (not safe)) - (gx#stx-e _tl141530142138_)))) - (let ((_tl141533142146_ + (gx#stx-e _tl141527142135_)))) + (let ((_tl141530142143_ (let () (declare (not safe)) - (##cdr _e141535142141_))) - (_hd141534142144_ + (##cdr _e141532142138_))) + (_hd141531142141_ (let () (declare (not safe)) - (##car _e141535142141_)))) + (##car _e141532142138_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141533142146_)) - (___kont148196148197_ - _hd141534142144_ - _hd141531142136_ - _hd141528142128_) - (___kont148212148213_)))) - (___kont148212148213_)))) - (___kont148212148213_)))) - (___kont148212148213_)) + (gx#stx-null? _tl141530142143_)) + (___kont148193148194_ + _hd141531142141_ + _hd141528142133_ + _hd141525142125_) + (___kont148209148210_)))) + (___kont148209148210_)))) + (___kont148209148210_)))) + (___kont148209148210_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd141495142182_)) + (gx#stx-eq? '%#let-values _hd141492142179_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141494142184_)) - (let ((_e141544141995_ + (gx#stx-pair? _tl141491142181_)) + (let ((_e141541141992_ (let () (declare (not safe)) - (gx#stx-e _tl141494142184_)))) - (let ((_tl141542142000_ + (gx#stx-e _tl141491142181_)))) + (let ((_tl141539141997_ (let () (declare (not safe)) - (##cdr _e141544141995_))) - (_hd141543141998_ + (##cdr _e141541141992_))) + (_hd141540141995_ (let () (declare (not safe)) - (##car _e141544141995_)))) + (##car _e141541141992_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd141543141998_)) - (let ((___splice148200148201_ + (gx#stx-pair/null? _hd141540141995_)) + (let ((___splice148197148198_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd141543141998_ + _hd141540141995_ '0)))) - (let ((_tl141547142005_ + (let ((_tl141544142002_ (let () (declare (not safe)) (##vector-ref - ___splice148200148201_ + ___splice148197148198_ '1))) - (_target141545142003_ + (_target141542142000_ (let () (declare (not safe)) (##vector-ref - ___splice148200148201_ + ___splice148197148198_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141547142005_)) - (___match148309148310_ - _e141496142179_ - _hd141495142182_ - _tl141494142184_ - _e141544141995_ - _hd141543141998_ - _tl141542142000_ - ___splice148200148201_ - _target141545142003_ - _tl141547142005_) - (___kont148212148213_)))) - (___kont148212148213_)))) - (___kont148212148213_)) + (gx#stx-null? _tl141544142002_)) + (___match148306148307_ + _e141493142176_ + _hd141492142179_ + _tl141491142181_ + _e141541141992_ + _hd141540141995_ + _tl141539141997_ + ___splice148197148198_ + _target141542142000_ + _tl141544142002_) + (___kont148209148210_)))) + (___kont148209148210_)))) + (___kont148209148210_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#letrec-values _hd141495142182_)) + (gx#stx-eq? '%#letrec-values _hd141492142179_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141494142184_)) - (let ((_e141616141683_ + (gx#stx-pair? _tl141491142181_)) + (let ((_e141613141680_ (let () (declare (not safe)) - (gx#stx-e _tl141494142184_)))) - (let ((_tl141614141688_ + (gx#stx-e _tl141491142181_)))) + (let ((_tl141611141685_ (let () (declare (not safe)) - (##cdr _e141616141683_))) - (_hd141615141686_ + (##cdr _e141613141680_))) + (_hd141612141683_ (let () (declare (not safe)) - (##car _e141616141683_)))) + (##car _e141613141680_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141615141686_)) - (let ((_e141619141691_ + (gx#stx-pair? _hd141612141683_)) + (let ((_e141616141688_ (let () (declare (not safe)) - (gx#stx-e _hd141615141686_)))) - (let ((_tl141617141696_ + (gx#stx-e _hd141612141683_)))) + (let ((_tl141614141693_ (let () (declare (not safe)) - (##cdr _e141619141691_))) - (_hd141618141694_ + (##cdr _e141616141688_))) + (_hd141615141691_ (let () (declare (not safe)) - (##car _e141619141691_)))) + (##car _e141616141688_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141618141694_)) - (let ((_e141622141699_ + (gx#stx-pair? _hd141615141691_)) + (let ((_e141619141696_ (let () (declare (not safe)) (gx#stx-e - _hd141618141694_)))) - (let ((_tl141620141704_ + _hd141615141691_)))) + (let ((_tl141617141701_ (let () (declare (not safe)) - (##cdr _e141622141699_))) - (_hd141621141702_ + (##cdr _e141619141696_))) + (_hd141618141699_ (let () (declare (not safe)) - (##car _e141622141699_)))) + (##car _e141619141696_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141621141702_)) - (let ((_e141625141707_ + _hd141618141699_)) + (let ((_e141622141704_ (let () (declare (not safe)) (gx#stx-e - _hd141621141702_)))) - (let ((_tl141623141712_ + _hd141618141699_)))) + (let ((_tl141620141709_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e141625141707_))) - (_hd141624141710_ - (let () (declare (not safe)) (##car _e141625141707_)))) + (##cdr _e141622141704_))) + (_hd141621141707_ + (let () (declare (not safe)) (##car _e141622141704_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141623141712_)) + (gx#stx-null? _tl141620141709_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141620141704_)) - (let ((_e141628141715_ + (gx#stx-pair? _tl141617141701_)) + (let ((_e141625141712_ (let () (declare (not safe)) - (gx#stx-e _tl141620141704_)))) - (let ((_tl141626141720_ + (gx#stx-e _tl141617141701_)))) + (let ((_tl141623141717_ (let () (declare (not safe)) - (##cdr _e141628141715_))) - (_hd141627141718_ + (##cdr _e141625141712_))) + (_hd141624141715_ (let () (declare (not safe)) - (##car _e141628141715_)))) + (##car _e141625141712_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141627141718_)) - (let ((_e141631141723_ + (gx#stx-pair? _hd141624141715_)) + (let ((_e141628141720_ (let () (declare (not safe)) - (gx#stx-e _hd141627141718_)))) - (let ((_tl141629141728_ + (gx#stx-e _hd141624141715_)))) + (let ((_tl141626141725_ (let () (declare (not safe)) - (##cdr _e141631141723_))) - (_hd141630141726_ + (##cdr _e141628141720_))) + (_hd141627141723_ (let () (declare (not safe)) - (##car _e141631141723_)))) + (##car _e141628141720_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141630141726_)) + (gx#identifier? _hd141627141723_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd141630141726_)) + _hd141627141723_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141629141728_)) - (let ((_e141634141731_ + _tl141626141725_)) + (let ((_e141631141728_ (let () (declare (not safe)) (gx#stx-e - _tl141629141728_)))) - (let ((_tl141632141736_ + _tl141626141725_)))) + (let ((_tl141629141733_ (let () (declare (not safe)) - (##cdr _e141634141731_))) - (_hd141633141734_ + (##cdr _e141631141728_))) + (_hd141630141731_ (let () (declare (not safe)) - (##car _e141634141731_)))) + (##car _e141631141728_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd141633141734_)) - (let ((___splice148208148209_ + _hd141630141731_)) + (let ((___splice148205148206_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _hd141633141734_ '0)))) - (let ((_tl141637141741_ + (gx#syntax-split-splice _hd141630141731_ '0)))) + (let ((_tl141634141738_ (let () (declare (not safe)) - (##vector-ref ___splice148208148209_ '1))) - (_target141635141739_ + (##vector-ref ___splice148205148206_ '1))) + (_target141632141736_ (let () (declare (not safe)) - (##vector-ref ___splice148208148209_ '0)))) + (##vector-ref ___splice148205148206_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141637141741_)) - (___match148399148400_ - _e141496142179_ - _hd141495142182_ - _tl141494142184_ - _e141616141683_ - _hd141615141686_ - _tl141614141688_ - _e141619141691_ - _hd141618141694_ - _tl141617141696_ - _e141622141699_ - _hd141621141702_ - _tl141620141704_ - _e141625141707_ - _hd141624141710_ - _tl141623141712_ - _e141628141715_ - _hd141627141718_ - _tl141626141720_ - _e141631141723_ - _hd141630141726_ - _tl141629141728_ - _e141634141731_ - _hd141633141734_ - _tl141632141736_ - ___splice148208148209_ - _target141635141739_ - _tl141637141741_) - (___kont148212148213_)))) - (___kont148212148213_)))) + (gx#stx-null? _tl141634141738_)) + (___match148396148397_ + _e141493142176_ + _hd141492142179_ + _tl141491142181_ + _e141613141680_ + _hd141612141683_ + _tl141611141685_ + _e141616141688_ + _hd141615141691_ + _tl141614141693_ + _e141619141696_ + _hd141618141699_ + _tl141617141701_ + _e141622141704_ + _hd141621141707_ + _tl141620141709_ + _e141625141712_ + _hd141624141715_ + _tl141623141717_ + _e141628141720_ + _hd141627141723_ + _tl141626141725_ + _e141631141728_ + _hd141630141731_ + _tl141629141733_ + ___splice148205148206_ + _target141632141736_ + _tl141634141738_) + (___kont148209148210_)))) + (___kont148209148210_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148212148213_)) - (___kont148212148213_)) - (___kont148212148213_)))) - (___kont148212148213_)))) - (___kont148212148213_)) - (___kont148212148213_)))) + (___kont148209148210_)) + (___kont148209148210_)) + (___kont148209148210_)))) + (___kont148209148210_)))) + (___kont148209148210_)) + (___kont148209148210_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148212148213_)))) - (___kont148212148213_)))) - (___kont148212148213_)))) - (___kont148212148213_)) - (___kont148212148213_))))) + (___kont148209148210_)))) + (___kont148209148210_)))) + (___kont148209148210_)))) + (___kont148209148210_)) + (___kont148209148210_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148212148213_)))) - (___kont148212148213_)))))))) + (___kont148209148210_)))) + (___kont148209148210_)))))))) (declare (not safe)) - (_do-assert139410_ __tmp150286 __tmp150244)))) - (_optimize-f__0__146877146878_ - (lambda (_expr142388_) - (let ((_test142390_ '#f)) + (_do-assert139407_ __tmp150283 __tmp150241)))) + (_optimize-f__0__146874146875_ + (lambda (_expr142385_) + (let ((_test142387_ '#f)) (declare (not safe)) - (_optimize-f__146875146876_ - _expr142388_ - _test142390_)))) - (_optimize-f139423_ - (lambda _g150289_ - (let ((_g150288_ + (_optimize-f__146872146873_ + _expr142385_ + _test142387_)))) + (_optimize-f139420_ + (lambda _g150286_ + (let ((_g150285_ (let () (declare (not safe)) - (##length _g150289_)))) - (cond ((let () (declare (not safe)) (##fx= _g150288_ 1)) - (apply (lambda (_expr142388_) + (##length _g150286_)))) + (cond ((let () (declare (not safe)) (##fx= _g150285_ 1)) + (apply (lambda (_expr142385_) (let () (declare (not safe)) - (_optimize-f__0__146877146878_ - _expr142388_))) - _g150289_)) - ((let () (declare (not safe)) (##fx= _g150288_ 2)) - (apply (lambda (_expr142392_ _test142393_) + (_optimize-f__0__146874146875_ + _expr142385_))) + _g150286_)) + ((let () (declare (not safe)) (##fx= _g150285_ 2)) + (apply (lambda (_expr142389_ _test142390_) (let () (declare (not safe)) - (_optimize-f__146875146876_ - _expr142392_ - _test142393_))) - _g150289_)) + (_optimize-f__146872146873_ + _expr142389_ + _test142390_))) + _g150286_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g150289_)))))) - (_assert-e139424_ - (lambda (_expr140422_) - (let* ((_sexpr140424_ + _g150286_)))))) + (_assert-e139421_ + (lambda (_expr140419_) + (let* ((_sexpr140421_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-repr _expr140422_))) - (_$e140426_ - (assoc _sexpr140424_ _env-assert139406_))) - (if _$e140426_ - (cdr _$e140426_) - (let _assert140429_ ((_expr140431_ _expr140422_)) - (let* ((___stx148496148497_ _expr140431_) - (_g140439140618_ + (gxc#apply-generate-runtime-repr _expr140419_))) + (_$e140423_ + (assoc _sexpr140421_ _env-assert139403_))) + (if _$e140423_ + (cdr _$e140423_) + (let _assert140426_ ((_expr140428_ _expr140419_)) + (let* ((___stx148493148494_ _expr140428_) + (_g140436140615_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148496148497_))))) - (let ((___kont148498148499_ - (lambda (_L141449_ _L141450_) - (let ((_$e141472_ + ___stx148493148494_))))) + (let ((___kont148495148496_ + (lambda (_L141446_ _L141447_) + (let ((_$e141469_ (let () (declare (not safe)) - (_predicate-type139411_ - _L141450_)))) - (if _$e141472_ - ((lambda (_t141475_) + (_predicate-type139408_ + _L141447_)))) + (if _$e141469_ + ((lambda (_t141472_) (let () (declare (not safe)) - (_assert-type139425_ - _L141449_ - _t141475_))) - _$e141472_) + (_assert-type139422_ + _L141446_ + _t141472_))) + _$e141469_) '#!void)))) - (___kont148500148501_ - (lambda (_L141142_ _L141143_ _L141144_) - (let ((_$e141169_ + (___kont148497148498_ + (lambda (_L141139_ _L141140_ _L141141_) + (let ((_$e141166_ (let () (declare (not safe)) (gxc#identifier-symbol - _L141144_)))) + _L141141_)))) (if (or (let () (declare (not safe)) - (eq? '##fx= _$e141169_)) + (eq? '##fx= _$e141166_)) (let () (declare (not safe)) - (eq? 'fx= _$e141169_))) - (let* ((___stx148402148403_ - _L141143_) - (_g141176141205_ + (eq? 'fx= _$e141166_))) + (let* ((___stx148399148400_ + _L141140_) + (_g141173141202_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148402148403_))))) - (let ((___kont148404148405_ - (lambda (_L141273_ - _L141274_) - (let ((_$e141299_ + ___stx148399148400_))))) + (let ((___kont148401148402_ + (lambda (_L141270_ + _L141271_) + (let ((_$e141296_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_countf-symbol139413_ _L141274_)))) - (if _$e141299_ - ((lambda (_sym141302_) - (let ((__tmp150292 + (_countf-symbol139410_ _L141271_)))) + (if _$e141296_ + ((lambda (_sym141299_) + (let ((__tmp150289 (let () (declare (not safe)) - (gx#stx-e _L141142_)))) + (gx#stx-e _L141139_)))) (declare (not safe)) - (_assert-count139426_ - _L141273_ - _sym141302_ - __tmp150292))) - _$e141299_) + (_assert-count139423_ + _L141270_ + _sym141299_ + __tmp150289))) + _$e141296_) '#!void)))) - (___kont148406148407_ (lambda () '#!void))) + (___kont148403148404_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx148402148403_)) - (let ((_e141182141217_ + ___stx148399148400_)) + (let ((_e141179141214_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx148402148403_)))) - (let ((_tl141180141222_ - (let () (declare (not safe)) (##cdr _e141182141217_))) - (_hd141181141220_ - (let () (declare (not safe)) (##car _e141182141217_)))) + (gx#stx-e ___stx148399148400_)))) + (let ((_tl141177141219_ + (let () (declare (not safe)) (##cdr _e141179141214_))) + (_hd141178141217_ + (let () (declare (not safe)) (##car _e141179141214_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141181141220_)) + (gx#identifier? _hd141178141217_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd141181141220_)) + (gx#stx-eq? '%#call _hd141178141217_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141180141222_)) - (let ((_e141185141225_ + (gx#stx-pair? _tl141177141219_)) + (let ((_e141182141222_ (let () (declare (not safe)) - (gx#stx-e _tl141180141222_)))) - (let ((_tl141183141230_ + (gx#stx-e _tl141177141219_)))) + (let ((_tl141180141227_ (let () (declare (not safe)) - (##cdr _e141185141225_))) - (_hd141184141228_ + (##cdr _e141182141222_))) + (_hd141181141225_ (let () (declare (not safe)) - (##car _e141185141225_)))) + (##car _e141182141222_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141184141228_)) - (let ((_e141188141233_ + (gx#stx-pair? _hd141181141225_)) + (let ((_e141185141230_ (let () (declare (not safe)) - (gx#stx-e _hd141184141228_)))) - (let ((_tl141186141238_ + (gx#stx-e _hd141181141225_)))) + (let ((_tl141183141235_ (let () (declare (not safe)) - (##cdr _e141188141233_))) - (_hd141187141236_ + (##cdr _e141185141230_))) + (_hd141184141233_ (let () (declare (not safe)) - (##car _e141188141233_)))) + (##car _e141185141230_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd141187141236_)) + _hd141184141233_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd141187141236_)) + _hd141184141233_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141186141238_)) - (let ((_e141191141241_ + _tl141183141235_)) + (let ((_e141188141238_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl141186141238_)))) - (let ((_tl141189141246_ - (let () (declare (not safe)) (##cdr _e141191141241_))) - (_hd141190141244_ - (let () (declare (not safe)) (##car _e141191141241_)))) + (gx#stx-e _tl141183141235_)))) + (let ((_tl141186141243_ + (let () (declare (not safe)) (##cdr _e141188141238_))) + (_hd141187141241_ + (let () (declare (not safe)) (##car _e141188141238_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141189141246_)) + (gx#stx-null? _tl141186141243_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141183141230_)) - (let ((_e141194141249_ + (gx#stx-pair? _tl141180141227_)) + (let ((_e141191141246_ (let () (declare (not safe)) - (gx#stx-e _tl141183141230_)))) - (let ((_tl141192141254_ + (gx#stx-e _tl141180141227_)))) + (let ((_tl141189141251_ (let () (declare (not safe)) - (##cdr _e141194141249_))) - (_hd141193141252_ + (##cdr _e141191141246_))) + (_hd141190141249_ (let () (declare (not safe)) - (##car _e141194141249_)))) + (##car _e141191141246_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141193141252_)) - (let ((_e141197141257_ + (gx#stx-pair? _hd141190141249_)) + (let ((_e141194141254_ (let () (declare (not safe)) - (gx#stx-e _hd141193141252_)))) - (let ((_tl141195141262_ + (gx#stx-e _hd141190141249_)))) + (let ((_tl141192141259_ (let () (declare (not safe)) - (##cdr _e141197141257_))) - (_hd141196141260_ + (##cdr _e141194141254_))) + (_hd141193141257_ (let () (declare (not safe)) - (##car _e141197141257_)))) + (##car _e141194141254_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141196141260_)) + (gx#identifier? _hd141193141257_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd141196141260_)) + _hd141193141257_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141195141262_)) - (let ((_e141200141265_ + _tl141192141259_)) + (let ((_e141197141262_ (let () (declare (not safe)) (gx#stx-e - _tl141195141262_)))) - (let ((_tl141198141270_ + _tl141192141259_)))) + (let ((_tl141195141267_ (let () (declare (not safe)) - (##cdr _e141200141265_))) - (_hd141199141268_ + (##cdr _e141197141262_))) + (_hd141196141265_ (let () (declare (not safe)) - (##car _e141200141265_)))) + (##car _e141197141262_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141198141270_)) + _tl141195141267_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl141192141254_)) - (___kont148404148405_ _hd141199141268_ _hd141190141244_) - (___kont148406148407_)) - (___kont148406148407_)))) + (gx#stx-null? _tl141189141251_)) + (___kont148401148402_ _hd141196141265_ _hd141187141241_) + (___kont148403148404_)) + (___kont148403148404_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148406148407_)) - (___kont148406148407_)) - (___kont148406148407_)))) - (___kont148406148407_)))) - (___kont148406148407_)) - (___kont148406148407_)))) - (___kont148406148407_)) + (___kont148403148404_)) + (___kont148403148404_)) + (___kont148403148404_)))) + (___kont148403148404_)))) + (___kont148403148404_)) + (___kont148403148404_)))) + (___kont148403148404_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148406148407_)) - (___kont148406148407_)))) - (___kont148406148407_)))) - (___kont148406148407_)) - (___kont148406148407_)) - (___kont148406148407_)))) - (___kont148406148407_)))) + (___kont148403148404_)) + (___kont148403148404_)))) + (___kont148403148404_)))) + (___kont148403148404_)) + (___kont148403148404_)) + (___kont148403148404_)))) + (___kont148403148404_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (or (let () (declare (not safe)) (eq? '##eq? - _$e141169_)) + _$e141166_)) (let () (declare (not safe)) - (eq? 'eq? _$e141169_)) + (eq? 'eq? _$e141166_)) (let () (declare (not safe)) (eq? '##eqv? - _$e141169_)) + _$e141166_)) (let () (declare (not safe)) - (eq? 'eqv? _$e141169_)) + (eq? 'eqv? _$e141166_)) (let () (declare (not safe)) (eq? '##equal? - _$e141169_)) + _$e141166_)) (let () (declare (not safe)) (eq? 'equal? - _$e141169_)) + _$e141166_)) (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e141169_)) + _$e141166_)) (let () (declare (not safe)) (eq? 'gx#stx-eq? - _$e141169_))) - ((lambda (_sym141328_) - (let* ((___stx148470148471_ - _L141143_) - (_g141331141344_ + _$e141166_))) + ((lambda (_sym141325_) + (let* ((___stx148467148468_ + _L141140_) + (_g141328141341_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -9741,1465 +9741,1465 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148470148471_))))) - (let ((___kont148472148473_ - (lambda (_L141372_) - (let ((__tmp150291 + ___stx148467148468_))))) + (let ((___kont148469148470_ + (lambda (_L141369_) + (let ((__tmp150288 (let () (declare (not safe)) - (_eqf-symbol139414_ _sym141328_))) - (__tmp150290 + (_eqf-symbol139411_ _sym141325_))) + (__tmp150287 (let () (declare (not safe)) - (gx#stx-e _L141142_)))) + (gx#stx-e _L141139_)))) (declare (not safe)) - (_assert-eqf139427_ - _L141372_ - __tmp150291 - __tmp150290)))) - (___kont148474148475_ (lambda () '#!void))) + (_assert-eqf139424_ + _L141369_ + __tmp150288 + __tmp150287)))) + (___kont148471148472_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx148470148471_)) - (let ((_e141336141356_ + (gx#stx-pair? ___stx148467148468_)) + (let ((_e141333141353_ (let () (declare (not safe)) - (gx#stx-e ___stx148470148471_)))) - (let ((_tl141334141361_ + (gx#stx-e ___stx148467148468_)))) + (let ((_tl141331141358_ (let () (declare (not safe)) - (##cdr _e141336141356_))) - (_hd141335141359_ + (##cdr _e141333141353_))) + (_hd141332141356_ (let () (declare (not safe)) - (##car _e141336141356_)))) + (##car _e141333141353_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141335141359_)) + (gx#identifier? _hd141332141356_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd141335141359_)) + (gx#stx-eq? '%#ref _hd141332141356_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141334141361_)) - (let ((_e141339141364_ + (gx#stx-pair? _tl141331141358_)) + (let ((_e141336141361_ (let () (declare (not safe)) - (gx#stx-e _tl141334141361_)))) - (let ((_tl141337141369_ + (gx#stx-e _tl141331141358_)))) + (let ((_tl141334141366_ (let () (declare (not safe)) - (##cdr _e141339141364_))) - (_hd141338141367_ + (##cdr _e141336141361_))) + (_hd141335141364_ (let () (declare (not safe)) - (##car _e141339141364_)))) + (##car _e141336141361_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141337141369_)) - (___kont148472148473_ - _hd141338141367_) - (___kont148474148475_)))) - (___kont148474148475_)) - (___kont148474148475_)) - (___kont148474148475_)))) - (___kont148474148475_))))) + (gx#stx-null? _tl141334141366_)) + (___kont148469148470_ + _hd141335141364_) + (___kont148471148472_)))) + (___kont148471148472_)) + (___kont148471148472_)) + (___kont148471148472_)))) + (___kont148471148472_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e141169_) + _$e141166_) '#!void))))) - (___kont148502148503_ - (lambda (_L141046_ _L141047_ _L141048_) - (let ((__tmp150293 - (let ((__tmp150303 + (___kont148499148500_ + (lambda (_L141043_ _L141044_ _L141045_) + (let ((__tmp150290 + (let ((__tmp150300 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp150294 - (let ((__tmp150300 - (let ((__tmp150302 + (__tmp150291 + (let ((__tmp150297 + (let ((__tmp150299 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150301 + (__tmp150298 (let () (declare (not safe)) - (cons _L141048_ '())))) + (cons _L141045_ '())))) (declare (not safe)) - (cons __tmp150302 __tmp150301))) - (__tmp150295 - (let ((__tmp150296 - (let ((__tmp150297 - (let ((__tmp150299 + (cons __tmp150299 __tmp150298))) + (__tmp150292 + (let ((__tmp150293 + (let ((__tmp150294 + (let ((__tmp150296 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp150298 + (__tmp150295 (let () (declare (not safe)) - (cons _L141047_ '())))) + (cons _L141044_ '())))) (declare (not safe)) - (cons __tmp150299 __tmp150298)))) + (cons __tmp150296 __tmp150295)))) (declare (not safe)) - (cons __tmp150297 '())))) + (cons __tmp150294 '())))) (declare (not safe)) - (cons _L141046_ __tmp150296)))) + (cons _L141043_ __tmp150293)))) (declare (not safe)) - (cons __tmp150300 __tmp150295)))) + (cons __tmp150297 __tmp150292)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150303 - __tmp150294)))) + (cons __tmp150300 + __tmp150291)))) (declare (not safe)) - (_assert140429_ __tmp150293)))) - (___kont148504148505_ - (lambda (_L140938_ _L140939_ _L140940_) - (let ((_$e140969_ + (_assert140426_ __tmp150290)))) + (___kont148501148502_ + (lambda (_L140935_ _L140936_ _L140937_) + (let ((_$e140966_ (let () (declare (not safe)) (gxc#identifier-symbol - _L140940_)))) + _L140937_)))) (if (or (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e140969_)) + _$e140966_)) (let () (declare (not safe)) (eq? 'gx#stx-eq? - _$e140969_))) - ((lambda (_sym140975_) - (let ((__tmp150304 + _$e140966_))) + ((lambda (_sym140972_) + (let ((__tmp150301 (let () (declare (not safe)) - (_eqf-symbol139414_ - _sym140975_)))) + (_eqf-symbol139411_ + _sym140972_)))) (declare (not safe)) - (_assert-eqf139427_ - _L140939_ - __tmp150304 - _L140938_))) - _$e140969_) + (_assert-eqf139424_ + _L140936_ + __tmp150301 + _L140935_))) + _$e140966_) '#!void)))) - (___kont148506148507_ - (lambda (_L140822_ _L140823_ _L140824_) - (let ((__tmp150305 - (let ((__tmp150318 + (___kont148503148504_ + (lambda (_L140819_ _L140820_ _L140821_) + (let ((__tmp150302 + (let ((__tmp150315 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp150306 - (let ((__tmp150315 - (let ((__tmp150317 + (__tmp150303 + (let ((__tmp150312 + (let ((__tmp150314 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150316 + (__tmp150313 (let () (declare (not safe)) - (cons _L140824_ '())))) + (cons _L140821_ '())))) (declare (not safe)) - (cons __tmp150317 __tmp150316))) - (__tmp150307 - (let ((__tmp150312 - (let ((__tmp150314 + (cons __tmp150314 __tmp150313))) + (__tmp150304 + (let ((__tmp150309 + (let ((__tmp150311 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150313 + (__tmp150310 (let () (declare (not safe)) - (cons _L140822_ '())))) + (cons _L140819_ '())))) (declare (not safe)) - (cons __tmp150314 __tmp150313))) - (__tmp150308 - (let ((__tmp150309 - (let ((__tmp150311 + (cons __tmp150311 __tmp150310))) + (__tmp150305 + (let ((__tmp150306 + (let ((__tmp150308 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax))) - (__tmp150310 + (__tmp150307 (let () (declare (not safe)) - (cons _L140823_ '())))) + (cons _L140820_ '())))) (declare (not safe)) - (cons __tmp150311 __tmp150310)))) + (cons __tmp150308 __tmp150307)))) (declare (not safe)) - (cons __tmp150309 '())))) + (cons __tmp150306 '())))) (declare (not safe)) - (cons __tmp150312 __tmp150308)))) + (cons __tmp150309 __tmp150305)))) (declare (not safe)) - (cons __tmp150315 __tmp150307)))) + (cons __tmp150312 __tmp150304)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150318 - __tmp150306)))) + (cons __tmp150315 + __tmp150303)))) (declare (not safe)) - (_assert140429_ __tmp150305)))) - (___kont148508148509_ - (lambda (_L140702_ _L140703_ _L140704_) - (let ((__tmp150319 + (_assert140426_ __tmp150302)))) + (___kont148505148506_ + (lambda (_L140699_ _L140700_ _L140701_) + (let ((__tmp150316 (let () (declare (not safe)) (gxc#apply-expression-subst - _L140703_ - _L140704_ - _L140702_)))) + _L140700_ + _L140701_ + _L140699_)))) (declare (not safe)) - (_assert140429_ __tmp150319)))) - (___kont148510148511_ + (_assert140426_ __tmp150316)))) + (___kont148507148508_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx148496148497_)) - (let ((_e140445141393_ + (gx#stx-pair? ___stx148493148494_)) + (let ((_e140442141390_ (let () (declare (not safe)) - (gx#stx-e ___stx148496148497_)))) - (let ((_tl140443141398_ + (gx#stx-e ___stx148493148494_)))) + (let ((_tl140440141395_ (let () (declare (not safe)) - (##cdr _e140445141393_))) - (_hd140444141396_ + (##cdr _e140442141390_))) + (_hd140441141393_ (let () (declare (not safe)) - (##car _e140445141393_)))) + (##car _e140442141390_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd140444141396_)) + _hd140441141393_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd140444141396_)) + _hd140441141393_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140443141398_)) - (let ((_e140448141401_ + _tl140440141395_)) + (let ((_e140445141398_ (let () (declare (not safe)) (gx#stx-e - _tl140443141398_)))) - (let ((_tl140446141406_ + _tl140440141395_)))) + (let ((_tl140443141403_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e140448141401_))) - (_hd140447141404_ - (let () (declare (not safe)) (##car _e140448141401_)))) + (##cdr _e140445141398_))) + (_hd140444141401_ + (let () (declare (not safe)) (##car _e140445141398_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140447141404_)) - (let ((_e140451141409_ + (gx#stx-pair? _hd140444141401_)) + (let ((_e140448141406_ (let () (declare (not safe)) - (gx#stx-e _hd140447141404_)))) - (let ((_tl140449141414_ + (gx#stx-e _hd140444141401_)))) + (let ((_tl140446141411_ (let () (declare (not safe)) - (##cdr _e140451141409_))) - (_hd140450141412_ + (##cdr _e140448141406_))) + (_hd140447141409_ (let () (declare (not safe)) - (##car _e140451141409_)))) + (##car _e140448141406_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140450141412_)) + (gx#identifier? _hd140447141409_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd140450141412_)) + (gx#stx-eq? '%#ref _hd140447141409_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140449141414_)) - (let ((_e140454141417_ + (gx#stx-pair? _tl140446141411_)) + (let ((_e140451141414_ (let () (declare (not safe)) - (gx#stx-e _tl140449141414_)))) - (let ((_tl140452141422_ + (gx#stx-e _tl140446141411_)))) + (let ((_tl140449141419_ (let () (declare (not safe)) - (##cdr _e140454141417_))) - (_hd140453141420_ + (##cdr _e140451141414_))) + (_hd140450141417_ (let () (declare (not safe)) - (##car _e140454141417_)))) + (##car _e140451141414_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140452141422_)) + (gx#stx-null? _tl140449141419_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140446141406_)) - (let ((_e140457141425_ + _tl140443141403_)) + (let ((_e140454141422_ (let () (declare (not safe)) (gx#stx-e - _tl140446141406_)))) - (let ((_tl140455141430_ + _tl140443141403_)))) + (let ((_tl140452141427_ (let () (declare (not safe)) - (##cdr _e140457141425_))) - (_hd140456141428_ + (##cdr _e140454141422_))) + (_hd140453141425_ (let () (declare (not safe)) - (##car _e140457141425_)))) + (##car _e140454141422_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140456141428_)) - (let ((_e140460141433_ + _hd140453141425_)) + (let ((_e140457141430_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd140456141428_)))) - (let ((_tl140458141438_ + (gx#stx-e _hd140453141425_)))) + (let ((_tl140455141435_ (let () (declare (not safe)) - (##cdr _e140460141433_))) - (_hd140459141436_ + (##cdr _e140457141430_))) + (_hd140456141433_ (let () (declare (not safe)) - (##car _e140460141433_)))) + (##car _e140457141430_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140459141436_)) + (gx#identifier? _hd140456141433_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd140459141436_)) + (gx#stx-eq? '%#ref _hd140456141433_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140458141438_)) - (let ((_e140463141441_ + (gx#stx-pair? _tl140455141435_)) + (let ((_e140460141438_ (let () (declare (not safe)) - (gx#stx-e _tl140458141438_)))) - (let ((_tl140461141446_ + (gx#stx-e _tl140455141435_)))) + (let ((_tl140458141443_ (let () (declare (not safe)) - (##cdr _e140463141441_))) - (_hd140462141444_ + (##cdr _e140460141438_))) + (_hd140459141441_ (let () (declare (not safe)) - (##car _e140463141441_)))) + (##car _e140460141438_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140461141446_)) + (gx#stx-null? _tl140458141443_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140455141430_)) - (___kont148498148499_ - _hd140462141444_ - _hd140453141420_) + (gx#stx-null? _tl140452141427_)) + (___kont148495148496_ + _hd140459141441_ + _hd140450141417_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140455141430_)) - (let ((_e140484141118_ + _tl140452141427_)) + (let ((_e140481141115_ (let () (declare (not safe)) (gx#stx-e - _tl140455141430_)))) - (let ((_tl140482141123_ + _tl140452141427_)))) + (let ((_tl140479141120_ (let () (declare (not safe)) - (##cdr _e140484141118_))) - (_hd140483141121_ + (##cdr _e140481141115_))) + (_hd140480141118_ (let () (declare (not safe)) - (##car _e140484141118_)))) + (##car _e140481141115_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140483141121_)) - (let ((_e140487141126_ + _hd140480141118_)) + (let ((_e140484141123_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd140483141121_)))) - (let ((_tl140485141131_ + (gx#stx-e _hd140480141118_)))) + (let ((_tl140482141128_ (let () (declare (not safe)) - (##cdr _e140487141126_))) - (_hd140486141129_ + (##cdr _e140484141123_))) + (_hd140483141126_ (let () (declare (not safe)) - (##car _e140487141126_)))) + (##car _e140484141123_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140486141129_)) + (gx#identifier? _hd140483141126_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd140486141129_)) + (gx#stx-eq? '%#quote _hd140483141126_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140485141131_)) - (let ((_e140490141134_ + (gx#stx-pair? _tl140482141128_)) + (let ((_e140487141131_ (let () (declare (not safe)) - (gx#stx-e _tl140485141131_)))) - (let ((_tl140488141139_ + (gx#stx-e _tl140482141128_)))) + (let ((_tl140485141136_ (let () (declare (not safe)) - (##cdr _e140490141134_))) - (_hd140489141137_ + (##cdr _e140487141131_))) + (_hd140486141134_ (let () (declare (not safe)) - (##car _e140490141134_)))) + (##car _e140487141131_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140488141139_)) + (gx#stx-null? _tl140485141136_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140482141123_)) - (___kont148500148501_ - _hd140489141137_ - _hd140456141428_ - _hd140453141420_) - (___kont148510148511_)) - (___kont148510148511_)))) - (___kont148510148511_)) + (gx#stx-null? _tl140479141120_)) + (___kont148497148498_ + _hd140486141134_ + _hd140453141425_ + _hd140450141417_) + (___kont148507148508_)) + (___kont148507148508_)))) + (___kont148507148508_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd140486141129_)) + _hd140483141126_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140485141131_)) - (let ((_e140550140930_ + (gx#stx-pair? _tl140482141128_)) + (let ((_e140547140927_ (let () (declare (not safe)) - (gx#stx-e _tl140485141131_)))) - (let ((_tl140548140935_ + (gx#stx-e _tl140482141128_)))) + (let ((_tl140545140932_ (let () (declare (not safe)) - (##cdr _e140550140930_))) - (_hd140549140933_ + (##cdr _e140547140927_))) + (_hd140546140930_ (let () (declare (not safe)) - (##car _e140550140930_)))) + (##car _e140547140927_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140548140935_)) + (gx#stx-null? _tl140545140932_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl140482141123_)) - (___kont148504148505_ - _hd140549140933_ - _hd140462141444_ - _hd140453141420_) - (___kont148510148511_)) - (___kont148510148511_)))) - (___kont148510148511_)) - (___kont148510148511_))) - (___kont148510148511_)))) - (___kont148510148511_)))) + _tl140479141120_)) + (___kont148501148502_ + _hd140546140930_ + _hd140459141441_ + _hd140450141417_) + (___kont148507148508_)) + (___kont148507148508_)))) + (___kont148507148508_)) + (___kont148507148508_))) + (___kont148507148508_)))) + (___kont148507148508_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148510148511_))) + (___kont148507148508_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140455141430_)) - (let ((_e140484141118_ + (gx#stx-pair? _tl140452141427_)) + (let ((_e140481141115_ (let () (declare (not safe)) (gx#stx-e - _tl140455141430_)))) - (let ((_tl140482141123_ + _tl140452141427_)))) + (let ((_tl140479141120_ (let () (declare (not safe)) - (##cdr _e140484141118_))) - (_hd140483141121_ + (##cdr _e140481141115_))) + (_hd140480141118_ (let () (declare (not safe)) - (##car _e140484141118_)))) + (##car _e140481141115_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140483141121_)) - (let ((_e140487141126_ + _hd140480141118_)) + (let ((_e140484141123_ (let () (declare (not safe)) (gx#stx-e - _hd140483141121_)))) - (let ((_tl140485141131_ + _hd140480141118_)))) + (let ((_tl140482141128_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e140487141126_))) - (_hd140486141129_ - (let () (declare (not safe)) (##car _e140487141126_)))) + (##cdr _e140484141123_))) + (_hd140483141126_ + (let () (declare (not safe)) (##car _e140484141123_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140486141129_)) + (gx#identifier? _hd140483141126_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd140486141129_)) + (gx#stx-eq? '%#quote _hd140483141126_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140485141131_)) - (let ((_e140490141134_ + (gx#stx-pair? _tl140482141128_)) + (let ((_e140487141131_ (let () (declare (not safe)) - (gx#stx-e _tl140485141131_)))) - (let ((_tl140488141139_ + (gx#stx-e _tl140482141128_)))) + (let ((_tl140485141136_ (let () (declare (not safe)) - (##cdr _e140490141134_))) - (_hd140489141137_ + (##cdr _e140487141131_))) + (_hd140486141134_ (let () (declare (not safe)) - (##car _e140490141134_)))) + (##car _e140487141131_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140488141139_)) + (gx#stx-null? _tl140485141136_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140482141123_)) - (___kont148500148501_ - _hd140489141137_ - _hd140456141428_ - _hd140453141420_) - (___kont148510148511_)) - (___kont148510148511_)))) - (___kont148510148511_)) - (___kont148510148511_)) - (___kont148510148511_)))) + (gx#stx-null? _tl140479141120_)) + (___kont148497148498_ + _hd140486141134_ + _hd140453141425_ + _hd140450141417_) + (___kont148507148508_)) + (___kont148507148508_)))) + (___kont148507148508_)) + (___kont148507148508_)) + (___kont148507148508_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148510148511_)))) - (___kont148510148511_))))) + (___kont148507148508_)))) + (___kont148507148508_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140455141430_)) - (let ((_e140484141118_ + (gx#stx-pair? _tl140452141427_)) + (let ((_e140481141115_ (let () (declare (not safe)) - (gx#stx-e _tl140455141430_)))) - (let ((_tl140482141123_ + (gx#stx-e _tl140452141427_)))) + (let ((_tl140479141120_ (let () (declare (not safe)) - (##cdr _e140484141118_))) - (_hd140483141121_ + (##cdr _e140481141115_))) + (_hd140480141118_ (let () (declare (not safe)) - (##car _e140484141118_)))) + (##car _e140481141115_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140483141121_)) - (let ((_e140487141126_ + (gx#stx-pair? _hd140480141118_)) + (let ((_e140484141123_ (let () (declare (not safe)) (gx#stx-e - _hd140483141121_)))) - (let ((_tl140485141131_ + _hd140480141118_)))) + (let ((_tl140482141128_ (let () (declare (not safe)) - (##cdr _e140487141126_))) - (_hd140486141129_ + (##cdr _e140484141123_))) + (_hd140483141126_ (let () (declare (not safe)) - (##car _e140487141126_)))) + (##car _e140484141123_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd140486141129_)) + _hd140483141126_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140486141129_)) + _hd140483141126_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl140485141131_)) - (let ((_e140490141134_ + (gx#stx-pair? _tl140482141128_)) + (let ((_e140487141131_ (let () (declare (not safe)) - (gx#stx-e _tl140485141131_)))) - (let ((_tl140488141139_ + (gx#stx-e _tl140482141128_)))) + (let ((_tl140485141136_ (let () (declare (not safe)) - (##cdr _e140490141134_))) - (_hd140489141137_ + (##cdr _e140487141131_))) + (_hd140486141134_ (let () (declare (not safe)) - (##car _e140490141134_)))) + (##car _e140487141131_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140488141139_)) + (gx#stx-null? _tl140485141136_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140482141123_)) - (___kont148500148501_ - _hd140489141137_ - _hd140456141428_ - _hd140453141420_) - (___kont148510148511_)) - (___kont148510148511_)))) - (___kont148510148511_)) - (___kont148510148511_)) + (gx#stx-null? _tl140479141120_)) + (___kont148497148498_ + _hd140486141134_ + _hd140453141425_ + _hd140450141417_) + (___kont148507148508_)) + (___kont148507148508_)))) + (___kont148507148508_)) + (___kont148507148508_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148510148511_)))) - (___kont148510148511_)))) - (___kont148510148511_))) + (___kont148507148508_)))) + (___kont148507148508_)))) + (___kont148507148508_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140455141430_)) - (let ((_e140484141118_ + (gx#stx-pair? _tl140452141427_)) + (let ((_e140481141115_ (let () (declare (not safe)) - (gx#stx-e _tl140455141430_)))) - (let ((_tl140482141123_ + (gx#stx-e _tl140452141427_)))) + (let ((_tl140479141120_ (let () (declare (not safe)) - (##cdr _e140484141118_))) - (_hd140483141121_ + (##cdr _e140481141115_))) + (_hd140480141118_ (let () (declare (not safe)) - (##car _e140484141118_)))) + (##car _e140481141115_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140483141121_)) - (let ((_e140487141126_ + (gx#stx-pair? _hd140480141118_)) + (let ((_e140484141123_ (let () (declare (not safe)) (gx#stx-e - _hd140483141121_)))) - (let ((_tl140485141131_ + _hd140480141118_)))) + (let ((_tl140482141128_ (let () (declare (not safe)) - (##cdr _e140487141126_))) - (_hd140486141129_ + (##cdr _e140484141123_))) + (_hd140483141126_ (let () (declare (not safe)) - (##car _e140487141126_)))) + (##car _e140484141123_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd140486141129_)) + _hd140483141126_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140486141129_)) + _hd140483141126_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140485141131_)) - (let ((_e140490141134_ + _tl140482141128_)) + (let ((_e140487141131_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl140485141131_)))) - (let ((_tl140488141139_ + (gx#stx-e _tl140482141128_)))) + (let ((_tl140485141136_ (let () (declare (not safe)) - (##cdr _e140490141134_))) - (_hd140489141137_ + (##cdr _e140487141131_))) + (_hd140486141134_ (let () (declare (not safe)) - (##car _e140490141134_)))) + (##car _e140487141131_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140488141139_)) + (gx#stx-null? _tl140485141136_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140482141123_)) - (___kont148500148501_ - _hd140489141137_ - _hd140456141428_ - _hd140453141420_) + (gx#stx-null? _tl140479141120_)) + (___kont148497148498_ + _hd140486141134_ + _hd140453141425_ + _hd140450141417_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd140459141436_)) + (gx#stx-eq? '%#quote _hd140456141433_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140458141438_)) - (let ((_e140514141030_ + (gx#stx-pair? _tl140455141435_)) + (let ((_e140511141027_ (let () (declare (not safe)) - (gx#stx-e _tl140458141438_)))) - (let ((_tl140512141035_ + (gx#stx-e _tl140455141435_)))) + (let ((_tl140509141032_ (let () (declare (not safe)) - (##cdr _e140514141030_))) - (_hd140513141033_ + (##cdr _e140511141027_))) + (_hd140510141030_ (let () (declare (not safe)) - (##car _e140514141030_)))) - (___kont148510148511_))) - (___kont148510148511_)) + (##car _e140511141027_)))) + (___kont148507148508_))) + (___kont148507148508_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd140459141436_)) + _hd140456141433_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140458141438_)) - (let ((_e140574140790_ + (gx#stx-pair? _tl140455141435_)) + (let ((_e140571140787_ (let () (declare (not safe)) (gx#stx-e - _tl140458141438_)))) - (let ((_tl140572140795_ + _tl140455141435_)))) + (let ((_tl140569140792_ (let () (declare (not safe)) - (##cdr _e140574140790_))) - (_hd140573140793_ + (##cdr _e140571140787_))) + (_hd140570140790_ (let () (declare (not safe)) - (##car _e140574140790_)))) - (___kont148510148511_))) - (___kont148510148511_)) - (___kont148510148511_)))) + (##car _e140571140787_)))) + (___kont148507148508_))) + (___kont148507148508_)) + (___kont148507148508_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd140459141436_)) + (gx#stx-eq? '%#quote _hd140456141433_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140458141438_)) - (let ((_e140514141030_ + (gx#stx-pair? _tl140455141435_)) + (let ((_e140511141027_ (let () (declare (not safe)) - (gx#stx-e _tl140458141438_)))) - (let ((_tl140512141035_ + (gx#stx-e _tl140455141435_)))) + (let ((_tl140509141032_ (let () (declare (not safe)) - (##cdr _e140514141030_))) - (_hd140513141033_ + (##cdr _e140511141027_))) + (_hd140510141030_ (let () (declare (not safe)) - (##car _e140514141030_)))) + (##car _e140511141027_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140512141035_)) + (gx#stx-null? _tl140509141032_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140482141123_)) - (___kont148502148503_ - _hd140483141121_ - _hd140513141033_ - _hd140453141420_) - (___kont148510148511_)) - (___kont148510148511_)))) - (___kont148510148511_)) + (gx#stx-null? _tl140479141120_)) + (___kont148499148500_ + _hd140480141118_ + _hd140510141030_ + _hd140450141417_) + (___kont148507148508_)) + (___kont148507148508_)))) + (___kont148507148508_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd140459141436_)) + _hd140456141433_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140458141438_)) - (let ((_e140574140790_ + (gx#stx-pair? _tl140455141435_)) + (let ((_e140571140787_ (let () (declare (not safe)) - (gx#stx-e _tl140458141438_)))) - (let ((_tl140572140795_ + (gx#stx-e _tl140455141435_)))) + (let ((_tl140569140792_ (let () (declare (not safe)) - (##cdr _e140574140790_))) - (_hd140573140793_ + (##cdr _e140571140787_))) + (_hd140570140790_ (let () (declare (not safe)) - (##car _e140574140790_)))) - (___kont148510148511_))) - (___kont148510148511_)) - (___kont148510148511_)))))) + (##car _e140571140787_)))) + (___kont148507148508_))) + (___kont148507148508_)) + (___kont148507148508_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd140459141436_)) + (gx#stx-eq? '%#quote _hd140456141433_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140458141438_)) - (let ((_e140514141030_ + (gx#stx-pair? _tl140455141435_)) + (let ((_e140511141027_ (let () (declare (not safe)) - (gx#stx-e _tl140458141438_)))) - (let ((_tl140512141035_ + (gx#stx-e _tl140455141435_)))) + (let ((_tl140509141032_ (let () (declare (not safe)) - (##cdr _e140514141030_))) - (_hd140513141033_ + (##cdr _e140511141027_))) + (_hd140510141030_ (let () (declare (not safe)) - (##car _e140514141030_)))) + (##car _e140511141027_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140512141035_)) + (gx#stx-null? _tl140509141032_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140482141123_)) - (___kont148502148503_ - _hd140483141121_ - _hd140513141033_ - _hd140453141420_) - (___kont148510148511_)) - (___kont148510148511_)))) - (___kont148510148511_)) + (gx#stx-null? _tl140479141120_)) + (___kont148499148500_ + _hd140480141118_ + _hd140510141030_ + _hd140450141417_) + (___kont148507148508_)) + (___kont148507148508_)))) + (___kont148507148508_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd140459141436_)) + (gx#stx-eq? '%#quote-syntax _hd140456141433_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140458141438_)) - (let ((_e140574140790_ + (gx#stx-pair? _tl140455141435_)) + (let ((_e140571140787_ (let () (declare (not safe)) - (gx#stx-e _tl140458141438_)))) - (let ((_tl140572140795_ + (gx#stx-e _tl140455141435_)))) + (let ((_tl140569140792_ (let () (declare (not safe)) - (##cdr _e140574140790_))) - (_hd140573140793_ + (##cdr _e140571140787_))) + (_hd140570140790_ (let () (declare (not safe)) - (##car _e140574140790_)))) - (___kont148510148511_))) - (___kont148510148511_)) - (___kont148510148511_)))) + (##car _e140571140787_)))) + (___kont148507148508_))) + (___kont148507148508_)) + (___kont148507148508_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140459141436_)) + _hd140456141433_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl140458141438_)) - (let ((_e140514141030_ + (gx#stx-pair? _tl140455141435_)) + (let ((_e140511141027_ (let () (declare (not safe)) - (gx#stx-e _tl140458141438_)))) - (let ((_tl140512141035_ + (gx#stx-e _tl140455141435_)))) + (let ((_tl140509141032_ (let () (declare (not safe)) - (##cdr _e140514141030_))) - (_hd140513141033_ + (##cdr _e140511141027_))) + (_hd140510141030_ (let () (declare (not safe)) - (##car _e140514141030_)))) + (##car _e140511141027_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140512141035_)) + (gx#stx-null? _tl140509141032_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140482141123_)) - (___kont148502148503_ - _hd140483141121_ - _hd140513141033_ - _hd140453141420_) - (___kont148510148511_)) - (___kont148510148511_)))) - (___kont148510148511_)) + (gx#stx-null? _tl140479141120_)) + (___kont148499148500_ + _hd140480141118_ + _hd140510141030_ + _hd140450141417_) + (___kont148507148508_)) + (___kont148507148508_)))) + (___kont148507148508_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd140459141436_)) + (gx#stx-eq? '%#quote-syntax _hd140456141433_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140458141438_)) - (let ((_e140574140790_ + (gx#stx-pair? _tl140455141435_)) + (let ((_e140571140787_ (let () (declare (not safe)) - (gx#stx-e _tl140458141438_)))) - (let ((_tl140572140795_ + (gx#stx-e _tl140455141435_)))) + (let ((_tl140569140792_ (let () (declare (not safe)) - (##cdr _e140574140790_))) - (_hd140573140793_ + (##cdr _e140571140787_))) + (_hd140570140790_ (let () (declare (not safe)) - (##car _e140574140790_)))) + (##car _e140571140787_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140572140795_)) + (gx#stx-null? _tl140569140792_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd140486141129_)) + (gx#stx-eq? '%#ref _hd140483141126_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140485141131_)) - (let ((_e140583140814_ + (gx#stx-pair? _tl140482141128_)) + (let ((_e140580140811_ (let () (declare (not safe)) (gx#stx-e - _tl140485141131_)))) - (let ((_tl140581140819_ + _tl140482141128_)))) + (let ((_tl140578140816_ (let () (declare (not safe)) - (##cdr _e140583140814_))) - (_hd140582140817_ + (##cdr _e140580140811_))) + (_hd140579140814_ (let () (declare (not safe)) - (##car _e140583140814_)))) + (##car _e140580140811_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140581140819_)) + _tl140578140816_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl140482141123_)) - (___kont148506148507_ - _hd140582140817_ - _hd140573140793_ - _hd140453141420_) - (___kont148510148511_)) - (___kont148510148511_)))) - (___kont148510148511_)) - (___kont148510148511_)) - (___kont148510148511_)))) - (___kont148510148511_)) - (___kont148510148511_)))) + _tl140479141120_)) + (___kont148503148504_ + _hd140579140814_ + _hd140570140790_ + _hd140450141417_) + (___kont148507148508_)) + (___kont148507148508_)))) + (___kont148507148508_)) + (___kont148507148508_)) + (___kont148507148508_)))) + (___kont148507148508_)) + (___kont148507148508_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140459141436_)) + _hd140456141433_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140458141438_)) - (let ((_e140514141030_ + _tl140455141435_)) + (let ((_e140511141027_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl140458141438_)))) - (let ((_tl140512141035_ + (gx#stx-e _tl140455141435_)))) + (let ((_tl140509141032_ (let () (declare (not safe)) - (##cdr _e140514141030_))) - (_hd140513141033_ + (##cdr _e140511141027_))) + (_hd140510141030_ (let () (declare (not safe)) - (##car _e140514141030_)))) + (##car _e140511141027_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140512141035_)) + (gx#stx-null? _tl140509141032_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140482141123_)) - (___kont148502148503_ - _hd140483141121_ - _hd140513141033_ - _hd140453141420_) - (___kont148510148511_)) - (___kont148510148511_)))) - (___kont148510148511_)) + (gx#stx-null? _tl140479141120_)) + (___kont148499148500_ + _hd140480141118_ + _hd140510141030_ + _hd140450141417_) + (___kont148507148508_)) + (___kont148507148508_)))) + (___kont148507148508_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd140459141436_)) + _hd140456141433_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl140458141438_)) - (let ((_e140574140790_ + (gx#stx-pair? _tl140455141435_)) + (let ((_e140571140787_ (let () (declare (not safe)) - (gx#stx-e _tl140458141438_)))) - (let ((_tl140572140795_ + (gx#stx-e _tl140455141435_)))) + (let ((_tl140569140792_ (let () (declare (not safe)) - (##cdr _e140574140790_))) - (_hd140573140793_ + (##cdr _e140571140787_))) + (_hd140570140790_ (let () (declare (not safe)) - (##car _e140574140790_)))) - (___kont148510148511_))) - (___kont148510148511_)) - (___kont148510148511_)))))) + (##car _e140571140787_)))) + (___kont148507148508_))) + (___kont148507148508_)) + (___kont148507148508_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140459141436_)) + _hd140456141433_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140458141438_)) - (let ((_e140514141030_ + _tl140455141435_)) + (let ((_e140511141027_ (let () (declare (not safe)) (gx#stx-e - _tl140458141438_)))) - (let ((_tl140512141035_ + _tl140455141435_)))) + (let ((_tl140509141032_ (let () (declare (not safe)) - (##cdr _e140514141030_))) - (_hd140513141033_ + (##cdr _e140511141027_))) + (_hd140510141030_ (let () (declare (not safe)) - (##car _e140514141030_)))) + (##car _e140511141027_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140512141035_)) + _tl140509141032_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl140482141123_)) - (___kont148502148503_ - _hd140483141121_ - _hd140513141033_ - _hd140453141420_) - (___kont148510148511_)) - (___kont148510148511_)))) + (gx#stx-null? _tl140479141120_)) + (___kont148499148500_ + _hd140480141118_ + _hd140510141030_ + _hd140450141417_) + (___kont148507148508_)) + (___kont148507148508_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148510148511_)) + (___kont148507148508_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd140459141436_)) + _hd140456141433_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140458141438_)) - (let ((_e140574140790_ + _tl140455141435_)) + (let ((_e140571140787_ (let () (declare (not safe)) (gx#stx-e - _tl140458141438_)))) - (let ((_tl140572140795_ + _tl140455141435_)))) + (let ((_tl140569140792_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e140574140790_))) - (_hd140573140793_ - (let () (declare (not safe)) (##car _e140574140790_)))) - (___kont148510148511_))) + (##cdr _e140571140787_))) + (_hd140570140790_ + (let () (declare (not safe)) (##car _e140571140787_)))) + (___kont148507148508_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148510148511_)) - (___kont148510148511_)))))) + (___kont148507148508_)) + (___kont148507148508_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd140459141436_)) + (gx#stx-eq? '%#quote _hd140456141433_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140458141438_)) - (let ((_e140514141030_ + (gx#stx-pair? _tl140455141435_)) + (let ((_e140511141027_ (let () (declare (not safe)) (gx#stx-e - _tl140458141438_)))) - (let ((_tl140512141035_ + _tl140455141435_)))) + (let ((_tl140509141032_ (let () (declare (not safe)) - (##cdr _e140514141030_))) - (_hd140513141033_ + (##cdr _e140511141027_))) + (_hd140510141030_ (let () (declare (not safe)) - (##car _e140514141030_)))) - (___kont148510148511_))) - (___kont148510148511_)) + (##car _e140511141027_)))) + (___kont148507148508_))) + (___kont148507148508_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd140459141436_)) + _hd140456141433_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140458141438_)) - (let ((_e140574140790_ + (gx#stx-pair? _tl140455141435_)) + (let ((_e140571140787_ (let () (declare (not safe)) (gx#stx-e - _tl140458141438_)))) - (let ((_tl140572140795_ + _tl140455141435_)))) + (let ((_tl140569140792_ (let () (declare (not safe)) - (##cdr _e140574140790_))) - (_hd140573140793_ + (##cdr _e140571140787_))) + (_hd140570140790_ (let () (declare (not safe)) - (##car _e140574140790_)))) - (___kont148510148511_))) - (___kont148510148511_)) - (___kont148510148511_))))) + (##car _e140571140787_)))) + (___kont148507148508_))) + (___kont148507148508_)) + (___kont148507148508_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140455141430_)) - (let ((_e140484141118_ + (gx#stx-pair? _tl140452141427_)) + (let ((_e140481141115_ (let () (declare (not safe)) - (gx#stx-e _tl140455141430_)))) - (let ((_tl140482141123_ + (gx#stx-e _tl140452141427_)))) + (let ((_tl140479141120_ (let () (declare (not safe)) - (##cdr _e140484141118_))) - (_hd140483141121_ + (##cdr _e140481141115_))) + (_hd140480141118_ (let () (declare (not safe)) - (##car _e140484141118_)))) + (##car _e140481141115_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140483141121_)) - (let ((_e140487141126_ + (gx#stx-pair? _hd140480141118_)) + (let ((_e140484141123_ (let () (declare (not safe)) - (gx#stx-e _hd140483141121_)))) - (let ((_tl140485141131_ + (gx#stx-e _hd140480141118_)))) + (let ((_tl140482141128_ (let () (declare (not safe)) - (##cdr _e140487141126_))) - (_hd140486141129_ + (##cdr _e140484141123_))) + (_hd140483141126_ (let () (declare (not safe)) - (##car _e140487141126_)))) + (##car _e140484141123_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd140486141129_)) + _hd140483141126_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140486141129_)) + _hd140483141126_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140485141131_)) - (let ((_e140490141134_ + _tl140482141128_)) + (let ((_e140487141131_ (let () (declare (not safe)) (gx#stx-e - _tl140485141131_)))) - (let ((_tl140488141139_ + _tl140482141128_)))) + (let ((_tl140485141136_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e140490141134_))) - (_hd140489141137_ - (let () (declare (not safe)) (##car _e140490141134_)))) + (##cdr _e140487141131_))) + (_hd140486141134_ + (let () (declare (not safe)) (##car _e140487141131_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140488141139_)) + (gx#stx-null? _tl140485141136_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140482141123_)) - (___kont148500148501_ - _hd140489141137_ - _hd140456141428_ - _hd140453141420_) - (___kont148510148511_)) - (___kont148510148511_)))) + (gx#stx-null? _tl140479141120_)) + (___kont148497148498_ + _hd140486141134_ + _hd140453141425_ + _hd140450141417_) + (___kont148507148508_)) + (___kont148507148508_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148510148511_)) - (___kont148510148511_)) - (___kont148510148511_)))) - (___kont148510148511_)))) - (___kont148510148511_))))) + (___kont148507148508_)) + (___kont148507148508_)) + (___kont148507148508_)))) + (___kont148507148508_)))) + (___kont148507148508_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140455141430_)) - (let ((_e140484141118_ + (gx#stx-pair? _tl140452141427_)) + (let ((_e140481141115_ (let () (declare (not safe)) - (gx#stx-e _tl140455141430_)))) - (let ((_tl140482141123_ + (gx#stx-e _tl140452141427_)))) + (let ((_tl140479141120_ (let () (declare (not safe)) - (##cdr _e140484141118_))) - (_hd140483141121_ + (##cdr _e140481141115_))) + (_hd140480141118_ (let () (declare (not safe)) - (##car _e140484141118_)))) + (##car _e140481141115_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140483141121_)) - (let ((_e140487141126_ + (gx#stx-pair? _hd140480141118_)) + (let ((_e140484141123_ (let () (declare (not safe)) - (gx#stx-e _hd140483141121_)))) - (let ((_tl140485141131_ + (gx#stx-e _hd140480141118_)))) + (let ((_tl140482141128_ (let () (declare (not safe)) - (##cdr _e140487141126_))) - (_hd140486141129_ + (##cdr _e140484141123_))) + (_hd140483141126_ (let () (declare (not safe)) - (##car _e140487141126_)))) + (##car _e140484141123_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140486141129_)) + (gx#identifier? _hd140483141126_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140486141129_)) + _hd140483141126_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140485141131_)) - (let ((_e140490141134_ + (gx#stx-pair? _tl140482141128_)) + (let ((_e140487141131_ (let () (declare (not safe)) (gx#stx-e - _tl140485141131_)))) - (let ((_tl140488141139_ + _tl140482141128_)))) + (let ((_tl140485141136_ (let () (declare (not safe)) - (##cdr _e140490141134_))) - (_hd140489141137_ + (##cdr _e140487141131_))) + (_hd140486141134_ (let () (declare (not safe)) - (##car _e140490141134_)))) + (##car _e140487141131_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140488141139_)) + _tl140485141136_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl140482141123_)) - (___kont148500148501_ - _hd140489141137_ - _hd140456141428_ - _hd140453141420_) - (___kont148510148511_)) - (___kont148510148511_)))) - (___kont148510148511_)) - (___kont148510148511_)) - (___kont148510148511_)))) - (___kont148510148511_)))) - (___kont148510148511_))))) + _tl140479141120_)) + (___kont148497148498_ + _hd140486141134_ + _hd140453141425_ + _hd140450141417_) + (___kont148507148508_)) + (___kont148507148508_)))) + (___kont148507148508_)) + (___kont148507148508_)) + (___kont148507148508_)))) + (___kont148507148508_)))) + (___kont148507148508_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148510148511_)) - (___kont148510148511_)))) - (___kont148510148511_)) + (___kont148507148508_)) + (___kont148507148508_)))) + (___kont148507148508_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd140450141412_)) + (gx#stx-eq? '%#lambda _hd140447141409_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140449141414_)) - (let ((_e140598140654_ + (gx#stx-pair? _tl140446141411_)) + (let ((_e140595140651_ (let () (declare (not safe)) (gx#stx-e - _tl140449141414_)))) - (let ((_tl140596140659_ + _tl140446141411_)))) + (let ((_tl140593140656_ (let () (declare (not safe)) - (##cdr _e140598140654_))) - (_hd140597140657_ + (##cdr _e140595140651_))) + (_hd140594140654_ (let () (declare (not safe)) - (##car _e140598140654_)))) + (##car _e140595140651_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140597140657_)) - (let ((_e140601140662_ + _hd140594140654_)) + (let ((_e140598140659_ (let () (declare (not safe)) (gx#stx-e - _hd140597140657_)))) - (let ((_tl140599140667_ + _hd140594140654_)))) + (let ((_tl140596140664_ (let () (declare (not safe)) - (##cdr _e140601140662_))) - (_hd140600140665_ + (##cdr _e140598140659_))) + (_hd140597140662_ (let () (declare (not safe)) - (##car _e140601140662_)))) + (##car _e140598140659_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140599140667_)) + _tl140596140664_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl140596140659_)) - (let ((_e140604140670_ + (gx#stx-pair? _tl140593140656_)) + (let ((_e140601140667_ (let () (declare (not safe)) - (gx#stx-e _tl140596140659_)))) - (let ((_tl140602140675_ + (gx#stx-e _tl140593140656_)))) + (let ((_tl140599140672_ (let () (declare (not safe)) - (##cdr _e140604140670_))) - (_hd140603140673_ + (##cdr _e140601140667_))) + (_hd140600140670_ (let () (declare (not safe)) - (##car _e140604140670_)))) + (##car _e140601140667_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140602140675_)) + (gx#stx-null? _tl140599140672_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140446141406_)) - (let ((_e140607140678_ + (gx#stx-pair? _tl140443141403_)) + (let ((_e140604140675_ (let () (declare (not safe)) - (gx#stx-e _tl140446141406_)))) - (let ((_tl140605140683_ + (gx#stx-e _tl140443141403_)))) + (let ((_tl140602140680_ (let () (declare (not safe)) - (##cdr _e140607140678_))) - (_hd140606140681_ + (##cdr _e140604140675_))) + (_hd140603140678_ (let () (declare (not safe)) - (##car _e140607140678_)))) + (##car _e140604140675_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140606140681_)) - (let ((_e140610140686_ + (gx#stx-pair? _hd140603140678_)) + (let ((_e140607140683_ (let () (declare (not safe)) (gx#stx-e - _hd140606140681_)))) - (let ((_tl140608140691_ + _hd140603140678_)))) + (let ((_tl140605140688_ (let () (declare (not safe)) - (##cdr _e140610140686_))) - (_hd140609140689_ + (##cdr _e140607140683_))) + (_hd140606140686_ (let () (declare (not safe)) - (##car _e140610140686_)))) + (##car _e140607140683_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd140609140689_)) + _hd140606140686_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd140609140689_)) + _hd140606140686_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140608140691_)) - (let ((_e140613140694_ + _tl140605140688_)) + (let ((_e140610140691_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl140608140691_)))) - (let ((_tl140611140699_ + (gx#stx-e _tl140605140688_)))) + (let ((_tl140608140696_ (let () (declare (not safe)) - (##cdr _e140613140694_))) - (_hd140612140697_ + (##cdr _e140610140691_))) + (_hd140609140694_ (let () (declare (not safe)) - (##car _e140613140694_)))) + (##car _e140610140691_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140611140699_)) + (gx#stx-null? _tl140608140696_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140605140683_)) - (___kont148508148509_ - _hd140612140697_ - _hd140603140673_ - _hd140600140665_) - (___kont148510148511_)) - (___kont148510148511_)))) - (___kont148510148511_)) + (gx#stx-null? _tl140602140680_)) + (___kont148505148506_ + _hd140609140694_ + _hd140600140670_ + _hd140597140662_) + (___kont148507148508_)) + (___kont148507148508_)))) + (___kont148507148508_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148510148511_)) - (___kont148510148511_)))) - (___kont148510148511_)))) - (___kont148510148511_)) - (___kont148510148511_)))) - (___kont148510148511_)) - (___kont148510148511_)))) + (___kont148507148508_)) + (___kont148507148508_)))) + (___kont148507148508_)))) + (___kont148507148508_)) + (___kont148507148508_)))) + (___kont148507148508_)) + (___kont148507148508_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148510148511_)))) - (___kont148510148511_)) - (___kont148510148511_))) - (___kont148510148511_)))) - (___kont148510148511_)))) + (___kont148507148508_)))) + (___kont148507148508_)) + (___kont148507148508_))) + (___kont148507148508_)))) + (___kont148507148508_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148510148511_)) - (___kont148510148511_)) - (___kont148510148511_)))) - (___kont148510148511_))))))))) - (_assert-type139425_ - (lambda (_id140324_ _t140325_) - (let _lp140327_ ((_rest140329_ _env-type139407_)) - (let* ((_rest140330140338_ _rest140329_) - (_else140332140346_ (lambda () '#!void)) - (_K140334140410_ - (lambda (_rest140349_ _type-info140350_) - (let* ((_type-info140351140363_ - _type-info140350_) - (_else140353140371_ + (___kont148507148508_)) + (___kont148507148508_)) + (___kont148507148508_)))) + (___kont148507148508_))))))))) + (_assert-type139422_ + (lambda (_id140321_ _t140322_) + (let _lp140324_ ((_rest140326_ _env-type139404_)) + (let* ((_rest140327140335_ _rest140326_) + (_else140329140343_ (lambda () '#!void)) + (_K140331140407_ + (lambda (_rest140346_ _type-info140347_) + (let* ((_type-info140348140360_ + _type-info140347_) + (_else140350140368_ (lambda () (let () (declare (not safe)) - (_lp140327_ _rest140349_)))) - (_K140355140386_ - (lambda (_val140374_ - _xt140375_ - _xid140376_) + (_lp140324_ _rest140346_)))) + (_K140352140383_ + (lambda (_val140371_ + _xt140372_ + _xid140373_) (if (let () (declare (not safe)) (gx#free-identifier=? - _id140324_ - _xid140376_)) + _id140321_ + _xid140373_)) (if (let () (declare (not safe)) - (eq? _t140325_ - _xt140375_)) - _val140374_ - (if _val140374_ + (eq? _t140322_ + _xt140372_)) + _val140371_ + (if _val140371_ (if (let () (declare (not safe)) (##structure-instance-of? - _t140325_ + _t140322_ 'gxc#!class::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##structure-instance-of? _xt140375_ 'gxc#!class::t)) - (memq _t140325_ - (map (lambda (_g140377140379_) + (##structure-instance-of? _xt140372_ 'gxc#!class::t)) + (memq _t140322_ + (map (lambda (_g140374140376_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _xt140375_ - _g140377140379_))) + _xt140372_ + _g140374140376_))) (##structure-ref - _xt140375_ + _xt140372_ '3 gxc#!class::t '#f))) @@ -11207,3511 +11207,3511 @@ '#f) (if (and (let () (declare (not safe)) - (##structure-instance-of? _t140325_ 'gxc#!class::t)) + (##structure-instance-of? _t140322_ 'gxc#!class::t)) (let () (declare (not safe)) - (##structure-instance-of? _xt140375_ 'gxc#!class::t)) - (memq _xt140375_ - (map (lambda (_g140381140383_) + (##structure-instance-of? _xt140372_ 'gxc#!class::t)) + (memq _xt140372_ + (map (lambda (_g140378140380_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _t140325_ - _g140381140383_))) + _t140322_ + _g140378140380_))) (##structure-ref - _t140325_ + _t140322_ '3 gxc#!class::t '#f)))) '#f - (let () (declare (not safe)) (_lp140327_ _rest140349_))))) + (let () (declare (not safe)) (_lp140324_ _rest140346_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp140327_ _rest140349_)))))) + (_lp140324_ _rest140346_)))))) (if (let () (declare (not safe)) - (##pair? _type-info140351140363_)) - (let ((_hd140356140389_ + (##pair? _type-info140348140360_)) + (let ((_hd140353140386_ (let () (declare (not safe)) - (##car _type-info140351140363_))) - (_tl140357140391_ + (##car _type-info140348140360_))) + (_tl140354140388_ (let () (declare (not safe)) - (##cdr _type-info140351140363_)))) - (let ((_xid140394_ _hd140356140389_)) + (##cdr _type-info140348140360_)))) + (let ((_xid140391_ _hd140353140386_)) (if (let () (declare (not safe)) - (##pair? _tl140357140391_)) - (let ((_hd140358140396_ + (##pair? _tl140354140388_)) + (let ((_hd140355140393_ (let () (declare (not safe)) - (##car _tl140357140391_))) - (_tl140359140398_ + (##car _tl140354140388_))) + (_tl140356140395_ (let () (declare (not safe)) - (##cdr _tl140357140391_)))) - (let ((_xt140401_ - _hd140358140396_)) + (##cdr _tl140354140388_)))) + (let ((_xt140398_ + _hd140355140393_)) (if (let () (declare (not safe)) - (##pair? _tl140359140398_)) - (let ((_hd140360140403_ + (##pair? _tl140356140395_)) + (let ((_hd140357140400_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl140359140398_))) - (_tl140361140405_ - (let () (declare (not safe)) (##cdr _tl140359140398_)))) - (let ((_val140408_ _hd140360140403_)) - (if (let () (declare (not safe)) (##null? _tl140361140405_)) + (##car _tl140356140395_))) + (_tl140358140402_ + (let () (declare (not safe)) (##cdr _tl140356140395_)))) + (let ((_val140405_ _hd140357140400_)) + (if (let () (declare (not safe)) (##null? _tl140358140402_)) (let () (declare (not safe)) - (_K140355140386_ _val140408_ _xt140401_ _xid140394_)) - (let () (declare (not safe)) (_else140353140371_))))) - (let () (declare (not safe)) (_else140353140371_))))) + (_K140352140383_ _val140405_ _xt140398_ _xid140391_)) + (let () (declare (not safe)) (_else140350140368_))))) + (let () (declare (not safe)) (_else140350140368_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else140353140371_))))) + (_else140350140368_))))) (let () (declare (not safe)) - (_else140353140371_))))))) + (_else140350140368_))))))) (if (let () (declare (not safe)) - (##pair? _rest140330140338_)) - (let ((_hd140335140413_ + (##pair? _rest140327140335_)) + (let ((_hd140332140410_ (let () (declare (not safe)) - (##car _rest140330140338_))) - (_tl140336140415_ + (##car _rest140327140335_))) + (_tl140333140412_ (let () (declare (not safe)) - (##cdr _rest140330140338_)))) - (let* ((_type-info140418_ _hd140335140413_) - (_rest140420_ _tl140336140415_)) + (##cdr _rest140327140335_)))) + (let* ((_type-info140415_ _hd140332140410_) + (_rest140417_ _tl140333140412_)) (declare (not safe)) - (_K140334140410_ - _rest140420_ - _type-info140418_))) + (_K140331140407_ + _rest140417_ + _type-info140415_))) (let () (declare (not safe)) - (_else140332140346_))))))) - (_assert-count139426_ - (lambda (_id140223_ _sym140224_ _count140225_) - (let _lp140227_ ((_rest140229_ _env-type139407_)) - (let* ((_rest140230140238_ _rest140229_) - (_else140232140246_ (lambda () '#!void)) - (_K140234140312_ - (lambda (_rest140249_ _type-info140250_) - (let* ((_type-info140251140265_ - _type-info140250_) - (_else140253140273_ + (_else140329140343_))))))) + (_assert-count139423_ + (lambda (_id140220_ _sym140221_ _count140222_) + (let _lp140224_ ((_rest140226_ _env-type139404_)) + (let* ((_rest140227140235_ _rest140226_) + (_else140229140243_ (lambda () '#!void)) + (_K140231140309_ + (lambda (_rest140246_ _type-info140247_) + (let* ((_type-info140248140262_ + _type-info140247_) + (_else140250140270_ (lambda () (let () (declare (not safe)) - (_lp140227_ _rest140249_)))) - (_K140255140281_ - (lambda (_val140276_ - _xcount140277_ - _xsym140278_ - _xid140279_) + (_lp140224_ _rest140246_)))) + (_K140252140278_ + (lambda (_val140273_ + _xcount140274_ + _xsym140275_ + _xid140276_) (if (and (let () (declare (not safe)) - (eq? _sym140224_ - _xsym140278_)) + (eq? _sym140221_ + _xsym140275_)) (let () (declare (not safe)) (gx#free-identifier=? - _id140223_ - _xid140279_))) - (if _val140276_ - (fx= _count140225_ - _xcount140277_) - (if (fx= _count140225_ - _xcount140277_) + _id140220_ + _xid140276_))) + (if _val140273_ + (fx= _count140222_ + _xcount140274_) + (if (fx= _count140222_ + _xcount140274_) '#f (let () (declare (not safe)) - (_lp140227_ - _rest140249_)))) + (_lp140224_ + _rest140246_)))) (let () (declare (not safe)) - (_lp140227_ _rest140249_)))))) + (_lp140224_ _rest140246_)))))) (if (let () (declare (not safe)) - (##pair? _type-info140251140265_)) - (let ((_hd140256140284_ + (##pair? _type-info140248140262_)) + (let ((_hd140253140281_ (let () (declare (not safe)) - (##car _type-info140251140265_))) - (_tl140257140286_ + (##car _type-info140248140262_))) + (_tl140254140283_ (let () (declare (not safe)) - (##cdr _type-info140251140265_)))) - (let ((_xid140289_ _hd140256140284_)) + (##cdr _type-info140248140262_)))) + (let ((_xid140286_ _hd140253140281_)) (if (let () (declare (not safe)) - (##pair? _tl140257140286_)) - (let ((_hd140258140291_ + (##pair? _tl140254140283_)) + (let ((_hd140255140288_ (let () (declare (not safe)) - (##car _tl140257140286_))) - (_tl140259140293_ + (##car _tl140254140283_))) + (_tl140256140290_ (let () (declare (not safe)) - (##cdr _tl140257140286_)))) - (let ((_xsym140296_ - _hd140258140291_)) + (##cdr _tl140254140283_)))) + (let ((_xsym140293_ + _hd140255140288_)) (if (let () (declare (not safe)) - (##pair? _tl140259140293_)) - (let ((_hd140260140298_ + (##pair? _tl140256140290_)) + (let ((_hd140257140295_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl140259140293_))) - (_tl140261140300_ - (let () (declare (not safe)) (##cdr _tl140259140293_)))) - (let ((_xcount140303_ _hd140260140298_)) - (if (let () (declare (not safe)) (##pair? _tl140261140300_)) - (let ((_hd140262140305_ + (##car _tl140256140290_))) + (_tl140258140297_ + (let () (declare (not safe)) (##cdr _tl140256140290_)))) + (let ((_xcount140300_ _hd140257140295_)) + (if (let () (declare (not safe)) (##pair? _tl140258140297_)) + (let ((_hd140259140302_ (let () (declare (not safe)) - (##car _tl140261140300_))) - (_tl140263140307_ + (##car _tl140258140297_))) + (_tl140260140304_ (let () (declare (not safe)) - (##cdr _tl140261140300_)))) - (let ((_val140310_ _hd140262140305_)) + (##cdr _tl140258140297_)))) + (let ((_val140307_ _hd140259140302_)) (if (let () (declare (not safe)) - (##null? _tl140263140307_)) + (##null? _tl140260140304_)) (let () (declare (not safe)) - (_K140255140281_ - _val140310_ - _xcount140303_ - _xsym140296_ - _xid140289_)) + (_K140252140278_ + _val140307_ + _xcount140300_ + _xsym140293_ + _xid140286_)) (let () (declare (not safe)) - (_else140253140273_))))) - (let () (declare (not safe)) (_else140253140273_))))) - (let () (declare (not safe)) (_else140253140273_))))) + (_else140250140270_))))) + (let () (declare (not safe)) (_else140250140270_))))) + (let () (declare (not safe)) (_else140250140270_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else140253140273_))))) + (_else140250140270_))))) (let () (declare (not safe)) - (_else140253140273_))))))) + (_else140250140270_))))))) (if (let () (declare (not safe)) - (##pair? _rest140230140238_)) - (let ((_hd140235140315_ + (##pair? _rest140227140235_)) + (let ((_hd140232140312_ (let () (declare (not safe)) - (##car _rest140230140238_))) - (_tl140236140317_ + (##car _rest140227140235_))) + (_tl140233140314_ (let () (declare (not safe)) - (##cdr _rest140230140238_)))) - (let* ((_type-info140320_ _hd140235140315_) - (_rest140322_ _tl140236140317_)) + (##cdr _rest140227140235_)))) + (let* ((_type-info140317_ _hd140232140312_) + (_rest140319_ _tl140233140314_)) (declare (not safe)) - (_K140234140312_ - _rest140322_ - _type-info140320_))) + (_K140231140309_ + _rest140319_ + _type-info140317_))) (let () (declare (not safe)) - (_else140232140246_))))))) - (_assert-eqf139427_ - (lambda (_id140113_ _sym140114_ _datum140115_) - (letrec ((_eqf140117_ - (lambda (_sym140218_) - (let ((_$e140220_ _sym140218_)) + (_else140229140243_))))))) + (_assert-eqf139424_ + (lambda (_id140110_ _sym140111_ _datum140112_) + (letrec ((_eqf140114_ + (lambda (_sym140215_) + (let ((_$e140217_ _sym140215_)) (if (let () (declare (not safe)) - (eq? 'eq? _$e140220_)) + (eq? 'eq? _$e140217_)) eq? (if (let () (declare (not safe)) - (eq? 'eqv? _$e140220_)) + (eq? 'eqv? _$e140217_)) eqv? (if (let () (declare (not safe)) - (eq? 'equal? _$e140220_)) + (eq? 'equal? _$e140217_)) equal? (if (let () (declare (not safe)) (eq? 'free-identifier=? - _$e140220_)) + _$e140217_)) gx#free-identifier=? (if (let () (declare (not safe)) (eq? 'stx-eq? - _$e140220_)) + _$e140217_)) gx#stx-eq? (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected eqf symbol" - _body139168_ - _sym140218_))))))))))) - (let _lp140119_ ((_rest140121_ _env-type139407_)) - (let* ((_rest140122140130_ _rest140121_) - (_else140124140138_ (lambda () '#!void)) - (_K140126140206_ - (lambda (_rest140141_ _type-info140142_) - (let* ((_type-info140143140157_ - _type-info140142_) - (_else140145140165_ + _body139165_ + _sym140215_))))))))))) + (let _lp140116_ ((_rest140118_ _env-type139404_)) + (let* ((_rest140119140127_ _rest140118_) + (_else140121140135_ (lambda () '#!void)) + (_K140123140203_ + (lambda (_rest140138_ _type-info140139_) + (let* ((_type-info140140140154_ + _type-info140139_) + (_else140142140162_ (lambda () (let () (declare (not safe)) - (_lp140119_ _rest140141_)))) - (_K140147140175_ - (lambda (_val140168_ - _xdatum140169_ - _xsym140170_ - _xid140171_) + (_lp140116_ _rest140138_)))) + (_K140144140172_ + (lambda (_val140165_ + _xdatum140166_ + _xsym140167_ + _xid140168_) (if (and (let () (declare (not safe)) - (eq? _sym140114_ - _xsym140170_)) + (eq? _sym140111_ + _xsym140167_)) (let () (declare (not safe)) (gx#free-identifier=? - _id140113_ - _xid140171_))) - (let ((_=?140173_ + _id140110_ + _xid140168_))) + (let ((_=?140170_ (let () (declare (not safe)) - (_eqf140117_ - _sym140114_)))) - (if _val140168_ - (_=?140173_ - _datum140115_ - _xdatum140169_) - (if (_=?140173_ - _datum140115_ - _xdatum140169_) + (_eqf140114_ + _sym140111_)))) + (if _val140165_ + (_=?140170_ + _datum140112_ + _xdatum140166_) + (if (_=?140170_ + _datum140112_ + _xdatum140166_) '#f (let () (declare (not safe)) - (_lp140119_ - _rest140141_))))) + (_lp140116_ + _rest140138_))))) (let () (declare (not safe)) - (_lp140119_ - _rest140141_)))))) + (_lp140116_ + _rest140138_)))))) (if (let () (declare (not safe)) - (##pair? _type-info140143140157_)) - (let ((_hd140148140178_ + (##pair? _type-info140140140154_)) + (let ((_hd140145140175_ (let () (declare (not safe)) - (##car _type-info140143140157_))) - (_tl140149140180_ + (##car _type-info140140140154_))) + (_tl140146140177_ (let () (declare (not safe)) - (##cdr _type-info140143140157_)))) - (let ((_xid140183_ - _hd140148140178_)) + (##cdr _type-info140140140154_)))) + (let ((_xid140180_ + _hd140145140175_)) (if (let () (declare (not safe)) - (##pair? _tl140149140180_)) - (let ((_hd140150140185_ + (##pair? _tl140146140177_)) + (let ((_hd140147140182_ (let () (declare (not safe)) - (##car _tl140149140180_))) - (_tl140151140187_ + (##car _tl140146140177_))) + (_tl140148140184_ (let () (declare (not safe)) - (##cdr _tl140149140180_)))) - (let ((_xsym140190_ - _hd140150140185_)) + (##cdr _tl140146140177_)))) + (let ((_xsym140187_ + _hd140147140182_)) (if (let () (declare (not safe)) - (##pair? _tl140151140187_)) - (let ((_hd140152140192_ + (##pair? _tl140148140184_)) + (let ((_hd140149140189_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _tl140151140187_))) - (_tl140153140194_ + (##car _tl140148140184_))) + (_tl140150140191_ (let () (declare (not safe)) - (##cdr _tl140151140187_)))) - (let ((_xdatum140197_ _hd140152140192_)) + (##cdr _tl140148140184_)))) + (let ((_xdatum140194_ _hd140149140189_)) (if (let () (declare (not safe)) - (##pair? _tl140153140194_)) - (let ((_hd140154140199_ + (##pair? _tl140150140191_)) + (let ((_hd140151140196_ (let () (declare (not safe)) - (##car _tl140153140194_))) - (_tl140155140201_ + (##car _tl140150140191_))) + (_tl140152140198_ (let () (declare (not safe)) - (##cdr _tl140153140194_)))) - (let ((_val140204_ _hd140154140199_)) + (##cdr _tl140150140191_)))) + (let ((_val140201_ _hd140151140196_)) (if (let () (declare (not safe)) - (##null? _tl140155140201_)) + (##null? _tl140152140198_)) (let () (declare (not safe)) - (_K140147140175_ - _val140204_ - _xdatum140197_ - _xsym140190_ - _xid140183_)) + (_K140144140172_ + _val140201_ + _xdatum140194_ + _xsym140187_ + _xid140180_)) (let () (declare (not safe)) - (_else140145140165_))))) - (let () (declare (not safe)) (_else140145140165_))))) - (let () (declare (not safe)) (_else140145140165_))))) + (_else140142140162_))))) + (let () (declare (not safe)) (_else140142140162_))))) + (let () (declare (not safe)) (_else140142140162_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else140145140165_))))) + (_else140142140162_))))) (let () (declare (not safe)) - (_else140145140165_))))))) + (_else140142140162_))))))) (if (let () (declare (not safe)) - (##pair? _rest140122140130_)) - (let ((_hd140127140209_ + (##pair? _rest140119140127_)) + (let ((_hd140124140206_ (let () (declare (not safe)) - (##car _rest140122140130_))) - (_tl140128140211_ + (##car _rest140119140127_))) + (_tl140125140208_ (let () (declare (not safe)) - (##cdr _rest140122140130_)))) - (let* ((_type-info140214_ _hd140127140209_) - (_rest140216_ _tl140128140211_)) + (##cdr _rest140119140127_)))) + (let* ((_type-info140211_ _hd140124140206_) + (_rest140213_ _tl140125140208_)) (declare (not safe)) - (_K140126140206_ - _rest140216_ - _type-info140214_))) + (_K140123140203_ + _rest140213_ + _type-info140211_))) (let () (declare (not safe)) - (_else140124140138_)))))))) - (_bind-e__146879146880_ - (lambda (_bind140016_ _body140017_ _continue140018_) - (let _lp140020_ ((_rest140022_ _bind140016_) - (_subst140023_ '()) - (_locals140024_ '()) - (_env140025_ _env-bind139408_)) - (let* ((_rest140026140034_ _rest140022_) - (_else140028140048_ + (_else140121140135_)))))))) + (_bind-e__146876146877_ + (lambda (_bind140013_ _body140014_ _continue140015_) + (let _lp140017_ ((_rest140019_ _bind140013_) + (_subst140020_ '()) + (_locals140021_ '()) + (_env140022_ _env-bind139405_)) + (let* ((_rest140023140031_ _rest140019_) + (_else140025140045_ (lambda () - (let* ((_body140042_ + (let* ((_body140039_ (if (let () (declare (not safe)) - (null? _subst140023_)) - _body140017_ + (null? _subst140020_)) + _body140014_ (let () (declare (not safe)) (gxc#apply-expression-subst* - _body140017_ - _subst140023_)))) - (_body140045_ - (let ((__tmp150320 + _body140014_ + _subst140020_)))) + (_body140042_ + (let ((__tmp150317 (lambda () - (_continue140018_ - _body140042_)))) + (_continue140015_ + _body140039_)))) (declare (not safe)) - (_do-bind!139419_ - _env140025_ - __tmp150320)))) + (_do-bind!139416_ + _env140022_ + __tmp150317)))) (if (let () (declare (not safe)) - (null? _locals140024_)) - _body140045_ - (let ((__tmp150321 - (let ((__tmp150322 + (null? _locals140021_)) + _body140042_ + (let ((__tmp150318 + (let ((__tmp150319 (let () (declare (not safe)) - (cons _body140045_ + (cons _body140042_ '())))) (declare (not safe)) - (cons _locals140024_ - __tmp150322)))) + (cons _locals140021_ + __tmp150319)))) (declare (not safe)) - (cons '%#let-values __tmp150321)))))) - (_K140030140089_ - (lambda (_rest140051_ _bind140052_) - (let* ((_bind140053140060_ _bind140052_) - (_E140055140064_ + (cons '%#let-values __tmp150318)))))) + (_K140027140086_ + (lambda (_rest140048_ _bind140049_) + (let* ((_bind140050140057_ _bind140049_) + (_E140052140061_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _bind140053140060_)))) - (_K140056140077_ - (lambda (_expr140067_ _id140068_) - (let* ((_sexpr140070_ + _bind140050140057_)))) + (_K140053140074_ + (lambda (_expr140064_ _id140065_) + (let* ((_sexpr140067_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr140067_))) - (_$e140072_ + _expr140064_))) + (_$e140069_ (let () (declare (not safe)) (assget__0 - _sexpr140070_ - _env-bind139408_)))) - (if _$e140072_ - ((lambda (_xid140075_) - (let ((__tmp150329 - (let ((__tmp150330 + _sexpr140067_ + _env-bind139405_)))) + (if _$e140069_ + ((lambda (_xid140072_) + (let ((__tmp150326 + (let ((__tmp150327 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id140068_ _xid140075_)))) + (cons _id140065_ _xid140072_)))) (declare (not safe)) - (cons __tmp150330 _subst140023_)))) + (cons __tmp150327 _subst140020_)))) (declare (not safe)) - (_lp140020_ - _rest140051_ - __tmp150329 - _locals140024_ - _env140025_))) + (_lp140017_ + _rest140048_ + __tmp150326 + _locals140021_ + _env140022_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e140072_) - (let ((__tmp150325 - (let ((__tmp150326 - (let ((__tmp150328 + _$e140069_) + (let ((__tmp150322 + (let ((__tmp150323 + (let ((__tmp150325 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id140068_ '()))) - (__tmp150327 + (cons _id140065_ '()))) + (__tmp150324 (let () (declare (not safe)) - (cons _expr140067_ '())))) + (cons _expr140064_ '())))) (declare (not safe)) - (cons __tmp150328 __tmp150327)))) + (cons __tmp150325 __tmp150324)))) (declare (not safe)) - (cons __tmp150326 _locals140024_))) - (__tmp150323 - (let ((__tmp150324 + (cons __tmp150323 _locals140021_))) + (__tmp150320 + (let ((__tmp150321 (let () (declare (not safe)) - (cons _sexpr140070_ _id140068_)))) + (cons _sexpr140067_ _id140065_)))) (declare (not safe)) - (cons __tmp150324 _env140025_)))) + (cons __tmp150321 _env140022_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp140020_ - _rest140051_ - _subst140023_ - __tmp150325 - __tmp150323))))))) + (_lp140017_ + _rest140048_ + _subst140020_ + __tmp150322 + __tmp150320))))))) (if (let () (declare (not safe)) - (##pair? _bind140053140060_)) - (let ((_hd140057140080_ + (##pair? _bind140050140057_)) + (let ((_hd140054140077_ (let () (declare (not safe)) - (##car _bind140053140060_))) - (_tl140058140082_ + (##car _bind140050140057_))) + (_tl140055140079_ (let () (declare (not safe)) - (##cdr _bind140053140060_)))) - (let* ((_id140085_ _hd140057140080_) - (_expr140087_ - _tl140058140082_)) + (##cdr _bind140050140057_)))) + (let* ((_id140082_ _hd140054140077_) + (_expr140084_ + _tl140055140079_)) (declare (not safe)) - (_K140056140077_ - _expr140087_ - _id140085_))) + (_K140053140074_ + _expr140084_ + _id140082_))) (let () (declare (not safe)) - (_E140055140064_))))))) + (_E140052140061_))))))) (if (let () (declare (not safe)) - (##pair? _rest140026140034_)) - (let ((_hd140031140092_ + (##pair? _rest140023140031_)) + (let ((_hd140028140089_ (let () (declare (not safe)) - (##car _rest140026140034_))) - (_tl140032140094_ + (##car _rest140023140031_))) + (_tl140029140091_ (let () (declare (not safe)) - (##cdr _rest140026140034_)))) - (let* ((_bind140097_ _hd140031140092_) - (_rest140099_ _tl140032140094_)) + (##cdr _rest140023140031_)))) + (let* ((_bind140094_ _hd140028140089_) + (_rest140096_ _tl140029140091_)) (declare (not safe)) - (_K140030140089_ _rest140099_ _bind140097_))) + (_K140027140086_ _rest140096_ _bind140094_))) (let () (declare (not safe)) - (_else140028140048_))))))) - (_bind-e__0__146881146882_ - (lambda (_bind140104_ _body140105_) - (let ((_continue140107_ _optimize-e139421_)) + (_else140025140045_))))))) + (_bind-e__0__146878146879_ + (lambda (_bind140101_ _body140102_) + (let ((_continue140104_ _optimize-e139418_)) (declare (not safe)) - (_bind-e__146879146880_ - _bind140104_ - _body140105_ - _continue140107_)))) - (_bind-e139428_ - (lambda _g150332_ - (let ((_g150331_ + (_bind-e__146876146877_ + _bind140101_ + _body140102_ + _continue140104_)))) + (_bind-e139425_ + (lambda _g150329_ + (let ((_g150328_ (let () (declare (not safe)) - (##length _g150332_)))) - (cond ((let () (declare (not safe)) (##fx= _g150331_ 2)) - (apply (lambda (_bind140104_ _body140105_) + (##length _g150329_)))) + (cond ((let () (declare (not safe)) (##fx= _g150328_ 2)) + (apply (lambda (_bind140101_ _body140102_) (let () (declare (not safe)) - (_bind-e__0__146881146882_ - _bind140104_ - _body140105_))) - _g150332_)) - ((let () (declare (not safe)) (##fx= _g150331_ 3)) - (apply (lambda (_bind140109_ - _body140110_ - _continue140111_) + (_bind-e__0__146878146879_ + _bind140101_ + _body140102_))) + _g150329_)) + ((let () (declare (not safe)) (##fx= _g150328_ 3)) + (apply (lambda (_bind140106_ + _body140107_ + _continue140108_) (let () (declare (not safe)) - (_bind-e__146879146880_ - _bind140109_ - _body140110_ - _continue140111_))) - _g150332_)) + (_bind-e__146876146877_ + _bind140106_ + _body140107_ + _continue140108_))) + _g150329_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g150332_)))))) - (_lookup-block139429_ - (lambda (_id140011_) - (let ((__tmp150333 - (lambda (_block140013_) - (let ((__tmp150334 (car _block140013_))) + _g150329_)))))) + (_lookup-block139426_ + (lambda (_id140008_) + (let ((__tmp150330 + (lambda (_block140010_) + (let ((__tmp150331 (car _block140010_))) (declare (not safe)) (gx#free-identifier=? - __tmp150334 - _id140011_))))) + __tmp150331 + _id140008_))))) (declare (not safe)) - (find __tmp150333 _blocks139171_)))) - (_inline-block139430_ - (lambda (_block139887_ _args139888_) - (let* ((_kont139890_ (caddr _block139887_)) - (_g139892139918_ - (lambda (_g139893139915_) + (find __tmp150330 _blocks139168_)))) + (_inline-block139427_ + (lambda (_block139884_ _args139885_) + (let* ((_kont139887_ (caddr _block139884_)) + (_g139889139915_ + (lambda (_g139890139912_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g139893139915_)))) - (_g139891140008_ - (lambda (_g139893139921_) + _g139890139912_)))) + (_g139888140005_ + (lambda (_g139890139918_) (if (let () (declare (not safe)) - (gx#stx-pair? _g139893139921_)) - (let ((_e139898139923_ + (gx#stx-pair? _g139890139918_)) + (let ((_e139895139920_ (let () (declare (not safe)) - (gx#stx-e _g139893139921_)))) - (let ((_hd139897139926_ + (gx#stx-e _g139890139918_)))) + (let ((_hd139894139923_ (let () (declare (not safe)) - (##car _e139898139923_))) - (_tl139896139928_ + (##car _e139895139920_))) + (_tl139893139925_ (let () (declare (not safe)) - (##cdr _e139898139923_)))) + (##cdr _e139895139920_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139897139926_)) + (gx#identifier? _hd139894139923_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd139897139926_)) + _hd139894139923_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139896139928_)) - (let ((_e139901139931_ + _tl139893139925_)) + (let ((_e139898139928_ (let () (declare (not safe)) (gx#stx-e - _tl139896139928_)))) - (let ((_hd139900139934_ + _tl139893139925_)))) + (let ((_hd139897139931_ (let () (declare (not safe)) - (##car _e139901139931_))) - (_tl139899139936_ + (##car _e139898139928_))) + (_tl139896139933_ (let () (declare (not safe)) - (##cdr _e139901139931_)))) + (##cdr _e139898139928_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd139900139934_)) - (let ((_g150335_ + _hd139897139931_)) + (let ((_g150332_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd139900139934_ '0)))) + (gx#syntax-split-splice _hd139897139931_ '0)))) (begin - (let ((_g150336_ + (let ((_g150333_ (let () (declare (not safe)) - (if (##values? _g150335_) - (##vector-length _g150335_) + (if (##values? _g150332_) + (##vector-length _g150332_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150336_ 2))) - (error "Context expects 2 values" _g150336_))) - (let ((_target139902139939_ + (##fx= _g150333_ 2))) + (error "Context expects 2 values" _g150333_))) + (let ((_target139899139936_ (let () (declare (not safe)) - (##vector-ref _g150335_ 0))) - (_tl139904139941_ + (##vector-ref _g150332_ 0))) + (_tl139901139938_ (let () (declare (not safe)) - (##vector-ref _g150335_ 1)))) + (##vector-ref _g150332_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139904139941_)) - (letrec ((_loop139905139944_ - (lambda (_hd139903139947_ - _id139909139949_) + (gx#stx-null? _tl139901139938_)) + (letrec ((_loop139902139941_ + (lambda (_hd139900139944_ + _id139906139946_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139903139947_)) - (let ((_e139906139952_ + (gx#stx-pair? _hd139900139944_)) + (let ((_e139903139949_ (let () (declare (not safe)) (gx#stx-e - _hd139903139947_)))) - (let ((_lp-hd139907139955_ + _hd139900139944_)))) + (let ((_lp-hd139904139952_ (let () (declare (not safe)) - (##car _e139906139952_))) - (_lp-tl139908139957_ + (##car _e139903139949_))) + (_lp-tl139905139954_ (let () (declare (not safe)) - (##cdr _e139906139952_)))) - (let ((__tmp150340 + (##cdr _e139903139949_)))) + (let ((__tmp150337 (let () (declare (not safe)) - (cons _lp-hd139907139955_ - _id139909139949_)))) + (cons _lp-hd139904139952_ + _id139906139946_)))) (declare (not safe)) - (_loop139905139944_ - _lp-tl139908139957_ - __tmp150340)))) - (let ((_id139910139960_ - (reverse _id139909139949_))) + (_loop139902139941_ + _lp-tl139905139954_ + __tmp150337)))) + (let ((_id139907139957_ + (reverse _id139906139946_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139899139936_)) - (let ((_e139913139963_ + _tl139896139933_)) + (let ((_e139910139960_ (let () (declare (not safe)) (gx#stx-e - _tl139899139936_)))) - (let ((_hd139912139966_ + _tl139896139933_)))) + (let ((_hd139909139963_ (let () (declare (not safe)) - (##car _e139913139963_))) - (_tl139911139968_ + (##car _e139910139960_))) + (_tl139908139965_ (let () (declare (not safe)) - (##cdr _e139913139963_)))) + (##cdr _e139910139960_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139911139968_)) - ((lambda (_L139971_ + _tl139908139965_)) + ((lambda (_L139968_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L139972_) - (if (let ((__tmp150338 - (let ((__tmp150339 - (lambda (_g139991139994_ - _g139992139996_) + _L139969_) + (if (let ((__tmp150335 + (let ((__tmp150336 + (lambda (_g139988139991_ + _g139989139993_) (let () (declare (not safe)) - (cons _g139991139994_ - _g139992139996_))))) + (cons _g139988139991_ + _g139989139993_))))) (declare (not safe)) - (foldr1 __tmp150339 '() _L139972_)))) + (foldr1 __tmp150336 '() _L139969_)))) (declare (not safe)) - (null? __tmp150338)) - _L139971_ - (let ((_subst140006_ + (null? __tmp150335)) + _L139968_ + (let ((_subst140003_ (map cons - (let ((__tmp150337 - (lambda (_g139998140001_ - _g139999140003_) + (let ((__tmp150334 + (lambda (_g139995139998_ + _g139996140000_) (let () (declare (not safe)) - (cons _g139998140001_ - _g139999140003_))))) + (cons _g139995139998_ + _g139996140000_))))) (declare (not safe)) - (foldr1 __tmp150337 '() _L139972_)) - _args139888_))) + (foldr1 __tmp150334 '() _L139969_)) + _args139885_))) (declare (not safe)) (gxc#apply-expression-subst* - _L139971_ - _subst140006_)))) - _hd139912139966_ - _id139910139960_) + _L139968_ + _subst140003_)))) + _hd139909139963_ + _id139907139957_) (let () (declare (not safe)) - (_g139892139918_ _g139893139921_))))) + (_g139889139915_ _g139890139918_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139892139918_ - _g139893139921_)))))))) + (_g139889139915_ + _g139890139918_)))))))) (let () (declare (not safe)) - (_loop139905139944_ - _target139902139939_ + (_loop139902139941_ + _target139899139936_ '()))) (let () (declare (not safe)) - (_g139892139918_ _g139893139921_)))))) + (_g139889139915_ _g139890139918_)))))) (let () (declare (not safe)) - (_g139892139918_ _g139893139921_))))) + (_g139889139915_ _g139890139918_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139892139918_ - _g139893139921_))) + (_g139889139915_ + _g139890139918_))) (let () (declare (not safe)) - (_g139892139918_ - _g139893139921_))) + (_g139889139915_ + _g139890139918_))) (let () (declare (not safe)) - (_g139892139918_ - _g139893139921_))))) + (_g139889139915_ + _g139890139918_))))) (let () (declare (not safe)) - (_g139892139918_ _g139893139921_)))))) + (_g139889139915_ _g139890139918_)))))) (declare (not safe)) - (_g139891140008_ _kont139890_)))) - (_nonlinear-block?139431_ - (lambda (_block139436_) - (letrec ((_nonlinear-expr?139438_ - (lambda (_expr139546_) - (let* ((___stx148966148967_ _expr139546_) - (_g139552139618_ + (_g139888140005_ _kont139887_)))) + (_nonlinear-block?139428_ + (lambda (_block139433_) + (letrec ((_nonlinear-expr?139435_ + (lambda (_expr139543_) + (let* ((___stx148963148964_ _expr139543_) + (_g139549139615_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148966148967_))))) - (let ((___kont148968148969_ (lambda () '#t)) - (___kont148970148971_ - (lambda (_L139817_) - (let* ((___stx148948148949_ - _L139817_) - (_g139835139844_ + ___stx148963148964_))))) + (let ((___kont148965148966_ (lambda () '#t)) + (___kont148967148968_ + (lambda (_L139814_) + (let* ((___stx148945148946_ + _L139814_) + (_g139832139841_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148948148949_))))) - (let ((___kont148950148951_ + ___stx148945148946_))))) + (let ((___kont148947148948_ (lambda () '#f)) - (___kont148952148953_ + (___kont148949148950_ (lambda () '#t))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx148948148949_)) - (let ((_e139839139856_ + ___stx148945148946_)) + (let ((_e139836139853_ (let () (declare (not safe)) (gx#stx-e - ___stx148948148949_)))) - (let ((_tl139837139861_ + ___stx148945148946_)))) + (let ((_tl139834139858_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e139839139856_))) - (_hd139838139859_ - (let () (declare (not safe)) (##car _e139839139856_)))) + (##cdr _e139836139853_))) + (_hd139835139856_ + (let () (declare (not safe)) (##car _e139836139853_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139838139859_)) + (gx#identifier? _hd139835139856_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd139838139859_)) - (___kont148950148951_) - (___kont148952148953_)) - (___kont148952148953_)))) + (gx#stx-eq? '%#call _hd139835139856_)) + (___kont148947148948_) + (___kont148949148950_)) + (___kont148949148950_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148952148953_)))))) - (___kont148974148975_ - (lambda (_L139715_) + (___kont148949148950_)))))) + (___kont148971148972_ + (lambda (_L139712_) (let () (declare (not safe)) - (_nonlinear-expr?139438_ - _L139715_)))) - (___kont148976148977_ - (lambda (_L139662_ - _L139663_ - _L139664_) - (let ((_$e139683_ + (_nonlinear-expr?139435_ + _L139712_)))) + (___kont148973148974_ + (lambda (_L139659_ + _L139660_ + _L139661_) + (let ((_$e139680_ (let () (declare (not safe)) - (_nonlinear-expr?139438_ - _L139663_)))) - (if _$e139683_ - _$e139683_ + (_nonlinear-expr?139435_ + _L139660_)))) + (if _$e139680_ + _$e139680_ (let () (declare (not safe)) - (_nonlinear-expr?139438_ - _L139662_)))))) - (___kont148978148979_ + (_nonlinear-expr?139435_ + _L139659_)))))) + (___kont148975148976_ (lambda () '#f))) - (let* ((___match149029149030_ - (lambda (_e139592139691_ - _hd139591139694_ - _tl139590139696_ - _e139595139699_ - _hd139594139702_ - _tl139593139704_) + (let* ((___match149026149027_ + (lambda (_e139589139688_ + _hd139588139691_ + _tl139587139693_ + _e139592139696_ + _hd139591139699_ + _tl139590139701_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139593139704_)) - (let ((_e139598139707_ + _tl139590139701_)) + (let ((_e139595139704_ (let () (declare (not safe)) (gx#stx-e - _tl139593139704_)))) - (let ((_tl139596139712_ + _tl139590139701_)))) + (let ((_tl139593139709_ (let () (declare (not safe)) - (##cdr _e139598139707_))) - (_hd139597139710_ + (##cdr _e139595139704_))) + (_hd139594139707_ (let () (declare (not safe)) - (##car _e139598139707_)))) + (##car _e139595139704_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139596139712_)) - (___kont148974148975_ - _hd139597139710_) - (___kont148978148979_)))) - (___kont148978148979_)))) - (___match149013149014_ - (lambda (_e139560139733_ - _hd139559139736_ - _tl139558139738_ - _e139563139741_ - _hd139562139744_ - _tl139561139746_ - ___splice148972148973_ - _target139564139749_ - _tl139566139751_) - (letrec ((_loop139567139754_ - (lambda (_hd139565139757_) + _tl139593139709_)) + (___kont148971148972_ + _hd139594139707_) + (___kont148975148976_)))) + (___kont148975148976_)))) + (___match149010149011_ + (lambda (_e139557139730_ + _hd139556139733_ + _tl139555139735_ + _e139560139738_ + _hd139559139741_ + _tl139558139743_ + ___splice148969148970_ + _target139561139746_ + _tl139563139748_) + (letrec ((_loop139564139751_ + (lambda (_hd139562139754_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _hd139565139757_)) - (let ((_e139568139760_ + (gx#stx-pair? _hd139562139754_)) + (let ((_e139565139757_ (let () (declare (not safe)) - (gx#stx-e _hd139565139757_)))) - (let ((_lp-tl139570139765_ + (gx#stx-e _hd139562139754_)))) + (let ((_lp-tl139567139762_ (let () (declare (not safe)) - (##cdr _e139568139760_))) - (_lp-hd139569139763_ + (##cdr _e139565139757_))) + (_lp-hd139566139760_ (let () (declare (not safe)) - (##car _e139568139760_)))) + (##car _e139565139757_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd139569139763_)) - (let ((_e139573139768_ + (gx#stx-pair? _lp-hd139566139760_)) + (let ((_e139570139765_ (let () (declare (not safe)) - (gx#stx-e _lp-hd139569139763_)))) - (let ((_tl139571139773_ + (gx#stx-e _lp-hd139566139760_)))) + (let ((_tl139568139770_ (let () (declare (not safe)) - (##cdr _e139573139768_))) - (_hd139572139771_ + (##cdr _e139570139765_))) + (_hd139569139768_ (let () (declare (not safe)) - (##car _e139573139768_)))) + (##car _e139570139765_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139572139771_)) - (let ((_e139576139776_ + (gx#stx-pair? _hd139569139768_)) + (let ((_e139573139773_ (let () (declare (not safe)) - (gx#stx-e _hd139572139771_)))) - (let ((_tl139574139781_ + (gx#stx-e _hd139569139768_)))) + (let ((_tl139571139778_ (let () (declare (not safe)) - (##cdr _e139576139776_))) - (_hd139575139779_ + (##cdr _e139573139773_))) + (_hd139572139776_ (let () (declare (not safe)) - (##car _e139576139776_)))) + (##car _e139573139773_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139574139781_)) + _tl139571139778_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139571139773_)) - (let ((_e139579139784_ + _tl139568139770_)) + (let ((_e139576139781_ (let () (declare (not safe)) (gx#stx-e - _tl139571139773_)))) - (let ((_tl139577139789_ + _tl139568139770_)))) + (let ((_tl139574139786_ (let () (declare (not safe)) - (##cdr _e139579139784_))) - (_hd139578139787_ + (##cdr _e139576139781_))) + (_hd139575139784_ (let () (declare (not safe)) - (##car _e139579139784_)))) + (##car _e139576139781_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd139578139787_)) - (let ((_e139582139792_ + _hd139575139784_)) + (let ((_e139579139789_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd139578139787_)))) - (let ((_tl139580139797_ + (gx#stx-e _hd139575139784_)))) + (let ((_tl139577139794_ (let () (declare (not safe)) - (##cdr _e139582139792_))) - (_hd139581139795_ + (##cdr _e139579139789_))) + (_hd139578139792_ (let () (declare (not safe)) - (##car _e139582139792_)))) + (##car _e139579139789_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139581139795_)) + (gx#identifier? _hd139578139792_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd139581139795_)) + (gx#stx-eq? '%#ref _hd139578139792_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139580139797_)) - (let ((_e139585139800_ + (gx#stx-pair? _tl139577139794_)) + (let ((_e139582139797_ (let () (declare (not safe)) - (gx#stx-e _tl139580139797_)))) - (let ((_tl139583139805_ + (gx#stx-e _tl139577139794_)))) + (let ((_tl139580139802_ (let () (declare (not safe)) - (##cdr _e139585139800_))) - (_hd139584139803_ + (##cdr _e139582139797_))) + (_hd139581139800_ (let () (declare (not safe)) - (##car _e139585139800_)))) + (##car _e139582139797_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139583139805_)) + (gx#stx-null? _tl139580139802_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl139577139789_)) + _tl139574139786_)) (let () (declare (not safe)) - (_loop139567139754_ - _lp-tl139570139765_)) - (___match149029149030_ - _e139560139733_ - _hd139559139736_ - _tl139558139738_ - _e139563139741_ - _hd139562139744_ - _tl139561139746_)) - (___match149029149030_ - _e139560139733_ - _hd139559139736_ - _tl139558139738_ - _e139563139741_ - _hd139562139744_ - _tl139561139746_)))) - (___match149029149030_ - _e139560139733_ - _hd139559139736_ - _tl139558139738_ - _e139563139741_ - _hd139562139744_ - _tl139561139746_)) - (___match149029149030_ - _e139560139733_ - _hd139559139736_ - _tl139558139738_ - _e139563139741_ - _hd139562139744_ - _tl139561139746_)) - (___match149029149030_ - _e139560139733_ - _hd139559139736_ - _tl139558139738_ - _e139563139741_ - _hd139562139744_ - _tl139561139746_)))) - (___match149029149030_ - _e139560139733_ - _hd139559139736_ - _tl139558139738_ - _e139563139741_ - _hd139562139744_ - _tl139561139746_)))) + (_loop139564139751_ + _lp-tl139567139762_)) + (___match149026149027_ + _e139557139730_ + _hd139556139733_ + _tl139555139735_ + _e139560139738_ + _hd139559139741_ + _tl139558139743_)) + (___match149026149027_ + _e139557139730_ + _hd139556139733_ + _tl139555139735_ + _e139560139738_ + _hd139559139741_ + _tl139558139743_)))) + (___match149026149027_ + _e139557139730_ + _hd139556139733_ + _tl139555139735_ + _e139560139738_ + _hd139559139741_ + _tl139558139743_)) + (___match149026149027_ + _e139557139730_ + _hd139556139733_ + _tl139555139735_ + _e139560139738_ + _hd139559139741_ + _tl139558139743_)) + (___match149026149027_ + _e139557139730_ + _hd139556139733_ + _tl139555139735_ + _e139560139738_ + _hd139559139741_ + _tl139558139743_)))) + (___match149026149027_ + _e139557139730_ + _hd139556139733_ + _tl139555139735_ + _e139560139738_ + _hd139559139741_ + _tl139558139743_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match149029149030_ - _e139560139733_ - _hd139559139736_ - _tl139558139738_ - _e139563139741_ - _hd139562139744_ - _tl139561139746_)) - (___match149029149030_ - _e139560139733_ - _hd139559139736_ - _tl139558139738_ - _e139563139741_ - _hd139562139744_ - _tl139561139746_)))) - (___match149029149030_ - _e139560139733_ - _hd139559139736_ - _tl139558139738_ - _e139563139741_ - _hd139562139744_ - _tl139561139746_)))) - (___match149029149030_ - _e139560139733_ - _hd139559139736_ - _tl139558139738_ - _e139563139741_ - _hd139562139744_ - _tl139561139746_)))) + (___match149026149027_ + _e139557139730_ + _hd139556139733_ + _tl139555139735_ + _e139560139738_ + _hd139559139741_ + _tl139558139743_)) + (___match149026149027_ + _e139557139730_ + _hd139556139733_ + _tl139555139735_ + _e139560139738_ + _hd139559139741_ + _tl139558139743_)))) + (___match149026149027_ + _e139557139730_ + _hd139556139733_ + _tl139555139735_ + _e139560139738_ + _hd139559139741_ + _tl139558139743_)))) + (___match149026149027_ + _e139557139730_ + _hd139556139733_ + _tl139555139735_ + _e139560139738_ + _hd139559139741_ + _tl139558139743_)))) (let () (if (let () (declare (not safe)) - (gx#stx-pair? _tl139561139746_)) - (let ((_e139588139809_ + (gx#stx-pair? _tl139558139743_)) + (let ((_e139585139806_ (let () (declare (not safe)) - (gx#stx-e _tl139561139746_)))) - (let ((_tl139586139814_ + (gx#stx-e _tl139558139743_)))) + (let ((_tl139583139811_ (let () (declare (not safe)) - (##cdr _e139588139809_))) - (_hd139587139812_ + (##cdr _e139585139806_))) + (_hd139584139809_ (let () (declare (not safe)) - (##car _e139588139809_)))) + (##car _e139585139806_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139586139814_)) - (___kont148970148971_ _hd139587139812_) - (___kont148978148979_)))) - (___kont148978148979_))))))) + (gx#stx-null? _tl139583139811_)) + (___kont148967148968_ _hd139584139809_) + (___kont148975148976_)))) + (___kont148975148976_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop139567139754_ - _target139564139749_)))))) + (_loop139564139751_ + _target139561139746_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx148966148967_)) - (let ((_e139556139874_ + ___stx148963148964_)) + (let ((_e139553139871_ (let () (declare (not safe)) (gx#stx-e - ___stx148966148967_)))) - (let ((_tl139554139879_ + ___stx148963148964_)))) + (let ((_tl139551139876_ (let () (declare (not safe)) - (##cdr _e139556139874_))) - (_hd139555139877_ + (##cdr _e139553139871_))) + (_hd139552139874_ (let () (declare (not safe)) - (##car _e139556139874_)))) + (##car _e139553139871_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd139555139877_)) + _hd139552139874_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd139555139877_)) - (___kont148968148969_) + _hd139552139874_)) + (___kont148965148966_) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd139555139877_)) + _hd139552139874_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl139554139879_)) - (let ((_e139563139741_ + (gx#stx-pair? _tl139551139876_)) + (let ((_e139560139738_ (let () (declare (not safe)) - (gx#stx-e _tl139554139879_)))) - (let ((_tl139561139746_ + (gx#stx-e _tl139551139876_)))) + (let ((_tl139558139743_ (let () (declare (not safe)) - (##cdr _e139563139741_))) - (_hd139562139744_ + (##cdr _e139560139738_))) + (_hd139559139741_ (let () (declare (not safe)) - (##car _e139563139741_)))) + (##car _e139560139738_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd139562139744_)) - (let ((___splice148972148973_ + (gx#stx-pair/null? _hd139559139741_)) + (let ((___splice148969148970_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd139562139744_ + _hd139559139741_ '0)))) - (let ((_tl139566139751_ + (let ((_tl139563139748_ (let () (declare (not safe)) (##vector-ref - ___splice148972148973_ + ___splice148969148970_ '1))) - (_target139564139749_ + (_target139561139746_ (let () (declare (not safe)) (##vector-ref - ___splice148972148973_ + ___splice148969148970_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139566139751_)) - (___match149013149014_ - _e139556139874_ - _hd139555139877_ - _tl139554139879_ - _e139563139741_ - _hd139562139744_ - _tl139561139746_ - ___splice148972148973_ - _target139564139749_ - _tl139566139751_) + (gx#stx-null? _tl139563139748_)) + (___match149010149011_ + _e139553139871_ + _hd139552139874_ + _tl139551139876_ + _e139560139738_ + _hd139559139741_ + _tl139558139743_ + ___splice148969148970_ + _target139561139746_ + _tl139563139748_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139561139746_)) - (let ((_e139598139707_ + (gx#stx-pair? _tl139558139743_)) + (let ((_e139595139704_ (let () (declare (not safe)) (gx#stx-e - _tl139561139746_)))) - (let ((_tl139596139712_ + _tl139558139743_)))) + (let ((_tl139593139709_ (let () (declare (not safe)) - (##cdr _e139598139707_))) - (_hd139597139710_ + (##cdr _e139595139704_))) + (_hd139594139707_ (let () (declare (not safe)) - (##car _e139598139707_)))) + (##car _e139595139704_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139596139712_)) - (___kont148974148975_ - _hd139597139710_) - (___kont148978148979_)))) - (___kont148978148979_))))) + _tl139593139709_)) + (___kont148971148972_ + _hd139594139707_) + (___kont148975148976_)))) + (___kont148975148976_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139561139746_)) - (let ((_e139598139707_ + (gx#stx-pair? _tl139558139743_)) + (let ((_e139595139704_ (let () (declare (not safe)) - (gx#stx-e _tl139561139746_)))) - (let ((_tl139596139712_ + (gx#stx-e _tl139558139743_)))) + (let ((_tl139593139709_ (let () (declare (not safe)) - (##cdr _e139598139707_))) - (_hd139597139710_ + (##cdr _e139595139704_))) + (_hd139594139707_ (let () (declare (not safe)) - (##car _e139598139707_)))) + (##car _e139595139704_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139596139712_)) - (___kont148974148975_ - _hd139597139710_) - (___kont148978148979_)))) - (___kont148978148979_))))) - (___kont148978148979_)) + (gx#stx-null? _tl139593139709_)) + (___kont148971148972_ + _hd139594139707_) + (___kont148975148976_)))) + (___kont148975148976_))))) + (___kont148975148976_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd139555139877_)) + (gx#stx-eq? '%#if _hd139552139874_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139554139879_)) - (let ((_e139607139638_ + (gx#stx-pair? _tl139551139876_)) + (let ((_e139604139635_ (let () (declare (not safe)) - (gx#stx-e _tl139554139879_)))) - (let ((_tl139605139643_ + (gx#stx-e _tl139551139876_)))) + (let ((_tl139602139640_ (let () (declare (not safe)) - (##cdr _e139607139638_))) - (_hd139606139641_ + (##cdr _e139604139635_))) + (_hd139603139638_ (let () (declare (not safe)) - (##car _e139607139638_)))) + (##car _e139604139635_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139605139643_)) - (let ((_e139610139646_ + (gx#stx-pair? _tl139602139640_)) + (let ((_e139607139643_ (let () (declare (not safe)) - (gx#stx-e _tl139605139643_)))) - (let ((_tl139608139651_ + (gx#stx-e _tl139602139640_)))) + (let ((_tl139605139648_ (let () (declare (not safe)) - (##cdr _e139610139646_))) - (_hd139609139649_ + (##cdr _e139607139643_))) + (_hd139606139646_ (let () (declare (not safe)) - (##car _e139610139646_)))) + (##car _e139607139643_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139608139651_)) - (let ((_e139613139654_ + (gx#stx-pair? _tl139605139648_)) + (let ((_e139610139651_ (let () (declare (not safe)) (gx#stx-e - _tl139608139651_)))) - (let ((_tl139611139659_ + _tl139605139648_)))) + (let ((_tl139608139656_ (let () (declare (not safe)) - (##cdr _e139613139654_))) - (_hd139612139657_ + (##cdr _e139610139651_))) + (_hd139609139654_ (let () (declare (not safe)) - (##car _e139613139654_)))) + (##car _e139610139651_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139611139659_)) - (___kont148976148977_ - _hd139612139657_ - _hd139609139649_ - _hd139606139641_) - (___kont148978148979_)))) - (___kont148978148979_)))) - (___kont148978148979_)))) - (___kont148978148979_)) - (___kont148978148979_)))) + _tl139608139656_)) + (___kont148973148974_ + _hd139609139654_ + _hd139606139646_ + _hd139603139638_) + (___kont148975148976_)))) + (___kont148975148976_)))) + (___kont148975148976_)))) + (___kont148975148976_)) + (___kont148975148976_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148978148979_)))) - (___kont148978148979_)))))))) - (let* ((_kont139440_ (caddr _block139436_)) - (_g139442139468_ - (lambda (_g139443139465_) + (___kont148975148976_)))) + (___kont148975148976_)))))))) + (let* ((_kont139437_ (caddr _block139433_)) + (_g139439139465_ + (lambda (_g139440139462_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g139443139465_)))) - (_g139441139543_ - (lambda (_g139443139471_) + _g139440139462_)))) + (_g139438139540_ + (lambda (_g139440139468_) (if (let () (declare (not safe)) - (gx#stx-pair? _g139443139471_)) - (let ((_e139448139473_ + (gx#stx-pair? _g139440139468_)) + (let ((_e139445139470_ (let () (declare (not safe)) - (gx#stx-e _g139443139471_)))) - (let ((_hd139447139476_ + (gx#stx-e _g139440139468_)))) + (let ((_hd139444139473_ (let () (declare (not safe)) - (##car _e139448139473_))) - (_tl139446139478_ + (##car _e139445139470_))) + (_tl139443139475_ (let () (declare (not safe)) - (##cdr _e139448139473_)))) + (##cdr _e139445139470_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd139447139476_)) + _hd139444139473_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd139447139476_)) + _hd139444139473_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139446139478_)) - (let ((_e139451139481_ + _tl139443139475_)) + (let ((_e139448139478_ (let () (declare (not safe)) (gx#stx-e - _tl139446139478_)))) - (let ((_hd139450139484_ + _tl139443139475_)))) + (let ((_hd139447139481_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e139451139481_))) - (_tl139449139486_ - (let () (declare (not safe)) (##cdr _e139451139481_)))) + (##car _e139448139478_))) + (_tl139446139483_ + (let () (declare (not safe)) (##cdr _e139448139478_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd139450139484_)) - (let ((_g150341_ + (gx#stx-pair/null? _hd139447139481_)) + (let ((_g150338_ (let () (declare (not safe)) - (gx#syntax-split-splice _hd139450139484_ '0)))) + (gx#syntax-split-splice _hd139447139481_ '0)))) (begin - (let ((_g150342_ + (let ((_g150339_ (let () (declare (not safe)) - (if (##values? _g150341_) - (##vector-length _g150341_) + (if (##values? _g150338_) + (##vector-length _g150338_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150342_ 2))) - (error "Context expects 2 values" _g150342_))) - (let ((_target139452139489_ + (##fx= _g150339_ 2))) + (error "Context expects 2 values" _g150339_))) + (let ((_target139449139486_ (let () (declare (not safe)) - (##vector-ref _g150341_ 0))) - (_tl139454139491_ + (##vector-ref _g150338_ 0))) + (_tl139451139488_ (let () (declare (not safe)) - (##vector-ref _g150341_ 1)))) + (##vector-ref _g150338_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139454139491_)) - (letrec ((_loop139455139494_ - (lambda (_hd139453139497_ - _id139459139499_) + (gx#stx-null? _tl139451139488_)) + (letrec ((_loop139452139491_ + (lambda (_hd139450139494_ + _id139456139496_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd139453139497_)) - (let ((_e139456139502_ + _hd139450139494_)) + (let ((_e139453139499_ (let () (declare (not safe)) (gx#stx-e - _hd139453139497_)))) - (let ((_lp-hd139457139505_ + _hd139450139494_)))) + (let ((_lp-hd139454139502_ (let () (declare (not safe)) - (##car _e139456139502_))) - (_lp-tl139458139507_ + (##car _e139453139499_))) + (_lp-tl139455139504_ (let () (declare (not safe)) - (##cdr _e139456139502_)))) - (let ((__tmp150343 + (##cdr _e139453139499_)))) + (let ((__tmp150340 (let () (declare (not safe)) - (cons _lp-hd139457139505_ + (cons _lp-hd139454139502_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id139459139499_)))) + _id139456139496_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop139455139494_ - _lp-tl139458139507_ - __tmp150343)))) - (let ((_id139460139510_ - (reverse _id139459139499_))) + (_loop139452139491_ + _lp-tl139455139504_ + __tmp150340)))) + (let ((_id139457139507_ + (reverse _id139456139496_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139449139486_)) - (let ((_e139463139513_ + _tl139446139483_)) + (let ((_e139460139510_ (let () (declare (not safe)) (gx#stx-e - _tl139449139486_)))) - (let ((_hd139462139516_ + _tl139446139483_)))) + (let ((_hd139459139513_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e139463139513_))) - (_tl139461139518_ - (let () (declare (not safe)) (##cdr _e139463139513_)))) + (##car _e139460139510_))) + (_tl139458139515_ + (let () (declare (not safe)) (##cdr _e139460139510_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139461139518_)) - ((lambda (_L139521_ _L139522_) + (gx#stx-null? _tl139458139515_)) + ((lambda (_L139518_ _L139519_) (let () (declare (not safe)) - (_nonlinear-expr?139438_ _L139521_))) - _hd139462139516_ - _id139460139510_) + (_nonlinear-expr?139435_ _L139518_))) + _hd139459139513_ + _id139457139507_) (let () (declare (not safe)) - (_g139442139468_ _g139443139471_))))) + (_g139439139465_ _g139440139468_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139442139468_ - _g139443139471_)))))))) + (_g139439139465_ + _g139440139468_)))))))) (let () (declare (not safe)) - (_loop139455139494_ - _target139452139489_ + (_loop139452139491_ + _target139449139486_ '()))) (let () (declare (not safe)) - (_g139442139468_ _g139443139471_)))))) + (_g139439139465_ _g139440139468_)))))) (let () (declare (not safe)) - (_g139442139468_ _g139443139471_))))) + (_g139439139465_ _g139440139468_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139442139468_ - _g139443139471_))) + (_g139439139465_ + _g139440139468_))) (let () (declare (not safe)) - (_g139442139468_ - _g139443139471_))) + (_g139439139465_ + _g139440139468_))) (let () (declare (not safe)) - (_g139442139468_ - _g139443139471_))))) + (_g139439139465_ + _g139440139468_))))) (let () (declare (not safe)) - (_g139442139468_ _g139443139471_)))))) + (_g139439139465_ _g139440139468_)))))) (declare (not safe)) - (_g139441139543_ _kont139440_)))))) - (let ((__tmp150344 + (_g139438139540_ _kont139437_)))))) + (let ((__tmp150341 (lambda () - (let ((__tmp150345 + (let ((__tmp150342 (lambda () (if (memq '@match:prefix (gxc#current-annotation-optimizer)) - (let ((__tmp150346 + (let ((__tmp150343 (lambda () (let () (declare (not safe)) - (_optimize-e139421_ - _body139168_))))) + (_optimize-e139418_ + _body139165_))))) (declare (not safe)) - (_do-splice!139420_ __tmp150346)) + (_do-splice!139417_ __tmp150343)) (let () (declare (not safe)) - (_optimize-e139421_ _body139168_)))))) + (_optimize-e139418_ _body139165_)))))) (declare (not safe)) - (_do-bind139417_ _bind139170_ __tmp150345))))) + (_do-bind139414_ _bind139167_ __tmp150342))))) (declare (not safe)) - (_do-assert139410_ _assert139169_ __tmp150344))))) + (_do-assert139407_ _assert139166_ __tmp150341))))) (define gxc#optimize-match-prune-blocks - (lambda (_blocks139080_ _konts139081_) - (letrec* ((_rtab139083_ + (lambda (_blocks139077_ _konts139078_) + (letrec* ((_rtab139080_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_block139085_) - (let ((__tmp150347 (caddr _block139085_))) + (lambda (_block139082_) + (let ((__tmp150344 (caddr _block139082_))) (declare (not safe)) - (gxc#apply-collect-runtime-refs __tmp150347 _rtab139083_))) - _konts139081_) - (let _lp139087_ ((_rest139089_ _blocks139080_) (_r139090_ '())) - (let* ((_rest139091139099_ _rest139089_) - (_else139093139107_ (lambda () (reverse _r139090_))) - (_K139095139156_ - (lambda (_rest139110_ _block139111_) - (let* ((_block139112139123_ _block139111_) - (_E139114139127_ + (gxc#apply-collect-runtime-refs __tmp150344 _rtab139080_))) + _konts139078_) + (let _lp139084_ ((_rest139086_ _blocks139077_) (_r139087_ '())) + (let* ((_rest139088139096_ _rest139086_) + (_else139090139104_ (lambda () (reverse _r139087_))) + (_K139092139153_ + (lambda (_rest139107_ _block139108_) + (let* ((_block139109139120_ _block139108_) + (_E139111139124_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block139112139123_)))) - (_K139115139134_ - (lambda (_kont139130_ _type139131_ _name139132_) - (if (let ((__tmp150349 + _block139109139120_)))) + (_K139112139131_ + (lambda (_kont139127_ _type139128_ _name139129_) + (if (let ((__tmp150346 (let () (declare (not safe)) (gxc#identifier-symbol - _name139132_)))) + _name139129_)))) (declare (not safe)) - (hash-get _rtab139083_ __tmp150349)) + (hash-get _rtab139080_ __tmp150346)) (begin (let () (declare (not safe)) (gxc#apply-collect-runtime-refs - _kont139130_ - _rtab139083_)) - (let ((__tmp150348 + _kont139127_ + _rtab139080_)) + (let ((__tmp150345 (let () (declare (not safe)) - (cons _block139111_ - _r139090_)))) + (cons _block139108_ + _r139087_)))) (declare (not safe)) - (_lp139087_ _rest139110_ __tmp150348))) + (_lp139084_ _rest139107_ __tmp150345))) (let () (declare (not safe)) - (_lp139087_ _rest139110_ _r139090_)))))) + (_lp139084_ _rest139107_ _r139087_)))))) (if (let () (declare (not safe)) - (##pair? _block139112139123_)) - (let ((_hd139116139137_ + (##pair? _block139109139120_)) + (let ((_hd139113139134_ (let () (declare (not safe)) - (##car _block139112139123_))) - (_tl139117139139_ + (##car _block139109139120_))) + (_tl139114139136_ (let () (declare (not safe)) - (##cdr _block139112139123_)))) - (let ((_name139142_ _hd139116139137_)) + (##cdr _block139109139120_)))) + (let ((_name139139_ _hd139113139134_)) (if (let () (declare (not safe)) - (##pair? _tl139117139139_)) - (let ((_hd139118139144_ + (##pair? _tl139114139136_)) + (let ((_hd139115139141_ (let () (declare (not safe)) - (##car _tl139117139139_))) - (_tl139119139146_ + (##car _tl139114139136_))) + (_tl139116139143_ (let () (declare (not safe)) - (##cdr _tl139117139139_)))) - (let ((_type139149_ _hd139118139144_)) + (##cdr _tl139114139136_)))) + (let ((_type139146_ _hd139115139141_)) (if (let () (declare (not safe)) - (##pair? _tl139119139146_)) - (let* ((_hd139120139151_ + (##pair? _tl139116139143_)) + (let* ((_hd139117139148_ (let () (declare (not safe)) - (##car _tl139119139146_))) - (_kont139154_ - _hd139120139151_)) + (##car _tl139116139143_))) + (_kont139151_ + _hd139117139148_)) (declare (not safe)) - (_K139115139134_ - _kont139154_ - _type139149_ - _name139142_)) + (_K139112139131_ + _kont139151_ + _type139146_ + _name139139_)) (let () (declare (not safe)) - (_E139114139127_))))) + (_E139111139124_))))) (let () (declare (not safe)) - (_E139114139127_))))) + (_E139111139124_))))) (let () (declare (not safe)) - (_E139114139127_))))))) - (if (let () (declare (not safe)) (##pair? _rest139091139099_)) - (let ((_hd139096139159_ + (_E139111139124_))))))) + (if (let () (declare (not safe)) (##pair? _rest139088139096_)) + (let ((_hd139093139156_ (let () (declare (not safe)) - (##car _rest139091139099_))) - (_tl139097139161_ + (##car _rest139088139096_))) + (_tl139094139158_ (let () (declare (not safe)) - (##cdr _rest139091139099_)))) - (let* ((_block139164_ _hd139096139159_) - (_rest139166_ _tl139097139161_)) + (##cdr _rest139088139096_)))) + (let* ((_block139161_ _hd139093139156_) + (_rest139163_ _tl139094139158_)) (declare (not safe)) - (_K139095139156_ _rest139166_ _block139164_))) - (let () (declare (not safe)) (_else139093139107_)))))))) + (_K139092139153_ _rest139163_ _block139161_))) + (let () (declare (not safe)) (_else139090139104_)))))))) (define gxc#optimize-match-fuse-restart-blocks - (lambda (_blocks139004_ _konts139005_) - (let* ((_blocks139006139022_ _blocks139004_) - (_else139008139030_ (lambda () _blocks139004_)) - (_K139010139048_ - (lambda (_rest139033_ _kont139034_ _name139035_) - (letrec* ((_rtab139037_ + (lambda (_blocks139001_ _konts139002_) + (let* ((_blocks139003139019_ _blocks139001_) + (_else139005139027_ (lambda () _blocks139001_)) + (_K139007139045_ + (lambda (_rest139030_ _kont139031_ _name139032_) + (letrec* ((_rtab139034_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_block139039_) - (let ((__tmp150350 (caddr _block139039_))) + (lambda (_block139036_) + (let ((__tmp150347 (caddr _block139036_))) (declare (not safe)) (gxc#apply-collect-runtime-refs - __tmp150350 - _rtab139037_))) - _konts139005_) - (if (fx= (let ((__tmp150358 + __tmp150347 + _rtab139034_))) + _konts139002_) + (if (fx= (let ((__tmp150355 (let () (declare (not safe)) - (gxc#identifier-symbol _name139035_)))) + (gxc#identifier-symbol _name139032_)))) (declare (not safe)) - (hash-ref__0 _rtab139037_ __tmp150358)) + (hash-ref__0 _rtab139034_ __tmp150355)) '1) - (let* ((_rblock139043_ - (let ((__tmp150351 - (lambda (_block139041_) - (let ((__tmp150353 - (caddr _block139041_)) - (__tmp150352 + (let* ((_rblock139040_ + (let ((__tmp150348 + (lambda (_block139038_) + (let ((__tmp150350 + (caddr _block139038_)) + (__tmp150349 (let () (declare (not safe)) - (cons _name139035_ '())))) + (cons _name139032_ '())))) (declare (not safe)) (gxc#apply-find-var-refs - __tmp150353 - __tmp150352))))) + __tmp150350 + __tmp150349))))) (declare (not safe)) - (find __tmp150351 _konts139005_))) - (_assert139045_ + (find __tmp150348 _konts139002_))) + (_assert139042_ (let () (declare (not safe)) (gxc#optimize-match-assert-restart - _rblock139043_ - _name139035_)))) - (let ((__tmp150354 - (let ((__tmp150355 - (let ((__tmp150356 - (let ((__tmp150357 + _rblock139040_ + _name139032_)))) + (let ((__tmp150351 + (let ((__tmp150352 + (let ((__tmp150353 + (let ((__tmp150354 (let () (declare (not safe)) - (cons _assert139045_ + (cons _assert139042_ '())))) (declare (not safe)) - (cons _kont139034_ - __tmp150357)))) + (cons _kont139031_ + __tmp150354)))) (declare (not safe)) - (cons 'restart: __tmp150356)))) + (cons 'restart: __tmp150353)))) (declare (not safe)) - (cons _name139035_ __tmp150355)))) + (cons _name139032_ __tmp150352)))) (declare (not safe)) - (cons __tmp150354 _rest139033_))) - _blocks139004_))))) - (if (let () (declare (not safe)) (##pair? _blocks139006139022_)) - (let ((_hd139011139051_ + (cons __tmp150351 _rest139030_))) + _blocks139001_))))) + (if (let () (declare (not safe)) (##pair? _blocks139003139019_)) + (let ((_hd139008139048_ (let () (declare (not safe)) - (##car _blocks139006139022_))) - (_tl139012139053_ + (##car _blocks139003139019_))) + (_tl139009139050_ (let () (declare (not safe)) - (##cdr _blocks139006139022_)))) - (if (let () (declare (not safe)) (##pair? _hd139011139051_)) - (let ((_hd139013139056_ + (##cdr _blocks139003139019_)))) + (if (let () (declare (not safe)) (##pair? _hd139008139048_)) + (let ((_hd139010139053_ (let () (declare (not safe)) - (##car _hd139011139051_))) - (_tl139014139058_ + (##car _hd139008139048_))) + (_tl139011139055_ (let () (declare (not safe)) - (##cdr _hd139011139051_)))) - (let ((_name139061_ _hd139013139056_)) + (##cdr _hd139008139048_)))) + (let ((_name139058_ _hd139010139053_)) (if (let () (declare (not safe)) - (##pair? _tl139014139058_)) - (let ((_hd139015139063_ + (##pair? _tl139011139055_)) + (let ((_hd139012139060_ (let () (declare (not safe)) - (##car _tl139014139058_))) - (_tl139016139065_ + (##car _tl139011139055_))) + (_tl139013139062_ (let () (declare (not safe)) - (##cdr _tl139014139058_)))) + (##cdr _tl139011139055_)))) (if (let () (declare (not safe)) - (##eq? _hd139015139063_ 'restart:)) + (##eq? _hd139012139060_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl139016139065_)) - (let ((_hd139017139068_ + (##pair? _tl139013139062_)) + (let ((_hd139014139065_ (let () (declare (not safe)) - (##car _tl139016139065_))) - (_tl139018139070_ + (##car _tl139013139062_))) + (_tl139015139067_ (let () (declare (not safe)) - (##cdr _tl139016139065_)))) - (let ((_kont139073_ _hd139017139068_)) + (##cdr _tl139013139062_)))) + (let ((_kont139070_ _hd139014139065_)) (if (let () (declare (not safe)) - (##pair? _tl139018139070_)) - (let ((_tl139020139075_ + (##pair? _tl139015139067_)) + (let ((_tl139017139072_ (let () (declare (not safe)) - (##cdr _tl139018139070_)))) + (##cdr _tl139015139067_)))) (if (let () (declare (not safe)) - (##null? _tl139020139075_)) - (let ((_rest139078_ - _tl139012139053_)) + (##null? _tl139017139072_)) + (let ((_rest139075_ + _tl139009139050_)) (declare (not safe)) - (_K139010139048_ - _rest139078_ - _kont139073_ - _name139061_)) + (_K139007139045_ + _rest139075_ + _kont139070_ + _name139058_)) (let () (declare (not safe)) - (_else139008139030_)))) + (_else139005139027_)))) (let () (declare (not safe)) - (_else139008139030_))))) + (_else139005139027_))))) (let () (declare (not safe)) - (_else139008139030_))) + (_else139005139027_))) (let () (declare (not safe)) - (_else139008139030_)))) + (_else139005139027_)))) (let () (declare (not safe)) - (_else139008139030_))))) - (let () (declare (not safe)) (_else139008139030_)))) - (let () (declare (not safe)) (_else139008139030_)))))) + (_else139005139027_))))) + (let () (declare (not safe)) (_else139005139027_)))) + (let () (declare (not safe)) (_else139005139027_)))))) (define gxc#optimize-match-assert-restart - (lambda (_block138400_ _name138401_) - (letrec ((_assert-restart138403_ - (lambda (_expr138559_ _assert138560_) - (let* ((___stx149070149071_ _expr138559_) - (_g138566138663_ + (lambda (_block138397_ _name138398_) + (letrec ((_assert-restart138400_ + (lambda (_expr138556_ _assert138557_) + (let* ((___stx149067149068_ _expr138556_) + (_g138563138660_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149070149071_))))) - (let ((___kont149072149073_ - (lambda (_L138979_ _L138980_ _L138981_) - (let ((_$e138998_ - (let ((__tmp150359 - (let ((__tmp150360 + ___stx149067149068_))))) + (let ((___kont149069149070_ + (lambda (_L138976_ _L138977_ _L138978_) + (let ((_$e138995_ + (let ((__tmp150356 + (let ((__tmp150357 (let () (declare (not safe)) - (cons _L138981_ '#t)))) + (cons _L138978_ '#t)))) (declare (not safe)) - (cons __tmp150360 - _assert138560_)))) + (cons __tmp150357 + _assert138557_)))) (declare (not safe)) - (_assert-restart138403_ - _L138980_ - __tmp150359)))) - (if _$e138998_ - _$e138998_ - (let ((__tmp150361 - (let ((__tmp150362 + (_assert-restart138400_ + _L138977_ + __tmp150356)))) + (if _$e138995_ + _$e138995_ + (let ((__tmp150358 + (let ((__tmp150359 (let () (declare (not safe)) - (cons _L138981_ '#f)))) + (cons _L138978_ '#f)))) (declare (not safe)) - (cons __tmp150362 - _assert138560_)))) + (cons __tmp150359 + _assert138557_)))) (declare (not safe)) - (_assert-restart138403_ - _L138979_ - __tmp150361)))))) - (___kont149074149075_ - (lambda (_L138927_) + (_assert-restart138400_ + _L138976_ + __tmp150358)))))) + (___kont149071149072_ + (lambda (_L138924_) (if (let () (declare (not safe)) (gx#free-identifier=? - _L138927_ - _name138401_)) - _assert138560_ + _L138924_ + _name138398_)) + _assert138557_ '#f))) - (___kont149076149077_ - (lambda (_L138877_) + (___kont149073149074_ + (lambda (_L138874_) (let () (declare (not safe)) - (_assert-restart138403_ - _L138877_ - _assert138560_)))) - (___kont149078149079_ - (lambda (_L138803_ - _L138804_ - _L138805_ - _L138806_ - _L138807_) + (_assert-restart138400_ + _L138874_ + _assert138557_)))) + (___kont149075149076_ + (lambda (_L138800_ + _L138801_ + _L138802_ + _L138803_ + _L138804_) (let () (declare (not safe)) - (_assert-restart138403_ - _L138805_ - _assert138560_)))) - (___kont149084149085_ (lambda () '#f))) - (let ((___match149239149240_ - (lambda (_e138613138675_ - _hd138612138678_ - _tl138611138680_ - _e138616138683_ - _hd138615138686_ - _tl138614138688_ - _e138619138691_ - _hd138618138694_ - _tl138617138696_ - _e138622138699_ - _hd138621138702_ - _tl138620138704_ - _e138625138707_ - _hd138624138710_ - _tl138623138712_ - _e138628138715_ - _hd138627138718_ - _tl138626138720_ - _e138631138723_ - _hd138630138726_ - _tl138629138728_ - _e138634138731_ - _hd138633138734_ - _tl138632138736_ - ___splice149080149081_ - _target138635138739_ - _tl138637138741_) - (letrec ((_loop138638138744_ - (lambda (_hd138636138747_ - _id138642138749_) + (_assert-restart138400_ + _L138802_ + _assert138557_)))) + (___kont149081149082_ (lambda () '#f))) + (let ((___match149236149237_ + (lambda (_e138610138672_ + _hd138609138675_ + _tl138608138677_ + _e138613138680_ + _hd138612138683_ + _tl138611138685_ + _e138616138688_ + _hd138615138691_ + _tl138614138693_ + _e138619138696_ + _hd138618138699_ + _tl138617138701_ + _e138622138704_ + _hd138621138707_ + _tl138620138709_ + _e138625138712_ + _hd138624138715_ + _tl138623138717_ + _e138628138720_ + _hd138627138723_ + _tl138626138725_ + _e138631138728_ + _hd138630138731_ + _tl138629138733_ + ___splice149077149078_ + _target138632138736_ + _tl138634138738_) + (letrec ((_loop138635138741_ + (lambda (_hd138633138744_ + _id138639138746_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138636138747_)) - (let ((_e138639138752_ + _hd138633138744_)) + (let ((_e138636138749_ (let () (declare (not safe)) (gx#stx-e - _hd138636138747_)))) - (let ((_lp-tl138641138757_ + _hd138633138744_)))) + (let ((_lp-tl138638138754_ (let () (declare (not safe)) - (##cdr _e138639138752_))) - (_lp-hd138640138755_ + (##cdr _e138636138749_))) + (_lp-hd138637138752_ (let () (declare (not safe)) - (##car _e138639138752_)))) - (let ((__tmp150364 + (##car _e138636138749_)))) + (let ((__tmp150361 (let () (declare (not safe)) - (cons _lp-hd138640138755_ + (cons _lp-hd138637138752_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id138642138749_)))) + _id138639138746_)))) (declare (not safe)) - (_loop138638138744_ _lp-tl138641138757_ __tmp150364)))) + (_loop138635138741_ _lp-tl138638138754_ __tmp150361)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id138643138760_ - (reverse _id138642138749_))) + (let ((_id138640138757_ + (reverse _id138639138746_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138632138736_)) - (let ((_e138646138763_ + _tl138629138733_)) + (let ((_e138643138760_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl138632138736_)))) - (let ((_tl138644138768_ - (let () (declare (not safe)) (##cdr _e138646138763_))) - (_hd138645138766_ - (let () (declare (not safe)) (##car _e138646138763_)))) + (gx#stx-e _tl138629138733_)))) + (let ((_tl138641138765_ + (let () (declare (not safe)) (##cdr _e138643138760_))) + (_hd138642138763_ + (let () (declare (not safe)) (##car _e138643138760_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138644138768_)) + (gx#stx-null? _tl138641138765_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl138626138720_)) + (gx#stx-null? _tl138623138717_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl138617138696_)) - (let ((___splice149082149083_ + (gx#stx-pair/null? _tl138614138693_)) + (let ((___splice149079149080_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl138617138696_ + _tl138614138693_ '0)))) - (let ((_tl138649138773_ + (let ((_tl138646138770_ (let () (declare (not safe)) (##vector-ref - ___splice149082149083_ + ___splice149079149080_ '1))) - (_target138647138771_ + (_target138644138768_ (let () (declare (not safe)) (##vector-ref - ___splice149082149083_ + ___splice149079149080_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138649138773_)) - (letrec ((_loop138650138776_ - (lambda (_hd138648138779_ - _bind138654138781_) + (gx#stx-null? _tl138646138770_)) + (letrec ((_loop138647138773_ + (lambda (_hd138645138776_ + _bind138651138778_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138648138779_)) - (let ((_e138651138784_ + _hd138645138776_)) + (let ((_e138648138781_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd138648138779_)))) - (let ((_lp-tl138653138789_ - (let () (declare (not safe)) (##cdr _e138651138784_))) - (_lp-hd138652138787_ - (let () (declare (not safe)) (##car _e138651138784_)))) - (let ((__tmp150363 + (gx#stx-e _hd138645138776_)))) + (let ((_lp-tl138650138786_ + (let () (declare (not safe)) (##cdr _e138648138781_))) + (_lp-hd138649138784_ + (let () (declare (not safe)) (##car _e138648138781_)))) + (let ((__tmp150360 (let () (declare (not safe)) - (cons _lp-hd138652138787_ _bind138654138781_)))) + (cons _lp-hd138649138784_ _bind138651138778_)))) (declare (not safe)) - (_loop138650138776_ _lp-tl138653138789_ __tmp150363)))) - (let ((_bind138655138792_ (reverse _bind138654138781_))) + (_loop138647138773_ _lp-tl138650138786_ __tmp150360)))) + (let ((_bind138652138789_ (reverse _bind138651138778_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138614138688_)) - (let ((_e138658138795_ + (gx#stx-pair? _tl138611138685_)) + (let ((_e138655138792_ (let () (declare (not safe)) - (gx#stx-e _tl138614138688_)))) - (let ((_tl138656138800_ + (gx#stx-e _tl138611138685_)))) + (let ((_tl138653138797_ (let () (declare (not safe)) - (##cdr _e138658138795_))) - (_hd138657138798_ + (##cdr _e138655138792_))) + (_hd138654138795_ (let () (declare (not safe)) - (##car _e138658138795_)))) + (##car _e138655138792_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138656138800_)) - (___kont149078149079_ - _hd138657138798_ - _bind138655138792_ - _hd138645138766_ - _id138643138760_ - _hd138624138710_) - (___kont149084149085_)))) - (___kont149084149085_))))))) + (gx#stx-null? _tl138653138797_)) + (___kont149075149076_ + _hd138654138795_ + _bind138652138789_ + _hd138642138763_ + _id138640138757_ + _hd138621138707_) + (___kont149081149082_)))) + (___kont149081149082_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop138650138776_ - _target138647138771_ + (_loop138647138773_ + _target138644138768_ '()))) - (___kont149084149085_)))) - (___kont149084149085_)) - (___kont149084149085_)) - (___kont149084149085_)))) - (___kont149084149085_))))))) + (___kont149081149082_)))) + (___kont149081149082_)) + (___kont149081149082_)) + (___kont149081149082_)))) + (___kont149081149082_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop138638138744_ - _target138635138739_ + (_loop138635138741_ + _target138632138736_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149070149071_)) - (let ((_e138573138947_ + (gx#stx-pair? ___stx149067149068_)) + (let ((_e138570138944_ (let () (declare (not safe)) - (gx#stx-e ___stx149070149071_)))) - (let ((_tl138571138952_ + (gx#stx-e ___stx149067149068_)))) + (let ((_tl138568138949_ (let () (declare (not safe)) - (##cdr _e138573138947_))) - (_hd138572138950_ + (##cdr _e138570138944_))) + (_hd138569138947_ (let () (declare (not safe)) - (##car _e138573138947_)))) + (##car _e138570138944_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138572138950_)) + (gx#identifier? _hd138569138947_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd138572138950_)) + _hd138569138947_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138571138952_)) - (let ((_e138576138955_ + _tl138568138949_)) + (let ((_e138573138952_ (let () (declare (not safe)) (gx#stx-e - _tl138571138952_)))) - (let ((_tl138574138960_ + _tl138568138949_)))) + (let ((_tl138571138957_ (let () (declare (not safe)) - (##cdr _e138576138955_))) - (_hd138575138958_ + (##cdr _e138573138952_))) + (_hd138572138955_ (let () (declare (not safe)) - (##car _e138576138955_)))) + (##car _e138573138952_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138574138960_)) - (let ((_e138579138963_ + _tl138571138957_)) + (let ((_e138576138960_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl138574138960_)))) - (let ((_tl138577138968_ - (let () (declare (not safe)) (##cdr _e138579138963_))) - (_hd138578138966_ - (let () (declare (not safe)) (##car _e138579138963_)))) + (gx#stx-e _tl138571138957_)))) + (let ((_tl138574138965_ + (let () (declare (not safe)) (##cdr _e138576138960_))) + (_hd138575138963_ + (let () (declare (not safe)) (##car _e138576138960_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138577138968_)) - (let ((_e138582138971_ + (gx#stx-pair? _tl138574138965_)) + (let ((_e138579138968_ (let () (declare (not safe)) - (gx#stx-e _tl138577138968_)))) - (let ((_tl138580138976_ + (gx#stx-e _tl138574138965_)))) + (let ((_tl138577138973_ (let () (declare (not safe)) - (##cdr _e138582138971_))) - (_hd138581138974_ + (##cdr _e138579138968_))) + (_hd138578138971_ (let () (declare (not safe)) - (##car _e138582138971_)))) + (##car _e138579138968_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138580138976_)) - (___kont149072149073_ - _hd138581138974_ - _hd138578138966_ - _hd138575138958_) - (___kont149084149085_)))) - (___kont149084149085_)))) - (___kont149084149085_)))) + (gx#stx-null? _tl138577138973_)) + (___kont149069149070_ + _hd138578138971_ + _hd138575138963_ + _hd138572138955_) + (___kont149081149082_)))) + (___kont149081149082_)))) + (___kont149081149082_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149084149085_)) + (___kont149081149082_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd138572138950_)) + _hd138569138947_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138571138952_)) - (let ((_e138589138903_ + _tl138568138949_)) + (let ((_e138586138900_ (let () (declare (not safe)) (gx#stx-e - _tl138571138952_)))) - (let ((_tl138587138908_ + _tl138568138949_)))) + (let ((_tl138584138905_ (let () (declare (not safe)) - (##cdr _e138589138903_))) - (_hd138588138906_ + (##cdr _e138586138900_))) + (_hd138585138903_ (let () (declare (not safe)) - (##car _e138589138903_)))) + (##car _e138586138900_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138588138906_)) - (let ((_e138592138911_ + _hd138585138903_)) + (let ((_e138589138908_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd138588138906_)))) - (let ((_tl138590138916_ + (gx#stx-e _hd138585138903_)))) + (let ((_tl138587138913_ (let () (declare (not safe)) - (##cdr _e138592138911_))) - (_hd138591138914_ + (##cdr _e138589138908_))) + (_hd138588138911_ (let () (declare (not safe)) - (##car _e138592138911_)))) + (##car _e138589138908_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138591138914_)) + (gx#identifier? _hd138588138911_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd138591138914_)) + (gx#stx-eq? '%#ref _hd138588138911_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138590138916_)) - (let ((_e138595138919_ + (gx#stx-pair? _tl138587138913_)) + (let ((_e138592138916_ (let () (declare (not safe)) - (gx#stx-e _tl138590138916_)))) - (let ((_tl138593138924_ + (gx#stx-e _tl138587138913_)))) + (let ((_tl138590138921_ (let () (declare (not safe)) - (##cdr _e138595138919_))) - (_hd138594138922_ + (##cdr _e138592138916_))) + (_hd138591138919_ (let () (declare (not safe)) - (##car _e138595138919_)))) + (##car _e138592138916_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138593138924_)) - (___kont149074149075_ - _hd138594138922_) - (___kont149084149085_)))) - (___kont149084149085_)) - (___kont149084149085_)) - (___kont149084149085_)))) - (___kont149084149085_)))) + (gx#stx-null? _tl138590138921_)) + (___kont149071149072_ + _hd138591138919_) + (___kont149081149082_)))) + (___kont149081149082_)) + (___kont149081149082_)) + (___kont149081149082_)))) + (___kont149081149082_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149084149085_)) + (___kont149081149082_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd138572138950_)) + _hd138569138947_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138571138952_)) - (let ((_e138602138861_ + _tl138568138949_)) + (let ((_e138599138858_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl138571138952_)))) - (let ((_tl138600138866_ - (let () (declare (not safe)) (##cdr _e138602138861_))) - (_hd138601138864_ - (let () (declare (not safe)) (##car _e138602138861_)))) + (gx#stx-e _tl138568138949_)))) + (let ((_tl138597138863_ + (let () (declare (not safe)) (##cdr _e138599138858_))) + (_hd138598138861_ + (let () (declare (not safe)) (##car _e138599138858_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138600138866_)) - (let ((_e138605138869_ + (gx#stx-pair? _tl138597138863_)) + (let ((_e138602138866_ (let () (declare (not safe)) - (gx#stx-e _tl138600138866_)))) - (let ((_tl138603138874_ + (gx#stx-e _tl138597138863_)))) + (let ((_tl138600138871_ (let () (declare (not safe)) - (##cdr _e138605138869_))) - (_hd138604138872_ + (##cdr _e138602138866_))) + (_hd138601138869_ (let () (declare (not safe)) - (##car _e138605138869_)))) + (##car _e138602138866_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138603138874_)) - (___kont149076149077_ _hd138604138872_) - (___kont149084149085_)))) - (___kont149084149085_)))) - (___kont149084149085_)) + (gx#stx-null? _tl138600138871_)) + (___kont149073149074_ _hd138601138869_) + (___kont149081149082_)))) + (___kont149081149082_)))) + (___kont149081149082_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd138572138950_)) + _hd138569138947_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138571138952_)) - (let ((_e138616138683_ + _tl138568138949_)) + (let ((_e138613138680_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl138571138952_)))) - (let ((_tl138614138688_ + (gx#stx-e _tl138568138949_)))) + (let ((_tl138611138685_ (let () (declare (not safe)) - (##cdr _e138616138683_))) - (_hd138615138686_ + (##cdr _e138613138680_))) + (_hd138612138683_ (let () (declare (not safe)) - (##car _e138616138683_)))) + (##car _e138613138680_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138615138686_)) - (let ((_e138619138691_ + (gx#stx-pair? _hd138612138683_)) + (let ((_e138616138688_ (let () (declare (not safe)) - (gx#stx-e _hd138615138686_)))) - (let ((_tl138617138696_ + (gx#stx-e _hd138612138683_)))) + (let ((_tl138614138693_ (let () (declare (not safe)) - (##cdr _e138619138691_))) - (_hd138618138694_ + (##cdr _e138616138688_))) + (_hd138615138691_ (let () (declare (not safe)) - (##car _e138619138691_)))) + (##car _e138616138688_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138618138694_)) - (let ((_e138622138699_ + (gx#stx-pair? _hd138615138691_)) + (let ((_e138619138696_ (let () (declare (not safe)) - (gx#stx-e _hd138618138694_)))) - (let ((_tl138620138704_ + (gx#stx-e _hd138615138691_)))) + (let ((_tl138617138701_ (let () (declare (not safe)) - (##cdr _e138622138699_))) - (_hd138621138702_ + (##cdr _e138619138696_))) + (_hd138618138699_ (let () (declare (not safe)) - (##car _e138622138699_)))) + (##car _e138619138696_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138621138702_)) - (let ((_e138625138707_ + (gx#stx-pair? _hd138618138699_)) + (let ((_e138622138704_ (let () (declare (not safe)) (gx#stx-e - _hd138621138702_)))) - (let ((_tl138623138712_ + _hd138618138699_)))) + (let ((_tl138620138709_ (let () (declare (not safe)) - (##cdr _e138625138707_))) - (_hd138624138710_ + (##cdr _e138622138704_))) + (_hd138621138707_ (let () (declare (not safe)) - (##car _e138625138707_)))) + (##car _e138622138704_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138623138712_)) + _tl138620138709_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138620138704_)) - (let ((_e138628138715_ + _tl138617138701_)) + (let ((_e138625138712_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl138620138704_)))) - (let ((_tl138626138720_ - (let () (declare (not safe)) (##cdr _e138628138715_))) - (_hd138627138718_ - (let () (declare (not safe)) (##car _e138628138715_)))) + (gx#stx-e _tl138617138701_)))) + (let ((_tl138623138717_ + (let () (declare (not safe)) (##cdr _e138625138712_))) + (_hd138624138715_ + (let () (declare (not safe)) (##car _e138625138712_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138627138718_)) - (let ((_e138631138723_ + (gx#stx-pair? _hd138624138715_)) + (let ((_e138628138720_ (let () (declare (not safe)) - (gx#stx-e _hd138627138718_)))) - (let ((_tl138629138728_ + (gx#stx-e _hd138624138715_)))) + (let ((_tl138626138725_ (let () (declare (not safe)) - (##cdr _e138631138723_))) - (_hd138630138726_ + (##cdr _e138628138720_))) + (_hd138627138723_ (let () (declare (not safe)) - (##car _e138631138723_)))) + (##car _e138628138720_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138630138726_)) + (gx#identifier? _hd138627138723_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd138630138726_)) + (gx#stx-eq? '%#lambda _hd138627138723_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138629138728_)) - (let ((_e138634138731_ + (gx#stx-pair? _tl138626138725_)) + (let ((_e138631138728_ (let () (declare (not safe)) - (gx#stx-e _tl138629138728_)))) - (let ((_tl138632138736_ + (gx#stx-e _tl138626138725_)))) + (let ((_tl138629138733_ (let () (declare (not safe)) - (##cdr _e138634138731_))) - (_hd138633138734_ + (##cdr _e138631138728_))) + (_hd138630138731_ (let () (declare (not safe)) - (##car _e138634138731_)))) + (##car _e138631138728_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd138633138734_)) - (let ((___splice149080149081_ + _hd138630138731_)) + (let ((___splice149077149078_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd138633138734_ + _hd138630138731_ '0)))) - (let ((_tl138637138741_ + (let ((_tl138634138738_ (let () (declare (not safe)) (##vector-ref - ___splice149080149081_ + ___splice149077149078_ '1))) - (_target138635138739_ + (_target138632138736_ (let () (declare (not safe)) (##vector-ref - ___splice149080149081_ + ___splice149077149078_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138637138741_)) - (___match149239149240_ - _e138573138947_ - _hd138572138950_ - _tl138571138952_ - _e138616138683_ - _hd138615138686_ - _tl138614138688_ - _e138619138691_ - _hd138618138694_ - _tl138617138696_ - _e138622138699_ - _hd138621138702_ - _tl138620138704_ - _e138625138707_ - _hd138624138710_ - _tl138623138712_ - _e138628138715_ - _hd138627138718_ - _tl138626138720_ - _e138631138723_ - _hd138630138726_ - _tl138629138728_ - _e138634138731_ - _hd138633138734_ - _tl138632138736_ - ___splice149080149081_ - _target138635138739_ - _tl138637138741_) - (___kont149084149085_)))) - (___kont149084149085_)))) - (___kont149084149085_)) - (___kont149084149085_)) - (___kont149084149085_)))) - (___kont149084149085_)))) - (___kont149084149085_)) + _tl138634138738_)) + (___match149236149237_ + _e138570138944_ + _hd138569138947_ + _tl138568138949_ + _e138613138680_ + _hd138612138683_ + _tl138611138685_ + _e138616138688_ + _hd138615138691_ + _tl138614138693_ + _e138619138696_ + _hd138618138699_ + _tl138617138701_ + _e138622138704_ + _hd138621138707_ + _tl138620138709_ + _e138625138712_ + _hd138624138715_ + _tl138623138717_ + _e138628138720_ + _hd138627138723_ + _tl138626138725_ + _e138631138728_ + _hd138630138731_ + _tl138629138733_ + ___splice149077149078_ + _target138632138736_ + _tl138634138738_) + (___kont149081149082_)))) + (___kont149081149082_)))) + (___kont149081149082_)) + (___kont149081149082_)) + (___kont149081149082_)))) + (___kont149081149082_)))) + (___kont149081149082_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149084149085_)))) - (___kont149084149085_)))) - (___kont149084149085_)))) - (___kont149084149085_)))) - (___kont149084149085_)) - (___kont149084149085_))))) + (___kont149081149082_)))) + (___kont149081149082_)))) + (___kont149081149082_)))) + (___kont149081149082_)))) + (___kont149081149082_)) + (___kont149081149082_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149084149085_)))) - (___kont149084149085_)))))))) - (let* ((_block138404138417_ _block138400_) - (_E138406138421_ + (___kont149081149082_)))) + (___kont149081149082_)))))))) + (let* ((_block138401138414_ _block138397_) + (_E138403138418_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _block138404138417_)))) - (_K138407138534_ - (lambda (_maybe-bind138424_ _assert138425_ _kont138426_) - (let* ((_g138428138454_ - (lambda (_g138429138451_) + (error '"No clause matching" _block138401138414_)))) + (_K138404138531_ + (lambda (_maybe-bind138421_ _assert138422_ _kont138423_) + (let* ((_g138425138451_ + (lambda (_g138426138448_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g138429138451_)))) - (_g138427138531_ - (lambda (_g138429138457_) + _g138426138448_)))) + (_g138424138528_ + (lambda (_g138426138454_) (if (let () (declare (not safe)) - (gx#stx-pair? _g138429138457_)) - (let ((_e138434138459_ + (gx#stx-pair? _g138426138454_)) + (let ((_e138431138456_ (let () (declare (not safe)) - (gx#stx-e _g138429138457_)))) - (let ((_hd138433138462_ + (gx#stx-e _g138426138454_)))) + (let ((_hd138430138459_ (let () (declare (not safe)) - (##car _e138434138459_))) - (_tl138432138464_ + (##car _e138431138456_))) + (_tl138429138461_ (let () (declare (not safe)) - (##cdr _e138434138459_)))) + (##cdr _e138431138456_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138433138462_)) + (gx#identifier? _hd138430138459_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd138433138462_)) + _hd138430138459_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138432138464_)) - (let ((_e138437138467_ + _tl138429138461_)) + (let ((_e138434138464_ (let () (declare (not safe)) (gx#stx-e - _tl138432138464_)))) - (let ((_hd138436138470_ + _tl138429138461_)))) + (let ((_hd138433138467_ (let () (declare (not safe)) - (##car _e138437138467_))) - (_tl138435138472_ + (##car _e138434138464_))) + (_tl138432138469_ (let () (declare (not safe)) - (##cdr _e138437138467_)))) + (##cdr _e138434138464_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd138436138470_)) - (let ((_g150365_ + _hd138433138467_)) + (let ((_g150362_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd138436138470_ '0)))) + (gx#syntax-split-splice _hd138433138467_ '0)))) (begin - (let ((_g150366_ + (let ((_g150363_ (let () (declare (not safe)) - (if (##values? _g150365_) - (##vector-length _g150365_) + (if (##values? _g150362_) + (##vector-length _g150362_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150366_ 2))) - (error "Context expects 2 values" _g150366_))) - (let ((_target138438138475_ + (##fx= _g150363_ 2))) + (error "Context expects 2 values" _g150363_))) + (let ((_target138435138472_ (let () (declare (not safe)) - (##vector-ref _g150365_ 0))) - (_tl138440138477_ + (##vector-ref _g150362_ 0))) + (_tl138437138474_ (let () (declare (not safe)) - (##vector-ref _g150365_ 1)))) + (##vector-ref _g150362_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138440138477_)) - (letrec ((_loop138441138480_ - (lambda (_hd138439138483_ - _id138445138485_) + (gx#stx-null? _tl138437138474_)) + (letrec ((_loop138438138477_ + (lambda (_hd138436138480_ + _id138442138482_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138439138483_)) - (let ((_e138442138488_ + (gx#stx-pair? _hd138436138480_)) + (let ((_e138439138485_ (let () (declare (not safe)) (gx#stx-e - _hd138439138483_)))) - (let ((_lp-hd138443138491_ + _hd138436138480_)))) + (let ((_lp-hd138440138488_ (let () (declare (not safe)) - (##car _e138442138488_))) - (_lp-tl138444138493_ + (##car _e138439138485_))) + (_lp-tl138441138490_ (let () (declare (not safe)) - (##cdr _e138442138488_)))) - (let ((__tmp150367 + (##cdr _e138439138485_)))) + (let ((__tmp150364 (let () (declare (not safe)) - (cons _lp-hd138443138491_ - _id138445138485_)))) + (cons _lp-hd138440138488_ + _id138442138482_)))) (declare (not safe)) - (_loop138441138480_ - _lp-tl138444138493_ - __tmp150367)))) - (let ((_id138446138496_ - (reverse _id138445138485_))) + (_loop138438138477_ + _lp-tl138441138490_ + __tmp150364)))) + (let ((_id138443138493_ + (reverse _id138442138482_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138435138472_)) - (let ((_e138449138499_ + _tl138432138469_)) + (let ((_e138446138496_ (let () (declare (not safe)) (gx#stx-e - _tl138435138472_)))) - (let ((_hd138448138502_ + _tl138432138469_)))) + (let ((_hd138445138499_ (let () (declare (not safe)) - (##car _e138449138499_))) - (_tl138447138504_ + (##car _e138446138496_))) + (_tl138444138501_ (let () (declare (not safe)) - (##cdr _e138449138499_)))) + (##cdr _e138446138496_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138447138504_)) - ((lambda (_L138507_ + _tl138444138501_)) + ((lambda (_L138504_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L138508_) + _L138505_) (let () (declare (not safe)) - (_assert-restart138403_ _L138507_ _assert138425_))) - _hd138448138502_ - _id138446138496_) + (_assert-restart138400_ _L138504_ _assert138422_))) + _hd138445138499_ + _id138443138493_) (let () (declare (not safe)) - (_g138428138454_ _g138429138457_))))) + (_g138425138451_ _g138426138454_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138428138454_ - _g138429138457_)))))))) + (_g138425138451_ + _g138426138454_)))))))) (let () (declare (not safe)) - (_loop138441138480_ _target138438138475_ '()))) + (_loop138438138477_ _target138435138472_ '()))) (let () (declare (not safe)) - (_g138428138454_ _g138429138457_)))))) + (_g138425138451_ _g138426138454_)))))) (let () (declare (not safe)) - (_g138428138454_ _g138429138457_))))) + (_g138425138451_ _g138426138454_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138428138454_ - _g138429138457_))) + (_g138425138451_ + _g138426138454_))) (let () (declare (not safe)) - (_g138428138454_ - _g138429138457_))) + (_g138425138451_ + _g138426138454_))) (let () (declare (not safe)) - (_g138428138454_ - _g138429138457_))))) + (_g138425138451_ + _g138426138454_))))) (let () (declare (not safe)) - (_g138428138454_ _g138429138457_)))))) + (_g138425138451_ _g138426138454_)))))) (declare (not safe)) - (_g138427138531_ _kont138426_))))) - (if (let () (declare (not safe)) (##pair? _block138404138417_)) - (let ((_tl138409138537_ + (_g138424138528_ _kont138423_))))) + (if (let () (declare (not safe)) (##pair? _block138401138414_)) + (let ((_tl138406138534_ (let () (declare (not safe)) - (##cdr _block138404138417_)))) - (if (let () (declare (not safe)) (##pair? _tl138409138537_)) - (let ((_tl138411138540_ + (##cdr _block138401138414_)))) + (if (let () (declare (not safe)) (##pair? _tl138406138534_)) + (let ((_tl138408138537_ (let () (declare (not safe)) - (##cdr _tl138409138537_)))) + (##cdr _tl138406138534_)))) (if (let () (declare (not safe)) - (##pair? _tl138411138540_)) - (let ((_hd138412138543_ + (##pair? _tl138408138537_)) + (let ((_hd138409138540_ (let () (declare (not safe)) - (##car _tl138411138540_))) - (_tl138413138545_ + (##car _tl138408138537_))) + (_tl138410138542_ (let () (declare (not safe)) - (##cdr _tl138411138540_)))) - (let ((_kont138548_ _hd138412138543_)) + (##cdr _tl138408138537_)))) + (let ((_kont138545_ _hd138409138540_)) (if (let () (declare (not safe)) - (##pair? _tl138413138545_)) - (let ((_hd138414138550_ + (##pair? _tl138410138542_)) + (let ((_hd138411138547_ (let () (declare (not safe)) - (##car _tl138413138545_))) - (_tl138415138552_ + (##car _tl138410138542_))) + (_tl138412138549_ (let () (declare (not safe)) - (##cdr _tl138413138545_)))) - (let* ((_assert138555_ _hd138414138550_) - (_maybe-bind138557_ - _tl138415138552_)) + (##cdr _tl138410138542_)))) + (let* ((_assert138552_ _hd138411138547_) + (_maybe-bind138554_ + _tl138412138549_)) (declare (not safe)) - (_K138407138534_ - _maybe-bind138557_ - _assert138555_ - _kont138548_))) + (_K138404138531_ + _maybe-bind138554_ + _assert138552_ + _kont138545_))) (let () (declare (not safe)) - (_E138406138421_))))) - (let () (declare (not safe)) (_E138406138421_)))) - (let () (declare (not safe)) (_E138406138421_)))) - (let () (declare (not safe)) (_E138406138421_))))))) + (_E138403138418_))))) + (let () (declare (not safe)) (_E138403138418_)))) + (let () (declare (not safe)) (_E138403138418_)))) + (let () (declare (not safe)) (_E138403138418_))))))) (define gxc#optimize-syntax-case - (lambda (_stx138031_) - (let* ((_g138033138063_ - (lambda (_g138034138060_) + (lambda (_stx138028_) + (let* ((_g138030138060_ + (lambda (_g138031138057_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g138034138060_)))) - (_g138032138397_ - (lambda (_g138034138066_) + _g138031138057_)))) + (_g138029138394_ + (lambda (_g138031138063_) (if (let () (declare (not safe)) - (gx#stx-pair? _g138034138066_)) - (let ((_e138040138068_ + (gx#stx-pair? _g138031138063_)) + (let ((_e138037138065_ (let () (declare (not safe)) - (gx#stx-e _g138034138066_)))) - (let ((_hd138039138071_ + (gx#stx-e _g138031138063_)))) + (let ((_hd138036138068_ (let () (declare (not safe)) - (##car _e138040138068_))) - (_tl138038138073_ + (##car _e138037138065_))) + (_tl138035138070_ (let () (declare (not safe)) - (##cdr _e138040138068_)))) + (##cdr _e138037138065_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138039138071_)) + (gx#identifier? _hd138036138068_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd138039138071_)) + _hd138036138068_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138038138073_)) - (let ((_e138043138076_ + (gx#stx-pair? _tl138035138070_)) + (let ((_e138040138073_ (let () (declare (not safe)) - (gx#stx-e _tl138038138073_)))) - (let ((_hd138042138079_ + (gx#stx-e _tl138035138070_)))) + (let ((_hd138039138076_ (let () (declare (not safe)) - (##car _e138043138076_))) - (_tl138041138081_ + (##car _e138040138073_))) + (_tl138038138078_ (let () (declare (not safe)) - (##cdr _e138043138076_)))) + (##cdr _e138040138073_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138042138079_)) - (let ((_e138046138084_ + _hd138039138076_)) + (let ((_e138043138081_ (let () (declare (not safe)) (gx#stx-e - _hd138042138079_)))) - (let ((_hd138045138087_ + _hd138039138076_)))) + (let ((_hd138042138084_ (let () (declare (not safe)) - (##car _e138046138084_))) - (_tl138044138089_ + (##car _e138043138081_))) + (_tl138041138086_ (let () (declare (not safe)) - (##cdr _e138046138084_)))) + (##cdr _e138043138081_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138045138087_)) - (let ((_e138049138092_ + _hd138042138084_)) + (let ((_e138046138089_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd138045138087_)))) - (let ((_hd138048138095_ - (let () (declare (not safe)) (##car _e138049138092_))) - (_tl138047138097_ - (let () (declare (not safe)) (##cdr _e138049138092_)))) + (gx#stx-e _hd138042138084_)))) + (let ((_hd138045138092_ + (let () (declare (not safe)) (##car _e138046138089_))) + (_tl138044138094_ + (let () (declare (not safe)) (##cdr _e138046138089_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138048138095_)) - (let ((_e138052138100_ + (gx#stx-pair? _hd138045138092_)) + (let ((_e138049138097_ (let () (declare (not safe)) - (gx#stx-e _hd138048138095_)))) - (let ((_hd138051138103_ + (gx#stx-e _hd138045138092_)))) + (let ((_hd138048138100_ (let () (declare (not safe)) - (##car _e138052138100_))) - (_tl138050138105_ + (##car _e138049138097_))) + (_tl138047138102_ (let () (declare (not safe)) - (##cdr _e138052138100_)))) + (##cdr _e138049138097_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138050138105_)) + (gx#stx-null? _tl138047138102_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138047138097_)) - (let ((_e138055138108_ + (gx#stx-pair? _tl138044138094_)) + (let ((_e138052138105_ (let () (declare (not safe)) - (gx#stx-e _tl138047138097_)))) - (let ((_hd138054138111_ + (gx#stx-e _tl138044138094_)))) + (let ((_hd138051138108_ (let () (declare (not safe)) - (##car _e138055138108_))) - (_tl138053138113_ + (##car _e138052138105_))) + (_tl138050138110_ (let () (declare (not safe)) - (##cdr _e138055138108_)))) + (##cdr _e138052138105_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138053138113_)) + (gx#stx-null? _tl138050138110_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl138044138089_)) + _tl138041138086_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138041138081_)) - (let ((_e138058138116_ + _tl138038138078_)) + (let ((_e138055138113_ (let () (declare (not safe)) (gx#stx-e - _tl138041138081_)))) - (let ((_hd138057138119_ + _tl138038138078_)))) + (let ((_hd138054138116_ (let () (declare (not safe)) - (##car _e138058138116_))) - (_tl138056138121_ + (##car _e138055138113_))) + (_tl138053138118_ (let () (declare (not safe)) - (##cdr _e138058138116_)))) + (##cdr _e138055138113_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138056138121_)) - ((lambda (_L138124_ + _tl138053138118_)) + ((lambda (_L138121_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L138125_ - _L138126_) - (let _lp138150_ ((_body138152_ _L138124_) - (_clauses138153_ '())) - (let* ((___stx149242149243_ _body138152_) - (_g138156138203_ + _L138122_ + _L138123_) + (let _lp138147_ ((_body138149_ _L138121_) + (_clauses138150_ '())) + (let* ((___stx149239149240_ _body138149_) + (_g138153138200_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149242149243_))))) - (let ((___kont149244149245_ - (lambda (_L138369_ _L138370_ _L138371_) - (let ((__tmp150368 - (let ((__tmp150369 - (let ((__tmp150370 + ___stx149239149240_))))) + (let ((___kont149241149242_ + (lambda (_L138366_ _L138367_ _L138368_) + (let ((__tmp150365 + (let ((__tmp150366 + (let ((__tmp150367 (let () (declare (not safe)) (gxc#compile-e__0 - _L138370_)))) + _L138367_)))) (declare (not safe)) - (cons _L138371_ - __tmp150370)))) + (cons _L138368_ + __tmp150367)))) (declare (not safe)) - (cons __tmp150369 - _clauses138153_)))) + (cons __tmp150366 + _clauses138150_)))) (declare (not safe)) - (_lp138150_ _L138369_ __tmp150368)))) - (___kont149246149247_ - (lambda (_L138248_ _L138249_) - (let ((_$e138270_ (length _clauses138153_))) + (_lp138147_ _L138366_ __tmp150365)))) + (___kont149243149244_ + (lambda (_L138245_ _L138246_) + (let ((_$e138267_ (length _clauses138150_))) (if (let () (declare (not safe)) - (eq? '0 _$e138270_)) - (let ((__tmp150388 - (let ((__tmp150389 - (let ((__tmp150392 - (let ((__tmp150393 + (eq? '0 _$e138267_)) + (let ((__tmp150385 + (let ((__tmp150386 + (let ((__tmp150389 + (let ((__tmp150390 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150395 + (let ((__tmp150392 (let () (declare (not safe)) - (cons _L138126_ '()))) - (__tmp150394 + (cons _L138123_ '()))) + (__tmp150391 (let () (declare (not safe)) - (cons _L138125_ '())))) + (cons _L138122_ '())))) (declare (not safe)) - (cons __tmp150395 __tmp150394)))) + (cons __tmp150392 __tmp150391)))) (declare (not safe)) - (cons __tmp150393 '()))) - (__tmp150390 - (let ((__tmp150391 + (cons __tmp150390 '()))) + (__tmp150387 + (let ((__tmp150388 (let () (declare (not safe)) - (gxc#compile-e__0 _body138152_)))) + (gxc#compile-e__0 _body138149_)))) (declare (not safe)) - (cons __tmp150391 '())))) + (cons __tmp150388 '())))) (declare (not safe)) - (cons __tmp150392 __tmp150390)))) + (cons __tmp150389 __tmp150387)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp150389)))) + __tmp150386)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp150388 - _stx138031_)) + __tmp150385 + _stx138028_)) (if (let () (declare (not safe)) - (eq? '1 _$e138270_)) - (let* ((_clauses138272138281_ - _clauses138153_) - (_E138274138285_ + (eq? '1 _$e138267_)) + (let* ((_clauses138269138278_ + _clauses138150_) + (_E138271138282_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clauses138272138281_)))) - (_K138275138291_ - (lambda (_clause-lambda138288_ - _clause138289_) - (let ((__tmp150373 - (let ((__tmp150374 + _clauses138269138278_)))) + (_K138272138288_ + (lambda (_clause-lambda138285_ + _clause138286_) + (let ((__tmp150370 + (let ((__tmp150371 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150384 - (let ((__tmp150385 - (let ((__tmp150387 + (let ((__tmp150381 + (let ((__tmp150382 + (let ((__tmp150384 (let () (declare (not safe)) - (cons _L138126_ '()))) - (__tmp150386 + (cons _L138123_ '()))) + (__tmp150383 (let () (declare (not safe)) - (cons _L138125_ '())))) + (cons _L138122_ '())))) (declare (not safe)) - (cons __tmp150387 __tmp150386)))) + (cons __tmp150384 __tmp150383)))) (declare (not safe)) - (cons __tmp150385 '()))) - (__tmp150375 - (let ((__tmp150376 - (let ((__tmp150377 - (let ((__tmp150380 - (let ((__tmp150381 - (let ((__tmp150383 + (cons __tmp150382 '()))) + (__tmp150372 + (let ((__tmp150373 + (let ((__tmp150374 + (let ((__tmp150377 + (let ((__tmp150378 + (let ((__tmp150380 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _clause138289_ '()))) - (__tmp150382 + (cons _clause138286_ '()))) + (__tmp150379 (let () (declare (not safe)) - (cons _clause-lambda138288_ '())))) + (cons _clause-lambda138285_ '())))) (declare (not safe)) - (cons __tmp150383 __tmp150382)))) + (cons __tmp150380 __tmp150379)))) (declare (not safe)) - (cons __tmp150381 '()))) - (__tmp150378 - (let ((__tmp150379 + (cons __tmp150378 '()))) + (__tmp150375 + (let ((__tmp150376 (let () (declare (not safe)) - (gxc#compile-e__0 _body138152_)))) + (gxc#compile-e__0 _body138149_)))) (declare (not safe)) - (cons __tmp150379 '())))) + (cons __tmp150376 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150380 - __tmp150378)))) + (cons __tmp150377 + __tmp150375)))) (declare (not safe)) - (cons '%#let-values __tmp150377)))) + (cons '%#let-values __tmp150374)))) (declare (not safe)) - (cons __tmp150376 '())))) + (cons __tmp150373 '())))) (declare (not safe)) - (cons __tmp150384 __tmp150375)))) + (cons __tmp150381 __tmp150372)))) (declare (not safe)) - (cons '%#let-values __tmp150374)))) + (cons '%#let-values __tmp150371)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150373 _stx138031_))))) + (gxc#xform-wrap-source __tmp150370 _stx138028_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _clauses138272138281_)) - (let ((_hd138276138294_ + (##pair? _clauses138269138278_)) + (let ((_hd138273138291_ (let () (declare (not safe)) - (##car _clauses138272138281_))) - (_tl138277138296_ + (##car _clauses138269138278_))) + (_tl138274138293_ (let () (declare (not safe)) - (##cdr _clauses138272138281_)))) + (##cdr _clauses138269138278_)))) (if (let () (declare (not safe)) - (##pair? _hd138276138294_)) - (let ((_hd138278138299_ + (##pair? _hd138273138291_)) + (let ((_hd138275138296_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _hd138276138294_))) - (_tl138279138301_ - (let () (declare (not safe)) (##cdr _hd138276138294_)))) - (let* ((_clause138304_ _hd138278138299_) - (_clause-lambda138306_ _tl138279138301_)) + (##car _hd138273138291_))) + (_tl138276138298_ + (let () (declare (not safe)) (##cdr _hd138273138291_)))) + (let* ((_clause138301_ _hd138275138296_) + (_clause-lambda138303_ _tl138276138298_)) (if (let () (declare (not safe)) - (##null? _tl138277138296_)) + (##null? _tl138274138293_)) (let () (declare (not safe)) - (_K138275138291_ - _clause-lambda138306_ - _clause138304_)) - (let () (declare (not safe)) (_E138274138285_))))) - (let () (declare (not safe)) (_E138274138285_)))) + (_K138272138288_ + _clause-lambda138303_ + _clause138301_)) + (let () (declare (not safe)) (_E138271138282_))))) + (let () (declare (not safe)) (_E138271138282_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E138274138285_)))) - (let ((__tmp150372 + (_E138271138282_)))) + (let ((__tmp150369 (let () (declare (not safe)) (gxc#compile-e__0 - _L138248_))) - (__tmp150371 + _L138245_))) + (__tmp150368 (let () (declare (not safe)) - (cons _L138126_ - _L138125_)))) + (cons _L138123_ + _L138122_)))) (declare (not safe)) (gxc#optimize-syntax-case-body - _stx138031_ - __tmp150372 - __tmp150371 - _clauses138153_)))))))) + _stx138028_ + __tmp150369 + __tmp150368 + _clauses138150_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149242149243_)) - (let ((_e138163138313_ + (gx#stx-pair? ___stx149239149240_)) + (let ((_e138160138310_ (let () (declare (not safe)) - (gx#stx-e ___stx149242149243_)))) - (let ((_tl138161138318_ + (gx#stx-e ___stx149239149240_)))) + (let ((_tl138158138315_ (let () (declare (not safe)) - (##cdr _e138163138313_))) - (_hd138162138316_ + (##cdr _e138160138310_))) + (_hd138159138313_ (let () (declare (not safe)) - (##car _e138163138313_)))) + (##car _e138160138310_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138162138316_)) + (gx#identifier? _hd138159138313_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd138162138316_)) + _hd138159138313_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138161138318_)) - (let ((_e138166138321_ + _tl138158138315_)) + (let ((_e138163138318_ (let () (declare (not safe)) (gx#stx-e - _tl138161138318_)))) - (let ((_tl138164138326_ + _tl138158138315_)))) + (let ((_tl138161138323_ (let () (declare (not safe)) - (##cdr _e138166138321_))) - (_hd138165138324_ + (##cdr _e138163138318_))) + (_hd138162138321_ (let () (declare (not safe)) - (##car _e138166138321_)))) + (##car _e138163138318_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138165138324_)) - (let ((_e138169138329_ + _hd138162138321_)) + (let ((_e138166138326_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd138165138324_)))) - (let ((_tl138167138334_ - (let () (declare (not safe)) (##cdr _e138169138329_))) - (_hd138168138332_ - (let () (declare (not safe)) (##car _e138169138329_)))) + (gx#stx-e _hd138162138321_)))) + (let ((_tl138164138331_ + (let () (declare (not safe)) (##cdr _e138166138326_))) + (_hd138165138329_ + (let () (declare (not safe)) (##car _e138166138326_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138168138332_)) - (let ((_e138172138337_ + (gx#stx-pair? _hd138165138329_)) + (let ((_e138169138334_ (let () (declare (not safe)) - (gx#stx-e _hd138168138332_)))) - (let ((_tl138170138342_ + (gx#stx-e _hd138165138329_)))) + (let ((_tl138167138339_ (let () (declare (not safe)) - (##cdr _e138172138337_))) - (_hd138171138340_ + (##cdr _e138169138334_))) + (_hd138168138337_ (let () (declare (not safe)) - (##car _e138172138337_)))) + (##car _e138169138334_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138171138340_)) - (let ((_e138175138345_ + (gx#stx-pair? _hd138168138337_)) + (let ((_e138172138342_ (let () (declare (not safe)) - (gx#stx-e _hd138171138340_)))) - (let ((_tl138173138350_ + (gx#stx-e _hd138168138337_)))) + (let ((_tl138170138347_ (let () (declare (not safe)) - (##cdr _e138175138345_))) - (_hd138174138348_ + (##cdr _e138172138342_))) + (_hd138171138345_ (let () (declare (not safe)) - (##car _e138175138345_)))) + (##car _e138172138342_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138173138350_)) + (gx#stx-null? _tl138170138347_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138170138342_)) - (let ((_e138178138353_ + (gx#stx-pair? _tl138167138339_)) + (let ((_e138175138350_ (let () (declare (not safe)) (gx#stx-e - _tl138170138342_)))) - (let ((_tl138176138358_ + _tl138167138339_)))) + (let ((_tl138173138355_ (let () (declare (not safe)) - (##cdr _e138178138353_))) - (_hd138177138356_ + (##cdr _e138175138350_))) + (_hd138174138353_ (let () (declare (not safe)) - (##car _e138178138353_)))) + (##car _e138175138350_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138176138358_)) + _tl138173138355_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl138167138334_)) + _tl138164138331_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138164138326_)) - (let ((_e138181138361_ + _tl138161138323_)) + (let ((_e138178138358_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl138164138326_)))) - (let ((_tl138179138366_ + (gx#stx-e _tl138161138323_)))) + (let ((_tl138176138363_ (let () (declare (not safe)) - (##cdr _e138181138361_))) - (_hd138180138364_ + (##cdr _e138178138358_))) + (_hd138177138361_ (let () (declare (not safe)) - (##car _e138181138361_)))) + (##car _e138178138358_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138179138366_)) - (___kont149244149245_ - _hd138180138364_ - _hd138177138356_ - _hd138174138348_) - (let () (declare (not safe)) (_g138156138203_))))) - (let () (declare (not safe)) (_g138156138203_))) - (let () (declare (not safe)) (_g138156138203_))) + (gx#stx-null? _tl138176138363_)) + (___kont149241149242_ + _hd138177138361_ + _hd138174138353_ + _hd138171138345_) + (let () (declare (not safe)) (_g138153138200_))))) + (let () (declare (not safe)) (_g138153138200_))) + (let () (declare (not safe)) (_g138153138200_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138156138203_))))) + (_g138153138200_))))) (let () (declare (not safe)) - (_g138156138203_))) + (_g138153138200_))) (let () (declare (not safe)) - (_g138156138203_))))) + (_g138153138200_))))) (let () (declare (not safe)) - (_g138156138203_))))) - (let () (declare (not safe)) (_g138156138203_))))) - (let () (declare (not safe)) (_g138156138203_))))) + (_g138153138200_))))) + (let () (declare (not safe)) (_g138153138200_))))) + (let () (declare (not safe)) (_g138153138200_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138156138203_))) + (_g138153138200_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd138162138316_)) + _hd138159138313_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138161138318_)) - (let ((_e138189138216_ + _tl138158138315_)) + (let ((_e138186138213_ (let () (declare (not safe)) (gx#stx-e - _tl138161138318_)))) - (let ((_tl138187138221_ + _tl138158138315_)))) + (let ((_tl138184138218_ (let () (declare (not safe)) - (##cdr _e138189138216_))) - (_hd138188138219_ + (##cdr _e138186138213_))) + (_hd138185138216_ (let () (declare (not safe)) - (##car _e138189138216_)))) + (##car _e138186138213_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138188138219_)) - (let ((_e138192138224_ + _hd138185138216_)) + (let ((_e138189138221_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd138188138219_)))) - (let ((_tl138190138229_ + (gx#stx-e _hd138185138216_)))) + (let ((_tl138187138226_ (let () (declare (not safe)) - (##cdr _e138192138224_))) - (_hd138191138227_ + (##cdr _e138189138221_))) + (_hd138188138224_ (let () (declare (not safe)) - (##car _e138192138224_)))) + (##car _e138189138221_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138191138227_)) + (gx#identifier? _hd138188138224_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd138191138227_)) + (gx#stx-eq? '%#ref _hd138188138224_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138190138229_)) - (let ((_e138195138232_ + (gx#stx-pair? _tl138187138226_)) + (let ((_e138192138229_ (let () (declare (not safe)) - (gx#stx-e _tl138190138229_)))) - (let ((_tl138193138237_ + (gx#stx-e _tl138187138226_)))) + (let ((_tl138190138234_ (let () (declare (not safe)) - (##cdr _e138195138232_))) - (_hd138194138235_ + (##cdr _e138192138229_))) + (_hd138191138232_ (let () (declare (not safe)) - (##car _e138195138232_)))) + (##car _e138192138229_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138193138237_)) + (gx#stx-null? _tl138190138234_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138187138221_)) - (let ((_e138198138240_ + _tl138184138218_)) + (let ((_e138195138237_ (let () (declare (not safe)) (gx#stx-e - _tl138187138221_)))) - (let ((_tl138196138245_ + _tl138184138218_)))) + (let ((_tl138193138242_ (let () (declare (not safe)) - (##cdr _e138198138240_))) - (_hd138197138243_ + (##cdr _e138195138237_))) + (_hd138194138240_ (let () (declare (not safe)) - (##car _e138198138240_)))) + (##car _e138195138237_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138196138245_)) - (___kont149246149247_ - _hd138197138243_ - _hd138194138235_) + _tl138193138242_)) + (___kont149243149244_ + _hd138194138240_ + _hd138191138232_) (let () (declare (not safe)) - (_g138156138203_))))) + (_g138153138200_))))) (let () (declare (not safe)) - (_g138156138203_))) + (_g138153138200_))) (let () (declare (not safe)) - (_g138156138203_))))) + (_g138153138200_))))) (let () (declare (not safe)) - (_g138156138203_))) - (let () (declare (not safe)) (_g138156138203_))) - (let () (declare (not safe)) (_g138156138203_))))) - (let () (declare (not safe)) (_g138156138203_))))) + (_g138153138200_))) + (let () (declare (not safe)) (_g138153138200_))) + (let () (declare (not safe)) (_g138153138200_))))) + (let () (declare (not safe)) (_g138153138200_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138156138203_))) + (_g138153138200_))) (let () (declare (not safe)) - (_g138156138203_)))) + (_g138153138200_)))) (let () (declare (not safe)) - (_g138156138203_))))) + (_g138153138200_))))) (let () (declare (not safe)) - (_g138156138203_))))))) - _hd138057138119_ - _hd138054138111_ - _hd138051138103_) + (_g138153138200_))))))) + _hd138054138116_ + _hd138051138108_ + _hd138048138100_) (let () (declare (not safe)) - (_g138033138063_ _g138034138066_))))) + (_g138030138060_ _g138031138063_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138033138063_ - _g138034138066_))) + (_g138030138060_ + _g138031138063_))) (let () (declare (not safe)) - (_g138033138063_ - _g138034138066_))) + (_g138030138060_ + _g138031138063_))) (let () (declare (not safe)) - (_g138033138063_ - _g138034138066_))))) + (_g138030138060_ + _g138031138063_))))) (let () (declare (not safe)) - (_g138033138063_ _g138034138066_))) + (_g138030138060_ _g138031138063_))) (let () (declare (not safe)) - (_g138033138063_ _g138034138066_))))) + (_g138030138060_ _g138031138063_))))) (let () (declare (not safe)) - (_g138033138063_ _g138034138066_))))) + (_g138030138060_ _g138031138063_))))) (let () (declare (not safe)) - (_g138033138063_ _g138034138066_))))) + (_g138030138060_ _g138031138063_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138033138063_ - _g138034138066_))))) + (_g138030138060_ + _g138031138063_))))) (let () (declare (not safe)) - (_g138033138063_ _g138034138066_))) + (_g138030138060_ _g138031138063_))) (let () (declare (not safe)) - (_g138033138063_ _g138034138066_))) + (_g138030138060_ _g138031138063_))) (let () (declare (not safe)) - (_g138033138063_ _g138034138066_))))) + (_g138030138060_ _g138031138063_))))) (let () (declare (not safe)) - (_g138033138063_ _g138034138066_)))))) + (_g138030138060_ _g138031138063_)))))) (declare (not safe)) - (_g138032138397_ _stx138031_)))) + (_g138029138394_ _stx138028_)))) (define gxc#optimize-syntax-case-body - (lambda (_stx137959_ _expr137960_ _negation137961_ _clauses137962_) - (letrec ((_normalize137964_ - (lambda (_clauses137991_) - (let* ((_clauses137992138001_ _clauses137991_) - (_E137994138005_ + (lambda (_stx137956_ _expr137957_ _negation137958_ _clauses137959_) + (letrec ((_normalize137961_ + (lambda (_clauses137988_) + (let* ((_clauses137989137998_ _clauses137988_) + (_E137991138002_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clauses137992138001_)))) - (_K137995138012_ - (lambda (_rest138008_ _kont138009_ _id138010_) - (let ((__tmp150396 + _clauses137989137998_)))) + (_K137992138009_ + (lambda (_rest138005_ _kont138006_ _id138007_) + (let ((__tmp150393 (let () (declare (not safe)) - (cons '#f _kont138009_)))) + (cons '#f _kont138006_)))) (declare (not safe)) - (cons __tmp150396 _rest138008_))))) + (cons __tmp150393 _rest138005_))))) (if (let () (declare (not safe)) - (##pair? _clauses137992138001_)) - (let ((_hd137996138015_ + (##pair? _clauses137989137998_)) + (let ((_hd137993138012_ (let () (declare (not safe)) - (##car _clauses137992138001_))) - (_tl137997138017_ + (##car _clauses137989137998_))) + (_tl137994138014_ (let () (declare (not safe)) - (##cdr _clauses137992138001_)))) + (##cdr _clauses137989137998_)))) (if (let () (declare (not safe)) - (##pair? _hd137996138015_)) - (let ((_hd137998138020_ + (##pair? _hd137993138012_)) + (let ((_hd137995138017_ (let () (declare (not safe)) - (##car _hd137996138015_))) - (_tl137999138022_ + (##car _hd137993138012_))) + (_tl137996138019_ (let () (declare (not safe)) - (##cdr _hd137996138015_)))) - (let* ((_id138025_ _hd137998138020_) - (_kont138027_ _tl137999138022_) - (_rest138029_ _tl137997138017_)) + (##cdr _hd137993138012_)))) + (let* ((_id138022_ _hd137995138017_) + (_kont138024_ _tl137996138019_) + (_rest138026_ _tl137994138014_)) (declare (not safe)) - (_K137995138012_ - _rest138029_ - _kont138027_ - _id138025_))) + (_K137992138009_ + _rest138026_ + _kont138024_ + _id138022_))) (let () (declare (not safe)) - (_E137994138005_)))) - (let () (declare (not safe)) (_E137994138005_))))))) - (let ((__tmp150398 + (_E137991138002_)))) + (let () (declare (not safe)) (_E137991138002_))))))) + (let ((__tmp150395 (lambda () - (let* ((_id137967_ - (let ((__tmp150399 (gensym '__stx))) + (let* ((_id137964_ + (let ((__tmp150396 (gensym '__stx))) (declare (not safe)) - (make-symbol__0 __tmp150399))) - (_id137969_ + (make-symbol__0 __tmp150396))) + (_id137966_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id137967_))) - (_g150400_ + (gx#core-quote-syntax__0 _id137964_))) + (_g150397_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _id137969_))) - (_g150401_ - (let ((__tmp150403 (car _negation137961_))) + (gx#core-bind-runtime!__0 _id137966_))) + (_g150398_ + (let ((__tmp150400 (car _negation137958_))) (declare (not safe)) (gxc#optimize-syntax-case-clauses - _clauses137962_ - __tmp150403)))) + _clauses137959_ + __tmp150400)))) (begin - (let ((_g150402_ + (let ((_g150399_ (let () (declare (not safe)) - (if (##values? _g150401_) - (##vector-length _g150401_) + (if (##values? _g150398_) + (##vector-length _g150398_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150402_ 2))) - (error "Context expects 2 values" _g150402_))) - (let ((_clauses137972_ + (##fx= _g150399_ 2))) + (error "Context expects 2 values" _g150399_))) + (let ((_clauses137969_ (let () (declare (not safe)) - (##vector-ref _g150401_ 0))) - (_konts137973_ + (##vector-ref _g150398_ 0))) + (_konts137970_ (let () (declare (not safe)) - (##vector-ref _g150401_ 1)))) - (let* ((_clauses137982_ - (map (lambda (_g137974137977_ _g137975137979_) + (##vector-ref _g150398_ 1)))) + (let* ((_clauses137979_ + (map (lambda (_g137971137974_ _g137972137976_) (let () (declare (not safe)) (gxc#optimize-syntax-case-closure - _g137974137977_ - _g137975137979_ - _id137969_))) - _clauses137972_ - (let ((__tmp150405 - (let ((__tmp150406 - (car _negation137961_))) + _g137971137974_ + _g137972137976_ + _id137966_))) + _clauses137969_ + (let ((__tmp150402 + (let ((__tmp150403 + (car _negation137958_))) (declare (not safe)) - (cons __tmp150406 '()))) - (__tmp150404 - (map car (cdr _clauses137972_)))) + (cons __tmp150403 '()))) + (__tmp150401 + (map car (cdr _clauses137969_)))) (declare (not safe)) (foldr1 cons - __tmp150405 - __tmp150404)))) - (_clauses137984_ + __tmp150402 + __tmp150401)))) + (_clauses137981_ (let () (declare (not safe)) - (_normalize137964_ _clauses137982_))) - (_negation137986_ + (_normalize137961_ _clauses137979_))) + (_negation137983_ (let () (declare (not safe)) (gxc#optimize-syntax-case-closure - _negation137961_ + _negation137958_ '#f - _id137969_))) - (_body137988_ + _id137966_))) + (_body137985_ (let () (declare (not safe)) (gxc#optimize-match-body - _stx137959_ - _negation137986_ - _clauses137984_ - _konts137973_)))) - (let ((__tmp150407 - (let ((__tmp150408 - (let ((__tmp150410 - (let ((__tmp150411 - (let ((__tmp150413 + _stx137956_ + _negation137983_ + _clauses137981_ + _konts137970_)))) + (let ((__tmp150404 + (let ((__tmp150405 + (let ((__tmp150407 + (let ((__tmp150408 + (let ((__tmp150410 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id137969_ '()))) - (__tmp150412 - (let () (declare (not safe)) (cons _expr137960_ '())))) + (cons _id137966_ '()))) + (__tmp150409 + (let () (declare (not safe)) (cons _expr137957_ '())))) (declare (not safe)) - (cons __tmp150413 __tmp150412)))) + (cons __tmp150410 __tmp150409)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150411 '()))) - (__tmp150409 + (cons __tmp150408 '()))) + (__tmp150406 (let () (declare (not safe)) - (cons _body137988_ '())))) + (cons _body137985_ '())))) (declare (not safe)) - (cons __tmp150410 __tmp150409)))) + (cons __tmp150407 __tmp150406)))) (declare (not safe)) - (cons '%#let-values __tmp150408)))) + (cons '%#let-values __tmp150405)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp150407 - _stx137959_)))))))) - (__tmp150397 - (let ((__obj149988 + __tmp150404 + _stx137956_)))))))) + (__tmp150394 + (let ((__obj149985 (let () (declare (not safe)) (##structure @@ -14721,3733 +14721,3733 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj149988) - __obj149988))) + (gx#local-context:::init! __obj149985) + __obj149985))) (declare (not safe)) (call-with-parameters - __tmp150398 + __tmp150395 gx#current-expander-context - __tmp150397))))) + __tmp150394))))) (define gxc#optimize-syntax-case-clauses - (lambda (_clauses136717_ _negation-id136718_) - (letrec ((_xform-e136720_ - (lambda (_expr137104_ - _kont-id137105_ - _kont-box137106_ - _negation-id137107_) - (let* ((___stx149444149445_ _expr137104_) - (_g137113137246_ + (lambda (_clauses136714_ _negation-id136715_) + (letrec ((_xform-e136717_ + (lambda (_expr137101_ + _kont-id137102_ + _kont-box137103_ + _negation-id137104_) + (let* ((___stx149441149442_ _expr137101_) + (_g137110137243_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149444149445_))))) - (let ((___kont149446149447_ - (lambda (_L137935_ _L137936_ _L137937_) - (let* ((_K137954_ + ___stx149441149442_))))) + (let ((___kont149443149444_ + (lambda (_L137932_ _L137933_ _L137934_) + (let* ((_K137951_ (let () (declare (not safe)) - (_xform-e136720_ - _L137936_ - _kont-id137105_ - _kont-box137106_ - _negation-id137107_))) - (__tmp150414 - (let ((__tmp150415 - (let ((__tmp150416 + (_xform-e136717_ + _L137933_ + _kont-id137102_ + _kont-box137103_ + _negation-id137104_))) + (__tmp150411 + (let ((__tmp150412 + (let ((__tmp150413 (let () (declare (not safe)) - (cons _L137935_ '())))) + (cons _L137932_ '())))) (declare (not safe)) - (cons _K137954_ __tmp150416)))) + (cons _K137951_ __tmp150413)))) (declare (not safe)) - (cons _L137937_ __tmp150415)))) + (cons _L137934_ __tmp150412)))) (declare (not safe)) - (cons '%#if __tmp150414)))) - (___kont149448149449_ - (lambda (_L137851_ - _L137852_ - _L137853_ - _L137854_ - _L137855_) - (let* ((_id137890_ - (let ((__tmp150417 (gensym '__splice))) + (cons '%#if __tmp150411)))) + (___kont149445149446_ + (lambda (_L137848_ + _L137849_ + _L137850_ + _L137851_ + _L137852_) + (let* ((_id137887_ + (let ((__tmp150414 (gensym '__splice))) (declare (not safe)) - (make-symbol__0 __tmp150417))) - (_id137892_ + (make-symbol__0 __tmp150414))) + (_id137889_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id137890_))) - (_g150418_ + (gx#core-quote-syntax__0 _id137887_))) + (_g150415_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _id137892_))) - (_body137895_ + _id137889_))) + (_body137892_ (let () (declare (not safe)) - (_xform-e136720_ - _L137851_ - _kont-id137105_ - _kont-box137106_ - _negation-id137107_)))) - (let ((__tmp150419 - (let ((__tmp150444 - (let ((__tmp150445 - (let ((__tmp150453 + (_xform-e136717_ + _L137848_ + _kont-id137102_ + _kont-box137103_ + _negation-id137104_)))) + (let ((__tmp150416 + (let ((__tmp150441 + (let ((__tmp150442 + (let ((__tmp150450 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id137892_ '()))) - (__tmp150446 - (let ((__tmp150447 - (let ((__tmp150452 + (cons _id137889_ '()))) + (__tmp150443 + (let ((__tmp150444 + (let ((__tmp150449 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp150448 - (let ((__tmp150449 - (let ((__tmp150451 + (__tmp150445 + (let ((__tmp150446 + (let ((__tmp150448 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150450 + (__tmp150447 (let () (declare (not safe)) - (cons _L137853_ '())))) + (cons _L137850_ '())))) (declare (not safe)) - (cons __tmp150451 __tmp150450)))) + (cons __tmp150448 __tmp150447)))) (declare (not safe)) - (cons __tmp150449 _L137852_)))) + (cons __tmp150446 _L137849_)))) (declare (not safe)) - (cons __tmp150452 __tmp150448)))) + (cons __tmp150449 __tmp150445)))) (declare (not safe)) - (cons __tmp150447 '())))) + (cons __tmp150444 '())))) (declare (not safe)) - (cons __tmp150453 __tmp150446)))) + (cons __tmp150450 __tmp150443)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150445 '()))) - (__tmp150420 - (let ((__tmp150421 - (let ((__tmp150422 - (let ((__tmp150424 + (cons __tmp150442 '()))) + (__tmp150417 + (let ((__tmp150418 + (let ((__tmp150419 + (let ((__tmp150421 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150435 - (let ((__tmp150443 + (let ((__tmp150432 + (let ((__tmp150440 (let () (declare (not safe)) - (cons _L137855_ '()))) - (__tmp150436 - (let ((__tmp150437 - (let ((__tmp150438 - (let ((__tmp150439 - (let ((__tmp150441 + (cons _L137852_ '()))) + (__tmp150433 + (let ((__tmp150434 + (let ((__tmp150435 + (let ((__tmp150436 + (let ((__tmp150438 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150442 + (let ((__tmp150439 (let () (declare (not safe)) - (cons _id137892_ '())))) + (cons _id137889_ '())))) (declare (not safe)) - (cons '%#ref __tmp150442))) - (__tmp150440 + (cons '%#ref __tmp150439))) + (__tmp150437 (let () (declare (not safe)) (cons '(%#quote 0) '())))) (declare (not safe)) - (cons __tmp150441 __tmp150440)))) + (cons __tmp150438 __tmp150437)))) (declare (not safe)) - (cons '(%#ref ##vector-ref) __tmp150439)))) + (cons '(%#ref ##vector-ref) __tmp150436)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#call - __tmp150438)))) + __tmp150435)))) (declare (not safe)) - (cons __tmp150437 '())))) + (cons __tmp150434 '())))) (declare (not safe)) - (cons __tmp150443 __tmp150436))) - (__tmp150425 - (let ((__tmp150426 - (let ((__tmp150434 + (cons __tmp150440 __tmp150433))) + (__tmp150422 + (let ((__tmp150423 + (let ((__tmp150431 (let () (declare (not safe)) - (cons _L137854_ '()))) - (__tmp150427 - (let ((__tmp150428 - (let ((__tmp150429 - (let ((__tmp150430 + (cons _L137851_ '()))) + (__tmp150424 + (let ((__tmp150425 + (let ((__tmp150426 + (let ((__tmp150427 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150432 - (let ((__tmp150433 + (let ((__tmp150429 + (let ((__tmp150430 (let () (declare (not safe)) - (cons _id137892_ '())))) + (cons _id137889_ '())))) (declare (not safe)) - (cons '%#ref __tmp150433))) - (__tmp150431 + (cons '%#ref __tmp150430))) + (__tmp150428 (let () (declare (not safe)) (cons '(%#quote 1) '())))) (declare (not safe)) - (cons __tmp150432 __tmp150431)))) + (cons __tmp150429 __tmp150428)))) (declare (not safe)) - (cons '(%#ref ##vector-ref) __tmp150430)))) + (cons '(%#ref ##vector-ref) __tmp150427)))) (declare (not safe)) - (cons '%#call __tmp150429)))) + (cons '%#call __tmp150426)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150428 '())))) + (cons __tmp150425 '())))) (declare (not safe)) - (cons __tmp150434 __tmp150427)))) + (cons __tmp150431 __tmp150424)))) (declare (not safe)) - (cons __tmp150426 '())))) + (cons __tmp150423 '())))) (declare (not safe)) - (cons __tmp150435 __tmp150425))) - (__tmp150423 + (cons __tmp150432 __tmp150422))) + (__tmp150420 (let () (declare (not safe)) - (cons _body137895_ '())))) + (cons _body137892_ '())))) (declare (not safe)) - (cons __tmp150424 __tmp150423)))) + (cons __tmp150421 __tmp150420)))) (declare (not safe)) - (cons '%#let-values __tmp150422)))) + (cons '%#let-values __tmp150419)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150421 '())))) + (cons __tmp150418 '())))) (declare (not safe)) - (cons __tmp150444 __tmp150420)))) + (cons __tmp150441 __tmp150417)))) (declare (not safe)) - (cons '%#let-values __tmp150419))))) - (___kont149450149451_ - (lambda (_L137733_ _L137734_) - (let* ((_body137748_ + (cons '%#let-values __tmp150416))))) + (___kont149447149448_ + (lambda (_L137730_ _L137731_) + (let* ((_body137745_ (let () (declare (not safe)) - (_xform-e136720_ - _L137733_ - _kont-id137105_ - _kont-box137106_ - _negation-id137107_))) - (__tmp150454 - (let ((__tmp150455 + (_xform-e136717_ + _L137730_ + _kont-id137102_ + _kont-box137103_ + _negation-id137104_))) + (__tmp150451 + (let ((__tmp150452 (let () (declare (not safe)) - (cons _body137748_ '())))) + (cons _body137745_ '())))) (declare (not safe)) - (cons _L137734_ __tmp150455)))) + (cons _L137731_ __tmp150452)))) (declare (not safe)) - (cons '%#let-values __tmp150454)))) - (___kont149452149453_ - (lambda (_L137677_ _L137678_ _L137679_) - (let* ((_lambda-expr137702_ + (cons '%#let-values __tmp150451)))) + (___kont149449149450_ + (lambda (_L137674_ _L137675_ _L137676_) + (let* ((_lambda-expr137699_ (let () (declare (not safe)) - (_xform-loop-e136721_ - _L137678_ - _kont-id137105_ - _kont-box137106_ - _negation-id137107_))) - (__tmp150456 - (let ((__tmp150458 - (let ((__tmp150459 - (let ((__tmp150461 + (_xform-loop-e136718_ + _L137675_ + _kont-id137102_ + _kont-box137103_ + _negation-id137104_))) + (__tmp150453 + (let ((__tmp150455 + (let ((__tmp150456 + (let ((__tmp150458 (let () (declare (not safe)) - (cons _L137679_ + (cons _L137676_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp150460 + (__tmp150457 (let () (declare (not safe)) - (cons _lambda-expr137702_ '())))) + (cons _lambda-expr137699_ '())))) (declare (not safe)) - (cons __tmp150461 __tmp150460)))) + (cons __tmp150458 __tmp150457)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150459 '()))) - (__tmp150457 + (cons __tmp150456 '()))) + (__tmp150454 (let () (declare (not safe)) - (cons _L137677_ '())))) + (cons _L137674_ '())))) (declare (not safe)) - (cons __tmp150458 __tmp150457)))) + (cons __tmp150455 __tmp150454)))) (declare (not safe)) - (cons '%#letrec-values __tmp150456)))) - (___kont149454149455_ - (lambda (_L137339_ _L137340_ _L137341_) - (let* ((___stx149346149347_ _L137340_) - (_g137370137413_ + (cons '%#letrec-values __tmp150453)))) + (___kont149451149452_ + (lambda (_L137336_ _L137337_ _L137338_) + (let* ((___stx149343149344_ _L137337_) + (_g137367137410_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149346149347_))))) - (let ((___kont149348149349_ - (lambda (_L137529_ - _L137530_ - _L137531_ - _L137532_) - (let ((_kont137573_ - (let ((__tmp150466 + ___stx149343149344_))))) + (let ((___kont149345149346_ + (lambda (_L137526_ + _L137527_ + _L137528_ + _L137529_) + (let ((_kont137570_ + (let ((__tmp150463 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp150462 - (let ((__tmp150464 - (let ((__tmp150465 + (__tmp150459 + (let ((__tmp150461 + (let ((__tmp150462 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g137565137568_ _g137566137570_) + (lambda (_g137562137565_ _g137563137567_) (let () (declare (not safe)) - (cons _g137565137568_ _g137566137570_))))) + (cons _g137562137565_ _g137563137567_))))) (declare (not safe)) - (foldr1 __tmp150465 '() _L137341_))) - (__tmp150463 - (let () (declare (not safe)) (cons _L137531_ '())))) + (foldr1 __tmp150462 '() _L137338_))) + (__tmp150460 + (let () (declare (not safe)) (cons _L137528_ '())))) (declare (not safe)) - (cons __tmp150464 __tmp150463)))) + (cons __tmp150461 __tmp150460)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150466 - __tmp150462)))) + (cons __tmp150463 + __tmp150459)))) (set-box! - _kont-box137106_ - _kont137573_) - (let* ((_kont-args137584_ - (map (lambda (_id137575_) - (let ((__tmp150467 + _kont-box137103_ + _kont137570_) + (let* ((_kont-args137581_ + (map (lambda (_id137572_) + (let ((__tmp150464 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id137575_ '())))) + (let () (declare (not safe)) (cons _id137572_ '())))) (declare (not safe)) - (cons '%#ref __tmp150467))) - (let ((__tmp150468 - (lambda (_g137576137579_ _g137577137581_) + (cons '%#ref __tmp150464))) + (let ((__tmp150465 + (lambda (_g137573137576_ _g137574137578_) (let () (declare (not safe)) - (cons _g137576137579_ _g137577137581_))))) + (cons _g137573137576_ _g137574137578_))))) (declare (not safe)) - (foldr1 __tmp150468 '() _L137341_)))) + (foldr1 __tmp150465 '() _L137338_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_body137586_ - (let ((__tmp150469 - (let ((__tmp150470 + (_body137583_ + (let ((__tmp150466 + (let ((__tmp150467 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150482 - (let ((__tmp150483 - (let ((__tmp150484 - (let ((__tmp150485 + (let ((__tmp150479 + (let ((__tmp150480 + (let ((__tmp150481 + (let ((__tmp150482 (let () (declare (not safe)) - (cons _kont-id137105_ + (cons _kont-id137102_ '())))) (declare (not safe)) - (cons '%#ref __tmp150485)))) + (cons '%#ref __tmp150482)))) (declare (not safe)) - (cons __tmp150484 - _kont-args137584_)))) + (cons __tmp150481 + _kont-args137581_)))) (declare (not safe)) - (cons '%#call __tmp150483))) - (__tmp150471 - (let ((__tmp150472 - (let ((__tmp150481 + (cons '%#call __tmp150480))) + (__tmp150468 + (let ((__tmp150469 + (let ((__tmp150478 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp150473 - (let ((__tmp150478 - (let ((__tmp150480 + (__tmp150470 + (let ((__tmp150475 + (let ((__tmp150477 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150479 - (let () (declare (not safe)) (cons _L137530_ '())))) + (__tmp150476 + (let () (declare (not safe)) (cons _L137527_ '())))) (declare (not safe)) - (cons __tmp150480 __tmp150479))) + (cons __tmp150477 __tmp150476))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp150474 - (let ((__tmp150475 - (let ((__tmp150477 + (__tmp150471 + (let ((__tmp150472 + (let ((__tmp150474 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150476 + (__tmp150473 (let () (declare (not safe)) - (cons _L137529_ '())))) + (cons _L137526_ '())))) (declare (not safe)) - (cons __tmp150477 __tmp150476)))) + (cons __tmp150474 __tmp150473)))) (declare (not safe)) - (cons __tmp150475 '())))) + (cons __tmp150472 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150478 - __tmp150474)))) + (cons __tmp150475 + __tmp150471)))) (declare (not safe)) - (cons __tmp150481 __tmp150473)))) + (cons __tmp150478 __tmp150470)))) (declare (not safe)) - (cons __tmp150472 '())))) + (cons __tmp150469 '())))) (declare (not safe)) - (cons __tmp150482 __tmp150471)))) + (cons __tmp150479 __tmp150468)))) (declare (not safe)) - (cons _L137532_ __tmp150470)))) + (cons _L137529_ __tmp150467)))) (declare (not safe)) - (cons '%#if __tmp150469)))) + (cons '%#if __tmp150466)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let ((__tmp150493 - (let ((__tmp150494 - (lambda (_g137588137591_ + (if (let ((__tmp150490 + (let ((__tmp150491 + (lambda (_g137585137588_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g137589137593_) + _g137586137590_) (let () (declare (not safe)) - (cons _g137588137591_ _g137589137593_))))) + (cons _g137585137588_ _g137586137590_))))) (declare (not safe)) - (foldr1 __tmp150494 '() _L137341_)))) + (foldr1 __tmp150491 '() _L137338_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp150493)) - _body137586_ - (let ((__tmp150486 - (let ((__tmp150488 - (map (lambda (_id137596_ + (null? __tmp150490)) + _body137583_ + (let ((__tmp150483 + (let ((__tmp150485 + (map (lambda (_id137593_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _arg137597_) - (let ((__tmp150490 + _arg137594_) + (let ((__tmp150487 (let () (declare (not safe)) - (cons _id137596_ '()))) - (__tmp150489 + (cons _id137593_ '()))) + (__tmp150486 (let () (declare (not safe)) - (cons _arg137597_ '())))) + (cons _arg137594_ '())))) (declare (not safe)) - (cons __tmp150490 __tmp150489))) - (let ((__tmp150491 - (lambda (_g137598137601_ _g137599137603_) + (cons __tmp150487 __tmp150486))) + (let ((__tmp150488 + (lambda (_g137595137598_ _g137596137600_) (let () (declare (not safe)) - (cons _g137598137601_ - _g137599137603_))))) + (cons _g137595137598_ + _g137596137600_))))) (declare (not safe)) - (foldr1 __tmp150491 '() _L137341_)) - (let ((__tmp150492 - (lambda (_g137605137608_ _g137606137610_) + (foldr1 __tmp150488 '() _L137338_)) + (let ((__tmp150489 + (lambda (_g137602137605_ _g137603137607_) (let () (declare (not safe)) - (cons _g137605137608_ - _g137606137610_))))) + (cons _g137602137605_ + _g137603137607_))))) (declare (not safe)) - (foldr1 __tmp150492 '() _L137339_)))) - (__tmp150487 - (let () (declare (not safe)) (cons _body137586_ '())))) + (foldr1 __tmp150489 '() _L137336_)))) + (__tmp150484 + (let () (declare (not safe)) (cons _body137583_ '())))) (declare (not safe)) - (cons __tmp150488 __tmp150487)))) + (cons __tmp150485 __tmp150484)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp150486))))))) - (___kont149350149351_ + __tmp150483))))))) + (___kont149347149348_ (lambda () - (let ((_kont137427_ - (let ((__tmp150499 + (let ((_kont137424_ + (let ((__tmp150496 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp150495 - (let ((__tmp150497 - (let ((__tmp150498 + (__tmp150492 + (let ((__tmp150494 + (let ((__tmp150495 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g137419137422_ _g137420137424_) + (lambda (_g137416137419_ _g137417137421_) (let () (declare (not safe)) - (cons _g137419137422_ _g137420137424_))))) + (cons _g137416137419_ _g137417137421_))))) (declare (not safe)) - (foldr1 __tmp150498 '() _L137341_))) - (__tmp150496 - (let () (declare (not safe)) (cons _L137340_ '())))) + (foldr1 __tmp150495 '() _L137338_))) + (__tmp150493 + (let () (declare (not safe)) (cons _L137337_ '())))) (declare (not safe)) - (cons __tmp150497 __tmp150496)))) + (cons __tmp150494 __tmp150493)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150499 - __tmp150495)))) + (cons __tmp150496 + __tmp150492)))) (set-box! - _kont-box137106_ - _kont137427_) - (let ((__tmp150500 - (let ((__tmp150503 - (let ((__tmp150504 + _kont-box137103_ + _kont137424_) + (let ((__tmp150497 + (let ((__tmp150500 + (let ((__tmp150501 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _kont-id137105_ '())))) + (cons _kont-id137102_ '())))) (declare (not safe)) - (cons '%#ref __tmp150504))) - (__tmp150501 - (let ((__tmp150502 - (lambda (_g137428137431_ _g137429137433_) + (cons '%#ref __tmp150501))) + (__tmp150498 + (let ((__tmp150499 + (lambda (_g137425137428_ _g137426137430_) (let () (declare (not safe)) - (cons _g137428137431_ _g137429137433_))))) + (cons _g137425137428_ _g137426137430_))))) (declare (not safe)) - (foldr1 __tmp150502 '() _L137339_)))) + (foldr1 __tmp150499 '() _L137336_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150503 - __tmp150501)))) + (cons __tmp150500 + __tmp150498)))) (declare (not safe)) - (cons '%#call __tmp150500)))))) - (let ((___match149441149442_ - (lambda (_e137378137441_ - _hd137377137444_ - _tl137376137446_ - _e137381137449_ - _hd137380137452_ - _tl137379137454_ - _e137384137457_ - _hd137383137460_ - _tl137382137462_ - _e137387137465_ - _hd137386137468_ - _tl137385137470_ - _e137390137473_ - _hd137389137476_ - _tl137388137478_ - _e137393137481_ - _hd137392137484_ - _tl137391137486_ - _e137396137489_ - _hd137395137492_ - _tl137394137494_ - _e137399137497_ - _hd137398137500_ - _tl137397137502_ - _e137402137505_ - _hd137401137508_ - _tl137400137510_ - _e137405137513_ - _hd137404137516_ - _tl137403137518_ - _e137408137521_ - _hd137407137524_ - _tl137406137526_) - (let ((_L137529_ _hd137407137524_) - (_L137530_ _hd137398137500_) - (_L137531_ _hd137383137460_) - (_L137532_ _hd137380137452_)) + (cons '%#call __tmp150497)))))) + (let ((___match149438149439_ + (lambda (_e137375137438_ + _hd137374137441_ + _tl137373137443_ + _e137378137446_ + _hd137377137449_ + _tl137376137451_ + _e137381137454_ + _hd137380137457_ + _tl137379137459_ + _e137384137462_ + _hd137383137465_ + _tl137382137467_ + _e137387137470_ + _hd137386137473_ + _tl137385137475_ + _e137390137478_ + _hd137389137481_ + _tl137388137483_ + _e137393137486_ + _hd137392137489_ + _tl137391137491_ + _e137396137494_ + _hd137395137497_ + _tl137394137499_ + _e137399137502_ + _hd137398137505_ + _tl137397137507_ + _e137402137510_ + _hd137401137513_ + _tl137400137515_ + _e137405137518_ + _hd137404137521_ + _tl137403137523_) + (let ((_L137526_ _hd137404137521_) + (_L137527_ _hd137395137497_) + (_L137528_ _hd137380137457_) + (_L137529_ _hd137377137449_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L137530_ - _negation-id137107_)) - (___kont149348149349_ - _L137529_ - _L137530_ - _L137531_ - _L137532_) - (___kont149350149351_)))))) + _L137527_ + _negation-id137104_)) + (___kont149345149346_ + _L137526_ + _L137527_ + _L137528_ + _L137529_) + (___kont149347149348_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149346149347_)) - (let ((_e137378137441_ + (gx#stx-pair? ___stx149343149344_)) + (let ((_e137375137438_ (let () (declare (not safe)) (gx#stx-e - ___stx149346149347_)))) - (let ((_tl137376137446_ + ___stx149343149344_)))) + (let ((_tl137373137443_ (let () (declare (not safe)) - (##cdr _e137378137441_))) - (_hd137377137444_ + (##cdr _e137375137438_))) + (_hd137374137441_ (let () (declare (not safe)) - (##car _e137378137441_)))) + (##car _e137375137438_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd137377137444_)) + _hd137374137441_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd137377137444_)) + _hd137374137441_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137376137446_)) - (let ((_e137381137449_ + _tl137373137443_)) + (let ((_e137378137446_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl137376137446_)))) - (let ((_tl137379137454_ + (gx#stx-e _tl137373137443_)))) + (let ((_tl137376137451_ (let () (declare (not safe)) - (##cdr _e137381137449_))) - (_hd137380137452_ + (##cdr _e137378137446_))) + (_hd137377137449_ (let () (declare (not safe)) - (##car _e137381137449_)))) + (##car _e137378137446_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137379137454_)) - (let ((_e137384137457_ + (gx#stx-pair? _tl137376137451_)) + (let ((_e137381137454_ (let () (declare (not safe)) - (gx#stx-e _tl137379137454_)))) - (let ((_tl137382137462_ + (gx#stx-e _tl137376137451_)))) + (let ((_tl137379137459_ (let () (declare (not safe)) - (##cdr _e137384137457_))) - (_hd137383137460_ + (##cdr _e137381137454_))) + (_hd137380137457_ (let () (declare (not safe)) - (##car _e137384137457_)))) + (##car _e137381137454_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137382137462_)) - (let ((_e137387137465_ + (gx#stx-pair? _tl137379137459_)) + (let ((_e137384137462_ (let () (declare (not safe)) - (gx#stx-e _tl137382137462_)))) - (let ((_tl137385137470_ + (gx#stx-e _tl137379137459_)))) + (let ((_tl137382137467_ (let () (declare (not safe)) - (##cdr _e137387137465_))) - (_hd137386137468_ + (##cdr _e137384137462_))) + (_hd137383137465_ (let () (declare (not safe)) - (##car _e137387137465_)))) + (##car _e137384137462_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137386137468_)) - (let ((_e137390137473_ + (gx#stx-pair? _hd137383137465_)) + (let ((_e137387137470_ (let () (declare (not safe)) (gx#stx-e - _hd137386137468_)))) - (let ((_tl137388137478_ + _hd137383137465_)))) + (let ((_tl137385137475_ (let () (declare (not safe)) - (##cdr _e137390137473_))) - (_hd137389137476_ + (##cdr _e137387137470_))) + (_hd137386137473_ (let () (declare (not safe)) - (##car _e137390137473_)))) + (##car _e137387137470_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd137389137476_)) + _hd137386137473_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd137389137476_)) + _hd137386137473_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137388137478_)) - (let ((_e137393137481_ + _tl137385137475_)) + (let ((_e137390137478_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl137388137478_)))) - (let ((_tl137391137486_ + (gx#stx-e _tl137385137475_)))) + (let ((_tl137388137483_ (let () (declare (not safe)) - (##cdr _e137393137481_))) - (_hd137392137484_ + (##cdr _e137390137478_))) + (_hd137389137481_ (let () (declare (not safe)) - (##car _e137393137481_)))) + (##car _e137390137478_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137392137484_)) - (let ((_e137396137489_ + (gx#stx-pair? _hd137389137481_)) + (let ((_e137393137486_ (let () (declare (not safe)) - (gx#stx-e _hd137392137484_)))) - (let ((_tl137394137494_ + (gx#stx-e _hd137389137481_)))) + (let ((_tl137391137491_ (let () (declare (not safe)) - (##cdr _e137396137489_))) - (_hd137395137492_ + (##cdr _e137393137486_))) + (_hd137392137489_ (let () (declare (not safe)) - (##car _e137396137489_)))) + (##car _e137393137486_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd137395137492_)) + (gx#identifier? _hd137392137489_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd137395137492_)) + (gx#stx-eq? '%#ref _hd137392137489_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137394137494_)) - (let ((_e137399137497_ + (gx#stx-pair? _tl137391137491_)) + (let ((_e137396137494_ (let () (declare (not safe)) (gx#stx-e - _tl137394137494_)))) - (let ((_tl137397137502_ + _tl137391137491_)))) + (let ((_tl137394137499_ (let () (declare (not safe)) - (##cdr _e137399137497_))) - (_hd137398137500_ + (##cdr _e137396137494_))) + (_hd137395137497_ (let () (declare (not safe)) - (##car _e137399137497_)))) + (##car _e137396137494_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137397137502_)) + _tl137394137499_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137391137486_)) - (let ((_e137402137505_ + _tl137388137483_)) + (let ((_e137399137502_ (let () (declare (not safe)) (gx#stx-e - _tl137391137486_)))) - (let ((_tl137400137510_ + _tl137388137483_)))) + (let ((_tl137397137507_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e137402137505_))) - (_hd137401137508_ - (let () (declare (not safe)) (##car _e137402137505_)))) + (##cdr _e137399137502_))) + (_hd137398137505_ + (let () (declare (not safe)) (##car _e137399137502_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137401137508_)) - (let ((_e137405137513_ + (gx#stx-pair? _hd137398137505_)) + (let ((_e137402137510_ (let () (declare (not safe)) - (gx#stx-e _hd137401137508_)))) - (let ((_tl137403137518_ + (gx#stx-e _hd137398137505_)))) + (let ((_tl137400137515_ (let () (declare (not safe)) - (##cdr _e137405137513_))) - (_hd137404137516_ + (##cdr _e137402137510_))) + (_hd137401137513_ (let () (declare (not safe)) - (##car _e137405137513_)))) + (##car _e137402137510_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd137404137516_)) + (gx#identifier? _hd137401137513_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd137404137516_)) + (gx#stx-eq? '%#ref _hd137401137513_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137403137518_)) - (let ((_e137408137521_ + (gx#stx-pair? _tl137400137515_)) + (let ((_e137405137518_ (let () (declare (not safe)) - (gx#stx-e _tl137403137518_)))) - (let ((_tl137406137526_ + (gx#stx-e _tl137400137515_)))) + (let ((_tl137403137523_ (let () (declare (not safe)) - (##cdr _e137408137521_))) - (_hd137407137524_ + (##cdr _e137405137518_))) + (_hd137404137521_ (let () (declare (not safe)) - (##car _e137408137521_)))) + (##car _e137405137518_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137406137526_)) + (gx#stx-null? _tl137403137523_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl137400137510_)) + _tl137397137507_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl137385137470_)) - (___match149441149442_ - _e137378137441_ - _hd137377137444_ - _tl137376137446_ - _e137381137449_ - _hd137380137452_ - _tl137379137454_ - _e137384137457_ - _hd137383137460_ - _tl137382137462_ - _e137387137465_ - _hd137386137468_ - _tl137385137470_ - _e137390137473_ - _hd137389137476_ - _tl137388137478_ - _e137393137481_ - _hd137392137484_ - _tl137391137486_ - _e137396137489_ - _hd137395137492_ - _tl137394137494_ - _e137399137497_ - _hd137398137500_ - _tl137397137502_ - _e137402137505_ - _hd137401137508_ - _tl137400137510_ - _e137405137513_ - _hd137404137516_ - _tl137403137518_ - _e137408137521_ - _hd137407137524_ - _tl137406137526_) - (___kont149350149351_)) - (___kont149350149351_)) - (___kont149350149351_)))) - (___kont149350149351_)) - (___kont149350149351_)) - (___kont149350149351_)))) - (___kont149350149351_)))) + _tl137382137467_)) + (___match149438149439_ + _e137375137438_ + _hd137374137441_ + _tl137373137443_ + _e137378137446_ + _hd137377137449_ + _tl137376137451_ + _e137381137454_ + _hd137380137457_ + _tl137379137459_ + _e137384137462_ + _hd137383137465_ + _tl137382137467_ + _e137387137470_ + _hd137386137473_ + _tl137385137475_ + _e137390137478_ + _hd137389137481_ + _tl137388137483_ + _e137393137486_ + _hd137392137489_ + _tl137391137491_ + _e137396137494_ + _hd137395137497_ + _tl137394137499_ + _e137399137502_ + _hd137398137505_ + _tl137397137507_ + _e137402137510_ + _hd137401137513_ + _tl137400137515_ + _e137405137518_ + _hd137404137521_ + _tl137403137523_) + (___kont149347149348_)) + (___kont149347149348_)) + (___kont149347149348_)))) + (___kont149347149348_)) + (___kont149347149348_)) + (___kont149347149348_)))) + (___kont149347149348_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149350149351_)) - (___kont149350149351_)))) - (___kont149350149351_)) - (___kont149350149351_)) - (___kont149350149351_)))) - (___kont149350149351_)))) - (___kont149350149351_)) + (___kont149347149348_)) + (___kont149347149348_)))) + (___kont149347149348_)) + (___kont149347149348_)) + (___kont149347149348_)))) + (___kont149347149348_)))) + (___kont149347149348_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149350149351_)) - (___kont149350149351_)))) - (___kont149350149351_)))) - (___kont149350149351_)))) - (___kont149350149351_)))) - (___kont149350149351_)) + (___kont149347149348_)) + (___kont149347149348_)))) + (___kont149347149348_)))) + (___kont149347149348_)))) + (___kont149347149348_)))) + (___kont149347149348_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149350149351_)) - (___kont149350149351_)))) - (___kont149350149351_)))))))) - (let* ((___match149701149702_ - (lambda (_e137211137251_ - _hd137210137254_ - _tl137209137256_ - _e137214137259_ - _hd137213137262_ - _tl137212137264_ - _e137217137267_ - _hd137216137270_ - _tl137215137272_ - _e137220137275_ - _hd137219137278_ - _tl137218137280_ - ___splice149456149457_ - _target137221137283_ - _tl137223137285_) - (letrec ((_loop137224137288_ - (lambda (_hd137222137291_ - _id137228137293_) + (___kont149347149348_)) + (___kont149347149348_)))) + (___kont149347149348_)))))))) + (let* ((___match149698149699_ + (lambda (_e137208137248_ + _hd137207137251_ + _tl137206137253_ + _e137211137256_ + _hd137210137259_ + _tl137209137261_ + _e137214137264_ + _hd137213137267_ + _tl137212137269_ + _e137217137272_ + _hd137216137275_ + _tl137215137277_ + ___splice149453149454_ + _target137218137280_ + _tl137220137282_) + (letrec ((_loop137221137285_ + (lambda (_hd137219137288_ + _id137225137290_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd137222137291_)) - (let ((_e137225137296_ + _hd137219137288_)) + (let ((_e137222137293_ (let () (declare (not safe)) (gx#stx-e - _hd137222137291_)))) - (let ((_lp-tl137227137301_ + _hd137219137288_)))) + (let ((_lp-tl137224137298_ (let () (declare (not safe)) - (##cdr _e137225137296_))) - (_lp-hd137226137299_ + (##cdr _e137222137293_))) + (_lp-hd137223137296_ (let () (declare (not safe)) - (##car _e137225137296_)))) - (let ((__tmp150506 + (##car _e137222137293_)))) + (let ((__tmp150503 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd137226137299_ _id137228137293_)))) + (cons _lp-hd137223137296_ _id137225137290_)))) (declare (not safe)) - (_loop137224137288_ _lp-tl137227137301_ __tmp150506)))) + (_loop137221137285_ _lp-tl137224137298_ __tmp150503)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id137229137304_ - (reverse _id137228137293_))) + (let ((_id137226137301_ + (reverse _id137225137290_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137218137280_)) - (let ((_e137232137307_ + _tl137215137277_)) + (let ((_e137229137304_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl137218137280_)))) - (let ((_tl137230137312_ - (let () (declare (not safe)) (##cdr _e137232137307_))) - (_hd137231137310_ + (gx#stx-e _tl137215137277_)))) + (let ((_tl137227137309_ + (let () (declare (not safe)) (##cdr _e137229137304_))) + (_hd137228137307_ (let () (declare (not safe)) - (##car _e137232137307_)))) + (##car _e137229137304_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137230137312_)) + (gx#stx-null? _tl137227137309_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl137212137264_)) - (let ((___splice149458149459_ + (gx#stx-pair/null? _tl137209137261_)) + (let ((___splice149455149456_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl137212137264_ + _tl137209137261_ '0)))) - (let ((_tl137235137317_ + (let ((_tl137232137314_ (let () (declare (not safe)) (##vector-ref - ___splice149458149459_ + ___splice149455149456_ '1))) - (_target137233137315_ + (_target137230137312_ (let () (declare (not safe)) (##vector-ref - ___splice149458149459_ + ___splice149455149456_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137235137317_)) - (letrec ((_loop137236137320_ - (lambda (_hd137234137323_ - _arg137240137325_) + (gx#stx-null? _tl137232137314_)) + (letrec ((_loop137233137317_ + (lambda (_hd137231137320_ + _arg137237137322_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd137234137323_)) - (let ((_e137237137328_ + _hd137231137320_)) + (let ((_e137234137325_ (let () (declare (not safe)) (gx#stx-e - _hd137234137323_)))) - (let ((_lp-tl137239137333_ + _hd137231137320_)))) + (let ((_lp-tl137236137330_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e137237137328_))) - (_lp-hd137238137331_ - (let () (declare (not safe)) (##car _e137237137328_)))) - (let ((__tmp150505 + (##cdr _e137234137325_))) + (_lp-hd137235137328_ + (let () (declare (not safe)) (##car _e137234137325_)))) + (let ((__tmp150502 (let () (declare (not safe)) - (cons _lp-hd137238137331_ _arg137240137325_)))) + (cons _lp-hd137235137328_ _arg137237137322_)))) (declare (not safe)) - (_loop137236137320_ _lp-tl137239137333_ __tmp150505)))) + (_loop137233137317_ _lp-tl137236137330_ __tmp150502)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg137241137336_ - (reverse _arg137240137325_))) - (___kont149454149455_ - _arg137241137336_ - _hd137231137310_ - _id137229137304_)))))) + (let ((_arg137238137333_ + (reverse _arg137237137322_))) + (___kont149451149452_ + _arg137238137333_ + _hd137228137307_ + _id137226137301_)))))) (let () (declare (not safe)) - (_loop137236137320_ - _target137233137315_ + (_loop137233137317_ + _target137230137312_ '()))) (let () (declare (not safe)) - (_g137113137246_))))) - (let () (declare (not safe)) (_g137113137246_))) - (let () (declare (not safe)) (_g137113137246_))))) - (let () (declare (not safe)) (_g137113137246_)))))))) + (_g137110137243_))))) + (let () (declare (not safe)) (_g137110137243_))) + (let () (declare (not safe)) (_g137110137243_))))) + (let () (declare (not safe)) (_g137110137243_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop137224137288_ - _target137221137283_ + (_loop137221137285_ + _target137218137280_ '()))))) - (___match149583149584_ - (lambda (_e137137137755_ - _hd137136137758_ - _tl137135137760_ - _e137140137763_ - _hd137139137766_ - _tl137138137768_ - _e137143137771_ - _hd137142137774_ - _tl137141137776_ - _e137146137779_ - _hd137145137782_ - _tl137144137784_ - _e137149137787_ - _hd137148137790_ - _tl137147137792_ - _e137152137795_ - _hd137151137798_ - _tl137150137800_ - _e137155137803_ - _hd137154137806_ - _tl137153137808_ - _e137158137811_ - _hd137157137814_ - _tl137156137816_ - _e137161137819_ - _hd137160137822_ - _tl137159137824_ - _e137164137827_ - _hd137163137830_ - _tl137162137832_ - _e137167137835_ - _hd137166137838_ - _tl137165137840_ - _e137170137843_ - _hd137169137846_ - _tl137168137848_) - (let ((_L137851_ _hd137169137846_) - (_L137852_ _tl137159137824_) - (_L137853_ _hd137166137838_) - (_L137854_ _hd137151137798_) - (_L137855_ _hd137148137790_)) + (___match149580149581_ + (lambda (_e137134137752_ + _hd137133137755_ + _tl137132137757_ + _e137137137760_ + _hd137136137763_ + _tl137135137765_ + _e137140137768_ + _hd137139137771_ + _tl137138137773_ + _e137143137776_ + _hd137142137779_ + _tl137141137781_ + _e137146137784_ + _hd137145137787_ + _tl137144137789_ + _e137149137792_ + _hd137148137795_ + _tl137147137797_ + _e137152137800_ + _hd137151137803_ + _tl137150137805_ + _e137155137808_ + _hd137154137811_ + _tl137153137813_ + _e137158137816_ + _hd137157137819_ + _tl137156137821_ + _e137161137824_ + _hd137160137827_ + _tl137159137829_ + _e137164137832_ + _hd137163137835_ + _tl137162137837_ + _e137167137840_ + _hd137166137843_ + _tl137165137845_) + (let ((_L137848_ _hd137166137843_) + (_L137849_ _tl137156137821_) + (_L137850_ _hd137163137835_) + (_L137851_ _hd137148137795_) + (_L137852_ _hd137145137787_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L137853_ + _L137850_ 'gx#syntax-split-splice)) - (___kont149448149449_ + (___kont149445149446_ + _L137848_ + _L137849_ + _L137850_ _L137851_ - _L137852_ - _L137853_ - _L137854_ - _L137855_) - (___kont149450149451_ - _hd137169137846_ - _hd137139137766_)))))) + _L137852_) + (___kont149447149448_ + _hd137166137843_ + _hd137136137763_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149444149445_)) - (let ((_e137120137903_ + (gx#stx-pair? ___stx149441149442_)) + (let ((_e137117137900_ (let () (declare (not safe)) - (gx#stx-e ___stx149444149445_)))) - (let ((_tl137118137908_ + (gx#stx-e ___stx149441149442_)))) + (let ((_tl137115137905_ (let () (declare (not safe)) - (##cdr _e137120137903_))) - (_hd137119137906_ + (##cdr _e137117137900_))) + (_hd137116137903_ (let () (declare (not safe)) - (##car _e137120137903_)))) + (##car _e137117137900_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd137119137906_)) + (gx#identifier? _hd137116137903_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd137119137906_)) + _hd137116137903_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137118137908_)) - (let ((_e137123137911_ + _tl137115137905_)) + (let ((_e137120137908_ (let () (declare (not safe)) (gx#stx-e - _tl137118137908_)))) - (let ((_tl137121137916_ + _tl137115137905_)))) + (let ((_tl137118137913_ (let () (declare (not safe)) - (##cdr _e137123137911_))) - (_hd137122137914_ + (##cdr _e137120137908_))) + (_hd137119137911_ (let () (declare (not safe)) - (##car _e137123137911_)))) + (##car _e137120137908_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137121137916_)) - (let ((_e137126137919_ + _tl137118137913_)) + (let ((_e137123137916_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl137121137916_)))) - (let ((_tl137124137924_ - (let () (declare (not safe)) (##cdr _e137126137919_))) - (_hd137125137922_ - (let () (declare (not safe)) (##car _e137126137919_)))) + (gx#stx-e _tl137118137913_)))) + (let ((_tl137121137921_ + (let () (declare (not safe)) (##cdr _e137123137916_))) + (_hd137122137919_ + (let () (declare (not safe)) (##car _e137123137916_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137124137924_)) - (let ((_e137129137927_ + (gx#stx-pair? _tl137121137921_)) + (let ((_e137126137924_ (let () (declare (not safe)) - (gx#stx-e _tl137124137924_)))) - (let ((_tl137127137932_ + (gx#stx-e _tl137121137921_)))) + (let ((_tl137124137929_ (let () (declare (not safe)) - (##cdr _e137129137927_))) - (_hd137128137930_ + (##cdr _e137126137924_))) + (_hd137125137927_ (let () (declare (not safe)) - (##car _e137129137927_)))) + (##car _e137126137924_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137127137932_)) - (___kont149446149447_ - _hd137128137930_ - _hd137125137922_ - _hd137122137914_) + (gx#stx-null? _tl137124137929_)) + (___kont149443149444_ + _hd137125137927_ + _hd137122137919_ + _hd137119137911_) (let () (declare (not safe)) - (_g137113137246_))))) - (let () (declare (not safe)) (_g137113137246_))))) - (let () (declare (not safe)) (_g137113137246_))))) + (_g137110137243_))))) + (let () (declare (not safe)) (_g137110137243_))))) + (let () (declare (not safe)) (_g137110137243_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g137113137246_))) + (_g137110137243_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd137119137906_)) + _hd137116137903_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137118137908_)) - (let ((_e137140137763_ + _tl137115137905_)) + (let ((_e137137137760_ (let () (declare (not safe)) (gx#stx-e - _tl137118137908_)))) - (let ((_tl137138137768_ + _tl137115137905_)))) + (let ((_tl137135137765_ (let () (declare (not safe)) - (##cdr _e137140137763_))) - (_hd137139137766_ + (##cdr _e137137137760_))) + (_hd137136137763_ (let () (declare (not safe)) - (##car _e137140137763_)))) + (##car _e137137137760_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd137139137766_)) - (let ((_e137143137771_ + _hd137136137763_)) + (let ((_e137140137768_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd137139137766_)))) - (let ((_tl137141137776_ + (gx#stx-e _hd137136137763_)))) + (let ((_tl137138137773_ (let () (declare (not safe)) - (##cdr _e137143137771_))) - (_hd137142137774_ + (##cdr _e137140137768_))) + (_hd137139137771_ (let () (declare (not safe)) - (##car _e137143137771_)))) + (##car _e137140137768_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137142137774_)) - (let ((_e137146137779_ + (gx#stx-pair? _hd137139137771_)) + (let ((_e137143137776_ (let () (declare (not safe)) - (gx#stx-e _hd137142137774_)))) - (let ((_tl137144137784_ + (gx#stx-e _hd137139137771_)))) + (let ((_tl137141137781_ (let () (declare (not safe)) - (##cdr _e137146137779_))) - (_hd137145137782_ + (##cdr _e137143137776_))) + (_hd137142137779_ (let () (declare (not safe)) - (##car _e137146137779_)))) + (##car _e137143137776_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137145137782_)) - (let ((_e137149137787_ + (gx#stx-pair? _hd137142137779_)) + (let ((_e137146137784_ (let () (declare (not safe)) - (gx#stx-e _hd137145137782_)))) - (let ((_tl137147137792_ + (gx#stx-e _hd137142137779_)))) + (let ((_tl137144137789_ (let () (declare (not safe)) - (##cdr _e137149137787_))) - (_hd137148137790_ + (##cdr _e137146137784_))) + (_hd137145137787_ (let () (declare (not safe)) - (##car _e137149137787_)))) + (##car _e137146137784_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137147137792_)) - (let ((_e137152137795_ + (gx#stx-pair? _tl137144137789_)) + (let ((_e137149137792_ (let () (declare (not safe)) (gx#stx-e - _tl137147137792_)))) - (let ((_tl137150137800_ + _tl137144137789_)))) + (let ((_tl137147137797_ (let () (declare (not safe)) - (##cdr _e137152137795_))) - (_hd137151137798_ + (##cdr _e137149137792_))) + (_hd137148137795_ (let () (declare (not safe)) - (##car _e137152137795_)))) + (##car _e137149137792_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137150137800_)) + _tl137147137797_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137144137784_)) - (let ((_e137155137803_ + _tl137141137781_)) + (let ((_e137152137800_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl137144137784_)))) - (let ((_tl137153137808_ - (let () (declare (not safe)) (##cdr _e137155137803_))) - (_hd137154137806_ - (let () (declare (not safe)) (##car _e137155137803_)))) + (gx#stx-e _tl137141137781_)))) + (let ((_tl137150137805_ + (let () (declare (not safe)) (##cdr _e137152137800_))) + (_hd137151137803_ + (let () (declare (not safe)) (##car _e137152137800_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137154137806_)) - (let ((_e137158137811_ + (gx#stx-pair? _hd137151137803_)) + (let ((_e137155137808_ (let () (declare (not safe)) - (gx#stx-e _hd137154137806_)))) - (let ((_tl137156137816_ + (gx#stx-e _hd137151137803_)))) + (let ((_tl137153137813_ (let () (declare (not safe)) - (##cdr _e137158137811_))) - (_hd137157137814_ + (##cdr _e137155137808_))) + (_hd137154137811_ (let () (declare (not safe)) - (##car _e137158137811_)))) + (##car _e137155137808_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd137157137814_)) + (gx#identifier? _hd137154137811_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd137157137814_)) + (gx#stx-eq? '%#call _hd137154137811_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137156137816_)) - (let ((_e137161137819_ + (gx#stx-pair? _tl137153137813_)) + (let ((_e137158137816_ (let () (declare (not safe)) - (gx#stx-e _tl137156137816_)))) - (let ((_tl137159137824_ + (gx#stx-e _tl137153137813_)))) + (let ((_tl137156137821_ (let () (declare (not safe)) - (##cdr _e137161137819_))) - (_hd137160137822_ + (##cdr _e137158137816_))) + (_hd137157137819_ (let () (declare (not safe)) - (##car _e137161137819_)))) + (##car _e137158137816_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd137160137822_)) - (let ((_e137164137827_ + _hd137157137819_)) + (let ((_e137161137824_ (let () (declare (not safe)) (gx#stx-e - _hd137160137822_)))) - (let ((_tl137162137832_ + _hd137157137819_)))) + (let ((_tl137159137829_ (let () (declare (not safe)) - (##cdr _e137164137827_))) - (_hd137163137830_ + (##cdr _e137161137824_))) + (_hd137160137827_ (let () (declare (not safe)) - (##car _e137164137827_)))) + (##car _e137161137824_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd137163137830_)) + _hd137160137827_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd137163137830_)) + _hd137160137827_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl137162137832_)) - (let ((_e137167137835_ + (gx#stx-pair? _tl137159137829_)) + (let ((_e137164137832_ (let () (declare (not safe)) - (gx#stx-e _tl137162137832_)))) - (let ((_tl137165137840_ + (gx#stx-e _tl137159137829_)))) + (let ((_tl137162137837_ (let () (declare (not safe)) - (##cdr _e137167137835_))) - (_hd137166137838_ + (##cdr _e137164137832_))) + (_hd137163137835_ (let () (declare (not safe)) - (##car _e137167137835_)))) + (##car _e137164137832_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137165137840_)) + (gx#stx-null? _tl137162137837_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl137153137808_)) + (gx#stx-null? _tl137150137805_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl137141137776_)) + (gx#stx-null? _tl137138137773_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137138137768_)) - (let ((_e137170137843_ + (gx#stx-pair? _tl137135137765_)) + (let ((_e137167137840_ (let () (declare (not safe)) (gx#stx-e - _tl137138137768_)))) - (let ((_tl137168137848_ + _tl137135137765_)))) + (let ((_tl137165137845_ (let () (declare (not safe)) - (##cdr _e137170137843_))) - (_hd137169137846_ + (##cdr _e137167137840_))) + (_hd137166137843_ (let () (declare (not safe)) - (##car _e137170137843_)))) + (##car _e137167137840_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137168137848_)) - (___match149583149584_ - _e137120137903_ - _hd137119137906_ - _tl137118137908_ - _e137140137763_ - _hd137139137766_ - _tl137138137768_ - _e137143137771_ - _hd137142137774_ - _tl137141137776_ - _e137146137779_ - _hd137145137782_ - _tl137144137784_ - _e137149137787_ - _hd137148137790_ - _tl137147137792_ - _e137152137795_ - _hd137151137798_ - _tl137150137800_ - _e137155137803_ - _hd137154137806_ - _tl137153137808_ - _e137158137811_ - _hd137157137814_ - _tl137156137816_ - _e137161137819_ - _hd137160137822_ - _tl137159137824_ - _e137164137827_ - _hd137163137830_ - _tl137162137832_ - _e137167137835_ - _hd137166137838_ - _tl137165137840_ - _e137170137843_ - _hd137169137846_ - _tl137168137848_) + _tl137165137845_)) + (___match149580149581_ + _e137117137900_ + _hd137116137903_ + _tl137115137905_ + _e137137137760_ + _hd137136137763_ + _tl137135137765_ + _e137140137768_ + _hd137139137771_ + _tl137138137773_ + _e137143137776_ + _hd137142137779_ + _tl137141137781_ + _e137146137784_ + _hd137145137787_ + _tl137144137789_ + _e137149137792_ + _hd137148137795_ + _tl137147137797_ + _e137152137800_ + _hd137151137803_ + _tl137150137805_ + _e137155137808_ + _hd137154137811_ + _tl137153137813_ + _e137158137816_ + _hd137157137819_ + _tl137156137821_ + _e137161137824_ + _hd137160137827_ + _tl137159137829_ + _e137164137832_ + _hd137163137835_ + _tl137162137837_ + _e137167137840_ + _hd137166137843_ + _tl137165137845_) (let () (declare (not safe)) - (_g137113137246_))))) + (_g137110137243_))))) (let () (declare (not safe)) - (_g137113137246_))) + (_g137110137243_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137138137768_)) - (let ((_e137181137725_ + (gx#stx-pair? _tl137135137765_)) + (let ((_e137178137722_ (let () (declare (not safe)) (gx#stx-e - _tl137138137768_)))) - (let ((_tl137179137730_ + _tl137135137765_)))) + (let ((_tl137176137727_ (let () (declare (not safe)) - (##cdr _e137181137725_))) - (_hd137180137728_ + (##cdr _e137178137722_))) + (_hd137177137725_ (let () (declare (not safe)) - (##car _e137181137725_)))) + (##car _e137178137722_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137179137730_)) - (___kont149450149451_ - _hd137180137728_ - _hd137139137766_) + _tl137176137727_)) + (___kont149447149448_ + _hd137177137725_ + _hd137136137763_) (let () (declare (not safe)) - (_g137113137246_))))) + (_g137110137243_))))) (let () (declare (not safe)) - (_g137113137246_)))) + (_g137110137243_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137138137768_)) - (let ((_e137181137725_ + (gx#stx-pair? _tl137135137765_)) + (let ((_e137178137722_ (let () (declare (not safe)) - (gx#stx-e _tl137138137768_)))) - (let ((_tl137179137730_ + (gx#stx-e _tl137135137765_)))) + (let ((_tl137176137727_ (let () (declare (not safe)) - (##cdr _e137181137725_))) - (_hd137180137728_ + (##cdr _e137178137722_))) + (_hd137177137725_ (let () (declare (not safe)) - (##car _e137181137725_)))) + (##car _e137178137722_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137179137730_)) - (___kont149450149451_ - _hd137180137728_ - _hd137139137766_) + _tl137176137727_)) + (___kont149447149448_ + _hd137177137725_ + _hd137136137763_) (let () (declare (not safe)) - (_g137113137246_))))) + (_g137110137243_))))) (let () (declare (not safe)) - (_g137113137246_)))) + (_g137110137243_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137138137768_)) - (let ((_e137181137725_ + (gx#stx-pair? _tl137135137765_)) + (let ((_e137178137722_ (let () (declare (not safe)) - (gx#stx-e _tl137138137768_)))) - (let ((_tl137179137730_ + (gx#stx-e _tl137135137765_)))) + (let ((_tl137176137727_ (let () (declare (not safe)) - (##cdr _e137181137725_))) - (_hd137180137728_ + (##cdr _e137178137722_))) + (_hd137177137725_ (let () (declare (not safe)) - (##car _e137181137725_)))) + (##car _e137178137722_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137179137730_)) - (___kont149450149451_ - _hd137180137728_ - _hd137139137766_) + (gx#stx-null? _tl137176137727_)) + (___kont149447149448_ + _hd137177137725_ + _hd137136137763_) (let () (declare (not safe)) - (_g137113137246_))))) + (_g137110137243_))))) (let () (declare (not safe)) - (_g137113137246_)))))) + (_g137110137243_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137138137768_)) - (let ((_e137181137725_ + (gx#stx-pair? _tl137135137765_)) + (let ((_e137178137722_ (let () (declare (not safe)) - (gx#stx-e _tl137138137768_)))) - (let ((_tl137179137730_ + (gx#stx-e _tl137135137765_)))) + (let ((_tl137176137727_ (let () (declare (not safe)) - (##cdr _e137181137725_))) - (_hd137180137728_ + (##cdr _e137178137722_))) + (_hd137177137725_ (let () (declare (not safe)) - (##car _e137181137725_)))) + (##car _e137178137722_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137179137730_)) - (___kont149450149451_ - _hd137180137728_ - _hd137139137766_) + (gx#stx-null? _tl137176137727_)) + (___kont149447149448_ + _hd137177137725_ + _hd137136137763_) (let () (declare (not safe)) - (_g137113137246_))))) - (let () (declare (not safe)) (_g137113137246_)))) + (_g137110137243_))))) + (let () (declare (not safe)) (_g137110137243_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137138137768_)) - (let ((_e137181137725_ + (gx#stx-pair? _tl137135137765_)) + (let ((_e137178137722_ (let () (declare (not safe)) - (gx#stx-e _tl137138137768_)))) - (let ((_tl137179137730_ + (gx#stx-e _tl137135137765_)))) + (let ((_tl137176137727_ (let () (declare (not safe)) - (##cdr _e137181137725_))) - (_hd137180137728_ + (##cdr _e137178137722_))) + (_hd137177137725_ (let () (declare (not safe)) - (##car _e137181137725_)))) + (##car _e137178137722_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137179137730_)) - (___kont149450149451_ - _hd137180137728_ - _hd137139137766_) + (gx#stx-null? _tl137176137727_)) + (___kont149447149448_ + _hd137177137725_ + _hd137136137763_) (let () (declare (not safe)) - (_g137113137246_))))) - (let () (declare (not safe)) (_g137113137246_)))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl137138137768_)) - (let ((_e137181137725_ + (_g137110137243_))))) + (let () (declare (not safe)) (_g137110137243_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl137135137765_)) + (let ((_e137178137722_ (let () (declare (not safe)) - (gx#stx-e _tl137138137768_)))) - (let ((_tl137179137730_ + (gx#stx-e _tl137135137765_)))) + (let ((_tl137176137727_ (let () (declare (not safe)) - (##cdr _e137181137725_))) - (_hd137180137728_ + (##cdr _e137178137722_))) + (_hd137177137725_ (let () (declare (not safe)) - (##car _e137181137725_)))) + (##car _e137178137722_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137179137730_)) - (___kont149450149451_ - _hd137180137728_ - _hd137139137766_) - (let () (declare (not safe)) (_g137113137246_))))) - (let () (declare (not safe)) (_g137113137246_)))))) + (gx#stx-null? _tl137176137727_)) + (___kont149447149448_ + _hd137177137725_ + _hd137136137763_) + (let () (declare (not safe)) (_g137110137243_))))) + (let () (declare (not safe)) (_g137110137243_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl137138137768_)) - (let ((_e137181137725_ + _tl137135137765_)) + (let ((_e137178137722_ (let () (declare (not safe)) (gx#stx-e - _tl137138137768_)))) - (let ((_tl137179137730_ + _tl137135137765_)))) + (let ((_tl137176137727_ (let () (declare (not safe)) - (##cdr _e137181137725_))) - (_hd137180137728_ + (##cdr _e137178137722_))) + (_hd137177137725_ (let () (declare (not safe)) - (##car _e137181137725_)))) + (##car _e137178137722_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137179137730_)) - (___kont149450149451_ - _hd137180137728_ - _hd137139137766_) + _tl137176137727_)) + (___kont149447149448_ + _hd137177137725_ + _hd137136137763_) (let () (declare (not safe)) - (_g137113137246_))))) + (_g137110137243_))))) (let () (declare (not safe)) - (_g137113137246_)))))) + (_g137110137243_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137138137768_)) - (let ((_e137181137725_ + (gx#stx-pair? _tl137135137765_)) + (let ((_e137178137722_ (let () (declare (not safe)) (gx#stx-e - _tl137138137768_)))) - (let ((_tl137179137730_ + _tl137135137765_)))) + (let ((_tl137176137727_ (let () (declare (not safe)) - (##cdr _e137181137725_))) - (_hd137180137728_ + (##cdr _e137178137722_))) + (_hd137177137725_ (let () (declare (not safe)) - (##car _e137181137725_)))) + (##car _e137178137722_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137179137730_)) - (___kont149450149451_ - _hd137180137728_ - _hd137139137766_) + _tl137176137727_)) + (___kont149447149448_ + _hd137177137725_ + _hd137136137763_) (let () (declare (not safe)) - (_g137113137246_))))) + (_g137110137243_))))) (let () (declare (not safe)) - (_g137113137246_)))) + (_g137110137243_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137138137768_)) - (let ((_e137181137725_ + (gx#stx-pair? _tl137135137765_)) + (let ((_e137178137722_ (let () (declare (not safe)) - (gx#stx-e _tl137138137768_)))) - (let ((_tl137179137730_ + (gx#stx-e _tl137135137765_)))) + (let ((_tl137176137727_ (let () (declare (not safe)) - (##cdr _e137181137725_))) - (_hd137180137728_ + (##cdr _e137178137722_))) + (_hd137177137725_ (let () (declare (not safe)) - (##car _e137181137725_)))) + (##car _e137178137722_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137179137730_)) - (___kont149450149451_ - _hd137180137728_ - _hd137139137766_) + _tl137176137727_)) + (___kont149447149448_ + _hd137177137725_ + _hd137136137763_) (let () (declare (not safe)) - (_g137113137246_))))) + (_g137110137243_))))) (let () (declare (not safe)) - (_g137113137246_)))) + (_g137110137243_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137138137768_)) - (let ((_e137181137725_ + (gx#stx-pair? _tl137135137765_)) + (let ((_e137178137722_ (let () (declare (not safe)) - (gx#stx-e _tl137138137768_)))) - (let ((_tl137179137730_ + (gx#stx-e _tl137135137765_)))) + (let ((_tl137176137727_ (let () (declare (not safe)) - (##cdr _e137181137725_))) - (_hd137180137728_ + (##cdr _e137178137722_))) + (_hd137177137725_ (let () (declare (not safe)) - (##car _e137181137725_)))) + (##car _e137178137722_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137179137730_)) - (___kont149450149451_ - _hd137180137728_ - _hd137139137766_) + (gx#stx-null? _tl137176137727_)) + (___kont149447149448_ + _hd137177137725_ + _hd137136137763_) (let () (declare (not safe)) - (_g137113137246_))))) + (_g137110137243_))))) (let () (declare (not safe)) - (_g137113137246_)))))) + (_g137110137243_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137138137768_)) - (let ((_e137181137725_ + (gx#stx-pair? _tl137135137765_)) + (let ((_e137178137722_ (let () (declare (not safe)) - (gx#stx-e _tl137138137768_)))) - (let ((_tl137179137730_ + (gx#stx-e _tl137135137765_)))) + (let ((_tl137176137727_ (let () (declare (not safe)) - (##cdr _e137181137725_))) - (_hd137180137728_ + (##cdr _e137178137722_))) + (_hd137177137725_ (let () (declare (not safe)) - (##car _e137181137725_)))) + (##car _e137178137722_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137179137730_)) - (___kont149450149451_ - _hd137180137728_ - _hd137139137766_) + (gx#stx-null? _tl137176137727_)) + (___kont149447149448_ + _hd137177137725_ + _hd137136137763_) (let () (declare (not safe)) - (_g137113137246_))))) - (let () (declare (not safe)) (_g137113137246_)))))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl137138137768_)) - (let ((_e137181137725_ + (_g137110137243_))))) + (let () (declare (not safe)) (_g137110137243_)))))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl137135137765_)) + (let ((_e137178137722_ (let () (declare (not safe)) - (gx#stx-e _tl137138137768_)))) - (let ((_tl137179137730_ + (gx#stx-e _tl137135137765_)))) + (let ((_tl137176137727_ (let () (declare (not safe)) - (##cdr _e137181137725_))) - (_hd137180137728_ + (##cdr _e137178137722_))) + (_hd137177137725_ (let () (declare (not safe)) - (##car _e137181137725_)))) + (##car _e137178137722_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137179137730_)) - (___kont149450149451_ - _hd137180137728_ - _hd137139137766_) - (let () (declare (not safe)) (_g137113137246_))))) - (let () (declare (not safe)) (_g137113137246_)))) + (gx#stx-null? _tl137176137727_)) + (___kont149447149448_ + _hd137177137725_ + _hd137136137763_) + (let () (declare (not safe)) (_g137110137243_))))) + (let () (declare (not safe)) (_g137110137243_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl137138137768_)) - (let ((_e137181137725_ + _tl137135137765_)) + (let ((_e137178137722_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl137138137768_)))) - (let ((_tl137179137730_ - (let () (declare (not safe)) (##cdr _e137181137725_))) - (_hd137180137728_ - (let () (declare (not safe)) (##car _e137181137725_)))) + (gx#stx-e _tl137135137765_)))) + (let ((_tl137176137727_ + (let () (declare (not safe)) (##cdr _e137178137722_))) + (_hd137177137725_ + (let () (declare (not safe)) (##car _e137178137722_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137179137730_)) - (___kont149450149451_ _hd137180137728_ _hd137139137766_) - (let () (declare (not safe)) (_g137113137246_))))) - (let () (declare (not safe)) (_g137113137246_)))))) + (gx#stx-null? _tl137176137727_)) + (___kont149447149448_ _hd137177137725_ _hd137136137763_) + (let () (declare (not safe)) (_g137110137243_))))) + (let () (declare (not safe)) (_g137110137243_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl137138137768_)) - (let ((_e137181137725_ + _tl137135137765_)) + (let ((_e137178137722_ (let () (declare (not safe)) (gx#stx-e - _tl137138137768_)))) - (let ((_tl137179137730_ + _tl137135137765_)))) + (let ((_tl137176137727_ (let () (declare (not safe)) - (##cdr _e137181137725_))) - (_hd137180137728_ + (##cdr _e137178137722_))) + (_hd137177137725_ (let () (declare (not safe)) - (##car _e137181137725_)))) + (##car _e137178137722_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137179137730_)) - (___kont149450149451_ - _hd137180137728_ - _hd137139137766_) + _tl137176137727_)) + (___kont149447149448_ + _hd137177137725_ + _hd137136137763_) (let () (declare (not safe)) - (_g137113137246_))))) + (_g137110137243_))))) (let () (declare (not safe)) - (_g137113137246_)))))) + (_g137110137243_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137138137768_)) - (let ((_e137181137725_ + (gx#stx-pair? _tl137135137765_)) + (let ((_e137178137722_ (let () (declare (not safe)) - (gx#stx-e _tl137138137768_)))) - (let ((_tl137179137730_ + (gx#stx-e _tl137135137765_)))) + (let ((_tl137176137727_ (let () (declare (not safe)) - (##cdr _e137181137725_))) - (_hd137180137728_ + (##cdr _e137178137722_))) + (_hd137177137725_ (let () (declare (not safe)) - (##car _e137181137725_)))) + (##car _e137178137722_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137179137730_)) - (___kont149450149451_ - _hd137180137728_ - _hd137139137766_) + _tl137176137727_)) + (___kont149447149448_ + _hd137177137725_ + _hd137136137763_) (let () (declare (not safe)) - (_g137113137246_))))) + (_g137110137243_))))) (let () (declare (not safe)) - (_g137113137246_)))))) + (_g137110137243_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137138137768_)) - (let ((_e137181137725_ + (gx#stx-pair? _tl137135137765_)) + (let ((_e137178137722_ (let () (declare (not safe)) - (gx#stx-e _tl137138137768_)))) - (let ((_tl137179137730_ + (gx#stx-e _tl137135137765_)))) + (let ((_tl137176137727_ (let () (declare (not safe)) - (##cdr _e137181137725_))) - (_hd137180137728_ + (##cdr _e137178137722_))) + (_hd137177137725_ (let () (declare (not safe)) - (##car _e137181137725_)))) + (##car _e137178137722_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137179137730_)) - (___kont149450149451_ - _hd137180137728_ - _hd137139137766_) + (gx#stx-null? _tl137176137727_)) + (___kont149447149448_ + _hd137177137725_ + _hd137136137763_) (let () (declare (not safe)) - (_g137113137246_))))) + (_g137110137243_))))) (let () (declare (not safe)) - (_g137113137246_)))))) + (_g137110137243_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137138137768_)) - (let ((_e137181137725_ + (gx#stx-pair? _tl137135137765_)) + (let ((_e137178137722_ (let () (declare (not safe)) - (gx#stx-e _tl137138137768_)))) - (let ((_tl137179137730_ + (gx#stx-e _tl137135137765_)))) + (let ((_tl137176137727_ (let () (declare (not safe)) - (##cdr _e137181137725_))) - (_hd137180137728_ + (##cdr _e137178137722_))) + (_hd137177137725_ (let () (declare (not safe)) - (##car _e137181137725_)))) + (##car _e137178137722_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137179137730_)) - (___kont149450149451_ - _hd137180137728_ - _hd137139137766_) + (gx#stx-null? _tl137176137727_)) + (___kont149447149448_ + _hd137177137725_ + _hd137136137763_) (let () (declare (not safe)) - (_g137113137246_))))) - (let () (declare (not safe)) (_g137113137246_)))))) + (_g137110137243_))))) + (let () (declare (not safe)) (_g137110137243_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g137113137246_))) + (_g137110137243_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd137119137906_)) + _hd137116137903_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137118137908_)) - (let ((_e137190137629_ + _tl137115137905_)) + (let ((_e137187137626_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl137118137908_)))) - (let ((_tl137188137634_ - (let () (declare (not safe)) (##cdr _e137190137629_))) - (_hd137189137632_ - (let () (declare (not safe)) (##car _e137190137629_)))) + (gx#stx-e _tl137115137905_)))) + (let ((_tl137185137631_ + (let () (declare (not safe)) (##cdr _e137187137626_))) + (_hd137186137629_ + (let () (declare (not safe)) (##car _e137187137626_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137189137632_)) - (let ((_e137193137637_ + (gx#stx-pair? _hd137186137629_)) + (let ((_e137190137634_ (let () (declare (not safe)) - (gx#stx-e _hd137189137632_)))) - (let ((_tl137191137642_ + (gx#stx-e _hd137186137629_)))) + (let ((_tl137188137639_ (let () (declare (not safe)) - (##cdr _e137193137637_))) - (_hd137192137640_ + (##cdr _e137190137634_))) + (_hd137189137637_ (let () (declare (not safe)) - (##car _e137193137637_)))) + (##car _e137190137634_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137192137640_)) - (let ((_e137196137645_ + (gx#stx-pair? _hd137189137637_)) + (let ((_e137193137642_ (let () (declare (not safe)) - (gx#stx-e _hd137192137640_)))) - (let ((_tl137194137650_ + (gx#stx-e _hd137189137637_)))) + (let ((_tl137191137647_ (let () (declare (not safe)) - (##cdr _e137196137645_))) - (_hd137195137648_ + (##cdr _e137193137642_))) + (_hd137192137645_ (let () (declare (not safe)) - (##car _e137196137645_)))) + (##car _e137193137642_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137195137648_)) - (let ((_e137199137653_ + (gx#stx-pair? _hd137192137645_)) + (let ((_e137196137650_ (let () (declare (not safe)) - (gx#stx-e _hd137195137648_)))) - (let ((_tl137197137658_ + (gx#stx-e _hd137192137645_)))) + (let ((_tl137194137655_ (let () (declare (not safe)) - (##cdr _e137199137653_))) - (_hd137198137656_ + (##cdr _e137196137650_))) + (_hd137195137653_ (let () (declare (not safe)) - (##car _e137199137653_)))) + (##car _e137196137650_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137197137658_)) + _tl137194137655_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137194137650_)) - (let ((_e137202137661_ + _tl137191137647_)) + (let ((_e137199137658_ (let () (declare (not safe)) (gx#stx-e - _tl137194137650_)))) - (let ((_tl137200137666_ + _tl137191137647_)))) + (let ((_tl137197137663_ (let () (declare (not safe)) - (##cdr _e137202137661_))) - (_hd137201137664_ + (##cdr _e137199137658_))) + (_hd137198137661_ (let () (declare (not safe)) - (##car _e137202137661_)))) + (##car _e137199137658_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137200137666_)) + _tl137197137663_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl137191137642_)) + (gx#stx-null? _tl137188137639_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137188137634_)) - (let ((_e137205137669_ + (gx#stx-pair? _tl137185137631_)) + (let ((_e137202137666_ (let () (declare (not safe)) - (gx#stx-e _tl137188137634_)))) - (let ((_tl137203137674_ + (gx#stx-e _tl137185137631_)))) + (let ((_tl137200137671_ (let () (declare (not safe)) - (##cdr _e137205137669_))) - (_hd137204137672_ + (##cdr _e137202137666_))) + (_hd137201137669_ (let () (declare (not safe)) - (##car _e137205137669_)))) + (##car _e137202137666_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137203137674_)) - (___kont149452149453_ - _hd137204137672_ - _hd137201137664_ - _hd137198137656_) + (gx#stx-null? _tl137200137671_)) + (___kont149449149450_ + _hd137201137669_ + _hd137198137661_ + _hd137195137653_) (let () (declare (not safe)) - (_g137113137246_))))) - (let () (declare (not safe)) (_g137113137246_))) - (let () (declare (not safe)) (_g137113137246_))) - (let () (declare (not safe)) (_g137113137246_))))) + (_g137110137243_))))) + (let () (declare (not safe)) (_g137110137243_))) + (let () (declare (not safe)) (_g137110137243_))) + (let () (declare (not safe)) (_g137110137243_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g137113137246_))) + (_g137110137243_))) (let () (declare (not safe)) - (_g137113137246_))))) + (_g137110137243_))))) (let () (declare (not safe)) - (_g137113137246_))))) + (_g137110137243_))))) (let () (declare (not safe)) - (_g137113137246_))))) - (let () (declare (not safe)) (_g137113137246_))))) - (let () (declare (not safe)) (_g137113137246_))) + (_g137110137243_))))) + (let () (declare (not safe)) (_g137110137243_))))) + (let () (declare (not safe)) (_g137110137243_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd137119137906_)) + _hd137116137903_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137118137908_)) - (let ((_e137214137259_ + _tl137115137905_)) + (let ((_e137211137256_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl137118137908_)))) - (let ((_tl137212137264_ + (gx#stx-e _tl137115137905_)))) + (let ((_tl137209137261_ (let () (declare (not safe)) - (##cdr _e137214137259_))) - (_hd137213137262_ + (##cdr _e137211137256_))) + (_hd137210137259_ (let () (declare (not safe)) - (##car _e137214137259_)))) + (##car _e137211137256_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137213137262_)) - (let ((_e137217137267_ + (gx#stx-pair? _hd137210137259_)) + (let ((_e137214137264_ (let () (declare (not safe)) - (gx#stx-e _hd137213137262_)))) - (let ((_tl137215137272_ + (gx#stx-e _hd137210137259_)))) + (let ((_tl137212137269_ (let () (declare (not safe)) - (##cdr _e137217137267_))) - (_hd137216137270_ + (##cdr _e137214137264_))) + (_hd137213137267_ (let () (declare (not safe)) - (##car _e137217137267_)))) + (##car _e137214137264_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd137216137270_)) + (gx#identifier? _hd137213137267_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd137216137270_)) + _hd137213137267_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137215137272_)) - (let ((_e137220137275_ + (gx#stx-pair? _tl137212137269_)) + (let ((_e137217137272_ (let () (declare (not safe)) (gx#stx-e - _tl137215137272_)))) - (let ((_tl137218137280_ + _tl137212137269_)))) + (let ((_tl137215137277_ (let () (declare (not safe)) - (##cdr _e137220137275_))) - (_hd137219137278_ + (##cdr _e137217137272_))) + (_hd137216137275_ (let () (declare (not safe)) - (##car _e137220137275_)))) + (##car _e137217137272_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd137219137278_)) - (let ((___splice149456149457_ + _hd137216137275_)) + (let ((___splice149453149454_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd137219137278_ + _hd137216137275_ '0)))) - (let ((_tl137223137285_ + (let ((_tl137220137282_ (let () (declare (not safe)) (##vector-ref - ___splice149456149457_ + ___splice149453149454_ '1))) - (_target137221137283_ + (_target137218137280_ (let () (declare (not safe)) (##vector-ref - ___splice149456149457_ + ___splice149453149454_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137223137285_)) - (___match149701149702_ - _e137120137903_ - _hd137119137906_ - _tl137118137908_ - _e137214137259_ - _hd137213137262_ - _tl137212137264_ - _e137217137267_ - _hd137216137270_ - _tl137215137272_ - _e137220137275_ - _hd137219137278_ - _tl137218137280_ - ___splice149456149457_ - _target137221137283_ - _tl137223137285_) + _tl137220137282_)) + (___match149698149699_ + _e137117137900_ + _hd137116137903_ + _tl137115137905_ + _e137211137256_ + _hd137210137259_ + _tl137209137261_ + _e137214137264_ + _hd137213137267_ + _tl137212137269_ + _e137217137272_ + _hd137216137275_ + _tl137215137277_ + ___splice149453149454_ + _target137218137280_ + _tl137220137282_) (let () (declare (not safe)) - (_g137113137246_))))) + (_g137110137243_))))) (let () (declare (not safe)) - (_g137113137246_))))) + (_g137110137243_))))) (let () (declare (not safe)) - (_g137113137246_))) + (_g137110137243_))) (let () (declare (not safe)) - (_g137113137246_))) + (_g137110137243_))) (let () (declare (not safe)) - (_g137113137246_))))) - (let () (declare (not safe)) (_g137113137246_))))) - (let () (declare (not safe)) (_g137113137246_))) - (let () (declare (not safe)) (_g137113137246_)))))) + (_g137110137243_))))) + (let () (declare (not safe)) (_g137110137243_))))) + (let () (declare (not safe)) (_g137110137243_))) + (let () (declare (not safe)) (_g137110137243_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g137113137246_))))) + (_g137110137243_))))) (let () (declare (not safe)) - (_g137113137246_)))))))) - (_xform-loop-e136721_ - (lambda (_expr136930_ - _kont-id136931_ - _kont-box136932_ - _negation-id136933_) - (let* ((_g136935136975_ - (lambda (_g136936136972_) + (_g137110137243_)))))))) + (_xform-loop-e136718_ + (lambda (_expr136927_ + _kont-id136928_ + _kont-box136929_ + _negation-id136930_) + (let* ((_g136932136972_ + (lambda (_g136933136969_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g136936136972_)))) - (_g136934137101_ - (lambda (_g136936136978_) + _g136933136969_)))) + (_g136931137098_ + (lambda (_g136933136975_) (if (let () (declare (not safe)) - (gx#stx-pair? _g136936136978_)) - (let ((_e136943136980_ + (gx#stx-pair? _g136933136975_)) + (let ((_e136940136977_ (let () (declare (not safe)) - (gx#stx-e _g136936136978_)))) - (let ((_hd136942136983_ + (gx#stx-e _g136933136975_)))) + (let ((_hd136939136980_ (let () (declare (not safe)) - (##car _e136943136980_))) - (_tl136941136985_ + (##car _e136940136977_))) + (_tl136938136982_ (let () (declare (not safe)) - (##cdr _e136943136980_)))) + (##cdr _e136940136977_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd136942136983_)) + (gx#identifier? _hd136939136980_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd136942136983_)) + _hd136939136980_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136941136985_)) - (let ((_e136946136988_ + _tl136938136982_)) + (let ((_e136943136985_ (let () (declare (not safe)) (gx#stx-e - _tl136941136985_)))) - (let ((_hd136945136991_ + _tl136938136982_)))) + (let ((_hd136942136988_ (let () (declare (not safe)) - (##car _e136946136988_))) - (_tl136944136993_ + (##car _e136943136985_))) + (_tl136941136990_ (let () (declare (not safe)) - (##cdr _e136946136988_)))) + (##cdr _e136943136985_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd136945136991_)) - (let ((_g150507_ + _hd136942136988_)) + (let ((_g150504_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd136945136991_ '0)))) + (gx#syntax-split-splice _hd136942136988_ '0)))) (begin - (let ((_g150508_ + (let ((_g150505_ (let () (declare (not safe)) - (if (##values? _g150507_) - (##vector-length _g150507_) + (if (##values? _g150504_) + (##vector-length _g150504_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150508_ 2))) - (error "Context expects 2 values" _g150508_))) - (let ((_target136947136996_ + (##fx= _g150505_ 2))) + (error "Context expects 2 values" _g150505_))) + (let ((_target136944136993_ (let () (declare (not safe)) - (##vector-ref _g150507_ 0))) - (_tl136949136998_ + (##vector-ref _g150504_ 0))) + (_tl136946136995_ (let () (declare (not safe)) - (##vector-ref _g150507_ 1)))) + (##vector-ref _g150504_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136949136998_)) - (letrec ((_loop136950137001_ - (lambda (_hd136948137004_ - _id136954137006_) + (gx#stx-null? _tl136946136995_)) + (letrec ((_loop136947136998_ + (lambda (_hd136945137001_ + _id136951137003_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd136948137004_)) - (let ((_e136951137009_ + (gx#stx-pair? _hd136945137001_)) + (let ((_e136948137006_ (let () (declare (not safe)) (gx#stx-e - _hd136948137004_)))) - (let ((_lp-hd136952137012_ + _hd136945137001_)))) + (let ((_lp-hd136949137009_ (let () (declare (not safe)) - (##car _e136951137009_))) - (_lp-tl136953137014_ + (##car _e136948137006_))) + (_lp-tl136950137011_ (let () (declare (not safe)) - (##cdr _e136951137009_)))) - (let ((__tmp150517 + (##cdr _e136948137006_)))) + (let ((__tmp150514 (let () (declare (not safe)) - (cons _lp-hd136952137012_ - _id136954137006_)))) + (cons _lp-hd136949137009_ + _id136951137003_)))) (declare (not safe)) - (_loop136950137001_ - _lp-tl136953137014_ - __tmp150517)))) - (let ((_id136955137017_ - (reverse _id136954137006_))) + (_loop136947136998_ + _lp-tl136950137011_ + __tmp150514)))) + (let ((_id136952137014_ + (reverse _id136951137003_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136944136993_)) - (let ((_e136958137020_ + _tl136941136990_)) + (let ((_e136955137017_ (let () (declare (not safe)) (gx#stx-e - _tl136944136993_)))) - (let ((_hd136957137023_ + _tl136941136990_)))) + (let ((_hd136954137020_ (let () (declare (not safe)) - (##car _e136958137020_))) - (_tl136956137025_ + (##car _e136955137017_))) + (_tl136953137022_ (let () (declare (not safe)) - (##cdr _e136958137020_)))) + (##cdr _e136955137017_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd136957137023_)) - (let ((_e136961137028_ + _hd136954137020_)) + (let ((_e136958137025_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd136957137023_)))) - (let ((_hd136960137031_ + (gx#stx-e _hd136954137020_)))) + (let ((_hd136957137028_ (let () (declare (not safe)) - (##car _e136961137028_))) - (_tl136959137033_ + (##car _e136958137025_))) + (_tl136956137030_ (let () (declare (not safe)) - (##cdr _e136961137028_)))) + (##cdr _e136958137025_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd136960137031_)) + (gx#identifier? _hd136957137028_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd136960137031_)) + (gx#stx-eq? '%#if _hd136957137028_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136959137033_)) - (let ((_e136964137036_ + (gx#stx-pair? _tl136956137030_)) + (let ((_e136961137033_ (let () (declare (not safe)) - (gx#stx-e _tl136959137033_)))) - (let ((_hd136963137039_ + (gx#stx-e _tl136956137030_)))) + (let ((_hd136960137036_ (let () (declare (not safe)) - (##car _e136964137036_))) - (_tl136962137041_ + (##car _e136961137033_))) + (_tl136959137038_ (let () (declare (not safe)) - (##cdr _e136964137036_)))) + (##cdr _e136961137033_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136962137041_)) - (let ((_e136967137044_ + (gx#stx-pair? _tl136959137038_)) + (let ((_e136964137041_ (let () (declare (not safe)) (gx#stx-e - _tl136962137041_)))) - (let ((_hd136966137047_ + _tl136959137038_)))) + (let ((_hd136963137044_ (let () (declare (not safe)) - (##car _e136967137044_))) - (_tl136965137049_ + (##car _e136964137041_))) + (_tl136962137046_ (let () (declare (not safe)) - (##cdr _e136967137044_)))) + (##cdr _e136964137041_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136965137049_)) - (let ((_e136970137052_ + _tl136962137046_)) + (let ((_e136967137049_ (let () (declare (not safe)) (gx#stx-e - _tl136965137049_)))) - (let ((_hd136969137055_ + _tl136962137046_)))) + (let ((_hd136966137052_ (let () (declare (not safe)) - (##car _e136970137052_))) - (_tl136968137057_ + (##car _e136967137049_))) + (_tl136965137054_ (let () (declare (not safe)) - (##cdr _e136970137052_)))) + (##cdr _e136967137049_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl136968137057_)) + _tl136965137054_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl136956137025_)) - ((lambda (_L137060_ _L137061_ _L137062_ _L137063_) - (let* ((_E137092_ + (gx#stx-null? _tl136953137022_)) + ((lambda (_L137057_ _L137058_ _L137059_ _L137060_) + (let* ((_E137089_ (let () (declare (not safe)) - (_xform-e136720_ - _L137060_ - _kont-id136931_ - _kont-box136932_ - _negation-id136933_))) - (__tmp150509 - (let ((__tmp150515 - (let ((__tmp150516 - (lambda (_g137093137096_ - _g137094137098_) + (_xform-e136717_ + _L137057_ + _kont-id136928_ + _kont-box136929_ + _negation-id136930_))) + (__tmp150506 + (let ((__tmp150512 + (let ((__tmp150513 + (lambda (_g137090137093_ + _g137091137095_) (let () (declare (not safe)) - (cons _g137093137096_ - _g137094137098_))))) + (cons _g137090137093_ + _g137091137095_))))) (declare (not safe)) - (foldr1 __tmp150516 '() _L137063_))) - (__tmp150510 - (let ((__tmp150511 - (let ((__tmp150512 - (let ((__tmp150513 - (let ((__tmp150514 + (foldr1 __tmp150513 '() _L137060_))) + (__tmp150507 + (let ((__tmp150508 + (let ((__tmp150509 + (let ((__tmp150510 + (let ((__tmp150511 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _E137092_ '())))) + (cons _E137089_ '())))) (declare (not safe)) - (cons _L137061_ __tmp150514)))) + (cons _L137058_ __tmp150511)))) (declare (not safe)) - (cons _L137062_ __tmp150513)))) + (cons _L137059_ __tmp150510)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp150512)))) + (cons '%#if __tmp150509)))) (declare (not safe)) - (cons __tmp150511 '())))) + (cons __tmp150508 '())))) (declare (not safe)) - (cons __tmp150515 __tmp150510)))) + (cons __tmp150512 __tmp150507)))) (declare (not safe)) - (cons '%#lambda __tmp150509))) - _hd136969137055_ - _hd136966137047_ - _hd136963137039_ - _id136955137017_) + (cons '%#lambda __tmp150506))) + _hd136966137052_ + _hd136963137044_ + _hd136960137036_ + _id136952137014_) (let () (declare (not safe)) - (_g136935136975_ _g136936136978_))) + (_g136932136972_ _g136933136975_))) (let () (declare (not safe)) - (_g136935136975_ _g136936136978_))))) + (_g136932136972_ _g136933136975_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136935136975_ - _g136936136978_))))) + (_g136932136972_ + _g136933136975_))))) (let () (declare (not safe)) - (_g136935136975_ - _g136936136978_))))) + (_g136932136972_ + _g136933136975_))))) (let () (declare (not safe)) - (_g136935136975_ _g136936136978_))) + (_g136932136972_ _g136933136975_))) (let () (declare (not safe)) - (_g136935136975_ _g136936136978_))) + (_g136932136972_ _g136933136975_))) (let () (declare (not safe)) - (_g136935136975_ _g136936136978_))))) + (_g136932136972_ _g136933136975_))))) (let () (declare (not safe)) - (_g136935136975_ _g136936136978_))))) + (_g136932136972_ _g136933136975_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136935136975_ - _g136936136978_)))))))) + (_g136932136972_ + _g136933136975_)))))))) (let () (declare (not safe)) - (_loop136950137001_ _target136947136996_ '()))) + (_loop136947136998_ _target136944136993_ '()))) (let () (declare (not safe)) - (_g136935136975_ _g136936136978_)))))) + (_g136932136972_ _g136933136975_)))))) (let () (declare (not safe)) - (_g136935136975_ _g136936136978_))))) + (_g136932136972_ _g136933136975_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136935136975_ - _g136936136978_))) + (_g136932136972_ + _g136933136975_))) (let () (declare (not safe)) - (_g136935136975_ - _g136936136978_))) + (_g136932136972_ + _g136933136975_))) (let () (declare (not safe)) - (_g136935136975_ - _g136936136978_))))) + (_g136932136972_ + _g136933136975_))))) (let () (declare (not safe)) - (_g136935136975_ _g136936136978_)))))) + (_g136932136972_ _g136933136975_)))))) (declare (not safe)) - (_g136934137101_ _expr136930_)))) - (_clause-e136722_ - (lambda (_clause-lambda136800_ _kont-id136801_ _rest136802_) - (letrec* ((_kont-box136804_ + (_g136931137098_ _expr136927_)))) + (_clause-e136719_ + (lambda (_clause-lambda136797_ _kont-id136798_ _rest136799_) + (letrec* ((_kont-box136801_ (let () (declare (not safe)) (box '#f)))) - (let* ((_negation-id136844_ - (let* ((_rest136805136815_ _rest136802_) - (_else136807136823_ - (lambda () _negation-id136718_)) - (_K136809136829_ - (lambda (_clause136826_ - _clause-id136827_) - _clause-id136827_))) + (let* ((_negation-id136841_ + (let* ((_rest136802136812_ _rest136799_) + (_else136804136820_ + (lambda () _negation-id136715_)) + (_K136806136826_ + (lambda (_clause136823_ + _clause-id136824_) + _clause-id136824_))) (if (let () (declare (not safe)) - (##pair? _rest136805136815_)) - (let ((_hd136810136832_ + (##pair? _rest136802136812_)) + (let ((_hd136807136829_ (let () (declare (not safe)) - (##car _rest136805136815_)))) + (##car _rest136802136812_)))) (if (let () (declare (not safe)) - (##pair? _hd136810136832_)) - (let ((_hd136812136835_ + (##pair? _hd136807136829_)) + (let ((_hd136809136832_ (let () (declare (not safe)) - (##car _hd136810136832_))) - (_tl136813136837_ + (##car _hd136807136829_))) + (_tl136810136834_ (let () (declare (not safe)) - (##cdr _hd136810136832_)))) - (let* ((_clause-id136840_ - _hd136812136835_) - (_clause136842_ - _tl136813136837_)) + (##cdr _hd136807136829_)))) + (let* ((_clause-id136837_ + _hd136809136832_) + (_clause136839_ + _tl136810136834_)) (declare (not safe)) - (_K136809136829_ - _clause136842_ - _clause-id136840_))) + (_K136806136826_ + _clause136839_ + _clause-id136837_))) (let () (declare (not safe)) - (_else136807136823_)))) + (_else136804136820_)))) (let () (declare (not safe)) - (_else136807136823_))))) - (_g136846136866_ - (lambda (_g136847136863_) + (_else136804136820_))))) + (_g136843136863_ + (lambda (_g136844136860_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g136847136863_)))) - (_g136845136927_ - (lambda (_g136847136869_) + _g136844136860_)))) + (_g136842136924_ + (lambda (_g136844136866_) (if (let () (declare (not safe)) - (gx#stx-pair? _g136847136869_)) - (let ((_e136852136871_ + (gx#stx-pair? _g136844136866_)) + (let ((_e136849136868_ (let () (declare (not safe)) - (gx#stx-e _g136847136869_)))) - (let ((_hd136851136874_ + (gx#stx-e _g136844136866_)))) + (let ((_hd136848136871_ (let () (declare (not safe)) - (##car _e136852136871_))) - (_tl136850136876_ + (##car _e136849136868_))) + (_tl136847136873_ (let () (declare (not safe)) - (##cdr _e136852136871_)))) + (##cdr _e136849136868_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd136851136874_)) + _hd136848136871_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd136851136874_)) + _hd136848136871_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136850136876_)) - (let ((_e136855136879_ + _tl136847136873_)) + (let ((_e136852136876_ (let () (declare (not safe)) (gx#stx-e - _tl136850136876_)))) - (let ((_hd136854136882_ + _tl136847136873_)))) + (let ((_hd136851136879_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e136855136879_))) - (_tl136853136884_ - (let () (declare (not safe)) (##cdr _e136855136879_)))) + (##car _e136852136876_))) + (_tl136850136881_ + (let () (declare (not safe)) (##cdr _e136852136876_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd136854136882_)) - (let ((_e136858136887_ + (gx#stx-pair? _hd136851136879_)) + (let ((_e136855136884_ (let () (declare (not safe)) - (gx#stx-e _hd136854136882_)))) - (let ((_hd136857136890_ + (gx#stx-e _hd136851136879_)))) + (let ((_hd136854136887_ (let () (declare (not safe)) - (##car _e136858136887_))) - (_tl136856136892_ + (##car _e136855136884_))) + (_tl136853136889_ (let () (declare (not safe)) - (##cdr _e136858136887_)))) + (##cdr _e136855136884_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136856136892_)) + (gx#stx-null? _tl136853136889_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136853136884_)) - (let ((_e136861136895_ + (gx#stx-pair? _tl136850136881_)) + (let ((_e136858136892_ (let () (declare (not safe)) - (gx#stx-e _tl136853136884_)))) - (let ((_hd136860136898_ + (gx#stx-e _tl136850136881_)))) + (let ((_hd136857136895_ (let () (declare (not safe)) - (##car _e136861136895_))) - (_tl136859136900_ + (##car _e136858136892_))) + (_tl136856136897_ (let () (declare (not safe)) - (##cdr _e136861136895_)))) + (##cdr _e136858136892_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136859136900_)) - ((lambda (_L136903_ _L136904_) - (let ((_body136925_ + (gx#stx-null? _tl136856136897_)) + ((lambda (_L136900_ _L136901_) + (let ((_body136922_ (let () (declare (not safe)) - (_xform-e136720_ - _L136903_ - _kont-id136801_ - _kont-box136804_ - _negation-id136844_)))) - (values (let ((__tmp150518 - (let ((__tmp150520 + (_xform-e136717_ + _L136900_ + _kont-id136798_ + _kont-box136801_ + _negation-id136841_)))) + (values (let ((__tmp150515 + (let ((__tmp150517 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L136904_ '()))) - (__tmp150519 + (let () (declare (not safe)) (cons _L136901_ '()))) + (__tmp150516 (let () (declare (not safe)) - (cons _body136925_ '())))) + (cons _body136922_ '())))) (declare (not safe)) - (cons __tmp150520 __tmp150519)))) + (cons __tmp150517 __tmp150516)))) (declare (not safe)) - (cons '%#lambda __tmp150518)) + (cons '%#lambda __tmp150515)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _kont-box136804_)))) - _hd136860136898_ - _hd136857136890_) + (unbox _kont-box136801_)))) + _hd136857136895_ + _hd136854136887_) (let () (declare (not safe)) - (_g136846136866_ _g136847136869_))))) + (_g136843136863_ _g136844136866_))))) (let () (declare (not safe)) - (_g136846136866_ _g136847136869_))) + (_g136843136863_ _g136844136866_))) (let () (declare (not safe)) - (_g136846136866_ _g136847136869_))))) + (_g136843136863_ _g136844136866_))))) (let () (declare (not safe)) - (_g136846136866_ _g136847136869_))))) + (_g136843136863_ _g136844136866_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136846136866_ - _g136847136869_))) + (_g136843136863_ + _g136844136866_))) (let () (declare (not safe)) - (_g136846136866_ - _g136847136869_))) + (_g136843136863_ + _g136844136866_))) (let () (declare (not safe)) - (_g136846136866_ - _g136847136869_))))) + (_g136843136863_ + _g136844136866_))))) (let () (declare (not safe)) - (_g136846136866_ _g136847136869_)))))) + (_g136843136863_ _g136844136866_)))))) (declare (not safe)) - (_g136845136927_ _clause-lambda136800_)))))) - (let _lp136724_ ((_rest136726_ _clauses136717_) - (_clauses136727_ '()) - (_konts136728_ '())) - (let* ((_rest136729136737_ _rest136726_) - (_else136731136745_ + (_g136842136924_ _clause-lambda136797_)))))) + (let _lp136721_ ((_rest136723_ _clauses136714_) + (_clauses136724_ '()) + (_konts136725_ '())) + (let* ((_rest136726136734_ _rest136723_) + (_else136728136742_ (lambda () - (values (reverse _clauses136727_) - (reverse _konts136728_)))) - (_K136733136788_ - (lambda (_rest136748_ _clause136749_) - (let* ((_clause136750136757_ _clause136749_) - (_E136752136761_ + (values (reverse _clauses136724_) + (reverse _konts136725_)))) + (_K136730136785_ + (lambda (_rest136745_ _clause136746_) + (let* ((_clause136747136754_ _clause136746_) + (_E136749136758_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clause136750136757_)))) - (_K136753136776_ - (lambda (_clause-lambda136764_ _clause-id136765_) - (let* ((_id136767_ - (let ((__tmp150521 (gensym '__kont))) + _clause136747136754_)))) + (_K136750136773_ + (lambda (_clause-lambda136761_ _clause-id136762_) + (let* ((_id136764_ + (let ((__tmp150518 (gensym '__kont))) (declare (not safe)) - (make-symbol__0 __tmp150521))) - (_id136769_ + (make-symbol__0 __tmp150518))) + (_id136766_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _id136767_))) - (_g150522_ + _id136764_))) + (_g150519_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _id136769_))) - (_g150523_ + _id136766_))) + (_g150520_ (let () (declare (not safe)) - (_clause-e136722_ - _clause-lambda136764_ - _id136769_ - _rest136748_)))) + (_clause-e136719_ + _clause-lambda136761_ + _id136766_ + _rest136745_)))) (begin - (let ((_g150524_ + (let ((_g150521_ (let () (declare (not safe)) - (if (##values? _g150523_) - (##vector-length _g150523_) + (if (##values? _g150520_) + (##vector-length _g150520_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150524_ 2))) + (##fx= _g150521_ 2))) (error "Context expects 2 values" - _g150524_))) - (let ((_clause-lambda136772_ + _g150521_))) + (let ((_clause-lambda136769_ (let () (declare (not safe)) - (##vector-ref _g150523_ 0))) - (_kont136773_ + (##vector-ref _g150520_ 0))) + (_kont136770_ (let () (declare (not safe)) - (##vector-ref _g150523_ 1)))) + (##vector-ref _g150520_ 1)))) (let () - (let ((__tmp150527 - (let ((__tmp150528 + (let ((__tmp150524 + (let ((__tmp150525 (let () (declare (not safe)) - (cons _clause-id136765_ - _clause-lambda136772_)))) + (cons _clause-id136762_ + _clause-lambda136769_)))) (declare (not safe)) - (cons __tmp150528 - _clauses136727_))) - (__tmp150525 - (let ((__tmp150526 + (cons __tmp150525 + _clauses136724_))) + (__tmp150522 + (let ((__tmp150523 (let () (declare (not safe)) - (cons _id136769_ - _kont136773_)))) + (cons _id136766_ + _kont136770_)))) (declare (not safe)) - (cons __tmp150526 - _konts136728_)))) + (cons __tmp150523 + _konts136725_)))) (declare (not safe)) - (_lp136724_ - _rest136748_ - __tmp150527 - __tmp150525))))))))) + (_lp136721_ + _rest136745_ + __tmp150524 + __tmp150522))))))))) (if (let () (declare (not safe)) - (##pair? _clause136750136757_)) - (let ((_hd136754136779_ + (##pair? _clause136747136754_)) + (let ((_hd136751136776_ (let () (declare (not safe)) - (##car _clause136750136757_))) - (_tl136755136781_ + (##car _clause136747136754_))) + (_tl136752136778_ (let () (declare (not safe)) - (##cdr _clause136750136757_)))) - (let* ((_clause-id136784_ _hd136754136779_) - (_clause-lambda136786_ _tl136755136781_)) + (##cdr _clause136747136754_)))) + (let* ((_clause-id136781_ _hd136751136776_) + (_clause-lambda136783_ _tl136752136778_)) (declare (not safe)) - (_K136753136776_ - _clause-lambda136786_ - _clause-id136784_))) + (_K136750136773_ + _clause-lambda136783_ + _clause-id136781_))) (let () (declare (not safe)) - (_E136752136761_))))))) - (if (let () (declare (not safe)) (##pair? _rest136729136737_)) - (let ((_hd136734136791_ + (_E136749136758_))))))) + (if (let () (declare (not safe)) (##pair? _rest136726136734_)) + (let ((_hd136731136788_ (let () (declare (not safe)) - (##car _rest136729136737_))) - (_tl136735136793_ + (##car _rest136726136734_))) + (_tl136732136790_ (let () (declare (not safe)) - (##cdr _rest136729136737_)))) - (let* ((_clause136796_ _hd136734136791_) - (_rest136798_ _tl136735136793_)) + (##cdr _rest136726136734_)))) + (let* ((_clause136793_ _hd136731136788_) + (_rest136795_ _tl136732136790_)) (declare (not safe)) - (_K136733136788_ _rest136798_ _clause136796_))) - (let () (declare (not safe)) (_else136731136745_)))))))) + (_K136730136785_ _rest136795_ _clause136793_))) + (let () (declare (not safe)) (_else136728136742_)))))))) (define gxc#optimize-syntax-case-closure - (lambda (_clause136061_ _negation136062_ _target136063_) - (letrec ((_closure-e136065_ - (lambda (_expr136182_) - (let* ((___stx149704149705_ _expr136182_) - (_g136189136304_ + (lambda (_clause136058_ _negation136059_ _target136060_) + (letrec ((_closure-e136062_ + (lambda (_expr136179_) + (let* ((___stx149701149702_ _expr136179_) + (_g136186136301_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149704149705_))))) - (let ((___kont149706149707_ - (lambda (_L136695_ _L136696_ _L136697_) - (let ((__tmp150529 - (let ((__tmp150530 - (let ((__tmp150533 + ___stx149701149702_))))) + (let ((___kont149703149704_ + (lambda (_L136692_ _L136693_ _L136694_) + (let ((__tmp150526 + (let ((__tmp150527 + (let ((__tmp150530 (let () (declare (not safe)) - (_closure-e136065_ - _L136696_))) - (__tmp150531 - (let ((__tmp150532 + (_closure-e136062_ + _L136693_))) + (__tmp150528 + (let ((__tmp150529 (let () (declare (not safe)) - (_closure-e136065_ - _L136695_)))) + (_closure-e136062_ + _L136692_)))) (declare (not safe)) - (cons __tmp150532 '())))) + (cons __tmp150529 '())))) (declare (not safe)) - (cons __tmp150533 - __tmp150531)))) + (cons __tmp150530 + __tmp150528)))) (declare (not safe)) - (cons _L136697_ __tmp150530)))) + (cons _L136694_ __tmp150527)))) (declare (not safe)) - (cons '%#if __tmp150529)))) - (___kont149708149709_ - (lambda (_L136643_ _L136644_) - (let ((__tmp150534 - (let ((__tmp150535 - (let ((__tmp150536 + (cons '%#if __tmp150526)))) + (___kont149705149706_ + (lambda (_L136640_ _L136641_) + (let ((__tmp150531 + (let ((__tmp150532 + (let ((__tmp150533 (let () (declare (not safe)) - (_closure-e136065_ - _L136643_)))) + (_closure-e136062_ + _L136640_)))) (declare (not safe)) - (cons __tmp150536 '())))) + (cons __tmp150533 '())))) (declare (not safe)) - (cons _L136644_ __tmp150535)))) + (cons _L136641_ __tmp150532)))) (declare (not safe)) - (cons '%#let-values __tmp150534)))) - (___kont149710149711_ - (lambda (_L136589_ _L136590_ _L136591_) - (let ((__tmp150537 - (let ((__tmp150539 - (let ((__tmp150540 - (let ((__tmp150543 + (cons '%#let-values __tmp150531)))) + (___kont149707149708_ + (lambda (_L136586_ _L136587_ _L136588_) + (let ((__tmp150534 + (let ((__tmp150536 + (let ((__tmp150537 + (let ((__tmp150540 (let () (declare (not safe)) - (cons _L136591_ + (cons _L136588_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp150541 - (let ((__tmp150542 + (__tmp150538 + (let ((__tmp150539 (let () (declare (not safe)) - (_closure-e136065_ _L136590_)))) + (_closure-e136062_ _L136587_)))) (declare (not safe)) - (cons __tmp150542 '())))) + (cons __tmp150539 '())))) (declare (not safe)) - (cons __tmp150543 __tmp150541)))) + (cons __tmp150540 __tmp150538)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150540 '()))) - (__tmp150538 + (cons __tmp150537 '()))) + (__tmp150535 (let () (declare (not safe)) - (cons _L136589_ '())))) + (cons _L136586_ '())))) (declare (not safe)) - (cons __tmp150539 __tmp150538)))) + (cons __tmp150536 __tmp150535)))) (declare (not safe)) - (cons '%#letrec-values __tmp150537)))) - (___kont149712149713_ - (lambda (_L136502_ _L136503_) - (let ((__tmp150544 - (let ((__tmp150547 - (let ((__tmp150548 - (lambda (_g136520136523_ - _g136521136525_) + (cons '%#letrec-values __tmp150534)))) + (___kont149709149710_ + (lambda (_L136499_ _L136500_) + (let ((__tmp150541 + (let ((__tmp150544 + (let ((__tmp150545 + (lambda (_g136517136520_ + _g136518136522_) (let () (declare (not safe)) - (cons _g136520136523_ - _g136521136525_))))) + (cons _g136517136520_ + _g136518136522_))))) (declare (not safe)) - (foldr1 __tmp150548 + (foldr1 __tmp150545 '() - _L136503_))) - (__tmp150545 - (let ((__tmp150546 + _L136500_))) + (__tmp150542 + (let ((__tmp150543 (let () (declare (not safe)) - (_closure-e136065_ - _L136502_)))) + (_closure-e136062_ + _L136499_)))) (declare (not safe)) - (cons __tmp150546 '())))) + (cons __tmp150543 '())))) (declare (not safe)) - (cons __tmp150547 __tmp150545)))) + (cons __tmp150544 __tmp150542)))) (declare (not safe)) - (cons '%#lambda __tmp150544)))) - (___kont149716149717_ - (lambda (_L136432_) - (let ((__tmp150549 - (let ((__tmp150550 - (let ((__tmp150552 + (cons '%#lambda __tmp150541)))) + (___kont149713149714_ + (lambda (_L136429_) + (let ((__tmp150546 + (let ((__tmp150547 + (let ((__tmp150549 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150551 + (__tmp150548 (let () (declare (not safe)) - (cons _L136432_ '())))) + (cons _L136429_ '())))) (declare (not safe)) - (cons __tmp150552 - __tmp150551)))) + (cons __tmp150549 + __tmp150548)))) (declare (not safe)) - (cons __tmp150550 '())))) + (cons __tmp150547 '())))) (declare (not safe)) - (cons '%#call __tmp150549)))) - (___kont149718149719_ - (lambda (_L136365_ _L136366_) _expr136182_))) - (let* ((___match149937149938_ - (lambda (_e136281136309_ - _hd136280136312_ - _tl136279136314_ - _e136284136317_ - _hd136283136320_ - _tl136282136322_ - _e136287136325_ - _hd136286136328_ - _tl136285136330_ - _e136290136333_ - _hd136289136336_ - _tl136288136338_ - ___splice149720149721_ - _target136291136341_ - _tl136293136343_) - (letrec ((_loop136294136346_ - (lambda (_hd136292136349_ - _arg136298136351_) + (cons '%#call __tmp150546)))) + (___kont149715149716_ + (lambda (_L136362_ _L136363_) _expr136179_))) + (let* ((___match149934149935_ + (lambda (_e136278136306_ + _hd136277136309_ + _tl136276136311_ + _e136281136314_ + _hd136280136317_ + _tl136279136319_ + _e136284136322_ + _hd136283136325_ + _tl136282136327_ + _e136287136330_ + _hd136286136333_ + _tl136285136335_ + ___splice149717149718_ + _target136288136338_ + _tl136290136340_) + (letrec ((_loop136291136343_ + (lambda (_hd136289136346_ + _arg136295136348_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd136292136349_)) - (let ((_e136295136354_ + _hd136289136346_)) + (let ((_e136292136351_ (let () (declare (not safe)) (gx#stx-e - _hd136292136349_)))) - (let ((_lp-tl136297136359_ + _hd136289136346_)))) + (let ((_lp-tl136294136356_ (let () (declare (not safe)) - (##cdr _e136295136354_))) - (_lp-hd136296136357_ + (##cdr _e136292136351_))) + (_lp-hd136293136354_ (let () (declare (not safe)) - (##car _e136295136354_)))) - (let ((__tmp150553 + (##car _e136292136351_)))) + (let ((__tmp150550 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd136296136357_ _arg136298136351_)))) + (cons _lp-hd136293136354_ _arg136295136348_)))) (declare (not safe)) - (_loop136294136346_ _lp-tl136297136359_ __tmp150553)))) + (_loop136291136343_ _lp-tl136294136356_ __tmp150550)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg136299136362_ - (reverse _arg136298136351_))) - (___kont149718149719_ - _arg136299136362_ - _hd136289136336_)))))) + (let ((_arg136296136359_ + (reverse _arg136295136348_))) + (___kont149715149716_ + _arg136296136359_ + _hd136286136333_)))))) (let () (declare (not safe)) - (_loop136294136346_ - _target136291136341_ + (_loop136291136343_ + _target136288136338_ '()))))) - (___match149895149896_ - (lambda (_e136264136392_ - _hd136263136395_ - _tl136262136397_ - _e136267136400_ - _hd136266136403_ - _tl136265136405_ - _e136270136408_ - _hd136269136411_ - _tl136268136413_ - _e136273136416_ - _hd136272136419_ - _tl136271136421_ - _e136276136424_ - _hd136275136427_ - _tl136274136429_) - (let ((_L136432_ _hd136272136419_)) + (___match149892149893_ + (lambda (_e136261136389_ + _hd136260136392_ + _tl136259136394_ + _e136264136397_ + _hd136263136400_ + _tl136262136402_ + _e136267136405_ + _hd136266136408_ + _tl136265136410_ + _e136270136413_ + _hd136269136416_ + _tl136268136418_ + _e136273136421_ + _hd136272136424_ + _tl136271136426_) + (let ((_L136429_ _hd136269136416_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L136432_ - _negation136062_)) - (___kont149716149717_ _L136432_) + _L136429_ + _negation136059_)) + (___kont149713149714_ _L136429_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl136265136405_)) - (let ((___splice149720149721_ + _tl136262136402_)) + (let ((___splice149717149718_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl136265136405_ + _tl136262136402_ '0)))) - (let ((_tl136293136343_ + (let ((_tl136290136340_ (let () (declare (not safe)) (##vector-ref - ___splice149720149721_ + ___splice149717149718_ '1))) - (_target136291136341_ + (_target136288136338_ (let () (declare (not safe)) (##vector-ref - ___splice149720149721_ + ___splice149717149718_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl136293136343_)) - (___match149937149938_ - _e136264136392_ - _hd136263136395_ - _tl136262136397_ - _e136267136400_ - _hd136266136403_ - _tl136265136405_ - _e136270136408_ - _hd136269136411_ - _tl136268136413_ - _e136273136416_ - _hd136272136419_ - _tl136271136421_ - ___splice149720149721_ - _target136291136341_ - _tl136293136343_) + _tl136290136340_)) + (___match149934149935_ + _e136261136389_ + _hd136260136392_ + _tl136259136394_ + _e136264136397_ + _hd136263136400_ + _tl136262136402_ + _e136267136405_ + _hd136266136408_ + _tl136265136410_ + _e136270136413_ + _hd136269136416_ + _tl136268136418_ + ___splice149717149718_ + _target136288136338_ + _tl136290136340_) (let () (declare (not safe)) - (_g136189136304_))))) + (_g136186136301_))))) (let () (declare (not safe)) - (_g136189136304_))))))) - (___match149853149854_ - (lambda (_e136245136454_ - _hd136244136457_ - _tl136243136459_ - _e136248136462_ - _hd136247136465_ - _tl136246136467_ - ___splice149714149715_ - _target136249136470_ - _tl136251136472_) - (letrec ((_loop136252136475_ - (lambda (_hd136250136478_ - _id136256136480_) + (_g136186136301_))))))) + (___match149850149851_ + (lambda (_e136242136451_ + _hd136241136454_ + _tl136240136456_ + _e136245136459_ + _hd136244136462_ + _tl136243136464_ + ___splice149711149712_ + _target136246136467_ + _tl136248136469_) + (letrec ((_loop136249136472_ + (lambda (_hd136247136475_ + _id136253136477_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd136250136478_)) - (let ((_e136253136483_ + _hd136247136475_)) + (let ((_e136250136480_ (let () (declare (not safe)) (gx#stx-e - _hd136250136478_)))) - (let ((_lp-tl136255136488_ + _hd136247136475_)))) + (let ((_lp-tl136252136485_ (let () (declare (not safe)) - (##cdr _e136253136483_))) - (_lp-hd136254136486_ + (##cdr _e136250136480_))) + (_lp-hd136251136483_ (let () (declare (not safe)) - (##car _e136253136483_)))) - (let ((__tmp150554 + (##car _e136250136480_)))) + (let ((__tmp150551 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd136254136486_ _id136256136480_)))) + (cons _lp-hd136251136483_ _id136253136477_)))) (declare (not safe)) - (_loop136252136475_ _lp-tl136255136488_ __tmp150554)))) + (_loop136249136472_ _lp-tl136252136485_ __tmp150551)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id136257136491_ - (reverse _id136256136480_))) + (let ((_id136254136488_ + (reverse _id136253136477_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136246136467_)) - (let ((_e136260136494_ + _tl136243136464_)) + (let ((_e136257136491_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl136246136467_)))) - (let ((_tl136258136499_ - (let () (declare (not safe)) (##cdr _e136260136494_))) - (_hd136259136497_ + (gx#stx-e _tl136243136464_)))) + (let ((_tl136255136496_ + (let () (declare (not safe)) (##cdr _e136257136491_))) + (_hd136256136494_ (let () (declare (not safe)) - (##car _e136260136494_)))) + (##car _e136257136491_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136258136499_)) - (___kont149712149713_ - _hd136259136497_ - _id136257136491_) - (let () (declare (not safe)) (_g136189136304_))))) - (let () (declare (not safe)) (_g136189136304_)))))))) + (gx#stx-null? _tl136255136496_)) + (___kont149709149710_ + _hd136256136494_ + _id136254136488_) + (let () (declare (not safe)) (_g136186136301_))))) + (let () (declare (not safe)) (_g136186136301_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop136252136475_ - _target136249136470_ + (_loop136249136472_ + _target136246136467_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149704149705_)) - (let ((_e136196136663_ + (gx#stx-pair? ___stx149701149702_)) + (let ((_e136193136660_ (let () (declare (not safe)) - (gx#stx-e ___stx149704149705_)))) - (let ((_tl136194136668_ + (gx#stx-e ___stx149701149702_)))) + (let ((_tl136191136665_ (let () (declare (not safe)) - (##cdr _e136196136663_))) - (_hd136195136666_ + (##cdr _e136193136660_))) + (_hd136192136663_ (let () (declare (not safe)) - (##car _e136196136663_)))) + (##car _e136193136660_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd136195136666_)) + (gx#identifier? _hd136192136663_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd136195136666_)) + _hd136192136663_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136194136668_)) - (let ((_e136199136671_ + _tl136191136665_)) + (let ((_e136196136668_ (let () (declare (not safe)) (gx#stx-e - _tl136194136668_)))) - (let ((_tl136197136676_ + _tl136191136665_)))) + (let ((_tl136194136673_ (let () (declare (not safe)) - (##cdr _e136199136671_))) - (_hd136198136674_ + (##cdr _e136196136668_))) + (_hd136195136671_ (let () (declare (not safe)) - (##car _e136199136671_)))) + (##car _e136196136668_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136197136676_)) - (let ((_e136202136679_ + _tl136194136673_)) + (let ((_e136199136676_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl136197136676_)))) - (let ((_tl136200136684_ - (let () (declare (not safe)) (##cdr _e136202136679_))) - (_hd136201136682_ - (let () (declare (not safe)) (##car _e136202136679_)))) + (gx#stx-e _tl136194136673_)))) + (let ((_tl136197136681_ + (let () (declare (not safe)) (##cdr _e136199136676_))) + (_hd136198136679_ + (let () (declare (not safe)) (##car _e136199136676_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136200136684_)) - (let ((_e136205136687_ + (gx#stx-pair? _tl136197136681_)) + (let ((_e136202136684_ (let () (declare (not safe)) - (gx#stx-e _tl136200136684_)))) - (let ((_tl136203136692_ + (gx#stx-e _tl136197136681_)))) + (let ((_tl136200136689_ (let () (declare (not safe)) - (##cdr _e136205136687_))) - (_hd136204136690_ + (##cdr _e136202136684_))) + (_hd136201136687_ (let () (declare (not safe)) - (##car _e136205136687_)))) + (##car _e136202136684_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136203136692_)) - (___kont149706149707_ - _hd136204136690_ - _hd136201136682_ - _hd136198136674_) + (gx#stx-null? _tl136200136689_)) + (___kont149703149704_ + _hd136201136687_ + _hd136198136679_ + _hd136195136671_) (let () (declare (not safe)) - (_g136189136304_))))) - (let () (declare (not safe)) (_g136189136304_))))) - (let () (declare (not safe)) (_g136189136304_))))) + (_g136186136301_))))) + (let () (declare (not safe)) (_g136186136301_))))) + (let () (declare (not safe)) (_g136186136301_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136189136304_))) + (_g136186136301_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd136195136666_)) + _hd136192136663_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136194136668_)) - (let ((_e136213136627_ + _tl136191136665_)) + (let ((_e136210136624_ (let () (declare (not safe)) (gx#stx-e - _tl136194136668_)))) - (let ((_tl136211136632_ + _tl136191136665_)))) + (let ((_tl136208136629_ (let () (declare (not safe)) - (##cdr _e136213136627_))) - (_hd136212136630_ + (##cdr _e136210136624_))) + (_hd136209136627_ (let () (declare (not safe)) - (##car _e136213136627_)))) + (##car _e136210136624_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136211136632_)) - (let ((_e136216136635_ + _tl136208136629_)) + (let ((_e136213136632_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl136211136632_)))) - (let ((_tl136214136640_ + (gx#stx-e _tl136208136629_)))) + (let ((_tl136211136637_ (let () (declare (not safe)) - (##cdr _e136216136635_))) - (_hd136215136638_ + (##cdr _e136213136632_))) + (_hd136212136635_ (let () (declare (not safe)) - (##car _e136216136635_)))) + (##car _e136213136632_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136214136640_)) - (___kont149708149709_ - _hd136215136638_ - _hd136212136630_) - (let () (declare (not safe)) (_g136189136304_))))) - (let () (declare (not safe)) (_g136189136304_))))) + (gx#stx-null? _tl136211136637_)) + (___kont149705149706_ + _hd136212136635_ + _hd136209136627_) + (let () (declare (not safe)) (_g136186136301_))))) + (let () (declare (not safe)) (_g136186136301_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136189136304_))) + (_g136186136301_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd136195136666_)) + _hd136192136663_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136194136668_)) - (let ((_e136225136541_ + _tl136191136665_)) + (let ((_e136222136538_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl136194136668_)))) - (let ((_tl136223136546_ - (let () (declare (not safe)) (##cdr _e136225136541_))) - (_hd136224136544_ - (let () (declare (not safe)) (##car _e136225136541_)))) + (gx#stx-e _tl136191136665_)))) + (let ((_tl136220136543_ + (let () (declare (not safe)) (##cdr _e136222136538_))) + (_hd136221136541_ + (let () (declare (not safe)) (##car _e136222136538_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd136224136544_)) - (let ((_e136228136549_ + (gx#stx-pair? _hd136221136541_)) + (let ((_e136225136546_ (let () (declare (not safe)) - (gx#stx-e _hd136224136544_)))) - (let ((_tl136226136554_ + (gx#stx-e _hd136221136541_)))) + (let ((_tl136223136551_ (let () (declare (not safe)) - (##cdr _e136228136549_))) - (_hd136227136552_ + (##cdr _e136225136546_))) + (_hd136224136549_ (let () (declare (not safe)) - (##car _e136228136549_)))) + (##car _e136225136546_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd136227136552_)) - (let ((_e136231136557_ + (gx#stx-pair? _hd136224136549_)) + (let ((_e136228136554_ (let () (declare (not safe)) - (gx#stx-e _hd136227136552_)))) - (let ((_tl136229136562_ + (gx#stx-e _hd136224136549_)))) + (let ((_tl136226136559_ (let () (declare (not safe)) - (##cdr _e136231136557_))) - (_hd136230136560_ + (##cdr _e136228136554_))) + (_hd136227136557_ (let () (declare (not safe)) - (##car _e136231136557_)))) + (##car _e136228136554_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd136230136560_)) - (let ((_e136234136565_ + (gx#stx-pair? _hd136227136557_)) + (let ((_e136231136562_ (let () (declare (not safe)) - (gx#stx-e _hd136230136560_)))) - (let ((_tl136232136570_ + (gx#stx-e _hd136227136557_)))) + (let ((_tl136229136567_ (let () (declare (not safe)) - (##cdr _e136234136565_))) - (_hd136233136568_ + (##cdr _e136231136562_))) + (_hd136230136565_ (let () (declare (not safe)) - (##car _e136234136565_)))) + (##car _e136231136562_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl136232136570_)) + _tl136229136567_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136229136562_)) - (let ((_e136237136573_ + _tl136226136559_)) + (let ((_e136234136570_ (let () (declare (not safe)) (gx#stx-e - _tl136229136562_)))) - (let ((_tl136235136578_ + _tl136226136559_)))) + (let ((_tl136232136575_ (let () (declare (not safe)) - (##cdr _e136237136573_))) - (_hd136236136576_ + (##cdr _e136234136570_))) + (_hd136233136573_ (let () (declare (not safe)) - (##car _e136237136573_)))) + (##car _e136234136570_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl136235136578_)) + _tl136232136575_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl136226136554_)) + (gx#stx-null? _tl136223136551_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136223136546_)) - (let ((_e136240136581_ + (gx#stx-pair? _tl136220136543_)) + (let ((_e136237136578_ (let () (declare (not safe)) - (gx#stx-e _tl136223136546_)))) - (let ((_tl136238136586_ + (gx#stx-e _tl136220136543_)))) + (let ((_tl136235136583_ (let () (declare (not safe)) - (##cdr _e136240136581_))) - (_hd136239136584_ + (##cdr _e136237136578_))) + (_hd136236136581_ (let () (declare (not safe)) - (##car _e136240136581_)))) + (##car _e136237136578_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136238136586_)) - (___kont149710149711_ - _hd136239136584_ - _hd136236136576_ - _hd136233136568_) + (gx#stx-null? _tl136235136583_)) + (___kont149707149708_ + _hd136236136581_ + _hd136233136573_ + _hd136230136565_) (let () (declare (not safe)) - (_g136189136304_))))) - (let () (declare (not safe)) (_g136189136304_))) - (let () (declare (not safe)) (_g136189136304_))) - (let () (declare (not safe)) (_g136189136304_))))) + (_g136186136301_))))) + (let () (declare (not safe)) (_g136186136301_))) + (let () (declare (not safe)) (_g136186136301_))) + (let () (declare (not safe)) (_g136186136301_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136189136304_))) + (_g136186136301_))) (let () (declare (not safe)) - (_g136189136304_))))) + (_g136186136301_))))) (let () (declare (not safe)) - (_g136189136304_))))) + (_g136186136301_))))) (let () (declare (not safe)) - (_g136189136304_))))) - (let () (declare (not safe)) (_g136189136304_))))) - (let () (declare (not safe)) (_g136189136304_))) + (_g136186136301_))))) + (let () (declare (not safe)) (_g136186136301_))))) + (let () (declare (not safe)) (_g136186136301_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd136195136666_)) + _hd136192136663_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136194136668_)) - (let ((_e136248136462_ + _tl136191136665_)) + (let ((_e136245136459_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl136194136668_)))) - (let ((_tl136246136467_ + (gx#stx-e _tl136191136665_)))) + (let ((_tl136243136464_ (let () (declare (not safe)) - (##cdr _e136248136462_))) - (_hd136247136465_ + (##cdr _e136245136459_))) + (_hd136244136462_ (let () (declare (not safe)) - (##car _e136248136462_)))) + (##car _e136245136459_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd136247136465_)) - (let ((___splice149714149715_ + (gx#stx-pair/null? _hd136244136462_)) + (let ((___splice149711149712_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd136247136465_ + _hd136244136462_ '0)))) - (let ((_tl136251136472_ + (let ((_tl136248136469_ (let () (declare (not safe)) - (##vector-ref ___splice149714149715_ '1))) - (_target136249136470_ + (##vector-ref ___splice149711149712_ '1))) + (_target136246136467_ (let () (declare (not safe)) (##vector-ref - ___splice149714149715_ + ___splice149711149712_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136251136472_)) - (___match149853149854_ - _e136196136663_ - _hd136195136666_ - _tl136194136668_ - _e136248136462_ - _hd136247136465_ - _tl136246136467_ - ___splice149714149715_ - _target136249136470_ - _tl136251136472_) + (gx#stx-null? _tl136248136469_)) + (___match149850149851_ + _e136193136660_ + _hd136192136663_ + _tl136191136665_ + _e136245136459_ + _hd136244136462_ + _tl136243136464_ + ___splice149711149712_ + _target136246136467_ + _tl136248136469_) (let () (declare (not safe)) - (_g136189136304_))))) - (let () (declare (not safe)) (_g136189136304_))))) - (let () (declare (not safe)) (_g136189136304_))) + (_g136186136301_))))) + (let () (declare (not safe)) (_g136186136301_))))) + (let () (declare (not safe)) (_g136186136301_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd136195136666_)) + (gx#stx-eq? '%#call _hd136192136663_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136194136668_)) - (let ((_e136267136400_ + (gx#stx-pair? _tl136191136665_)) + (let ((_e136264136397_ (let () (declare (not safe)) - (gx#stx-e _tl136194136668_)))) - (let ((_tl136265136405_ + (gx#stx-e _tl136191136665_)))) + (let ((_tl136262136402_ (let () (declare (not safe)) - (##cdr _e136267136400_))) - (_hd136266136403_ + (##cdr _e136264136397_))) + (_hd136263136400_ (let () (declare (not safe)) - (##car _e136267136400_)))) + (##car _e136264136397_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd136266136403_)) - (let ((_e136270136408_ + (gx#stx-pair? _hd136263136400_)) + (let ((_e136267136405_ (let () (declare (not safe)) - (gx#stx-e _hd136266136403_)))) - (let ((_tl136268136413_ + (gx#stx-e _hd136263136400_)))) + (let ((_tl136265136410_ (let () (declare (not safe)) - (##cdr _e136270136408_))) - (_hd136269136411_ + (##cdr _e136267136405_))) + (_hd136266136408_ (let () (declare (not safe)) - (##car _e136270136408_)))) + (##car _e136267136405_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd136269136411_)) + (gx#identifier? _hd136266136408_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd136269136411_)) + _hd136266136408_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136268136413_)) - (let ((_e136273136416_ + _tl136265136410_)) + (let ((_e136270136413_ (let () (declare (not safe)) (gx#stx-e - _tl136268136413_)))) - (let ((_tl136271136421_ + _tl136265136410_)))) + (let ((_tl136268136418_ (let () (declare (not safe)) - (##cdr _e136273136416_))) - (_hd136272136419_ + (##cdr _e136270136413_))) + (_hd136269136416_ (let () (declare (not safe)) - (##car _e136273136416_)))) + (##car _e136270136413_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl136271136421_)) + _tl136268136418_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136265136405_)) - (let ((_e136276136424_ + _tl136262136402_)) + (let ((_e136273136421_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl136265136405_)))) - (let ((_tl136274136429_ + (gx#stx-e _tl136262136402_)))) + (let ((_tl136271136426_ (let () (declare (not safe)) - (##cdr _e136276136424_))) - (_hd136275136427_ + (##cdr _e136273136421_))) + (_hd136272136424_ (let () (declare (not safe)) - (##car _e136276136424_)))) + (##car _e136273136421_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136274136429_)) - (___match149895149896_ - _e136196136663_ - _hd136195136666_ - _tl136194136668_ - _e136267136400_ - _hd136266136403_ - _tl136265136405_ - _e136270136408_ - _hd136269136411_ - _tl136268136413_ - _e136273136416_ - _hd136272136419_ - _tl136271136421_ - _e136276136424_ - _hd136275136427_ - _tl136274136429_) + (gx#stx-null? _tl136271136426_)) + (___match149892149893_ + _e136193136660_ + _hd136192136663_ + _tl136191136665_ + _e136264136397_ + _hd136263136400_ + _tl136262136402_ + _e136267136405_ + _hd136266136408_ + _tl136265136410_ + _e136270136413_ + _hd136269136416_ + _tl136268136418_ + _e136273136421_ + _hd136272136424_ + _tl136271136426_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl136265136405_)) - (let ((___splice149720149721_ + (gx#stx-pair/null? _tl136262136402_)) + (let ((___splice149717149718_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl136265136405_ + _tl136262136402_ '0)))) - (let ((_tl136293136343_ + (let ((_tl136290136340_ (let () (declare (not safe)) (##vector-ref - ___splice149720149721_ + ___splice149717149718_ '1))) - (_target136291136341_ + (_target136288136338_ (let () (declare (not safe)) (##vector-ref - ___splice149720149721_ + ___splice149717149718_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136293136343_)) - (___match149937149938_ - _e136196136663_ - _hd136195136666_ - _tl136194136668_ - _e136267136400_ - _hd136266136403_ - _tl136265136405_ - _e136270136408_ - _hd136269136411_ - _tl136268136413_ - _e136273136416_ - _hd136272136419_ - _tl136271136421_ - ___splice149720149721_ - _target136291136341_ - _tl136293136343_) + (gx#stx-null? _tl136290136340_)) + (___match149934149935_ + _e136193136660_ + _hd136192136663_ + _tl136191136665_ + _e136264136397_ + _hd136263136400_ + _tl136262136402_ + _e136267136405_ + _hd136266136408_ + _tl136265136410_ + _e136270136413_ + _hd136269136416_ + _tl136268136418_ + ___splice149717149718_ + _target136288136338_ + _tl136290136340_) (let () (declare (not safe)) - (_g136189136304_))))) + (_g136186136301_))))) (let () (declare (not safe)) - (_g136189136304_)))))) + (_g136186136301_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl136265136405_)) - (let ((___splice149720149721_ + (gx#stx-pair/null? _tl136262136402_)) + (let ((___splice149717149718_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl136265136405_ '0)))) - (let ((_tl136293136343_ + (gx#syntax-split-splice _tl136262136402_ '0)))) + (let ((_tl136290136340_ (let () (declare (not safe)) - (##vector-ref ___splice149720149721_ '1))) - (_target136291136341_ + (##vector-ref ___splice149717149718_ '1))) + (_target136288136338_ (let () (declare (not safe)) - (##vector-ref ___splice149720149721_ '0)))) + (##vector-ref ___splice149717149718_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136293136343_)) - (___match149937149938_ - _e136196136663_ - _hd136195136666_ - _tl136194136668_ - _e136267136400_ - _hd136266136403_ - _tl136265136405_ - _e136270136408_ - _hd136269136411_ - _tl136268136413_ - _e136273136416_ - _hd136272136419_ - _tl136271136421_ - ___splice149720149721_ - _target136291136341_ - _tl136293136343_) + (gx#stx-null? _tl136290136340_)) + (___match149934149935_ + _e136193136660_ + _hd136192136663_ + _tl136191136665_ + _e136264136397_ + _hd136263136400_ + _tl136262136402_ + _e136267136405_ + _hd136266136408_ + _tl136265136410_ + _e136270136413_ + _hd136269136416_ + _tl136268136418_ + ___splice149717149718_ + _target136288136338_ + _tl136290136340_) (let () (declare (not safe)) - (_g136189136304_))))) - (let () (declare (not safe)) (_g136189136304_)))) - (let () (declare (not safe)) (_g136189136304_))))) + (_g136186136301_))))) + (let () (declare (not safe)) (_g136186136301_)))) + (let () (declare (not safe)) (_g136186136301_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136189136304_))) + (_g136186136301_))) (let () (declare (not safe)) - (_g136189136304_))) + (_g136186136301_))) (let () (declare (not safe)) - (_g136189136304_))))) + (_g136186136301_))))) (let () (declare (not safe)) - (_g136189136304_))))) - (let () (declare (not safe)) (_g136189136304_))) - (let () (declare (not safe)) (_g136189136304_))))))) + (_g136186136301_))))) + (let () (declare (not safe)) (_g136186136301_))) + (let () (declare (not safe)) (_g136186136301_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136189136304_))))) + (_g136186136301_))))) (let () (declare (not safe)) - (_g136189136304_))))))))) - (let* ((_clause136066136073_ _clause136061_) - (_E136068136077_ + (_g136186136301_))))))))) + (let* ((_clause136063136070_ _clause136058_) + (_E136065136074_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _clause136066136073_)))) - (_K136069136170_ - (lambda (_kont136080_ _id136081_) - (let* ((_g136083136103_ - (lambda (_g136084136100_) + (error '"No clause matching" _clause136063136070_)))) + (_K136066136167_ + (lambda (_kont136077_ _id136078_) + (let* ((_g136080136100_ + (lambda (_g136081136097_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g136084136100_)))) - (_g136082136167_ - (lambda (_g136084136106_) + _g136081136097_)))) + (_g136079136164_ + (lambda (_g136081136103_) (if (let () (declare (not safe)) - (gx#stx-pair? _g136084136106_)) - (let ((_e136089136108_ + (gx#stx-pair? _g136081136103_)) + (let ((_e136086136105_ (let () (declare (not safe)) - (gx#stx-e _g136084136106_)))) - (let ((_hd136088136111_ + (gx#stx-e _g136081136103_)))) + (let ((_hd136085136108_ (let () (declare (not safe)) - (##car _e136089136108_))) - (_tl136087136113_ + (##car _e136086136105_))) + (_tl136084136110_ (let () (declare (not safe)) - (##cdr _e136089136108_)))) + (##cdr _e136086136105_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd136088136111_)) + (gx#identifier? _hd136085136108_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd136088136111_)) + _hd136085136108_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136087136113_)) - (let ((_e136092136116_ + _tl136084136110_)) + (let ((_e136089136113_ (let () (declare (not safe)) (gx#stx-e - _tl136087136113_)))) - (let ((_hd136091136119_ + _tl136084136110_)))) + (let ((_hd136088136116_ (let () (declare (not safe)) - (##car _e136092136116_))) - (_tl136090136121_ + (##car _e136089136113_))) + (_tl136087136118_ (let () (declare (not safe)) - (##cdr _e136092136116_)))) + (##cdr _e136089136113_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd136091136119_)) - (let ((_e136095136124_ + _hd136088136116_)) + (let ((_e136092136121_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd136091136119_)))) - (let ((_hd136094136127_ + (gx#stx-e _hd136088136116_)))) + (let ((_hd136091136124_ (let () (declare (not safe)) - (##car _e136095136124_))) - (_tl136093136129_ + (##car _e136092136121_))) + (_tl136090136126_ (let () (declare (not safe)) - (##cdr _e136095136124_)))) + (##cdr _e136092136121_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136093136129_)) + (gx#stx-null? _tl136090136126_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136090136121_)) - (let ((_e136098136132_ + (gx#stx-pair? _tl136087136118_)) + (let ((_e136095136129_ (let () (declare (not safe)) - (gx#stx-e _tl136090136121_)))) - (let ((_hd136097136135_ + (gx#stx-e _tl136087136118_)))) + (let ((_hd136094136132_ (let () (declare (not safe)) - (##car _e136098136132_))) - (_tl136096136137_ + (##car _e136095136129_))) + (_tl136093136134_ (let () (declare (not safe)) - (##cdr _e136098136132_)))) + (##cdr _e136095136129_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136096136137_)) - ((lambda (_L136140_ _L136141_) - (let* ((_body136162_ + (gx#stx-null? _tl136093136134_)) + ((lambda (_L136137_ _L136138_) + (let* ((_body136159_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L136140_ - _L136141_ - _target136063_))) - (_body136164_ - (if _negation136062_ + _L136137_ + _L136138_ + _target136060_))) + (_body136161_ + (if _negation136059_ (let () (declare (not safe)) - (_closure-e136065_ - _body136162_)) - _body136162_))) - (let ((__tmp150556 + (_closure-e136062_ + _body136159_)) + _body136159_))) + (let ((__tmp150553 (let () (declare (not safe)) (gxc#identifier-symbol - _id136081_))) - (__tmp150555 - (let ((__obj149989 + _id136078_))) + (__tmp150552 + (let ((__obj149986 (let () (declare (not safe)) (##structure @@ -18458,641 +18458,641 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj149989 + __obj149986 'lambda '0 '#f) - __obj149989))) + __obj149986))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp150556 - __tmp150555 + __tmp150553 + __tmp150552 '#t)) - (let ((__tmp150557 - (let ((__tmp150558 - (let ((__tmp150559 + (let ((__tmp150554 + (let ((__tmp150555 + (let ((__tmp150556 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body136164_ '())))) + (cons _body136161_ '())))) (declare (not safe)) - (cons '() __tmp150559)))) + (cons '() __tmp150556)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#lambda - __tmp150558)))) + __tmp150555)))) (declare (not safe)) - (cons _id136081_ __tmp150557)))) - _hd136097136135_ - _hd136094136127_) + (cons _id136078_ __tmp150554)))) + _hd136094136132_ + _hd136091136124_) (let () (declare (not safe)) - (_g136083136103_ _g136084136106_))))) + (_g136080136100_ _g136081136103_))))) (let () (declare (not safe)) - (_g136083136103_ _g136084136106_))) + (_g136080136100_ _g136081136103_))) (let () (declare (not safe)) - (_g136083136103_ _g136084136106_))))) + (_g136080136100_ _g136081136103_))))) (let () (declare (not safe)) - (_g136083136103_ _g136084136106_))))) + (_g136080136100_ _g136081136103_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136083136103_ - _g136084136106_))) + (_g136080136100_ + _g136081136103_))) (let () (declare (not safe)) - (_g136083136103_ - _g136084136106_))) + (_g136080136100_ + _g136081136103_))) (let () (declare (not safe)) - (_g136083136103_ - _g136084136106_))))) + (_g136080136100_ + _g136081136103_))))) (let () (declare (not safe)) - (_g136083136103_ _g136084136106_)))))) + (_g136080136100_ _g136081136103_)))))) (declare (not safe)) - (_g136082136167_ _kont136080_))))) - (if (let () (declare (not safe)) (##pair? _clause136066136073_)) - (let ((_hd136070136173_ + (_g136079136164_ _kont136077_))))) + (if (let () (declare (not safe)) (##pair? _clause136063136070_)) + (let ((_hd136067136170_ (let () (declare (not safe)) - (##car _clause136066136073_))) - (_tl136071136175_ + (##car _clause136063136070_))) + (_tl136068136172_ (let () (declare (not safe)) - (##cdr _clause136066136073_)))) - (let* ((_id136178_ _hd136070136173_) - (_kont136180_ _tl136071136175_)) + (##cdr _clause136063136070_)))) + (let* ((_id136175_ _hd136067136170_) + (_kont136177_ _tl136068136172_)) (declare (not safe)) - (_K136069136170_ _kont136180_ _id136178_))) - (let () (declare (not safe)) (_E136068136077_))))))) + (_K136066136167_ _kont136177_ _id136175_))) + (let () (declare (not safe)) (_E136065136074_))))))) (define gxc#push-match-vars-let-values% - (lambda (_stx135847_ _vars135848_ _K135849_) - (let* ((_g135851135868_ - (lambda (_g135852135865_) + (lambda (_stx135844_ _vars135845_ _K135846_) + (let* ((_g135848135865_ + (lambda (_g135849135862_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135852135865_)))) - (_g135850136058_ - (lambda (_g135852135871_) + _g135849135862_)))) + (_g135847136055_ + (lambda (_g135849135868_) (if (let () (declare (not safe)) - (gx#stx-pair? _g135852135871_)) - (let ((_e135857135873_ + (gx#stx-pair? _g135849135868_)) + (let ((_e135854135870_ (let () (declare (not safe)) - (gx#stx-e _g135852135871_)))) - (let ((_hd135856135876_ + (gx#stx-e _g135849135868_)))) + (let ((_hd135853135873_ (let () (declare (not safe)) - (##car _e135857135873_))) - (_tl135855135878_ + (##car _e135854135870_))) + (_tl135852135875_ (let () (declare (not safe)) - (##cdr _e135857135873_)))) + (##cdr _e135854135870_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135855135878_)) - (let ((_e135860135881_ + (gx#stx-pair? _tl135852135875_)) + (let ((_e135857135878_ (let () (declare (not safe)) - (gx#stx-e _tl135855135878_)))) - (let ((_hd135859135884_ + (gx#stx-e _tl135852135875_)))) + (let ((_hd135856135881_ (let () (declare (not safe)) - (##car _e135860135881_))) - (_tl135858135886_ + (##car _e135857135878_))) + (_tl135855135883_ (let () (declare (not safe)) - (##cdr _e135860135881_)))) + (##cdr _e135857135878_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135858135886_)) - (let ((_e135863135889_ + (gx#stx-pair? _tl135855135883_)) + (let ((_e135860135886_ (let () (declare (not safe)) - (gx#stx-e _tl135858135886_)))) - (let ((_hd135862135892_ + (gx#stx-e _tl135855135883_)))) + (let ((_hd135859135889_ (let () (declare (not safe)) - (##car _e135863135889_))) - (_tl135861135894_ + (##car _e135860135886_))) + (_tl135858135891_ (let () (declare (not safe)) - (##cdr _e135863135889_)))) + (##cdr _e135860135886_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl135861135894_)) - ((lambda (_L135897_ _L135898_) - (let _lp135913_ ((_rest135915_ + _tl135858135891_)) + ((lambda (_L135894_ _L135895_) + (let _lp135910_ ((_rest135912_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L135898_) - (_rebind135916_ '()) - (_vars135917_ _vars135848_)) + _L135895_) + (_rebind135913_ '()) + (_vars135914_ _vars135845_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest135918135926_ - _rest135915_) - (_else135920135934_ + (let* ((_rest135915135923_ + _rest135912_) + (_else135917135931_ (lambda () (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (null? _rebind135916_)) + (null? _rebind135913_)) (let () (declare (not safe)) - (gxc#compile-e__2 _L135897_ _vars135917_ _K135849_)) - (let ((__tmp150560 - (let ((__tmp150561 - (let ((__tmp150564 - (reverse _rebind135916_)) - (__tmp150562 - (let ((__tmp150563 + (gxc#compile-e__2 _L135894_ _vars135914_ _K135846_)) + (let ((__tmp150557 + (let ((__tmp150558 + (let ((__tmp150561 + (reverse _rebind135913_)) + (__tmp150559 + (let ((__tmp150560 (let () (declare (not safe)) (gxc#compile-e__2 - _L135897_ - _vars135917_ - _K135849_)))) + _L135894_ + _vars135914_ + _K135846_)))) (declare (not safe)) - (cons __tmp150563 '())))) + (cons __tmp150560 '())))) (declare (not safe)) - (cons __tmp150564 __tmp150562)))) + (cons __tmp150561 __tmp150559)))) (declare (not safe)) - (cons '%#let-values __tmp150561)))) + (cons '%#let-values __tmp150558)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150560 _stx135847_))))) - (_K135922136046_ - (lambda (_rest135937_ _bind135938_) - (let* ((___stx149940149941_ _bind135938_) - (_g135941135964_ + (gxc#xform-wrap-source __tmp150557 _stx135844_))))) + (_K135919136043_ + (lambda (_rest135934_ _bind135935_) + (let* ((___stx149937149938_ _bind135935_) + (_g135938135961_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149940149941_))))) - (let ((___kont149942149943_ - (lambda (_L136016_ _L136017_) - (let ((__tmp150565 + ___stx149937149938_))))) + (let ((___kont149939149940_ + (lambda (_L136013_ _L136014_) + (let ((__tmp150562 (let () (declare (not safe)) - (cons _bind135938_ _vars135917_)))) + (cons _bind135935_ _vars135914_)))) (declare (not safe)) - (_lp135913_ - _rest135937_ - _rebind135916_ - __tmp150565)))) - (___kont149944149945_ + (_lp135910_ + _rest135934_ + _rebind135913_ + __tmp150562)))) + (___kont149941149942_ (lambda () - (let ((__tmp150566 + (let ((__tmp150563 (let () (declare (not safe)) - (cons _bind135938_ _rebind135916_)))) + (cons _bind135935_ _rebind135913_)))) (declare (not safe)) - (_lp135913_ - _rest135937_ - __tmp150566 - _vars135917_))))) + (_lp135910_ + _rest135934_ + __tmp150563 + _vars135914_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149940149941_)) - (let ((_e135947135976_ + (gx#stx-pair? ___stx149937149938_)) + (let ((_e135944135973_ (let () (declare (not safe)) - (gx#stx-e ___stx149940149941_)))) - (let ((_tl135945135981_ + (gx#stx-e ___stx149937149938_)))) + (let ((_tl135942135978_ (let () (declare (not safe)) - (##cdr _e135947135976_))) - (_hd135946135979_ + (##cdr _e135944135973_))) + (_hd135943135976_ (let () (declare (not safe)) - (##car _e135947135976_)))) + (##car _e135944135973_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135946135979_)) - (let ((_e135950135984_ + (gx#stx-pair? _hd135943135976_)) + (let ((_e135947135981_ (let () (declare (not safe)) - (gx#stx-e _hd135946135979_)))) - (let ((_tl135948135989_ + (gx#stx-e _hd135943135976_)))) + (let ((_tl135945135986_ (let () (declare (not safe)) - (##cdr _e135950135984_))) - (_hd135949135987_ + (##cdr _e135947135981_))) + (_hd135946135984_ (let () (declare (not safe)) - (##car _e135950135984_)))) + (##car _e135947135981_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135948135989_)) + (gx#stx-null? _tl135945135986_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135945135981_)) - (let ((_e135953135992_ + _tl135942135978_)) + (let ((_e135950135989_ (let () (declare (not safe)) (gx#stx-e - _tl135945135981_)))) - (let ((_tl135951135997_ + _tl135942135978_)))) + (let ((_tl135948135994_ (let () (declare (not safe)) - (##cdr _e135953135992_))) - (_hd135952135995_ + (##cdr _e135950135989_))) + (_hd135949135992_ (let () (declare (not safe)) - (##car _e135953135992_)))) + (##car _e135950135989_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd135952135995_)) - (let ((_e135956136000_ + _hd135949135992_)) + (let ((_e135953135997_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd135952135995_)))) - (let ((_tl135954136005_ + (gx#stx-e _hd135949135992_)))) + (let ((_tl135951136002_ (let () (declare (not safe)) - (##cdr _e135956136000_))) - (_hd135955136003_ + (##cdr _e135953135997_))) + (_hd135952136000_ (let () (declare (not safe)) - (##car _e135956136000_)))) + (##car _e135953135997_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd135955136003_)) + (gx#identifier? _hd135952136000_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd135955136003_)) + (gx#stx-eq? '%#ref _hd135952136000_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135954136005_)) - (let ((_e135959136008_ + (gx#stx-pair? _tl135951136002_)) + (let ((_e135956136005_ (let () (declare (not safe)) - (gx#stx-e _tl135954136005_)))) - (let ((_tl135957136013_ + (gx#stx-e _tl135951136002_)))) + (let ((_tl135954136010_ (let () (declare (not safe)) - (##cdr _e135959136008_))) - (_hd135958136011_ + (##cdr _e135956136005_))) + (_hd135955136008_ (let () (declare (not safe)) - (##car _e135959136008_)))) + (##car _e135956136005_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135957136013_)) + (gx#stx-null? _tl135954136010_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl135951135997_)) - (___kont149942149943_ - _hd135958136011_ - _hd135949135987_) - (___kont149944149945_)) - (___kont149944149945_)))) - (___kont149944149945_)) - (___kont149944149945_)) - (___kont149944149945_)))) - (___kont149944149945_)))) + (gx#stx-null? _tl135948135994_)) + (___kont149939149940_ + _hd135955136008_ + _hd135946135984_) + (___kont149941149942_)) + (___kont149941149942_)))) + (___kont149941149942_)) + (___kont149941149942_)) + (___kont149941149942_)))) + (___kont149941149942_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149944149945_)) - (___kont149944149945_)))) - (___kont149944149945_)))) - (___kont149944149945_))))))) + (___kont149941149942_)) + (___kont149941149942_)))) + (___kont149941149942_)))) + (___kont149941149942_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest135918135926_)) - (let ((_hd135923136049_ + (##pair? _rest135915135923_)) + (let ((_hd135920136046_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _rest135918135926_))) - (_tl135924136051_ + (##car _rest135915135923_))) + (_tl135921136048_ (let () (declare (not safe)) - (##cdr _rest135918135926_)))) - (let* ((_bind136054_ _hd135923136049_) - (_rest136056_ _tl135924136051_)) + (##cdr _rest135915135923_)))) + (let* ((_bind136051_ _hd135920136046_) + (_rest136053_ _tl135921136048_)) (declare (not safe)) - (_K135922136046_ _rest136056_ _bind136054_))) - (let () (declare (not safe)) (_else135920135934_)))))) + (_K135919136043_ _rest136053_ _bind136051_))) + (let () (declare (not safe)) (_else135917135931_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd135862135892_ - _hd135859135884_) + _hd135859135889_ + _hd135856135881_) (let () (declare (not safe)) - (_g135851135868_ - _g135852135871_))))) + (_g135848135865_ + _g135849135868_))))) (let () (declare (not safe)) - (_g135851135868_ _g135852135871_))))) + (_g135848135865_ _g135849135868_))))) (let () (declare (not safe)) - (_g135851135868_ _g135852135871_))))) + (_g135848135865_ _g135849135868_))))) (let () (declare (not safe)) - (_g135851135868_ _g135852135871_)))))) + (_g135848135865_ _g135849135868_)))))) (declare (not safe)) - (_g135850136058_ _stx135847_)))) + (_g135847136055_ _stx135844_)))) (define gxc#push-match-vars-if% - (lambda (_stx135762_ _vars135763_ _K135764_) - (let* ((_g135766135787_ - (lambda (_g135767135784_) + (lambda (_stx135759_ _vars135760_ _K135761_) + (let* ((_g135763135784_ + (lambda (_g135764135781_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135767135784_)))) - (_g135765135844_ - (lambda (_g135767135790_) + _g135764135781_)))) + (_g135762135841_ + (lambda (_g135764135787_) (if (let () (declare (not safe)) - (gx#stx-pair? _g135767135790_)) - (let ((_e135773135792_ + (gx#stx-pair? _g135764135787_)) + (let ((_e135770135789_ (let () (declare (not safe)) - (gx#stx-e _g135767135790_)))) - (let ((_hd135772135795_ + (gx#stx-e _g135764135787_)))) + (let ((_hd135769135792_ (let () (declare (not safe)) - (##car _e135773135792_))) - (_tl135771135797_ + (##car _e135770135789_))) + (_tl135768135794_ (let () (declare (not safe)) - (##cdr _e135773135792_)))) + (##cdr _e135770135789_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135771135797_)) - (let ((_e135776135800_ + (gx#stx-pair? _tl135768135794_)) + (let ((_e135773135797_ (let () (declare (not safe)) - (gx#stx-e _tl135771135797_)))) - (let ((_hd135775135803_ + (gx#stx-e _tl135768135794_)))) + (let ((_hd135772135800_ (let () (declare (not safe)) - (##car _e135776135800_))) - (_tl135774135805_ + (##car _e135773135797_))) + (_tl135771135802_ (let () (declare (not safe)) - (##cdr _e135776135800_)))) + (##cdr _e135773135797_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135774135805_)) - (let ((_e135779135808_ + (gx#stx-pair? _tl135771135802_)) + (let ((_e135776135805_ (let () (declare (not safe)) - (gx#stx-e _tl135774135805_)))) - (let ((_hd135778135811_ + (gx#stx-e _tl135771135802_)))) + (let ((_hd135775135808_ (let () (declare (not safe)) - (##car _e135779135808_))) - (_tl135777135813_ + (##car _e135776135805_))) + (_tl135774135810_ (let () (declare (not safe)) - (##cdr _e135779135808_)))) + (##cdr _e135776135805_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135777135813_)) - (let ((_e135782135816_ + _tl135774135810_)) + (let ((_e135779135813_ (let () (declare (not safe)) (gx#stx-e - _tl135777135813_)))) - (let ((_hd135781135819_ + _tl135774135810_)))) + (let ((_hd135778135816_ (let () (declare (not safe)) - (##car _e135782135816_))) - (_tl135780135821_ + (##car _e135779135813_))) + (_tl135777135818_ (let () (declare (not safe)) - (##cdr _e135782135816_)))) + (##cdr _e135779135813_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl135780135821_)) - ((lambda (_L135824_ - _L135825_ - _L135826_) - (if (let ((__tmp150573 + _tl135777135818_)) + ((lambda (_L135821_ + _L135822_ + _L135823_) + (if (let ((__tmp150570 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (map caar _vars135763_))) + (map caar _vars135760_))) (declare (not safe)) - (gxc#apply-find-var-refs _L135826_ __tmp150573)) + (gxc#apply-find-var-refs _L135823_ __tmp150570)) (let () (declare (not safe)) (gxc#push-match-vars-stop - _stx135762_ - _vars135763_ - _K135764_)) - (let ((__tmp150567 - (let ((__tmp150568 - (let ((__tmp150569 - (let ((__tmp150572 + _stx135759_ + _vars135760_ + _K135761_)) + (let ((__tmp150564 + (let ((__tmp150565 + (let ((__tmp150566 + (let ((__tmp150569 (let () (declare (not safe)) (gxc#compile-e__2 - _L135825_ - _vars135763_ - _K135764_))) - (__tmp150570 - (let ((__tmp150571 + _L135822_ + _vars135760_ + _K135761_))) + (__tmp150567 + (let ((__tmp150568 (let () (declare (not safe)) (gxc#compile-e__2 - _L135824_ - _vars135763_ - _K135764_)))) + _L135821_ + _vars135760_ + _K135761_)))) (declare (not safe)) - (cons __tmp150571 '())))) + (cons __tmp150568 '())))) (declare (not safe)) - (cons __tmp150572 __tmp150570)))) + (cons __tmp150569 __tmp150567)))) (declare (not safe)) - (cons _L135826_ __tmp150569)))) + (cons _L135823_ __tmp150566)))) (declare (not safe)) - (cons '%#if __tmp150568)))) + (cons '%#if __tmp150565)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150567 _stx135762_)))) - _hd135781135819_ - _hd135778135811_ - _hd135775135803_) + (gxc#xform-wrap-source __tmp150564 _stx135759_)))) + _hd135778135816_ + _hd135775135808_ + _hd135772135800_) (let () (declare (not safe)) - (_g135766135787_ _g135767135790_))))) + (_g135763135784_ _g135764135787_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g135766135787_ - _g135767135790_))))) + (_g135763135784_ + _g135764135787_))))) (let () (declare (not safe)) - (_g135766135787_ _g135767135790_))))) + (_g135763135784_ _g135764135787_))))) (let () (declare (not safe)) - (_g135766135787_ _g135767135790_))))) + (_g135763135784_ _g135764135787_))))) (let () (declare (not safe)) - (_g135766135787_ _g135767135790_)))))) + (_g135763135784_ _g135764135787_)))))) (declare (not safe)) - (_g135765135844_ _stx135762_)))) + (_g135762135841_ _stx135759_)))) (define gxc#push-match-vars-call% - (lambda (_stx135682_ _vars135683_ _K135684_) - (let* ((_g135686135705_ - (lambda (_g135687135702_) + (lambda (_stx135679_ _vars135680_ _K135681_) + (let* ((_g135683135702_ + (lambda (_g135684135699_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135687135702_)))) - (_g135685135759_ - (lambda (_g135687135708_) + _g135684135699_)))) + (_g135682135756_ + (lambda (_g135684135705_) (if (let () (declare (not safe)) - (gx#stx-pair? _g135687135708_)) - (let ((_e135691135710_ + (gx#stx-pair? _g135684135705_)) + (let ((_e135688135707_ (let () (declare (not safe)) - (gx#stx-e _g135687135708_)))) - (let ((_hd135690135713_ + (gx#stx-e _g135684135705_)))) + (let ((_hd135687135710_ (let () (declare (not safe)) - (##car _e135691135710_))) - (_tl135689135715_ + (##car _e135688135707_))) + (_tl135686135712_ (let () (declare (not safe)) - (##cdr _e135691135710_)))) + (##cdr _e135688135707_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135689135715_)) - (let ((_e135694135718_ + (gx#stx-pair? _tl135686135712_)) + (let ((_e135691135715_ (let () (declare (not safe)) - (gx#stx-e _tl135689135715_)))) - (let ((_hd135693135721_ + (gx#stx-e _tl135686135712_)))) + (let ((_hd135690135718_ (let () (declare (not safe)) - (##car _e135694135718_))) - (_tl135692135723_ + (##car _e135691135715_))) + (_tl135689135720_ (let () (declare (not safe)) - (##cdr _e135694135718_)))) + (##cdr _e135691135715_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135693135721_)) - (let ((_e135697135726_ + (gx#stx-pair? _hd135690135718_)) + (let ((_e135694135723_ (let () (declare (not safe)) - (gx#stx-e _hd135693135721_)))) - (let ((_hd135696135729_ + (gx#stx-e _hd135690135718_)))) + (let ((_hd135693135726_ (let () (declare (not safe)) - (##car _e135697135726_))) - (_tl135695135731_ + (##car _e135694135723_))) + (_tl135692135728_ (let () (declare (not safe)) - (##cdr _e135697135726_)))) + (##cdr _e135694135723_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd135696135729_)) + _hd135693135726_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd135696135729_)) + _hd135693135726_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135695135731_)) - (let ((_e135700135734_ + _tl135692135728_)) + (let ((_e135697135731_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl135695135731_)))) - (let ((_hd135699135737_ - (let () (declare (not safe)) (##car _e135700135734_))) - (_tl135698135739_ - (let () (declare (not safe)) (##cdr _e135700135734_)))) + (gx#stx-e _tl135692135728_)))) + (let ((_hd135696135734_ + (let () (declare (not safe)) (##car _e135697135731_))) + (_tl135695135736_ + (let () (declare (not safe)) (##cdr _e135697135731_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135698135739_)) - ((lambda (_L135742_) + (gx#stx-null? _tl135695135736_)) + ((lambda (_L135739_) (if (and (let () (declare (not safe)) - (gx#free-identifier=? _L135742_ _K135684_)) + (gx#free-identifier=? _L135739_ _K135681_)) (let () (declare (not safe)) - (pair? _vars135683_))) - (let ((__tmp150574 - (let ((__tmp150575 - (let ((__tmp150577 - (reverse _vars135683_)) - (__tmp150576 + (pair? _vars135680_))) + (let ((__tmp150571 + (let ((__tmp150572 + (let ((__tmp150574 + (reverse _vars135680_)) + (__tmp150573 (let () (declare (not safe)) - (cons _stx135682_ '())))) + (cons _stx135679_ '())))) (declare (not safe)) - (cons __tmp150577 __tmp150576)))) + (cons __tmp150574 __tmp150573)))) (declare (not safe)) - (cons '%#let-values __tmp150575)))) + (cons '%#let-values __tmp150572)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150574 _stx135682_)) - _stx135682_)) - _hd135699135737_) + (gxc#xform-wrap-source __tmp150571 _stx135679_)) + _stx135679_)) + _hd135696135734_) (let () (declare (not safe)) - (_g135686135705_ _g135687135708_))))) - (let () (declare (not safe)) (_g135686135705_ _g135687135708_))) + (_g135683135702_ _g135684135705_))))) + (let () (declare (not safe)) (_g135683135702_ _g135684135705_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g135686135705_ - _g135687135708_))) + (_g135683135702_ + _g135684135705_))) (let () (declare (not safe)) - (_g135686135705_ - _g135687135708_))))) + (_g135683135702_ + _g135684135705_))))) (let () (declare (not safe)) - (_g135686135705_ _g135687135708_))))) + (_g135683135702_ _g135684135705_))))) (let () (declare (not safe)) - (_g135686135705_ _g135687135708_))))) + (_g135683135702_ _g135684135705_))))) (let () (declare (not safe)) - (_g135686135705_ _g135687135708_)))))) + (_g135683135702_ _g135684135705_)))))) (declare (not safe)) - (_g135685135759_ _stx135682_)))) + (_g135682135756_ _stx135679_)))) (define gxc#push-match-vars-stop - (lambda (_stx135678_ _vars135679_ _K135680_) - (if (let () (declare (not safe)) (null? _vars135679_)) - _stx135678_ - (let ((__tmp150578 - (let ((__tmp150579 - (let ((__tmp150581 (reverse _vars135679_)) - (__tmp150580 + (lambda (_stx135675_ _vars135676_ _K135677_) + (if (let () (declare (not safe)) (null? _vars135676_)) + _stx135675_ + (let ((__tmp150575 + (let ((__tmp150576 + (let ((__tmp150578 (reverse _vars135676_)) + (__tmp150577 (let () (declare (not safe)) - (cons _stx135678_ '())))) + (cons _stx135675_ '())))) (declare (not safe)) - (cons __tmp150581 __tmp150580)))) + (cons __tmp150578 __tmp150577)))) (declare (not safe)) - (cons '%#let-values __tmp150579)))) + (cons '%#let-values __tmp150576)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150578 _stx135678_))))))) + (gxc#xform-wrap-source __tmp150575 _stx135675_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base__0.scm b/src/bootstrap/gerbil/compiler/optimize-base__0.scm index 78bd5975..078aa688 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 1709128372) + (define gerbil/compiler/optimize-base::timestamp 1709229971) (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 ((__tmp114296 (list)) - (__tmp114294 - (let ((__tmp114295 + (let ((__tmp114293 (list)) + (__tmp114291 + (let ((__tmp114292 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114295 '())))) + (cons __tmp114292 '())))) (declare (not safe)) (make-class-type 'gxc#optimizer-info::t 'optimizer-info - __tmp114296 + __tmp114293 '(type ssxi methods) - __tmp114294 + __tmp114291 ':init!))) (define gxc#optimizer-info? (let () (declare (not safe)) (make-class-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _$args114230_ - (apply make-instance gxc#optimizer-info::t _$args114230_))) + (lambda _$args114227_ + (apply make-instance gxc#optimizer-info::t _$args114227_))) (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 (_self114228_) - (if (let ((__tmp114304 + (lambda (_self114225_) + (if (let ((__tmp114301 (let () (declare (not safe)) - (##structure-length _self114228_)))) + (##structure-length _self114225_)))) (declare (not safe)) - (##fx< '3 __tmp114304)) + (##fx< '3 __tmp114301)) (begin - (let ((__tmp114299 + (let ((__tmp114296 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp114298 + (__tmp114295 (let () (declare (not safe)) - (##structure-type _self114228_)))) + (##structure-type _self114225_)))) (declare (not safe)) (##unchecked-structure-set! - _self114228_ - __tmp114299 + _self114225_ + __tmp114296 '1 - __tmp114298 + __tmp114295 '#f)) - (let ((__tmp114301 + (let ((__tmp114298 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp114300 + (__tmp114297 (let () (declare (not safe)) - (##structure-type _self114228_)))) + (##structure-type _self114225_)))) (declare (not safe)) (##unchecked-structure-set! - _self114228_ - __tmp114301 + _self114225_ + __tmp114298 '2 - __tmp114300 + __tmp114297 '#f)) - (let ((__tmp114303 + (let ((__tmp114300 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp114302 + (__tmp114299 (let () (declare (not safe)) - (##structure-type _self114228_)))) + (##structure-type _self114225_)))) (declare (not safe)) (##unchecked-structure-set! - _self114228_ - __tmp114303 + _self114225_ + __tmp114300 '3 - __tmp114302 + __tmp114299 '#f))) - (let ((__tmp114297 + (let ((__tmp114294 (let () (declare (not safe)) - (##vector-length _self114228_)))) + (##vector-length _self114225_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self114228_ + _self114225_ '3 - __tmp114297))))) + __tmp114294))))) (let () (declare (not safe)) (bind-method!__% @@ -140,24 +140,24 @@ gxc#optimizer-info:::init! '#f)) (define gxc#!type::t - (let ((__tmp114307 (list)) - (__tmp114305 - (let ((__tmp114306 + (let ((__tmp114304 (list)) + (__tmp114302 + (let ((__tmp114303 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114306 '())))) + (cons __tmp114303 '())))) (declare (not safe)) (make-class-type 'gxc#!type::t '!type - __tmp114307 + __tmp114304 '(id) - __tmp114305 + __tmp114302 '#f))) (define gxc#!type? (let () (declare (not safe)) (make-class-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _$args114103_ (apply make-instance gxc#!type::t _$args114103_))) + (lambda _$args114100_ (apply make-instance gxc#!type::t _$args114100_))) (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 ((__tmp114310 (list gxc#!type::t)) - (__tmp114308 - (let ((__tmp114309 + (let ((__tmp114307 (list gxc#!type::t)) + (__tmp114305 + (let ((__tmp114306 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114309 '())))) + (cons __tmp114306 '())))) (declare (not safe)) (make-class-type 'gxc#!alias::t '!alias - __tmp114310 + __tmp114307 '() - __tmp114308 + __tmp114305 '#f))) (define gxc#!alias? (let () (declare (not safe)) (make-class-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _$args114100_ (apply make-instance gxc#!alias::t _$args114100_))) + (lambda _$args114097_ (apply make-instance gxc#!alias::t _$args114097_))) (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 ((__tmp114313 (list gxc#!type::t)) - (__tmp114311 - (let ((__tmp114312 + (let ((__tmp114310 (list gxc#!type::t)) + (__tmp114308 + (let ((__tmp114309 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114312 '())))) + (cons __tmp114309 '())))) (declare (not safe)) (make-class-type 'gxc#!procedure::t '!procedure - __tmp114313 + __tmp114310 '() - __tmp114311 + __tmp114308 '#f))) (define gxc#!procedure? (let () (declare (not safe)) (make-class-predicate gxc#!procedure::t))) (define gxc#make-!procedure - (lambda _$args114097_ - (apply make-instance gxc#!procedure::t _$args114097_))) + (lambda _$args114094_ + (apply make-instance gxc#!procedure::t _$args114094_))) (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 ((__tmp114316 (list gxc#!type::t)) - (__tmp114314 - (let ((__tmp114315 + (let ((__tmp114313 (list gxc#!type::t)) + (__tmp114311 + (let ((__tmp114312 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114315 '())))) + (cons __tmp114312 '())))) (declare (not safe)) (make-class-type 'gxc#!class::t '!class - __tmp114316 + __tmp114313 '(super precedence-list slots fields @@ -263,12 +263,12 @@ final? metaclass methods) - __tmp114314 + __tmp114311 ':init!))) (define gxc#!class? (let () (declare (not safe)) (make-class-predicate gxc#!class::t))) (define gxc#make-!class - (lambda _$args114094_ (apply make-instance gxc#!class::t _$args114094_))) + (lambda _$args114091_ (apply make-instance gxc#!class::t _$args114091_))) (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 ((__tmp114319 (list gxc#!procedure::t)) - (__tmp114317 - (let ((__tmp114318 + (let ((__tmp114316 (list gxc#!procedure::t)) + (__tmp114314 + (let ((__tmp114315 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114318 '())))) + (cons __tmp114315 '())))) (declare (not safe)) (make-class-type 'gxc#!predicate::t '!predicate - __tmp114319 + __tmp114316 '() - __tmp114317 + __tmp114314 '#f))) (define gxc#!predicate? (let () (declare (not safe)) (make-class-predicate gxc#!predicate::t))) (define gxc#make-!predicate - (lambda _$args114091_ - (apply make-instance gxc#!predicate::t _$args114091_))) + (lambda _$args114088_ + (apply make-instance gxc#!predicate::t _$args114088_))) (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 ((__tmp114322 (list gxc#!procedure::t)) - (__tmp114320 - (let ((__tmp114321 + (let ((__tmp114319 (list gxc#!procedure::t)) + (__tmp114317 + (let ((__tmp114318 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114321 '())))) + (cons __tmp114318 '())))) (declare (not safe)) (make-class-type 'gxc#!constructor::t '!constructor - __tmp114322 + __tmp114319 '() - __tmp114320 + __tmp114317 '#f))) (define gxc#!constructor? (let () (declare (not safe)) (make-class-predicate gxc#!constructor::t))) (define gxc#make-!constructor - (lambda _$args114088_ - (apply make-instance gxc#!constructor::t _$args114088_))) + (lambda _$args114085_ + (apply make-instance gxc#!constructor::t _$args114085_))) (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 ((__tmp114325 (list gxc#!procedure::t)) - (__tmp114323 - (let ((__tmp114324 + (let ((__tmp114322 (list gxc#!procedure::t)) + (__tmp114320 + (let ((__tmp114321 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114324 '())))) + (cons __tmp114321 '())))) (declare (not safe)) (make-class-type 'gxc#!accessor::t '!accessor - __tmp114325 + __tmp114322 '(slot checked?) - __tmp114323 + __tmp114320 '#f))) (define gxc#!accessor? (let () (declare (not safe)) (make-class-predicate gxc#!accessor::t))) (define gxc#make-!accessor - (lambda _$args114085_ - (apply make-instance gxc#!accessor::t _$args114085_))) + (lambda _$args114082_ + (apply make-instance gxc#!accessor::t _$args114082_))) (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 ((__tmp114328 (list gxc#!procedure::t)) - (__tmp114326 - (let ((__tmp114327 + (let ((__tmp114325 (list gxc#!procedure::t)) + (__tmp114323 + (let ((__tmp114324 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114327 '())))) + (cons __tmp114324 '())))) (declare (not safe)) (make-class-type 'gxc#!mutator::t '!mutator - __tmp114328 + __tmp114325 '(slot checked?) - __tmp114326 + __tmp114323 '#f))) (define gxc#!mutator? (let () (declare (not safe)) (make-class-predicate gxc#!mutator::t))) (define gxc#make-!mutator - (lambda _$args114082_ - (apply make-instance gxc#!mutator::t _$args114082_))) + (lambda _$args114079_ + (apply make-instance gxc#!mutator::t _$args114079_))) (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 ((__tmp114331 (list gxc#!procedure::t)) - (__tmp114329 - (let ((__tmp114330 + (let ((__tmp114328 (list gxc#!procedure::t)) + (__tmp114326 + (let ((__tmp114327 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114330 '())))) + (cons __tmp114327 '())))) (declare (not safe)) (make-class-type 'gxc#!lambda::t '!lambda - __tmp114331 + __tmp114328 '(arity dispatch inline inline-typedecl) - __tmp114329 + __tmp114326 ':init!))) (define gxc#!lambda? (let () (declare (not safe)) (make-class-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _$args114079_ - (apply make-instance gxc#!lambda::t _$args114079_))) + (lambda _$args114076_ + (apply make-instance gxc#!lambda::t _$args114076_))) (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 ((__tmp114334 (list gxc#!procedure::t)) - (__tmp114332 - (let ((__tmp114333 + (let ((__tmp114331 (list gxc#!procedure::t)) + (__tmp114329 + (let ((__tmp114330 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114333 '())))) + (cons __tmp114330 '())))) (declare (not safe)) (make-class-type 'gxc#!case-lambda::t '!case-lambda - __tmp114334 + __tmp114331 '(clauses) - __tmp114332 + __tmp114329 '#f))) (define gxc#!case-lambda? (let () (declare (not safe)) (make-class-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _$args114076_ - (apply make-instance gxc#!case-lambda::t _$args114076_))) + (lambda _$args114073_ + (apply make-instance gxc#!case-lambda::t _$args114073_))) (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 ((__tmp114337 (list gxc#!procedure::t)) - (__tmp114335 - (let ((__tmp114336 + (let ((__tmp114334 (list gxc#!procedure::t)) + (__tmp114332 + (let ((__tmp114333 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114336 '())))) + (cons __tmp114333 '())))) (declare (not safe)) (make-class-type 'gxc#!kw-lambda::t '!kw-lambda - __tmp114337 + __tmp114334 '(table dispatch) - __tmp114335 + __tmp114332 '#f))) (define gxc#!kw-lambda? (let () (declare (not safe)) (make-class-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _$args114073_ - (apply make-instance gxc#!kw-lambda::t _$args114073_))) + (lambda _$args114070_ + (apply make-instance gxc#!kw-lambda::t _$args114070_))) (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 ((__tmp114340 (list gxc#!procedure::t)) - (__tmp114338 - (let ((__tmp114339 + (let ((__tmp114337 (list gxc#!procedure::t)) + (__tmp114335 + (let ((__tmp114336 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114339 '())))) + (cons __tmp114336 '())))) (declare (not safe)) (make-class-type 'gxc#!kw-lambda-primary::t '!kw-lambda-primary - __tmp114340 + __tmp114337 '(keys main) - __tmp114338 + __tmp114335 '#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 _$args114070_ - (apply make-instance gxc#!kw-lambda-primary::t _$args114070_))) + (lambda _$args114067_ + (apply make-instance gxc#!kw-lambda-primary::t _$args114067_))) (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 ((__tmp114341 (list))) + (let ((__tmp114338 (list))) (declare (not safe)) (make-class-type 'gxc#!primitive::t '!primitive - __tmp114341 + __tmp114338 '() '() '#f))) (define gxc#!primitive? (let () (declare (not safe)) (make-class-predicate gxc#!primitive::t))) (define gxc#make-!primitive - (lambda _$args114067_ - (apply make-instance gxc#!primitive::t _$args114067_))) + (lambda _$args114064_ + (apply make-instance gxc#!primitive::t _$args114064_))) (define gxc#!primitive-lambda::t - (let ((__tmp114342 (list gxc#!primitive::t gxc#!lambda::t))) + (let ((__tmp114339 (list gxc#!primitive::t gxc#!lambda::t))) (declare (not safe)) (make-class-type 'gxc#!primitive-lambda::t '!primitive-lambda - __tmp114342 + __tmp114339 '() '() ':init!))) @@ -957,8 +957,8 @@ (declare (not safe)) (make-class-predicate gxc#!primitive-lambda::t))) (define gxc#make-!primitive-lambda - (lambda _$args114064_ - (apply make-instance gxc#!primitive-lambda::t _$args114064_))) + (lambda _$args114061_ + (apply make-instance gxc#!primitive-lambda::t _$args114061_))) (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 ((__tmp114343 (list gxc#!primitive::t gxc#!case-lambda::t))) + (let ((__tmp114340 (list gxc#!primitive::t gxc#!case-lambda::t))) (declare (not safe)) (make-class-type 'gxc#!primitive-case-lambda::t '!primitive-case-lambda - __tmp114343 + __tmp114340 '() '() ':init!))) @@ -1062,8 +1062,8 @@ (declare (not safe)) (make-class-predicate gxc#!primitive-case-lambda::t))) (define gxc#make-!primitive-case-lambda - (lambda _$args114061_ - (apply make-instance gxc#!primitive-case-lambda::t _$args114061_))) + (lambda _$args114058_ + (apply make-instance gxc#!primitive-case-lambda::t _$args114058_))) (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 (_self113943_ - _id113944_ - _super113945_ - _slots113946_ - _ctor-method113947_ - _struct?113948_ - _final?113949_ - _metaclass113950_) - (let _lp113952_ ((_rest113954_ _super113945_)) - (let* ((_rest113955113963_ _rest113954_) - (_else113957113971_ (lambda () '#!void)) - (_K113959113977_ - (lambda (_rest113974_ _super-id113975_) + (lambda (_self113940_ + _id113941_ + _super113942_ + _slots113943_ + _ctor-method113944_ + _struct?113945_ + _final?113946_ + _metaclass113947_) + (let _lp113949_ ((_rest113951_ _super113942_)) + (let* ((_rest113952113960_ _rest113951_) + (_else113954113968_ (lambda () '#!void)) + (_K113956113974_ + (lambda (_rest113971_ _super-id113972_) (if (##structure-ref - (let ((__tmp114346 - (let ((__tmp114347 + (let ((__tmp114343 + (let ((__tmp114344 (let () (declare (not safe)) - (cons _id113944_ '())))) + (cons _id113941_ '())))) (declare (not safe)) - (cons '!class __tmp114347)))) + (cons '!class __tmp114344)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114346 - _super-id113975_)) + __tmp114343 + _super-id113972_)) '8 gxc#!class::t '#f) - (let ((__tmp114344 - (let ((__tmp114345 + (let ((__tmp114341 + (let ((__tmp114342 (let () (declare (not safe)) - (cons _id113944_ '())))) + (cons _id113941_ '())))) (declare (not safe)) - (cons '!class __tmp114345)))) + (cons '!class __tmp114342)))) (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp114344 - _super-id113975_)) + __tmp114341 + _super-id113972_)) '#!void) - (let () (declare (not safe)) (_lp113952_ _rest113974_))))) - (if (let () (declare (not safe)) (##pair? _rest113955113963_)) - (let ((_hd113960113980_ + (let () (declare (not safe)) (_lp113949_ _rest113971_))))) + (if (let () (declare (not safe)) (##pair? _rest113952113960_)) + (let ((_hd113957113977_ (let () (declare (not safe)) - (##car _rest113955113963_))) - (_tl113961113982_ + (##car _rest113952113960_))) + (_tl113958113979_ (let () (declare (not safe)) - (##cdr _rest113955113963_)))) - (let* ((_super-id113985_ _hd113960113980_) - (_rest113987_ _tl113961113982_)) + (##cdr _rest113952113960_)))) + (let* ((_super-id113982_ _hd113957113977_) + (_rest113984_ _tl113958113979_)) (declare (not safe)) - (_K113959113977_ _rest113987_ _super-id113985_))) + (_K113956113974_ _rest113984_ _super-id113982_))) '#!void))) - (let* ((_ctor-method114037_ - (let ((_$e113989_ _ctor-method113947_)) - (if _$e113989_ - _$e113989_ - (let _lp113992_ ((_rest113994_ _super113945_) - (_method113995_ '#f)) - (let* ((_rest113996114004_ _rest113994_) - (_else113998114012_ (lambda () _method113995_)) - (_K114000114025_ - (lambda (_rest114015_ _super-id114016_) - (let* ((_klass114018_ - (let ((__tmp114348 - (let ((__tmp114349 + (let* ((_ctor-method114034_ + (let ((_$e113986_ _ctor-method113944_)) + (if _$e113986_ + _$e113986_ + (let _lp113989_ ((_rest113991_ _super113942_) + (_method113992_ '#f)) + (let* ((_rest113993114001_ _rest113991_) + (_else113995114009_ (lambda () _method113992_)) + (_K113997114022_ + (lambda (_rest114012_ _super-id114013_) + (let* ((_klass114015_ + (let ((__tmp114345 + (let ((__tmp114346 (let () (declare (not safe)) - (cons _id113944_ + (cons _id113941_ '())))) (declare (not safe)) (cons '!class - __tmp114349)))) + __tmp114346)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114348 - _super-id114016_))) - (_$e114020_ + __tmp114345 + _super-id114013_))) + (_$e114017_ (##structure-ref - _klass114018_ + _klass114015_ '6 gxc#!class::t '#f))) - (if _$e114020_ - ((lambda (_ctor-method114023_) - (if _method113995_ + (if _$e114017_ + ((lambda (_ctor-method114020_) + (if _method113992_ (if (let () (declare (not safe)) - (eq? _ctor-method114023_ - _method113995_)) + (eq? _ctor-method114020_ + _method113992_)) (let () (declare (not safe)) - (_lp113992_ - _rest114015_ - _ctor-method114023_)) - (let ((__tmp114350 - (let ((__tmp114351 + (_lp113989_ + _rest114012_ + _ctor-method114020_)) + (let ((__tmp114347 + (let ((__tmp114348 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id113944_ '())))) + (let () (declare (not safe)) (cons _id113941_ '())))) (declare (not safe)) - (cons '!class __tmp114351)))) + (cons '!class __tmp114348)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp114350 - _method113995_ - _ctor-method114023_))) + __tmp114347 + _method113992_ + _ctor-method114020_))) (let () (declare (not safe)) - (_lp113992_ - _rest114015_ - _ctor-method114023_)))) - _$e114020_) + (_lp113989_ + _rest114012_ + _ctor-method114020_)))) + _$e114017_) (let () (declare (not safe)) - (_lp113992_ - _rest114015_ - _method113995_))))))) + (_lp113989_ + _rest114012_ + _method113992_))))))) (if (let () (declare (not safe)) - (##pair? _rest113996114004_)) - (let ((_hd114001114028_ + (##pair? _rest113993114001_)) + (let ((_hd113998114025_ (let () (declare (not safe)) - (##car _rest113996114004_))) - (_tl114002114030_ + (##car _rest113993114001_))) + (_tl113999114027_ (let () (declare (not safe)) - (##cdr _rest113996114004_)))) - (let* ((_super-id114033_ _hd114001114028_) - (_rest114035_ _tl114002114030_)) + (##cdr _rest113993114001_)))) + (let* ((_super-id114030_ _hd113998114025_) + (_rest114032_ _tl113999114027_)) (declare (not safe)) - (_K114000114025_ - _rest114035_ - _super-id114033_))) + (_K113997114022_ + _rest114032_ + _super-id114030_))) (let () (declare (not safe)) - (_else113998114012_)))))))) - (_g114352_ - (let ((__tmp114357 - (lambda (_klass-id114039_) - (let ((__tmp114358 + (_else113995114009_)))))))) + (_g114349_ + (let ((__tmp114354 + (lambda (_klass-id114036_) + (let ((__tmp114355 (##structure-ref - (let ((__tmp114359 - (let ((__tmp114360 + (let ((__tmp114356 + (let ((__tmp114357 (let () (declare (not safe)) - (cons _id113944_ '())))) + (cons _id113941_ '())))) (declare (not safe)) - (cons '!class __tmp114360)))) + (cons '!class __tmp114357)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114359 - _klass-id114039_)) + __tmp114356 + _klass-id114036_)) '3 gxc#!class::t '#f))) (declare (not safe)) - (cons _klass-id114039_ __tmp114358)))) - (__tmp114354 - (lambda (_klass-id114041_) + (cons _klass-id114036_ __tmp114355)))) + (__tmp114351 + (lambda (_klass-id114038_) (##structure-ref - (let ((__tmp114355 - (let ((__tmp114356 + (let ((__tmp114352 + (let ((__tmp114353 (let () (declare (not safe)) - (cons _id113944_ '())))) + (cons _id113941_ '())))) (declare (not safe)) - (cons '!class __tmp114356)))) + (cons '!class __tmp114353)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114355 - _klass-id114041_)) + __tmp114352 + _klass-id114038_)) '7 gxc#!class::t '#f)))) (declare (not safe)) (c4-linearize '() - _super113945_ + _super113942_ 'get-precedence-list: - __tmp114357 - 'struct: __tmp114354 + 'struct: + __tmp114351 'eq: eq? 'get-name: identity)))) (begin - (let ((_g114353_ + (let ((_g114350_ (let () (declare (not safe)) - (if (##values? _g114352_) - (##vector-length _g114352_) + (if (##values? _g114349_) + (##vector-length _g114349_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g114353_ 2))) - (error "Context expects 2 values" _g114353_))) - (let ((_precedence-list114043_ - (let () (declare (not safe)) (##vector-ref _g114352_ 0))) - (_base-struct114044_ - (let () (declare (not safe)) (##vector-ref _g114352_ 1)))) - (let ((_fields114046_ - (let ((__tmp114361 - (let ((__tmp114362 + (if (not (let () (declare (not safe)) (##fx= _g114350_ 2))) + (error "Context expects 2 values" _g114350_))) + (let ((_precedence-list114040_ + (let () (declare (not safe)) (##vector-ref _g114349_ 0))) + (_base-struct114041_ + (let () (declare (not safe)) (##vector-ref _g114349_ 1)))) + (let ((_fields114043_ + (let ((__tmp114358 + (let ((__tmp114359 (let () (declare (not safe)) - (cons _id113944_ '())))) + (cons _id113941_ '())))) (declare (not safe)) - (cons '!class __tmp114362)))) + (cons '!class __tmp114359)))) (declare (not safe)) (gxc#compute-class-fields - __tmp114361 - _base-struct114044_ - _precedence-list114043_ - _slots113946_)))) - (##structure-set! _self113943_ _id113944_ '1 gxc#!type::t '#f) + __tmp114358 + _base-struct114041_ + _precedence-list114040_ + _slots113943_)))) + (##structure-set! _self113940_ _id113941_ '1 gxc#!type::t '#f) (##structure-set! - _self113943_ - _super113945_ + _self113940_ + _super113942_ '2 gxc#!class::t '#f) (##structure-set! - _self113943_ - _precedence-list114043_ + _self113940_ + _precedence-list114040_ '3 gxc#!class::t '#f) (##structure-set! - _self113943_ - _slots113946_ + _self113940_ + _slots113943_ '4 gxc#!class::t '#f) (##structure-set! - _self113943_ - _fields114046_ + _self113940_ + _fields114043_ '5 gxc#!class::t '#f) (##structure-set! - _self113943_ - _ctor-method114037_ + _self113940_ + _ctor-method114034_ '6 gxc#!class::t '#f) (##structure-set! - _self113943_ - _struct?113948_ + _self113940_ + _struct?113945_ '7 gxc#!class::t '#f) (##structure-set! - _self113943_ - _final?113949_ + _self113940_ + _final?113946_ '8 gxc#!class::t '#f) (##structure-set! - _self113943_ - _metaclass113950_ + _self113940_ + _metaclass113947_ '9 gxc#!class::t '#f))))))) (define gxc#!class:::init!__1 - (lambda (_self114049_ - _id114050_ - _super114051_ - _precedence-list114052_ - _slots114053_ - _fields114054_ - _constructor114055_ - _struct?114056_ - _final?114057_ - _metaclass114058_ - _methods114059_) - (##structure-set! _self114049_ _id114050_ '1 gxc#!type::t '#f) - (##structure-set! _self114049_ _super114051_ '2 gxc#!class::t '#f) + (lambda (_self114046_ + _id114047_ + _super114048_ + _precedence-list114049_ + _slots114050_ + _fields114051_ + _constructor114052_ + _struct?114053_ + _final?114054_ + _metaclass114055_ + _methods114056_) + (##structure-set! _self114046_ _id114047_ '1 gxc#!type::t '#f) + (##structure-set! _self114046_ _super114048_ '2 gxc#!class::t '#f) (##structure-set! - _self114049_ - _precedence-list114052_ + _self114046_ + _precedence-list114049_ '3 gxc#!class::t '#f) - (##structure-set! _self114049_ _slots114053_ '4 gxc#!class::t '#f) - (##structure-set! _self114049_ _fields114054_ '5 gxc#!class::t '#f) + (##structure-set! _self114046_ _slots114050_ '4 gxc#!class::t '#f) + (##structure-set! _self114046_ _fields114051_ '5 gxc#!class::t '#f) (##structure-set! - _self114049_ - _constructor114055_ + _self114046_ + _constructor114052_ '6 gxc#!class::t '#f) - (##structure-set! _self114049_ _struct?114056_ '7 gxc#!class::t '#f) - (##structure-set! _self114049_ _final?114057_ '8 gxc#!class::t '#f) - (##structure-set! _self114049_ _metaclass114058_ '9 gxc#!class::t '#f) - (if _methods114059_ + (##structure-set! _self114046_ _struct?114053_ '7 gxc#!class::t '#f) + (##structure-set! _self114046_ _final?114054_ '8 gxc#!class::t '#f) + (##structure-set! _self114046_ _metaclass114055_ '9 gxc#!class::t '#f) + (if _methods114056_ (##structure-set! - _self114049_ + _self114046_ (let () (declare (not safe)) - (list->hash-table-eq _methods114059_)) + (list->hash-table-eq _methods114056_)) '10 gxc#!class::t '#f) '#!void))) (define gxc#!class:::init! - (lambda _g114364_ - (let ((_g114363_ (let () (declare (not safe)) (##length _g114364_)))) - (cond ((let () (declare (not safe)) (##fx= _g114363_ 8)) - (apply (lambda (_self113943_ - _id113944_ - _super113945_ - _slots113946_ - _ctor-method113947_ - _struct?113948_ - _final?113949_ - _metaclass113950_) + (lambda _g114361_ + (let ((_g114360_ (let () (declare (not safe)) (##length _g114361_)))) + (cond ((let () (declare (not safe)) (##fx= _g114360_ 8)) + (apply (lambda (_self113940_ + _id113941_ + _super113942_ + _slots113943_ + _ctor-method113944_ + _struct?113945_ + _final?113946_ + _metaclass113947_) (let () (declare (not safe)) (gxc#!class:::init!__0 - _self113943_ - _id113944_ - _super113945_ - _slots113946_ - _ctor-method113947_ - _struct?113948_ - _final?113949_ - _metaclass113950_))) - _g114364_)) - ((let () (declare (not safe)) (##fx= _g114363_ 11)) - (apply (lambda (_self114049_ - _id114050_ - _super114051_ - _precedence-list114052_ - _slots114053_ - _fields114054_ - _constructor114055_ - _struct?114056_ - _final?114057_ - _metaclass114058_ - _methods114059_) + _self113940_ + _id113941_ + _super113942_ + _slots113943_ + _ctor-method113944_ + _struct?113945_ + _final?113946_ + _metaclass113947_))) + _g114361_)) + ((let () (declare (not safe)) (##fx= _g114360_ 11)) + (apply (lambda (_self114046_ + _id114047_ + _super114048_ + _precedence-list114049_ + _slots114050_ + _fields114051_ + _constructor114052_ + _struct?114053_ + _final?114054_ + _metaclass114055_ + _methods114056_) (let () (declare (not safe)) (gxc#!class:::init!__1 - _self114049_ - _id114050_ - _super114051_ - _precedence-list114052_ - _slots114053_ - _fields114054_ - _constructor114055_ - _struct?114056_ - _final?114057_ - _metaclass114058_ - _methods114059_))) - _g114364_)) + _self114046_ + _id114047_ + _super114048_ + _precedence-list114049_ + _slots114050_ + _fields114051_ + _constructor114052_ + _struct?114053_ + _final?114054_ + _metaclass114055_ + _methods114056_))) + _g114361_)) (else (##raise-wrong-number-of-arguments-exception gxc#!class:::init! - _g114364_)))))) + _g114361_)))))) (define gxc#!class:::init!::specialize - (lambda (__klass114232 __method-table114233) - (let ((__slots114234 + (lambda (__klass114229 __method-table114230) + (let ((__constructor114231 + (let ((__slot114241 + (let () + (declare (not safe)) + (class-slot-offset __klass114229 'constructor)))) + (if __slot114241 + __slot114241 + (let () + (declare (not safe)) + (error '"Unknown slot" 'constructor))))) + (__super114232 + (let ((__slot114242 + (let () + (declare (not safe)) + (class-slot-offset __klass114229 'super)))) + (if __slot114242 + __slot114242 + (let () + (declare (not safe)) + (error '"Unknown slot" 'super))))) + (__struct?114233 + (let ((__slot114243 + (let () + (declare (not safe)) + (class-slot-offset __klass114229 'struct?)))) + (if __slot114243 + __slot114243 + (let () + (declare (not safe)) + (error '"Unknown slot" 'struct?))))) + (__precedence-list114234 (let ((__slot114244 (let () (declare (not safe)) - (class-slot-offset __klass114232 'slots)))) + (class-slot-offset __klass114229 'precedence-list)))) (if __slot114244 __slot114244 (let () (declare (not safe)) - (error '"Unknown slot" 'slots))))) - (__id114235 + (error '"Unknown slot" 'precedence-list))))) + (__fields114235 (let ((__slot114245 (let () (declare (not safe)) - (class-slot-offset __klass114232 'id)))) + (class-slot-offset __klass114229 'fields)))) (if __slot114245 __slot114245 (let () (declare (not safe)) - (error '"Unknown slot" 'id))))) - (__constructor114236 + (error '"Unknown slot" 'fields))))) + (__methods114236 (let ((__slot114246 (let () (declare (not safe)) - (class-slot-offset __klass114232 'constructor)))) + (class-slot-offset __klass114229 'methods)))) (if __slot114246 __slot114246 (let () (declare (not safe)) - (error '"Unknown slot" 'constructor))))) - (__struct?114237 + (error '"Unknown slot" 'methods))))) + (__metaclass114237 (let ((__slot114247 (let () (declare (not safe)) - (class-slot-offset __klass114232 'struct?)))) + (class-slot-offset __klass114229 'metaclass)))) (if __slot114247 __slot114247 (let () (declare (not safe)) - (error '"Unknown slot" 'struct?))))) - (__precedence-list114238 + (error '"Unknown slot" 'metaclass))))) + (__slots114238 (let ((__slot114248 (let () (declare (not safe)) - (class-slot-offset __klass114232 'precedence-list)))) + (class-slot-offset __klass114229 'slots)))) (if __slot114248 __slot114248 (let () (declare (not safe)) - (error '"Unknown slot" 'precedence-list))))) - (__super114239 + (error '"Unknown slot" 'slots))))) + (__final?114239 (let ((__slot114249 (let () (declare (not safe)) - (class-slot-offset __klass114232 'super)))) + (class-slot-offset __klass114229 'final?)))) (if __slot114249 __slot114249 (let () (declare (not safe)) - (error '"Unknown slot" 'super))))) - (__metaclass114240 + (error '"Unknown slot" 'final?))))) + (__id114240 (let ((__slot114250 (let () (declare (not safe)) - (class-slot-offset __klass114232 'metaclass)))) + (class-slot-offset __klass114229 'id)))) (if __slot114250 __slot114250 (let () (declare (not safe)) - (error '"Unknown slot" 'metaclass))))) - (__fields114241 - (let ((__slot114251 - (let () - (declare (not safe)) - (class-slot-offset __klass114232 'fields)))) - (if __slot114251 - __slot114251 - (let () - (declare (not safe)) - (error '"Unknown slot" 'fields))))) - (__methods114242 - (let ((__slot114252 - (let () - (declare (not safe)) - (class-slot-offset __klass114232 'methods)))) - (if __slot114252 - __slot114252 - (let () - (declare (not safe)) - (error '"Unknown slot" 'methods))))) - (__final?114243 - (let ((__slot114253 - (let () - (declare (not safe)) - (class-slot-offset __klass114232 'final?)))) - (if __slot114253 - __slot114253 - (let () - (declare (not safe)) - (error '"Unknown slot" 'final?)))))) - (lambda _g114366_ - (let ((_g114365_ - (let () (declare (not safe)) (##length _g114366_)))) - (cond ((let () (declare (not safe)) (##fx= _g114365_ 8)) - (apply (lambda (_self113943_ - _id113944_ - _super113945_ - _slots113946_ - _ctor-method113947_ - _struct?113948_ - _final?113949_ - _metaclass113950_) - (let _lp113952_ ((_rest113954_ _super113945_)) - (let* ((_rest113955113963_ _rest113954_) - (_else113957113971_ (lambda () '#!void)) - (_K113959113977_ - (lambda (_rest113974_ _super-id113975_) + (error '"Unknown slot" 'id)))))) + (lambda _g114363_ + (let ((_g114362_ + (let () (declare (not safe)) (##length _g114363_)))) + (cond ((let () (declare (not safe)) (##fx= _g114362_ 8)) + (apply (lambda (_self113940_ + _id113941_ + _super113942_ + _slots113943_ + _ctor-method113944_ + _struct?113945_ + _final?113946_ + _metaclass113947_) + (let _lp113949_ ((_rest113951_ _super113942_)) + (let* ((_rest113952113960_ _rest113951_) + (_else113954113968_ (lambda () '#!void)) + (_K113956113974_ + (lambda (_rest113971_ _super-id113972_) (if (##structure-ref - (let ((__tmp114369 - (let ((__tmp114370 + (let ((__tmp114366 + (let ((__tmp114367 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id113944_ '())))) + (cons _id113941_ '())))) (declare (not safe)) - (cons '!class __tmp114370)))) + (cons '!class __tmp114367)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114369 - _super-id113975_)) + __tmp114366 + _super-id113972_)) '8 gxc#!class::t '#f) - (let ((__tmp114367 - (let ((__tmp114368 + (let ((__tmp114364 + (let ((__tmp114365 (let () (declare (not safe)) - (cons _id113944_ + (cons _id113941_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '!class __tmp114368)))) + (cons '!class __tmp114365)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp114367 - _super-id113975_)) + __tmp114364 + _super-id113972_)) '#!void) (let () (declare (not safe)) - (_lp113952_ _rest113974_))))) + (_lp113949_ _rest113971_))))) (if (let () (declare (not safe)) - (##pair? _rest113955113963_)) - (let ((_hd113960113980_ + (##pair? _rest113952113960_)) + (let ((_hd113957113977_ (let () (declare (not safe)) - (##car _rest113955113963_))) - (_tl113961113982_ + (##car _rest113952113960_))) + (_tl113958113979_ (let () (declare (not safe)) - (##cdr _rest113955113963_)))) - (let* ((_super-id113985_ - _hd113960113980_) - (_rest113987_ _tl113961113982_)) + (##cdr _rest113952113960_)))) + (let* ((_super-id113982_ + _hd113957113977_) + (_rest113984_ _tl113958113979_)) (declare (not safe)) - (_K113959113977_ - _rest113987_ - _super-id113985_))) + (_K113956113974_ + _rest113984_ + _super-id113982_))) '#!void))) - (let* ((_ctor-method114037_ - (let ((_$e113989_ _ctor-method113947_)) - (if _$e113989_ - _$e113989_ - (let _lp113992_ ((_rest113994_ - _super113945_) - (_method113995_ + (let* ((_ctor-method114034_ + (let ((_$e113986_ _ctor-method113944_)) + (if _$e113986_ + _$e113986_ + (let _lp113989_ ((_rest113991_ + _super113942_) + (_method113992_ '#f)) - (let* ((_rest113996114004_ - _rest113994_) - (_else113998114012_ + (let* ((_rest113993114001_ + _rest113991_) + (_else113995114009_ (lambda () - _method113995_)) - (_K114000114025_ - (lambda (_rest114015_ - _super-id114016_) - (let* ((_klass114018_ - (let ((__tmp114371 + _method113992_)) + (_K113997114022_ + (lambda (_rest114012_ + _super-id114013_) + (let* ((_klass114015_ + (let ((__tmp114368 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114372 + (let ((__tmp114369 (let () (declare (not safe)) - (cons _id113944_ '())))) + (cons _id113941_ '())))) (declare (not safe)) - (cons '!class __tmp114372)))) + (cons '!class __tmp114369)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114371 - _super-id114016_))) - (_$e114020_ - (##structure-ref _klass114018_ '6 gxc#!class::t '#f))) - (if _$e114020_ - ((lambda (_ctor-method114023_) - (if _method113995_ + __tmp114368 + _super-id114013_))) + (_$e114017_ + (##structure-ref _klass114015_ '6 gxc#!class::t '#f))) + (if _$e114017_ + ((lambda (_ctor-method114020_) + (if _method113992_ (if (let () (declare (not safe)) - (eq? _ctor-method114023_ _method113995_)) + (eq? _ctor-method114020_ _method113992_)) (let () (declare (not safe)) - (_lp113992_ - _rest114015_ - _ctor-method114023_)) - (let ((__tmp114373 - (let ((__tmp114374 + (_lp113989_ + _rest114012_ + _ctor-method114020_)) + (let ((__tmp114370 + (let ((__tmp114371 (let () (declare (not safe)) - (cons _id113944_ '())))) + (cons _id113941_ '())))) (declare (not safe)) - (cons '!class __tmp114374)))) + (cons '!class __tmp114371)))) (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp114373 - _method113995_ - _ctor-method114023_))) + __tmp114370 + _method113992_ + _ctor-method114020_))) (let () (declare (not safe)) - (_lp113992_ _rest114015_ _ctor-method114023_)))) - _$e114020_) + (_lp113989_ _rest114012_ _ctor-method114020_)))) + _$e114017_) (let () (declare (not safe)) - (_lp113992_ _rest114015_ _method113995_))))))) + (_lp113989_ _rest114012_ _method113992_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest113996114004_)) - (let ((_hd114001114028_ + (##pair? _rest113993114001_)) + (let ((_hd113998114025_ (let () (declare (not safe)) - (##car _rest113996114004_))) - (_tl114002114030_ + (##car _rest113993114001_))) + (_tl113999114027_ (let () (declare (not safe)) - (##cdr _rest113996114004_)))) - (let* ((_super-id114033_ - _hd114001114028_) - (_rest114035_ - _tl114002114030_)) + (##cdr _rest113993114001_)))) + (let* ((_super-id114030_ + _hd113998114025_) + (_rest114032_ + _tl113999114027_)) (declare (not safe)) - (_K114000114025_ - _rest114035_ - _super-id114033_))) + (_K113997114022_ + _rest114032_ + _super-id114030_))) (let () (declare (not safe)) - (_else113998114012_)))))))) - (_g114375_ - (let ((__tmp114380 - (lambda (_klass-id114039_) - (let ((__tmp114381 + (_else113995114009_)))))))) + (_g114372_ + (let ((__tmp114377 + (lambda (_klass-id114036_) + (let ((__tmp114378 (##structure-ref - (let ((__tmp114382 - (let ((__tmp114383 + (let ((__tmp114379 + (let ((__tmp114380 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id113944_ '())))) + (cons _id113941_ '())))) (declare (not safe)) - (cons '!class __tmp114383)))) + (cons '!class __tmp114380)))) (declare (not safe)) - (gxc#optimizer-resolve-class __tmp114382 _klass-id114039_)) + (gxc#optimizer-resolve-class __tmp114379 _klass-id114036_)) '3 gxc#!class::t '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _klass-id114039_ - __tmp114381)))) - (__tmp114377 - (lambda (_klass-id114041_) + (cons _klass-id114036_ + __tmp114378)))) + (__tmp114374 + (lambda (_klass-id114038_) (##structure-ref - (let ((__tmp114378 - (let ((__tmp114379 + (let ((__tmp114375 + (let ((__tmp114376 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id113944_ '())))) + (cons _id113941_ '())))) (declare (not safe)) - (cons '!class __tmp114379)))) + (cons '!class __tmp114376)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114378 - _klass-id114041_)) + __tmp114375 + _klass-id114038_)) '7 gxc#!class::t '#f)))) (declare (not safe)) (c4-linearize '() - _super113945_ + _super113942_ 'get-precedence-list: - __tmp114380 - 'struct: __tmp114377 + 'struct: + __tmp114374 'eq: eq? 'get-name: identity)))) (begin - (let ((_g114376_ + (let ((_g114373_ (let () (declare (not safe)) - (if (##values? _g114375_) - (##vector-length _g114375_) + (if (##values? _g114372_) + (##vector-length _g114372_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g114376_ 2))) + (##fx= _g114373_ 2))) (error "Context expects 2 values" - _g114376_))) - (let ((_precedence-list114043_ + _g114373_))) + (let ((_precedence-list114040_ (let () (declare (not safe)) - (##vector-ref _g114375_ 0))) - (_base-struct114044_ + (##vector-ref _g114372_ 0))) + (_base-struct114041_ (let () (declare (not safe)) - (##vector-ref _g114375_ 1)))) - (let ((_fields114046_ - (let ((__tmp114384 - (let ((__tmp114385 + (##vector-ref _g114372_ 1)))) + (let ((_fields114043_ + (let ((__tmp114381 + (let ((__tmp114382 (let () (declare (not safe)) - (cons _id113944_ + (cons _id113941_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '!class - __tmp114385)))) + __tmp114382)))) (declare (not safe)) (gxc#compute-class-fields - __tmp114384 - _base-struct114044_ - _precedence-list114043_ - _slots113946_)))) + __tmp114381 + _base-struct114041_ + _precedence-list114040_ + _slots113943_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _self113943_ - _id113944_ - __id114235 - __klass114232 + _self113940_ + _id113941_ + __id114240 + __klass114229 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113943_ - _super113945_ - __super114239 - __klass114232 + _self113940_ + _super113942_ + __super114232 + __klass114229 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113943_ - _precedence-list114043_ - __precedence-list114238 - __klass114232 + _self113940_ + _precedence-list114040_ + __precedence-list114234 + __klass114229 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113943_ - _slots113946_ - __slots114234 - __klass114232 + _self113940_ + _slots113943_ + __slots114238 + __klass114229 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113943_ - _fields114046_ - __fields114241 - __klass114232 + _self113940_ + _fields114043_ + __fields114235 + __klass114229 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113943_ - _ctor-method114037_ - __constructor114236 - __klass114232 + _self113940_ + _ctor-method114034_ + __constructor114231 + __klass114229 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113943_ - _struct?113948_ - __struct?114237 - __klass114232 + _self113940_ + _struct?113945_ + __struct?114233 + __klass114229 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113943_ - _final?113949_ - __final?114243 - __klass114232 + _self113940_ + _final?113946_ + __final?114239 + __klass114229 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113943_ - _metaclass113950_ - __metaclass114240 - __klass114232 + _self113940_ + _metaclass113947_ + __metaclass114237 + __klass114229 '#f))))))) - _g114366_)) - ((let () (declare (not safe)) (##fx= _g114365_ 11)) - (apply (lambda (_self114049_ - _id114050_ - _super114051_ - _precedence-list114052_ - _slots114053_ - _fields114054_ - _constructor114055_ - _struct?114056_ - _final?114057_ - _metaclass114058_ - _methods114059_) + _g114363_)) + ((let () (declare (not safe)) (##fx= _g114362_ 11)) + (apply (lambda (_self114046_ + _id114047_ + _super114048_ + _precedence-list114049_ + _slots114050_ + _fields114051_ + _constructor114052_ + _struct?114053_ + _final?114054_ + _metaclass114055_ + _methods114056_) (let () (declare (not safe)) (##unchecked-structure-set! - _self114049_ - _id114050_ - __id114235 - __klass114232 + _self114046_ + _id114047_ + __id114240 + __klass114229 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114049_ - _super114051_ - __super114239 - __klass114232 + _self114046_ + _super114048_ + __super114232 + __klass114229 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114049_ - _precedence-list114052_ - __precedence-list114238 - __klass114232 + _self114046_ + _precedence-list114049_ + __precedence-list114234 + __klass114229 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114049_ - _slots114053_ - __slots114234 - __klass114232 + _self114046_ + _slots114050_ + __slots114238 + __klass114229 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114049_ - _fields114054_ - __fields114241 - __klass114232 + _self114046_ + _fields114051_ + __fields114235 + __klass114229 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114049_ - _constructor114055_ - __constructor114236 - __klass114232 + _self114046_ + _constructor114052_ + __constructor114231 + __klass114229 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114049_ - _struct?114056_ - __struct?114237 - __klass114232 + _self114046_ + _struct?114053_ + __struct?114233 + __klass114229 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114049_ - _final?114057_ - __final?114243 - __klass114232 + _self114046_ + _final?114054_ + __final?114239 + __klass114229 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114049_ - _metaclass114058_ - __metaclass114240 - __klass114232 + _self114046_ + _metaclass114055_ + __metaclass114237 + __klass114229 '#f)) - (if _methods114059_ - (let ((__tmp114386 + (if _methods114056_ + (let ((__tmp114383 (let () (declare (not safe)) (list->hash-table-eq - _methods114059_)))) + _methods114056_)))) (declare (not safe)) (##unchecked-structure-set! - _self114049_ - __tmp114386 - __methods114242 - __klass114232 + _self114046_ + __tmp114383 + __methods114236 + __klass114229 '#f)) '#!void)) - _g114366_)) + _g114363_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g114366_)))))))) + _g114363_)))))))) (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 (_where113795_ - _base-struct113796_ - _precedence-list113797_ - _direct-slots113798_) - (let* ((_base-fields113800_ - (if _base-struct113796_ + (lambda (_where113792_ + _base-struct113793_ + _precedence-list113794_ + _direct-slots113795_) + (let* ((_base-fields113797_ + (if _base-struct113793_ (##structure-ref (let () (declare (not safe)) (gxc#optimizer-resolve-class - _where113795_ - _base-struct113796_)) + _where113792_ + _base-struct113793_)) '5 gxc#!class::t '#f) '())) - (_r-fields113802_ (reverse _base-fields113800_)) - (_seen-slots113810_ - (let ((_tab113804_ + (_r-fields113799_ (reverse _base-fields113797_)) + (_seen-slots113807_ + (let ((_tab113801_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_g113805113807_) + (lambda (_g113802113804_) (let () (declare (not safe)) - (hash-put! _tab113804_ _g113805113807_ '#t))) - _base-fields113800_) - _tab113804_)) - (_process-slot113814_ - (lambda (_slot113812_) + (hash-put! _tab113801_ _g113802113804_ '#t))) + _base-fields113797_) + _tab113801_)) + (_process-slot113811_ + (lambda (_slot113809_) (if (let () (declare (not safe)) - (hash-get _seen-slots113810_ _slot113812_)) + (hash-get _seen-slots113807_ _slot113809_)) '#!void (begin (let () (declare (not safe)) - (hash-put! _seen-slots113810_ _slot113812_ '#t)) - (set! _r-fields113802_ + (hash-put! _seen-slots113807_ _slot113809_ '#t)) + (set! _r-fields113799_ (let () (declare (not safe)) - (cons _slot113812_ _r-fields113802_)))))))) + (cons _slot113809_ _r-fields113799_)))))))) (for-each - (lambda (_mixin113817_) - (let ((_klass113819_ + (lambda (_mixin113814_) + (let ((_klass113816_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _where113795_ - _mixin113817_)))) - (if (##structure-ref _klass113819_ '7 gxc#!class::t '#f) + _where113792_ + _mixin113814_)))) + (if (##structure-ref _klass113816_ '7 gxc#!class::t '#f) '#!void (for-each - _process-slot113814_ - (##structure-ref _klass113819_ '5 gxc#!class::t '#f))))) - _precedence-list113797_) - (for-each _process-slot113814_ _direct-slots113798_) - (reverse _r-fields113802_)))) + _process-slot113811_ + (##structure-ref _klass113816_ '5 gxc#!class::t '#f))))) + _precedence-list113794_) + (for-each _process-slot113811_ _direct-slots113795_) + (reverse _r-fields113799_)))) (define gxc#!class-slot->field-offset - (lambda (_klass113754_ _slot113755_) - (let _lp113757_ ((_rest113759_ - (##structure-ref _klass113754_ '5 gxc#!class::t '#f)) - (_offset113760_ '1)) - (let* ((_rest113761113769_ _rest113759_) - (_else113763113777_ + (lambda (_klass113751_ _slot113752_) + (let _lp113754_ ((_rest113756_ + (##structure-ref _klass113751_ '5 gxc#!class::t '#f)) + (_offset113757_ '1)) + (let* ((_rest113758113766_ _rest113756_) + (_else113760113774_ (lambda () - (let ((__tmp114388 - (##structure-ref _klass113754_ '1 gxc#!type::t '#f)) - (__tmp114387 + (let ((__tmp114385 + (##structure-ref _klass113751_ '1 gxc#!type::t '#f)) + (__tmp114384 (##structure-ref - _klass113754_ + _klass113751_ '5 gxc#!class::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown class slot" - __tmp114388 - __tmp114387 - _slot113755_)))) - (_K113765113783_ - (lambda (_rest113780_ _s113781_) + __tmp114385 + __tmp114384 + _slot113752_)))) + (_K113762113780_ + (lambda (_rest113777_ _s113778_) (if (let () (declare (not safe)) - (eq? _s113781_ _slot113755_)) - _offset113760_ - (let ((__tmp114389 + (eq? _s113778_ _slot113752_)) + _offset113757_ + (let ((__tmp114386 (let () (declare (not safe)) - (fx+ _offset113760_ '1)))) + (fx+ _offset113757_ '1)))) (declare (not safe)) - (_lp113757_ _rest113780_ __tmp114389)))))) - (if (let () (declare (not safe)) (##pair? _rest113761113769_)) - (let ((_hd113766113786_ + (_lp113754_ _rest113777_ __tmp114386)))))) + (if (let () (declare (not safe)) (##pair? _rest113758113766_)) + (let ((_hd113763113783_ (let () (declare (not safe)) - (##car _rest113761113769_))) - (_tl113767113788_ + (##car _rest113758113766_))) + (_tl113764113785_ (let () (declare (not safe)) - (##cdr _rest113761113769_)))) - (let* ((_s113791_ _hd113766113786_) - (_rest113793_ _tl113767113788_)) + (##cdr _rest113758113766_)))) + (let* ((_s113788_ _hd113763113783_) + (_rest113790_ _tl113764113785_)) (declare (not safe)) - (_K113765113783_ _rest113793_ _s113791_))) - (let () (declare (not safe)) (_else113763113777_))))))) + (_K113762113780_ _rest113790_ _s113788_))) + (let () (declare (not safe)) (_else113760113774_))))))) (define gxc#!class-slot-find-struct - (lambda (_klass113712_ _slot113713_) + (lambda (_klass113709_ _slot113710_) (if (let () (declare (not safe)) - (gxc#!class-struct-slot? _klass113712_ _slot113713_)) - _klass113712_ - (let _lp113715_ ((_rest113717_ + (gxc#!class-struct-slot? _klass113709_ _slot113710_)) + _klass113709_ + (let _lp113712_ ((_rest113714_ (##structure-ref - _klass113712_ + _klass113709_ '3 gxc#!class::t '#f))) - (let* ((_rest113718113726_ _rest113717_) - (_else113720113734_ (lambda () '#f)) - (_K113722113742_ - (lambda (_rest113737_ _super113738_) - (let ((_super-class113740_ - (let ((__tmp114390 - (let ((__tmp114391 - (let ((__tmp114393 + (let* ((_rest113715113723_ _rest113714_) + (_else113717113731_ (lambda () '#f)) + (_K113719113739_ + (lambda (_rest113734_ _super113735_) + (let ((_super-class113737_ + (let ((__tmp114387 + (let ((__tmp114388 + (let ((__tmp114390 (##structure-ref - _klass113712_ + _klass113709_ '1 gxc#!type::t '#f)) - (__tmp114392 + (__tmp114389 (let () (declare (not safe)) - (cons _slot113713_ + (cons _slot113710_ '())))) (declare (not safe)) - (cons __tmp114393 - __tmp114392)))) + (cons __tmp114390 + __tmp114389)))) (declare (not safe)) (cons '!class-slot-find-struct - __tmp114391)))) + __tmp114388)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114390 - _super113738_)))) + __tmp114387 + _super113735_)))) (if (let () (declare (not safe)) (gxc#!class-struct-slot? - _super-class113740_ - _slot113713_)) - _super-class113740_ + _super-class113737_ + _slot113710_)) + _super-class113737_ (let () (declare (not safe)) - (_lp113715_ _rest113737_))))))) - (if (let () (declare (not safe)) (##pair? _rest113718113726_)) - (let ((_hd113723113745_ + (_lp113712_ _rest113734_))))))) + (if (let () (declare (not safe)) (##pair? _rest113715113723_)) + (let ((_hd113720113742_ (let () (declare (not safe)) - (##car _rest113718113726_))) - (_tl113724113747_ + (##car _rest113715113723_))) + (_tl113721113744_ (let () (declare (not safe)) - (##cdr _rest113718113726_)))) - (let* ((_super113750_ _hd113723113745_) - (_rest113752_ _tl113724113747_)) + (##cdr _rest113715113723_)))) + (let* ((_super113747_ _hd113720113742_) + (_rest113749_ _tl113721113744_)) (declare (not safe)) - (_K113722113742_ _rest113752_ _super113750_))) - (let () (declare (not safe)) (_else113720113734_)))))))) + (_K113719113739_ _rest113749_ _super113747_))) + (let () (declare (not safe)) (_else113717113731_)))))))) (define gxc#!class-struct-slot? - (lambda (_klass113709_ _slot113710_) - (if (##structure-ref _klass113709_ '7 gxc#!class::t '#f) - (memq _slot113710_ - (##structure-ref _klass113709_ '5 gxc#!class::t '#f)) + (lambda (_klass113706_ _slot113707_) + (if (##structure-ref _klass113706_ '7 gxc#!class::t '#f) + (memq _slot113707_ + (##structure-ref _klass113706_ '5 gxc#!class::t '#f)) '#f))) (define gxc#!predicate:::init! - (lambda (_self113706_ _id113707_) - (##structure-set! _self113706_ _id113707_ '1 gxc#!type::t '#f))) + (lambda (_self113703_ _id113704_) + (##structure-set! _self113703_ _id113704_ '1 gxc#!type::t '#f))) (define gxc#!predicate:::init!::specialize - (lambda (__klass114254 __method-table114255) - (let ((__id114256 - (let ((__slot114257 + (lambda (__klass114251 __method-table114252) + (let ((__id114253 + (let ((__slot114254 (let () (declare (not safe)) - (class-slot-offset __klass114254 'id)))) - (if __slot114257 - __slot114257 + (class-slot-offset __klass114251 'id)))) + (if __slot114254 + __slot114254 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self113706_ _id113707_) + (lambda (_self113703_ _id113704_) (let () (declare (not safe)) (##unchecked-structure-set! - _self113706_ - _id113707_ - __id114256 - __klass114254 + _self113703_ + _id113704_ + __id114253 + __klass114251 '#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 (_self113581_ _id113582_) - (##structure-set! _self113581_ _id113582_ '1 gxc#!type::t '#f))) + (lambda (_self113578_ _id113579_) + (##structure-set! _self113578_ _id113579_ '1 gxc#!type::t '#f))) (define gxc#!constructor:::init!::specialize - (lambda (__klass114258 __method-table114259) - (let ((__id114260 - (let ((__slot114261 + (lambda (__klass114255 __method-table114256) + (let ((__id114257 + (let ((__slot114258 (let () (declare (not safe)) - (class-slot-offset __klass114258 'id)))) - (if __slot114261 - __slot114261 + (class-slot-offset __klass114255 'id)))) + (if __slot114258 + __slot114258 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self113581_ _id113582_) + (lambda (_self113578_ _id113579_) (let () (declare (not safe)) (##unchecked-structure-set! - _self113581_ - _id113582_ - __id114260 - __klass114258 + _self113578_ + _id113579_ + __id114257 + __klass114255 '#f)))))) (let () (declare (not safe)) @@ -2248,71 +2248,71 @@ gxc#!constructor:::init! '#f)) (define gxc#!accessor:::init! - (lambda (_self113454_ _id113455_ _slot113456_ _checked?113457_) - (##structure-set! _self113454_ _id113455_ '1 gxc#!type::t '#f) - (##structure-set! _self113454_ _slot113456_ '2 gxc#!accessor::t '#f) + (lambda (_self113451_ _id113452_ _slot113453_ _checked?113454_) + (##structure-set! _self113451_ _id113452_ '1 gxc#!type::t '#f) + (##structure-set! _self113451_ _slot113453_ '2 gxc#!accessor::t '#f) (##structure-set! - _self113454_ - _checked?113457_ + _self113451_ + _checked?113454_ '3 gxc#!accessor::t '#f))) (define gxc#!accessor:::init!::specialize - (lambda (__klass114262 __method-table114263) - (let ((__slot114264 - (let ((__slot114267 + (lambda (__klass114259 __method-table114260) + (let ((__checked?114261 + (let ((__slot114264 (let () (declare (not safe)) - (class-slot-offset __klass114262 'slot)))) - (if __slot114267 - __slot114267 + (class-slot-offset __klass114259 'checked?)))) + (if __slot114264 + __slot114264 (let () (declare (not safe)) - (error '"Unknown slot" 'slot))))) - (__id114265 - (let ((__slot114268 + (error '"Unknown slot" 'checked?))))) + (__slot114262 + (let ((__slot114265 (let () (declare (not safe)) - (class-slot-offset __klass114262 'id)))) - (if __slot114268 - __slot114268 + (class-slot-offset __klass114259 'slot)))) + (if __slot114265 + __slot114265 (let () (declare (not safe)) - (error '"Unknown slot" 'id))))) - (__checked?114266 - (let ((__slot114269 + (error '"Unknown slot" 'slot))))) + (__id114263 + (let ((__slot114266 (let () (declare (not safe)) - (class-slot-offset __klass114262 'checked?)))) - (if __slot114269 - __slot114269 + (class-slot-offset __klass114259 'id)))) + (if __slot114266 + __slot114266 (let () (declare (not safe)) - (error '"Unknown slot" 'checked?)))))) - (lambda (_self113454_ _id113455_ _slot113456_ _checked?113457_) + (error '"Unknown slot" 'id)))))) + (lambda (_self113451_ _id113452_ _slot113453_ _checked?113454_) (let () (declare (not safe)) (##unchecked-structure-set! - _self113454_ - _id113455_ - __id114265 - __klass114262 + _self113451_ + _id113452_ + __id114263 + __klass114259 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113454_ - _slot113456_ - __slot114264 - __klass114262 + _self113451_ + _slot113453_ + __slot114262 + __klass114259 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113454_ - _checked?113457_ - __checked?114266 - __klass114262 + _self113451_ + _checked?113454_ + __checked?114261 + __klass114259 '#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 (_self113327_ _id113328_ _slot113329_ _checked?113330_) - (##structure-set! _self113327_ _id113328_ '1 gxc#!type::t '#f) - (##structure-set! _self113327_ _slot113329_ '2 gxc#!mutator::t '#f) + (lambda (_self113324_ _id113325_ _slot113326_ _checked?113327_) + (##structure-set! _self113324_ _id113325_ '1 gxc#!type::t '#f) + (##structure-set! _self113324_ _slot113326_ '2 gxc#!mutator::t '#f) (##structure-set! - _self113327_ - _checked?113330_ + _self113324_ + _checked?113327_ '3 gxc#!mutator::t '#f))) (define gxc#!mutator:::init!::specialize - (lambda (__klass114270 __method-table114271) - (let ((__id114272 - (let ((__slot114275 + (lambda (__klass114267 __method-table114268) + (let ((__checked?114269 + (let ((__slot114272 (let () (declare (not safe)) - (class-slot-offset __klass114270 'id)))) - (if __slot114275 - __slot114275 + (class-slot-offset __klass114267 'checked?)))) + (if __slot114272 + __slot114272 (let () (declare (not safe)) - (error '"Unknown slot" 'id))))) - (__slot114273 - (let ((__slot114276 + (error '"Unknown slot" 'checked?))))) + (__slot114270 + (let ((__slot114273 (let () (declare (not safe)) - (class-slot-offset __klass114270 'slot)))) - (if __slot114276 - __slot114276 + (class-slot-offset __klass114267 'slot)))) + (if __slot114273 + __slot114273 (let () (declare (not safe)) (error '"Unknown slot" 'slot))))) - (__checked?114274 - (let ((__slot114277 + (__id114271 + (let ((__slot114274 (let () (declare (not safe)) - (class-slot-offset __klass114270 'checked?)))) - (if __slot114277 - __slot114277 + (class-slot-offset __klass114267 'id)))) + (if __slot114274 + __slot114274 (let () (declare (not safe)) - (error '"Unknown slot" 'checked?)))))) - (lambda (_self113327_ _id113328_ _slot113329_ _checked?113330_) + (error '"Unknown slot" 'id)))))) + (lambda (_self113324_ _id113325_ _slot113326_ _checked?113327_) (let () (declare (not safe)) (##unchecked-structure-set! - _self113327_ - _id113328_ - __id114272 - __klass114270 + _self113324_ + _id113325_ + __id114271 + __klass114267 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113327_ - _slot113329_ - __slot114273 - __klass114270 + _self113324_ + _slot113326_ + __slot114270 + __klass114267 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113327_ - _checked?113330_ - __checked?114274 - __klass114270 + _self113324_ + _checked?113327_ + __checked?114269 + __klass114267 '#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 (_self113171_ - _id113172_ - _arity113173_ - _dispatch113174_ - _inline113175_ - _typedecl113176_) - (if (let ((__tmp114400 + (lambda (_self113168_ + _id113169_ + _arity113170_ + _dispatch113171_ + _inline113172_ + _typedecl113173_) + (if (let ((__tmp114397 (let () (declare (not safe)) - (##structure-length _self113171_)))) + (##structure-length _self113168_)))) (declare (not safe)) - (##fx< '5 __tmp114400)) + (##fx< '5 __tmp114397)) (begin - (let ((__tmp114395 + (let ((__tmp114392 (let () (declare (not safe)) - (##structure-type _self113171_)))) + (##structure-type _self113168_)))) (declare (not safe)) (##unchecked-structure-set! - _self113171_ - _id113172_ + _self113168_ + _id113169_ '1 - __tmp114395 + __tmp114392 '#f)) - (let ((__tmp114396 + (let ((__tmp114393 (let () (declare (not safe)) - (##structure-type _self113171_)))) + (##structure-type _self113168_)))) (declare (not safe)) (##unchecked-structure-set! - _self113171_ - _arity113173_ + _self113168_ + _arity113170_ '2 - __tmp114396 + __tmp114393 '#f)) - (let ((__tmp114397 + (let ((__tmp114394 (let () (declare (not safe)) - (##structure-type _self113171_)))) + (##structure-type _self113168_)))) (declare (not safe)) (##unchecked-structure-set! - _self113171_ - _dispatch113174_ + _self113168_ + _dispatch113171_ '3 - __tmp114397 + __tmp114394 '#f)) - (let ((__tmp114398 + (let ((__tmp114395 (let () (declare (not safe)) - (##structure-type _self113171_)))) + (##structure-type _self113168_)))) (declare (not safe)) (##unchecked-structure-set! - _self113171_ - _inline113175_ + _self113168_ + _inline113172_ '4 - __tmp114398 + __tmp114395 '#f)) - (let ((__tmp114399 + (let ((__tmp114396 (let () (declare (not safe)) - (##structure-type _self113171_)))) + (##structure-type _self113168_)))) (declare (not safe)) (##unchecked-structure-set! - _self113171_ - _typedecl113176_ + _self113168_ + _typedecl113173_ '5 - __tmp114399 + __tmp114396 '#f))) - (let ((__tmp114394 + (let ((__tmp114391 (let () (declare (not safe)) - (##vector-length _self113171_)))) + (##vector-length _self113168_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self113171_ + _self113168_ '5 - __tmp114394))))) + __tmp114391))))) (define gxc#!lambda:::init!__0 - (lambda (_self113181_ _id113182_ _arity113183_ _dispatch113184_) - (let* ((_inline113186_ '#f) (_typedecl113188_ '#f)) - (if (let ((__tmp114407 + (lambda (_self113178_ _id113179_ _arity113180_ _dispatch113181_) + (let* ((_inline113183_ '#f) (_typedecl113185_ '#f)) + (if (let ((__tmp114404 (let () (declare (not safe)) - (##structure-length _self113181_)))) + (##structure-length _self113178_)))) (declare (not safe)) - (##fx< '5 __tmp114407)) + (##fx< '5 __tmp114404)) (begin - (let ((__tmp114402 + (let ((__tmp114399 (let () (declare (not safe)) - (##structure-type _self113181_)))) + (##structure-type _self113178_)))) (declare (not safe)) (##unchecked-structure-set! - _self113181_ - _id113182_ + _self113178_ + _id113179_ '1 - __tmp114402 + __tmp114399 '#f)) - (let ((__tmp114403 + (let ((__tmp114400 (let () (declare (not safe)) - (##structure-type _self113181_)))) + (##structure-type _self113178_)))) (declare (not safe)) (##unchecked-structure-set! - _self113181_ - _arity113183_ + _self113178_ + _arity113180_ '2 - __tmp114403 + __tmp114400 '#f)) - (let ((__tmp114404 + (let ((__tmp114401 (let () (declare (not safe)) - (##structure-type _self113181_)))) + (##structure-type _self113178_)))) (declare (not safe)) (##unchecked-structure-set! - _self113181_ - _dispatch113184_ + _self113178_ + _dispatch113181_ '3 - __tmp114404 + __tmp114401 '#f)) - (let ((__tmp114405 + (let ((__tmp114402 (let () (declare (not safe)) - (##structure-type _self113181_)))) + (##structure-type _self113178_)))) (declare (not safe)) (##unchecked-structure-set! - _self113181_ - _inline113186_ + _self113178_ + _inline113183_ '4 - __tmp114405 + __tmp114402 '#f)) - (let ((__tmp114406 + (let ((__tmp114403 (let () (declare (not safe)) - (##structure-type _self113181_)))) + (##structure-type _self113178_)))) (declare (not safe)) (##unchecked-structure-set! - _self113181_ - _typedecl113188_ + _self113178_ + _typedecl113185_ '5 - __tmp114406 + __tmp114403 '#f))) - (let ((__tmp114401 + (let ((__tmp114398 (let () (declare (not safe)) - (##vector-length _self113181_)))) + (##vector-length _self113178_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self113181_ + _self113178_ '5 - __tmp114401)))))) + __tmp114398)))))) (define gxc#!lambda:::init!__1 - (lambda (_self113190_ - _id113191_ - _arity113192_ - _dispatch113193_ - _inline113194_) - (let ((_typedecl113196_ '#f)) - (if (let ((__tmp114414 + (lambda (_self113187_ + _id113188_ + _arity113189_ + _dispatch113190_ + _inline113191_) + (let ((_typedecl113193_ '#f)) + (if (let ((__tmp114411 (let () (declare (not safe)) - (##structure-length _self113190_)))) + (##structure-length _self113187_)))) (declare (not safe)) - (##fx< '5 __tmp114414)) + (##fx< '5 __tmp114411)) (begin - (let ((__tmp114409 + (let ((__tmp114406 (let () (declare (not safe)) - (##structure-type _self113190_)))) + (##structure-type _self113187_)))) (declare (not safe)) (##unchecked-structure-set! - _self113190_ - _id113191_ + _self113187_ + _id113188_ '1 - __tmp114409 + __tmp114406 '#f)) - (let ((__tmp114410 + (let ((__tmp114407 (let () (declare (not safe)) - (##structure-type _self113190_)))) + (##structure-type _self113187_)))) (declare (not safe)) (##unchecked-structure-set! - _self113190_ - _arity113192_ + _self113187_ + _arity113189_ '2 - __tmp114410 + __tmp114407 '#f)) - (let ((__tmp114411 + (let ((__tmp114408 (let () (declare (not safe)) - (##structure-type _self113190_)))) + (##structure-type _self113187_)))) (declare (not safe)) (##unchecked-structure-set! - _self113190_ - _dispatch113193_ + _self113187_ + _dispatch113190_ '3 - __tmp114411 + __tmp114408 '#f)) - (let ((__tmp114412 + (let ((__tmp114409 (let () (declare (not safe)) - (##structure-type _self113190_)))) + (##structure-type _self113187_)))) (declare (not safe)) (##unchecked-structure-set! - _self113190_ - _inline113194_ + _self113187_ + _inline113191_ '4 - __tmp114412 + __tmp114409 '#f)) - (let ((__tmp114413 + (let ((__tmp114410 (let () (declare (not safe)) - (##structure-type _self113190_)))) + (##structure-type _self113187_)))) (declare (not safe)) (##unchecked-structure-set! - _self113190_ - _typedecl113196_ + _self113187_ + _typedecl113193_ '5 - __tmp114413 + __tmp114410 '#f))) - (let ((__tmp114408 + (let ((__tmp114405 (let () (declare (not safe)) - (##vector-length _self113190_)))) + (##vector-length _self113187_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self113190_ + _self113187_ '5 - __tmp114408)))))) + __tmp114405)))))) (define gxc#!lambda:::init! - (lambda _g114416_ - (let ((_g114415_ (let () (declare (not safe)) (##length _g114416_)))) - (cond ((let () (declare (not safe)) (##fx= _g114415_ 4)) - (apply (lambda (_self113181_ - _id113182_ - _arity113183_ - _dispatch113184_) + (lambda _g114413_ + (let ((_g114412_ (let () (declare (not safe)) (##length _g114413_)))) + (cond ((let () (declare (not safe)) (##fx= _g114412_ 4)) + (apply (lambda (_self113178_ + _id113179_ + _arity113180_ + _dispatch113181_) (let () (declare (not safe)) (gxc#!lambda:::init!__0 - _self113181_ - _id113182_ - _arity113183_ - _dispatch113184_))) - _g114416_)) - ((let () (declare (not safe)) (##fx= _g114415_ 5)) - (apply (lambda (_self113190_ - _id113191_ - _arity113192_ - _dispatch113193_ - _inline113194_) + _self113178_ + _id113179_ + _arity113180_ + _dispatch113181_))) + _g114413_)) + ((let () (declare (not safe)) (##fx= _g114412_ 5)) + (apply (lambda (_self113187_ + _id113188_ + _arity113189_ + _dispatch113190_ + _inline113191_) (let () (declare (not safe)) (gxc#!lambda:::init!__1 - _self113190_ - _id113191_ - _arity113192_ - _dispatch113193_ - _inline113194_))) - _g114416_)) - ((let () (declare (not safe)) (##fx= _g114415_ 6)) - (apply (lambda (_self113198_ - _id113199_ - _arity113200_ - _dispatch113201_ - _inline113202_ - _typedecl113203_) - (if (let ((__tmp114423 + _self113187_ + _id113188_ + _arity113189_ + _dispatch113190_ + _inline113191_))) + _g114413_)) + ((let () (declare (not safe)) (##fx= _g114412_ 6)) + (apply (lambda (_self113195_ + _id113196_ + _arity113197_ + _dispatch113198_ + _inline113199_ + _typedecl113200_) + (if (let ((__tmp114420 (let () (declare (not safe)) - (##structure-length _self113198_)))) + (##structure-length _self113195_)))) (declare (not safe)) - (##fx< '5 __tmp114423)) + (##fx< '5 __tmp114420)) (begin - (let ((__tmp114418 + (let ((__tmp114415 (let () (declare (not safe)) - (##structure-type _self113198_)))) + (##structure-type _self113195_)))) (declare (not safe)) (##unchecked-structure-set! - _self113198_ - _id113199_ + _self113195_ + _id113196_ '1 - __tmp114418 + __tmp114415 '#f)) - (let ((__tmp114419 + (let ((__tmp114416 (let () (declare (not safe)) - (##structure-type _self113198_)))) + (##structure-type _self113195_)))) (declare (not safe)) (##unchecked-structure-set! - _self113198_ - _arity113200_ + _self113195_ + _arity113197_ '2 - __tmp114419 + __tmp114416 '#f)) - (let ((__tmp114420 + (let ((__tmp114417 (let () (declare (not safe)) - (##structure-type _self113198_)))) + (##structure-type _self113195_)))) (declare (not safe)) (##unchecked-structure-set! - _self113198_ - _dispatch113201_ + _self113195_ + _dispatch113198_ '3 - __tmp114420 + __tmp114417 '#f)) - (let ((__tmp114421 + (let ((__tmp114418 (let () (declare (not safe)) - (##structure-type _self113198_)))) + (##structure-type _self113195_)))) (declare (not safe)) (##unchecked-structure-set! - _self113198_ - _inline113202_ + _self113195_ + _inline113199_ '4 - __tmp114421 + __tmp114418 '#f)) - (let ((__tmp114422 + (let ((__tmp114419 (let () (declare (not safe)) - (##structure-type _self113198_)))) + (##structure-type _self113195_)))) (declare (not safe)) (##unchecked-structure-set! - _self113198_ - _typedecl113203_ + _self113195_ + _typedecl113200_ '5 - __tmp114422 + __tmp114419 '#f))) - (let ((__tmp114417 + (let ((__tmp114414 (let () (declare (not safe)) - (##vector-length _self113198_)))) + (##vector-length _self113195_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self113198_ + _self113195_ '5 - __tmp114417)))) - _g114416_)) + __tmp114414)))) + _g114413_)) (else (##raise-wrong-number-of-arguments-exception gxc#!lambda:::init! - _g114416_)))))) + _g114413_)))))) (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 (_self112923_ . _args112924_) - (apply struct-instance-init! _self112923_ _args112924_))) + (lambda (_self112920_ . _args112921_) + (apply struct-instance-init! _self112920_ _args112921_))) (let () (declare (not safe)) (bind-method!__% @@ -2763,64 +2763,64 @@ gxc#!primitive-case-lambda:::init! '#f)) (define gxc#!type-vtab - (lambda (_type112798_) + (lambda (_type112795_) (if (let () (declare (not safe)) - (##structure-instance-of? _type112798_ 'gxc#!class::t)) + (##structure-instance-of? _type112795_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-method-table _type112798_)) + (gxc#!class-method-table _type112795_)) '#f))) (define gxc#!class-method-table - (lambda (_klass112791_) - (let ((_$e112793_ - (##structure-ref _klass112791_ '10 gxc#!class::t '#f))) - (if _$e112793_ - _$e112793_ - (let ((_tab112796_ + (lambda (_klass112788_) + (let ((_$e112790_ + (##structure-ref _klass112788_ '10 gxc#!class::t '#f))) + (if _$e112790_ + _$e112790_ + (let ((_tab112793_ (let () (declare (not safe)) (make-hash-table-eq)))) (##structure-set! - _klass112791_ - _tab112796_ + _klass112788_ + _tab112793_ '10 gxc#!class::t '#f) - _tab112796_))))) + _tab112793_))))) (define gxc#!class-lookup-method - (lambda (_klass112782_ _method112783_) - (let ((_tab112784112786_ - (##structure-ref _klass112782_ '10 gxc#!class::t '#f))) - (if _tab112784112786_ - (let ((_tab112789_ _tab112784112786_)) + (lambda (_klass112779_ _method112780_) + (let ((_tab112781112783_ + (##structure-ref _klass112779_ '10 gxc#!class::t '#f))) + (if _tab112781112783_ + (let ((_tab112786_ _tab112781112783_)) (declare (not safe)) - (hash-get _tab112789_ _method112783_)) + (hash-get _tab112786_ _method112780_)) '#f)))) (define gxc#!type-lookup-method - (lambda (_type112779_ _method112780_) + (lambda (_type112776_ _method112777_) (if (let () (declare (not safe)) - (##structure-instance-of? _type112779_ 'gxc#!class::t)) + (##structure-instance-of? _type112776_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-lookup-method _type112779_ _method112780_)) + (gxc#!class-lookup-method _type112776_ _method112777_)) '#f))) (define gxc#optimizer-declare-type!__% - (lambda (_sym112763_ _type112764_ _local?112765_) + (lambda (_sym112760_ _type112761_ _local?112762_) (if (let () (declare (not safe)) - (##structure-instance-of? _type112764_ 'gxc#!type::t)) + (##structure-instance-of? _type112761_ 'gxc#!type::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !type" - _sym112763_ - _type112764_))) - (let ((__tmp114424 - (let () (declare (not safe)) (struct->list _type112764_)))) + _sym112760_ + _type112761_))) + (let ((__tmp114421 + (let () (declare (not safe)) (struct->list _type112761_)))) (declare (not safe)) - (gxc#verbose '"declare-type " _sym112763_ '" " __tmp114424)) - (let ((__tmp114425 - (if _local?112765_ + (gxc#verbose '"declare-type " _sym112760_ '" " __tmp114421)) + (let ((__tmp114422 + (if _local?112762_ (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! __tmp114425 _sym112763_ _type112764_)))) + (hash-put! __tmp114422 _sym112760_ _type112761_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_sym112770_ _type112771_) - (let ((_local?112773_ '#f)) + (lambda (_sym112767_ _type112768_) + (let ((_local?112770_ '#f)) (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym112770_ - _type112771_ - _local?112773_)))) + _sym112767_ + _type112768_ + _local?112770_)))) (define gxc#optimizer-declare-type! - (lambda _g114427_ - (let ((_g114426_ (let () (declare (not safe)) (##length _g114427_)))) - (cond ((let () (declare (not safe)) (##fx= _g114426_ 2)) - (apply (lambda (_sym112770_ _type112771_) + (lambda _g114424_ + (let ((_g114423_ (let () (declare (not safe)) (##length _g114424_)))) + (cond ((let () (declare (not safe)) (##fx= _g114423_ 2)) + (apply (lambda (_sym112767_ _type112768_) (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym112770_ - _type112771_))) - _g114427_)) - ((let () (declare (not safe)) (##fx= _g114426_ 3)) - (apply (lambda (_sym112775_ _type112776_ _local?112777_) + _sym112767_ + _type112768_))) + _g114424_)) + ((let () (declare (not safe)) (##fx= _g114423_ 3)) + (apply (lambda (_sym112772_ _type112773_ _local?112774_) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym112775_ - _type112776_ - _local?112777_))) - _g114427_)) + _sym112772_ + _type112773_ + _local?112774_))) + _g114424_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-type! - _g114427_)))))) + _g114424_)))))) (define gxc#optimizer-clear-type!__% - (lambda (_sym112749_ _local?112750_) - (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym112749_)) - (let ((__tmp114428 - (if _local?112750_ + (lambda (_sym112746_ _local?112747_) + (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym112746_)) + (let ((__tmp114425 + (if _local?112747_ (gxc#current-compile-local-type) (##structure-ref (gxc#current-compile-optimizer-info) @@ -2873,262 +2873,262 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (hash-remove! __tmp114428 _sym112749_)))) + (hash-remove! __tmp114425 _sym112746_)))) (define gxc#optimizer-clear-type!__0 - (lambda (_sym112755_) - (let ((_local?112757_ '#f)) + (lambda (_sym112752_) + (let ((_local?112754_ '#f)) (declare (not safe)) - (gxc#optimizer-clear-type!__% _sym112755_ _local?112757_)))) + (gxc#optimizer-clear-type!__% _sym112752_ _local?112754_)))) (define gxc#optimizer-clear-type! - (lambda _g114430_ - (let ((_g114429_ (let () (declare (not safe)) (##length _g114430_)))) - (cond ((let () (declare (not safe)) (##fx= _g114429_ 1)) - (apply (lambda (_sym112755_) + (lambda _g114427_ + (let ((_g114426_ (let () (declare (not safe)) (##length _g114427_)))) + (cond ((let () (declare (not safe)) (##fx= _g114426_ 1)) + (apply (lambda (_sym112752_) (let () (declare (not safe)) - (gxc#optimizer-clear-type!__0 _sym112755_))) - _g114430_)) - ((let () (declare (not safe)) (##fx= _g114429_ 2)) - (apply (lambda (_sym112759_ _local?112760_) + (gxc#optimizer-clear-type!__0 _sym112752_))) + _g114427_)) + ((let () (declare (not safe)) (##fx= _g114426_ 2)) + (apply (lambda (_sym112756_ _local?112757_) (let () (declare (not safe)) (gxc#optimizer-clear-type!__% - _sym112759_ - _local?112760_))) - _g114430_)) + _sym112756_ + _local?112757_))) + _g114427_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-clear-type! - _g114430_)))))) + _g114427_)))))) (define gxc#optimizer-declare-method!__% - (lambda (_type-t112722_ _method112723_ _sym112724_ _rebind?112725_) - (let* ((_type112727_ + (lambda (_type-t112719_ _method112720_ _sym112721_ _rebind?112722_) + (let* ((_type112724_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _type-t112722_))) - (_$e112729_ - (let () (declare (not safe)) (gxc#!type-vtab _type112727_)))) - (if _$e112729_ - ((lambda (_vtab112732_) + (gxc#optimizer-resolve-type _type-t112719_))) + (_$e112726_ + (let () (declare (not safe)) (gxc#!type-vtab _type112724_)))) + (if _$e112726_ + ((lambda (_vtab112729_) (if (let () (declare (not safe)) - (hash-key? _vtab112732_ _method112723_)) - (if _rebind?112725_ + (hash-key? _vtab112729_ _method112720_)) + (if _rebind?112722_ (begin (let () (declare (not safe)) (gxc#verbose '"declare-method: rebind existing method" - _type-t112722_ + _type-t112719_ '" " - _method112723_)) + _method112720_)) (let () (declare (not safe)) (hash-put! - _vtab112732_ - _method112723_ - _sym112724_))) - (let ((__tmp114435 - (let ((__tmp114436 - (let ((__tmp114437 - (let ((__tmp114438 + _vtab112729_ + _method112720_ + _sym112721_))) + (let ((__tmp114432 + (let ((__tmp114433 + (let ((__tmp114434 + (let ((__tmp114435 (let () (declare (not safe)) - (cons _sym112724_ + (cons _sym112721_ '())))) (declare (not safe)) - (cons _method112723_ - __tmp114438)))) + (cons _method112720_ + __tmp114435)))) (declare (not safe)) - (cons _type-t112722_ __tmp114437)))) + (cons _type-t112719_ __tmp114434)))) (declare (not safe)) - (cons 'bind-method! __tmp114436)))) + (cons 'bind-method! __tmp114433)))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: duplicate method declaration" - __tmp114435 - _method112723_))) + __tmp114432 + _method112720_))) (begin (let () (declare (not safe)) (gxc#verbose '"declare-method " - _type-t112722_ + _type-t112719_ '" " - _method112723_ + _method112720_ '" => " - _sym112724_)) + _sym112721_)) (let () (declare (not safe)) (hash-put! - _vtab112732_ - _method112723_ - _sym112724_))))) - _$e112729_) - (if (let () (declare (not safe)) (not _type112727_)) + _vtab112729_ + _method112720_ + _sym112721_))))) + _$e112726_) + (if (let () (declare (not safe)) (not _type112724_)) (let () (declare (not safe)) (gxc#verbose '"declare-method: unknown type " - _type-t112722_)) - (let ((__tmp114431 - (let ((__tmp114432 - (let ((__tmp114433 - (let ((__tmp114434 + _type-t112719_)) + (let ((__tmp114428 + (let ((__tmp114429 + (let ((__tmp114430 + (let ((__tmp114431 (let () (declare (not safe)) - (cons _method112723_ '())))) + (cons _method112720_ '())))) (declare (not safe)) - (cons _sym112724_ __tmp114434)))) + (cons _sym112721_ __tmp114431)))) (declare (not safe)) - (cons _type-t112722_ __tmp114433)))) + (cons _type-t112719_ __tmp114430)))) (declare (not safe)) - (cons 'bind-method! __tmp114432)))) + (cons 'bind-method! __tmp114429)))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: bad method declaration; no method table" - __tmp114431 - _type112727_))))))) + __tmp114428 + _type112724_))))))) (define gxc#optimizer-declare-method!__0 - (lambda (_type-t112737_ _method112738_ _sym112739_) - (let ((_rebind?112741_ '#f)) + (lambda (_type-t112734_ _method112735_ _sym112736_) + (let ((_rebind?112738_ '#f)) (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t112737_ - _method112738_ - _sym112739_ - _rebind?112741_)))) + _type-t112734_ + _method112735_ + _sym112736_ + _rebind?112738_)))) (define gxc#optimizer-declare-method! - (lambda _g114440_ - (let ((_g114439_ (let () (declare (not safe)) (##length _g114440_)))) - (cond ((let () (declare (not safe)) (##fx= _g114439_ 3)) - (apply (lambda (_type-t112737_ _method112738_ _sym112739_) + (lambda _g114437_ + (let ((_g114436_ (let () (declare (not safe)) (##length _g114437_)))) + (cond ((let () (declare (not safe)) (##fx= _g114436_ 3)) + (apply (lambda (_type-t112734_ _method112735_ _sym112736_) (let () (declare (not safe)) (gxc#optimizer-declare-method!__0 - _type-t112737_ - _method112738_ - _sym112739_))) - _g114440_)) - ((let () (declare (not safe)) (##fx= _g114439_ 4)) - (apply (lambda (_type-t112743_ - _method112744_ - _sym112745_ - _rebind?112746_) + _type-t112734_ + _method112735_ + _sym112736_))) + _g114437_)) + ((let () (declare (not safe)) (##fx= _g114436_ 4)) + (apply (lambda (_type-t112740_ + _method112741_ + _sym112742_ + _rebind?112743_) (let () (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t112743_ - _method112744_ - _sym112745_ - _rebind?112746_))) - _g114440_)) + _type-t112740_ + _method112741_ + _sym112742_ + _rebind?112743_))) + _g114437_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-method! - _g114440_)))))) + _g114437_)))))) (define gxc#optimizer-lookup-type - (lambda (_sym112710_) - (let ((_$e112718_ - (let ((_ht112711112713_ (gxc#current-compile-local-type))) - (if _ht112711112713_ - (let ((_ht112716_ _ht112711112713_)) + (lambda (_sym112707_) + (let ((_$e112715_ + (let ((_ht112708112710_ (gxc#current-compile-local-type))) + (if _ht112708112710_ + (let ((_ht112713_ _ht112708112710_)) (declare (not safe)) - (hash-get _ht112716_ _sym112710_)) + (hash-get _ht112713_ _sym112707_)) '#f)))) - (if _$e112718_ - _$e112718_ - (let ((__tmp114441 + (if _$e112715_ + _$e112715_ + (let ((__tmp114438 (##structure-ref (gxc#current-compile-optimizer-info) '1 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp114441 _sym112710_)))))) + (hash-get __tmp114438 _sym112707_)))))) (define gxc#optimizer-resolve-type - (lambda (_sym112702_) - (let ((_type112703112705_ + (lambda (_sym112699_) + (let ((_type112700112702_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym112702_)))) - (if _type112703112705_ - (let ((_type112708_ _type112703112705_)) + (gxc#optimizer-lookup-type _sym112699_)))) + (if _type112700112702_ + (let ((_type112705_ _type112700112702_)) (if (let () (declare (not safe)) - (##structure-instance-of? _type112708_ 'gxc#!alias::t)) - (let ((__tmp114442 - (##structure-ref _type112708_ '1 gxc#!type::t '#f))) + (##structure-instance-of? _type112705_ 'gxc#!alias::t)) + (let ((__tmp114439 + (##structure-ref _type112705_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp114442)) - _type112708_)) + (gxc#optimizer-resolve-type __tmp114439)) + _type112705_)) '#f)))) (define gxc#optimizer-resolve-class - (lambda (_where112694_ _klass-id112695_) - (let ((_$e112697_ + (lambda (_where112691_ _klass-id112692_) + (let ((_$e112694_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _klass-id112695_)))) - (if _$e112697_ - ((lambda (_klass112700_) + (gxc#optimizer-resolve-type _klass-id112692_)))) + (if _$e112694_ + ((lambda (_klass112697_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass112700_ 'gxc#!class::t)) + (##structure-instance-of? _klass112697_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"bad class reference; not a class type" - _where112694_ - _klass-id112695_ - _klass112700_))) - _klass112700_) - _$e112697_) + _where112691_ + _klass-id112692_ + _klass112697_))) + _klass112697_) + _$e112694_) (let () (declare (not safe)) (gxc#raise-compile-error '"unknown class" - _where112694_ - _klass-id112695_)))))) + _where112691_ + _klass-id112692_)))))) (define gxc#optimizer-lookup-method - (lambda (_type-t112691_ _method112692_) - (let ((__tmp114443 + (lambda (_type-t112688_ _method112689_) + (let ((__tmp114440 (let () (declare (not safe)) - (gxc#optimizer-resolve-type _type-t112691_)))) + (gxc#optimizer-resolve-type _type-t112688_)))) (declare (not safe)) - (gxc#!type-lookup-method __tmp114443 _method112692_)))) + (gxc#!type-lookup-method __tmp114440 _method112689_)))) (define gxc#optimizer-top-level-method! - (lambda (_sym112689_) + (lambda (_sym112686_) (let () (declare (not safe)) - (gxc#verbose '"top-level method: " _sym112689_)) - (let ((__tmp114444 + (gxc#verbose '"top-level method: " _sym112686_)) + (let ((__tmp114441 (##structure-ref (gxc#current-compile-optimizer-info) '3 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp114444 _sym112689_ '#t)))) + (hash-put! __tmp114441 _sym112686_ '#t)))) (define gxc#optimizer-top-level-method? - (lambda (_sym112687_) - (let ((__tmp114445 + (lambda (_sym112684_) + (let ((__tmp114442 (##structure-ref (gxc#current-compile-optimizer-info) '3 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp114445 _sym112687_)))) + (hash-get __tmp114442 _sym112684_)))) (define gxc#identifier-symbol - (lambda (_stx112685_) + (lambda (_stx112682_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _stx112685_ + _stx112682_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _stx112685_)) - (let () (declare (not safe)) (gx#stx-e _stx112685_))))))) + (gxc#generate-runtime-binding-id _stx112682_)) + (let () (declare (not safe)) (gx#stx-e _stx112682_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base__1.scm b/src/bootstrap/gerbil/compiler/optimize-base__1.scm index 53dfa817..0e60edc3 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]#_g114447_| + (define |gxc[1]#_g114444_| (##structure gx#syntax-quote::t 'optimizer-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114449_| + (define |gxc[1]#_g114446_| (##structure gx#syntax-quote::t 'make-optimizer-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114451_| + (define |gxc[1]#_g114448_| (##structure gx#syntax-quote::t 'optimizer-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114457_| + (define |gxc[1]#_g114454_| (##structure gx#syntax-quote::t 'optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114460_| + (define |gxc[1]#_g114457_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114463_| + (define |gxc[1]#_g114460_| (##structure gx#syntax-quote::t 'optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114469_| + (define |gxc[1]#_g114466_| (##structure gx#syntax-quote::t 'optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114472_| + (define |gxc[1]#_g114469_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114475_| + (define |gxc[1]#_g114472_| (##structure gx#syntax-quote::t 'optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114481_| + (define |gxc[1]#_g114478_| (##structure gx#syntax-quote::t '&optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114484_| + (define |gxc[1]#_g114481_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114487_| + (define |gxc[1]#_g114484_| (##structure gx#syntax-quote::t '&optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114493_| + (define |gxc[1]#_g114490_| (##structure gx#syntax-quote::t '&optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114496_| + (define |gxc[1]#_g114493_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114499_| + (define |gxc[1]#_g114496_| (##structure gx#syntax-quote::t '&optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114501_| + (define |gxc[1]#_g114498_| (##structure gx#syntax-quote::t '!type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114503_| + (define |gxc[1]#_g114500_| (##structure gx#syntax-quote::t 'make-!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114505_| + (define |gxc[1]#_g114502_| (##structure gx#syntax-quote::t '!type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114509_| + (define |gxc[1]#_g114506_| (##structure gx#syntax-quote::t '!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114513_| + (define |gxc[1]#_g114510_| (##structure gx#syntax-quote::t '!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114517_| + (define |gxc[1]#_g114514_| (##structure gx#syntax-quote::t '&!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114521_| + (define |gxc[1]#_g114518_| (##structure gx#syntax-quote::t '&!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114524_| + (define |gxc[1]#_g114521_| (##structure gx#syntax-quote::t '!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114526_| + (define |gxc[1]#_g114523_| (##structure gx#syntax-quote::t '!alias::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114528_| + (define |gxc[1]#_g114525_| (##structure gx#syntax-quote::t 'make-!alias #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114530_| + (define |gxc[1]#_g114527_| (##structure gx#syntax-quote::t '!alias? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114534_| + (define |gxc[1]#_g114531_| (##structure gx#syntax-quote::t '!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114538_| + (define |gxc[1]#_g114535_| (##structure gx#syntax-quote::t '!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114542_| + (define |gxc[1]#_g114539_| (##structure gx#syntax-quote::t '&!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114546_| + (define |gxc[1]#_g114543_| (##structure gx#syntax-quote::t '&!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114550_| + (define |gxc[1]#_g114547_| (##structure gx#syntax-quote::t '!procedure::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114552_| + (define |gxc[1]#_g114549_| (##structure gx#syntax-quote::t 'make-!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114554_| + (define |gxc[1]#_g114551_| (##structure gx#syntax-quote::t '!procedure? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114558_| + (define |gxc[1]#_g114555_| (##structure gx#syntax-quote::t '!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114562_| + (define |gxc[1]#_g114559_| (##structure gx#syntax-quote::t '!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114566_| + (define |gxc[1]#_g114563_| (##structure gx#syntax-quote::t '&!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114570_| + (define |gxc[1]#_g114567_| (##structure gx#syntax-quote::t '&!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114574_| + (define |gxc[1]#_g114571_| (##structure gx#syntax-quote::t '!class::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114576_| + (define |gxc[1]#_g114573_| (##structure gx#syntax-quote::t 'make-!class #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114578_| + (define |gxc[1]#_g114575_| (##structure gx#syntax-quote::t '!class? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114591_| + (define |gxc[1]#_g114588_| (##structure gx#syntax-quote::t '!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114594_| + (define |gxc[1]#_g114591_| (##structure gx#syntax-quote::t '!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114597_| + (define |gxc[1]#_g114594_| (##structure gx#syntax-quote::t '!class-metaclass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114600_| + (define |gxc[1]#_g114597_| (##structure gx#syntax-quote::t '!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114603_| + (define |gxc[1]#_g114600_| (##structure gx#syntax-quote::t '!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114606_| + (define |gxc[1]#_g114603_| (##structure gx#syntax-quote::t '!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114609_| + (define |gxc[1]#_g114606_| (##structure gx#syntax-quote::t '!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114612_| + (define |gxc[1]#_g114609_| (##structure gx#syntax-quote::t '!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114615_| + (define |gxc[1]#_g114612_| (##structure gx#syntax-quote::t '!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114618_| + (define |gxc[1]#_g114615_| (##structure gx#syntax-quote::t '!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114631_| + (define |gxc[1]#_g114628_| (##structure gx#syntax-quote::t '!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114634_| + (define |gxc[1]#_g114631_| (##structure gx#syntax-quote::t '!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114637_| + (define |gxc[1]#_g114634_| (##structure gx#syntax-quote::t '!class-metaclass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114640_| + (define |gxc[1]#_g114637_| (##structure gx#syntax-quote::t '!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114643_| + (define |gxc[1]#_g114640_| (##structure gx#syntax-quote::t '!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114646_| + (define |gxc[1]#_g114643_| (##structure gx#syntax-quote::t '!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114649_| + (define |gxc[1]#_g114646_| (##structure gx#syntax-quote::t '!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114652_| + (define |gxc[1]#_g114649_| (##structure gx#syntax-quote::t '!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114655_| + (define |gxc[1]#_g114652_| (##structure gx#syntax-quote::t '!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114658_| + (define |gxc[1]#_g114655_| (##structure gx#syntax-quote::t '!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114671_| + (define |gxc[1]#_g114668_| (##structure gx#syntax-quote::t '&!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114674_| + (define |gxc[1]#_g114671_| (##structure gx#syntax-quote::t '&!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114677_| + (define |gxc[1]#_g114674_| (##structure gx#syntax-quote::t '&!class-metaclass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114680_| + (define |gxc[1]#_g114677_| (##structure gx#syntax-quote::t '&!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114683_| + (define |gxc[1]#_g114680_| (##structure gx#syntax-quote::t '&!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114686_| + (define |gxc[1]#_g114683_| (##structure gx#syntax-quote::t '&!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114689_| + (define |gxc[1]#_g114686_| (##structure gx#syntax-quote::t '&!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114692_| + (define |gxc[1]#_g114689_| (##structure gx#syntax-quote::t '&!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114695_| + (define |gxc[1]#_g114692_| (##structure gx#syntax-quote::t '&!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114698_| + (define |gxc[1]#_g114695_| (##structure gx#syntax-quote::t '&!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114711_| + (define |gxc[1]#_g114708_| (##structure gx#syntax-quote::t '&!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114714_| + (define |gxc[1]#_g114711_| (##structure gx#syntax-quote::t '&!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114717_| + (define |gxc[1]#_g114714_| (##structure gx#syntax-quote::t '&!class-metaclass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114720_| + (define |gxc[1]#_g114717_| (##structure gx#syntax-quote::t '&!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114723_| + (define |gxc[1]#_g114720_| (##structure gx#syntax-quote::t '&!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114726_| + (define |gxc[1]#_g114723_| (##structure gx#syntax-quote::t '&!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114729_| + (define |gxc[1]#_g114726_| (##structure gx#syntax-quote::t '&!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114732_| + (define |gxc[1]#_g114729_| (##structure gx#syntax-quote::t '&!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114735_| + (define |gxc[1]#_g114732_| (##structure gx#syntax-quote::t '&!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114738_| + (define |gxc[1]#_g114735_| (##structure gx#syntax-quote::t '&!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114741_| + (define |gxc[1]#_g114738_| (##structure gx#syntax-quote::t '!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114743_| + (define |gxc[1]#_g114740_| (##structure gx#syntax-quote::t '!predicate::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114745_| + (define |gxc[1]#_g114742_| (##structure gx#syntax-quote::t 'make-!predicate #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114747_| + (define |gxc[1]#_g114744_| (##structure gx#syntax-quote::t '!predicate? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114751_| + (define |gxc[1]#_g114748_| (##structure gx#syntax-quote::t '!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114755_| + (define |gxc[1]#_g114752_| (##structure gx#syntax-quote::t '!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114759_| + (define |gxc[1]#_g114756_| (##structure gx#syntax-quote::t '&!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114763_| + (define |gxc[1]#_g114760_| (##structure gx#syntax-quote::t '&!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114767_| + (define |gxc[1]#_g114764_| (##structure gx#syntax-quote::t '!constructor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114769_| + (define |gxc[1]#_g114766_| (##structure gx#syntax-quote::t 'make-!constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114771_| + (define |gxc[1]#_g114768_| (##structure gx#syntax-quote::t '!constructor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114775_| + (define |gxc[1]#_g114772_| (##structure gx#syntax-quote::t '!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114779_| + (define |gxc[1]#_g114776_| (##structure gx#syntax-quote::t '!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114783_| + (define |gxc[1]#_g114780_| (##structure gx#syntax-quote::t '&!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114787_| + (define |gxc[1]#_g114784_| (##structure gx#syntax-quote::t '&!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114791_| + (define |gxc[1]#_g114788_| (##structure gx#syntax-quote::t '!accessor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114793_| + (define |gxc[1]#_g114790_| (##structure gx#syntax-quote::t 'make-!accessor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114795_| + (define |gxc[1]#_g114792_| (##structure gx#syntax-quote::t '!accessor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114801_| + (define |gxc[1]#_g114798_| (##structure gx#syntax-quote::t '!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114804_| + (define |gxc[1]#_g114801_| (##structure gx#syntax-quote::t '!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114807_| + (define |gxc[1]#_g114804_| (##structure gx#syntax-quote::t '!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114813_| + (define |gxc[1]#_g114810_| (##structure gx#syntax-quote::t '!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114816_| + (define |gxc[1]#_g114813_| (##structure gx#syntax-quote::t '!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114819_| + (define |gxc[1]#_g114816_| (##structure gx#syntax-quote::t '!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114825_| + (define |gxc[1]#_g114822_| (##structure gx#syntax-quote::t '&!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114828_| + (define |gxc[1]#_g114825_| (##structure gx#syntax-quote::t '&!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114831_| + (define |gxc[1]#_g114828_| (##structure gx#syntax-quote::t '&!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114837_| + (define |gxc[1]#_g114834_| (##structure gx#syntax-quote::t '&!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114840_| + (define |gxc[1]#_g114837_| (##structure gx#syntax-quote::t '&!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114843_| + (define |gxc[1]#_g114840_| (##structure gx#syntax-quote::t '&!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114847_| + (define |gxc[1]#_g114844_| (##structure gx#syntax-quote::t '!mutator::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114849_| + (define |gxc[1]#_g114846_| (##structure gx#syntax-quote::t 'make-!mutator #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114851_| + (define |gxc[1]#_g114848_| (##structure gx#syntax-quote::t '!mutator? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114857_| + (define |gxc[1]#_g114854_| (##structure gx#syntax-quote::t '!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114860_| + (define |gxc[1]#_g114857_| (##structure gx#syntax-quote::t '!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114863_| + (define |gxc[1]#_g114860_| (##structure gx#syntax-quote::t '!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114869_| + (define |gxc[1]#_g114866_| (##structure gx#syntax-quote::t '!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114872_| + (define |gxc[1]#_g114869_| (##structure gx#syntax-quote::t '!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114875_| + (define |gxc[1]#_g114872_| (##structure gx#syntax-quote::t '!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114881_| + (define |gxc[1]#_g114878_| (##structure gx#syntax-quote::t '&!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114884_| + (define |gxc[1]#_g114881_| (##structure gx#syntax-quote::t '&!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114887_| + (define |gxc[1]#_g114884_| (##structure gx#syntax-quote::t '&!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114893_| + (define |gxc[1]#_g114890_| (##structure gx#syntax-quote::t '&!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114896_| + (define |gxc[1]#_g114893_| (##structure gx#syntax-quote::t '&!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114899_| + (define |gxc[1]#_g114896_| (##structure gx#syntax-quote::t '&!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114903_| + (define |gxc[1]#_g114900_| (##structure gx#syntax-quote::t '!lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114905_| + (define |gxc[1]#_g114902_| (##structure gx#syntax-quote::t 'make-!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114907_| + (define |gxc[1]#_g114904_| (##structure gx#syntax-quote::t '!lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114915_| + (define |gxc[1]#_g114912_| (##structure gx#syntax-quote::t '!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114918_| + (define |gxc[1]#_g114915_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114921_| + (define |gxc[1]#_g114918_| (##structure gx#syntax-quote::t '!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114924_| + (define |gxc[1]#_g114921_| (##structure gx#syntax-quote::t '!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114927_| + (define |gxc[1]#_g114924_| (##structure gx#syntax-quote::t '!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114935_| + (define |gxc[1]#_g114932_| (##structure gx#syntax-quote::t '!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114938_| + (define |gxc[1]#_g114935_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114941_| + (define |gxc[1]#_g114938_| (##structure gx#syntax-quote::t '!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114944_| + (define |gxc[1]#_g114941_| (##structure gx#syntax-quote::t '!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114947_| + (define |gxc[1]#_g114944_| (##structure gx#syntax-quote::t '!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114955_| + (define |gxc[1]#_g114952_| (##structure gx#syntax-quote::t '&!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114958_| + (define |gxc[1]#_g114955_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114961_| + (define |gxc[1]#_g114958_| (##structure gx#syntax-quote::t '&!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114964_| + (define |gxc[1]#_g114961_| (##structure gx#syntax-quote::t '&!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114967_| + (define |gxc[1]#_g114964_| (##structure gx#syntax-quote::t '&!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114975_| + (define |gxc[1]#_g114972_| (##structure gx#syntax-quote::t '&!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114978_| + (define |gxc[1]#_g114975_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114981_| + (define |gxc[1]#_g114978_| (##structure gx#syntax-quote::t '&!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114984_| + (define |gxc[1]#_g114981_| (##structure gx#syntax-quote::t '&!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114987_| + (define |gxc[1]#_g114984_| (##structure gx#syntax-quote::t '&!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114991_| + (define |gxc[1]#_g114988_| (##structure gx#syntax-quote::t '!case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114993_| + (define |gxc[1]#_g114990_| (##structure gx#syntax-quote::t 'make-!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114995_| + (define |gxc[1]#_g114992_| (##structure gx#syntax-quote::t '!case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115000_| + (define |gxc[1]#_g114997_| (##structure gx#syntax-quote::t '!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115003_| + (define |gxc[1]#_g115000_| (##structure gx#syntax-quote::t '!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115008_| + (define |gxc[1]#_g115005_| (##structure gx#syntax-quote::t '!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115011_| + (define |gxc[1]#_g115008_| (##structure gx#syntax-quote::t '!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115016_| + (define |gxc[1]#_g115013_| (##structure gx#syntax-quote::t '&!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115019_| + (define |gxc[1]#_g115016_| (##structure gx#syntax-quote::t '&!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115024_| + (define |gxc[1]#_g115021_| (##structure gx#syntax-quote::t '&!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115027_| + (define |gxc[1]#_g115024_| (##structure gx#syntax-quote::t '&!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115031_| + (define |gxc[1]#_g115028_| (##structure gx#syntax-quote::t '!kw-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115033_| + (define |gxc[1]#_g115030_| (##structure gx#syntax-quote::t 'make-!kw-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115035_| + (define |gxc[1]#_g115032_| (##structure gx#syntax-quote::t '!kw-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115041_| + (define |gxc[1]#_g115038_| (##structure gx#syntax-quote::t '!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115044_| + (define |gxc[1]#_g115041_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115047_| + (define |gxc[1]#_g115044_| (##structure gx#syntax-quote::t '!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115053_| + (define |gxc[1]#_g115050_| (##structure gx#syntax-quote::t '!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115056_| + (define |gxc[1]#_g115053_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115059_| + (define |gxc[1]#_g115056_| (##structure gx#syntax-quote::t '!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115065_| + (define |gxc[1]#_g115062_| (##structure gx#syntax-quote::t '&!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115068_| + (define |gxc[1]#_g115065_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115071_| + (define |gxc[1]#_g115068_| (##structure gx#syntax-quote::t '&!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115077_| + (define |gxc[1]#_g115074_| (##structure gx#syntax-quote::t '&!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115080_| + (define |gxc[1]#_g115077_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115083_| + (define |gxc[1]#_g115080_| (##structure gx#syntax-quote::t '&!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115087_| + (define |gxc[1]#_g115084_| (##structure gx#syntax-quote::t '!kw-lambda-primary::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115089_| + (define |gxc[1]#_g115086_| (##structure gx#syntax-quote::t 'make-!kw-lambda-primary #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115091_| + (define |gxc[1]#_g115088_| (##structure gx#syntax-quote::t '!kw-lambda-primary? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115097_| + (define |gxc[1]#_g115094_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115100_| + (define |gxc[1]#_g115097_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115103_| + (define |gxc[1]#_g115100_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115109_| + (define |gxc[1]#_g115106_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115112_| + (define |gxc[1]#_g115109_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115115_| + (define |gxc[1]#_g115112_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115121_| + (define |gxc[1]#_g115118_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115124_| + (define |gxc[1]#_g115121_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115127_| + (define |gxc[1]#_g115124_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115133_| + (define |gxc[1]#_g115130_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115136_| + (define |gxc[1]#_g115133_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115139_| + (define |gxc[1]#_g115136_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115141_| + (define |gxc[1]#_g115138_| (##structure gx#syntax-quote::t '!primitive::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115143_| + (define |gxc[1]#_g115140_| (##structure gx#syntax-quote::t 'make-!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115145_| + (define |gxc[1]#_g115142_| (##structure gx#syntax-quote::t '!primitive? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115149_| + (define |gxc[1]#_g115146_| (##structure gx#syntax-quote::t '!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115151_| + (define |gxc[1]#_g115148_| (##structure gx#syntax-quote::t '!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115153_| + (define |gxc[1]#_g115150_| (##structure gx#syntax-quote::t '!primitive-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115155_| + (define |gxc[1]#_g115152_| (##structure gx#syntax-quote::t 'make-!primitive-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115157_| + (define |gxc[1]#_g115154_| (##structure gx#syntax-quote::t '!primitive-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115165_| + (define |gxc[1]#_g115162_| (##structure gx#syntax-quote::t '!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115168_| + (define |gxc[1]#_g115165_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115171_| + (define |gxc[1]#_g115168_| (##structure gx#syntax-quote::t '!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115174_| + (define |gxc[1]#_g115171_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115177_| + (define |gxc[1]#_g115174_| (##structure gx#syntax-quote::t '!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115185_| + (define |gxc[1]#_g115182_| (##structure gx#syntax-quote::t '!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115188_| + (define |gxc[1]#_g115185_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115191_| + (define |gxc[1]#_g115188_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115194_| + (define |gxc[1]#_g115191_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115197_| + (define |gxc[1]#_g115194_| (##structure gx#syntax-quote::t '!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115205_| + (define |gxc[1]#_g115202_| (##structure gx#syntax-quote::t '&!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115208_| + (define |gxc[1]#_g115205_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115211_| + (define |gxc[1]#_g115208_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115214_| + (define |gxc[1]#_g115211_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115217_| + (define |gxc[1]#_g115214_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115225_| + (define |gxc[1]#_g115222_| (##structure gx#syntax-quote::t '&!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115228_| + (define |gxc[1]#_g115225_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115231_| + (define |gxc[1]#_g115228_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115234_| + (define |gxc[1]#_g115231_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115237_| + (define |gxc[1]#_g115234_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115241_| + (define |gxc[1]#_g115238_| (##structure gx#syntax-quote::t '!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115244_| + (define |gxc[1]#_g115241_| (##structure gx#syntax-quote::t '!primitive-case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115246_| + (define |gxc[1]#_g115243_| (##structure gx#syntax-quote::t 'make-!primitive-case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115248_| + (define |gxc[1]#_g115245_| (##structure gx#syntax-quote::t '!primitive-case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115253_| + (define |gxc[1]#_g115250_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115256_| + (define |gxc[1]#_g115253_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115261_| + (define |gxc[1]#_g115258_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115264_| + (define |gxc[1]#_g115261_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115269_| + (define |gxc[1]#_g115266_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115272_| + (define |gxc[1]#_g115269_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115277_| + (define |gxc[1]#_g115274_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115280_| + (define |gxc[1]#_g115277_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses-set! @@ -1605,7 +1605,7 @@ '())) (begin (define |gxc[:0:]#optimizer-info| - (let ((__obj114278 + (let ((__obj114275 (let () (declare (not safe)) (##structure @@ -1628,7 +1628,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114278 + __obj114275 '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! - __obj114278 + __obj114275 'optimizer-info '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1644,7 +1644,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114278 + __obj114275 '(type ssxi methods) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1652,7 +1652,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114278 + __obj114275 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1660,7 +1660,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114278 + __obj114275 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1668,7 +1668,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114278 + __obj114275 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1676,7 +1676,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114278 + __obj114275 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1684,150 +1684,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114278 + __obj114275 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114446 |gxc[1]#_g114447_|)) + (let ((__tmp114443 |gxc[1]#_g114444_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114278 - __tmp114446 + __obj114275 + __tmp114443 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114448 |gxc[1]#_g114449_|)) + (let ((__tmp114445 |gxc[1]#_g114446_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114278 - __tmp114448 + __obj114275 + __tmp114445 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114450 |gxc[1]#_g114451_|)) + (let ((__tmp114447 |gxc[1]#_g114448_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114278 - __tmp114450 + __obj114275 + __tmp114447 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114452 - (let ((__tmp114461 - (let ((__tmp114462 |gxc[1]#_g114463_|)) + (let ((__tmp114449 + (let ((__tmp114458 + (let ((__tmp114459 |gxc[1]#_g114460_|)) (declare (not safe)) - (cons 'type __tmp114462))) - (__tmp114453 - (let ((__tmp114458 - (let ((__tmp114459 |gxc[1]#_g114460_|)) + (cons 'type __tmp114459))) + (__tmp114450 + (let ((__tmp114455 + (let ((__tmp114456 |gxc[1]#_g114457_|)) (declare (not safe)) - (cons 'ssxi __tmp114459))) - (__tmp114454 - (let ((__tmp114455 - (let ((__tmp114456 |gxc[1]#_g114457_|)) + (cons 'ssxi __tmp114456))) + (__tmp114451 + (let ((__tmp114452 + (let ((__tmp114453 |gxc[1]#_g114454_|)) (declare (not safe)) - (cons 'methods __tmp114456)))) + (cons 'methods __tmp114453)))) (declare (not safe)) - (cons __tmp114455 '())))) + (cons __tmp114452 '())))) (declare (not safe)) - (cons __tmp114458 __tmp114454)))) + (cons __tmp114455 __tmp114451)))) (declare (not safe)) - (cons __tmp114461 __tmp114453)))) + (cons __tmp114458 __tmp114450)))) (declare (not safe)) (##unchecked-structure-set! - __obj114278 - __tmp114452 + __obj114275 + __tmp114449 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114464 - (let ((__tmp114473 - (let ((__tmp114474 |gxc[1]#_g114475_|)) + (let ((__tmp114461 + (let ((__tmp114470 + (let ((__tmp114471 |gxc[1]#_g114472_|)) (declare (not safe)) - (cons 'type __tmp114474))) - (__tmp114465 - (let ((__tmp114470 - (let ((__tmp114471 |gxc[1]#_g114472_|)) + (cons 'type __tmp114471))) + (__tmp114462 + (let ((__tmp114467 + (let ((__tmp114468 |gxc[1]#_g114469_|)) (declare (not safe)) - (cons 'ssxi __tmp114471))) - (__tmp114466 - (let ((__tmp114467 - (let ((__tmp114468 |gxc[1]#_g114469_|)) + (cons 'ssxi __tmp114468))) + (__tmp114463 + (let ((__tmp114464 + (let ((__tmp114465 |gxc[1]#_g114466_|)) (declare (not safe)) - (cons 'methods __tmp114468)))) + (cons 'methods __tmp114465)))) (declare (not safe)) - (cons __tmp114467 '())))) + (cons __tmp114464 '())))) (declare (not safe)) - (cons __tmp114470 __tmp114466)))) + (cons __tmp114467 __tmp114463)))) (declare (not safe)) - (cons __tmp114473 __tmp114465)))) + (cons __tmp114470 __tmp114462)))) (declare (not safe)) (##unchecked-structure-set! - __obj114278 - __tmp114464 + __obj114275 + __tmp114461 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114476 - (let ((__tmp114485 - (let ((__tmp114486 |gxc[1]#_g114487_|)) + (let ((__tmp114473 + (let ((__tmp114482 + (let ((__tmp114483 |gxc[1]#_g114484_|)) (declare (not safe)) - (cons 'type __tmp114486))) - (__tmp114477 - (let ((__tmp114482 - (let ((__tmp114483 |gxc[1]#_g114484_|)) + (cons 'type __tmp114483))) + (__tmp114474 + (let ((__tmp114479 + (let ((__tmp114480 |gxc[1]#_g114481_|)) (declare (not safe)) - (cons 'ssxi __tmp114483))) - (__tmp114478 - (let ((__tmp114479 - (let ((__tmp114480 |gxc[1]#_g114481_|)) + (cons 'ssxi __tmp114480))) + (__tmp114475 + (let ((__tmp114476 + (let ((__tmp114477 |gxc[1]#_g114478_|)) (declare (not safe)) - (cons 'methods __tmp114480)))) + (cons 'methods __tmp114477)))) (declare (not safe)) - (cons __tmp114479 '())))) + (cons __tmp114476 '())))) (declare (not safe)) - (cons __tmp114482 __tmp114478)))) + (cons __tmp114479 __tmp114475)))) (declare (not safe)) - (cons __tmp114485 __tmp114477)))) + (cons __tmp114482 __tmp114474)))) (declare (not safe)) (##unchecked-structure-set! - __obj114278 - __tmp114476 + __obj114275 + __tmp114473 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114488 - (let ((__tmp114497 - (let ((__tmp114498 |gxc[1]#_g114499_|)) + (let ((__tmp114485 + (let ((__tmp114494 + (let ((__tmp114495 |gxc[1]#_g114496_|)) (declare (not safe)) - (cons 'type __tmp114498))) - (__tmp114489 - (let ((__tmp114494 - (let ((__tmp114495 |gxc[1]#_g114496_|)) + (cons 'type __tmp114495))) + (__tmp114486 + (let ((__tmp114491 + (let ((__tmp114492 |gxc[1]#_g114493_|)) (declare (not safe)) - (cons 'ssxi __tmp114495))) - (__tmp114490 - (let ((__tmp114491 - (let ((__tmp114492 |gxc[1]#_g114493_|)) + (cons 'ssxi __tmp114492))) + (__tmp114487 + (let ((__tmp114488 + (let ((__tmp114489 |gxc[1]#_g114490_|)) (declare (not safe)) - (cons 'methods __tmp114492)))) + (cons 'methods __tmp114489)))) (declare (not safe)) - (cons __tmp114491 '())))) + (cons __tmp114488 '())))) (declare (not safe)) - (cons __tmp114494 __tmp114490)))) + (cons __tmp114491 __tmp114487)))) (declare (not safe)) - (cons __tmp114497 __tmp114489)))) + (cons __tmp114494 __tmp114486)))) (declare (not safe)) (##unchecked-structure-set! - __obj114278 - __tmp114488 + __obj114275 + __tmp114485 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114278)) + __obj114275)) (define |gxc[:0:]#!type| - (let ((__obj114279 + (let ((__obj114276 (let () (declare (not safe)) (##structure @@ -1850,7 +1850,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114279 + __obj114276 'gxc#!type::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1858,7 +1858,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114279 + __obj114276 '!type '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1866,7 +1866,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114279 + __obj114276 '(id) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1874,7 +1874,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114279 + __obj114276 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1882,7 +1882,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114279 + __obj114276 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1890,7 +1890,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114279 + __obj114276 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1898,7 +1898,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114279 + __obj114276 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1906,94 +1906,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114279 + __obj114276 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114500 |gxc[1]#_g114501_|)) + (let ((__tmp114497 |gxc[1]#_g114498_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114279 - __tmp114500 + __obj114276 + __tmp114497 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114502 |gxc[1]#_g114503_|)) + (let ((__tmp114499 |gxc[1]#_g114500_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114279 - __tmp114502 + __obj114276 + __tmp114499 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114504 |gxc[1]#_g114505_|)) + (let ((__tmp114501 |gxc[1]#_g114502_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114279 - __tmp114504 + __obj114276 + __tmp114501 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114506 - (let ((__tmp114507 - (let ((__tmp114508 |gxc[1]#_g114509_|)) + (let ((__tmp114503 + (let ((__tmp114504 + (let ((__tmp114505 |gxc[1]#_g114506_|)) (declare (not safe)) - (cons 'id __tmp114508)))) + (cons 'id __tmp114505)))) (declare (not safe)) - (cons __tmp114507 '())))) + (cons __tmp114504 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114279 - __tmp114506 + __obj114276 + __tmp114503 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114510 - (let ((__tmp114511 - (let ((__tmp114512 |gxc[1]#_g114513_|)) + (let ((__tmp114507 + (let ((__tmp114508 + (let ((__tmp114509 |gxc[1]#_g114510_|)) (declare (not safe)) - (cons 'id __tmp114512)))) + (cons 'id __tmp114509)))) (declare (not safe)) - (cons __tmp114511 '())))) + (cons __tmp114508 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114279 - __tmp114510 + __obj114276 + __tmp114507 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114514 - (let ((__tmp114515 - (let ((__tmp114516 |gxc[1]#_g114517_|)) + (let ((__tmp114511 + (let ((__tmp114512 + (let ((__tmp114513 |gxc[1]#_g114514_|)) (declare (not safe)) - (cons 'id __tmp114516)))) + (cons 'id __tmp114513)))) (declare (not safe)) - (cons __tmp114515 '())))) + (cons __tmp114512 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114279 - __tmp114514 + __obj114276 + __tmp114511 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114518 - (let ((__tmp114519 - (let ((__tmp114520 |gxc[1]#_g114521_|)) + (let ((__tmp114515 + (let ((__tmp114516 + (let ((__tmp114517 |gxc[1]#_g114518_|)) (declare (not safe)) - (cons 'id __tmp114520)))) + (cons 'id __tmp114517)))) (declare (not safe)) - (cons __tmp114519 '())))) + (cons __tmp114516 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114279 - __tmp114518 + __obj114276 + __tmp114515 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114279)) + __obj114276)) (define |gxc[:0:]#!alias| - (let ((__obj114280 + (let ((__obj114277 (let () (declare (not safe)) (##structure @@ -2016,7 +2016,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114277 'gxc#!alias::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2024,7 +2024,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114277 '!alias '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2032,26 +2032,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114277 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114522 - (let ((__tmp114523 |gxc[1]#_g114524_|)) + (let ((__tmp114519 + (let ((__tmp114520 |gxc[1]#_g114521_|)) (declare (not safe)) - (cons __tmp114523 '())))) + (cons __tmp114520 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114522 + __obj114277 + __tmp114519 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114277 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2059,7 +2059,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114277 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2067,7 +2067,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114277 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2075,94 +2075,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114277 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114525 |gxc[1]#_g114526_|)) + (let ((__tmp114522 |gxc[1]#_g114523_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114525 + __obj114277 + __tmp114522 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114527 |gxc[1]#_g114528_|)) + (let ((__tmp114524 |gxc[1]#_g114525_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114527 + __obj114277 + __tmp114524 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114529 |gxc[1]#_g114530_|)) + (let ((__tmp114526 |gxc[1]#_g114527_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114529 + __obj114277 + __tmp114526 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114531 - (let ((__tmp114532 - (let ((__tmp114533 |gxc[1]#_g114534_|)) + (let ((__tmp114528 + (let ((__tmp114529 + (let ((__tmp114530 |gxc[1]#_g114531_|)) (declare (not safe)) - (cons 'id __tmp114533)))) + (cons 'id __tmp114530)))) (declare (not safe)) - (cons __tmp114532 '())))) + (cons __tmp114529 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114531 + __obj114277 + __tmp114528 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114535 - (let ((__tmp114536 - (let ((__tmp114537 |gxc[1]#_g114538_|)) + (let ((__tmp114532 + (let ((__tmp114533 + (let ((__tmp114534 |gxc[1]#_g114535_|)) (declare (not safe)) - (cons 'id __tmp114537)))) + (cons 'id __tmp114534)))) (declare (not safe)) - (cons __tmp114536 '())))) + (cons __tmp114533 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114535 + __obj114277 + __tmp114532 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114539 - (let ((__tmp114540 - (let ((__tmp114541 |gxc[1]#_g114542_|)) + (let ((__tmp114536 + (let ((__tmp114537 + (let ((__tmp114538 |gxc[1]#_g114539_|)) (declare (not safe)) - (cons 'id __tmp114541)))) + (cons 'id __tmp114538)))) (declare (not safe)) - (cons __tmp114540 '())))) + (cons __tmp114537 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114539 + __obj114277 + __tmp114536 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114543 - (let ((__tmp114544 - (let ((__tmp114545 |gxc[1]#_g114546_|)) + (let ((__tmp114540 + (let ((__tmp114541 + (let ((__tmp114542 |gxc[1]#_g114543_|)) (declare (not safe)) - (cons 'id __tmp114545)))) + (cons 'id __tmp114542)))) (declare (not safe)) - (cons __tmp114544 '())))) + (cons __tmp114541 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114543 + __obj114277 + __tmp114540 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114280)) + __obj114277)) (define |gxc[:0:]#!procedure| - (let ((__obj114281 + (let ((__obj114278 (let () (declare (not safe)) (##structure @@ -2185,7 +2185,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114278 'gxc#!procedure::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2193,7 +2193,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114278 '!procedure '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2201,26 +2201,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114278 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114547 - (let ((__tmp114548 |gxc[1]#_g114524_|)) + (let ((__tmp114544 + (let ((__tmp114545 |gxc[1]#_g114521_|)) (declare (not safe)) - (cons __tmp114548 '())))) + (cons __tmp114545 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114547 + __obj114278 + __tmp114544 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114278 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2228,7 +2228,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114278 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2236,7 +2236,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114278 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2244,94 +2244,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114278 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114549 |gxc[1]#_g114550_|)) + (let ((__tmp114546 |gxc[1]#_g114547_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114549 + __obj114278 + __tmp114546 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114551 |gxc[1]#_g114552_|)) + (let ((__tmp114548 |gxc[1]#_g114549_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114551 + __obj114278 + __tmp114548 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114553 |gxc[1]#_g114554_|)) + (let ((__tmp114550 |gxc[1]#_g114551_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114553 + __obj114278 + __tmp114550 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114555 - (let ((__tmp114556 - (let ((__tmp114557 |gxc[1]#_g114558_|)) + (let ((__tmp114552 + (let ((__tmp114553 + (let ((__tmp114554 |gxc[1]#_g114555_|)) (declare (not safe)) - (cons 'id __tmp114557)))) + (cons 'id __tmp114554)))) (declare (not safe)) - (cons __tmp114556 '())))) + (cons __tmp114553 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114555 + __obj114278 + __tmp114552 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114559 - (let ((__tmp114560 - (let ((__tmp114561 |gxc[1]#_g114562_|)) + (let ((__tmp114556 + (let ((__tmp114557 + (let ((__tmp114558 |gxc[1]#_g114559_|)) (declare (not safe)) - (cons 'id __tmp114561)))) + (cons 'id __tmp114558)))) (declare (not safe)) - (cons __tmp114560 '())))) + (cons __tmp114557 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114559 + __obj114278 + __tmp114556 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114563 - (let ((__tmp114564 - (let ((__tmp114565 |gxc[1]#_g114566_|)) + (let ((__tmp114560 + (let ((__tmp114561 + (let ((__tmp114562 |gxc[1]#_g114563_|)) (declare (not safe)) - (cons 'id __tmp114565)))) + (cons 'id __tmp114562)))) (declare (not safe)) - (cons __tmp114564 '())))) + (cons __tmp114561 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114563 + __obj114278 + __tmp114560 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114567 - (let ((__tmp114568 - (let ((__tmp114569 |gxc[1]#_g114570_|)) + (let ((__tmp114564 + (let ((__tmp114565 + (let ((__tmp114566 |gxc[1]#_g114567_|)) (declare (not safe)) - (cons 'id __tmp114569)))) + (cons 'id __tmp114566)))) (declare (not safe)) - (cons __tmp114568 '())))) + (cons __tmp114565 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114567 + __obj114278 + __tmp114564 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114281)) + __obj114278)) (define |gxc[:0:]#!class| - (let ((__obj114282 + (let ((__obj114279 (let () (declare (not safe)) (##structure @@ -2354,7 +2354,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114279 'gxc#!class::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2362,7 +2362,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114279 '!class '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2370,7 +2370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114279 '(super precedence-list slots fields @@ -2382,21 +2382,21 @@ '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114571 - (let ((__tmp114572 |gxc[1]#_g114524_|)) + (let ((__tmp114568 + (let ((__tmp114569 |gxc[1]#_g114521_|)) (declare (not safe)) - (cons __tmp114572 '())))) + (cons __tmp114569 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114571 + __obj114279 + __tmp114568 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114279 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2404,7 +2404,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114279 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2412,7 +2412,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114279 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2420,382 +2420,382 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114279 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114573 |gxc[1]#_g114574_|)) + (let ((__tmp114570 |gxc[1]#_g114571_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114573 + __obj114279 + __tmp114570 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114575 |gxc[1]#_g114576_|)) + (let ((__tmp114572 |gxc[1]#_g114573_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114575 + __obj114279 + __tmp114572 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114577 |gxc[1]#_g114578_|)) + (let ((__tmp114574 |gxc[1]#_g114575_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114577 + __obj114279 + __tmp114574 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114579 - (let ((__tmp114616 - (let ((__tmp114617 |gxc[1]#_g114618_|)) + (let ((__tmp114576 + (let ((__tmp114613 + (let ((__tmp114614 |gxc[1]#_g114615_|)) (declare (not safe)) - (cons 'super __tmp114617))) - (__tmp114580 - (let ((__tmp114613 - (let ((__tmp114614 |gxc[1]#_g114615_|)) + (cons 'super __tmp114614))) + (__tmp114577 + (let ((__tmp114610 + (let ((__tmp114611 |gxc[1]#_g114612_|)) (declare (not safe)) - (cons 'precedence-list __tmp114614))) - (__tmp114581 - (let ((__tmp114610 - (let ((__tmp114611 |gxc[1]#_g114612_|)) + (cons 'precedence-list __tmp114611))) + (__tmp114578 + (let ((__tmp114607 + (let ((__tmp114608 |gxc[1]#_g114609_|)) (declare (not safe)) - (cons 'slots __tmp114611))) - (__tmp114582 - (let ((__tmp114607 - (let ((__tmp114608 - |gxc[1]#_g114609_|)) + (cons 'slots __tmp114608))) + (__tmp114579 + (let ((__tmp114604 + (let ((__tmp114605 + |gxc[1]#_g114606_|)) (declare (not safe)) - (cons 'fields __tmp114608))) - (__tmp114583 - (let ((__tmp114604 - (let ((__tmp114605 - |gxc[1]#_g114606_|)) + (cons 'fields __tmp114605))) + (__tmp114580 + (let ((__tmp114601 + (let ((__tmp114602 + |gxc[1]#_g114603_|)) (declare (not safe)) (cons 'constructor - __tmp114605))) - (__tmp114584 - (let ((__tmp114601 - (let ((__tmp114602 - |gxc[1]#_g114603_|)) + __tmp114602))) + (__tmp114581 + (let ((__tmp114598 + (let ((__tmp114599 + |gxc[1]#_g114600_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp114602))) - (__tmp114585 - (let ((__tmp114598 - (let ((__tmp114599 |gxc[1]#_g114600_|)) + __tmp114599))) + (__tmp114582 + (let ((__tmp114595 + (let ((__tmp114596 |gxc[1]#_g114597_|)) (declare (not safe)) - (cons 'final? __tmp114599))) - (__tmp114586 - (let ((__tmp114595 - (let ((__tmp114596 |gxc[1]#_g114597_|)) + (cons 'final? __tmp114596))) + (__tmp114583 + (let ((__tmp114592 + (let ((__tmp114593 |gxc[1]#_g114594_|)) (declare (not safe)) - (cons 'metaclass __tmp114596))) - (__tmp114587 - (let ((__tmp114592 - (let ((__tmp114593 |gxc[1]#_g114594_|)) + (cons 'metaclass __tmp114593))) + (__tmp114584 + (let ((__tmp114589 + (let ((__tmp114590 |gxc[1]#_g114591_|)) (declare (not safe)) - (cons 'methods __tmp114593))) - (__tmp114588 - (let ((__tmp114589 - (let ((__tmp114590 - |gxc[1]#_g114591_|)) + (cons 'methods __tmp114590))) + (__tmp114585 + (let ((__tmp114586 + (let ((__tmp114587 + |gxc[1]#_g114588_|)) (declare (not safe)) - (cons 'id __tmp114590)))) + (cons 'id __tmp114587)))) (declare (not safe)) - (cons __tmp114589 '())))) + (cons __tmp114586 '())))) (declare (not safe)) - (cons __tmp114592 __tmp114588)))) + (cons __tmp114589 __tmp114585)))) (declare (not safe)) - (cons __tmp114595 __tmp114587)))) + (cons __tmp114592 __tmp114584)))) (declare (not safe)) - (cons __tmp114598 __tmp114586)))) + (cons __tmp114595 __tmp114583)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114601 - __tmp114585)))) + (cons __tmp114598 + __tmp114582)))) (declare (not safe)) - (cons __tmp114604 __tmp114584)))) + (cons __tmp114601 __tmp114581)))) (declare (not safe)) - (cons __tmp114607 __tmp114583)))) + (cons __tmp114604 __tmp114580)))) (declare (not safe)) - (cons __tmp114610 __tmp114582)))) + (cons __tmp114607 __tmp114579)))) (declare (not safe)) - (cons __tmp114613 __tmp114581)))) + (cons __tmp114610 __tmp114578)))) (declare (not safe)) - (cons __tmp114616 __tmp114580)))) + (cons __tmp114613 __tmp114577)))) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114579 + __obj114279 + __tmp114576 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114619 - (let ((__tmp114656 - (let ((__tmp114657 |gxc[1]#_g114658_|)) + (let ((__tmp114616 + (let ((__tmp114653 + (let ((__tmp114654 |gxc[1]#_g114655_|)) (declare (not safe)) - (cons 'super __tmp114657))) - (__tmp114620 - (let ((__tmp114653 - (let ((__tmp114654 |gxc[1]#_g114655_|)) + (cons 'super __tmp114654))) + (__tmp114617 + (let ((__tmp114650 + (let ((__tmp114651 |gxc[1]#_g114652_|)) (declare (not safe)) - (cons 'precedence-list __tmp114654))) - (__tmp114621 - (let ((__tmp114650 - (let ((__tmp114651 |gxc[1]#_g114652_|)) + (cons 'precedence-list __tmp114651))) + (__tmp114618 + (let ((__tmp114647 + (let ((__tmp114648 |gxc[1]#_g114649_|)) (declare (not safe)) - (cons 'slots __tmp114651))) - (__tmp114622 - (let ((__tmp114647 - (let ((__tmp114648 - |gxc[1]#_g114649_|)) + (cons 'slots __tmp114648))) + (__tmp114619 + (let ((__tmp114644 + (let ((__tmp114645 + |gxc[1]#_g114646_|)) (declare (not safe)) - (cons 'fields __tmp114648))) - (__tmp114623 - (let ((__tmp114644 - (let ((__tmp114645 - |gxc[1]#_g114646_|)) + (cons 'fields __tmp114645))) + (__tmp114620 + (let ((__tmp114641 + (let ((__tmp114642 + |gxc[1]#_g114643_|)) (declare (not safe)) (cons 'constructor - __tmp114645))) - (__tmp114624 - (let ((__tmp114641 - (let ((__tmp114642 - |gxc[1]#_g114643_|)) + __tmp114642))) + (__tmp114621 + (let ((__tmp114638 + (let ((__tmp114639 + |gxc[1]#_g114640_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp114642))) - (__tmp114625 - (let ((__tmp114638 - (let ((__tmp114639 |gxc[1]#_g114640_|)) + __tmp114639))) + (__tmp114622 + (let ((__tmp114635 + (let ((__tmp114636 |gxc[1]#_g114637_|)) (declare (not safe)) - (cons 'final? __tmp114639))) - (__tmp114626 - (let ((__tmp114635 - (let ((__tmp114636 |gxc[1]#_g114637_|)) + (cons 'final? __tmp114636))) + (__tmp114623 + (let ((__tmp114632 + (let ((__tmp114633 |gxc[1]#_g114634_|)) (declare (not safe)) - (cons 'metaclass __tmp114636))) - (__tmp114627 - (let ((__tmp114632 - (let ((__tmp114633 |gxc[1]#_g114634_|)) + (cons 'metaclass __tmp114633))) + (__tmp114624 + (let ((__tmp114629 + (let ((__tmp114630 |gxc[1]#_g114631_|)) (declare (not safe)) - (cons 'methods __tmp114633))) - (__tmp114628 - (let ((__tmp114629 - (let ((__tmp114630 - |gxc[1]#_g114631_|)) + (cons 'methods __tmp114630))) + (__tmp114625 + (let ((__tmp114626 + (let ((__tmp114627 + |gxc[1]#_g114628_|)) (declare (not safe)) - (cons 'id __tmp114630)))) + (cons 'id __tmp114627)))) (declare (not safe)) - (cons __tmp114629 '())))) + (cons __tmp114626 '())))) (declare (not safe)) - (cons __tmp114632 __tmp114628)))) + (cons __tmp114629 __tmp114625)))) (declare (not safe)) - (cons __tmp114635 __tmp114627)))) + (cons __tmp114632 __tmp114624)))) (declare (not safe)) - (cons __tmp114638 __tmp114626)))) + (cons __tmp114635 __tmp114623)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114641 - __tmp114625)))) + (cons __tmp114638 + __tmp114622)))) (declare (not safe)) - (cons __tmp114644 __tmp114624)))) + (cons __tmp114641 __tmp114621)))) (declare (not safe)) - (cons __tmp114647 __tmp114623)))) + (cons __tmp114644 __tmp114620)))) (declare (not safe)) - (cons __tmp114650 __tmp114622)))) + (cons __tmp114647 __tmp114619)))) (declare (not safe)) - (cons __tmp114653 __tmp114621)))) + (cons __tmp114650 __tmp114618)))) (declare (not safe)) - (cons __tmp114656 __tmp114620)))) + (cons __tmp114653 __tmp114617)))) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114619 + __obj114279 + __tmp114616 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114659 - (let ((__tmp114696 - (let ((__tmp114697 |gxc[1]#_g114698_|)) + (let ((__tmp114656 + (let ((__tmp114693 + (let ((__tmp114694 |gxc[1]#_g114695_|)) (declare (not safe)) - (cons 'super __tmp114697))) - (__tmp114660 - (let ((__tmp114693 - (let ((__tmp114694 |gxc[1]#_g114695_|)) + (cons 'super __tmp114694))) + (__tmp114657 + (let ((__tmp114690 + (let ((__tmp114691 |gxc[1]#_g114692_|)) (declare (not safe)) - (cons 'precedence-list __tmp114694))) - (__tmp114661 - (let ((__tmp114690 - (let ((__tmp114691 |gxc[1]#_g114692_|)) + (cons 'precedence-list __tmp114691))) + (__tmp114658 + (let ((__tmp114687 + (let ((__tmp114688 |gxc[1]#_g114689_|)) (declare (not safe)) - (cons 'slots __tmp114691))) - (__tmp114662 - (let ((__tmp114687 - (let ((__tmp114688 - |gxc[1]#_g114689_|)) + (cons 'slots __tmp114688))) + (__tmp114659 + (let ((__tmp114684 + (let ((__tmp114685 + |gxc[1]#_g114686_|)) (declare (not safe)) - (cons 'fields __tmp114688))) - (__tmp114663 - (let ((__tmp114684 - (let ((__tmp114685 - |gxc[1]#_g114686_|)) + (cons 'fields __tmp114685))) + (__tmp114660 + (let ((__tmp114681 + (let ((__tmp114682 + |gxc[1]#_g114683_|)) (declare (not safe)) (cons 'constructor - __tmp114685))) - (__tmp114664 - (let ((__tmp114681 - (let ((__tmp114682 - |gxc[1]#_g114683_|)) + __tmp114682))) + (__tmp114661 + (let ((__tmp114678 + (let ((__tmp114679 + |gxc[1]#_g114680_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp114682))) - (__tmp114665 - (let ((__tmp114678 - (let ((__tmp114679 |gxc[1]#_g114680_|)) + __tmp114679))) + (__tmp114662 + (let ((__tmp114675 + (let ((__tmp114676 |gxc[1]#_g114677_|)) (declare (not safe)) - (cons 'final? __tmp114679))) - (__tmp114666 - (let ((__tmp114675 - (let ((__tmp114676 |gxc[1]#_g114677_|)) + (cons 'final? __tmp114676))) + (__tmp114663 + (let ((__tmp114672 + (let ((__tmp114673 |gxc[1]#_g114674_|)) (declare (not safe)) - (cons 'metaclass __tmp114676))) - (__tmp114667 - (let ((__tmp114672 - (let ((__tmp114673 |gxc[1]#_g114674_|)) + (cons 'metaclass __tmp114673))) + (__tmp114664 + (let ((__tmp114669 + (let ((__tmp114670 |gxc[1]#_g114671_|)) (declare (not safe)) - (cons 'methods __tmp114673))) - (__tmp114668 - (let ((__tmp114669 - (let ((__tmp114670 - |gxc[1]#_g114671_|)) + (cons 'methods __tmp114670))) + (__tmp114665 + (let ((__tmp114666 + (let ((__tmp114667 + |gxc[1]#_g114668_|)) (declare (not safe)) - (cons 'id __tmp114670)))) + (cons 'id __tmp114667)))) (declare (not safe)) - (cons __tmp114669 '())))) + (cons __tmp114666 '())))) (declare (not safe)) - (cons __tmp114672 __tmp114668)))) + (cons __tmp114669 __tmp114665)))) (declare (not safe)) - (cons __tmp114675 __tmp114667)))) + (cons __tmp114672 __tmp114664)))) (declare (not safe)) - (cons __tmp114678 __tmp114666)))) + (cons __tmp114675 __tmp114663)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114681 - __tmp114665)))) + (cons __tmp114678 + __tmp114662)))) (declare (not safe)) - (cons __tmp114684 __tmp114664)))) + (cons __tmp114681 __tmp114661)))) (declare (not safe)) - (cons __tmp114687 __tmp114663)))) + (cons __tmp114684 __tmp114660)))) (declare (not safe)) - (cons __tmp114690 __tmp114662)))) + (cons __tmp114687 __tmp114659)))) (declare (not safe)) - (cons __tmp114693 __tmp114661)))) + (cons __tmp114690 __tmp114658)))) (declare (not safe)) - (cons __tmp114696 __tmp114660)))) + (cons __tmp114693 __tmp114657)))) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114659 + __obj114279 + __tmp114656 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114699 - (let ((__tmp114736 - (let ((__tmp114737 |gxc[1]#_g114738_|)) + (let ((__tmp114696 + (let ((__tmp114733 + (let ((__tmp114734 |gxc[1]#_g114735_|)) (declare (not safe)) - (cons 'super __tmp114737))) - (__tmp114700 - (let ((__tmp114733 - (let ((__tmp114734 |gxc[1]#_g114735_|)) + (cons 'super __tmp114734))) + (__tmp114697 + (let ((__tmp114730 + (let ((__tmp114731 |gxc[1]#_g114732_|)) (declare (not safe)) - (cons 'precedence-list __tmp114734))) - (__tmp114701 - (let ((__tmp114730 - (let ((__tmp114731 |gxc[1]#_g114732_|)) + (cons 'precedence-list __tmp114731))) + (__tmp114698 + (let ((__tmp114727 + (let ((__tmp114728 |gxc[1]#_g114729_|)) (declare (not safe)) - (cons 'slots __tmp114731))) - (__tmp114702 - (let ((__tmp114727 - (let ((__tmp114728 - |gxc[1]#_g114729_|)) + (cons 'slots __tmp114728))) + (__tmp114699 + (let ((__tmp114724 + (let ((__tmp114725 + |gxc[1]#_g114726_|)) (declare (not safe)) - (cons 'fields __tmp114728))) - (__tmp114703 - (let ((__tmp114724 - (let ((__tmp114725 - |gxc[1]#_g114726_|)) + (cons 'fields __tmp114725))) + (__tmp114700 + (let ((__tmp114721 + (let ((__tmp114722 + |gxc[1]#_g114723_|)) (declare (not safe)) (cons 'constructor - __tmp114725))) - (__tmp114704 - (let ((__tmp114721 - (let ((__tmp114722 - |gxc[1]#_g114723_|)) + __tmp114722))) + (__tmp114701 + (let ((__tmp114718 + (let ((__tmp114719 + |gxc[1]#_g114720_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp114722))) - (__tmp114705 - (let ((__tmp114718 - (let ((__tmp114719 |gxc[1]#_g114720_|)) + __tmp114719))) + (__tmp114702 + (let ((__tmp114715 + (let ((__tmp114716 |gxc[1]#_g114717_|)) (declare (not safe)) - (cons 'final? __tmp114719))) - (__tmp114706 - (let ((__tmp114715 - (let ((__tmp114716 |gxc[1]#_g114717_|)) + (cons 'final? __tmp114716))) + (__tmp114703 + (let ((__tmp114712 + (let ((__tmp114713 |gxc[1]#_g114714_|)) (declare (not safe)) - (cons 'metaclass __tmp114716))) - (__tmp114707 - (let ((__tmp114712 - (let ((__tmp114713 |gxc[1]#_g114714_|)) + (cons 'metaclass __tmp114713))) + (__tmp114704 + (let ((__tmp114709 + (let ((__tmp114710 |gxc[1]#_g114711_|)) (declare (not safe)) - (cons 'methods __tmp114713))) - (__tmp114708 - (let ((__tmp114709 - (let ((__tmp114710 - |gxc[1]#_g114711_|)) + (cons 'methods __tmp114710))) + (__tmp114705 + (let ((__tmp114706 + (let ((__tmp114707 + |gxc[1]#_g114708_|)) (declare (not safe)) - (cons 'id __tmp114710)))) + (cons 'id __tmp114707)))) (declare (not safe)) - (cons __tmp114709 '())))) + (cons __tmp114706 '())))) (declare (not safe)) - (cons __tmp114712 __tmp114708)))) + (cons __tmp114709 __tmp114705)))) (declare (not safe)) - (cons __tmp114715 __tmp114707)))) + (cons __tmp114712 __tmp114704)))) (declare (not safe)) - (cons __tmp114718 __tmp114706)))) + (cons __tmp114715 __tmp114703)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114721 - __tmp114705)))) + (cons __tmp114718 + __tmp114702)))) (declare (not safe)) - (cons __tmp114724 __tmp114704)))) + (cons __tmp114721 __tmp114701)))) (declare (not safe)) - (cons __tmp114727 __tmp114703)))) + (cons __tmp114724 __tmp114700)))) (declare (not safe)) - (cons __tmp114730 __tmp114702)))) + (cons __tmp114727 __tmp114699)))) (declare (not safe)) - (cons __tmp114733 __tmp114701)))) + (cons __tmp114730 __tmp114698)))) (declare (not safe)) - (cons __tmp114736 __tmp114700)))) + (cons __tmp114733 __tmp114697)))) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114699 + __obj114279 + __tmp114696 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114282)) + __obj114279)) (define |gxc[:0:]#!predicate| - (let ((__obj114283 + (let ((__obj114280 (let () (declare (not safe)) (##structure @@ -2818,7 +2818,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114280 'gxc#!predicate::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2826,7 +2826,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114280 '!predicate '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2834,26 +2834,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114280 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114739 - (let ((__tmp114740 |gxc[1]#_g114741_|)) + (let ((__tmp114736 + (let ((__tmp114737 |gxc[1]#_g114738_|)) (declare (not safe)) - (cons __tmp114740 '())))) + (cons __tmp114737 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114739 + __obj114280 + __tmp114736 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114280 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2861,7 +2861,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114280 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2869,7 +2869,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114280 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2877,94 +2877,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114280 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114742 |gxc[1]#_g114743_|)) + (let ((__tmp114739 |gxc[1]#_g114740_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114742 + __obj114280 + __tmp114739 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114744 |gxc[1]#_g114745_|)) + (let ((__tmp114741 |gxc[1]#_g114742_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114744 + __obj114280 + __tmp114741 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114746 |gxc[1]#_g114747_|)) + (let ((__tmp114743 |gxc[1]#_g114744_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114746 + __obj114280 + __tmp114743 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114748 - (let ((__tmp114749 - (let ((__tmp114750 |gxc[1]#_g114751_|)) + (let ((__tmp114745 + (let ((__tmp114746 + (let ((__tmp114747 |gxc[1]#_g114748_|)) (declare (not safe)) - (cons 'id __tmp114750)))) + (cons 'id __tmp114747)))) (declare (not safe)) - (cons __tmp114749 '())))) + (cons __tmp114746 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114748 + __obj114280 + __tmp114745 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114752 - (let ((__tmp114753 - (let ((__tmp114754 |gxc[1]#_g114755_|)) + (let ((__tmp114749 + (let ((__tmp114750 + (let ((__tmp114751 |gxc[1]#_g114752_|)) (declare (not safe)) - (cons 'id __tmp114754)))) + (cons 'id __tmp114751)))) (declare (not safe)) - (cons __tmp114753 '())))) + (cons __tmp114750 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114752 + __obj114280 + __tmp114749 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114756 - (let ((__tmp114757 - (let ((__tmp114758 |gxc[1]#_g114759_|)) + (let ((__tmp114753 + (let ((__tmp114754 + (let ((__tmp114755 |gxc[1]#_g114756_|)) (declare (not safe)) - (cons 'id __tmp114758)))) + (cons 'id __tmp114755)))) (declare (not safe)) - (cons __tmp114757 '())))) + (cons __tmp114754 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114756 + __obj114280 + __tmp114753 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114760 - (let ((__tmp114761 - (let ((__tmp114762 |gxc[1]#_g114763_|)) + (let ((__tmp114757 + (let ((__tmp114758 + (let ((__tmp114759 |gxc[1]#_g114760_|)) (declare (not safe)) - (cons 'id __tmp114762)))) + (cons 'id __tmp114759)))) (declare (not safe)) - (cons __tmp114761 '())))) + (cons __tmp114758 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114760 + __obj114280 + __tmp114757 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114283)) + __obj114280)) (define |gxc[:0:]#!constructor| - (let ((__obj114284 + (let ((__obj114281 (let () (declare (not safe)) (##structure @@ -2987,7 +2987,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114281 'gxc#!constructor::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2995,7 +2995,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114281 '!constructor '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3003,26 +3003,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114281 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114764 - (let ((__tmp114765 |gxc[1]#_g114741_|)) + (let ((__tmp114761 + (let ((__tmp114762 |gxc[1]#_g114738_|)) (declare (not safe)) - (cons __tmp114765 '())))) + (cons __tmp114762 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114764 + __obj114281 + __tmp114761 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114281 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3030,7 +3030,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114281 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3038,7 +3038,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114281 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3046,94 +3046,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114281 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114766 |gxc[1]#_g114767_|)) + (let ((__tmp114763 |gxc[1]#_g114764_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114766 + __obj114281 + __tmp114763 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114768 |gxc[1]#_g114769_|)) + (let ((__tmp114765 |gxc[1]#_g114766_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114768 + __obj114281 + __tmp114765 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114770 |gxc[1]#_g114771_|)) + (let ((__tmp114767 |gxc[1]#_g114768_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114770 + __obj114281 + __tmp114767 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114772 - (let ((__tmp114773 - (let ((__tmp114774 |gxc[1]#_g114775_|)) + (let ((__tmp114769 + (let ((__tmp114770 + (let ((__tmp114771 |gxc[1]#_g114772_|)) (declare (not safe)) - (cons 'id __tmp114774)))) + (cons 'id __tmp114771)))) (declare (not safe)) - (cons __tmp114773 '())))) + (cons __tmp114770 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114772 + __obj114281 + __tmp114769 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114776 - (let ((__tmp114777 - (let ((__tmp114778 |gxc[1]#_g114779_|)) + (let ((__tmp114773 + (let ((__tmp114774 + (let ((__tmp114775 |gxc[1]#_g114776_|)) (declare (not safe)) - (cons 'id __tmp114778)))) + (cons 'id __tmp114775)))) (declare (not safe)) - (cons __tmp114777 '())))) + (cons __tmp114774 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114776 + __obj114281 + __tmp114773 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114780 - (let ((__tmp114781 - (let ((__tmp114782 |gxc[1]#_g114783_|)) + (let ((__tmp114777 + (let ((__tmp114778 + (let ((__tmp114779 |gxc[1]#_g114780_|)) (declare (not safe)) - (cons 'id __tmp114782)))) + (cons 'id __tmp114779)))) (declare (not safe)) - (cons __tmp114781 '())))) + (cons __tmp114778 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114780 + __obj114281 + __tmp114777 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114784 - (let ((__tmp114785 - (let ((__tmp114786 |gxc[1]#_g114787_|)) + (let ((__tmp114781 + (let ((__tmp114782 + (let ((__tmp114783 |gxc[1]#_g114784_|)) (declare (not safe)) - (cons 'id __tmp114786)))) + (cons 'id __tmp114783)))) (declare (not safe)) - (cons __tmp114785 '())))) + (cons __tmp114782 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114784 + __obj114281 + __tmp114781 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114284)) + __obj114281)) (define |gxc[:0:]#!accessor| - (let ((__obj114285 + (let ((__obj114282 (let () (declare (not safe)) (##structure @@ -3156,7 +3156,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114282 'gxc#!accessor::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3164,7 +3164,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114282 '!accessor '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3172,26 +3172,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114282 '(slot checked?) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114788 - (let ((__tmp114789 |gxc[1]#_g114741_|)) + (let ((__tmp114785 + (let ((__tmp114786 |gxc[1]#_g114738_|)) (declare (not safe)) - (cons __tmp114789 '())))) + (cons __tmp114786 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114788 + __obj114282 + __tmp114785 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114282 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3199,7 +3199,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114282 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3207,7 +3207,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114282 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3215,150 +3215,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114282 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114790 |gxc[1]#_g114791_|)) + (let ((__tmp114787 |gxc[1]#_g114788_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114790 + __obj114282 + __tmp114787 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114792 |gxc[1]#_g114793_|)) + (let ((__tmp114789 |gxc[1]#_g114790_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114792 + __obj114282 + __tmp114789 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114794 |gxc[1]#_g114795_|)) + (let ((__tmp114791 |gxc[1]#_g114792_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114794 + __obj114282 + __tmp114791 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114796 - (let ((__tmp114805 - (let ((__tmp114806 |gxc[1]#_g114807_|)) + (let ((__tmp114793 + (let ((__tmp114802 + (let ((__tmp114803 |gxc[1]#_g114804_|)) (declare (not safe)) - (cons 'slot __tmp114806))) - (__tmp114797 - (let ((__tmp114802 - (let ((__tmp114803 |gxc[1]#_g114804_|)) + (cons 'slot __tmp114803))) + (__tmp114794 + (let ((__tmp114799 + (let ((__tmp114800 |gxc[1]#_g114801_|)) (declare (not safe)) - (cons 'checked? __tmp114803))) - (__tmp114798 - (let ((__tmp114799 - (let ((__tmp114800 |gxc[1]#_g114801_|)) + (cons 'checked? __tmp114800))) + (__tmp114795 + (let ((__tmp114796 + (let ((__tmp114797 |gxc[1]#_g114798_|)) (declare (not safe)) - (cons 'id __tmp114800)))) + (cons 'id __tmp114797)))) (declare (not safe)) - (cons __tmp114799 '())))) + (cons __tmp114796 '())))) (declare (not safe)) - (cons __tmp114802 __tmp114798)))) + (cons __tmp114799 __tmp114795)))) (declare (not safe)) - (cons __tmp114805 __tmp114797)))) + (cons __tmp114802 __tmp114794)))) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114796 + __obj114282 + __tmp114793 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114808 - (let ((__tmp114817 - (let ((__tmp114818 |gxc[1]#_g114819_|)) + (let ((__tmp114805 + (let ((__tmp114814 + (let ((__tmp114815 |gxc[1]#_g114816_|)) (declare (not safe)) - (cons 'slot __tmp114818))) - (__tmp114809 - (let ((__tmp114814 - (let ((__tmp114815 |gxc[1]#_g114816_|)) + (cons 'slot __tmp114815))) + (__tmp114806 + (let ((__tmp114811 + (let ((__tmp114812 |gxc[1]#_g114813_|)) (declare (not safe)) - (cons 'checked? __tmp114815))) - (__tmp114810 - (let ((__tmp114811 - (let ((__tmp114812 |gxc[1]#_g114813_|)) + (cons 'checked? __tmp114812))) + (__tmp114807 + (let ((__tmp114808 + (let ((__tmp114809 |gxc[1]#_g114810_|)) (declare (not safe)) - (cons 'id __tmp114812)))) + (cons 'id __tmp114809)))) (declare (not safe)) - (cons __tmp114811 '())))) + (cons __tmp114808 '())))) (declare (not safe)) - (cons __tmp114814 __tmp114810)))) + (cons __tmp114811 __tmp114807)))) (declare (not safe)) - (cons __tmp114817 __tmp114809)))) + (cons __tmp114814 __tmp114806)))) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114808 + __obj114282 + __tmp114805 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114820 - (let ((__tmp114829 - (let ((__tmp114830 |gxc[1]#_g114831_|)) + (let ((__tmp114817 + (let ((__tmp114826 + (let ((__tmp114827 |gxc[1]#_g114828_|)) (declare (not safe)) - (cons 'slot __tmp114830))) - (__tmp114821 - (let ((__tmp114826 - (let ((__tmp114827 |gxc[1]#_g114828_|)) + (cons 'slot __tmp114827))) + (__tmp114818 + (let ((__tmp114823 + (let ((__tmp114824 |gxc[1]#_g114825_|)) (declare (not safe)) - (cons 'checked? __tmp114827))) - (__tmp114822 - (let ((__tmp114823 - (let ((__tmp114824 |gxc[1]#_g114825_|)) + (cons 'checked? __tmp114824))) + (__tmp114819 + (let ((__tmp114820 + (let ((__tmp114821 |gxc[1]#_g114822_|)) (declare (not safe)) - (cons 'id __tmp114824)))) + (cons 'id __tmp114821)))) (declare (not safe)) - (cons __tmp114823 '())))) + (cons __tmp114820 '())))) (declare (not safe)) - (cons __tmp114826 __tmp114822)))) + (cons __tmp114823 __tmp114819)))) (declare (not safe)) - (cons __tmp114829 __tmp114821)))) + (cons __tmp114826 __tmp114818)))) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114820 + __obj114282 + __tmp114817 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114832 - (let ((__tmp114841 - (let ((__tmp114842 |gxc[1]#_g114843_|)) + (let ((__tmp114829 + (let ((__tmp114838 + (let ((__tmp114839 |gxc[1]#_g114840_|)) (declare (not safe)) - (cons 'slot __tmp114842))) - (__tmp114833 - (let ((__tmp114838 - (let ((__tmp114839 |gxc[1]#_g114840_|)) + (cons 'slot __tmp114839))) + (__tmp114830 + (let ((__tmp114835 + (let ((__tmp114836 |gxc[1]#_g114837_|)) (declare (not safe)) - (cons 'checked? __tmp114839))) - (__tmp114834 - (let ((__tmp114835 - (let ((__tmp114836 |gxc[1]#_g114837_|)) + (cons 'checked? __tmp114836))) + (__tmp114831 + (let ((__tmp114832 + (let ((__tmp114833 |gxc[1]#_g114834_|)) (declare (not safe)) - (cons 'id __tmp114836)))) + (cons 'id __tmp114833)))) (declare (not safe)) - (cons __tmp114835 '())))) + (cons __tmp114832 '())))) (declare (not safe)) - (cons __tmp114838 __tmp114834)))) + (cons __tmp114835 __tmp114831)))) (declare (not safe)) - (cons __tmp114841 __tmp114833)))) + (cons __tmp114838 __tmp114830)))) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114832 + __obj114282 + __tmp114829 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114285)) + __obj114282)) (define |gxc[:0:]#!mutator| - (let ((__obj114286 + (let ((__obj114283 (let () (declare (not safe)) (##structure @@ -3381,7 +3381,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114283 'gxc#!mutator::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3389,7 +3389,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114283 '!mutator '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3397,26 +3397,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114283 '(slot checked?) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114844 - (let ((__tmp114845 |gxc[1]#_g114741_|)) + (let ((__tmp114841 + (let ((__tmp114842 |gxc[1]#_g114738_|)) (declare (not safe)) - (cons __tmp114845 '())))) + (cons __tmp114842 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp114844 + __obj114283 + __tmp114841 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114283 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3424,7 +3424,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114283 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3432,7 +3432,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114283 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3440,150 +3440,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114283 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114846 |gxc[1]#_g114847_|)) + (let ((__tmp114843 |gxc[1]#_g114844_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp114846 + __obj114283 + __tmp114843 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114848 |gxc[1]#_g114849_|)) + (let ((__tmp114845 |gxc[1]#_g114846_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp114848 + __obj114283 + __tmp114845 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114850 |gxc[1]#_g114851_|)) + (let ((__tmp114847 |gxc[1]#_g114848_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp114850 + __obj114283 + __tmp114847 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114852 - (let ((__tmp114861 - (let ((__tmp114862 |gxc[1]#_g114863_|)) + (let ((__tmp114849 + (let ((__tmp114858 + (let ((__tmp114859 |gxc[1]#_g114860_|)) (declare (not safe)) - (cons 'slot __tmp114862))) - (__tmp114853 - (let ((__tmp114858 - (let ((__tmp114859 |gxc[1]#_g114860_|)) + (cons 'slot __tmp114859))) + (__tmp114850 + (let ((__tmp114855 + (let ((__tmp114856 |gxc[1]#_g114857_|)) (declare (not safe)) - (cons 'checked? __tmp114859))) - (__tmp114854 - (let ((__tmp114855 - (let ((__tmp114856 |gxc[1]#_g114857_|)) + (cons 'checked? __tmp114856))) + (__tmp114851 + (let ((__tmp114852 + (let ((__tmp114853 |gxc[1]#_g114854_|)) (declare (not safe)) - (cons 'id __tmp114856)))) + (cons 'id __tmp114853)))) (declare (not safe)) - (cons __tmp114855 '())))) + (cons __tmp114852 '())))) (declare (not safe)) - (cons __tmp114858 __tmp114854)))) + (cons __tmp114855 __tmp114851)))) (declare (not safe)) - (cons __tmp114861 __tmp114853)))) + (cons __tmp114858 __tmp114850)))) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp114852 + __obj114283 + __tmp114849 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114864 - (let ((__tmp114873 - (let ((__tmp114874 |gxc[1]#_g114875_|)) + (let ((__tmp114861 + (let ((__tmp114870 + (let ((__tmp114871 |gxc[1]#_g114872_|)) (declare (not safe)) - (cons 'slot __tmp114874))) - (__tmp114865 - (let ((__tmp114870 - (let ((__tmp114871 |gxc[1]#_g114872_|)) + (cons 'slot __tmp114871))) + (__tmp114862 + (let ((__tmp114867 + (let ((__tmp114868 |gxc[1]#_g114869_|)) (declare (not safe)) - (cons 'checked? __tmp114871))) - (__tmp114866 - (let ((__tmp114867 - (let ((__tmp114868 |gxc[1]#_g114869_|)) + (cons 'checked? __tmp114868))) + (__tmp114863 + (let ((__tmp114864 + (let ((__tmp114865 |gxc[1]#_g114866_|)) (declare (not safe)) - (cons 'id __tmp114868)))) + (cons 'id __tmp114865)))) (declare (not safe)) - (cons __tmp114867 '())))) + (cons __tmp114864 '())))) (declare (not safe)) - (cons __tmp114870 __tmp114866)))) + (cons __tmp114867 __tmp114863)))) (declare (not safe)) - (cons __tmp114873 __tmp114865)))) + (cons __tmp114870 __tmp114862)))) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp114864 + __obj114283 + __tmp114861 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114876 - (let ((__tmp114885 - (let ((__tmp114886 |gxc[1]#_g114887_|)) + (let ((__tmp114873 + (let ((__tmp114882 + (let ((__tmp114883 |gxc[1]#_g114884_|)) (declare (not safe)) - (cons 'slot __tmp114886))) - (__tmp114877 - (let ((__tmp114882 - (let ((__tmp114883 |gxc[1]#_g114884_|)) + (cons 'slot __tmp114883))) + (__tmp114874 + (let ((__tmp114879 + (let ((__tmp114880 |gxc[1]#_g114881_|)) (declare (not safe)) - (cons 'checked? __tmp114883))) - (__tmp114878 - (let ((__tmp114879 - (let ((__tmp114880 |gxc[1]#_g114881_|)) + (cons 'checked? __tmp114880))) + (__tmp114875 + (let ((__tmp114876 + (let ((__tmp114877 |gxc[1]#_g114878_|)) (declare (not safe)) - (cons 'id __tmp114880)))) + (cons 'id __tmp114877)))) (declare (not safe)) - (cons __tmp114879 '())))) + (cons __tmp114876 '())))) (declare (not safe)) - (cons __tmp114882 __tmp114878)))) + (cons __tmp114879 __tmp114875)))) (declare (not safe)) - (cons __tmp114885 __tmp114877)))) + (cons __tmp114882 __tmp114874)))) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp114876 + __obj114283 + __tmp114873 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114888 - (let ((__tmp114897 - (let ((__tmp114898 |gxc[1]#_g114899_|)) + (let ((__tmp114885 + (let ((__tmp114894 + (let ((__tmp114895 |gxc[1]#_g114896_|)) (declare (not safe)) - (cons 'slot __tmp114898))) - (__tmp114889 - (let ((__tmp114894 - (let ((__tmp114895 |gxc[1]#_g114896_|)) + (cons 'slot __tmp114895))) + (__tmp114886 + (let ((__tmp114891 + (let ((__tmp114892 |gxc[1]#_g114893_|)) (declare (not safe)) - (cons 'checked? __tmp114895))) - (__tmp114890 - (let ((__tmp114891 - (let ((__tmp114892 |gxc[1]#_g114893_|)) + (cons 'checked? __tmp114892))) + (__tmp114887 + (let ((__tmp114888 + (let ((__tmp114889 |gxc[1]#_g114890_|)) (declare (not safe)) - (cons 'id __tmp114892)))) + (cons 'id __tmp114889)))) (declare (not safe)) - (cons __tmp114891 '())))) + (cons __tmp114888 '())))) (declare (not safe)) - (cons __tmp114894 __tmp114890)))) + (cons __tmp114891 __tmp114887)))) (declare (not safe)) - (cons __tmp114897 __tmp114889)))) + (cons __tmp114894 __tmp114886)))) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp114888 + __obj114283 + __tmp114885 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114286)) + __obj114283)) (define |gxc[:0:]#!lambda| - (let ((__obj114287 + (let ((__obj114284 (let () (declare (not safe)) (##structure @@ -3606,7 +3606,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114284 'gxc#!lambda::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3614,7 +3614,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114284 '!lambda '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3622,26 +3622,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114284 '(arity dispatch inline inline-typedecl) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114900 - (let ((__tmp114901 |gxc[1]#_g114741_|)) + (let ((__tmp114897 + (let ((__tmp114898 |gxc[1]#_g114738_|)) (declare (not safe)) - (cons __tmp114901 '())))) + (cons __tmp114898 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp114900 + __obj114284 + __tmp114897 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114284 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3649,7 +3649,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114284 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3657,7 +3657,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114284 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3665,218 +3665,218 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114284 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114902 |gxc[1]#_g114903_|)) + (let ((__tmp114899 |gxc[1]#_g114900_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp114902 + __obj114284 + __tmp114899 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114904 |gxc[1]#_g114905_|)) + (let ((__tmp114901 |gxc[1]#_g114902_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp114904 + __obj114284 + __tmp114901 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114906 |gxc[1]#_g114907_|)) + (let ((__tmp114903 |gxc[1]#_g114904_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp114906 + __obj114284 + __tmp114903 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114908 - (let ((__tmp114925 - (let ((__tmp114926 |gxc[1]#_g114927_|)) + (let ((__tmp114905 + (let ((__tmp114922 + (let ((__tmp114923 |gxc[1]#_g114924_|)) (declare (not safe)) - (cons 'arity __tmp114926))) - (__tmp114909 - (let ((__tmp114922 - (let ((__tmp114923 |gxc[1]#_g114924_|)) + (cons 'arity __tmp114923))) + (__tmp114906 + (let ((__tmp114919 + (let ((__tmp114920 |gxc[1]#_g114921_|)) (declare (not safe)) - (cons 'dispatch __tmp114923))) - (__tmp114910 - (let ((__tmp114919 - (let ((__tmp114920 |gxc[1]#_g114921_|)) + (cons 'dispatch __tmp114920))) + (__tmp114907 + (let ((__tmp114916 + (let ((__tmp114917 |gxc[1]#_g114918_|)) (declare (not safe)) - (cons 'inline __tmp114920))) - (__tmp114911 - (let ((__tmp114916 - (let ((__tmp114917 - |gxc[1]#_g114918_|)) + (cons 'inline __tmp114917))) + (__tmp114908 + (let ((__tmp114913 + (let ((__tmp114914 + |gxc[1]#_g114915_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp114917))) - (__tmp114912 - (let ((__tmp114913 - (let ((__tmp114914 - |gxc[1]#_g114915_|)) + __tmp114914))) + (__tmp114909 + (let ((__tmp114910 + (let ((__tmp114911 + |gxc[1]#_g114912_|)) (declare (not safe)) - (cons 'id __tmp114914)))) + (cons 'id __tmp114911)))) (declare (not safe)) - (cons __tmp114913 '())))) + (cons __tmp114910 '())))) (declare (not safe)) - (cons __tmp114916 __tmp114912)))) + (cons __tmp114913 __tmp114909)))) (declare (not safe)) - (cons __tmp114919 __tmp114911)))) + (cons __tmp114916 __tmp114908)))) (declare (not safe)) - (cons __tmp114922 __tmp114910)))) + (cons __tmp114919 __tmp114907)))) (declare (not safe)) - (cons __tmp114925 __tmp114909)))) + (cons __tmp114922 __tmp114906)))) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp114908 + __obj114284 + __tmp114905 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114928 - (let ((__tmp114945 - (let ((__tmp114946 |gxc[1]#_g114947_|)) + (let ((__tmp114925 + (let ((__tmp114942 + (let ((__tmp114943 |gxc[1]#_g114944_|)) (declare (not safe)) - (cons 'arity __tmp114946))) - (__tmp114929 - (let ((__tmp114942 - (let ((__tmp114943 |gxc[1]#_g114944_|)) + (cons 'arity __tmp114943))) + (__tmp114926 + (let ((__tmp114939 + (let ((__tmp114940 |gxc[1]#_g114941_|)) (declare (not safe)) - (cons 'dispatch __tmp114943))) - (__tmp114930 - (let ((__tmp114939 - (let ((__tmp114940 |gxc[1]#_g114941_|)) + (cons 'dispatch __tmp114940))) + (__tmp114927 + (let ((__tmp114936 + (let ((__tmp114937 |gxc[1]#_g114938_|)) (declare (not safe)) - (cons 'inline __tmp114940))) - (__tmp114931 - (let ((__tmp114936 - (let ((__tmp114937 - |gxc[1]#_g114938_|)) + (cons 'inline __tmp114937))) + (__tmp114928 + (let ((__tmp114933 + (let ((__tmp114934 + |gxc[1]#_g114935_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp114937))) - (__tmp114932 - (let ((__tmp114933 - (let ((__tmp114934 - |gxc[1]#_g114935_|)) + __tmp114934))) + (__tmp114929 + (let ((__tmp114930 + (let ((__tmp114931 + |gxc[1]#_g114932_|)) (declare (not safe)) - (cons 'id __tmp114934)))) + (cons 'id __tmp114931)))) (declare (not safe)) - (cons __tmp114933 '())))) + (cons __tmp114930 '())))) (declare (not safe)) - (cons __tmp114936 __tmp114932)))) + (cons __tmp114933 __tmp114929)))) (declare (not safe)) - (cons __tmp114939 __tmp114931)))) + (cons __tmp114936 __tmp114928)))) (declare (not safe)) - (cons __tmp114942 __tmp114930)))) + (cons __tmp114939 __tmp114927)))) (declare (not safe)) - (cons __tmp114945 __tmp114929)))) + (cons __tmp114942 __tmp114926)))) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp114928 + __obj114284 + __tmp114925 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114948 - (let ((__tmp114965 - (let ((__tmp114966 |gxc[1]#_g114967_|)) + (let ((__tmp114945 + (let ((__tmp114962 + (let ((__tmp114963 |gxc[1]#_g114964_|)) (declare (not safe)) - (cons 'arity __tmp114966))) - (__tmp114949 - (let ((__tmp114962 - (let ((__tmp114963 |gxc[1]#_g114964_|)) + (cons 'arity __tmp114963))) + (__tmp114946 + (let ((__tmp114959 + (let ((__tmp114960 |gxc[1]#_g114961_|)) (declare (not safe)) - (cons 'dispatch __tmp114963))) - (__tmp114950 - (let ((__tmp114959 - (let ((__tmp114960 |gxc[1]#_g114961_|)) + (cons 'dispatch __tmp114960))) + (__tmp114947 + (let ((__tmp114956 + (let ((__tmp114957 |gxc[1]#_g114958_|)) (declare (not safe)) - (cons 'inline __tmp114960))) - (__tmp114951 - (let ((__tmp114956 - (let ((__tmp114957 - |gxc[1]#_g114958_|)) + (cons 'inline __tmp114957))) + (__tmp114948 + (let ((__tmp114953 + (let ((__tmp114954 + |gxc[1]#_g114955_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp114957))) - (__tmp114952 - (let ((__tmp114953 - (let ((__tmp114954 - |gxc[1]#_g114955_|)) + __tmp114954))) + (__tmp114949 + (let ((__tmp114950 + (let ((__tmp114951 + |gxc[1]#_g114952_|)) (declare (not safe)) - (cons 'id __tmp114954)))) + (cons 'id __tmp114951)))) (declare (not safe)) - (cons __tmp114953 '())))) + (cons __tmp114950 '())))) (declare (not safe)) - (cons __tmp114956 __tmp114952)))) + (cons __tmp114953 __tmp114949)))) (declare (not safe)) - (cons __tmp114959 __tmp114951)))) + (cons __tmp114956 __tmp114948)))) (declare (not safe)) - (cons __tmp114962 __tmp114950)))) + (cons __tmp114959 __tmp114947)))) (declare (not safe)) - (cons __tmp114965 __tmp114949)))) + (cons __tmp114962 __tmp114946)))) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp114948 + __obj114284 + __tmp114945 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114968 - (let ((__tmp114985 - (let ((__tmp114986 |gxc[1]#_g114987_|)) + (let ((__tmp114965 + (let ((__tmp114982 + (let ((__tmp114983 |gxc[1]#_g114984_|)) (declare (not safe)) - (cons 'arity __tmp114986))) - (__tmp114969 - (let ((__tmp114982 - (let ((__tmp114983 |gxc[1]#_g114984_|)) + (cons 'arity __tmp114983))) + (__tmp114966 + (let ((__tmp114979 + (let ((__tmp114980 |gxc[1]#_g114981_|)) (declare (not safe)) - (cons 'dispatch __tmp114983))) - (__tmp114970 - (let ((__tmp114979 - (let ((__tmp114980 |gxc[1]#_g114981_|)) + (cons 'dispatch __tmp114980))) + (__tmp114967 + (let ((__tmp114976 + (let ((__tmp114977 |gxc[1]#_g114978_|)) (declare (not safe)) - (cons 'inline __tmp114980))) - (__tmp114971 - (let ((__tmp114976 - (let ((__tmp114977 - |gxc[1]#_g114978_|)) + (cons 'inline __tmp114977))) + (__tmp114968 + (let ((__tmp114973 + (let ((__tmp114974 + |gxc[1]#_g114975_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp114977))) - (__tmp114972 - (let ((__tmp114973 - (let ((__tmp114974 - |gxc[1]#_g114975_|)) + __tmp114974))) + (__tmp114969 + (let ((__tmp114970 + (let ((__tmp114971 + |gxc[1]#_g114972_|)) (declare (not safe)) - (cons 'id __tmp114974)))) + (cons 'id __tmp114971)))) (declare (not safe)) - (cons __tmp114973 '())))) + (cons __tmp114970 '())))) (declare (not safe)) - (cons __tmp114976 __tmp114972)))) + (cons __tmp114973 __tmp114969)))) (declare (not safe)) - (cons __tmp114979 __tmp114971)))) + (cons __tmp114976 __tmp114968)))) (declare (not safe)) - (cons __tmp114982 __tmp114970)))) + (cons __tmp114979 __tmp114967)))) (declare (not safe)) - (cons __tmp114985 __tmp114969)))) + (cons __tmp114982 __tmp114966)))) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp114968 + __obj114284 + __tmp114965 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114287)) + __obj114284)) (define |gxc[:0:]#!case-lambda| - (let ((__obj114288 + (let ((__obj114285 (let () (declare (not safe)) (##structure @@ -3899,7 +3899,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114285 '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! - __obj114288 + __obj114285 '!case-lambda '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3915,26 +3915,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114285 '(clauses) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114988 - (let ((__tmp114989 |gxc[1]#_g114741_|)) + (let ((__tmp114985 + (let ((__tmp114986 |gxc[1]#_g114738_|)) (declare (not safe)) - (cons __tmp114989 '())))) + (cons __tmp114986 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp114988 + __obj114285 + __tmp114985 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114285 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3942,7 +3942,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114285 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3950,7 +3950,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114285 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3958,122 +3958,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114285 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114990 |gxc[1]#_g114991_|)) + (let ((__tmp114987 |gxc[1]#_g114988_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp114990 + __obj114285 + __tmp114987 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114992 |gxc[1]#_g114993_|)) + (let ((__tmp114989 |gxc[1]#_g114990_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp114992 + __obj114285 + __tmp114989 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114994 |gxc[1]#_g114995_|)) + (let ((__tmp114991 |gxc[1]#_g114992_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp114994 + __obj114285 + __tmp114991 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114996 - (let ((__tmp115001 - (let ((__tmp115002 |gxc[1]#_g115003_|)) + (let ((__tmp114993 + (let ((__tmp114998 + (let ((__tmp114999 |gxc[1]#_g115000_|)) (declare (not safe)) - (cons 'clauses __tmp115002))) - (__tmp114997 - (let ((__tmp114998 - (let ((__tmp114999 |gxc[1]#_g115000_|)) + (cons 'clauses __tmp114999))) + (__tmp114994 + (let ((__tmp114995 + (let ((__tmp114996 |gxc[1]#_g114997_|)) (declare (not safe)) - (cons 'id __tmp114999)))) + (cons 'id __tmp114996)))) (declare (not safe)) - (cons __tmp114998 '())))) + (cons __tmp114995 '())))) (declare (not safe)) - (cons __tmp115001 __tmp114997)))) + (cons __tmp114998 __tmp114994)))) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp114996 + __obj114285 + __tmp114993 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115004 - (let ((__tmp115009 - (let ((__tmp115010 |gxc[1]#_g115011_|)) + (let ((__tmp115001 + (let ((__tmp115006 + (let ((__tmp115007 |gxc[1]#_g115008_|)) (declare (not safe)) - (cons 'clauses __tmp115010))) - (__tmp115005 - (let ((__tmp115006 - (let ((__tmp115007 |gxc[1]#_g115008_|)) + (cons 'clauses __tmp115007))) + (__tmp115002 + (let ((__tmp115003 + (let ((__tmp115004 |gxc[1]#_g115005_|)) (declare (not safe)) - (cons 'id __tmp115007)))) + (cons 'id __tmp115004)))) (declare (not safe)) - (cons __tmp115006 '())))) + (cons __tmp115003 '())))) (declare (not safe)) - (cons __tmp115009 __tmp115005)))) + (cons __tmp115006 __tmp115002)))) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp115004 + __obj114285 + __tmp115001 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115012 - (let ((__tmp115017 - (let ((__tmp115018 |gxc[1]#_g115019_|)) + (let ((__tmp115009 + (let ((__tmp115014 + (let ((__tmp115015 |gxc[1]#_g115016_|)) (declare (not safe)) - (cons 'clauses __tmp115018))) - (__tmp115013 - (let ((__tmp115014 - (let ((__tmp115015 |gxc[1]#_g115016_|)) + (cons 'clauses __tmp115015))) + (__tmp115010 + (let ((__tmp115011 + (let ((__tmp115012 |gxc[1]#_g115013_|)) (declare (not safe)) - (cons 'id __tmp115015)))) + (cons 'id __tmp115012)))) (declare (not safe)) - (cons __tmp115014 '())))) + (cons __tmp115011 '())))) (declare (not safe)) - (cons __tmp115017 __tmp115013)))) + (cons __tmp115014 __tmp115010)))) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp115012 + __obj114285 + __tmp115009 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115020 - (let ((__tmp115025 - (let ((__tmp115026 |gxc[1]#_g115027_|)) + (let ((__tmp115017 + (let ((__tmp115022 + (let ((__tmp115023 |gxc[1]#_g115024_|)) (declare (not safe)) - (cons 'clauses __tmp115026))) - (__tmp115021 - (let ((__tmp115022 - (let ((__tmp115023 |gxc[1]#_g115024_|)) + (cons 'clauses __tmp115023))) + (__tmp115018 + (let ((__tmp115019 + (let ((__tmp115020 |gxc[1]#_g115021_|)) (declare (not safe)) - (cons 'id __tmp115023)))) + (cons 'id __tmp115020)))) (declare (not safe)) - (cons __tmp115022 '())))) + (cons __tmp115019 '())))) (declare (not safe)) - (cons __tmp115025 __tmp115021)))) + (cons __tmp115022 __tmp115018)))) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp115020 + __obj114285 + __tmp115017 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114288)) + __obj114285)) (define |gxc[:0:]#!kw-lambda| - (let ((__obj114289 + (let ((__obj114286 (let () (declare (not safe)) (##structure @@ -4096,7 +4096,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114286 '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! - __obj114289 + __obj114286 '!kw-lambda '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4112,26 +4112,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114286 '(table dispatch) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115028 - (let ((__tmp115029 |gxc[1]#_g114741_|)) + (let ((__tmp115025 + (let ((__tmp115026 |gxc[1]#_g114738_|)) (declare (not safe)) - (cons __tmp115029 '())))) + (cons __tmp115026 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp115028 + __obj114286 + __tmp115025 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114286 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4139,7 +4139,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114286 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4147,7 +4147,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114286 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4155,150 +4155,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114286 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115030 |gxc[1]#_g115031_|)) + (let ((__tmp115027 |gxc[1]#_g115028_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp115030 + __obj114286 + __tmp115027 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115032 |gxc[1]#_g115033_|)) + (let ((__tmp115029 |gxc[1]#_g115030_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp115032 + __obj114286 + __tmp115029 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115034 |gxc[1]#_g115035_|)) + (let ((__tmp115031 |gxc[1]#_g115032_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp115034 + __obj114286 + __tmp115031 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115036 - (let ((__tmp115045 - (let ((__tmp115046 |gxc[1]#_g115047_|)) + (let ((__tmp115033 + (let ((__tmp115042 + (let ((__tmp115043 |gxc[1]#_g115044_|)) (declare (not safe)) - (cons 'table __tmp115046))) - (__tmp115037 - (let ((__tmp115042 - (let ((__tmp115043 |gxc[1]#_g115044_|)) + (cons 'table __tmp115043))) + (__tmp115034 + (let ((__tmp115039 + (let ((__tmp115040 |gxc[1]#_g115041_|)) (declare (not safe)) - (cons 'dispatch __tmp115043))) - (__tmp115038 - (let ((__tmp115039 - (let ((__tmp115040 |gxc[1]#_g115041_|)) + (cons 'dispatch __tmp115040))) + (__tmp115035 + (let ((__tmp115036 + (let ((__tmp115037 |gxc[1]#_g115038_|)) (declare (not safe)) - (cons 'id __tmp115040)))) + (cons 'id __tmp115037)))) (declare (not safe)) - (cons __tmp115039 '())))) + (cons __tmp115036 '())))) (declare (not safe)) - (cons __tmp115042 __tmp115038)))) + (cons __tmp115039 __tmp115035)))) (declare (not safe)) - (cons __tmp115045 __tmp115037)))) + (cons __tmp115042 __tmp115034)))) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp115036 + __obj114286 + __tmp115033 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115048 - (let ((__tmp115057 - (let ((__tmp115058 |gxc[1]#_g115059_|)) + (let ((__tmp115045 + (let ((__tmp115054 + (let ((__tmp115055 |gxc[1]#_g115056_|)) (declare (not safe)) - (cons 'table __tmp115058))) - (__tmp115049 - (let ((__tmp115054 - (let ((__tmp115055 |gxc[1]#_g115056_|)) + (cons 'table __tmp115055))) + (__tmp115046 + (let ((__tmp115051 + (let ((__tmp115052 |gxc[1]#_g115053_|)) (declare (not safe)) - (cons 'dispatch __tmp115055))) - (__tmp115050 - (let ((__tmp115051 - (let ((__tmp115052 |gxc[1]#_g115053_|)) + (cons 'dispatch __tmp115052))) + (__tmp115047 + (let ((__tmp115048 + (let ((__tmp115049 |gxc[1]#_g115050_|)) (declare (not safe)) - (cons 'id __tmp115052)))) + (cons 'id __tmp115049)))) (declare (not safe)) - (cons __tmp115051 '())))) + (cons __tmp115048 '())))) (declare (not safe)) - (cons __tmp115054 __tmp115050)))) + (cons __tmp115051 __tmp115047)))) (declare (not safe)) - (cons __tmp115057 __tmp115049)))) + (cons __tmp115054 __tmp115046)))) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp115048 + __obj114286 + __tmp115045 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115060 - (let ((__tmp115069 - (let ((__tmp115070 |gxc[1]#_g115071_|)) + (let ((__tmp115057 + (let ((__tmp115066 + (let ((__tmp115067 |gxc[1]#_g115068_|)) (declare (not safe)) - (cons 'table __tmp115070))) - (__tmp115061 - (let ((__tmp115066 - (let ((__tmp115067 |gxc[1]#_g115068_|)) + (cons 'table __tmp115067))) + (__tmp115058 + (let ((__tmp115063 + (let ((__tmp115064 |gxc[1]#_g115065_|)) (declare (not safe)) - (cons 'dispatch __tmp115067))) - (__tmp115062 - (let ((__tmp115063 - (let ((__tmp115064 |gxc[1]#_g115065_|)) + (cons 'dispatch __tmp115064))) + (__tmp115059 + (let ((__tmp115060 + (let ((__tmp115061 |gxc[1]#_g115062_|)) (declare (not safe)) - (cons 'id __tmp115064)))) + (cons 'id __tmp115061)))) (declare (not safe)) - (cons __tmp115063 '())))) + (cons __tmp115060 '())))) (declare (not safe)) - (cons __tmp115066 __tmp115062)))) + (cons __tmp115063 __tmp115059)))) (declare (not safe)) - (cons __tmp115069 __tmp115061)))) + (cons __tmp115066 __tmp115058)))) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp115060 + __obj114286 + __tmp115057 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115072 - (let ((__tmp115081 - (let ((__tmp115082 |gxc[1]#_g115083_|)) + (let ((__tmp115069 + (let ((__tmp115078 + (let ((__tmp115079 |gxc[1]#_g115080_|)) (declare (not safe)) - (cons 'table __tmp115082))) - (__tmp115073 - (let ((__tmp115078 - (let ((__tmp115079 |gxc[1]#_g115080_|)) + (cons 'table __tmp115079))) + (__tmp115070 + (let ((__tmp115075 + (let ((__tmp115076 |gxc[1]#_g115077_|)) (declare (not safe)) - (cons 'dispatch __tmp115079))) - (__tmp115074 - (let ((__tmp115075 - (let ((__tmp115076 |gxc[1]#_g115077_|)) + (cons 'dispatch __tmp115076))) + (__tmp115071 + (let ((__tmp115072 + (let ((__tmp115073 |gxc[1]#_g115074_|)) (declare (not safe)) - (cons 'id __tmp115076)))) + (cons 'id __tmp115073)))) (declare (not safe)) - (cons __tmp115075 '())))) + (cons __tmp115072 '())))) (declare (not safe)) - (cons __tmp115078 __tmp115074)))) + (cons __tmp115075 __tmp115071)))) (declare (not safe)) - (cons __tmp115081 __tmp115073)))) + (cons __tmp115078 __tmp115070)))) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp115072 + __obj114286 + __tmp115069 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114289)) + __obj114286)) (define |gxc[:0:]#!kw-lambda-primary| - (let ((__obj114290 + (let ((__obj114287 (let () (declare (not safe)) (##structure @@ -4321,7 +4321,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114287 '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! - __obj114290 + __obj114287 '!kw-lambda-primary '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4337,26 +4337,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114287 '(keys main) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115084 - (let ((__tmp115085 |gxc[1]#_g114741_|)) + (let ((__tmp115081 + (let ((__tmp115082 |gxc[1]#_g114738_|)) (declare (not safe)) - (cons __tmp115085 '())))) + (cons __tmp115082 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115084 + __obj114287 + __tmp115081 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114287 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4364,7 +4364,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114287 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4372,7 +4372,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114287 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4380,150 +4380,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114287 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115086 |gxc[1]#_g115087_|)) + (let ((__tmp115083 |gxc[1]#_g115084_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115086 + __obj114287 + __tmp115083 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115088 |gxc[1]#_g115089_|)) + (let ((__tmp115085 |gxc[1]#_g115086_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115088 + __obj114287 + __tmp115085 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115090 |gxc[1]#_g115091_|)) + (let ((__tmp115087 |gxc[1]#_g115088_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115090 + __obj114287 + __tmp115087 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115092 - (let ((__tmp115101 - (let ((__tmp115102 |gxc[1]#_g115103_|)) + (let ((__tmp115089 + (let ((__tmp115098 + (let ((__tmp115099 |gxc[1]#_g115100_|)) (declare (not safe)) - (cons 'keys __tmp115102))) - (__tmp115093 - (let ((__tmp115098 - (let ((__tmp115099 |gxc[1]#_g115100_|)) + (cons 'keys __tmp115099))) + (__tmp115090 + (let ((__tmp115095 + (let ((__tmp115096 |gxc[1]#_g115097_|)) (declare (not safe)) - (cons 'main __tmp115099))) - (__tmp115094 - (let ((__tmp115095 - (let ((__tmp115096 |gxc[1]#_g115097_|)) + (cons 'main __tmp115096))) + (__tmp115091 + (let ((__tmp115092 + (let ((__tmp115093 |gxc[1]#_g115094_|)) (declare (not safe)) - (cons 'id __tmp115096)))) + (cons 'id __tmp115093)))) (declare (not safe)) - (cons __tmp115095 '())))) + (cons __tmp115092 '())))) (declare (not safe)) - (cons __tmp115098 __tmp115094)))) + (cons __tmp115095 __tmp115091)))) (declare (not safe)) - (cons __tmp115101 __tmp115093)))) + (cons __tmp115098 __tmp115090)))) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115092 + __obj114287 + __tmp115089 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115104 - (let ((__tmp115113 - (let ((__tmp115114 |gxc[1]#_g115115_|)) + (let ((__tmp115101 + (let ((__tmp115110 + (let ((__tmp115111 |gxc[1]#_g115112_|)) (declare (not safe)) - (cons 'keys __tmp115114))) - (__tmp115105 - (let ((__tmp115110 - (let ((__tmp115111 |gxc[1]#_g115112_|)) + (cons 'keys __tmp115111))) + (__tmp115102 + (let ((__tmp115107 + (let ((__tmp115108 |gxc[1]#_g115109_|)) (declare (not safe)) - (cons 'main __tmp115111))) - (__tmp115106 - (let ((__tmp115107 - (let ((__tmp115108 |gxc[1]#_g115109_|)) + (cons 'main __tmp115108))) + (__tmp115103 + (let ((__tmp115104 + (let ((__tmp115105 |gxc[1]#_g115106_|)) (declare (not safe)) - (cons 'id __tmp115108)))) + (cons 'id __tmp115105)))) (declare (not safe)) - (cons __tmp115107 '())))) + (cons __tmp115104 '())))) (declare (not safe)) - (cons __tmp115110 __tmp115106)))) + (cons __tmp115107 __tmp115103)))) (declare (not safe)) - (cons __tmp115113 __tmp115105)))) + (cons __tmp115110 __tmp115102)))) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115104 + __obj114287 + __tmp115101 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115116 - (let ((__tmp115125 - (let ((__tmp115126 |gxc[1]#_g115127_|)) + (let ((__tmp115113 + (let ((__tmp115122 + (let ((__tmp115123 |gxc[1]#_g115124_|)) (declare (not safe)) - (cons 'keys __tmp115126))) - (__tmp115117 - (let ((__tmp115122 - (let ((__tmp115123 |gxc[1]#_g115124_|)) + (cons 'keys __tmp115123))) + (__tmp115114 + (let ((__tmp115119 + (let ((__tmp115120 |gxc[1]#_g115121_|)) (declare (not safe)) - (cons 'main __tmp115123))) - (__tmp115118 - (let ((__tmp115119 - (let ((__tmp115120 |gxc[1]#_g115121_|)) + (cons 'main __tmp115120))) + (__tmp115115 + (let ((__tmp115116 + (let ((__tmp115117 |gxc[1]#_g115118_|)) (declare (not safe)) - (cons 'id __tmp115120)))) + (cons 'id __tmp115117)))) (declare (not safe)) - (cons __tmp115119 '())))) + (cons __tmp115116 '())))) (declare (not safe)) - (cons __tmp115122 __tmp115118)))) + (cons __tmp115119 __tmp115115)))) (declare (not safe)) - (cons __tmp115125 __tmp115117)))) + (cons __tmp115122 __tmp115114)))) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115116 + __obj114287 + __tmp115113 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115128 - (let ((__tmp115137 - (let ((__tmp115138 |gxc[1]#_g115139_|)) + (let ((__tmp115125 + (let ((__tmp115134 + (let ((__tmp115135 |gxc[1]#_g115136_|)) (declare (not safe)) - (cons 'keys __tmp115138))) - (__tmp115129 - (let ((__tmp115134 - (let ((__tmp115135 |gxc[1]#_g115136_|)) + (cons 'keys __tmp115135))) + (__tmp115126 + (let ((__tmp115131 + (let ((__tmp115132 |gxc[1]#_g115133_|)) (declare (not safe)) - (cons 'main __tmp115135))) - (__tmp115130 - (let ((__tmp115131 - (let ((__tmp115132 |gxc[1]#_g115133_|)) + (cons 'main __tmp115132))) + (__tmp115127 + (let ((__tmp115128 + (let ((__tmp115129 |gxc[1]#_g115130_|)) (declare (not safe)) - (cons 'id __tmp115132)))) + (cons 'id __tmp115129)))) (declare (not safe)) - (cons __tmp115131 '())))) + (cons __tmp115128 '())))) (declare (not safe)) - (cons __tmp115134 __tmp115130)))) + (cons __tmp115131 __tmp115127)))) (declare (not safe)) - (cons __tmp115137 __tmp115129)))) + (cons __tmp115134 __tmp115126)))) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115128 + __obj114287 + __tmp115125 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114290)) + __obj114287)) (define |gxc[:0:]#!primitive| - (let ((__obj114291 + (let ((__obj114288 (let () (declare (not safe)) (##structure @@ -4546,7 +4546,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114288 'gxc#!primitive::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4554,7 +4554,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114288 '!primitive '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4562,7 +4562,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114288 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4570,7 +4570,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114288 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4578,7 +4578,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114288 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4586,7 +4586,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114288 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4594,7 +4594,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114288 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4602,39 +4602,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114288 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115140 |gxc[1]#_g115141_|)) + (let ((__tmp115137 |gxc[1]#_g115138_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114291 - __tmp115140 + __obj114288 + __tmp115137 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115142 |gxc[1]#_g115143_|)) + (let ((__tmp115139 |gxc[1]#_g115140_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114291 - __tmp115142 + __obj114288 + __tmp115139 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115144 |gxc[1]#_g115145_|)) + (let ((__tmp115141 |gxc[1]#_g115142_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114291 - __tmp115144 + __obj114288 + __tmp115141 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114288 '() '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4642,7 +4642,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114288 '() '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4650,7 +4650,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114288 '() '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4658,14 +4658,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114288 '() '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114291)) + __obj114288)) (define |gxc[:0:]#!primitive-lambda| - (let ((__obj114292 + (let ((__obj114289 (let () (declare (not safe)) (##structure @@ -4688,7 +4688,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114292 + __obj114289 '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! - __obj114292 + __obj114289 '!primitive-lambda '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4704,30 +4704,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114292 + __obj114289 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115146 - (let ((__tmp115150 |gxc[1]#_g115151_|) - (__tmp115147 - (let ((__tmp115148 |gxc[1]#_g115149_|)) + (let ((__tmp115143 + (let ((__tmp115147 |gxc[1]#_g115148_|) + (__tmp115144 + (let ((__tmp115145 |gxc[1]#_g115146_|)) (declare (not safe)) - (cons __tmp115148 '())))) + (cons __tmp115145 '())))) (declare (not safe)) - (cons __tmp115150 __tmp115147)))) + (cons __tmp115147 __tmp115144)))) (declare (not safe)) (##unchecked-structure-set! - __obj114292 - __tmp115146 + __obj114289 + __tmp115143 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114292 + __obj114289 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4735,7 +4735,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114292 + __obj114289 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4743,7 +4743,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114292 + __obj114289 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4751,218 +4751,218 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114292 + __obj114289 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115152 |gxc[1]#_g115153_|)) + (let ((__tmp115149 |gxc[1]#_g115150_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114292 - __tmp115152 + __obj114289 + __tmp115149 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115154 |gxc[1]#_g115155_|)) + (let ((__tmp115151 |gxc[1]#_g115152_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114292 - __tmp115154 + __obj114289 + __tmp115151 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115156 |gxc[1]#_g115157_|)) + (let ((__tmp115153 |gxc[1]#_g115154_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114292 - __tmp115156 + __obj114289 + __tmp115153 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115158 - (let ((__tmp115175 - (let ((__tmp115176 |gxc[1]#_g115177_|)) + (let ((__tmp115155 + (let ((__tmp115172 + (let ((__tmp115173 |gxc[1]#_g115174_|)) (declare (not safe)) - (cons 'arity __tmp115176))) - (__tmp115159 - (let ((__tmp115172 - (let ((__tmp115173 |gxc[1]#_g115174_|)) + (cons 'arity __tmp115173))) + (__tmp115156 + (let ((__tmp115169 + (let ((__tmp115170 |gxc[1]#_g115171_|)) (declare (not safe)) - (cons 'dispatch __tmp115173))) - (__tmp115160 - (let ((__tmp115169 - (let ((__tmp115170 |gxc[1]#_g115171_|)) + (cons 'dispatch __tmp115170))) + (__tmp115157 + (let ((__tmp115166 + (let ((__tmp115167 |gxc[1]#_g115168_|)) (declare (not safe)) - (cons 'inline __tmp115170))) - (__tmp115161 - (let ((__tmp115166 - (let ((__tmp115167 - |gxc[1]#_g115168_|)) + (cons 'inline __tmp115167))) + (__tmp115158 + (let ((__tmp115163 + (let ((__tmp115164 + |gxc[1]#_g115165_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp115167))) - (__tmp115162 - (let ((__tmp115163 - (let ((__tmp115164 - |gxc[1]#_g115165_|)) + __tmp115164))) + (__tmp115159 + (let ((__tmp115160 + (let ((__tmp115161 + |gxc[1]#_g115162_|)) (declare (not safe)) - (cons 'id __tmp115164)))) + (cons 'id __tmp115161)))) (declare (not safe)) - (cons __tmp115163 '())))) + (cons __tmp115160 '())))) (declare (not safe)) - (cons __tmp115166 __tmp115162)))) + (cons __tmp115163 __tmp115159)))) (declare (not safe)) - (cons __tmp115169 __tmp115161)))) + (cons __tmp115166 __tmp115158)))) (declare (not safe)) - (cons __tmp115172 __tmp115160)))) + (cons __tmp115169 __tmp115157)))) (declare (not safe)) - (cons __tmp115175 __tmp115159)))) + (cons __tmp115172 __tmp115156)))) (declare (not safe)) (##unchecked-structure-set! - __obj114292 - __tmp115158 + __obj114289 + __tmp115155 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115178 - (let ((__tmp115195 - (let ((__tmp115196 |gxc[1]#_g115197_|)) + (let ((__tmp115175 + (let ((__tmp115192 + (let ((__tmp115193 |gxc[1]#_g115194_|)) (declare (not safe)) - (cons 'arity __tmp115196))) - (__tmp115179 - (let ((__tmp115192 - (let ((__tmp115193 |gxc[1]#_g115194_|)) + (cons 'arity __tmp115193))) + (__tmp115176 + (let ((__tmp115189 + (let ((__tmp115190 |gxc[1]#_g115191_|)) (declare (not safe)) - (cons 'dispatch __tmp115193))) - (__tmp115180 - (let ((__tmp115189 - (let ((__tmp115190 |gxc[1]#_g115191_|)) + (cons 'dispatch __tmp115190))) + (__tmp115177 + (let ((__tmp115186 + (let ((__tmp115187 |gxc[1]#_g115188_|)) (declare (not safe)) - (cons 'inline __tmp115190))) - (__tmp115181 - (let ((__tmp115186 - (let ((__tmp115187 - |gxc[1]#_g115188_|)) + (cons 'inline __tmp115187))) + (__tmp115178 + (let ((__tmp115183 + (let ((__tmp115184 + |gxc[1]#_g115185_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp115187))) - (__tmp115182 - (let ((__tmp115183 - (let ((__tmp115184 - |gxc[1]#_g115185_|)) + __tmp115184))) + (__tmp115179 + (let ((__tmp115180 + (let ((__tmp115181 + |gxc[1]#_g115182_|)) (declare (not safe)) - (cons 'id __tmp115184)))) + (cons 'id __tmp115181)))) (declare (not safe)) - (cons __tmp115183 '())))) + (cons __tmp115180 '())))) (declare (not safe)) - (cons __tmp115186 __tmp115182)))) + (cons __tmp115183 __tmp115179)))) (declare (not safe)) - (cons __tmp115189 __tmp115181)))) + (cons __tmp115186 __tmp115178)))) (declare (not safe)) - (cons __tmp115192 __tmp115180)))) + (cons __tmp115189 __tmp115177)))) (declare (not safe)) - (cons __tmp115195 __tmp115179)))) + (cons __tmp115192 __tmp115176)))) (declare (not safe)) (##unchecked-structure-set! - __obj114292 - __tmp115178 + __obj114289 + __tmp115175 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115198 - (let ((__tmp115215 - (let ((__tmp115216 |gxc[1]#_g115217_|)) + (let ((__tmp115195 + (let ((__tmp115212 + (let ((__tmp115213 |gxc[1]#_g115214_|)) (declare (not safe)) - (cons 'arity __tmp115216))) - (__tmp115199 - (let ((__tmp115212 - (let ((__tmp115213 |gxc[1]#_g115214_|)) + (cons 'arity __tmp115213))) + (__tmp115196 + (let ((__tmp115209 + (let ((__tmp115210 |gxc[1]#_g115211_|)) (declare (not safe)) - (cons 'dispatch __tmp115213))) - (__tmp115200 - (let ((__tmp115209 - (let ((__tmp115210 |gxc[1]#_g115211_|)) + (cons 'dispatch __tmp115210))) + (__tmp115197 + (let ((__tmp115206 + (let ((__tmp115207 |gxc[1]#_g115208_|)) (declare (not safe)) - (cons 'inline __tmp115210))) - (__tmp115201 - (let ((__tmp115206 - (let ((__tmp115207 - |gxc[1]#_g115208_|)) + (cons 'inline __tmp115207))) + (__tmp115198 + (let ((__tmp115203 + (let ((__tmp115204 + |gxc[1]#_g115205_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp115207))) - (__tmp115202 - (let ((__tmp115203 - (let ((__tmp115204 - |gxc[1]#_g115205_|)) + __tmp115204))) + (__tmp115199 + (let ((__tmp115200 + (let ((__tmp115201 + |gxc[1]#_g115202_|)) (declare (not safe)) - (cons 'id __tmp115204)))) + (cons 'id __tmp115201)))) (declare (not safe)) - (cons __tmp115203 '())))) + (cons __tmp115200 '())))) (declare (not safe)) - (cons __tmp115206 __tmp115202)))) + (cons __tmp115203 __tmp115199)))) (declare (not safe)) - (cons __tmp115209 __tmp115201)))) + (cons __tmp115206 __tmp115198)))) (declare (not safe)) - (cons __tmp115212 __tmp115200)))) + (cons __tmp115209 __tmp115197)))) (declare (not safe)) - (cons __tmp115215 __tmp115199)))) + (cons __tmp115212 __tmp115196)))) (declare (not safe)) (##unchecked-structure-set! - __obj114292 - __tmp115198 + __obj114289 + __tmp115195 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115218 - (let ((__tmp115235 - (let ((__tmp115236 |gxc[1]#_g115237_|)) + (let ((__tmp115215 + (let ((__tmp115232 + (let ((__tmp115233 |gxc[1]#_g115234_|)) (declare (not safe)) - (cons 'arity __tmp115236))) - (__tmp115219 - (let ((__tmp115232 - (let ((__tmp115233 |gxc[1]#_g115234_|)) + (cons 'arity __tmp115233))) + (__tmp115216 + (let ((__tmp115229 + (let ((__tmp115230 |gxc[1]#_g115231_|)) (declare (not safe)) - (cons 'dispatch __tmp115233))) - (__tmp115220 - (let ((__tmp115229 - (let ((__tmp115230 |gxc[1]#_g115231_|)) + (cons 'dispatch __tmp115230))) + (__tmp115217 + (let ((__tmp115226 + (let ((__tmp115227 |gxc[1]#_g115228_|)) (declare (not safe)) - (cons 'inline __tmp115230))) - (__tmp115221 - (let ((__tmp115226 - (let ((__tmp115227 - |gxc[1]#_g115228_|)) + (cons 'inline __tmp115227))) + (__tmp115218 + (let ((__tmp115223 + (let ((__tmp115224 + |gxc[1]#_g115225_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp115227))) - (__tmp115222 - (let ((__tmp115223 - (let ((__tmp115224 - |gxc[1]#_g115225_|)) + __tmp115224))) + (__tmp115219 + (let ((__tmp115220 + (let ((__tmp115221 + |gxc[1]#_g115222_|)) (declare (not safe)) - (cons 'id __tmp115224)))) + (cons 'id __tmp115221)))) (declare (not safe)) - (cons __tmp115223 '())))) + (cons __tmp115220 '())))) (declare (not safe)) - (cons __tmp115226 __tmp115222)))) + (cons __tmp115223 __tmp115219)))) (declare (not safe)) - (cons __tmp115229 __tmp115221)))) + (cons __tmp115226 __tmp115218)))) (declare (not safe)) - (cons __tmp115232 __tmp115220)))) + (cons __tmp115229 __tmp115217)))) (declare (not safe)) - (cons __tmp115235 __tmp115219)))) + (cons __tmp115232 __tmp115216)))) (declare (not safe)) (##unchecked-structure-set! - __obj114292 - __tmp115218 + __obj114289 + __tmp115215 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114292)) + __obj114289)) (define |gxc[:0:]#!primitive-case-lambda| - (let ((__obj114293 + (let ((__obj114290 (let () (declare (not safe)) (##structure @@ -4985,7 +4985,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114293 + __obj114290 '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! - __obj114293 + __obj114290 '!primitive-case-lambda '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5001,30 +5001,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114293 + __obj114290 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115238 - (let ((__tmp115242 |gxc[1]#_g115151_|) - (__tmp115239 - (let ((__tmp115240 |gxc[1]#_g115241_|)) + (let ((__tmp115235 + (let ((__tmp115239 |gxc[1]#_g115148_|) + (__tmp115236 + (let ((__tmp115237 |gxc[1]#_g115238_|)) (declare (not safe)) - (cons __tmp115240 '())))) + (cons __tmp115237 '())))) (declare (not safe)) - (cons __tmp115242 __tmp115239)))) + (cons __tmp115239 __tmp115236)))) (declare (not safe)) (##unchecked-structure-set! - __obj114293 - __tmp115238 + __obj114290 + __tmp115235 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114293 + __obj114290 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5032,7 +5032,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114293 + __obj114290 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5040,7 +5040,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114293 + __obj114290 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5048,117 +5048,117 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114293 + __obj114290 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115243 |gxc[1]#_g115244_|)) + (let ((__tmp115240 |gxc[1]#_g115241_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114293 - __tmp115243 + __obj114290 + __tmp115240 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115245 |gxc[1]#_g115246_|)) + (let ((__tmp115242 |gxc[1]#_g115243_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114293 - __tmp115245 + __obj114290 + __tmp115242 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115247 |gxc[1]#_g115248_|)) + (let ((__tmp115244 |gxc[1]#_g115245_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114293 - __tmp115247 + __obj114290 + __tmp115244 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115249 - (let ((__tmp115254 - (let ((__tmp115255 |gxc[1]#_g115256_|)) + (let ((__tmp115246 + (let ((__tmp115251 + (let ((__tmp115252 |gxc[1]#_g115253_|)) (declare (not safe)) - (cons 'clauses __tmp115255))) - (__tmp115250 - (let ((__tmp115251 - (let ((__tmp115252 |gxc[1]#_g115253_|)) + (cons 'clauses __tmp115252))) + (__tmp115247 + (let ((__tmp115248 + (let ((__tmp115249 |gxc[1]#_g115250_|)) (declare (not safe)) - (cons 'id __tmp115252)))) + (cons 'id __tmp115249)))) (declare (not safe)) - (cons __tmp115251 '())))) + (cons __tmp115248 '())))) (declare (not safe)) - (cons __tmp115254 __tmp115250)))) + (cons __tmp115251 __tmp115247)))) (declare (not safe)) (##unchecked-structure-set! - __obj114293 - __tmp115249 + __obj114290 + __tmp115246 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115257 - (let ((__tmp115262 - (let ((__tmp115263 |gxc[1]#_g115264_|)) + (let ((__tmp115254 + (let ((__tmp115259 + (let ((__tmp115260 |gxc[1]#_g115261_|)) (declare (not safe)) - (cons 'clauses __tmp115263))) - (__tmp115258 - (let ((__tmp115259 - (let ((__tmp115260 |gxc[1]#_g115261_|)) + (cons 'clauses __tmp115260))) + (__tmp115255 + (let ((__tmp115256 + (let ((__tmp115257 |gxc[1]#_g115258_|)) (declare (not safe)) - (cons 'id __tmp115260)))) + (cons 'id __tmp115257)))) (declare (not safe)) - (cons __tmp115259 '())))) + (cons __tmp115256 '())))) (declare (not safe)) - (cons __tmp115262 __tmp115258)))) + (cons __tmp115259 __tmp115255)))) (declare (not safe)) (##unchecked-structure-set! - __obj114293 - __tmp115257 + __obj114290 + __tmp115254 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115265 - (let ((__tmp115270 - (let ((__tmp115271 |gxc[1]#_g115272_|)) + (let ((__tmp115262 + (let ((__tmp115267 + (let ((__tmp115268 |gxc[1]#_g115269_|)) (declare (not safe)) - (cons 'clauses __tmp115271))) - (__tmp115266 - (let ((__tmp115267 - (let ((__tmp115268 |gxc[1]#_g115269_|)) + (cons 'clauses __tmp115268))) + (__tmp115263 + (let ((__tmp115264 + (let ((__tmp115265 |gxc[1]#_g115266_|)) (declare (not safe)) - (cons 'id __tmp115268)))) + (cons 'id __tmp115265)))) (declare (not safe)) - (cons __tmp115267 '())))) + (cons __tmp115264 '())))) (declare (not safe)) - (cons __tmp115270 __tmp115266)))) + (cons __tmp115267 __tmp115263)))) (declare (not safe)) (##unchecked-structure-set! - __obj114293 - __tmp115265 + __obj114290 + __tmp115262 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115273 - (let ((__tmp115278 - (let ((__tmp115279 |gxc[1]#_g115280_|)) + (let ((__tmp115270 + (let ((__tmp115275 + (let ((__tmp115276 |gxc[1]#_g115277_|)) (declare (not safe)) - (cons 'clauses __tmp115279))) - (__tmp115274 - (let ((__tmp115275 - (let ((__tmp115276 |gxc[1]#_g115277_|)) + (cons 'clauses __tmp115276))) + (__tmp115271 + (let ((__tmp115272 + (let ((__tmp115273 |gxc[1]#_g115274_|)) (declare (not safe)) - (cons 'id __tmp115276)))) + (cons 'id __tmp115273)))) (declare (not safe)) - (cons __tmp115275 '())))) + (cons __tmp115272 '())))) (declare (not safe)) - (cons __tmp115278 __tmp115274)))) + (cons __tmp115275 __tmp115271)))) (declare (not safe)) (##unchecked-structure-set! - __obj114293 - __tmp115273 + __obj114290 + __tmp115270 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114293)))) + __obj114290)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call__0.scm b/src/bootstrap/gerbil/compiler/optimize-call__0.scm index 6b0c8dad..df256cd0 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 1709128376) + (define gerbil/compiler/optimize-call::timestamp 1709229974) (begin (define gxc#&optimize-call (make-promise (lambda () - (let ((_tbl152586_ + (let ((_tbl152583_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp152881 (force gxc#&basic-xform))) + (let ((__tmp152878 (force gxc#&basic-xform))) (declare (not safe)) - (hash-merge! _tbl152586_ __tmp152881)) + (hash-merge! _tbl152583_ __tmp152878)) (let () (declare (not safe)) - (hash-put! _tbl152586_ '%#call gxc#optimize-call%)) - _tbl152586_)))) + (hash-put! _tbl152583_ '%#call gxc#optimize-call%)) + _tbl152583_)))) (define gxc#apply-optimize-call - (lambda (_stx152569_ . _args152571_) - (let ((__tmp152883 + (lambda (_stx152566_ . _args152568_) + (let ((__tmp152880 (lambda () (declare (not safe)) - (if (null? _args152571_) - (gxc#compile-e__0 _stx152569_) - (let ((_arg1152576_ (car _args152571_)) - (_rest152578_ (cdr _args152571_))) - (if (null? _rest152578_) - (gxc#compile-e__1 _stx152569_ _arg1152576_) - (let ((_arg2152581_ (car _rest152578_)) - (_rest152583_ (cdr _rest152578_))) - (if (null? _rest152583_) + (if (null? _args152568_) + (gxc#compile-e__0 _stx152566_) + (let ((_arg1152573_ (car _args152568_)) + (_rest152575_ (cdr _args152568_))) + (if (null? _rest152575_) + (gxc#compile-e__1 _stx152566_ _arg1152573_) + (let ((_arg2152578_ (car _rest152575_)) + (_rest152580_ (cdr _rest152575_))) + (if (null? _rest152580_) (gxc#compile-e__2 - _stx152569_ - _arg1152576_ - _arg2152581_) + _stx152566_ + _arg1152573_ + _arg2152578_) (apply gxc#compile-e - _stx152569_ - _arg1152576_ - _arg2152581_ - _rest152583_)))))))) - (__tmp152882 (force gxc#&optimize-call))) + _stx152566_ + _arg1152573_ + _arg2152578_ + _rest152580_)))))))) + (__tmp152879 (force gxc#&optimize-call))) (declare (not safe)) (call-with-parameters - __tmp152883 + __tmp152880 gxc#current-compile-methods - __tmp152882)))) + __tmp152879)))) (define gxc#optimize-call% - (lambda (_stx152424_) - (let* ((___stx152631152632_ _stx152424_) - (_g152427152447_ + (lambda (_stx152421_) + (let* ((___stx152628152629_ _stx152421_) + (_g152424152444_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx152631152632_))))) - (let ((___kont152633152634_ - (lambda (_L152491_ _L152492_) - (let* ((_rator-id152510_ + ___stx152628152629_))))) + (let ((___kont152630152631_ + (lambda (_L152488_ _L152489_) + (let* ((_rator-id152507_ (let () (declare (not safe)) - (gxc#identifier-symbol _L152492_))) - (_rator-type152512_ + (gxc#identifier-symbol _L152489_))) + (_rator-type152509_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _rator-id152510_)))) + (gxc#optimizer-resolve-type _rator-id152507_)))) (if (let () (declare (not safe)) (##structure-instance-of? - _rator-type152512_ + _rator-type152509_ 'gxc#!procedure::t)) (begin - (let ((__tmp152884 + (let ((__tmp152881 (##structure-ref - _rator-type152512_ + _rator-type152509_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#verbose '"optimize-call " - _rator-id152510_ + _rator-id152507_ '" => " - _rator-type152512_ + _rator-type152509_ '" " - __tmp152884)) - (let ((_optimized152515_ - (let ((__method152879 + __tmp152881)) + (let ((_optimized152512_ + (let ((__method152876 (let () (declare (not safe)) (method-ref - _rator-type152512_ + _rator-type152509_ 'optimize-call)))) - (if __method152879 - (__method152879 - _rator-type152512_ - _stx152424_ - _L152491_) + (if __method152876 + (__method152876 + _rator-type152509_ + _stx152421_ + _L152488_) (let () (declare (not safe)) (error '"Missing method" - _rator-type152512_ + _rator-type152509_ 'optimize-call)))))) (if (let () (declare (not safe)) (class-instance? gxc#!primitive::t - _rator-type152512_)) - _optimized152515_ - (let* ((___stx152613152614_ _optimized152515_) - (_g152518152528_ + _rator-type152509_)) + _optimized152512_ + (let* ((___stx152610152611_ _optimized152512_) + (_g152515152525_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx152613152614_))))) - (let ((___kont152615152616_ - (lambda (_L152548_) - (let ((__tmp152885 + ___stx152610152611_))))) + (let ((___kont152612152613_ + (lambda (_L152545_) + (let ((__tmp152882 (let () (declare (not safe)) (cons '%#call-unchecked - _L152548_)))) + _L152545_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152885 - _stx152424_)))) - (___kont152617152618_ - (lambda () _optimized152515_))) + __tmp152882 + _stx152421_)))) + (___kont152614152615_ + (lambda () _optimized152512_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx152613152614_)) - (let ((_e152523152540_ + (gx#stx-pair? ___stx152610152611_)) + (let ((_e152520152537_ (let () (declare (not safe)) (gx#stx-e - ___stx152613152614_)))) - (let ((_tl152521152545_ + ___stx152610152611_)))) + (let ((_tl152518152542_ (let () (declare (not safe)) - (##cdr _e152523152540_))) - (_hd152522152543_ + (##cdr _e152520152537_))) + (_hd152519152540_ (let () (declare (not safe)) - (##car _e152523152540_)))) + (##car _e152520152537_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd152522152543_)) + _hd152519152540_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd152522152543_)) - (___kont152615152616_ - _tl152521152545_) - (___kont152617152618_)) - (___kont152617152618_)))) - (___kont152617152618_))))))) + _hd152519152540_)) + (___kont152612152613_ + _tl152518152542_) + (___kont152614152615_)) + (___kont152614152615_)))) + (___kont152614152615_))))))) (if (let () (declare (not safe)) - (not _rator-type152512_)) + (not _rator-type152509_)) (let () (declare (not safe)) - (gxc#xform-call% _stx152424_)) + (gxc#xform-call% _stx152421_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _stx152424_ - _rator-type152512_))))))) - (___kont152635152636_ + _stx152421_ + _rator-type152509_))))))) + (___kont152632152633_ (lambda () (let () (declare (not safe)) - (gxc#xform-call% _stx152424_))))) + (gxc#xform-call% _stx152421_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx152631152632_)) - (let ((_e152433152459_ + (gx#stx-pair? ___stx152628152629_)) + (let ((_e152430152456_ (let () (declare (not safe)) - (gx#stx-e ___stx152631152632_)))) - (let ((_tl152431152464_ - (let () (declare (not safe)) (##cdr _e152433152459_))) - (_hd152432152462_ + (gx#stx-e ___stx152628152629_)))) + (let ((_tl152428152461_ + (let () (declare (not safe)) (##cdr _e152430152456_))) + (_hd152429152459_ (let () (declare (not safe)) - (##car _e152433152459_)))) + (##car _e152430152456_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl152431152464_)) - (let ((_e152436152467_ + (gx#stx-pair? _tl152428152461_)) + (let ((_e152433152464_ (let () (declare (not safe)) - (gx#stx-e _tl152431152464_)))) - (let ((_tl152434152472_ + (gx#stx-e _tl152428152461_)))) + (let ((_tl152431152469_ (let () (declare (not safe)) - (##cdr _e152436152467_))) - (_hd152435152470_ + (##cdr _e152433152464_))) + (_hd152432152467_ (let () (declare (not safe)) - (##car _e152436152467_)))) + (##car _e152433152464_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd152435152470_)) - (let ((_e152439152475_ + (gx#stx-pair? _hd152432152467_)) + (let ((_e152436152472_ (let () (declare (not safe)) - (gx#stx-e _hd152435152470_)))) - (let ((_tl152437152480_ + (gx#stx-e _hd152432152467_)))) + (let ((_tl152434152477_ (let () (declare (not safe)) - (##cdr _e152439152475_))) - (_hd152438152478_ + (##cdr _e152436152472_))) + (_hd152435152475_ (let () (declare (not safe)) - (##car _e152439152475_)))) + (##car _e152436152472_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd152438152478_)) + (gx#identifier? _hd152435152475_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd152438152478_)) + _hd152435152475_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl152437152480_)) - (let ((_e152442152483_ + _tl152434152477_)) + (let ((_e152439152480_ (let () (declare (not safe)) (gx#stx-e - _tl152437152480_)))) - (let ((_tl152440152488_ + _tl152434152477_)))) + (let ((_tl152437152485_ (let () (declare (not safe)) - (##cdr _e152442152483_))) - (_hd152441152486_ + (##cdr _e152439152480_))) + (_hd152438152483_ (let () (declare (not safe)) - (##car _e152442152483_)))) + (##car _e152439152480_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl152440152488_)) - (___kont152633152634_ - _tl152434152472_ - _hd152441152486_) - (___kont152635152636_)))) - (___kont152635152636_)) - (___kont152635152636_)) - (___kont152635152636_)))) - (___kont152635152636_)))) - (___kont152635152636_)))) - (___kont152635152636_)))))) + _tl152437152485_)) + (___kont152630152631_ + _tl152431152469_ + _hd152438152483_) + (___kont152632152633_)))) + (___kont152632152633_)) + (___kont152632152633_)) + (___kont152632152633_)))) + (___kont152632152633_)))) + (___kont152632152633_)))) + (___kont152632152633_)))))) (define gxc#!predicate::optimize-call - (lambda (_self152378_ _stx152379_ _args152380_) - (let* ((_g152382152392_ - (lambda (_g152383152389_) + (lambda (_self152375_ _stx152376_ _args152377_) + (let* ((_g152379152389_ + (lambda (_g152380152386_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g152383152389_)))) - (_g152381152421_ - (lambda (_g152383152395_) + _g152380152386_)))) + (_g152378152418_ + (lambda (_g152380152392_) (if (let () (declare (not safe)) - (gx#stx-pair? _g152383152395_)) - (let ((_e152387152397_ + (gx#stx-pair? _g152380152392_)) + (let ((_e152384152394_ (let () (declare (not safe)) - (gx#stx-e _g152383152395_)))) - (let ((_hd152386152400_ + (gx#stx-e _g152380152392_)))) + (let ((_hd152383152397_ (let () (declare (not safe)) - (##car _e152387152397_))) - (_tl152385152402_ + (##car _e152384152394_))) + (_tl152382152399_ (let () (declare (not safe)) - (##cdr _e152387152397_)))) + (##cdr _e152384152394_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl152385152402_)) - ((lambda (_L152405_) - (let* ((_klass152416_ - (let ((__tmp152886 + (gx#stx-null? _tl152382152399_)) + ((lambda (_L152402_) + (let* ((_klass152413_ + (let ((__tmp152883 (##structure-ref - _self152378_ + _self152375_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx152379_ - __tmp152886))) - (_object152418_ + _stx152376_ + __tmp152883))) + (_object152415_ (let () (declare (not safe)) - (gxc#compile-e__0 _L152405_)))) + (gxc#compile-e__0 _L152402_)))) (if (##structure-ref - _klass152416_ + _klass152413_ '8 gxc#!class::t '#f) - (let ((__tmp152902 - (let ((__tmp152903 - (let ((__tmp152905 - (let ((__tmp152906 + (let ((__tmp152899 + (let ((__tmp152900 + (let ((__tmp152902 + (let ((__tmp152903 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152907 + (let ((__tmp152904 (##structure-ref - _klass152416_ + _klass152413_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152907 '())))) + (cons __tmp152904 '())))) (declare (not safe)) - (cons '%#quote __tmp152906))) - (__tmp152904 - (let () (declare (not safe)) (cons _object152418_ '())))) + (cons '%#quote __tmp152903))) + (__tmp152901 + (let () (declare (not safe)) (cons _object152415_ '())))) (declare (not safe)) - (cons __tmp152905 __tmp152904)))) + (cons __tmp152902 __tmp152901)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-direct-instance? - __tmp152903)))) + __tmp152900)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152902 - _stx152379_)) + __tmp152899 + _stx152376_)) (if (##structure-ref - _klass152416_ + _klass152413_ '7 gxc#!class::t '#f) - (let ((__tmp152896 - (let ((__tmp152897 - (let ((__tmp152899 - (let ((__tmp152900 + (let ((__tmp152893 + (let ((__tmp152894 + (let ((__tmp152896 + (let ((__tmp152897 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152901 + (let ((__tmp152898 (##structure-ref - _klass152416_ + _klass152413_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152901 '())))) + (cons __tmp152898 '())))) (declare (not safe)) - (cons '%#quote __tmp152900))) - (__tmp152898 + (cons '%#quote __tmp152897))) + (__tmp152895 (let () (declare (not safe)) - (cons _object152418_ '())))) + (cons _object152415_ '())))) (declare (not safe)) - (cons __tmp152899 __tmp152898)))) + (cons __tmp152896 __tmp152895)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-instance? - __tmp152897)))) + __tmp152894)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152896 - _stx152379_)) - (let ((__tmp152887 - (let ((__tmp152888 - (let ((__tmp152894 - (let ((__tmp152895 + __tmp152893 + _stx152376_)) + (let ((__tmp152884 + (let ((__tmp152885 + (let ((__tmp152891 + (let ((__tmp152892 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'class-instance? '())))) (declare (not safe)) - (cons '%#ref __tmp152895))) - (__tmp152889 - (let ((__tmp152891 - (let ((__tmp152892 - (let ((__tmp152893 + (cons '%#ref __tmp152892))) + (__tmp152886 + (let ((__tmp152888 + (let ((__tmp152889 + (let ((__tmp152890 (##structure-ref - _self152378_ + _self152375_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152893 '())))) + (cons __tmp152890 '())))) (declare (not safe)) - (cons '%#ref __tmp152892))) - (__tmp152890 + (cons '%#ref __tmp152889))) + (__tmp152887 (let () (declare (not safe)) - (cons _object152418_ '())))) + (cons _object152415_ '())))) (declare (not safe)) - (cons __tmp152891 __tmp152890)))) + (cons __tmp152888 __tmp152887)))) (declare (not safe)) - (cons __tmp152894 __tmp152889)))) + (cons __tmp152891 __tmp152886)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#call - __tmp152888)))) + __tmp152885)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152887 - _stx152379_)))))) - _hd152386152400_) + __tmp152884 + _stx152376_)))))) + _hd152383152397_) (let () (declare (not safe)) - (_g152382152392_ _g152383152395_))))) + (_g152379152389_ _g152380152392_))))) (let () (declare (not safe)) - (_g152382152392_ _g152383152395_)))))) + (_g152379152389_ _g152380152392_)))))) (declare (not safe)) - (_g152381152421_ _args152380_)))) + (_g152378152418_ _args152377_)))) (define gxc#!predicate::optimize-call::specialize - (lambda (__klass152588 __method-table152589) - (let ((__id152590 - (let ((__slot152591 + (lambda (__klass152585 __method-table152586) + (let ((__id152587 + (let ((__slot152588 (let () (declare (not safe)) - (class-slot-offset __klass152588 'id)))) - (if __slot152591 - __slot152591 + (class-slot-offset __klass152585 'id)))) + (if __slot152588 + __slot152588 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self152378_ _stx152379_ _args152380_) - (let* ((_g152382152392_ - (lambda (_g152383152389_) + (lambda (_self152375_ _stx152376_ _args152377_) + (let* ((_g152379152389_ + (lambda (_g152380152386_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g152383152389_)))) - (_g152381152421_ - (lambda (_g152383152395_) + _g152380152386_)))) + (_g152378152418_ + (lambda (_g152380152392_) (if (let () (declare (not safe)) - (gx#stx-pair? _g152383152395_)) - (let ((_e152387152397_ + (gx#stx-pair? _g152380152392_)) + (let ((_e152384152394_ (let () (declare (not safe)) - (gx#stx-e _g152383152395_)))) - (let ((_hd152386152400_ + (gx#stx-e _g152380152392_)))) + (let ((_hd152383152397_ (let () (declare (not safe)) - (##car _e152387152397_))) - (_tl152385152402_ + (##car _e152384152394_))) + (_tl152382152399_ (let () (declare (not safe)) - (##cdr _e152387152397_)))) + (##cdr _e152384152394_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl152385152402_)) - ((lambda (_L152405_) - (let* ((_klass152416_ - (let ((__tmp152908 + (gx#stx-null? _tl152382152399_)) + ((lambda (_L152402_) + (let* ((_klass152413_ + (let ((__tmp152905 (let () (declare (not safe)) (##unchecked-structure-ref - _self152378_ - __id152590 - __klass152588 + _self152375_ + __id152587 + __klass152585 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx152379_ - __tmp152908))) - (_object152418_ + _stx152376_ + __tmp152905))) + (_object152415_ (let () (declare (not safe)) - (gxc#compile-e__0 _L152405_)))) + (gxc#compile-e__0 _L152402_)))) (if (##structure-ref - _klass152416_ + _klass152413_ '8 gxc#!class::t '#f) - (let ((__tmp152924 - (let ((__tmp152925 - (let ((__tmp152927 - (let ((__tmp152928 + (let ((__tmp152921 + (let ((__tmp152922 + (let ((__tmp152924 + (let ((__tmp152925 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152929 + (let ((__tmp152926 (##structure-ref - _klass152416_ + _klass152413_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152929 '())))) + (cons __tmp152926 '())))) (declare (not safe)) - (cons '%#quote __tmp152928))) - (__tmp152926 + (cons '%#quote __tmp152925))) + (__tmp152923 (let () (declare (not safe)) - (cons _object152418_ '())))) + (cons _object152415_ '())))) (declare (not safe)) - (cons __tmp152927 __tmp152926)))) + (cons __tmp152924 __tmp152923)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-direct-instance? - __tmp152925)))) + __tmp152922)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152924 - _stx152379_)) + __tmp152921 + _stx152376_)) (if (##structure-ref - _klass152416_ + _klass152413_ '7 gxc#!class::t '#f) - (let ((__tmp152918 - (let ((__tmp152919 - (let ((__tmp152921 + (let ((__tmp152915 + (let ((__tmp152916 + (let ((__tmp152918 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152922 - (let ((__tmp152923 + (let ((__tmp152919 + (let ((__tmp152920 (##structure-ref - _klass152416_ + _klass152413_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152923 '())))) + (cons __tmp152920 '())))) (declare (not safe)) - (cons '%#quote __tmp152922))) - (__tmp152920 + (cons '%#quote __tmp152919))) + (__tmp152917 (let () (declare (not safe)) - (cons _object152418_ '())))) + (cons _object152415_ '())))) (declare (not safe)) - (cons __tmp152921 __tmp152920)))) + (cons __tmp152918 __tmp152917)))) (declare (not safe)) - (cons '%#struct-instance? __tmp152919)))) + (cons '%#struct-instance? __tmp152916)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp152918 - _stx152379_)) - (let ((__tmp152909 - (let ((__tmp152910 - (let ((__tmp152916 + __tmp152915 + _stx152376_)) + (let ((__tmp152906 + (let ((__tmp152907 + (let ((__tmp152913 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152917 + (let ((__tmp152914 (let () (declare (not safe)) (cons 'class-instance? '())))) (declare (not safe)) - (cons '%#ref __tmp152917))) - (__tmp152911 - (let ((__tmp152913 - (let ((__tmp152914 - (let ((__tmp152915 + (cons '%#ref __tmp152914))) + (__tmp152908 + (let ((__tmp152910 + (let ((__tmp152911 + (let ((__tmp152912 (let () (declare (not safe)) (##unchecked-structure-ref - _self152378_ - __id152590 - __klass152588 + _self152375_ + __id152587 + __klass152585 '#f)))) (declare (not safe)) - (cons __tmp152915 '())))) + (cons __tmp152912 '())))) (declare (not safe)) - (cons '%#ref __tmp152914))) - (__tmp152912 + (cons '%#ref __tmp152911))) + (__tmp152909 (let () (declare (not safe)) - (cons _object152418_ '())))) + (cons _object152415_ '())))) (declare (not safe)) - (cons __tmp152913 __tmp152912)))) + (cons __tmp152910 __tmp152909)))) (declare (not safe)) - (cons __tmp152916 __tmp152911)))) + (cons __tmp152913 __tmp152908)))) (declare (not safe)) - (cons '%#call __tmp152910)))) + (cons '%#call __tmp152907)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp152909 - _stx152379_)))))) - _hd152386152400_) + __tmp152906 + _stx152376_)))))) + _hd152383152397_) (let () (declare (not safe)) - (_g152382152392_ _g152383152395_))))) + (_g152379152389_ _g152380152392_))))) (let () (declare (not safe)) - (_g152382152392_ _g152383152395_)))))) + (_g152379152389_ _g152380152392_)))))) (declare (not safe)) - (_g152381152421_ _args152380_)))))) + (_g152378152418_ _args152377_)))))) (let () (declare (not safe)) (bind-specializer! @@ -606,236 +606,236 @@ gxc#!predicate::optimize-call '#f)) (define gxc#!constructor::optimize-call - (lambda (_self152098_ _stx152099_ _args152100_) - (let* ((_klass152102_ - (let ((__tmp152930 - (##structure-ref _self152098_ '1 gxc#!type::t '#f))) + (lambda (_self152095_ _stx152096_ _args152097_) + (let* ((_klass152099_ + (let ((__tmp152927 + (##structure-ref _self152095_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-class _stx152099_ __tmp152930))) - (_fields152104_ - (length (##structure-ref _klass152102_ '5 gxc#!class::t '#f))) - (_args152106_ (map gxc#compile-e _args152100_)) - (_inline-make-object152108_ - (let ((__tmp152931 - (let ((__tmp152937 - (let ((__tmp152938 + (gxc#optimizer-resolve-class _stx152096_ __tmp152927))) + (_fields152101_ + (length (##structure-ref _klass152099_ '5 gxc#!class::t '#f))) + (_args152103_ (map gxc#compile-e _args152097_)) + (_inline-make-object152105_ + (let ((__tmp152928 + (let ((__tmp152934 + (let ((__tmp152935 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp152938))) - (__tmp152932 - (let ((__tmp152934 - (let ((__tmp152935 - (let ((__tmp152936 + (cons '%#ref __tmp152935))) + (__tmp152929 + (let ((__tmp152931 + (let ((__tmp152932 + (let ((__tmp152933 (##structure-ref - _self152098_ + _self152095_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152936 '())))) + (cons __tmp152933 '())))) (declare (not safe)) - (cons '%#ref __tmp152935))) - (__tmp152933 + (cons '%#ref __tmp152932))) + (__tmp152930 (let () (declare (not safe)) (make-list__% - _fields152104_ + _fields152101_ '(%#quote #f))))) (declare (not safe)) - (cons __tmp152934 __tmp152933)))) + (cons __tmp152931 __tmp152930)))) (declare (not safe)) - (cons __tmp152937 __tmp152932)))) + (cons __tmp152934 __tmp152929)))) (declare (not safe)) - (cons '%#call __tmp152931)))) - (let ((_$e152111_ - (##structure-ref _klass152102_ '6 gxc#!class::t '#f))) - (if _$e152111_ - ((lambda (_ctor152114_) - (let ((_$obj152116_ - (let ((__tmp153038 (gensym '__obj))) + (cons '%#call __tmp152928)))) + (let ((_$e152108_ + (##structure-ref _klass152099_ '6 gxc#!class::t '#f))) + (if _$e152108_ + ((lambda (_ctor152111_) + (let ((_$obj152113_ + (let ((__tmp153035 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153038))) - (_ctor-impl152117_ + (make-symbol__0 __tmp153035))) + (_ctor-impl152114_ (let () (declare (not safe)) (gxc#!class-lookup-method - _klass152102_ - _ctor152114_)))) - (let ((__tmp153039 - (let ((__tmp153040 - (let ((__tmp153108 - (let ((__tmp153109 - (let ((__tmp153111 + _klass152099_ + _ctor152111_)))) + (let ((__tmp153036 + (let ((__tmp153037 + (let ((__tmp153105 + (let ((__tmp153106 + (let ((__tmp153108 (let () (declare (not safe)) - (cons _$obj152116_ + (cons _$obj152113_ '()))) - (__tmp153110 + (__tmp153107 (let () (declare (not safe)) - (cons _inline-make-object152108_ + (cons _inline-make-object152105_ '())))) (declare (not safe)) - (cons __tmp153111 - __tmp153110)))) + (cons __tmp153108 + __tmp153107)))) (declare (not safe)) - (cons __tmp153109 '()))) - (__tmp153041 - (let ((__tmp153042 - (let ((__tmp153043 - (let ((__tmp153047 - (if _ctor-impl152117_ + (cons __tmp153106 '()))) + (__tmp153038 + (let ((__tmp153039 + (let ((__tmp153040 + (let ((__tmp153044 + (if _ctor-impl152114_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153102 - (let ((__tmp153106 - (let ((__tmp153107 + (let ((__tmp153099 + (let ((__tmp153103 + (let ((__tmp153104 (let () (declare (not safe)) - (cons _ctor-impl152117_ + (cons _ctor-impl152114_ '())))) (declare (not safe)) - (cons '%#ref __tmp153107))) - (__tmp153103 - (let ((__tmp153104 - (let ((__tmp153105 + (cons '%#ref __tmp153104))) + (__tmp153100 + (let ((__tmp153101 + (let ((__tmp153102 (let () (declare (not safe)) - (cons _$obj152116_ + (cons _$obj152113_ '())))) (declare (not safe)) - (cons '%#ref __tmp153105)))) + (cons '%#ref __tmp153102)))) (declare (not safe)) - (cons __tmp153104 _args152106_)))) + (cons __tmp153101 _args152103_)))) (declare (not safe)) - (cons __tmp153106 __tmp153103)))) + (cons __tmp153103 __tmp153100)))) (declare (not safe)) - (cons '%#call __tmp153102)) - (let* ((_$ctor152119_ - (let ((__tmp153048 (gensym '__constructor))) + (cons '%#call __tmp153099)) + (let* ((_$ctor152116_ + (let ((__tmp153045 (gensym '__constructor))) (declare (not safe)) - (make-symbol__0 __tmp153048))) - (__tmp153049 - (let ((__tmp153084 - (let ((__tmp153085 - (let ((__tmp153101 + (make-symbol__0 __tmp153045))) + (__tmp153046 + (let ((__tmp153081 + (let ((__tmp153082 + (let ((__tmp153098 (let () (declare (not safe)) - (cons _$ctor152119_ + (cons _$ctor152116_ '()))) - (__tmp153086 - (let ((__tmp153087 - (let ((__tmp153088 + (__tmp153083 + (let ((__tmp153084 + (let ((__tmp153085 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153099 - (let ((__tmp153100 + (let ((__tmp153096 + (let ((__tmp153097 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp153100))) - (__tmp153089 - (let ((__tmp153096 - (let ((__tmp153097 - (let ((__tmp153098 + (cons '%#ref __tmp153097))) + (__tmp153086 + (let ((__tmp153093 + (let ((__tmp153094 + (let ((__tmp153095 (##structure-ref - _self152098_ + _self152095_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153098 '())))) + (cons __tmp153095 '())))) (declare (not safe)) - (cons '%#ref __tmp153097))) - (__tmp153090 - (let ((__tmp153094 - (let ((__tmp153095 + (cons '%#ref __tmp153094))) + (__tmp153087 + (let ((__tmp153091 + (let ((__tmp153092 (let () (declare (not safe)) - (cons _$obj152116_ + (cons _$obj152113_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153095))) - (__tmp153091 - (let ((__tmp153092 - (let ((__tmp153093 + __tmp153092))) + (__tmp153088 + (let ((__tmp153089 + (let ((__tmp153090 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _ctor152114_ '())))) + (cons _ctor152111_ '())))) (declare (not safe)) - (cons '%#quote __tmp153093)))) + (cons '%#quote __tmp153090)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153092 '())))) + (cons __tmp153089 '())))) (declare (not safe)) - (cons __tmp153094 __tmp153091)))) + (cons __tmp153091 __tmp153088)))) (declare (not safe)) - (cons __tmp153096 __tmp153090)))) + (cons __tmp153093 __tmp153087)))) (declare (not safe)) - (cons __tmp153099 __tmp153089)))) + (cons __tmp153096 __tmp153086)))) (declare (not safe)) - (cons '%#call __tmp153088)))) + (cons '%#call __tmp153085)))) (declare (not safe)) - (cons __tmp153087 '())))) + (cons __tmp153084 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153101 - __tmp153086)))) + (cons __tmp153098 + __tmp153083)))) (declare (not safe)) - (cons __tmp153085 '()))) - (__tmp153050 - (let ((__tmp153051 - (let ((__tmp153052 - (let ((__tmp153082 - (let ((__tmp153083 + (cons __tmp153082 '()))) + (__tmp153047 + (let ((__tmp153048 + (let ((__tmp153049 + (let ((__tmp153079 + (let ((__tmp153080 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$ctor152119_ '())))) + (cons _$ctor152116_ '())))) (declare (not safe)) - (cons '%#ref __tmp153083))) - (__tmp153053 - (let ((__tmp153075 - (let ((__tmp153076 - (let ((__tmp153080 - (let ((__tmp153081 + (cons '%#ref __tmp153080))) + (__tmp153050 + (let ((__tmp153072 + (let ((__tmp153073 + (let ((__tmp153077 + (let ((__tmp153078 (let () (declare (not safe)) - (cons _$ctor152119_ + (cons _$ctor152116_ '())))) (declare (not safe)) - (cons '%#ref __tmp153081))) - (__tmp153077 - (let ((__tmp153078 - (let ((__tmp153079 + (cons '%#ref __tmp153078))) + (__tmp153074 + (let ((__tmp153075 + (let ((__tmp153076 (let () (declare (not safe)) - (cons _$obj152116_ + (cons _$obj152113_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153079)))) + __tmp153076)))) (declare (not safe)) - (cons __tmp153078 - _args152106_)))) + (cons __tmp153075 + _args152103_)))) (declare (not safe)) - (cons __tmp153080 __tmp153077)))) + (cons __tmp153077 __tmp153074)))) (declare (not safe)) - (cons '%#call __tmp153076))) - (__tmp153054 - (let ((__tmp153055 - (let ((__tmp153056 - (let ((__tmp153073 - (let ((__tmp153074 + (cons '%#call __tmp153073))) + (__tmp153051 + (let ((__tmp153052 + (let ((__tmp153053 + (let ((__tmp153070 + (let ((__tmp153071 (let () (declare (not safe)) @@ -845,281 +845,281 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153074))) - (__tmp153057 - (let ((__tmp153071 - (let ((__tmp153072 + __tmp153071))) + (__tmp153054 + (let ((__tmp153068 + (let ((__tmp153069 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '"missing constructor method implementation" '())))) (declare (not safe)) - (cons '%#quote __tmp153072))) - (__tmp153058 - (let ((__tmp153069 - (let ((__tmp153070 + (cons '%#quote __tmp153069))) + (__tmp153055 + (let ((__tmp153066 + (let ((__tmp153067 (let () (declare (not safe)) (cons 'class: '())))) (declare (not safe)) - (cons '%#quote __tmp153070))) - (__tmp153059 - (let ((__tmp153066 - (let ((__tmp153067 - (let ((__tmp153068 + (cons '%#quote __tmp153067))) + (__tmp153056 + (let ((__tmp153063 + (let ((__tmp153064 + (let ((__tmp153065 (##structure-ref - _self152098_ + _self152095_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153068 '())))) + (cons __tmp153065 '())))) (declare (not safe)) - (cons '%#ref __tmp153067))) - (__tmp153060 - (let ((__tmp153064 - (let ((__tmp153065 + (cons '%#ref __tmp153064))) + (__tmp153057 + (let ((__tmp153061 + (let ((__tmp153062 (let () (declare (not safe)) (cons 'method: '())))) (declare (not safe)) - (cons '%#quote __tmp153065))) - (__tmp153061 - (let ((__tmp153062 - (let ((__tmp153063 + (cons '%#quote __tmp153062))) + (__tmp153058 + (let ((__tmp153059 + (let ((__tmp153060 (let () (declare (not safe)) - (cons _ctor152114_ + (cons _ctor152111_ '())))) (declare (not safe)) - (cons '%#quote __tmp153063)))) + (cons '%#quote __tmp153060)))) (declare (not safe)) - (cons __tmp153062 '())))) + (cons __tmp153059 '())))) (declare (not safe)) - (cons __tmp153064 __tmp153061)))) + (cons __tmp153061 __tmp153058)))) (declare (not safe)) - (cons __tmp153066 __tmp153060)))) + (cons __tmp153063 __tmp153057)))) (declare (not safe)) - (cons __tmp153069 __tmp153059)))) + (cons __tmp153066 __tmp153056)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153071 - __tmp153058)))) + (cons __tmp153068 + __tmp153055)))) (declare (not safe)) - (cons __tmp153073 __tmp153057)))) + (cons __tmp153070 __tmp153054)))) (declare (not safe)) - (cons '%#call __tmp153056)))) + (cons '%#call __tmp153053)))) (declare (not safe)) - (cons __tmp153055 '())))) + (cons __tmp153052 '())))) (declare (not safe)) - (cons __tmp153075 __tmp153054)))) + (cons __tmp153072 __tmp153051)))) (declare (not safe)) - (cons __tmp153082 __tmp153053)))) + (cons __tmp153079 __tmp153050)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp153052)))) + (cons '%#if __tmp153049)))) (declare (not safe)) - (cons __tmp153051 '())))) + (cons __tmp153048 '())))) (declare (not safe)) - (cons __tmp153084 __tmp153050)))) + (cons __tmp153081 __tmp153047)))) (declare (not safe)) - (cons '%#let-values __tmp153049)))) - (__tmp153044 - (let ((__tmp153045 - (let ((__tmp153046 + (cons '%#let-values __tmp153046)))) + (__tmp153041 + (let ((__tmp153042 + (let ((__tmp153043 (let () (declare (not safe)) - (cons _$obj152116_ '())))) + (cons _$obj152113_ '())))) (declare (not safe)) - (cons '%#ref __tmp153046)))) + (cons '%#ref __tmp153043)))) (declare (not safe)) - (cons __tmp153045 '())))) + (cons __tmp153042 '())))) (declare (not safe)) - (cons __tmp153047 __tmp153044)))) + (cons __tmp153044 __tmp153041)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#begin - __tmp153043)))) + __tmp153040)))) (declare (not safe)) - (cons __tmp153042 '())))) + (cons __tmp153039 '())))) (declare (not safe)) - (cons __tmp153108 __tmp153041)))) + (cons __tmp153105 __tmp153038)))) (declare (not safe)) - (cons '%#let-values __tmp153040)))) + (cons '%#let-values __tmp153037)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153039 _stx152099_)))) - _$e152111_) - (let ((_$e152121_ - (##structure-ref _klass152102_ '9 gxc#!class::t '#f))) - (if _$e152121_ - ((lambda (_metaclass152124_) - (let* ((_$obj152126_ - (let ((__tmp153000 (gensym '__obj))) + (gxc#xform-wrap-source __tmp153036 _stx152096_)))) + _$e152108_) + (let ((_$e152118_ + (##structure-ref _klass152099_ '9 gxc#!class::t '#f))) + (if _$e152118_ + ((lambda (_metaclass152121_) + (let* ((_$obj152123_ + (let ((__tmp152997 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153000))) - (_metakons152128_ - (let ((__tmp153001 + (make-symbol__0 __tmp152997))) + (_metakons152125_ + (let ((__tmp152998 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _stx152099_ - _metaclass152124_)))) + _stx152096_ + _metaclass152121_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp153001 + __tmp152998 'instance-init!)))) - (let ((__tmp153002 - (let ((__tmp153003 - (let ((__tmp153034 - (let ((__tmp153035 - (let ((__tmp153037 + (let ((__tmp152999 + (let ((__tmp153000 + (let ((__tmp153031 + (let ((__tmp153032 + (let ((__tmp153034 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj152126_ '()))) - (__tmp153036 + (cons _$obj152123_ '()))) + (__tmp153033 (let () (declare (not safe)) - (cons _inline-make-object152108_ '())))) + (cons _inline-make-object152105_ '())))) (declare (not safe)) - (cons __tmp153037 __tmp153036)))) + (cons __tmp153034 __tmp153033)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153035 '()))) - (__tmp153004 - (let ((__tmp153005 - (let ((__tmp153006 - (let ((__tmp153010 + (cons __tmp153032 '()))) + (__tmp153001 + (let ((__tmp153002 + (let ((__tmp153003 + (let ((__tmp153007 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _metakons152128_ - (let ((__tmp153024 - (let ((__tmp153032 - (let ((__tmp153033 + (if _metakons152125_ + (let ((__tmp153021 + (let ((__tmp153029 + (let ((__tmp153030 (let () (declare (not safe)) - (cons _metakons152128_ + (cons _metakons152125_ '())))) (declare (not safe)) - (cons '%#ref __tmp153033))) - (__tmp153025 - (let ((__tmp153029 - (let ((__tmp153030 - (let ((__tmp153031 + (cons '%#ref __tmp153030))) + (__tmp153022 + (let ((__tmp153026 + (let ((__tmp153027 + (let ((__tmp153028 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self152098_ + _self152095_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153031 '())))) + (cons __tmp153028 '())))) (declare (not safe)) - (cons '%#ref __tmp153030))) + (cons '%#ref __tmp153027))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp153026 - (let ((__tmp153027 - (let ((__tmp153028 + (__tmp153023 + (let ((__tmp153024 + (let ((__tmp153025 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj152126_ '())))) + (cons _$obj152123_ '())))) (declare (not safe)) - (cons '%#ref __tmp153028)))) + (cons '%#ref __tmp153025)))) (declare (not safe)) - (cons __tmp153027 _args152106_)))) + (cons __tmp153024 _args152103_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153029 - __tmp153026)))) + (cons __tmp153026 + __tmp153023)))) (declare (not safe)) - (cons __tmp153032 __tmp153025)))) + (cons __tmp153029 __tmp153022)))) (declare (not safe)) - (cons '%#call __tmp153024)) - (let ((__tmp153011 - (let ((__tmp153022 - (let ((__tmp153023 + (cons '%#call __tmp153021)) + (let ((__tmp153008 + (let ((__tmp153019 + (let ((__tmp153020 (let () (declare (not safe)) (cons 'call-method '())))) (declare (not safe)) - (cons '%#ref __tmp153023))) - (__tmp153012 - (let ((__tmp153019 - (let ((__tmp153020 - (let ((__tmp153021 + (cons '%#ref __tmp153020))) + (__tmp153009 + (let ((__tmp153016 + (let ((__tmp153017 + (let ((__tmp153018 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self152098_ + _self152095_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153021 '())))) + (cons __tmp153018 '())))) (declare (not safe)) - (cons '%#ref __tmp153020))) + (cons '%#ref __tmp153017))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp153013 - (let ((__tmp153017 - (let ((__tmp153018 + (__tmp153010 + (let ((__tmp153014 + (let ((__tmp153015 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'instance-init! '())))) (declare (not safe)) - (cons '%#quote __tmp153018))) - (__tmp153014 - (let ((__tmp153015 - (let ((__tmp153016 + (cons '%#quote __tmp153015))) + (__tmp153011 + (let ((__tmp153012 + (let ((__tmp153013 (let () (declare (not safe)) - (cons _$obj152126_ '())))) + (cons _$obj152123_ '())))) (declare (not safe)) - (cons '%#ref __tmp153016)))) + (cons '%#ref __tmp153013)))) (declare (not safe)) - (cons __tmp153015 _args152106_)))) + (cons __tmp153012 _args152103_)))) (declare (not safe)) - (cons __tmp153017 __tmp153014)))) + (cons __tmp153014 __tmp153011)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153019 - __tmp153013)))) + (cons __tmp153016 + __tmp153010)))) (declare (not safe)) - (cons __tmp153022 __tmp153012)))) + (cons __tmp153019 __tmp153009)))) (declare (not safe)) - (cons '%#call __tmp153011)))) - (__tmp153007 - (let ((__tmp153008 - (let ((__tmp153009 + (cons '%#call __tmp153008)))) + (__tmp153004 + (let ((__tmp153005 + (let ((__tmp153006 (let () (declare (not safe)) - (cons _$obj152126_ '())))) + (cons _$obj152123_ '())))) (declare (not safe)) - (cons '%#ref __tmp153009)))) + (cons '%#ref __tmp153006)))) (declare (not safe)) - (cons __tmp153008 '())))) + (cons __tmp153005 '())))) (declare (not safe)) - (cons __tmp153010 __tmp153007)))) + (cons __tmp153007 __tmp153004)))) (declare (not safe)) - (cons '%#begin __tmp153006)))) + (cons '%#begin __tmp153003)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153005 '())))) + (cons __tmp153002 '())))) (declare (not safe)) - (cons __tmp153034 __tmp153004)))) + (cons __tmp153031 __tmp153001)))) (declare (not safe)) - (cons '%#let-values __tmp153003)))) + (cons '%#let-values __tmp153000)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153002 _stx152099_)))) - _$e152121_) - (if (##structure-ref _klass152102_ '7 gxc#!class::t '#f) - (if (fx= (length _args152106_) _fields152104_) - (let ((__tmp152992 - (let ((__tmp152993 - (let ((__tmp152998 - (let ((__tmp152999 + (gxc#xform-wrap-source __tmp152999 _stx152096_)))) + _$e152118_) + (if (##structure-ref _klass152099_ '7 gxc#!class::t '#f) + (if (fx= (length _args152103_) _fields152101_) + (let ((__tmp152989 + (let ((__tmp152990 + (let ((__tmp152995 + (let ((__tmp152996 (let () (declare (not safe)) @@ -1129,897 +1129,897 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp152999))) - (__tmp152994 - (let ((__tmp152995 - (let ((__tmp152996 + __tmp152996))) + (__tmp152991 + (let ((__tmp152992 + (let ((__tmp152993 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152997 + (let ((__tmp152994 (##structure-ref - _self152098_ + _self152095_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152997 '())))) + (cons __tmp152994 '())))) (declare (not safe)) - (cons '%#ref __tmp152996)))) + (cons '%#ref __tmp152993)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152995 - _args152106_)))) + (cons __tmp152992 + _args152103_)))) (declare (not safe)) - (cons __tmp152998 __tmp152994)))) + (cons __tmp152995 __tmp152991)))) (declare (not safe)) - (cons '%#call __tmp152993)))) + (cons '%#call __tmp152990)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152992 - _stx152099_)) - (let ((__tmp152991 + __tmp152989 + _stx152096_)) + (let ((__tmp152988 (##structure-ref - _self152098_ + _self152095_ '1 gxc#!type::t '#f)) - (__tmp152990 + (__tmp152987 (length (##structure-ref - _klass152102_ + _klass152099_ '5 gxc#!class::t '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _stx152099_ - __tmp152991 - __tmp152990))) - (let ((_$obj152131_ - (let ((__tmp152939 (gensym '__obj))) + _stx152096_ + __tmp152988 + __tmp152987))) + (let ((_$obj152128_ + (let ((__tmp152936 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp152939)))) - (let _lp152133_ ((_rest152135_ _args152106_) - (_initializers152136_ '())) - (let* ((___stx152669152670_ _rest152135_) - (_g152140152161_ + (make-symbol__0 __tmp152936)))) + (let _lp152130_ ((_rest152132_ _args152103_) + (_initializers152133_ '())) + (let* ((___stx152666152667_ _rest152132_) + (_g152137152158_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx152669152670_))))) - (let ((___kont152671152672_ - (lambda (_L152215_ _L152216_ _L152217_) - (let* ((_slot152248_ + ___stx152666152667_))))) + (let ((___kont152668152669_ + (lambda (_L152212_ _L152213_ _L152214_) + (let* ((_slot152245_ (keyword->symbol (let () (declare (not safe)) - (gx#stx-e _L152217_)))) - (_off152250_ + (gx#stx-e _L152214_)))) + (_off152247_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _klass152102_ - _slot152248_)))) - (if _off152250_ - (let ((__tmp152941 - (let ((__tmp152942 + _klass152099_ + _slot152245_)))) + (if _off152247_ + (let ((__tmp152938 + (let ((__tmp152939 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _off152250_ _L152216_)))) + (cons _off152247_ _L152213_)))) (declare (not safe)) - (cons __tmp152942 _initializers152136_)))) + (cons __tmp152939 _initializers152133_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp152133_ - _L152215_ - __tmp152941)) - (let ((__tmp152940 + (_lp152130_ + _L152212_ + __tmp152938)) + (let ((__tmp152937 (##structure-ref - _self152098_ + _self152095_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _stx152099_ - __tmp152940 - _slot152248_)))))) - (___kont152673152674_ + _stx152096_ + __tmp152937 + _slot152245_)))))) + (___kont152670152671_ (lambda () - (let ((__tmp152943 - (let ((__tmp152944 - (let ((__tmp152967 - (let ((__tmp152968 + (let ((__tmp152940 + (let ((__tmp152941 + (let ((__tmp152964 + (let ((__tmp152965 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152970 + (let ((__tmp152967 (let () (declare (not safe)) - (cons _$obj152131_ '()))) - (__tmp152969 + (cons _$obj152128_ '()))) + (__tmp152966 (let () (declare (not safe)) - (cons _inline-make-object152108_ '())))) + (cons _inline-make-object152105_ '())))) (declare (not safe)) - (cons __tmp152970 __tmp152969)))) + (cons __tmp152967 __tmp152966)))) (declare (not safe)) - (cons __tmp152968 '()))) - (__tmp152945 - (let ((__tmp152946 - (let ((__tmp152947 - (let ((__tmp152964 - (let ((__tmp152965 - (let ((__tmp152966 + (cons __tmp152965 '()))) + (__tmp152942 + (let ((__tmp152943 + (let ((__tmp152944 + (let ((__tmp152961 + (let ((__tmp152962 + (let ((__tmp152963 (let () (declare (not safe)) - (cons _$obj152131_ + (cons _$obj152128_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp152966)))) + __tmp152963)))) (declare (not safe)) - (cons __tmp152965 '()))) - (__tmp152948 - (let ((__tmp152949 - (lambda (_i152175_ _r152176_) - (let ((__tmp152950 - (let ((__tmp152951 + (cons __tmp152962 '()))) + (__tmp152945 + (let ((__tmp152946 + (lambda (_i152172_ _r152173_) + (let ((__tmp152947 + (let ((__tmp152948 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152961 - (let ((__tmp152962 - (let ((__tmp152963 + (let ((__tmp152958 + (let ((__tmp152959 + (let ((__tmp152960 (##structure-ref - _self152098_ + _self152095_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152963 '())))) + (cons __tmp152960 '())))) (declare (not safe)) - (cons '%#ref __tmp152962))) - (__tmp152952 - (let ((__tmp152958 - (let ((__tmp152959 - (let ((__tmp152960 - (car _i152175_))) - (declare (not safe)) - (cons __tmp152960 '())))) - (declare (not safe)) - (cons '%#quote __tmp152959))) - (__tmp152953 + (cons '%#ref __tmp152959))) + (__tmp152949 + (let ((__tmp152955 (let ((__tmp152956 (let ((__tmp152957 + (car _i152172_))) + (declare (not safe)) + (cons __tmp152957 '())))) + (declare (not safe)) + (cons '%#quote __tmp152956))) + (__tmp152950 + (let ((__tmp152953 + (let ((__tmp152954 (let () (declare (not safe)) - (cons _$obj152131_ + (cons _$obj152128_ '())))) (declare (not safe)) - (cons '%#ref __tmp152957))) - (__tmp152954 - (let ((__tmp152955 - (cdr _i152175_))) + (cons '%#ref __tmp152954))) + (__tmp152951 + (let ((__tmp152952 + (cdr _i152172_))) (declare (not safe)) - (cons __tmp152955 '())))) + (cons __tmp152952 '())))) (declare (not safe)) - (cons __tmp152956 __tmp152954)))) + (cons __tmp152953 __tmp152951)))) (declare (not safe)) - (cons __tmp152958 __tmp152953)))) + (cons __tmp152955 __tmp152950)))) (declare (not safe)) - (cons __tmp152961 __tmp152952)))) + (cons __tmp152958 __tmp152949)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp152951)))) + (cons '%#struct-unchecked-set! __tmp152948)))) (declare (not safe)) - (cons __tmp152950 _r152176_))))) + (cons __tmp152947 _r152173_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp152949 + (foldl1 __tmp152946 '() - _initializers152136_)))) + _initializers152133_)))) (declare (not safe)) - (foldr1 cons __tmp152964 __tmp152948)))) + (foldr1 cons __tmp152961 __tmp152945)))) (declare (not safe)) - (cons '%#begin __tmp152947)))) + (cons '%#begin __tmp152944)))) (declare (not safe)) - (cons __tmp152946 '())))) + (cons __tmp152943 '())))) (declare (not safe)) - (cons __tmp152967 __tmp152945)))) + (cons __tmp152964 __tmp152942)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp152944)))) + __tmp152941)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152943 - _stx152099_)))) - (___kont152675152676_ + __tmp152940 + _stx152096_)))) + (___kont152672152673_ (lambda () - (let ((__tmp152971 - (let ((__tmp152972 - (let ((__tmp152986 - (let ((__tmp152987 + (let ((__tmp152968 + (let ((__tmp152969 + (let ((__tmp152983 + (let ((__tmp152984 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152989 + (let ((__tmp152986 (let () (declare (not safe)) - (cons _$obj152131_ '()))) - (__tmp152988 + (cons _$obj152128_ '()))) + (__tmp152985 (let () (declare (not safe)) - (cons _inline-make-object152108_ '())))) + (cons _inline-make-object152105_ '())))) (declare (not safe)) - (cons __tmp152989 __tmp152988)))) + (cons __tmp152986 __tmp152985)))) (declare (not safe)) - (cons __tmp152987 '()))) - (__tmp152973 - (let ((__tmp152974 - (let ((__tmp152975 - (let ((__tmp152979 - (let ((__tmp152980 - (let ((__tmp152984 - (let ((__tmp152985 + (cons __tmp152984 '()))) + (__tmp152970 + (let ((__tmp152971 + (let ((__tmp152972 + (let ((__tmp152976 + (let ((__tmp152977 + (let ((__tmp152981 + (let ((__tmp152982 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'class-instance-init! '())))) (declare (not safe)) - (cons '%#ref __tmp152985))) - (__tmp152981 - (let ((__tmp152982 - (let ((__tmp152983 + (cons '%#ref __tmp152982))) + (__tmp152978 + (let ((__tmp152979 + (let ((__tmp152980 (let () (declare (not safe)) - (cons _$obj152131_ '())))) + (cons _$obj152128_ '())))) (declare (not safe)) - (cons '%#ref __tmp152983)))) + (cons '%#ref __tmp152980)))) (declare (not safe)) - (cons __tmp152982 _args152106_)))) + (cons __tmp152979 _args152103_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152984 - __tmp152981)))) + (cons __tmp152981 + __tmp152978)))) (declare (not safe)) - (cons '%#call __tmp152980))) - (__tmp152976 - (let ((__tmp152977 - (let ((__tmp152978 + (cons '%#call __tmp152977))) + (__tmp152973 + (let ((__tmp152974 + (let ((__tmp152975 (let () (declare (not safe)) - (cons _$obj152131_ + (cons _$obj152128_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp152978)))) + __tmp152975)))) (declare (not safe)) - (cons __tmp152977 '())))) + (cons __tmp152974 '())))) (declare (not safe)) - (cons __tmp152979 __tmp152976)))) + (cons __tmp152976 __tmp152973)))) (declare (not safe)) - (cons '%#begin __tmp152975)))) + (cons '%#begin __tmp152972)))) (declare (not safe)) - (cons __tmp152974 '())))) + (cons __tmp152971 '())))) (declare (not safe)) - (cons __tmp152986 __tmp152973)))) + (cons __tmp152983 __tmp152970)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp152972)))) + __tmp152969)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152971 - _stx152099_))))) - (let* ((_g152138152178_ + __tmp152968 + _stx152096_))))) + (let* ((_g152135152175_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - ___stx152669152670_)) - (___kont152673152674_) - (___kont152675152676_)))) - (___match152706152707_ - (lambda (_e152147152183_ - _hd152146152186_ - _tl152145152188_ - _e152150152191_ - _hd152149152194_ - _tl152148152196_ - _e152153152199_ - _hd152152152202_ - _tl152151152204_ - _e152156152207_ - _hd152155152210_ - _tl152154152212_) - (let ((_L152215_ _tl152154152212_) - (_L152216_ _hd152155152210_) - (_L152217_ _hd152152152202_)) + ___stx152666152667_)) + (___kont152670152671_) + (___kont152672152673_)))) + (___match152703152704_ + (lambda (_e152144152180_ + _hd152143152183_ + _tl152142152185_ + _e152147152188_ + _hd152146152191_ + _tl152145152193_ + _e152150152196_ + _hd152149152199_ + _tl152148152201_ + _e152153152204_ + _hd152152152207_ + _tl152151152209_) + (let ((_L152212_ _tl152151152209_) + (_L152213_ _hd152152152207_) + (_L152214_ _hd152149152199_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _L152217_)) - (___kont152671152672_ - _L152215_ - _L152216_ - _L152217_) - (___kont152675152676_)))))) + _L152214_)) + (___kont152668152669_ + _L152212_ + _L152213_ + _L152214_) + (___kont152672152673_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx152669152670_)) - (let ((_e152147152183_ + (gx#stx-pair? ___stx152666152667_)) + (let ((_e152144152180_ (let () (declare (not safe)) (gx#stx-e - ___stx152669152670_)))) - (let ((_tl152145152188_ + ___stx152666152667_)))) + (let ((_tl152142152185_ (let () (declare (not safe)) - (##cdr _e152147152183_))) - (_hd152146152186_ + (##cdr _e152144152180_))) + (_hd152143152183_ (let () (declare (not safe)) - (##car _e152147152183_)))) + (##car _e152144152180_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd152146152186_)) - (let ((_e152150152191_ + _hd152143152183_)) + (let ((_e152147152188_ (let () (declare (not safe)) (gx#stx-e - _hd152146152186_)))) - (let ((_tl152148152196_ + _hd152143152183_)))) + (let ((_tl152145152193_ (let () (declare (not safe)) - (##cdr _e152150152191_))) - (_hd152149152194_ + (##cdr _e152147152188_))) + (_hd152146152191_ (let () (declare (not safe)) - (##car _e152150152191_)))) + (##car _e152147152188_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd152149152194_)) + _hd152146152191_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd152149152194_)) + _hd152146152191_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl152148152196_)) - (let ((_e152153152199_ + (gx#stx-pair? _tl152145152193_)) + (let ((_e152150152196_ (let () (declare (not safe)) - (gx#stx-e _tl152148152196_)))) - (let ((_tl152151152204_ + (gx#stx-e _tl152145152193_)))) + (let ((_tl152148152201_ (let () (declare (not safe)) - (##cdr _e152153152199_))) - (_hd152152152202_ + (##cdr _e152150152196_))) + (_hd152149152199_ (let () (declare (not safe)) - (##car _e152153152199_)))) + (##car _e152150152196_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl152151152204_)) + (gx#stx-null? _tl152148152201_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl152145152188_)) - (let ((_e152156152207_ + (gx#stx-pair? _tl152142152185_)) + (let ((_e152153152204_ (let () (declare (not safe)) - (gx#stx-e _tl152145152188_)))) - (let ((_tl152154152212_ + (gx#stx-e _tl152142152185_)))) + (let ((_tl152151152209_ (let () (declare (not safe)) - (##cdr _e152156152207_))) - (_hd152155152210_ + (##cdr _e152153152204_))) + (_hd152152152207_ (let () (declare (not safe)) - (##car _e152156152207_)))) - (___match152706152707_ - _e152147152183_ - _hd152146152186_ - _tl152145152188_ - _e152150152191_ - _hd152149152194_ - _tl152148152196_ - _e152153152199_ - _hd152152152202_ - _tl152151152204_ - _e152156152207_ - _hd152155152210_ - _tl152154152212_))) - (___kont152675152676_)) - (___kont152675152676_)))) - (___kont152675152676_)) - (___kont152675152676_)) - (___kont152675152676_)))) + (##car _e152153152204_)))) + (___match152703152704_ + _e152144152180_ + _hd152143152183_ + _tl152142152185_ + _e152147152188_ + _hd152146152191_ + _tl152145152193_ + _e152150152196_ + _hd152149152199_ + _tl152148152201_ + _e152153152204_ + _hd152152152207_ + _tl152151152209_))) + (___kont152672152673_)) + (___kont152672152673_)))) + (___kont152672152673_)) + (___kont152672152673_)) + (___kont152672152673_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont152675152676_)))) + (___kont152672152673_)))) (let () (declare (not safe)) - (_g152138152178_)))))))))))))))) + (_g152135152175_)))))))))))))))) (define gxc#!constructor::optimize-call::specialize - (lambda (__klass152592 __method-table152593) - (let ((__id152594 - (let ((__slot152595 + (lambda (__klass152589 __method-table152590) + (let ((__id152591 + (let ((__slot152592 (let () (declare (not safe)) - (class-slot-offset __klass152592 'id)))) - (if __slot152595 - __slot152595 + (class-slot-offset __klass152589 'id)))) + (if __slot152592 + __slot152592 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self152098_ _stx152099_ _args152100_) - (let* ((_klass152102_ - (let ((__tmp153112 + (lambda (_self152095_ _stx152096_ _args152097_) + (let* ((_klass152099_ + (let ((__tmp153109 (let () (declare (not safe)) (##unchecked-structure-ref - _self152098_ - __id152594 - __klass152592 + _self152095_ + __id152591 + __klass152589 '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _stx152099_ __tmp153112))) - (_fields152104_ + (gxc#optimizer-resolve-class _stx152096_ __tmp153109))) + (_fields152101_ (length (##structure-ref - _klass152102_ + _klass152099_ '5 gxc#!class::t '#f))) - (_args152106_ (map gxc#compile-e _args152100_)) - (_inline-make-object152108_ - (let ((__tmp153113 - (let ((__tmp153119 - (let ((__tmp153120 + (_args152103_ (map gxc#compile-e _args152097_)) + (_inline-make-object152105_ + (let ((__tmp153110 + (let ((__tmp153116 + (let ((__tmp153117 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp153120))) - (__tmp153114 - (let ((__tmp153116 - (let ((__tmp153117 - (let ((__tmp153118 + (cons '%#ref __tmp153117))) + (__tmp153111 + (let ((__tmp153113 + (let ((__tmp153114 + (let ((__tmp153115 (let () (declare (not safe)) (##unchecked-structure-ref - _self152098_ - __id152594 - __klass152592 + _self152095_ + __id152591 + __klass152589 '#f)))) (declare (not safe)) - (cons __tmp153118 '())))) + (cons __tmp153115 '())))) (declare (not safe)) - (cons '%#ref __tmp153117))) - (__tmp153115 + (cons '%#ref __tmp153114))) + (__tmp153112 (let () (declare (not safe)) (make-list__% - _fields152104_ + _fields152101_ '(%#quote #f))))) (declare (not safe)) - (cons __tmp153116 __tmp153115)))) + (cons __tmp153113 __tmp153112)))) (declare (not safe)) - (cons __tmp153119 __tmp153114)))) + (cons __tmp153116 __tmp153111)))) (declare (not safe)) - (cons '%#call __tmp153113)))) - (let ((_$e152111_ - (##structure-ref _klass152102_ '6 gxc#!class::t '#f))) - (if _$e152111_ - ((lambda (_ctor152114_) - (let ((_$obj152116_ - (let ((__tmp153220 (gensym '__obj))) + (cons '%#call __tmp153110)))) + (let ((_$e152108_ + (##structure-ref _klass152099_ '6 gxc#!class::t '#f))) + (if _$e152108_ + ((lambda (_ctor152111_) + (let ((_$obj152113_ + (let ((__tmp153217 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153220))) - (_ctor-impl152117_ + (make-symbol__0 __tmp153217))) + (_ctor-impl152114_ (let () (declare (not safe)) (gxc#!class-lookup-method - _klass152102_ - _ctor152114_)))) - (let ((__tmp153221 - (let ((__tmp153222 - (let ((__tmp153290 - (let ((__tmp153291 - (let ((__tmp153293 + _klass152099_ + _ctor152111_)))) + (let ((__tmp153218 + (let ((__tmp153219 + (let ((__tmp153287 + (let ((__tmp153288 + (let ((__tmp153290 (let () (declare (not safe)) - (cons _$obj152116_ + (cons _$obj152113_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp153292 + (__tmp153289 (let () (declare (not safe)) - (cons _inline-make-object152108_ '())))) + (cons _inline-make-object152105_ '())))) (declare (not safe)) - (cons __tmp153293 __tmp153292)))) + (cons __tmp153290 __tmp153289)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153291 '()))) - (__tmp153223 - (let ((__tmp153224 - (let ((__tmp153225 - (let ((__tmp153229 + (cons __tmp153288 '()))) + (__tmp153220 + (let ((__tmp153221 + (let ((__tmp153222 + (let ((__tmp153226 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _ctor-impl152117_ - (let ((__tmp153284 - (let ((__tmp153288 - (let ((__tmp153289 + (if _ctor-impl152114_ + (let ((__tmp153281 + (let ((__tmp153285 + (let ((__tmp153286 (let () (declare (not safe)) - (cons _ctor-impl152117_ + (cons _ctor-impl152114_ '())))) (declare (not safe)) - (cons '%#ref __tmp153289))) - (__tmp153285 - (let ((__tmp153286 - (let ((__tmp153287 + (cons '%#ref __tmp153286))) + (__tmp153282 + (let ((__tmp153283 + (let ((__tmp153284 (let () (declare (not safe)) - (cons _$obj152116_ + (cons _$obj152113_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp153287)))) + (cons '%#ref __tmp153284)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153286 - _args152106_)))) + (cons __tmp153283 + _args152103_)))) (declare (not safe)) - (cons __tmp153288 __tmp153285)))) + (cons __tmp153285 __tmp153282)))) (declare (not safe)) - (cons '%#call __tmp153284)) - (let* ((_$ctor152119_ - (let ((__tmp153230 + (cons '%#call __tmp153281)) + (let* ((_$ctor152116_ + (let ((__tmp153227 (gensym '__constructor))) (declare (not safe)) - (make-symbol__0 __tmp153230))) - (__tmp153231 - (let ((__tmp153266 - (let ((__tmp153267 - (let ((__tmp153283 + (make-symbol__0 __tmp153227))) + (__tmp153228 + (let ((__tmp153263 + (let ((__tmp153264 + (let ((__tmp153280 (let () (declare (not safe)) - (cons _$ctor152119_ + (cons _$ctor152116_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp153268 - (let ((__tmp153269 - (let ((__tmp153270 - (let ((__tmp153281 - (let ((__tmp153282 + (__tmp153265 + (let ((__tmp153266 + (let ((__tmp153267 + (let ((__tmp153278 + (let ((__tmp153279 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp153282))) - (__tmp153271 - (let ((__tmp153278 - (let ((__tmp153279 - (let ((__tmp153280 + (cons '%#ref __tmp153279))) + (__tmp153268 + (let ((__tmp153275 + (let ((__tmp153276 + (let ((__tmp153277 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self152098_ - __id152594 - __klass152592 + _self152095_ + __id152591 + __klass152589 '#f)))) (declare (not safe)) - (cons __tmp153280 '())))) + (cons __tmp153277 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp153279))) - (__tmp153272 - (let ((__tmp153276 - (let ((__tmp153277 + (cons '%#ref __tmp153276))) + (__tmp153269 + (let ((__tmp153273 + (let ((__tmp153274 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj152116_ '())))) + (cons _$obj152113_ '())))) (declare (not safe)) - (cons '%#ref __tmp153277))) - (__tmp153273 - (let ((__tmp153274 - (let ((__tmp153275 + (cons '%#ref __tmp153274))) + (__tmp153270 + (let ((__tmp153271 + (let ((__tmp153272 (let () (declare (not safe)) - (cons _ctor152114_ '())))) + (cons _ctor152111_ '())))) (declare (not safe)) - (cons '%#quote __tmp153275)))) + (cons '%#quote __tmp153272)))) (declare (not safe)) - (cons __tmp153274 '())))) + (cons __tmp153271 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153276 - __tmp153273)))) + (cons __tmp153273 + __tmp153270)))) (declare (not safe)) - (cons __tmp153278 __tmp153272)))) + (cons __tmp153275 __tmp153269)))) (declare (not safe)) - (cons __tmp153281 __tmp153271)))) + (cons __tmp153278 __tmp153268)))) (declare (not safe)) - (cons '%#call __tmp153270)))) + (cons '%#call __tmp153267)))) (declare (not safe)) - (cons __tmp153269 '())))) + (cons __tmp153266 '())))) (declare (not safe)) - (cons __tmp153283 __tmp153268)))) + (cons __tmp153280 __tmp153265)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153267 '()))) - (__tmp153232 - (let ((__tmp153233 - (let ((__tmp153234 - (let ((__tmp153264 + (cons __tmp153264 '()))) + (__tmp153229 + (let ((__tmp153230 + (let ((__tmp153231 + (let ((__tmp153261 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153265 + (let ((__tmp153262 (let () (declare (not safe)) - (cons _$ctor152119_ '())))) + (cons _$ctor152116_ '())))) (declare (not safe)) - (cons '%#ref __tmp153265))) - (__tmp153235 - (let ((__tmp153257 - (let ((__tmp153258 - (let ((__tmp153262 - (let ((__tmp153263 + (cons '%#ref __tmp153262))) + (__tmp153232 + (let ((__tmp153254 + (let ((__tmp153255 + (let ((__tmp153259 + (let ((__tmp153260 (let () (declare (not safe)) - (cons _$ctor152119_ + (cons _$ctor152116_ '())))) (declare (not safe)) - (cons '%#ref __tmp153263))) - (__tmp153259 - (let ((__tmp153260 - (let ((__tmp153261 + (cons '%#ref __tmp153260))) + (__tmp153256 + (let ((__tmp153257 + (let ((__tmp153258 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj152116_ '())))) + (cons _$obj152113_ '())))) (declare (not safe)) - (cons '%#ref __tmp153261)))) + (cons '%#ref __tmp153258)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153260 - _args152106_)))) + (cons __tmp153257 + _args152103_)))) (declare (not safe)) - (cons __tmp153262 __tmp153259)))) + (cons __tmp153259 __tmp153256)))) (declare (not safe)) - (cons '%#call __tmp153258))) - (__tmp153236 - (let ((__tmp153237 - (let ((__tmp153238 - (let ((__tmp153255 - (let ((__tmp153256 + (cons '%#call __tmp153255))) + (__tmp153233 + (let ((__tmp153234 + (let ((__tmp153235 + (let ((__tmp153252 + (let ((__tmp153253 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp153256))) - (__tmp153239 - (let ((__tmp153253 - (let ((__tmp153254 + (cons '%#ref __tmp153253))) + (__tmp153236 + (let ((__tmp153250 + (let ((__tmp153251 (let () (declare (not safe)) (cons '"missing constructor method implementation" '())))) (declare (not safe)) - (cons '%#quote __tmp153254))) - (__tmp153240 - (let ((__tmp153251 - (let ((__tmp153252 + (cons '%#quote __tmp153251))) + (__tmp153237 + (let ((__tmp153248 + (let ((__tmp153249 (let () (declare (not safe)) (cons 'class: '())))) (declare (not safe)) - (cons '%#quote __tmp153252))) - (__tmp153241 - (let ((__tmp153248 - (let ((__tmp153249 - (let ((__tmp153250 + (cons '%#quote __tmp153249))) + (__tmp153238 + (let ((__tmp153245 + (let ((__tmp153246 + (let ((__tmp153247 (let () (declare (not safe)) (##unchecked-structure-ref - _self152098_ - __id152594 - __klass152592 + _self152095_ + __id152591 + __klass152589 '#f)))) (declare (not safe)) - (cons __tmp153250 '())))) + (cons __tmp153247 '())))) (declare (not safe)) - (cons '%#ref __tmp153249))) - (__tmp153242 - (let ((__tmp153246 - (let ((__tmp153247 + (cons '%#ref __tmp153246))) + (__tmp153239 + (let ((__tmp153243 + (let ((__tmp153244 (let () (declare (not safe)) (cons 'method: '())))) (declare (not safe)) - (cons '%#quote __tmp153247))) - (__tmp153243 - (let ((__tmp153244 - (let ((__tmp153245 + (cons '%#quote __tmp153244))) + (__tmp153240 + (let ((__tmp153241 + (let ((__tmp153242 (let () (declare (not safe)) - (cons _ctor152114_ + (cons _ctor152111_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#quote - __tmp153245)))) + __tmp153242)))) (declare (not safe)) - (cons __tmp153244 '())))) + (cons __tmp153241 '())))) (declare (not safe)) - (cons __tmp153246 __tmp153243)))) + (cons __tmp153243 __tmp153240)))) (declare (not safe)) - (cons __tmp153248 __tmp153242)))) + (cons __tmp153245 __tmp153239)))) (declare (not safe)) - (cons __tmp153251 __tmp153241)))) + (cons __tmp153248 __tmp153238)))) (declare (not safe)) - (cons __tmp153253 __tmp153240)))) + (cons __tmp153250 __tmp153237)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153255 - __tmp153239)))) + (cons __tmp153252 + __tmp153236)))) (declare (not safe)) - (cons '%#call __tmp153238)))) + (cons '%#call __tmp153235)))) (declare (not safe)) - (cons __tmp153237 '())))) + (cons __tmp153234 '())))) (declare (not safe)) - (cons __tmp153257 __tmp153236)))) + (cons __tmp153254 __tmp153233)))) (declare (not safe)) - (cons __tmp153264 __tmp153235)))) + (cons __tmp153261 __tmp153232)))) (declare (not safe)) - (cons '%#if __tmp153234)))) + (cons '%#if __tmp153231)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153233 '())))) + (cons __tmp153230 '())))) (declare (not safe)) - (cons __tmp153266 __tmp153232)))) + (cons __tmp153263 __tmp153229)))) (declare (not safe)) - (cons '%#let-values __tmp153231)))) - (__tmp153226 - (let ((__tmp153227 - (let ((__tmp153228 + (cons '%#let-values __tmp153228)))) + (__tmp153223 + (let ((__tmp153224 + (let ((__tmp153225 (let () (declare (not safe)) - (cons _$obj152116_ '())))) + (cons _$obj152113_ '())))) (declare (not safe)) - (cons '%#ref __tmp153228)))) + (cons '%#ref __tmp153225)))) (declare (not safe)) - (cons __tmp153227 '())))) + (cons __tmp153224 '())))) (declare (not safe)) - (cons __tmp153229 __tmp153226)))) + (cons __tmp153226 __tmp153223)))) (declare (not safe)) - (cons '%#begin __tmp153225)))) + (cons '%#begin __tmp153222)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153224 '())))) + (cons __tmp153221 '())))) (declare (not safe)) - (cons __tmp153290 __tmp153223)))) + (cons __tmp153287 __tmp153220)))) (declare (not safe)) - (cons '%#let-values __tmp153222)))) + (cons '%#let-values __tmp153219)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153221 _stx152099_)))) - _$e152111_) - (let ((_$e152121_ + (gxc#xform-wrap-source __tmp153218 _stx152096_)))) + _$e152108_) + (let ((_$e152118_ (##structure-ref - _klass152102_ + _klass152099_ '9 gxc#!class::t '#f))) - (if _$e152121_ - ((lambda (_metaclass152124_) - (let* ((_$obj152126_ - (let ((__tmp153182 (gensym '__obj))) + (if _$e152118_ + ((lambda (_metaclass152121_) + (let* ((_$obj152123_ + (let ((__tmp153179 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153182))) - (_metakons152128_ - (let ((__tmp153183 + (make-symbol__0 __tmp153179))) + (_metakons152125_ + (let ((__tmp153180 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _stx152099_ - _metaclass152124_)))) + _stx152096_ + _metaclass152121_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp153183 + __tmp153180 'instance-init!)))) - (let ((__tmp153184 - (let ((__tmp153185 - (let ((__tmp153216 - (let ((__tmp153217 - (let ((__tmp153219 + (let ((__tmp153181 + (let ((__tmp153182 + (let ((__tmp153213 + (let ((__tmp153214 + (let ((__tmp153216 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj152126_ '()))) - (__tmp153218 + (cons _$obj152123_ '()))) + (__tmp153215 (let () (declare (not safe)) - (cons _inline-make-object152108_ '())))) + (cons _inline-make-object152105_ '())))) (declare (not safe)) - (cons __tmp153219 __tmp153218)))) + (cons __tmp153216 __tmp153215)))) (declare (not safe)) - (cons __tmp153217 '()))) + (cons __tmp153214 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp153186 - (let ((__tmp153187 - (let ((__tmp153188 + (__tmp153183 + (let ((__tmp153184 + (let ((__tmp153185 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153192 - (if _metakons152128_ - (let ((__tmp153206 - (let ((__tmp153214 - (let ((__tmp153215 + (let ((__tmp153189 + (if _metakons152125_ + (let ((__tmp153203 + (let ((__tmp153211 + (let ((__tmp153212 (let () (declare (not safe)) - (cons _metakons152128_ + (cons _metakons152125_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153215))) - (__tmp153207 - (let ((__tmp153211 - (let ((__tmp153212 + __tmp153212))) + (__tmp153204 + (let ((__tmp153208 + (let ((__tmp153209 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153213 + (let ((__tmp153210 (let () (declare (not safe)) (##unchecked-structure-ref - _self152098_ - __id152594 - __klass152592 + _self152095_ + __id152591 + __klass152589 '#f)))) (declare (not safe)) - (cons __tmp153213 '())))) + (cons __tmp153210 '())))) (declare (not safe)) - (cons '%#ref __tmp153212))) - (__tmp153208 - (let ((__tmp153209 - (let ((__tmp153210 + (cons '%#ref __tmp153209))) + (__tmp153205 + (let ((__tmp153206 + (let ((__tmp153207 (let () (declare (not safe)) - (cons _$obj152126_ '())))) + (cons _$obj152123_ '())))) (declare (not safe)) - (cons '%#ref __tmp153210)))) + (cons '%#ref __tmp153207)))) (declare (not safe)) - (cons __tmp153209 _args152106_)))) + (cons __tmp153206 _args152103_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153211 - __tmp153208)))) + (cons __tmp153208 + __tmp153205)))) (declare (not safe)) - (cons __tmp153214 __tmp153207)))) + (cons __tmp153211 __tmp153204)))) (declare (not safe)) - (cons '%#call __tmp153206)) - (let ((__tmp153193 - (let ((__tmp153204 - (let ((__tmp153205 + (cons '%#call __tmp153203)) + (let ((__tmp153190 + (let ((__tmp153201 + (let ((__tmp153202 (let () (declare (not safe)) @@ -2029,526 +2029,526 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153205))) - (__tmp153194 - (let ((__tmp153201 - (let ((__tmp153202 + __tmp153202))) + (__tmp153191 + (let ((__tmp153198 + (let ((__tmp153199 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153203 + (let ((__tmp153200 (let () (declare (not safe)) (##unchecked-structure-ref - _self152098_ - __id152594 - __klass152592 + _self152095_ + __id152591 + __klass152589 '#f)))) (declare (not safe)) - (cons __tmp153203 '())))) + (cons __tmp153200 '())))) (declare (not safe)) - (cons '%#ref __tmp153202))) - (__tmp153195 - (let ((__tmp153199 - (let ((__tmp153200 + (cons '%#ref __tmp153199))) + (__tmp153192 + (let ((__tmp153196 + (let ((__tmp153197 (let () (declare (not safe)) (cons 'instance-init! '())))) (declare (not safe)) - (cons '%#quote __tmp153200))) - (__tmp153196 - (let ((__tmp153197 - (let ((__tmp153198 + (cons '%#quote __tmp153197))) + (__tmp153193 + (let ((__tmp153194 + (let ((__tmp153195 (let () (declare (not safe)) - (cons _$obj152126_ '())))) + (cons _$obj152123_ '())))) (declare (not safe)) - (cons '%#ref __tmp153198)))) + (cons '%#ref __tmp153195)))) (declare (not safe)) - (cons __tmp153197 _args152106_)))) + (cons __tmp153194 _args152103_)))) (declare (not safe)) - (cons __tmp153199 __tmp153196)))) + (cons __tmp153196 __tmp153193)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153201 - __tmp153195)))) + (cons __tmp153198 + __tmp153192)))) (declare (not safe)) - (cons __tmp153204 __tmp153194)))) + (cons __tmp153201 __tmp153191)))) (declare (not safe)) - (cons '%#call __tmp153193)))) - (__tmp153189 - (let ((__tmp153190 - (let ((__tmp153191 + (cons '%#call __tmp153190)))) + (__tmp153186 + (let ((__tmp153187 + (let ((__tmp153188 (let () (declare (not safe)) - (cons _$obj152126_ '())))) + (cons _$obj152123_ '())))) (declare (not safe)) - (cons '%#ref __tmp153191)))) + (cons '%#ref __tmp153188)))) (declare (not safe)) - (cons __tmp153190 '())))) + (cons __tmp153187 '())))) (declare (not safe)) - (cons __tmp153192 __tmp153189)))) + (cons __tmp153189 __tmp153186)))) (declare (not safe)) - (cons '%#begin __tmp153188)))) + (cons '%#begin __tmp153185)))) (declare (not safe)) - (cons __tmp153187 '())))) + (cons __tmp153184 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153216 - __tmp153186)))) + (cons __tmp153213 + __tmp153183)))) (declare (not safe)) - (cons '%#let-values __tmp153185)))) + (cons '%#let-values __tmp153182)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153184 - _stx152099_)))) - _$e152121_) + __tmp153181 + _stx152096_)))) + _$e152118_) (if (##structure-ref - _klass152102_ + _klass152099_ '7 gxc#!class::t '#f) - (if (fx= (length _args152106_) _fields152104_) - (let ((__tmp153174 - (let ((__tmp153175 - (let ((__tmp153180 - (let ((__tmp153181 + (if (fx= (length _args152103_) _fields152101_) + (let ((__tmp153171 + (let ((__tmp153172 + (let ((__tmp153177 + (let ((__tmp153178 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp153181))) - (__tmp153176 - (let ((__tmp153177 - (let ((__tmp153178 - (let ((__tmp153179 + (cons '%#ref __tmp153178))) + (__tmp153173 + (let ((__tmp153174 + (let ((__tmp153175 + (let ((__tmp153176 (let () (declare (not safe)) (##unchecked-structure-ref - _self152098_ - __id152594 - __klass152592 + _self152095_ + __id152591 + __klass152589 '#f)))) (declare (not safe)) - (cons __tmp153179 '())))) + (cons __tmp153176 '())))) (declare (not safe)) - (cons '%#ref __tmp153178)))) + (cons '%#ref __tmp153175)))) (declare (not safe)) - (cons __tmp153177 _args152106_)))) + (cons __tmp153174 _args152103_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153180 - __tmp153176)))) + (cons __tmp153177 + __tmp153173)))) (declare (not safe)) - (cons '%#call __tmp153175)))) + (cons '%#call __tmp153172)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153174 - _stx152099_)) - (let ((__tmp153173 + __tmp153171 + _stx152096_)) + (let ((__tmp153170 (let () (declare (not safe)) (##unchecked-structure-ref - _self152098_ - __id152594 - __klass152592 + _self152095_ + __id152591 + __klass152589 '#f))) - (__tmp153172 + (__tmp153169 (length (##structure-ref - _klass152102_ + _klass152099_ '5 gxc#!class::t '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _stx152099_ - __tmp153173 - __tmp153172))) - (let ((_$obj152131_ - (let ((__tmp153121 (gensym '__obj))) + _stx152096_ + __tmp153170 + __tmp153169))) + (let ((_$obj152128_ + (let ((__tmp153118 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153121)))) - (let _lp152133_ ((_rest152135_ _args152106_) - (_initializers152136_ '())) - (let* ((___stx152711152712_ _rest152135_) - (_g152140152161_ + (make-symbol__0 __tmp153118)))) + (let _lp152130_ ((_rest152132_ _args152103_) + (_initializers152133_ '())) + (let* ((___stx152708152709_ _rest152132_) + (_g152137152158_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx152711152712_))))) - (let ((___kont152713152714_ - (lambda (_L152215_ - _L152216_ - _L152217_) - (let* ((_slot152248_ + ___stx152708152709_))))) + (let ((___kont152710152711_ + (lambda (_L152212_ + _L152213_ + _L152214_) + (let* ((_slot152245_ (keyword->symbol (let () (declare (not safe)) - (gx#stx-e _L152217_)))) - (_off152250_ + (gx#stx-e _L152214_)))) + (_off152247_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _klass152102_ - _slot152248_)))) - (if _off152250_ - (let ((__tmp153123 - (let ((__tmp153124 + _klass152099_ + _slot152245_)))) + (if _off152247_ + (let ((__tmp153120 + (let ((__tmp153121 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _off152250_ _L152216_)))) + (cons _off152247_ _L152213_)))) (declare (not safe)) - (cons __tmp153124 _initializers152136_)))) + (cons __tmp153121 _initializers152133_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp152133_ - _L152215_ - __tmp153123)) - (let ((__tmp153122 + (_lp152130_ + _L152212_ + __tmp153120)) + (let ((__tmp153119 (let () (declare (not safe)) (##unchecked-structure-ref - _self152098_ - __id152594 - __klass152592 + _self152095_ + __id152591 + __klass152589 '#f)))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _stx152099_ - __tmp153122 - _slot152248_)))))) - (___kont152715152716_ + _stx152096_ + __tmp153119 + _slot152245_)))))) + (___kont152712152713_ (lambda () - (let ((__tmp153125 - (let ((__tmp153126 - (let ((__tmp153149 + (let ((__tmp153122 + (let ((__tmp153123 + (let ((__tmp153146 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153150 - (let ((__tmp153152 + (let ((__tmp153147 + (let ((__tmp153149 (let () (declare (not safe)) - (cons _$obj152131_ '()))) - (__tmp153151 + (cons _$obj152128_ '()))) + (__tmp153148 (let () (declare (not safe)) - (cons _inline-make-object152108_ + (cons _inline-make-object152105_ '())))) (declare (not safe)) - (cons __tmp153152 __tmp153151)))) + (cons __tmp153149 __tmp153148)))) (declare (not safe)) - (cons __tmp153150 '()))) - (__tmp153127 - (let ((__tmp153128 - (let ((__tmp153129 - (let ((__tmp153146 - (let ((__tmp153147 - (let ((__tmp153148 + (cons __tmp153147 '()))) + (__tmp153124 + (let ((__tmp153125 + (let ((__tmp153126 + (let ((__tmp153143 + (let ((__tmp153144 + (let ((__tmp153145 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj152131_ '())))) + (cons _$obj152128_ '())))) (declare (not safe)) - (cons '%#ref __tmp153148)))) + (cons '%#ref __tmp153145)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153147 '()))) - (__tmp153130 - (let ((__tmp153131 - (lambda (_i152175_ - _r152176_) - (let ((__tmp153132 - (let ((__tmp153133 + (cons __tmp153144 '()))) + (__tmp153127 + (let ((__tmp153128 + (lambda (_i152172_ + _r152173_) + (let ((__tmp153129 + (let ((__tmp153130 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153143 - (let ((__tmp153144 - (let ((__tmp153145 + (let ((__tmp153140 + (let ((__tmp153141 + (let ((__tmp153142 (let () (declare (not safe)) (##unchecked-structure-ref - _self152098_ - __id152594 - __klass152592 + _self152095_ + __id152591 + __klass152589 '#f)))) (declare (not safe)) - (cons __tmp153145 '())))) + (cons __tmp153142 '())))) (declare (not safe)) - (cons '%#ref __tmp153144))) - (__tmp153134 - (let ((__tmp153140 - (let ((__tmp153141 - (let ((__tmp153142 - (car _i152175_))) - (declare (not safe)) - (cons __tmp153142 '())))) - (declare (not safe)) - (cons '%#quote __tmp153141))) - (__tmp153135 + (cons '%#ref __tmp153141))) + (__tmp153131 + (let ((__tmp153137 (let ((__tmp153138 (let ((__tmp153139 + (car _i152172_))) + (declare (not safe)) + (cons __tmp153139 '())))) + (declare (not safe)) + (cons '%#quote __tmp153138))) + (__tmp153132 + (let ((__tmp153135 + (let ((__tmp153136 (let () (declare (not safe)) - (cons _$obj152131_ + (cons _$obj152128_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153139))) - (__tmp153136 - (let ((__tmp153137 - (cdr _i152175_))) + __tmp153136))) + (__tmp153133 + (let ((__tmp153134 + (cdr _i152172_))) (declare (not safe)) - (cons __tmp153137 '())))) + (cons __tmp153134 '())))) (declare (not safe)) - (cons __tmp153138 __tmp153136)))) + (cons __tmp153135 __tmp153133)))) (declare (not safe)) - (cons __tmp153140 __tmp153135)))) + (cons __tmp153137 __tmp153132)))) (declare (not safe)) - (cons __tmp153143 __tmp153134)))) + (cons __tmp153140 __tmp153131)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp153133)))) + (cons '%#struct-unchecked-set! __tmp153130)))) (declare (not safe)) - (cons __tmp153132 _r152176_))))) + (cons __tmp153129 _r152173_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp153131 + (foldl1 __tmp153128 '() - _initializers152136_)))) + _initializers152133_)))) (declare (not safe)) (foldr1 cons - __tmp153146 - __tmp153130)))) + __tmp153143 + __tmp153127)))) (declare (not safe)) - (cons '%#begin __tmp153129)))) + (cons '%#begin __tmp153126)))) (declare (not safe)) - (cons __tmp153128 '())))) + (cons __tmp153125 '())))) (declare (not safe)) - (cons __tmp153149 __tmp153127)))) + (cons __tmp153146 __tmp153124)))) (declare (not safe)) - (cons '%#let-values __tmp153126)))) + (cons '%#let-values __tmp153123)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153125 - _stx152099_)))) - (___kont152717152718_ + __tmp153122 + _stx152096_)))) + (___kont152714152715_ (lambda () - (let ((__tmp153153 - (let ((__tmp153154 - (let ((__tmp153168 + (let ((__tmp153150 + (let ((__tmp153151 + (let ((__tmp153165 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153169 - (let ((__tmp153171 + (let ((__tmp153166 + (let ((__tmp153168 (let () (declare (not safe)) - (cons _$obj152131_ '()))) - (__tmp153170 + (cons _$obj152128_ '()))) + (__tmp153167 (let () (declare (not safe)) - (cons _inline-make-object152108_ + (cons _inline-make-object152105_ '())))) (declare (not safe)) - (cons __tmp153171 __tmp153170)))) + (cons __tmp153168 __tmp153167)))) (declare (not safe)) - (cons __tmp153169 '()))) - (__tmp153155 - (let ((__tmp153156 - (let ((__tmp153157 - (let ((__tmp153161 - (let ((__tmp153162 - (let ((__tmp153166 - (let ((__tmp153167 + (cons __tmp153166 '()))) + (__tmp153152 + (let ((__tmp153153 + (let ((__tmp153154 + (let ((__tmp153158 + (let ((__tmp153159 + (let ((__tmp153163 + (let ((__tmp153164 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'class-instance-init! '())))) (declare (not safe)) - (cons '%#ref __tmp153167))) - (__tmp153163 - (let ((__tmp153164 - (let ((__tmp153165 + (cons '%#ref __tmp153164))) + (__tmp153160 + (let ((__tmp153161 + (let ((__tmp153162 (let () (declare (not safe)) - (cons _$obj152131_ '())))) + (cons _$obj152128_ '())))) (declare (not safe)) - (cons '%#ref __tmp153165)))) + (cons '%#ref __tmp153162)))) (declare (not safe)) - (cons __tmp153164 _args152106_)))) + (cons __tmp153161 _args152103_)))) (declare (not safe)) - (cons __tmp153166 __tmp153163)))) + (cons __tmp153163 __tmp153160)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp153162))) - (__tmp153158 - (let ((__tmp153159 - (let ((__tmp153160 + (cons '%#call __tmp153159))) + (__tmp153155 + (let ((__tmp153156 + (let ((__tmp153157 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj152131_ '())))) + (cons _$obj152128_ '())))) (declare (not safe)) - (cons '%#ref __tmp153160)))) + (cons '%#ref __tmp153157)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153159 '())))) + (cons __tmp153156 '())))) (declare (not safe)) - (cons __tmp153161 __tmp153158)))) + (cons __tmp153158 __tmp153155)))) (declare (not safe)) - (cons '%#begin __tmp153157)))) + (cons '%#begin __tmp153154)))) (declare (not safe)) - (cons __tmp153156 '())))) + (cons __tmp153153 '())))) (declare (not safe)) - (cons __tmp153168 __tmp153155)))) + (cons __tmp153165 __tmp153152)))) (declare (not safe)) - (cons '%#let-values __tmp153154)))) + (cons '%#let-values __tmp153151)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153153 - _stx152099_))))) - (let* ((_g152138152178_ + __tmp153150 + _stx152096_))))) + (let* ((_g152135152175_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - ___stx152711152712_)) - (___kont152715152716_) - (___kont152717152718_)))) - (___match152748152749_ - (lambda (_e152147152183_ - _hd152146152186_ - _tl152145152188_ - _e152150152191_ - _hd152149152194_ - _tl152148152196_ - _e152153152199_ - _hd152152152202_ - _tl152151152204_ - _e152156152207_ - _hd152155152210_ - _tl152154152212_) - (let ((_L152215_ - _tl152154152212_) - (_L152216_ - _hd152155152210_) - (_L152217_ - _hd152152152202_)) + ___stx152708152709_)) + (___kont152712152713_) + (___kont152714152715_)))) + (___match152745152746_ + (lambda (_e152144152180_ + _hd152143152183_ + _tl152142152185_ + _e152147152188_ + _hd152146152191_ + _tl152145152193_ + _e152150152196_ + _hd152149152199_ + _tl152148152201_ + _e152153152204_ + _hd152152152207_ + _tl152151152209_) + (let ((_L152212_ + _tl152151152209_) + (_L152213_ + _hd152152152207_) + (_L152214_ + _hd152149152199_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _L152217_)) - (___kont152713152714_ - _L152215_ - _L152216_ - _L152217_) - (___kont152717152718_)))))) + _L152214_)) + (___kont152710152711_ + _L152212_ + _L152213_ + _L152214_) + (___kont152714152715_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx152711152712_)) - (let ((_e152147152183_ + ___stx152708152709_)) + (let ((_e152144152180_ (let () (declare (not safe)) (gx#stx-e - ___stx152711152712_)))) - (let ((_tl152145152188_ + ___stx152708152709_)))) + (let ((_tl152142152185_ (let () (declare (not safe)) - (##cdr _e152147152183_))) - (_hd152146152186_ + (##cdr _e152144152180_))) + (_hd152143152183_ (let () (declare (not safe)) - (##car _e152147152183_)))) + (##car _e152144152180_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd152146152186_)) - (let ((_e152150152191_ + _hd152143152183_)) + (let ((_e152147152188_ (let () (declare (not safe)) (gx#stx-e - _hd152146152186_)))) - (let ((_tl152148152196_ + _hd152143152183_)))) + (let ((_tl152145152193_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e152150152191_))) - (_hd152149152194_ - (let () (declare (not safe)) (##car _e152150152191_)))) + (##cdr _e152147152188_))) + (_hd152146152191_ + (let () (declare (not safe)) (##car _e152147152188_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd152149152194_)) + (gx#identifier? _hd152146152191_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd152149152194_)) + (gx#stx-eq? '%#quote _hd152146152191_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl152148152196_)) - (let ((_e152153152199_ + (gx#stx-pair? _tl152145152193_)) + (let ((_e152150152196_ (let () (declare (not safe)) - (gx#stx-e _tl152148152196_)))) - (let ((_tl152151152204_ + (gx#stx-e _tl152145152193_)))) + (let ((_tl152148152201_ (let () (declare (not safe)) - (##cdr _e152153152199_))) - (_hd152152152202_ + (##cdr _e152150152196_))) + (_hd152149152199_ (let () (declare (not safe)) - (##car _e152153152199_)))) + (##car _e152150152196_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl152151152204_)) + (gx#stx-null? _tl152148152201_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl152145152188_)) - (let ((_e152156152207_ + (gx#stx-pair? _tl152142152185_)) + (let ((_e152153152204_ (let () (declare (not safe)) - (gx#stx-e _tl152145152188_)))) - (let ((_tl152154152212_ + (gx#stx-e _tl152142152185_)))) + (let ((_tl152151152209_ (let () (declare (not safe)) - (##cdr _e152156152207_))) - (_hd152155152210_ + (##cdr _e152153152204_))) + (_hd152152152207_ (let () (declare (not safe)) - (##car _e152156152207_)))) - (___match152748152749_ - _e152147152183_ - _hd152146152186_ - _tl152145152188_ - _e152150152191_ - _hd152149152194_ - _tl152148152196_ - _e152153152199_ - _hd152152152202_ - _tl152151152204_ - _e152156152207_ - _hd152155152210_ - _tl152154152212_))) - (___kont152717152718_)) - (___kont152717152718_)))) - (___kont152717152718_)) - (___kont152717152718_)) - (___kont152717152718_)))) + (##car _e152153152204_)))) + (___match152745152746_ + _e152144152180_ + _hd152143152183_ + _tl152142152185_ + _e152147152188_ + _hd152146152191_ + _tl152145152193_ + _e152150152196_ + _hd152149152199_ + _tl152148152201_ + _e152153152204_ + _hd152152152207_ + _tl152151152209_))) + (___kont152714152715_)) + (___kont152714152715_)))) + (___kont152714152715_)) + (___kont152714152715_)) + (___kont152714152715_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont152717152718_)))) + (___kont152714152715_)))) (let () (declare (not safe)) - (_g152138152178_)))))))))))))))))) + (_g152135152175_)))))))))))))))))) (let () (declare (not safe)) (bind-specializer! @@ -2562,954 +2562,954 @@ gxc#!constructor::optimize-call '#f)) (define gxc#!accessor::optimize-call - (lambda (_self151921_ _stx151922_ _args151923_) - (let* ((_g151925151935_ - (lambda (_g151926151932_) + (lambda (_self151918_ _stx151919_ _args151920_) + (let* ((_g151922151932_ + (lambda (_g151923151929_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g151926151932_)))) - (_g151924151973_ - (lambda (_g151926151938_) + _g151923151929_)))) + (_g151921151970_ + (lambda (_g151923151935_) (if (let () (declare (not safe)) - (gx#stx-pair? _g151926151938_)) - (let ((_e151930151940_ + (gx#stx-pair? _g151923151935_)) + (let ((_e151927151937_ (let () (declare (not safe)) - (gx#stx-e _g151926151938_)))) - (let ((_hd151929151943_ + (gx#stx-e _g151923151935_)))) + (let ((_hd151926151940_ (let () (declare (not safe)) - (##car _e151930151940_))) - (_tl151928151945_ + (##car _e151927151937_))) + (_tl151925151942_ (let () (declare (not safe)) - (##cdr _e151930151940_)))) + (##cdr _e151927151937_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl151928151945_)) - ((lambda (_L151948_) - (let* ((_klass151959_ - (let ((__tmp153294 + (gx#stx-null? _tl151925151942_)) + ((lambda (_L151945_) + (let* ((_klass151956_ + (let ((__tmp153291 (##structure-ref - _self151921_ + _self151918_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx151922_ - __tmp153294))) - (_field151961_ - (let ((__tmp153295 + _stx151919_ + __tmp153291))) + (_field151958_ + (let ((__tmp153292 (##structure-ref - _self151921_ + _self151918_ '2 gxc#!accessor::t '#f))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass151959_ - __tmp153295))) - (_object151963_ + _klass151956_ + __tmp153292))) + (_object151960_ (let () (declare (not safe)) - (gxc#compile-e__0 _L151948_)))) + (gxc#compile-e__0 _L151945_)))) (if (##structure-ref - _klass151959_ + _klass151956_ '8 gxc#!class::t '#f) - (let ((__tmp153372 - (let ((__tmp153381 + (let ((__tmp153369 + (let ((__tmp153378 (if (##structure-ref - _self151921_ + _self151918_ '3 gxc#!accessor::t '#f) '%#struct-direct-ref '%#struct-unchecked-ref)) - (__tmp153373 - (let ((__tmp153378 - (let ((__tmp153379 + (__tmp153370 + (let ((__tmp153375 + (let ((__tmp153376 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153380 + (let ((__tmp153377 (##structure-ref - _self151921_ + _self151918_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153380 '())))) + (cons __tmp153377 '())))) (declare (not safe)) - (cons '%#ref __tmp153379))) - (__tmp153374 - (let ((__tmp153376 - (let ((__tmp153377 + (cons '%#ref __tmp153376))) + (__tmp153371 + (let ((__tmp153373 + (let ((__tmp153374 (let () (declare (not safe)) - (cons _field151961_ '())))) + (cons _field151958_ '())))) (declare (not safe)) - (cons '%#quote __tmp153377))) - (__tmp153375 + (cons '%#quote __tmp153374))) + (__tmp153372 (let () (declare (not safe)) - (cons _object151963_ '())))) + (cons _object151960_ '())))) (declare (not safe)) - (cons __tmp153376 __tmp153375)))) + (cons __tmp153373 __tmp153372)))) (declare (not safe)) - (cons __tmp153378 __tmp153374)))) + (cons __tmp153375 __tmp153371)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153381 - __tmp153373)))) + (cons __tmp153378 + __tmp153370)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153372 - _stx151922_)) + __tmp153369 + _stx151919_)) (if (##structure-ref - _klass151959_ + _klass151956_ '7 gxc#!class::t '#f) - (let ((__tmp153362 - (let ((__tmp153371 + (let ((__tmp153359 + (let ((__tmp153368 (if (##structure-ref - _self151921_ + _self151918_ '3 gxc#!accessor::t '#f) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp153363 - (let ((__tmp153368 - (let ((__tmp153369 + (__tmp153360 + (let ((__tmp153365 + (let ((__tmp153366 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153370 + (let ((__tmp153367 (##structure-ref - _self151921_ + _self151918_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153370 '())))) + (cons __tmp153367 '())))) (declare (not safe)) - (cons '%#ref __tmp153369))) - (__tmp153364 - (let ((__tmp153366 - (let ((__tmp153367 + (cons '%#ref __tmp153366))) + (__tmp153361 + (let ((__tmp153363 + (let ((__tmp153364 (let () (declare (not safe)) - (cons _field151961_ '())))) + (cons _field151958_ '())))) (declare (not safe)) - (cons '%#quote __tmp153367))) - (__tmp153365 + (cons '%#quote __tmp153364))) + (__tmp153362 (let () (declare (not safe)) - (cons _object151963_ '())))) + (cons _object151960_ '())))) (declare (not safe)) - (cons __tmp153366 __tmp153365)))) + (cons __tmp153363 __tmp153362)))) (declare (not safe)) - (cons __tmp153368 __tmp153364)))) + (cons __tmp153365 __tmp153361)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153371 - __tmp153363)))) + (cons __tmp153368 + __tmp153360)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153362 - _stx151922_)) - (let ((_$e151966_ - (let ((__tmp153296 + __tmp153359 + _stx151919_)) + (let ((_$e151963_ + (let ((__tmp153293 (##structure-ref - _self151921_ + _self151918_ '2 gxc#!accessor::t '#f))) (declare (not safe)) (gxc#!class-slot-find-struct - _klass151959_ - __tmp153296)))) - (if _$e151966_ - ((lambda (_klass151969_) - (let ((__tmp153352 - (let ((__tmp153361 + _klass151956_ + __tmp153293)))) + (if _$e151963_ + ((lambda (_klass151966_) + (let ((__tmp153349 + (let ((__tmp153358 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (##structure-ref - _self151921_ + _self151918_ '3 gxc#!accessor::t '#f) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp153353 - (let ((__tmp153358 - (let ((__tmp153359 - (let ((__tmp153360 + (__tmp153350 + (let ((__tmp153355 + (let ((__tmp153356 + (let ((__tmp153357 (##structure-ref - _self151921_ + _self151918_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153360 '())))) + (cons __tmp153357 '())))) (declare (not safe)) - (cons '%#ref __tmp153359))) - (__tmp153354 - (let ((__tmp153356 - (let ((__tmp153357 + (cons '%#ref __tmp153356))) + (__tmp153351 + (let ((__tmp153353 + (let ((__tmp153354 (let () (declare (not safe)) - (cons _field151961_ '())))) + (cons _field151958_ '())))) (declare (not safe)) - (cons '%#quote __tmp153357))) - (__tmp153355 + (cons '%#quote __tmp153354))) + (__tmp153352 (let () (declare (not safe)) - (cons _object151963_ '())))) + (cons _object151960_ '())))) (declare (not safe)) - (cons __tmp153356 __tmp153355)))) + (cons __tmp153353 __tmp153352)))) (declare (not safe)) - (cons __tmp153358 __tmp153354)))) + (cons __tmp153355 __tmp153351)))) (declare (not safe)) - (cons __tmp153361 __tmp153353)))) + (cons __tmp153358 __tmp153350)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153352 _stx151922_))) + (gxc#xform-wrap-source __tmp153349 _stx151919_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e151966_) + _$e151963_) (if (##structure-ref - _self151921_ + _self151918_ '3 gxc#!accessor::t '#f) - (let ((__tmp153306 - (let* ((_$obj151971_ + (let ((__tmp153303 + (let* ((_$obj151968_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153307 (gensym '__obj))) + (let ((__tmp153304 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153307))) - (__tmp153308 - (let ((__tmp153348 - (let ((__tmp153349 - (let ((__tmp153351 + (make-symbol__0 __tmp153304))) + (__tmp153305 + (let ((__tmp153345 + (let ((__tmp153346 + (let ((__tmp153348 (let () (declare (not safe)) - (cons _$obj151971_ '()))) - (__tmp153350 + (cons _$obj151968_ '()))) + (__tmp153347 (let () (declare (not safe)) - (cons _object151963_ '())))) + (cons _object151960_ '())))) (declare (not safe)) - (cons __tmp153351 __tmp153350)))) + (cons __tmp153348 __tmp153347)))) (declare (not safe)) - (cons __tmp153349 '()))) - (__tmp153309 - (let ((__tmp153310 - (let ((__tmp153311 - (let ((__tmp153340 - (let ((__tmp153341 - (let ((__tmp153345 + (cons __tmp153346 '()))) + (__tmp153306 + (let ((__tmp153307 + (let ((__tmp153308 + (let ((__tmp153337 + (let ((__tmp153338 + (let ((__tmp153342 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153346 - (let ((__tmp153347 + (let ((__tmp153343 + (let ((__tmp153344 (##structure-ref - _klass151959_ + _klass151956_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153347 '())))) + (cons __tmp153344 '())))) (declare (not safe)) - (cons '%#quote __tmp153346))) - (__tmp153342 - (let ((__tmp153343 - (let ((__tmp153344 + (cons '%#quote __tmp153343))) + (__tmp153339 + (let ((__tmp153340 + (let ((__tmp153341 (let () (declare (not safe)) - (cons _$obj151971_ '())))) + (cons _$obj151968_ '())))) (declare (not safe)) - (cons '%#ref __tmp153344)))) + (cons '%#ref __tmp153341)))) (declare (not safe)) - (cons __tmp153343 '())))) + (cons __tmp153340 '())))) (declare (not safe)) - (cons __tmp153345 __tmp153342)))) + (cons __tmp153342 __tmp153339)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp153341))) - (__tmp153312 - (let ((__tmp153329 - (let ((__tmp153330 - (let ((__tmp153337 - (let ((__tmp153338 - (let ((__tmp153339 + (cons '%#struct-direct-instance? __tmp153338))) + (__tmp153309 + (let ((__tmp153326 + (let ((__tmp153327 + (let ((__tmp153334 + (let ((__tmp153335 + (let ((__tmp153336 (##structure-ref - _self151921_ + _self151918_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153339 '())))) + (cons __tmp153336 '())))) (declare (not safe)) - (cons '%#ref __tmp153338))) - (__tmp153331 - (let ((__tmp153335 - (let ((__tmp153336 + (cons '%#ref __tmp153335))) + (__tmp153328 + (let ((__tmp153332 + (let ((__tmp153333 (let () (declare (not safe)) - (cons _field151961_ + (cons _field151958_ '())))) (declare (not safe)) - (cons '%#quote __tmp153336))) - (__tmp153332 - (let ((__tmp153333 - (let ((__tmp153334 + (cons '%#quote __tmp153333))) + (__tmp153329 + (let ((__tmp153330 + (let ((__tmp153331 (let () (declare (not safe)) - (cons _$obj151971_ + (cons _$obj151968_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153334)))) + __tmp153331)))) (declare (not safe)) - (cons __tmp153333 '())))) + (cons __tmp153330 '())))) (declare (not safe)) - (cons __tmp153335 __tmp153332)))) + (cons __tmp153332 __tmp153329)))) (declare (not safe)) - (cons __tmp153337 __tmp153331)))) + (cons __tmp153334 __tmp153328)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp153330))) - (__tmp153313 - (let ((__tmp153314 - (let ((__tmp153315 - (let ((__tmp153327 - (let ((__tmp153328 + (cons '%#struct-unchecked-ref __tmp153327))) + (__tmp153310 + (let ((__tmp153311 + (let ((__tmp153312 + (let ((__tmp153324 + (let ((__tmp153325 (let () (declare (not safe)) (cons 'class-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp153328))) - (__tmp153316 - (let ((__tmp153324 - (let ((__tmp153325 - (let ((__tmp153326 + (cons '%#ref __tmp153325))) + (__tmp153313 + (let ((__tmp153321 + (let ((__tmp153322 + (let ((__tmp153323 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##structure-ref _self151921_ '1 gxc#!type::t '#f))) + (##structure-ref _self151918_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153326 '())))) + (cons __tmp153323 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153325))) - (__tmp153317 - (let ((__tmp153322 - (let ((__tmp153323 + __tmp153322))) + (__tmp153314 + (let ((__tmp153319 + (let ((__tmp153320 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj151971_ '())))) + (cons _$obj151968_ '())))) (declare (not safe)) - (cons '%#ref __tmp153323))) - (__tmp153318 - (let ((__tmp153319 - (let ((__tmp153320 - (let ((__tmp153321 + (cons '%#ref __tmp153320))) + (__tmp153315 + (let ((__tmp153316 + (let ((__tmp153317 + (let ((__tmp153318 (##structure-ref - _self151921_ + _self151918_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (cons __tmp153321 '())))) + (cons __tmp153318 '())))) (declare (not safe)) - (cons '%#quote __tmp153320)))) + (cons '%#quote __tmp153317)))) (declare (not safe)) - (cons __tmp153319 '())))) + (cons __tmp153316 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153322 - __tmp153318)))) + (cons __tmp153319 + __tmp153315)))) (declare (not safe)) - (cons __tmp153324 __tmp153317)))) + (cons __tmp153321 __tmp153314)))) (declare (not safe)) - (cons __tmp153327 __tmp153316)))) + (cons __tmp153324 __tmp153313)))) (declare (not safe)) - (cons '%#call __tmp153315)))) + (cons '%#call __tmp153312)))) (declare (not safe)) - (cons __tmp153314 '())))) + (cons __tmp153311 '())))) (declare (not safe)) - (cons __tmp153329 __tmp153313)))) + (cons __tmp153326 __tmp153310)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153340 - __tmp153312)))) + (cons __tmp153337 + __tmp153309)))) (declare (not safe)) - (cons '%#if __tmp153311)))) + (cons '%#if __tmp153308)))) (declare (not safe)) - (cons __tmp153310 '())))) + (cons __tmp153307 '())))) (declare (not safe)) - (cons __tmp153348 __tmp153309)))) + (cons __tmp153345 __tmp153306)))) (declare (not safe)) - (cons '%#let-values __tmp153308)))) + (cons '%#let-values __tmp153305)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153306 _stx151922_)) + (gxc#xform-wrap-source __tmp153303 _stx151919_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp153297 - (let ((__tmp153298 + (let ((__tmp153294 + (let ((__tmp153295 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153304 - (let ((__tmp153305 + (let ((__tmp153301 + (let ((__tmp153302 (let () (declare (not safe)) (cons 'unchecked-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp153305))) - (__tmp153299 - (let ((__tmp153300 - (let ((__tmp153301 - (let ((__tmp153302 - (let ((__tmp153303 + (cons '%#ref __tmp153302))) + (__tmp153296 + (let ((__tmp153297 + (let ((__tmp153298 + (let ((__tmp153299 + (let ((__tmp153300 (##structure-ref - _self151921_ + _self151918_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (cons __tmp153303 + (cons __tmp153300 '())))) (declare (not safe)) (cons '%#quote - __tmp153302)))) + __tmp153299)))) (declare (not safe)) - (cons __tmp153301 '())))) + (cons __tmp153298 '())))) (declare (not safe)) - (cons _object151963_ __tmp153300)))) + (cons _object151960_ __tmp153297)))) (declare (not safe)) - (cons __tmp153304 __tmp153299)))) + (cons __tmp153301 __tmp153296)))) (declare (not safe)) - (cons '%#call __tmp153298)))) + (cons '%#call __tmp153295)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153297 _stx151922_))))))))) + (gxc#xform-wrap-source __tmp153294 _stx151919_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd151929151943_) + _hd151926151940_) (let () (declare (not safe)) - (_g151925151935_ _g151926151938_))))) + (_g151922151932_ _g151923151935_))))) (let () (declare (not safe)) - (_g151925151935_ _g151926151938_)))))) + (_g151922151932_ _g151923151935_)))))) (declare (not safe)) - (_g151924151973_ _args151923_)))) + (_g151921151970_ _args151920_)))) (define gxc#!accessor::optimize-call::specialize - (lambda (__klass152596 __method-table152597) - (let ((__checked?152598 - (let ((__slot152601 + (lambda (__klass152593 __method-table152594) + (let ((__checked?152595 + (let ((__slot152598 (let () (declare (not safe)) - (class-slot-offset __klass152596 'checked?)))) - (if __slot152601 - __slot152601 + (class-slot-offset __klass152593 'checked?)))) + (if __slot152598 + __slot152598 (let () (declare (not safe)) (error '"Unknown slot" 'checked?))))) - (__slot152599 - (let ((__slot152602 + (__slot152596 + (let ((__slot152599 (let () (declare (not safe)) - (class-slot-offset __klass152596 'slot)))) - (if __slot152602 - __slot152602 + (class-slot-offset __klass152593 'slot)))) + (if __slot152599 + __slot152599 (let () (declare (not safe)) (error '"Unknown slot" 'slot))))) - (__id152600 - (let ((__slot152603 + (__id152597 + (let ((__slot152600 (let () (declare (not safe)) - (class-slot-offset __klass152596 'id)))) - (if __slot152603 - __slot152603 + (class-slot-offset __klass152593 'id)))) + (if __slot152600 + __slot152600 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self151921_ _stx151922_ _args151923_) - (let* ((_g151925151935_ - (lambda (_g151926151932_) + (lambda (_self151918_ _stx151919_ _args151920_) + (let* ((_g151922151932_ + (lambda (_g151923151929_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g151926151932_)))) - (_g151924151973_ - (lambda (_g151926151938_) + _g151923151929_)))) + (_g151921151970_ + (lambda (_g151923151935_) (if (let () (declare (not safe)) - (gx#stx-pair? _g151926151938_)) - (let ((_e151930151940_ + (gx#stx-pair? _g151923151935_)) + (let ((_e151927151937_ (let () (declare (not safe)) - (gx#stx-e _g151926151938_)))) - (let ((_hd151929151943_ + (gx#stx-e _g151923151935_)))) + (let ((_hd151926151940_ (let () (declare (not safe)) - (##car _e151930151940_))) - (_tl151928151945_ + (##car _e151927151937_))) + (_tl151925151942_ (let () (declare (not safe)) - (##cdr _e151930151940_)))) + (##cdr _e151927151937_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl151928151945_)) - ((lambda (_L151948_) - (let* ((_klass151959_ - (let ((__tmp153382 + (gx#stx-null? _tl151925151942_)) + ((lambda (_L151945_) + (let* ((_klass151956_ + (let ((__tmp153379 (let () (declare (not safe)) (##unchecked-structure-ref - _self151921_ - __id152600 - __klass152596 + _self151918_ + __id152597 + __klass152593 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx151922_ - __tmp153382))) - (_field151961_ - (let ((__tmp153383 + _stx151919_ + __tmp153379))) + (_field151958_ + (let ((__tmp153380 (let () (declare (not safe)) (##unchecked-structure-ref - _self151921_ - __slot152599 - __klass152596 + _self151918_ + __slot152596 + __klass152593 '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass151959_ - __tmp153383))) - (_object151963_ + _klass151956_ + __tmp153380))) + (_object151960_ (let () (declare (not safe)) - (gxc#compile-e__0 _L151948_)))) + (gxc#compile-e__0 _L151945_)))) (if (##structure-ref - _klass151959_ + _klass151956_ '8 gxc#!class::t '#f) - (let ((__tmp153460 - (let ((__tmp153469 + (let ((__tmp153457 + (let ((__tmp153466 (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self151921_ - __checked?152598 - __klass152596 + _self151918_ + __checked?152595 + __klass152593 '#f)) '%#struct-direct-ref '%#struct-unchecked-ref)) - (__tmp153461 - (let ((__tmp153466 - (let ((__tmp153467 - (let ((__tmp153468 + (__tmp153458 + (let ((__tmp153463 + (let ((__tmp153464 + (let ((__tmp153465 (let () (declare (not safe)) (##unchecked-structure-ref - _self151921_ - __id152600 - __klass152596 + _self151918_ + __id152597 + __klass152593 '#f)))) (declare (not safe)) - (cons __tmp153468 '())))) + (cons __tmp153465 '())))) (declare (not safe)) - (cons '%#ref __tmp153467))) - (__tmp153462 - (let ((__tmp153464 - (let ((__tmp153465 + (cons '%#ref __tmp153464))) + (__tmp153459 + (let ((__tmp153461 + (let ((__tmp153462 (let () (declare (not safe)) - (cons _field151961_ '())))) + (cons _field151958_ '())))) (declare (not safe)) - (cons '%#quote __tmp153465))) - (__tmp153463 + (cons '%#quote __tmp153462))) + (__tmp153460 (let () (declare (not safe)) - (cons _object151963_ '())))) + (cons _object151960_ '())))) (declare (not safe)) - (cons __tmp153464 __tmp153463)))) + (cons __tmp153461 __tmp153460)))) (declare (not safe)) - (cons __tmp153466 __tmp153462)))) + (cons __tmp153463 __tmp153459)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153469 - __tmp153461)))) + (cons __tmp153466 + __tmp153458)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153460 - _stx151922_)) + __tmp153457 + _stx151919_)) (if (##structure-ref - _klass151959_ + _klass151956_ '7 gxc#!class::t '#f) - (let ((__tmp153450 - (let ((__tmp153459 + (let ((__tmp153447 + (let ((__tmp153456 (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _self151921_ - __checked?152598 - __klass152596 + _self151918_ + __checked?152595 + __klass152593 '#f)) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp153451 - (let ((__tmp153456 - (let ((__tmp153457 - (let ((__tmp153458 + (__tmp153448 + (let ((__tmp153453 + (let ((__tmp153454 + (let ((__tmp153455 (let () (declare (not safe)) (##unchecked-structure-ref - _self151921_ - __id152600 - __klass152596 + _self151918_ + __id152597 + __klass152593 '#f)))) (declare (not safe)) - (cons __tmp153458 '())))) + (cons __tmp153455 '())))) (declare (not safe)) - (cons '%#ref __tmp153457))) - (__tmp153452 - (let ((__tmp153454 - (let ((__tmp153455 + (cons '%#ref __tmp153454))) + (__tmp153449 + (let ((__tmp153451 + (let ((__tmp153452 (let () (declare (not safe)) - (cons _field151961_ '())))) + (cons _field151958_ '())))) (declare (not safe)) - (cons '%#quote __tmp153455))) - (__tmp153453 + (cons '%#quote __tmp153452))) + (__tmp153450 (let () (declare (not safe)) - (cons _object151963_ '())))) + (cons _object151960_ '())))) (declare (not safe)) - (cons __tmp153454 __tmp153453)))) + (cons __tmp153451 __tmp153450)))) (declare (not safe)) - (cons __tmp153456 __tmp153452)))) + (cons __tmp153453 __tmp153449)))) (declare (not safe)) - (cons __tmp153459 __tmp153451)))) + (cons __tmp153456 __tmp153448)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153450 - _stx151922_)) - (let ((_$e151966_ - (let ((__tmp153384 + __tmp153447 + _stx151919_)) + (let ((_$e151963_ + (let ((__tmp153381 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self151921_ - __slot152599 - __klass152596 + _self151918_ + __slot152596 + __klass152593 '#f)))) (declare (not safe)) - (gxc#!class-slot-find-struct _klass151959_ __tmp153384)))) + (gxc#!class-slot-find-struct _klass151956_ __tmp153381)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e151966_ - ((lambda (_klass151969_) - (let ((__tmp153440 - (let ((__tmp153449 + (if _$e151963_ + ((lambda (_klass151966_) + (let ((__tmp153437 + (let ((__tmp153446 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self151921_ - __checked?152598 - __klass152596 + _self151918_ + __checked?152595 + __klass152593 '#f)) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp153441 - (let ((__tmp153446 - (let ((__tmp153447 - (let ((__tmp153448 + (__tmp153438 + (let ((__tmp153443 + (let ((__tmp153444 + (let ((__tmp153445 (let () (declare (not safe)) (##unchecked-structure-ref - _self151921_ - __id152600 - __klass152596 + _self151918_ + __id152597 + __klass152593 '#f)))) (declare (not safe)) - (cons __tmp153448 '())))) + (cons __tmp153445 '())))) (declare (not safe)) - (cons '%#ref __tmp153447))) - (__tmp153442 - (let ((__tmp153444 - (let ((__tmp153445 + (cons '%#ref __tmp153444))) + (__tmp153439 + (let ((__tmp153441 + (let ((__tmp153442 (let () (declare (not safe)) - (cons _field151961_ + (cons _field151958_ '())))) (declare (not safe)) - (cons '%#quote __tmp153445))) - (__tmp153443 + (cons '%#quote __tmp153442))) + (__tmp153440 (let () (declare (not safe)) - (cons _object151963_ '())))) + (cons _object151960_ '())))) (declare (not safe)) - (cons __tmp153444 __tmp153443)))) + (cons __tmp153441 __tmp153440)))) (declare (not safe)) - (cons __tmp153446 __tmp153442)))) + (cons __tmp153443 __tmp153439)))) (declare (not safe)) - (cons __tmp153449 __tmp153441)))) + (cons __tmp153446 __tmp153438)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153440 _stx151922_))) - _$e151966_) + (gxc#xform-wrap-source __tmp153437 _stx151919_))) + _$e151963_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##unchecked-structure-ref - _self151921_ - __checked?152598 - __klass152596 + _self151918_ + __checked?152595 + __klass152593 '#f)) - (let ((__tmp153394 - (let* ((_$obj151971_ + (let ((__tmp153391 + (let* ((_$obj151968_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153395 (gensym '__obj))) + (let ((__tmp153392 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153395))) - (__tmp153396 - (let ((__tmp153436 - (let ((__tmp153437 - (let ((__tmp153439 + (make-symbol__0 __tmp153392))) + (__tmp153393 + (let ((__tmp153433 + (let ((__tmp153434 + (let ((__tmp153436 (let () (declare (not safe)) - (cons _$obj151971_ + (cons _$obj151968_ '()))) - (__tmp153438 + (__tmp153435 (let () (declare (not safe)) - (cons _object151963_ + (cons _object151960_ '())))) (declare (not safe)) - (cons __tmp153439 - __tmp153438)))) + (cons __tmp153436 + __tmp153435)))) (declare (not safe)) - (cons __tmp153437 '()))) - (__tmp153397 - (let ((__tmp153398 - (let ((__tmp153399 - (let ((__tmp153428 - (let ((__tmp153429 + (cons __tmp153434 '()))) + (__tmp153394 + (let ((__tmp153395 + (let ((__tmp153396 + (let ((__tmp153425 + (let ((__tmp153426 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153433 - (let ((__tmp153434 - (let ((__tmp153435 + (let ((__tmp153430 + (let ((__tmp153431 + (let ((__tmp153432 (##structure-ref - _klass151959_ + _klass151956_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153435 '())))) + (cons __tmp153432 '())))) (declare (not safe)) - (cons '%#quote __tmp153434))) - (__tmp153430 - (let ((__tmp153431 - (let ((__tmp153432 + (cons '%#quote __tmp153431))) + (__tmp153427 + (let ((__tmp153428 + (let ((__tmp153429 (let () (declare (not safe)) - (cons _$obj151971_ '())))) + (cons _$obj151968_ '())))) (declare (not safe)) - (cons '%#ref __tmp153432)))) + (cons '%#ref __tmp153429)))) (declare (not safe)) - (cons __tmp153431 '())))) + (cons __tmp153428 '())))) (declare (not safe)) - (cons __tmp153433 __tmp153430)))) + (cons __tmp153430 __tmp153427)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp153429))) - (__tmp153400 - (let ((__tmp153417 - (let ((__tmp153418 - (let ((__tmp153425 - (let ((__tmp153426 - (let ((__tmp153427 + (cons '%#struct-direct-instance? __tmp153426))) + (__tmp153397 + (let ((__tmp153414 + (let ((__tmp153415 + (let ((__tmp153422 + (let ((__tmp153423 + (let ((__tmp153424 (let () (declare (not safe)) (##unchecked-structure-ref - _self151921_ - __id152600 - __klass152596 + _self151918_ + __id152597 + __klass152593 '#f)))) (declare (not safe)) - (cons __tmp153427 '())))) + (cons __tmp153424 '())))) (declare (not safe)) - (cons '%#ref __tmp153426))) - (__tmp153419 - (let ((__tmp153423 - (let ((__tmp153424 + (cons '%#ref __tmp153423))) + (__tmp153416 + (let ((__tmp153420 + (let ((__tmp153421 (let () (declare (not safe)) - (cons _field151961_ + (cons _field151958_ '())))) (declare (not safe)) - (cons '%#quote __tmp153424))) - (__tmp153420 - (let ((__tmp153421 - (let ((__tmp153422 + (cons '%#quote __tmp153421))) + (__tmp153417 + (let ((__tmp153418 + (let ((__tmp153419 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj151971_ '())))) + (cons _$obj151968_ '())))) (declare (not safe)) - (cons '%#ref __tmp153422)))) + (cons '%#ref __tmp153419)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153421 '())))) + (cons __tmp153418 '())))) (declare (not safe)) - (cons __tmp153423 __tmp153420)))) + (cons __tmp153420 __tmp153417)))) (declare (not safe)) - (cons __tmp153425 __tmp153419)))) + (cons __tmp153422 __tmp153416)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp153418))) - (__tmp153401 - (let ((__tmp153402 - (let ((__tmp153403 - (let ((__tmp153415 - (let ((__tmp153416 + (cons '%#struct-unchecked-ref __tmp153415))) + (__tmp153398 + (let ((__tmp153399 + (let ((__tmp153400 + (let ((__tmp153412 + (let ((__tmp153413 (let () (declare (not safe)) (cons 'class-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp153416))) - (__tmp153404 - (let ((__tmp153412 - (let ((__tmp153413 - (let ((__tmp153414 + (cons '%#ref __tmp153413))) + (__tmp153401 + (let ((__tmp153409 + (let ((__tmp153410 + (let ((__tmp153411 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self151921_ - __id152600 - __klass152596 + _self151918_ + __id152597 + __klass152593 '#f)))) (declare (not safe)) - (cons __tmp153414 '())))) + (cons __tmp153411 '())))) (declare (not safe)) - (cons '%#ref __tmp153413))) - (__tmp153405 - (let ((__tmp153410 - (let ((__tmp153411 + (cons '%#ref __tmp153410))) + (__tmp153402 + (let ((__tmp153407 + (let ((__tmp153408 (let () (declare (not safe)) - (cons _$obj151971_ '())))) + (cons _$obj151968_ '())))) (declare (not safe)) - (cons '%#ref __tmp153411))) - (__tmp153406 - (let ((__tmp153407 - (let ((__tmp153408 - (let ((__tmp153409 + (cons '%#ref __tmp153408))) + (__tmp153403 + (let ((__tmp153404 + (let ((__tmp153405 + (let ((__tmp153406 (let () (declare (not safe)) (##unchecked-structure-ref - _self151921_ - __slot152599 - __klass152596 + _self151918_ + __slot152596 + __klass152593 '#f)))) (declare (not safe)) - (cons __tmp153409 '())))) + (cons __tmp153406 '())))) (declare (not safe)) - (cons '%#quote __tmp153408)))) + (cons '%#quote __tmp153405)))) (declare (not safe)) - (cons __tmp153407 '())))) + (cons __tmp153404 '())))) (declare (not safe)) - (cons __tmp153410 __tmp153406)))) + (cons __tmp153407 __tmp153403)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153412 - __tmp153405)))) + (cons __tmp153409 + __tmp153402)))) (declare (not safe)) - (cons __tmp153415 __tmp153404)))) + (cons __tmp153412 __tmp153401)))) (declare (not safe)) - (cons '%#call __tmp153403)))) + (cons '%#call __tmp153400)))) (declare (not safe)) - (cons __tmp153402 '())))) + (cons __tmp153399 '())))) (declare (not safe)) - (cons __tmp153417 __tmp153401)))) + (cons __tmp153414 __tmp153398)))) (declare (not safe)) - (cons __tmp153428 __tmp153400)))) + (cons __tmp153425 __tmp153397)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp153399)))) + (cons '%#if __tmp153396)))) (declare (not safe)) - (cons __tmp153398 '())))) + (cons __tmp153395 '())))) (declare (not safe)) - (cons __tmp153436 __tmp153397)))) + (cons __tmp153433 __tmp153394)))) (declare (not safe)) - (cons '%#let-values __tmp153396)))) + (cons '%#let-values __tmp153393)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153394 _stx151922_)) - (let ((__tmp153385 - (let ((__tmp153386 - (let ((__tmp153392 - (let ((__tmp153393 + (gxc#xform-wrap-source __tmp153391 _stx151919_)) + (let ((__tmp153382 + (let ((__tmp153383 + (let ((__tmp153389 + (let ((__tmp153390 (let () (declare (not safe)) (cons 'unchecked-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp153393))) - (__tmp153387 - (let ((__tmp153388 - (let ((__tmp153389 - (let ((__tmp153390 - (let ((__tmp153391 + (cons '%#ref __tmp153390))) + (__tmp153384 + (let ((__tmp153385 + (let ((__tmp153386 + (let ((__tmp153387 + (let ((__tmp153388 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self151921_ - __slot152599 - __klass152596 + _self151918_ + __slot152596 + __klass152593 '#f)))) (declare (not safe)) - (cons __tmp153391 '())))) + (cons __tmp153388 '())))) (declare (not safe)) - (cons '%#quote __tmp153390)))) + (cons '%#quote __tmp153387)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153389 '())))) + (cons __tmp153386 '())))) (declare (not safe)) - (cons _object151963_ __tmp153388)))) + (cons _object151960_ __tmp153385)))) (declare (not safe)) - (cons __tmp153392 __tmp153387)))) + (cons __tmp153389 __tmp153384)))) (declare (not safe)) - (cons '%#call __tmp153386)))) + (cons '%#call __tmp153383)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153385 _stx151922_))))))))) + (gxc#xform-wrap-source __tmp153382 _stx151919_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd151929151943_) + _hd151926151940_) (let () (declare (not safe)) - (_g151925151935_ _g151926151938_))))) + (_g151922151932_ _g151923151935_))))) (let () (declare (not safe)) - (_g151925151935_ _g151926151938_)))))) + (_g151922151932_ _g151923151935_)))))) (declare (not safe)) - (_g151924151973_ _args151923_)))))) + (_g151921151970_ _args151920_)))))) (let () (declare (not safe)) (bind-specializer! @@ -3523,363 +3523,363 @@ gxc#!accessor::optimize-call '#f)) (define gxc#!mutator::optimize-call - (lambda (_self151726_ _stx151727_ _args151728_) - (let* ((_g151730151744_ - (lambda (_g151731151741_) + (lambda (_self151723_ _stx151724_ _args151725_) + (let* ((_g151727151741_ + (lambda (_g151728151738_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g151731151741_)))) - (_g151729151796_ - (lambda (_g151731151747_) + _g151728151738_)))) + (_g151726151793_ + (lambda (_g151728151744_) (if (let () (declare (not safe)) - (gx#stx-pair? _g151731151747_)) - (let ((_e151736151749_ + (gx#stx-pair? _g151728151744_)) + (let ((_e151733151746_ (let () (declare (not safe)) - (gx#stx-e _g151731151747_)))) - (let ((_hd151735151752_ + (gx#stx-e _g151728151744_)))) + (let ((_hd151732151749_ (let () (declare (not safe)) - (##car _e151736151749_))) - (_tl151734151754_ + (##car _e151733151746_))) + (_tl151731151751_ (let () (declare (not safe)) - (##cdr _e151736151749_)))) + (##cdr _e151733151746_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl151734151754_)) - (let ((_e151739151757_ + (gx#stx-pair? _tl151731151751_)) + (let ((_e151736151754_ (let () (declare (not safe)) - (gx#stx-e _tl151734151754_)))) - (let ((_hd151738151760_ + (gx#stx-e _tl151731151751_)))) + (let ((_hd151735151757_ (let () (declare (not safe)) - (##car _e151739151757_))) - (_tl151737151762_ + (##car _e151736151754_))) + (_tl151734151759_ (let () (declare (not safe)) - (##cdr _e151739151757_)))) + (##cdr _e151736151754_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl151737151762_)) - ((lambda (_L151765_ _L151766_) - (let* ((_klass151780_ - (let ((__tmp153470 + (gx#stx-null? _tl151734151759_)) + ((lambda (_L151762_ _L151763_) + (let* ((_klass151777_ + (let ((__tmp153467 (##structure-ref - _self151726_ + _self151723_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx151727_ - __tmp153470))) - (_field151782_ - (let ((__tmp153471 + _stx151724_ + __tmp153467))) + (_field151779_ + (let ((__tmp153468 (##structure-ref - _self151726_ + _self151723_ '2 gxc#!mutator::t '#f))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass151780_ - __tmp153471))) - (_object151784_ + _klass151777_ + __tmp153468))) + (_object151781_ (let () (declare (not safe)) (gxc#compile-e__0 - _L151766_))) - (_value151786_ + _L151763_))) + (_value151783_ (let () (declare (not safe)) (gxc#compile-e__0 - _L151765_)))) + _L151762_)))) (if (##structure-ref - _klass151780_ + _klass151777_ '8 gxc#!class::t '#f) - (let ((__tmp153553 - (let ((__tmp153563 + (let ((__tmp153550 + (let ((__tmp153560 (if (##structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _self151726_ + _self151723_ '3 gxc#!mutator::t '#f) '%#struct-direct-set! '%#struct-unchecked-set!)) - (__tmp153554 - (let ((__tmp153560 - (let ((__tmp153561 - (let ((__tmp153562 + (__tmp153551 + (let ((__tmp153557 + (let ((__tmp153558 + (let ((__tmp153559 (##structure-ref - _self151726_ + _self151723_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153562 '())))) + (cons __tmp153559 '())))) (declare (not safe)) - (cons '%#ref __tmp153561))) - (__tmp153555 - (let ((__tmp153558 - (let ((__tmp153559 + (cons '%#ref __tmp153558))) + (__tmp153552 + (let ((__tmp153555 + (let ((__tmp153556 (let () (declare (not safe)) - (cons _field151782_ '())))) + (cons _field151779_ '())))) (declare (not safe)) - (cons '%#quote __tmp153559))) - (__tmp153556 - (let ((__tmp153557 + (cons '%#quote __tmp153556))) + (__tmp153553 + (let ((__tmp153554 (let () (declare (not safe)) - (cons _value151786_ '())))) + (cons _value151783_ '())))) (declare (not safe)) - (cons _object151784_ __tmp153557)))) + (cons _object151781_ __tmp153554)))) (declare (not safe)) - (cons __tmp153558 __tmp153556)))) + (cons __tmp153555 __tmp153553)))) (declare (not safe)) - (cons __tmp153560 __tmp153555)))) + (cons __tmp153557 __tmp153552)))) (declare (not safe)) - (cons __tmp153563 __tmp153554)))) + (cons __tmp153560 __tmp153551)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153553 - _stx151727_)) + __tmp153550 + _stx151724_)) (if (##structure-ref - _klass151780_ + _klass151777_ '7 gxc#!class::t '#f) - (let ((__tmp153542 - (let ((__tmp153552 + (let ((__tmp153539 + (let ((__tmp153549 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (##structure-ref - _self151726_ + _self151723_ '3 gxc#!mutator::t '#f) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp153543 - (let ((__tmp153549 - (let ((__tmp153550 - (let ((__tmp153551 + (__tmp153540 + (let ((__tmp153546 + (let ((__tmp153547 + (let ((__tmp153548 (##structure-ref - _self151726_ + _self151723_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153551 '())))) + (cons __tmp153548 '())))) (declare (not safe)) - (cons '%#ref __tmp153550))) - (__tmp153544 - (let ((__tmp153547 - (let ((__tmp153548 + (cons '%#ref __tmp153547))) + (__tmp153541 + (let ((__tmp153544 + (let ((__tmp153545 (let () (declare (not safe)) - (cons _field151782_ '())))) + (cons _field151779_ '())))) (declare (not safe)) - (cons '%#quote __tmp153548))) - (__tmp153545 - (let ((__tmp153546 + (cons '%#quote __tmp153545))) + (__tmp153542 + (let ((__tmp153543 (let () (declare (not safe)) - (cons _value151786_ '())))) + (cons _value151783_ '())))) (declare (not safe)) - (cons _object151784_ __tmp153546)))) + (cons _object151781_ __tmp153543)))) (declare (not safe)) - (cons __tmp153547 __tmp153545)))) + (cons __tmp153544 __tmp153542)))) (declare (not safe)) - (cons __tmp153549 __tmp153544)))) + (cons __tmp153546 __tmp153541)))) (declare (not safe)) - (cons __tmp153552 __tmp153543)))) + (cons __tmp153549 __tmp153540)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153542 - _stx151727_)) - (let ((_$e151789_ - (let ((__tmp153472 + __tmp153539 + _stx151724_)) + (let ((_$e151786_ + (let ((__tmp153469 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self151726_ + _self151723_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (gxc#!class-slot-find-struct _klass151780_ __tmp153472)))) + (gxc#!class-slot-find-struct _klass151777_ __tmp153469)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e151789_ - ((lambda (_klass151792_) - (let ((__tmp153531 + (if _$e151786_ + ((lambda (_klass151789_) + (let ((__tmp153528 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153541 + (let ((__tmp153538 (if (##structure-ref - _self151726_ + _self151723_ '3 gxc#!mutator::t '#f) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp153532 - (let ((__tmp153538 - (let ((__tmp153539 - (let ((__tmp153540 + (__tmp153529 + (let ((__tmp153535 + (let ((__tmp153536 + (let ((__tmp153537 (##structure-ref - _self151726_ + _self151723_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153540 '())))) + (cons __tmp153537 '())))) (declare (not safe)) - (cons '%#ref __tmp153539))) - (__tmp153533 - (let ((__tmp153536 - (let ((__tmp153537 + (cons '%#ref __tmp153536))) + (__tmp153530 + (let ((__tmp153533 + (let ((__tmp153534 (let () (declare (not safe)) - (cons _field151782_ + (cons _field151779_ '())))) (declare (not safe)) - (cons '%#quote __tmp153537))) - (__tmp153534 - (let ((__tmp153535 + (cons '%#quote __tmp153534))) + (__tmp153531 + (let ((__tmp153532 (let () (declare (not safe)) - (cons _value151786_ + (cons _value151783_ '())))) (declare (not safe)) - (cons _object151784_ - __tmp153535)))) + (cons _object151781_ + __tmp153532)))) (declare (not safe)) - (cons __tmp153536 __tmp153534)))) + (cons __tmp153533 __tmp153531)))) (declare (not safe)) - (cons __tmp153538 __tmp153533)))) + (cons __tmp153535 __tmp153530)))) (declare (not safe)) - (cons __tmp153541 __tmp153532)))) + (cons __tmp153538 __tmp153529)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153531 _stx151727_))) - _$e151789_) - (if (##structure-ref _self151726_ '3 gxc#!mutator::t '#f) - (let ((__tmp153483 - (let* ((_$obj151794_ - (let ((__tmp153484 (gensym '__obj))) + (gxc#xform-wrap-source __tmp153528 _stx151724_))) + _$e151786_) + (if (##structure-ref _self151723_ '3 gxc#!mutator::t '#f) + (let ((__tmp153480 + (let* ((_$obj151791_ + (let ((__tmp153481 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153484))) - (__tmp153485 - (let ((__tmp153527 - (let ((__tmp153528 - (let ((__tmp153530 + (make-symbol__0 __tmp153481))) + (__tmp153482 + (let ((__tmp153524 + (let ((__tmp153525 + (let ((__tmp153527 (let () (declare (not safe)) - (cons _$obj151794_ + (cons _$obj151791_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp153529 - (let () (declare (not safe)) (cons _object151784_ '())))) + (__tmp153526 + (let () (declare (not safe)) (cons _object151781_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153530 - __tmp153529)))) + (cons __tmp153527 + __tmp153526)))) (declare (not safe)) - (cons __tmp153528 '()))) - (__tmp153486 - (let ((__tmp153487 - (let ((__tmp153488 - (let ((__tmp153519 - (let ((__tmp153520 + (cons __tmp153525 '()))) + (__tmp153483 + (let ((__tmp153484 + (let ((__tmp153485 + (let ((__tmp153516 + (let ((__tmp153517 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153524 - (let ((__tmp153525 - (let ((__tmp153526 + (let ((__tmp153521 + (let ((__tmp153522 + (let ((__tmp153523 (##structure-ref - _klass151780_ + _klass151777_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153526 '())))) + (cons __tmp153523 '())))) (declare (not safe)) - (cons '%#quote __tmp153525))) - (__tmp153521 - (let ((__tmp153522 - (let ((__tmp153523 + (cons '%#quote __tmp153522))) + (__tmp153518 + (let ((__tmp153519 + (let ((__tmp153520 (let () (declare (not safe)) - (cons _$obj151794_ + (cons _$obj151791_ '())))) (declare (not safe)) - (cons '%#ref __tmp153523)))) + (cons '%#ref __tmp153520)))) (declare (not safe)) - (cons __tmp153522 '())))) + (cons __tmp153519 '())))) (declare (not safe)) - (cons __tmp153524 __tmp153521)))) + (cons __tmp153521 __tmp153518)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp153520))) - (__tmp153489 - (let ((__tmp153507 - (let ((__tmp153508 - (let ((__tmp153516 - (let ((__tmp153517 - (let ((__tmp153518 + (cons '%#struct-direct-instance? __tmp153517))) + (__tmp153486 + (let ((__tmp153504 + (let ((__tmp153505 + (let ((__tmp153513 + (let ((__tmp153514 + (let ((__tmp153515 (##structure-ref - _self151726_ + _self151723_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153518 '())))) + (cons __tmp153515 '())))) (declare (not safe)) - (cons '%#ref __tmp153517))) - (__tmp153509 - (let ((__tmp153514 - (let ((__tmp153515 + (cons '%#ref __tmp153514))) + (__tmp153506 + (let ((__tmp153511 + (let ((__tmp153512 (let () (declare (not safe)) - (cons _field151782_ + (cons _field151779_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#quote __tmp153515))) + (cons '%#quote __tmp153512))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp153510 - (let ((__tmp153512 - (let ((__tmp153513 + (__tmp153507 + (let ((__tmp153509 + (let ((__tmp153510 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj151794_ '())))) + (cons _$obj151791_ '())))) (declare (not safe)) - (cons '%#ref __tmp153513))) - (__tmp153511 - (let () (declare (not safe)) (cons _value151786_ '())))) + (cons '%#ref __tmp153510))) + (__tmp153508 + (let () (declare (not safe)) (cons _value151783_ '())))) (declare (not safe)) - (cons __tmp153512 __tmp153511)))) + (cons __tmp153509 __tmp153508)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153514 - __tmp153510)))) + (cons __tmp153511 + __tmp153507)))) (declare (not safe)) - (cons __tmp153516 __tmp153509)))) + (cons __tmp153513 __tmp153506)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp153508))) - (__tmp153490 - (let ((__tmp153491 - (let ((__tmp153492 - (let ((__tmp153505 - (let ((__tmp153506 + (cons '%#struct-unchecked-set! __tmp153505))) + (__tmp153487 + (let ((__tmp153488 + (let ((__tmp153489 + (let ((__tmp153502 + (let ((__tmp153503 (let () (declare (not safe)) @@ -3887,684 +3887,684 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp153506))) + (cons '%#ref __tmp153503))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp153493 - (let ((__tmp153502 - (let ((__tmp153503 + (__tmp153490 + (let ((__tmp153499 + (let ((__tmp153500 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153504 + (let ((__tmp153501 (##structure-ref - _self151726_ + _self151723_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153504 '())))) + (cons __tmp153501 '())))) (declare (not safe)) - (cons '%#ref __tmp153503))) - (__tmp153494 - (let ((__tmp153500 - (let ((__tmp153501 + (cons '%#ref __tmp153500))) + (__tmp153491 + (let ((__tmp153497 + (let ((__tmp153498 (let () (declare (not safe)) - (cons _$obj151794_ '())))) + (cons _$obj151791_ '())))) (declare (not safe)) - (cons '%#ref __tmp153501))) - (__tmp153495 - (let ((__tmp153497 - (let ((__tmp153498 - (let ((__tmp153499 + (cons '%#ref __tmp153498))) + (__tmp153492 + (let ((__tmp153494 + (let ((__tmp153495 + (let ((__tmp153496 (##structure-ref - _self151726_ + _self151723_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (cons __tmp153499 '())))) + (cons __tmp153496 '())))) (declare (not safe)) - (cons '%#quote __tmp153498))) - (__tmp153496 + (cons '%#quote __tmp153495))) + (__tmp153493 (let () (declare (not safe)) - (cons _value151786_ '())))) + (cons _value151783_ '())))) (declare (not safe)) - (cons __tmp153497 __tmp153496)))) + (cons __tmp153494 __tmp153493)))) (declare (not safe)) - (cons __tmp153500 __tmp153495)))) + (cons __tmp153497 __tmp153492)))) (declare (not safe)) - (cons __tmp153502 __tmp153494)))) + (cons __tmp153499 __tmp153491)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153505 - __tmp153493)))) + (cons __tmp153502 + __tmp153490)))) (declare (not safe)) - (cons '%#call __tmp153492)))) + (cons '%#call __tmp153489)))) (declare (not safe)) - (cons __tmp153491 '())))) + (cons __tmp153488 '())))) (declare (not safe)) - (cons __tmp153507 __tmp153490)))) + (cons __tmp153504 __tmp153487)))) (declare (not safe)) - (cons __tmp153519 __tmp153489)))) + (cons __tmp153516 __tmp153486)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp153488)))) + (cons '%#if __tmp153485)))) (declare (not safe)) - (cons __tmp153487 '())))) + (cons __tmp153484 '())))) (declare (not safe)) - (cons __tmp153527 __tmp153486)))) + (cons __tmp153524 __tmp153483)))) (declare (not safe)) - (cons '%#let-values __tmp153485)))) + (cons '%#let-values __tmp153482)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153483 _stx151727_)) - (let ((__tmp153473 - (let ((__tmp153474 - (let ((__tmp153481 - (let ((__tmp153482 + (gxc#xform-wrap-source __tmp153480 _stx151724_)) + (let ((__tmp153470 + (let ((__tmp153471 + (let ((__tmp153478 + (let ((__tmp153479 (let () (declare (not safe)) (cons 'unchecked-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp153482))) - (__tmp153475 - (let ((__tmp153476 - (let ((__tmp153478 - (let ((__tmp153479 - (let ((__tmp153480 + (cons '%#ref __tmp153479))) + (__tmp153472 + (let ((__tmp153473 + (let ((__tmp153475 + (let ((__tmp153476 + (let ((__tmp153477 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self151726_ + _self151723_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (cons __tmp153480 '())))) + (cons __tmp153477 '())))) (declare (not safe)) - (cons '%#quote __tmp153479))) - (__tmp153477 - (let () (declare (not safe)) (cons _value151786_ '())))) + (cons '%#quote __tmp153476))) + (__tmp153474 + (let () (declare (not safe)) (cons _value151783_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153478 - __tmp153477)))) + (cons __tmp153475 + __tmp153474)))) (declare (not safe)) - (cons _object151784_ - __tmp153476)))) + (cons _object151781_ + __tmp153473)))) (declare (not safe)) - (cons __tmp153481 __tmp153475)))) + (cons __tmp153478 __tmp153472)))) (declare (not safe)) - (cons '%#call __tmp153474)))) + (cons '%#call __tmp153471)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153473 _stx151727_))))))))) + (gxc#xform-wrap-source __tmp153470 _stx151724_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd151738151760_ - _hd151735151752_) + _hd151735151757_ + _hd151732151749_) (let () (declare (not safe)) - (_g151730151744_ _g151731151747_))))) + (_g151727151741_ _g151728151744_))))) (let () (declare (not safe)) - (_g151730151744_ _g151731151747_))))) + (_g151727151741_ _g151728151744_))))) (let () (declare (not safe)) - (_g151730151744_ _g151731151747_)))))) + (_g151727151741_ _g151728151744_)))))) (declare (not safe)) - (_g151729151796_ _args151728_)))) + (_g151726151793_ _args151725_)))) (define gxc#!mutator::optimize-call::specialize - (lambda (__klass152604 __method-table152605) - (let ((__checked?152606 - (let ((__slot152609 + (lambda (__klass152601 __method-table152602) + (let ((__checked?152603 + (let ((__slot152606 (let () (declare (not safe)) - (class-slot-offset __klass152604 'checked?)))) - (if __slot152609 - __slot152609 + (class-slot-offset __klass152601 'checked?)))) + (if __slot152606 + __slot152606 (let () (declare (not safe)) (error '"Unknown slot" 'checked?))))) - (__slot152607 - (let ((__slot152610 + (__slot152604 + (let ((__slot152607 (let () (declare (not safe)) - (class-slot-offset __klass152604 'slot)))) - (if __slot152610 - __slot152610 + (class-slot-offset __klass152601 'slot)))) + (if __slot152607 + __slot152607 (let () (declare (not safe)) (error '"Unknown slot" 'slot))))) - (__id152608 - (let ((__slot152611 + (__id152605 + (let ((__slot152608 (let () (declare (not safe)) - (class-slot-offset __klass152604 'id)))) - (if __slot152611 - __slot152611 + (class-slot-offset __klass152601 'id)))) + (if __slot152608 + __slot152608 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self151726_ _stx151727_ _args151728_) - (let* ((_g151730151744_ - (lambda (_g151731151741_) + (lambda (_self151723_ _stx151724_ _args151725_) + (let* ((_g151727151741_ + (lambda (_g151728151738_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g151731151741_)))) - (_g151729151796_ - (lambda (_g151731151747_) + _g151728151738_)))) + (_g151726151793_ + (lambda (_g151728151744_) (if (let () (declare (not safe)) - (gx#stx-pair? _g151731151747_)) - (let ((_e151736151749_ + (gx#stx-pair? _g151728151744_)) + (let ((_e151733151746_ (let () (declare (not safe)) - (gx#stx-e _g151731151747_)))) - (let ((_hd151735151752_ + (gx#stx-e _g151728151744_)))) + (let ((_hd151732151749_ (let () (declare (not safe)) - (##car _e151736151749_))) - (_tl151734151754_ + (##car _e151733151746_))) + (_tl151731151751_ (let () (declare (not safe)) - (##cdr _e151736151749_)))) + (##cdr _e151733151746_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl151734151754_)) - (let ((_e151739151757_ + (gx#stx-pair? _tl151731151751_)) + (let ((_e151736151754_ (let () (declare (not safe)) - (gx#stx-e _tl151734151754_)))) - (let ((_hd151738151760_ + (gx#stx-e _tl151731151751_)))) + (let ((_hd151735151757_ (let () (declare (not safe)) - (##car _e151739151757_))) - (_tl151737151762_ + (##car _e151736151754_))) + (_tl151734151759_ (let () (declare (not safe)) - (##cdr _e151739151757_)))) + (##cdr _e151736151754_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl151737151762_)) - ((lambda (_L151765_ _L151766_) - (let* ((_klass151780_ - (let ((__tmp153564 + (gx#stx-null? _tl151734151759_)) + ((lambda (_L151762_ _L151763_) + (let* ((_klass151777_ + (let ((__tmp153561 (let () (declare (not safe)) (##unchecked-structure-ref - _self151726_ - __id152608 - __klass152604 + _self151723_ + __id152605 + __klass152601 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx151727_ - __tmp153564))) - (_field151782_ - (let ((__tmp153565 + _stx151724_ + __tmp153561))) + (_field151779_ + (let ((__tmp153562 (let () (declare (not safe)) (##unchecked-structure-ref - _self151726_ - __slot152607 - __klass152604 + _self151723_ + __slot152604 + __klass152601 '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass151780_ - __tmp153565))) - (_object151784_ + _klass151777_ + __tmp153562))) + (_object151781_ (let () (declare (not safe)) (gxc#compile-e__0 - _L151766_))) - (_value151786_ + _L151763_))) + (_value151783_ (let () (declare (not safe)) (gxc#compile-e__0 - _L151765_)))) + _L151762_)))) (if (##structure-ref - _klass151780_ + _klass151777_ '8 gxc#!class::t '#f) - (let ((__tmp153647 - (let ((__tmp153657 + (let ((__tmp153644 + (let ((__tmp153654 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self151726_ - __checked?152606 - __klass152604 + _self151723_ + __checked?152603 + __klass152601 '#f)) '%#struct-direct-set! '%#struct-unchecked-set!)) - (__tmp153648 - (let ((__tmp153654 - (let ((__tmp153655 - (let ((__tmp153656 + (__tmp153645 + (let ((__tmp153651 + (let ((__tmp153652 + (let ((__tmp153653 (let () (declare (not safe)) (##unchecked-structure-ref - _self151726_ - __id152608 - __klass152604 + _self151723_ + __id152605 + __klass152601 '#f)))) (declare (not safe)) - (cons __tmp153656 '())))) + (cons __tmp153653 '())))) (declare (not safe)) - (cons '%#ref __tmp153655))) - (__tmp153649 - (let ((__tmp153652 - (let ((__tmp153653 + (cons '%#ref __tmp153652))) + (__tmp153646 + (let ((__tmp153649 + (let ((__tmp153650 (let () (declare (not safe)) - (cons _field151782_ '())))) + (cons _field151779_ '())))) (declare (not safe)) - (cons '%#quote __tmp153653))) - (__tmp153650 - (let ((__tmp153651 + (cons '%#quote __tmp153650))) + (__tmp153647 + (let ((__tmp153648 (let () (declare (not safe)) - (cons _value151786_ '())))) + (cons _value151783_ '())))) (declare (not safe)) - (cons _object151784_ __tmp153651)))) + (cons _object151781_ __tmp153648)))) (declare (not safe)) - (cons __tmp153652 __tmp153650)))) + (cons __tmp153649 __tmp153647)))) (declare (not safe)) - (cons __tmp153654 __tmp153649)))) + (cons __tmp153651 __tmp153646)))) (declare (not safe)) - (cons __tmp153657 __tmp153648)))) + (cons __tmp153654 __tmp153645)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153647 - _stx151727_)) + __tmp153644 + _stx151724_)) (if (##structure-ref - _klass151780_ + _klass151777_ '7 gxc#!class::t '#f) - (let ((__tmp153636 - (let ((__tmp153646 + (let ((__tmp153633 + (let ((__tmp153643 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self151726_ - __checked?152606 - __klass152604 + _self151723_ + __checked?152603 + __klass152601 '#f)) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp153637 - (let ((__tmp153643 - (let ((__tmp153644 - (let ((__tmp153645 + (__tmp153634 + (let ((__tmp153640 + (let ((__tmp153641 + (let ((__tmp153642 (let () (declare (not safe)) (##unchecked-structure-ref - _self151726_ - __id152608 - __klass152604 + _self151723_ + __id152605 + __klass152601 '#f)))) (declare (not safe)) - (cons __tmp153645 '())))) + (cons __tmp153642 '())))) (declare (not safe)) - (cons '%#ref __tmp153644))) - (__tmp153638 - (let ((__tmp153641 - (let ((__tmp153642 + (cons '%#ref __tmp153641))) + (__tmp153635 + (let ((__tmp153638 + (let ((__tmp153639 (let () (declare (not safe)) - (cons _field151782_ '())))) + (cons _field151779_ '())))) (declare (not safe)) - (cons '%#quote __tmp153642))) - (__tmp153639 - (let ((__tmp153640 + (cons '%#quote __tmp153639))) + (__tmp153636 + (let ((__tmp153637 (let () (declare (not safe)) - (cons _value151786_ '())))) + (cons _value151783_ '())))) (declare (not safe)) - (cons _object151784_ - __tmp153640)))) + (cons _object151781_ + __tmp153637)))) (declare (not safe)) - (cons __tmp153641 __tmp153639)))) + (cons __tmp153638 __tmp153636)))) (declare (not safe)) - (cons __tmp153643 __tmp153638)))) + (cons __tmp153640 __tmp153635)))) (declare (not safe)) - (cons __tmp153646 __tmp153637)))) + (cons __tmp153643 __tmp153634)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153636 _stx151727_)) - (let ((_$e151789_ - (let ((__tmp153566 + (gxc#xform-wrap-source __tmp153633 _stx151724_)) + (let ((_$e151786_ + (let ((__tmp153563 (let () (declare (not safe)) (##unchecked-structure-ref - _self151726_ - __slot152607 - __klass152604 + _self151723_ + __slot152604 + __klass152601 '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _klass151780_ - __tmp153566)))) - (if _$e151789_ - ((lambda (_klass151792_) - (let ((__tmp153625 - (let ((__tmp153635 + _klass151777_ + __tmp153563)))) + (if _$e151786_ + ((lambda (_klass151789_) + (let ((__tmp153622 + (let ((__tmp153632 (if (let () (declare (not safe)) (##unchecked-structure-ref - _self151726_ - __checked?152606 - __klass152604 + _self151723_ + __checked?152603 + __klass152601 '#f)) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp153626 - (let ((__tmp153632 - (let ((__tmp153633 - (let ((__tmp153634 + (__tmp153623 + (let ((__tmp153629 + (let ((__tmp153630 + (let ((__tmp153631 (let () (declare (not safe)) (##unchecked-structure-ref - _self151726_ - __id152608 - __klass152604 + _self151723_ + __id152605 + __klass152601 '#f)))) (declare (not safe)) - (cons __tmp153634 '())))) + (cons __tmp153631 '())))) (declare (not safe)) - (cons '%#ref __tmp153633))) - (__tmp153627 - (let ((__tmp153630 - (let ((__tmp153631 + (cons '%#ref __tmp153630))) + (__tmp153624 + (let ((__tmp153627 + (let ((__tmp153628 (let () (declare (not safe)) - (cons _field151782_ + (cons _field151779_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#quote __tmp153631))) + (cons '%#quote __tmp153628))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp153628 - (let ((__tmp153629 + (__tmp153625 + (let ((__tmp153626 (let () (declare (not safe)) - (cons _value151786_ + (cons _value151783_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _object151784_ __tmp153629)))) + (cons _object151781_ __tmp153626)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153630 - __tmp153628)))) + (cons __tmp153627 + __tmp153625)))) (declare (not safe)) - (cons __tmp153632 __tmp153627)))) + (cons __tmp153629 __tmp153624)))) (declare (not safe)) - (cons __tmp153635 __tmp153626)))) + (cons __tmp153632 __tmp153623)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153625 _stx151727_))) - _$e151789_) + (gxc#xform-wrap-source __tmp153622 _stx151724_))) + _$e151786_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _self151726_ - __checked?152606 - __klass152604 + _self151723_ + __checked?152603 + __klass152601 '#f)) - (let ((__tmp153577 - (let* ((_$obj151794_ - (let ((__tmp153578 (gensym '__obj))) + (let ((__tmp153574 + (let* ((_$obj151791_ + (let ((__tmp153575 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153578))) - (__tmp153579 - (let ((__tmp153621 - (let ((__tmp153622 - (let ((__tmp153624 + (make-symbol__0 __tmp153575))) + (__tmp153576 + (let ((__tmp153618 + (let ((__tmp153619 + (let ((__tmp153621 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj151794_ '()))) - (__tmp153623 - (let () (declare (not safe)) (cons _object151784_ '())))) + (cons _$obj151791_ '()))) + (__tmp153620 + (let () (declare (not safe)) (cons _object151781_ '())))) (declare (not safe)) - (cons __tmp153624 __tmp153623)))) + (cons __tmp153621 __tmp153620)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153622 '()))) - (__tmp153580 - (let ((__tmp153581 - (let ((__tmp153582 - (let ((__tmp153613 + (cons __tmp153619 '()))) + (__tmp153577 + (let ((__tmp153578 + (let ((__tmp153579 + (let ((__tmp153610 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153614 - (let ((__tmp153618 - (let ((__tmp153619 - (let ((__tmp153620 + (let ((__tmp153611 + (let ((__tmp153615 + (let ((__tmp153616 + (let ((__tmp153617 (##structure-ref - _klass151780_ + _klass151777_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153620 '())))) + (cons __tmp153617 '())))) (declare (not safe)) - (cons '%#quote __tmp153619))) - (__tmp153615 - (let ((__tmp153616 - (let ((__tmp153617 + (cons '%#quote __tmp153616))) + (__tmp153612 + (let ((__tmp153613 + (let ((__tmp153614 (let () (declare (not safe)) - (cons _$obj151794_ + (cons _$obj151791_ '())))) (declare (not safe)) - (cons '%#ref __tmp153617)))) + (cons '%#ref __tmp153614)))) (declare (not safe)) - (cons __tmp153616 '())))) + (cons __tmp153613 '())))) (declare (not safe)) - (cons __tmp153618 __tmp153615)))) + (cons __tmp153615 __tmp153612)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp153614))) - (__tmp153583 - (let ((__tmp153601 - (let ((__tmp153602 - (let ((__tmp153610 - (let ((__tmp153611 - (let ((__tmp153612 + (cons '%#struct-direct-instance? __tmp153611))) + (__tmp153580 + (let ((__tmp153598 + (let ((__tmp153599 + (let ((__tmp153607 + (let ((__tmp153608 + (let ((__tmp153609 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _self151726_ - __id152608 - __klass152604 + _self151723_ + __id152605 + __klass152601 '#f)))) (declare (not safe)) - (cons __tmp153612 '())))) + (cons __tmp153609 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp153611))) - (__tmp153603 - (let ((__tmp153608 - (let ((__tmp153609 + (cons '%#ref __tmp153608))) + (__tmp153600 + (let ((__tmp153605 + (let ((__tmp153606 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _field151782_ '())))) + (cons _field151779_ '())))) (declare (not safe)) - (cons '%#quote __tmp153609))) - (__tmp153604 - (let ((__tmp153606 - (let ((__tmp153607 + (cons '%#quote __tmp153606))) + (__tmp153601 + (let ((__tmp153603 + (let ((__tmp153604 (let () (declare (not safe)) - (cons _$obj151794_ '())))) + (cons _$obj151791_ '())))) (declare (not safe)) - (cons '%#ref __tmp153607))) - (__tmp153605 - (let () (declare (not safe)) (cons _value151786_ '())))) + (cons '%#ref __tmp153604))) + (__tmp153602 + (let () (declare (not safe)) (cons _value151783_ '())))) (declare (not safe)) - (cons __tmp153606 __tmp153605)))) + (cons __tmp153603 __tmp153602)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153608 - __tmp153604)))) + (cons __tmp153605 + __tmp153601)))) (declare (not safe)) - (cons __tmp153610 __tmp153603)))) + (cons __tmp153607 __tmp153600)))) (declare (not safe)) (cons '%#struct-unchecked-set! - __tmp153602))) - (__tmp153584 - (let ((__tmp153585 - (let ((__tmp153586 - (let ((__tmp153599 - (let ((__tmp153600 + __tmp153599))) + (__tmp153581 + (let ((__tmp153582 + (let ((__tmp153583 + (let ((__tmp153596 + (let ((__tmp153597 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'class-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp153600))) - (__tmp153587 - (let ((__tmp153596 - (let ((__tmp153597 - (let ((__tmp153598 + (cons '%#ref __tmp153597))) + (__tmp153584 + (let ((__tmp153593 + (let ((__tmp153594 + (let ((__tmp153595 (let () (declare (not safe)) (##unchecked-structure-ref - _self151726_ - __id152608 - __klass152604 + _self151723_ + __id152605 + __klass152601 '#f)))) (declare (not safe)) - (cons __tmp153598 '())))) + (cons __tmp153595 '())))) (declare (not safe)) - (cons '%#ref __tmp153597))) - (__tmp153588 - (let ((__tmp153594 - (let ((__tmp153595 + (cons '%#ref __tmp153594))) + (__tmp153585 + (let ((__tmp153591 + (let ((__tmp153592 (let () (declare (not safe)) - (cons _$obj151794_ '())))) + (cons _$obj151791_ '())))) (declare (not safe)) - (cons '%#ref __tmp153595))) - (__tmp153589 - (let ((__tmp153591 - (let ((__tmp153592 - (let ((__tmp153593 + (cons '%#ref __tmp153592))) + (__tmp153586 + (let ((__tmp153588 + (let ((__tmp153589 + (let ((__tmp153590 (let () (declare (not safe)) (##unchecked-structure-ref - _self151726_ - __slot152607 - __klass152604 + _self151723_ + __slot152604 + __klass152601 '#f)))) (declare (not safe)) - (cons __tmp153593 '())))) + (cons __tmp153590 '())))) (declare (not safe)) - (cons '%#quote __tmp153592))) - (__tmp153590 + (cons '%#quote __tmp153589))) + (__tmp153587 (let () (declare (not safe)) - (cons _value151786_ '())))) + (cons _value151783_ '())))) (declare (not safe)) - (cons __tmp153591 __tmp153590)))) + (cons __tmp153588 __tmp153587)))) (declare (not safe)) - (cons __tmp153594 __tmp153589)))) + (cons __tmp153591 __tmp153586)))) (declare (not safe)) - (cons __tmp153596 __tmp153588)))) + (cons __tmp153593 __tmp153585)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153599 - __tmp153587)))) + (cons __tmp153596 + __tmp153584)))) (declare (not safe)) - (cons '%#call __tmp153586)))) + (cons '%#call __tmp153583)))) (declare (not safe)) - (cons __tmp153585 '())))) + (cons __tmp153582 '())))) (declare (not safe)) - (cons __tmp153601 __tmp153584)))) + (cons __tmp153598 __tmp153581)))) (declare (not safe)) - (cons __tmp153613 __tmp153583)))) + (cons __tmp153610 __tmp153580)))) (declare (not safe)) - (cons '%#if __tmp153582)))) + (cons '%#if __tmp153579)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153581 '())))) + (cons __tmp153578 '())))) (declare (not safe)) - (cons __tmp153621 __tmp153580)))) + (cons __tmp153618 __tmp153577)))) (declare (not safe)) - (cons '%#let-values __tmp153579)))) + (cons '%#let-values __tmp153576)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153577 _stx151727_)) - (let ((__tmp153567 - (let ((__tmp153568 - (let ((__tmp153575 - (let ((__tmp153576 + (gxc#xform-wrap-source __tmp153574 _stx151724_)) + (let ((__tmp153564 + (let ((__tmp153565 + (let ((__tmp153572 + (let ((__tmp153573 (let () (declare (not safe)) (cons 'unchecked-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp153576))) - (__tmp153569 - (let ((__tmp153570 - (let ((__tmp153572 - (let ((__tmp153573 + (cons '%#ref __tmp153573))) + (__tmp153566 + (let ((__tmp153567 + (let ((__tmp153569 + (let ((__tmp153570 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153574 + (let ((__tmp153571 (let () (declare (not safe)) (##unchecked-structure-ref - _self151726_ - __slot152607 - __klass152604 + _self151723_ + __slot152604 + __klass152601 '#f)))) (declare (not safe)) - (cons __tmp153574 '())))) + (cons __tmp153571 '())))) (declare (not safe)) - (cons '%#quote __tmp153573))) - (__tmp153571 - (let () (declare (not safe)) (cons _value151786_ '())))) + (cons '%#quote __tmp153570))) + (__tmp153568 + (let () (declare (not safe)) (cons _value151783_ '())))) (declare (not safe)) - (cons __tmp153572 __tmp153571)))) + (cons __tmp153569 __tmp153568)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _object151784_ - __tmp153570)))) + (cons _object151781_ + __tmp153567)))) (declare (not safe)) - (cons __tmp153575 __tmp153569)))) + (cons __tmp153572 __tmp153566)))) (declare (not safe)) - (cons '%#call __tmp153568)))) + (cons '%#call __tmp153565)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153567 - _stx151727_))))))))) + __tmp153564 + _stx151724_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd151738151760_ - _hd151735151752_) + _hd151735151757_ + _hd151732151749_) (let () (declare (not safe)) - (_g151730151744_ - _g151731151747_))))) + (_g151727151741_ + _g151728151744_))))) (let () (declare (not safe)) - (_g151730151744_ _g151731151747_))))) + (_g151727151741_ _g151728151744_))))) (let () (declare (not safe)) - (_g151730151744_ _g151731151747_)))))) + (_g151727151741_ _g151728151744_)))))) (declare (not safe)) - (_g151729151796_ _args151728_)))))) + (_g151726151793_ _args151725_)))))) (let () (declare (not safe)) (bind-specializer! @@ -4578,116 +4578,116 @@ gxc#!mutator::optimize-call '#f)) (define gxc#!lambda::optimize-call - (lambda (_self151560_ _stx151561_ _args151562_) - (let* ((_self151563151572_ _self151560_) - (_E151565151576_ + (lambda (_self151557_ _stx151558_ _args151559_) + (let* ((_self151560151569_ _self151557_) + (_E151562151573_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self151563151572_)))) - (_K151566151583_ - (lambda (_inline151579_ _dispatch151580_ _arity151581_) + (error '"No clause matching" _self151560151569_)))) + (_K151563151580_ + (lambda (_inline151576_ _dispatch151577_ _arity151578_) (if (let () (declare (not safe)) - (gxc#!lambda-arity-match? _self151560_ _args151562_)) + (gxc#!lambda-arity-match? _self151557_ _args151559_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal lambda application; arity mismatch" - _stx151561_ - _arity151581_))) - (if _inline151579_ + _stx151558_ + _arity151578_))) + (if _inline151576_ (begin (let () (declare (not safe)) (gxc#verbose '"inline lambda")) - (let ((__tmp153663 - (let ((__tmp153664 - (_inline151579_ _stx151561_))) + (let ((__tmp153660 + (let ((__tmp153661 + (_inline151576_ _stx151558_))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153664 - _stx151561_)))) + __tmp153661 + _stx151558_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp153663))) - (if _dispatch151580_ + (gxc#compile-e__0 __tmp153660))) + (if _dispatch151577_ (begin (let () (declare (not safe)) (gxc#verbose '"dispatch lambda => " - _dispatch151580_)) - (let ((__tmp153658 - (let ((__tmp153659 - (let ((__tmp153660 - (let ((__tmp153661 - (let ((__tmp153662 + _dispatch151577_)) + (let ((__tmp153655 + (let ((__tmp153656 + (let ((__tmp153657 + (let ((__tmp153658 + (let ((__tmp153659 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _dispatch151580_ '())))) + (cons _dispatch151577_ '())))) (declare (not safe)) - (cons '%#ref __tmp153662)))) + (cons '%#ref __tmp153659)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153661 - _args151562_)))) + (cons __tmp153658 + _args151559_)))) (declare (not safe)) - (cons '%#call __tmp153660)))) + (cons '%#call __tmp153657)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153659 - _stx151561_)))) + __tmp153656 + _stx151558_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp153658))) + (gxc#compile-e__0 __tmp153655))) (let () (declare (not safe)) - (gxc#xform-call% _stx151561_))))))) + (gxc#xform-call% _stx151558_))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self151563151572_ 'gxc#!lambda::t)) - (let* ((_e151567151586_ + (##structure-instance-of? _self151560151569_ 'gxc#!lambda::t)) + (let* ((_e151564151583_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151563151572_ + _self151560151569_ '1 gxc#!type::t '#f))) - (_e151568151589_ + (_e151565151586_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151563151572_ + _self151560151569_ '2 gxc#!lambda::t '#f))) - (_arity151592_ _e151568151589_) - (_e151569151594_ + (_arity151589_ _e151565151586_) + (_e151566151591_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151563151572_ + _self151560151569_ '3 gxc#!lambda::t '#f))) - (_dispatch151597_ _e151569151594_) - (_e151570151599_ + (_dispatch151594_ _e151566151591_) + (_e151567151596_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151563151572_ + _self151560151569_ '4 gxc#!lambda::t '#f))) - (_inline151602_ _e151570151599_)) + (_inline151599_ _e151567151596_)) (declare (not safe)) - (_K151566151583_ - _inline151602_ - _dispatch151597_ - _arity151592_)) - (let () (declare (not safe)) (_E151565151576_)))))) + (_K151563151580_ + _inline151599_ + _dispatch151594_ + _arity151589_)) + (let () (declare (not safe)) (_E151562151573_)))))) (let () (declare (not safe)) (bind-method!__% @@ -4696,76 +4696,76 @@ gxc#!lambda::optimize-call '#f)) (define gxc#!case-lambda::optimize-call - (lambda (_self151399_ _stx151400_ _args151401_) - (let* ((_self151402151409_ _self151399_) - (_E151404151413_ + (lambda (_self151396_ _stx151397_ _args151398_) + (let* ((_self151399151406_ _self151396_) + (_E151401151410_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self151402151409_)))) - (_K151405151427_ - (lambda (_clauses151416_) - (let ((_$e151422_ - (let ((__tmp153665 - (lambda (_g151417151419_) + (error '"No clause matching" _self151399151406_)))) + (_K151402151424_ + (lambda (_clauses151413_) + (let ((_$e151419_ + (let ((__tmp153662 + (lambda (_g151414151416_) (let () (declare (not safe)) (gxc#!lambda-arity-match? - _g151417151419_ - _args151401_))))) + _g151414151416_ + _args151398_))))) (declare (not safe)) - (find __tmp153665 _clauses151416_)))) - (if _$e151422_ - ((lambda (_clause151425_) - (let ((__method152880 + (find __tmp153662 _clauses151413_)))) + (if _$e151419_ + ((lambda (_clause151422_) + (let ((__method152877 (let () (declare (not safe)) (method-ref - _clause151425_ + _clause151422_ 'optimize-call)))) - (if __method152880 - (__method152880 - _clause151425_ - _stx151400_ - _args151401_) + (if __method152877 + (__method152877 + _clause151422_ + _stx151397_ + _args151398_) (let () (declare (not safe)) (error '"Missing method" - _clause151425_ + _clause151422_ 'optimize-call))))) - _$e151422_) - (let ((__tmp153666 - (map gxc#!lambda-arity _clauses151416_))) + _$e151419_) + (let ((__tmp153663 + (map gxc#!lambda-arity _clauses151413_))) (declare (not safe)) (gxc#raise-compile-error '"Illegal case-lambda application; arity mismatch" - _stx151400_ - __tmp153666))))))) + _stx151397_ + __tmp153663))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self151402151409_ + _self151399151406_ 'gxc#!case-lambda::t)) - (let* ((_e151406151430_ + (let* ((_e151403151427_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151402151409_ + _self151399151406_ '1 gxc#!type::t '#f))) - (_e151407151433_ + (_e151404151430_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151402151409_ + _self151399151406_ '2 gxc#!case-lambda::t '#f))) - (_clauses151436_ _e151407151433_)) + (_clauses151433_ _e151404151430_)) (declare (not safe)) - (_K151405151427_ _clauses151436_)) - (let () (declare (not safe)) (_E151404151413_)))))) + (_K151402151424_ _clauses151433_)) + (let () (declare (not safe)) (_E151401151410_)))))) (let () (declare (not safe)) (bind-method!__% @@ -4774,493 +4774,493 @@ gxc#!case-lambda::optimize-call '#f)) (define gxc#!lambda-arity-match? - (lambda (_self151213_ _args151214_) - (let* ((_self151215151222_ _self151213_) - (_E151217151226_ + (lambda (_self151210_ _args151211_) + (let* ((_self151212151219_ _self151210_) + (_E151214151223_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self151215151222_)))) - (_K151218151266_ - (lambda (_arity151229_) - (let* ((_arity151230151239_ _arity151229_) - (_E151233151243_ + (error '"No clause matching" _self151212151219_)))) + (_K151215151263_ + (lambda (_arity151226_) + (let* ((_arity151227151236_ _arity151226_) + (_E151230151240_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _arity151230151239_))))) - (let ((_K151237151263_ + _arity151227151236_))))) + (let ((_K151234151260_ (lambda () - (fx= (length _args151214_) _arity151229_))) - (_K151234151249_ - (lambda (_arity151247_) - (fx>= (length _args151214_) _arity151247_)))) - (let ((_try-match151232151259_ + (fx= (length _args151211_) _arity151226_))) + (_K151231151246_ + (lambda (_arity151244_) + (fx>= (length _args151211_) _arity151244_)))) + (let ((_try-match151229151256_ (lambda () (if (let () (declare (not safe)) - (##pair? _arity151230151239_)) - (let ((_tl151236151254_ + (##pair? _arity151227151236_)) + (let ((_tl151233151251_ (let () (declare (not safe)) - (##cdr _arity151230151239_))) - (_hd151235151252_ + (##cdr _arity151227151236_))) + (_hd151232151249_ (let () (declare (not safe)) - (##car _arity151230151239_)))) + (##car _arity151227151236_)))) (if (let () (declare (not safe)) - (##null? _tl151236151254_)) - (let ((_arity151257_ - _hd151235151252_)) + (##null? _tl151233151251_)) + (let ((_arity151254_ + _hd151232151249_)) (declare (not safe)) - (_K151234151249_ _arity151257_)) + (_K151231151246_ _arity151254_)) (let () (declare (not safe)) - (_E151233151243_)))) + (_E151230151240_)))) (let () (declare (not safe)) - (_E151233151243_)))))) + (_E151230151240_)))))) (if (let () (declare (not safe)) - (fixnum? _arity151230151239_)) - (let () (declare (not safe)) (_K151237151263_)) + (fixnum? _arity151227151236_)) + (let () (declare (not safe)) (_K151234151260_)) (let () (declare (not safe)) - (_try-match151232151259_))))))))) + (_try-match151229151256_))))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self151215151222_ 'gxc#!lambda::t)) - (let* ((_e151219151269_ + (##structure-instance-of? _self151212151219_ 'gxc#!lambda::t)) + (let* ((_e151216151266_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151215151222_ + _self151212151219_ '1 gxc#!type::t '#f))) - (_e151220151272_ + (_e151217151269_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151215151222_ + _self151212151219_ '2 gxc#!lambda::t '#f))) - (_arity151275_ _e151220151272_)) + (_arity151272_ _e151217151269_)) (declare (not safe)) - (_K151218151266_ _arity151275_)) - (let () (declare (not safe)) (_E151217151226_)))))) + (_K151215151263_ _arity151272_)) + (let () (declare (not safe)) (_E151214151223_)))))) (define gxc#!kw-lambda::optimize-call - (lambda (_self151098_ _stx151099_ _args151100_) - (let* ((_self151101151109_ _self151098_) - (_E151103151113_ + (lambda (_self151095_ _stx151096_ _args151097_) + (let* ((_self151098151106_ _self151095_) + (_E151100151110_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self151101151109_)))) - (_K151104151197_ - (lambda (_dispatch151116_ _table151117_) - (let* ((_g151118151127_ + (error '"No clause matching" _self151098151106_)))) + (_K151101151194_ + (lambda (_dispatch151113_ _table151114_) + (let* ((_g151115151124_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _dispatch151116_))) - (_else151120151135_ + (gxc#optimizer-lookup-type _dispatch151113_))) + (_else151117151132_ (lambda () (let () (declare (not safe)) (gxc#verbose '"unknown keyword dispatch lambda " - _dispatch151116_)) + _dispatch151113_)) (let () (declare (not safe)) - (gxc#xform-call% _stx151099_)))) - (_K151122151181_ - (lambda (_main151138_ _keys151139_) - (let ((_g153667_ + (gxc#xform-call% _stx151096_)))) + (_K151119151178_ + (lambda (_main151135_ _keys151136_) + (let ((_g153664_ (let () (declare (not safe)) (gxc#!kw-lambda-split-args - _stx151099_ - _args151100_)))) + _stx151096_ + _args151097_)))) (begin - (let ((_g153668_ + (let ((_g153665_ (let () (declare (not safe)) - (if (##values? _g153667_) - (##vector-length _g153667_) + (if (##values? _g153664_) + (##vector-length _g153664_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g153668_ 2))) + (##fx= _g153665_ 2))) (error "Context expects 2 values" - _g153668_))) - (let ((_pargs151141_ + _g153665_))) + (let ((_pargs151138_ (let () (declare (not safe)) - (##vector-ref _g153667_ 0))) - (_kwargs151142_ + (##vector-ref _g153664_ 0))) + (_kwargs151139_ (let () (declare (not safe)) - (##vector-ref _g153667_ 1)))) + (##vector-ref _g153664_ 1)))) (begin (let () (declare (not safe)) (gxc#verbose '"dispatch kw-lambda => " - _main151138_)) - (if _table151117_ - (let ((_xargs151149_ - (map (lambda (_key151144_) - (let ((_$e151146_ + _main151135_)) + (if _table151114_ + (let ((_xargs151146_ + (map (lambda (_key151141_) + (let ((_$e151143_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq__0 _key151144_ _kwargs151142_)))) - (if _$e151146_ (values _$e151146_) '(%#ref absent-value)))) + (assgetq__0 _key151141_ _kwargs151139_)))) + (if _$e151143_ (values _$e151143_) '(%#ref absent-value)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys151139_))) + _keys151136_))) (for-each - (lambda (_kw151151_) - (if (memq (car _kw151151_) - _keys151139_) + (lambda (_kw151148_) + (if (memq (car _kw151148_) + _keys151136_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; unexpected keyword" - _stx151099_ - _keys151139_ - _kw151151_)))) - _kwargs151142_) - (let ((__tmp153720 - (let ((__tmp153721 - (let ((__tmp153722 - (let ((__tmp153727 + _stx151096_ + _keys151136_ + _kw151148_)))) + _kwargs151139_) + (let ((__tmp153717 + (let ((__tmp153718 + (let ((__tmp153719 + (let ((__tmp153724 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153728 + (let ((__tmp153725 (let () (declare (not safe)) - (cons _main151138_ '())))) + (cons _main151135_ '())))) (declare (not safe)) - (cons '%#ref __tmp153728))) - (__tmp153723 - (let ((__tmp153725 - (let ((__tmp153726 + (cons '%#ref __tmp153725))) + (__tmp153720 + (let ((__tmp153722 + (let ((__tmp153723 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '%#quote __tmp153726))) - (__tmp153724 + (cons '%#quote __tmp153723))) + (__tmp153721 (let () (declare (not safe)) (foldr1 cons - _pargs151141_ - _xargs151149_)))) + _pargs151138_ + _xargs151146_)))) (declare (not safe)) - (cons __tmp153725 __tmp153724)))) + (cons __tmp153722 __tmp153721)))) (declare (not safe)) - (cons __tmp153727 __tmp153723)))) + (cons __tmp153724 __tmp153720)))) (declare (not safe)) - (cons '%#call __tmp153722)))) + (cons '%#call __tmp153719)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153721 - _stx151099_)))) + __tmp153718 + _stx151096_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp153720))) - (let* ((_kwt151153_ - (let ((__tmp153669 + (gxc#compile-e__0 __tmp153717))) + (let* ((_kwt151150_ + (let ((__tmp153666 (gensym '__kwt))) (declare (not safe)) (make-symbol__0 - __tmp153669))) - (_kwvars151156_ - (map (lambda (_g153670_) - (let ((__tmp153671 + __tmp153666))) + (_kwvars151153_ + (map (lambda (_g153667_) + (let ((__tmp153668 (gensym '__kw))) (declare (not safe)) (make-symbol__0 - __tmp153671))) - _kwargs151142_)) - (_kwbind151161_ - (map (lambda (_kw151158_ - _kwvar151159_) - (let ((__tmp153674 + __tmp153668))) + _kwargs151139_)) + (_kwbind151158_ + (map (lambda (_kw151155_ + _kwvar151156_) + (let ((__tmp153671 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _kwvar151159_ '()))) - (__tmp153672 - (let ((__tmp153673 (cdr _kw151158_))) + (cons _kwvar151156_ '()))) + (__tmp153669 + (let ((__tmp153670 (cdr _kw151155_))) (declare (not safe)) - (cons __tmp153673 '())))) + (cons __tmp153670 '())))) (declare (not safe)) - (cons __tmp153674 __tmp153672))) + (cons __tmp153671 __tmp153669))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs151142_ - _kwvars151156_)) - (_kwset151166_ - (map (lambda (_kw151163_ - _kwvar151164_) - (let ((__tmp153675 - (let ((__tmp153676 + _kwargs151139_ + _kwvars151153_)) + (_kwset151163_ + (map (lambda (_kw151160_ + _kwvar151161_) + (let ((__tmp153672 + (let ((__tmp153673 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153684 - (let ((__tmp153685 + (let ((__tmp153681 + (let ((__tmp153682 (let () (declare (not safe)) - (cons _kwt151153_ '())))) + (cons _kwt151150_ '())))) (declare (not safe)) - (cons '%#ref __tmp153685))) - (__tmp153677 - (let ((__tmp153681 - (let ((__tmp153682 - (let ((__tmp153683 - (car _kw151163_))) - (declare (not safe)) - (cons __tmp153683 '())))) - (declare (not safe)) - (cons '%#quote __tmp153682))) - (__tmp153678 + (cons '%#ref __tmp153682))) + (__tmp153674 + (let ((__tmp153678 (let ((__tmp153679 (let ((__tmp153680 + (car _kw151160_))) + (declare (not safe)) + (cons __tmp153680 '())))) + (declare (not safe)) + (cons '%#quote __tmp153679))) + (__tmp153675 + (let ((__tmp153676 + (let ((__tmp153677 (let () (declare (not safe)) - (cons _kwvar151164_ + (cons _kwvar151161_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153680)))) + __tmp153677)))) (declare (not safe)) - (cons __tmp153679 '())))) + (cons __tmp153676 '())))) (declare (not safe)) - (cons __tmp153681 __tmp153678)))) + (cons __tmp153678 __tmp153675)))) (declare (not safe)) - (cons __tmp153684 __tmp153677)))) + (cons __tmp153681 __tmp153674)))) (declare (not safe)) - (cons '(%#ref symbolic-table-set!) __tmp153676)))) + (cons '(%#ref symbolic-table-set!) __tmp153673)))) (declare (not safe)) - (cons '%#call __tmp153675))) + (cons '%#call __tmp153672))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs151142_ - _kwvars151156_)) - (_xkwargs151171_ - (map (lambda (_kw151168_ - _kwvar151169_) - (let ((__tmp153688 - (car _kw151168_)) - (__tmp153686 - (let ((__tmp153687 + _kwargs151139_ + _kwvars151153_)) + (_xkwargs151168_ + (map (lambda (_kw151165_ + _kwvar151166_) + (let ((__tmp153685 + (car _kw151165_)) + (__tmp153683 + (let ((__tmp153684 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _kwvar151169_ '())))) + (cons _kwvar151166_ '())))) (declare (not safe)) - (cons '%#ref __tmp153687)))) + (cons '%#ref __tmp153684)))) (declare (not safe)) - (cons __tmp153688 __tmp153686))) + (cons __tmp153685 __tmp153683))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs151142_ - _kwvars151156_)) - (_xargs151178_ - (map (lambda (_key151173_) - (let ((_$e151175_ + _kwargs151139_ + _kwvars151153_)) + (_xargs151175_ + (map (lambda (_key151170_) + (let ((_$e151172_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq__0 _key151173_ _xkwargs151171_)))) - (if _$e151175_ (values _$e151175_) '(%#ref absent-value)))) + (assgetq__0 _key151170_ _xkwargs151168_)))) + (if _$e151172_ (values _$e151172_) '(%#ref absent-value)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys151139_))) - (let ((__tmp153689 - (let ((__tmp153690 - (let ((__tmp153691 - (let ((__tmp153692 + _keys151136_))) + (let ((__tmp153686 + (let ((__tmp153687 + (let ((__tmp153688 + (let ((__tmp153689 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153693 - (let ((__tmp153694 - (let ((__tmp153708 - (let ((__tmp153709 - (let ((__tmp153719 + (let ((__tmp153690 + (let ((__tmp153691 + (let ((__tmp153705 + (let ((__tmp153706 + (let ((__tmp153716 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _kwt151153_ '()))) - (__tmp153710 - (let ((__tmp153711 - (let ((__tmp153712 - (let ((__tmp153713 - (let ((__tmp153714 - (let ((__tmp153716 - (let ((__tmp153717 + (let () (declare (not safe)) (cons _kwt151150_ '()))) + (__tmp153707 + (let ((__tmp153708 + (let ((__tmp153709 + (let ((__tmp153710 + (let ((__tmp153711 + (let ((__tmp153713 + (let ((__tmp153714 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153718 (length _kwargs151142_))) + (let ((__tmp153715 (length _kwargs151139_))) (declare (not safe)) - (cons __tmp153718 '())))) + (cons __tmp153715 '())))) (declare (not safe)) - (cons '%#quote __tmp153717))) - (__tmp153715 + (cons '%#quote __tmp153714))) + (__tmp153712 (let () (declare (not safe)) (cons '(%#quote 0) '())))) (declare (not safe)) - (cons __tmp153716 __tmp153715)))) + (cons __tmp153713 __tmp153712)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(%#ref make-symbolic-table) - __tmp153714)))) + __tmp153711)))) (declare (not safe)) - (cons '%#call __tmp153713)))) + (cons '%#call __tmp153710)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153712 - _stx151099_)))) + __tmp153709 + _stx151096_)))) (declare (not safe)) - (cons __tmp153711 '())))) + (cons __tmp153708 '())))) (declare (not safe)) - (cons __tmp153719 __tmp153710)))) + (cons __tmp153716 __tmp153707)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153709 '()))) - (__tmp153695 - (let ((__tmp153696 - (let ((__tmp153697 + (cons __tmp153706 '()))) + (__tmp153692 + (let ((__tmp153693 + (let ((__tmp153694 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153698 - (let ((__tmp153699 - (let ((__tmp153700 - (let ((__tmp153701 - (let ((__tmp153706 - (let ((__tmp153707 + (let ((__tmp153695 + (let ((__tmp153696 + (let ((__tmp153697 + (let ((__tmp153698 + (let ((__tmp153703 + (let ((__tmp153704 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _main151138_ '())))) + (cons _main151135_ '())))) (declare (not safe)) - (cons '%#ref __tmp153707))) - (__tmp153702 - (let ((__tmp153704 - (let ((__tmp153705 + (cons '%#ref __tmp153704))) + (__tmp153699 + (let ((__tmp153701 + (let ((__tmp153702 (let () (declare (not safe)) - (cons _kwt151153_ '())))) + (cons _kwt151150_ '())))) (declare (not safe)) - (cons '%#ref __tmp153705))) - (__tmp153703 + (cons '%#ref __tmp153702))) + (__tmp153700 (let () (declare (not safe)) - (foldr1 cons _pargs151141_ _xargs151178_)))) + (foldr1 cons _pargs151138_ _xargs151175_)))) (declare (not safe)) - (cons __tmp153704 __tmp153703)))) + (cons __tmp153701 __tmp153700)))) (declare (not safe)) - (cons __tmp153706 __tmp153702)))) + (cons __tmp153703 __tmp153699)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp153701)))) + (cons '%#call __tmp153698)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153700 - _stx151099_)))) + __tmp153697 + _stx151096_)))) (declare (not safe)) - (cons __tmp153699 '())))) + (cons __tmp153696 '())))) (declare (not safe)) - (foldr1 cons __tmp153698 _kwset151166_)))) + (foldr1 cons __tmp153695 _kwset151163_)))) (declare (not safe)) - (cons '%#begin __tmp153697)))) + (cons '%#begin __tmp153694)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153696 '())))) + (cons __tmp153693 '())))) (declare (not safe)) - (cons __tmp153708 __tmp153695)))) + (cons __tmp153705 __tmp153692)))) (declare (not safe)) - (cons '%#let-values __tmp153694)))) + (cons '%#let-values __tmp153691)))) (declare (not safe)) - (cons __tmp153693 '())))) + (cons __tmp153690 '())))) (declare (not safe)) - (cons _kwbind151161_ __tmp153692)))) + (cons _kwbind151158_ __tmp153689)))) (declare (not safe)) - (cons '%#let-values __tmp153691)))) + (cons '%#let-values __tmp153688)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153690 - _stx151099_)))) + __tmp153687 + _stx151096_)))) (declare (not safe)) (gxc#compile-e__0 - __tmp153689))))))))))) + __tmp153686))))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g151118151127_ + _g151115151124_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e151123151184_ + (let* ((_e151120151181_ (let () (declare (not safe)) (##unchecked-structure-ref - _g151118151127_ + _g151115151124_ '1 gxc#!type::t '#f))) - (_e151124151187_ + (_e151121151184_ (let () (declare (not safe)) (##unchecked-structure-ref - _g151118151127_ + _g151115151124_ '2 gxc#!kw-lambda-primary::t '#f))) - (_keys151190_ _e151124151187_) - (_e151125151192_ + (_keys151187_ _e151121151184_) + (_e151122151189_ (let () (declare (not safe)) (##unchecked-structure-ref - _g151118151127_ + _g151115151124_ '3 gxc#!kw-lambda-primary::t '#f))) - (_main151195_ _e151125151192_)) + (_main151192_ _e151122151189_)) (declare (not safe)) - (_K151122151181_ _main151195_ _keys151190_)) - (let () (declare (not safe)) (_else151120151135_))))))) + (_K151119151178_ _main151192_ _keys151187_)) + (let () (declare (not safe)) (_else151117151132_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self151101151109_ + _self151098151106_ 'gxc#!kw-lambda::t)) - (let* ((_e151105151200_ + (let* ((_e151102151197_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151101151109_ + _self151098151106_ '1 gxc#!type::t '#f))) - (_e151106151203_ + (_e151103151200_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151101151109_ + _self151098151106_ '2 gxc#!kw-lambda::t '#f))) - (_table151206_ _e151106151203_) - (_e151107151208_ + (_table151203_ _e151103151200_) + (_e151104151205_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151101151109_ + _self151098151106_ '3 gxc#!kw-lambda::t '#f))) - (_dispatch151211_ _e151107151208_)) + (_dispatch151208_ _e151104151205_)) (declare (not safe)) - (_K151104151197_ _dispatch151211_ _table151206_)) - (let () (declare (not safe)) (_E151103151113_)))))) + (_K151101151194_ _dispatch151208_ _table151203_)) + (let () (declare (not safe)) (_E151100151110_)))))) (let () (declare (not safe)) (bind-method!__% @@ -5269,300 +5269,300 @@ gxc#!kw-lambda::optimize-call '#f)) (define gxc#!kw-lambda-split-args - (lambda (_stx150711_ _args150712_) - (let _lp150714_ ((_rest150716_ _args150712_) - (_pargs150717_ '()) - (_kwargs150718_ '())) - (let* ((___stx152762152763_ _rest150716_) - (_g150724150776_ + (lambda (_stx150708_ _args150709_) + (let _lp150711_ ((_rest150713_ _args150709_) + (_pargs150714_ '()) + (_kwargs150715_ '())) + (let* ((___stx152759152760_ _rest150713_) + (_g150721150773_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx152762152763_))))) - (let ((___kont152764152765_ - (lambda (_L150955_ _L150956_) - (let ((__tmp153729 + ___stx152759152760_))))) + (let ((___kont152761152762_ + (lambda (_L150952_ _L150953_) + (let ((__tmp153726 (let () (declare (not safe)) - (cons _L150956_ _pargs150717_)))) + (cons _L150953_ _pargs150714_)))) (declare (not safe)) - (_lp150714_ _L150955_ __tmp153729 _kwargs150718_)))) - (___kont152766152767_ - (lambda (_L150901_) + (_lp150711_ _L150952_ __tmp153726 _kwargs150715_)))) + (___kont152763152764_ + (lambda (_L150898_) (values (let () (declare (not safe)) - (foldl1 cons _L150901_ _pargs150717_)) - (reverse _kwargs150718_)))) - (___kont152768152769_ - (lambda (_L150848_ _L150849_ _L150850_) - (let ((_kw150867_ + (foldl1 cons _L150898_ _pargs150714_)) + (reverse _kwargs150715_)))) + (___kont152765152766_ + (lambda (_L150845_ _L150846_ _L150847_) + (let ((_kw150864_ (let () (declare (not safe)) - (gx#stx-e _L150850_)))) - (if (assq _kw150867_ _kwargs150718_) + (gx#stx-e _L150847_)))) + (if (assq _kw150864_ _kwargs150715_) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; duplicate keyword" - _stx150711_ - _kw150867_)) - (let ((__tmp153730 - (let ((__tmp153731 + _stx150708_ + _kw150864_)) + (let ((__tmp153727 + (let ((__tmp153728 (let () (declare (not safe)) - (cons _kw150867_ _L150849_)))) + (cons _kw150864_ _L150846_)))) (declare (not safe)) - (cons __tmp153731 _kwargs150718_)))) + (cons __tmp153728 _kwargs150715_)))) (declare (not safe)) - (_lp150714_ - _L150848_ - _pargs150717_ - __tmp153730)))))) - (___kont152770152771_ - (lambda (_L150796_ _L150797_) - (let ((__tmp153732 + (_lp150711_ + _L150845_ + _pargs150714_ + __tmp153727)))))) + (___kont152767152768_ + (lambda (_L150793_ _L150794_) + (let ((__tmp153729 (let () (declare (not safe)) - (cons _L150797_ _pargs150717_)))) + (cons _L150794_ _pargs150714_)))) (declare (not safe)) - (_lp150714_ _L150796_ __tmp153732 _kwargs150718_)))) - (___kont152772152773_ + (_lp150711_ _L150793_ __tmp153729 _kwargs150715_)))) + (___kont152769152770_ (lambda () - (values (reverse _pargs150717_) - (reverse _kwargs150718_))))) - (let* ((_g150723150783_ + (values (reverse _pargs150714_) + (reverse _kwargs150715_))))) + (let* ((_g150720150780_ (lambda () (if (let () (declare (not safe)) - (gx#stx-null? ___stx152762152763_)) - (___kont152772152773_) - (let () (declare (not safe)) (_g150724150776_))))) - (___match152869152870_ - (lambda (_e150757150816_ - _hd150756150819_ - _tl150755150821_ - _e150760150824_ - _hd150759150827_ - _tl150758150829_ - _e150763150832_ - _hd150762150835_ - _tl150761150837_ - _e150766150840_ - _hd150765150843_ - _tl150764150845_) - (let ((_L150848_ _tl150764150845_) - (_L150849_ _hd150765150843_) - (_L150850_ _hd150762150835_)) + (gx#stx-null? ___stx152759152760_)) + (___kont152769152770_) + (let () (declare (not safe)) (_g150721150773_))))) + (___match152866152867_ + (lambda (_e150754150813_ + _hd150753150816_ + _tl150752150818_ + _e150757150821_ + _hd150756150824_ + _tl150755150826_ + _e150760150829_ + _hd150759150832_ + _tl150758150834_ + _e150763150837_ + _hd150762150840_ + _tl150761150842_) + (let ((_L150845_ _tl150761150842_) + (_L150846_ _hd150762150840_) + (_L150847_ _hd150759150832_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _L150850_)) - (___kont152768152769_ - _L150848_ - _L150849_ - _L150850_) - (___kont152770152771_ - _tl150755150821_ - _hd150756150819_)))))) + (gx#stx-keyword? _L150847_)) + (___kont152765152766_ + _L150845_ + _L150846_ + _L150847_) + (___kont152767152768_ + _tl150752150818_ + _hd150753150816_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx152762152763_)) - (let ((_e150730150920_ + (gx#stx-pair? ___stx152759152760_)) + (let ((_e150727150917_ (let () (declare (not safe)) - (gx#stx-e ___stx152762152763_)))) - (let ((_tl150728150925_ + (gx#stx-e ___stx152759152760_)))) + (let ((_tl150725150922_ (let () (declare (not safe)) - (##cdr _e150730150920_))) - (_hd150729150923_ + (##cdr _e150727150917_))) + (_hd150726150920_ (let () (declare (not safe)) - (##car _e150730150920_)))) + (##car _e150727150917_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd150729150923_)) - (let ((_e150733150928_ + (gx#stx-pair? _hd150726150920_)) + (let ((_e150730150925_ (let () (declare (not safe)) - (gx#stx-e _hd150729150923_)))) - (let ((_tl150731150933_ + (gx#stx-e _hd150726150920_)))) + (let ((_tl150728150930_ (let () (declare (not safe)) - (##cdr _e150733150928_))) - (_hd150732150931_ + (##cdr _e150730150925_))) + (_hd150729150928_ (let () (declare (not safe)) - (##car _e150733150928_)))) + (##car _e150730150925_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd150732150931_)) + (gx#identifier? _hd150729150928_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd150732150931_)) + _hd150729150928_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl150731150933_)) - (let ((_e150736150936_ + (gx#stx-pair? _tl150728150930_)) + (let ((_e150733150933_ (let () (declare (not safe)) (gx#stx-e - _tl150731150933_)))) - (let ((_tl150734150941_ + _tl150728150930_)))) + (let ((_tl150731150938_ (let () (declare (not safe)) - (##cdr _e150736150936_))) - (_hd150735150939_ + (##cdr _e150733150933_))) + (_hd150732150936_ (let () (declare (not safe)) - (##car _e150736150936_)))) + (##car _e150733150933_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd150735150939_)) - (let ((_e150737150944_ + _hd150732150936_)) + (let ((_e150734150941_ (let () (declare (not safe)) (gx#stx-e - _hd150735150939_)))) + _hd150732150936_)))) (if (let () (declare (not safe)) - (equal? _e150737150944_ + (equal? _e150734150941_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!key)) (if (let () (declare (not safe)) - (gx#stx-null? _tl150734150941_)) + (gx#stx-null? _tl150731150938_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl150728150925_)) - (let ((_e150740150947_ + (gx#stx-pair? _tl150725150922_)) + (let ((_e150737150944_ (let () (declare (not safe)) - (gx#stx-e _tl150728150925_)))) - (let ((_tl150738150952_ + (gx#stx-e _tl150725150922_)))) + (let ((_tl150735150949_ (let () (declare (not safe)) - (##cdr _e150740150947_))) - (_hd150739150950_ + (##cdr _e150737150944_))) + (_hd150736150947_ (let () (declare (not safe)) - (##car _e150740150947_)))) - (___kont152764152765_ - _tl150738150952_ - _hd150739150950_))) - (___kont152770152771_ - _tl150728150925_ - _hd150729150923_)) - (___kont152770152771_ _tl150728150925_ _hd150729150923_)) + (##car _e150737150944_)))) + (___kont152761152762_ + _tl150735150949_ + _hd150736150947_))) + (___kont152767152768_ + _tl150725150922_ + _hd150726150920_)) + (___kont152767152768_ _tl150725150922_ _hd150726150920_)) (if (let () (declare (not safe)) - (equal? _e150737150944_ '#!rest)) + (equal? _e150734150941_ '#!rest)) (if (let () (declare (not safe)) - (gx#stx-null? _tl150734150941_)) - (___kont152766152767_ _tl150728150925_) - (___kont152770152771_ - _tl150728150925_ - _hd150729150923_)) + (gx#stx-null? _tl150731150938_)) + (___kont152763152764_ _tl150725150922_) + (___kont152767152768_ + _tl150725150922_ + _hd150726150920_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl150734150941_)) + (gx#stx-null? _tl150731150938_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl150728150925_)) - (let ((_e150766150840_ + (gx#stx-pair? _tl150725150922_)) + (let ((_e150763150837_ (let () (declare (not safe)) - (gx#stx-e _tl150728150925_)))) - (let ((_tl150764150845_ + (gx#stx-e _tl150725150922_)))) + (let ((_tl150761150842_ (let () (declare (not safe)) - (##cdr _e150766150840_))) - (_hd150765150843_ + (##cdr _e150763150837_))) + (_hd150762150840_ (let () (declare (not safe)) - (##car _e150766150840_)))) - (___match152869152870_ - _e150730150920_ - _hd150729150923_ - _tl150728150925_ - _e150733150928_ - _hd150732150931_ - _tl150731150933_ - _e150736150936_ - _hd150735150939_ - _tl150734150941_ - _e150766150840_ - _hd150765150843_ - _tl150764150845_))) - (___kont152770152771_ - _tl150728150925_ - _hd150729150923_)) - (___kont152770152771_ - _tl150728150925_ - _hd150729150923_))))) + (##car _e150763150837_)))) + (___match152866152867_ + _e150727150917_ + _hd150726150920_ + _tl150725150922_ + _e150730150925_ + _hd150729150928_ + _tl150728150930_ + _e150733150933_ + _hd150732150936_ + _tl150731150938_ + _e150763150837_ + _hd150762150840_ + _tl150761150842_))) + (___kont152767152768_ + _tl150725150922_ + _hd150726150920_)) + (___kont152767152768_ + _tl150725150922_ + _hd150726150920_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl150734150941_)) + _tl150731150938_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl150728150925_)) - (let ((_e150766150840_ + _tl150725150922_)) + (let ((_e150763150837_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl150728150925_)))) - (let ((_tl150764150845_ + (gx#stx-e _tl150725150922_)))) + (let ((_tl150761150842_ (let () (declare (not safe)) - (##cdr _e150766150840_))) - (_hd150765150843_ + (##cdr _e150763150837_))) + (_hd150762150840_ (let () (declare (not safe)) - (##car _e150766150840_)))) - (___match152869152870_ - _e150730150920_ - _hd150729150923_ - _tl150728150925_ - _e150733150928_ - _hd150732150931_ - _tl150731150933_ - _e150736150936_ - _hd150735150939_ - _tl150734150941_ - _e150766150840_ - _hd150765150843_ - _tl150764150845_))) - (___kont152770152771_ _tl150728150925_ _hd150729150923_)) - (___kont152770152771_ _tl150728150925_ _hd150729150923_))))) + (##car _e150763150837_)))) + (___match152866152867_ + _e150727150917_ + _hd150726150920_ + _tl150725150922_ + _e150730150925_ + _hd150729150928_ + _tl150728150930_ + _e150733150933_ + _hd150732150936_ + _tl150731150938_ + _e150763150837_ + _hd150762150840_ + _tl150761150842_))) + (___kont152767152768_ _tl150725150922_ _hd150726150920_)) + (___kont152767152768_ _tl150725150922_ _hd150726150920_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont152770152771_ - _tl150728150925_ - _hd150729150923_)) - (___kont152770152771_ - _tl150728150925_ - _hd150729150923_)) - (___kont152770152771_ - _tl150728150925_ - _hd150729150923_)))) - (___kont152770152771_ - _tl150728150925_ - _hd150729150923_)))) - (let () (declare (not safe)) (_g150723150783_))))))))) + (___kont152767152768_ + _tl150725150922_ + _hd150726150920_)) + (___kont152767152768_ + _tl150725150922_ + _hd150726150920_)) + (___kont152767152768_ + _tl150725150922_ + _hd150726150920_)))) + (___kont152767152768_ + _tl150725150922_ + _hd150726150920_)))) + (let () (declare (not safe)) (_g150720150780_))))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_self150707_ _stx150708_ _args150709_) - (let () (declare (not safe)) (gxc#xform-call% _stx150708_)))) + (lambda (_self150704_ _stx150705_ _args150706_) + (let () (declare (not safe)) (gxc#xform-call% _stx150705_)))) (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 c3eefbb8..d0fcf355 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 1709128374) + (define gerbil/compiler/optimize-spec::timestamp 1709229972) (begin (define gxc#&generate-method-specializers (make-promise (lambda () - (let ((_tbl134177_ + (let ((_tbl134174_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp135305 (force gxc#&identity))) + (let ((__tmp135302 (force gxc#&identity))) (declare (not safe)) - (hash-merge! _tbl134177_ __tmp135305)) + (hash-merge! _tbl134174_ __tmp135302)) (let () (declare (not safe)) - (hash-put! _tbl134177_ '%#begin gxc#xform-begin%)) + (hash-put! _tbl134174_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (hash-put! _tbl134177_ '%#begin-syntax gxc#xform-begin-syntax%)) + (hash-put! _tbl134174_ '%#begin-syntax gxc#xform-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl134177_ '%#module gxc#xform-module%)) + (hash-put! _tbl134174_ '%#module gxc#xform-module%)) (let () (declare (not safe)) (hash-put! - _tbl134177_ + _tbl134174_ '%#define-values gxc#generate-method-specializers-define-values%)) - _tbl134177_)))) + _tbl134174_)))) (define gxc#apply-generate-method-specializers - (lambda (_stx134160_ . _args134162_) - (let ((__tmp135307 + (lambda (_stx134157_ . _args134159_) + (let ((__tmp135304 (lambda () (declare (not safe)) - (if (null? _args134162_) - (gxc#compile-e__0 _stx134160_) - (let ((_arg1134167_ (car _args134162_)) - (_rest134169_ (cdr _args134162_))) - (if (null? _rest134169_) - (gxc#compile-e__1 _stx134160_ _arg1134167_) - (let ((_arg2134172_ (car _rest134169_)) - (_rest134174_ (cdr _rest134169_))) - (if (null? _rest134174_) + (if (null? _args134159_) + (gxc#compile-e__0 _stx134157_) + (let ((_arg1134164_ (car _args134159_)) + (_rest134166_ (cdr _args134159_))) + (if (null? _rest134166_) + (gxc#compile-e__1 _stx134157_ _arg1134164_) + (let ((_arg2134169_ (car _rest134166_)) + (_rest134171_ (cdr _rest134166_))) + (if (null? _rest134171_) (gxc#compile-e__2 - _stx134160_ - _arg1134167_ - _arg2134172_) + _stx134157_ + _arg1134164_ + _arg2134169_) (apply gxc#compile-e - _stx134160_ - _arg1134167_ - _arg2134172_ - _rest134174_)))))))) - (__tmp135306 (force gxc#&generate-method-specializers))) + _stx134157_ + _arg1134164_ + _arg2134169_ + _rest134171_)))))))) + (__tmp135303 (force gxc#&generate-method-specializers))) (declare (not safe)) (call-with-parameters - __tmp135307 + __tmp135304 gxc#current-compile-methods - __tmp135306)))) + __tmp135303)))) (define gxc#&collect-object-refs (make-promise (lambda () - (let ((_tbl134157_ + (let ((_tbl134154_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp135308 (force gxc#&void))) + (let ((__tmp135305 (force gxc#&void))) (declare (not safe)) - (hash-merge! _tbl134157_ __tmp135308)) + (hash-merge! _tbl134154_ __tmp135305)) (let () (declare (not safe)) - (hash-put! _tbl134157_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl134154_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (hash-put! - _tbl134157_ + _tbl134154_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl134157_ '%#lambda gxc#collect-body-lambda%)) + (hash-put! _tbl134154_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl134157_ + _tbl134154_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl134157_ + _tbl134154_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl134157_ + _tbl134154_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl134157_ + _tbl134154_ '%#letrec-values* gxc#collect-body-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl134157_ '%#call gxc#collect-object-refs-call%)) + (hash-put! _tbl134154_ '%#call gxc#collect-object-refs-call%)) (let () (declare (not safe)) - (hash-put! _tbl134157_ '%#if gxc#collect-operands)) + (hash-put! _tbl134154_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl134157_ '%#set! gxc#collect-body-setq%)) + (hash-put! _tbl134154_ '%#set! gxc#collect-body-setq%)) (let () (declare (not safe)) - (hash-put! _tbl134157_ '%#struct-ref gxc#collect-operands)) + (hash-put! _tbl134154_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl134157_ '%#struct-set! gxc#collect-operands)) + (hash-put! _tbl134154_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl134157_ '%#struct-direct-ref gxc#collect-operands)) + (hash-put! _tbl134154_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl134157_ + _tbl134154_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl134157_ + _tbl134154_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl134157_ + _tbl134154_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl134157_)))) + _tbl134154_)))) (define gxc#apply-collect-object-refs - (lambda (_stx134140_ . _args134142_) - (let ((__tmp135310 + (lambda (_stx134137_ . _args134139_) + (let ((__tmp135307 (lambda () (declare (not safe)) - (if (null? _args134142_) - (gxc#compile-e__0 _stx134140_) - (let ((_arg1134147_ (car _args134142_)) - (_rest134149_ (cdr _args134142_))) - (if (null? _rest134149_) - (gxc#compile-e__1 _stx134140_ _arg1134147_) - (let ((_arg2134152_ (car _rest134149_)) - (_rest134154_ (cdr _rest134149_))) - (if (null? _rest134154_) + (if (null? _args134139_) + (gxc#compile-e__0 _stx134137_) + (let ((_arg1134144_ (car _args134139_)) + (_rest134146_ (cdr _args134139_))) + (if (null? _rest134146_) + (gxc#compile-e__1 _stx134137_ _arg1134144_) + (let ((_arg2134149_ (car _rest134146_)) + (_rest134151_ (cdr _rest134146_))) + (if (null? _rest134151_) (gxc#compile-e__2 - _stx134140_ - _arg1134147_ - _arg2134152_) + _stx134137_ + _arg1134144_ + _arg2134149_) (apply gxc#compile-e - _stx134140_ - _arg1134147_ - _arg2134152_ - _rest134154_)))))))) - (__tmp135309 (force gxc#&collect-object-refs))) + _stx134137_ + _arg1134144_ + _arg2134149_ + _rest134151_)))))))) + (__tmp135306 (force gxc#&collect-object-refs))) (declare (not safe)) (call-with-parameters - __tmp135310 + __tmp135307 gxc#current-compile-methods - __tmp135309)))) + __tmp135306)))) (define gxc#&subst-object-refs (make-promise (lambda () - (let ((_tbl134137_ + (let ((_tbl134134_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp135311 (force gxc#&basic-xform-expression))) + (let ((__tmp135308 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-merge! _tbl134137_ __tmp135311)) + (hash-merge! _tbl134134_ __tmp135308)) (let () (declare (not safe)) - (hash-put! _tbl134137_ '%#begin gxc#xform-begin%)) + (hash-put! _tbl134134_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (hash-put! _tbl134137_ '%#call gxc#subst-object-refs-call%)) - _tbl134137_)))) + (hash-put! _tbl134134_ '%#call gxc#subst-object-refs-call%)) + _tbl134134_)))) (define gxc#apply-subst-object-refs - (lambda (_stx134120_ . _args134122_) - (let ((__tmp135313 + (lambda (_stx134117_ . _args134119_) + (let ((__tmp135310 (lambda () (declare (not safe)) - (if (null? _args134122_) - (gxc#compile-e__0 _stx134120_) - (let ((_arg1134127_ (car _args134122_)) - (_rest134129_ (cdr _args134122_))) - (if (null? _rest134129_) - (gxc#compile-e__1 _stx134120_ _arg1134127_) - (let ((_arg2134132_ (car _rest134129_)) - (_rest134134_ (cdr _rest134129_))) - (if (null? _rest134134_) + (if (null? _args134119_) + (gxc#compile-e__0 _stx134117_) + (let ((_arg1134124_ (car _args134119_)) + (_rest134126_ (cdr _args134119_))) + (if (null? _rest134126_) + (gxc#compile-e__1 _stx134117_ _arg1134124_) + (let ((_arg2134129_ (car _rest134126_)) + (_rest134131_ (cdr _rest134126_))) + (if (null? _rest134131_) (gxc#compile-e__2 - _stx134120_ - _arg1134127_ - _arg2134132_) + _stx134117_ + _arg1134124_ + _arg2134129_) (apply gxc#compile-e - _stx134120_ - _arg1134127_ - _arg2134132_ - _rest134134_)))))))) - (__tmp135312 (force gxc#&subst-object-refs))) + _stx134117_ + _arg1134124_ + _arg2134129_ + _rest134131_)))))))) + (__tmp135309 (force gxc#&subst-object-refs))) (declare (not safe)) (call-with-parameters - __tmp135313 + __tmp135310 gxc#current-compile-methods - __tmp135312)))) + __tmp135309)))) (define gxc#generate-method-specializers-define-values% - (lambda (_stx131332_) - (letrec ((_generate-method-bind131334_ - (lambda (_$klass134113_ - _$method-table134114_ - _id134115_ - _$id134116_) - (let ((_$tmp134118_ - (let ((__tmp135314 (gensym '__method))) + (lambda (_stx131329_) + (letrec ((_generate-method-bind131331_ + (lambda (_$klass134110_ + _$method-table134111_ + _id134112_ + _$id134113_) + (let ((_$tmp134115_ + (let ((__tmp135311 (gensym '__method))) (declare (not safe)) - (make-symbol__0 __tmp135314)))) - (let ((__tmp135362 + (make-symbol__0 __tmp135311)))) + (let ((__tmp135359 (let () (declare (not safe)) - (cons _$id134116_ '()))) - (__tmp135315 - (let ((__tmp135316 - (let ((__tmp135317 - (let ((__tmp135360 - (let ((__tmp135361 + (cons _$id134113_ '()))) + (__tmp135312 + (let ((__tmp135313 + (let ((__tmp135314 + (let ((__tmp135357 + (let ((__tmp135358 (let () (declare (not safe)) (cons 'make-promise @@ -236,816 +236,816 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp135361))) - (__tmp135318 - (let ((__tmp135319 - (let ((__tmp135320 - (let ((__tmp135321 + (cons '%#ref __tmp135358))) + (__tmp135315 + (let ((__tmp135316 + (let ((__tmp135317 + (let ((__tmp135318 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135322 - (let ((__tmp135323 - (let ((__tmp135343 - (let ((__tmp135344 - (let ((__tmp135359 + (let ((__tmp135319 + (let ((__tmp135320 + (let ((__tmp135340 + (let ((__tmp135341 + (let ((__tmp135356 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$tmp134118_ '()))) - (__tmp135345 - (let ((__tmp135346 - (let ((__tmp135347 - (let ((__tmp135357 - (let ((__tmp135358 + (cons _$tmp134115_ '()))) + (__tmp135342 + (let ((__tmp135343 + (let ((__tmp135344 + (let ((__tmp135354 + (let ((__tmp135355 (let () (declare (not safe)) (cons 'symbolic-table-ref '())))) (declare (not safe)) - (cons '%#ref __tmp135358))) - (__tmp135348 - (let ((__tmp135355 - (let ((__tmp135356 + (cons '%#ref __tmp135355))) + (__tmp135345 + (let ((__tmp135352 + (let ((__tmp135353 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$method-table134114_ '())))) + (cons _$method-table134111_ '())))) (declare (not safe)) - (cons '%#ref __tmp135356))) + (cons '%#ref __tmp135353))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp135349 - (let ((__tmp135353 - (let ((__tmp135354 + (__tmp135346 + (let ((__tmp135350 + (let ((__tmp135351 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id134115_ '())))) + (cons _id134112_ '())))) (declare (not safe)) - (cons '%#quote __tmp135354))) - (__tmp135350 - (let ((__tmp135351 - (let ((__tmp135352 + (cons '%#quote __tmp135351))) + (__tmp135347 + (let ((__tmp135348 + (let ((__tmp135349 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '%#quote __tmp135352)))) + (cons '%#quote __tmp135349)))) (declare (not safe)) - (cons __tmp135351 '())))) + (cons __tmp135348 '())))) (declare (not safe)) - (cons __tmp135353 __tmp135350)))) + (cons __tmp135350 __tmp135347)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135355 - __tmp135349)))) + (cons __tmp135352 + __tmp135346)))) (declare (not safe)) - (cons __tmp135357 __tmp135348)))) + (cons __tmp135354 __tmp135345)))) (declare (not safe)) - (cons '%#call __tmp135347)))) + (cons '%#call __tmp135344)))) (declare (not safe)) - (cons __tmp135346 '())))) + (cons __tmp135343 '())))) (declare (not safe)) - (cons __tmp135359 __tmp135345)))) + (cons __tmp135356 __tmp135342)))) (declare (not safe)) - (cons __tmp135344 '()))) + (cons __tmp135341 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp135324 - (let ((__tmp135325 - (let ((__tmp135326 + (__tmp135321 + (let ((__tmp135322 + (let ((__tmp135323 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135341 - (let ((__tmp135342 + (let ((__tmp135338 + (let ((__tmp135339 (let () (declare (not safe)) - (cons _$tmp134118_ '())))) + (cons _$tmp134115_ '())))) (declare (not safe)) - (cons '%#ref __tmp135342))) - (__tmp135327 - (let ((__tmp135339 - (let ((__tmp135340 + (cons '%#ref __tmp135339))) + (__tmp135324 + (let ((__tmp135336 + (let ((__tmp135337 (let () (declare (not safe)) - (cons _$tmp134118_ '())))) + (cons _$tmp134115_ '())))) (declare (not safe)) - (cons '%#ref __tmp135340))) - (__tmp135328 - (let ((__tmp135329 - (let ((__tmp135330 - (let ((__tmp135337 - (let ((__tmp135338 + (cons '%#ref __tmp135337))) + (__tmp135325 + (let ((__tmp135326 + (let ((__tmp135327 + (let ((__tmp135334 + (let ((__tmp135335 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp135338))) - (__tmp135331 - (let ((__tmp135335 - (let ((__tmp135336 + (cons '%#ref __tmp135335))) + (__tmp135328 + (let ((__tmp135332 + (let ((__tmp135333 (let () (declare (not safe)) (cons '"Missing method" '())))) (declare (not safe)) - (cons '%#quote __tmp135336))) - (__tmp135332 - (let ((__tmp135333 - (let ((__tmp135334 + (cons '%#quote __tmp135333))) + (__tmp135329 + (let ((__tmp135330 + (let ((__tmp135331 (let () (declare (not safe)) - (cons _id134115_ '())))) + (cons _id134112_ '())))) (declare (not safe)) - (cons '%#quote __tmp135334)))) + (cons '%#quote __tmp135331)))) (declare (not safe)) - (cons __tmp135333 '())))) + (cons __tmp135330 '())))) (declare (not safe)) - (cons __tmp135335 __tmp135332)))) + (cons __tmp135332 __tmp135329)))) (declare (not safe)) - (cons __tmp135337 __tmp135331)))) + (cons __tmp135334 __tmp135328)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp135330)))) + (cons '%#call __tmp135327)))) (declare (not safe)) - (cons __tmp135329 '())))) + (cons __tmp135326 '())))) (declare (not safe)) - (cons __tmp135339 __tmp135328)))) + (cons __tmp135336 __tmp135325)))) (declare (not safe)) - (cons __tmp135341 __tmp135327)))) + (cons __tmp135338 __tmp135324)))) (declare (not safe)) - (cons '%#if __tmp135326)))) + (cons '%#if __tmp135323)))) (declare (not safe)) - (cons __tmp135325 '())))) + (cons __tmp135322 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135343 - __tmp135324)))) + (cons __tmp135340 + __tmp135321)))) (declare (not safe)) - (cons '%#let-values __tmp135323)))) + (cons '%#let-values __tmp135320)))) (declare (not safe)) - (cons __tmp135322 '())))) + (cons __tmp135319 '())))) (declare (not safe)) - (cons '() __tmp135321)))) + (cons '() __tmp135318)))) (declare (not safe)) - (cons '%#lambda __tmp135320)))) + (cons '%#lambda __tmp135317)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135319 '())))) + (cons __tmp135316 '())))) (declare (not safe)) - (cons __tmp135360 __tmp135318)))) + (cons __tmp135357 __tmp135315)))) (declare (not safe)) - (cons '%#call __tmp135317)))) + (cons '%#call __tmp135314)))) (declare (not safe)) - (cons __tmp135316 '())))) + (cons __tmp135313 '())))) (declare (not safe)) - (cons __tmp135362 __tmp135315))))) - (_generate-slot-bind131335_ - (lambda (_$klass134107_ _id134108_ _$id134109_) - (let ((_$tmp134111_ - (let ((__tmp135363 (gensym '__slot))) + (cons __tmp135359 __tmp135312))))) + (_generate-slot-bind131332_ + (lambda (_$klass134104_ _id134105_ _$id134106_) + (let ((_$tmp134108_ + (let ((__tmp135360 (gensym '__slot))) (declare (not safe)) - (make-symbol__0 __tmp135363)))) - (let ((__tmp135400 + (make-symbol__0 __tmp135360)))) + (let ((__tmp135397 (let () (declare (not safe)) - (cons _$id134109_ '()))) - (__tmp135364 - (let ((__tmp135365 - (let ((__tmp135366 - (let ((__tmp135386 - (let ((__tmp135387 - (let ((__tmp135399 + (cons _$id134106_ '()))) + (__tmp135361 + (let ((__tmp135362 + (let ((__tmp135363 + (let ((__tmp135383 + (let ((__tmp135384 + (let ((__tmp135396 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$tmp134111_ '()))) - (__tmp135388 - (let ((__tmp135389 - (let ((__tmp135390 - (let ((__tmp135397 - (let ((__tmp135398 + (cons _$tmp134108_ '()))) + (__tmp135385 + (let ((__tmp135386 + (let ((__tmp135387 + (let ((__tmp135394 + (let ((__tmp135395 (let () (declare (not safe)) (cons 'class-slot-offset '())))) (declare (not safe)) - (cons '%#ref __tmp135398))) - (__tmp135391 - (let ((__tmp135395 - (let ((__tmp135396 + (cons '%#ref __tmp135395))) + (__tmp135388 + (let ((__tmp135392 + (let ((__tmp135393 (let () (declare (not safe)) - (cons _$klass134107_ + (cons _$klass134104_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp135396))) + (cons '%#ref __tmp135393))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp135392 - (let ((__tmp135393 - (let ((__tmp135394 + (__tmp135389 + (let ((__tmp135390 + (let ((__tmp135391 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id134108_ '())))) + (let () (declare (not safe)) (cons _id134105_ '())))) (declare (not safe)) - (cons '%#quote __tmp135394)))) + (cons '%#quote __tmp135391)))) (declare (not safe)) - (cons __tmp135393 '())))) + (cons __tmp135390 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135395 - __tmp135392)))) + (cons __tmp135392 + __tmp135389)))) (declare (not safe)) - (cons __tmp135397 __tmp135391)))) + (cons __tmp135394 __tmp135388)))) (declare (not safe)) - (cons '%#call __tmp135390)))) + (cons '%#call __tmp135387)))) (declare (not safe)) - (cons __tmp135389 '())))) + (cons __tmp135386 '())))) (declare (not safe)) - (cons __tmp135399 __tmp135388)))) + (cons __tmp135396 __tmp135385)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135387 '()))) - (__tmp135367 - (let ((__tmp135368 - (let ((__tmp135369 - (let ((__tmp135384 + (cons __tmp135384 '()))) + (__tmp135364 + (let ((__tmp135365 + (let ((__tmp135366 + (let ((__tmp135381 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135385 + (let ((__tmp135382 (let () (declare (not safe)) - (cons _$tmp134111_ '())))) + (cons _$tmp134108_ '())))) (declare (not safe)) - (cons '%#ref __tmp135385))) - (__tmp135370 - (let ((__tmp135382 - (let ((__tmp135383 + (cons '%#ref __tmp135382))) + (__tmp135367 + (let ((__tmp135379 + (let ((__tmp135380 (let () (declare (not safe)) - (cons _$tmp134111_ '())))) + (cons _$tmp134108_ '())))) (declare (not safe)) - (cons '%#ref __tmp135383))) - (__tmp135371 - (let ((__tmp135372 - (let ((__tmp135373 - (let ((__tmp135380 - (let ((__tmp135381 + (cons '%#ref __tmp135380))) + (__tmp135368 + (let ((__tmp135369 + (let ((__tmp135370 + (let ((__tmp135377 + (let ((__tmp135378 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp135381))) - (__tmp135374 - (let ((__tmp135378 - (let ((__tmp135379 + (cons '%#ref __tmp135378))) + (__tmp135371 + (let ((__tmp135375 + (let ((__tmp135376 (let () (declare (not safe)) (cons '"Unknown slot" '())))) (declare (not safe)) - (cons '%#quote __tmp135379))) - (__tmp135375 - (let ((__tmp135376 - (let ((__tmp135377 + (cons '%#quote __tmp135376))) + (__tmp135372 + (let ((__tmp135373 + (let ((__tmp135374 (let () (declare (not safe)) - (cons _id134108_ '())))) + (cons _id134105_ '())))) (declare (not safe)) - (cons '%#quote __tmp135377)))) + (cons '%#quote __tmp135374)))) (declare (not safe)) - (cons __tmp135376 '())))) + (cons __tmp135373 '())))) (declare (not safe)) - (cons __tmp135378 __tmp135375)))) + (cons __tmp135375 __tmp135372)))) (declare (not safe)) - (cons __tmp135380 __tmp135374)))) + (cons __tmp135377 __tmp135371)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp135373)))) + (cons '%#call __tmp135370)))) (declare (not safe)) - (cons __tmp135372 '())))) + (cons __tmp135369 '())))) (declare (not safe)) - (cons __tmp135382 __tmp135371)))) + (cons __tmp135379 __tmp135368)))) (declare (not safe)) - (cons __tmp135384 __tmp135370)))) + (cons __tmp135381 __tmp135367)))) (declare (not safe)) - (cons '%#if __tmp135369)))) + (cons '%#if __tmp135366)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135368 '())))) + (cons __tmp135365 '())))) (declare (not safe)) - (cons __tmp135386 __tmp135367)))) + (cons __tmp135383 __tmp135364)))) (declare (not safe)) - (cons '%#let-values __tmp135366)))) + (cons '%#let-values __tmp135363)))) (declare (not safe)) - (cons __tmp135365 '())))) + (cons __tmp135362 '())))) (declare (not safe)) - (cons __tmp135400 __tmp135364))))) - (_generate-specializer-impl131336_ - (lambda (_$klass134101_ - _$method-table134102_ - _methods-bind134103_ - _slots-bind134104_ - _specializer-impl134105_) - (let ((__tmp135401 - (let ((__tmp135402 - (let ((__tmp135408 - (let ((__tmp135409 + (cons __tmp135397 __tmp135361))))) + (_generate-specializer-impl131333_ + (lambda (_$klass134098_ + _$method-table134099_ + _methods-bind134100_ + _slots-bind134101_ + _specializer-impl134102_) + (let ((__tmp135398 + (let ((__tmp135399 + (let ((__tmp135405 + (let ((__tmp135406 (let () (declare (not safe)) - (cons _$method-table134102_ + (cons _$method-table134099_ '())))) (declare (not safe)) - (cons _$klass134101_ __tmp135409))) - (__tmp135403 - (let ((__tmp135404 - (let ((__tmp135405 - (let ((__tmp135407 + (cons _$klass134098_ __tmp135406))) + (__tmp135400 + (let ((__tmp135401 + (let ((__tmp135402 + (let ((__tmp135404 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (foldr1 cons _slots-bind134104_ _methods-bind134103_))) - (__tmp135406 + (foldr1 cons _slots-bind134101_ _methods-bind134100_))) + (__tmp135403 (let () (declare (not safe)) - (cons _specializer-impl134105_ '())))) + (cons _specializer-impl134102_ '())))) (declare (not safe)) - (cons __tmp135407 __tmp135406)))) + (cons __tmp135404 __tmp135403)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp135405)))) + __tmp135402)))) (declare (not safe)) - (cons __tmp135404 '())))) + (cons __tmp135401 '())))) (declare (not safe)) - (cons __tmp135408 __tmp135403)))) + (cons __tmp135405 __tmp135400)))) (declare (not safe)) - (cons '%#lambda __tmp135402)))) + (cons '%#lambda __tmp135399)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135401 _stx131332_)))) - (_generate-specializer-def131337_ - (lambda (_id134097_ - _specializer-id134098_ - _specializer-impl134099_) - (let ((__tmp135410 - (let ((__tmp135411 - (let ((__tmp135412 - (let ((__tmp135425 - (let ((__tmp135426 - (let ((__tmp135427 - (let ((__tmp135429 + (gxc#xform-wrap-source __tmp135398 _stx131329_)))) + (_generate-specializer-def131334_ + (lambda (_id134094_ + _specializer-id134095_ + _specializer-impl134096_) + (let ((__tmp135407 + (let ((__tmp135408 + (let ((__tmp135409 + (let ((__tmp135422 + (let ((__tmp135423 + (let ((__tmp135424 + (let ((__tmp135426 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _specializer-id134098_ '()))) - (__tmp135428 + (cons _specializer-id134095_ '()))) + (__tmp135425 (let () (declare (not safe)) - (cons _specializer-impl134099_ '())))) + (cons _specializer-impl134096_ '())))) (declare (not safe)) - (cons __tmp135429 __tmp135428)))) + (cons __tmp135426 __tmp135425)))) (declare (not safe)) - (cons '%#define-values __tmp135427)))) + (cons '%#define-values __tmp135424)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp135426 - _stx131332_))) - (__tmp135413 - (let ((__tmp135414 - (let ((__tmp135415 - (let ((__tmp135416 + __tmp135423 + _stx131329_))) + (__tmp135410 + (let ((__tmp135411 + (let ((__tmp135412 + (let ((__tmp135413 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135423 - (let ((__tmp135424 + (let ((__tmp135420 + (let ((__tmp135421 (let () (declare (not safe)) (cons 'bind-specializer! '())))) (declare (not safe)) - (cons '%#ref __tmp135424))) - (__tmp135417 - (let ((__tmp135421 - (let ((__tmp135422 + (cons '%#ref __tmp135421))) + (__tmp135414 + (let ((__tmp135418 + (let ((__tmp135419 (let () (declare (not safe)) - (cons _id134097_ '())))) + (cons _id134094_ '())))) (declare (not safe)) - (cons '%#ref __tmp135422))) - (__tmp135418 - (let ((__tmp135419 - (let ((__tmp135420 + (cons '%#ref __tmp135419))) + (__tmp135415 + (let ((__tmp135416 + (let ((__tmp135417 (let () (declare (not safe)) - (cons _specializer-id134098_ + (cons _specializer-id134095_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp135420)))) + __tmp135417)))) (declare (not safe)) - (cons __tmp135419 '())))) + (cons __tmp135416 '())))) (declare (not safe)) - (cons __tmp135421 __tmp135418)))) + (cons __tmp135418 __tmp135415)))) (declare (not safe)) - (cons __tmp135423 __tmp135417)))) + (cons __tmp135420 __tmp135414)))) (declare (not safe)) - (cons '%#call __tmp135416)))) + (cons '%#call __tmp135413)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135415 _stx131332_)))) + (gxc#xform-wrap-source __tmp135412 _stx131329_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135414 '())))) + (cons __tmp135411 '())))) (declare (not safe)) - (cons __tmp135425 __tmp135413)))) + (cons __tmp135422 __tmp135410)))) (declare (not safe)) - (cons _stx131332_ __tmp135412)))) + (cons _stx131329_ __tmp135409)))) (declare (not safe)) - (cons '%#begin __tmp135411)))) + (cons '%#begin __tmp135408)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135410 _stx131332_))))) - (let* ((___stx134266134267_ _stx131332_) - (_g131340131360_ + (gxc#xform-wrap-source __tmp135407 _stx131329_))))) + (let* ((___stx134263134264_ _stx131329_) + (_g131337131357_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134266134267_))))) - (let ((___kont134268134269_ - (lambda (_L131404_ _L131405_) - (let ((_method-calls131424_ + ___stx134263134264_))))) + (let ((___kont134265134266_ + (lambda (_L131401_ _L131402_) + (let ((_method-calls131421_ (let () (declare (not safe)) (make-hash-table-eq))) - (_slot-refs131425_ + (_slot-refs131422_ (let () (declare (not safe)) (make-hash-table-eq))) - (_empty131426_ + (_empty131423_ (let () (declare (not safe)) (make-hash-table-eq)))) - (letrec ((_no-specializer?131428_ + (letrec ((_no-specializer?131425_ (lambda () - (if (let ((__tmp135431 + (if (let ((__tmp135428 (let () (declare (not safe)) (hash-length - _method-calls131424_)))) + _method-calls131421_)))) (declare (not safe)) - (fxzero? __tmp135431)) - (let ((__tmp135430 + (fxzero? __tmp135428)) + (let ((__tmp135427 (let () (declare (not safe)) (hash-length - _slot-refs131425_)))) + _slot-refs131422_)))) (declare (not safe)) - (fxzero? __tmp135430)) + (fxzero? __tmp135427)) '#f)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L131404_)) - (let* ((___stx134180134181_ _L131404_) - (_g131815131833_ + (gxc#lambda-expr? _L131401_)) + (let* ((___stx134177134178_ _L131401_) + (_g131812131830_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134180134181_))))) - (let ((___kont134182134183_ - (lambda (_L131869_ _L131870_ _L131871_) + ___stx134177134178_))))) + (let ((___kont134179134180_ + (lambda (_L131866_ _L131867_ _L131868_) (for-each - (lambda (_g131886131888_) + (lambda (_g131883131885_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g131886131888_ - _L131871_ - _method-calls131424_ - _slot-refs131425_))) - _L131869_) + _g131883131885_ + _L131868_ + _method-calls131421_ + _slot-refs131422_))) + _L131866_) (if (let () (declare (not safe)) - (_no-specializer?131428_)) - _stx131332_ - (let* ((_specializer-id131897_ - (let* ((_id131891_ - (let ((__tmp135553 + (_no-specializer?131425_)) + _stx131329_ + (let* ((_specializer-id131894_ + (let* ((_id131888_ + (let ((__tmp135550 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L131405_)))) + (let () (declare (not safe)) (gx#stx-e _L131402_)))) (declare (not safe)) - (make-symbol__1 __tmp135553 '"::specialize"))) - (_specializer-id131894_ - (let ((__tmp135554 + (make-symbol__1 __tmp135550 '"::specialize"))) + (_specializer-id131891_ + (let ((__tmp135551 (let () (declare (not safe)) - (gx#stx-source _stx131332_)))) + (gx#stx-source _stx131329_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id131891_ __tmp135554)))) + (gx#core-quote-syntax__1 _id131888_ __tmp135551)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id131894_)) - _specializer-id131894_)) + (gx#core-bind-runtime!__0 _specializer-id131891_)) + _specializer-id131891_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$klass131899_ - (let ((__tmp135555 + (_$klass131896_ + (let ((__tmp135552 (gensym '__klass))) (declare (not safe)) (make-symbol__0 - __tmp135555))) - (_$method-table131901_ - (let ((__tmp135556 + __tmp135552))) + (_$method-table131898_ + (let ((__tmp135553 (gensym '__method-table))) (declare (not safe)) (make-symbol__0 - __tmp135556))) - (_methods131903_ + __tmp135553))) + (_methods131900_ (let () (declare (not safe)) (hash-keys - _method-calls131424_))) - (_$methods131907_ - (map (lambda (_id131905_) - (let ((__tmp135557 + _method-calls131421_))) + (_$methods131904_ + (map (lambda (_id131902_) + (let ((__tmp135554 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id131905_))) + (gensym _id131902_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135557))) - _methods131903_)) + (make-symbol__1 '"__" __tmp135554))) + _methods131900_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g135558_ + (_g135555_ (for-each - (lambda (_g131908131911_ - _g131909131913_) + (lambda (_g131905131908_ + _g131906131910_) (let () (declare (not safe)) (hash-put! - _method-calls131424_ - _g131908131911_ - _g131909131913_))) - _methods131903_ - _$methods131907_)) - (_methods-bind131924_ - (map (lambda (_g131916131919_ + _method-calls131421_ + _g131905131908_ + _g131906131910_))) + _methods131900_ + _$methods131904_)) + (_methods-bind131921_ + (map (lambda (_g131913131916_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g131917131921_) + _g131914131918_) (let () (declare (not safe)) - (_generate-method-bind131334_ - _$klass131899_ - _$method-table131901_ - _g131916131919_ - _g131917131921_))) - _methods131903_ - _$methods131907_)) + (_generate-method-bind131331_ + _$klass131896_ + _$method-table131898_ + _g131913131916_ + _g131914131918_))) + _methods131900_ + _$methods131904_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots131926_ + (_slots131923_ (let () (declare (not safe)) (hash-keys - _slot-refs131425_))) - (_$slots131930_ - (map (lambda (_id131928_) - (let ((__tmp135559 + _slot-refs131422_))) + (_$slots131927_ + (map (lambda (_id131925_) + (let ((__tmp135556 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id131928_))) + (gensym _id131925_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135559))) - _slots131926_)) + (make-symbol__1 '"__" __tmp135556))) + _slots131923_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g135560_ + (_g135557_ (for-each - (lambda (_g131931131934_ - _g131932131936_) + (lambda (_g131928131931_ + _g131929131933_) (let () (declare (not safe)) (hash-put! - _slot-refs131425_ - _g131931131934_ - _g131932131936_))) - _slots131926_ - _$slots131930_)) - (_slots-bind131947_ - (map (lambda (_g131939131942_ + _slot-refs131422_ + _g131928131931_ + _g131929131933_))) + _slots131923_ + _$slots131927_)) + (_slots-bind131944_ + (map (lambda (_g131936131939_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g131940131944_) + _g131937131941_) (let () (declare (not safe)) - (_generate-slot-bind131335_ - _$klass131899_ - _g131939131942_ - _g131940131944_))) - _slots131926_ - _$slots131930_)) + (_generate-slot-bind131332_ + _$klass131896_ + _g131936131939_ + _g131937131941_))) + _slots131923_ + _$slots131927_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-body131953_ - (map (lambda (_g131948131950_) + (_specializer-body131950_ + (map (lambda (_g131945131947_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g131948131950_ - _L131871_ - _$klass131899_ - _method-calls131424_ - _slot-refs131425_))) - _L131869_)) - (_specializer-impl131955_ - (let ((__tmp135561 - (let ((__tmp135562 + _g131945131947_ + _L131868_ + _$klass131896_ + _method-calls131421_ + _slot-refs131422_))) + _L131866_)) + (_specializer-impl131952_ + (let ((__tmp135558 + (let ((__tmp135559 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135563 + (let ((__tmp135560 (let () (declare (not safe)) - (cons _L131871_ _L131870_)))) + (cons _L131868_ _L131867_)))) (declare (not safe)) - (cons __tmp135563 _specializer-body131953_)))) + (cons __tmp135560 _specializer-body131950_)))) (declare (not safe)) - (cons '%#lambda __tmp135562)))) + (cons '%#lambda __tmp135559)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135561 _stx131332_))) + (gxc#xform-wrap-source __tmp135558 _stx131329_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl131957_ + (_specializer-impl131954_ (let () (declare (not safe)) - (_generate-specializer-impl131336_ - _$klass131899_ - _$method-table131901_ - _methods-bind131924_ - _slots-bind131947_ - _specializer-impl131955_)))) - (let ((__tmp135565 + (_generate-specializer-impl131333_ + _$klass131896_ + _$method-table131898_ + _methods-bind131921_ + _slots-bind131944_ + _specializer-impl131952_)))) + (let ((__tmp135562 (let () (declare (not safe)) - (gx#stx-e _L131405_))) - (__tmp135564 + (gx#stx-e _L131402_))) + (__tmp135561 (let () (declare (not safe)) (gx#stx-e - _specializer-id131897_)))) + _specializer-id131894_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp135565 + __tmp135562 '" => " - __tmp135564)) + __tmp135561)) (let () (declare (not safe)) - (_generate-specializer-def131337_ - _L131405_ - _specializer-id131897_ - _specializer-impl131957_)))))) - (___kont134184134185_ - (lambda () _stx131332_))) + (_generate-specializer-def131334_ + _L131402_ + _specializer-id131894_ + _specializer-impl131954_)))))) + (___kont134181134182_ + (lambda () _stx131329_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx134180134181_)) - (let ((_e131822131845_ + (gx#stx-pair? ___stx134177134178_)) + (let ((_e131819131842_ (let () (declare (not safe)) - (gx#stx-e ___stx134180134181_)))) - (let ((_tl131820131850_ + (gx#stx-e ___stx134177134178_)))) + (let ((_tl131817131847_ (let () (declare (not safe)) - (##cdr _e131822131845_))) - (_hd131821131848_ + (##cdr _e131819131842_))) + (_hd131818131845_ (let () (declare (not safe)) - (##car _e131822131845_)))) + (##car _e131819131842_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131820131850_)) - (let ((_e131825131853_ + (gx#stx-pair? _tl131817131847_)) + (let ((_e131822131850_ (let () (declare (not safe)) (gx#stx-e - _tl131820131850_)))) - (let ((_tl131823131858_ + _tl131817131847_)))) + (let ((_tl131820131855_ (let () (declare (not safe)) - (##cdr _e131825131853_))) - (_hd131824131856_ + (##cdr _e131822131850_))) + (_hd131821131853_ (let () (declare (not safe)) - (##car _e131825131853_)))) + (##car _e131822131850_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd131824131856_)) - (let ((_e131828131861_ + _hd131821131853_)) + (let ((_e131825131858_ (let () (declare (not safe)) (gx#stx-e - _hd131824131856_)))) - (let ((_tl131826131866_ + _hd131821131853_)))) + (let ((_tl131823131863_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e131828131861_))) - (_hd131827131864_ - (let () (declare (not safe)) (##car _e131828131861_)))) - (___kont134182134183_ - _tl131823131858_ - _tl131826131866_ - _hd131827131864_))) + (##cdr _e131825131858_))) + (_hd131824131861_ + (let () (declare (not safe)) (##car _e131825131858_)))) + (___kont134179134180_ + _tl131820131855_ + _tl131823131863_ + _hd131824131861_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134184134185_)))) - (___kont134184134185_)))) - (___kont134184134185_)))) + (___kont134181134182_)))) + (___kont134181134182_)))) + (___kont134181134182_)))) (if (let () (declare (not safe)) - (gxc#case-lambda-expr? _L131404_)) - (let* ((_g131963131982_ - (lambda (_g131964131979_) + (gxc#case-lambda-expr? _L131401_)) + (let* ((_g131960131979_ + (lambda (_g131961131976_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g131964131979_)))) - (_g131962132265_ - (lambda (_g131964131985_) + _g131961131976_)))) + (_g131959132262_ + (lambda (_g131961131982_) (if (let () (declare (not safe)) (gx#stx-pair? - _g131964131985_)) - (let ((_e131968131987_ + _g131961131982_)) + (let ((_e131965131984_ (let () (declare (not safe)) (gx#stx-e - _g131964131985_)))) - (let ((_hd131967131990_ + _g131961131982_)))) + (let ((_hd131964131987_ (let () (declare (not safe)) - (##car _e131968131987_))) - (_tl131966131992_ + (##car _e131965131984_))) + (_tl131963131989_ (let () (declare (not safe)) - (##cdr _e131968131987_)))) + (##cdr _e131965131984_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl131966131992_)) - (let ((_g135536_ + _tl131963131989_)) + (let ((_g135533_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl131966131992_ '0)))) + (gx#syntax-split-splice _tl131963131989_ '0)))) (begin - (let ((_g135537_ + (let ((_g135534_ (let () (declare (not safe)) - (if (##values? _g135536_) - (##vector-length _g135536_) + (if (##values? _g135533_) + (##vector-length _g135533_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135537_ 2))) - (error "Context expects 2 values" _g135537_))) - (let ((_target131969131995_ + (##fx= _g135534_ 2))) + (error "Context expects 2 values" _g135534_))) + (let ((_target131966131992_ (let () (declare (not safe)) - (##vector-ref _g135536_ 0))) - (_tl131971131997_ + (##vector-ref _g135533_ 0))) + (_tl131968131994_ (let () (declare (not safe)) - (##vector-ref _g135536_ 1)))) + (##vector-ref _g135533_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl131971131997_)) - (letrec ((_loop131972132000_ - (lambda (_hd131970132003_ - _clause131976132005_) + (gx#stx-null? _tl131968131994_)) + (letrec ((_loop131969131997_ + (lambda (_hd131967132000_ + _clause131973132002_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd131970132003_)) - (let ((_e131973132008_ + (gx#stx-pair? _hd131967132000_)) + (let ((_e131970132005_ (let () (declare (not safe)) (gx#stx-e - _hd131970132003_)))) - (let ((_lp-hd131974132011_ + _hd131967132000_)))) + (let ((_lp-hd131971132008_ (let () (declare (not safe)) - (##car _e131973132008_))) - (_lp-tl131975132013_ + (##car _e131970132005_))) + (_lp-tl131972132010_ (let () (declare (not safe)) - (##cdr _e131973132008_)))) - (let ((__tmp135552 + (##cdr _e131970132005_)))) + (let ((__tmp135549 (let () (declare (not safe)) - (cons _lp-hd131974132011_ - _clause131976132005_)))) + (cons _lp-hd131971132008_ + _clause131973132002_)))) (declare (not safe)) - (_loop131972132000_ - _lp-tl131975132013_ - __tmp135552)))) - (let ((_clause131977132016_ - (reverse _clause131976132005_))) - ((lambda (_L132019_) + (_loop131969131997_ + _lp-tl131972132010_ + __tmp135549)))) + (let ((_clause131974132013_ + (reverse _clause131973132002_))) + ((lambda (_L132016_) (for-each - (lambda (_clause132032_) - (let* ((___stx134206134207_ - _clause132032_) - (_g132035132050_ + (lambda (_clause132029_) + (let* ((___stx134203134204_ + _clause132029_) + (_g132032132047_ (lambda () (let () (declare @@ -1053,7711 +1053,7711 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134206134207_))))) - (let ((___kont134208134209_ - (lambda (_L132078_ + ___stx134203134204_))))) + (let ((___kont134205134206_ + (lambda (_L132075_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L132079_ - _L132080_) + _L132076_ + _L132077_) (for-each - (lambda (_g132095132097_) + (lambda (_g132092132094_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g132095132097_ - _L132080_ - _method-calls131424_ - _slot-refs131425_))) - _L132078_))) - (___kont134210134211_ (lambda () '#!void))) + _g132092132094_ + _L132077_ + _method-calls131421_ + _slot-refs131422_))) + _L132075_))) + (___kont134207134208_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx134206134207_)) - (let ((_e132042132062_ + ___stx134203134204_)) + (let ((_e132039132059_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e ___stx134206134207_)))) - (let ((_tl132040132067_ + (gx#stx-e ___stx134203134204_)))) + (let ((_tl132037132064_ (let () (declare (not safe)) - (##cdr _e132042132062_))) - (_hd132041132065_ + (##cdr _e132039132059_))) + (_hd132038132062_ (let () (declare (not safe)) - (##car _e132042132062_)))) + (##car _e132039132059_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132041132065_)) - (let ((_e132045132070_ + (gx#stx-pair? _hd132038132062_)) + (let ((_e132042132067_ (let () (declare (not safe)) - (gx#stx-e _hd132041132065_)))) - (let ((_tl132043132075_ + (gx#stx-e _hd132038132062_)))) + (let ((_tl132040132072_ (let () (declare (not safe)) - (##cdr _e132045132070_))) - (_hd132044132073_ + (##cdr _e132042132067_))) + (_hd132041132070_ (let () (declare (not safe)) - (##car _e132045132070_)))) - (___kont134208134209_ - _tl132040132067_ - _tl132043132075_ - _hd132044132073_))) - (___kont134210134211_)))) - (___kont134210134211_))))) + (##car _e132042132067_)))) + (___kont134205134206_ + _tl132037132064_ + _tl132040132072_ + _hd132041132070_))) + (___kont134207134208_)))) + (___kont134207134208_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp135538 - (lambda (_g132102132105_ - _g132103132107_) + (let ((__tmp135535 + (lambda (_g132099132102_ + _g132100132104_) (let () (declare (not safe)) - (cons _g132102132105_ - _g132103132107_))))) + (cons _g132099132102_ + _g132100132104_))))) (declare (not safe)) - (foldr1 __tmp135538 + (foldr1 __tmp135535 '() - _L132019_))) + _L132016_))) (if (let () (declare (not safe)) - (_no-specializer?131428_)) - _stx131332_ - (let* ((_specializer-id132116_ - (let* ((_id132110_ + (_no-specializer?131425_)) + _stx131329_ + (let* ((_specializer-id132113_ + (let* ((_id132107_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135539 + (let ((__tmp135536 (let () (declare (not safe)) - (gx#stx-e _L131405_)))) + (gx#stx-e _L131402_)))) (declare (not safe)) - (make-symbol__1 __tmp135539 '"::specialize"))) - (_specializer-id132113_ - (let ((__tmp135540 + (make-symbol__1 __tmp135536 '"::specialize"))) + (_specializer-id132110_ + (let ((__tmp135537 (let () (declare (not safe)) - (gx#stx-source _stx131332_)))) + (gx#stx-source _stx131329_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id132110_ __tmp135540)))) + (gx#core-quote-syntax__1 _id132107_ __tmp135537)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id132113_)) - _specializer-id132113_)) - (_$klass132118_ - (let ((__tmp135541 (gensym '__klass))) + (gx#core-bind-runtime!__0 _specializer-id132110_)) + _specializer-id132110_)) + (_$klass132115_ + (let ((__tmp135538 (gensym '__klass))) (declare (not safe)) - (make-symbol__0 __tmp135541))) - (_$method-table132120_ - (let ((__tmp135542 (gensym '__method-table))) + (make-symbol__0 __tmp135538))) + (_$method-table132117_ + (let ((__tmp135539 (gensym '__method-table))) (declare (not safe)) - (make-symbol__0 __tmp135542))) - (_methods132122_ + (make-symbol__0 __tmp135539))) + (_methods132119_ (let () (declare (not safe)) - (hash-keys _method-calls131424_))) - (_$methods132126_ - (map (lambda (_id132124_) - (let ((__tmp135543 (gensym _id132124_))) + (hash-keys _method-calls131421_))) + (_$methods132123_ + (map (lambda (_id132121_) + (let ((__tmp135540 (gensym _id132121_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135543))) - _methods132122_)) - (_g135544_ + (make-symbol__1 '"__" __tmp135540))) + _methods132119_)) + (_g135541_ (for-each - (lambda (_g132127132130_ _g132128132132_) + (lambda (_g132124132127_ _g132125132129_) (let () (declare (not safe)) (hash-put! - _method-calls131424_ - _g132127132130_ - _g132128132132_))) - _methods132122_ - _$methods132126_)) - (_methods-bind132143_ - (map (lambda (_g132135132138_ _g132136132140_) + _method-calls131421_ + _g132124132127_ + _g132125132129_))) + _methods132119_ + _$methods132123_)) + (_methods-bind132140_ + (map (lambda (_g132132132135_ _g132133132137_) (let () (declare (not safe)) - (_generate-method-bind131334_ - _$klass132118_ - _$method-table132120_ - _g132135132138_ - _g132136132140_))) - _methods132122_ - _$methods132126_)) - (_slots132145_ - (let () (declare (not safe)) (hash-keys _slot-refs131425_))) - (_$slots132149_ - (map (lambda (_id132147_) - (let ((__tmp135545 (gensym _id132147_))) + (_generate-method-bind131331_ + _$klass132115_ + _$method-table132117_ + _g132132132135_ + _g132133132137_))) + _methods132119_ + _$methods132123_)) + (_slots132142_ + (let () (declare (not safe)) (hash-keys _slot-refs131422_))) + (_$slots132146_ + (map (lambda (_id132144_) + (let ((__tmp135542 (gensym _id132144_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135545))) - _slots132145_)) - (_g135546_ + (make-symbol__1 '"__" __tmp135542))) + _slots132142_)) + (_g135543_ (for-each - (lambda (_g132150132153_ _g132151132155_) + (lambda (_g132147132150_ _g132148132152_) (let () (declare (not safe)) (hash-put! - _slot-refs131425_ - _g132150132153_ - _g132151132155_))) - _slots132145_ - _$slots132149_)) - (_slots-bind132166_ - (map (lambda (_g132158132161_ _g132159132163_) + _slot-refs131422_ + _g132147132150_ + _g132148132152_))) + _slots132142_ + _$slots132146_)) + (_slots-bind132163_ + (map (lambda (_g132155132158_ _g132156132160_) (let () (declare (not safe)) - (_generate-slot-bind131335_ - _$klass132118_ - _g132158132161_ - _g132159132163_))) - _slots132145_ - _$slots132149_)) - (_specializer-clauses132258_ - (map (lambda (_clause132168_) - (let* ((___stx134226134227_ _clause132168_) - (_g132171132186_ + (_generate-slot-bind131332_ + _$klass132115_ + _g132155132158_ + _g132156132160_))) + _slots132142_ + _$slots132146_)) + (_specializer-clauses132255_ + (map (lambda (_clause132165_) + (let* ((___stx134223134224_ _clause132165_) + (_g132168132183_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134226134227_))))) - (let ((___kont134228134229_ - (lambda (_L132214_ _L132215_ _L132216_) - (let* ((_body132246_ - (map (lambda (_g132241132243_) + ___stx134223134224_))))) + (let ((___kont134225134226_ + (lambda (_L132211_ _L132212_ _L132213_) + (let* ((_body132243_ + (map (lambda (_g132238132240_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g132241132243_ - _L132216_ - _$klass132118_ - _method-calls131424_ - _slot-refs131425_))) - _L132214_)) - (__tmp135547 + _g132238132240_ + _L132213_ + _$klass132115_ + _method-calls131421_ + _slot-refs131422_))) + _L132211_)) + (__tmp135544 (let () (declare (not safe)) - (cons _L132216_ _L132215_)))) + (cons _L132213_ _L132212_)))) (declare (not safe)) - (cons __tmp135547 _body132246_)))) - (___kont134230134231_ - (lambda () _clause132168_))) + (cons __tmp135544 _body132243_)))) + (___kont134227134228_ + (lambda () _clause132165_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx134226134227_)) - (let ((_e132178132198_ + (gx#stx-pair? ___stx134223134224_)) + (let ((_e132175132195_ (let () (declare (not safe)) - (gx#stx-e ___stx134226134227_)))) - (let ((_tl132176132203_ + (gx#stx-e ___stx134223134224_)))) + (let ((_tl132173132200_ (let () (declare (not safe)) - (##cdr _e132178132198_))) - (_hd132177132201_ + (##cdr _e132175132195_))) + (_hd132174132198_ (let () (declare (not safe)) - (##car _e132178132198_)))) + (##car _e132175132195_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132177132201_)) - (let ((_e132181132206_ + (gx#stx-pair? _hd132174132198_)) + (let ((_e132178132203_ (let () (declare (not safe)) (gx#stx-e - _hd132177132201_)))) - (let ((_tl132179132211_ + _hd132174132198_)))) + (let ((_tl132176132208_ (let () (declare (not safe)) - (##cdr _e132181132206_))) - (_hd132180132209_ + (##cdr _e132178132203_))) + (_hd132177132206_ (let () (declare (not safe)) - (##car _e132181132206_)))) - (___kont134228134229_ - _tl132176132203_ - _tl132179132211_ - _hd132180132209_))) - (___kont134230134231_)))) - (___kont134230134231_))))) - (let ((__tmp135548 - (lambda (_g132250132253_ _g132251132255_) + (##car _e132178132203_)))) + (___kont134225134226_ + _tl132173132200_ + _tl132176132208_ + _hd132177132206_))) + (___kont134227134228_)))) + (___kont134227134228_))))) + (let ((__tmp135545 + (lambda (_g132247132250_ _g132248132252_) (let () (declare (not safe)) - (cons _g132250132253_ _g132251132255_))))) + (cons _g132247132250_ _g132248132252_))))) (declare (not safe)) - (foldr1 __tmp135548 '() _L132019_)))) - (_specializer-impl132260_ - (let ((__tmp135549 + (foldr1 __tmp135545 '() _L132016_)))) + (_specializer-impl132257_ + (let ((__tmp135546 (let () (declare (not safe)) - (cons '%#case-lambda _specializer-clauses132258_)))) + (cons '%#case-lambda _specializer-clauses132255_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135549 _stx131332_))) - (_specializer-impl132262_ + (gxc#xform-wrap-source __tmp135546 _stx131329_))) + (_specializer-impl132259_ (let () (declare (not safe)) - (_generate-specializer-impl131336_ - _$klass132118_ - _$method-table132120_ - _methods-bind132143_ - _slots-bind132166_ - _specializer-impl132260_)))) + (_generate-specializer-impl131333_ + _$klass132115_ + _$method-table132117_ + _methods-bind132140_ + _slots-bind132163_ + _specializer-impl132257_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp135551 + (let ((__tmp135548 (let () (declare (not safe)) (gx#stx-e - _L131405_))) - (__tmp135550 + _L131402_))) + (__tmp135547 (let () (declare (not safe)) (gx#stx-e - _specializer-id132116_)))) + _specializer-id132113_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp135551 + __tmp135548 '" => " - __tmp135550)) + __tmp135547)) (let () (declare (not safe)) - (_generate-specializer-def131337_ - _L131405_ - _specializer-id132116_ - _specializer-impl132262_))))) - _clause131977132016_)))))) + (_generate-specializer-def131334_ + _L131402_ + _specializer-id132113_ + _specializer-impl132259_))))) + _clause131974132013_)))))) (let () (declare (not safe)) - (_loop131972132000_ _target131969131995_ '()))) + (_loop131969131997_ _target131966131992_ '()))) (let () (declare (not safe)) - (_g131963131982_ _g131964131985_)))))) + (_g131960131979_ _g131961131982_)))))) (let () (declare (not safe)) - (_g131963131982_ _g131964131985_))))) + (_g131960131979_ _g131961131982_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g131963131982_ - _g131964131985_)))))) + (_g131960131979_ + _g131961131982_)))))) (declare (not safe)) - (_g131962132265_ _L131404_)) + (_g131959132262_ _L131401_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L131404_)) - (let* ((_g132268132298_ - (lambda (_g132269132295_) + (gxc#opt-lambda-expr? _L131401_)) + (let* ((_g132265132295_ + (lambda (_g132266132292_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132269132295_)))) - (_g132267132903_ - (lambda (_g132269132301_) + _g132266132292_)))) + (_g132264132900_ + (lambda (_g132266132298_) (if (let () (declare (not safe)) (gx#stx-pair? - _g132269132301_)) - (let ((_e132275132303_ + _g132266132298_)) + (let ((_e132272132300_ (let () (declare (not safe)) (gx#stx-e - _g132269132301_)))) - (let ((_hd132274132306_ + _g132266132298_)))) + (let ((_hd132271132303_ (let () (declare (not safe)) - (##car _e132275132303_))) - (_tl132273132308_ + (##car _e132272132300_))) + (_tl132270132305_ (let () (declare (not safe)) - (##cdr _e132275132303_)))) + (##cdr _e132272132300_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl132273132308_)) - (let ((_e132278132311_ + _tl132270132305_)) + (let ((_e132275132308_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl132273132308_)))) - (let ((_hd132277132314_ + (gx#stx-e _tl132270132305_)))) + (let ((_hd132274132311_ (let () (declare (not safe)) - (##car _e132278132311_))) - (_tl132276132316_ + (##car _e132275132308_))) + (_tl132273132313_ (let () (declare (not safe)) - (##cdr _e132278132311_)))) + (##cdr _e132275132308_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132277132314_)) - (let ((_e132281132319_ + (gx#stx-pair? _hd132274132311_)) + (let ((_e132278132316_ (let () (declare (not safe)) - (gx#stx-e _hd132277132314_)))) - (let ((_hd132280132322_ + (gx#stx-e _hd132274132311_)))) + (let ((_hd132277132319_ (let () (declare (not safe)) - (##car _e132281132319_))) - (_tl132279132324_ + (##car _e132278132316_))) + (_tl132276132321_ (let () (declare (not safe)) - (##cdr _e132281132319_)))) + (##cdr _e132278132316_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132280132322_)) - (let ((_e132284132327_ + (gx#stx-pair? _hd132277132319_)) + (let ((_e132281132324_ (let () (declare (not safe)) - (gx#stx-e _hd132280132322_)))) - (let ((_hd132283132330_ + (gx#stx-e _hd132277132319_)))) + (let ((_hd132280132327_ (let () (declare (not safe)) - (##car _e132284132327_))) - (_tl132282132332_ + (##car _e132281132324_))) + (_tl132279132329_ (let () (declare (not safe)) - (##cdr _e132284132327_)))) + (##cdr _e132281132324_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132283132330_)) - (let ((_e132287132335_ + (gx#stx-pair? _hd132280132327_)) + (let ((_e132284132332_ (let () (declare (not safe)) (gx#stx-e - _hd132283132330_)))) - (let ((_hd132286132338_ + _hd132280132327_)))) + (let ((_hd132283132335_ (let () (declare (not safe)) - (##car _e132287132335_))) - (_tl132285132340_ + (##car _e132284132332_))) + (_tl132282132337_ (let () (declare (not safe)) - (##cdr _e132287132335_)))) + (##cdr _e132284132332_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132285132340_)) + _tl132282132337_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl132282132332_)) - (let ((_e132290132343_ + _tl132279132329_)) + (let ((_e132287132340_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl132282132332_)))) - (let ((_hd132289132346_ - (let () (declare (not safe)) (##car _e132290132343_))) - (_tl132288132348_ - (let () (declare (not safe)) (##cdr _e132290132343_)))) + (gx#stx-e _tl132279132329_)))) + (let ((_hd132286132343_ + (let () (declare (not safe)) (##car _e132287132340_))) + (_tl132285132345_ + (let () (declare (not safe)) (##cdr _e132287132340_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132288132348_)) + (gx#stx-null? _tl132285132345_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl132279132324_)) + (gx#stx-null? _tl132276132321_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132276132316_)) - (let ((_e132293132351_ + (gx#stx-pair? _tl132273132313_)) + (let ((_e132290132348_ (let () (declare (not safe)) - (gx#stx-e _tl132276132316_)))) - (let ((_hd132292132354_ + (gx#stx-e _tl132273132313_)))) + (let ((_hd132289132351_ (let () (declare (not safe)) - (##car _e132293132351_))) - (_tl132291132356_ + (##car _e132290132348_))) + (_tl132288132353_ (let () (declare (not safe)) - (##cdr _e132293132351_)))) + (##cdr _e132290132348_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132291132356_)) - ((lambda (_L132359_ _L132360_ _L132361_) - (let* ((_g132384132402_ - (lambda (_g132385132399_) + (gx#stx-null? _tl132288132353_)) + ((lambda (_L132356_ _L132357_ _L132358_) + (let* ((_g132381132399_ + (lambda (_g132382132396_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132385132399_)))) - (_g132383132453_ - (lambda (_g132385132405_) + _g132382132396_)))) + (_g132380132450_ + (lambda (_g132382132402_) (if (let () (declare (not safe)) (gx#stx-pair? - _g132385132405_)) - (let ((_e132391132407_ + _g132382132402_)) + (let ((_e132388132404_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _g132385132405_)))) - (let ((_hd132390132410_ - (let () (declare (not safe)) (##car _e132391132407_))) - (_tl132389132412_ + (gx#stx-e _g132382132402_)))) + (let ((_hd132387132407_ + (let () (declare (not safe)) (##car _e132388132404_))) + (_tl132386132409_ (let () (declare (not safe)) - (##cdr _e132391132407_)))) + (##cdr _e132388132404_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132389132412_)) - (let ((_e132394132415_ + (gx#stx-pair? _tl132386132409_)) + (let ((_e132391132412_ (let () (declare (not safe)) - (gx#stx-e _tl132389132412_)))) - (let ((_hd132393132418_ + (gx#stx-e _tl132386132409_)))) + (let ((_hd132390132415_ (let () (declare (not safe)) - (##car _e132394132415_))) - (_tl132392132420_ + (##car _e132391132412_))) + (_tl132389132417_ (let () (declare (not safe)) - (##cdr _e132394132415_)))) + (##cdr _e132391132412_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132393132418_)) - (let ((_e132397132423_ + (gx#stx-pair? _hd132390132415_)) + (let ((_e132394132420_ (let () (declare (not safe)) - (gx#stx-e _hd132393132418_)))) - (let ((_hd132396132426_ + (gx#stx-e _hd132390132415_)))) + (let ((_hd132393132423_ (let () (declare (not safe)) - (##car _e132397132423_))) - (_tl132395132428_ + (##car _e132394132420_))) + (_tl132392132425_ (let () (declare (not safe)) - (##cdr _e132397132423_)))) - ((lambda (_L132431_ _L132432_ _L132433_) + (##cdr _e132394132420_)))) + ((lambda (_L132428_ _L132429_ _L132430_) (for-each - (lambda (_g132448132450_) + (lambda (_g132445132447_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g132448132450_ - _L132433_ - _method-calls131424_ - _slot-refs131425_))) - _L132431_)) - _tl132392132420_ - _tl132395132428_ - _hd132396132426_))) + _g132445132447_ + _L132430_ + _method-calls131421_ + _slot-refs131422_))) + _L132428_)) + _tl132389132417_ + _tl132392132425_ + _hd132393132423_))) (let () (declare (not safe)) - (_g132384132402_ _g132385132405_))))) + (_g132381132399_ _g132382132402_))))) (let () (declare (not safe)) - (_g132384132402_ _g132385132405_))))) + (_g132381132399_ _g132382132402_))))) (let () (declare (not safe)) - (_g132384132402_ _g132385132405_)))))) + (_g132381132399_ _g132382132402_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g132383132453_ _L132360_)) - (let* ((_g132456132475_ - (lambda (_g132457132472_) + (_g132380132450_ _L132357_)) + (let* ((_g132453132472_ + (lambda (_g132454132469_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132457132472_)))) - (_g132455132594_ - (lambda (_g132457132478_) + _g132454132469_)))) + (_g132452132591_ + (lambda (_g132454132475_) (if (let () (declare (not safe)) (gx#stx-pair? - _g132457132478_)) - (let ((_e132461132480_ + _g132454132475_)) + (let ((_e132458132477_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _g132457132478_)))) - (let ((_hd132460132483_ - (let () (declare (not safe)) (##car _e132461132480_))) - (_tl132459132485_ + (gx#stx-e _g132454132475_)))) + (let ((_hd132457132480_ + (let () (declare (not safe)) (##car _e132458132477_))) + (_tl132456132482_ (let () (declare (not safe)) - (##cdr _e132461132480_)))) + (##cdr _e132458132477_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl132459132485_)) - (let ((_g135506_ + (gx#stx-pair/null? _tl132456132482_)) + (let ((_g135503_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl132459132485_ + _tl132456132482_ '0)))) (begin - (let ((_g135507_ + (let ((_g135504_ (let () (declare (not safe)) - (if (##values? _g135506_) - (##vector-length _g135506_) + (if (##values? _g135503_) + (##vector-length _g135503_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135507_ 2))) + (##fx= _g135504_ 2))) (error "Context expects 2 values" - _g135507_))) - (let ((_target132462132488_ + _g135504_))) + (let ((_target132459132485_ (let () (declare (not safe)) - (##vector-ref _g135506_ 0))) - (_tl132464132490_ + (##vector-ref _g135503_ 0))) + (_tl132461132487_ (let () (declare (not safe)) - (##vector-ref _g135506_ 1)))) + (##vector-ref _g135503_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132464132490_)) - (letrec ((_loop132465132493_ - (lambda (_hd132463132496_ - _clause132469132498_) + (gx#stx-null? _tl132461132487_)) + (letrec ((_loop132462132490_ + (lambda (_hd132460132493_ + _clause132466132495_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd132463132496_)) - (let ((_e132466132501_ + _hd132460132493_)) + (let ((_e132463132498_ (let () (declare (not safe)) (gx#stx-e - _hd132463132496_)))) - (let ((_lp-hd132467132504_ + _hd132460132493_)))) + (let ((_lp-hd132464132501_ (let () (declare (not safe)) - (##car _e132466132501_))) - (_lp-tl132468132506_ + (##car _e132463132498_))) + (_lp-tl132465132503_ (let () (declare (not safe)) - (##cdr _e132466132501_)))) - (let ((__tmp135509 + (##cdr _e132463132498_)))) + (let ((__tmp135506 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd132467132504_ _clause132469132498_)))) + (cons _lp-hd132464132501_ _clause132466132495_)))) (declare (not safe)) - (_loop132465132493_ _lp-tl132468132506_ __tmp135509)))) + (_loop132462132490_ _lp-tl132465132503_ __tmp135506)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_clause132470132509_ - (reverse _clause132469132498_))) - ((lambda (_L132512_) + (let ((_clause132467132506_ + (reverse _clause132466132495_))) + ((lambda (_L132509_) (for-each - (lambda (_clause132525_) - (let* ((_g132527132542_ + (lambda (_clause132522_) + (let* ((_g132524132539_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g132528132539_) + (lambda (_g132525132536_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132528132539_)))) - (_g132526132584_ - (lambda (_g132528132545_) + _g132525132536_)))) + (_g132523132581_ + (lambda (_g132525132542_) (if (let () (declare (not safe)) - (gx#stx-pair? _g132528132545_)) - (let ((_e132534132547_ + (gx#stx-pair? _g132525132542_)) + (let ((_e132531132544_ (let () (declare (not safe)) - (gx#stx-e _g132528132545_)))) - (let ((_hd132533132550_ + (gx#stx-e _g132525132542_)))) + (let ((_hd132530132547_ (let () (declare (not safe)) - (##car _e132534132547_))) - (_tl132532132552_ + (##car _e132531132544_))) + (_tl132529132549_ (let () (declare (not safe)) - (##cdr _e132534132547_)))) + (##cdr _e132531132544_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132533132550_)) - (let ((_e132537132555_ + (gx#stx-pair? _hd132530132547_)) + (let ((_e132534132552_ (let () (declare (not safe)) - (gx#stx-e _hd132533132550_)))) - (let ((_hd132536132558_ + (gx#stx-e _hd132530132547_)))) + (let ((_hd132533132555_ (let () (declare (not safe)) - (##car _e132537132555_))) - (_tl132535132560_ + (##car _e132534132552_))) + (_tl132532132557_ (let () (declare (not safe)) - (##cdr _e132537132555_)))) - ((lambda (_L132563_ - _L132564_ - _L132565_) + (##cdr _e132534132552_)))) + ((lambda (_L132560_ + _L132561_ + _L132562_) (for-each - (lambda (_g132579132581_) + (lambda (_g132576132578_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g132579132581_ - _L132565_ - _method-calls131424_ - _slot-refs131425_))) - _L132563_)) - _tl132532132552_ - _tl132535132560_ - _hd132536132558_))) + _g132576132578_ + _L132562_ + _method-calls131421_ + _slot-refs131422_))) + _L132560_)) + _tl132529132549_ + _tl132532132557_ + _hd132533132555_))) (let () (declare (not safe)) - (_g132527132542_ _g132528132545_))))) + (_g132524132539_ _g132525132542_))))) (let () (declare (not safe)) - (_g132527132542_ _g132528132545_)))))) + (_g132524132539_ _g132525132542_)))))) (declare (not safe)) - (_g132526132584_ _clause132525_))) - (let ((__tmp135508 - (lambda (_g132586132589_ _g132587132591_) + (_g132523132581_ _clause132522_))) + (let ((__tmp135505 + (lambda (_g132583132586_ _g132584132588_) (let () (declare (not safe)) - (cons _g132586132589_ _g132587132591_))))) + (cons _g132583132586_ _g132584132588_))))) (declare (not safe)) - (foldr1 __tmp135508 '() _L132512_)))) + (foldr1 __tmp135505 '() _L132509_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _clause132470132509_)))))) + _clause132467132506_)))))) (let () (declare (not safe)) - (_loop132465132493_ - _target132462132488_ + (_loop132462132490_ + _target132459132485_ '()))) (let () (declare (not safe)) - (_g132456132475_ _g132457132478_)))))) + (_g132453132472_ _g132454132475_)))))) (let () (declare (not safe)) - (_g132456132475_ _g132457132478_))))) + (_g132453132472_ _g132454132475_))))) (let () (declare (not safe)) - (_g132456132475_ _g132457132478_)))))) + (_g132453132472_ _g132454132475_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g132455132594_ _L132359_)) + (_g132452132591_ _L132356_)) (if (let () (declare (not safe)) - (_no-specializer?131428_)) - _stx131332_ - (let* ((_specializer-id132603_ - (let* ((_id132597_ - (let ((__tmp135510 + (_no-specializer?131425_)) + _stx131329_ + (let* ((_specializer-id132600_ + (let* ((_id132594_ + (let ((__tmp135507 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _L131405_)))) + (gx#stx-e _L131402_)))) (declare (not safe)) - (make-symbol__1 __tmp135510 '"::specialize"))) - (_specializer-id132600_ - (let ((__tmp135511 + (make-symbol__1 __tmp135507 '"::specialize"))) + (_specializer-id132597_ + (let ((__tmp135508 (let () (declare (not safe)) - (gx#stx-source _stx131332_)))) + (gx#stx-source _stx131329_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id132597_ __tmp135511)))) + (gx#core-quote-syntax__1 _id132594_ __tmp135508)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id132600_)) - _specializer-id132600_)) + (gx#core-bind-runtime!__0 _specializer-id132597_)) + _specializer-id132597_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$klass132605_ - (let ((__tmp135512 + (_$klass132602_ + (let ((__tmp135509 (gensym '__klass))) (declare (not safe)) (make-symbol__0 - __tmp135512))) - (_$method-table132607_ - (let ((__tmp135513 + __tmp135509))) + (_$method-table132604_ + (let ((__tmp135510 (gensym '__method-table))) (declare (not safe)) (make-symbol__0 - __tmp135513))) - (_methods132609_ + __tmp135510))) + (_methods132606_ (let () (declare (not safe)) (hash-keys - _method-calls131424_))) - (_$methods132613_ - (map (lambda (_id132611_) - (let ((__tmp135514 + _method-calls131421_))) + (_$methods132610_ + (map (lambda (_id132608_) + (let ((__tmp135511 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id132611_))) + (gensym _id132608_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135514))) - _methods132609_)) + (make-symbol__1 '"__" __tmp135511))) + _methods132606_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g135515_ + (_g135512_ (for-each - (lambda (_g132614132617_ - _g132615132619_) + (lambda (_g132611132614_ + _g132612132616_) (let () (declare (not safe)) (hash-put! - _method-calls131424_ - _g132614132617_ - _g132615132619_))) - _methods132609_ - _$methods132613_)) - (_methods-bind132630_ - (map (lambda (_g132622132625_ + _method-calls131421_ + _g132611132614_ + _g132612132616_))) + _methods132606_ + _$methods132610_)) + (_methods-bind132627_ + (map (lambda (_g132619132622_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g132623132627_) + _g132620132624_) (let () (declare (not safe)) - (_generate-method-bind131334_ - _$klass132605_ - _$method-table132607_ - _g132622132625_ - _g132623132627_))) - _methods132609_ - _$methods132613_)) + (_generate-method-bind131331_ + _$klass132602_ + _$method-table132604_ + _g132619132622_ + _g132620132624_))) + _methods132606_ + _$methods132610_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots132632_ + (_slots132629_ (let () (declare (not safe)) (hash-keys - _slot-refs131425_))) - (_$slots132636_ - (map (lambda (_id132634_) - (let ((__tmp135516 + _slot-refs131422_))) + (_$slots132633_ + (map (lambda (_id132631_) + (let ((__tmp135513 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id132634_))) + (gensym _id132631_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135516))) - _slots132632_)) + (make-symbol__1 '"__" __tmp135513))) + _slots132629_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g135517_ + (_g135514_ (for-each - (lambda (_g132637132640_ - _g132638132642_) + (lambda (_g132634132637_ + _g132635132639_) (let () (declare (not safe)) (hash-put! - _slot-refs131425_ - _g132637132640_ - _g132638132642_))) - _slots132632_ - _$slots132636_)) - (_slots-bind132653_ - (map (lambda (_g132645132648_ + _slot-refs131422_ + _g132634132637_ + _g132635132639_))) + _slots132629_ + _$slots132633_)) + (_slots-bind132650_ + (map (lambda (_g132642132645_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g132646132650_) + _g132643132647_) (let () (declare (not safe)) - (_generate-slot-bind131335_ - _$klass132605_ - _g132645132648_ - _g132646132650_))) - _slots132632_ - _$slots132636_)) + (_generate-slot-bind131332_ + _$klass132602_ + _g132642132645_ + _g132643132647_))) + _slots132629_ + _$slots132633_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-lambda-expr132739_ - (let* ((_g132655132673_ - (lambda (_g132656132670_) + (_specializer-lambda-expr132736_ + (let* ((_g132652132670_ + (lambda (_g132653132667_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132656132670_)))) - (_g132654132736_ - (lambda (_g132656132676_) + _g132653132667_)))) + (_g132651132733_ + (lambda (_g132653132673_) (if (let () (declare (not safe)) - (gx#stx-pair? _g132656132676_)) - (let ((_e132662132678_ + (gx#stx-pair? _g132653132673_)) + (let ((_e132659132675_ (let () (declare (not safe)) - (gx#stx-e _g132656132676_)))) - (let ((_hd132661132681_ + (gx#stx-e _g132653132673_)))) + (let ((_hd132658132678_ (let () (declare (not safe)) - (##car _e132662132678_))) - (_tl132660132683_ + (##car _e132659132675_))) + (_tl132657132680_ (let () (declare (not safe)) - (##cdr _e132662132678_)))) + (##cdr _e132659132675_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132660132683_)) - (let ((_e132665132686_ + (gx#stx-pair? _tl132657132680_)) + (let ((_e132662132683_ (let () (declare (not safe)) - (gx#stx-e _tl132660132683_)))) - (let ((_hd132664132689_ + (gx#stx-e _tl132657132680_)))) + (let ((_hd132661132686_ (let () (declare (not safe)) - (##car _e132665132686_))) - (_tl132663132691_ + (##car _e132662132683_))) + (_tl132660132688_ (let () (declare (not safe)) - (##cdr _e132665132686_)))) + (##cdr _e132662132683_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132664132689_)) - (let ((_e132668132694_ + (gx#stx-pair? _hd132661132686_)) + (let ((_e132665132691_ (let () (declare (not safe)) (gx#stx-e - _hd132664132689_)))) - (let ((_hd132667132697_ + _hd132661132686_)))) + (let ((_hd132664132694_ (let () (declare (not safe)) - (##car _e132668132694_))) - (_tl132666132699_ + (##car _e132665132691_))) + (_tl132663132696_ (let () (declare (not safe)) - (##cdr _e132668132694_)))) - ((lambda (_L132702_ - _L132703_ - _L132704_) - (let* ((_body132734_ - (map (lambda (_g132729132731_) + (##cdr _e132665132691_)))) + ((lambda (_L132699_ + _L132700_ + _L132701_) + (let* ((_body132731_ + (map (lambda (_g132726132728_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g132729132731_ - _L132704_ - _$klass132605_ - _method-calls131424_ - _slot-refs131425_))) - _L132702_)) - (__tmp135518 - (let ((__tmp135519 - (let ((__tmp135520 + _g132726132728_ + _L132701_ + _$klass132602_ + _method-calls131421_ + _slot-refs131422_))) + _L132699_)) + (__tmp135515 + (let ((__tmp135516 + (let ((__tmp135517 (let () (declare (not safe)) - (cons _L132704_ _L132703_)))) + (cons _L132701_ _L132700_)))) (declare (not safe)) - (cons __tmp135520 _body132734_)))) + (cons __tmp135517 _body132731_)))) (declare (not safe)) - (cons '%#lambda __tmp135519)))) + (cons '%#lambda __tmp135516)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp135518 - _L132360_))) - _tl132663132691_ - _tl132666132699_ - _hd132667132697_))) + __tmp135515 + _L132357_))) + _tl132660132688_ + _tl132663132696_ + _hd132664132694_))) (let () (declare (not safe)) - (_g132655132673_ - _g132656132676_))))) + (_g132652132670_ + _g132653132673_))))) (let () (declare (not safe)) - (_g132655132673_ _g132656132676_))))) + (_g132652132670_ _g132653132673_))))) (let () (declare (not safe)) - (_g132655132673_ _g132656132676_)))))) + (_g132652132670_ _g132653132673_)))))) (declare (not safe)) - (_g132654132736_ _L132360_))) + (_g132651132733_ _L132357_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-case-lambda-expr132896_ - (let* ((_g132741132760_ - (lambda (_g132742132757_) + (_specializer-case-lambda-expr132893_ + (let* ((_g132738132757_ + (lambda (_g132739132754_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132742132757_)))) - (_g132740132893_ - (lambda (_g132742132763_) + _g132739132754_)))) + (_g132737132890_ + (lambda (_g132739132760_) (if (let () (declare (not safe)) - (gx#stx-pair? _g132742132763_)) - (let ((_e132746132765_ + (gx#stx-pair? _g132739132760_)) + (let ((_e132743132762_ (let () (declare (not safe)) - (gx#stx-e _g132742132763_)))) - (let ((_hd132745132768_ + (gx#stx-e _g132739132760_)))) + (let ((_hd132742132765_ (let () (declare (not safe)) - (##car _e132746132765_))) - (_tl132744132770_ + (##car _e132743132762_))) + (_tl132741132767_ (let () (declare (not safe)) - (##cdr _e132746132765_)))) + (##cdr _e132743132762_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl132744132770_)) - (let ((_g135521_ + (gx#stx-pair/null? _tl132741132767_)) + (let ((_g135518_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl132744132770_ + _tl132741132767_ '0)))) (begin - (let ((_g135522_ + (let ((_g135519_ (let () (declare (not safe)) - (if (##values? _g135521_) + (if (##values? _g135518_) (##vector-length - _g135521_) + _g135518_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135522_ 2))) + (##fx= _g135519_ 2))) (error "Context expects 2 values" - _g135522_))) - (let ((_target132747132773_ + _g135519_))) + (let ((_target132744132770_ (let () (declare (not safe)) - (##vector-ref _g135521_ 0))) - (_tl132749132775_ + (##vector-ref _g135518_ 0))) + (_tl132746132772_ (let () (declare (not safe)) - (##vector-ref _g135521_ 1)))) + (##vector-ref _g135518_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132749132775_)) - (letrec ((_loop132750132778_ - (lambda (_hd132748132781_ + _tl132746132772_)) + (letrec ((_loop132747132775_ + (lambda (_hd132745132778_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause132754132783_) + _clause132751132780_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132748132781_)) - (let ((_e132751132786_ + (gx#stx-pair? _hd132745132778_)) + (let ((_e132748132783_ (let () (declare (not safe)) - (gx#stx-e _hd132748132781_)))) - (let ((_lp-hd132752132789_ + (gx#stx-e _hd132745132778_)))) + (let ((_lp-hd132749132786_ (let () (declare (not safe)) - (##car _e132751132786_))) - (_lp-tl132753132791_ + (##car _e132748132783_))) + (_lp-tl132750132788_ (let () (declare (not safe)) - (##cdr _e132751132786_)))) - (let ((__tmp135526 + (##cdr _e132748132783_)))) + (let ((__tmp135523 (let () (declare (not safe)) - (cons _lp-hd132752132789_ - _clause132754132783_)))) + (cons _lp-hd132749132786_ + _clause132751132780_)))) (declare (not safe)) - (_loop132750132778_ - _lp-tl132753132791_ - __tmp135526)))) - (let ((_clause132755132794_ - (reverse _clause132754132783_))) - ((lambda (_L132797_) - (let* ((_clauses132891_ - (map (lambda (_clause132811_) - (let* ((___stx134246134247_ - _clause132811_) - (_g132814132829_ + (_loop132747132775_ + _lp-tl132750132788_ + __tmp135523)))) + (let ((_clause132752132791_ + (reverse _clause132751132780_))) + ((lambda (_L132794_) + (let* ((_clauses132888_ + (map (lambda (_clause132808_) + (let* ((___stx134243134244_ + _clause132808_) + (_g132811132826_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134246134247_))))) - (let ((___kont134248134249_ - (lambda (_L132857_ - _L132858_ - _L132859_) - (let* ((_body132879_ - (map (lambda (_g132874132876_) + ___stx134243134244_))))) + (let ((___kont134245134246_ + (lambda (_L132854_ + _L132855_ + _L132856_) + (let* ((_body132876_ + (map (lambda (_g132871132873_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g132874132876_ - _L132859_ - _$klass132605_ - _method-calls131424_ - _slot-refs131425_))) - _L132857_)) - (__tmp135523 - (let () (declare (not safe)) (cons _L132859_ _L132858_)))) + _g132871132873_ + _L132856_ + _$klass132602_ + _method-calls131421_ + _slot-refs131422_))) + _L132854_)) + (__tmp135520 + (let () (declare (not safe)) (cons _L132856_ _L132855_)))) (declare (not safe)) - (cons __tmp135523 _body132879_)))) + (cons __tmp135520 _body132876_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134250134251_ - (lambda () _clause132811_))) + (___kont134247134248_ + (lambda () _clause132808_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx134246134247_)) - (let ((_e132821132841_ + ___stx134243134244_)) + (let ((_e132818132838_ (let () (declare (not safe)) (gx#stx-e - ___stx134246134247_)))) - (let ((_tl132819132846_ + ___stx134243134244_)))) + (let ((_tl132816132843_ (let () (declare (not safe)) - (##cdr _e132821132841_))) - (_hd132820132844_ + (##cdr _e132818132838_))) + (_hd132817132841_ (let () (declare (not safe)) - (##car _e132821132841_)))) + (##car _e132818132838_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd132820132844_)) - (let ((_e132824132849_ + _hd132817132841_)) + (let ((_e132821132846_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd132820132844_)))) - (let ((_tl132822132854_ + (gx#stx-e _hd132817132841_)))) + (let ((_tl132819132851_ (let () (declare (not safe)) - (##cdr _e132824132849_))) - (_hd132823132852_ + (##cdr _e132821132846_))) + (_hd132820132849_ (let () (declare (not safe)) - (##car _e132824132849_)))) - (___kont134248134249_ - _tl132819132846_ - _tl132822132854_ - _hd132823132852_))) - (___kont134250134251_)))) + (##car _e132821132846_)))) + (___kont134245134246_ + _tl132816132843_ + _tl132819132851_ + _hd132820132849_))) + (___kont134247134248_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134250134251_))))) - (let ((__tmp135524 - (lambda (_g132883132886_ - _g132884132888_) + (___kont134247134248_))))) + (let ((__tmp135521 + (lambda (_g132880132883_ + _g132881132885_) (let () (declare (not safe)) - (cons _g132883132886_ - _g132884132888_))))) + (cons _g132880132883_ + _g132881132885_))))) (declare (not safe)) - (foldr1 __tmp135524 '() _L132797_)))) - (__tmp135525 + (foldr1 __tmp135521 '() _L132794_)))) + (__tmp135522 (let () (declare (not safe)) - (cons '%#case-lambda _clauses132891_)))) + (cons '%#case-lambda _clauses132888_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135525 _L132359_))) - _clause132755132794_)))))) + (gxc#xform-wrap-source __tmp135522 _L132356_))) + _clause132752132791_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop132750132778_ - _target132747132773_ + (_loop132747132775_ + _target132744132770_ '()))) (let () (declare (not safe)) - (_g132741132760_ - _g132742132763_)))))) + (_g132738132757_ + _g132739132760_)))))) (let () (declare (not safe)) - (_g132741132760_ _g132742132763_))))) + (_g132738132757_ _g132739132760_))))) (let () (declare (not safe)) - (_g132741132760_ _g132742132763_)))))) + (_g132738132757_ _g132739132760_)))))) (declare (not safe)) - (_g132740132893_ _L132359_))) + (_g132737132890_ _L132356_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl132898_ - (let ((__tmp135527 - (let ((__tmp135528 + (_specializer-impl132895_ + (let ((__tmp135524 + (let ((__tmp135525 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135530 - (let ((__tmp135531 - (let ((__tmp135533 + (let ((__tmp135527 + (let ((__tmp135528 + (let ((__tmp135530 (let () (declare (not safe)) - (cons _L132361_ '()))) - (__tmp135532 + (cons _L132358_ '()))) + (__tmp135529 (let () (declare (not safe)) - (cons _specializer-lambda-expr132739_ + (cons _specializer-lambda-expr132736_ '())))) (declare (not safe)) - (cons __tmp135533 __tmp135532)))) + (cons __tmp135530 __tmp135529)))) (declare (not safe)) - (cons __tmp135531 '()))) - (__tmp135529 + (cons __tmp135528 '()))) + (__tmp135526 (let () (declare (not safe)) - (cons _specializer-case-lambda-expr132896_ + (cons _specializer-case-lambda-expr132893_ '())))) (declare (not safe)) - (cons __tmp135530 __tmp135529)))) + (cons __tmp135527 __tmp135526)))) (declare (not safe)) - (cons '%#let-values __tmp135528)))) + (cons '%#let-values __tmp135525)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135527 _stx131332_))) + (gxc#xform-wrap-source __tmp135524 _stx131329_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl132900_ + (_specializer-impl132897_ (let () (declare (not safe)) - (_generate-specializer-impl131336_ - _$klass132605_ - _$method-table132607_ - _methods-bind132630_ - _slots-bind132653_ - _specializer-impl132898_)))) - (let ((__tmp135535 + (_generate-specializer-impl131333_ + _$klass132602_ + _$method-table132604_ + _methods-bind132627_ + _slots-bind132650_ + _specializer-impl132895_)))) + (let ((__tmp135532 (let () (declare (not safe)) - (gx#stx-e _L131405_))) - (__tmp135534 + (gx#stx-e _L131402_))) + (__tmp135531 (let () (declare (not safe)) (gx#stx-e - _specializer-id132603_)))) + _specializer-id132600_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp135535 + __tmp135532 '" => " - __tmp135534)) + __tmp135531)) (let () (declare (not safe)) - (_generate-specializer-def131337_ - _L131405_ - _specializer-id132603_ - _specializer-impl132900_))))) - _hd132292132354_ - _hd132289132346_ - _hd132286132338_) + (_generate-specializer-def131334_ + _L131402_ + _specializer-id132600_ + _specializer-impl132897_))))) + _hd132289132351_ + _hd132286132343_ + _hd132283132335_) (let () (declare (not safe)) - (_g132268132298_ _g132269132301_))))) + (_g132265132295_ _g132266132298_))))) (let () (declare (not safe)) - (_g132268132298_ _g132269132301_))) + (_g132265132295_ _g132266132298_))) (let () (declare (not safe)) - (_g132268132298_ _g132269132301_))) + (_g132265132295_ _g132266132298_))) (let () (declare (not safe)) - (_g132268132298_ _g132269132301_))))) - (let () (declare (not safe)) (_g132268132298_ _g132269132301_))) + (_g132265132295_ _g132266132298_))))) + (let () (declare (not safe)) (_g132265132295_ _g132266132298_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g132268132298_ - _g132269132301_))))) + (_g132265132295_ + _g132266132298_))))) (let () (declare (not safe)) - (_g132268132298_ - _g132269132301_))))) + (_g132265132295_ + _g132266132298_))))) (let () (declare (not safe)) - (_g132268132298_ _g132269132301_))))) + (_g132265132295_ _g132266132298_))))) (let () (declare (not safe)) - (_g132268132298_ _g132269132301_))))) + (_g132265132295_ _g132266132298_))))) (let () (declare (not safe)) - (_g132268132298_ _g132269132301_))))) + (_g132265132295_ _g132266132298_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g132268132298_ - _g132269132301_)))))) + (_g132265132295_ + _g132266132298_)))))) (declare (not safe)) - (_g132267132903_ _L131404_)) + (_g132264132900_ _L131401_)) (if (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L131404_)) - (let* ((_g132906132959_ - (lambda (_g132907132956_) + (gxc#kw-lambda-expr? _L131401_)) + (let* ((_g132903132956_ + (lambda (_g132904132953_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132907132956_)))) - (_g132905134090_ - (lambda (_g132907132962_) + _g132904132953_)))) + (_g132902134087_ + (lambda (_g132904132959_) (if (let () (declare (not safe)) (gx#stx-pair? - _g132907132962_)) - (let ((_e132915132964_ + _g132904132959_)) + (let ((_e132912132961_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _g132907132962_)))) - (let ((_hd132914132967_ - (let () (declare (not safe)) (##car _e132915132964_))) - (_tl132913132969_ - (let () (declare (not safe)) (##cdr _e132915132964_)))) + (gx#stx-e _g132904132959_)))) + (let ((_hd132911132964_ + (let () (declare (not safe)) (##car _e132912132961_))) + (_tl132910132966_ + (let () (declare (not safe)) (##cdr _e132912132961_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd132914132967_)) + (gx#identifier? _hd132911132964_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd132914132967_)) + (gx#stx-eq? '%#let-values _hd132911132964_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132913132969_)) - (let ((_e132918132972_ + (gx#stx-pair? _tl132910132966_)) + (let ((_e132915132969_ (let () (declare (not safe)) - (gx#stx-e _tl132913132969_)))) - (let ((_hd132917132975_ + (gx#stx-e _tl132910132966_)))) + (let ((_hd132914132972_ (let () (declare (not safe)) - (##car _e132918132972_))) - (_tl132916132977_ + (##car _e132915132969_))) + (_tl132913132974_ (let () (declare (not safe)) - (##cdr _e132918132972_)))) + (##cdr _e132915132969_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132917132975_)) - (let ((_e132921132980_ + (gx#stx-pair? _hd132914132972_)) + (let ((_e132918132977_ (let () (declare (not safe)) - (gx#stx-e _hd132917132975_)))) - (let ((_hd132920132983_ + (gx#stx-e _hd132914132972_)))) + (let ((_hd132917132980_ (let () (declare (not safe)) - (##car _e132921132980_))) - (_tl132919132985_ + (##car _e132918132977_))) + (_tl132916132982_ (let () (declare (not safe)) - (##cdr _e132921132980_)))) + (##cdr _e132918132977_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd132920132983_)) - (let ((_e132924132988_ + _hd132917132980_)) + (let ((_e132921132985_ (let () (declare (not safe)) (gx#stx-e - _hd132920132983_)))) - (let ((_hd132923132991_ + _hd132917132980_)))) + (let ((_hd132920132988_ (let () (declare (not safe)) - (##car _e132924132988_))) - (_tl132922132993_ + (##car _e132921132985_))) + (_tl132919132990_ (let () (declare (not safe)) - (##cdr _e132924132988_)))) + (##cdr _e132921132985_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd132923132991_)) - (let ((_e132927132996_ + _hd132920132988_)) + (let ((_e132924132993_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd132923132991_)))) - (let ((_hd132926132999_ - (let () (declare (not safe)) (##car _e132927132996_))) - (_tl132925133001_ - (let () (declare (not safe)) (##cdr _e132927132996_)))) + (gx#stx-e _hd132920132988_)))) + (let ((_hd132923132996_ + (let () (declare (not safe)) (##car _e132924132993_))) + (_tl132922132998_ + (let () (declare (not safe)) (##cdr _e132924132993_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132925133001_)) + (gx#stx-null? _tl132922132998_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132922132993_)) - (let ((_e132930133004_ + (gx#stx-pair? _tl132919132990_)) + (let ((_e132927133001_ (let () (declare (not safe)) - (gx#stx-e _tl132922132993_)))) - (let ((_hd132929133007_ + (gx#stx-e _tl132919132990_)))) + (let ((_hd132926133004_ (let () (declare (not safe)) - (##car _e132930133004_))) - (_tl132928133009_ + (##car _e132927133001_))) + (_tl132925133006_ (let () (declare (not safe)) - (##cdr _e132930133004_)))) + (##cdr _e132927133001_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132929133007_)) - (let ((_e132933133012_ + (gx#stx-pair? _hd132926133004_)) + (let ((_e132930133009_ (let () (declare (not safe)) - (gx#stx-e _hd132929133007_)))) - (let ((_hd132932133015_ + (gx#stx-e _hd132926133004_)))) + (let ((_hd132929133012_ (let () (declare (not safe)) - (##car _e132933133012_))) - (_tl132931133017_ + (##car _e132930133009_))) + (_tl132928133014_ (let () (declare (not safe)) - (##cdr _e132933133012_)))) + (##cdr _e132930133009_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd132932133015_)) + (gx#identifier? _hd132929133012_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd132932133015_)) + _hd132929133012_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl132931133017_)) - (let ((_e132936133020_ + _tl132928133014_)) + (let ((_e132933133017_ (let () (declare (not safe)) (gx#stx-e - _tl132931133017_)))) - (let ((_hd132935133023_ + _tl132928133014_)))) + (let ((_hd132932133020_ (let () (declare (not safe)) - (##car _e132936133020_))) - (_tl132934133025_ + (##car _e132933133017_))) + (_tl132931133022_ (let () (declare (not safe)) - (##cdr _e132936133020_)))) + (##cdr _e132933133017_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd132935133023_)) - (let ((_e132939133028_ + _hd132932133020_)) + (let ((_e132936133025_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd132935133023_)))) - (let ((_hd132938133031_ + (gx#stx-e _hd132932133020_)))) + (let ((_hd132935133028_ (let () (declare (not safe)) - (##car _e132939133028_))) - (_tl132937133033_ + (##car _e132936133025_))) + (_tl132934133030_ (let () (declare (not safe)) - (##cdr _e132939133028_)))) + (##cdr _e132936133025_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132938133031_)) - (let ((_e132942133036_ + (gx#stx-pair? _hd132935133028_)) + (let ((_e132939133033_ (let () (declare (not safe)) - (gx#stx-e _hd132938133031_)))) - (let ((_hd132941133039_ + (gx#stx-e _hd132935133028_)))) + (let ((_hd132938133036_ (let () (declare (not safe)) - (##car _e132942133036_))) - (_tl132940133041_ + (##car _e132939133033_))) + (_tl132937133038_ (let () (declare (not safe)) - (##cdr _e132942133036_)))) + (##cdr _e132939133033_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132941133039_)) - (let ((_e132945133044_ + (gx#stx-pair? _hd132938133036_)) + (let ((_e132942133041_ (let () (declare (not safe)) - (gx#stx-e _hd132941133039_)))) - (let ((_hd132944133047_ + (gx#stx-e _hd132938133036_)))) + (let ((_hd132941133044_ (let () (declare (not safe)) - (##car _e132945133044_))) - (_tl132943133049_ + (##car _e132942133041_))) + (_tl132940133046_ (let () (declare (not safe)) - (##cdr _e132945133044_)))) + (##cdr _e132942133041_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132943133049_)) + (gx#stx-null? _tl132940133046_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl132940133041_)) - (let ((_e132948133052_ + _tl132937133038_)) + (let ((_e132945133049_ (let () (declare (not safe)) (gx#stx-e - _tl132940133041_)))) - (let ((_hd132947133055_ + _tl132937133038_)))) + (let ((_hd132944133052_ (let () (declare (not safe)) - (##car _e132948133052_))) - (_tl132946133057_ + (##car _e132945133049_))) + (_tl132943133054_ (let () (declare (not safe)) - (##cdr _e132948133052_)))) + (##cdr _e132945133049_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132946133057_)) + _tl132943133054_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl132937133033_)) + _tl132934133030_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl132934133025_)) - (let ((_e132951133060_ + (gx#stx-pair? _tl132931133022_)) + (let ((_e132948133057_ (let () (declare (not safe)) - (gx#stx-e _tl132934133025_)))) - (let ((_hd132950133063_ + (gx#stx-e _tl132931133022_)))) + (let ((_hd132947133060_ (let () (declare (not safe)) - (##car _e132951133060_))) - (_tl132949133065_ + (##car _e132948133057_))) + (_tl132946133062_ (let () (declare (not safe)) - (##cdr _e132951133060_)))) + (##cdr _e132948133057_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132949133065_)) + (gx#stx-null? _tl132946133062_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl132928133009_)) + (gx#stx-null? _tl132925133006_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl132919132985_)) + (gx#stx-null? _tl132916132982_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132916132977_)) - (let ((_e132954133068_ + (gx#stx-pair? _tl132913132974_)) + (let ((_e132951133065_ (let () (declare (not safe)) (gx#stx-e - _tl132916132977_)))) - (let ((_hd132953133071_ + _tl132913132974_)))) + (let ((_hd132950133068_ (let () (declare (not safe)) - (##car _e132954133068_))) - (_tl132952133073_ + (##car _e132951133065_))) + (_tl132949133070_ (let () (declare (not safe)) - (##cdr _e132954133068_)))) + (##cdr _e132951133065_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132952133073_)) - ((lambda (_L133076_ - _L133077_ - _L133078_ - _L133079_ - _L133080_) - (let* ((_g133119133181_ - (lambda (_g133120133178_) + _tl132949133070_)) + ((lambda (_L133073_ + _L133074_ + _L133075_ + _L133076_ + _L133077_) + (let* ((_g133116133178_ + (lambda (_g133117133175_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133120133178_)))) - (_g133118134087_ - (lambda (_g133120133184_) + _g133117133175_)))) + (_g133115134084_ + (lambda (_g133117133181_) (if (let () (declare (not safe)) - (gx#stx-pair? _g133120133184_)) - (let ((_e133128133186_ + (gx#stx-pair? _g133117133181_)) + (let ((_e133125133183_ (let () (declare (not safe)) - (gx#stx-e _g133120133184_)))) - (let ((_hd133127133189_ + (gx#stx-e _g133117133181_)))) + (let ((_hd133124133186_ (let () (declare (not safe)) - (##car _e133128133186_))) - (_tl133126133191_ + (##car _e133125133183_))) + (_tl133123133188_ (let () (declare (not safe)) - (##cdr _e133128133186_)))) + (##cdr _e133125133183_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd133127133189_)) + (gx#identifier? _hd133124133186_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd133127133189_)) + _hd133124133186_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133126133191_)) - (let ((_e133131133194_ + (gx#stx-pair? _tl133123133188_)) + (let ((_e133128133191_ (let () (declare (not safe)) (gx#stx-e - _tl133126133191_)))) - (let ((_hd133130133197_ + _tl133123133188_)))) + (let ((_hd133127133194_ (let () (declare (not safe)) - (##car _e133131133194_))) - (_tl133129133199_ + (##car _e133128133191_))) + (_tl133126133196_ (let () (declare (not safe)) - (##cdr _e133131133194_)))) + (##cdr _e133128133191_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133129133199_)) - (let ((_e133134133202_ + _tl133126133196_)) + (let ((_e133131133199_ (let () (declare (not safe)) (gx#stx-e - _tl133129133199_)))) - (let ((_hd133133133205_ + _tl133126133196_)))) + (let ((_hd133130133202_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e133134133202_))) - (_tl133132133207_ - (let () (declare (not safe)) (##cdr _e133134133202_)))) + (##car _e133131133199_))) + (_tl133129133204_ + (let () (declare (not safe)) (##cdr _e133131133199_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133133133205_)) - (let ((_e133137133210_ + (gx#stx-pair? _hd133130133202_)) + (let ((_e133134133207_ (let () (declare (not safe)) - (gx#stx-e _hd133133133205_)))) - (let ((_hd133136133213_ + (gx#stx-e _hd133130133202_)))) + (let ((_hd133133133210_ (let () (declare (not safe)) - (##car _e133137133210_))) - (_tl133135133215_ + (##car _e133134133207_))) + (_tl133132133212_ (let () (declare (not safe)) - (##cdr _e133137133210_)))) + (##cdr _e133134133207_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd133136133213_)) + (gx#identifier? _hd133133133210_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd133136133213_)) + (gx#stx-eq? '%#call _hd133133133210_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133135133215_)) - (let ((_e133140133218_ + (gx#stx-pair? _tl133132133212_)) + (let ((_e133137133215_ (let () (declare (not safe)) - (gx#stx-e _tl133135133215_)))) - (let ((_hd133139133221_ + (gx#stx-e _tl133132133212_)))) + (let ((_hd133136133218_ (let () (declare (not safe)) - (##car _e133140133218_))) - (_tl133138133223_ + (##car _e133137133215_))) + (_tl133135133220_ (let () (declare (not safe)) - (##cdr _e133140133218_)))) + (##cdr _e133137133215_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133139133221_)) - (let ((_e133143133226_ + (gx#stx-pair? _hd133136133218_)) + (let ((_e133140133223_ (let () (declare (not safe)) (gx#stx-e - _hd133139133221_)))) - (let ((_hd133142133229_ + _hd133136133218_)))) + (let ((_hd133139133226_ (let () (declare (not safe)) - (##car _e133143133226_))) - (_tl133141133231_ + (##car _e133140133223_))) + (_tl133138133228_ (let () (declare (not safe)) - (##cdr _e133143133226_)))) + (##cdr _e133140133223_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd133142133229_)) + _hd133139133226_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd133142133229_)) + _hd133139133226_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133141133231_)) - (let ((_e133146133234_ + _tl133138133228_)) + (let ((_e133143133231_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl133141133231_)))) - (let ((_hd133145133237_ + (gx#stx-e _tl133138133228_)))) + (let ((_hd133142133234_ (let () (declare (not safe)) - (##car _e133146133234_))) - (_tl133144133239_ + (##car _e133143133231_))) + (_tl133141133236_ (let () (declare (not safe)) - (##cdr _e133146133234_)))) + (##cdr _e133143133231_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133144133239_)) + (gx#stx-null? _tl133141133236_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133138133223_)) - (let ((_e133149133242_ + (gx#stx-pair? _tl133135133220_)) + (let ((_e133146133239_ (let () (declare (not safe)) - (gx#stx-e _tl133138133223_)))) - (let ((_hd133148133245_ + (gx#stx-e _tl133135133220_)))) + (let ((_hd133145133242_ (let () (declare (not safe)) - (##car _e133149133242_))) - (_tl133147133247_ + (##car _e133146133239_))) + (_tl133144133244_ (let () (declare (not safe)) - (##cdr _e133149133242_)))) + (##cdr _e133146133239_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133148133245_)) - (let ((_e133152133250_ + (gx#stx-pair? _hd133145133242_)) + (let ((_e133149133247_ (let () (declare (not safe)) - (gx#stx-e _hd133148133245_)))) - (let ((_hd133151133253_ + (gx#stx-e _hd133145133242_)))) + (let ((_hd133148133250_ (let () (declare (not safe)) - (##car _e133152133250_))) - (_tl133150133255_ + (##car _e133149133247_))) + (_tl133147133252_ (let () (declare (not safe)) - (##cdr _e133152133250_)))) + (##cdr _e133149133247_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd133151133253_)) + _hd133148133250_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd133151133253_)) + _hd133148133250_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133150133255_)) - (let ((_e133155133258_ + _tl133147133252_)) + (let ((_e133152133255_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl133150133255_)))) - (let ((_hd133154133261_ - (let () (declare (not safe)) (##car _e133155133258_))) - (_tl133153133263_ + (gx#stx-e _tl133147133252_)))) + (let ((_hd133151133258_ + (let () (declare (not safe)) (##car _e133152133255_))) + (_tl133150133260_ (let () (declare (not safe)) - (##cdr _e133155133258_)))) + (##cdr _e133152133255_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133153133263_)) + (gx#stx-null? _tl133150133260_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133147133247_)) - (let ((_e133158133266_ + (gx#stx-pair? _tl133144133244_)) + (let ((_e133155133263_ (let () (declare (not safe)) - (gx#stx-e _tl133147133247_)))) - (let ((_hd133157133269_ + (gx#stx-e _tl133144133244_)))) + (let ((_hd133154133266_ (let () (declare (not safe)) - (##car _e133158133266_))) - (_tl133156133271_ + (##car _e133155133263_))) + (_tl133153133268_ (let () (declare (not safe)) - (##cdr _e133158133266_)))) + (##cdr _e133155133263_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133157133269_)) - (let ((_e133161133274_ + (gx#stx-pair? _hd133154133266_)) + (let ((_e133158133271_ (let () (declare (not safe)) - (gx#stx-e _hd133157133269_)))) - (let ((_hd133160133277_ + (gx#stx-e _hd133154133266_)))) + (let ((_hd133157133274_ (let () (declare (not safe)) - (##car _e133161133274_))) - (_tl133159133279_ + (##car _e133158133271_))) + (_tl133156133276_ (let () (declare (not safe)) - (##cdr _e133161133274_)))) + (##cdr _e133158133271_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd133160133277_)) + _hd133157133274_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd133160133277_)) + _hd133157133274_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133159133279_)) - (let ((_e133164133282_ + _tl133156133276_)) + (let ((_e133161133279_ (let () (declare (not safe)) (gx#stx-e - _tl133159133279_)))) - (let ((_hd133163133285_ + _tl133156133276_)))) + (let ((_hd133160133282_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e133164133282_))) - (_tl133162133287_ - (let () (declare (not safe)) (##cdr _e133164133282_)))) + (##car _e133161133279_))) + (_tl133159133284_ + (let () (declare (not safe)) (##cdr _e133161133279_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133162133287_)) + (gx#stx-null? _tl133159133284_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl133156133271_)) + (gx#stx-pair/null? _tl133153133268_)) (if (fx>= (let () (declare (not safe)) - (gx#stx-length _tl133156133271_)) + (gx#stx-length _tl133153133268_)) '1) - (let ((_g135432_ + (let ((_g135429_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl133156133271_ + _tl133153133268_ '1)))) (begin - (let ((_g135433_ + (let ((_g135430_ (let () (declare (not safe)) - (if (##values? _g135432_) - (##vector-length _g135432_) + (if (##values? _g135429_) + (##vector-length _g135429_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135433_ 2))) + (##fx= _g135430_ 2))) (error "Context expects 2 values" - _g135433_))) - (let ((_target133165133290_ + _g135430_))) + (let ((_target133162133287_ (let () (declare (not safe)) - (##vector-ref _g135432_ 0))) - (_tl133167133292_ + (##vector-ref _g135429_ 0))) + (_tl133164133289_ (let () (declare (not safe)) - (##vector-ref _g135432_ 1)))) + (##vector-ref _g135429_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133167133292_)) - (let ((_e133176133295_ + (gx#stx-pair? _tl133164133289_)) + (let ((_e133173133292_ (let () (declare (not safe)) - (gx#stx-e _tl133167133292_)))) - (let ((_hd133175133298_ + (gx#stx-e _tl133164133289_)))) + (let ((_hd133172133295_ (let () (declare (not safe)) - (##car _e133176133295_))) - (_tl133174133300_ + (##car _e133173133292_))) + (_tl133171133297_ (let () (declare (not safe)) - (##cdr _e133176133295_)))) + (##cdr _e133173133292_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl133174133300_)) - (letrec ((_loop133168133303_ - (lambda (_hd133166133306_ + _tl133171133297_)) + (letrec ((_loop133165133300_ + (lambda (_hd133163133303_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _kw-ref133172133308_) + _kw-ref133169133305_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133166133306_)) - (let ((_e133169133311_ + (gx#stx-pair? _hd133163133303_)) + (let ((_e133166133308_ (let () (declare (not safe)) - (gx#stx-e _hd133166133306_)))) - (let ((_lp-hd133170133314_ + (gx#stx-e _hd133163133303_)))) + (let ((_lp-hd133167133311_ (let () (declare (not safe)) - (##car _e133169133311_))) - (_lp-tl133171133316_ + (##car _e133166133308_))) + (_lp-tl133168133313_ (let () (declare (not safe)) - (##cdr _e133169133311_)))) - (let ((__tmp135505 + (##cdr _e133166133308_)))) + (let ((__tmp135502 (let () (declare (not safe)) - (cons _lp-hd133170133314_ - _kw-ref133172133308_)))) + (cons _lp-hd133167133311_ + _kw-ref133169133305_)))) (declare (not safe)) - (_loop133168133303_ - _lp-tl133171133316_ - __tmp135505)))) - (let ((_kw-ref133173133319_ - (reverse _kw-ref133172133308_))) + (_loop133165133300_ + _lp-tl133168133313_ + __tmp135502)))) + (let ((_kw-ref133170133316_ + (reverse _kw-ref133169133305_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133132133207_)) - ((lambda (_L133322_ - _L133323_ - _L133324_ - _L133325_ - _L133326_) - (let* ((_kw-count133377_ - (length (let ((__tmp135434 - (lambda (_g133369133372_ - _g133370133374_) + (gx#stx-null? _tl133129133204_)) + ((lambda (_L133319_ + _L133320_ + _L133321_ + _L133322_ + _L133323_) + (let* ((_kw-count133374_ + (length (let ((__tmp135431 + (lambda (_g133366133369_ + _g133367133371_) (let () (declare (not safe)) - (cons _g133369133372_ - _g133370133374_))))) + (cons _g133366133369_ + _g133367133371_))))) (declare (not safe)) - (foldr1 __tmp135434 + (foldr1 __tmp135431 '() - _L133323_)))) - (_self-index133379_ + _L133320_)))) + (_self-index133376_ (let () (declare (not safe)) - (fx+ _kw-count133377_ '1)))) + (fx+ _kw-count133374_ '1)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L133078_)) - (let* ((_g133382133396_ - (lambda (_g133383133393_) + (gxc#lambda-expr? _L133075_)) + (let* ((_g133379133393_ + (lambda (_g133380133390_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133383133393_)))) - (_g133381133509_ - (lambda (_g133383133399_) + _g133380133390_)))) + (_g133378133506_ + (lambda (_g133380133396_) (if (let () (declare (not safe)) (gx#stx-pair? - _g133383133399_)) - (let ((_e133388133401_ + _g133380133396_)) + (let ((_e133385133398_ (let () (declare (not safe)) (gx#stx-e - _g133383133399_)))) - (let ((_hd133387133404_ + _g133380133396_)))) + (let ((_hd133384133401_ (let () (declare (not safe)) - (##car _e133388133401_))) - (_tl133386133406_ + (##car _e133385133398_))) + (_tl133383133403_ (let () (declare (not safe)) - (##cdr _e133388133401_)))) + (##cdr _e133385133398_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133386133406_)) - (let ((_e133391133409_ + _tl133383133403_)) + (let ((_e133388133406_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl133386133406_)))) - (let ((_hd133390133412_ + (gx#stx-e _tl133383133403_)))) + (let ((_hd133387133409_ (let () (declare (not safe)) - (##car _e133391133409_))) - (_tl133389133414_ + (##car _e133388133406_))) + (_tl133386133411_ (let () (declare (not safe)) - (##cdr _e133391133409_)))) - ((lambda (_L133417_ _L133418_) - (let ((_self133434_ - (list-ref _L133418_ _self-index133379_))) + (##cdr _e133388133406_)))) + ((lambda (_L133414_ _L133415_) + (let ((_self133431_ + (list-ref _L133415_ _self-index133376_))) (for-each - (lambda (_g133435133437_) + (lambda (_g133432133434_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g133435133437_ - _self133434_ - _method-calls131424_ - _slot-refs131425_))) - _L133417_) + _g133432133434_ + _self133431_ + _method-calls131421_ + _slot-refs131422_))) + _L133414_) (if (let () (declare (not safe)) - (_no-specializer?131428_)) - _stx131332_ - (let* ((_specializer-id133446_ - (let* ((_id133440_ - (let ((__tmp135478 + (_no-specializer?131425_)) + _stx131329_ + (let* ((_specializer-id133443_ + (let* ((_id133437_ + (let ((__tmp135475 (let () (declare (not safe)) (gx#stx-e - _L131405_)))) + _L131402_)))) (declare (not safe)) (make-symbol__1 - __tmp135478 + __tmp135475 '"::specialize"))) - (_specializer-id133443_ - (let ((__tmp135479 + (_specializer-id133440_ + (let ((__tmp135476 (let () (declare (not safe)) (gx#stx-source - _stx131332_)))) + _stx131329_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id133440_ - __tmp135479)))) + _id133437_ + __tmp135476)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _specializer-id133443_)) - _specializer-id133443_)) - (_$klass133448_ - (let ((__tmp135480 (gensym '__klass))) + _specializer-id133440_)) + _specializer-id133440_)) + (_$klass133445_ + (let ((__tmp135477 (gensym '__klass))) (declare (not safe)) - (make-symbol__0 __tmp135480))) - (_$method-table133450_ - (let ((__tmp135481 + (make-symbol__0 __tmp135477))) + (_$method-table133447_ + (let ((__tmp135478 (gensym '__method-table))) (declare (not safe)) - (make-symbol__0 __tmp135481))) - (_methods133452_ + (make-symbol__0 __tmp135478))) + (_methods133449_ (let () (declare (not safe)) - (hash-keys _method-calls131424_))) - (_$methods133456_ - (map (lambda (_id133454_) - (let ((__tmp135482 - (gensym _id133454_))) + (hash-keys _method-calls131421_))) + (_$methods133453_ + (map (lambda (_id133451_) + (let ((__tmp135479 + (gensym _id133451_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp135482))) - _methods133452_)) - (_g135483_ + __tmp135479))) + _methods133449_)) + (_g135480_ (for-each - (lambda (_g133457133460_ - _g133458133462_) + (lambda (_g133454133457_ + _g133455133459_) (let () (declare (not safe)) (hash-put! - _method-calls131424_ - _g133457133460_ - _g133458133462_))) - _methods133452_ - _$methods133456_)) - (_methods-bind133473_ - (map (lambda (_g133465133468_ - _g133466133470_) + _method-calls131421_ + _g133454133457_ + _g133455133459_))) + _methods133449_ + _$methods133453_)) + (_methods-bind133470_ + (map (lambda (_g133462133465_ + _g133463133467_) (let () (declare (not safe)) - (_generate-method-bind131334_ - _$klass133448_ - _$method-table133450_ - _g133465133468_ - _g133466133470_))) - _methods133452_ - _$methods133456_)) - (_slots133475_ + (_generate-method-bind131331_ + _$klass133445_ + _$method-table133447_ + _g133462133465_ + _g133463133467_))) + _methods133449_ + _$methods133453_)) + (_slots133472_ (let () (declare (not safe)) - (hash-keys _slot-refs131425_))) - (_$slots133479_ - (map (lambda (_id133477_) - (let ((__tmp135484 - (gensym _id133477_))) + (hash-keys _slot-refs131422_))) + (_$slots133476_ + (map (lambda (_id133474_) + (let ((__tmp135481 + (gensym _id133474_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp135484))) - _slots133475_)) - (_g135485_ + __tmp135481))) + _slots133472_)) + (_g135482_ (for-each - (lambda (_g133480133483_ - _g133481133485_) + (lambda (_g133477133480_ + _g133478133482_) (let () (declare (not safe)) (hash-put! - _slot-refs131425_ - _g133480133483_ - _g133481133485_))) - _slots133475_ - _$slots133479_)) - (_slots-bind133496_ - (map (lambda (_g133488133491_ - _g133489133493_) + _slot-refs131422_ + _g133477133480_ + _g133478133482_))) + _slots133472_ + _$slots133476_)) + (_slots-bind133493_ + (map (lambda (_g133485133488_ + _g133486133490_) (let () (declare (not safe)) - (_generate-slot-bind131335_ - _$klass133448_ - _g133488133491_ - _g133489133493_))) - _slots133475_ - _$slots133479_)) - (_specializer-impl133504_ - (let* ((_specializer-body133502_ - (map (lambda (_g133497133499_) + (_generate-slot-bind131332_ + _$klass133445_ + _g133485133488_ + _g133486133490_))) + _slots133472_ + _$slots133476_)) + (_specializer-impl133501_ + (let* ((_specializer-body133499_ + (map (lambda (_g133494133496_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g133497133499_ - _self133434_ - _$klass133448_ - _method-calls131424_ - _slot-refs131425_))) - _L133417_)) - (__tmp135486 - (let ((__tmp135487 - (let ((__tmp135489 - (let ((__tmp135490 + _g133494133496_ + _self133431_ + _$klass133445_ + _method-calls131421_ + _slot-refs131422_))) + _L133414_)) + (__tmp135483 + (let ((__tmp135484 + (let ((__tmp135486 + (let ((__tmp135487 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135502 + (let ((__tmp135499 (let () (declare (not safe)) - (cons _L133080_ '()))) - (__tmp135491 - (let ((__tmp135492 - (let ((__tmp135493 - (let ((__tmp135495 - (let ((__tmp135496 - (let ((__tmp135501 + (cons _L133077_ '()))) + (__tmp135488 + (let ((__tmp135489 + (let ((__tmp135490 + (let ((__tmp135492 + (let ((__tmp135493 + (let ((__tmp135498 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L133079_ '()))) - (__tmp135497 - (let ((__tmp135498 - (let ((__tmp135499 - (let ((__tmp135500 + (cons _L133076_ '()))) + (__tmp135494 + (let ((__tmp135495 + (let ((__tmp135496 + (let ((__tmp135497 (let () (declare (not safe)) - (cons _L133418_ - _specializer-body133502_)))) + (cons _L133415_ + _specializer-body133499_)))) (declare (not safe)) - (cons '%#lambda __tmp135500)))) + (cons '%#lambda __tmp135497)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp135499 - _L133078_)))) + __tmp135496 + _L133075_)))) (declare (not safe)) - (cons __tmp135498 '())))) + (cons __tmp135495 '())))) (declare (not safe)) - (cons __tmp135501 __tmp135497)))) + (cons __tmp135498 __tmp135494)))) (declare (not safe)) - (cons __tmp135496 '()))) - (__tmp135494 - (let () (declare (not safe)) (cons _L133077_ '())))) + (cons __tmp135493 '()))) + (__tmp135491 + (let () (declare (not safe)) (cons _L133074_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135495 - __tmp135494)))) + (cons __tmp135492 + __tmp135491)))) (declare (not safe)) (cons '%#let-values - __tmp135493)))) + __tmp135490)))) (declare (not safe)) - (cons __tmp135492 '())))) + (cons __tmp135489 '())))) (declare (not safe)) - (cons __tmp135502 __tmp135491)))) + (cons __tmp135499 __tmp135488)))) (declare (not safe)) - (cons __tmp135490 '()))) - (__tmp135488 - (let () (declare (not safe)) (cons _L133076_ '())))) + (cons __tmp135487 '()))) + (__tmp135485 + (let () (declare (not safe)) (cons _L133073_ '())))) (declare (not safe)) - (cons __tmp135489 __tmp135488)))) + (cons __tmp135486 __tmp135485)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp135487)))) + __tmp135484)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp135486 - _stx131332_))) - (_specializer-impl133506_ + __tmp135483 + _stx131329_))) + (_specializer-impl133503_ (let () (declare (not safe)) - (_generate-specializer-impl131336_ - _$klass133448_ - _$method-table133450_ - _methods-bind133473_ - _slots-bind133496_ - _specializer-impl133504_)))) - (let ((__tmp135504 + (_generate-specializer-impl131333_ + _$klass133445_ + _$method-table133447_ + _methods-bind133470_ + _slots-bind133493_ + _specializer-impl133501_)))) + (let ((__tmp135501 (let () (declare (not safe)) - (gx#stx-e _L131405_))) - (__tmp135503 + (gx#stx-e _L131402_))) + (__tmp135500 (let () (declare (not safe)) - (gx#stx-e _specializer-id133446_)))) + (gx#stx-e _specializer-id133443_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp135504 + __tmp135501 '" => " - __tmp135503)) + __tmp135500)) (let () (declare (not safe)) - (_generate-specializer-def131337_ - _L131405_ - _specializer-id133446_ - _specializer-impl133506_)))))) - _tl133389133414_ - _hd133390133412_))) + (_generate-specializer-def131334_ + _L131402_ + _specializer-id133443_ + _specializer-impl133503_)))))) + _tl133386133411_ + _hd133387133409_))) (let () (declare (not safe)) - (_g133382133396_ _g133383133399_))))) + (_g133379133393_ _g133380133396_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133382133396_ - _g133383133399_)))))) + (_g133379133393_ + _g133380133396_)))))) (declare (not safe)) - (_g133381133509_ _L133078_)) + (_g133378133506_ _L133075_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L133078_)) - (let* ((_g133512133542_ - (lambda (_g133513133539_) + (gxc#opt-lambda-expr? _L133075_)) + (let* ((_g133509133539_ + (lambda (_g133510133536_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133513133539_)))) - (_g133511134084_ - (lambda (_g133513133545_) + _g133510133536_)))) + (_g133508134081_ + (lambda (_g133510133542_) (if (let () (declare (not safe)) (gx#stx-pair? - _g133513133545_)) - (let ((_e133519133547_ + _g133510133542_)) + (let ((_e133516133544_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _g133513133545_)))) - (let ((_hd133518133550_ - (let () (declare (not safe)) (##car _e133519133547_))) - (_tl133517133552_ - (let () (declare (not safe)) (##cdr _e133519133547_)))) + (gx#stx-e _g133510133542_)))) + (let ((_hd133515133547_ + (let () (declare (not safe)) (##car _e133516133544_))) + (_tl133514133549_ + (let () (declare (not safe)) (##cdr _e133516133544_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133517133552_)) - (let ((_e133522133555_ + (gx#stx-pair? _tl133514133549_)) + (let ((_e133519133552_ (let () (declare (not safe)) - (gx#stx-e _tl133517133552_)))) - (let ((_hd133521133558_ + (gx#stx-e _tl133514133549_)))) + (let ((_hd133518133555_ (let () (declare (not safe)) - (##car _e133522133555_))) - (_tl133520133560_ + (##car _e133519133552_))) + (_tl133517133557_ (let () (declare (not safe)) - (##cdr _e133522133555_)))) + (##cdr _e133519133552_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133521133558_)) - (let ((_e133525133563_ + (gx#stx-pair? _hd133518133555_)) + (let ((_e133522133560_ (let () (declare (not safe)) - (gx#stx-e _hd133521133558_)))) - (let ((_hd133524133566_ + (gx#stx-e _hd133518133555_)))) + (let ((_hd133521133563_ (let () (declare (not safe)) - (##car _e133525133563_))) - (_tl133523133568_ + (##car _e133522133560_))) + (_tl133520133565_ (let () (declare (not safe)) - (##cdr _e133525133563_)))) + (##cdr _e133522133560_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133524133566_)) - (let ((_e133528133571_ + (gx#stx-pair? _hd133521133563_)) + (let ((_e133525133568_ (let () (declare (not safe)) - (gx#stx-e _hd133524133566_)))) - (let ((_hd133527133574_ + (gx#stx-e _hd133521133563_)))) + (let ((_hd133524133571_ (let () (declare (not safe)) - (##car _e133528133571_))) - (_tl133526133576_ + (##car _e133525133568_))) + (_tl133523133573_ (let () (declare (not safe)) - (##cdr _e133528133571_)))) + (##cdr _e133525133568_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd133527133574_)) - (let ((_e133531133579_ + _hd133524133571_)) + (let ((_e133528133576_ (let () (declare (not safe)) (gx#stx-e - _hd133527133574_)))) - (let ((_hd133530133582_ + _hd133524133571_)))) + (let ((_hd133527133579_ (let () (declare (not safe)) - (##car _e133531133579_))) - (_tl133529133584_ + (##car _e133528133576_))) + (_tl133526133581_ (let () (declare (not safe)) - (##cdr _e133531133579_)))) + (##cdr _e133528133576_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl133529133584_)) + _tl133526133581_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133526133576_)) - (let ((_e133534133587_ + _tl133523133573_)) + (let ((_e133531133584_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl133526133576_)))) - (let ((_hd133533133590_ + (gx#stx-e _tl133523133573_)))) + (let ((_hd133530133587_ (let () (declare (not safe)) - (##car _e133534133587_))) - (_tl133532133592_ + (##car _e133531133584_))) + (_tl133529133589_ (let () (declare (not safe)) - (##cdr _e133534133587_)))) + (##cdr _e133531133584_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133532133592_)) + (gx#stx-null? _tl133529133589_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl133523133568_)) + (gx#stx-null? _tl133520133565_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133520133560_)) - (let ((_e133537133595_ + (gx#stx-pair? _tl133517133557_)) + (let ((_e133534133592_ (let () (declare (not safe)) - (gx#stx-e _tl133520133560_)))) - (let ((_hd133536133598_ + (gx#stx-e _tl133517133557_)))) + (let ((_hd133533133595_ (let () (declare (not safe)) - (##car _e133537133595_))) - (_tl133535133600_ + (##car _e133534133592_))) + (_tl133532133597_ (let () (declare (not safe)) - (##cdr _e133537133595_)))) + (##cdr _e133534133592_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133535133600_)) - ((lambda (_L133603_ - _L133604_ - _L133605_) - (let* ((_g133628133642_ - (lambda (_g133629133639_) + (gx#stx-null? _tl133532133597_)) + ((lambda (_L133600_ + _L133601_ + _L133602_) + (let* ((_g133625133639_ + (lambda (_g133626133636_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133629133639_)))) - (_g133627133683_ - (lambda (_g133629133645_) + _g133626133636_)))) + (_g133624133680_ + (lambda (_g133626133642_) (if (let () (declare (not safe)) (gx#stx-pair? - _g133629133645_)) - (let ((_e133634133647_ + _g133626133642_)) + (let ((_e133631133644_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g133629133645_)))) - (let ((_hd133633133650_ + (gx#stx-e _g133626133642_)))) + (let ((_hd133630133647_ (let () (declare (not safe)) - (##car _e133634133647_))) - (_tl133632133652_ + (##car _e133631133644_))) + (_tl133629133649_ (let () (declare (not safe)) - (##cdr _e133634133647_)))) + (##cdr _e133631133644_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133632133652_)) - (let ((_e133637133655_ + (gx#stx-pair? _tl133629133649_)) + (let ((_e133634133652_ (let () (declare (not safe)) - (gx#stx-e _tl133632133652_)))) - (let ((_hd133636133658_ + (gx#stx-e _tl133629133649_)))) + (let ((_hd133633133655_ (let () (declare (not safe)) - (##car _e133637133655_))) - (_tl133635133660_ + (##car _e133634133652_))) + (_tl133632133657_ (let () (declare (not safe)) - (##cdr _e133637133655_)))) - ((lambda (_L133663_ _L133664_) - (let ((_self133677_ + (##cdr _e133634133652_)))) + ((lambda (_L133660_ _L133661_) + (let ((_self133674_ (list-ref - _L133664_ - _self-index133379_))) + _L133661_ + _self-index133376_))) (for-each - (lambda (_g133678133680_) + (lambda (_g133675133677_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g133678133680_ - _self133677_ - _method-calls131424_ - _slot-refs131425_))) - _L133663_))) - _tl133635133660_ - _hd133636133658_))) + _g133675133677_ + _self133674_ + _method-calls131421_ + _slot-refs131422_))) + _L133660_))) + _tl133632133657_ + _hd133633133655_))) (let () (declare (not safe)) - (_g133628133642_ _g133629133645_))))) + (_g133625133639_ _g133626133642_))))) (let () (declare (not safe)) - (_g133628133642_ _g133629133645_)))))) + (_g133625133639_ _g133626133642_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g133627133683_ _L133604_)) - (let* ((_g133686133705_ - (lambda (_g133687133702_) + (_g133624133680_ _L133601_)) + (let* ((_g133683133702_ + (lambda (_g133684133699_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133687133702_)))) - (_g133685133810_ - (lambda (_g133687133708_) + _g133684133699_)))) + (_g133682133807_ + (lambda (_g133684133705_) (if (let () (declare (not safe)) (gx#stx-pair? - _g133687133708_)) - (let ((_e133691133710_ + _g133684133705_)) + (let ((_e133688133707_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g133687133708_)))) - (let ((_hd133690133713_ + (gx#stx-e _g133684133705_)))) + (let ((_hd133687133710_ (let () (declare (not safe)) - (##car _e133691133710_))) - (_tl133689133715_ + (##car _e133688133707_))) + (_tl133686133712_ (let () (declare (not safe)) - (##cdr _e133691133710_)))) + (##cdr _e133688133707_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl133689133715_)) - (let ((_g135435_ + (gx#stx-pair/null? _tl133686133712_)) + (let ((_g135432_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl133689133715_ + _tl133686133712_ '0)))) (begin - (let ((_g135436_ + (let ((_g135433_ (let () (declare (not safe)) - (if (##values? _g135435_) - (##vector-length _g135435_) + (if (##values? _g135432_) + (##vector-length _g135432_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135436_ 2))) + (##fx= _g135433_ 2))) (error "Context expects 2 values" - _g135436_))) - (let ((_target133692133718_ + _g135433_))) + (let ((_target133689133715_ (let () (declare (not safe)) - (##vector-ref _g135435_ 0))) - (_tl133694133720_ + (##vector-ref _g135432_ 0))) + (_tl133691133717_ (let () (declare (not safe)) - (##vector-ref _g135435_ 1)))) + (##vector-ref _g135432_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133694133720_)) - (letrec ((_loop133695133723_ - (lambda (_hd133693133726_ - _clause133699133728_) + (gx#stx-null? _tl133691133717_)) + (letrec ((_loop133692133720_ + (lambda (_hd133690133723_ + _clause133696133725_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd133693133726_)) - (let ((_e133696133731_ + _hd133690133723_)) + (let ((_e133693133728_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd133693133726_)))) - (let ((_lp-hd133697133734_ - (let () (declare (not safe)) (##car _e133696133731_))) - (_lp-tl133698133736_ - (let () (declare (not safe)) (##cdr _e133696133731_)))) - (let ((__tmp135438 + (gx#stx-e _hd133690133723_)))) + (let ((_lp-hd133694133731_ + (let () (declare (not safe)) (##car _e133693133728_))) + (_lp-tl133695133733_ + (let () (declare (not safe)) (##cdr _e133693133728_)))) + (let ((__tmp135435 (let () (declare (not safe)) - (cons _lp-hd133697133734_ _clause133699133728_)))) + (cons _lp-hd133694133731_ _clause133696133725_)))) (declare (not safe)) - (_loop133695133723_ _lp-tl133698133736_ __tmp135438)))) - (let ((_clause133700133739_ (reverse _clause133699133728_))) - ((lambda (_L133742_) + (_loop133692133720_ _lp-tl133695133733_ __tmp135435)))) + (let ((_clause133697133736_ (reverse _clause133696133725_))) + ((lambda (_L133739_) (for-each - (lambda (_clause133755_) - (let* ((_g133757133768_ - (lambda (_g133758133765_) + (lambda (_clause133752_) + (let* ((_g133754133765_ + (lambda (_g133755133762_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133758133765_)))) - (_g133756133800_ - (lambda (_g133758133771_) + _g133755133762_)))) + (_g133753133797_ + (lambda (_g133755133768_) (if (let () (declare (not safe)) - (gx#stx-pair? _g133758133771_)) - (let ((_e133763133773_ + (gx#stx-pair? _g133755133768_)) + (let ((_e133760133770_ (let () (declare (not safe)) - (gx#stx-e _g133758133771_)))) - (let ((_hd133762133776_ + (gx#stx-e _g133755133768_)))) + (let ((_hd133759133773_ (let () (declare (not safe)) - (##car _e133763133773_))) - (_tl133761133778_ + (##car _e133760133770_))) + (_tl133758133775_ (let () (declare (not safe)) - (##cdr _e133763133773_)))) - ((lambda (_L133781_ _L133782_) - (let ((_self133794_ + (##cdr _e133760133770_)))) + ((lambda (_L133778_ _L133779_) + (let ((_self133791_ (list-ref - _L133782_ - _self-index133379_))) + _L133779_ + _self-index133376_))) (for-each - (lambda (_g133795133797_) + (lambda (_g133792133794_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g133795133797_ - _self133794_ - _method-calls131424_ - _slot-refs131425_))) - _L133781_))) - _tl133761133778_ - _hd133762133776_))) + _g133792133794_ + _self133791_ + _method-calls131421_ + _slot-refs131422_))) + _L133778_))) + _tl133758133775_ + _hd133759133773_))) (let () (declare (not safe)) - (_g133757133768_ _g133758133771_)))))) + (_g133754133765_ _g133755133768_)))))) (declare (not safe)) - (_g133756133800_ _clause133755_))) - (let ((__tmp135437 - (lambda (_g133802133805_ _g133803133807_) + (_g133753133797_ _clause133752_))) + (let ((__tmp135434 + (lambda (_g133799133802_ _g133800133804_) (let () (declare (not safe)) - (cons _g133802133805_ _g133803133807_))))) + (cons _g133799133802_ _g133800133804_))))) (declare (not safe)) - (foldr1 __tmp135437 '() _L133742_)))) - _clause133700133739_)))))) + (foldr1 __tmp135434 '() _L133739_)))) + _clause133697133736_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop133695133723_ - _target133692133718_ + (_loop133692133720_ + _target133689133715_ '()))) (let () (declare (not safe)) - (_g133686133705_ _g133687133708_)))))) + (_g133683133702_ _g133684133705_)))))) (let () (declare (not safe)) - (_g133686133705_ _g133687133708_))))) + (_g133683133702_ _g133684133705_))))) (let () (declare (not safe)) - (_g133686133705_ _g133687133708_)))))) + (_g133683133702_ _g133684133705_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g133685133810_ _L133603_)) + (_g133682133807_ _L133600_)) (if (let () (declare (not safe)) - (_no-specializer?131428_)) - _stx131332_ - (let* ((_specializer-id133819_ - (let* ((_id133813_ + (_no-specializer?131425_)) + _stx131329_ + (let* ((_specializer-id133816_ + (let* ((_id133810_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135439 + (let ((__tmp135436 (let () (declare (not safe)) - (gx#stx-e _L131405_)))) + (gx#stx-e _L131402_)))) (declare (not safe)) - (make-symbol__1 __tmp135439 '"::specialize"))) - (_specializer-id133816_ - (let ((__tmp135440 + (make-symbol__1 __tmp135436 '"::specialize"))) + (_specializer-id133813_ + (let ((__tmp135437 (let () (declare (not safe)) - (gx#stx-source _stx131332_)))) + (gx#stx-source _stx131329_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id133813_ __tmp135440)))) + (gx#core-quote-syntax__1 _id133810_ __tmp135437)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id133816_)) - _specializer-id133816_)) - (_$klass133821_ - (let ((__tmp135441 (gensym '__klass))) + (gx#core-bind-runtime!__0 _specializer-id133813_)) + _specializer-id133813_)) + (_$klass133818_ + (let ((__tmp135438 (gensym '__klass))) (declare (not safe)) - (make-symbol__0 __tmp135441))) - (_$method-table133823_ - (let ((__tmp135442 (gensym '__method-table))) + (make-symbol__0 __tmp135438))) + (_$method-table133820_ + (let ((__tmp135439 (gensym '__method-table))) (declare (not safe)) - (make-symbol__0 __tmp135442))) - (_methods133825_ + (make-symbol__0 __tmp135439))) + (_methods133822_ (let () (declare (not safe)) - (hash-keys _method-calls131424_))) - (_$methods133829_ - (map (lambda (_id133827_) - (let ((__tmp135443 (gensym _id133827_))) + (hash-keys _method-calls131421_))) + (_$methods133826_ + (map (lambda (_id133824_) + (let ((__tmp135440 (gensym _id133824_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135443))) - _methods133825_)) - (_g135444_ + (make-symbol__1 '"__" __tmp135440))) + _methods133822_)) + (_g135441_ (for-each - (lambda (_g133830133833_ _g133831133835_) + (lambda (_g133827133830_ _g133828133832_) (let () (declare (not safe)) (hash-put! - _method-calls131424_ - _g133830133833_ - _g133831133835_))) - _methods133825_ - _$methods133829_)) - (_methods-bind133846_ - (map (lambda (_g133838133841_ _g133839133843_) + _method-calls131421_ + _g133827133830_ + _g133828133832_))) + _methods133822_ + _$methods133826_)) + (_methods-bind133843_ + (map (lambda (_g133835133838_ _g133836133840_) (let () (declare (not safe)) - (_generate-method-bind131334_ - _$klass133821_ - _$method-table133823_ - _g133838133841_ - _g133839133843_))) - _methods133825_ - _$methods133829_)) - (_slots133848_ - (let () (declare (not safe)) (hash-keys _slot-refs131425_))) - (_$slots133852_ - (map (lambda (_id133850_) - (let ((__tmp135445 (gensym _id133850_))) + (_generate-method-bind131331_ + _$klass133818_ + _$method-table133820_ + _g133835133838_ + _g133836133840_))) + _methods133822_ + _$methods133826_)) + (_slots133845_ + (let () (declare (not safe)) (hash-keys _slot-refs131422_))) + (_$slots133849_ + (map (lambda (_id133847_) + (let ((__tmp135442 (gensym _id133847_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135445))) - _slots133848_)) - (_g135446_ + (make-symbol__1 '"__" __tmp135442))) + _slots133845_)) + (_g135443_ (for-each - (lambda (_g133853133856_ _g133854133858_) + (lambda (_g133850133853_ _g133851133855_) (let () (declare (not safe)) (hash-put! - _slot-refs131425_ - _g133853133856_ - _g133854133858_))) - _slots133848_ - _$slots133852_)) - (_slots-bind133869_ - (map (lambda (_g133861133864_ _g133862133866_) + _slot-refs131422_ + _g133850133853_ + _g133851133855_))) + _slots133845_ + _$slots133849_)) + (_slots-bind133866_ + (map (lambda (_g133858133861_ _g133859133863_) (let () (declare (not safe)) - (_generate-slot-bind131335_ - _$klass133821_ - _g133861133864_ - _g133862133866_))) - _slots133848_ - _$slots133852_)) - (_specializer-lambda-expr133942_ - (let* ((_g133871133885_ - (lambda (_g133872133882_) + (_generate-slot-bind131332_ + _$klass133818_ + _g133858133861_ + _g133859133863_))) + _slots133845_ + _$slots133849_)) + (_specializer-lambda-expr133939_ + (let* ((_g133868133882_ + (lambda (_g133869133879_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133872133882_)))) - (_g133870133939_ - (lambda (_g133872133888_) + _g133869133879_)))) + (_g133867133936_ + (lambda (_g133869133885_) (if (let () (declare (not safe)) - (gx#stx-pair? _g133872133888_)) - (let ((_e133877133890_ + (gx#stx-pair? _g133869133885_)) + (let ((_e133874133887_ (let () (declare (not safe)) - (gx#stx-e _g133872133888_)))) - (let ((_hd133876133893_ + (gx#stx-e _g133869133885_)))) + (let ((_hd133873133890_ (let () (declare (not safe)) - (##car _e133877133890_))) - (_tl133875133895_ + (##car _e133874133887_))) + (_tl133872133892_ (let () (declare (not safe)) - (##cdr _e133877133890_)))) + (##cdr _e133874133887_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133875133895_)) - (let ((_e133880133898_ + (gx#stx-pair? _tl133872133892_)) + (let ((_e133877133895_ (let () (declare (not safe)) - (gx#stx-e _tl133875133895_)))) - (let ((_hd133879133901_ + (gx#stx-e _tl133872133892_)))) + (let ((_hd133876133898_ (let () (declare (not safe)) - (##car _e133880133898_))) - (_tl133878133903_ + (##car _e133877133895_))) + (_tl133875133900_ (let () (declare (not safe)) - (##cdr _e133880133898_)))) - ((lambda (_L133906_ _L133907_) - (let* ((_self133930_ + (##cdr _e133877133895_)))) + ((lambda (_L133903_ _L133904_) + (let* ((_self133927_ (list-ref - _L133907_ - _self-index133379_)) - (_body133936_ - (map (lambda (_g133931133933_) + _L133904_ + _self-index133376_)) + (_body133933_ + (map (lambda (_g133928133930_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#apply-subst-object-refs - _g133931133933_ - _self133930_ - _$klass133821_ - _method-calls131424_ - _slot-refs131425_))) - _L133906_))) + _g133928133930_ + _self133927_ + _$klass133818_ + _method-calls131421_ + _slot-refs131422_))) + _L133903_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp135447 - (let ((__tmp135448 + (let ((__tmp135444 + (let ((__tmp135445 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L133907_ _body133936_)))) + (cons _L133904_ _body133933_)))) (declare (not safe)) - (cons '%#lambda __tmp135448)))) + (cons '%#lambda __tmp135445)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp135447 - _L133604_)))) - _tl133878133903_ - _hd133879133901_))) + __tmp135444 + _L133601_)))) + _tl133875133900_ + _hd133876133898_))) (let () (declare (not safe)) - (_g133871133885_ _g133872133888_))))) + (_g133868133882_ _g133869133885_))))) (let () (declare (not safe)) - (_g133871133885_ _g133872133888_)))))) + (_g133868133882_ _g133869133885_)))))) (declare (not safe)) - (_g133870133939_ _L133604_))) - (_specializer-case-lambda-expr134077_ - (let* ((_g133944133963_ - (lambda (_g133945133960_) + (_g133867133936_ _L133601_))) + (_specializer-case-lambda-expr134074_ + (let* ((_g133941133960_ + (lambda (_g133942133957_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133945133960_)))) - (_g133943134074_ - (lambda (_g133945133966_) + _g133942133957_)))) + (_g133940134071_ + (lambda (_g133942133963_) (if (let () (declare (not safe)) - (gx#stx-pair? _g133945133966_)) - (let ((_e133949133968_ + (gx#stx-pair? _g133942133963_)) + (let ((_e133946133965_ (let () (declare (not safe)) - (gx#stx-e _g133945133966_)))) - (let ((_hd133948133971_ + (gx#stx-e _g133942133963_)))) + (let ((_hd133945133968_ (let () (declare (not safe)) - (##car _e133949133968_))) - (_tl133947133973_ + (##car _e133946133965_))) + (_tl133944133970_ (let () (declare (not safe)) - (##cdr _e133949133968_)))) + (##cdr _e133946133965_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl133947133973_)) - (let ((_g135449_ + (gx#stx-pair/null? _tl133944133970_)) + (let ((_g135446_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl133947133973_ + _tl133944133970_ '0)))) (begin - (let ((_g135450_ + (let ((_g135447_ (let () (declare (not safe)) - (if (##values? _g135449_) + (if (##values? _g135446_) (##vector-length - _g135449_) + _g135446_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135450_ 2))) + (##fx= _g135447_ 2))) (error "Context expects 2 values" - _g135450_))) - (let ((_target133950133976_ + _g135447_))) + (let ((_target133947133973_ (let () (declare (not safe)) (##vector-ref - _g135449_ + _g135446_ 0))) - (_tl133952133978_ + (_tl133949133975_ (let () (declare (not safe)) (##vector-ref - _g135449_ + _g135446_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl133952133978_)) - (letrec ((_loop133953133981_ - (lambda (_hd133951133984_ + _tl133949133975_)) + (letrec ((_loop133950133978_ + (lambda (_hd133948133981_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause133957133986_) + _clause133954133983_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133951133984_)) - (let ((_e133954133989_ + (gx#stx-pair? _hd133948133981_)) + (let ((_e133951133986_ (let () (declare (not safe)) - (gx#stx-e _hd133951133984_)))) - (let ((_lp-hd133955133992_ + (gx#stx-e _hd133948133981_)))) + (let ((_lp-hd133952133989_ (let () (declare (not safe)) - (##car _e133954133989_))) - (_lp-tl133956133994_ + (##car _e133951133986_))) + (_lp-tl133953133991_ (let () (declare (not safe)) - (##cdr _e133954133989_)))) - (let ((__tmp135453 + (##cdr _e133951133986_)))) + (let ((__tmp135450 (let () (declare (not safe)) - (cons _lp-hd133955133992_ - _clause133957133986_)))) + (cons _lp-hd133952133989_ + _clause133954133983_)))) (declare (not safe)) - (_loop133953133981_ - _lp-tl133956133994_ - __tmp135453)))) - (let ((_clause133958133997_ - (reverse _clause133957133986_))) - ((lambda (_L134000_) - (let* ((_clauses134072_ - (map (lambda (_clause134014_) - (let* ((_g134016134027_ - (lambda (_g134017134024_) + (_loop133950133978_ + _lp-tl133953133991_ + __tmp135450)))) + (let ((_clause133955133994_ + (reverse _clause133954133983_))) + ((lambda (_L133997_) + (let* ((_clauses134069_ + (map (lambda (_clause134011_) + (let* ((_g134013134024_ + (lambda (_g134014134021_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134017134024_)))) - (_g134015134062_ - (lambda (_g134017134030_) + _g134014134021_)))) + (_g134012134059_ + (lambda (_g134014134027_) (if (let () (declare (not safe)) (gx#stx-pair? - _g134017134030_)) - (let ((_e134022134032_ + _g134014134027_)) + (let ((_e134019134029_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g134017134030_)))) - (let ((_hd134021134035_ + (gx#stx-e _g134014134027_)))) + (let ((_hd134018134032_ (let () (declare (not safe)) - (##car _e134022134032_))) - (_tl134020134037_ + (##car _e134019134029_))) + (_tl134017134034_ (let () (declare (not safe)) - (##cdr _e134022134032_)))) - ((lambda (_L134040_ _L134041_) - (let* ((_self134053_ - (list-ref _L134041_ _self-index133379_)) - (_body134059_ - (map (lambda (_g134054134056_) + (##cdr _e134019134029_)))) + ((lambda (_L134037_ _L134038_) + (let* ((_self134050_ + (list-ref _L134038_ _self-index133376_)) + (_body134056_ + (map (lambda (_g134051134053_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g134054134056_ - _self134053_ - _$klass133821_ - _method-calls131424_ - _slot-refs131425_))) - _L134040_))) + _g134051134053_ + _self134050_ + _$klass133818_ + _method-calls131421_ + _slot-refs131422_))) + _L134037_))) (let () (declare (not safe)) - (cons _L134041_ _body134059_)))) - _tl134020134037_ - _hd134021134035_))) + (cons _L134038_ _body134056_)))) + _tl134017134034_ + _hd134018134032_))) (let () (declare (not safe)) - (_g134016134027_ _g134017134030_)))))) + (_g134013134024_ _g134014134027_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g134015134062_ - _clause134014_))) - (let ((__tmp135451 - (lambda (_g134064134067_ - _g134065134069_) + (_g134012134059_ + _clause134011_))) + (let ((__tmp135448 + (lambda (_g134061134064_ + _g134062134066_) (let () (declare (not safe)) - (cons _g134064134067_ - _g134065134069_))))) + (cons _g134061134064_ + _g134062134066_))))) (declare (not safe)) - (foldr1 __tmp135451 + (foldr1 __tmp135448 '() - _L134000_)))) - (__tmp135452 + _L133997_)))) + (__tmp135449 (let () (declare (not safe)) (cons '%#case-lambda - _clauses134072_)))) + _clauses134069_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp135452 - _L133603_))) - _clause133958133997_)))))) + __tmp135449 + _L133600_))) + _clause133955133994_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop133953133981_ - _target133950133976_ + (_loop133950133978_ + _target133947133973_ '()))) (let () (declare (not safe)) - (_g133944133963_ - _g133945133966_)))))) + (_g133941133960_ + _g133942133963_)))))) (let () (declare (not safe)) - (_g133944133963_ _g133945133966_))))) + (_g133941133960_ _g133942133963_))))) (let () (declare (not safe)) - (_g133944133963_ _g133945133966_)))))) + (_g133941133960_ _g133942133963_)))))) (declare (not safe)) - (_g133943134074_ _L133603_))) - (_specializer-impl134079_ - (let ((__tmp135454 - (let ((__tmp135455 - (let ((__tmp135457 - (let ((__tmp135458 - (let ((__tmp135475 + (_g133940134071_ _L133600_))) + (_specializer-impl134076_ + (let ((__tmp135451 + (let ((__tmp135452 + (let ((__tmp135454 + (let ((__tmp135455 + (let ((__tmp135472 (let () (declare (not safe)) - (cons _L133080_ '()))) - (__tmp135459 - (let ((__tmp135460 - (let ((__tmp135461 + (cons _L133077_ '()))) + (__tmp135456 + (let ((__tmp135457 + (let ((__tmp135458 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135463 - (let ((__tmp135464 - (let ((__tmp135474 + (let ((__tmp135460 + (let ((__tmp135461 + (let ((__tmp135471 (let () (declare (not safe)) - (cons _L133079_ '()))) - (__tmp135465 - (let ((__tmp135466 - (let ((__tmp135467 - (let ((__tmp135468 + (cons _L133076_ '()))) + (__tmp135462 + (let ((__tmp135463 + (let ((__tmp135464 + (let ((__tmp135465 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135470 - (let ((__tmp135471 - (let ((__tmp135473 + (let ((__tmp135467 + (let ((__tmp135468 + (let ((__tmp135470 (let () (declare (not safe)) - (cons _L133605_ '()))) - (__tmp135472 + (cons _L133602_ '()))) + (__tmp135469 (let () (declare (not safe)) - (cons _specializer-lambda-expr133942_ + (cons _specializer-lambda-expr133939_ '())))) (declare (not safe)) - (cons __tmp135473 __tmp135472)))) + (cons __tmp135470 __tmp135469)))) (declare (not safe)) - (cons __tmp135471 '()))) - (__tmp135469 + (cons __tmp135468 '()))) + (__tmp135466 (let () (declare (not safe)) - (cons _specializer-case-lambda-expr134077_ + (cons _specializer-case-lambda-expr134074_ '())))) (declare (not safe)) - (cons __tmp135470 __tmp135469)))) + (cons __tmp135467 __tmp135466)))) (declare (not safe)) - (cons '%#let-values __tmp135468)))) + (cons '%#let-values __tmp135465)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135467 _stx131332_)))) + (gxc#xform-wrap-source __tmp135464 _stx131329_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135466 '())))) + (cons __tmp135463 '())))) (declare (not safe)) - (cons __tmp135474 __tmp135465)))) + (cons __tmp135471 __tmp135462)))) (declare (not safe)) - (cons __tmp135464 '()))) - (__tmp135462 + (cons __tmp135461 '()))) + (__tmp135459 (let () (declare (not safe)) - (cons _L133077_ '())))) + (cons _L133074_ '())))) (declare (not safe)) - (cons __tmp135463 __tmp135462)))) + (cons __tmp135460 __tmp135459)))) (declare (not safe)) - (cons '%#let-values __tmp135461)))) + (cons '%#let-values __tmp135458)))) (declare (not safe)) - (cons __tmp135460 '())))) + (cons __tmp135457 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135475 - __tmp135459)))) + (cons __tmp135472 + __tmp135456)))) (declare (not safe)) - (cons __tmp135458 '()))) - (__tmp135456 + (cons __tmp135455 '()))) + (__tmp135453 (let () (declare (not safe)) - (cons _L133076_ '())))) + (cons _L133073_ '())))) (declare (not safe)) - (cons __tmp135457 __tmp135456)))) + (cons __tmp135454 __tmp135453)))) (declare (not safe)) - (cons '%#let-values __tmp135455)))) + (cons '%#let-values __tmp135452)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135454 _stx131332_))) - (_specializer-impl134081_ + (gxc#xform-wrap-source __tmp135451 _stx131329_))) + (_specializer-impl134078_ (let () (declare (not safe)) - (_generate-specializer-impl131336_ - _$klass133821_ - _$method-table133823_ - _methods-bind133846_ - _slots-bind133869_ - _specializer-impl134079_)))) + (_generate-specializer-impl131333_ + _$klass133818_ + _$method-table133820_ + _methods-bind133843_ + _slots-bind133866_ + _specializer-impl134076_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp135477 + (let ((__tmp135474 (let () (declare (not safe)) (gx#stx-e - _L131405_))) - (__tmp135476 + _L131402_))) + (__tmp135473 (let () (declare (not safe)) (gx#stx-e - _specializer-id133819_)))) + _specializer-id133816_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp135477 + __tmp135474 '" => " - __tmp135476)) + __tmp135473)) (let () (declare (not safe)) - (_generate-specializer-def131337_ - _L131405_ - _specializer-id133819_ - _specializer-impl134081_))))) - _hd133536133598_ - _hd133533133590_ - _hd133530133582_) + (_generate-specializer-def131334_ + _L131402_ + _specializer-id133816_ + _specializer-impl134078_))))) + _hd133533133595_ + _hd133530133587_ + _hd133527133579_) (let () (declare (not safe)) - (_g133512133542_ - _g133513133545_))))) + (_g133509133539_ + _g133510133542_))))) (let () (declare (not safe)) - (_g133512133542_ _g133513133545_))) + (_g133509133539_ _g133510133542_))) (let () (declare (not safe)) - (_g133512133542_ _g133513133545_))) + (_g133509133539_ _g133510133542_))) (let () (declare (not safe)) - (_g133512133542_ _g133513133545_))))) + (_g133509133539_ _g133510133542_))))) (let () (declare (not safe)) - (_g133512133542_ _g133513133545_))) + (_g133509133539_ _g133510133542_))) (let () (declare (not safe)) - (_g133512133542_ _g133513133545_))))) + (_g133509133539_ _g133510133542_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133512133542_ - _g133513133545_))))) + (_g133509133539_ + _g133510133542_))))) (let () (declare (not safe)) - (_g133512133542_ _g133513133545_))))) + (_g133509133539_ _g133510133542_))))) (let () (declare (not safe)) - (_g133512133542_ _g133513133545_))))) + (_g133509133539_ _g133510133542_))))) (let () (declare (not safe)) - (_g133512133542_ _g133513133545_))))) + (_g133509133539_ _g133510133542_))))) (let () (declare (not safe)) - (_g133512133542_ _g133513133545_)))))) + (_g133509133539_ _g133510133542_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g133511134084_ _L133078_)) - _stx131332_)))) - _hd133175133298_ - _kw-ref133173133319_ - _hd133163133285_ - _hd133154133261_ - _hd133145133237_) + (_g133508134081_ _L133075_)) + _stx131329_)))) + _hd133172133295_ + _kw-ref133170133316_ + _hd133160133282_ + _hd133151133258_ + _hd133142133234_) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_)))))))) + (_g133116133178_ _g133117133181_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop133168133303_ - _target133165133290_ + (_loop133165133300_ + _target133162133287_ '()))) (let () (declare (not safe)) - (_g133119133181_ - _g133120133184_))))) + (_g133116133178_ + _g133117133181_))))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_)))))) + (_g133116133178_ _g133117133181_)))))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_))) + (_g133116133178_ _g133117133181_))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_))) + (_g133116133178_ _g133117133181_))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_))))) + (_g133116133178_ _g133117133181_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133119133181_ - _g133120133184_))) + (_g133116133178_ + _g133117133181_))) (let () (declare (not safe)) - (_g133119133181_ - _g133120133184_))) + (_g133116133178_ + _g133117133181_))) (let () (declare (not safe)) - (_g133119133181_ - _g133120133184_))))) + (_g133116133178_ + _g133117133181_))))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_))))) + (_g133116133178_ _g133117133181_))))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_))) + (_g133116133178_ _g133117133181_))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_))))) + (_g133116133178_ _g133117133181_))))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_))) + (_g133116133178_ _g133117133181_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133119133181_ - _g133120133184_))) + (_g133116133178_ + _g133117133181_))) (let () (declare (not safe)) - (_g133119133181_ - _g133120133184_))))) + (_g133116133178_ + _g133117133181_))))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_))))) + (_g133116133178_ _g133117133181_))))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_))) + (_g133116133178_ _g133117133181_))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_))))) + (_g133116133178_ _g133117133181_))))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_))) + (_g133116133178_ _g133117133181_))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_))) + (_g133116133178_ _g133117133181_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133119133181_ - _g133120133184_))))) + (_g133116133178_ + _g133117133181_))))) (let () (declare (not safe)) - (_g133119133181_ - _g133120133184_))))) + (_g133116133178_ + _g133117133181_))))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_))) + (_g133116133178_ _g133117133181_))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_))) + (_g133116133178_ _g133117133181_))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_))))) + (_g133116133178_ _g133117133181_))))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_))))) + (_g133116133178_ _g133117133181_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133119133181_ - _g133120133184_))))) + (_g133116133178_ + _g133117133181_))))) (let () (declare (not safe)) - (_g133119133181_ - _g133120133184_))) + (_g133116133178_ + _g133117133181_))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_))) + (_g133116133178_ _g133117133181_))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_))))) + (_g133116133178_ _g133117133181_))))) (let () (declare (not safe)) - (_g133119133181_ _g133120133184_)))))) + (_g133116133178_ _g133117133181_)))))) (declare (not safe)) - (_g133118134087_ _L133077_))) + (_g133115134084_ _L133074_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd132953133071_ - _hd132950133063_ - _hd132947133055_ - _hd132944133047_ - _hd132926132999_) + _hd132950133068_ + _hd132947133060_ + _hd132944133052_ + _hd132941133044_ + _hd132923132996_) (let () (declare (not safe)) - (_g132906132959_ - _g132907132962_))))) + (_g132903132956_ + _g132904132959_))))) (let () (declare (not safe)) - (_g132906132959_ - _g132907132962_))) + (_g132903132956_ + _g132904132959_))) (let () (declare (not safe)) - (_g132906132959_ _g132907132962_))) + (_g132903132956_ _g132904132959_))) (let () (declare (not safe)) - (_g132906132959_ _g132907132962_))) + (_g132903132956_ _g132904132959_))) (let () (declare (not safe)) - (_g132906132959_ _g132907132962_))))) + (_g132903132956_ _g132904132959_))))) (let () (declare (not safe)) - (_g132906132959_ _g132907132962_))) + (_g132903132956_ _g132904132959_))) (let () (declare (not safe)) - (_g132906132959_ _g132907132962_))) + (_g132903132956_ _g132904132959_))) (let () (declare (not safe)) - (_g132906132959_ _g132907132962_))))) + (_g132903132956_ _g132904132959_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g132906132959_ - _g132907132962_))) + (_g132903132956_ + _g132904132959_))) (let () (declare (not safe)) - (_g132906132959_ - _g132907132962_))))) + (_g132903132956_ + _g132904132959_))))) (let () (declare (not safe)) - (_g132906132959_ _g132907132962_))))) + (_g132903132956_ _g132904132959_))))) (let () (declare (not safe)) - (_g132906132959_ _g132907132962_))))) + (_g132903132956_ _g132904132959_))))) (let () (declare (not safe)) - (_g132906132959_ _g132907132962_))))) + (_g132903132956_ _g132904132959_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g132906132959_ - _g132907132962_))) + (_g132903132956_ + _g132904132959_))) (let () (declare (not safe)) - (_g132906132959_ - _g132907132962_))) + (_g132903132956_ + _g132904132959_))) (let () (declare (not safe)) - (_g132906132959_ - _g132907132962_))))) + (_g132903132956_ + _g132904132959_))))) (let () (declare (not safe)) - (_g132906132959_ _g132907132962_))))) + (_g132903132956_ _g132904132959_))))) (let () (declare (not safe)) - (_g132906132959_ _g132907132962_))) + (_g132903132956_ _g132904132959_))) (let () (declare (not safe)) - (_g132906132959_ _g132907132962_))))) + (_g132903132956_ _g132904132959_))))) (let () (declare (not safe)) - (_g132906132959_ _g132907132962_))))) + (_g132903132956_ _g132904132959_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g132906132959_ - _g132907132962_))))) + (_g132903132956_ + _g132904132959_))))) (let () (declare (not safe)) - (_g132906132959_ _g132907132962_))))) + (_g132903132956_ _g132904132959_))))) (let () (declare (not safe)) - (_g132906132959_ _g132907132962_))) + (_g132903132956_ _g132904132959_))) (let () (declare (not safe)) - (_g132906132959_ _g132907132962_))) + (_g132903132956_ _g132904132959_))) (let () (declare (not safe)) - (_g132906132959_ _g132907132962_))))) + (_g132903132956_ _g132904132959_))))) (let () (declare (not safe)) - (_g132906132959_ _g132907132962_)))))) + (_g132903132956_ _g132904132959_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g132905134090_ _L131404_)) - _stx131332_)))))))) - (___kont134270134271_ (lambda () _stx131332_))) - (let ((___match134299134300_ - (lambda (_e131346131372_ - _hd131345131375_ - _tl131344131377_ - _e131349131380_ - _hd131348131383_ - _tl131347131385_ - _e131352131388_ - _hd131351131391_ - _tl131350131393_ - _e131355131396_ - _hd131354131399_ - _tl131353131401_) - (let ((_L131404_ _hd131354131399_) - (_L131405_ _hd131351131391_)) - (if (let ((__tmp135566 + (_g132902134087_ _L131401_)) + _stx131329_)))))))) + (___kont134267134268_ (lambda () _stx131329_))) + (let ((___match134296134297_ + (lambda (_e131343131369_ + _hd131342131372_ + _tl131341131374_ + _e131346131377_ + _hd131345131380_ + _tl131344131382_ + _e131349131385_ + _hd131348131388_ + _tl131347131390_ + _e131352131393_ + _hd131351131396_ + _tl131350131398_) + (let ((_L131401_ _hd131351131396_) + (_L131402_ _hd131348131388_)) + (if (let ((__tmp135563 (let () (declare (not safe)) - (gxc#identifier-symbol _L131405_)))) + (gxc#identifier-symbol _L131402_)))) (declare (not safe)) - (gxc#optimizer-top-level-method? __tmp135566)) - (___kont134268134269_ _L131404_ _L131405_) - (___kont134270134271_)))))) + (gxc#optimizer-top-level-method? __tmp135563)) + (___kont134265134266_ _L131401_ _L131402_) + (___kont134267134268_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx134266134267_)) - (let ((_e131346131372_ + (gx#stx-pair? ___stx134263134264_)) + (let ((_e131343131369_ (let () (declare (not safe)) - (gx#stx-e ___stx134266134267_)))) - (let ((_tl131344131377_ + (gx#stx-e ___stx134263134264_)))) + (let ((_tl131341131374_ (let () (declare (not safe)) - (##cdr _e131346131372_))) - (_hd131345131375_ + (##cdr _e131343131369_))) + (_hd131342131372_ (let () (declare (not safe)) - (##car _e131346131372_)))) + (##car _e131343131369_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131344131377_)) - (let ((_e131349131380_ + (gx#stx-pair? _tl131341131374_)) + (let ((_e131346131377_ (let () (declare (not safe)) - (gx#stx-e _tl131344131377_)))) - (let ((_tl131347131385_ + (gx#stx-e _tl131341131374_)))) + (let ((_tl131344131382_ (let () (declare (not safe)) - (##cdr _e131349131380_))) - (_hd131348131383_ + (##cdr _e131346131377_))) + (_hd131345131380_ (let () (declare (not safe)) - (##car _e131349131380_)))) + (##car _e131346131377_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd131348131383_)) - (let ((_e131352131388_ + (gx#stx-pair? _hd131345131380_)) + (let ((_e131349131385_ (let () (declare (not safe)) - (gx#stx-e _hd131348131383_)))) - (let ((_tl131350131393_ + (gx#stx-e _hd131345131380_)))) + (let ((_tl131347131390_ (let () (declare (not safe)) - (##cdr _e131352131388_))) - (_hd131351131391_ + (##cdr _e131349131385_))) + (_hd131348131388_ (let () (declare (not safe)) - (##car _e131352131388_)))) + (##car _e131349131385_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl131350131393_)) + (gx#stx-null? _tl131347131390_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl131347131385_)) - (let ((_e131355131396_ + _tl131344131382_)) + (let ((_e131352131393_ (let () (declare (not safe)) (gx#stx-e - _tl131347131385_)))) - (let ((_tl131353131401_ + _tl131344131382_)))) + (let ((_tl131350131398_ (let () (declare (not safe)) - (##cdr _e131355131396_))) - (_hd131354131399_ + (##cdr _e131352131393_))) + (_hd131351131396_ (let () (declare (not safe)) - (##car _e131355131396_)))) + (##car _e131352131393_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl131353131401_)) - (___match134299134300_ - _e131346131372_ - _hd131345131375_ - _tl131344131377_ - _e131349131380_ - _hd131348131383_ - _tl131347131385_ - _e131352131388_ - _hd131351131391_ - _tl131350131393_ - _e131355131396_ - _hd131354131399_ - _tl131353131401_) - (___kont134270134271_)))) - (___kont134270134271_)) - (___kont134270134271_)))) - (___kont134270134271_)))) - (___kont134270134271_)))) - (___kont134270134271_)))))))) + _tl131350131398_)) + (___match134296134297_ + _e131343131369_ + _hd131342131372_ + _tl131341131374_ + _e131346131377_ + _hd131345131380_ + _tl131344131382_ + _e131349131385_ + _hd131348131388_ + _tl131347131390_ + _e131352131393_ + _hd131351131396_ + _tl131350131398_) + (___kont134267134268_)))) + (___kont134267134268_)) + (___kont134267134268_)))) + (___kont134267134268_)))) + (___kont134267134268_)))) + (___kont134267134268_)))))))) (define gxc#collect-object-refs-call% - (lambda (_stx130291_ _self130292_ _methods130293_ _slots130294_) - (let* ((___stx134302134303_ _stx130291_) - (_g130302130524_ + (lambda (_stx130288_ _self130289_ _methods130290_ _slots130291_) + (let* ((___stx134299134300_ _stx130288_) + (_g130299130521_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134302134303_))))) - (let ((___kont134304134305_ - (lambda (_L131281_ _L131282_ _L131283_ _L131284_) - (let ((__tmp135567 - (let () (declare (not safe)) (gx#stx-e _L131282_)))) + ___stx134299134300_))))) + (let ((___kont134301134302_ + (lambda (_L131278_ _L131279_ _L131280_ _L131281_) + (let ((__tmp135564 + (let () (declare (not safe)) (gx#stx-e _L131279_)))) (declare (not safe)) - (hash-put! _methods130293_ __tmp135567 '#t)) + (hash-put! _methods130290_ __tmp135564 '#t)) (for-each - (lambda (_g131317131319_) + (lambda (_g131314131316_) (let () (declare (not safe)) (gxc#compile-e__3 - _g131317131319_ - _self130292_ - _methods130293_ - _slots130294_))) - (let ((__tmp135568 - (lambda (_g131321131324_ _g131322131326_) + _g131314131316_ + _self130289_ + _methods130290_ + _slots130291_))) + (let ((__tmp135565 + (lambda (_g131318131321_ _g131319131323_) (let () (declare (not safe)) - (cons _g131321131324_ _g131322131326_))))) + (cons _g131318131321_ _g131319131323_))))) (declare (not safe)) - (foldr1 __tmp135568 '() _L131281_))))) - (___kont134308134309_ - (lambda (_L131116_ _L131117_ _L131118_ _L131119_ _L131120_) - (let ((__tmp135569 - (let () (declare (not safe)) (gx#stx-e _L131117_)))) + (foldr1 __tmp135565 '() _L131278_))))) + (___kont134305134306_ + (lambda (_L131113_ _L131114_ _L131115_ _L131116_ _L131117_) + (let ((__tmp135566 + (let () (declare (not safe)) (gx#stx-e _L131114_)))) (declare (not safe)) - (hash-put! _methods130293_ __tmp135569 '#t)) + (hash-put! _methods130290_ __tmp135566 '#t)) (for-each - (lambda (_g131160131162_) + (lambda (_g131157131159_) (let () (declare (not safe)) (gxc#compile-e__3 - _g131160131162_ - _self130292_ - _methods130293_ - _slots130294_))) - (let ((__tmp135570 - (lambda (_g131164131167_ _g131165131169_) + _g131157131159_ + _self130289_ + _methods130290_ + _slots130291_))) + (let ((__tmp135567 + (lambda (_g131161131164_ _g131162131166_) (let () (declare (not safe)) - (cons _g131164131167_ _g131165131169_))))) + (cons _g131161131164_ _g131162131166_))))) (declare (not safe)) - (foldr1 __tmp135570 '() _L131116_))))) - (___kont134312134313_ - (lambda (_L130949_ _L130950_ _L130951_) - (let ((__tmp135571 - (let () (declare (not safe)) (gx#stx-e _L130949_)))) + (foldr1 __tmp135567 '() _L131113_))))) + (___kont134309134310_ + (lambda (_L130946_ _L130947_ _L130948_) + (let ((__tmp135568 + (let () (declare (not safe)) (gx#stx-e _L130946_)))) (declare (not safe)) - (hash-put! _slots130294_ __tmp135571 '#t)))) - (___kont134314134315_ - (lambda (_L130826_ _L130827_ _L130828_ _L130829_) - (let ((__tmp135572 - (let () (declare (not safe)) (gx#stx-e _L130827_)))) + (hash-put! _slots130291_ __tmp135568 '#t)))) + (___kont134311134312_ + (lambda (_L130823_ _L130824_ _L130825_ _L130826_) + (let ((__tmp135569 + (let () (declare (not safe)) (gx#stx-e _L130824_)))) (declare (not safe)) - (hash-put! _slots130294_ __tmp135572 '#t)) + (hash-put! _slots130291_ __tmp135569 '#t)) (let () (declare (not safe)) (gxc#compile-e__3 - _L130826_ - _self130292_ - _methods130293_ - _slots130294_)))) - (___kont134316134317_ - (lambda (_L130700_ _L130701_) - (let* ((_accessor130723_ - (let ((__tmp135573 + _L130823_ + _self130289_ + _methods130290_ + _slots130291_)))) + (___kont134313134314_ + (lambda (_L130697_ _L130698_) + (let* ((_accessor130720_ + (let ((__tmp135570 (let () (declare (not safe)) - (gxc#identifier-symbol _L130701_)))) + (gxc#identifier-symbol _L130698_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp135573))) - (_klass130725_ - (let ((__tmp135574 + (gxc#optimizer-resolve-type __tmp135570))) + (_klass130722_ + (let ((__tmp135571 (##structure-ref - _accessor130723_ + _accessor130720_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx130291_ - __tmp135574))) - (_slot130727_ + _stx130288_ + __tmp135571))) + (_slot130724_ (##structure-ref - _accessor130723_ + _accessor130720_ '2 gxc#!accessor::t '#f))) - (if (and (let ((__tmp135576 + (if (and (let ((__tmp135573 (##structure-ref - _accessor130723_ + _accessor130720_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (not __tmp135576)) + (not __tmp135573)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass130725_ - _slot130727_)) + _klass130722_ + _slot130724_)) (##structure-ref - _klass130725_ + _klass130722_ '8 gxc#!class::t '#f))) '#!void - (let ((__tmp135575 + (let ((__tmp135572 (##structure-ref - _accessor130723_ + _accessor130720_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (hash-put! _slots130294_ __tmp135575 '#t)))))) - (___kont134318134319_ - (lambda (_L130600_ _L130601_ _L130602_) - (let* ((_mutator130629_ - (let ((__tmp135577 + (hash-put! _slots130291_ __tmp135572 '#t)))))) + (___kont134315134316_ + (lambda (_L130597_ _L130598_ _L130599_) + (let* ((_mutator130626_ + (let ((__tmp135574 (let () (declare (not safe)) - (gxc#identifier-symbol _L130602_)))) + (gxc#identifier-symbol _L130599_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp135577))) - (_klass130631_ - (let ((__tmp135578 + (gxc#optimizer-resolve-type __tmp135574))) + (_klass130628_ + (let ((__tmp135575 (##structure-ref - _mutator130629_ + _mutator130626_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx130291_ - __tmp135578))) - (_slot130633_ + _stx130288_ + __tmp135575))) + (_slot130630_ (##structure-ref - _mutator130629_ + _mutator130626_ '2 gxc#!mutator::t '#f))) - (if (and (let ((__tmp135579 + (if (and (let ((__tmp135576 (##structure-ref - _mutator130629_ + _mutator130626_ '3 gxc#!mutator::t '#f))) (declare (not safe)) - (not __tmp135579)) + (not __tmp135576)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass130631_ - _slot130633_)) + _klass130628_ + _slot130630_)) (##structure-ref - _klass130631_ + _klass130628_ '8 gxc#!class::t '#f))) '#!void (let () (declare (not safe)) - (hash-put! _slots130294_ _slot130633_ '#t))) + (hash-put! _slots130291_ _slot130630_ '#t))) (let () (declare (not safe)) (gxc#compile-e__3 - _L130600_ - _self130292_ - _methods130293_ - _slots130294_))))) - (___kont134320134321_ + _L130597_ + _self130289_ + _methods130290_ + _slots130291_))))) + (___kont134317134318_ (lambda () (let () (declare (not safe)) (gxc#collect-operands - _stx130291_ - _self130292_ - _methods130293_ - _slots130294_))))) - (let* ((___match134801134802_ - (lambda (_e130498130536_ - _hd130497130539_ - _tl130496130541_ - _e130501130544_ - _hd130500130547_ - _tl130499130549_ - _e130504130552_ - _hd130503130555_ - _tl130502130557_ - _e130507130560_ - _hd130506130563_ - _tl130505130565_ - _e130510130568_ - _hd130509130571_ - _tl130508130573_ - _e130513130576_ - _hd130512130579_ - _tl130511130581_ - _e130516130584_ - _hd130515130587_ - _tl130514130589_ - _e130519130592_ - _hd130518130595_ - _tl130517130597_) - (let ((_L130600_ _hd130518130595_) - (_L130601_ _hd130515130587_) - (_L130602_ _hd130506130563_)) - (if (and (let ((__tmp135580 - (let ((__tmp135581 + _stx130288_ + _self130289_ + _methods130290_ + _slots130291_))))) + (let* ((___match134798134799_ + (lambda (_e130495130533_ + _hd130494130536_ + _tl130493130538_ + _e130498130541_ + _hd130497130544_ + _tl130496130546_ + _e130501130549_ + _hd130500130552_ + _tl130499130554_ + _e130504130557_ + _hd130503130560_ + _tl130502130562_ + _e130507130565_ + _hd130506130568_ + _tl130505130570_ + _e130510130573_ + _hd130509130576_ + _tl130508130578_ + _e130513130581_ + _hd130512130584_ + _tl130511130586_ + _e130516130589_ + _hd130515130592_ + _tl130514130594_) + (let ((_L130597_ _hd130515130592_) + (_L130598_ _hd130512130584_) + (_L130599_ _hd130503130560_)) + (if (and (let ((__tmp135577 + (let ((__tmp135578 (let () (declare (not safe)) (gxc#identifier-symbol - _L130602_)))) + _L130599_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp135581)))) + __tmp135578)))) (declare (not safe)) (##structure-instance-of? - __tmp135580 + __tmp135577 'gxc#!mutator::t)) (let () (declare (not safe)) (gx#free-identifier=? - _L130601_ - _self130292_))) - (___kont134318134319_ - _L130600_ - _L130601_ - _L130602_) - (___kont134320134321_))))) - (___match134799134800_ - (lambda (_e130498130536_ - _hd130497130539_ - _tl130496130541_ - _e130501130544_ - _hd130500130547_ - _tl130499130549_ - _e130504130552_ - _hd130503130555_ - _tl130502130557_ - _e130507130560_ - _hd130506130563_ - _tl130505130565_ - _e130510130568_ - _hd130509130571_ - _tl130508130573_ - _e130513130576_ - _hd130512130579_ - _tl130511130581_ - _e130516130584_ - _hd130515130587_ - _tl130514130589_ - _e130519130592_ - _hd130518130595_ - _tl130517130597_) + _L130598_ + _self130289_))) + (___kont134315134316_ + _L130597_ + _L130598_ + _L130599_) + (___kont134317134318_))))) + (___match134796134797_ + (lambda (_e130495130533_ + _hd130494130536_ + _tl130493130538_ + _e130498130541_ + _hd130497130544_ + _tl130496130546_ + _e130501130549_ + _hd130500130552_ + _tl130499130554_ + _e130504130557_ + _hd130503130560_ + _tl130502130562_ + _e130507130565_ + _hd130506130568_ + _tl130505130570_ + _e130510130573_ + _hd130509130576_ + _tl130508130578_ + _e130513130581_ + _hd130512130584_ + _tl130511130586_ + _e130516130589_ + _hd130515130592_ + _tl130514130594_) (if (let () (declare (not safe)) - (gx#stx-null? _tl130517130597_)) - (___match134801134802_ - _e130498130536_ - _hd130497130539_ - _tl130496130541_ - _e130501130544_ - _hd130500130547_ - _tl130499130549_ - _e130504130552_ - _hd130503130555_ - _tl130502130557_ - _e130507130560_ - _hd130506130563_ - _tl130505130565_ - _e130510130568_ - _hd130509130571_ - _tl130508130573_ - _e130513130576_ - _hd130512130579_ - _tl130511130581_ - _e130516130584_ - _hd130515130587_ - _tl130514130589_ - _e130519130592_ - _hd130518130595_ - _tl130517130597_) - (___kont134320134321_)))) - (___match134793134794_ - (lambda (_e130498130536_ - _hd130497130539_ - _tl130496130541_ - _e130501130544_ - _hd130500130547_ - _tl130499130549_ - _e130504130552_ - _hd130503130555_ - _tl130502130557_ - _e130507130560_ - _hd130506130563_ - _tl130505130565_ - _e130510130568_ - _hd130509130571_ - _tl130508130573_ - _e130513130576_ - _hd130512130579_ - _tl130511130581_ - _e130516130584_ - _hd130515130587_ - _tl130514130589_) + (gx#stx-null? _tl130514130594_)) + (___match134798134799_ + _e130495130533_ + _hd130494130536_ + _tl130493130538_ + _e130498130541_ + _hd130497130544_ + _tl130496130546_ + _e130501130549_ + _hd130500130552_ + _tl130499130554_ + _e130504130557_ + _hd130503130560_ + _tl130502130562_ + _e130507130565_ + _hd130506130568_ + _tl130505130570_ + _e130510130573_ + _hd130509130576_ + _tl130508130578_ + _e130513130581_ + _hd130512130584_ + _tl130511130586_ + _e130516130589_ + _hd130515130592_ + _tl130514130594_) + (___kont134317134318_)))) + (___match134790134791_ + (lambda (_e130495130533_ + _hd130494130536_ + _tl130493130538_ + _e130498130541_ + _hd130497130544_ + _tl130496130546_ + _e130501130549_ + _hd130500130552_ + _tl130499130554_ + _e130504130557_ + _hd130503130560_ + _tl130502130562_ + _e130507130565_ + _hd130506130568_ + _tl130505130570_ + _e130510130573_ + _hd130509130576_ + _tl130508130578_ + _e130513130581_ + _hd130512130584_ + _tl130511130586_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130508130573_)) - (let ((_e130519130592_ + (gx#stx-pair? _tl130505130570_)) + (let ((_e130516130589_ (let () (declare (not safe)) - (gx#stx-e _tl130508130573_)))) - (let ((_tl130517130597_ + (gx#stx-e _tl130505130570_)))) + (let ((_tl130514130594_ (let () (declare (not safe)) - (##cdr _e130519130592_))) - (_hd130518130595_ + (##cdr _e130516130589_))) + (_hd130515130592_ (let () (declare (not safe)) - (##car _e130519130592_)))) + (##car _e130516130589_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl130517130597_)) - (___match134801134802_ - _e130498130536_ - _hd130497130539_ - _tl130496130541_ - _e130501130544_ - _hd130500130547_ - _tl130499130549_ - _e130504130552_ - _hd130503130555_ - _tl130502130557_ - _e130507130560_ - _hd130506130563_ - _tl130505130565_ - _e130510130568_ - _hd130509130571_ - _tl130508130573_ - _e130513130576_ - _hd130512130579_ - _tl130511130581_ - _e130516130584_ - _hd130515130587_ - _tl130514130589_ - _e130519130592_ - _hd130518130595_ - _tl130517130597_) - (___kont134320134321_)))) - (___kont134320134321_)))) - (___match134739134740_ - (lambda (_e130474130644_ - _hd130473130647_ - _tl130472130649_ - _e130477130652_ - _hd130476130655_ - _tl130475130657_ - _e130480130660_ - _hd130479130663_ - _tl130478130665_ - _e130483130668_ - _hd130482130671_ - _tl130481130673_ - _e130486130676_ - _hd130485130679_ - _tl130484130681_ - _e130489130684_ - _hd130488130687_ - _tl130487130689_ - _e130492130692_ - _hd130491130695_ - _tl130490130697_) - (let ((_L130700_ _hd130491130695_) - (_L130701_ _hd130482130671_)) - (if (and (let ((__tmp135582 - (let ((__tmp135583 + (gx#stx-null? _tl130514130594_)) + (___match134798134799_ + _e130495130533_ + _hd130494130536_ + _tl130493130538_ + _e130498130541_ + _hd130497130544_ + _tl130496130546_ + _e130501130549_ + _hd130500130552_ + _tl130499130554_ + _e130504130557_ + _hd130503130560_ + _tl130502130562_ + _e130507130565_ + _hd130506130568_ + _tl130505130570_ + _e130510130573_ + _hd130509130576_ + _tl130508130578_ + _e130513130581_ + _hd130512130584_ + _tl130511130586_ + _e130516130589_ + _hd130515130592_ + _tl130514130594_) + (___kont134317134318_)))) + (___kont134317134318_)))) + (___match134736134737_ + (lambda (_e130471130641_ + _hd130470130644_ + _tl130469130646_ + _e130474130649_ + _hd130473130652_ + _tl130472130654_ + _e130477130657_ + _hd130476130660_ + _tl130475130662_ + _e130480130665_ + _hd130479130668_ + _tl130478130670_ + _e130483130673_ + _hd130482130676_ + _tl130481130678_ + _e130486130681_ + _hd130485130684_ + _tl130484130686_ + _e130489130689_ + _hd130488130692_ + _tl130487130694_) + (let ((_L130697_ _hd130488130692_) + (_L130698_ _hd130479130668_)) + (if (and (let ((__tmp135579 + (let ((__tmp135580 (let () (declare (not safe)) (gxc#identifier-symbol - _L130701_)))) + _L130698_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp135583)))) + __tmp135580)))) (declare (not safe)) (##structure-instance-of? - __tmp135582 + __tmp135579 'gxc#!accessor::t)) (let () (declare (not safe)) (gx#free-identifier=? - _L130700_ - _self130292_))) - (___kont134316134317_ _L130700_ _L130701_) - (___kont134320134321_))))) - (___match134737134738_ - (lambda (_e130474130644_ - _hd130473130647_ - _tl130472130649_ - _e130477130652_ - _hd130476130655_ - _tl130475130657_ - _e130480130660_ - _hd130479130663_ - _tl130478130665_ - _e130483130668_ - _hd130482130671_ - _tl130481130673_ - _e130486130676_ - _hd130485130679_ - _tl130484130681_ - _e130489130684_ - _hd130488130687_ - _tl130487130689_ - _e130492130692_ - _hd130491130695_ - _tl130490130697_) + _L130697_ + _self130289_))) + (___kont134313134314_ _L130697_ _L130698_) + (___kont134317134318_))))) + (___match134734134735_ + (lambda (_e130471130641_ + _hd130470130644_ + _tl130469130646_ + _e130474130649_ + _hd130473130652_ + _tl130472130654_ + _e130477130657_ + _hd130476130660_ + _tl130475130662_ + _e130480130665_ + _hd130479130668_ + _tl130478130670_ + _e130483130673_ + _hd130482130676_ + _tl130481130678_ + _e130486130681_ + _hd130485130684_ + _tl130484130686_ + _e130489130689_ + _hd130488130692_ + _tl130487130694_) (if (let () (declare (not safe)) - (gx#stx-null? _tl130484130681_)) - (___match134739134740_ - _e130474130644_ - _hd130473130647_ - _tl130472130649_ - _e130477130652_ - _hd130476130655_ - _tl130475130657_ - _e130480130660_ - _hd130479130663_ - _tl130478130665_ - _e130483130668_ - _hd130482130671_ - _tl130481130673_ - _e130486130676_ - _hd130485130679_ - _tl130484130681_ - _e130489130684_ - _hd130488130687_ - _tl130487130689_ - _e130492130692_ - _hd130491130695_ - _tl130490130697_) - (___match134793134794_ - _e130474130644_ - _hd130473130647_ - _tl130472130649_ - _e130477130652_ - _hd130476130655_ - _tl130475130657_ - _e130480130660_ - _hd130479130663_ - _tl130478130665_ - _e130483130668_ - _hd130482130671_ - _tl130481130673_ - _e130486130676_ - _hd130485130679_ - _tl130484130681_ - _e130489130684_ - _hd130488130687_ - _tl130487130689_ - _e130492130692_ - _hd130491130695_ - _tl130490130697_)))) - (___match134683134684_ - (lambda (_e130439130738_ - _hd130438130741_ - _tl130437130743_ - _e130442130746_ - _hd130441130749_ - _tl130440130751_ - _e130445130754_ - _hd130444130757_ - _tl130443130759_ - _e130448130762_ - _hd130447130765_ - _tl130446130767_ - _e130451130770_ - _hd130450130773_ - _tl130449130775_ - _e130454130778_ - _hd130453130781_ - _tl130452130783_ - _e130457130786_ - _hd130456130789_ - _tl130455130791_ - _e130460130794_ - _hd130459130797_ - _tl130458130799_ - _e130463130802_ - _hd130462130805_ - _tl130461130807_ - _e130466130810_ - _hd130465130813_ - _tl130464130815_ - _e130469130818_ - _hd130468130821_ - _tl130467130823_) - (let ((_L130826_ _hd130468130821_) - (_L130827_ _hd130465130813_) - (_L130828_ _hd130456130789_) - (_L130829_ _hd130447130765_)) + (gx#stx-null? _tl130481130678_)) + (___match134736134737_ + _e130471130641_ + _hd130470130644_ + _tl130469130646_ + _e130474130649_ + _hd130473130652_ + _tl130472130654_ + _e130477130657_ + _hd130476130660_ + _tl130475130662_ + _e130480130665_ + _hd130479130668_ + _tl130478130670_ + _e130483130673_ + _hd130482130676_ + _tl130481130678_ + _e130486130681_ + _hd130485130684_ + _tl130484130686_ + _e130489130689_ + _hd130488130692_ + _tl130487130694_) + (___match134790134791_ + _e130471130641_ + _hd130470130644_ + _tl130469130646_ + _e130474130649_ + _hd130473130652_ + _tl130472130654_ + _e130477130657_ + _hd130476130660_ + _tl130475130662_ + _e130480130665_ + _hd130479130668_ + _tl130478130670_ + _e130483130673_ + _hd130482130676_ + _tl130481130678_ + _e130486130681_ + _hd130485130684_ + _tl130484130686_ + _e130489130689_ + _hd130488130692_ + _tl130487130694_)))) + (___match134680134681_ + (lambda (_e130436130735_ + _hd130435130738_ + _tl130434130740_ + _e130439130743_ + _hd130438130746_ + _tl130437130748_ + _e130442130751_ + _hd130441130754_ + _tl130440130756_ + _e130445130759_ + _hd130444130762_ + _tl130443130764_ + _e130448130767_ + _hd130447130770_ + _tl130446130772_ + _e130451130775_ + _hd130450130778_ + _tl130449130780_ + _e130454130783_ + _hd130453130786_ + _tl130452130788_ + _e130457130791_ + _hd130456130794_ + _tl130455130796_ + _e130460130799_ + _hd130459130802_ + _tl130458130804_ + _e130463130807_ + _hd130462130810_ + _tl130461130812_ + _e130466130815_ + _hd130465130818_ + _tl130464130820_) + (let ((_L130823_ _hd130465130818_) + (_L130824_ _hd130462130810_) + (_L130825_ _hd130453130786_) + (_L130826_ _hd130444130762_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130829_ + _L130826_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130829_ + _L130826_ 'unchecked-slot-set!))) (let () (declare (not safe)) (gx#free-identifier=? - _L130828_ - _self130292_))) - (___kont134314134315_ - _L130826_ - _L130827_ - _L130828_ - _L130829_) - (___kont134320134321_))))) - (___match134675134676_ - (lambda (_e130439130738_ - _hd130438130741_ - _tl130437130743_ - _e130442130746_ - _hd130441130749_ - _tl130440130751_ - _e130445130754_ - _hd130444130757_ - _tl130443130759_ - _e130448130762_ - _hd130447130765_ - _tl130446130767_ - _e130451130770_ - _hd130450130773_ - _tl130449130775_ - _e130454130778_ - _hd130453130781_ - _tl130452130783_ - _e130457130786_ - _hd130456130789_ - _tl130455130791_ - _e130460130794_ - _hd130459130797_ - _tl130458130799_ - _e130463130802_ - _hd130462130805_ - _tl130461130807_ - _e130466130810_ - _hd130465130813_ - _tl130464130815_) + _L130825_ + _self130289_))) + (___kont134311134312_ + _L130823_ + _L130824_ + _L130825_ + _L130826_) + (___kont134317134318_))))) + (___match134672134673_ + (lambda (_e130436130735_ + _hd130435130738_ + _tl130434130740_ + _e130439130743_ + _hd130438130746_ + _tl130437130748_ + _e130442130751_ + _hd130441130754_ + _tl130440130756_ + _e130445130759_ + _hd130444130762_ + _tl130443130764_ + _e130448130767_ + _hd130447130770_ + _tl130446130772_ + _e130451130775_ + _hd130450130778_ + _tl130449130780_ + _e130454130783_ + _hd130453130786_ + _tl130452130788_ + _e130457130791_ + _hd130456130794_ + _tl130455130796_ + _e130460130799_ + _hd130459130802_ + _tl130458130804_ + _e130463130807_ + _hd130462130810_ + _tl130461130812_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130458130799_)) - (let ((_e130469130818_ + (gx#stx-pair? _tl130455130796_)) + (let ((_e130466130815_ (let () (declare (not safe)) - (gx#stx-e _tl130458130799_)))) - (let ((_tl130467130823_ + (gx#stx-e _tl130455130796_)))) + (let ((_tl130464130820_ (let () (declare (not safe)) - (##cdr _e130469130818_))) - (_hd130468130821_ + (##cdr _e130466130815_))) + (_hd130465130818_ (let () (declare (not safe)) - (##car _e130469130818_)))) + (##car _e130466130815_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl130467130823_)) - (___match134683134684_ - _e130439130738_ - _hd130438130741_ - _tl130437130743_ - _e130442130746_ - _hd130441130749_ - _tl130440130751_ - _e130445130754_ - _hd130444130757_ - _tl130443130759_ - _e130448130762_ - _hd130447130765_ - _tl130446130767_ - _e130451130770_ - _hd130450130773_ - _tl130449130775_ - _e130454130778_ - _hd130453130781_ - _tl130452130783_ - _e130457130786_ - _hd130456130789_ - _tl130455130791_ - _e130460130794_ - _hd130459130797_ - _tl130458130799_ - _e130463130802_ - _hd130462130805_ - _tl130461130807_ - _e130466130810_ - _hd130465130813_ - _tl130464130815_ - _e130469130818_ - _hd130468130821_ - _tl130467130823_) - (___kont134320134321_)))) - (___match134799134800_ - _e130439130738_ - _hd130438130741_ - _tl130437130743_ - _e130442130746_ - _hd130441130749_ - _tl130440130751_ - _e130445130754_ - _hd130444130757_ - _tl130443130759_ - _e130448130762_ - _hd130447130765_ - _tl130446130767_ - _e130451130770_ - _hd130450130773_ - _tl130449130775_ - _e130454130778_ - _hd130453130781_ - _tl130452130783_ - _e130457130786_ - _hd130456130789_ - _tl130455130791_ - _e130460130794_ - _hd130459130797_ - _tl130458130799_)))) - (___match134597134598_ - (lambda (_e130405130869_ - _hd130404130872_ - _tl130403130874_ - _e130408130877_ - _hd130407130880_ - _tl130406130882_ - _e130411130885_ - _hd130410130888_ - _tl130409130890_ - _e130414130893_ - _hd130413130896_ - _tl130412130898_ - _e130417130901_ - _hd130416130904_ - _tl130415130906_ - _e130420130909_ - _hd130419130912_ - _tl130418130914_ - _e130423130917_ - _hd130422130920_ - _tl130421130922_ - _e130426130925_ - _hd130425130928_ - _tl130424130930_ - _e130429130933_ - _hd130428130936_ - _tl130427130938_ - _e130432130941_ - _hd130431130944_ - _tl130430130946_) - (let ((_L130949_ _hd130431130944_) - (_L130950_ _hd130422130920_) - (_L130951_ _hd130413130896_)) + (gx#stx-null? _tl130464130820_)) + (___match134680134681_ + _e130436130735_ + _hd130435130738_ + _tl130434130740_ + _e130439130743_ + _hd130438130746_ + _tl130437130748_ + _e130442130751_ + _hd130441130754_ + _tl130440130756_ + _e130445130759_ + _hd130444130762_ + _tl130443130764_ + _e130448130767_ + _hd130447130770_ + _tl130446130772_ + _e130451130775_ + _hd130450130778_ + _tl130449130780_ + _e130454130783_ + _hd130453130786_ + _tl130452130788_ + _e130457130791_ + _hd130456130794_ + _tl130455130796_ + _e130460130799_ + _hd130459130802_ + _tl130458130804_ + _e130463130807_ + _hd130462130810_ + _tl130461130812_ + _e130466130815_ + _hd130465130818_ + _tl130464130820_) + (___kont134317134318_)))) + (___match134796134797_ + _e130436130735_ + _hd130435130738_ + _tl130434130740_ + _e130439130743_ + _hd130438130746_ + _tl130437130748_ + _e130442130751_ + _hd130441130754_ + _tl130440130756_ + _e130445130759_ + _hd130444130762_ + _tl130443130764_ + _e130448130767_ + _hd130447130770_ + _tl130446130772_ + _e130451130775_ + _hd130450130778_ + _tl130449130780_ + _e130454130783_ + _hd130453130786_ + _tl130452130788_ + _e130457130791_ + _hd130456130794_ + _tl130455130796_)))) + (___match134594134595_ + (lambda (_e130402130866_ + _hd130401130869_ + _tl130400130871_ + _e130405130874_ + _hd130404130877_ + _tl130403130879_ + _e130408130882_ + _hd130407130885_ + _tl130406130887_ + _e130411130890_ + _hd130410130893_ + _tl130409130895_ + _e130414130898_ + _hd130413130901_ + _tl130412130903_ + _e130417130906_ + _hd130416130909_ + _tl130415130911_ + _e130420130914_ + _hd130419130917_ + _tl130418130919_ + _e130423130922_ + _hd130422130925_ + _tl130421130927_ + _e130426130930_ + _hd130425130933_ + _tl130424130935_ + _e130429130938_ + _hd130428130941_ + _tl130427130943_) + (let ((_L130946_ _hd130428130941_) + (_L130947_ _hd130419130917_) + (_L130948_ _hd130410130893_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130951_ + _L130948_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130951_ + _L130948_ 'unchecked-slot-ref))) (let () (declare (not safe)) (gx#free-identifier=? - _L130950_ - _self130292_))) - (___kont134312134313_ - _L130949_ - _L130950_ - _L130951_) - (___match134801134802_ - _e130405130869_ - _hd130404130872_ - _tl130403130874_ - _e130408130877_ - _hd130407130880_ - _tl130406130882_ - _e130411130885_ - _hd130410130888_ - _tl130409130890_ - _e130414130893_ - _hd130413130896_ - _tl130412130898_ - _e130417130901_ - _hd130416130904_ - _tl130415130906_ - _e130420130909_ - _hd130419130912_ - _tl130418130914_ - _e130423130917_ - _hd130422130920_ - _tl130421130922_ - _e130426130925_ - _hd130425130928_ - _tl130424130930_))))) - (___match134595134596_ - (lambda (_e130405130869_ - _hd130404130872_ - _tl130403130874_ - _e130408130877_ - _hd130407130880_ - _tl130406130882_ - _e130411130885_ - _hd130410130888_ - _tl130409130890_ - _e130414130893_ - _hd130413130896_ - _tl130412130898_ - _e130417130901_ - _hd130416130904_ - _tl130415130906_ - _e130420130909_ - _hd130419130912_ - _tl130418130914_ - _e130423130917_ - _hd130422130920_ - _tl130421130922_ - _e130426130925_ - _hd130425130928_ - _tl130424130930_ - _e130429130933_ - _hd130428130936_ - _tl130427130938_ - _e130432130941_ - _hd130431130944_ - _tl130430130946_) + _L130947_ + _self130289_))) + (___kont134309134310_ + _L130946_ + _L130947_ + _L130948_) + (___match134798134799_ + _e130402130866_ + _hd130401130869_ + _tl130400130871_ + _e130405130874_ + _hd130404130877_ + _tl130403130879_ + _e130408130882_ + _hd130407130885_ + _tl130406130887_ + _e130411130890_ + _hd130410130893_ + _tl130409130895_ + _e130414130898_ + _hd130413130901_ + _tl130412130903_ + _e130417130906_ + _hd130416130909_ + _tl130415130911_ + _e130420130914_ + _hd130419130917_ + _tl130418130919_ + _e130423130922_ + _hd130422130925_ + _tl130421130927_))))) + (___match134592134593_ + (lambda (_e130402130866_ + _hd130401130869_ + _tl130400130871_ + _e130405130874_ + _hd130404130877_ + _tl130403130879_ + _e130408130882_ + _hd130407130885_ + _tl130406130887_ + _e130411130890_ + _hd130410130893_ + _tl130409130895_ + _e130414130898_ + _hd130413130901_ + _tl130412130903_ + _e130417130906_ + _hd130416130909_ + _tl130415130911_ + _e130420130914_ + _hd130419130917_ + _tl130418130919_ + _e130423130922_ + _hd130422130925_ + _tl130421130927_ + _e130426130930_ + _hd130425130933_ + _tl130424130935_ + _e130429130938_ + _hd130428130941_ + _tl130427130943_) (if (let () (declare (not safe)) - (gx#stx-null? _tl130424130930_)) - (___match134597134598_ - _e130405130869_ - _hd130404130872_ - _tl130403130874_ - _e130408130877_ - _hd130407130880_ - _tl130406130882_ - _e130411130885_ - _hd130410130888_ - _tl130409130890_ - _e130414130893_ - _hd130413130896_ - _tl130412130898_ - _e130417130901_ - _hd130416130904_ - _tl130415130906_ - _e130420130909_ - _hd130419130912_ - _tl130418130914_ - _e130423130917_ - _hd130422130920_ - _tl130421130922_ - _e130426130925_ - _hd130425130928_ - _tl130424130930_ - _e130429130933_ - _hd130428130936_ - _tl130427130938_ - _e130432130941_ - _hd130431130944_ - _tl130430130946_) - (___match134675134676_ - _e130405130869_ - _hd130404130872_ - _tl130403130874_ - _e130408130877_ - _hd130407130880_ - _tl130406130882_ - _e130411130885_ - _hd130410130888_ - _tl130409130890_ - _e130414130893_ - _hd130413130896_ - _tl130412130898_ - _e130417130901_ - _hd130416130904_ - _tl130415130906_ - _e130420130909_ - _hd130419130912_ - _tl130418130914_ - _e130423130917_ - _hd130422130920_ - _tl130421130922_ - _e130426130925_ - _hd130425130928_ - _tl130424130930_ - _e130429130933_ - _hd130428130936_ - _tl130427130938_ - _e130432130941_ - _hd130431130944_ - _tl130430130946_)))) - (___match134585134586_ - (lambda (_e130405130869_ - _hd130404130872_ - _tl130403130874_ - _e130408130877_ - _hd130407130880_ - _tl130406130882_ - _e130411130885_ - _hd130410130888_ - _tl130409130890_ - _e130414130893_ - _hd130413130896_ - _tl130412130898_ - _e130417130901_ - _hd130416130904_ - _tl130415130906_ - _e130420130909_ - _hd130419130912_ - _tl130418130914_ - _e130423130917_ - _hd130422130920_ - _tl130421130922_ - _e130426130925_ - _hd130425130928_ - _tl130424130930_ - _e130429130933_ - _hd130428130936_ - _tl130427130938_) + (gx#stx-null? _tl130421130927_)) + (___match134594134595_ + _e130402130866_ + _hd130401130869_ + _tl130400130871_ + _e130405130874_ + _hd130404130877_ + _tl130403130879_ + _e130408130882_ + _hd130407130885_ + _tl130406130887_ + _e130411130890_ + _hd130410130893_ + _tl130409130895_ + _e130414130898_ + _hd130413130901_ + _tl130412130903_ + _e130417130906_ + _hd130416130909_ + _tl130415130911_ + _e130420130914_ + _hd130419130917_ + _tl130418130919_ + _e130423130922_ + _hd130422130925_ + _tl130421130927_ + _e130426130930_ + _hd130425130933_ + _tl130424130935_ + _e130429130938_ + _hd130428130941_ + _tl130427130943_) + (___match134672134673_ + _e130402130866_ + _hd130401130869_ + _tl130400130871_ + _e130405130874_ + _hd130404130877_ + _tl130403130879_ + _e130408130882_ + _hd130407130885_ + _tl130406130887_ + _e130411130890_ + _hd130410130893_ + _tl130409130895_ + _e130414130898_ + _hd130413130901_ + _tl130412130903_ + _e130417130906_ + _hd130416130909_ + _tl130415130911_ + _e130420130914_ + _hd130419130917_ + _tl130418130919_ + _e130423130922_ + _hd130422130925_ + _tl130421130927_ + _e130426130930_ + _hd130425130933_ + _tl130424130935_ + _e130429130938_ + _hd130428130941_ + _tl130427130943_)))) + (___match134582134583_ + (lambda (_e130402130866_ + _hd130401130869_ + _tl130400130871_ + _e130405130874_ + _hd130404130877_ + _tl130403130879_ + _e130408130882_ + _hd130407130885_ + _tl130406130887_ + _e130411130890_ + _hd130410130893_ + _tl130409130895_ + _e130414130898_ + _hd130413130901_ + _tl130412130903_ + _e130417130906_ + _hd130416130909_ + _tl130415130911_ + _e130420130914_ + _hd130419130917_ + _tl130418130919_ + _e130423130922_ + _hd130422130925_ + _tl130421130927_ + _e130426130930_ + _hd130425130933_ + _tl130424130935_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd130428130936_)) + (gx#stx-eq? '%#quote _hd130425130933_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130427130938_)) - (let ((_e130432130941_ + (gx#stx-pair? _tl130424130935_)) + (let ((_e130429130938_ (let () (declare (not safe)) - (gx#stx-e _tl130427130938_)))) - (let ((_tl130430130946_ + (gx#stx-e _tl130424130935_)))) + (let ((_tl130427130943_ (let () (declare (not safe)) - (##cdr _e130432130941_))) - (_hd130431130944_ + (##cdr _e130429130938_))) + (_hd130428130941_ (let () (declare (not safe)) - (##car _e130432130941_)))) + (##car _e130429130938_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl130430130946_)) + (gx#stx-null? _tl130427130943_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl130424130930_)) - (___match134597134598_ - _e130405130869_ - _hd130404130872_ - _tl130403130874_ - _e130408130877_ - _hd130407130880_ - _tl130406130882_ - _e130411130885_ - _hd130410130888_ - _tl130409130890_ - _e130414130893_ - _hd130413130896_ - _tl130412130898_ - _e130417130901_ - _hd130416130904_ - _tl130415130906_ - _e130420130909_ - _hd130419130912_ - _tl130418130914_ - _e130423130917_ - _hd130422130920_ - _tl130421130922_ - _e130426130925_ - _hd130425130928_ - _tl130424130930_ - _e130429130933_ - _hd130428130936_ - _tl130427130938_ - _e130432130941_ - _hd130431130944_ - _tl130430130946_) - (___match134675134676_ - _e130405130869_ - _hd130404130872_ - _tl130403130874_ - _e130408130877_ - _hd130407130880_ - _tl130406130882_ - _e130411130885_ - _hd130410130888_ - _tl130409130890_ - _e130414130893_ - _hd130413130896_ - _tl130412130898_ - _e130417130901_ - _hd130416130904_ - _tl130415130906_ - _e130420130909_ - _hd130419130912_ - _tl130418130914_ - _e130423130917_ - _hd130422130920_ - _tl130421130922_ - _e130426130925_ - _hd130425130928_ - _tl130424130930_ - _e130429130933_ - _hd130428130936_ - _tl130427130938_ - _e130432130941_ - _hd130431130944_ - _tl130430130946_)) - (___match134799134800_ - _e130405130869_ - _hd130404130872_ - _tl130403130874_ - _e130408130877_ - _hd130407130880_ - _tl130406130882_ - _e130411130885_ - _hd130410130888_ - _tl130409130890_ - _e130414130893_ - _hd130413130896_ - _tl130412130898_ - _e130417130901_ - _hd130416130904_ - _tl130415130906_ - _e130420130909_ - _hd130419130912_ - _tl130418130914_ - _e130423130917_ - _hd130422130920_ - _tl130421130922_ - _e130426130925_ - _hd130425130928_ - _tl130424130930_)))) - (___match134799134800_ - _e130405130869_ - _hd130404130872_ - _tl130403130874_ - _e130408130877_ - _hd130407130880_ - _tl130406130882_ - _e130411130885_ - _hd130410130888_ - _tl130409130890_ - _e130414130893_ - _hd130413130896_ - _tl130412130898_ - _e130417130901_ - _hd130416130904_ - _tl130415130906_ - _e130420130909_ - _hd130419130912_ - _tl130418130914_ - _e130423130917_ - _hd130422130920_ - _tl130421130922_ - _e130426130925_ - _hd130425130928_ - _tl130424130930_)) - (___match134799134800_ - _e130405130869_ - _hd130404130872_ - _tl130403130874_ - _e130408130877_ - _hd130407130880_ - _tl130406130882_ - _e130411130885_ - _hd130410130888_ - _tl130409130890_ - _e130414130893_ - _hd130413130896_ - _tl130412130898_ - _e130417130901_ - _hd130416130904_ - _tl130415130906_ - _e130420130909_ - _hd130419130912_ - _tl130418130914_ - _e130423130917_ - _hd130422130920_ - _tl130421130922_ - _e130426130925_ - _hd130425130928_ - _tl130424130930_)))) - (___match134517134518_ - (lambda (_e130354130988_ - _hd130353130991_ - _tl130352130993_ - _e130357130996_ - _hd130356130999_ - _tl130355131001_ - _e130360131004_ - _hd130359131007_ - _tl130358131009_ - _e130363131012_ - _hd130362131015_ - _tl130361131017_ - _e130366131020_ - _hd130365131023_ - _tl130364131025_ - _e130369131028_ - _hd130368131031_ - _tl130367131033_ - _e130372131036_ - _hd130371131039_ - _tl130370131041_ - _e130375131044_ - _hd130374131047_ - _tl130373131049_ - _e130378131052_ - _hd130377131055_ - _tl130376131057_ - _e130381131060_ - _hd130380131063_ - _tl130379131065_ - _e130384131068_ - _hd130383131071_ - _tl130382131073_ - _e130387131076_ - _hd130386131079_ - _tl130385131081_ - _e130390131084_ - _hd130389131087_ - _tl130388131089_ - ___splice134310134311_ - _target130391131092_ - _tl130393131094_) - (letrec ((_loop130394131097_ - (lambda (_hd130392131100_ _args130398131102_) + (gx#stx-null? _tl130421130927_)) + (___match134594134595_ + _e130402130866_ + _hd130401130869_ + _tl130400130871_ + _e130405130874_ + _hd130404130877_ + _tl130403130879_ + _e130408130882_ + _hd130407130885_ + _tl130406130887_ + _e130411130890_ + _hd130410130893_ + _tl130409130895_ + _e130414130898_ + _hd130413130901_ + _tl130412130903_ + _e130417130906_ + _hd130416130909_ + _tl130415130911_ + _e130420130914_ + _hd130419130917_ + _tl130418130919_ + _e130423130922_ + _hd130422130925_ + _tl130421130927_ + _e130426130930_ + _hd130425130933_ + _tl130424130935_ + _e130429130938_ + _hd130428130941_ + _tl130427130943_) + (___match134672134673_ + _e130402130866_ + _hd130401130869_ + _tl130400130871_ + _e130405130874_ + _hd130404130877_ + _tl130403130879_ + _e130408130882_ + _hd130407130885_ + _tl130406130887_ + _e130411130890_ + _hd130410130893_ + _tl130409130895_ + _e130414130898_ + _hd130413130901_ + _tl130412130903_ + _e130417130906_ + _hd130416130909_ + _tl130415130911_ + _e130420130914_ + _hd130419130917_ + _tl130418130919_ + _e130423130922_ + _hd130422130925_ + _tl130421130927_ + _e130426130930_ + _hd130425130933_ + _tl130424130935_ + _e130429130938_ + _hd130428130941_ + _tl130427130943_)) + (___match134796134797_ + _e130402130866_ + _hd130401130869_ + _tl130400130871_ + _e130405130874_ + _hd130404130877_ + _tl130403130879_ + _e130408130882_ + _hd130407130885_ + _tl130406130887_ + _e130411130890_ + _hd130410130893_ + _tl130409130895_ + _e130414130898_ + _hd130413130901_ + _tl130412130903_ + _e130417130906_ + _hd130416130909_ + _tl130415130911_ + _e130420130914_ + _hd130419130917_ + _tl130418130919_ + _e130423130922_ + _hd130422130925_ + _tl130421130927_)))) + (___match134796134797_ + _e130402130866_ + _hd130401130869_ + _tl130400130871_ + _e130405130874_ + _hd130404130877_ + _tl130403130879_ + _e130408130882_ + _hd130407130885_ + _tl130406130887_ + _e130411130890_ + _hd130410130893_ + _tl130409130895_ + _e130414130898_ + _hd130413130901_ + _tl130412130903_ + _e130417130906_ + _hd130416130909_ + _tl130415130911_ + _e130420130914_ + _hd130419130917_ + _tl130418130919_ + _e130423130922_ + _hd130422130925_ + _tl130421130927_)) + (___match134796134797_ + _e130402130866_ + _hd130401130869_ + _tl130400130871_ + _e130405130874_ + _hd130404130877_ + _tl130403130879_ + _e130408130882_ + _hd130407130885_ + _tl130406130887_ + _e130411130890_ + _hd130410130893_ + _tl130409130895_ + _e130414130898_ + _hd130413130901_ + _tl130412130903_ + _e130417130906_ + _hd130416130909_ + _tl130415130911_ + _e130420130914_ + _hd130419130917_ + _tl130418130919_ + _e130423130922_ + _hd130422130925_ + _tl130421130927_)))) + (___match134514134515_ + (lambda (_e130351130985_ + _hd130350130988_ + _tl130349130990_ + _e130354130993_ + _hd130353130996_ + _tl130352130998_ + _e130357131001_ + _hd130356131004_ + _tl130355131006_ + _e130360131009_ + _hd130359131012_ + _tl130358131014_ + _e130363131017_ + _hd130362131020_ + _tl130361131022_ + _e130366131025_ + _hd130365131028_ + _tl130364131030_ + _e130369131033_ + _hd130368131036_ + _tl130367131038_ + _e130372131041_ + _hd130371131044_ + _tl130370131046_ + _e130375131049_ + _hd130374131052_ + _tl130373131054_ + _e130378131057_ + _hd130377131060_ + _tl130376131062_ + _e130381131065_ + _hd130380131068_ + _tl130379131070_ + _e130384131073_ + _hd130383131076_ + _tl130382131078_ + _e130387131081_ + _hd130386131084_ + _tl130385131086_ + ___splice134307134308_ + _target130388131089_ + _tl130390131091_) + (letrec ((_loop130391131094_ + (lambda (_hd130389131097_ _args130395131099_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd130392131100_)) - (let ((_e130395131105_ + (gx#stx-pair? _hd130389131097_)) + (let ((_e130392131102_ (let () (declare (not safe)) - (gx#stx-e _hd130392131100_)))) - (let ((_lp-tl130397131110_ + (gx#stx-e _hd130389131097_)))) + (let ((_lp-tl130394131107_ (let () (declare (not safe)) - (##cdr _e130395131105_))) - (_lp-hd130396131108_ + (##cdr _e130392131102_))) + (_lp-hd130393131105_ (let () (declare (not safe)) - (##car _e130395131105_)))) - (let ((__tmp135584 + (##car _e130392131102_)))) + (let ((__tmp135581 (let () (declare (not safe)) - (cons _lp-hd130396131108_ - _args130398131102_)))) + (cons _lp-hd130393131105_ + _args130395131099_)))) (declare (not safe)) - (_loop130394131097_ - _lp-tl130397131110_ - __tmp135584)))) - (let ((_args130399131113_ - (reverse _args130398131102_))) - (let ((_L131116_ _args130399131113_) - (_L131117_ _hd130389131087_) - (_L131118_ _hd130380131063_) - (_L131119_ _hd130371131039_) - (_L131120_ _hd130362131015_)) + (_loop130391131094_ + _lp-tl130394131107_ + __tmp135581)))) + (let ((_args130396131110_ + (reverse _args130395131099_))) + (let ((_L131113_ _args130396131110_) + (_L131114_ _hd130386131084_) + (_L131115_ _hd130377131060_) + (_L131116_ _hd130368131036_) + (_L131117_ _hd130359131012_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131120_ + _L131117_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131119_ + _L131116_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L131118_ - _self130292_))) - (___kont134308134309_ + _L131115_ + _self130289_))) + (___kont134305134306_ + _L131113_ + _L131114_ + _L131115_ _L131116_ - _L131117_ - _L131118_ - _L131119_ - _L131120_) - (___kont134320134321_)))))))) + _L131117_) + (___kont134317134318_)))))))) (let () (declare (not safe)) - (_loop130394131097_ _target130391131092_ '()))))) - (___match134475134476_ - (lambda (_e130354130988_ - _hd130353130991_ - _tl130352130993_ - _e130357130996_ - _hd130356130999_ - _tl130355131001_ - _e130360131004_ - _hd130359131007_ - _tl130358131009_ - _e130363131012_ - _hd130362131015_ - _tl130361131017_ - _e130366131020_ - _hd130365131023_ - _tl130364131025_ - _e130369131028_ - _hd130368131031_ - _tl130367131033_ - _e130372131036_ - _hd130371131039_ - _tl130370131041_ - _e130375131044_ - _hd130374131047_ - _tl130373131049_ - _e130378131052_ - _hd130377131055_ - _tl130376131057_) + (_loop130391131094_ _target130388131089_ '()))))) + (___match134472134473_ + (lambda (_e130351130985_ + _hd130350130988_ + _tl130349130990_ + _e130354130993_ + _hd130353130996_ + _tl130352130998_ + _e130357131001_ + _hd130356131004_ + _tl130355131006_ + _e130360131009_ + _hd130359131012_ + _tl130358131014_ + _e130363131017_ + _hd130362131020_ + _tl130361131022_ + _e130366131025_ + _hd130365131028_ + _tl130364131030_ + _e130369131033_ + _hd130368131036_ + _tl130367131038_ + _e130372131041_ + _hd130371131044_ + _tl130370131046_ + _e130375131049_ + _hd130374131052_ + _tl130373131054_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd130377131055_)) + (gx#stx-eq? '%#ref _hd130374131052_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130376131057_)) - (let ((_e130381131060_ + (gx#stx-pair? _tl130373131054_)) + (let ((_e130378131057_ (let () (declare (not safe)) - (gx#stx-e _tl130376131057_)))) - (let ((_tl130379131065_ + (gx#stx-e _tl130373131054_)))) + (let ((_tl130376131062_ (let () (declare (not safe)) - (##cdr _e130381131060_))) - (_hd130380131063_ + (##cdr _e130378131057_))) + (_hd130377131060_ (let () (declare (not safe)) - (##car _e130381131060_)))) + (##car _e130378131057_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl130379131065_)) + (gx#stx-null? _tl130376131062_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130373131049_)) - (let ((_e130384131068_ + (gx#stx-pair? _tl130370131046_)) + (let ((_e130381131065_ (let () (declare (not safe)) (gx#stx-e - _tl130373131049_)))) - (let ((_tl130382131073_ + _tl130370131046_)))) + (let ((_tl130379131070_ (let () (declare (not safe)) - (##cdr _e130384131068_))) - (_hd130383131071_ + (##cdr _e130381131065_))) + (_hd130380131068_ (let () (declare (not safe)) - (##car _e130384131068_)))) + (##car _e130381131065_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd130383131071_)) - (let ((_e130387131076_ + _hd130380131068_)) + (let ((_e130384131073_ (let () (declare (not safe)) (gx#stx-e - _hd130383131071_)))) - (let ((_tl130385131081_ + _hd130380131068_)))) + (let ((_tl130382131078_ (let () (declare (not safe)) - (##cdr _e130387131076_))) - (_hd130386131079_ + (##cdr _e130384131073_))) + (_hd130383131076_ (let () (declare (not safe)) - (##car _e130387131076_)))) + (##car _e130384131073_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd130386131079_)) + _hd130383131076_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _hd130386131079_)) + (gx#stx-eq? '%#quote _hd130383131076_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130385131081_)) - (let ((_e130390131084_ + (gx#stx-pair? _tl130382131078_)) + (let ((_e130387131081_ (let () (declare (not safe)) - (gx#stx-e _tl130385131081_)))) - (let ((_tl130388131089_ + (gx#stx-e _tl130382131078_)))) + (let ((_tl130385131086_ (let () (declare (not safe)) - (##cdr _e130390131084_))) - (_hd130389131087_ + (##cdr _e130387131081_))) + (_hd130386131084_ (let () (declare (not safe)) - (##car _e130390131084_)))) + (##car _e130387131081_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl130388131089_)) + (gx#stx-null? _tl130385131086_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl130382131073_)) - (let ((___splice134310134311_ + (gx#stx-pair/null? _tl130379131070_)) + (let ((___splice134307134308_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl130382131073_ + _tl130379131070_ '0)))) - (let ((_tl130393131094_ + (let ((_tl130390131091_ (let () (declare (not safe)) (##vector-ref - ___splice134310134311_ + ___splice134307134308_ '1))) - (_target130391131092_ + (_target130388131089_ (let () (declare (not safe)) (##vector-ref - ___splice134310134311_ + ___splice134307134308_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl130393131094_)) - (___match134517134518_ - _e130354130988_ - _hd130353130991_ - _tl130352130993_ - _e130357130996_ - _hd130356130999_ - _tl130355131001_ - _e130360131004_ - _hd130359131007_ - _tl130358131009_ - _e130363131012_ - _hd130362131015_ - _tl130361131017_ - _e130366131020_ - _hd130365131023_ - _tl130364131025_ - _e130369131028_ - _hd130368131031_ - _tl130367131033_ - _e130372131036_ - _hd130371131039_ - _tl130370131041_ - _e130375131044_ - _hd130374131047_ - _tl130373131049_ - _e130378131052_ - _hd130377131055_ - _tl130376131057_ - _e130381131060_ - _hd130380131063_ - _tl130379131065_ - _e130384131068_ - _hd130383131071_ - _tl130382131073_ - _e130387131076_ - _hd130386131079_ - _tl130385131081_ - _e130390131084_ - _hd130389131087_ - _tl130388131089_ - ___splice134310134311_ - _target130391131092_ - _tl130393131094_) - (___kont134320134321_)))) - (___kont134320134321_)) - (___kont134320134321_)))) - (___kont134320134321_)) - (___kont134320134321_)) - (___kont134320134321_)))) + _tl130390131091_)) + (___match134514134515_ + _e130351130985_ + _hd130350130988_ + _tl130349130990_ + _e130354130993_ + _hd130353130996_ + _tl130352130998_ + _e130357131001_ + _hd130356131004_ + _tl130355131006_ + _e130360131009_ + _hd130359131012_ + _tl130358131014_ + _e130363131017_ + _hd130362131020_ + _tl130361131022_ + _e130366131025_ + _hd130365131028_ + _tl130364131030_ + _e130369131033_ + _hd130368131036_ + _tl130367131038_ + _e130372131041_ + _hd130371131044_ + _tl130370131046_ + _e130375131049_ + _hd130374131052_ + _tl130373131054_ + _e130378131057_ + _hd130377131060_ + _tl130376131062_ + _e130381131065_ + _hd130380131068_ + _tl130379131070_ + _e130384131073_ + _hd130383131076_ + _tl130382131078_ + _e130387131081_ + _hd130386131084_ + _tl130385131086_ + ___splice134307134308_ + _target130388131089_ + _tl130390131091_) + (___kont134317134318_)))) + (___kont134317134318_)) + (___kont134317134318_)))) + (___kont134317134318_)) + (___kont134317134318_)) + (___kont134317134318_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134320134321_)))) - (___match134799134800_ - _e130354130988_ - _hd130353130991_ - _tl130352130993_ - _e130357130996_ - _hd130356130999_ - _tl130355131001_ - _e130360131004_ - _hd130359131007_ - _tl130358131009_ - _e130363131012_ - _hd130362131015_ - _tl130361131017_ - _e130366131020_ - _hd130365131023_ - _tl130364131025_ - _e130369131028_ - _hd130368131031_ - _tl130367131033_ - _e130372131036_ - _hd130371131039_ - _tl130370131041_ - _e130375131044_ - _hd130374131047_ - _tl130373131049_)) - (___match134799134800_ - _e130354130988_ - _hd130353130991_ - _tl130352130993_ - _e130357130996_ - _hd130356130999_ - _tl130355131001_ - _e130360131004_ - _hd130359131007_ - _tl130358131009_ - _e130363131012_ - _hd130362131015_ - _tl130361131017_ - _e130366131020_ - _hd130365131023_ - _tl130364131025_ - _e130369131028_ - _hd130368131031_ - _tl130367131033_ - _e130372131036_ - _hd130371131039_ - _tl130370131041_ - _e130375131044_ - _hd130374131047_ - _tl130373131049_)))) - (___match134799134800_ - _e130354130988_ - _hd130353130991_ - _tl130352130993_ - _e130357130996_ - _hd130356130999_ - _tl130355131001_ - _e130360131004_ - _hd130359131007_ - _tl130358131009_ - _e130363131012_ - _hd130362131015_ - _tl130361131017_ - _e130366131020_ - _hd130365131023_ - _tl130364131025_ - _e130369131028_ - _hd130368131031_ - _tl130367131033_ - _e130372131036_ - _hd130371131039_ - _tl130370131041_ - _e130375131044_ - _hd130374131047_ - _tl130373131049_)) - (___match134585134586_ - _e130354130988_ - _hd130353130991_ - _tl130352130993_ - _e130357130996_ - _hd130356130999_ - _tl130355131001_ - _e130360131004_ - _hd130359131007_ - _tl130358131009_ - _e130363131012_ - _hd130362131015_ - _tl130361131017_ - _e130366131020_ - _hd130365131023_ - _tl130364131025_ - _e130369131028_ - _hd130368131031_ - _tl130367131033_ - _e130372131036_ - _hd130371131039_ - _tl130370131041_ - _e130375131044_ - _hd130374131047_ - _tl130373131049_ - _e130378131052_ - _hd130377131055_ - _tl130376131057_)))) - (___match134407134408_ - (lambda (_e130310131177_ - _hd130309131180_ - _tl130308131182_ - _e130313131185_ - _hd130312131188_ - _tl130311131190_ - _e130316131193_ - _hd130315131196_ - _tl130314131198_ - _e130319131201_ - _hd130318131204_ - _tl130317131206_ - _e130322131209_ - _hd130321131212_ - _tl130320131214_ - _e130325131217_ - _hd130324131220_ - _tl130323131222_ - _e130328131225_ - _hd130327131228_ - _tl130326131230_ - _e130331131233_ - _hd130330131236_ - _tl130329131238_ - _e130334131241_ - _hd130333131244_ - _tl130332131246_ - _e130337131249_ - _hd130336131252_ - _tl130335131254_ - ___splice134306134307_ - _target130338131257_ - _tl130340131259_) - (letrec ((_loop130341131262_ - (lambda (_hd130339131265_ _args130345131267_) + (___kont134317134318_)))) + (___match134796134797_ + _e130351130985_ + _hd130350130988_ + _tl130349130990_ + _e130354130993_ + _hd130353130996_ + _tl130352130998_ + _e130357131001_ + _hd130356131004_ + _tl130355131006_ + _e130360131009_ + _hd130359131012_ + _tl130358131014_ + _e130363131017_ + _hd130362131020_ + _tl130361131022_ + _e130366131025_ + _hd130365131028_ + _tl130364131030_ + _e130369131033_ + _hd130368131036_ + _tl130367131038_ + _e130372131041_ + _hd130371131044_ + _tl130370131046_)) + (___match134796134797_ + _e130351130985_ + _hd130350130988_ + _tl130349130990_ + _e130354130993_ + _hd130353130996_ + _tl130352130998_ + _e130357131001_ + _hd130356131004_ + _tl130355131006_ + _e130360131009_ + _hd130359131012_ + _tl130358131014_ + _e130363131017_ + _hd130362131020_ + _tl130361131022_ + _e130366131025_ + _hd130365131028_ + _tl130364131030_ + _e130369131033_ + _hd130368131036_ + _tl130367131038_ + _e130372131041_ + _hd130371131044_ + _tl130370131046_)))) + (___match134796134797_ + _e130351130985_ + _hd130350130988_ + _tl130349130990_ + _e130354130993_ + _hd130353130996_ + _tl130352130998_ + _e130357131001_ + _hd130356131004_ + _tl130355131006_ + _e130360131009_ + _hd130359131012_ + _tl130358131014_ + _e130363131017_ + _hd130362131020_ + _tl130361131022_ + _e130366131025_ + _hd130365131028_ + _tl130364131030_ + _e130369131033_ + _hd130368131036_ + _tl130367131038_ + _e130372131041_ + _hd130371131044_ + _tl130370131046_)) + (___match134582134583_ + _e130351130985_ + _hd130350130988_ + _tl130349130990_ + _e130354130993_ + _hd130353130996_ + _tl130352130998_ + _e130357131001_ + _hd130356131004_ + _tl130355131006_ + _e130360131009_ + _hd130359131012_ + _tl130358131014_ + _e130363131017_ + _hd130362131020_ + _tl130361131022_ + _e130366131025_ + _hd130365131028_ + _tl130364131030_ + _e130369131033_ + _hd130368131036_ + _tl130367131038_ + _e130372131041_ + _hd130371131044_ + _tl130370131046_ + _e130375131049_ + _hd130374131052_ + _tl130373131054_)))) + (___match134404134405_ + (lambda (_e130307131174_ + _hd130306131177_ + _tl130305131179_ + _e130310131182_ + _hd130309131185_ + _tl130308131187_ + _e130313131190_ + _hd130312131193_ + _tl130311131195_ + _e130316131198_ + _hd130315131201_ + _tl130314131203_ + _e130319131206_ + _hd130318131209_ + _tl130317131211_ + _e130322131214_ + _hd130321131217_ + _tl130320131219_ + _e130325131222_ + _hd130324131225_ + _tl130323131227_ + _e130328131230_ + _hd130327131233_ + _tl130326131235_ + _e130331131238_ + _hd130330131241_ + _tl130329131243_ + _e130334131246_ + _hd130333131249_ + _tl130332131251_ + ___splice134303134304_ + _target130335131254_ + _tl130337131256_) + (letrec ((_loop130338131259_ + (lambda (_hd130336131262_ _args130342131264_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd130339131265_)) - (let ((_e130342131270_ + (gx#stx-pair? _hd130336131262_)) + (let ((_e130339131267_ (let () (declare (not safe)) - (gx#stx-e _hd130339131265_)))) - (let ((_lp-tl130344131275_ + (gx#stx-e _hd130336131262_)))) + (let ((_lp-tl130341131272_ (let () (declare (not safe)) - (##cdr _e130342131270_))) - (_lp-hd130343131273_ + (##cdr _e130339131267_))) + (_lp-hd130340131270_ (let () (declare (not safe)) - (##car _e130342131270_)))) - (let ((__tmp135585 + (##car _e130339131267_)))) + (let ((__tmp135582 (let () (declare (not safe)) - (cons _lp-hd130343131273_ - _args130345131267_)))) + (cons _lp-hd130340131270_ + _args130342131264_)))) (declare (not safe)) - (_loop130341131262_ - _lp-tl130344131275_ - __tmp135585)))) - (let ((_args130346131278_ - (reverse _args130345131267_))) - (let ((_L131281_ _args130346131278_) - (_L131282_ _hd130336131252_) - (_L131283_ _hd130327131228_) - (_L131284_ _hd130318131204_)) + (_loop130338131259_ + _lp-tl130341131272_ + __tmp135582)))) + (let ((_args130343131275_ + (reverse _args130342131264_))) + (let ((_L131278_ _args130343131275_) + (_L131279_ _hd130333131249_) + (_L131280_ _hd130324131225_) + (_L131281_ _hd130315131201_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131284_ + _L131281_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L131283_ - _self130292_))) - (___kont134304134305_ - _L131281_ - _L131282_ - _L131283_ - _L131284_) - (___match134595134596_ - _e130310131177_ - _hd130309131180_ - _tl130308131182_ - _e130313131185_ - _hd130312131188_ - _tl130311131190_ - _e130316131193_ - _hd130315131196_ - _tl130314131198_ - _e130319131201_ - _hd130318131204_ - _tl130317131206_ - _e130322131209_ - _hd130321131212_ - _tl130320131214_ - _e130325131217_ - _hd130324131220_ - _tl130323131222_ - _e130328131225_ - _hd130327131228_ - _tl130326131230_ - _e130331131233_ - _hd130330131236_ - _tl130329131238_ - _e130334131241_ - _hd130333131244_ - _tl130332131246_ - _e130337131249_ - _hd130336131252_ - _tl130335131254_)))))))) + _L131280_ + _self130289_))) + (___kont134301134302_ + _L131278_ + _L131279_ + _L131280_ + _L131281_) + (___match134592134593_ + _e130307131174_ + _hd130306131177_ + _tl130305131179_ + _e130310131182_ + _hd130309131185_ + _tl130308131187_ + _e130313131190_ + _hd130312131193_ + _tl130311131195_ + _e130316131198_ + _hd130315131201_ + _tl130314131203_ + _e130319131206_ + _hd130318131209_ + _tl130317131211_ + _e130322131214_ + _hd130321131217_ + _tl130320131219_ + _e130325131222_ + _hd130324131225_ + _tl130323131227_ + _e130328131230_ + _hd130327131233_ + _tl130326131235_ + _e130331131238_ + _hd130330131241_ + _tl130329131243_ + _e130334131246_ + _hd130333131249_ + _tl130332131251_)))))))) (let () (declare (not safe)) - (_loop130341131262_ _target130338131257_ '())))))) + (_loop130338131259_ _target130335131254_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx134302134303_)) - (let ((_e130310131177_ + (gx#stx-pair? ___stx134299134300_)) + (let ((_e130307131174_ (let () (declare (not safe)) - (gx#stx-e ___stx134302134303_)))) - (let ((_tl130308131182_ + (gx#stx-e ___stx134299134300_)))) + (let ((_tl130305131179_ (let () (declare (not safe)) - (##cdr _e130310131177_))) - (_hd130309131180_ + (##cdr _e130307131174_))) + (_hd130306131177_ (let () (declare (not safe)) - (##car _e130310131177_)))) + (##car _e130307131174_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130308131182_)) - (let ((_e130313131185_ + (gx#stx-pair? _tl130305131179_)) + (let ((_e130310131182_ (let () (declare (not safe)) - (gx#stx-e _tl130308131182_)))) - (let ((_tl130311131190_ + (gx#stx-e _tl130305131179_)))) + (let ((_tl130308131187_ (let () (declare (not safe)) - (##cdr _e130313131185_))) - (_hd130312131188_ + (##cdr _e130310131182_))) + (_hd130309131185_ (let () (declare (not safe)) - (##car _e130313131185_)))) + (##car _e130310131182_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd130312131188_)) - (let ((_e130316131193_ + (gx#stx-pair? _hd130309131185_)) + (let ((_e130313131190_ (let () (declare (not safe)) - (gx#stx-e _hd130312131188_)))) - (let ((_tl130314131198_ + (gx#stx-e _hd130309131185_)))) + (let ((_tl130311131195_ (let () (declare (not safe)) - (##cdr _e130316131193_))) - (_hd130315131196_ + (##cdr _e130313131190_))) + (_hd130312131193_ (let () (declare (not safe)) - (##car _e130316131193_)))) + (##car _e130313131190_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd130315131196_)) + (gx#identifier? _hd130312131193_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd130315131196_)) + _hd130312131193_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl130314131198_)) - (let ((_e130319131201_ + _tl130311131195_)) + (let ((_e130316131198_ (let () (declare (not safe)) (gx#stx-e - _tl130314131198_)))) - (let ((_tl130317131206_ + _tl130311131195_)))) + (let ((_tl130314131203_ (let () (declare (not safe)) - (##cdr _e130319131201_))) - (_hd130318131204_ + (##cdr _e130316131198_))) + (_hd130315131201_ (let () (declare (not safe)) - (##car _e130319131201_)))) + (##car _e130316131198_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl130317131206_)) + _tl130314131203_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl130311131190_)) - (let ((_e130322131209_ + (gx#stx-pair? _tl130308131187_)) + (let ((_e130319131206_ (let () (declare (not safe)) - (gx#stx-e _tl130311131190_)))) - (let ((_tl130320131214_ + (gx#stx-e _tl130308131187_)))) + (let ((_tl130317131211_ (let () (declare (not safe)) - (##cdr _e130322131209_))) - (_hd130321131212_ + (##cdr _e130319131206_))) + (_hd130318131209_ (let () (declare (not safe)) - (##car _e130322131209_)))) + (##car _e130319131206_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd130321131212_)) - (let ((_e130325131217_ + (gx#stx-pair? _hd130318131209_)) + (let ((_e130322131214_ (let () (declare (not safe)) - (gx#stx-e _hd130321131212_)))) - (let ((_tl130323131222_ + (gx#stx-e _hd130318131209_)))) + (let ((_tl130320131219_ (let () (declare (not safe)) - (##cdr _e130325131217_))) - (_hd130324131220_ + (##cdr _e130322131214_))) + (_hd130321131217_ (let () (declare (not safe)) - (##car _e130325131217_)))) + (##car _e130322131214_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd130324131220_)) + (gx#identifier? _hd130321131217_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd130324131220_)) + _hd130321131217_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl130323131222_)) - (let ((_e130328131225_ + _tl130320131219_)) + (let ((_e130325131222_ (let () (declare (not safe)) (gx#stx-e - _tl130323131222_)))) - (let ((_tl130326131230_ + _tl130320131219_)))) + (let ((_tl130323131227_ (let () (declare (not safe)) - (##cdr _e130328131225_))) - (_hd130327131228_ + (##cdr _e130325131222_))) + (_hd130324131225_ (let () (declare (not safe)) - (##car _e130328131225_)))) + (##car _e130325131222_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl130326131230_)) + _tl130323131227_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl130320131214_)) - (let ((_e130331131233_ + _tl130317131211_)) + (let ((_e130328131230_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl130320131214_)))) - (let ((_tl130329131238_ + (gx#stx-e _tl130317131211_)))) + (let ((_tl130326131235_ (let () (declare (not safe)) - (##cdr _e130331131233_))) - (_hd130330131236_ + (##cdr _e130328131230_))) + (_hd130327131233_ (let () (declare (not safe)) - (##car _e130331131233_)))) + (##car _e130328131230_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd130330131236_)) - (let ((_e130334131241_ + (gx#stx-pair? _hd130327131233_)) + (let ((_e130331131238_ (let () (declare (not safe)) - (gx#stx-e _hd130330131236_)))) - (let ((_tl130332131246_ + (gx#stx-e _hd130327131233_)))) + (let ((_tl130329131243_ (let () (declare (not safe)) - (##cdr _e130334131241_))) - (_hd130333131244_ + (##cdr _e130331131238_))) + (_hd130330131241_ (let () (declare (not safe)) - (##car _e130334131241_)))) + (##car _e130331131238_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd130333131244_)) + (gx#identifier? _hd130330131241_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd130333131244_)) + (gx#stx-eq? '%#quote _hd130330131241_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130332131246_)) - (let ((_e130337131249_ + (gx#stx-pair? _tl130329131243_)) + (let ((_e130334131246_ (let () (declare (not safe)) (gx#stx-e - _tl130332131246_)))) - (let ((_tl130335131254_ + _tl130329131243_)))) + (let ((_tl130332131251_ (let () (declare (not safe)) - (##cdr _e130337131249_))) - (_hd130336131252_ + (##cdr _e130334131246_))) + (_hd130333131249_ (let () (declare (not safe)) - (##car _e130337131249_)))) + (##car _e130334131246_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl130335131254_)) + _tl130332131251_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl130329131238_)) - (let ((___splice134306134307_ + _tl130326131235_)) + (let ((___splice134303134304_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl130329131238_ '0)))) - (let ((_tl130340131259_ + (gx#syntax-split-splice _tl130326131235_ '0)))) + (let ((_tl130337131256_ (let () (declare (not safe)) - (##vector-ref ___splice134306134307_ '1))) - (_target130338131257_ + (##vector-ref ___splice134303134304_ '1))) + (_target130335131254_ (let () (declare (not safe)) - (##vector-ref ___splice134306134307_ '0)))) + (##vector-ref ___splice134303134304_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl130340131259_)) - (___match134407134408_ - _e130310131177_ - _hd130309131180_ - _tl130308131182_ - _e130313131185_ - _hd130312131188_ - _tl130311131190_ - _e130316131193_ - _hd130315131196_ - _tl130314131198_ - _e130319131201_ - _hd130318131204_ - _tl130317131206_ - _e130322131209_ - _hd130321131212_ - _tl130320131214_ - _e130325131217_ - _hd130324131220_ - _tl130323131222_ - _e130328131225_ - _hd130327131228_ - _tl130326131230_ - _e130331131233_ - _hd130330131236_ - _tl130329131238_ - _e130334131241_ - _hd130333131244_ - _tl130332131246_ - _e130337131249_ - _hd130336131252_ - _tl130335131254_ - ___splice134306134307_ - _target130338131257_ - _tl130340131259_) - (___match134595134596_ - _e130310131177_ - _hd130309131180_ - _tl130308131182_ - _e130313131185_ - _hd130312131188_ - _tl130311131190_ - _e130316131193_ - _hd130315131196_ - _tl130314131198_ - _e130319131201_ - _hd130318131204_ - _tl130317131206_ - _e130322131209_ - _hd130321131212_ - _tl130320131214_ - _e130325131217_ - _hd130324131220_ - _tl130323131222_ - _e130328131225_ - _hd130327131228_ - _tl130326131230_ - _e130331131233_ - _hd130330131236_ - _tl130329131238_ - _e130334131241_ - _hd130333131244_ - _tl130332131246_ - _e130337131249_ - _hd130336131252_ - _tl130335131254_)))) - (___match134595134596_ - _e130310131177_ - _hd130309131180_ - _tl130308131182_ - _e130313131185_ - _hd130312131188_ - _tl130311131190_ - _e130316131193_ - _hd130315131196_ - _tl130314131198_ - _e130319131201_ - _hd130318131204_ - _tl130317131206_ - _e130322131209_ - _hd130321131212_ - _tl130320131214_ - _e130325131217_ - _hd130324131220_ - _tl130323131222_ - _e130328131225_ - _hd130327131228_ - _tl130326131230_ - _e130331131233_ - _hd130330131236_ - _tl130329131238_ - _e130334131241_ - _hd130333131244_ - _tl130332131246_ - _e130337131249_ - _hd130336131252_ - _tl130335131254_)) + (gx#stx-null? _tl130337131256_)) + (___match134404134405_ + _e130307131174_ + _hd130306131177_ + _tl130305131179_ + _e130310131182_ + _hd130309131185_ + _tl130308131187_ + _e130313131190_ + _hd130312131193_ + _tl130311131195_ + _e130316131198_ + _hd130315131201_ + _tl130314131203_ + _e130319131206_ + _hd130318131209_ + _tl130317131211_ + _e130322131214_ + _hd130321131217_ + _tl130320131219_ + _e130325131222_ + _hd130324131225_ + _tl130323131227_ + _e130328131230_ + _hd130327131233_ + _tl130326131235_ + _e130331131238_ + _hd130330131241_ + _tl130329131243_ + _e130334131246_ + _hd130333131249_ + _tl130332131251_ + ___splice134303134304_ + _target130335131254_ + _tl130337131256_) + (___match134592134593_ + _e130307131174_ + _hd130306131177_ + _tl130305131179_ + _e130310131182_ + _hd130309131185_ + _tl130308131187_ + _e130313131190_ + _hd130312131193_ + _tl130311131195_ + _e130316131198_ + _hd130315131201_ + _tl130314131203_ + _e130319131206_ + _hd130318131209_ + _tl130317131211_ + _e130322131214_ + _hd130321131217_ + _tl130320131219_ + _e130325131222_ + _hd130324131225_ + _tl130323131227_ + _e130328131230_ + _hd130327131233_ + _tl130326131235_ + _e130331131238_ + _hd130330131241_ + _tl130329131243_ + _e130334131246_ + _hd130333131249_ + _tl130332131251_)))) + (___match134592134593_ + _e130307131174_ + _hd130306131177_ + _tl130305131179_ + _e130310131182_ + _hd130309131185_ + _tl130308131187_ + _e130313131190_ + _hd130312131193_ + _tl130311131195_ + _e130316131198_ + _hd130315131201_ + _tl130314131203_ + _e130319131206_ + _hd130318131209_ + _tl130317131211_ + _e130322131214_ + _hd130321131217_ + _tl130320131219_ + _e130325131222_ + _hd130324131225_ + _tl130323131227_ + _e130328131230_ + _hd130327131233_ + _tl130326131235_ + _e130331131238_ + _hd130330131241_ + _tl130329131243_ + _e130334131246_ + _hd130333131249_ + _tl130332131251_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match134799134800_ - _e130310131177_ - _hd130309131180_ - _tl130308131182_ - _e130313131185_ - _hd130312131188_ - _tl130311131190_ - _e130316131193_ - _hd130315131196_ - _tl130314131198_ - _e130319131201_ - _hd130318131204_ - _tl130317131206_ - _e130322131209_ - _hd130321131212_ - _tl130320131214_ - _e130325131217_ - _hd130324131220_ - _tl130323131222_ - _e130328131225_ - _hd130327131228_ - _tl130326131230_ - _e130331131233_ - _hd130330131236_ - _tl130329131238_)))) - (___match134799134800_ - _e130310131177_ - _hd130309131180_ - _tl130308131182_ - _e130313131185_ - _hd130312131188_ - _tl130311131190_ - _e130316131193_ - _hd130315131196_ - _tl130314131198_ - _e130319131201_ - _hd130318131204_ - _tl130317131206_ - _e130322131209_ - _hd130321131212_ - _tl130320131214_ - _e130325131217_ - _hd130324131220_ - _tl130323131222_ - _e130328131225_ - _hd130327131228_ - _tl130326131230_ - _e130331131233_ - _hd130330131236_ - _tl130329131238_)) - (___match134475134476_ - _e130310131177_ - _hd130309131180_ - _tl130308131182_ - _e130313131185_ - _hd130312131188_ - _tl130311131190_ - _e130316131193_ - _hd130315131196_ - _tl130314131198_ - _e130319131201_ - _hd130318131204_ - _tl130317131206_ - _e130322131209_ - _hd130321131212_ - _tl130320131214_ - _e130325131217_ - _hd130324131220_ - _tl130323131222_ - _e130328131225_ - _hd130327131228_ - _tl130326131230_ - _e130331131233_ - _hd130330131236_ - _tl130329131238_ - _e130334131241_ - _hd130333131244_ - _tl130332131246_)) - (___match134799134800_ - _e130310131177_ - _hd130309131180_ - _tl130308131182_ - _e130313131185_ - _hd130312131188_ - _tl130311131190_ - _e130316131193_ - _hd130315131196_ - _tl130314131198_ - _e130319131201_ - _hd130318131204_ - _tl130317131206_ - _e130322131209_ - _hd130321131212_ - _tl130320131214_ - _e130325131217_ - _hd130324131220_ - _tl130323131222_ - _e130328131225_ - _hd130327131228_ - _tl130326131230_ - _e130331131233_ - _hd130330131236_ - _tl130329131238_)))) - (___match134799134800_ - _e130310131177_ - _hd130309131180_ - _tl130308131182_ - _e130313131185_ - _hd130312131188_ - _tl130311131190_ - _e130316131193_ - _hd130315131196_ - _tl130314131198_ - _e130319131201_ - _hd130318131204_ - _tl130317131206_ - _e130322131209_ - _hd130321131212_ - _tl130320131214_ - _e130325131217_ - _hd130324131220_ - _tl130323131222_ - _e130328131225_ - _hd130327131228_ - _tl130326131230_ - _e130331131233_ - _hd130330131236_ - _tl130329131238_)))) - (___match134737134738_ - _e130310131177_ - _hd130309131180_ - _tl130308131182_ - _e130313131185_ - _hd130312131188_ - _tl130311131190_ - _e130316131193_ - _hd130315131196_ - _tl130314131198_ - _e130319131201_ - _hd130318131204_ - _tl130317131206_ - _e130322131209_ - _hd130321131212_ - _tl130320131214_ - _e130325131217_ - _hd130324131220_ - _tl130323131222_ - _e130328131225_ - _hd130327131228_ - _tl130326131230_)) - (___kont134320134321_)))) + (___match134796134797_ + _e130307131174_ + _hd130306131177_ + _tl130305131179_ + _e130310131182_ + _hd130309131185_ + _tl130308131187_ + _e130313131190_ + _hd130312131193_ + _tl130311131195_ + _e130316131198_ + _hd130315131201_ + _tl130314131203_ + _e130319131206_ + _hd130318131209_ + _tl130317131211_ + _e130322131214_ + _hd130321131217_ + _tl130320131219_ + _e130325131222_ + _hd130324131225_ + _tl130323131227_ + _e130328131230_ + _hd130327131233_ + _tl130326131235_)))) + (___match134796134797_ + _e130307131174_ + _hd130306131177_ + _tl130305131179_ + _e130310131182_ + _hd130309131185_ + _tl130308131187_ + _e130313131190_ + _hd130312131193_ + _tl130311131195_ + _e130316131198_ + _hd130315131201_ + _tl130314131203_ + _e130319131206_ + _hd130318131209_ + _tl130317131211_ + _e130322131214_ + _hd130321131217_ + _tl130320131219_ + _e130325131222_ + _hd130324131225_ + _tl130323131227_ + _e130328131230_ + _hd130327131233_ + _tl130326131235_)) + (___match134472134473_ + _e130307131174_ + _hd130306131177_ + _tl130305131179_ + _e130310131182_ + _hd130309131185_ + _tl130308131187_ + _e130313131190_ + _hd130312131193_ + _tl130311131195_ + _e130316131198_ + _hd130315131201_ + _tl130314131203_ + _e130319131206_ + _hd130318131209_ + _tl130317131211_ + _e130322131214_ + _hd130321131217_ + _tl130320131219_ + _e130325131222_ + _hd130324131225_ + _tl130323131227_ + _e130328131230_ + _hd130327131233_ + _tl130326131235_ + _e130331131238_ + _hd130330131241_ + _tl130329131243_)) + (___match134796134797_ + _e130307131174_ + _hd130306131177_ + _tl130305131179_ + _e130310131182_ + _hd130309131185_ + _tl130308131187_ + _e130313131190_ + _hd130312131193_ + _tl130311131195_ + _e130316131198_ + _hd130315131201_ + _tl130314131203_ + _e130319131206_ + _hd130318131209_ + _tl130317131211_ + _e130322131214_ + _hd130321131217_ + _tl130320131219_ + _e130325131222_ + _hd130324131225_ + _tl130323131227_ + _e130328131230_ + _hd130327131233_ + _tl130326131235_)))) + (___match134796134797_ + _e130307131174_ + _hd130306131177_ + _tl130305131179_ + _e130310131182_ + _hd130309131185_ + _tl130308131187_ + _e130313131190_ + _hd130312131193_ + _tl130311131195_ + _e130316131198_ + _hd130315131201_ + _tl130314131203_ + _e130319131206_ + _hd130318131209_ + _tl130317131211_ + _e130322131214_ + _hd130321131217_ + _tl130320131219_ + _e130325131222_ + _hd130324131225_ + _tl130323131227_ + _e130328131230_ + _hd130327131233_ + _tl130326131235_)))) + (___match134734134735_ + _e130307131174_ + _hd130306131177_ + _tl130305131179_ + _e130310131182_ + _hd130309131185_ + _tl130308131187_ + _e130313131190_ + _hd130312131193_ + _tl130311131195_ + _e130316131198_ + _hd130315131201_ + _tl130314131203_ + _e130319131206_ + _hd130318131209_ + _tl130317131211_ + _e130322131214_ + _hd130321131217_ + _tl130320131219_ + _e130325131222_ + _hd130324131225_ + _tl130323131227_)) + (___kont134317134318_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134320134321_)) - (___kont134320134321_)) - (___kont134320134321_)))) - (___kont134320134321_)))) - (___kont134320134321_)) - (___kont134320134321_)))) + (___kont134317134318_)) + (___kont134317134318_)) + (___kont134317134318_)))) + (___kont134317134318_)))) + (___kont134317134318_)) + (___kont134317134318_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134320134321_)) - (___kont134320134321_)) - (___kont134320134321_)))) - (___kont134320134321_)))) - (___kont134320134321_)))) - (___kont134320134321_))))))) + (___kont134317134318_)) + (___kont134317134318_)) + (___kont134317134318_)))) + (___kont134317134318_)))) + (___kont134317134318_)))) + (___kont134317134318_))))))) (define gxc#subst-object-refs-call% - (lambda (_stx129226_ - _self129227_ - _$klass129228_ - _methods129229_ - _slots129230_) - (letrec ((_force-e129232_ - (lambda (_target130289_) - (let ((__tmp135586 - (let ((__tmp135590 - (let ((__tmp135591 + (lambda (_stx129223_ + _self129224_ + _$klass129225_ + _methods129226_ + _slots129227_) + (letrec ((_force-e129229_ + (lambda (_target130286_) + (let ((__tmp135583 + (let ((__tmp135587 + (let ((__tmp135588 (let () (declare (not safe)) (cons 'force '())))) (declare (not safe)) - (cons '%#ref __tmp135591))) - (__tmp135587 - (let ((__tmp135588 - (let ((__tmp135589 + (cons '%#ref __tmp135588))) + (__tmp135584 + (let ((__tmp135585 + (let ((__tmp135586 (let () (declare (not safe)) - (cons _target130289_ '())))) + (cons _target130286_ '())))) (declare (not safe)) - (cons '%#ref __tmp135589)))) + (cons '%#ref __tmp135586)))) (declare (not safe)) - (cons __tmp135588 '())))) + (cons __tmp135585 '())))) (declare (not safe)) - (cons __tmp135590 __tmp135587)))) + (cons __tmp135587 __tmp135584)))) (declare (not safe)) - (cons '%#call __tmp135586))))) - (let* ((___stx134804134805_ _stx129226_) - (_g129240129462_ + (cons '%#call __tmp135583))))) + (let* ((___stx134801134802_ _stx129223_) + (_g129237129459_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134804134805_))))) - (let ((___kont134806134807_ - (lambda (_L130235_ _L130236_ _L130237_ _L130238_) - (let ((_$method130283_ - (let ((__tmp135592 + ___stx134801134802_))))) + (let ((___kont134803134804_ + (lambda (_L130232_ _L130233_ _L130234_ _L130235_) + (let ((_$method130280_ + (let ((__tmp135589 (let () (declare (not safe)) - (gx#stx-e _L130236_)))) + (gx#stx-e _L130233_)))) (declare (not safe)) - (hash-ref__0 _methods129229_ __tmp135592))) - (_args130284_ - (map (lambda (_g130271130273_) + (hash-ref__0 _methods129226_ __tmp135589))) + (_args130281_ + (map (lambda (_g130268130270_) (let () (declare (not safe)) (gxc#compile-e__3 - _g130271130273_ - _self129227_ - _$klass129228_ - _methods129229_ - _slots129230_))) - (let ((__tmp135593 - (lambda (_g130275130278_ - _g130276130280_) + _g130268130270_ + _self129224_ + _$klass129225_ + _methods129226_ + _slots129227_))) + (let ((__tmp135590 + (lambda (_g130272130275_ + _g130273130277_) (let () (declare (not safe)) - (cons _g130275130278_ - _g130276130280_))))) + (cons _g130272130275_ + _g130273130277_))))) (declare (not safe)) - (foldr1 __tmp135593 '() _L130235_))))) - (let ((__tmp135594 - (let ((__tmp135595 - (let ((__tmp135599 + (foldr1 __tmp135590 '() _L130232_))))) + (let ((__tmp135591 + (let ((__tmp135592 + (let ((__tmp135596 (let () (declare (not safe)) - (_force-e129232_ - _$method130283_))) - (__tmp135596 - (let ((__tmp135597 - (let ((__tmp135598 + (_force-e129229_ + _$method130280_))) + (__tmp135593 + (let ((__tmp135594 + (let ((__tmp135595 (let () (declare (not safe)) - (cons _self129227_ + (cons _self129224_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp135598)))) + __tmp135595)))) (declare (not safe)) - (cons __tmp135597 - _args130284_)))) + (cons __tmp135594 + _args130281_)))) (declare (not safe)) - (cons __tmp135599 __tmp135596)))) + (cons __tmp135596 __tmp135593)))) (declare (not safe)) - (cons '%#call __tmp135595)))) + (cons '%#call __tmp135592)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135594 _stx129226_))))) - (___kont134810134811_ - (lambda (_L130067_ _L130068_ _L130069_ _L130070_ _L130071_) - (let ((_$method130123_ - (let ((__tmp135600 + (gxc#xform-wrap-source __tmp135591 _stx129223_))))) + (___kont134807134808_ + (lambda (_L130064_ _L130065_ _L130066_ _L130067_ _L130068_) + (let ((_$method130120_ + (let ((__tmp135597 (let () (declare (not safe)) - (gx#stx-e _L130068_)))) + (gx#stx-e _L130065_)))) (declare (not safe)) - (hash-ref__0 _methods129229_ __tmp135600))) - (_args130124_ - (map (lambda (_g130111130113_) + (hash-ref__0 _methods129226_ __tmp135597))) + (_args130121_ + (map (lambda (_g130108130110_) (let () (declare (not safe)) (gxc#compile-e__3 - _g130111130113_ - _self129227_ - _$klass129228_ - _methods129229_ - _slots129230_))) - (let ((__tmp135601 - (lambda (_g130115130118_ - _g130116130120_) + _g130108130110_ + _self129224_ + _$klass129225_ + _methods129226_ + _slots129227_))) + (let ((__tmp135598 + (lambda (_g130112130115_ + _g130113130117_) (let () (declare (not safe)) - (cons _g130115130118_ - _g130116130120_))))) + (cons _g130112130115_ + _g130113130117_))))) (declare (not safe)) - (foldr1 __tmp135601 '() _L130067_))))) - (let ((__tmp135602 - (let ((__tmp135603 - (let ((__tmp135609 - (let ((__tmp135610 + (foldr1 __tmp135598 '() _L130064_))))) + (let ((__tmp135599 + (let ((__tmp135600 + (let ((__tmp135606 + (let ((__tmp135607 (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp135610))) - (__tmp135604 - (let ((__tmp135608 + (cons '%#ref __tmp135607))) + (__tmp135601 + (let ((__tmp135605 (let () (declare (not safe)) - (_force-e129232_ - _$method130123_))) - (__tmp135605 - (let ((__tmp135606 - (let ((__tmp135607 + (_force-e129229_ + _$method130120_))) + (__tmp135602 + (let ((__tmp135603 + (let ((__tmp135604 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self129227_ '())))) + (cons _self129224_ '())))) (declare (not safe)) - (cons '%#ref __tmp135607)))) + (cons '%#ref __tmp135604)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135606 - _args130124_)))) + (cons __tmp135603 + _args130121_)))) (declare (not safe)) - (cons __tmp135608 __tmp135605)))) + (cons __tmp135605 __tmp135602)))) (declare (not safe)) - (cons __tmp135609 __tmp135604)))) + (cons __tmp135606 __tmp135601)))) (declare (not safe)) - (cons '%#call __tmp135603)))) + (cons '%#call __tmp135600)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135602 _stx129226_))))) - (___kont134814134815_ - (lambda (_L129898_ _L129899_ _L129900_) - (let* ((_$field129932_ - (let ((__tmp135611 + (gxc#xform-wrap-source __tmp135599 _stx129223_))))) + (___kont134811134812_ + (lambda (_L129895_ _L129896_ _L129897_) + (let* ((_$field129929_ + (let ((__tmp135608 (let () (declare (not safe)) - (gx#stx-e _L129898_)))) + (gx#stx-e _L129895_)))) (declare (not safe)) - (hash-ref__0 _slots129230_ __tmp135611))) - (__tmp135612 - (let ((__tmp135613 - (let ((__tmp135620 - (let ((__tmp135621 + (hash-ref__0 _slots129227_ __tmp135608))) + (__tmp135609 + (let ((__tmp135610 + (let ((__tmp135617 + (let ((__tmp135618 (let () (declare (not safe)) - (cons _$klass129228_ + (cons _$klass129225_ '())))) (declare (not safe)) - (cons '%#ref __tmp135621))) - (__tmp135614 - (let ((__tmp135618 - (let ((__tmp135619 + (cons '%#ref __tmp135618))) + (__tmp135611 + (let ((__tmp135615 + (let ((__tmp135616 (let () (declare (not safe)) - (cons _$field129932_ + (cons _$field129929_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp135619))) - (__tmp135615 - (let ((__tmp135616 - (let ((__tmp135617 + (cons '%#ref __tmp135616))) + (__tmp135612 + (let ((__tmp135613 + (let ((__tmp135614 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _self129227_ '())))) + (cons _self129224_ '())))) (declare (not safe)) - (cons '%#ref __tmp135617)))) + (cons '%#ref __tmp135614)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135616 '())))) + (cons __tmp135613 '())))) (declare (not safe)) - (cons __tmp135618 __tmp135615)))) + (cons __tmp135615 __tmp135612)))) (declare (not safe)) - (cons __tmp135620 __tmp135614)))) + (cons __tmp135617 __tmp135611)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp135613)))) + (cons '%#struct-unchecked-ref __tmp135610)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135612 _stx129226_)))) - (___kont134816134817_ - (lambda (_L129772_ _L129773_ _L129774_ _L129775_) - (let ((_$field129810_ - (let ((__tmp135622 + (gxc#xform-wrap-source __tmp135609 _stx129223_)))) + (___kont134813134814_ + (lambda (_L129769_ _L129770_ _L129771_ _L129772_) + (let ((_$field129807_ + (let ((__tmp135619 (let () (declare (not safe)) - (gx#stx-e _L129773_)))) + (gx#stx-e _L129770_)))) (declare (not safe)) - (hash-ref__0 _slots129230_ __tmp135622))) - (_expr129811_ + (hash-ref__0 _slots129227_ __tmp135619))) + (_expr129808_ (let () (declare (not safe)) (gxc#compile-e__3 - _L129772_ - _self129227_ - _$klass129228_ - _methods129229_ - _slots129230_)))) - (let ((__tmp135623 - (let ((__tmp135624 - (let ((__tmp135632 - (let ((__tmp135633 + _L129769_ + _self129224_ + _$klass129225_ + _methods129226_ + _slots129227_)))) + (let ((__tmp135620 + (let ((__tmp135621 + (let ((__tmp135629 + (let ((__tmp135630 (let () (declare (not safe)) - (cons _$klass129228_ + (cons _$klass129225_ '())))) (declare (not safe)) - (cons '%#ref __tmp135633))) - (__tmp135625 - (let ((__tmp135630 - (let ((__tmp135631 + (cons '%#ref __tmp135630))) + (__tmp135622 + (let ((__tmp135627 + (let ((__tmp135628 (let () (declare (not safe)) - (cons _$field129810_ + (cons _$field129807_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp135631))) - (__tmp135626 - (let ((__tmp135628 - (let ((__tmp135629 + __tmp135628))) + (__tmp135623 + (let ((__tmp135625 + (let ((__tmp135626 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self129227_ '())))) + (cons _self129224_ '())))) (declare (not safe)) - (cons '%#ref __tmp135629))) - (__tmp135627 - (let () (declare (not safe)) (cons _expr129811_ '())))) + (cons '%#ref __tmp135626))) + (__tmp135624 + (let () (declare (not safe)) (cons _expr129808_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135628 - __tmp135627)))) + (cons __tmp135625 + __tmp135624)))) (declare (not safe)) - (cons __tmp135630 __tmp135626)))) + (cons __tmp135627 __tmp135623)))) (declare (not safe)) - (cons __tmp135632 __tmp135625)))) + (cons __tmp135629 __tmp135622)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp135624)))) + (cons '%#struct-unchecked-set! __tmp135621)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135623 _stx129226_))))) - (___kont134818134819_ - (lambda (_L129644_ _L129645_) - (let* ((_accessor129667_ - (let ((__tmp135634 + (gxc#xform-wrap-source __tmp135620 _stx129223_))))) + (___kont134815134816_ + (lambda (_L129641_ _L129642_) + (let* ((_accessor129664_ + (let ((__tmp135631 (let () (declare (not safe)) - (gxc#identifier-symbol _L129645_)))) + (gxc#identifier-symbol _L129642_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp135634))) - (_klass129669_ - (let ((__tmp135635 + (gxc#optimizer-resolve-type __tmp135631))) + (_klass129666_ + (let ((__tmp135632 (##structure-ref - _accessor129667_ + _accessor129664_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx129226_ - __tmp135635))) - (_slot129671_ + _stx129223_ + __tmp135632))) + (_slot129668_ (##structure-ref - _accessor129667_ + _accessor129664_ '2 gxc#!accessor::t '#f))) - (if (and (let ((__tmp135646 + (if (and (let ((__tmp135643 (##structure-ref - _accessor129667_ + _accessor129664_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (not __tmp135646)) + (not __tmp135643)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass129669_ - _slot129671_)) + _klass129666_ + _slot129668_)) (##structure-ref - _klass129669_ + _klass129666_ '8 gxc#!class::t '#f))) - _stx129226_ - (let* ((_$field129677_ + _stx129223_ + (let* ((_$field129674_ (let () (declare (not safe)) - (hash-ref__0 _slots129230_ _slot129671_))) - (__tmp135636 - (let ((__tmp135637 - (let ((__tmp135644 - (let ((__tmp135645 + (hash-ref__0 _slots129227_ _slot129668_))) + (__tmp135633 + (let ((__tmp135634 + (let ((__tmp135641 + (let ((__tmp135642 (let () (declare (not safe)) - (cons _$klass129228_ + (cons _$klass129225_ '())))) (declare (not safe)) - (cons '%#ref __tmp135645))) - (__tmp135638 - (let ((__tmp135642 - (let ((__tmp135643 + (cons '%#ref __tmp135642))) + (__tmp135635 + (let ((__tmp135639 + (let ((__tmp135640 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$field129677_ '())))) + (cons _$field129674_ '())))) (declare (not safe)) - (cons '%#ref __tmp135643))) - (__tmp135639 - (let ((__tmp135640 - (let ((__tmp135641 + (cons '%#ref __tmp135640))) + (__tmp135636 + (let ((__tmp135637 + (let ((__tmp135638 (let () (declare (not safe)) - (cons _self129227_ '())))) + (cons _self129224_ '())))) (declare (not safe)) - (cons '%#ref __tmp135641)))) + (cons '%#ref __tmp135638)))) (declare (not safe)) - (cons __tmp135640 '())))) + (cons __tmp135637 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135642 - __tmp135639)))) + (cons __tmp135639 + __tmp135636)))) (declare (not safe)) - (cons __tmp135644 __tmp135638)))) + (cons __tmp135641 __tmp135635)))) (declare (not safe)) (cons '%#struct-unchecked-ref - __tmp135637)))) + __tmp135634)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp135636 - _stx129226_)))))) - (___kont134820134821_ - (lambda (_L129538_ _L129539_ _L129540_) - (let* ((_mutator129569_ - (let ((__tmp135647 + __tmp135633 + _stx129223_)))))) + (___kont134817134818_ + (lambda (_L129535_ _L129536_ _L129537_) + (let* ((_mutator129566_ + (let ((__tmp135644 (let () (declare (not safe)) - (gxc#identifier-symbol _L129540_)))) + (gxc#identifier-symbol _L129537_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp135647))) - (_klass129571_ - (let ((__tmp135648 + (gxc#optimizer-resolve-type __tmp135644))) + (_klass129568_ + (let ((__tmp135645 (##structure-ref - _mutator129569_ + _mutator129566_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx129226_ - __tmp135648))) - (_slot129573_ + _stx129223_ + __tmp135645))) + (_slot129570_ (##structure-ref - _mutator129569_ + _mutator129566_ '2 gxc#!mutator::t '#f)) - (_expr129575_ + (_expr129572_ (let () (declare (not safe)) (gxc#compile-e__3 - _L129538_ - _self129227_ - _$klass129228_ - _methods129229_ - _slots129230_)))) - (if (and (let ((__tmp135670 + _L129535_ + _self129224_ + _$klass129225_ + _methods129226_ + _slots129227_)))) + (if (and (let ((__tmp135667 (##structure-ref - _mutator129569_ + _mutator129566_ '3 gxc#!mutator::t '#f))) (declare (not safe)) - (not __tmp135670)) + (not __tmp135667)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass129571_ - _slot129573_)) + _klass129568_ + _slot129570_)) (##structure-ref - _klass129571_ + _klass129568_ '8 gxc#!class::t '#f))) - (let ((__tmp135660 - (let ((__tmp135661 - (let ((__tmp135667 - (let ((__tmp135669 + (let ((__tmp135657 + (let ((__tmp135658 + (let ((__tmp135664 + (let ((__tmp135666 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp135668 + (__tmp135665 (let () (declare (not safe)) - (cons _L129540_ + (cons _L129537_ '())))) (declare (not safe)) - (cons __tmp135669 - __tmp135668))) - (__tmp135662 - (let ((__tmp135664 - (let ((__tmp135666 + (cons __tmp135666 + __tmp135665))) + (__tmp135659 + (let ((__tmp135661 + (let ((__tmp135663 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp135665 - (let () (declare (not safe)) (cons _L129539_ '())))) + (__tmp135662 + (let () (declare (not safe)) (cons _L129536_ '())))) (declare (not safe)) - (cons __tmp135666 __tmp135665))) - (__tmp135663 - (let () (declare (not safe)) (cons _expr129575_ '())))) + (cons __tmp135663 __tmp135662))) + (__tmp135660 + (let () (declare (not safe)) (cons _expr129572_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135664 - __tmp135663)))) + (cons __tmp135661 + __tmp135660)))) (declare (not safe)) - (cons __tmp135667 __tmp135662)))) + (cons __tmp135664 __tmp135659)))) (declare (not safe)) - (cons '%#call __tmp135661)))) + (cons '%#call __tmp135658)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135660 _stx129226_)) - (let* ((_$field129581_ + (gxc#xform-wrap-source __tmp135657 _stx129223_)) + (let* ((_$field129578_ (let () (declare (not safe)) - (hash-ref__0 _slots129230_ _slot129573_))) - (__tmp135649 - (let ((__tmp135650 - (let ((__tmp135658 - (let ((__tmp135659 + (hash-ref__0 _slots129227_ _slot129570_))) + (__tmp135646 + (let ((__tmp135647 + (let ((__tmp135655 + (let ((__tmp135656 (let () (declare (not safe)) - (cons _$klass129228_ + (cons _$klass129225_ '())))) (declare (not safe)) - (cons '%#ref __tmp135659))) - (__tmp135651 - (let ((__tmp135656 - (let ((__tmp135657 + (cons '%#ref __tmp135656))) + (__tmp135648 + (let ((__tmp135653 + (let ((__tmp135654 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$field129581_ '())))) + (cons _$field129578_ '())))) (declare (not safe)) - (cons '%#ref __tmp135657))) - (__tmp135652 - (let ((__tmp135654 - (let ((__tmp135655 + (cons '%#ref __tmp135654))) + (__tmp135649 + (let ((__tmp135651 + (let ((__tmp135652 (let () (declare (not safe)) - (cons _self129227_ '())))) + (cons _self129224_ '())))) (declare (not safe)) - (cons '%#ref __tmp135655))) - (__tmp135653 - (let () (declare (not safe)) (cons _expr129575_ '())))) + (cons '%#ref __tmp135652))) + (__tmp135650 + (let () (declare (not safe)) (cons _expr129572_ '())))) (declare (not safe)) - (cons __tmp135654 __tmp135653)))) + (cons __tmp135651 __tmp135650)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135656 - __tmp135652)))) + (cons __tmp135653 + __tmp135649)))) (declare (not safe)) - (cons __tmp135658 __tmp135651)))) + (cons __tmp135655 __tmp135648)))) (declare (not safe)) (cons '%#struct-unchecked-set! - __tmp135650)))) + __tmp135647)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp135649 - _stx129226_)))))) - (___kont134822134823_ + __tmp135646 + _stx129223_)))))) + (___kont134819134820_ (lambda () (let () (declare (not safe)) (gxc#xform-operands - _stx129226_ - _self129227_ - _$klass129228_ - _methods129229_ - _slots129230_))))) - (let* ((___match135303135304_ - (lambda (_e129436129474_ - _hd129435129477_ - _tl129434129479_ - _e129439129482_ - _hd129438129485_ - _tl129437129487_ - _e129442129490_ - _hd129441129493_ - _tl129440129495_ - _e129445129498_ - _hd129444129501_ - _tl129443129503_ - _e129448129506_ - _hd129447129509_ - _tl129446129511_ - _e129451129514_ - _hd129450129517_ - _tl129449129519_ - _e129454129522_ - _hd129453129525_ - _tl129452129527_ - _e129457129530_ - _hd129456129533_ - _tl129455129535_) - (let ((_L129538_ _hd129456129533_) - (_L129539_ _hd129453129525_) - (_L129540_ _hd129444129501_)) + _stx129223_ + _self129224_ + _$klass129225_ + _methods129226_ + _slots129227_))))) + (let* ((___match135300135301_ + (lambda (_e129433129471_ + _hd129432129474_ + _tl129431129476_ + _e129436129479_ + _hd129435129482_ + _tl129434129484_ + _e129439129487_ + _hd129438129490_ + _tl129437129492_ + _e129442129495_ + _hd129441129498_ + _tl129440129500_ + _e129445129503_ + _hd129444129506_ + _tl129443129508_ + _e129448129511_ + _hd129447129514_ + _tl129446129516_ + _e129451129519_ + _hd129450129522_ + _tl129449129524_ + _e129454129527_ + _hd129453129530_ + _tl129452129532_) + (let ((_L129535_ _hd129453129530_) + (_L129536_ _hd129450129522_) + (_L129537_ _hd129441129498_)) (if (and (let () (declare (not safe)) (gx#free-identifier=? - _L129539_ - _self129227_)) - (let ((__tmp135671 - (let ((__tmp135672 + _L129536_ + _self129224_)) + (let ((__tmp135668 + (let ((__tmp135669 (let () (declare (not safe)) (gxc#identifier-symbol - _L129540_)))) + _L129537_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp135672)))) + __tmp135669)))) (declare (not safe)) (##structure-instance-of? - __tmp135671 + __tmp135668 'gxc#!mutator::t))) - (___kont134820134821_ - _L129538_ - _L129539_ - _L129540_) - (___kont134822134823_))))) - (___match135301135302_ - (lambda (_e129436129474_ - _hd129435129477_ - _tl129434129479_ - _e129439129482_ - _hd129438129485_ - _tl129437129487_ - _e129442129490_ - _hd129441129493_ - _tl129440129495_ - _e129445129498_ - _hd129444129501_ - _tl129443129503_ - _e129448129506_ - _hd129447129509_ - _tl129446129511_ - _e129451129514_ - _hd129450129517_ - _tl129449129519_ - _e129454129522_ - _hd129453129525_ - _tl129452129527_ - _e129457129530_ - _hd129456129533_ - _tl129455129535_) + (___kont134817134818_ + _L129535_ + _L129536_ + _L129537_) + (___kont134819134820_))))) + (___match135298135299_ + (lambda (_e129433129471_ + _hd129432129474_ + _tl129431129476_ + _e129436129479_ + _hd129435129482_ + _tl129434129484_ + _e129439129487_ + _hd129438129490_ + _tl129437129492_ + _e129442129495_ + _hd129441129498_ + _tl129440129500_ + _e129445129503_ + _hd129444129506_ + _tl129443129508_ + _e129448129511_ + _hd129447129514_ + _tl129446129516_ + _e129451129519_ + _hd129450129522_ + _tl129449129524_ + _e129454129527_ + _hd129453129530_ + _tl129452129532_) (if (let () (declare (not safe)) - (gx#stx-null? _tl129455129535_)) - (___match135303135304_ - _e129436129474_ - _hd129435129477_ - _tl129434129479_ - _e129439129482_ - _hd129438129485_ - _tl129437129487_ - _e129442129490_ - _hd129441129493_ - _tl129440129495_ - _e129445129498_ - _hd129444129501_ - _tl129443129503_ - _e129448129506_ - _hd129447129509_ - _tl129446129511_ - _e129451129514_ - _hd129450129517_ - _tl129449129519_ - _e129454129522_ - _hd129453129525_ - _tl129452129527_ - _e129457129530_ - _hd129456129533_ - _tl129455129535_) - (___kont134822134823_)))) - (___match135295135296_ - (lambda (_e129436129474_ - _hd129435129477_ - _tl129434129479_ - _e129439129482_ - _hd129438129485_ - _tl129437129487_ - _e129442129490_ - _hd129441129493_ - _tl129440129495_ - _e129445129498_ - _hd129444129501_ - _tl129443129503_ - _e129448129506_ - _hd129447129509_ - _tl129446129511_ - _e129451129514_ - _hd129450129517_ - _tl129449129519_ - _e129454129522_ - _hd129453129525_ - _tl129452129527_) + (gx#stx-null? _tl129452129532_)) + (___match135300135301_ + _e129433129471_ + _hd129432129474_ + _tl129431129476_ + _e129436129479_ + _hd129435129482_ + _tl129434129484_ + _e129439129487_ + _hd129438129490_ + _tl129437129492_ + _e129442129495_ + _hd129441129498_ + _tl129440129500_ + _e129445129503_ + _hd129444129506_ + _tl129443129508_ + _e129448129511_ + _hd129447129514_ + _tl129446129516_ + _e129451129519_ + _hd129450129522_ + _tl129449129524_ + _e129454129527_ + _hd129453129530_ + _tl129452129532_) + (___kont134819134820_)))) + (___match135292135293_ + (lambda (_e129433129471_ + _hd129432129474_ + _tl129431129476_ + _e129436129479_ + _hd129435129482_ + _tl129434129484_ + _e129439129487_ + _hd129438129490_ + _tl129437129492_ + _e129442129495_ + _hd129441129498_ + _tl129440129500_ + _e129445129503_ + _hd129444129506_ + _tl129443129508_ + _e129448129511_ + _hd129447129514_ + _tl129446129516_ + _e129451129519_ + _hd129450129522_ + _tl129449129524_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129446129511_)) - (let ((_e129457129530_ + (gx#stx-pair? _tl129443129508_)) + (let ((_e129454129527_ (let () (declare (not safe)) - (gx#stx-e _tl129446129511_)))) - (let ((_tl129455129535_ + (gx#stx-e _tl129443129508_)))) + (let ((_tl129452129532_ (let () (declare (not safe)) - (##cdr _e129457129530_))) - (_hd129456129533_ + (##cdr _e129454129527_))) + (_hd129453129530_ (let () (declare (not safe)) - (##car _e129457129530_)))) + (##car _e129454129527_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129455129535_)) - (___match135303135304_ - _e129436129474_ - _hd129435129477_ - _tl129434129479_ - _e129439129482_ - _hd129438129485_ - _tl129437129487_ - _e129442129490_ - _hd129441129493_ - _tl129440129495_ - _e129445129498_ - _hd129444129501_ - _tl129443129503_ - _e129448129506_ - _hd129447129509_ - _tl129446129511_ - _e129451129514_ - _hd129450129517_ - _tl129449129519_ - _e129454129522_ - _hd129453129525_ - _tl129452129527_ - _e129457129530_ - _hd129456129533_ - _tl129455129535_) - (___kont134822134823_)))) - (___kont134822134823_)))) - (___match135241135242_ - (lambda (_e129412129588_ - _hd129411129591_ - _tl129410129593_ - _e129415129596_ - _hd129414129599_ - _tl129413129601_ - _e129418129604_ - _hd129417129607_ - _tl129416129609_ - _e129421129612_ - _hd129420129615_ - _tl129419129617_ - _e129424129620_ - _hd129423129623_ - _tl129422129625_ - _e129427129628_ - _hd129426129631_ - _tl129425129633_ - _e129430129636_ - _hd129429129639_ - _tl129428129641_) - (let ((_L129644_ _hd129429129639_) - (_L129645_ _hd129420129615_)) + (gx#stx-null? _tl129452129532_)) + (___match135300135301_ + _e129433129471_ + _hd129432129474_ + _tl129431129476_ + _e129436129479_ + _hd129435129482_ + _tl129434129484_ + _e129439129487_ + _hd129438129490_ + _tl129437129492_ + _e129442129495_ + _hd129441129498_ + _tl129440129500_ + _e129445129503_ + _hd129444129506_ + _tl129443129508_ + _e129448129511_ + _hd129447129514_ + _tl129446129516_ + _e129451129519_ + _hd129450129522_ + _tl129449129524_ + _e129454129527_ + _hd129453129530_ + _tl129452129532_) + (___kont134819134820_)))) + (___kont134819134820_)))) + (___match135238135239_ + (lambda (_e129409129585_ + _hd129408129588_ + _tl129407129590_ + _e129412129593_ + _hd129411129596_ + _tl129410129598_ + _e129415129601_ + _hd129414129604_ + _tl129413129606_ + _e129418129609_ + _hd129417129612_ + _tl129416129614_ + _e129421129617_ + _hd129420129620_ + _tl129419129622_ + _e129424129625_ + _hd129423129628_ + _tl129422129630_ + _e129427129633_ + _hd129426129636_ + _tl129425129638_) + (let ((_L129641_ _hd129426129636_) + (_L129642_ _hd129417129612_)) (if (and (let () (declare (not safe)) (gx#free-identifier=? - _L129644_ - _self129227_)) - (let ((__tmp135673 - (let ((__tmp135674 + _L129641_ + _self129224_)) + (let ((__tmp135670 + (let ((__tmp135671 (let () (declare (not safe)) (gxc#identifier-symbol - _L129645_)))) + _L129642_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp135674)))) + __tmp135671)))) (declare (not safe)) (##structure-instance-of? - __tmp135673 + __tmp135670 'gxc#!accessor::t))) - (___kont134818134819_ _L129644_ _L129645_) - (___kont134822134823_))))) - (___match135239135240_ - (lambda (_e129412129588_ - _hd129411129591_ - _tl129410129593_ - _e129415129596_ - _hd129414129599_ - _tl129413129601_ - _e129418129604_ - _hd129417129607_ - _tl129416129609_ - _e129421129612_ - _hd129420129615_ - _tl129419129617_ - _e129424129620_ - _hd129423129623_ - _tl129422129625_ - _e129427129628_ - _hd129426129631_ - _tl129425129633_ - _e129430129636_ - _hd129429129639_ - _tl129428129641_) + (___kont134815134816_ _L129641_ _L129642_) + (___kont134819134820_))))) + (___match135236135237_ + (lambda (_e129409129585_ + _hd129408129588_ + _tl129407129590_ + _e129412129593_ + _hd129411129596_ + _tl129410129598_ + _e129415129601_ + _hd129414129604_ + _tl129413129606_ + _e129418129609_ + _hd129417129612_ + _tl129416129614_ + _e129421129617_ + _hd129420129620_ + _tl129419129622_ + _e129424129625_ + _hd129423129628_ + _tl129422129630_ + _e129427129633_ + _hd129426129636_ + _tl129425129638_) (if (let () (declare (not safe)) - (gx#stx-null? _tl129422129625_)) - (___match135241135242_ - _e129412129588_ - _hd129411129591_ - _tl129410129593_ - _e129415129596_ - _hd129414129599_ - _tl129413129601_ - _e129418129604_ - _hd129417129607_ - _tl129416129609_ - _e129421129612_ - _hd129420129615_ - _tl129419129617_ - _e129424129620_ - _hd129423129623_ - _tl129422129625_ - _e129427129628_ - _hd129426129631_ - _tl129425129633_ - _e129430129636_ - _hd129429129639_ - _tl129428129641_) - (___match135295135296_ - _e129412129588_ - _hd129411129591_ - _tl129410129593_ - _e129415129596_ - _hd129414129599_ - _tl129413129601_ - _e129418129604_ - _hd129417129607_ - _tl129416129609_ - _e129421129612_ - _hd129420129615_ - _tl129419129617_ - _e129424129620_ - _hd129423129623_ - _tl129422129625_ - _e129427129628_ - _hd129426129631_ - _tl129425129633_ - _e129430129636_ - _hd129429129639_ - _tl129428129641_)))) - (___match135185135186_ - (lambda (_e129377129684_ - _hd129376129687_ - _tl129375129689_ - _e129380129692_ - _hd129379129695_ - _tl129378129697_ - _e129383129700_ - _hd129382129703_ - _tl129381129705_ - _e129386129708_ - _hd129385129711_ - _tl129384129713_ - _e129389129716_ - _hd129388129719_ - _tl129387129721_ - _e129392129724_ - _hd129391129727_ - _tl129390129729_ - _e129395129732_ - _hd129394129735_ - _tl129393129737_ - _e129398129740_ - _hd129397129743_ - _tl129396129745_ - _e129401129748_ - _hd129400129751_ - _tl129399129753_ - _e129404129756_ - _hd129403129759_ - _tl129402129761_ - _e129407129764_ - _hd129406129767_ - _tl129405129769_) - (let ((_L129772_ _hd129406129767_) - (_L129773_ _hd129403129759_) - (_L129774_ _hd129394129735_) - (_L129775_ _hd129385129711_)) + (gx#stx-null? _tl129419129622_)) + (___match135238135239_ + _e129409129585_ + _hd129408129588_ + _tl129407129590_ + _e129412129593_ + _hd129411129596_ + _tl129410129598_ + _e129415129601_ + _hd129414129604_ + _tl129413129606_ + _e129418129609_ + _hd129417129612_ + _tl129416129614_ + _e129421129617_ + _hd129420129620_ + _tl129419129622_ + _e129424129625_ + _hd129423129628_ + _tl129422129630_ + _e129427129633_ + _hd129426129636_ + _tl129425129638_) + (___match135292135293_ + _e129409129585_ + _hd129408129588_ + _tl129407129590_ + _e129412129593_ + _hd129411129596_ + _tl129410129598_ + _e129415129601_ + _hd129414129604_ + _tl129413129606_ + _e129418129609_ + _hd129417129612_ + _tl129416129614_ + _e129421129617_ + _hd129420129620_ + _tl129419129622_ + _e129424129625_ + _hd129423129628_ + _tl129422129630_ + _e129427129633_ + _hd129426129636_ + _tl129425129638_)))) + (___match135182135183_ + (lambda (_e129374129681_ + _hd129373129684_ + _tl129372129686_ + _e129377129689_ + _hd129376129692_ + _tl129375129694_ + _e129380129697_ + _hd129379129700_ + _tl129378129702_ + _e129383129705_ + _hd129382129708_ + _tl129381129710_ + _e129386129713_ + _hd129385129716_ + _tl129384129718_ + _e129389129721_ + _hd129388129724_ + _tl129387129726_ + _e129392129729_ + _hd129391129732_ + _tl129390129734_ + _e129395129737_ + _hd129394129740_ + _tl129393129742_ + _e129398129745_ + _hd129397129748_ + _tl129396129750_ + _e129401129753_ + _hd129400129756_ + _tl129399129758_ + _e129404129761_ + _hd129403129764_ + _tl129402129766_) + (let ((_L129769_ _hd129403129764_) + (_L129770_ _hd129400129756_) + (_L129771_ _hd129391129732_) + (_L129772_ _hd129382129708_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L129775_ + _L129772_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L129775_ + _L129772_ 'unchecked-slot-set!))) (let () (declare (not safe)) (gx#free-identifier=? - _L129774_ - _self129227_))) - (___kont134816134817_ - _L129772_ - _L129773_ - _L129774_ - _L129775_) - (___kont134822134823_))))) - (___match135177135178_ - (lambda (_e129377129684_ - _hd129376129687_ - _tl129375129689_ - _e129380129692_ - _hd129379129695_ - _tl129378129697_ - _e129383129700_ - _hd129382129703_ - _tl129381129705_ - _e129386129708_ - _hd129385129711_ - _tl129384129713_ - _e129389129716_ - _hd129388129719_ - _tl129387129721_ - _e129392129724_ - _hd129391129727_ - _tl129390129729_ - _e129395129732_ - _hd129394129735_ - _tl129393129737_ - _e129398129740_ - _hd129397129743_ - _tl129396129745_ - _e129401129748_ - _hd129400129751_ - _tl129399129753_ - _e129404129756_ - _hd129403129759_ - _tl129402129761_) + _L129771_ + _self129224_))) + (___kont134813134814_ + _L129769_ + _L129770_ + _L129771_ + _L129772_) + (___kont134819134820_))))) + (___match135174135175_ + (lambda (_e129374129681_ + _hd129373129684_ + _tl129372129686_ + _e129377129689_ + _hd129376129692_ + _tl129375129694_ + _e129380129697_ + _hd129379129700_ + _tl129378129702_ + _e129383129705_ + _hd129382129708_ + _tl129381129710_ + _e129386129713_ + _hd129385129716_ + _tl129384129718_ + _e129389129721_ + _hd129388129724_ + _tl129387129726_ + _e129392129729_ + _hd129391129732_ + _tl129390129734_ + _e129395129737_ + _hd129394129740_ + _tl129393129742_ + _e129398129745_ + _hd129397129748_ + _tl129396129750_ + _e129401129753_ + _hd129400129756_ + _tl129399129758_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129396129745_)) - (let ((_e129407129764_ + (gx#stx-pair? _tl129393129742_)) + (let ((_e129404129761_ (let () (declare (not safe)) - (gx#stx-e _tl129396129745_)))) - (let ((_tl129405129769_ + (gx#stx-e _tl129393129742_)))) + (let ((_tl129402129766_ (let () (declare (not safe)) - (##cdr _e129407129764_))) - (_hd129406129767_ + (##cdr _e129404129761_))) + (_hd129403129764_ (let () (declare (not safe)) - (##car _e129407129764_)))) + (##car _e129404129761_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129405129769_)) - (___match135185135186_ - _e129377129684_ - _hd129376129687_ - _tl129375129689_ - _e129380129692_ - _hd129379129695_ - _tl129378129697_ - _e129383129700_ - _hd129382129703_ - _tl129381129705_ - _e129386129708_ - _hd129385129711_ - _tl129384129713_ - _e129389129716_ - _hd129388129719_ - _tl129387129721_ - _e129392129724_ - _hd129391129727_ - _tl129390129729_ - _e129395129732_ - _hd129394129735_ - _tl129393129737_ - _e129398129740_ - _hd129397129743_ - _tl129396129745_ - _e129401129748_ - _hd129400129751_ - _tl129399129753_ - _e129404129756_ - _hd129403129759_ - _tl129402129761_ - _e129407129764_ - _hd129406129767_ - _tl129405129769_) - (___kont134822134823_)))) - (___match135301135302_ - _e129377129684_ - _hd129376129687_ - _tl129375129689_ - _e129380129692_ - _hd129379129695_ - _tl129378129697_ - _e129383129700_ - _hd129382129703_ - _tl129381129705_ - _e129386129708_ - _hd129385129711_ - _tl129384129713_ - _e129389129716_ - _hd129388129719_ - _tl129387129721_ - _e129392129724_ - _hd129391129727_ - _tl129390129729_ - _e129395129732_ - _hd129394129735_ - _tl129393129737_ - _e129398129740_ - _hd129397129743_ - _tl129396129745_)))) - (___match135099135100_ - (lambda (_e129343129818_ - _hd129342129821_ - _tl129341129823_ - _e129346129826_ - _hd129345129829_ - _tl129344129831_ - _e129349129834_ - _hd129348129837_ - _tl129347129839_ - _e129352129842_ - _hd129351129845_ - _tl129350129847_ - _e129355129850_ - _hd129354129853_ - _tl129353129855_ - _e129358129858_ - _hd129357129861_ - _tl129356129863_ - _e129361129866_ - _hd129360129869_ - _tl129359129871_ - _e129364129874_ - _hd129363129877_ - _tl129362129879_ - _e129367129882_ - _hd129366129885_ - _tl129365129887_ - _e129370129890_ - _hd129369129893_ - _tl129368129895_) - (let ((_L129898_ _hd129369129893_) - (_L129899_ _hd129360129869_) - (_L129900_ _hd129351129845_)) + (gx#stx-null? _tl129402129766_)) + (___match135182135183_ + _e129374129681_ + _hd129373129684_ + _tl129372129686_ + _e129377129689_ + _hd129376129692_ + _tl129375129694_ + _e129380129697_ + _hd129379129700_ + _tl129378129702_ + _e129383129705_ + _hd129382129708_ + _tl129381129710_ + _e129386129713_ + _hd129385129716_ + _tl129384129718_ + _e129389129721_ + _hd129388129724_ + _tl129387129726_ + _e129392129729_ + _hd129391129732_ + _tl129390129734_ + _e129395129737_ + _hd129394129740_ + _tl129393129742_ + _e129398129745_ + _hd129397129748_ + _tl129396129750_ + _e129401129753_ + _hd129400129756_ + _tl129399129758_ + _e129404129761_ + _hd129403129764_ + _tl129402129766_) + (___kont134819134820_)))) + (___match135298135299_ + _e129374129681_ + _hd129373129684_ + _tl129372129686_ + _e129377129689_ + _hd129376129692_ + _tl129375129694_ + _e129380129697_ + _hd129379129700_ + _tl129378129702_ + _e129383129705_ + _hd129382129708_ + _tl129381129710_ + _e129386129713_ + _hd129385129716_ + _tl129384129718_ + _e129389129721_ + _hd129388129724_ + _tl129387129726_ + _e129392129729_ + _hd129391129732_ + _tl129390129734_ + _e129395129737_ + _hd129394129740_ + _tl129393129742_)))) + (___match135096135097_ + (lambda (_e129340129815_ + _hd129339129818_ + _tl129338129820_ + _e129343129823_ + _hd129342129826_ + _tl129341129828_ + _e129346129831_ + _hd129345129834_ + _tl129344129836_ + _e129349129839_ + _hd129348129842_ + _tl129347129844_ + _e129352129847_ + _hd129351129850_ + _tl129350129852_ + _e129355129855_ + _hd129354129858_ + _tl129353129860_ + _e129358129863_ + _hd129357129866_ + _tl129356129868_ + _e129361129871_ + _hd129360129874_ + _tl129359129876_ + _e129364129879_ + _hd129363129882_ + _tl129362129884_ + _e129367129887_ + _hd129366129890_ + _tl129365129892_) + (let ((_L129895_ _hd129366129890_) + (_L129896_ _hd129357129866_) + (_L129897_ _hd129348129842_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L129900_ + _L129897_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L129900_ + _L129897_ 'unchecked-slot-ref))) (let () (declare (not safe)) (gx#free-identifier=? - _L129899_ - _self129227_))) - (___kont134814134815_ - _L129898_ - _L129899_ - _L129900_) - (___match135303135304_ - _e129343129818_ - _hd129342129821_ - _tl129341129823_ - _e129346129826_ - _hd129345129829_ - _tl129344129831_ - _e129349129834_ - _hd129348129837_ - _tl129347129839_ - _e129352129842_ - _hd129351129845_ - _tl129350129847_ - _e129355129850_ - _hd129354129853_ - _tl129353129855_ - _e129358129858_ - _hd129357129861_ - _tl129356129863_ - _e129361129866_ - _hd129360129869_ - _tl129359129871_ - _e129364129874_ - _hd129363129877_ - _tl129362129879_))))) - (___match135097135098_ - (lambda (_e129343129818_ - _hd129342129821_ - _tl129341129823_ - _e129346129826_ - _hd129345129829_ - _tl129344129831_ - _e129349129834_ - _hd129348129837_ - _tl129347129839_ - _e129352129842_ - _hd129351129845_ - _tl129350129847_ - _e129355129850_ - _hd129354129853_ - _tl129353129855_ - _e129358129858_ - _hd129357129861_ - _tl129356129863_ - _e129361129866_ - _hd129360129869_ - _tl129359129871_ - _e129364129874_ - _hd129363129877_ - _tl129362129879_ - _e129367129882_ - _hd129366129885_ - _tl129365129887_ - _e129370129890_ - _hd129369129893_ - _tl129368129895_) + _L129896_ + _self129224_))) + (___kont134811134812_ + _L129895_ + _L129896_ + _L129897_) + (___match135300135301_ + _e129340129815_ + _hd129339129818_ + _tl129338129820_ + _e129343129823_ + _hd129342129826_ + _tl129341129828_ + _e129346129831_ + _hd129345129834_ + _tl129344129836_ + _e129349129839_ + _hd129348129842_ + _tl129347129844_ + _e129352129847_ + _hd129351129850_ + _tl129350129852_ + _e129355129855_ + _hd129354129858_ + _tl129353129860_ + _e129358129863_ + _hd129357129866_ + _tl129356129868_ + _e129361129871_ + _hd129360129874_ + _tl129359129876_))))) + (___match135094135095_ + (lambda (_e129340129815_ + _hd129339129818_ + _tl129338129820_ + _e129343129823_ + _hd129342129826_ + _tl129341129828_ + _e129346129831_ + _hd129345129834_ + _tl129344129836_ + _e129349129839_ + _hd129348129842_ + _tl129347129844_ + _e129352129847_ + _hd129351129850_ + _tl129350129852_ + _e129355129855_ + _hd129354129858_ + _tl129353129860_ + _e129358129863_ + _hd129357129866_ + _tl129356129868_ + _e129361129871_ + _hd129360129874_ + _tl129359129876_ + _e129364129879_ + _hd129363129882_ + _tl129362129884_ + _e129367129887_ + _hd129366129890_ + _tl129365129892_) (if (let () (declare (not safe)) - (gx#stx-null? _tl129362129879_)) - (___match135099135100_ - _e129343129818_ - _hd129342129821_ - _tl129341129823_ - _e129346129826_ - _hd129345129829_ - _tl129344129831_ - _e129349129834_ - _hd129348129837_ - _tl129347129839_ - _e129352129842_ - _hd129351129845_ - _tl129350129847_ - _e129355129850_ - _hd129354129853_ - _tl129353129855_ - _e129358129858_ - _hd129357129861_ - _tl129356129863_ - _e129361129866_ - _hd129360129869_ - _tl129359129871_ - _e129364129874_ - _hd129363129877_ - _tl129362129879_ - _e129367129882_ - _hd129366129885_ - _tl129365129887_ - _e129370129890_ - _hd129369129893_ - _tl129368129895_) - (___match135177135178_ - _e129343129818_ - _hd129342129821_ - _tl129341129823_ - _e129346129826_ - _hd129345129829_ - _tl129344129831_ - _e129349129834_ - _hd129348129837_ - _tl129347129839_ - _e129352129842_ - _hd129351129845_ - _tl129350129847_ - _e129355129850_ - _hd129354129853_ - _tl129353129855_ - _e129358129858_ - _hd129357129861_ - _tl129356129863_ - _e129361129866_ - _hd129360129869_ - _tl129359129871_ - _e129364129874_ - _hd129363129877_ - _tl129362129879_ - _e129367129882_ - _hd129366129885_ - _tl129365129887_ - _e129370129890_ - _hd129369129893_ - _tl129368129895_)))) - (___match135087135088_ - (lambda (_e129343129818_ - _hd129342129821_ - _tl129341129823_ - _e129346129826_ - _hd129345129829_ - _tl129344129831_ - _e129349129834_ - _hd129348129837_ - _tl129347129839_ - _e129352129842_ - _hd129351129845_ - _tl129350129847_ - _e129355129850_ - _hd129354129853_ - _tl129353129855_ - _e129358129858_ - _hd129357129861_ - _tl129356129863_ - _e129361129866_ - _hd129360129869_ - _tl129359129871_ - _e129364129874_ - _hd129363129877_ - _tl129362129879_ - _e129367129882_ - _hd129366129885_ - _tl129365129887_) + (gx#stx-null? _tl129359129876_)) + (___match135096135097_ + _e129340129815_ + _hd129339129818_ + _tl129338129820_ + _e129343129823_ + _hd129342129826_ + _tl129341129828_ + _e129346129831_ + _hd129345129834_ + _tl129344129836_ + _e129349129839_ + _hd129348129842_ + _tl129347129844_ + _e129352129847_ + _hd129351129850_ + _tl129350129852_ + _e129355129855_ + _hd129354129858_ + _tl129353129860_ + _e129358129863_ + _hd129357129866_ + _tl129356129868_ + _e129361129871_ + _hd129360129874_ + _tl129359129876_ + _e129364129879_ + _hd129363129882_ + _tl129362129884_ + _e129367129887_ + _hd129366129890_ + _tl129365129892_) + (___match135174135175_ + _e129340129815_ + _hd129339129818_ + _tl129338129820_ + _e129343129823_ + _hd129342129826_ + _tl129341129828_ + _e129346129831_ + _hd129345129834_ + _tl129344129836_ + _e129349129839_ + _hd129348129842_ + _tl129347129844_ + _e129352129847_ + _hd129351129850_ + _tl129350129852_ + _e129355129855_ + _hd129354129858_ + _tl129353129860_ + _e129358129863_ + _hd129357129866_ + _tl129356129868_ + _e129361129871_ + _hd129360129874_ + _tl129359129876_ + _e129364129879_ + _hd129363129882_ + _tl129362129884_ + _e129367129887_ + _hd129366129890_ + _tl129365129892_)))) + (___match135084135085_ + (lambda (_e129340129815_ + _hd129339129818_ + _tl129338129820_ + _e129343129823_ + _hd129342129826_ + _tl129341129828_ + _e129346129831_ + _hd129345129834_ + _tl129344129836_ + _e129349129839_ + _hd129348129842_ + _tl129347129844_ + _e129352129847_ + _hd129351129850_ + _tl129350129852_ + _e129355129855_ + _hd129354129858_ + _tl129353129860_ + _e129358129863_ + _hd129357129866_ + _tl129356129868_ + _e129361129871_ + _hd129360129874_ + _tl129359129876_ + _e129364129879_ + _hd129363129882_ + _tl129362129884_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd129366129885_)) + (gx#stx-eq? '%#quote _hd129363129882_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129365129887_)) - (let ((_e129370129890_ + (gx#stx-pair? _tl129362129884_)) + (let ((_e129367129887_ (let () (declare (not safe)) - (gx#stx-e _tl129365129887_)))) - (let ((_tl129368129895_ + (gx#stx-e _tl129362129884_)))) + (let ((_tl129365129892_ (let () (declare (not safe)) - (##cdr _e129370129890_))) - (_hd129369129893_ + (##cdr _e129367129887_))) + (_hd129366129890_ (let () (declare (not safe)) - (##car _e129370129890_)))) + (##car _e129367129887_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129368129895_)) + (gx#stx-null? _tl129365129892_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl129362129879_)) - (___match135099135100_ - _e129343129818_ - _hd129342129821_ - _tl129341129823_ - _e129346129826_ - _hd129345129829_ - _tl129344129831_ - _e129349129834_ - _hd129348129837_ - _tl129347129839_ - _e129352129842_ - _hd129351129845_ - _tl129350129847_ - _e129355129850_ - _hd129354129853_ - _tl129353129855_ - _e129358129858_ - _hd129357129861_ - _tl129356129863_ - _e129361129866_ - _hd129360129869_ - _tl129359129871_ - _e129364129874_ - _hd129363129877_ - _tl129362129879_ - _e129367129882_ - _hd129366129885_ - _tl129365129887_ - _e129370129890_ - _hd129369129893_ - _tl129368129895_) - (___match135177135178_ - _e129343129818_ - _hd129342129821_ - _tl129341129823_ - _e129346129826_ - _hd129345129829_ - _tl129344129831_ - _e129349129834_ - _hd129348129837_ - _tl129347129839_ - _e129352129842_ - _hd129351129845_ - _tl129350129847_ - _e129355129850_ - _hd129354129853_ - _tl129353129855_ - _e129358129858_ - _hd129357129861_ - _tl129356129863_ - _e129361129866_ - _hd129360129869_ - _tl129359129871_ - _e129364129874_ - _hd129363129877_ - _tl129362129879_ - _e129367129882_ - _hd129366129885_ - _tl129365129887_ - _e129370129890_ - _hd129369129893_ - _tl129368129895_)) - (___match135301135302_ - _e129343129818_ - _hd129342129821_ - _tl129341129823_ - _e129346129826_ - _hd129345129829_ - _tl129344129831_ - _e129349129834_ - _hd129348129837_ - _tl129347129839_ - _e129352129842_ - _hd129351129845_ - _tl129350129847_ - _e129355129850_ - _hd129354129853_ - _tl129353129855_ - _e129358129858_ - _hd129357129861_ - _tl129356129863_ - _e129361129866_ - _hd129360129869_ - _tl129359129871_ - _e129364129874_ - _hd129363129877_ - _tl129362129879_)))) - (___match135301135302_ - _e129343129818_ - _hd129342129821_ - _tl129341129823_ - _e129346129826_ - _hd129345129829_ - _tl129344129831_ - _e129349129834_ - _hd129348129837_ - _tl129347129839_ - _e129352129842_ - _hd129351129845_ - _tl129350129847_ - _e129355129850_ - _hd129354129853_ - _tl129353129855_ - _e129358129858_ - _hd129357129861_ - _tl129356129863_ - _e129361129866_ - _hd129360129869_ - _tl129359129871_ - _e129364129874_ - _hd129363129877_ - _tl129362129879_)) - (___match135301135302_ - _e129343129818_ - _hd129342129821_ - _tl129341129823_ - _e129346129826_ - _hd129345129829_ - _tl129344129831_ - _e129349129834_ - _hd129348129837_ - _tl129347129839_ - _e129352129842_ - _hd129351129845_ - _tl129350129847_ - _e129355129850_ - _hd129354129853_ - _tl129353129855_ - _e129358129858_ - _hd129357129861_ - _tl129356129863_ - _e129361129866_ - _hd129360129869_ - _tl129359129871_ - _e129364129874_ - _hd129363129877_ - _tl129362129879_)))) - (___match135019135020_ - (lambda (_e129292129939_ - _hd129291129942_ - _tl129290129944_ - _e129295129947_ - _hd129294129950_ - _tl129293129952_ - _e129298129955_ - _hd129297129958_ - _tl129296129960_ - _e129301129963_ - _hd129300129966_ - _tl129299129968_ - _e129304129971_ - _hd129303129974_ - _tl129302129976_ - _e129307129979_ - _hd129306129982_ - _tl129305129984_ - _e129310129987_ - _hd129309129990_ - _tl129308129992_ - _e129313129995_ - _hd129312129998_ - _tl129311130000_ - _e129316130003_ - _hd129315130006_ - _tl129314130008_ - _e129319130011_ - _hd129318130014_ - _tl129317130016_ - _e129322130019_ - _hd129321130022_ - _tl129320130024_ - _e129325130027_ - _hd129324130030_ - _tl129323130032_ - _e129328130035_ - _hd129327130038_ - _tl129326130040_ - ___splice134812134813_ - _target129329130043_ - _tl129331130045_) - (letrec ((_loop129332130048_ - (lambda (_hd129330130051_ _args129336130053_) + (gx#stx-null? _tl129359129876_)) + (___match135096135097_ + _e129340129815_ + _hd129339129818_ + _tl129338129820_ + _e129343129823_ + _hd129342129826_ + _tl129341129828_ + _e129346129831_ + _hd129345129834_ + _tl129344129836_ + _e129349129839_ + _hd129348129842_ + _tl129347129844_ + _e129352129847_ + _hd129351129850_ + _tl129350129852_ + _e129355129855_ + _hd129354129858_ + _tl129353129860_ + _e129358129863_ + _hd129357129866_ + _tl129356129868_ + _e129361129871_ + _hd129360129874_ + _tl129359129876_ + _e129364129879_ + _hd129363129882_ + _tl129362129884_ + _e129367129887_ + _hd129366129890_ + _tl129365129892_) + (___match135174135175_ + _e129340129815_ + _hd129339129818_ + _tl129338129820_ + _e129343129823_ + _hd129342129826_ + _tl129341129828_ + _e129346129831_ + _hd129345129834_ + _tl129344129836_ + _e129349129839_ + _hd129348129842_ + _tl129347129844_ + _e129352129847_ + _hd129351129850_ + _tl129350129852_ + _e129355129855_ + _hd129354129858_ + _tl129353129860_ + _e129358129863_ + _hd129357129866_ + _tl129356129868_ + _e129361129871_ + _hd129360129874_ + _tl129359129876_ + _e129364129879_ + _hd129363129882_ + _tl129362129884_ + _e129367129887_ + _hd129366129890_ + _tl129365129892_)) + (___match135298135299_ + _e129340129815_ + _hd129339129818_ + _tl129338129820_ + _e129343129823_ + _hd129342129826_ + _tl129341129828_ + _e129346129831_ + _hd129345129834_ + _tl129344129836_ + _e129349129839_ + _hd129348129842_ + _tl129347129844_ + _e129352129847_ + _hd129351129850_ + _tl129350129852_ + _e129355129855_ + _hd129354129858_ + _tl129353129860_ + _e129358129863_ + _hd129357129866_ + _tl129356129868_ + _e129361129871_ + _hd129360129874_ + _tl129359129876_)))) + (___match135298135299_ + _e129340129815_ + _hd129339129818_ + _tl129338129820_ + _e129343129823_ + _hd129342129826_ + _tl129341129828_ + _e129346129831_ + _hd129345129834_ + _tl129344129836_ + _e129349129839_ + _hd129348129842_ + _tl129347129844_ + _e129352129847_ + _hd129351129850_ + _tl129350129852_ + _e129355129855_ + _hd129354129858_ + _tl129353129860_ + _e129358129863_ + _hd129357129866_ + _tl129356129868_ + _e129361129871_ + _hd129360129874_ + _tl129359129876_)) + (___match135298135299_ + _e129340129815_ + _hd129339129818_ + _tl129338129820_ + _e129343129823_ + _hd129342129826_ + _tl129341129828_ + _e129346129831_ + _hd129345129834_ + _tl129344129836_ + _e129349129839_ + _hd129348129842_ + _tl129347129844_ + _e129352129847_ + _hd129351129850_ + _tl129350129852_ + _e129355129855_ + _hd129354129858_ + _tl129353129860_ + _e129358129863_ + _hd129357129866_ + _tl129356129868_ + _e129361129871_ + _hd129360129874_ + _tl129359129876_)))) + (___match135016135017_ + (lambda (_e129289129936_ + _hd129288129939_ + _tl129287129941_ + _e129292129944_ + _hd129291129947_ + _tl129290129949_ + _e129295129952_ + _hd129294129955_ + _tl129293129957_ + _e129298129960_ + _hd129297129963_ + _tl129296129965_ + _e129301129968_ + _hd129300129971_ + _tl129299129973_ + _e129304129976_ + _hd129303129979_ + _tl129302129981_ + _e129307129984_ + _hd129306129987_ + _tl129305129989_ + _e129310129992_ + _hd129309129995_ + _tl129308129997_ + _e129313130000_ + _hd129312130003_ + _tl129311130005_ + _e129316130008_ + _hd129315130011_ + _tl129314130013_ + _e129319130016_ + _hd129318130019_ + _tl129317130021_ + _e129322130024_ + _hd129321130027_ + _tl129320130029_ + _e129325130032_ + _hd129324130035_ + _tl129323130037_ + ___splice134809134810_ + _target129326130040_ + _tl129328130042_) + (letrec ((_loop129329130045_ + (lambda (_hd129327130048_ _args129333130050_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd129330130051_)) - (let ((_e129333130056_ + (gx#stx-pair? _hd129327130048_)) + (let ((_e129330130053_ (let () (declare (not safe)) - (gx#stx-e _hd129330130051_)))) - (let ((_lp-tl129335130061_ + (gx#stx-e _hd129327130048_)))) + (let ((_lp-tl129332130058_ (let () (declare (not safe)) - (##cdr _e129333130056_))) - (_lp-hd129334130059_ + (##cdr _e129330130053_))) + (_lp-hd129331130056_ (let () (declare (not safe)) - (##car _e129333130056_)))) - (let ((__tmp135675 + (##car _e129330130053_)))) + (let ((__tmp135672 (let () (declare (not safe)) - (cons _lp-hd129334130059_ - _args129336130053_)))) + (cons _lp-hd129331130056_ + _args129333130050_)))) (declare (not safe)) - (_loop129332130048_ - _lp-tl129335130061_ - __tmp135675)))) - (let ((_args129337130064_ - (reverse _args129336130053_))) - (let ((_L130067_ _args129337130064_) - (_L130068_ _hd129327130038_) - (_L130069_ _hd129318130014_) - (_L130070_ _hd129309129990_) - (_L130071_ _hd129300129966_)) + (_loop129329130045_ + _lp-tl129332130058_ + __tmp135672)))) + (let ((_args129334130061_ + (reverse _args129333130050_))) + (let ((_L130064_ _args129334130061_) + (_L130065_ _hd129324130035_) + (_L130066_ _hd129315130011_) + (_L130067_ _hd129306129987_) + (_L130068_ _hd129297129963_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130071_ + _L130068_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130070_ + _L130067_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L130069_ - _self129227_))) - (___kont134810134811_ + _L130066_ + _self129224_))) + (___kont134807134808_ + _L130064_ + _L130065_ + _L130066_ _L130067_ - _L130068_ - _L130069_ - _L130070_ - _L130071_) - (___kont134822134823_)))))))) + _L130068_) + (___kont134819134820_)))))))) (let () (declare (not safe)) - (_loop129332130048_ _target129329130043_ '()))))) - (___match134977134978_ - (lambda (_e129292129939_ - _hd129291129942_ - _tl129290129944_ - _e129295129947_ - _hd129294129950_ - _tl129293129952_ - _e129298129955_ - _hd129297129958_ - _tl129296129960_ - _e129301129963_ - _hd129300129966_ - _tl129299129968_ - _e129304129971_ - _hd129303129974_ - _tl129302129976_ - _e129307129979_ - _hd129306129982_ - _tl129305129984_ - _e129310129987_ - _hd129309129990_ - _tl129308129992_ - _e129313129995_ - _hd129312129998_ - _tl129311130000_ - _e129316130003_ - _hd129315130006_ - _tl129314130008_) + (_loop129329130045_ _target129326130040_ '()))))) + (___match134974134975_ + (lambda (_e129289129936_ + _hd129288129939_ + _tl129287129941_ + _e129292129944_ + _hd129291129947_ + _tl129290129949_ + _e129295129952_ + _hd129294129955_ + _tl129293129957_ + _e129298129960_ + _hd129297129963_ + _tl129296129965_ + _e129301129968_ + _hd129300129971_ + _tl129299129973_ + _e129304129976_ + _hd129303129979_ + _tl129302129981_ + _e129307129984_ + _hd129306129987_ + _tl129305129989_ + _e129310129992_ + _hd129309129995_ + _tl129308129997_ + _e129313130000_ + _hd129312130003_ + _tl129311130005_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd129315130006_)) + (gx#stx-eq? '%#ref _hd129312130003_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129314130008_)) - (let ((_e129319130011_ + (gx#stx-pair? _tl129311130005_)) + (let ((_e129316130008_ (let () (declare (not safe)) - (gx#stx-e _tl129314130008_)))) - (let ((_tl129317130016_ + (gx#stx-e _tl129311130005_)))) + (let ((_tl129314130013_ (let () (declare (not safe)) - (##cdr _e129319130011_))) - (_hd129318130014_ + (##cdr _e129316130008_))) + (_hd129315130011_ (let () (declare (not safe)) - (##car _e129319130011_)))) + (##car _e129316130008_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129317130016_)) + (gx#stx-null? _tl129314130013_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129311130000_)) - (let ((_e129322130019_ + (gx#stx-pair? _tl129308129997_)) + (let ((_e129319130016_ (let () (declare (not safe)) (gx#stx-e - _tl129311130000_)))) - (let ((_tl129320130024_ + _tl129308129997_)))) + (let ((_tl129317130021_ (let () (declare (not safe)) - (##cdr _e129322130019_))) - (_hd129321130022_ + (##cdr _e129319130016_))) + (_hd129318130019_ (let () (declare (not safe)) - (##car _e129322130019_)))) + (##car _e129319130016_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd129321130022_)) - (let ((_e129325130027_ + _hd129318130019_)) + (let ((_e129322130024_ (let () (declare (not safe)) (gx#stx-e - _hd129321130022_)))) - (let ((_tl129323130032_ + _hd129318130019_)))) + (let ((_tl129320130029_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e129325130027_))) - (_hd129324130030_ - (let () (declare (not safe)) (##car _e129325130027_)))) + (##cdr _e129322130024_))) + (_hd129321130027_ + (let () (declare (not safe)) (##car _e129322130024_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd129324130030_)) + (gx#identifier? _hd129321130027_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd129324130030_)) + (gx#stx-eq? '%#quote _hd129321130027_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129323130032_)) - (let ((_e129328130035_ + (gx#stx-pair? _tl129320130029_)) + (let ((_e129325130032_ (let () (declare (not safe)) - (gx#stx-e _tl129323130032_)))) - (let ((_tl129326130040_ + (gx#stx-e _tl129320130029_)))) + (let ((_tl129323130037_ (let () (declare (not safe)) - (##cdr _e129328130035_))) - (_hd129327130038_ + (##cdr _e129325130032_))) + (_hd129324130035_ (let () (declare (not safe)) - (##car _e129328130035_)))) + (##car _e129325130032_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129326130040_)) + (gx#stx-null? _tl129323130037_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl129320130024_)) - (let ((___splice134812134813_ + (gx#stx-pair/null? _tl129317130021_)) + (let ((___splice134809134810_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl129320130024_ + _tl129317130021_ '0)))) - (let ((_tl129331130045_ + (let ((_tl129328130042_ (let () (declare (not safe)) (##vector-ref - ___splice134812134813_ + ___splice134809134810_ '1))) - (_target129329130043_ + (_target129326130040_ (let () (declare (not safe)) (##vector-ref - ___splice134812134813_ + ___splice134809134810_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl129331130045_)) - (___match135019135020_ - _e129292129939_ - _hd129291129942_ - _tl129290129944_ - _e129295129947_ - _hd129294129950_ - _tl129293129952_ - _e129298129955_ - _hd129297129958_ - _tl129296129960_ - _e129301129963_ - _hd129300129966_ - _tl129299129968_ - _e129304129971_ - _hd129303129974_ - _tl129302129976_ - _e129307129979_ - _hd129306129982_ - _tl129305129984_ - _e129310129987_ - _hd129309129990_ - _tl129308129992_ - _e129313129995_ - _hd129312129998_ - _tl129311130000_ - _e129316130003_ - _hd129315130006_ - _tl129314130008_ - _e129319130011_ - _hd129318130014_ - _tl129317130016_ - _e129322130019_ - _hd129321130022_ - _tl129320130024_ - _e129325130027_ - _hd129324130030_ - _tl129323130032_ - _e129328130035_ - _hd129327130038_ - _tl129326130040_ - ___splice134812134813_ - _target129329130043_ - _tl129331130045_) - (___kont134822134823_)))) - (___kont134822134823_)) - (___kont134822134823_)))) - (___kont134822134823_)) - (___kont134822134823_)) - (___kont134822134823_)))) + _tl129328130042_)) + (___match135016135017_ + _e129289129936_ + _hd129288129939_ + _tl129287129941_ + _e129292129944_ + _hd129291129947_ + _tl129290129949_ + _e129295129952_ + _hd129294129955_ + _tl129293129957_ + _e129298129960_ + _hd129297129963_ + _tl129296129965_ + _e129301129968_ + _hd129300129971_ + _tl129299129973_ + _e129304129976_ + _hd129303129979_ + _tl129302129981_ + _e129307129984_ + _hd129306129987_ + _tl129305129989_ + _e129310129992_ + _hd129309129995_ + _tl129308129997_ + _e129313130000_ + _hd129312130003_ + _tl129311130005_ + _e129316130008_ + _hd129315130011_ + _tl129314130013_ + _e129319130016_ + _hd129318130019_ + _tl129317130021_ + _e129322130024_ + _hd129321130027_ + _tl129320130029_ + _e129325130032_ + _hd129324130035_ + _tl129323130037_ + ___splice134809134810_ + _target129326130040_ + _tl129328130042_) + (___kont134819134820_)))) + (___kont134819134820_)) + (___kont134819134820_)))) + (___kont134819134820_)) + (___kont134819134820_)) + (___kont134819134820_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134822134823_)))) - (___match135301135302_ - _e129292129939_ - _hd129291129942_ - _tl129290129944_ - _e129295129947_ - _hd129294129950_ - _tl129293129952_ - _e129298129955_ - _hd129297129958_ - _tl129296129960_ - _e129301129963_ - _hd129300129966_ - _tl129299129968_ - _e129304129971_ - _hd129303129974_ - _tl129302129976_ - _e129307129979_ - _hd129306129982_ - _tl129305129984_ - _e129310129987_ - _hd129309129990_ - _tl129308129992_ - _e129313129995_ - _hd129312129998_ - _tl129311130000_)) - (___match135301135302_ - _e129292129939_ - _hd129291129942_ - _tl129290129944_ - _e129295129947_ - _hd129294129950_ - _tl129293129952_ - _e129298129955_ - _hd129297129958_ - _tl129296129960_ - _e129301129963_ - _hd129300129966_ - _tl129299129968_ - _e129304129971_ - _hd129303129974_ - _tl129302129976_ - _e129307129979_ - _hd129306129982_ - _tl129305129984_ - _e129310129987_ - _hd129309129990_ - _tl129308129992_ - _e129313129995_ - _hd129312129998_ - _tl129311130000_)))) - (___match135301135302_ - _e129292129939_ - _hd129291129942_ - _tl129290129944_ - _e129295129947_ - _hd129294129950_ - _tl129293129952_ - _e129298129955_ - _hd129297129958_ - _tl129296129960_ - _e129301129963_ - _hd129300129966_ - _tl129299129968_ - _e129304129971_ - _hd129303129974_ - _tl129302129976_ - _e129307129979_ - _hd129306129982_ - _tl129305129984_ - _e129310129987_ - _hd129309129990_ - _tl129308129992_ - _e129313129995_ - _hd129312129998_ - _tl129311130000_)) - (___match135087135088_ - _e129292129939_ - _hd129291129942_ - _tl129290129944_ - _e129295129947_ - _hd129294129950_ - _tl129293129952_ - _e129298129955_ - _hd129297129958_ - _tl129296129960_ - _e129301129963_ - _hd129300129966_ - _tl129299129968_ - _e129304129971_ - _hd129303129974_ - _tl129302129976_ - _e129307129979_ - _hd129306129982_ - _tl129305129984_ - _e129310129987_ - _hd129309129990_ - _tl129308129992_ - _e129313129995_ - _hd129312129998_ - _tl129311130000_ - _e129316130003_ - _hd129315130006_ - _tl129314130008_)))) - (___match134909134910_ - (lambda (_e129248130131_ - _hd129247130134_ - _tl129246130136_ - _e129251130139_ - _hd129250130142_ - _tl129249130144_ - _e129254130147_ - _hd129253130150_ - _tl129252130152_ - _e129257130155_ - _hd129256130158_ - _tl129255130160_ - _e129260130163_ - _hd129259130166_ - _tl129258130168_ - _e129263130171_ - _hd129262130174_ - _tl129261130176_ - _e129266130179_ - _hd129265130182_ - _tl129264130184_ - _e129269130187_ - _hd129268130190_ - _tl129267130192_ - _e129272130195_ - _hd129271130198_ - _tl129270130200_ - _e129275130203_ - _hd129274130206_ - _tl129273130208_ - ___splice134808134809_ - _target129276130211_ - _tl129278130213_) - (letrec ((_loop129279130216_ - (lambda (_hd129277130219_ _args129283130221_) + (___kont134819134820_)))) + (___match135298135299_ + _e129289129936_ + _hd129288129939_ + _tl129287129941_ + _e129292129944_ + _hd129291129947_ + _tl129290129949_ + _e129295129952_ + _hd129294129955_ + _tl129293129957_ + _e129298129960_ + _hd129297129963_ + _tl129296129965_ + _e129301129968_ + _hd129300129971_ + _tl129299129973_ + _e129304129976_ + _hd129303129979_ + _tl129302129981_ + _e129307129984_ + _hd129306129987_ + _tl129305129989_ + _e129310129992_ + _hd129309129995_ + _tl129308129997_)) + (___match135298135299_ + _e129289129936_ + _hd129288129939_ + _tl129287129941_ + _e129292129944_ + _hd129291129947_ + _tl129290129949_ + _e129295129952_ + _hd129294129955_ + _tl129293129957_ + _e129298129960_ + _hd129297129963_ + _tl129296129965_ + _e129301129968_ + _hd129300129971_ + _tl129299129973_ + _e129304129976_ + _hd129303129979_ + _tl129302129981_ + _e129307129984_ + _hd129306129987_ + _tl129305129989_ + _e129310129992_ + _hd129309129995_ + _tl129308129997_)))) + (___match135298135299_ + _e129289129936_ + _hd129288129939_ + _tl129287129941_ + _e129292129944_ + _hd129291129947_ + _tl129290129949_ + _e129295129952_ + _hd129294129955_ + _tl129293129957_ + _e129298129960_ + _hd129297129963_ + _tl129296129965_ + _e129301129968_ + _hd129300129971_ + _tl129299129973_ + _e129304129976_ + _hd129303129979_ + _tl129302129981_ + _e129307129984_ + _hd129306129987_ + _tl129305129989_ + _e129310129992_ + _hd129309129995_ + _tl129308129997_)) + (___match135084135085_ + _e129289129936_ + _hd129288129939_ + _tl129287129941_ + _e129292129944_ + _hd129291129947_ + _tl129290129949_ + _e129295129952_ + _hd129294129955_ + _tl129293129957_ + _e129298129960_ + _hd129297129963_ + _tl129296129965_ + _e129301129968_ + _hd129300129971_ + _tl129299129973_ + _e129304129976_ + _hd129303129979_ + _tl129302129981_ + _e129307129984_ + _hd129306129987_ + _tl129305129989_ + _e129310129992_ + _hd129309129995_ + _tl129308129997_ + _e129313130000_ + _hd129312130003_ + _tl129311130005_)))) + (___match134906134907_ + (lambda (_e129245130128_ + _hd129244130131_ + _tl129243130133_ + _e129248130136_ + _hd129247130139_ + _tl129246130141_ + _e129251130144_ + _hd129250130147_ + _tl129249130149_ + _e129254130152_ + _hd129253130155_ + _tl129252130157_ + _e129257130160_ + _hd129256130163_ + _tl129255130165_ + _e129260130168_ + _hd129259130171_ + _tl129258130173_ + _e129263130176_ + _hd129262130179_ + _tl129261130181_ + _e129266130184_ + _hd129265130187_ + _tl129264130189_ + _e129269130192_ + _hd129268130195_ + _tl129267130197_ + _e129272130200_ + _hd129271130203_ + _tl129270130205_ + ___splice134805134806_ + _target129273130208_ + _tl129275130210_) + (letrec ((_loop129276130213_ + (lambda (_hd129274130216_ _args129280130218_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd129277130219_)) - (let ((_e129280130224_ + (gx#stx-pair? _hd129274130216_)) + (let ((_e129277130221_ (let () (declare (not safe)) - (gx#stx-e _hd129277130219_)))) - (let ((_lp-tl129282130229_ + (gx#stx-e _hd129274130216_)))) + (let ((_lp-tl129279130226_ (let () (declare (not safe)) - (##cdr _e129280130224_))) - (_lp-hd129281130227_ + (##cdr _e129277130221_))) + (_lp-hd129278130224_ (let () (declare (not safe)) - (##car _e129280130224_)))) - (let ((__tmp135676 + (##car _e129277130221_)))) + (let ((__tmp135673 (let () (declare (not safe)) - (cons _lp-hd129281130227_ - _args129283130221_)))) + (cons _lp-hd129278130224_ + _args129280130218_)))) (declare (not safe)) - (_loop129279130216_ - _lp-tl129282130229_ - __tmp135676)))) - (let ((_args129284130232_ - (reverse _args129283130221_))) - (let ((_L130235_ _args129284130232_) - (_L130236_ _hd129274130206_) - (_L130237_ _hd129265130182_) - (_L130238_ _hd129256130158_)) + (_loop129276130213_ + _lp-tl129279130226_ + __tmp135673)))) + (let ((_args129281130229_ + (reverse _args129280130218_))) + (let ((_L130232_ _args129281130229_) + (_L130233_ _hd129271130203_) + (_L130234_ _hd129262130179_) + (_L130235_ _hd129253130155_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130238_ + _L130235_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L130237_ - _self129227_))) - (___kont134806134807_ - _L130235_ - _L130236_ - _L130237_ - _L130238_) - (___match135097135098_ - _e129248130131_ - _hd129247130134_ - _tl129246130136_ - _e129251130139_ - _hd129250130142_ - _tl129249130144_ - _e129254130147_ - _hd129253130150_ - _tl129252130152_ - _e129257130155_ - _hd129256130158_ - _tl129255130160_ - _e129260130163_ - _hd129259130166_ - _tl129258130168_ - _e129263130171_ - _hd129262130174_ - _tl129261130176_ - _e129266130179_ - _hd129265130182_ - _tl129264130184_ - _e129269130187_ - _hd129268130190_ - _tl129267130192_ - _e129272130195_ - _hd129271130198_ - _tl129270130200_ - _e129275130203_ - _hd129274130206_ - _tl129273130208_)))))))) + _L130234_ + _self129224_))) + (___kont134803134804_ + _L130232_ + _L130233_ + _L130234_ + _L130235_) + (___match135094135095_ + _e129245130128_ + _hd129244130131_ + _tl129243130133_ + _e129248130136_ + _hd129247130139_ + _tl129246130141_ + _e129251130144_ + _hd129250130147_ + _tl129249130149_ + _e129254130152_ + _hd129253130155_ + _tl129252130157_ + _e129257130160_ + _hd129256130163_ + _tl129255130165_ + _e129260130168_ + _hd129259130171_ + _tl129258130173_ + _e129263130176_ + _hd129262130179_ + _tl129261130181_ + _e129266130184_ + _hd129265130187_ + _tl129264130189_ + _e129269130192_ + _hd129268130195_ + _tl129267130197_ + _e129272130200_ + _hd129271130203_ + _tl129270130205_)))))))) (let () (declare (not safe)) - (_loop129279130216_ _target129276130211_ '())))))) + (_loop129276130213_ _target129273130208_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx134804134805_)) - (let ((_e129248130131_ + (gx#stx-pair? ___stx134801134802_)) + (let ((_e129245130128_ (let () (declare (not safe)) - (gx#stx-e ___stx134804134805_)))) - (let ((_tl129246130136_ + (gx#stx-e ___stx134801134802_)))) + (let ((_tl129243130133_ (let () (declare (not safe)) - (##cdr _e129248130131_))) - (_hd129247130134_ + (##cdr _e129245130128_))) + (_hd129244130131_ (let () (declare (not safe)) - (##car _e129248130131_)))) + (##car _e129245130128_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129246130136_)) - (let ((_e129251130139_ + (gx#stx-pair? _tl129243130133_)) + (let ((_e129248130136_ (let () (declare (not safe)) - (gx#stx-e _tl129246130136_)))) - (let ((_tl129249130144_ + (gx#stx-e _tl129243130133_)))) + (let ((_tl129246130141_ (let () (declare (not safe)) - (##cdr _e129251130139_))) - (_hd129250130142_ + (##cdr _e129248130136_))) + (_hd129247130139_ (let () (declare (not safe)) - (##car _e129251130139_)))) + (##car _e129248130136_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd129250130142_)) - (let ((_e129254130147_ + (gx#stx-pair? _hd129247130139_)) + (let ((_e129251130144_ (let () (declare (not safe)) - (gx#stx-e _hd129250130142_)))) - (let ((_tl129252130152_ + (gx#stx-e _hd129247130139_)))) + (let ((_tl129249130149_ (let () (declare (not safe)) - (##cdr _e129254130147_))) - (_hd129253130150_ + (##cdr _e129251130144_))) + (_hd129250130147_ (let () (declare (not safe)) - (##car _e129254130147_)))) + (##car _e129251130144_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd129253130150_)) + _hd129250130147_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd129253130150_)) + _hd129250130147_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl129252130152_)) - (let ((_e129257130155_ + _tl129249130149_)) + (let ((_e129254130152_ (let () (declare (not safe)) (gx#stx-e - _tl129252130152_)))) - (let ((_tl129255130160_ + _tl129249130149_)))) + (let ((_tl129252130157_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e129257130155_))) - (_hd129256130158_ - (let () (declare (not safe)) (##car _e129257130155_)))) + (##cdr _e129254130152_))) + (_hd129253130155_ + (let () (declare (not safe)) (##car _e129254130152_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129255130160_)) + (gx#stx-null? _tl129252130157_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129249130144_)) - (let ((_e129260130163_ + (gx#stx-pair? _tl129246130141_)) + (let ((_e129257130160_ (let () (declare (not safe)) - (gx#stx-e _tl129249130144_)))) - (let ((_tl129258130168_ + (gx#stx-e _tl129246130141_)))) + (let ((_tl129255130165_ (let () (declare (not safe)) - (##cdr _e129260130163_))) - (_hd129259130166_ + (##cdr _e129257130160_))) + (_hd129256130163_ (let () (declare (not safe)) - (##car _e129260130163_)))) + (##car _e129257130160_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd129259130166_)) - (let ((_e129263130171_ + (gx#stx-pair? _hd129256130163_)) + (let ((_e129260130168_ (let () (declare (not safe)) - (gx#stx-e _hd129259130166_)))) - (let ((_tl129261130176_ + (gx#stx-e _hd129256130163_)))) + (let ((_tl129258130173_ (let () (declare (not safe)) - (##cdr _e129263130171_))) - (_hd129262130174_ + (##cdr _e129260130168_))) + (_hd129259130171_ (let () (declare (not safe)) - (##car _e129263130171_)))) + (##car _e129260130168_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd129262130174_)) + (gx#identifier? _hd129259130171_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd129262130174_)) + _hd129259130171_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl129261130176_)) - (let ((_e129266130179_ + _tl129258130173_)) + (let ((_e129263130176_ (let () (declare (not safe)) (gx#stx-e - _tl129261130176_)))) - (let ((_tl129264130184_ + _tl129258130173_)))) + (let ((_tl129261130181_ (let () (declare (not safe)) - (##cdr _e129266130179_))) - (_hd129265130182_ + (##cdr _e129263130176_))) + (_hd129262130179_ (let () (declare (not safe)) - (##car _e129266130179_)))) + (##car _e129263130176_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl129264130184_)) + _tl129261130181_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl129258130168_)) - (let ((_e129269130187_ + _tl129255130165_)) + (let ((_e129266130184_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl129258130168_)))) - (let ((_tl129267130192_ + (gx#stx-e _tl129255130165_)))) + (let ((_tl129264130189_ (let () (declare (not safe)) - (##cdr _e129269130187_))) - (_hd129268130190_ + (##cdr _e129266130184_))) + (_hd129265130187_ (let () (declare (not safe)) - (##car _e129269130187_)))) + (##car _e129266130184_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd129268130190_)) - (let ((_e129272130195_ + (gx#stx-pair? _hd129265130187_)) + (let ((_e129269130192_ (let () (declare (not safe)) - (gx#stx-e _hd129268130190_)))) - (let ((_tl129270130200_ + (gx#stx-e _hd129265130187_)))) + (let ((_tl129267130197_ (let () (declare (not safe)) - (##cdr _e129272130195_))) - (_hd129271130198_ + (##cdr _e129269130192_))) + (_hd129268130195_ (let () (declare (not safe)) - (##car _e129272130195_)))) + (##car _e129269130192_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd129271130198_)) + (gx#identifier? _hd129268130195_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd129271130198_)) + _hd129268130195_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129270130200_)) - (let ((_e129275130203_ + (gx#stx-pair? _tl129267130197_)) + (let ((_e129272130200_ (let () (declare (not safe)) (gx#stx-e - _tl129270130200_)))) - (let ((_tl129273130208_ + _tl129267130197_)))) + (let ((_tl129270130205_ (let () (declare (not safe)) - (##cdr _e129275130203_))) - (_hd129274130206_ + (##cdr _e129272130200_))) + (_hd129271130203_ (let () (declare (not safe)) - (##car _e129275130203_)))) + (##car _e129272130200_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl129273130208_)) + _tl129270130205_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl129267130192_)) - (let ((___splice134808134809_ + _tl129264130189_)) + (let ((___splice134805134806_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _tl129267130192_ '0)))) - (let ((_tl129278130213_ + (gx#syntax-split-splice _tl129264130189_ '0)))) + (let ((_tl129275130210_ (let () (declare (not safe)) - (##vector-ref ___splice134808134809_ '1))) - (_target129276130211_ + (##vector-ref ___splice134805134806_ '1))) + (_target129273130208_ (let () (declare (not safe)) - (##vector-ref ___splice134808134809_ '0)))) + (##vector-ref ___splice134805134806_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129278130213_)) - (___match134909134910_ - _e129248130131_ - _hd129247130134_ - _tl129246130136_ - _e129251130139_ - _hd129250130142_ - _tl129249130144_ - _e129254130147_ - _hd129253130150_ - _tl129252130152_ - _e129257130155_ - _hd129256130158_ - _tl129255130160_ - _e129260130163_ - _hd129259130166_ - _tl129258130168_ - _e129263130171_ - _hd129262130174_ - _tl129261130176_ - _e129266130179_ - _hd129265130182_ - _tl129264130184_ - _e129269130187_ - _hd129268130190_ - _tl129267130192_ - _e129272130195_ - _hd129271130198_ - _tl129270130200_ - _e129275130203_ - _hd129274130206_ - _tl129273130208_ - ___splice134808134809_ - _target129276130211_ - _tl129278130213_) - (___match135097135098_ - _e129248130131_ - _hd129247130134_ - _tl129246130136_ - _e129251130139_ - _hd129250130142_ - _tl129249130144_ - _e129254130147_ - _hd129253130150_ - _tl129252130152_ - _e129257130155_ - _hd129256130158_ - _tl129255130160_ - _e129260130163_ - _hd129259130166_ - _tl129258130168_ - _e129263130171_ - _hd129262130174_ - _tl129261130176_ - _e129266130179_ - _hd129265130182_ - _tl129264130184_ - _e129269130187_ - _hd129268130190_ - _tl129267130192_ - _e129272130195_ - _hd129271130198_ - _tl129270130200_ - _e129275130203_ - _hd129274130206_ - _tl129273130208_)))) - (___match135097135098_ - _e129248130131_ - _hd129247130134_ - _tl129246130136_ - _e129251130139_ - _hd129250130142_ - _tl129249130144_ - _e129254130147_ - _hd129253130150_ - _tl129252130152_ - _e129257130155_ - _hd129256130158_ - _tl129255130160_ - _e129260130163_ - _hd129259130166_ - _tl129258130168_ - _e129263130171_ - _hd129262130174_ - _tl129261130176_ - _e129266130179_ - _hd129265130182_ - _tl129264130184_ - _e129269130187_ - _hd129268130190_ - _tl129267130192_ - _e129272130195_ - _hd129271130198_ - _tl129270130200_ - _e129275130203_ - _hd129274130206_ - _tl129273130208_)) + (gx#stx-null? _tl129275130210_)) + (___match134906134907_ + _e129245130128_ + _hd129244130131_ + _tl129243130133_ + _e129248130136_ + _hd129247130139_ + _tl129246130141_ + _e129251130144_ + _hd129250130147_ + _tl129249130149_ + _e129254130152_ + _hd129253130155_ + _tl129252130157_ + _e129257130160_ + _hd129256130163_ + _tl129255130165_ + _e129260130168_ + _hd129259130171_ + _tl129258130173_ + _e129263130176_ + _hd129262130179_ + _tl129261130181_ + _e129266130184_ + _hd129265130187_ + _tl129264130189_ + _e129269130192_ + _hd129268130195_ + _tl129267130197_ + _e129272130200_ + _hd129271130203_ + _tl129270130205_ + ___splice134805134806_ + _target129273130208_ + _tl129275130210_) + (___match135094135095_ + _e129245130128_ + _hd129244130131_ + _tl129243130133_ + _e129248130136_ + _hd129247130139_ + _tl129246130141_ + _e129251130144_ + _hd129250130147_ + _tl129249130149_ + _e129254130152_ + _hd129253130155_ + _tl129252130157_ + _e129257130160_ + _hd129256130163_ + _tl129255130165_ + _e129260130168_ + _hd129259130171_ + _tl129258130173_ + _e129263130176_ + _hd129262130179_ + _tl129261130181_ + _e129266130184_ + _hd129265130187_ + _tl129264130189_ + _e129269130192_ + _hd129268130195_ + _tl129267130197_ + _e129272130200_ + _hd129271130203_ + _tl129270130205_)))) + (___match135094135095_ + _e129245130128_ + _hd129244130131_ + _tl129243130133_ + _e129248130136_ + _hd129247130139_ + _tl129246130141_ + _e129251130144_ + _hd129250130147_ + _tl129249130149_ + _e129254130152_ + _hd129253130155_ + _tl129252130157_ + _e129257130160_ + _hd129256130163_ + _tl129255130165_ + _e129260130168_ + _hd129259130171_ + _tl129258130173_ + _e129263130176_ + _hd129262130179_ + _tl129261130181_ + _e129266130184_ + _hd129265130187_ + _tl129264130189_ + _e129269130192_ + _hd129268130195_ + _tl129267130197_ + _e129272130200_ + _hd129271130203_ + _tl129270130205_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match135301135302_ - _e129248130131_ - _hd129247130134_ - _tl129246130136_ - _e129251130139_ - _hd129250130142_ - _tl129249130144_ - _e129254130147_ - _hd129253130150_ - _tl129252130152_ - _e129257130155_ - _hd129256130158_ - _tl129255130160_ - _e129260130163_ - _hd129259130166_ - _tl129258130168_ - _e129263130171_ - _hd129262130174_ - _tl129261130176_ - _e129266130179_ - _hd129265130182_ - _tl129264130184_ - _e129269130187_ - _hd129268130190_ - _tl129267130192_)))) - (___match135301135302_ - _e129248130131_ - _hd129247130134_ - _tl129246130136_ - _e129251130139_ - _hd129250130142_ - _tl129249130144_ - _e129254130147_ - _hd129253130150_ - _tl129252130152_ - _e129257130155_ - _hd129256130158_ - _tl129255130160_ - _e129260130163_ - _hd129259130166_ - _tl129258130168_ - _e129263130171_ - _hd129262130174_ - _tl129261130176_ - _e129266130179_ - _hd129265130182_ - _tl129264130184_ - _e129269130187_ - _hd129268130190_ - _tl129267130192_)) - (___match134977134978_ - _e129248130131_ - _hd129247130134_ - _tl129246130136_ - _e129251130139_ - _hd129250130142_ - _tl129249130144_ - _e129254130147_ - _hd129253130150_ - _tl129252130152_ - _e129257130155_ - _hd129256130158_ - _tl129255130160_ - _e129260130163_ - _hd129259130166_ - _tl129258130168_ - _e129263130171_ - _hd129262130174_ - _tl129261130176_ - _e129266130179_ - _hd129265130182_ - _tl129264130184_ - _e129269130187_ - _hd129268130190_ - _tl129267130192_ - _e129272130195_ - _hd129271130198_ - _tl129270130200_)) - (___match135301135302_ - _e129248130131_ - _hd129247130134_ - _tl129246130136_ - _e129251130139_ - _hd129250130142_ - _tl129249130144_ - _e129254130147_ - _hd129253130150_ - _tl129252130152_ - _e129257130155_ - _hd129256130158_ - _tl129255130160_ - _e129260130163_ - _hd129259130166_ - _tl129258130168_ - _e129263130171_ - _hd129262130174_ - _tl129261130176_ - _e129266130179_ - _hd129265130182_ - _tl129264130184_ - _e129269130187_ - _hd129268130190_ - _tl129267130192_)))) - (___match135301135302_ - _e129248130131_ - _hd129247130134_ - _tl129246130136_ - _e129251130139_ - _hd129250130142_ - _tl129249130144_ - _e129254130147_ - _hd129253130150_ - _tl129252130152_ - _e129257130155_ - _hd129256130158_ - _tl129255130160_ - _e129260130163_ - _hd129259130166_ - _tl129258130168_ - _e129263130171_ - _hd129262130174_ - _tl129261130176_ - _e129266130179_ - _hd129265130182_ - _tl129264130184_ - _e129269130187_ - _hd129268130190_ - _tl129267130192_)))) - (___match135239135240_ - _e129248130131_ - _hd129247130134_ - _tl129246130136_ - _e129251130139_ - _hd129250130142_ - _tl129249130144_ - _e129254130147_ - _hd129253130150_ - _tl129252130152_ - _e129257130155_ - _hd129256130158_ - _tl129255130160_ - _e129260130163_ - _hd129259130166_ - _tl129258130168_ - _e129263130171_ - _hd129262130174_ - _tl129261130176_ - _e129266130179_ - _hd129265130182_ - _tl129264130184_)) - (___kont134822134823_)))) + (___match135298135299_ + _e129245130128_ + _hd129244130131_ + _tl129243130133_ + _e129248130136_ + _hd129247130139_ + _tl129246130141_ + _e129251130144_ + _hd129250130147_ + _tl129249130149_ + _e129254130152_ + _hd129253130155_ + _tl129252130157_ + _e129257130160_ + _hd129256130163_ + _tl129255130165_ + _e129260130168_ + _hd129259130171_ + _tl129258130173_ + _e129263130176_ + _hd129262130179_ + _tl129261130181_ + _e129266130184_ + _hd129265130187_ + _tl129264130189_)))) + (___match135298135299_ + _e129245130128_ + _hd129244130131_ + _tl129243130133_ + _e129248130136_ + _hd129247130139_ + _tl129246130141_ + _e129251130144_ + _hd129250130147_ + _tl129249130149_ + _e129254130152_ + _hd129253130155_ + _tl129252130157_ + _e129257130160_ + _hd129256130163_ + _tl129255130165_ + _e129260130168_ + _hd129259130171_ + _tl129258130173_ + _e129263130176_ + _hd129262130179_ + _tl129261130181_ + _e129266130184_ + _hd129265130187_ + _tl129264130189_)) + (___match134974134975_ + _e129245130128_ + _hd129244130131_ + _tl129243130133_ + _e129248130136_ + _hd129247130139_ + _tl129246130141_ + _e129251130144_ + _hd129250130147_ + _tl129249130149_ + _e129254130152_ + _hd129253130155_ + _tl129252130157_ + _e129257130160_ + _hd129256130163_ + _tl129255130165_ + _e129260130168_ + _hd129259130171_ + _tl129258130173_ + _e129263130176_ + _hd129262130179_ + _tl129261130181_ + _e129266130184_ + _hd129265130187_ + _tl129264130189_ + _e129269130192_ + _hd129268130195_ + _tl129267130197_)) + (___match135298135299_ + _e129245130128_ + _hd129244130131_ + _tl129243130133_ + _e129248130136_ + _hd129247130139_ + _tl129246130141_ + _e129251130144_ + _hd129250130147_ + _tl129249130149_ + _e129254130152_ + _hd129253130155_ + _tl129252130157_ + _e129257130160_ + _hd129256130163_ + _tl129255130165_ + _e129260130168_ + _hd129259130171_ + _tl129258130173_ + _e129263130176_ + _hd129262130179_ + _tl129261130181_ + _e129266130184_ + _hd129265130187_ + _tl129264130189_)))) + (___match135298135299_ + _e129245130128_ + _hd129244130131_ + _tl129243130133_ + _e129248130136_ + _hd129247130139_ + _tl129246130141_ + _e129251130144_ + _hd129250130147_ + _tl129249130149_ + _e129254130152_ + _hd129253130155_ + _tl129252130157_ + _e129257130160_ + _hd129256130163_ + _tl129255130165_ + _e129260130168_ + _hd129259130171_ + _tl129258130173_ + _e129263130176_ + _hd129262130179_ + _tl129261130181_ + _e129266130184_ + _hd129265130187_ + _tl129264130189_)))) + (___match135236135237_ + _e129245130128_ + _hd129244130131_ + _tl129243130133_ + _e129248130136_ + _hd129247130139_ + _tl129246130141_ + _e129251130144_ + _hd129250130147_ + _tl129249130149_ + _e129254130152_ + _hd129253130155_ + _tl129252130157_ + _e129257130160_ + _hd129256130163_ + _tl129255130165_ + _e129260130168_ + _hd129259130171_ + _tl129258130173_ + _e129263130176_ + _hd129262130179_ + _tl129261130181_)) + (___kont134819134820_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134822134823_)) - (___kont134822134823_)) - (___kont134822134823_)))) - (___kont134822134823_)))) - (___kont134822134823_)) - (___kont134822134823_)))) + (___kont134819134820_)) + (___kont134819134820_)) + (___kont134819134820_)))) + (___kont134819134820_)))) + (___kont134819134820_)) + (___kont134819134820_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134822134823_)) - (___kont134822134823_)) - (___kont134822134823_)))) - (___kont134822134823_)))) - (___kont134822134823_)))) - (___kont134822134823_)))))))))) + (___kont134819134820_)) + (___kont134819134820_)) + (___kont134819134820_)))) + (___kont134819134820_)))) + (___kont134819134820_)))) + (___kont134819134820_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top__0.scm b/src/bootstrap/gerbil/compiler/optimize-top__0.scm index e0cd8861..f263c103 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 1709128373) + (define gerbil/compiler/optimize-top::timestamp 1709229971) (begin (define gxc#&collect-top-level-type-info (make-promise (lambda () - (let ((_tbl126720_ + (let ((_tbl126717_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp128813 (force gxc#&void))) + (let ((__tmp128810 (force gxc#&void))) (declare (not safe)) - (hash-merge! _tbl126720_ __tmp128813)) + (hash-merge! _tbl126717_ __tmp128810)) (let () (declare (not safe)) - (hash-put! _tbl126720_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl126717_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (hash-put! _tbl126720_ '%#begin-syntax gxc#collect-begin-syntax%)) + (hash-put! _tbl126717_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl126720_ '%#module gxc#collect-module%)) + (hash-put! _tbl126717_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (hash-put! - _tbl126720_ + _tbl126717_ '%#define-values gxc#collect-top-level-type-define-values%)) - _tbl126720_)))) + _tbl126717_)))) (define gxc#apply-collect-top-level-type-info - (lambda (_stx126703_ . _args126705_) - (let ((__tmp128815 + (lambda (_stx126700_ . _args126702_) + (let ((__tmp128812 (lambda () (declare (not safe)) - (if (null? _args126705_) - (gxc#compile-e__0 _stx126703_) - (let ((_arg1126710_ (car _args126705_)) - (_rest126712_ (cdr _args126705_))) - (if (null? _rest126712_) - (gxc#compile-e__1 _stx126703_ _arg1126710_) - (let ((_arg2126715_ (car _rest126712_)) - (_rest126717_ (cdr _rest126712_))) - (if (null? _rest126717_) + (if (null? _args126702_) + (gxc#compile-e__0 _stx126700_) + (let ((_arg1126707_ (car _args126702_)) + (_rest126709_ (cdr _args126702_))) + (if (null? _rest126709_) + (gxc#compile-e__1 _stx126700_ _arg1126707_) + (let ((_arg2126712_ (car _rest126709_)) + (_rest126714_ (cdr _rest126709_))) + (if (null? _rest126714_) (gxc#compile-e__2 - _stx126703_ - _arg1126710_ - _arg2126715_) + _stx126700_ + _arg1126707_ + _arg2126712_) (apply gxc#compile-e - _stx126703_ - _arg1126710_ - _arg2126715_ - _rest126717_)))))))) - (__tmp128814 (force gxc#&collect-top-level-type-info))) + _stx126700_ + _arg1126707_ + _arg2126712_ + _rest126714_)))))))) + (__tmp128811 (force gxc#&collect-top-level-type-info))) (declare (not safe)) (call-with-parameters - __tmp128815 + __tmp128812 gxc#current-compile-methods - __tmp128814)))) + __tmp128811)))) (define gxc#&basic-expression-top-level-type (make-promise (lambda () - (let ((_tbl126700_ + (let ((_tbl126697_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp128816 (force gxc#&false))) + (let ((__tmp128813 (force gxc#&false))) (declare (not safe)) - (hash-merge! _tbl126700_ __tmp128816)) + (hash-merge! _tbl126697_ __tmp128813)) (let () (declare (not safe)) (hash-put! - _tbl126700_ + _tbl126697_ '%#begin-annotation gxc#basic-expression-type-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl126700_ '%#call gxc#basic-expression-type-call%)) - _tbl126700_)))) + (hash-put! _tbl126697_ '%#call gxc#basic-expression-type-call%)) + _tbl126697_)))) (define gxc#apply-basic-expression-top-level-type - (lambda (_stx126683_ . _args126685_) - (let ((__tmp128818 + (lambda (_stx126680_ . _args126682_) + (let ((__tmp128815 (lambda () (declare (not safe)) - (if (null? _args126685_) - (gxc#compile-e__0 _stx126683_) - (let ((_arg1126690_ (car _args126685_)) - (_rest126692_ (cdr _args126685_))) - (if (null? _rest126692_) - (gxc#compile-e__1 _stx126683_ _arg1126690_) - (let ((_arg2126695_ (car _rest126692_)) - (_rest126697_ (cdr _rest126692_))) - (if (null? _rest126697_) + (if (null? _args126682_) + (gxc#compile-e__0 _stx126680_) + (let ((_arg1126687_ (car _args126682_)) + (_rest126689_ (cdr _args126682_))) + (if (null? _rest126689_) + (gxc#compile-e__1 _stx126680_ _arg1126687_) + (let ((_arg2126692_ (car _rest126689_)) + (_rest126694_ (cdr _rest126689_))) + (if (null? _rest126694_) (gxc#compile-e__2 - _stx126683_ - _arg1126690_ - _arg2126695_) + _stx126680_ + _arg1126687_ + _arg2126692_) (apply gxc#compile-e - _stx126683_ - _arg1126690_ - _arg2126695_ - _rest126697_)))))))) - (__tmp128817 (force gxc#&basic-expression-top-level-type))) + _stx126680_ + _arg1126687_ + _arg2126692_ + _rest126694_)))))))) + (__tmp128814 (force gxc#&basic-expression-top-level-type))) (declare (not safe)) (call-with-parameters - __tmp128818 + __tmp128815 gxc#current-compile-methods - __tmp128817)))) + __tmp128814)))) (define gxc#&collect-type-info (make-promise (lambda () - (let ((_tbl126680_ + (let ((_tbl126677_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp128819 (force gxc#&void))) + (let ((__tmp128816 (force gxc#&void))) (declare (not safe)) - (hash-merge! _tbl126680_ __tmp128819)) + (hash-merge! _tbl126677_ __tmp128816)) (let () (declare (not safe)) - (hash-put! _tbl126680_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl126677_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (hash-put! _tbl126680_ '%#begin-syntax gxc#collect-begin-syntax%)) + (hash-put! _tbl126677_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl126680_ '%#module gxc#collect-module%)) + (hash-put! _tbl126677_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (hash-put! - _tbl126680_ + _tbl126677_ '%#define-values gxc#collect-type-define-values%)) (let () (declare (not safe)) (hash-put! - _tbl126680_ + _tbl126677_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl126680_ '%#lambda gxc#collect-body-lambda%)) + (hash-put! _tbl126677_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl126680_ + _tbl126677_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl126680_ + _tbl126677_ '%#let-values gxc#collect-type-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl126680_ + _tbl126677_ '%#letrec-values gxc#collect-type-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl126680_ + _tbl126677_ '%#letrec*-values gxc#collect-type-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl126680_ '%#call gxc#collect-type-call%)) + (hash-put! _tbl126677_ '%#call gxc#collect-type-call%)) (let () (declare (not safe)) - (hash-put! _tbl126680_ '%#if gxc#collect-operands)) + (hash-put! _tbl126677_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl126680_ '%#set! gxc#collect-body-setq%)) - _tbl126680_)))) + (hash-put! _tbl126677_ '%#set! gxc#collect-body-setq%)) + _tbl126677_)))) (define gxc#apply-collect-type-info - (lambda (_stx126663_ . _args126665_) - (let ((__tmp128821 + (lambda (_stx126660_ . _args126662_) + (let ((__tmp128818 (lambda () (declare (not safe)) - (if (null? _args126665_) - (gxc#compile-e__0 _stx126663_) - (let ((_arg1126670_ (car _args126665_)) - (_rest126672_ (cdr _args126665_))) - (if (null? _rest126672_) - (gxc#compile-e__1 _stx126663_ _arg1126670_) - (let ((_arg2126675_ (car _rest126672_)) - (_rest126677_ (cdr _rest126672_))) - (if (null? _rest126677_) + (if (null? _args126662_) + (gxc#compile-e__0 _stx126660_) + (let ((_arg1126667_ (car _args126662_)) + (_rest126669_ (cdr _args126662_))) + (if (null? _rest126669_) + (gxc#compile-e__1 _stx126660_ _arg1126667_) + (let ((_arg2126672_ (car _rest126669_)) + (_rest126674_ (cdr _rest126669_))) + (if (null? _rest126674_) (gxc#compile-e__2 - _stx126663_ - _arg1126670_ - _arg2126675_) + _stx126660_ + _arg1126667_ + _arg2126672_) (apply gxc#compile-e - _stx126663_ - _arg1126670_ - _arg2126675_ - _rest126677_)))))))) - (__tmp128820 (force gxc#&collect-type-info))) + _stx126660_ + _arg1126667_ + _arg2126672_ + _rest126674_)))))))) + (__tmp128817 (force gxc#&collect-type-info))) (declare (not safe)) (call-with-parameters - __tmp128821 + __tmp128818 gxc#current-compile-methods - __tmp128820)))) + __tmp128817)))) (define gxc#&basic-expression-type (make-promise (lambda () - (let ((_tbl126660_ + (let ((_tbl126657_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp128822 (force gxc#&false))) + (let ((__tmp128819 (force gxc#&false))) (declare (not safe)) - (hash-merge! _tbl126660_ __tmp128822)) + (hash-merge! _tbl126657_ __tmp128819)) (let () (declare (not safe)) - (hash-put! _tbl126660_ '%#begin gxc#basic-expression-type-begin%)) + (hash-put! _tbl126657_ '%#begin gxc#basic-expression-type-begin%)) (let () (declare (not safe)) (hash-put! - _tbl126660_ + _tbl126657_ '%#begin-annotation gxc#basic-expression-type-begin-annotation%)) (let () (declare (not safe)) (hash-put! - _tbl126660_ + _tbl126657_ '%#lambda gxc#basic-expression-type-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl126660_ + _tbl126657_ '%#case-lambda gxc#basic-expression-type-case-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl126660_ + _tbl126657_ '%#let-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl126660_ + _tbl126657_ '%#letrec-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl126660_ + _tbl126657_ '%#letrec*-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl126660_ '%#call gxc#basic-expression-type-call%)) + (hash-put! _tbl126657_ '%#call gxc#basic-expression-type-call%)) (let () (declare (not safe)) - (hash-put! _tbl126660_ '%#ref gxc#basic-expression-type-ref%)) - _tbl126660_)))) + (hash-put! _tbl126657_ '%#ref gxc#basic-expression-type-ref%)) + _tbl126657_)))) (define gxc#apply-basic-expression-type - (lambda (_stx126643_ . _args126645_) - (let ((__tmp128824 + (lambda (_stx126640_ . _args126642_) + (let ((__tmp128821 (lambda () (declare (not safe)) - (if (null? _args126645_) - (gxc#compile-e__0 _stx126643_) - (let ((_arg1126650_ (car _args126645_)) - (_rest126652_ (cdr _args126645_))) - (if (null? _rest126652_) - (gxc#compile-e__1 _stx126643_ _arg1126650_) - (let ((_arg2126655_ (car _rest126652_)) - (_rest126657_ (cdr _rest126652_))) - (if (null? _rest126657_) + (if (null? _args126642_) + (gxc#compile-e__0 _stx126640_) + (let ((_arg1126647_ (car _args126642_)) + (_rest126649_ (cdr _args126642_))) + (if (null? _rest126649_) + (gxc#compile-e__1 _stx126640_ _arg1126647_) + (let ((_arg2126652_ (car _rest126649_)) + (_rest126654_ (cdr _rest126649_))) + (if (null? _rest126654_) (gxc#compile-e__2 - _stx126643_ - _arg1126650_ - _arg2126655_) + _stx126640_ + _arg1126647_ + _arg2126652_) (apply gxc#compile-e - _stx126643_ - _arg1126650_ - _arg2126655_ - _rest126657_)))))))) - (__tmp128823 (force gxc#&basic-expression-type))) + _stx126640_ + _arg1126647_ + _arg2126652_ + _rest126654_)))))))) + (__tmp128820 (force gxc#&basic-expression-type))) (declare (not safe)) (call-with-parameters - __tmp128824 + __tmp128821 gxc#current-compile-methods - __tmp128823)))) + __tmp128820)))) (define gxc#&lift-top-lambdas (make-promise (lambda () - (let ((_tbl126640_ + (let ((_tbl126637_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp128825 (force gxc#&basic-xform))) + (let ((__tmp128822 (force gxc#&basic-xform))) (declare (not safe)) - (hash-merge! _tbl126640_ __tmp128825)) + (hash-merge! _tbl126637_ __tmp128822)) (let () (declare (not safe)) (hash-put! - _tbl126640_ + _tbl126637_ '%#define-values gxc#lift-top-lambda-define-values%)) (let () (declare (not safe)) (hash-put! - _tbl126640_ + _tbl126637_ '%#let-values gxc#lift-top-lambda-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl126640_ + _tbl126637_ '%#letrec-values gxc#lift-top-lambda-letrec-values%)) (let () (declare (not safe)) (hash-put! - _tbl126640_ + _tbl126637_ '%#letrec*-values gxc#lift-top-lambda-letrec-values%)) - _tbl126640_)))) + _tbl126637_)))) (define gxc#apply-lift-top-lambdas - (lambda (_stx126623_ . _args126625_) - (let ((__tmp128827 + (lambda (_stx126620_ . _args126622_) + (let ((__tmp128824 (lambda () (declare (not safe)) - (if (null? _args126625_) - (gxc#compile-e__0 _stx126623_) - (let ((_arg1126630_ (car _args126625_)) - (_rest126632_ (cdr _args126625_))) - (if (null? _rest126632_) - (gxc#compile-e__1 _stx126623_ _arg1126630_) - (let ((_arg2126635_ (car _rest126632_)) - (_rest126637_ (cdr _rest126632_))) - (if (null? _rest126637_) + (if (null? _args126622_) + (gxc#compile-e__0 _stx126620_) + (let ((_arg1126627_ (car _args126622_)) + (_rest126629_ (cdr _args126622_))) + (if (null? _rest126629_) + (gxc#compile-e__1 _stx126620_ _arg1126627_) + (let ((_arg2126632_ (car _rest126629_)) + (_rest126634_ (cdr _rest126629_))) + (if (null? _rest126634_) (gxc#compile-e__2 - _stx126623_ - _arg1126630_ - _arg2126635_) + _stx126620_ + _arg1126627_ + _arg2126632_) (apply gxc#compile-e - _stx126623_ - _arg1126630_ - _arg2126635_ - _rest126637_)))))))) - (__tmp128826 (force gxc#&lift-top-lambdas))) + _stx126620_ + _arg1126627_ + _arg2126632_ + _rest126634_)))))))) + (__tmp128823 (force gxc#&lift-top-lambdas))) (declare (not safe)) (call-with-parameters - __tmp128827 + __tmp128824 gxc#current-compile-methods - __tmp128826)))) + __tmp128823)))) (define gxc#collect-top-level-type-define-values% - (lambda (_stx126526_) - (let* ((___stx126733126734_ _stx126526_) - (_g126529126549_ + (lambda (_stx126523_) + (let* ((___stx126730126731_ _stx126523_) + (_g126526126546_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx126733126734_))))) - (let ((___kont126735126736_ - (lambda (_L126593_ _L126594_) - (let ((_sym126612_ + ___stx126730126731_))))) + (let ((___kont126732126733_ + (lambda (_L126590_ _L126591_) + (let ((_sym126609_ (let () (declare (not safe)) - (gxc#identifier-symbol _L126594_)))) - (if (let ((__tmp128828 (gxc#current-compile-mutators))) + (gxc#identifier-symbol _L126591_)))) + (if (let ((__tmp128825 (gxc#current-compile-mutators))) (declare (not safe)) - (hash-get __tmp128828 _sym126612_)) + (hash-get __tmp128825 _sym126609_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for mutable binding " - _sym126612_)) - (let ((_type126613126615_ + _sym126609_)) + (let ((_type126610126612_ (let () (declare (not safe)) (gxc#apply-basic-expression-top-level-type - _L126593_)))) - (if _type126613126615_ - (let ((_type126618_ _type126613126615_)) + _L126590_)))) + (if _type126610126612_ + (let ((_type126615_ _type126610126612_)) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym126612_ - _type126618_)) + _sym126609_ + _type126615_)) '#f)))))) - (___kont126737126738_ (lambda () '#!void))) - (let ((___match126766126767_ - (lambda (_e126535126561_ - _hd126534126564_ - _tl126533126566_ - _e126538126569_ - _hd126537126572_ - _tl126536126574_ - _e126541126577_ - _hd126540126580_ - _tl126539126582_ - _e126544126585_ - _hd126543126588_ - _tl126542126590_) - (let ((_L126593_ _hd126543126588_) - (_L126594_ _hd126540126580_)) + (___kont126734126735_ (lambda () '#!void))) + (let ((___match126763126764_ + (lambda (_e126532126558_ + _hd126531126561_ + _tl126530126563_ + _e126535126566_ + _hd126534126569_ + _tl126533126571_ + _e126538126574_ + _hd126537126577_ + _tl126536126579_ + _e126541126582_ + _hd126540126585_ + _tl126539126587_) + (let ((_L126590_ _hd126540126585_) + (_L126591_ _hd126537126577_)) (if (let () (declare (not safe)) - (gx#identifier? _L126594_)) - (___kont126735126736_ _L126593_ _L126594_) - (___kont126737126738_)))))) + (gx#identifier? _L126591_)) + (___kont126732126733_ _L126590_ _L126591_) + (___kont126734126735_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx126733126734_)) - (let ((_e126535126561_ + (gx#stx-pair? ___stx126730126731_)) + (let ((_e126532126558_ (let () (declare (not safe)) - (gx#stx-e ___stx126733126734_)))) - (let ((_tl126533126566_ + (gx#stx-e ___stx126730126731_)))) + (let ((_tl126530126563_ (let () (declare (not safe)) - (##cdr _e126535126561_))) - (_hd126534126564_ + (##cdr _e126532126558_))) + (_hd126531126561_ (let () (declare (not safe)) - (##car _e126535126561_)))) + (##car _e126532126558_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126533126566_)) - (let ((_e126538126569_ + (gx#stx-pair? _tl126530126563_)) + (let ((_e126535126566_ (let () (declare (not safe)) - (gx#stx-e _tl126533126566_)))) - (let ((_tl126536126574_ + (gx#stx-e _tl126530126563_)))) + (let ((_tl126533126571_ (let () (declare (not safe)) - (##cdr _e126538126569_))) - (_hd126537126572_ + (##cdr _e126535126566_))) + (_hd126534126569_ (let () (declare (not safe)) - (##car _e126538126569_)))) + (##car _e126535126566_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126537126572_)) - (let ((_e126541126577_ + (gx#stx-pair? _hd126534126569_)) + (let ((_e126538126574_ (let () (declare (not safe)) - (gx#stx-e _hd126537126572_)))) - (let ((_tl126539126582_ + (gx#stx-e _hd126534126569_)))) + (let ((_tl126536126579_ (let () (declare (not safe)) - (##cdr _e126541126577_))) - (_hd126540126580_ + (##cdr _e126538126574_))) + (_hd126537126577_ (let () (declare (not safe)) - (##car _e126541126577_)))) + (##car _e126538126574_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126539126582_)) + (gx#stx-null? _tl126536126579_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126536126574_)) - (let ((_e126544126585_ + _tl126533126571_)) + (let ((_e126541126582_ (let () (declare (not safe)) (gx#stx-e - _tl126536126574_)))) - (let ((_tl126542126590_ + _tl126533126571_)))) + (let ((_tl126539126587_ (let () (declare (not safe)) - (##cdr _e126544126585_))) - (_hd126543126588_ + (##cdr _e126541126582_))) + (_hd126540126585_ (let () (declare (not safe)) - (##car _e126544126585_)))) + (##car _e126541126582_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126542126590_)) - (___match126766126767_ - _e126535126561_ - _hd126534126564_ - _tl126533126566_ - _e126538126569_ - _hd126537126572_ - _tl126536126574_ - _e126541126577_ - _hd126540126580_ - _tl126539126582_ - _e126544126585_ - _hd126543126588_ - _tl126542126590_) - (___kont126737126738_)))) - (___kont126737126738_)) - (___kont126737126738_)))) - (___kont126737126738_)))) - (___kont126737126738_)))) - (___kont126737126738_))))))) + _tl126539126587_)) + (___match126763126764_ + _e126532126558_ + _hd126531126561_ + _tl126530126563_ + _e126535126566_ + _hd126534126569_ + _tl126533126571_ + _e126538126574_ + _hd126537126577_ + _tl126536126579_ + _e126541126582_ + _hd126540126585_ + _tl126539126587_) + (___kont126734126735_)))) + (___kont126734126735_)) + (___kont126734126735_)))) + (___kont126734126735_)))) + (___kont126734126735_)))) + (___kont126734126735_))))))) (define gxc#collect-type-define-values% - (lambda (_stx126382_) - (let* ((___stx126769126770_ _stx126382_) - (_g126385126416_ + (lambda (_stx126379_) + (let* ((___stx126766126767_ _stx126379_) + (_g126382126413_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx126769126770_))))) - (let ((___kont126771126772_ - (lambda (_L126498_ _L126499_) - (let ((_sym126515_ + ___stx126766126767_))))) + (let ((___kont126768126769_ + (lambda (_L126495_ _L126496_) + (let ((_sym126512_ (let () (declare (not safe)) - (gxc#identifier-symbol _L126499_)))) - (if (let ((__tmp128829 (gxc#current-compile-mutators))) + (gxc#identifier-symbol _L126496_)))) + (if (let ((__tmp128826 (gxc#current-compile-mutators))) (declare (not safe)) - (hash-get __tmp128829 _sym126515_)) + (hash-get __tmp128826 _sym126512_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for mutable binding " - _sym126515_)) + _sym126512_)) (if (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym126515_)) + (gxc#optimizer-lookup-type _sym126512_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for already declared type " - _sym126515_)) - (let ((_type126516126518_ + _sym126512_)) + (let ((_type126513126515_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _L126498_)))) - (if _type126516126518_ - (let ((_type126521_ _type126516126518_)) + _L126495_)))) + (if _type126513126515_ + (let ((_type126518_ _type126513126515_)) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym126515_ - _type126521_)) + _sym126512_ + _type126518_)) '#f)))) (let () (declare (not safe)) - (gxc#compile-e__0 _L126498_))))) - (___kont126773126774_ - (lambda (_L126445_ _L126446_) + (gxc#compile-e__0 _L126495_))))) + (___kont126770126771_ + (lambda (_L126442_ _L126443_) (let () (declare (not safe)) - (gxc#compile-e__0 _L126445_))))) - (let ((___match126802126803_ - (lambda (_e126391126466_ - _hd126390126469_ - _tl126389126471_ - _e126394126474_ - _hd126393126477_ - _tl126392126479_ - _e126397126482_ - _hd126396126485_ - _tl126395126487_ - _e126400126490_ - _hd126399126493_ - _tl126398126495_) - (let ((_L126498_ _hd126399126493_) - (_L126499_ _hd126396126485_)) + (gxc#compile-e__0 _L126442_))))) + (let ((___match126799126800_ + (lambda (_e126388126463_ + _hd126387126466_ + _tl126386126468_ + _e126391126471_ + _hd126390126474_ + _tl126389126476_ + _e126394126479_ + _hd126393126482_ + _tl126392126484_ + _e126397126487_ + _hd126396126490_ + _tl126395126492_) + (let ((_L126495_ _hd126396126490_) + (_L126496_ _hd126393126482_)) (if (let () (declare (not safe)) - (gx#identifier? _L126499_)) - (___kont126771126772_ _L126498_ _L126499_) - (___kont126773126774_ - _hd126399126493_ - _hd126393126477_)))))) + (gx#identifier? _L126496_)) + (___kont126768126769_ _L126495_ _L126496_) + (___kont126770126771_ + _hd126396126490_ + _hd126390126474_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx126769126770_)) - (let ((_e126391126466_ + (gx#stx-pair? ___stx126766126767_)) + (let ((_e126388126463_ (let () (declare (not safe)) - (gx#stx-e ___stx126769126770_)))) - (let ((_tl126389126471_ + (gx#stx-e ___stx126766126767_)))) + (let ((_tl126386126468_ (let () (declare (not safe)) - (##cdr _e126391126466_))) - (_hd126390126469_ + (##cdr _e126388126463_))) + (_hd126387126466_ (let () (declare (not safe)) - (##car _e126391126466_)))) + (##car _e126388126463_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126389126471_)) - (let ((_e126394126474_ + (gx#stx-pair? _tl126386126468_)) + (let ((_e126391126471_ (let () (declare (not safe)) - (gx#stx-e _tl126389126471_)))) - (let ((_tl126392126479_ + (gx#stx-e _tl126386126468_)))) + (let ((_tl126389126476_ (let () (declare (not safe)) - (##cdr _e126394126474_))) - (_hd126393126477_ + (##cdr _e126391126471_))) + (_hd126390126474_ (let () (declare (not safe)) - (##car _e126394126474_)))) + (##car _e126391126471_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126393126477_)) - (let ((_e126397126482_ + (gx#stx-pair? _hd126390126474_)) + (let ((_e126394126479_ (let () (declare (not safe)) - (gx#stx-e _hd126393126477_)))) - (let ((_tl126395126487_ + (gx#stx-e _hd126390126474_)))) + (let ((_tl126392126484_ (let () (declare (not safe)) - (##cdr _e126397126482_))) - (_hd126396126485_ + (##cdr _e126394126479_))) + (_hd126393126482_ (let () (declare (not safe)) - (##car _e126397126482_)))) + (##car _e126394126479_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126395126487_)) + (gx#stx-null? _tl126392126484_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126392126479_)) - (let ((_e126400126490_ + _tl126389126476_)) + (let ((_e126397126487_ (let () (declare (not safe)) (gx#stx-e - _tl126392126479_)))) - (let ((_tl126398126495_ + _tl126389126476_)))) + (let ((_tl126395126492_ (let () (declare (not safe)) - (##cdr _e126400126490_))) - (_hd126399126493_ + (##cdr _e126397126487_))) + (_hd126396126490_ (let () (declare (not safe)) - (##car _e126400126490_)))) + (##car _e126397126487_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126398126495_)) - (___match126802126803_ - _e126391126466_ - _hd126390126469_ - _tl126389126471_ - _e126394126474_ - _hd126393126477_ - _tl126392126479_ - _e126397126482_ - _hd126396126485_ - _tl126395126487_ - _e126400126490_ - _hd126399126493_ - _tl126398126495_) + _tl126395126492_)) + (___match126799126800_ + _e126388126463_ + _hd126387126466_ + _tl126386126468_ + _e126391126471_ + _hd126390126474_ + _tl126389126476_ + _e126394126479_ + _hd126393126482_ + _tl126392126484_ + _e126397126487_ + _hd126396126490_ + _tl126395126492_) (let () (declare (not safe)) - (_g126385126416_))))) + (_g126382126413_))))) (let () (declare (not safe)) - (_g126385126416_))) + (_g126382126413_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126392126479_)) - (let ((_e126411126437_ + _tl126389126476_)) + (let ((_e126408126434_ (let () (declare (not safe)) (gx#stx-e - _tl126392126479_)))) - (let ((_tl126409126442_ + _tl126389126476_)))) + (let ((_tl126406126439_ (let () (declare (not safe)) - (##cdr _e126411126437_))) - (_hd126410126440_ + (##cdr _e126408126434_))) + (_hd126407126437_ (let () (declare (not safe)) - (##car _e126411126437_)))) + (##car _e126408126434_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126409126442_)) - (___kont126773126774_ - _hd126410126440_ - _hd126393126477_) + _tl126406126439_)) + (___kont126770126771_ + _hd126407126437_ + _hd126390126474_) (let () (declare (not safe)) - (_g126385126416_))))) + (_g126382126413_))))) (let () (declare (not safe)) - (_g126385126416_)))))) + (_g126382126413_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126392126479_)) - (let ((_e126411126437_ + (gx#stx-pair? _tl126389126476_)) + (let ((_e126408126434_ (let () (declare (not safe)) - (gx#stx-e _tl126392126479_)))) - (let ((_tl126409126442_ + (gx#stx-e _tl126389126476_)))) + (let ((_tl126406126439_ (let () (declare (not safe)) - (##cdr _e126411126437_))) - (_hd126410126440_ + (##cdr _e126408126434_))) + (_hd126407126437_ (let () (declare (not safe)) - (##car _e126411126437_)))) + (##car _e126408126434_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126409126442_)) - (___kont126773126774_ - _hd126410126440_ - _hd126393126477_) + _tl126406126439_)) + (___kont126770126771_ + _hd126407126437_ + _hd126390126474_) (let () (declare (not safe)) - (_g126385126416_))))) + (_g126382126413_))))) (let () (declare (not safe)) - (_g126385126416_)))))) - (let () (declare (not safe)) (_g126385126416_))))) - (let () (declare (not safe)) (_g126385126416_)))))))) + (_g126382126413_)))))) + (let () (declare (not safe)) (_g126382126413_))))) + (let () (declare (not safe)) (_g126382126413_)))))))) (define gxc#collect-type-let-values% - (lambda (_stx126167_) - (letrec ((_collect-e126169_ - (lambda (_hd126326_ _expr126327_) - (let* ((___stx126825126826_ _hd126326_) - (_g126330126340_ + (lambda (_stx126164_) + (letrec ((_collect-e126166_ + (lambda (_hd126323_ _expr126324_) + (let* ((___stx126822126823_ _hd126323_) + (_g126327126337_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx126825126826_))))) - (let ((___kont126827126828_ - (lambda (_L126360_) - (let ((_sym126371_ + ___stx126822126823_))))) + (let ((___kont126824126825_ + (lambda (_L126357_) + (let ((_sym126368_ (let () (declare (not safe)) - (gxc#identifier-symbol _L126360_)))) - (if (let ((__tmp128830 + (gxc#identifier-symbol _L126357_)))) + (if (let ((__tmp128827 (gxc#current-compile-mutators))) (declare (not safe)) - (hash-get __tmp128830 _sym126371_)) + (hash-get __tmp128827 _sym126368_)) (let () (declare (not safe)) (gxc#verbose '"skipping type declaration for mutable binding " - _sym126371_)) - (let ((_type126372126374_ + _sym126368_)) + (let ((_type126369126371_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _expr126327_)))) - (if _type126372126374_ - (let ((_type126377_ - _type126372126374_)) + _expr126324_)))) + (if _type126369126371_ + (let ((_type126374_ + _type126369126371_)) (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym126371_ - _type126377_ + _sym126368_ + _type126374_ '#t)) '#f)))))) - (___kont126829126830_ (lambda () '#!void))) - (let ((___match126838126839_ - (lambda (_e126335126352_ - _hd126334126355_ - _tl126333126357_) - (let ((_L126360_ _hd126334126355_)) + (___kont126826126827_ (lambda () '#!void))) + (let ((___match126835126836_ + (lambda (_e126332126349_ + _hd126331126352_ + _tl126330126354_) + (let ((_L126357_ _hd126331126352_)) (if (let () (declare (not safe)) - (gx#identifier? _L126360_)) - (___kont126827126828_ _L126360_) - (___kont126829126830_)))))) + (gx#identifier? _L126357_)) + (___kont126824126825_ _L126357_) + (___kont126826126827_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx126825126826_)) - (let ((_e126335126352_ + (gx#stx-pair? ___stx126822126823_)) + (let ((_e126332126349_ (let () (declare (not safe)) - (gx#stx-e ___stx126825126826_)))) - (let ((_tl126333126357_ + (gx#stx-e ___stx126822126823_)))) + (let ((_tl126330126354_ (let () (declare (not safe)) - (##cdr _e126335126352_))) - (_hd126334126355_ + (##cdr _e126332126349_))) + (_hd126331126352_ (let () (declare (not safe)) - (##car _e126335126352_)))) + (##car _e126332126349_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126333126357_)) - (___match126838126839_ - _e126335126352_ - _hd126334126355_ - _tl126333126357_) - (___kont126829126830_)))) - (___kont126829126830_)))))))) - (let* ((_g126171126206_ - (lambda (_g126172126203_) + (gx#stx-null? _tl126330126354_)) + (___match126835126836_ + _e126332126349_ + _hd126331126352_ + _tl126330126354_) + (___kont126826126827_)))) + (___kont126826126827_)))))))) + (let* ((_g126168126203_ + (lambda (_g126169126200_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g126172126203_)))) - (_g126170126323_ - (lambda (_g126172126209_) + _g126169126200_)))) + (_g126167126320_ + (lambda (_g126169126206_) (if (let () (declare (not safe)) - (gx#stx-pair? _g126172126209_)) - (let ((_e126178126211_ + (gx#stx-pair? _g126169126206_)) + (let ((_e126175126208_ (let () (declare (not safe)) - (gx#stx-e _g126172126209_)))) - (let ((_hd126177126214_ + (gx#stx-e _g126169126206_)))) + (let ((_hd126174126211_ (let () (declare (not safe)) - (##car _e126178126211_))) - (_tl126176126216_ + (##car _e126175126208_))) + (_tl126173126213_ (let () (declare (not safe)) - (##cdr _e126178126211_)))) + (##cdr _e126175126208_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126176126216_)) - (let ((_e126181126219_ + (gx#stx-pair? _tl126173126213_)) + (let ((_e126178126216_ (let () (declare (not safe)) - (gx#stx-e _tl126176126216_)))) - (let ((_hd126180126222_ + (gx#stx-e _tl126173126213_)))) + (let ((_hd126177126219_ (let () (declare (not safe)) - (##car _e126181126219_))) - (_tl126179126224_ + (##car _e126178126216_))) + (_tl126176126221_ (let () (declare (not safe)) - (##cdr _e126181126219_)))) + (##cdr _e126178126216_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd126180126222_)) - (let ((_g128831_ + (gx#stx-pair/null? _hd126177126219_)) + (let ((_g128828_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd126180126222_ + _hd126177126219_ '0)))) (begin - (let ((_g128832_ + (let ((_g128829_ (let () (declare (not safe)) - (if (##values? _g128831_) + (if (##values? _g128828_) (##vector-length - _g128831_) + _g128828_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g128832_ 2))) + (##fx= _g128829_ 2))) (error "Context expects 2 values" - _g128832_))) - (let ((_target126182126227_ + _g128829_))) + (let ((_target126179126224_ (let () (declare (not safe)) (##vector-ref - _g128831_ + _g128828_ 0))) - (_tl126184126229_ + (_tl126181126226_ (let () (declare (not safe)) (##vector-ref - _g128831_ + _g128828_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126184126229_)) - (letrec ((_loop126185126232_ - (lambda (_hd126183126235_ + _tl126181126226_)) + (letrec ((_loop126182126229_ + (lambda (_hd126180126232_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr126189126237_ - _hd126190126239_) + _expr126186126234_ + _hd126187126236_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126183126235_)) - (let ((_e126186126242_ + (gx#stx-pair? _hd126180126232_)) + (let ((_e126183126239_ (let () (declare (not safe)) - (gx#stx-e _hd126183126235_)))) - (let ((_lp-hd126187126245_ + (gx#stx-e _hd126180126232_)))) + (let ((_lp-hd126184126242_ (let () (declare (not safe)) - (##car _e126186126242_))) - (_lp-tl126188126247_ + (##car _e126183126239_))) + (_lp-tl126185126244_ (let () (declare (not safe)) - (##cdr _e126186126242_)))) + (##cdr _e126183126239_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd126187126245_)) - (let ((_e126195126250_ + (gx#stx-pair? _lp-hd126184126242_)) + (let ((_e126192126247_ (let () (declare (not safe)) - (gx#stx-e _lp-hd126187126245_)))) - (let ((_hd126194126253_ + (gx#stx-e _lp-hd126184126242_)))) + (let ((_hd126191126250_ (let () (declare (not safe)) - (##car _e126195126250_))) - (_tl126193126255_ + (##car _e126192126247_))) + (_tl126190126252_ (let () (declare (not safe)) - (##cdr _e126195126250_)))) + (##cdr _e126192126247_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126193126255_)) - (let ((_e126198126258_ + (gx#stx-pair? _tl126190126252_)) + (let ((_e126195126255_ (let () (declare (not safe)) (gx#stx-e - _tl126193126255_)))) - (let ((_hd126197126261_ + _tl126190126252_)))) + (let ((_hd126194126258_ (let () (declare (not safe)) - (##car _e126198126258_))) - (_tl126196126263_ + (##car _e126195126255_))) + (_tl126193126260_ (let () (declare (not safe)) - (##cdr _e126198126258_)))) + (##cdr _e126195126255_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126196126263_)) - (let ((__tmp128837 + _tl126193126260_)) + (let ((__tmp128834 (let () (declare (not safe)) - (cons _hd126197126261_ + (cons _hd126194126258_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr126189126237_))) - (__tmp128836 + _expr126186126234_))) + (__tmp128833 (let () (declare (not safe)) - (cons _hd126194126253_ _hd126190126239_)))) + (cons _hd126191126250_ _hd126187126236_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop126185126232_ - _lp-tl126188126247_ - __tmp128837 - __tmp128836)) + (_loop126182126229_ + _lp-tl126185126244_ + __tmp128834 + __tmp128833)) (let () (declare (not safe)) - (_g126171126206_ - _g126172126209_))))) + (_g126168126203_ + _g126169126206_))))) (let () (declare (not safe)) - (_g126171126206_ - _g126172126209_))))) + (_g126168126203_ + _g126169126206_))))) (let () (declare (not safe)) - (_g126171126206_ _g126172126209_))))) - (let ((_expr126191126266_ - (reverse _expr126189126237_)) - (_hd126192126268_ (reverse _hd126190126239_))) + (_g126168126203_ _g126169126206_))))) + (let ((_expr126188126263_ + (reverse _expr126186126234_)) + (_hd126189126265_ (reverse _hd126187126236_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126179126224_)) - (let ((_e126201126271_ + (gx#stx-pair? _tl126176126221_)) + (let ((_e126198126268_ (let () (declare (not safe)) - (gx#stx-e _tl126179126224_)))) - (let ((_hd126200126274_ + (gx#stx-e _tl126176126221_)))) + (let ((_hd126197126271_ (let () (declare (not safe)) - (##car _e126201126271_))) - (_tl126199126276_ + (##car _e126198126268_))) + (_tl126196126273_ (let () (declare (not safe)) - (##cdr _e126201126271_)))) + (##cdr _e126198126268_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126199126276_)) - ((lambda (_L126279_ - _L126280_ - _L126281_) + (gx#stx-null? _tl126196126273_)) + ((lambda (_L126276_ + _L126277_ + _L126278_) (for-each - _collect-e126169_ - (let ((__tmp128833 - (lambda (_g126301126304_ - _g126302126306_) + _collect-e126166_ + (let ((__tmp128830 + (lambda (_g126298126301_ + _g126299126303_) (let () (declare (not safe)) - (cons _g126301126304_ - _g126302126306_))))) + (cons _g126298126301_ + _g126299126303_))))) (declare (not safe)) - (foldr1 __tmp128833 + (foldr1 __tmp128830 '() - _L126281_)) - (let ((__tmp128834 - (lambda (_g126308126311_ - _g126309126313_) + _L126278_)) + (let ((__tmp128831 + (lambda (_g126305126308_ + _g126306126310_) (let () (declare (not safe)) - (cons _g126308126311_ - _g126309126313_))))) + (cons _g126305126308_ + _g126306126310_))))) (declare (not safe)) - (foldr1 __tmp128834 + (foldr1 __tmp128831 '() - _L126280_))) + _L126277_))) (for-each gxc#compile-e - (let ((__tmp128835 - (lambda (_g126315126318_ - _g126316126320_) + (let ((__tmp128832 + (lambda (_g126312126315_ + _g126313126317_) (let () (declare (not safe)) - (cons _g126315126318_ - _g126316126320_))))) + (cons _g126312126315_ + _g126313126317_))))) (declare (not safe)) - (foldr1 __tmp128835 + (foldr1 __tmp128832 '() - _L126280_))) + _L126277_))) (let () (declare (not safe)) - (gxc#compile-e__0 _L126279_))) - _hd126200126274_ - _expr126191126266_ - _hd126192126268_) + (gxc#compile-e__0 _L126276_))) + _hd126197126271_ + _expr126188126263_ + _hd126189126265_) (let () (declare (not safe)) - (_g126171126206_ _g126172126209_))))) + (_g126168126203_ _g126169126206_))))) (let () (declare (not safe)) - (_g126171126206_ _g126172126209_)))))))) + (_g126168126203_ _g126169126206_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop126185126232_ - _target126182126227_ + (_loop126182126229_ + _target126179126224_ '() '()))) (let () (declare (not safe)) - (_g126171126206_ - _g126172126209_)))))) + (_g126168126203_ + _g126169126206_)))))) (let () (declare (not safe)) - (_g126171126206_ _g126172126209_))))) + (_g126168126203_ _g126169126206_))))) (let () (declare (not safe)) - (_g126171126206_ _g126172126209_))))) + (_g126168126203_ _g126169126206_))))) (let () (declare (not safe)) - (_g126171126206_ _g126172126209_)))))) + (_g126168126203_ _g126169126206_)))))) (declare (not safe)) - (_g126170126323_ _stx126167_))))) + (_g126167126320_ _stx126164_))))) (define gxc#collect-type-call% - (lambda (_stx125659_) - (let* ((___stx126841126842_ _stx125659_) - (_g125663125778_ + (lambda (_stx125656_) + (let* ((___stx126838126839_ _stx125656_) + (_g125660125775_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx126841126842_))))) - (let ((___kont126843126844_ - (lambda (_L126117_ _L126118_ _L126119_ _L126120_ _L126121_) - (let ((__tmp128841 + ___stx126838126839_))))) + (let ((___kont126840126841_ + (lambda (_L126114_ _L126115_ _L126116_ _L126117_ _L126118_) + (let ((__tmp128838 (let () (declare (not safe)) - (gxc#identifier-symbol _L126120_))) - (__tmp128840 - (let () (declare (not safe)) (gx#stx-e _L126119_))) - (__tmp128839 + (gxc#identifier-symbol _L126117_))) + (__tmp128837 + (let () (declare (not safe)) (gx#stx-e _L126116_))) + (__tmp128836 (let () (declare (not safe)) - (gxc#identifier-symbol _L126118_))) - (__tmp128838 - (let () (declare (not safe)) (gx#stx-e _L126117_)))) + (gxc#identifier-symbol _L126115_))) + (__tmp128835 + (let () (declare (not safe)) (gx#stx-e _L126114_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp128841 - __tmp128840 - __tmp128839 - __tmp128838)))) - (___kont126845126846_ - (lambda (_L125945_ _L125946_ _L125947_ _L125948_) - (let ((__tmp128844 + __tmp128838 + __tmp128837 + __tmp128836 + __tmp128835)))) + (___kont126842126843_ + (lambda (_L125942_ _L125943_ _L125944_ _L125945_) + (let ((__tmp128841 (let () (declare (not safe)) - (gxc#identifier-symbol _L125947_))) - (__tmp128843 - (let () (declare (not safe)) (gx#stx-e _L125946_))) - (__tmp128842 + (gxc#identifier-symbol _L125944_))) + (__tmp128840 + (let () (declare (not safe)) (gx#stx-e _L125943_))) + (__tmp128839 (let () (declare (not safe)) - (gxc#identifier-symbol _L125945_)))) + (gxc#identifier-symbol _L125942_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp128844 - __tmp128843 - __tmp128842 + __tmp128841 + __tmp128840 + __tmp128839 '#f)))) - (___kont126847126848_ - (lambda (_L125815_) + (___kont126844126845_ + (lambda (_L125812_) (for-each gxc#compile-e - (let ((__tmp128845 - (lambda (_g125828125831_ _g125829125833_) + (let ((__tmp128842 + (lambda (_g125825125828_ _g125826125830_) (let () (declare (not safe)) - (cons _g125828125831_ _g125829125833_))))) + (cons _g125825125828_ _g125826125830_))))) (declare (not safe)) - (foldr1 __tmp128845 '() _L125815_)))))) - (let* ((___match127098127099_ - (lambda (_e125764125783_ - _hd125763125786_ - _tl125762125788_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) - (letrec ((_loop125768125796_ - (lambda (_hd125766125799_ _expr125772125801_) + (foldr1 __tmp128842 '() _L125812_)))))) + (let* ((___match127095127096_ + (lambda (_e125761125780_ + _hd125760125783_ + _tl125759125785_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) + (letrec ((_loop125765125793_ + (lambda (_hd125763125796_ _expr125769125798_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125766125799_)) - (let ((_e125769125804_ + (gx#stx-pair? _hd125763125796_)) + (let ((_e125766125801_ (let () (declare (not safe)) - (gx#stx-e _hd125766125799_)))) - (let ((_lp-tl125771125809_ + (gx#stx-e _hd125763125796_)))) + (let ((_lp-tl125768125806_ (let () (declare (not safe)) - (##cdr _e125769125804_))) - (_lp-hd125770125807_ + (##cdr _e125766125801_))) + (_lp-hd125767125804_ (let () (declare (not safe)) - (##car _e125769125804_)))) - (let ((__tmp128846 + (##car _e125766125801_)))) + (let ((__tmp128843 (let () (declare (not safe)) - (cons _lp-hd125770125807_ - _expr125772125801_)))) + (cons _lp-hd125767125804_ + _expr125769125798_)))) (declare (not safe)) - (_loop125768125796_ - _lp-tl125771125809_ - __tmp128846)))) - (let ((_expr125773125812_ - (reverse _expr125772125801_))) - (___kont126847126848_ - _expr125773125812_)))))) + (_loop125765125793_ + _lp-tl125768125806_ + __tmp128843)))) + (let ((_expr125770125809_ + (reverse _expr125769125798_))) + (___kont126844126845_ + _expr125770125809_)))))) (let () (declare (not safe)) - (_loop125768125796_ _target125765125791_ '()))))) - (___match126978126979_ - (lambda (_e125672125989_ - _hd125671125992_ - _tl125670125994_ - _e125675125997_ - _hd125674126000_ - _tl125673126002_ - _e125678126005_ - _hd125677126008_ - _tl125676126010_ - _e125681126013_ - _hd125680126016_ - _tl125679126018_ - _e125684126021_ - _hd125683126024_ - _tl125682126026_ - _e125687126029_ - _hd125686126032_ - _tl125685126034_ - _e125690126037_ - _hd125689126040_ - _tl125688126042_ - _e125693126045_ - _hd125692126048_ - _tl125691126050_ - _e125696126053_ - _hd125695126056_ - _tl125694126058_ - _e125699126061_ - _hd125698126064_ - _tl125697126066_ - _e125702126069_ - _hd125701126072_ - _tl125700126074_ - _e125705126077_ - _hd125704126080_ - _tl125703126082_ - _e125708126085_ - _hd125707126088_ - _tl125706126090_ - _e125711126093_ - _hd125710126096_ - _tl125709126098_ - _e125714126101_ - _hd125713126104_ - _tl125712126106_ - _e125717126109_ - _hd125716126112_ - _tl125715126114_) - (let ((_L126117_ _hd125716126112_) - (_L126118_ _hd125707126088_) - (_L126119_ _hd125698126064_) - (_L126120_ _hd125689126040_) - (_L126121_ _hd125680126016_)) + (_loop125765125793_ _target125762125788_ '()))))) + (___match126975126976_ + (lambda (_e125669125986_ + _hd125668125989_ + _tl125667125991_ + _e125672125994_ + _hd125671125997_ + _tl125670125999_ + _e125675126002_ + _hd125674126005_ + _tl125673126007_ + _e125678126010_ + _hd125677126013_ + _tl125676126015_ + _e125681126018_ + _hd125680126021_ + _tl125679126023_ + _e125684126026_ + _hd125683126029_ + _tl125682126031_ + _e125687126034_ + _hd125686126037_ + _tl125685126039_ + _e125690126042_ + _hd125689126045_ + _tl125688126047_ + _e125693126050_ + _hd125692126053_ + _tl125691126055_ + _e125696126058_ + _hd125695126061_ + _tl125694126063_ + _e125699126066_ + _hd125698126069_ + _tl125697126071_ + _e125702126074_ + _hd125701126077_ + _tl125700126079_ + _e125705126082_ + _hd125704126085_ + _tl125703126087_ + _e125708126090_ + _hd125707126093_ + _tl125706126095_ + _e125711126098_ + _hd125710126101_ + _tl125709126103_ + _e125714126106_ + _hd125713126109_ + _tl125712126111_) + (let ((_L126114_ _hd125713126109_) + (_L126115_ _hd125704126085_) + (_L126116_ _hd125695126061_) + (_L126117_ _hd125686126037_) + (_L126118_ _hd125677126013_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L126121_ + _L126118_ 'bind-method!)) - (___kont126843126844_ + (___kont126840126841_ + _L126114_ + _L126115_ + _L126116_ _L126117_ - _L126118_ - _L126119_ - _L126120_ - _L126121_) + _L126118_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + (gx#stx-null? _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))))))) + (_g125660125775_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx126841126842_)) - (let ((_e125672125989_ + (gx#stx-pair? ___stx126838126839_)) + (let ((_e125669125986_ (let () (declare (not safe)) - (gx#stx-e ___stx126841126842_)))) - (let ((_tl125670125994_ + (gx#stx-e ___stx126838126839_)))) + (let ((_tl125667125991_ (let () (declare (not safe)) - (##cdr _e125672125989_))) - (_hd125671125992_ + (##cdr _e125669125986_))) + (_hd125668125989_ (let () (declare (not safe)) - (##car _e125672125989_)))) + (##car _e125669125986_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125670125994_)) - (let ((_e125675125997_ + (gx#stx-pair? _tl125667125991_)) + (let ((_e125672125994_ (let () (declare (not safe)) - (gx#stx-e _tl125670125994_)))) - (let ((_tl125673126002_ + (gx#stx-e _tl125667125991_)))) + (let ((_tl125670125999_ (let () (declare (not safe)) - (##cdr _e125675125997_))) - (_hd125674126000_ + (##cdr _e125672125994_))) + (_hd125671125997_ (let () (declare (not safe)) - (##car _e125675125997_)))) + (##car _e125672125994_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125674126000_)) - (let ((_e125678126005_ + (gx#stx-pair? _hd125671125997_)) + (let ((_e125675126002_ (let () (declare (not safe)) - (gx#stx-e _hd125674126000_)))) - (let ((_tl125676126010_ + (gx#stx-e _hd125671125997_)))) + (let ((_tl125673126007_ (let () (declare (not safe)) - (##cdr _e125678126005_))) - (_hd125677126008_ + (##cdr _e125675126002_))) + (_hd125674126005_ (let () (declare (not safe)) - (##car _e125678126005_)))) + (##car _e125675126002_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125677126008_)) + (gx#identifier? _hd125674126005_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd125677126008_)) + _hd125674126005_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125676126010_)) - (let ((_e125681126013_ + _tl125673126007_)) + (let ((_e125678126010_ (let () (declare (not safe)) (gx#stx-e - _tl125676126010_)))) - (let ((_tl125679126018_ + _tl125673126007_)))) + (let ((_tl125676126015_ (let () (declare (not safe)) - (##cdr _e125681126013_))) - (_hd125680126016_ + (##cdr _e125678126010_))) + (_hd125677126013_ (let () (declare (not safe)) - (##car _e125681126013_)))) + (##car _e125678126010_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125679126018_)) + _tl125676126015_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl125673126002_)) - (let ((_e125684126021_ + (gx#stx-pair? _tl125670125999_)) + (let ((_e125681126018_ (let () (declare (not safe)) - (gx#stx-e _tl125673126002_)))) - (let ((_tl125682126026_ + (gx#stx-e _tl125670125999_)))) + (let ((_tl125679126023_ (let () (declare (not safe)) - (##cdr _e125684126021_))) - (_hd125683126024_ + (##cdr _e125681126018_))) + (_hd125680126021_ (let () (declare (not safe)) - (##car _e125684126021_)))) + (##car _e125681126018_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125683126024_)) - (let ((_e125687126029_ + (gx#stx-pair? _hd125680126021_)) + (let ((_e125684126026_ (let () (declare (not safe)) - (gx#stx-e _hd125683126024_)))) - (let ((_tl125685126034_ + (gx#stx-e _hd125680126021_)))) + (let ((_tl125682126031_ (let () (declare (not safe)) - (##cdr _e125687126029_))) - (_hd125686126032_ + (##cdr _e125684126026_))) + (_hd125683126029_ (let () (declare (not safe)) - (##car _e125687126029_)))) + (##car _e125684126026_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125686126032_)) + (gx#identifier? _hd125683126029_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd125686126032_)) + _hd125683126029_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125685126034_)) - (let ((_e125690126037_ + _tl125682126031_)) + (let ((_e125687126034_ (let () (declare (not safe)) (gx#stx-e - _tl125685126034_)))) - (let ((_tl125688126042_ + _tl125682126031_)))) + (let ((_tl125685126039_ (let () (declare (not safe)) - (##cdr _e125690126037_))) - (_hd125689126040_ + (##cdr _e125687126034_))) + (_hd125686126037_ (let () (declare (not safe)) - (##car _e125690126037_)))) + (##car _e125687126034_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125688126042_)) + _tl125685126039_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125682126026_)) - (let ((_e125693126045_ + _tl125679126023_)) + (let ((_e125690126042_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl125682126026_)))) - (let ((_tl125691126050_ + (gx#stx-e _tl125679126023_)))) + (let ((_tl125688126047_ (let () (declare (not safe)) - (##cdr _e125693126045_))) - (_hd125692126048_ + (##cdr _e125690126042_))) + (_hd125689126045_ (let () (declare (not safe)) - (##car _e125693126045_)))) + (##car _e125690126042_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125692126048_)) - (let ((_e125696126053_ + (gx#stx-pair? _hd125689126045_)) + (let ((_e125693126050_ (let () (declare (not safe)) - (gx#stx-e _hd125692126048_)))) - (let ((_tl125694126058_ + (gx#stx-e _hd125689126045_)))) + (let ((_tl125691126055_ (let () (declare (not safe)) - (##cdr _e125696126053_))) - (_hd125695126056_ + (##cdr _e125693126050_))) + (_hd125692126053_ (let () (declare (not safe)) - (##car _e125696126053_)))) + (##car _e125693126050_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125695126056_)) + (gx#identifier? _hd125692126053_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd125695126056_)) + (gx#stx-eq? '%#quote _hd125692126053_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125694126058_)) - (let ((_e125699126061_ + (gx#stx-pair? _tl125691126055_)) + (let ((_e125696126058_ (let () (declare (not safe)) (gx#stx-e - _tl125694126058_)))) - (let ((_tl125697126066_ + _tl125691126055_)))) + (let ((_tl125694126063_ (let () (declare (not safe)) - (##cdr _e125699126061_))) - (_hd125698126064_ + (##cdr _e125696126058_))) + (_hd125695126061_ (let () (declare (not safe)) - (##car _e125699126061_)))) + (##car _e125696126058_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125697126066_)) + _tl125694126063_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125691126050_)) - (let ((_e125702126069_ + _tl125688126047_)) + (let ((_e125699126066_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl125691126050_)))) - (let ((_tl125700126074_ - (let () (declare (not safe)) (##cdr _e125702126069_))) - (_hd125701126072_ - (let () (declare (not safe)) (##car _e125702126069_)))) + (gx#stx-e _tl125688126047_)))) + (let ((_tl125697126071_ + (let () (declare (not safe)) (##cdr _e125699126066_))) + (_hd125698126069_ + (let () (declare (not safe)) (##car _e125699126066_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125701126072_)) - (let ((_e125705126077_ + (gx#stx-pair? _hd125698126069_)) + (let ((_e125702126074_ (let () (declare (not safe)) - (gx#stx-e _hd125701126072_)))) - (let ((_tl125703126082_ + (gx#stx-e _hd125698126069_)))) + (let ((_tl125700126079_ (let () (declare (not safe)) - (##cdr _e125705126077_))) - (_hd125704126080_ + (##cdr _e125702126074_))) + (_hd125701126077_ (let () (declare (not safe)) - (##car _e125705126077_)))) + (##car _e125702126074_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125704126080_)) + (gx#identifier? _hd125701126077_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd125704126080_)) + (gx#stx-eq? '%#ref _hd125701126077_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125703126082_)) - (let ((_e125708126085_ + (gx#stx-pair? _tl125700126079_)) + (let ((_e125705126082_ (let () (declare (not safe)) - (gx#stx-e _tl125703126082_)))) - (let ((_tl125706126090_ + (gx#stx-e _tl125700126079_)))) + (let ((_tl125703126087_ (let () (declare (not safe)) - (##cdr _e125708126085_))) - (_hd125707126088_ + (##cdr _e125705126082_))) + (_hd125704126085_ (let () (declare (not safe)) - (##car _e125708126085_)))) + (##car _e125705126082_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125706126090_)) + _tl125703126087_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125700126074_)) - (let ((_e125711126093_ + _tl125697126071_)) + (let ((_e125708126090_ (let () (declare (not safe)) (gx#stx-e - _tl125700126074_)))) - (let ((_tl125709126098_ + _tl125697126071_)))) + (let ((_tl125706126095_ (let () (declare (not safe)) - (##cdr _e125711126093_))) - (_hd125710126096_ + (##cdr _e125708126090_))) + (_hd125707126093_ (let () (declare (not safe)) - (##car _e125711126093_)))) + (##car _e125708126090_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd125710126096_)) - (let ((_e125714126101_ + _hd125707126093_)) + (let ((_e125711126098_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd125710126096_)))) - (let ((_tl125712126106_ + (gx#stx-e _hd125707126093_)))) + (let ((_tl125709126103_ (let () (declare (not safe)) - (##cdr _e125714126101_))) - (_hd125713126104_ + (##cdr _e125711126098_))) + (_hd125710126101_ (let () (declare (not safe)) - (##car _e125714126101_)))) + (##car _e125711126098_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125713126104_)) + (gx#identifier? _hd125710126101_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd125713126104_)) + (gx#stx-eq? '%#quote _hd125710126101_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125712126106_)) - (let ((_e125717126109_ + (gx#stx-pair? _tl125709126103_)) + (let ((_e125714126106_ (let () (declare (not safe)) - (gx#stx-e _tl125712126106_)))) - (let ((_tl125715126114_ + (gx#stx-e _tl125709126103_)))) + (let ((_tl125712126111_ (let () (declare (not safe)) - (##cdr _e125717126109_))) - (_hd125716126112_ + (##cdr _e125714126106_))) + (_hd125713126109_ (let () (declare (not safe)) - (##car _e125717126109_)))) + (##car _e125714126106_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125715126114_)) + (gx#stx-null? _tl125712126111_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl125709126098_)) - (___match126978126979_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - _e125675125997_ - _hd125674126000_ - _tl125673126002_ - _e125678126005_ - _hd125677126008_ - _tl125676126010_ - _e125681126013_ - _hd125680126016_ - _tl125679126018_ - _e125684126021_ - _hd125683126024_ - _tl125682126026_ - _e125687126029_ - _hd125686126032_ - _tl125685126034_ - _e125690126037_ - _hd125689126040_ - _tl125688126042_ - _e125693126045_ - _hd125692126048_ - _tl125691126050_ - _e125696126053_ - _hd125695126056_ - _tl125694126058_ - _e125699126061_ - _hd125698126064_ - _tl125697126066_ - _e125702126069_ - _hd125701126072_ - _tl125700126074_ - _e125705126077_ - _hd125704126080_ - _tl125703126082_ - _e125708126085_ - _hd125707126088_ - _tl125706126090_ - _e125711126093_ - _hd125710126096_ - _tl125709126098_ - _e125714126101_ - _hd125713126104_ - _tl125712126106_ - _e125717126109_ - _hd125716126112_ - _tl125715126114_) + _tl125706126095_)) + (___match126975126976_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + _e125672125994_ + _hd125671125997_ + _tl125670125999_ + _e125675126002_ + _hd125674126005_ + _tl125673126007_ + _e125678126010_ + _hd125677126013_ + _tl125676126015_ + _e125681126018_ + _hd125680126021_ + _tl125679126023_ + _e125684126026_ + _hd125683126029_ + _tl125682126031_ + _e125687126034_ + _hd125686126037_ + _tl125685126039_ + _e125690126042_ + _hd125689126045_ + _tl125688126047_ + _e125693126050_ + _hd125692126053_ + _tl125691126055_ + _e125696126058_ + _hd125695126061_ + _tl125694126063_ + _e125699126066_ + _hd125698126069_ + _tl125697126071_ + _e125702126074_ + _hd125701126077_ + _tl125700126079_ + _e125705126082_ + _hd125704126085_ + _tl125703126087_ + _e125708126090_ + _hd125707126093_ + _tl125706126095_ + _e125711126098_ + _hd125710126101_ + _tl125709126103_ + _e125714126106_ + _hd125713126109_ + _tl125712126111_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125670125994_)) - (let ((___splice126849126850_ + _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))) + (_g125660125775_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125670125994_)) - (let ((___splice126849126850_ + _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))))) + (_g125660125775_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))) + (_g125660125775_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + (gx#stx-null? _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))) + (_g125660125775_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + (gx#stx-null? _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))))) + (_g125660125775_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125670125994_ '0)))) - (let ((_tl125767125793_ + (gx#syntax-split-splice _tl125667125991_ '0)))) + (let ((_tl125764125790_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '1))) - (_target125765125791_ + (##vector-ref ___splice126846126847_ '1))) + (_target125762125788_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '0)))) + (##vector-ref ___splice126846126847_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + (gx#stx-null? _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) - (let () (declare (not safe)) (_g125663125778_)))))) + (_g125660125775_))))) + (let () (declare (not safe)) (_g125660125775_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl125700126074_)) - (if (let ((__tmp128847 + _tl125697126071_)) + (if (let ((__tmp128844 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp128847 'bind-method!)) - (let ((_L125945_ _hd125707126088_) - (_L125946_ _hd125698126064_) - (_L125947_ _hd125689126040_) - (_L125948_ _hd125680126016_)) - (___kont126845126846_ - _L125945_ - _L125946_ - _L125947_ - _L125948_)) + (gxc#runtime-identifier=? __tmp128844 'bind-method!)) + (let ((_L125942_ _hd125704126085_) + (_L125943_ _hd125695126061_) + (_L125944_ _hd125686126037_) + (_L125945_ _hd125677126013_)) + (___kont126842126843_ + _L125942_ + _L125943_ + _L125944_ + _L125945_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125670125994_ '0)))) - (let ((_tl125767125793_ + (gx#syntax-split-splice _tl125667125991_ '0)))) + (let ((_tl125764125790_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '1))) - (_target125765125791_ + (##vector-ref ___splice126846126847_ '1))) + (_target125762125788_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '0)))) + (##vector-ref ___splice126846126847_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + (gx#stx-null? _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) - (let () (declare (not safe)) (_g125663125778_)))) + (_g125660125775_))))) + (let () (declare (not safe)) (_g125660125775_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125670125994_ '0)))) - (let ((_tl125767125793_ + (gx#syntax-split-splice _tl125667125991_ '0)))) + (let ((_tl125764125790_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '1))) - (_target125765125791_ + (##vector-ref ___splice126846126847_ '1))) + (_target125762125788_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '0)))) + (##vector-ref ___splice126846126847_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) - (let () (declare (not safe)) (_g125663125778_))))) - (let () (declare (not safe)) (_g125663125778_))))) + (gx#stx-null? _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) + (let () (declare (not safe)) (_g125660125775_))))) + (let () (declare (not safe)) (_g125660125775_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125670125994_)) - (let ((___splice126849126850_ + _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))))) + (_g125660125775_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125670125994_)) - (let ((___splice126849126850_ + _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))) + (_g125660125775_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))) + (_g125660125775_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + (gx#stx-null? _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))))) + (_g125660125775_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '1))) - (_target125765125791_ + (##vector-ref ___splice126846126847_ '1))) + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + (gx#stx-null? _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) - (let () (declare (not safe)) (_g125663125778_)))))) + (_g125660125775_))))) + (let () (declare (not safe)) (_g125660125775_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125670125994_ '0)))) - (let ((_tl125767125793_ + (gx#syntax-split-splice _tl125667125991_ '0)))) + (let ((_tl125764125790_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '1))) - (_target125765125791_ + (##vector-ref ___splice126846126847_ '1))) + (_target125762125788_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '0)))) + (##vector-ref ___splice126846126847_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) - (let () (declare (not safe)) (_g125663125778_))))) - (let () (declare (not safe)) (_g125663125778_)))) + (gx#stx-null? _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) + (let () (declare (not safe)) (_g125660125775_))))) + (let () (declare (not safe)) (_g125660125775_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125670125994_)) - (let ((___splice126849126850_ + _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl125670125994_ '0)))) - (let ((_tl125767125793_ + (gx#syntax-split-splice _tl125667125991_ '0)))) + (let ((_tl125764125790_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '1))) - (_target125765125791_ + (##vector-ref ___splice126846126847_ '1))) + (_target125762125788_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '0)))) + (##vector-ref ___splice126846126847_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) - (let () (declare (not safe)) (_g125663125778_))))) - (let () (declare (not safe)) (_g125663125778_)))))) + (gx#stx-null? _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) + (let () (declare (not safe)) (_g125660125775_))))) + (let () (declare (not safe)) (_g125660125775_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125670125994_)) - (let ((___splice126849126850_ + _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))) + (_g125660125775_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125670125994_)) - (let ((___splice126849126850_ + _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))) + (_g125660125775_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))))) + (_g125660125775_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + (gx#stx-null? _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))))) + (_g125660125775_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125670125994_ '0)))) - (let ((_tl125767125793_ + (gx#syntax-split-splice _tl125667125991_ '0)))) + (let ((_tl125764125790_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '1))) - (_target125765125791_ + (##vector-ref ___splice126846126847_ '1))) + (_target125762125788_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '0)))) + (##vector-ref ___splice126846126847_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + (gx#stx-null? _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) - (let () (declare (not safe)) (_g125663125778_)))) + (_g125660125775_))))) + (let () (declare (not safe)) (_g125660125775_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125670125994_ '0)))) - (let ((_tl125767125793_ + (gx#syntax-split-splice _tl125667125991_ '0)))) + (let ((_tl125764125790_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '1))) - (_target125765125791_ + (##vector-ref ___splice126846126847_ '1))) + (_target125762125788_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '0)))) + (##vector-ref ___splice126846126847_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) - (let () (declare (not safe)) (_g125663125778_))))) - (let () (declare (not safe)) (_g125663125778_)))))) + (gx#stx-null? _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) + (let () (declare (not safe)) (_g125660125775_))))) + (let () (declare (not safe)) (_g125660125775_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125670125994_)) - (let ((___splice126849126850_ + _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))) + (_g125660125775_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125670125994_)) - (let ((___splice126849126850_ + _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))) + (_g125660125775_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125670125994_)) - (let ((___splice126849126850_ + _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))))) + (_g125660125775_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + (gx#stx-null? _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))))) + (_g125660125775_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '1))) - (_target125765125791_ + (##vector-ref ___splice126846126847_ '1))) + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + (gx#stx-null? _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) - (let () (declare (not safe)) (_g125663125778_)))) + (_g125660125775_))))) + (let () (declare (not safe)) (_g125660125775_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125670125994_ '0)))) - (let ((_tl125767125793_ + (gx#syntax-split-splice _tl125667125991_ '0)))) + (let ((_tl125764125790_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '1))) - (_target125765125791_ + (##vector-ref ___splice126846126847_ '1))) + (_target125762125788_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '0)))) + (##vector-ref ___splice126846126847_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + (gx#stx-null? _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) - (let () (declare (not safe)) (_g125663125778_)))))) + (_g125660125775_))))) + (let () (declare (not safe)) (_g125660125775_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125670125994_)) - (let ((___splice126849126850_ + _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl125670125994_ '0)))) - (let ((_tl125767125793_ + (gx#syntax-split-splice _tl125667125991_ '0)))) + (let ((_tl125764125790_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '1))) - (_target125765125791_ + (##vector-ref ___splice126846126847_ '1))) + (_target125762125788_ (let () (declare (not safe)) - (##vector-ref ___splice126849126850_ '0)))) + (##vector-ref ___splice126846126847_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) - (let () (declare (not safe)) (_g125663125778_))))) - (let () (declare (not safe)) (_g125663125778_)))) + (gx#stx-null? _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) + (let () (declare (not safe)) (_g125660125775_))))) + (let () (declare (not safe)) (_g125660125775_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125670125994_)) - (let ((___splice126849126850_ + _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))) + (_g125660125775_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125670125994_)) - (let ((___splice126849126850_ + _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))))) + (_g125660125775_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))))) + (_g125660125775_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125670125994_)) - (let ((___splice126849126850_ + (gx#stx-pair/null? _tl125667125991_)) + (let ((___splice126846126847_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125670125994_ + _tl125667125991_ '0)))) - (let ((_tl125767125793_ + (let ((_tl125764125790_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '1))) - (_target125765125791_ + (_target125762125788_ (let () (declare (not safe)) (##vector-ref - ___splice126849126850_ + ___splice126846126847_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125767125793_)) - (___match127098127099_ - _e125672125989_ - _hd125671125992_ - _tl125670125994_ - ___splice126849126850_ - _target125765125791_ - _tl125767125793_) + (gx#stx-null? _tl125764125790_)) + (___match127095127096_ + _e125669125986_ + _hd125668125989_ + _tl125667125991_ + ___splice126846126847_ + _target125762125788_ + _tl125764125790_) (let () (declare (not safe)) - (_g125663125778_))))) + (_g125660125775_))))) (let () (declare (not safe)) - (_g125663125778_)))))) - (let () (declare (not safe)) (_g125663125778_)))))))) + (_g125660125775_)))))) + (let () (declare (not safe)) (_g125660125775_)))))))) (define gxc#current-compile-type-closure (make-parameter '#f)) (define gxc#basic-expression-type-begin% - (lambda (_stx125599_) - (let* ((___stx127101127102_ _stx125599_) - (_g125602125615_ + (lambda (_stx125596_) + (let* ((___stx127098127099_ _stx125596_) + (_g125599125612_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127101127102_))))) - (let ((___kont127103127104_ - (lambda (_L125643_) - (let () (declare (not safe)) (gxc#compile-e__0 _L125643_)))) - (___kont127105127106_ (lambda () '#f))) + ___stx127098127099_))))) + (let ((___kont127100127101_ + (lambda (_L125640_) + (let () (declare (not safe)) (gxc#compile-e__0 _L125640_)))) + (___kont127102127103_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127101127102_)) - (let ((_e125607125627_ + (gx#stx-pair? ___stx127098127099_)) + (let ((_e125604125624_ (let () (declare (not safe)) - (gx#stx-e ___stx127101127102_)))) - (let ((_tl125605125632_ - (let () (declare (not safe)) (##cdr _e125607125627_))) - (_hd125606125630_ + (gx#stx-e ___stx127098127099_)))) + (let ((_tl125602125629_ + (let () (declare (not safe)) (##cdr _e125604125624_))) + (_hd125603125627_ (let () (declare (not safe)) - (##car _e125607125627_)))) + (##car _e125604125624_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125605125632_)) - (let ((_e125610125635_ + (gx#stx-pair? _tl125602125629_)) + (let ((_e125607125632_ (let () (declare (not safe)) - (gx#stx-e _tl125605125632_)))) - (let ((_tl125608125640_ + (gx#stx-e _tl125602125629_)))) + (let ((_tl125605125637_ (let () (declare (not safe)) - (##cdr _e125610125635_))) - (_hd125609125638_ + (##cdr _e125607125632_))) + (_hd125606125635_ (let () (declare (not safe)) - (##car _e125610125635_)))) + (##car _e125607125632_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125608125640_)) - (___kont127103127104_ _hd125609125638_) - (___kont127105127106_)))) - (___kont127105127106_)))) - (___kont127105127106_)))))) + (gx#stx-null? _tl125605125637_)) + (___kont127100127101_ _hd125606125635_) + (___kont127102127103_)))) + (___kont127102127103_)))) + (___kont127102127103_)))))) (define gxc#basic-expression-type-annotations (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-begin-annotation% - (lambda (_stx125479_) - (let* ((_g125481125498_ - (lambda (_g125482125495_) + (lambda (_stx125476_) + (let* ((_g125478125495_ + (lambda (_g125479125492_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125482125495_)))) - (_g125480125596_ - (lambda (_g125482125501_) + _g125479125492_)))) + (_g125477125593_ + (lambda (_g125479125498_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125482125501_)) - (let ((_e125487125503_ + (gx#stx-pair? _g125479125498_)) + (let ((_e125484125500_ (let () (declare (not safe)) - (gx#stx-e _g125482125501_)))) - (let ((_hd125486125506_ + (gx#stx-e _g125479125498_)))) + (let ((_hd125483125503_ (let () (declare (not safe)) - (##car _e125487125503_))) - (_tl125485125508_ + (##car _e125484125500_))) + (_tl125482125505_ (let () (declare (not safe)) - (##cdr _e125487125503_)))) + (##cdr _e125484125500_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125485125508_)) - (let ((_e125490125511_ + (gx#stx-pair? _tl125482125505_)) + (let ((_e125487125508_ (let () (declare (not safe)) - (gx#stx-e _tl125485125508_)))) - (let ((_hd125489125514_ + (gx#stx-e _tl125482125505_)))) + (let ((_hd125486125511_ (let () (declare (not safe)) - (##car _e125490125511_))) - (_tl125488125516_ + (##car _e125487125508_))) + (_tl125485125513_ (let () (declare (not safe)) - (##cdr _e125490125511_)))) + (##cdr _e125487125508_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125488125516_)) - (let ((_e125493125519_ + (gx#stx-pair? _tl125485125513_)) + (let ((_e125490125516_ (let () (declare (not safe)) - (gx#stx-e _tl125488125516_)))) - (let ((_hd125492125522_ + (gx#stx-e _tl125485125513_)))) + (let ((_hd125489125519_ (let () (declare (not safe)) - (##car _e125493125519_))) - (_tl125491125524_ + (##car _e125490125516_))) + (_tl125488125521_ (let () (declare (not safe)) - (##cdr _e125493125519_)))) + (##cdr _e125490125516_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125491125524_)) - ((lambda (_L125527_ _L125528_) - (let* ((___stx127123127124_ - _L125528_) - (_g125544125555_ + _tl125488125521_)) + ((lambda (_L125524_ _L125525_) + (let* ((___stx127120127121_ + _L125525_) + (_g125541125552_ (lambda () (let () (declare @@ -2905,272 +2905,272 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127123127124_))))) - (let ((___kont127125127126_ - (lambda (_L125575_ + ___stx127120127121_))))) + (let ((___kont127122127123_ + (lambda (_L125572_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L125576_) - (let ((_$e125588_ - (let ((__tmp128848 + _L125573_) + (let ((_$e125585_ + (let ((__tmp128845 (let () (declare (not safe)) - (gx#stx-e _L125576_)))) + (gx#stx-e _L125573_)))) (declare (not safe)) (hash-get gxc#basic-expression-type-annotations - __tmp128848)))) - (if _$e125588_ - ((lambda (_type-e125591_) - (_type-e125591_ _stx125479_ _L125528_)) - _$e125588_) + __tmp128845)))) + (if _$e125585_ + ((lambda (_type-e125588_) + (_type-e125588_ _stx125476_ _L125525_)) + _$e125585_) (let () (declare (not safe)) - (gxc#compile-e__0 _L125527_)))))) - (___kont127127127128_ + (gxc#compile-e__0 _L125524_)))))) + (___kont127124127125_ (lambda () (let () (declare (not safe)) - (gxc#compile-e__0 _L125527_))))) + (gxc#compile-e__0 _L125524_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match127134127135_ - (lambda (_e125550125567_ + (let ((___match127131127132_ + (lambda (_e125547125564_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd125549125570_ - _tl125548125572_) - (let ((_L125575_ _tl125548125572_) - (_L125576_ _hd125549125570_)) + _hd125546125567_ + _tl125545125569_) + (let ((_L125572_ _tl125545125569_) + (_L125573_ _hd125546125567_)) (if (let () (declare (not safe)) - (gx#identifier? _L125576_)) - (___kont127125127126_ _L125575_ _L125576_) - (___kont127127127128_)))))) + (gx#identifier? _L125573_)) + (___kont127122127123_ _L125572_ _L125573_) + (___kont127124127125_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127123127124_)) - (let ((_e125550125567_ + (gx#stx-pair? ___stx127120127121_)) + (let ((_e125547125564_ (let () (declare (not safe)) - (gx#stx-e ___stx127123127124_)))) - (let ((_tl125548125572_ + (gx#stx-e ___stx127120127121_)))) + (let ((_tl125545125569_ (let () (declare (not safe)) - (##cdr _e125550125567_))) - (_hd125549125570_ + (##cdr _e125547125564_))) + (_hd125546125567_ (let () (declare (not safe)) - (##car _e125550125567_)))) - (___match127134127135_ - _e125550125567_ - _hd125549125570_ - _tl125548125572_))) - (___kont127127127128_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd125492125522_ - _hd125489125514_) + (##car _e125547125564_)))) + (___match127131127132_ + _e125547125564_ + _hd125546125567_ + _tl125545125569_))) + (___kont127124127125_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd125489125519_ + _hd125486125511_) (let () (declare (not safe)) - (_g125481125498_ - _g125482125501_))))) + (_g125478125495_ + _g125479125498_))))) (let () (declare (not safe)) - (_g125481125498_ _g125482125501_))))) + (_g125478125495_ _g125479125498_))))) (let () (declare (not safe)) - (_g125481125498_ _g125482125501_))))) + (_g125478125495_ _g125479125498_))))) (let () (declare (not safe)) - (_g125481125498_ _g125482125501_)))))) + (_g125478125495_ _g125479125498_)))))) (declare (not safe)) - (_g125480125596_ _stx125479_)))) + (_g125477125593_ _stx125476_)))) (define gxc#basic-expression-type-annotation-mop.class - (lambda (_stx125323_ _ann125324_) - (let* ((_g125326125363_ - (lambda (_g125327125360_) + (lambda (_stx125320_ _ann125321_) + (let* ((_g125323125360_ + (lambda (_g125324125357_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125327125360_)))) - (_g125325125476_ - (lambda (_g125327125366_) + _g125324125357_)))) + (_g125322125473_ + (lambda (_g125324125363_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125327125366_)) - (let ((_e125337125368_ + (gx#stx-pair? _g125324125363_)) + (let ((_e125334125365_ (let () (declare (not safe)) - (gx#stx-e _g125327125366_)))) - (let ((_hd125336125371_ + (gx#stx-e _g125324125363_)))) + (let ((_hd125333125368_ (let () (declare (not safe)) - (##car _e125337125368_))) - (_tl125335125373_ + (##car _e125334125365_))) + (_tl125332125370_ (let () (declare (not safe)) - (##cdr _e125337125368_)))) + (##cdr _e125334125365_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125335125373_)) - (let ((_e125340125376_ + (gx#stx-pair? _tl125332125370_)) + (let ((_e125337125373_ (let () (declare (not safe)) - (gx#stx-e _tl125335125373_)))) - (let ((_hd125339125379_ + (gx#stx-e _tl125332125370_)))) + (let ((_hd125336125376_ (let () (declare (not safe)) - (##car _e125340125376_))) - (_tl125338125381_ + (##car _e125337125373_))) + (_tl125335125378_ (let () (declare (not safe)) - (##cdr _e125340125376_)))) + (##cdr _e125337125373_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125338125381_)) - (let ((_e125343125384_ + (gx#stx-pair? _tl125335125378_)) + (let ((_e125340125381_ (let () (declare (not safe)) - (gx#stx-e _tl125338125381_)))) - (let ((_hd125342125387_ + (gx#stx-e _tl125335125378_)))) + (let ((_hd125339125384_ (let () (declare (not safe)) - (##car _e125343125384_))) - (_tl125341125389_ + (##car _e125340125381_))) + (_tl125338125386_ (let () (declare (not safe)) - (##cdr _e125343125384_)))) + (##cdr _e125340125381_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125341125389_)) - (let ((_e125346125392_ + _tl125338125386_)) + (let ((_e125343125389_ (let () (declare (not safe)) (gx#stx-e - _tl125341125389_)))) - (let ((_hd125345125395_ + _tl125338125386_)))) + (let ((_hd125342125392_ (let () (declare (not safe)) - (##car _e125346125392_))) - (_tl125344125397_ + (##car _e125343125389_))) + (_tl125341125394_ (let () (declare (not safe)) - (##cdr _e125346125392_)))) + (##cdr _e125343125389_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125344125397_)) - (let ((_e125349125400_ + _tl125341125394_)) + (let ((_e125346125397_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl125344125397_)))) - (let ((_hd125348125403_ - (let () (declare (not safe)) (##car _e125349125400_))) - (_tl125347125405_ - (let () (declare (not safe)) (##cdr _e125349125400_)))) + (gx#stx-e _tl125341125394_)))) + (let ((_hd125345125400_ + (let () (declare (not safe)) (##car _e125346125397_))) + (_tl125344125402_ + (let () (declare (not safe)) (##cdr _e125346125397_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125347125405_)) - (let ((_e125352125408_ + (gx#stx-pair? _tl125344125402_)) + (let ((_e125349125405_ (let () (declare (not safe)) - (gx#stx-e _tl125347125405_)))) - (let ((_hd125351125411_ + (gx#stx-e _tl125344125402_)))) + (let ((_hd125348125408_ (let () (declare (not safe)) - (##car _e125352125408_))) - (_tl125350125413_ + (##car _e125349125405_))) + (_tl125347125410_ (let () (declare (not safe)) - (##cdr _e125352125408_)))) + (##cdr _e125349125405_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125350125413_)) - (let ((_e125355125416_ + (gx#stx-pair? _tl125347125410_)) + (let ((_e125352125413_ (let () (declare (not safe)) - (gx#stx-e _tl125350125413_)))) - (let ((_hd125354125419_ + (gx#stx-e _tl125347125410_)))) + (let ((_hd125351125416_ (let () (declare (not safe)) - (##car _e125355125416_))) - (_tl125353125421_ + (##car _e125352125413_))) + (_tl125350125418_ (let () (declare (not safe)) - (##cdr _e125355125416_)))) + (##cdr _e125352125413_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125353125421_)) - (let ((_e125358125424_ + (gx#stx-pair? _tl125350125418_)) + (let ((_e125355125421_ (let () (declare (not safe)) - (gx#stx-e _tl125353125421_)))) - (let ((_hd125357125427_ + (gx#stx-e _tl125350125418_)))) + (let ((_hd125354125424_ (let () (declare (not safe)) - (##car _e125358125424_))) - (_tl125356125429_ + (##car _e125355125421_))) + (_tl125353125426_ (let () (declare (not safe)) - (##cdr _e125358125424_)))) + (##cdr _e125355125421_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125356125429_)) - ((lambda (_L125432_ + _tl125353125426_)) + ((lambda (_L125429_ + _L125430_ + _L125431_ + _L125432_ _L125433_ _L125434_ - _L125435_ - _L125436_ - _L125437_ - _L125438_) - (let ((_type-id125468_ + _L125435_) + (let ((_type-id125465_ (let () (declare (not safe)) (gx#stx-e - _L125438_))) - (_super125469_ + _L125435_))) + (_super125466_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _L125437_))) - (_slots125470_ + _L125434_))) + (_slots125467_ (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _L125436_))) - (_ctor-method125471_ + _L125433_))) + (_ctor-method125468_ (let () (declare (not safe)) (gx#stx-e - _L125435_))) - (_struct?125472_ + _L125432_))) + (_struct?125469_ (let () (declare (not safe)) (gx#stx-e - _L125434_))) - (_final?125473_ + _L125431_))) + (_final?125470_ (let () (declare (not safe)) (gx#stx-e - _L125433_))) - (_metaclass125474_ + _L125430_))) + (_metaclass125471_ (if (let () (declare (not safe)) (gx#stx-e - _L125432_)) + _L125429_)) (let () (declare (not safe)) (gxc#identifier-symbol - _L125432_)) + _L125429_)) '#f))) - (let ((__obj128806 + (let ((__obj128803 (let () (declare (not safe)) @@ -3187,424 +3187,424 @@ '#f '#f)))) (gxc#!class:::init! - __obj128806 - _type-id125468_ - _super125469_ - _slots125470_ - _ctor-method125471_ - _struct?125472_ - _final?125473_ - _metaclass125474_) - __obj128806))) - _hd125357125427_ - _hd125354125419_ - _hd125351125411_ - _hd125348125403_ - _hd125345125395_ - _hd125342125387_ - _hd125339125379_) + __obj128803 + _type-id125465_ + _super125466_ + _slots125467_ + _ctor-method125468_ + _struct?125469_ + _final?125470_ + _metaclass125471_) + __obj128803))) + _hd125354125424_ + _hd125351125416_ + _hd125348125408_ + _hd125345125400_ + _hd125342125392_ + _hd125339125384_ + _hd125336125376_) (let () (declare (not safe)) - (_g125326125363_ - _g125327125366_))))) + (_g125323125360_ + _g125324125363_))))) (let () (declare (not safe)) - (_g125326125363_ _g125327125366_))))) + (_g125323125360_ _g125324125363_))))) (let () (declare (not safe)) - (_g125326125363_ _g125327125366_))))) + (_g125323125360_ _g125324125363_))))) (let () (declare (not safe)) - (_g125326125363_ _g125327125366_))))) + (_g125323125360_ _g125324125363_))))) (let () (declare (not safe)) - (_g125326125363_ _g125327125366_))))) + (_g125323125360_ _g125324125363_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g125326125363_ - _g125327125366_))))) + (_g125323125360_ + _g125324125363_))))) (let () (declare (not safe)) - (_g125326125363_ _g125327125366_))))) + (_g125323125360_ _g125324125363_))))) (let () (declare (not safe)) - (_g125326125363_ _g125327125366_))))) + (_g125323125360_ _g125324125363_))))) (let () (declare (not safe)) - (_g125326125363_ _g125327125366_)))))) + (_g125323125360_ _g125324125363_)))))) (declare (not safe)) - (_g125325125476_ _ann125324_)))) + (_g125322125473_ _ann125321_)))) (define gxc#basic-expression-type-annotation-mop.constructor - (lambda (_stx125271_ _ann125272_) - (let* ((_g125274125287_ - (lambda (_g125275125284_) + (lambda (_stx125268_ _ann125269_) + (let* ((_g125271125284_ + (lambda (_g125272125281_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125275125284_)))) - (_g125273125320_ - (lambda (_g125275125290_) + _g125272125281_)))) + (_g125270125317_ + (lambda (_g125272125287_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125275125290_)) - (let ((_e125279125292_ + (gx#stx-pair? _g125272125287_)) + (let ((_e125276125289_ (let () (declare (not safe)) - (gx#stx-e _g125275125290_)))) - (let ((_hd125278125295_ + (gx#stx-e _g125272125287_)))) + (let ((_hd125275125292_ (let () (declare (not safe)) - (##car _e125279125292_))) - (_tl125277125297_ + (##car _e125276125289_))) + (_tl125274125294_ (let () (declare (not safe)) - (##cdr _e125279125292_)))) + (##cdr _e125276125289_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125277125297_)) - (let ((_e125282125300_ + (gx#stx-pair? _tl125274125294_)) + (let ((_e125279125297_ (let () (declare (not safe)) - (gx#stx-e _tl125277125297_)))) - (let ((_hd125281125303_ + (gx#stx-e _tl125274125294_)))) + (let ((_hd125278125300_ (let () (declare (not safe)) - (##car _e125282125300_))) - (_tl125280125305_ + (##car _e125279125297_))) + (_tl125277125302_ (let () (declare (not safe)) - (##cdr _e125282125300_)))) + (##cdr _e125279125297_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125280125305_)) - ((lambda (_L125308_) - (let ((__tmp128849 + (gx#stx-null? _tl125277125302_)) + ((lambda (_L125305_) + (let ((__tmp128846 (let () (declare (not safe)) (gxc#identifier-symbol - _L125308_)))) + _L125305_)))) (declare (not safe)) (##structure gxc#!constructor::t - __tmp128849))) - _hd125281125303_) + __tmp128846))) + _hd125278125300_) (let () (declare (not safe)) - (_g125274125287_ _g125275125290_))))) + (_g125271125284_ _g125272125287_))))) (let () (declare (not safe)) - (_g125274125287_ _g125275125290_))))) + (_g125271125284_ _g125272125287_))))) (let () (declare (not safe)) - (_g125274125287_ _g125275125290_)))))) + (_g125271125284_ _g125272125287_)))))) (declare (not safe)) - (_g125273125320_ _ann125272_)))) + (_g125270125317_ _ann125269_)))) (define gxc#basic-expression-type-annotation-mop.predicate - (lambda (_stx125219_ _ann125220_) - (let* ((_g125222125235_ - (lambda (_g125223125232_) + (lambda (_stx125216_ _ann125217_) + (let* ((_g125219125232_ + (lambda (_g125220125229_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125223125232_)))) - (_g125221125268_ - (lambda (_g125223125238_) + _g125220125229_)))) + (_g125218125265_ + (lambda (_g125220125235_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125223125238_)) - (let ((_e125227125240_ + (gx#stx-pair? _g125220125235_)) + (let ((_e125224125237_ (let () (declare (not safe)) - (gx#stx-e _g125223125238_)))) - (let ((_hd125226125243_ + (gx#stx-e _g125220125235_)))) + (let ((_hd125223125240_ (let () (declare (not safe)) - (##car _e125227125240_))) - (_tl125225125245_ + (##car _e125224125237_))) + (_tl125222125242_ (let () (declare (not safe)) - (##cdr _e125227125240_)))) + (##cdr _e125224125237_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125225125245_)) - (let ((_e125230125248_ + (gx#stx-pair? _tl125222125242_)) + (let ((_e125227125245_ (let () (declare (not safe)) - (gx#stx-e _tl125225125245_)))) - (let ((_hd125229125251_ + (gx#stx-e _tl125222125242_)))) + (let ((_hd125226125248_ (let () (declare (not safe)) - (##car _e125230125248_))) - (_tl125228125253_ + (##car _e125227125245_))) + (_tl125225125250_ (let () (declare (not safe)) - (##cdr _e125230125248_)))) + (##cdr _e125227125245_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125228125253_)) - ((lambda (_L125256_) - (let ((__tmp128850 + (gx#stx-null? _tl125225125250_)) + ((lambda (_L125253_) + (let ((__tmp128847 (let () (declare (not safe)) (gxc#identifier-symbol - _L125256_)))) + _L125253_)))) (declare (not safe)) (##structure gxc#!predicate::t - __tmp128850))) - _hd125229125251_) + __tmp128847))) + _hd125226125248_) (let () (declare (not safe)) - (_g125222125235_ _g125223125238_))))) + (_g125219125232_ _g125220125235_))))) (let () (declare (not safe)) - (_g125222125235_ _g125223125238_))))) + (_g125219125232_ _g125220125235_))))) (let () (declare (not safe)) - (_g125222125235_ _g125223125238_)))))) + (_g125219125232_ _g125220125235_)))))) (declare (not safe)) - (_g125221125268_ _ann125220_)))) + (_g125218125265_ _ann125217_)))) (define gxc#basic-expression-type-annotation-mop.accessor - (lambda (_stx125135_ _ann125136_) - (let* ((_g125138125159_ - (lambda (_g125139125156_) + (lambda (_stx125132_ _ann125133_) + (let* ((_g125135125156_ + (lambda (_g125136125153_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125139125156_)))) - (_g125137125216_ - (lambda (_g125139125162_) + _g125136125153_)))) + (_g125134125213_ + (lambda (_g125136125159_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125139125162_)) - (let ((_e125145125164_ + (gx#stx-pair? _g125136125159_)) + (let ((_e125142125161_ (let () (declare (not safe)) - (gx#stx-e _g125139125162_)))) - (let ((_hd125144125167_ + (gx#stx-e _g125136125159_)))) + (let ((_hd125141125164_ (let () (declare (not safe)) - (##car _e125145125164_))) - (_tl125143125169_ + (##car _e125142125161_))) + (_tl125140125166_ (let () (declare (not safe)) - (##cdr _e125145125164_)))) + (##cdr _e125142125161_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125143125169_)) - (let ((_e125148125172_ + (gx#stx-pair? _tl125140125166_)) + (let ((_e125145125169_ (let () (declare (not safe)) - (gx#stx-e _tl125143125169_)))) - (let ((_hd125147125175_ + (gx#stx-e _tl125140125166_)))) + (let ((_hd125144125172_ (let () (declare (not safe)) - (##car _e125148125172_))) - (_tl125146125177_ + (##car _e125145125169_))) + (_tl125143125174_ (let () (declare (not safe)) - (##cdr _e125148125172_)))) + (##cdr _e125145125169_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125146125177_)) - (let ((_e125151125180_ + (gx#stx-pair? _tl125143125174_)) + (let ((_e125148125177_ (let () (declare (not safe)) - (gx#stx-e _tl125146125177_)))) - (let ((_hd125150125183_ + (gx#stx-e _tl125143125174_)))) + (let ((_hd125147125180_ (let () (declare (not safe)) - (##car _e125151125180_))) - (_tl125149125185_ + (##car _e125148125177_))) + (_tl125146125182_ (let () (declare (not safe)) - (##cdr _e125151125180_)))) + (##cdr _e125148125177_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125149125185_)) - (let ((_e125154125188_ + _tl125146125182_)) + (let ((_e125151125185_ (let () (declare (not safe)) (gx#stx-e - _tl125149125185_)))) - (let ((_hd125153125191_ + _tl125146125182_)))) + (let ((_hd125150125188_ (let () (declare (not safe)) - (##car _e125154125188_))) - (_tl125152125193_ + (##car _e125151125185_))) + (_tl125149125190_ (let () (declare (not safe)) - (##cdr _e125154125188_)))) + (##cdr _e125151125185_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125152125193_)) - ((lambda (_L125196_ - _L125197_ - _L125198_) - (let ((__tmp128853 + _tl125149125190_)) + ((lambda (_L125193_ + _L125194_ + _L125195_) + (let ((__tmp128850 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _L125198_))) - (__tmp128852 - (let () (declare (not safe)) (gx#stx-e _L125197_))) - (__tmp128851 - (let () (declare (not safe)) (gx#stx-e _L125196_)))) + (gxc#identifier-symbol _L125195_))) + (__tmp128849 + (let () (declare (not safe)) (gx#stx-e _L125194_))) + (__tmp128848 + (let () (declare (not safe)) (gx#stx-e _L125193_)))) (declare (not safe)) (##structure gxc#!accessor::t - __tmp128853 - __tmp128852 - __tmp128851))) - _hd125153125191_ - _hd125150125183_ - _hd125147125175_) + __tmp128850 + __tmp128849 + __tmp128848))) + _hd125150125188_ + _hd125147125180_ + _hd125144125172_) (let () (declare (not safe)) - (_g125138125159_ _g125139125162_))))) + (_g125135125156_ _g125136125159_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g125138125159_ - _g125139125162_))))) + (_g125135125156_ + _g125136125159_))))) (let () (declare (not safe)) - (_g125138125159_ _g125139125162_))))) + (_g125135125156_ _g125136125159_))))) (let () (declare (not safe)) - (_g125138125159_ _g125139125162_))))) + (_g125135125156_ _g125136125159_))))) (let () (declare (not safe)) - (_g125138125159_ _g125139125162_)))))) + (_g125135125156_ _g125136125159_)))))) (declare (not safe)) - (_g125137125216_ _ann125136_)))) + (_g125134125213_ _ann125133_)))) (define gxc#basic-expression-type-annotation-mop.mutator - (lambda (_stx125051_ _ann125052_) - (let* ((_g125054125075_ - (lambda (_g125055125072_) + (lambda (_stx125048_ _ann125049_) + (let* ((_g125051125072_ + (lambda (_g125052125069_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125055125072_)))) - (_g125053125132_ - (lambda (_g125055125078_) + _g125052125069_)))) + (_g125050125129_ + (lambda (_g125052125075_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125055125078_)) - (let ((_e125061125080_ + (gx#stx-pair? _g125052125075_)) + (let ((_e125058125077_ (let () (declare (not safe)) - (gx#stx-e _g125055125078_)))) - (let ((_hd125060125083_ + (gx#stx-e _g125052125075_)))) + (let ((_hd125057125080_ (let () (declare (not safe)) - (##car _e125061125080_))) - (_tl125059125085_ + (##car _e125058125077_))) + (_tl125056125082_ (let () (declare (not safe)) - (##cdr _e125061125080_)))) + (##cdr _e125058125077_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125059125085_)) - (let ((_e125064125088_ + (gx#stx-pair? _tl125056125082_)) + (let ((_e125061125085_ (let () (declare (not safe)) - (gx#stx-e _tl125059125085_)))) - (let ((_hd125063125091_ + (gx#stx-e _tl125056125082_)))) + (let ((_hd125060125088_ (let () (declare (not safe)) - (##car _e125064125088_))) - (_tl125062125093_ + (##car _e125061125085_))) + (_tl125059125090_ (let () (declare (not safe)) - (##cdr _e125064125088_)))) + (##cdr _e125061125085_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125062125093_)) - (let ((_e125067125096_ + (gx#stx-pair? _tl125059125090_)) + (let ((_e125064125093_ (let () (declare (not safe)) - (gx#stx-e _tl125062125093_)))) - (let ((_hd125066125099_ + (gx#stx-e _tl125059125090_)))) + (let ((_hd125063125096_ (let () (declare (not safe)) - (##car _e125067125096_))) - (_tl125065125101_ + (##car _e125064125093_))) + (_tl125062125098_ (let () (declare (not safe)) - (##cdr _e125067125096_)))) + (##cdr _e125064125093_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125065125101_)) - (let ((_e125070125104_ + _tl125062125098_)) + (let ((_e125067125101_ (let () (declare (not safe)) (gx#stx-e - _tl125065125101_)))) - (let ((_hd125069125107_ + _tl125062125098_)))) + (let ((_hd125066125104_ (let () (declare (not safe)) - (##car _e125070125104_))) - (_tl125068125109_ + (##car _e125067125101_))) + (_tl125065125106_ (let () (declare (not safe)) - (##cdr _e125070125104_)))) + (##cdr _e125067125101_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125068125109_)) - ((lambda (_L125112_ - _L125113_ - _L125114_) - (let ((__tmp128856 + _tl125065125106_)) + ((lambda (_L125109_ + _L125110_ + _L125111_) + (let ((__tmp128853 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _L125114_))) - (__tmp128855 - (let () (declare (not safe)) (gx#stx-e _L125113_))) - (__tmp128854 - (let () (declare (not safe)) (gx#stx-e _L125112_)))) + (gxc#identifier-symbol _L125111_))) + (__tmp128852 + (let () (declare (not safe)) (gx#stx-e _L125110_))) + (__tmp128851 + (let () (declare (not safe)) (gx#stx-e _L125109_)))) (declare (not safe)) (##structure gxc#!mutator::t - __tmp128856 - __tmp128855 - __tmp128854))) - _hd125069125107_ - _hd125066125099_ - _hd125063125091_) + __tmp128853 + __tmp128852 + __tmp128851))) + _hd125066125104_ + _hd125063125096_ + _hd125060125088_) (let () (declare (not safe)) - (_g125054125075_ _g125055125078_))))) + (_g125051125072_ _g125052125075_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g125054125075_ - _g125055125078_))))) + (_g125051125072_ + _g125052125075_))))) (let () (declare (not safe)) - (_g125054125075_ _g125055125078_))))) + (_g125051125072_ _g125052125075_))))) (let () (declare (not safe)) - (_g125054125075_ _g125055125078_))))) + (_g125051125072_ _g125052125075_))))) (let () (declare (not safe)) - (_g125054125075_ _g125055125078_)))))) + (_g125051125072_ _g125052125075_)))))) (declare (not safe)) - (_g125053125132_ _ann125052_)))) + (_g125050125129_ _ann125049_)))) (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 (_stx124171_) - (let* ((___stx127137127138_ _stx124171_) - (_g124177124373_ + (lambda (_stx124168_) + (let* ((___stx127134127135_ _stx124168_) + (_g124174124370_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127137127138_))))) - (let ((___kont127139127140_ - (lambda (_L125039_) - (let ((__obj128807 + ___stx127134127135_))))) + (let ((___kont127136127137_ + (lambda (_L125036_) + (let ((__obj128804 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj128807 + __obj128804 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L125039_)) + (gxc#lambda-form-arity _L125036_)) '#f) - __obj128807))) - (___kont127141127142_ - (lambda (_L124966_ + __obj128804))) + (___kont127138127139_ + (lambda (_L124963_ + _L124964_ + _L124965_ + _L124966_ _L124967_ - _L124968_ - _L124969_ - _L124970_ - _L124971_) - (let* ((_tab125021_ - (let () (declare (not safe)) (gx#stx-e _L124968_))) - (_keys125023_ - (if _tab125021_ - (let ((__tmp128857 (vector->list _tab125021_))) + _L124968_) + (let* ((_tab125018_ + (let () (declare (not safe)) (gx#stx-e _L124965_))) + (_keys125020_ + (if _tab125018_ + (let ((__tmp128854 (vector->list _tab125018_))) (declare (not safe)) - (filter values __tmp128857)) + (filter values __tmp128854)) '#f))) - (let ((__tmp128858 + (let ((__tmp128855 (let () (declare (not safe)) - (gxc#identifier-symbol _L124967_)))) + (gxc#identifier-symbol _L124964_)))) (declare (not safe)) (##structure gxc#!kw-lambda::t 'kw-lambda - _keys125023_ - __tmp128858))))) - (___kont127143127144_ - (lambda (_L124699_ + _keys125020_ + __tmp128855))))) + (___kont127140127141_ + (lambda (_L124696_ + _L124697_ + _L124698_ + _L124699_ _L124700_ _L124701_ _L124702_ _L124703_ _L124704_ - _L124705_ - _L124706_ - _L124707_ - _L124708_) - (let ((__tmp128860 + _L124705_) + (let ((__tmp128857 (map gx#stx-e - (let ((__tmp128861 - (lambda (_g124801124804_ _g124802124806_) + (let ((__tmp128858 + (lambda (_g124798124801_ _g124799124803_) (let () (declare (not safe)) - (cons _g124801124804_ - _g124802124806_))))) + (cons _g124798124801_ + _g124799124803_))))) (declare (not safe)) - (foldr1 __tmp128861 '() _L124701_)))) - (__tmp128859 + (foldr1 __tmp128858 '() _L124698_)))) + (__tmp128856 (let () (declare (not safe)) - (gxc#identifier-symbol _L124705_)))) + (gxc#identifier-symbol _L124702_)))) (declare (not safe)) (##structure gxc#!kw-lambda-primary::t 'kw-lambda-dispatch - __tmp128860 - __tmp128859)))) - (___kont127147127148_ - (lambda (_L124409_) - (let ((__obj128808 + __tmp128857 + __tmp128856)))) + (___kont127144127145_ + (lambda (_L124406_) + (let ((__obj128805 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj128808 + __obj128805 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L124409_)) + (gxc#lambda-form-arity _L124406_)) (let () (declare (not safe)) - (gxc#dispatch-lambda-form-delegate _L124409_))) - __obj128808))) - (___kont127149127150_ - (lambda (_L124386_) - (let ((__obj128809 + (gxc#dispatch-lambda-form-delegate _L124406_))) + __obj128805))) + (___kont127146127147_ + (lambda (_L124383_) + (let ((__obj128806 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj128809 + __obj128806 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L124386_)) + (gxc#lambda-form-arity _L124383_)) '#f) - __obj128809)))) - (let* ((___match127456127457_ - (lambda (_e124364124401_ _hd124363124404_ _tl124362124406_) - (let ((_L124409_ _tl124362124406_)) + __obj128806)))) + (let* ((___match127453127454_ + (lambda (_e124361124398_ _hd124360124401_ _tl124359124403_) + (let ((_L124406_ _tl124359124403_)) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _L124409_)) - (___kont127147127148_ _L124409_) - (___kont127149127150_ _tl124362124406_))))) - (___match127450127451_ - (lambda (_e124258124423_ - _hd124257124426_ - _tl124256124428_ - _e124261124431_ - _hd124260124434_ - _tl124259124436_ - _e124264124439_ - _hd124263124442_ - _tl124262124444_ - _e124267124447_ - _hd124266124450_ - _tl124265124452_ - _e124270124455_ - _hd124269124458_ - _tl124268124460_ - _e124273124463_ - _hd124272124466_ - _tl124271124468_ - _e124276124471_ - _hd124275124474_ - _tl124274124476_ - _e124279124479_ - _hd124278124482_ - _tl124277124484_ - _e124282124487_ - _hd124281124490_ - _tl124280124492_ - _e124285124495_ - _hd124284124498_ - _tl124283124500_ - _e124288124503_ - _hd124287124506_ - _tl124286124508_ - _e124291124511_ - _hd124290124514_ - _tl124289124516_ - _e124294124519_ - _hd124293124522_ - _tl124292124524_ - _e124297124527_ - _hd124296124530_ - _tl124295124532_ - ___splice127145127146_ - _target124298124535_ - _tl124300124537_ - _e124315124540_ - _hd124314124543_ - _tl124313124545_ - _e124318124548_ - _hd124317124551_ - _tl124316124553_ - _e124321124556_ - _hd124320124559_ - _tl124319124561_) - (letrec ((_loop124301124564_ - (lambda (_hd124299124567_ - _-absent-value124305124569_ - _key124306124571_ - _-xkwvar124307124573_ - _-hash-ref124308124575_) + (gxc#dispatch-lambda-form? _L124406_)) + (___kont127144127145_ _L124406_) + (___kont127146127147_ _tl124359124403_))))) + (___match127447127448_ + (lambda (_e124255124420_ + _hd124254124423_ + _tl124253124425_ + _e124258124428_ + _hd124257124431_ + _tl124256124433_ + _e124261124436_ + _hd124260124439_ + _tl124259124441_ + _e124264124444_ + _hd124263124447_ + _tl124262124449_ + _e124267124452_ + _hd124266124455_ + _tl124265124457_ + _e124270124460_ + _hd124269124463_ + _tl124268124465_ + _e124273124468_ + _hd124272124471_ + _tl124271124473_ + _e124276124476_ + _hd124275124479_ + _tl124274124481_ + _e124279124484_ + _hd124278124487_ + _tl124277124489_ + _e124282124492_ + _hd124281124495_ + _tl124280124497_ + _e124285124500_ + _hd124284124503_ + _tl124283124505_ + _e124288124508_ + _hd124287124511_ + _tl124286124513_ + _e124291124516_ + _hd124290124519_ + _tl124289124521_ + _e124294124524_ + _hd124293124527_ + _tl124292124529_ + ___splice127142127143_ + _target124295124532_ + _tl124297124534_ + _e124312124537_ + _hd124311124540_ + _tl124310124542_ + _e124315124545_ + _hd124314124548_ + _tl124313124550_ + _e124318124553_ + _hd124317124556_ + _tl124316124558_) + (letrec ((_loop124298124561_ + (lambda (_hd124296124564_ + _-absent-value124302124566_ + _key124303124568_ + _-xkwvar124304124570_ + _-hash-ref124305124572_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124299124567_)) - (let ((_e124302124578_ + (gx#stx-pair? _hd124296124564_)) + (let ((_e124299124575_ (let () (declare (not safe)) - (gx#stx-e _hd124299124567_)))) - (let ((_lp-tl124304124583_ + (gx#stx-e _hd124296124564_)))) + (let ((_lp-tl124301124580_ (let () (declare (not safe)) - (##cdr _e124302124578_))) - (_lp-hd124303124581_ + (##cdr _e124299124575_))) + (_lp-hd124300124578_ (let () (declare (not safe)) - (##car _e124302124578_)))) + (##car _e124299124575_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd124303124581_)) - (let ((_e124324124586_ + _lp-hd124300124578_)) + (let ((_e124321124583_ (let () (declare (not safe)) (gx#stx-e - _lp-hd124303124581_)))) - (let ((_tl124322124591_ + _lp-hd124300124578_)))) + (let ((_tl124319124588_ (let () (declare (not safe)) - (##cdr _e124324124586_))) - (_hd124323124589_ + (##cdr _e124321124583_))) + (_hd124320124586_ (let () (declare (not safe)) - (##car _e124324124586_)))) + (##car _e124321124583_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124323124589_)) + _hd124320124586_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd124323124589_)) + _hd124320124586_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl124322124591_)) - (let ((_e124327124594_ + (gx#stx-pair? _tl124319124588_)) + (let ((_e124324124591_ (let () (declare (not safe)) - (gx#stx-e _tl124322124591_)))) - (let ((_tl124325124599_ + (gx#stx-e _tl124319124588_)))) + (let ((_tl124322124596_ (let () (declare (not safe)) - (##cdr _e124327124594_))) - (_hd124326124597_ + (##cdr _e124324124591_))) + (_hd124323124594_ (let () (declare (not safe)) - (##car _e124327124594_)))) + (##car _e124324124591_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124326124597_)) - (let ((_e124330124602_ + (gx#stx-pair? _hd124323124594_)) + (let ((_e124327124599_ (let () (declare (not safe)) - (gx#stx-e _hd124326124597_)))) - (let ((_tl124328124607_ + (gx#stx-e _hd124323124594_)))) + (let ((_tl124325124604_ (let () (declare (not safe)) - (##cdr _e124330124602_))) - (_hd124329124605_ + (##cdr _e124327124599_))) + (_hd124326124602_ (let () (declare (not safe)) - (##car _e124330124602_)))) + (##car _e124327124599_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124329124605_)) + (gx#identifier? _hd124326124602_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd124329124605_)) + _hd124326124602_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124328124607_)) - (let ((_e124333124610_ + _tl124325124604_)) + (let ((_e124330124607_ (let () (declare (not safe)) (gx#stx-e - _tl124328124607_)))) - (let ((_tl124331124615_ + _tl124325124604_)))) + (let ((_tl124328124612_ (let () (declare (not safe)) - (##cdr _e124333124610_))) - (_hd124332124613_ + (##cdr _e124330124607_))) + (_hd124329124610_ (let () (declare (not safe)) - (##car _e124333124610_)))) + (##car _e124330124607_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124331124615_)) + _tl124328124612_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124325124599_)) - (let ((_e124336124618_ + _tl124322124596_)) + (let ((_e124333124615_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl124325124599_)))) - (let ((_tl124334124623_ + (gx#stx-e _tl124322124596_)))) + (let ((_tl124331124620_ (let () (declare (not safe)) - (##cdr _e124336124618_))) - (_hd124335124621_ + (##cdr _e124333124615_))) + (_hd124332124618_ (let () (declare (not safe)) - (##car _e124336124618_)))) + (##car _e124333124615_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124335124621_)) - (let ((_e124339124626_ + (gx#stx-pair? _hd124332124618_)) + (let ((_e124336124623_ (let () (declare (not safe)) - (gx#stx-e _hd124335124621_)))) - (let ((_tl124337124631_ + (gx#stx-e _hd124332124618_)))) + (let ((_tl124334124628_ (let () (declare (not safe)) - (##cdr _e124339124626_))) - (_hd124338124629_ + (##cdr _e124336124623_))) + (_hd124335124626_ (let () (declare (not safe)) - (##car _e124339124626_)))) + (##car _e124336124623_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124338124629_)) + (gx#identifier? _hd124335124626_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124338124629_)) + (gx#stx-eq? '%#ref _hd124335124626_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124337124631_)) - (let ((_e124342124634_ + (gx#stx-pair? _tl124334124628_)) + (let ((_e124339124631_ (let () (declare (not safe)) (gx#stx-e - _tl124337124631_)))) - (let ((_tl124340124639_ + _tl124334124628_)))) + (let ((_tl124337124636_ (let () (declare (not safe)) - (##cdr _e124342124634_))) - (_hd124341124637_ + (##cdr _e124339124631_))) + (_hd124338124634_ (let () (declare (not safe)) - (##car _e124342124634_)))) + (##car _e124339124631_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124340124639_)) + _tl124337124636_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124334124623_)) - (let ((_e124345124642_ + _tl124331124620_)) + (let ((_e124342124639_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl124334124623_)))) - (let ((_tl124343124647_ - (let () (declare (not safe)) (##cdr _e124345124642_))) - (_hd124344124645_ - (let () (declare (not safe)) (##car _e124345124642_)))) + (gx#stx-e _tl124331124620_)))) + (let ((_tl124340124644_ + (let () (declare (not safe)) (##cdr _e124342124639_))) + (_hd124341124642_ + (let () (declare (not safe)) (##car _e124342124639_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124344124645_)) - (let ((_e124348124650_ + (gx#stx-pair? _hd124341124642_)) + (let ((_e124345124647_ (let () (declare (not safe)) - (gx#stx-e _hd124344124645_)))) - (let ((_tl124346124655_ + (gx#stx-e _hd124341124642_)))) + (let ((_tl124343124652_ (let () (declare (not safe)) - (##cdr _e124348124650_))) - (_hd124347124653_ + (##cdr _e124345124647_))) + (_hd124344124650_ (let () (declare (not safe)) - (##car _e124348124650_)))) + (##car _e124345124647_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124347124653_)) + (gx#identifier? _hd124344124650_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd124347124653_)) + (gx#stx-eq? '%#quote _hd124344124650_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124346124655_)) - (let ((_e124351124658_ + (gx#stx-pair? _tl124343124652_)) + (let ((_e124348124655_ (let () (declare (not safe)) - (gx#stx-e _tl124346124655_)))) - (let ((_tl124349124663_ + (gx#stx-e _tl124343124652_)))) + (let ((_tl124346124660_ (let () (declare (not safe)) - (##cdr _e124351124658_))) - (_hd124350124661_ + (##cdr _e124348124655_))) + (_hd124347124658_ (let () (declare (not safe)) - (##car _e124351124658_)))) + (##car _e124348124655_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124349124663_)) + _tl124346124660_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124343124647_)) - (let ((_e124354124666_ + _tl124340124644_)) + (let ((_e124351124663_ (let () (declare (not safe)) (gx#stx-e - _tl124343124647_)))) - (let ((_tl124352124671_ + _tl124340124644_)))) + (let ((_tl124349124668_ (let () (declare (not safe)) - (##cdr _e124354124666_))) - (_hd124353124669_ + (##cdr _e124351124663_))) + (_hd124350124666_ (let () (declare (not safe)) - (##car _e124354124666_)))) + (##car _e124351124663_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124353124669_)) - (let ((_e124357124674_ + _hd124350124666_)) + (let ((_e124354124671_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd124353124669_)))) - (let ((_tl124355124679_ + (gx#stx-e _hd124350124666_)))) + (let ((_tl124352124676_ (let () (declare (not safe)) - (##cdr _e124357124674_))) - (_hd124356124677_ + (##cdr _e124354124671_))) + (_hd124353124674_ (let () (declare (not safe)) - (##car _e124357124674_)))) + (##car _e124354124671_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124356124677_)) + (gx#identifier? _hd124353124674_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124356124677_)) + (gx#stx-eq? '%#ref _hd124353124674_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124355124679_)) - (let ((_e124360124682_ + (gx#stx-pair? _tl124352124676_)) + (let ((_e124357124679_ (let () (declare (not safe)) - (gx#stx-e _tl124355124679_)))) - (let ((_tl124358124687_ + (gx#stx-e _tl124352124676_)))) + (let ((_tl124355124684_ (let () (declare (not safe)) - (##cdr _e124360124682_))) - (_hd124359124685_ + (##cdr _e124357124679_))) + (_hd124356124682_ (let () (declare (not safe)) - (##car _e124360124682_)))) + (##car _e124357124679_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124358124687_)) + (gx#stx-null? _tl124355124684_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl124352124671_)) - (let ((__tmp128876 + _tl124349124668_)) + (let ((__tmp128873 (let () (declare (not safe)) - (cons _hd124359124685_ - _-absent-value124305124569_))) - (__tmp128875 + (cons _hd124356124682_ + _-absent-value124302124566_))) + (__tmp128872 (let () (declare (not safe)) - (cons _hd124350124661_ - _key124306124571_))) - (__tmp128874 + (cons _hd124347124658_ + _key124303124568_))) + (__tmp128871 (let () (declare (not safe)) - (cons _hd124341124637_ - _-xkwvar124307124573_))) - (__tmp128873 + (cons _hd124338124634_ + _-xkwvar124304124570_))) + (__tmp128870 (let () (declare (not safe)) - (cons _hd124332124613_ - _-hash-ref124308124575_)))) + (cons _hd124329124610_ + _-hash-ref124305124572_)))) (declare (not safe)) - (_loop124301124564_ - _lp-tl124304124583_ - __tmp128876 - __tmp128875 - __tmp128874 - __tmp128873)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (let ((_-hash-ref124312124696_ - (reverse _-hash-ref124308124575_)) - (_-xkwvar124311124694_ - (reverse _-xkwvar124307124573_)) - (_key124310124692_ - (reverse _key124306124571_)) - (_-absent-value124309124690_ - (reverse _-absent-value124305124569_))) + (_loop124298124561_ + _lp-tl124301124580_ + __tmp128873 + __tmp128872 + __tmp128871 + __tmp128870)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (let ((_-hash-ref124309124693_ + (reverse _-hash-ref124305124572_)) + (_-xkwvar124308124691_ + (reverse _-xkwvar124304124570_)) + (_key124307124689_ + (reverse _key124303124568_)) + (_-absent-value124306124687_ + (reverse _-absent-value124302124566_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124265124452_)) - (let ((_L124699_ _hd124320124559_) + (gx#stx-null? _tl124262124449_)) + (let ((_L124696_ _hd124317124556_) + (_L124697_ + _-absent-value124306124687_) + (_L124698_ _key124307124689_) + (_L124699_ + _-xkwvar124308124691_) (_L124700_ - _-absent-value124309124690_) - (_L124701_ _key124310124692_) - (_L124702_ - _-xkwvar124311124694_) - (_L124703_ - _-hash-ref124312124696_) - (_L124704_ _hd124296124530_) - (_L124705_ _hd124287124506_) - (_L124706_ _hd124278124482_) - (_L124707_ _tl124262124444_) - (_L124708_ _hd124263124442_)) + _-hash-ref124309124693_) + (_L124701_ _hd124293124527_) + (_L124702_ _hd124284124503_) + (_L124703_ _hd124275124479_) + (_L124704_ _tl124259124441_) + (_L124705_ _hd124260124439_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L124708_)) + _L124705_)) (let () (declare (not safe)) (gx#identifier? - _L124707_)) + _L124704_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L124706_ + _L124703_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _L124708_ - _L124704_)) - (let ((__tmp128871 - (let ((__tmp128872 + _L124705_ + _L124701_)) + (let ((__tmp128868 + (let ((__tmp128869 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g124761124764_ _g124762124766_) + (lambda (_g124758124761_ _g124759124763_) (let () (declare (not safe)) - (cons _g124761124764_ _g124762124766_))))) + (cons _g124758124761_ _g124759124763_))))) (declare (not safe)) - (foldr1 __tmp128872 '() _L124701_)))) + (foldr1 __tmp128869 '() _L124698_)))) (declare (not safe)) - (andmap1 gx#stx-keyword? __tmp128871)) - (let ((__tmp128870 - (lambda (_g124768124770_) + (andmap1 gx#stx-keyword? __tmp128868)) + (let ((__tmp128867 + (lambda (_g124765124767_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _g124768124770_ + _g124765124767_ 'hash-ref)))) - (__tmp128868 - (let ((__tmp128869 - (lambda (_g124772124775_ _g124773124777_) + (__tmp128865 + (let ((__tmp128866 + (lambda (_g124769124772_ _g124770124774_) (let () (declare (not safe)) - (cons _g124772124775_ _g124773124777_))))) + (cons _g124769124772_ _g124770124774_))))) (declare (not safe)) - (foldr1 __tmp128869 '() _L124703_)))) + (foldr1 __tmp128866 '() _L124700_)))) (declare (not safe)) - (andmap1 __tmp128870 __tmp128868)) - (let ((__tmp128867 - (lambda (_g124779124781_) + (andmap1 __tmp128867 __tmp128865)) + (let ((__tmp128864 + (lambda (_g124776124778_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _g124779124781_ + _g124776124778_ 'absent-value)))) - (__tmp128865 - (let ((__tmp128866 - (lambda (_g124783124786_ _g124784124788_) + (__tmp128862 + (let ((__tmp128863 + (lambda (_g124780124783_ _g124781124785_) (let () (declare (not safe)) - (cons _g124783124786_ _g124784124788_))))) + (cons _g124780124783_ _g124781124785_))))) (declare (not safe)) - (foldr1 __tmp128866 '() _L124700_)))) + (foldr1 __tmp128863 '() _L124697_)))) (declare (not safe)) - (andmap1 __tmp128867 __tmp128865)) - (let ((__tmp128864 - (lambda (_g124790124792_) + (andmap1 __tmp128864 __tmp128862)) + (let ((__tmp128861 + (lambda (_g124787124789_) (let () (declare (not safe)) - (gx#free-identifier=? _g124790124792_ _L124708_)))) - (__tmp128862 - (let ((__tmp128863 - (lambda (_g124794124797_ _g124795124799_) + (gx#free-identifier=? _g124787124789_ _L124705_)))) + (__tmp128859 + (let ((__tmp128860 + (lambda (_g124791124794_ _g124792124796_) (let () (declare (not safe)) - (cons _g124794124797_ _g124795124799_))))) + (cons _g124791124794_ _g124792124796_))))) (declare (not safe)) - (foldr1 __tmp128863 '() _L124702_)))) + (foldr1 __tmp128860 '() _L124699_)))) (declare (not safe)) - (andmap1 __tmp128864 __tmp128862))) + (andmap1 __tmp128861 __tmp128859))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127143127144_ + (___kont127140127141_ + _L124696_ + _L124697_ + _L124698_ _L124699_ _L124700_ _L124701_ _L124702_ _L124703_ _L124704_ - _L124705_ - _L124706_ - _L124707_ - _L124708_) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_))))))) + _L124705_) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_))))))) (let () (declare (not safe)) - (_loop124301124564_ - _target124298124535_ + (_loop124298124561_ + _target124295124532_ '() '() '() '()))))) - (___match127322127323_ - (lambda (_e124258124423_ - _hd124257124426_ - _tl124256124428_ - _e124261124431_ - _hd124260124434_ - _tl124259124436_) + (___match127319127320_ + (lambda (_e124255124420_ + _hd124254124423_ + _tl124253124425_ + _e124258124428_ + _hd124257124431_ + _tl124256124433_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124260124434_)) - (let ((_e124264124439_ + (gx#stx-pair? _hd124257124431_)) + (let ((_e124261124436_ (let () (declare (not safe)) - (gx#stx-e _hd124260124434_)))) - (let ((_tl124262124444_ + (gx#stx-e _hd124257124431_)))) + (let ((_tl124259124441_ (let () (declare (not safe)) - (##cdr _e124264124439_))) - (_hd124263124442_ + (##cdr _e124261124436_))) + (_hd124260124439_ (let () (declare (not safe)) - (##car _e124264124439_)))) + (##car _e124261124436_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124259124436_)) - (let ((_e124267124447_ + (gx#stx-pair? _tl124256124433_)) + (let ((_e124264124444_ (let () (declare (not safe)) - (gx#stx-e _tl124259124436_)))) - (let ((_tl124265124452_ + (gx#stx-e _tl124256124433_)))) + (let ((_tl124262124449_ (let () (declare (not safe)) - (##cdr _e124267124447_))) - (_hd124266124450_ + (##cdr _e124264124444_))) + (_hd124263124447_ (let () (declare (not safe)) - (##car _e124267124447_)))) + (##car _e124264124444_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124266124450_)) - (let ((_e124270124455_ + (gx#stx-pair? _hd124263124447_)) + (let ((_e124267124452_ (let () (declare (not safe)) (gx#stx-e - _hd124266124450_)))) - (let ((_tl124268124460_ + _hd124263124447_)))) + (let ((_tl124265124457_ (let () (declare (not safe)) - (##cdr _e124270124455_))) - (_hd124269124458_ + (##cdr _e124267124452_))) + (_hd124266124455_ (let () (declare (not safe)) - (##car _e124270124455_)))) + (##car _e124267124452_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124269124458_)) + _hd124266124455_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd124269124458_)) + _hd124266124455_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124268124460_)) - (let ((_e124273124463_ + _tl124265124457_)) + (let ((_e124270124460_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl124268124460_)))) - (let ((_tl124271124468_ + (gx#stx-e _tl124265124457_)))) + (let ((_tl124268124465_ (let () (declare (not safe)) - (##cdr _e124273124463_))) - (_hd124272124466_ + (##cdr _e124270124460_))) + (_hd124269124463_ (let () (declare (not safe)) - (##car _e124273124463_)))) + (##car _e124270124460_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124272124466_)) - (let ((_e124276124471_ + (gx#stx-pair? _hd124269124463_)) + (let ((_e124273124468_ (let () (declare (not safe)) - (gx#stx-e _hd124272124466_)))) - (let ((_tl124274124476_ + (gx#stx-e _hd124269124463_)))) + (let ((_tl124271124473_ (let () (declare (not safe)) - (##cdr _e124276124471_))) - (_hd124275124474_ + (##cdr _e124273124468_))) + (_hd124272124471_ (let () (declare (not safe)) - (##car _e124276124471_)))) + (##car _e124273124468_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124275124474_)) + (gx#identifier? _hd124272124471_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124275124474_)) + (gx#stx-eq? '%#ref _hd124272124471_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124274124476_)) - (let ((_e124279124479_ + (gx#stx-pair? _tl124271124473_)) + (let ((_e124276124476_ (let () (declare (not safe)) (gx#stx-e - _tl124274124476_)))) - (let ((_tl124277124484_ + _tl124271124473_)))) + (let ((_tl124274124481_ (let () (declare (not safe)) - (##cdr _e124279124479_))) - (_hd124278124482_ + (##cdr _e124276124476_))) + (_hd124275124479_ (let () (declare (not safe)) - (##car _e124279124479_)))) + (##car _e124276124476_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124277124484_)) + _tl124274124481_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124271124468_)) - (let ((_e124282124487_ + _tl124268124465_)) + (let ((_e124279124484_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl124271124468_)))) - (let ((_tl124280124492_ - (let () (declare (not safe)) (##cdr _e124282124487_))) - (_hd124281124490_ - (let () (declare (not safe)) (##car _e124282124487_)))) + (gx#stx-e _tl124268124465_)))) + (let ((_tl124277124489_ + (let () (declare (not safe)) (##cdr _e124279124484_))) + (_hd124278124487_ + (let () (declare (not safe)) (##car _e124279124484_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124281124490_)) - (let ((_e124285124495_ + (gx#stx-pair? _hd124278124487_)) + (let ((_e124282124492_ (let () (declare (not safe)) - (gx#stx-e _hd124281124490_)))) - (let ((_tl124283124500_ + (gx#stx-e _hd124278124487_)))) + (let ((_tl124280124497_ (let () (declare (not safe)) - (##cdr _e124285124495_))) - (_hd124284124498_ + (##cdr _e124282124492_))) + (_hd124281124495_ (let () (declare (not safe)) - (##car _e124285124495_)))) + (##car _e124282124492_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124284124498_)) + (gx#identifier? _hd124281124495_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124284124498_)) + (gx#stx-eq? '%#ref _hd124281124495_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124283124500_)) - (let ((_e124288124503_ + (gx#stx-pair? _tl124280124497_)) + (let ((_e124285124500_ (let () (declare (not safe)) - (gx#stx-e _tl124283124500_)))) - (let ((_tl124286124508_ + (gx#stx-e _tl124280124497_)))) + (let ((_tl124283124505_ (let () (declare (not safe)) - (##cdr _e124288124503_))) - (_hd124287124506_ + (##cdr _e124285124500_))) + (_hd124284124503_ (let () (declare (not safe)) - (##car _e124288124503_)))) + (##car _e124285124500_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124286124508_)) + _tl124283124505_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124280124492_)) - (let ((_e124291124511_ + _tl124277124489_)) + (let ((_e124288124508_ (let () (declare (not safe)) (gx#stx-e - _tl124280124492_)))) - (let ((_tl124289124516_ + _tl124277124489_)))) + (let ((_tl124286124513_ (let () (declare (not safe)) - (##cdr _e124291124511_))) - (_hd124290124514_ + (##cdr _e124288124508_))) + (_hd124287124511_ (let () (declare (not safe)) - (##car _e124291124511_)))) + (##car _e124288124508_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124290124514_)) - (let ((_e124294124519_ + _hd124287124511_)) + (let ((_e124291124516_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd124290124514_)))) - (let ((_tl124292124524_ + (gx#stx-e _hd124287124511_)))) + (let ((_tl124289124521_ (let () (declare (not safe)) - (##cdr _e124294124519_))) - (_hd124293124522_ + (##cdr _e124291124516_))) + (_hd124290124519_ (let () (declare (not safe)) - (##car _e124294124519_)))) + (##car _e124291124516_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124293124522_)) + (gx#identifier? _hd124290124519_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124293124522_)) + (gx#stx-eq? '%#ref _hd124290124519_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124292124524_)) - (let ((_e124297124527_ + (gx#stx-pair? _tl124289124521_)) + (let ((_e124294124524_ (let () (declare (not safe)) - (gx#stx-e _tl124292124524_)))) - (let ((_tl124295124532_ + (gx#stx-e _tl124289124521_)))) + (let ((_tl124292124529_ (let () (declare (not safe)) - (##cdr _e124297124527_))) - (_hd124296124530_ + (##cdr _e124294124524_))) + (_hd124293124527_ (let () (declare (not safe)) - (##car _e124297124527_)))) + (##car _e124294124524_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124295124532_)) + (gx#stx-null? _tl124292124529_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl124289124516_)) + _tl124286124513_)) (if (fx>= (let () (declare (not safe)) (gx#stx-length - _tl124289124516_)) + _tl124286124513_)) '1) - (let ((___splice127145127146_ + (let ((___splice127142127143_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl124289124516_ + _tl124286124513_ '1)))) - (let ((_tl124300124537_ + (let ((_tl124297124534_ (let () (declare (not safe)) (##vector-ref - ___splice127145127146_ + ___splice127142127143_ '1))) - (_target124298124535_ + (_target124295124532_ (let () (declare (not safe)) (##vector-ref - ___splice127145127146_ + ___splice127142127143_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124300124537_)) - (let ((_e124315124540_ + _tl124297124534_)) + (let ((_e124312124537_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl124300124537_)))) - (let ((_tl124313124545_ + (gx#stx-e _tl124297124534_)))) + (let ((_tl124310124542_ (let () (declare (not safe)) - (##cdr _e124315124540_))) - (_hd124314124543_ + (##cdr _e124312124537_))) + (_hd124311124540_ (let () (declare (not safe)) - (##car _e124315124540_)))) + (##car _e124312124537_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124314124543_)) - (let ((_e124318124548_ + (gx#stx-pair? _hd124311124540_)) + (let ((_e124315124545_ (let () (declare (not safe)) - (gx#stx-e _hd124314124543_)))) - (let ((_tl124316124553_ + (gx#stx-e _hd124311124540_)))) + (let ((_tl124313124550_ (let () (declare (not safe)) - (##cdr _e124318124548_))) - (_hd124317124551_ + (##cdr _e124315124545_))) + (_hd124314124548_ (let () (declare (not safe)) - (##car _e124318124548_)))) + (##car _e124315124545_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124317124551_)) + (gx#identifier? _hd124314124548_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124317124551_)) + (gx#stx-eq? '%#ref _hd124314124548_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124316124553_)) - (let ((_e124321124556_ + (gx#stx-pair? _tl124313124550_)) + (let ((_e124318124553_ (let () (declare (not safe)) (gx#stx-e - _tl124316124553_)))) - (let ((_tl124319124561_ + _tl124313124550_)))) + (let ((_tl124316124558_ (let () (declare (not safe)) - (##cdr _e124321124556_))) - (_hd124320124559_ + (##cdr _e124318124553_))) + (_hd124317124556_ (let () (declare (not safe)) - (##car _e124321124556_)))) + (##car _e124318124553_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124319124561_)) + _tl124316124558_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl124313124545_)) - (___match127450127451_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_ - _e124261124431_ - _hd124260124434_ - _tl124259124436_ - _e124264124439_ - _hd124263124442_ - _tl124262124444_ - _e124267124447_ - _hd124266124450_ - _tl124265124452_ - _e124270124455_ - _hd124269124458_ - _tl124268124460_ - _e124273124463_ - _hd124272124466_ - _tl124271124468_ - _e124276124471_ - _hd124275124474_ - _tl124274124476_ - _e124279124479_ - _hd124278124482_ - _tl124277124484_ - _e124282124487_ - _hd124281124490_ - _tl124280124492_ - _e124285124495_ - _hd124284124498_ - _tl124283124500_ - _e124288124503_ - _hd124287124506_ - _tl124286124508_ - _e124291124511_ - _hd124290124514_ - _tl124289124516_ - _e124294124519_ - _hd124293124522_ - _tl124292124524_ - _e124297124527_ - _hd124296124530_ - _tl124295124532_ - ___splice127145127146_ - _target124298124535_ - _tl124300124537_ - _e124315124540_ - _hd124314124543_ - _tl124313124545_ - _e124318124548_ - _hd124317124551_ - _tl124316124553_ - _e124321124556_ - _hd124320124559_ - _tl124319124561_) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127456127457_ - _e124258124423_ - _hd124257124426_ - _tl124256124428_)))) - (___match127310127311_ - (lambda (_e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_ - _e124197124830_ - _hd124196124833_ - _tl124195124835_ - _e124200124838_ - _hd124199124841_ - _tl124198124843_ - _e124203124846_ - _hd124202124849_ - _tl124201124851_ - _e124206124854_ - _hd124205124857_ - _tl124204124859_ - _e124209124862_ - _hd124208124865_ - _tl124207124867_ - _e124212124870_ - _hd124211124873_ - _tl124210124875_ - _e124215124878_ - _hd124214124881_ - _tl124213124883_ - _e124218124886_ - _hd124217124889_ - _tl124216124891_ - _e124221124894_ - _hd124220124897_ - _tl124219124899_ - _e124224124902_ - _hd124223124905_ - _tl124222124907_ - _e124227124910_ - _hd124226124913_ - _tl124225124915_ - _e124230124918_ - _hd124229124921_ - _tl124228124923_ - _e124233124926_ - _hd124232124929_ - _tl124231124931_ - _e124236124934_ - _hd124235124937_ - _tl124234124939_ - _e124239124942_ - _hd124238124945_ - _tl124237124947_ - _e124242124950_ - _hd124241124953_ - _tl124240124955_ - _e124245124958_ - _hd124244124961_ - _tl124243124963_) - (let ((_L124966_ _hd124244124961_) - (_L124967_ _hd124235124937_) - (_L124968_ _hd124226124913_) - (_L124969_ _hd124217124889_) - (_L124970_ _hd124208124865_) - (_L124971_ _hd124193124825_)) + _tl124310124542_)) + (___match127447127448_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_ + _e124258124428_ + _hd124257124431_ + _tl124256124433_ + _e124261124436_ + _hd124260124439_ + _tl124259124441_ + _e124264124444_ + _hd124263124447_ + _tl124262124449_ + _e124267124452_ + _hd124266124455_ + _tl124265124457_ + _e124270124460_ + _hd124269124463_ + _tl124268124465_ + _e124273124468_ + _hd124272124471_ + _tl124271124473_ + _e124276124476_ + _hd124275124479_ + _tl124274124481_ + _e124279124484_ + _hd124278124487_ + _tl124277124489_ + _e124282124492_ + _hd124281124495_ + _tl124280124497_ + _e124285124500_ + _hd124284124503_ + _tl124283124505_ + _e124288124508_ + _hd124287124511_ + _tl124286124513_ + _e124291124516_ + _hd124290124519_ + _tl124289124521_ + _e124294124524_ + _hd124293124527_ + _tl124292124529_ + ___splice127142127143_ + _target124295124532_ + _tl124297124534_ + _e124312124537_ + _hd124311124540_ + _tl124310124542_ + _e124315124545_ + _hd124314124548_ + _tl124313124550_ + _e124318124553_ + _hd124317124556_ + _tl124316124558_) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127453127454_ + _e124255124420_ + _hd124254124423_ + _tl124253124425_)))) + (___match127307127308_ + (lambda (_e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_ + _e124194124827_ + _hd124193124830_ + _tl124192124832_ + _e124197124835_ + _hd124196124838_ + _tl124195124840_ + _e124200124843_ + _hd124199124846_ + _tl124198124848_ + _e124203124851_ + _hd124202124854_ + _tl124201124856_ + _e124206124859_ + _hd124205124862_ + _tl124204124864_ + _e124209124867_ + _hd124208124870_ + _tl124207124872_ + _e124212124875_ + _hd124211124878_ + _tl124210124880_ + _e124215124883_ + _hd124214124886_ + _tl124213124888_ + _e124218124891_ + _hd124217124894_ + _tl124216124896_ + _e124221124899_ + _hd124220124902_ + _tl124219124904_ + _e124224124907_ + _hd124223124910_ + _tl124222124912_ + _e124227124915_ + _hd124226124918_ + _tl124225124920_ + _e124230124923_ + _hd124229124926_ + _tl124228124928_ + _e124233124931_ + _hd124232124934_ + _tl124231124936_ + _e124236124939_ + _hd124235124942_ + _tl124234124944_ + _e124239124947_ + _hd124238124950_ + _tl124237124952_ + _e124242124955_ + _hd124241124958_ + _tl124240124960_) + (let ((_L124963_ _hd124241124958_) + (_L124964_ _hd124232124934_) + (_L124965_ _hd124223124910_) + (_L124966_ _hd124214124886_) + (_L124967_ _hd124205124862_) + (_L124968_ _hd124190124822_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L124971_)) + (gx#identifier? _L124968_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L124970_ 'apply)) + (gxc#runtime-identifier=? _L124967_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L124969_ + _L124966_ 'keyword-dispatch)) (let () (declare (not safe)) - (gx#free-identifier=? _L124971_ _L124966_))) - (___kont127141127142_ + (gx#free-identifier=? _L124968_ _L124963_))) + (___kont127138127139_ + _L124963_ + _L124964_ + _L124965_ _L124966_ _L124967_ - _L124968_ - _L124969_ - _L124970_ - _L124971_) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_))))) - (___match127164127165_ - (lambda (_e124191124814_ _hd124190124817_ _tl124189124819_) + _L124968_) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_))))) + (___match127161127162_ + (lambda (_e124188124811_ _hd124187124814_ _tl124186124816_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124189124819_)) - (let ((_e124194124822_ + (gx#stx-pair? _tl124186124816_)) + (let ((_e124191124819_ (let () (declare (not safe)) - (gx#stx-e _tl124189124819_)))) - (let ((_tl124192124827_ + (gx#stx-e _tl124186124816_)))) + (let ((_tl124189124824_ (let () (declare (not safe)) - (##cdr _e124194124822_))) - (_hd124193124825_ + (##cdr _e124191124819_))) + (_hd124190124822_ (let () (declare (not safe)) - (##car _e124194124822_)))) + (##car _e124191124819_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124192124827_)) - (let ((_e124197124830_ + (gx#stx-pair? _tl124189124824_)) + (let ((_e124194124827_ (let () (declare (not safe)) - (gx#stx-e _tl124192124827_)))) - (let ((_tl124195124835_ + (gx#stx-e _tl124189124824_)))) + (let ((_tl124192124832_ (let () (declare (not safe)) - (##cdr _e124197124830_))) - (_hd124196124833_ + (##cdr _e124194124827_))) + (_hd124193124830_ (let () (declare (not safe)) - (##car _e124197124830_)))) + (##car _e124194124827_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124196124833_)) - (let ((_e124200124838_ + (gx#stx-pair? _hd124193124830_)) + (let ((_e124197124835_ (let () (declare (not safe)) (gx#stx-e - _hd124196124833_)))) - (let ((_tl124198124843_ + _hd124193124830_)))) + (let ((_tl124195124840_ (let () (declare (not safe)) - (##cdr _e124200124838_))) - (_hd124199124841_ + (##cdr _e124197124835_))) + (_hd124196124838_ (let () (declare (not safe)) - (##car _e124200124838_)))) + (##car _e124197124835_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124199124841_)) + _hd124196124838_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd124199124841_)) + _hd124196124838_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124198124843_)) - (let ((_e124203124846_ + _tl124195124840_)) + (let ((_e124200124843_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl124198124843_)))) - (let ((_tl124201124851_ + (gx#stx-e _tl124195124840_)))) + (let ((_tl124198124848_ (let () (declare (not safe)) - (##cdr _e124203124846_))) - (_hd124202124849_ + (##cdr _e124200124843_))) + (_hd124199124846_ (let () (declare (not safe)) - (##car _e124203124846_)))) + (##car _e124200124843_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124202124849_)) - (let ((_e124206124854_ + (gx#stx-pair? _hd124199124846_)) + (let ((_e124203124851_ (let () (declare (not safe)) - (gx#stx-e _hd124202124849_)))) - (let ((_tl124204124859_ + (gx#stx-e _hd124199124846_)))) + (let ((_tl124201124856_ (let () (declare (not safe)) - (##cdr _e124206124854_))) - (_hd124205124857_ + (##cdr _e124203124851_))) + (_hd124202124854_ (let () (declare (not safe)) - (##car _e124206124854_)))) + (##car _e124203124851_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124205124857_)) + (gx#identifier? _hd124202124854_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124205124857_)) + (gx#stx-eq? '%#ref _hd124202124854_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124204124859_)) - (let ((_e124209124862_ + (gx#stx-pair? _tl124201124856_)) + (let ((_e124206124859_ (let () (declare (not safe)) (gx#stx-e - _tl124204124859_)))) - (let ((_tl124207124867_ + _tl124201124856_)))) + (let ((_tl124204124864_ (let () (declare (not safe)) - (##cdr _e124209124862_))) - (_hd124208124865_ + (##cdr _e124206124859_))) + (_hd124205124862_ (let () (declare (not safe)) - (##car _e124209124862_)))) + (##car _e124206124859_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124207124867_)) + _tl124204124864_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124201124851_)) - (let ((_e124212124870_ + _tl124198124848_)) + (let ((_e124209124867_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl124201124851_)))) - (let ((_tl124210124875_ - (let () (declare (not safe)) (##cdr _e124212124870_))) - (_hd124211124873_ - (let () (declare (not safe)) (##car _e124212124870_)))) + (gx#stx-e _tl124198124848_)))) + (let ((_tl124207124872_ + (let () (declare (not safe)) (##cdr _e124209124867_))) + (_hd124208124870_ + (let () (declare (not safe)) (##car _e124209124867_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124211124873_)) - (let ((_e124215124878_ + (gx#stx-pair? _hd124208124870_)) + (let ((_e124212124875_ (let () (declare (not safe)) - (gx#stx-e _hd124211124873_)))) - (let ((_tl124213124883_ + (gx#stx-e _hd124208124870_)))) + (let ((_tl124210124880_ (let () (declare (not safe)) - (##cdr _e124215124878_))) - (_hd124214124881_ + (##cdr _e124212124875_))) + (_hd124211124878_ (let () (declare (not safe)) - (##car _e124215124878_)))) + (##car _e124212124875_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124214124881_)) + (gx#identifier? _hd124211124878_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124214124881_)) + (gx#stx-eq? '%#ref _hd124211124878_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124213124883_)) - (let ((_e124218124886_ + (gx#stx-pair? _tl124210124880_)) + (let ((_e124215124883_ (let () (declare (not safe)) - (gx#stx-e _tl124213124883_)))) - (let ((_tl124216124891_ + (gx#stx-e _tl124210124880_)))) + (let ((_tl124213124888_ (let () (declare (not safe)) - (##cdr _e124218124886_))) - (_hd124217124889_ + (##cdr _e124215124883_))) + (_hd124214124886_ (let () (declare (not safe)) - (##car _e124218124886_)))) + (##car _e124215124883_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124216124891_)) + _tl124213124888_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124210124875_)) - (let ((_e124221124894_ + _tl124207124872_)) + (let ((_e124218124891_ (let () (declare (not safe)) (gx#stx-e - _tl124210124875_)))) - (let ((_tl124219124899_ + _tl124207124872_)))) + (let ((_tl124216124896_ (let () (declare (not safe)) - (##cdr _e124221124894_))) - (_hd124220124897_ + (##cdr _e124218124891_))) + (_hd124217124894_ (let () (declare (not safe)) - (##car _e124221124894_)))) + (##car _e124218124891_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124220124897_)) - (let ((_e124224124902_ + _hd124217124894_)) + (let ((_e124221124899_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd124220124897_)))) - (let ((_tl124222124907_ + (gx#stx-e _hd124217124894_)))) + (let ((_tl124219124904_ (let () (declare (not safe)) - (##cdr _e124224124902_))) - (_hd124223124905_ + (##cdr _e124221124899_))) + (_hd124220124902_ (let () (declare (not safe)) - (##car _e124224124902_)))) + (##car _e124221124899_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124223124905_)) + (gx#identifier? _hd124220124902_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd124223124905_)) + (gx#stx-eq? '%#quote _hd124220124902_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124222124907_)) - (let ((_e124227124910_ + (gx#stx-pair? _tl124219124904_)) + (let ((_e124224124907_ (let () (declare (not safe)) - (gx#stx-e _tl124222124907_)))) - (let ((_tl124225124915_ + (gx#stx-e _tl124219124904_)))) + (let ((_tl124222124912_ (let () (declare (not safe)) - (##cdr _e124227124910_))) - (_hd124226124913_ + (##cdr _e124224124907_))) + (_hd124223124910_ (let () (declare (not safe)) - (##car _e124227124910_)))) + (##car _e124224124907_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124225124915_)) + (gx#stx-null? _tl124222124912_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124219124899_)) - (let ((_e124230124918_ + _tl124216124896_)) + (let ((_e124227124915_ (let () (declare (not safe)) (gx#stx-e - _tl124219124899_)))) - (let ((_tl124228124923_ + _tl124216124896_)))) + (let ((_tl124225124920_ (let () (declare (not safe)) - (##cdr _e124230124918_))) - (_hd124229124921_ + (##cdr _e124227124915_))) + (_hd124226124918_ (let () (declare (not safe)) - (##car _e124230124918_)))) + (##car _e124227124915_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124229124921_)) - (let ((_e124233124926_ + _hd124226124918_)) + (let ((_e124230124923_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd124229124921_)))) - (let ((_tl124231124931_ - (let () (declare (not safe)) (##cdr _e124233124926_))) - (_hd124232124929_ - (let () (declare (not safe)) (##car _e124233124926_)))) + (gx#stx-e _hd124226124918_)))) + (let ((_tl124228124928_ + (let () (declare (not safe)) (##cdr _e124230124923_))) + (_hd124229124926_ + (let () (declare (not safe)) (##car _e124230124923_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124232124929_)) + (gx#identifier? _hd124229124926_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124232124929_)) + (gx#stx-eq? '%#ref _hd124229124926_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124231124931_)) - (let ((_e124236124934_ + (gx#stx-pair? _tl124228124928_)) + (let ((_e124233124931_ (let () (declare (not safe)) - (gx#stx-e _tl124231124931_)))) - (let ((_tl124234124939_ + (gx#stx-e _tl124228124928_)))) + (let ((_tl124231124936_ (let () (declare (not safe)) - (##cdr _e124236124934_))) - (_hd124235124937_ + (##cdr _e124233124931_))) + (_hd124232124934_ (let () (declare (not safe)) - (##car _e124236124934_)))) + (##car _e124233124931_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124234124939_)) + (gx#stx-null? _tl124231124936_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124228124923_)) - (let ((_e124239124942_ + (gx#stx-pair? _tl124225124920_)) + (let ((_e124236124939_ (let () (declare (not safe)) (gx#stx-e - _tl124228124923_)))) - (let ((_tl124237124947_ + _tl124225124920_)))) + (let ((_tl124234124944_ (let () (declare (not safe)) - (##cdr _e124239124942_))) - (_hd124238124945_ + (##cdr _e124236124939_))) + (_hd124235124942_ (let () (declare (not safe)) - (##car _e124239124942_)))) + (##car _e124236124939_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124238124945_)) - (let ((_e124242124950_ + _hd124235124942_)) + (let ((_e124239124947_ (let () (declare (not safe)) (gx#stx-e - _hd124238124945_)))) - (let ((_tl124240124955_ + _hd124235124942_)))) + (let ((_tl124237124952_ (let () (declare (not safe)) - (##cdr _e124242124950_))) - (_hd124241124953_ + (##cdr _e124239124947_))) + (_hd124238124950_ (let () (declare (not safe)) - (##car _e124242124950_)))) + (##car _e124239124947_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124241124953_)) + _hd124238124950_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd124241124953_)) + (gx#stx-eq? '%#ref _hd124238124950_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124240124955_)) - (let ((_e124245124958_ + (gx#stx-pair? _tl124237124952_)) + (let ((_e124242124955_ (let () (declare (not safe)) - (gx#stx-e _tl124240124955_)))) - (let ((_tl124243124963_ + (gx#stx-e _tl124237124952_)))) + (let ((_tl124240124960_ (let () (declare (not safe)) - (##cdr _e124245124958_))) - (_hd124244124961_ + (##cdr _e124242124955_))) + (_hd124241124958_ (let () (declare (not safe)) - (##car _e124245124958_)))) + (##car _e124242124955_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124243124963_)) + (gx#stx-null? _tl124240124960_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl124237124947_)) + (gx#stx-null? _tl124234124944_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl124195124835_)) - (___match127310127311_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_ - _e124197124830_ - _hd124196124833_ - _tl124195124835_ - _e124200124838_ - _hd124199124841_ - _tl124198124843_ - _e124203124846_ - _hd124202124849_ - _tl124201124851_ - _e124206124854_ - _hd124205124857_ - _tl124204124859_ - _e124209124862_ - _hd124208124865_ - _tl124207124867_ - _e124212124870_ - _hd124211124873_ - _tl124210124875_ - _e124215124878_ - _hd124214124881_ - _tl124213124883_ - _e124218124886_ - _hd124217124889_ - _tl124216124891_ - _e124221124894_ - _hd124220124897_ - _tl124219124899_ - _e124224124902_ - _hd124223124905_ - _tl124222124907_ - _e124227124910_ - _hd124226124913_ - _tl124225124915_ - _e124230124918_ - _hd124229124921_ - _tl124228124923_ - _e124233124926_ - _hd124232124929_ - _tl124231124931_ - _e124236124934_ - _hd124235124937_ - _tl124234124939_ - _e124239124942_ - _hd124238124945_ - _tl124237124947_ - _e124242124950_ - _hd124241124953_ - _tl124240124955_ - _e124245124958_ - _hd124244124961_ - _tl124243124963_) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)))) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)))) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)))) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)))) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)))) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)))) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)))) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)))) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)))) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)))) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)))) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)))) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)))) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)))) - (___match127322127323_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_ - _e124194124822_ - _hd124193124825_ - _tl124192124827_)))) - (___match127456127457_ - _e124191124814_ - _hd124190124817_ - _tl124189124819_))))) + (gx#stx-null? _tl124192124832_)) + (___match127307127308_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_ + _e124194124827_ + _hd124193124830_ + _tl124192124832_ + _e124197124835_ + _hd124196124838_ + _tl124195124840_ + _e124200124843_ + _hd124199124846_ + _tl124198124848_ + _e124203124851_ + _hd124202124854_ + _tl124201124856_ + _e124206124859_ + _hd124205124862_ + _tl124204124864_ + _e124209124867_ + _hd124208124870_ + _tl124207124872_ + _e124212124875_ + _hd124211124878_ + _tl124210124880_ + _e124215124883_ + _hd124214124886_ + _tl124213124888_ + _e124218124891_ + _hd124217124894_ + _tl124216124896_ + _e124221124899_ + _hd124220124902_ + _tl124219124904_ + _e124224124907_ + _hd124223124910_ + _tl124222124912_ + _e124227124915_ + _hd124226124918_ + _tl124225124920_ + _e124230124923_ + _hd124229124926_ + _tl124228124928_ + _e124233124931_ + _hd124232124934_ + _tl124231124936_ + _e124236124939_ + _hd124235124942_ + _tl124234124944_ + _e124239124947_ + _hd124238124950_ + _tl124237124952_ + _e124242124955_ + _hd124241124958_ + _tl124240124960_) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)))) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)))) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)))) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)))) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)))) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)))) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)))) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)))) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)))) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)))) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)))) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)))) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)))) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)))) + (___match127319127320_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_ + _e124191124819_ + _hd124190124822_ + _tl124189124824_)))) + (___match127453127454_ + _e124188124811_ + _hd124187124814_ + _tl124186124816_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127137127138_)) - (let ((_e124182125031_ + (gx#stx-pair? ___stx127134127135_)) + (let ((_e124179125028_ (let () (declare (not safe)) - (gx#stx-e ___stx127137127138_)))) - (let ((_tl124180125036_ + (gx#stx-e ___stx127134127135_)))) + (let ((_tl124177125033_ (let () (declare (not safe)) - (##cdr _e124182125031_))) - (_hd124181125034_ + (##cdr _e124179125028_))) + (_hd124178125031_ (let () (declare (not safe)) - (##car _e124182125031_)))) + (##car _e124179125028_)))) (if (gxc#current-compile-type-closure) - (let ((_L125039_ _tl124180125036_)) - (___kont127139127140_ _L125039_)) - (___match127164127165_ - _e124182125031_ - _hd124181125034_ - _tl124180125036_)))) - (let () (declare (not safe)) (_g124177124373_)))))))) + (let ((_L125036_ _tl124177125033_)) + (___kont127136127137_ _L125036_)) + (___match127161127162_ + _e124179125028_ + _hd124178125031_ + _tl124177125033_)))) + (let () (declare (not safe)) (_g124174124370_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_stx124126_) - (letrec ((_clause-e124128_ - (lambda (_form124169_) - (let ((__obj128810 + (lambda (_stx124123_) + (letrec ((_clause-e124125_ + (lambda (_form124166_) + (let ((__obj128807 (let () (declare (not safe)) (##structure @@ -5688,4953 +5688,4953 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj128810 + __obj128807 'case-lambda-clause (let () (declare (not safe)) - (gxc#lambda-form-arity _form124169_)) - (if (let ((__tmp128877 + (gxc#lambda-form-arity _form124166_)) + (if (let ((__tmp128874 (gxc#current-compile-type-closure))) (declare (not safe)) - (not __tmp128877)) + (not __tmp128874)) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _form124169_)) + (gxc#dispatch-lambda-form? _form124166_)) (let () (declare (not safe)) (gxc#dispatch-lambda-form-delegate - _form124169_)) + _form124166_)) '#f) '#f)) - __obj128810)))) - (let* ((_g124130124140_ - (lambda (_g124131124137_) + __obj128807)))) + (let* ((_g124127124137_ + (lambda (_g124128124134_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g124131124137_)))) - (_g124129124166_ - (lambda (_g124131124143_) + _g124128124134_)))) + (_g124126124163_ + (lambda (_g124128124140_) (if (let () (declare (not safe)) - (gx#stx-pair? _g124131124143_)) - (let ((_e124135124145_ + (gx#stx-pair? _g124128124140_)) + (let ((_e124132124142_ (let () (declare (not safe)) - (gx#stx-e _g124131124143_)))) - (let ((_hd124134124148_ + (gx#stx-e _g124128124140_)))) + (let ((_hd124131124145_ (let () (declare (not safe)) - (##car _e124135124145_))) - (_tl124133124150_ + (##car _e124132124142_))) + (_tl124130124147_ (let () (declare (not safe)) - (##cdr _e124135124145_)))) - ((lambda (_L124153_) - (let ((_clauses124164_ - (map _clause-e124128_ _L124153_))) + (##cdr _e124132124142_)))) + ((lambda (_L124150_) + (let ((_clauses124161_ + (map _clause-e124125_ _L124150_))) (declare (not safe)) (##structure gxc#!case-lambda::t 'case-lambda - _clauses124164_))) - _tl124133124150_))) + _clauses124161_))) + _tl124130124147_))) (let () (declare (not safe)) - (_g124130124140_ _g124131124143_)))))) + (_g124127124137_ _g124128124140_)))))) (declare (not safe)) - (_g124129124166_ _stx124126_))))) + (_g124126124163_ _stx124123_))))) (define gxc#basic-expression-type-let-values% - (lambda (_stx124058_) - (let* ((_g124060124077_ - (lambda (_g124061124074_) + (lambda (_stx124055_) + (let* ((_g124057124074_ + (lambda (_g124058124071_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g124061124074_)))) - (_g124059124123_ - (lambda (_g124061124080_) + _g124058124071_)))) + (_g124056124120_ + (lambda (_g124058124077_) (if (let () (declare (not safe)) - (gx#stx-pair? _g124061124080_)) - (let ((_e124066124082_ + (gx#stx-pair? _g124058124077_)) + (let ((_e124063124079_ (let () (declare (not safe)) - (gx#stx-e _g124061124080_)))) - (let ((_hd124065124085_ + (gx#stx-e _g124058124077_)))) + (let ((_hd124062124082_ (let () (declare (not safe)) - (##car _e124066124082_))) - (_tl124064124087_ + (##car _e124063124079_))) + (_tl124061124084_ (let () (declare (not safe)) - (##cdr _e124066124082_)))) + (##cdr _e124063124079_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124064124087_)) - (let ((_e124069124090_ + (gx#stx-pair? _tl124061124084_)) + (let ((_e124066124087_ (let () (declare (not safe)) - (gx#stx-e _tl124064124087_)))) - (let ((_hd124068124093_ + (gx#stx-e _tl124061124084_)))) + (let ((_hd124065124090_ (let () (declare (not safe)) - (##car _e124069124090_))) - (_tl124067124095_ + (##car _e124066124087_))) + (_tl124064124092_ (let () (declare (not safe)) - (##cdr _e124069124090_)))) + (##cdr _e124066124087_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124067124095_)) - (let ((_e124072124098_ + (gx#stx-pair? _tl124064124092_)) + (let ((_e124069124095_ (let () (declare (not safe)) - (gx#stx-e _tl124067124095_)))) - (let ((_hd124071124101_ + (gx#stx-e _tl124064124092_)))) + (let ((_hd124068124098_ (let () (declare (not safe)) - (##car _e124072124098_))) - (_tl124070124103_ + (##car _e124069124095_))) + (_tl124067124100_ (let () (declare (not safe)) - (##cdr _e124072124098_)))) + (##cdr _e124069124095_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124070124103_)) - ((lambda (_L124106_ _L124107_) - (let ((__tmp128878 + _tl124067124100_)) + ((lambda (_L124103_ _L124104_) + (let ((__tmp128875 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _L124106_))))) + _L124103_))))) (declare (not safe)) (call-with-parameters - __tmp128878 + __tmp128875 gxc#current-compile-type-closure '#t))) - _hd124071124101_ - _hd124068124093_) + _hd124068124098_ + _hd124065124090_) (let () (declare (not safe)) - (_g124060124077_ - _g124061124080_))))) + (_g124057124074_ + _g124058124077_))))) (let () (declare (not safe)) - (_g124060124077_ _g124061124080_))))) + (_g124057124074_ _g124058124077_))))) (let () (declare (not safe)) - (_g124060124077_ _g124061124080_))))) + (_g124057124074_ _g124058124077_))))) (let () (declare (not safe)) - (_g124060124077_ _g124061124080_)))))) + (_g124057124074_ _g124058124077_)))))) (declare (not safe)) - (_g124059124123_ _stx124058_)))) + (_g124056124120_ _stx124055_)))) (define gxc#basic-expression-type-builtin (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-call% - (lambda (_stx123963_) - (let* ((___stx127465127466_ _stx123963_) - (_g123966123986_ + (lambda (_stx123960_) + (let* ((___stx127462127463_ _stx123960_) + (_g123963123983_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127465127466_))))) - (let ((___kont127467127468_ - (lambda (_L124030_ _L124031_) - (let ((_type-e124048124050_ - (let ((__tmp128879 + ___stx127462127463_))))) + (let ((___kont127464127465_ + (lambda (_L124027_ _L124028_) + (let ((_type-e124045124047_ + (let ((__tmp128876 (let () (declare (not safe)) - (gxc#identifier-symbol _L124031_)))) + (gxc#identifier-symbol _L124028_)))) (declare (not safe)) (hash-get gxc#basic-expression-type-builtin - __tmp128879)))) - (if _type-e124048124050_ - (let ((_type-e124053_ _type-e124048124050_)) - (_type-e124053_ _stx123963_ _L124030_)) + __tmp128876)))) + (if _type-e124045124047_ + (let ((_type-e124050_ _type-e124045124047_)) + (_type-e124050_ _stx123960_ _L124027_)) '#f)))) - (___kont127469127470_ (lambda () '#f))) + (___kont127466127467_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127465127466_)) - (let ((_e123972123998_ + (gx#stx-pair? ___stx127462127463_)) + (let ((_e123969123995_ (let () (declare (not safe)) - (gx#stx-e ___stx127465127466_)))) - (let ((_tl123970124003_ - (let () (declare (not safe)) (##cdr _e123972123998_))) - (_hd123971124001_ + (gx#stx-e ___stx127462127463_)))) + (let ((_tl123967124000_ + (let () (declare (not safe)) (##cdr _e123969123995_))) + (_hd123968123998_ (let () (declare (not safe)) - (##car _e123972123998_)))) + (##car _e123969123995_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123970124003_)) - (let ((_e123975124006_ + (gx#stx-pair? _tl123967124000_)) + (let ((_e123972124003_ (let () (declare (not safe)) - (gx#stx-e _tl123970124003_)))) - (let ((_tl123973124011_ + (gx#stx-e _tl123967124000_)))) + (let ((_tl123970124008_ (let () (declare (not safe)) - (##cdr _e123975124006_))) - (_hd123974124009_ + (##cdr _e123972124003_))) + (_hd123971124006_ (let () (declare (not safe)) - (##car _e123975124006_)))) + (##car _e123972124003_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123974124009_)) - (let ((_e123978124014_ + (gx#stx-pair? _hd123971124006_)) + (let ((_e123975124011_ (let () (declare (not safe)) - (gx#stx-e _hd123974124009_)))) - (let ((_tl123976124019_ + (gx#stx-e _hd123971124006_)))) + (let ((_tl123973124016_ (let () (declare (not safe)) - (##cdr _e123978124014_))) - (_hd123977124017_ + (##cdr _e123975124011_))) + (_hd123974124014_ (let () (declare (not safe)) - (##car _e123978124014_)))) + (##car _e123975124011_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123977124017_)) + (gx#identifier? _hd123974124014_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123977124017_)) + _hd123974124014_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123976124019_)) - (let ((_e123981124022_ + _tl123973124016_)) + (let ((_e123978124019_ (let () (declare (not safe)) (gx#stx-e - _tl123976124019_)))) - (let ((_tl123979124027_ + _tl123973124016_)))) + (let ((_tl123976124024_ (let () (declare (not safe)) - (##cdr _e123981124022_))) - (_hd123980124025_ + (##cdr _e123978124019_))) + (_hd123977124022_ (let () (declare (not safe)) - (##car _e123981124022_)))) + (##car _e123978124019_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123979124027_)) - (___kont127467127468_ - _tl123973124011_ - _hd123980124025_) - (___kont127469127470_)))) - (___kont127469127470_)) - (___kont127469127470_)) - (___kont127469127470_)))) - (___kont127469127470_)))) - (___kont127469127470_)))) - (___kont127469127470_)))))) + _tl123976124024_)) + (___kont127464127465_ + _tl123970124008_ + _hd123977124022_) + (___kont127466127467_)))) + (___kont127466127467_)) + (___kont127466127467_)) + (___kont127466127467_)))) + (___kont127466127467_)))) + (___kont127466127467_)))) + (___kont127466127467_)))))) (define gxc#basic-expression-type-ref% - (lambda (_stx123912_) - (let* ((_g123914123927_ - (lambda (_g123915123924_) + (lambda (_stx123909_) + (let* ((_g123911123924_ + (lambda (_g123912123921_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g123915123924_)))) - (_g123913123960_ - (lambda (_g123915123930_) + _g123912123921_)))) + (_g123910123957_ + (lambda (_g123912123927_) (if (let () (declare (not safe)) - (gx#stx-pair? _g123915123930_)) - (let ((_e123919123932_ + (gx#stx-pair? _g123912123927_)) + (let ((_e123916123929_ (let () (declare (not safe)) - (gx#stx-e _g123915123930_)))) - (let ((_hd123918123935_ + (gx#stx-e _g123912123927_)))) + (let ((_hd123915123932_ (let () (declare (not safe)) - (##car _e123919123932_))) - (_tl123917123937_ + (##car _e123916123929_))) + (_tl123914123934_ (let () (declare (not safe)) - (##cdr _e123919123932_)))) + (##cdr _e123916123929_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123917123937_)) - (let ((_e123922123940_ + (gx#stx-pair? _tl123914123934_)) + (let ((_e123919123937_ (let () (declare (not safe)) - (gx#stx-e _tl123917123937_)))) - (let ((_hd123921123943_ + (gx#stx-e _tl123914123934_)))) + (let ((_hd123918123940_ (let () (declare (not safe)) - (##car _e123922123940_))) - (_tl123920123945_ + (##car _e123919123937_))) + (_tl123917123942_ (let () (declare (not safe)) - (##cdr _e123922123940_)))) + (##cdr _e123919123937_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123920123945_)) - ((lambda (_L123948_) - (let ((__tmp128880 + (gx#stx-null? _tl123917123942_)) + ((lambda (_L123945_) + (let ((__tmp128877 (let () (declare (not safe)) (gxc#identifier-symbol - _L123948_)))) + _L123945_)))) (declare (not safe)) (gxc#optimizer-lookup-type - __tmp128880))) - _hd123921123943_) + __tmp128877))) + _hd123918123940_) (let () (declare (not safe)) - (_g123914123927_ _g123915123930_))))) + (_g123911123924_ _g123912123927_))))) (let () (declare (not safe)) - (_g123914123927_ _g123915123930_))))) + (_g123911123924_ _g123912123927_))))) (let () (declare (not safe)) - (_g123914123927_ _g123915123930_)))))) + (_g123911123924_ _g123912123927_)))))) (declare (not safe)) - (_g123913123960_ _stx123912_)))) + (_g123910123957_ _stx123909_)))) (define gxc#dispatch-lambda-form? - (lambda (_form123146_) - (let* ((___stx127503127504_ _form123146_) - (_g123151123308_ + (lambda (_form123143_) + (let* ((___stx127500127501_ _form123143_) + (_g123148123305_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127503127504_))))) - (let ((___kont127505127506_ - (lambda (_L123832_ _L123833_ _L123834_) '#t)) - (___kont127511127512_ - (lambda (_L123620_ + ___stx127500127501_))))) + (let ((___kont127502127503_ + (lambda (_L123829_ _L123830_ _L123831_) '#t)) + (___kont127508127509_ + (lambda (_L123617_ + _L123618_ + _L123619_ + _L123620_ _L123621_ - _L123622_ - _L123623_ - _L123624_ - _L123625_) + _L123622_) '#t)) - (___kont127517127518_ - (lambda (_L123416_ _L123417_ _L123418_ _L123419_) '#t)) - (___kont127519127520_ (lambda () '#f))) - (let* ((___match127644127645_ - (lambda (_e123270123320_ - _hd123269123323_ - _tl123268123325_ - _e123273123328_ - _hd123272123331_ - _tl123271123333_ - _e123276123336_ - _hd123275123339_ - _tl123274123341_ - _e123279123344_ - _hd123278123347_ - _tl123277123349_ - _e123282123352_ - _hd123281123355_ - _tl123280123357_ - _e123285123360_ - _hd123284123363_ - _tl123283123365_ - _e123288123368_ - _hd123287123371_ - _tl123286123373_ - _e123291123376_ - _hd123290123379_ - _tl123289123381_ - _e123294123384_ - _hd123293123387_ - _tl123292123389_ - _e123297123392_ - _hd123296123395_ - _tl123295123397_ - _e123300123400_ - _hd123299123403_ - _tl123298123405_ - _e123303123408_ - _hd123302123411_ - _tl123301123413_) - (let ((_L123416_ _hd123302123411_) - (_L123417_ _hd123293123387_) - (_L123418_ _hd123284123363_) - (_L123419_ _hd123269123323_)) + (___kont127514127515_ + (lambda (_L123413_ _L123414_ _L123415_ _L123416_) '#t)) + (___kont127516127517_ (lambda () '#f))) + (let* ((___match127641127642_ + (lambda (_e123267123317_ + _hd123266123320_ + _tl123265123322_ + _e123270123325_ + _hd123269123328_ + _tl123268123330_ + _e123273123333_ + _hd123272123336_ + _tl123271123338_ + _e123276123341_ + _hd123275123344_ + _tl123274123346_ + _e123279123349_ + _hd123278123352_ + _tl123277123354_ + _e123282123357_ + _hd123281123360_ + _tl123280123362_ + _e123285123365_ + _hd123284123368_ + _tl123283123370_ + _e123288123373_ + _hd123287123376_ + _tl123286123378_ + _e123291123381_ + _hd123290123384_ + _tl123289123386_ + _e123294123389_ + _hd123293123392_ + _tl123292123394_ + _e123297123397_ + _hd123296123400_ + _tl123295123402_ + _e123300123405_ + _hd123299123408_ + _tl123298123410_) + (let ((_L123413_ _hd123299123408_) + (_L123414_ _hd123290123384_) + (_L123415_ _hd123281123360_) + (_L123416_ _hd123266123320_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L123419_)) + (gx#identifier? _L123416_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L123418_ 'apply)) + (gxc#runtime-identifier=? _L123415_ 'apply)) (let () (declare (not safe)) - (gx#free-identifier=? _L123419_ _L123416_)) - (let ((__tmp128881 + (gx#free-identifier=? _L123416_ _L123413_)) + (let ((__tmp128878 (let () (declare (not safe)) (gx#free-identifier=? - _L123417_ - _L123419_)))) + _L123414_ + _L123416_)))) (declare (not safe)) - (not __tmp128881))) - (___kont127517127518_ - _L123416_ - _L123417_ - _L123418_ - _L123419_) - (___kont127519127520_))))) - (___match127616127617_ - (lambda (_e123270123320_ - _hd123269123323_ - _tl123268123325_ - _e123273123328_ - _hd123272123331_ - _tl123271123333_ - _e123276123336_ - _hd123275123339_ - _tl123274123341_ - _e123279123344_ - _hd123278123347_ - _tl123277123349_ - _e123282123352_ - _hd123281123355_ - _tl123280123357_ - _e123285123360_ - _hd123284123363_ - _tl123283123365_ - _e123288123368_ - _hd123287123371_ - _tl123286123373_ - _e123291123376_ - _hd123290123379_ - _tl123289123381_ - _e123294123384_ - _hd123293123387_ - _tl123292123389_) + (not __tmp128878))) + (___kont127514127515_ + _L123413_ + _L123414_ + _L123415_ + _L123416_) + (___kont127516127517_))))) + (___match127613127614_ + (lambda (_e123267123317_ + _hd123266123320_ + _tl123265123322_ + _e123270123325_ + _hd123269123328_ + _tl123268123330_ + _e123273123333_ + _hd123272123336_ + _tl123271123338_ + _e123276123341_ + _hd123275123344_ + _tl123274123346_ + _e123279123349_ + _hd123278123352_ + _tl123277123354_ + _e123282123357_ + _hd123281123360_ + _tl123280123362_ + _e123285123365_ + _hd123284123368_ + _tl123283123370_ + _e123288123373_ + _hd123287123376_ + _tl123286123378_ + _e123291123381_ + _hd123290123384_ + _tl123289123386_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123286123373_)) - (let ((_e123297123392_ + (gx#stx-pair? _tl123283123370_)) + (let ((_e123294123389_ (let () (declare (not safe)) - (gx#stx-e _tl123286123373_)))) - (let ((_tl123295123397_ + (gx#stx-e _tl123283123370_)))) + (let ((_tl123292123394_ (let () (declare (not safe)) - (##cdr _e123297123392_))) - (_hd123296123395_ + (##cdr _e123294123389_))) + (_hd123293123392_ (let () (declare (not safe)) - (##car _e123297123392_)))) + (##car _e123294123389_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123296123395_)) - (let ((_e123300123400_ + (gx#stx-pair? _hd123293123392_)) + (let ((_e123297123397_ (let () (declare (not safe)) - (gx#stx-e _hd123296123395_)))) - (let ((_tl123298123405_ + (gx#stx-e _hd123293123392_)))) + (let ((_tl123295123402_ (let () (declare (not safe)) - (##cdr _e123300123400_))) - (_hd123299123403_ + (##cdr _e123297123397_))) + (_hd123296123400_ (let () (declare (not safe)) - (##car _e123300123400_)))) + (##car _e123297123397_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123299123403_)) + (gx#identifier? _hd123296123400_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123299123403_)) + _hd123296123400_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123298123405_)) - (let ((_e123303123408_ + _tl123295123402_)) + (let ((_e123300123405_ (let () (declare (not safe)) (gx#stx-e - _tl123298123405_)))) - (let ((_tl123301123413_ + _tl123295123402_)))) + (let ((_tl123298123410_ (let () (declare (not safe)) - (##cdr _e123303123408_))) - (_hd123302123411_ + (##cdr _e123300123405_))) + (_hd123299123408_ (let () (declare (not safe)) - (##car _e123303123408_)))) + (##car _e123300123405_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123301123413_)) + _tl123298123410_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl123295123397_)) + (gx#stx-null? _tl123292123394_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl123271123333_)) - (___match127644127645_ - _e123270123320_ - _hd123269123323_ - _tl123268123325_ - _e123273123328_ - _hd123272123331_ - _tl123271123333_ - _e123276123336_ - _hd123275123339_ - _tl123274123341_ - _e123279123344_ - _hd123278123347_ - _tl123277123349_ - _e123282123352_ - _hd123281123355_ - _tl123280123357_ - _e123285123360_ - _hd123284123363_ - _tl123283123365_ - _e123288123368_ - _hd123287123371_ - _tl123286123373_ - _e123291123376_ - _hd123290123379_ - _tl123289123381_ - _e123294123384_ - _hd123293123387_ - _tl123292123389_ - _e123297123392_ - _hd123296123395_ - _tl123295123397_ - _e123300123400_ - _hd123299123403_ - _tl123298123405_ - _e123303123408_ - _hd123302123411_ - _tl123301123413_) - (___kont127519127520_)) - (___kont127519127520_)) - (___kont127519127520_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127519127520_)) - (___kont127519127520_)) - (___kont127519127520_)))) - (___kont127519127520_)))) - (___kont127519127520_)))) - (___match127546127547_ - (lambda (_e123206123460_ - _hd123205123463_ - _tl123204123465_ - ___splice127513127514_ - _target123207123468_ - _tl123209123470_) - (letrec ((_loop123210123473_ - (lambda (_hd123208123476_ _arg123214123478_) + (gx#stx-null? _tl123268123330_)) + (___match127641127642_ + _e123267123317_ + _hd123266123320_ + _tl123265123322_ + _e123270123325_ + _hd123269123328_ + _tl123268123330_ + _e123273123333_ + _hd123272123336_ + _tl123271123338_ + _e123276123341_ + _hd123275123344_ + _tl123274123346_ + _e123279123349_ + _hd123278123352_ + _tl123277123354_ + _e123282123357_ + _hd123281123360_ + _tl123280123362_ + _e123285123365_ + _hd123284123368_ + _tl123283123370_ + _e123288123373_ + _hd123287123376_ + _tl123286123378_ + _e123291123381_ + _hd123290123384_ + _tl123289123386_ + _e123294123389_ + _hd123293123392_ + _tl123292123394_ + _e123297123397_ + _hd123296123400_ + _tl123295123402_ + _e123300123405_ + _hd123299123408_ + _tl123298123410_) + (___kont127516127517_)) + (___kont127516127517_)) + (___kont127516127517_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127516127517_)) + (___kont127516127517_)) + (___kont127516127517_)))) + (___kont127516127517_)))) + (___kont127516127517_)))) + (___match127543127544_ + (lambda (_e123203123457_ + _hd123202123460_ + _tl123201123462_ + ___splice127510127511_ + _target123204123465_ + _tl123206123467_) + (letrec ((_loop123207123470_ + (lambda (_hd123205123473_ _arg123211123475_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123208123476_)) - (let ((_e123211123481_ + (gx#stx-pair? _hd123205123473_)) + (let ((_e123208123478_ (let () (declare (not safe)) - (gx#stx-e _hd123208123476_)))) - (let ((_lp-tl123213123486_ + (gx#stx-e _hd123205123473_)))) + (let ((_lp-tl123210123483_ (let () (declare (not safe)) - (##cdr _e123211123481_))) - (_lp-hd123212123484_ + (##cdr _e123208123478_))) + (_lp-hd123209123481_ (let () (declare (not safe)) - (##car _e123211123481_)))) - (let ((__tmp128896 + (##car _e123208123478_)))) + (let ((__tmp128893 (let () (declare (not safe)) - (cons _lp-hd123212123484_ - _arg123214123478_)))) + (cons _lp-hd123209123481_ + _arg123211123475_)))) (declare (not safe)) - (_loop123210123473_ - _lp-tl123213123486_ - __tmp128896)))) - (let ((_arg123215123489_ - (reverse _arg123214123478_))) + (_loop123207123470_ + _lp-tl123210123483_ + __tmp128893)))) + (let ((_arg123212123486_ + (reverse _arg123211123475_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123204123465_)) - (let ((_e123218123492_ + (gx#stx-pair? _tl123201123462_)) + (let ((_e123215123489_ (let () (declare (not safe)) (gx#stx-e - _tl123204123465_)))) - (let ((_tl123216123497_ + _tl123201123462_)))) + (let ((_tl123213123494_ (let () (declare (not safe)) - (##cdr _e123218123492_))) - (_hd123217123495_ + (##cdr _e123215123489_))) + (_hd123214123492_ (let () (declare (not safe)) - (##car _e123218123492_)))) + (##car _e123215123489_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123217123495_)) - (let ((_e123221123500_ + _hd123214123492_)) + (let ((_e123218123497_ (let () (declare (not safe)) (gx#stx-e - _hd123217123495_)))) - (let ((_tl123219123505_ + _hd123214123492_)))) + (let ((_tl123216123502_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123221123500_))) - (_hd123220123503_ - (let () (declare (not safe)) (##car _e123221123500_)))) + (##cdr _e123218123497_))) + (_hd123217123500_ + (let () (declare (not safe)) (##car _e123218123497_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123220123503_)) + (gx#identifier? _hd123217123500_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd123220123503_)) + (gx#stx-eq? '%#call _hd123217123500_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123219123505_)) - (let ((_e123224123508_ + (gx#stx-pair? _tl123216123502_)) + (let ((_e123221123505_ (let () (declare (not safe)) - (gx#stx-e _tl123219123505_)))) - (let ((_tl123222123513_ + (gx#stx-e _tl123216123502_)))) + (let ((_tl123219123510_ (let () (declare (not safe)) - (##cdr _e123224123508_))) - (_hd123223123511_ + (##cdr _e123221123505_))) + (_hd123220123508_ (let () (declare (not safe)) - (##car _e123224123508_)))) + (##car _e123221123505_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123223123511_)) - (let ((_e123227123516_ + (gx#stx-pair? _hd123220123508_)) + (let ((_e123224123513_ (let () (declare (not safe)) - (gx#stx-e _hd123223123511_)))) - (let ((_tl123225123521_ + (gx#stx-e _hd123220123508_)))) + (let ((_tl123222123518_ (let () (declare (not safe)) - (##cdr _e123227123516_))) - (_hd123226123519_ + (##cdr _e123224123513_))) + (_hd123223123516_ (let () (declare (not safe)) - (##car _e123227123516_)))) + (##car _e123224123513_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd123226123519_)) + _hd123223123516_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123226123519_)) + _hd123223123516_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123225123521_)) - (let ((_e123230123524_ + _tl123222123518_)) + (let ((_e123227123521_ (let () (declare (not safe)) (gx#stx-e - _tl123225123521_)))) - (let ((_tl123228123529_ + _tl123222123518_)))) + (let ((_tl123225123526_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123230123524_))) - (_hd123229123527_ - (let () (declare (not safe)) (##car _e123230123524_)))) + (##cdr _e123227123521_))) + (_hd123226123524_ + (let () (declare (not safe)) (##car _e123227123521_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123228123529_)) + (gx#stx-null? _tl123225123526_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123222123513_)) - (let ((_e123233123532_ + (gx#stx-pair? _tl123219123510_)) + (let ((_e123230123529_ (let () (declare (not safe)) - (gx#stx-e _tl123222123513_)))) - (let ((_tl123231123537_ + (gx#stx-e _tl123219123510_)))) + (let ((_tl123228123534_ (let () (declare (not safe)) - (##cdr _e123233123532_))) - (_hd123232123535_ + (##cdr _e123230123529_))) + (_hd123229123532_ (let () (declare (not safe)) - (##car _e123233123532_)))) + (##car _e123230123529_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123232123535_)) - (let ((_e123236123540_ + (gx#stx-pair? _hd123229123532_)) + (let ((_e123233123537_ (let () (declare (not safe)) - (gx#stx-e _hd123232123535_)))) - (let ((_tl123234123545_ + (gx#stx-e _hd123229123532_)))) + (let ((_tl123231123542_ (let () (declare (not safe)) - (##cdr _e123236123540_))) - (_hd123235123543_ + (##cdr _e123233123537_))) + (_hd123232123540_ (let () (declare (not safe)) - (##car _e123236123540_)))) + (##car _e123233123537_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123235123543_)) + (gx#identifier? _hd123232123540_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123235123543_)) + _hd123232123540_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123234123545_)) - (let ((_e123239123548_ + _tl123231123542_)) + (let ((_e123236123545_ (let () (declare (not safe)) (gx#stx-e - _tl123234123545_)))) - (let ((_tl123237123553_ + _tl123231123542_)))) + (let ((_tl123234123550_ (let () (declare (not safe)) - (##cdr _e123239123548_))) - (_hd123238123551_ + (##cdr _e123236123545_))) + (_hd123235123548_ (let () (declare (not safe)) - (##car _e123239123548_)))) + (##car _e123236123545_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123237123553_)) + _tl123234123550_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl123231123537_)) + _tl123228123534_)) (if (fx>= (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-length _tl123231123537_)) + (gx#stx-length _tl123228123534_)) '1) - (let ((___splice127515127516_ + (let ((___splice127512127513_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl123231123537_ + _tl123228123534_ '1)))) - (let ((_tl123242123558_ + (let ((_tl123239123555_ (let () (declare (not safe)) - (##vector-ref ___splice127515127516_ '1))) - (_target123240123556_ + (##vector-ref ___splice127512127513_ '1))) + (_target123237123553_ (let () (declare (not safe)) - (##vector-ref ___splice127515127516_ '0)))) + (##vector-ref ___splice127512127513_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123242123558_)) - (let ((_e123251123561_ + (gx#stx-pair? _tl123239123555_)) + (let ((_e123248123558_ (let () (declare (not safe)) - (gx#stx-e _tl123242123558_)))) - (let ((_tl123249123566_ + (gx#stx-e _tl123239123555_)))) + (let ((_tl123246123563_ (let () (declare (not safe)) - (##cdr _e123251123561_))) - (_hd123250123564_ + (##cdr _e123248123558_))) + (_hd123247123561_ (let () (declare (not safe)) - (##car _e123251123561_)))) + (##car _e123248123558_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123250123564_)) - (let ((_e123254123569_ + (gx#stx-pair? _hd123247123561_)) + (let ((_e123251123566_ (let () (declare (not safe)) - (gx#stx-e _hd123250123564_)))) - (let ((_tl123252123574_ + (gx#stx-e _hd123247123561_)))) + (let ((_tl123249123571_ (let () (declare (not safe)) - (##cdr _e123254123569_))) - (_hd123253123572_ + (##cdr _e123251123566_))) + (_hd123250123569_ (let () (declare (not safe)) - (##car _e123254123569_)))) + (##car _e123251123566_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd123253123572_)) + _hd123250123569_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123253123572_)) + _hd123250123569_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123252123574_)) - (let ((_e123257123577_ + _tl123249123571_)) + (let ((_e123254123574_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl123252123574_)))) - (let ((_tl123255123582_ - (let () (declare (not safe)) (##cdr _e123257123577_))) - (_hd123256123580_ + (gx#stx-e _tl123249123571_)))) + (let ((_tl123252123579_ + (let () (declare (not safe)) (##cdr _e123254123574_))) + (_hd123253123577_ (let () (declare (not safe)) - (##car _e123257123577_)))) + (##car _e123254123574_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123255123582_)) + (gx#stx-null? _tl123252123579_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl123249123566_)) - (letrec ((_loop123243123585_ - (lambda (_hd123241123588_ - _xarg123247123590_) + (gx#stx-null? _tl123246123563_)) + (letrec ((_loop123240123582_ + (lambda (_hd123238123585_ + _xarg123244123587_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123241123588_)) - (let ((_e123244123593_ + (gx#stx-pair? _hd123238123585_)) + (let ((_e123241123590_ (let () (declare (not safe)) (gx#stx-e - _hd123241123588_)))) - (let ((_lp-tl123246123598_ + _hd123238123585_)))) + (let ((_lp-tl123243123595_ (let () (declare (not safe)) - (##cdr _e123244123593_))) - (_lp-hd123245123596_ + (##cdr _e123241123590_))) + (_lp-hd123242123593_ (let () (declare (not safe)) - (##car _e123244123593_)))) + (##car _e123241123590_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd123245123596_)) - (let ((_e123260123601_ + _lp-hd123242123593_)) + (let ((_e123257123598_ (let () (declare (not safe)) (gx#stx-e - _lp-hd123245123596_)))) - (let ((_tl123258123606_ + _lp-hd123242123593_)))) + (let ((_tl123255123603_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123260123601_))) - (_hd123259123604_ - (let () (declare (not safe)) (##car _e123260123601_)))) + (##cdr _e123257123598_))) + (_hd123256123601_ + (let () (declare (not safe)) (##car _e123257123598_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123259123604_)) + (gx#identifier? _hd123256123601_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123259123604_)) + (gx#stx-eq? '%#ref _hd123256123601_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123258123606_)) - (let ((_e123263123609_ + (gx#stx-pair? _tl123255123603_)) + (let ((_e123260123606_ (let () (declare (not safe)) - (gx#stx-e _tl123258123606_)))) - (let ((_tl123261123614_ + (gx#stx-e _tl123255123603_)))) + (let ((_tl123258123611_ (let () (declare (not safe)) - (##cdr _e123263123609_))) - (_hd123262123612_ + (##cdr _e123260123606_))) + (_hd123259123609_ (let () (declare (not safe)) - (##car _e123263123609_)))) + (##car _e123260123606_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123261123614_)) - (let ((__tmp128895 + (gx#stx-null? _tl123258123611_)) + (let ((__tmp128892 (let () (declare (not safe)) - (cons _hd123262123612_ - _xarg123247123590_)))) + (cons _hd123259123609_ + _xarg123244123587_)))) (declare (not safe)) - (_loop123243123585_ - _lp-tl123246123598_ - __tmp128895)) - (___match127616127617_ - _e123206123460_ - _hd123205123463_ - _tl123204123465_ - _e123218123492_ - _hd123217123495_ - _tl123216123497_ - _e123221123500_ - _hd123220123503_ - _tl123219123505_ - _e123224123508_ - _hd123223123511_ - _tl123222123513_ - _e123227123516_ - _hd123226123519_ - _tl123225123521_ - _e123230123524_ - _hd123229123527_ - _tl123228123529_ - _e123233123532_ - _hd123232123535_ - _tl123231123537_ - _e123236123540_ - _hd123235123543_ - _tl123234123545_ - _e123239123548_ - _hd123238123551_ - _tl123237123553_)))) - (___match127616127617_ - _e123206123460_ - _hd123205123463_ - _tl123204123465_ - _e123218123492_ - _hd123217123495_ - _tl123216123497_ - _e123221123500_ - _hd123220123503_ - _tl123219123505_ - _e123224123508_ - _hd123223123511_ - _tl123222123513_ - _e123227123516_ - _hd123226123519_ - _tl123225123521_ - _e123230123524_ - _hd123229123527_ - _tl123228123529_ - _e123233123532_ - _hd123232123535_ - _tl123231123537_ - _e123236123540_ - _hd123235123543_ - _tl123234123545_ - _e123239123548_ - _hd123238123551_ - _tl123237123553_)) - (___match127616127617_ - _e123206123460_ - _hd123205123463_ - _tl123204123465_ - _e123218123492_ - _hd123217123495_ - _tl123216123497_ - _e123221123500_ - _hd123220123503_ - _tl123219123505_ - _e123224123508_ - _hd123223123511_ - _tl123222123513_ - _e123227123516_ - _hd123226123519_ - _tl123225123521_ - _e123230123524_ - _hd123229123527_ - _tl123228123529_ - _e123233123532_ - _hd123232123535_ - _tl123231123537_ - _e123236123540_ - _hd123235123543_ - _tl123234123545_ - _e123239123548_ - _hd123238123551_ - _tl123237123553_)) - (___match127616127617_ - _e123206123460_ - _hd123205123463_ - _tl123204123465_ - _e123218123492_ - _hd123217123495_ - _tl123216123497_ - _e123221123500_ - _hd123220123503_ - _tl123219123505_ - _e123224123508_ - _hd123223123511_ - _tl123222123513_ - _e123227123516_ - _hd123226123519_ - _tl123225123521_ - _e123230123524_ - _hd123229123527_ - _tl123228123529_ - _e123233123532_ - _hd123232123535_ - _tl123231123537_ - _e123236123540_ - _hd123235123543_ - _tl123234123545_ - _e123239123548_ - _hd123238123551_ - _tl123237123553_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127616127617_ - _e123206123460_ - _hd123205123463_ - _tl123204123465_ - _e123218123492_ - _hd123217123495_ - _tl123216123497_ - _e123221123500_ - _hd123220123503_ - _tl123219123505_ - _e123224123508_ - _hd123223123511_ - _tl123222123513_ - _e123227123516_ - _hd123226123519_ - _tl123225123521_ - _e123230123524_ - _hd123229123527_ - _tl123228123529_ - _e123233123532_ - _hd123232123535_ - _tl123231123537_ - _e123236123540_ - _hd123235123543_ - _tl123234123545_ - _e123239123548_ - _hd123238123551_ - _tl123237123553_)))) - (let ((_xarg123248123617_ - (reverse _xarg123247123590_))) + (_loop123240123582_ + _lp-tl123243123595_ + __tmp128892)) + (___match127613127614_ + _e123203123457_ + _hd123202123460_ + _tl123201123462_ + _e123215123489_ + _hd123214123492_ + _tl123213123494_ + _e123218123497_ + _hd123217123500_ + _tl123216123502_ + _e123221123505_ + _hd123220123508_ + _tl123219123510_ + _e123224123513_ + _hd123223123516_ + _tl123222123518_ + _e123227123521_ + _hd123226123524_ + _tl123225123526_ + _e123230123529_ + _hd123229123532_ + _tl123228123534_ + _e123233123537_ + _hd123232123540_ + _tl123231123542_ + _e123236123545_ + _hd123235123548_ + _tl123234123550_)))) + (___match127613127614_ + _e123203123457_ + _hd123202123460_ + _tl123201123462_ + _e123215123489_ + _hd123214123492_ + _tl123213123494_ + _e123218123497_ + _hd123217123500_ + _tl123216123502_ + _e123221123505_ + _hd123220123508_ + _tl123219123510_ + _e123224123513_ + _hd123223123516_ + _tl123222123518_ + _e123227123521_ + _hd123226123524_ + _tl123225123526_ + _e123230123529_ + _hd123229123532_ + _tl123228123534_ + _e123233123537_ + _hd123232123540_ + _tl123231123542_ + _e123236123545_ + _hd123235123548_ + _tl123234123550_)) + (___match127613127614_ + _e123203123457_ + _hd123202123460_ + _tl123201123462_ + _e123215123489_ + _hd123214123492_ + _tl123213123494_ + _e123218123497_ + _hd123217123500_ + _tl123216123502_ + _e123221123505_ + _hd123220123508_ + _tl123219123510_ + _e123224123513_ + _hd123223123516_ + _tl123222123518_ + _e123227123521_ + _hd123226123524_ + _tl123225123526_ + _e123230123529_ + _hd123229123532_ + _tl123228123534_ + _e123233123537_ + _hd123232123540_ + _tl123231123542_ + _e123236123545_ + _hd123235123548_ + _tl123234123550_)) + (___match127613127614_ + _e123203123457_ + _hd123202123460_ + _tl123201123462_ + _e123215123489_ + _hd123214123492_ + _tl123213123494_ + _e123218123497_ + _hd123217123500_ + _tl123216123502_ + _e123221123505_ + _hd123220123508_ + _tl123219123510_ + _e123224123513_ + _hd123223123516_ + _tl123222123518_ + _e123227123521_ + _hd123226123524_ + _tl123225123526_ + _e123230123529_ + _hd123229123532_ + _tl123228123534_ + _e123233123537_ + _hd123232123540_ + _tl123231123542_ + _e123236123545_ + _hd123235123548_ + _tl123234123550_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127613127614_ + _e123203123457_ + _hd123202123460_ + _tl123201123462_ + _e123215123489_ + _hd123214123492_ + _tl123213123494_ + _e123218123497_ + _hd123217123500_ + _tl123216123502_ + _e123221123505_ + _hd123220123508_ + _tl123219123510_ + _e123224123513_ + _hd123223123516_ + _tl123222123518_ + _e123227123521_ + _hd123226123524_ + _tl123225123526_ + _e123230123529_ + _hd123229123532_ + _tl123228123534_ + _e123233123537_ + _hd123232123540_ + _tl123231123542_ + _e123236123545_ + _hd123235123548_ + _tl123234123550_)))) + (let ((_xarg123245123614_ + (reverse _xarg123244123587_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123216123497_)) - (let ((_L123620_ - _hd123256123580_) + _tl123213123494_)) + (let ((_L123617_ + _hd123253123577_) + (_L123618_ + _xarg123245123614_) + (_L123619_ + _hd123235123548_) + (_L123620_ + _hd123226123524_) (_L123621_ - _xarg123248123617_) + _tl123206123467_) (_L123622_ - _hd123238123551_) - (_L123623_ - _hd123229123527_) - (_L123624_ - _tl123209123470_) - (_L123625_ - _arg123215123489_)) - (if (and (let ((__tmp128893 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp128894 - (lambda (_g123668123671_ _g123669123673_) + _arg123212123486_)) + (if (and (let ((__tmp128890 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp128891 + (lambda (_g123665123668_ _g123666123670_) (let () (declare (not safe)) - (cons _g123668123671_ - _g123669123673_))))) + (cons _g123665123668_ + _g123666123670_))))) (declare (not safe)) - (foldr1 __tmp128894 '() _L123625_)))) + (foldr1 __tmp128891 '() _L123622_)))) (declare (not safe)) - (gx#identifier-list? __tmp128893)) - (let () (declare (not safe)) (gx#identifier? _L123624_)) + (gx#identifier-list? __tmp128890)) + (let () (declare (not safe)) (gx#identifier? _L123621_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L123623_ 'apply)) - (fx= (length (let ((__tmp128891 - (lambda (_g123675123678_ - _g123676123680_) + (gxc#runtime-identifier=? _L123620_ 'apply)) + (fx= (length (let ((__tmp128888 + (lambda (_g123672123675_ + _g123673123677_) (let () (declare (not safe)) - (cons _g123675123678_ - _g123676123680_))))) + (cons _g123672123675_ + _g123673123677_))))) (declare (not safe)) - (foldr1 __tmp128891 '() _L123625_))) - (length (let ((__tmp128892 - (lambda (_g123682123685_ - _g123683123687_) + (foldr1 __tmp128888 '() _L123622_))) + (length (let ((__tmp128889 + (lambda (_g123679123682_ + _g123680123684_) (let () (declare (not safe)) - (cons _g123682123685_ - _g123683123687_))))) + (cons _g123679123682_ + _g123680123684_))))) (declare (not safe)) - (foldr1 __tmp128892 '() _L123621_)))) - (let ((__tmp128889 - (let ((__tmp128890 - (lambda (_g123689123692_ _g123690123694_) + (foldr1 __tmp128889 '() _L123618_)))) + (let ((__tmp128886 + (let ((__tmp128887 + (lambda (_g123686123689_ _g123687123691_) (let () (declare (not safe)) - (cons _g123689123692_ - _g123690123694_))))) + (cons _g123686123689_ + _g123687123691_))))) (declare (not safe)) - (foldr1 __tmp128890 '() _L123625_))) - (__tmp128887 - (let ((__tmp128888 - (lambda (_g123696123699_ _g123697123701_) + (foldr1 __tmp128887 '() _L123622_))) + (__tmp128884 + (let ((__tmp128885 + (lambda (_g123693123696_ _g123694123698_) (let () (declare (not safe)) - (cons _g123696123699_ - _g123697123701_))))) + (cons _g123693123696_ + _g123694123698_))))) (declare (not safe)) - (foldr1 __tmp128888 '() _L123621_)))) + (foldr1 __tmp128885 '() _L123618_)))) (declare (not safe)) - (andmap2 gx#free-identifier=? __tmp128889 __tmp128887)) + (andmap2 gx#free-identifier=? __tmp128886 __tmp128884)) (let () (declare (not safe)) - (gx#free-identifier=? _L123624_ _L123620_)) - (let ((__tmp128882 - (let ((__tmp128886 - (lambda (_g123703123705_) + (gx#free-identifier=? _L123621_ _L123617_)) + (let ((__tmp128879 + (let ((__tmp128883 + (lambda (_g123700123702_) (let () (declare (not safe)) (gx#free-identifier=? - _g123703123705_ - _L123622_)))) - (__tmp128883 - (let ((__tmp128885 - (lambda (_g123707123710_ - _g123708123712_) + _g123700123702_ + _L123619_)))) + (__tmp128880 + (let ((__tmp128882 + (lambda (_g123704123707_ + _g123705123709_) (let () (declare (not safe)) - (cons _g123707123710_ - _g123708123712_)))) - (__tmp128884 + (cons _g123704123707_ + _g123705123709_)))) + (__tmp128881 (let () (declare (not safe)) - (cons _L123624_ '())))) + (cons _L123621_ '())))) (declare (not safe)) - (foldr1 __tmp128885 - __tmp128884 - _L123625_)))) + (foldr1 __tmp128882 + __tmp128881 + _L123622_)))) (declare (not safe)) - (find __tmp128886 __tmp128883)))) + (find __tmp128883 __tmp128880)))) (declare (not safe)) - (not __tmp128882))) - (___kont127511127512_ + (not __tmp128879))) + (___kont127508127509_ + _L123617_ + _L123618_ + _L123619_ _L123620_ _L123621_ - _L123622_ - _L123623_ - _L123624_ - _L123625_) - (___match127616127617_ - _e123206123460_ - _hd123205123463_ - _tl123204123465_ - _e123218123492_ - _hd123217123495_ - _tl123216123497_ - _e123221123500_ - _hd123220123503_ - _tl123219123505_ - _e123224123508_ - _hd123223123511_ - _tl123222123513_ - _e123227123516_ - _hd123226123519_ - _tl123225123521_ - _e123230123524_ - _hd123229123527_ - _tl123228123529_ - _e123233123532_ - _hd123232123535_ - _tl123231123537_ - _e123236123540_ - _hd123235123543_ - _tl123234123545_ - _e123239123548_ - _hd123238123551_ - _tl123237123553_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127616127617_ - _e123206123460_ - _hd123205123463_ - _tl123204123465_ - _e123218123492_ - _hd123217123495_ - _tl123216123497_ - _e123221123500_ - _hd123220123503_ - _tl123219123505_ - _e123224123508_ - _hd123223123511_ - _tl123222123513_ - _e123227123516_ - _hd123226123519_ - _tl123225123521_ - _e123230123524_ - _hd123229123527_ - _tl123228123529_ - _e123233123532_ - _hd123232123535_ - _tl123231123537_ - _e123236123540_ - _hd123235123543_ - _tl123234123545_ - _e123239123548_ - _hd123238123551_ - _tl123237123553_))))))) + _L123622_) + (___match127613127614_ + _e123203123457_ + _hd123202123460_ + _tl123201123462_ + _e123215123489_ + _hd123214123492_ + _tl123213123494_ + _e123218123497_ + _hd123217123500_ + _tl123216123502_ + _e123221123505_ + _hd123220123508_ + _tl123219123510_ + _e123224123513_ + _hd123223123516_ + _tl123222123518_ + _e123227123521_ + _hd123226123524_ + _tl123225123526_ + _e123230123529_ + _hd123229123532_ + _tl123228123534_ + _e123233123537_ + _hd123232123540_ + _tl123231123542_ + _e123236123545_ + _hd123235123548_ + _tl123234123550_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127613127614_ + _e123203123457_ + _hd123202123460_ + _tl123201123462_ + _e123215123489_ + _hd123214123492_ + _tl123213123494_ + _e123218123497_ + _hd123217123500_ + _tl123216123502_ + _e123221123505_ + _hd123220123508_ + _tl123219123510_ + _e123224123513_ + _hd123223123516_ + _tl123222123518_ + _e123227123521_ + _hd123226123524_ + _tl123225123526_ + _e123230123529_ + _hd123229123532_ + _tl123228123534_ + _e123233123537_ + _hd123232123540_ + _tl123231123542_ + _e123236123545_ + _hd123235123548_ + _tl123234123550_))))))) (let () (declare (not safe)) - (_loop123243123585_ _target123240123556_ '()))) - (___match127616127617_ - _e123206123460_ - _hd123205123463_ - _tl123204123465_ - _e123218123492_ - _hd123217123495_ - _tl123216123497_ - _e123221123500_ - _hd123220123503_ - _tl123219123505_ - _e123224123508_ - _hd123223123511_ - _tl123222123513_ - _e123227123516_ - _hd123226123519_ - _tl123225123521_ - _e123230123524_ - _hd123229123527_ - _tl123228123529_ - _e123233123532_ - _hd123232123535_ - _tl123231123537_ - _e123236123540_ - _hd123235123543_ - _tl123234123545_ - _e123239123548_ - _hd123238123551_ - _tl123237123553_)) - (___match127616127617_ - _e123206123460_ - _hd123205123463_ - _tl123204123465_ - _e123218123492_ - _hd123217123495_ - _tl123216123497_ - _e123221123500_ - _hd123220123503_ - _tl123219123505_ - _e123224123508_ - _hd123223123511_ - _tl123222123513_ - _e123227123516_ - _hd123226123519_ - _tl123225123521_ - _e123230123524_ - _hd123229123527_ - _tl123228123529_ - _e123233123532_ - _hd123232123535_ - _tl123231123537_ - _e123236123540_ - _hd123235123543_ - _tl123234123545_ - _e123239123548_ - _hd123238123551_ - _tl123237123553_)))) - (___match127616127617_ - _e123206123460_ - _hd123205123463_ - _tl123204123465_ - _e123218123492_ - _hd123217123495_ - _tl123216123497_ - _e123221123500_ - _hd123220123503_ - _tl123219123505_ - _e123224123508_ - _hd123223123511_ - _tl123222123513_ - _e123227123516_ - _hd123226123519_ - _tl123225123521_ - _e123230123524_ - _hd123229123527_ - _tl123228123529_ - _e123233123532_ - _hd123232123535_ - _tl123231123537_ - _e123236123540_ - _hd123235123543_ - _tl123234123545_ - _e123239123548_ - _hd123238123551_ - _tl123237123553_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127616127617_ - _e123206123460_ - _hd123205123463_ - _tl123204123465_ - _e123218123492_ - _hd123217123495_ - _tl123216123497_ - _e123221123500_ - _hd123220123503_ - _tl123219123505_ - _e123224123508_ - _hd123223123511_ - _tl123222123513_ - _e123227123516_ - _hd123226123519_ - _tl123225123521_ - _e123230123524_ - _hd123229123527_ - _tl123228123529_ - _e123233123532_ - _hd123232123535_ - _tl123231123537_ - _e123236123540_ - _hd123235123543_ - _tl123234123545_ - _e123239123548_ - _hd123238123551_ - _tl123237123553_)) - (___match127616127617_ - _e123206123460_ - _hd123205123463_ - _tl123204123465_ - _e123218123492_ - _hd123217123495_ - _tl123216123497_ - _e123221123500_ - _hd123220123503_ - _tl123219123505_ - _e123224123508_ - _hd123223123511_ - _tl123222123513_ - _e123227123516_ - _hd123226123519_ - _tl123225123521_ - _e123230123524_ - _hd123229123527_ - _tl123228123529_ - _e123233123532_ - _hd123232123535_ - _tl123231123537_ - _e123236123540_ - _hd123235123543_ - _tl123234123545_ - _e123239123548_ - _hd123238123551_ - _tl123237123553_)))) - (___match127616127617_ - _e123206123460_ - _hd123205123463_ - _tl123204123465_ - _e123218123492_ - _hd123217123495_ - _tl123216123497_ - _e123221123500_ - _hd123220123503_ - _tl123219123505_ - _e123224123508_ - _hd123223123511_ - _tl123222123513_ - _e123227123516_ - _hd123226123519_ - _tl123225123521_ - _e123230123524_ - _hd123229123527_ - _tl123228123529_ - _e123233123532_ - _hd123232123535_ - _tl123231123537_ - _e123236123540_ - _hd123235123543_ - _tl123234123545_ - _e123239123548_ - _hd123238123551_ - _tl123237123553_)))) - (___match127616127617_ - _e123206123460_ - _hd123205123463_ - _tl123204123465_ - _e123218123492_ - _hd123217123495_ - _tl123216123497_ - _e123221123500_ - _hd123220123503_ - _tl123219123505_ - _e123224123508_ - _hd123223123511_ - _tl123222123513_ - _e123227123516_ - _hd123226123519_ - _tl123225123521_ - _e123230123524_ - _hd123229123527_ - _tl123228123529_ - _e123233123532_ - _hd123232123535_ - _tl123231123537_ - _e123236123540_ - _hd123235123543_ - _tl123234123545_ - _e123239123548_ - _hd123238123551_ - _tl123237123553_)))) - (___match127616127617_ - _e123206123460_ - _hd123205123463_ - _tl123204123465_ - _e123218123492_ - _hd123217123495_ - _tl123216123497_ - _e123221123500_ - _hd123220123503_ - _tl123219123505_ - _e123224123508_ - _hd123223123511_ - _tl123222123513_ - _e123227123516_ - _hd123226123519_ - _tl123225123521_ - _e123230123524_ - _hd123229123527_ - _tl123228123529_ - _e123233123532_ - _hd123232123535_ - _tl123231123537_ - _e123236123540_ - _hd123235123543_ - _tl123234123545_ - _e123239123548_ - _hd123238123551_ - _tl123237123553_)) - (___match127616127617_ - _e123206123460_ - _hd123205123463_ - _tl123204123465_ - _e123218123492_ - _hd123217123495_ - _tl123216123497_ - _e123221123500_ - _hd123220123503_ - _tl123219123505_ - _e123224123508_ - _hd123223123511_ - _tl123222123513_ - _e123227123516_ - _hd123226123519_ - _tl123225123521_ - _e123230123524_ - _hd123229123527_ - _tl123228123529_ - _e123233123532_ - _hd123232123535_ - _tl123231123537_ - _e123236123540_ - _hd123235123543_ - _tl123234123545_ - _e123239123548_ - _hd123238123551_ - _tl123237123553_)) - (___kont127519127520_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127519127520_)) - (___kont127519127520_)) - (___kont127519127520_)))) - (___kont127519127520_)))) - (___kont127519127520_)) - (___kont127519127520_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127519127520_)) - (___kont127519127520_)) - (___kont127519127520_)))) - (___kont127519127520_)))) - (___kont127519127520_)) - (___kont127519127520_)) - (___kont127519127520_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127519127520_)))) - (___kont127519127520_))))))) + (_loop123240123582_ _target123237123553_ '()))) + (___match127613127614_ + _e123203123457_ + _hd123202123460_ + _tl123201123462_ + _e123215123489_ + _hd123214123492_ + _tl123213123494_ + _e123218123497_ + _hd123217123500_ + _tl123216123502_ + _e123221123505_ + _hd123220123508_ + _tl123219123510_ + _e123224123513_ + _hd123223123516_ + _tl123222123518_ + _e123227123521_ + _hd123226123524_ + _tl123225123526_ + _e123230123529_ + _hd123229123532_ + _tl123228123534_ + _e123233123537_ + _hd123232123540_ + _tl123231123542_ + _e123236123545_ + _hd123235123548_ + _tl123234123550_)) + (___match127613127614_ + _e123203123457_ + _hd123202123460_ + _tl123201123462_ + _e123215123489_ + _hd123214123492_ + _tl123213123494_ + _e123218123497_ + _hd123217123500_ + _tl123216123502_ + _e123221123505_ + _hd123220123508_ + _tl123219123510_ + _e123224123513_ + _hd123223123516_ + _tl123222123518_ + _e123227123521_ + _hd123226123524_ + _tl123225123526_ + _e123230123529_ + _hd123229123532_ + _tl123228123534_ + _e123233123537_ + _hd123232123540_ + _tl123231123542_ + _e123236123545_ + _hd123235123548_ + _tl123234123550_)))) + (___match127613127614_ + _e123203123457_ + _hd123202123460_ + _tl123201123462_ + _e123215123489_ + _hd123214123492_ + _tl123213123494_ + _e123218123497_ + _hd123217123500_ + _tl123216123502_ + _e123221123505_ + _hd123220123508_ + _tl123219123510_ + _e123224123513_ + _hd123223123516_ + _tl123222123518_ + _e123227123521_ + _hd123226123524_ + _tl123225123526_ + _e123230123529_ + _hd123229123532_ + _tl123228123534_ + _e123233123537_ + _hd123232123540_ + _tl123231123542_ + _e123236123545_ + _hd123235123548_ + _tl123234123550_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127613127614_ + _e123203123457_ + _hd123202123460_ + _tl123201123462_ + _e123215123489_ + _hd123214123492_ + _tl123213123494_ + _e123218123497_ + _hd123217123500_ + _tl123216123502_ + _e123221123505_ + _hd123220123508_ + _tl123219123510_ + _e123224123513_ + _hd123223123516_ + _tl123222123518_ + _e123227123521_ + _hd123226123524_ + _tl123225123526_ + _e123230123529_ + _hd123229123532_ + _tl123228123534_ + _e123233123537_ + _hd123232123540_ + _tl123231123542_ + _e123236123545_ + _hd123235123548_ + _tl123234123550_)) + (___match127613127614_ + _e123203123457_ + _hd123202123460_ + _tl123201123462_ + _e123215123489_ + _hd123214123492_ + _tl123213123494_ + _e123218123497_ + _hd123217123500_ + _tl123216123502_ + _e123221123505_ + _hd123220123508_ + _tl123219123510_ + _e123224123513_ + _hd123223123516_ + _tl123222123518_ + _e123227123521_ + _hd123226123524_ + _tl123225123526_ + _e123230123529_ + _hd123229123532_ + _tl123228123534_ + _e123233123537_ + _hd123232123540_ + _tl123231123542_ + _e123236123545_ + _hd123235123548_ + _tl123234123550_)))) + (___match127613127614_ + _e123203123457_ + _hd123202123460_ + _tl123201123462_ + _e123215123489_ + _hd123214123492_ + _tl123213123494_ + _e123218123497_ + _hd123217123500_ + _tl123216123502_ + _e123221123505_ + _hd123220123508_ + _tl123219123510_ + _e123224123513_ + _hd123223123516_ + _tl123222123518_ + _e123227123521_ + _hd123226123524_ + _tl123225123526_ + _e123230123529_ + _hd123229123532_ + _tl123228123534_ + _e123233123537_ + _hd123232123540_ + _tl123231123542_ + _e123236123545_ + _hd123235123548_ + _tl123234123550_)))) + (___match127613127614_ + _e123203123457_ + _hd123202123460_ + _tl123201123462_ + _e123215123489_ + _hd123214123492_ + _tl123213123494_ + _e123218123497_ + _hd123217123500_ + _tl123216123502_ + _e123221123505_ + _hd123220123508_ + _tl123219123510_ + _e123224123513_ + _hd123223123516_ + _tl123222123518_ + _e123227123521_ + _hd123226123524_ + _tl123225123526_ + _e123230123529_ + _hd123229123532_ + _tl123228123534_ + _e123233123537_ + _hd123232123540_ + _tl123231123542_ + _e123236123545_ + _hd123235123548_ + _tl123234123550_)))) + (___match127613127614_ + _e123203123457_ + _hd123202123460_ + _tl123201123462_ + _e123215123489_ + _hd123214123492_ + _tl123213123494_ + _e123218123497_ + _hd123217123500_ + _tl123216123502_ + _e123221123505_ + _hd123220123508_ + _tl123219123510_ + _e123224123513_ + _hd123223123516_ + _tl123222123518_ + _e123227123521_ + _hd123226123524_ + _tl123225123526_ + _e123230123529_ + _hd123229123532_ + _tl123228123534_ + _e123233123537_ + _hd123232123540_ + _tl123231123542_ + _e123236123545_ + _hd123235123548_ + _tl123234123550_)) + (___match127613127614_ + _e123203123457_ + _hd123202123460_ + _tl123201123462_ + _e123215123489_ + _hd123214123492_ + _tl123213123494_ + _e123218123497_ + _hd123217123500_ + _tl123216123502_ + _e123221123505_ + _hd123220123508_ + _tl123219123510_ + _e123224123513_ + _hd123223123516_ + _tl123222123518_ + _e123227123521_ + _hd123226123524_ + _tl123225123526_ + _e123230123529_ + _hd123229123532_ + _tl123228123534_ + _e123233123537_ + _hd123232123540_ + _tl123231123542_ + _e123236123545_ + _hd123235123548_ + _tl123234123550_)) + (___kont127516127517_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127516127517_)) + (___kont127516127517_)) + (___kont127516127517_)))) + (___kont127516127517_)))) + (___kont127516127517_)) + (___kont127516127517_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127516127517_)) + (___kont127516127517_)) + (___kont127516127517_)))) + (___kont127516127517_)))) + (___kont127516127517_)) + (___kont127516127517_)) + (___kont127516127517_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127516127517_)))) + (___kont127516127517_))))))) (let () (declare (not safe)) - (_loop123210123473_ _target123207123468_ '()))))) - (___match127534127535_ - (lambda (_e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_) - (letrec ((_loop123162123733_ - (lambda (_hd123160123736_ _arg123166123738_) + (_loop123207123470_ _target123204123465_ '()))))) + (___match127531127532_ + (lambda (_e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_) + (letrec ((_loop123159123730_ + (lambda (_hd123157123733_ _arg123163123735_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123160123736_)) - (let ((_e123163123741_ + (gx#stx-pair? _hd123157123733_)) + (let ((_e123160123738_ (let () (declare (not safe)) - (gx#stx-e _hd123160123736_)))) - (let ((_lp-tl123165123746_ + (gx#stx-e _hd123157123733_)))) + (let ((_lp-tl123162123743_ (let () (declare (not safe)) - (##cdr _e123163123741_))) - (_lp-hd123164123744_ + (##cdr _e123160123738_))) + (_lp-hd123161123741_ (let () (declare (not safe)) - (##car _e123163123741_)))) - (let ((__tmp128910 + (##car _e123160123738_)))) + (let ((__tmp128907 (let () (declare (not safe)) - (cons _lp-hd123164123744_ - _arg123166123738_)))) + (cons _lp-hd123161123741_ + _arg123163123735_)))) (declare (not safe)) - (_loop123162123733_ - _lp-tl123165123746_ - __tmp128910)))) - (let ((_arg123167123749_ - (reverse _arg123166123738_))) + (_loop123159123730_ + _lp-tl123162123743_ + __tmp128907)))) + (let ((_arg123164123746_ + (reverse _arg123163123735_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123156123725_)) - (let ((_e123170123752_ + (gx#stx-pair? _tl123153123722_)) + (let ((_e123167123749_ (let () (declare (not safe)) (gx#stx-e - _tl123156123725_)))) - (let ((_tl123168123757_ + _tl123153123722_)))) + (let ((_tl123165123754_ (let () (declare (not safe)) - (##cdr _e123170123752_))) - (_hd123169123755_ + (##cdr _e123167123749_))) + (_hd123166123752_ (let () (declare (not safe)) - (##car _e123170123752_)))) + (##car _e123167123749_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123169123755_)) - (let ((_e123173123760_ + _hd123166123752_)) + (let ((_e123170123757_ (let () (declare (not safe)) (gx#stx-e - _hd123169123755_)))) - (let ((_tl123171123765_ + _hd123166123752_)))) + (let ((_tl123168123762_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123173123760_))) - (_hd123172123763_ - (let () (declare (not safe)) (##car _e123173123760_)))) + (##cdr _e123170123757_))) + (_hd123169123760_ + (let () (declare (not safe)) (##car _e123170123757_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123172123763_)) + (gx#identifier? _hd123169123760_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd123172123763_)) + (gx#stx-eq? '%#call _hd123169123760_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123171123765_)) - (let ((_e123176123768_ + (gx#stx-pair? _tl123168123762_)) + (let ((_e123173123765_ (let () (declare (not safe)) - (gx#stx-e _tl123171123765_)))) - (let ((_tl123174123773_ + (gx#stx-e _tl123168123762_)))) + (let ((_tl123171123770_ (let () (declare (not safe)) - (##cdr _e123176123768_))) - (_hd123175123771_ + (##cdr _e123173123765_))) + (_hd123172123768_ (let () (declare (not safe)) - (##car _e123176123768_)))) + (##car _e123173123765_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123175123771_)) - (let ((_e123179123776_ + (gx#stx-pair? _hd123172123768_)) + (let ((_e123176123773_ (let () (declare (not safe)) - (gx#stx-e _hd123175123771_)))) - (let ((_tl123177123781_ + (gx#stx-e _hd123172123768_)))) + (let ((_tl123174123778_ (let () (declare (not safe)) - (##cdr _e123179123776_))) - (_hd123178123779_ + (##cdr _e123176123773_))) + (_hd123175123776_ (let () (declare (not safe)) - (##car _e123179123776_)))) + (##car _e123176123773_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd123178123779_)) + _hd123175123776_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123178123779_)) + _hd123175123776_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123177123781_)) - (let ((_e123182123784_ + _tl123174123778_)) + (let ((_e123179123781_ (let () (declare (not safe)) (gx#stx-e - _tl123177123781_)))) - (let ((_tl123180123789_ + _tl123174123778_)))) + (let ((_tl123177123786_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123182123784_))) - (_hd123181123787_ - (let () (declare (not safe)) (##car _e123182123784_)))) + (##cdr _e123179123781_))) + (_hd123178123784_ + (let () (declare (not safe)) (##car _e123179123781_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123180123789_)) + (gx#stx-null? _tl123177123786_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl123174123773_)) - (let ((___splice127509127510_ + (gx#stx-pair/null? _tl123171123770_)) + (let ((___splice127506127507_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl123174123773_ + _tl123171123770_ '0)))) - (let ((_tl123185123794_ + (let ((_tl123182123791_ (let () (declare (not safe)) - (##vector-ref ___splice127509127510_ '1))) - (_target123183123792_ + (##vector-ref ___splice127506127507_ '1))) + (_target123180123789_ (let () (declare (not safe)) - (##vector-ref ___splice127509127510_ '0)))) + (##vector-ref ___splice127506127507_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123185123794_)) - (letrec ((_loop123186123797_ - (lambda (_hd123184123800_ - _xarg123190123802_) + (gx#stx-null? _tl123182123791_)) + (letrec ((_loop123183123794_ + (lambda (_hd123181123797_ + _xarg123187123799_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123184123800_)) - (let ((_e123187123805_ + _hd123181123797_)) + (let ((_e123184123802_ (let () (declare (not safe)) (gx#stx-e - _hd123184123800_)))) - (let ((_lp-tl123189123810_ + _hd123181123797_)))) + (let ((_lp-tl123186123807_ (let () (declare (not safe)) - (##cdr _e123187123805_))) - (_lp-hd123188123808_ + (##cdr _e123184123802_))) + (_lp-hd123185123805_ (let () (declare (not safe)) - (##car _e123187123805_)))) + (##car _e123184123802_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd123188123808_)) - (let ((_e123194123813_ + _lp-hd123185123805_)) + (let ((_e123191123810_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _lp-hd123188123808_)))) - (let ((_tl123192123818_ - (let () (declare (not safe)) (##cdr _e123194123813_))) - (_hd123193123816_ + (gx#stx-e _lp-hd123185123805_)))) + (let ((_tl123189123815_ + (let () (declare (not safe)) (##cdr _e123191123810_))) + (_hd123190123813_ (let () (declare (not safe)) - (##car _e123194123813_)))) + (##car _e123191123810_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123193123816_)) + (gx#identifier? _hd123190123813_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123193123816_)) + (gx#stx-eq? '%#ref _hd123190123813_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123192123818_)) - (let ((_e123197123821_ + (gx#stx-pair? _tl123189123815_)) + (let ((_e123194123818_ (let () (declare (not safe)) - (gx#stx-e _tl123192123818_)))) - (let ((_tl123195123826_ + (gx#stx-e _tl123189123815_)))) + (let ((_tl123192123823_ (let () (declare (not safe)) - (##cdr _e123197123821_))) - (_hd123196123824_ + (##cdr _e123194123818_))) + (_hd123193123821_ (let () (declare (not safe)) - (##car _e123197123821_)))) + (##car _e123194123818_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123195123826_)) - (let ((__tmp128909 + (gx#stx-null? _tl123192123823_)) + (let ((__tmp128906 (let () (declare (not safe)) - (cons _hd123196123824_ - _xarg123190123802_)))) + (cons _hd123193123821_ + _xarg123187123799_)))) (declare (not safe)) - (_loop123186123797_ - _lp-tl123189123810_ - __tmp128909)) - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_)))) - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_)) - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_)) - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_)))) - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_xarg123191123829_ - (reverse _xarg123190123802_))) + (_loop123183123794_ + _lp-tl123186123807_ + __tmp128906)) + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_)))) + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_)) + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_)) + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_)))) + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg123188123826_ + (reverse _xarg123187123799_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123168123757_)) - (let ((_L123832_ - _xarg123191123829_) - (_L123833_ - _hd123181123787_) - (_L123834_ - _arg123167123749_)) - (if (and (let ((__tmp128907 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp128908 - (lambda (_g123862123865_ - _g123863123867_) + _tl123165123754_)) + (let ((_L123829_ + _xarg123188123826_) + (_L123830_ + _hd123178123784_) + (_L123831_ + _arg123164123746_)) + (if (and (let ((__tmp128904 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp128905 + (lambda (_g123859123862_ + _g123860123864_) (let () (declare (not safe)) - (cons _g123862123865_ - _g123863123867_))))) + (cons _g123859123862_ + _g123860123864_))))) (declare (not safe)) - (foldr1 __tmp128908 '() _L123834_)))) + (foldr1 __tmp128905 '() _L123831_)))) (declare (not safe)) - (gx#identifier-list? __tmp128907)) - (fx= (length (let ((__tmp128905 - (lambda (_g123869123872_ - _g123870123874_) + (gx#identifier-list? __tmp128904)) + (fx= (length (let ((__tmp128902 + (lambda (_g123866123869_ + _g123867123871_) (let () (declare (not safe)) - (cons _g123869123872_ - _g123870123874_))))) + (cons _g123866123869_ + _g123867123871_))))) (declare (not safe)) - (foldr1 __tmp128905 '() _L123834_))) - (length (let ((__tmp128906 - (lambda (_g123876123879_ - _g123877123881_) + (foldr1 __tmp128902 '() _L123831_))) + (length (let ((__tmp128903 + (lambda (_g123873123876_ + _g123874123878_) (let () (declare (not safe)) - (cons _g123876123879_ - _g123877123881_))))) + (cons _g123873123876_ + _g123874123878_))))) (declare (not safe)) - (foldr1 __tmp128906 '() _L123832_)))) - (let ((__tmp128903 - (let ((__tmp128904 - (lambda (_g123883123886_ - _g123884123888_) + (foldr1 __tmp128903 '() _L123829_)))) + (let ((__tmp128900 + (let ((__tmp128901 + (lambda (_g123880123883_ + _g123881123885_) (let () (declare (not safe)) - (cons _g123883123886_ - _g123884123888_))))) + (cons _g123880123883_ + _g123881123885_))))) (declare (not safe)) - (foldr1 __tmp128904 '() _L123834_))) - (__tmp128901 - (let ((__tmp128902 - (lambda (_g123890123893_ - _g123891123895_) + (foldr1 __tmp128901 '() _L123831_))) + (__tmp128898 + (let ((__tmp128899 + (lambda (_g123887123890_ + _g123888123892_) (let () (declare (not safe)) - (cons _g123890123893_ - _g123891123895_))))) + (cons _g123887123890_ + _g123888123892_))))) (declare (not safe)) - (foldr1 __tmp128902 '() _L123832_)))) + (foldr1 __tmp128899 '() _L123829_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp128903 - __tmp128901)) - (let ((__tmp128897 - (let ((__tmp128900 - (lambda (_g123897123899_) + __tmp128900 + __tmp128898)) + (let ((__tmp128894 + (let ((__tmp128897 + (lambda (_g123894123896_) (let () (declare (not safe)) (gx#free-identifier=? - _g123897123899_ - _L123833_)))) - (__tmp128898 - (let ((__tmp128899 - (lambda (_g123901123904_ - _g123902123906_) + _g123894123896_ + _L123830_)))) + (__tmp128895 + (let ((__tmp128896 + (lambda (_g123898123901_ + _g123899123903_) (let () (declare (not safe)) - (cons _g123901123904_ - _g123902123906_))))) + (cons _g123898123901_ + _g123899123903_))))) (declare (not safe)) - (foldr1 __tmp128899 '() _L123834_)))) + (foldr1 __tmp128896 '() _L123831_)))) (declare (not safe)) - (find __tmp128900 __tmp128898)))) + (find __tmp128897 __tmp128895)))) (declare (not safe)) - (not __tmp128897))) - (___kont127505127506_ _L123832_ _L123833_ _L123834_) - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_))) - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_))))))) + (not __tmp128894))) + (___kont127502127503_ _L123829_ _L123830_ _L123831_) + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_))) + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop123186123797_ - _target123183123792_ + (_loop123183123794_ + _target123180123789_ '()))) - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_)))) - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_)) - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_)) - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_)) - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_)))) - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_)))) - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_)) - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_)) - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_)))) - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_))))))) + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_)))) + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_)) + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_)) + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_)) + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_)))) + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_)))) + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_)) + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_)) + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_)))) + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_))))))) (let () (declare (not safe)) - (_loop123162123733_ _target123159123728_ '())))))) + (_loop123159123730_ _target123156123725_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127503127504_)) - (let ((_e123158123720_ + (gx#stx-pair? ___stx127500127501_)) + (let ((_e123155123717_ (let () (declare (not safe)) - (gx#stx-e ___stx127503127504_)))) - (let ((_tl123156123725_ + (gx#stx-e ___stx127500127501_)))) + (let ((_tl123153123722_ (let () (declare (not safe)) - (##cdr _e123158123720_))) - (_hd123157123723_ + (##cdr _e123155123717_))) + (_hd123154123720_ (let () (declare (not safe)) - (##car _e123158123720_)))) + (##car _e123155123717_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd123157123723_)) - (let ((___splice127507127508_ + (gx#stx-pair/null? _hd123154123720_)) + (let ((___splice127504127505_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd123157123723_ + _hd123154123720_ '0)))) - (let ((_tl123161123730_ + (let ((_tl123158123727_ (let () (declare (not safe)) - (##vector-ref ___splice127507127508_ '1))) - (_target123159123728_ + (##vector-ref ___splice127504127505_ '1))) + (_target123156123725_ (let () (declare (not safe)) (##vector-ref - ___splice127507127508_ + ___splice127504127505_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123161123730_)) - (___match127534127535_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_) - (___match127546127547_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - ___splice127507127508_ - _target123159123728_ - _tl123161123730_)))) + (gx#stx-null? _tl123158123727_)) + (___match127531127532_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_) + (___match127543127544_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + ___splice127504127505_ + _target123156123725_ + _tl123158123727_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123156123725_)) - (let ((_e123273123328_ + (gx#stx-pair? _tl123153123722_)) + (let ((_e123270123325_ (let () (declare (not safe)) - (gx#stx-e _tl123156123725_)))) - (let ((_tl123271123333_ + (gx#stx-e _tl123153123722_)))) + (let ((_tl123268123330_ (let () (declare (not safe)) - (##cdr _e123273123328_))) - (_hd123272123331_ + (##cdr _e123270123325_))) + (_hd123269123328_ (let () (declare (not safe)) - (##car _e123273123328_)))) + (##car _e123270123325_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123272123331_)) - (let ((_e123276123336_ + (gx#stx-pair? _hd123269123328_)) + (let ((_e123273123333_ (let () (declare (not safe)) - (gx#stx-e _hd123272123331_)))) - (let ((_tl123274123341_ + (gx#stx-e _hd123269123328_)))) + (let ((_tl123271123338_ (let () (declare (not safe)) - (##cdr _e123276123336_))) - (_hd123275123339_ + (##cdr _e123273123333_))) + (_hd123272123336_ (let () (declare (not safe)) - (##car _e123276123336_)))) + (##car _e123273123333_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd123275123339_)) + _hd123272123336_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd123275123339_)) + _hd123272123336_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123274123341_)) - (let ((_e123279123344_ + _tl123271123338_)) + (let ((_e123276123341_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl123274123341_)))) - (let ((_tl123277123349_ - (let () (declare (not safe)) (##cdr _e123279123344_))) - (_hd123278123347_ - (let () (declare (not safe)) (##car _e123279123344_)))) + (gx#stx-e _tl123271123338_)))) + (let ((_tl123274123346_ + (let () (declare (not safe)) (##cdr _e123276123341_))) + (_hd123275123344_ + (let () (declare (not safe)) (##car _e123276123341_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123278123347_)) - (let ((_e123282123352_ + (gx#stx-pair? _hd123275123344_)) + (let ((_e123279123349_ (let () (declare (not safe)) - (gx#stx-e _hd123278123347_)))) - (let ((_tl123280123357_ + (gx#stx-e _hd123275123344_)))) + (let ((_tl123277123354_ (let () (declare (not safe)) - (##cdr _e123282123352_))) - (_hd123281123355_ + (##cdr _e123279123349_))) + (_hd123278123352_ (let () (declare (not safe)) - (##car _e123282123352_)))) + (##car _e123279123349_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123281123355_)) + (gx#identifier? _hd123278123352_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123281123355_)) + (gx#stx-eq? '%#ref _hd123278123352_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123280123357_)) - (let ((_e123285123360_ + (gx#stx-pair? _tl123277123354_)) + (let ((_e123282123357_ (let () (declare (not safe)) - (gx#stx-e _tl123280123357_)))) - (let ((_tl123283123365_ + (gx#stx-e _tl123277123354_)))) + (let ((_tl123280123362_ (let () (declare (not safe)) - (##cdr _e123285123360_))) - (_hd123284123363_ + (##cdr _e123282123357_))) + (_hd123281123360_ (let () (declare (not safe)) - (##car _e123285123360_)))) + (##car _e123282123357_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123283123365_)) + _tl123280123362_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123277123349_)) - (let ((_e123288123368_ + _tl123274123346_)) + (let ((_e123285123365_ (let () (declare (not safe)) (gx#stx-e - _tl123277123349_)))) - (let ((_tl123286123373_ + _tl123274123346_)))) + (let ((_tl123283123370_ (let () (declare (not safe)) - (##cdr _e123288123368_))) - (_hd123287123371_ + (##cdr _e123285123365_))) + (_hd123284123368_ (let () (declare (not safe)) - (##car _e123288123368_)))) + (##car _e123285123365_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123287123371_)) - (let ((_e123291123376_ + _hd123284123368_)) + (let ((_e123288123373_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd123287123371_)))) - (let ((_tl123289123381_ + (gx#stx-e _hd123284123368_)))) + (let ((_tl123286123378_ (let () (declare (not safe)) - (##cdr _e123291123376_))) - (_hd123290123379_ + (##cdr _e123288123373_))) + (_hd123287123376_ (let () (declare (not safe)) - (##car _e123291123376_)))) + (##car _e123288123373_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123290123379_)) + (gx#identifier? _hd123287123376_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123290123379_)) + (gx#stx-eq? '%#ref _hd123287123376_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123289123381_)) - (let ((_e123294123384_ + (gx#stx-pair? _tl123286123378_)) + (let ((_e123291123381_ (let () (declare (not safe)) - (gx#stx-e _tl123289123381_)))) - (let ((_tl123292123389_ + (gx#stx-e _tl123286123378_)))) + (let ((_tl123289123386_ (let () (declare (not safe)) - (##cdr _e123294123384_))) - (_hd123293123387_ + (##cdr _e123291123381_))) + (_hd123290123384_ (let () (declare (not safe)) - (##car _e123294123384_)))) + (##car _e123291123381_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123292123389_)) + (gx#stx-null? _tl123289123386_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123286123373_)) - (let ((_e123297123392_ + _tl123283123370_)) + (let ((_e123294123389_ (let () (declare (not safe)) (gx#stx-e - _tl123286123373_)))) - (let ((_tl123295123397_ + _tl123283123370_)))) + (let ((_tl123292123394_ (let () (declare (not safe)) - (##cdr _e123297123392_))) - (_hd123296123395_ + (##cdr _e123294123389_))) + (_hd123293123392_ (let () (declare (not safe)) - (##car _e123297123392_)))) + (##car _e123294123389_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123296123395_)) - (let ((_e123300123400_ + _hd123293123392_)) + (let ((_e123297123397_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd123296123395_)))) - (let ((_tl123298123405_ - (let () (declare (not safe)) (##cdr _e123300123400_))) - (_hd123299123403_ - (let () (declare (not safe)) (##car _e123300123400_)))) + (gx#stx-e _hd123293123392_)))) + (let ((_tl123295123402_ + (let () (declare (not safe)) (##cdr _e123297123397_))) + (_hd123296123400_ + (let () (declare (not safe)) (##car _e123297123397_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123299123403_)) + (gx#identifier? _hd123296123400_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123299123403_)) + (gx#stx-eq? '%#ref _hd123296123400_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123298123405_)) - (let ((_e123303123408_ + (gx#stx-pair? _tl123295123402_)) + (let ((_e123300123405_ (let () (declare (not safe)) - (gx#stx-e _tl123298123405_)))) - (let ((_tl123301123413_ + (gx#stx-e _tl123295123402_)))) + (let ((_tl123298123410_ (let () (declare (not safe)) - (##cdr _e123303123408_))) - (_hd123302123411_ + (##cdr _e123300123405_))) + (_hd123299123408_ (let () (declare (not safe)) - (##car _e123303123408_)))) + (##car _e123300123405_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123301123413_)) + (gx#stx-null? _tl123298123410_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl123295123397_)) + (gx#stx-null? _tl123292123394_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl123271123333_)) - (___match127644127645_ - _e123158123720_ - _hd123157123723_ - _tl123156123725_ - _e123273123328_ - _hd123272123331_ - _tl123271123333_ - _e123276123336_ - _hd123275123339_ - _tl123274123341_ - _e123279123344_ - _hd123278123347_ - _tl123277123349_ - _e123282123352_ - _hd123281123355_ - _tl123280123357_ - _e123285123360_ - _hd123284123363_ - _tl123283123365_ - _e123288123368_ - _hd123287123371_ - _tl123286123373_ - _e123291123376_ - _hd123290123379_ - _tl123289123381_ - _e123294123384_ - _hd123293123387_ - _tl123292123389_ - _e123297123392_ - _hd123296123395_ - _tl123295123397_ - _e123300123400_ - _hd123299123403_ - _tl123298123405_ - _e123303123408_ - _hd123302123411_ - _tl123301123413_) - (___kont127519127520_)) - (___kont127519127520_)) - (___kont127519127520_)))) - (___kont127519127520_)) - (___kont127519127520_)) - (___kont127519127520_)))) - (___kont127519127520_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127519127520_)) - (___kont127519127520_)))) - (___kont127519127520_)) - (___kont127519127520_)) - (___kont127519127520_)))) - (___kont127519127520_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127519127520_)) - (___kont127519127520_)))) - (___kont127519127520_)) - (___kont127519127520_)) - (___kont127519127520_)))) - (___kont127519127520_)))) - (___kont127519127520_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127519127520_)) - (___kont127519127520_)))) - (___kont127519127520_)))) - (___kont127519127520_))))) - (___kont127519127520_))))))) + _tl123268123330_)) + (___match127641127642_ + _e123155123717_ + _hd123154123720_ + _tl123153123722_ + _e123270123325_ + _hd123269123328_ + _tl123268123330_ + _e123273123333_ + _hd123272123336_ + _tl123271123338_ + _e123276123341_ + _hd123275123344_ + _tl123274123346_ + _e123279123349_ + _hd123278123352_ + _tl123277123354_ + _e123282123357_ + _hd123281123360_ + _tl123280123362_ + _e123285123365_ + _hd123284123368_ + _tl123283123370_ + _e123288123373_ + _hd123287123376_ + _tl123286123378_ + _e123291123381_ + _hd123290123384_ + _tl123289123386_ + _e123294123389_ + _hd123293123392_ + _tl123292123394_ + _e123297123397_ + _hd123296123400_ + _tl123295123402_ + _e123300123405_ + _hd123299123408_ + _tl123298123410_) + (___kont127516127517_)) + (___kont127516127517_)) + (___kont127516127517_)))) + (___kont127516127517_)) + (___kont127516127517_)) + (___kont127516127517_)))) + (___kont127516127517_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127516127517_)) + (___kont127516127517_)))) + (___kont127516127517_)) + (___kont127516127517_)) + (___kont127516127517_)))) + (___kont127516127517_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127516127517_)) + (___kont127516127517_)))) + (___kont127516127517_)) + (___kont127516127517_)) + (___kont127516127517_)))) + (___kont127516127517_)))) + (___kont127516127517_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127516127517_)) + (___kont127516127517_)))) + (___kont127516127517_)))) + (___kont127516127517_))))) + (___kont127516127517_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_form122614_) - (let* ((___stx127647127648_ _form122614_) - (_g122618122742_ + (lambda (_form122611_) + (let* ((___stx127644127645_ _form122611_) + (_g122615122739_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127647127648_))))) - (let ((___kont127649127650_ - (lambda (_L123112_ _L123113_ _L123114_) + ___stx127644127645_))))) + (let ((___kont127646127647_ + (lambda (_L123109_ _L123110_ _L123111_) (let () (declare (not safe)) - (gxc#identifier-symbol _L123113_)))) - (___kont127655127656_ - (lambda (_L122960_ _L122961_ _L122962_ _L122963_) + (gxc#identifier-symbol _L123110_)))) + (___kont127652127653_ + (lambda (_L122957_ _L122958_ _L122959_ _L122960_) (let () (declare (not safe)) - (gxc#identifier-symbol _L122960_)))) - (___kont127659127660_ - (lambda (_L122827_ _L122828_ _L122829_) + (gxc#identifier-symbol _L122957_)))) + (___kont127656127657_ + (lambda (_L122824_ _L122825_ _L122826_) (let () (declare (not safe)) - (gxc#identifier-symbol _L122827_))))) - (let* ((___match127756127757_ - (lambda (_e122710122747_ - _hd122709122750_ - _tl122708122752_ - _e122713122755_ - _hd122712122758_ - _tl122711122760_ - _e122716122763_ - _hd122715122766_ - _tl122714122768_ - _e122719122771_ - _hd122718122774_ - _tl122717122776_ - _e122722122779_ - _hd122721122782_ - _tl122720122784_ - _e122725122787_ - _hd122724122790_ - _tl122723122792_ - _e122728122795_ - _hd122727122798_ - _tl122726122800_ - _e122731122803_ - _hd122730122806_ - _tl122729122808_ - _e122734122811_ - _hd122733122814_ - _tl122732122816_) + (gxc#identifier-symbol _L122824_))))) + (let* ((___match127753127754_ + (lambda (_e122707122744_ + _hd122706122747_ + _tl122705122749_ + _e122710122752_ + _hd122709122755_ + _tl122708122757_ + _e122713122760_ + _hd122712122763_ + _tl122711122765_ + _e122716122768_ + _hd122715122771_ + _tl122714122773_ + _e122719122776_ + _hd122718122779_ + _tl122717122781_ + _e122722122784_ + _hd122721122787_ + _tl122720122789_ + _e122725122792_ + _hd122724122795_ + _tl122723122797_ + _e122728122800_ + _hd122727122803_ + _tl122726122805_ + _e122731122808_ + _hd122730122811_ + _tl122729122813_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122726122800_)) - (let ((_e122737122819_ + (gx#stx-pair? _tl122723122797_)) + (let ((_e122734122816_ (let () (declare (not safe)) - (gx#stx-e _tl122726122800_)))) - (let ((_tl122735122824_ + (gx#stx-e _tl122723122797_)))) + (let ((_tl122732122821_ (let () (declare (not safe)) - (##cdr _e122737122819_))) - (_hd122736122822_ + (##cdr _e122734122816_))) + (_hd122733122819_ (let () (declare (not safe)) - (##car _e122737122819_)))) + (##car _e122734122816_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122735122824_)) + (gx#stx-null? _tl122732122821_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl122711122760_)) - (___kont127659127660_ - _hd122733122814_ - _hd122724122790_ - _hd122709122750_) + (gx#stx-null? _tl122708122757_)) + (___kont127656127657_ + _hd122730122811_ + _hd122721122787_ + _hd122706122747_) (let () (declare (not safe)) - (_g122618122742_))) + (_g122615122739_))) (let () (declare (not safe)) - (_g122618122742_))))) - (let () (declare (not safe)) (_g122618122742_))))) - (___match127686127687_ - (lambda (_e122671122864_ - _hd122670122867_ - _tl122669122869_ - ___splice127657127658_ - _target122672122872_ - _tl122674122874_) - (letrec ((_loop122675122877_ - (lambda (_hd122673122880_ _arg122679122882_) + (_g122615122739_))))) + (let () (declare (not safe)) (_g122615122739_))))) + (___match127683127684_ + (lambda (_e122668122861_ + _hd122667122864_ + _tl122666122866_ + ___splice127654127655_ + _target122669122869_ + _tl122671122871_) + (letrec ((_loop122672122874_ + (lambda (_hd122670122877_ _arg122676122879_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122673122880_)) - (let ((_e122676122885_ + (gx#stx-pair? _hd122670122877_)) + (let ((_e122673122882_ (let () (declare (not safe)) - (gx#stx-e _hd122673122880_)))) - (let ((_lp-tl122678122890_ + (gx#stx-e _hd122670122877_)))) + (let ((_lp-tl122675122887_ (let () (declare (not safe)) - (##cdr _e122676122885_))) - (_lp-hd122677122888_ + (##cdr _e122673122882_))) + (_lp-hd122674122885_ (let () (declare (not safe)) - (##car _e122676122885_)))) - (let ((__tmp128911 + (##car _e122673122882_)))) + (let ((__tmp128908 (let () (declare (not safe)) - (cons _lp-hd122677122888_ - _arg122679122882_)))) + (cons _lp-hd122674122885_ + _arg122676122879_)))) (declare (not safe)) - (_loop122675122877_ - _lp-tl122678122890_ - __tmp128911)))) - (let ((_arg122680122893_ - (reverse _arg122679122882_))) + (_loop122672122874_ + _lp-tl122675122887_ + __tmp128908)))) + (let ((_arg122677122890_ + (reverse _arg122676122879_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122669122869_)) - (let ((_e122683122896_ + (gx#stx-pair? _tl122666122866_)) + (let ((_e122680122893_ (let () (declare (not safe)) (gx#stx-e - _tl122669122869_)))) - (let ((_tl122681122901_ + _tl122666122866_)))) + (let ((_tl122678122898_ (let () (declare (not safe)) - (##cdr _e122683122896_))) - (_hd122682122899_ + (##cdr _e122680122893_))) + (_hd122679122896_ (let () (declare (not safe)) - (##car _e122683122896_)))) + (##car _e122680122893_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122682122899_)) - (let ((_e122686122904_ + _hd122679122896_)) + (let ((_e122683122901_ (let () (declare (not safe)) (gx#stx-e - _hd122682122899_)))) - (let ((_tl122684122909_ + _hd122679122896_)))) + (let ((_tl122681122906_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e122686122904_))) - (_hd122685122907_ - (let () (declare (not safe)) (##car _e122686122904_)))) + (##cdr _e122683122901_))) + (_hd122682122904_ + (let () (declare (not safe)) (##car _e122683122901_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122685122907_)) + (gx#identifier? _hd122682122904_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd122685122907_)) + (gx#stx-eq? '%#call _hd122682122904_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122684122909_)) - (let ((_e122689122912_ + (gx#stx-pair? _tl122681122906_)) + (let ((_e122686122909_ (let () (declare (not safe)) - (gx#stx-e _tl122684122909_)))) - (let ((_tl122687122917_ + (gx#stx-e _tl122681122906_)))) + (let ((_tl122684122914_ (let () (declare (not safe)) - (##cdr _e122689122912_))) - (_hd122688122915_ + (##cdr _e122686122909_))) + (_hd122685122912_ (let () (declare (not safe)) - (##car _e122689122912_)))) + (##car _e122686122909_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122688122915_)) - (let ((_e122692122920_ + (gx#stx-pair? _hd122685122912_)) + (let ((_e122689122917_ (let () (declare (not safe)) - (gx#stx-e _hd122688122915_)))) - (let ((_tl122690122925_ + (gx#stx-e _hd122685122912_)))) + (let ((_tl122687122922_ (let () (declare (not safe)) - (##cdr _e122692122920_))) - (_hd122691122923_ + (##cdr _e122689122917_))) + (_hd122688122920_ (let () (declare (not safe)) - (##car _e122692122920_)))) + (##car _e122689122917_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd122691122923_)) + _hd122688122920_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd122691122923_)) + _hd122688122920_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122690122925_)) - (let ((_e122695122928_ + _tl122687122922_)) + (let ((_e122692122925_ (let () (declare (not safe)) (gx#stx-e - _tl122690122925_)))) - (let ((_tl122693122933_ + _tl122687122922_)))) + (let ((_tl122690122930_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e122695122928_))) - (_hd122694122931_ - (let () (declare (not safe)) (##car _e122695122928_)))) + (##cdr _e122692122925_))) + (_hd122691122928_ + (let () (declare (not safe)) (##car _e122692122925_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122693122933_)) + (gx#stx-null? _tl122690122930_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122687122917_)) - (let ((_e122698122936_ + (gx#stx-pair? _tl122684122914_)) + (let ((_e122695122933_ (let () (declare (not safe)) - (gx#stx-e _tl122687122917_)))) - (let ((_tl122696122941_ + (gx#stx-e _tl122684122914_)))) + (let ((_tl122693122938_ (let () (declare (not safe)) - (##cdr _e122698122936_))) - (_hd122697122939_ + (##cdr _e122695122933_))) + (_hd122694122936_ (let () (declare (not safe)) - (##car _e122698122936_)))) + (##car _e122695122933_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122697122939_)) - (let ((_e122701122944_ + (gx#stx-pair? _hd122694122936_)) + (let ((_e122698122941_ (let () (declare (not safe)) - (gx#stx-e _hd122697122939_)))) - (let ((_tl122699122949_ + (gx#stx-e _hd122694122936_)))) + (let ((_tl122696122946_ (let () (declare (not safe)) - (##cdr _e122701122944_))) - (_hd122700122947_ + (##cdr _e122698122941_))) + (_hd122697122944_ (let () (declare (not safe)) - (##car _e122701122944_)))) + (##car _e122698122941_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122700122947_)) + (gx#identifier? _hd122697122944_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd122700122947_)) + _hd122697122944_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122699122949_)) - (let ((_e122704122952_ + _tl122696122946_)) + (let ((_e122701122949_ (let () (declare (not safe)) (gx#stx-e - _tl122699122949_)))) - (let ((_tl122702122957_ + _tl122696122946_)))) + (let ((_tl122699122954_ (let () (declare (not safe)) - (##cdr _e122704122952_))) - (_hd122703122955_ + (##cdr _e122701122949_))) + (_hd122700122952_ (let () (declare (not safe)) - (##car _e122704122952_)))) + (##car _e122701122949_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122702122957_)) + _tl122699122954_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl122681122901_)) - (___kont127655127656_ - _hd122703122955_ - _hd122694122931_ - _tl122674122874_ - _arg122680122893_) - (___match127756127757_ - _e122671122864_ - _hd122670122867_ - _tl122669122869_ - _e122683122896_ - _hd122682122899_ - _tl122681122901_ - _e122686122904_ - _hd122685122907_ - _tl122684122909_ - _e122689122912_ - _hd122688122915_ - _tl122687122917_ - _e122692122920_ - _hd122691122923_ - _tl122690122925_ - _e122695122928_ - _hd122694122931_ - _tl122693122933_ - _e122698122936_ - _hd122697122939_ - _tl122696122941_ - _e122701122944_ - _hd122700122947_ - _tl122699122949_ - _e122704122952_ - _hd122703122955_ - _tl122702122957_)) + _tl122678122898_)) + (___kont127652127653_ + _hd122700122952_ + _hd122691122928_ + _tl122671122871_ + _arg122677122890_) + (___match127753127754_ + _e122668122861_ + _hd122667122864_ + _tl122666122866_ + _e122680122893_ + _hd122679122896_ + _tl122678122898_ + _e122683122901_ + _hd122682122904_ + _tl122681122906_ + _e122686122909_ + _hd122685122912_ + _tl122684122914_ + _e122689122917_ + _hd122688122920_ + _tl122687122922_ + _e122692122925_ + _hd122691122928_ + _tl122690122930_ + _e122695122933_ + _hd122694122936_ + _tl122693122938_ + _e122698122941_ + _hd122697122944_ + _tl122696122946_ + _e122701122949_ + _hd122700122952_ + _tl122699122954_)) (let () (declare (not safe)) - (_g122618122742_))))) + (_g122615122739_))))) (let () (declare (not safe)) - (_g122618122742_))) + (_g122615122739_))) (let () (declare (not safe)) - (_g122618122742_))) + (_g122615122739_))) (let () (declare (not safe)) - (_g122618122742_))))) + (_g122615122739_))))) (let () (declare (not safe)) - (_g122618122742_))))) - (let () (declare (not safe)) (_g122618122742_))) - (let () (declare (not safe)) (_g122618122742_))))) + (_g122615122739_))))) + (let () (declare (not safe)) (_g122615122739_))) + (let () (declare (not safe)) (_g122615122739_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122618122742_))) + (_g122615122739_))) (let () (declare (not safe)) - (_g122618122742_))) + (_g122615122739_))) (let () (declare (not safe)) - (_g122618122742_))))) + (_g122615122739_))))) (let () (declare (not safe)) - (_g122618122742_))))) - (let () (declare (not safe)) (_g122618122742_))) - (let () (declare (not safe)) (_g122618122742_))) - (let () (declare (not safe)) (_g122618122742_))))) + (_g122615122739_))))) + (let () (declare (not safe)) (_g122615122739_))) + (let () (declare (not safe)) (_g122615122739_))) + (let () (declare (not safe)) (_g122615122739_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122618122742_))))) + (_g122615122739_))))) (let () (declare (not safe)) - (_g122618122742_)))))))) + (_g122615122739_)))))))) (let () (declare (not safe)) - (_loop122675122877_ _target122672122872_ '()))))) - (___match127674127675_ - (lambda (_e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_) - (letrec ((_loop122629123013_ - (lambda (_hd122627123016_ _arg122633123018_) + (_loop122672122874_ _target122669122869_ '()))))) + (___match127671127672_ + (lambda (_e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_) + (letrec ((_loop122626123010_ + (lambda (_hd122624123013_ _arg122630123015_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122627123016_)) - (let ((_e122630123021_ + (gx#stx-pair? _hd122624123013_)) + (let ((_e122627123018_ (let () (declare (not safe)) - (gx#stx-e _hd122627123016_)))) - (let ((_lp-tl122632123026_ + (gx#stx-e _hd122624123013_)))) + (let ((_lp-tl122629123023_ (let () (declare (not safe)) - (##cdr _e122630123021_))) - (_lp-hd122631123024_ + (##cdr _e122627123018_))) + (_lp-hd122628123021_ (let () (declare (not safe)) - (##car _e122630123021_)))) - (let ((__tmp128913 + (##car _e122627123018_)))) + (let ((__tmp128910 (let () (declare (not safe)) - (cons _lp-hd122631123024_ - _arg122633123018_)))) + (cons _lp-hd122628123021_ + _arg122630123015_)))) (declare (not safe)) - (_loop122629123013_ - _lp-tl122632123026_ - __tmp128913)))) - (let ((_arg122634123029_ - (reverse _arg122633123018_))) + (_loop122626123010_ + _lp-tl122629123023_ + __tmp128910)))) + (let ((_arg122631123026_ + (reverse _arg122630123015_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122623123005_)) - (let ((_e122637123032_ + (gx#stx-pair? _tl122620123002_)) + (let ((_e122634123029_ (let () (declare (not safe)) (gx#stx-e - _tl122623123005_)))) - (let ((_tl122635123037_ + _tl122620123002_)))) + (let ((_tl122632123034_ (let () (declare (not safe)) - (##cdr _e122637123032_))) - (_hd122636123035_ + (##cdr _e122634123029_))) + (_hd122633123032_ (let () (declare (not safe)) - (##car _e122637123032_)))) + (##car _e122634123029_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122636123035_)) - (let ((_e122640123040_ + _hd122633123032_)) + (let ((_e122637123037_ (let () (declare (not safe)) (gx#stx-e - _hd122636123035_)))) - (let ((_tl122638123045_ + _hd122633123032_)))) + (let ((_tl122635123042_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e122640123040_))) - (_hd122639123043_ - (let () (declare (not safe)) (##car _e122640123040_)))) + (##cdr _e122637123037_))) + (_hd122636123040_ + (let () (declare (not safe)) (##car _e122637123037_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122639123043_)) + (gx#identifier? _hd122636123040_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd122639123043_)) + (gx#stx-eq? '%#call _hd122636123040_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122638123045_)) - (let ((_e122643123048_ + (gx#stx-pair? _tl122635123042_)) + (let ((_e122640123045_ (let () (declare (not safe)) - (gx#stx-e _tl122638123045_)))) - (let ((_tl122641123053_ + (gx#stx-e _tl122635123042_)))) + (let ((_tl122638123050_ (let () (declare (not safe)) - (##cdr _e122643123048_))) - (_hd122642123051_ + (##cdr _e122640123045_))) + (_hd122639123048_ (let () (declare (not safe)) - (##car _e122643123048_)))) + (##car _e122640123045_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122642123051_)) - (let ((_e122646123056_ + (gx#stx-pair? _hd122639123048_)) + (let ((_e122643123053_ (let () (declare (not safe)) - (gx#stx-e _hd122642123051_)))) - (let ((_tl122644123061_ + (gx#stx-e _hd122639123048_)))) + (let ((_tl122641123058_ (let () (declare (not safe)) - (##cdr _e122646123056_))) - (_hd122645123059_ + (##cdr _e122643123053_))) + (_hd122642123056_ (let () (declare (not safe)) - (##car _e122646123056_)))) + (##car _e122643123053_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd122645123059_)) + _hd122642123056_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd122645123059_)) + _hd122642123056_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122644123061_)) - (let ((_e122649123064_ + _tl122641123058_)) + (let ((_e122646123061_ (let () (declare (not safe)) (gx#stx-e - _tl122644123061_)))) - (let ((_tl122647123069_ + _tl122641123058_)))) + (let ((_tl122644123066_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e122649123064_))) - (_hd122648123067_ - (let () (declare (not safe)) (##car _e122649123064_)))) + (##cdr _e122646123061_))) + (_hd122645123064_ + (let () (declare (not safe)) (##car _e122646123061_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122647123069_)) + (gx#stx-null? _tl122644123066_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl122641123053_)) - (let ((___splice127653127654_ + (gx#stx-pair/null? _tl122638123050_)) + (let ((___splice127650127651_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl122641123053_ + _tl122638123050_ '0)))) - (let ((_tl122652123074_ + (let ((_tl122649123071_ (let () (declare (not safe)) - (##vector-ref ___splice127653127654_ '1))) - (_target122650123072_ + (##vector-ref ___splice127650127651_ '1))) + (_target122647123069_ (let () (declare (not safe)) - (##vector-ref ___splice127653127654_ '0)))) + (##vector-ref ___splice127650127651_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122652123074_)) - (letrec ((_loop122653123077_ - (lambda (_hd122651123080_ - _xarg122657123082_) + (gx#stx-null? _tl122649123071_)) + (letrec ((_loop122650123074_ + (lambda (_hd122648123077_ + _xarg122654123079_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122651123080_)) - (let ((_e122654123085_ + _hd122648123077_)) + (let ((_e122651123082_ (let () (declare (not safe)) (gx#stx-e - _hd122651123080_)))) - (let ((_lp-tl122656123090_ + _hd122648123077_)))) + (let ((_lp-tl122653123087_ (let () (declare (not safe)) - (##cdr _e122654123085_))) - (_lp-hd122655123088_ + (##cdr _e122651123082_))) + (_lp-hd122652123085_ (let () (declare (not safe)) - (##car _e122654123085_)))) + (##car _e122651123082_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd122655123088_)) - (let ((_e122661123093_ + _lp-hd122652123085_)) + (let ((_e122658123090_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _lp-hd122655123088_)))) - (let ((_tl122659123098_ - (let () (declare (not safe)) (##cdr _e122661123093_))) - (_hd122660123096_ + (gx#stx-e _lp-hd122652123085_)))) + (let ((_tl122656123095_ + (let () (declare (not safe)) (##cdr _e122658123090_))) + (_hd122657123093_ (let () (declare (not safe)) - (##car _e122661123093_)))) + (##car _e122658123090_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122660123096_)) + (gx#identifier? _hd122657123093_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd122660123096_)) + (gx#stx-eq? '%#ref _hd122657123093_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122659123098_)) - (let ((_e122664123101_ + (gx#stx-pair? _tl122656123095_)) + (let ((_e122661123098_ (let () (declare (not safe)) - (gx#stx-e _tl122659123098_)))) - (let ((_tl122662123106_ + (gx#stx-e _tl122656123095_)))) + (let ((_tl122659123103_ (let () (declare (not safe)) - (##cdr _e122664123101_))) - (_hd122663123104_ + (##cdr _e122661123098_))) + (_hd122660123101_ (let () (declare (not safe)) - (##car _e122664123101_)))) + (##car _e122661123098_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122662123106_)) - (let ((__tmp128912 + (gx#stx-null? _tl122659123103_)) + (let ((__tmp128909 (let () (declare (not safe)) - (cons _hd122663123104_ - _xarg122657123082_)))) + (cons _hd122660123101_ + _xarg122654123079_)))) (declare (not safe)) - (_loop122653123077_ - _lp-tl122656123090_ - __tmp128912)) - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_)))) - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_)) - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_)) - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_)))) - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_xarg122658123109_ - (reverse _xarg122657123082_))) + (_loop122650123074_ + _lp-tl122653123087_ + __tmp128909)) + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_)))) + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_)) + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_)) + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_)))) + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg122655123106_ + (reverse _xarg122654123079_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122635123037_)) - (___kont127649127650_ - _xarg122658123109_ - _hd122648123067_ - _arg122634123029_) - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_))))))) + _tl122632123034_)) + (___kont127646127647_ + _xarg122655123106_ + _hd122645123064_ + _arg122631123026_) + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_))))))) (let () (declare (not safe)) - (_loop122653123077_ - _target122650123072_ + (_loop122650123074_ + _target122647123069_ '()))) - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_)))) - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_)) - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_)) - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_)) - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_)))) - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_)))) - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_)) - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_)) - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_)))) - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_))))))) + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_)))) + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_)) + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_)) + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_)) + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_)))) + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_)))) + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_)) + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_)) + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_)))) + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_))))))) (let () (declare (not safe)) - (_loop122629123013_ _target122626123008_ '())))))) + (_loop122626123010_ _target122623123005_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127647127648_)) - (let ((_e122625123000_ + (gx#stx-pair? ___stx127644127645_)) + (let ((_e122622122997_ (let () (declare (not safe)) - (gx#stx-e ___stx127647127648_)))) - (let ((_tl122623123005_ + (gx#stx-e ___stx127644127645_)))) + (let ((_tl122620123002_ (let () (declare (not safe)) - (##cdr _e122625123000_))) - (_hd122624123003_ + (##cdr _e122622122997_))) + (_hd122621123000_ (let () (declare (not safe)) - (##car _e122625123000_)))) + (##car _e122622122997_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd122624123003_)) - (let ((___splice127651127652_ + (gx#stx-pair/null? _hd122621123000_)) + (let ((___splice127648127649_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd122624123003_ + _hd122621123000_ '0)))) - (let ((_tl122628123010_ + (let ((_tl122625123007_ (let () (declare (not safe)) - (##vector-ref ___splice127651127652_ '1))) - (_target122626123008_ + (##vector-ref ___splice127648127649_ '1))) + (_target122623123005_ (let () (declare (not safe)) (##vector-ref - ___splice127651127652_ + ___splice127648127649_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122628123010_)) - (___match127674127675_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_) - (___match127686127687_ - _e122625123000_ - _hd122624123003_ - _tl122623123005_ - ___splice127651127652_ - _target122626123008_ - _tl122628123010_)))) + (gx#stx-null? _tl122625123007_)) + (___match127671127672_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_) + (___match127683127684_ + _e122622122997_ + _hd122621123000_ + _tl122620123002_ + ___splice127648127649_ + _target122623123005_ + _tl122625123007_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122623123005_)) - (let ((_e122713122755_ + (gx#stx-pair? _tl122620123002_)) + (let ((_e122710122752_ (let () (declare (not safe)) - (gx#stx-e _tl122623123005_)))) - (let ((_tl122711122760_ + (gx#stx-e _tl122620123002_)))) + (let ((_tl122708122757_ (let () (declare (not safe)) - (##cdr _e122713122755_))) - (_hd122712122758_ + (##cdr _e122710122752_))) + (_hd122709122755_ (let () (declare (not safe)) - (##car _e122713122755_)))) + (##car _e122710122752_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122712122758_)) - (let ((_e122716122763_ + (gx#stx-pair? _hd122709122755_)) + (let ((_e122713122760_ (let () (declare (not safe)) - (gx#stx-e _hd122712122758_)))) - (let ((_tl122714122768_ + (gx#stx-e _hd122709122755_)))) + (let ((_tl122711122765_ (let () (declare (not safe)) - (##cdr _e122716122763_))) - (_hd122715122766_ + (##cdr _e122713122760_))) + (_hd122712122763_ (let () (declare (not safe)) - (##car _e122716122763_)))) + (##car _e122713122760_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd122715122766_)) + _hd122712122763_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd122715122766_)) + _hd122712122763_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122714122768_)) - (let ((_e122719122771_ + _tl122711122765_)) + (let ((_e122716122768_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl122714122768_)))) - (let ((_tl122717122776_ - (let () (declare (not safe)) (##cdr _e122719122771_))) - (_hd122718122774_ - (let () (declare (not safe)) (##car _e122719122771_)))) + (gx#stx-e _tl122711122765_)))) + (let ((_tl122714122773_ + (let () (declare (not safe)) (##cdr _e122716122768_))) + (_hd122715122771_ + (let () (declare (not safe)) (##car _e122716122768_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122718122774_)) - (let ((_e122722122779_ + (gx#stx-pair? _hd122715122771_)) + (let ((_e122719122776_ (let () (declare (not safe)) - (gx#stx-e _hd122718122774_)))) - (let ((_tl122720122784_ + (gx#stx-e _hd122715122771_)))) + (let ((_tl122717122781_ (let () (declare (not safe)) - (##cdr _e122722122779_))) - (_hd122721122782_ + (##cdr _e122719122776_))) + (_hd122718122779_ (let () (declare (not safe)) - (##car _e122722122779_)))) + (##car _e122719122776_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122721122782_)) + (gx#identifier? _hd122718122779_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd122721122782_)) + (gx#stx-eq? '%#ref _hd122718122779_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122720122784_)) - (let ((_e122725122787_ + (gx#stx-pair? _tl122717122781_)) + (let ((_e122722122784_ (let () (declare (not safe)) - (gx#stx-e _tl122720122784_)))) - (let ((_tl122723122792_ + (gx#stx-e _tl122717122781_)))) + (let ((_tl122720122789_ (let () (declare (not safe)) - (##cdr _e122725122787_))) - (_hd122724122790_ + (##cdr _e122722122784_))) + (_hd122721122787_ (let () (declare (not safe)) - (##car _e122725122787_)))) + (##car _e122722122784_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122723122792_)) + _tl122720122789_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122717122776_)) - (let ((_e122728122795_ + _tl122714122773_)) + (let ((_e122725122792_ (let () (declare (not safe)) (gx#stx-e - _tl122717122776_)))) - (let ((_tl122726122800_ + _tl122714122773_)))) + (let ((_tl122723122797_ (let () (declare (not safe)) - (##cdr _e122728122795_))) - (_hd122727122798_ + (##cdr _e122725122792_))) + (_hd122724122795_ (let () (declare (not safe)) - (##car _e122728122795_)))) + (##car _e122725122792_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122727122798_)) - (let ((_e122731122803_ + _hd122724122795_)) + (let ((_e122728122800_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd122727122798_)))) - (let ((_tl122729122808_ + (gx#stx-e _hd122724122795_)))) + (let ((_tl122726122805_ (let () (declare (not safe)) - (##cdr _e122731122803_))) - (_hd122730122806_ + (##cdr _e122728122800_))) + (_hd122727122803_ (let () (declare (not safe)) - (##car _e122731122803_)))) + (##car _e122728122800_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122730122806_)) + (gx#identifier? _hd122727122803_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd122730122806_)) + (gx#stx-eq? '%#ref _hd122727122803_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122729122808_)) - (let ((_e122734122811_ + (gx#stx-pair? _tl122726122805_)) + (let ((_e122731122808_ (let () (declare (not safe)) - (gx#stx-e _tl122729122808_)))) - (let ((_tl122732122816_ + (gx#stx-e _tl122726122805_)))) + (let ((_tl122729122813_ (let () (declare (not safe)) - (##cdr _e122734122811_))) - (_hd122733122814_ + (##cdr _e122731122808_))) + (_hd122730122811_ (let () (declare (not safe)) - (##car _e122734122811_)))) + (##car _e122731122808_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122732122816_)) + (gx#stx-null? _tl122729122813_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122726122800_)) - (let ((_e122737122819_ + _tl122723122797_)) + (let ((_e122734122816_ (let () (declare (not safe)) (gx#stx-e - _tl122726122800_)))) - (let ((_tl122735122824_ + _tl122723122797_)))) + (let ((_tl122732122821_ (let () (declare (not safe)) - (##cdr _e122737122819_))) - (_hd122736122822_ + (##cdr _e122734122816_))) + (_hd122733122819_ (let () (declare (not safe)) - (##car _e122737122819_)))) + (##car _e122734122816_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122735122824_)) + _tl122732122821_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl122711122760_)) - (___kont127659127660_ - _hd122733122814_ - _hd122724122790_ - _hd122624123003_) + _tl122708122757_)) + (___kont127656127657_ + _hd122730122811_ + _hd122721122787_ + _hd122621123000_) (let () (declare (not safe)) - (_g122618122742_))) + (_g122615122739_))) (let () (declare (not safe)) - (_g122618122742_))))) + (_g122615122739_))))) (let () (declare (not safe)) - (_g122618122742_))) + (_g122615122739_))) (let () (declare (not safe)) - (_g122618122742_))))) + (_g122615122739_))))) (let () (declare (not safe)) - (_g122618122742_))) - (let () (declare (not safe)) (_g122618122742_))) - (let () (declare (not safe)) (_g122618122742_))))) - (let () (declare (not safe)) (_g122618122742_))))) + (_g122615122739_))) + (let () (declare (not safe)) (_g122615122739_))) + (let () (declare (not safe)) (_g122615122739_))))) + (let () (declare (not safe)) (_g122615122739_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122618122742_))) + (_g122615122739_))) (let () (declare (not safe)) - (_g122618122742_))))) + (_g122615122739_))))) (let () (declare (not safe)) - (_g122618122742_))) + (_g122615122739_))) (let () (declare (not safe)) - (_g122618122742_))) + (_g122615122739_))) (let () (declare (not safe)) - (_g122618122742_))))) - (let () (declare (not safe)) (_g122618122742_))))) - (let () (declare (not safe)) (_g122618122742_))) + (_g122615122739_))))) + (let () (declare (not safe)) (_g122615122739_))))) + (let () (declare (not safe)) (_g122615122739_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122618122742_))) + (_g122615122739_))) (let () (declare (not safe)) - (_g122618122742_))))) + (_g122615122739_))))) (let () (declare (not safe)) - (_g122618122742_))))) + (_g122615122739_))))) (let () (declare (not safe)) - (_g122618122742_)))))) - (let () (declare (not safe)) (_g122618122742_)))))))) + (_g122615122739_)))))) + (let () (declare (not safe)) (_g122615122739_)))))))) (define gxc#lambda-form-arity - (lambda (_form122418_) - (let* ((_g122420122434_ - (lambda (_g122421122431_) + (lambda (_form122415_) + (let* ((_g122417122431_ + (lambda (_g122418122428_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g122421122431_)))) - (_g122419122611_ - (lambda (_g122421122437_) + _g122418122428_)))) + (_g122416122608_ + (lambda (_g122418122434_) (if (let () (declare (not safe)) - (gx#stx-pair? _g122421122437_)) - (let ((_e122426122439_ + (gx#stx-pair? _g122418122434_)) + (let ((_e122423122436_ (let () (declare (not safe)) - (gx#stx-e _g122421122437_)))) - (let ((_hd122425122442_ + (gx#stx-e _g122418122434_)))) + (let ((_hd122422122439_ (let () (declare (not safe)) - (##car _e122426122439_))) - (_tl122424122444_ + (##car _e122423122436_))) + (_tl122421122441_ (let () (declare (not safe)) - (##cdr _e122426122439_)))) + (##cdr _e122423122436_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122424122444_)) - (let ((_e122429122447_ + (gx#stx-pair? _tl122421122441_)) + (let ((_e122426122444_ (let () (declare (not safe)) - (gx#stx-e _tl122424122444_)))) - (let ((_hd122428122450_ + (gx#stx-e _tl122421122441_)))) + (let ((_hd122425122447_ (let () (declare (not safe)) - (##car _e122429122447_))) - (_tl122427122452_ + (##car _e122426122444_))) + (_tl122424122449_ (let () (declare (not safe)) - (##cdr _e122429122447_)))) + (##cdr _e122426122444_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122427122452_)) - ((lambda (_L122455_ _L122456_) - (let* ((___stx127769127770_ _L122456_) - (_g122471122499_ + (gx#stx-null? _tl122424122449_)) + ((lambda (_L122452_ _L122453_) + (let* ((___stx127766127767_ _L122453_) + (_g122468122496_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127769127770_))))) - (let ((___kont127771127772_ - (lambda (_L122590_) - (length (let ((__tmp128914 + ___stx127766127767_))))) + (let ((___kont127768127769_ + (lambda (_L122587_) + (length (let ((__tmp128911 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g122600122603_ _g122601122605_) + (lambda (_g122597122600_ _g122598122602_) (let () (declare (not safe)) - (cons _g122600122603_ _g122601122605_))))) + (cons _g122597122600_ _g122598122602_))))) (declare (not safe)) - (foldr1 __tmp128914 '() _L122590_))))) + (foldr1 __tmp128911 '() _L122587_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127775127776_ - (lambda (_L122541_ _L122542_) - (let ((__tmp128915 - (length (let ((__tmp128916 + (___kont127772127773_ + (lambda (_L122538_ _L122539_) + (let ((__tmp128912 + (length (let ((__tmp128913 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g122553122556_ _g122554122558_) + (lambda (_g122550122553_ _g122551122555_) (let () (declare (not safe)) - (cons _g122553122556_ - _g122554122558_))))) + (cons _g122550122553_ + _g122551122555_))))) (declare (not safe)) - (foldr1 __tmp128916 '() _L122542_))))) + (foldr1 __tmp128913 '() _L122539_))))) (declare (not safe)) - (cons __tmp128915 '())))) + (cons __tmp128912 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127779127780_ - (lambda (_L122504_) + (___kont127776127777_ + (lambda (_L122501_) (let () (declare (not safe)) (cons '0 '()))))) - (let* ((___match127794127795_ - (lambda (___splice127777127778_ - _target122485122517_ - _tl122487122519_) - (letrec ((_loop122488122522_ + (let* ((___match127791127792_ + (lambda (___splice127774127775_ + _target122482122514_ + _tl122484122516_) + (letrec ((_loop122485122519_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd122486122525_ _arg122492122527_) + (lambda (_hd122483122522_ _arg122489122524_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122486122525_)) - (let ((_e122489122530_ + (gx#stx-pair? _hd122483122522_)) + (let ((_e122486122527_ (let () (declare (not safe)) - (gx#stx-e _hd122486122525_)))) - (let ((_lp-tl122491122535_ + (gx#stx-e _hd122483122522_)))) + (let ((_lp-tl122488122532_ (let () (declare (not safe)) - (##cdr _e122489122530_))) - (_lp-hd122490122533_ + (##cdr _e122486122527_))) + (_lp-hd122487122530_ (let () (declare (not safe)) - (##car _e122489122530_)))) - (let ((__tmp128917 + (##car _e122486122527_)))) + (let ((__tmp128914 (let () (declare (not safe)) - (cons _lp-hd122490122533_ - _arg122492122527_)))) + (cons _lp-hd122487122530_ + _arg122489122524_)))) (declare (not safe)) - (_loop122488122522_ - _lp-tl122491122535_ - __tmp128917)))) - (let ((_arg122493122538_ - (reverse _arg122492122527_))) - (___kont127775127776_ - _tl122487122519_ - _arg122493122538_)))))) + (_loop122485122519_ + _lp-tl122488122532_ + __tmp128914)))) + (let ((_arg122490122535_ + (reverse _arg122489122524_))) + (___kont127772127773_ + _tl122484122516_ + _arg122490122535_)))))) (let () (declare (not safe)) - (_loop122488122522_ _target122485122517_ '()))))) + (_loop122485122519_ _target122482122514_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127788127789_ - (lambda (___splice127773127774_ - _target122474122566_ - _tl122476122568_) - (letrec ((_loop122477122571_ + (___match127785127786_ + (lambda (___splice127770127771_ + _target122471122563_ + _tl122473122565_) + (letrec ((_loop122474122568_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd122475122574_ _arg122481122576_) + (lambda (_hd122472122571_ _arg122478122573_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122475122574_)) - (let ((_e122478122579_ + (gx#stx-pair? _hd122472122571_)) + (let ((_e122475122576_ (let () (declare (not safe)) - (gx#stx-e _hd122475122574_)))) - (let ((_lp-tl122480122584_ + (gx#stx-e _hd122472122571_)))) + (let ((_lp-tl122477122581_ (let () (declare (not safe)) - (##cdr _e122478122579_))) - (_lp-hd122479122582_ + (##cdr _e122475122576_))) + (_lp-hd122476122579_ (let () (declare (not safe)) - (##car _e122478122579_)))) - (let ((__tmp128918 + (##car _e122475122576_)))) + (let ((__tmp128915 (let () (declare (not safe)) - (cons _lp-hd122479122582_ - _arg122481122576_)))) + (cons _lp-hd122476122579_ + _arg122478122573_)))) (declare (not safe)) - (_loop122477122571_ - _lp-tl122480122584_ - __tmp128918)))) - (let ((_arg122482122587_ - (reverse _arg122481122576_))) - (___kont127771127772_ _arg122482122587_)))))) + (_loop122474122568_ + _lp-tl122477122581_ + __tmp128915)))) + (let ((_arg122479122584_ + (reverse _arg122478122573_))) + (___kont127768127769_ _arg122479122584_)))))) (let () (declare (not safe)) - (_loop122477122571_ _target122474122566_ '())))))) + (_loop122474122568_ _target122471122563_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - ___stx127769127770_)) - (let ((___splice127773127774_ + ___stx127766127767_)) + (let ((___splice127770127771_ (let () (declare (not safe)) (gx#syntax-split-splice - ___stx127769127770_ + ___stx127766127767_ '0)))) - (let ((_tl122476122568_ + (let ((_tl122473122565_ (let () (declare (not safe)) (##vector-ref - ___splice127773127774_ + ___splice127770127771_ '1))) - (_target122474122566_ + (_target122471122563_ (let () (declare (not safe)) (##vector-ref - ___splice127773127774_ + ___splice127770127771_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122476122568_)) - (___match127788127789_ - ___splice127773127774_ - _target122474122566_ - _tl122476122568_) - (___match127794127795_ - ___splice127773127774_ - _target122474122566_ - _tl122476122568_)))) - (___kont127779127780_ - ___stx127769127770_)))))) - _hd122428122450_ - _hd122425122442_) + _tl122473122565_)) + (___match127785127786_ + ___splice127770127771_ + _target122471122563_ + _tl122473122565_) + (___match127791127792_ + ___splice127770127771_ + _target122471122563_ + _tl122473122565_)))) + (___kont127776127777_ + ___stx127766127767_)))))) + _hd122425122447_ + _hd122422122439_) (let () (declare (not safe)) - (_g122420122434_ _g122421122437_))))) + (_g122417122431_ _g122418122434_))))) (let () (declare (not safe)) - (_g122420122434_ _g122421122437_))))) + (_g122417122431_ _g122418122434_))))) (let () (declare (not safe)) - (_g122420122434_ _g122421122437_)))))) + (_g122417122431_ _g122418122434_)))))) (declare (not safe)) - (_g122419122611_ _form122418_)))) + (_g122416122608_ _form122415_)))) (define gxc#lambda-expr? - (lambda (_expr122371_) - (let* ((___stx127797127798_ _expr122371_) - (_g122374122384_ + (lambda (_expr122368_) + (let* ((___stx127794127795_ _expr122368_) + (_g122371122381_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127797127798_))))) - (let ((___kont127799127800_ (lambda (_L122404_) '#t)) - (___kont127801127802_ (lambda () '#f))) + ___stx127794127795_))))) + (let ((___kont127796127797_ (lambda (_L122401_) '#t)) + (___kont127798127799_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127797127798_)) - (let ((_e122379122396_ + (gx#stx-pair? ___stx127794127795_)) + (let ((_e122376122393_ (let () (declare (not safe)) - (gx#stx-e ___stx127797127798_)))) - (let ((_tl122377122401_ - (let () (declare (not safe)) (##cdr _e122379122396_))) - (_hd122378122399_ + (gx#stx-e ___stx127794127795_)))) + (let ((_tl122374122398_ + (let () (declare (not safe)) (##cdr _e122376122393_))) + (_hd122375122396_ (let () (declare (not safe)) - (##car _e122379122396_)))) + (##car _e122376122393_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122378122399_)) + (gx#identifier? _hd122375122396_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd122378122399_)) - (___kont127799127800_ _tl122377122401_) - (___kont127801127802_)) - (___kont127801127802_)))) - (___kont127801127802_)))))) + (gx#stx-eq? '%#lambda _hd122375122396_)) + (___kont127796127797_ _tl122374122398_) + (___kont127798127799_)) + (___kont127798127799_)))) + (___kont127798127799_)))))) (define gxc#case-lambda-expr? - (lambda (_expr122324_) - (let* ((___stx127815127816_ _expr122324_) - (_g122327122337_ + (lambda (_expr122321_) + (let* ((___stx127812127813_ _expr122321_) + (_g122324122334_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127815127816_))))) - (let ((___kont127817127818_ (lambda (_L122357_) '#t)) - (___kont127819127820_ (lambda () '#f))) + ___stx127812127813_))))) + (let ((___kont127814127815_ (lambda (_L122354_) '#t)) + (___kont127816127817_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127815127816_)) - (let ((_e122332122349_ + (gx#stx-pair? ___stx127812127813_)) + (let ((_e122329122346_ (let () (declare (not safe)) - (gx#stx-e ___stx127815127816_)))) - (let ((_tl122330122354_ - (let () (declare (not safe)) (##cdr _e122332122349_))) - (_hd122331122352_ + (gx#stx-e ___stx127812127813_)))) + (let ((_tl122327122351_ + (let () (declare (not safe)) (##cdr _e122329122346_))) + (_hd122328122349_ (let () (declare (not safe)) - (##car _e122332122349_)))) + (##car _e122329122346_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122331122352_)) + (gx#identifier? _hd122328122349_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#case-lambda _hd122331122352_)) - (___kont127817127818_ _tl122330122354_) - (___kont127819127820_)) - (___kont127819127820_)))) - (___kont127819127820_)))))) + (gx#stx-eq? '%#case-lambda _hd122328122349_)) + (___kont127814127815_ _tl122327122351_) + (___kont127816127817_)) + (___kont127816127817_)))) + (___kont127816127817_)))))) (define gxc#opt-lambda-expr? - (lambda (_expr122193_) - (let* ((___stx127833127834_ _expr122193_) - (_g122196122226_ + (lambda (_expr122190_) + (let* ((___stx127830127831_ _expr122190_) + (_g122193122223_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127833127834_))))) - (let ((___kont127835127836_ - (lambda (_L122294_ _L122295_ _L122296_) - (if (let () (declare (not safe)) (gx#identifier? _L122296_)) + ___stx127830127831_))))) + (let ((___kont127832127833_ + (lambda (_L122291_ _L122292_ _L122293_) + (if (let () (declare (not safe)) (gx#identifier? _L122293_)) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L122295_)) + (gxc#lambda-expr? _L122292_)) (let () (declare (not safe)) - (gxc#case-lambda-expr? _L122294_)) + (gxc#case-lambda-expr? _L122291_)) '#f) '#f))) - (___kont127837127838_ (lambda () '#f))) + (___kont127834127835_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127833127834_)) - (let ((_e122203122238_ + (gx#stx-pair? ___stx127830127831_)) + (let ((_e122200122235_ (let () (declare (not safe)) - (gx#stx-e ___stx127833127834_)))) - (let ((_tl122201122243_ - (let () (declare (not safe)) (##cdr _e122203122238_))) - (_hd122202122241_ + (gx#stx-e ___stx127830127831_)))) + (let ((_tl122198122240_ + (let () (declare (not safe)) (##cdr _e122200122235_))) + (_hd122199122238_ (let () (declare (not safe)) - (##car _e122203122238_)))) + (##car _e122200122235_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122202122241_)) + (gx#identifier? _hd122199122238_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd122202122241_)) + (gx#stx-eq? '%#let-values _hd122199122238_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122201122243_)) - (let ((_e122206122246_ + (gx#stx-pair? _tl122198122240_)) + (let ((_e122203122243_ (let () (declare (not safe)) - (gx#stx-e _tl122201122243_)))) - (let ((_tl122204122251_ + (gx#stx-e _tl122198122240_)))) + (let ((_tl122201122248_ (let () (declare (not safe)) - (##cdr _e122206122246_))) - (_hd122205122249_ + (##cdr _e122203122243_))) + (_hd122202122246_ (let () (declare (not safe)) - (##car _e122206122246_)))) + (##car _e122203122243_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122205122249_)) - (let ((_e122209122254_ + (gx#stx-pair? _hd122202122246_)) + (let ((_e122206122251_ (let () (declare (not safe)) - (gx#stx-e _hd122205122249_)))) - (let ((_tl122207122259_ + (gx#stx-e _hd122202122246_)))) + (let ((_tl122204122256_ (let () (declare (not safe)) - (##cdr _e122209122254_))) - (_hd122208122257_ + (##cdr _e122206122251_))) + (_hd122205122254_ (let () (declare (not safe)) - (##car _e122209122254_)))) + (##car _e122206122251_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122208122257_)) - (let ((_e122212122262_ + _hd122205122254_)) + (let ((_e122209122259_ (let () (declare (not safe)) (gx#stx-e - _hd122208122257_)))) - (let ((_tl122210122267_ + _hd122205122254_)))) + (let ((_tl122207122264_ (let () (declare (not safe)) - (##cdr _e122212122262_))) - (_hd122211122265_ + (##cdr _e122209122259_))) + (_hd122208122262_ (let () (declare (not safe)) - (##car _e122212122262_)))) + (##car _e122209122259_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122211122265_)) - (let ((_e122215122270_ + _hd122208122262_)) + (let ((_e122212122267_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd122211122265_)))) - (let ((_tl122213122275_ - (let () (declare (not safe)) (##cdr _e122215122270_))) - (_hd122214122273_ + (gx#stx-e _hd122208122262_)))) + (let ((_tl122210122272_ + (let () (declare (not safe)) (##cdr _e122212122267_))) + (_hd122211122270_ (let () (declare (not safe)) - (##car _e122215122270_)))) + (##car _e122212122267_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122213122275_)) + (gx#stx-null? _tl122210122272_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122210122267_)) - (let ((_e122218122278_ + (gx#stx-pair? _tl122207122264_)) + (let ((_e122215122275_ (let () (declare (not safe)) - (gx#stx-e _tl122210122267_)))) - (let ((_tl122216122283_ + (gx#stx-e _tl122207122264_)))) + (let ((_tl122213122280_ (let () (declare (not safe)) - (##cdr _e122218122278_))) - (_hd122217122281_ + (##cdr _e122215122275_))) + (_hd122214122278_ (let () (declare (not safe)) - (##car _e122218122278_)))) + (##car _e122215122275_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122216122283_)) + (gx#stx-null? _tl122213122280_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl122207122259_)) + (gx#stx-null? _tl122204122256_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122204122251_)) - (let ((_e122221122286_ + (gx#stx-pair? _tl122201122248_)) + (let ((_e122218122283_ (let () (declare (not safe)) (gx#stx-e - _tl122204122251_)))) - (let ((_tl122219122291_ + _tl122201122248_)))) + (let ((_tl122216122288_ (let () (declare (not safe)) - (##cdr _e122221122286_))) - (_hd122220122289_ + (##cdr _e122218122283_))) + (_hd122217122286_ (let () (declare (not safe)) - (##car _e122221122286_)))) + (##car _e122218122283_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122219122291_)) - (___kont127835127836_ - _hd122220122289_ - _hd122217122281_ - _hd122214122273_) - (___kont127837127838_)))) - (___kont127837127838_)) - (___kont127837127838_)) - (___kont127837127838_)))) - (___kont127837127838_)) - (___kont127837127838_)))) - (___kont127837127838_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127837127838_)))) - (___kont127837127838_)))) - (___kont127837127838_)) - (___kont127837127838_)) - (___kont127837127838_)))) - (___kont127837127838_)))))) + _tl122216122288_)) + (___kont127832127833_ + _hd122217122286_ + _hd122214122278_ + _hd122211122270_) + (___kont127834127835_)))) + (___kont127834127835_)) + (___kont127834127835_)) + (___kont127834127835_)))) + (___kont127834127835_)) + (___kont127834127835_)))) + (___kont127834127835_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127834127835_)))) + (___kont127834127835_)))) + (___kont127834127835_)) + (___kont127834127835_)) + (___kont127834127835_)))) + (___kont127834127835_)))))) (define gxc#kw-lambda-expr? - (lambda (_expr121518_) - (let* ((___stx127895127896_ _expr121518_) - (_g121521121679_ + (lambda (_expr121515_) + (let* ((___stx127892127893_ _expr121515_) + (_g121518121676_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127895127896_))))) - (let ((___kont127897127898_ - (lambda (_L122067_ + ___stx127892127893_))))) + (let ((___kont127894127895_ + (lambda (_L122064_ + _L122065_ + _L122066_ + _L122067_ _L122068_ _L122069_ _L122070_ _L122071_ _L122072_ _L122073_ - _L122074_ - _L122075_ - _L122076_ - _L122077_) + _L122074_) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _L122074_ 'apply)) + (gxc#runtime-identifier=? _L122071_ 'apply)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _L122070_ 'apply)) + (gxc#runtime-identifier=? _L122067_ 'apply)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L122069_ + _L122066_ 'keyword-dispatch)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L122077_ - _L122068_)) + _L122074_ + _L122065_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L122076_ - _L122073_)) + _L122073_ + _L122070_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L122071_ - _L122067_)) + _L122068_ + _L122064_)) (let () (declare (not safe)) (gx#free-identifier=? - _L122075_ - _L122072_)) + _L122072_ + _L122069_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (___kont127899127900_ (lambda () '#f))) + (___kont127896127897_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127895127896_)) - (let ((_e121536121691_ + (gx#stx-pair? ___stx127892127893_)) + (let ((_e121533121688_ (let () (declare (not safe)) - (gx#stx-e ___stx127895127896_)))) - (let ((_tl121534121696_ - (let () (declare (not safe)) (##cdr _e121536121691_))) - (_hd121535121694_ + (gx#stx-e ___stx127892127893_)))) + (let ((_tl121531121693_ + (let () (declare (not safe)) (##cdr _e121533121688_))) + (_hd121532121691_ (let () (declare (not safe)) - (##car _e121536121691_)))) + (##car _e121533121688_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121535121694_)) + (gx#identifier? _hd121532121691_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd121535121694_)) + (gx#stx-eq? '%#let-values _hd121532121691_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121534121696_)) - (let ((_e121539121699_ + (gx#stx-pair? _tl121531121693_)) + (let ((_e121536121696_ (let () (declare (not safe)) - (gx#stx-e _tl121534121696_)))) - (let ((_tl121537121704_ + (gx#stx-e _tl121531121693_)))) + (let ((_tl121534121701_ (let () (declare (not safe)) - (##cdr _e121539121699_))) - (_hd121538121702_ + (##cdr _e121536121696_))) + (_hd121535121699_ (let () (declare (not safe)) - (##car _e121539121699_)))) + (##car _e121536121696_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121538121702_)) - (let ((_e121542121707_ + (gx#stx-pair? _hd121535121699_)) + (let ((_e121539121704_ (let () (declare (not safe)) - (gx#stx-e _hd121538121702_)))) - (let ((_tl121540121712_ + (gx#stx-e _hd121535121699_)))) + (let ((_tl121537121709_ (let () (declare (not safe)) - (##cdr _e121542121707_))) - (_hd121541121710_ + (##cdr _e121539121704_))) + (_hd121538121707_ (let () (declare (not safe)) - (##car _e121542121707_)))) + (##car _e121539121704_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121541121710_)) - (let ((_e121545121715_ + _hd121538121707_)) + (let ((_e121542121712_ (let () (declare (not safe)) (gx#stx-e - _hd121541121710_)))) - (let ((_tl121543121720_ + _hd121538121707_)))) + (let ((_tl121540121717_ (let () (declare (not safe)) - (##cdr _e121545121715_))) - (_hd121544121718_ + (##cdr _e121542121712_))) + (_hd121541121715_ (let () (declare (not safe)) - (##car _e121545121715_)))) + (##car _e121542121712_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121544121718_)) - (let ((_e121548121723_ + _hd121541121715_)) + (let ((_e121545121720_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd121544121718_)))) - (let ((_tl121546121728_ - (let () (declare (not safe)) (##cdr _e121548121723_))) - (_hd121547121726_ + (gx#stx-e _hd121541121715_)))) + (let ((_tl121543121725_ + (let () (declare (not safe)) (##cdr _e121545121720_))) + (_hd121544121723_ (let () (declare (not safe)) - (##car _e121548121723_)))) + (##car _e121545121720_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121546121728_)) + (gx#stx-null? _tl121543121725_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121543121720_)) - (let ((_e121551121731_ + (gx#stx-pair? _tl121540121717_)) + (let ((_e121548121728_ (let () (declare (not safe)) - (gx#stx-e _tl121543121720_)))) - (let ((_tl121549121736_ + (gx#stx-e _tl121540121717_)))) + (let ((_tl121546121733_ (let () (declare (not safe)) - (##cdr _e121551121731_))) - (_hd121550121734_ + (##cdr _e121548121728_))) + (_hd121547121731_ (let () (declare (not safe)) - (##car _e121551121731_)))) + (##car _e121548121728_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121550121734_)) - (let ((_e121554121739_ + (gx#stx-pair? _hd121547121731_)) + (let ((_e121551121736_ (let () (declare (not safe)) - (gx#stx-e _hd121550121734_)))) - (let ((_tl121552121744_ + (gx#stx-e _hd121547121731_)))) + (let ((_tl121549121741_ (let () (declare (not safe)) - (##cdr _e121554121739_))) - (_hd121553121742_ + (##cdr _e121551121736_))) + (_hd121550121739_ (let () (declare (not safe)) - (##car _e121554121739_)))) + (##car _e121551121736_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd121553121742_)) + _hd121550121739_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd121553121742_)) + _hd121550121739_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121552121744_)) - (let ((_e121557121747_ + _tl121549121741_)) + (let ((_e121554121744_ (let () (declare (not safe)) (gx#stx-e - _tl121552121744_)))) - (let ((_tl121555121752_ + _tl121549121741_)))) + (let ((_tl121552121749_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e121557121747_))) - (_hd121556121750_ - (let () (declare (not safe)) (##car _e121557121747_)))) + (##cdr _e121554121744_))) + (_hd121553121747_ + (let () (declare (not safe)) (##car _e121554121744_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121556121750_)) - (let ((_e121560121755_ + (gx#stx-pair? _hd121553121747_)) + (let ((_e121557121752_ (let () (declare (not safe)) - (gx#stx-e _hd121556121750_)))) - (let ((_tl121558121760_ + (gx#stx-e _hd121553121747_)))) + (let ((_tl121555121757_ (let () (declare (not safe)) - (##cdr _e121560121755_))) - (_hd121559121758_ + (##cdr _e121557121752_))) + (_hd121556121755_ (let () (declare (not safe)) - (##car _e121560121755_)))) + (##car _e121557121752_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121559121758_)) - (let ((_e121563121763_ + (gx#stx-pair? _hd121556121755_)) + (let ((_e121560121760_ (let () (declare (not safe)) - (gx#stx-e _hd121559121758_)))) - (let ((_tl121561121768_ + (gx#stx-e _hd121556121755_)))) + (let ((_tl121558121765_ (let () (declare (not safe)) - (##cdr _e121563121763_))) - (_hd121562121766_ + (##cdr _e121560121760_))) + (_hd121559121763_ (let () (declare (not safe)) - (##car _e121563121763_)))) + (##car _e121560121760_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121562121766_)) - (let ((_e121566121771_ + (gx#stx-pair? _hd121559121763_)) + (let ((_e121563121768_ (let () (declare (not safe)) - (gx#stx-e _hd121562121766_)))) - (let ((_tl121564121776_ + (gx#stx-e _hd121559121763_)))) + (let ((_tl121561121773_ (let () (declare (not safe)) - (##cdr _e121566121771_))) - (_hd121565121774_ + (##cdr _e121563121768_))) + (_hd121562121771_ (let () (declare (not safe)) - (##car _e121566121771_)))) + (##car _e121563121768_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121564121776_)) + (gx#stx-null? _tl121561121773_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121561121768_)) - (let ((_e121569121779_ + _tl121558121765_)) + (let ((_e121566121776_ (let () (declare (not safe)) (gx#stx-e - _tl121561121768_)))) - (let ((_tl121567121784_ + _tl121558121765_)))) + (let ((_tl121564121781_ (let () (declare (not safe)) - (##cdr _e121569121779_))) - (_hd121568121782_ + (##cdr _e121566121776_))) + (_hd121565121779_ (let () (declare (not safe)) - (##car _e121569121779_)))) + (##car _e121566121776_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121567121784_)) + _tl121564121781_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121558121760_)) + _tl121555121757_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl121555121752_)) - (let ((_e121572121787_ + (gx#stx-pair? _tl121552121749_)) + (let ((_e121569121784_ (let () (declare (not safe)) - (gx#stx-e _tl121555121752_)))) - (let ((_tl121570121792_ + (gx#stx-e _tl121552121749_)))) + (let ((_tl121567121789_ (let () (declare (not safe)) - (##cdr _e121572121787_))) - (_hd121571121790_ + (##cdr _e121569121784_))) + (_hd121568121787_ (let () (declare (not safe)) - (##car _e121572121787_)))) + (##car _e121569121784_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121571121790_)) - (let ((_e121575121795_ + (gx#stx-pair? _hd121568121787_)) + (let ((_e121572121792_ (let () (declare (not safe)) - (gx#stx-e _hd121571121790_)))) - (let ((_tl121573121800_ + (gx#stx-e _hd121568121787_)))) + (let ((_tl121570121797_ (let () (declare (not safe)) - (##cdr _e121575121795_))) - (_hd121574121798_ + (##cdr _e121572121792_))) + (_hd121571121795_ (let () (declare (not safe)) - (##car _e121575121795_)))) + (##car _e121572121792_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121574121798_)) + (gx#identifier? _hd121571121795_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd121574121798_)) + _hd121571121795_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121573121800_)) - (let ((_e121578121803_ + _tl121570121797_)) + (let ((_e121575121800_ (let () (declare (not safe)) (gx#stx-e - _tl121573121800_)))) - (let ((_tl121576121808_ + _tl121570121797_)))) + (let ((_tl121573121805_ (let () (declare (not safe)) - (##cdr _e121578121803_))) - (_hd121577121806_ + (##cdr _e121575121800_))) + (_hd121574121803_ (let () (declare (not safe)) - (##car _e121578121803_)))) + (##car _e121575121800_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121577121806_)) - (let ((_e121581121811_ + _hd121574121803_)) + (let ((_e121578121808_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd121577121806_)))) - (let ((_tl121579121816_ - (let () (declare (not safe)) (##cdr _e121581121811_))) - (_hd121580121814_ + (gx#stx-e _hd121574121803_)))) + (let ((_tl121576121813_ + (let () (declare (not safe)) (##cdr _e121578121808_))) + (_hd121577121811_ (let () (declare (not safe)) - (##car _e121581121811_)))) + (##car _e121578121808_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121576121808_)) - (let ((_e121584121819_ + (gx#stx-pair? _tl121573121805_)) + (let ((_e121581121816_ (let () (declare (not safe)) - (gx#stx-e _tl121576121808_)))) - (let ((_tl121582121824_ + (gx#stx-e _tl121573121805_)))) + (let ((_tl121579121821_ (let () (declare (not safe)) - (##cdr _e121584121819_))) - (_hd121583121822_ + (##cdr _e121581121816_))) + (_hd121580121819_ (let () (declare (not safe)) - (##car _e121584121819_)))) + (##car _e121581121816_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121583121822_)) - (let ((_e121587121827_ + (gx#stx-pair? _hd121580121819_)) + (let ((_e121584121824_ (let () (declare (not safe)) - (gx#stx-e _hd121583121822_)))) - (let ((_tl121585121832_ + (gx#stx-e _hd121580121819_)))) + (let ((_tl121582121829_ (let () (declare (not safe)) - (##cdr _e121587121827_))) - (_hd121586121830_ + (##cdr _e121584121824_))) + (_hd121583121827_ (let () (declare (not safe)) - (##car _e121587121827_)))) + (##car _e121584121824_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121586121830_)) + (gx#identifier? _hd121583121827_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd121586121830_)) + _hd121583121827_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121585121832_)) - (let ((_e121590121835_ + _tl121582121829_)) + (let ((_e121587121832_ (let () (declare (not safe)) (gx#stx-e - _tl121585121832_)))) - (let ((_tl121588121840_ + _tl121582121829_)))) + (let ((_tl121585121837_ (let () (declare (not safe)) - (##cdr _e121590121835_))) - (_hd121589121838_ + (##cdr _e121587121832_))) + (_hd121586121835_ (let () (declare (not safe)) - (##car _e121590121835_)))) + (##car _e121587121832_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121589121838_)) - (let ((_e121593121843_ + _hd121586121835_)) + (let ((_e121590121840_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd121589121838_)))) - (let ((_tl121591121848_ - (let () (declare (not safe)) (##cdr _e121593121843_))) - (_hd121592121846_ + (gx#stx-e _hd121586121835_)))) + (let ((_tl121588121845_ + (let () (declare (not safe)) (##cdr _e121590121840_))) + (_hd121589121843_ (let () (declare (not safe)) - (##car _e121593121843_)))) + (##car _e121590121840_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121592121846_)) + (gx#identifier? _hd121589121843_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd121592121846_)) + (gx#stx-eq? '%#ref _hd121589121843_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121591121848_)) - (let ((_e121596121851_ + (gx#stx-pair? _tl121588121845_)) + (let ((_e121593121848_ (let () (declare (not safe)) - (gx#stx-e _tl121591121848_)))) - (let ((_tl121594121856_ + (gx#stx-e _tl121588121845_)))) + (let ((_tl121591121853_ (let () (declare (not safe)) - (##cdr _e121596121851_))) - (_hd121595121854_ + (##cdr _e121593121848_))) + (_hd121592121851_ (let () (declare (not safe)) - (##car _e121596121851_)))) + (##car _e121593121848_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121594121856_)) + (gx#stx-null? _tl121591121853_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121588121840_)) - (let ((_e121599121859_ + (gx#stx-pair? _tl121585121837_)) + (let ((_e121596121856_ (let () (declare (not safe)) (gx#stx-e - _tl121588121840_)))) - (let ((_tl121597121864_ + _tl121585121837_)))) + (let ((_tl121594121861_ (let () (declare (not safe)) - (##cdr _e121599121859_))) - (_hd121598121862_ + (##cdr _e121596121856_))) + (_hd121595121859_ (let () (declare (not safe)) - (##car _e121599121859_)))) + (##car _e121596121856_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121598121862_)) - (let ((_e121602121867_ + _hd121595121859_)) + (let ((_e121599121864_ (let () (declare (not safe)) (gx#stx-e - _hd121598121862_)))) - (let ((_tl121600121872_ + _hd121595121859_)))) + (let ((_tl121597121869_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e121602121867_))) - (_hd121601121870_ - (let () (declare (not safe)) (##car _e121602121867_)))) + (##cdr _e121599121864_))) + (_hd121598121867_ + (let () (declare (not safe)) (##car _e121599121864_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121601121870_)) + (gx#identifier? _hd121598121867_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd121601121870_)) + (gx#stx-eq? '%#ref _hd121598121867_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121600121872_)) - (let ((_e121605121875_ + (gx#stx-pair? _tl121597121869_)) + (let ((_e121602121872_ (let () (declare (not safe)) - (gx#stx-e _tl121600121872_)))) - (let ((_tl121603121880_ + (gx#stx-e _tl121597121869_)))) + (let ((_tl121600121877_ (let () (declare (not safe)) - (##cdr _e121605121875_))) - (_hd121604121878_ + (##cdr _e121602121872_))) + (_hd121601121875_ (let () (declare (not safe)) - (##car _e121605121875_)))) + (##car _e121602121872_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121603121880_)) + (gx#stx-null? _tl121600121877_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121597121864_)) - (let ((_e121608121883_ + (gx#stx-pair? _tl121594121861_)) + (let ((_e121605121880_ (let () (declare (not safe)) - (gx#stx-e _tl121597121864_)))) - (let ((_tl121606121888_ + (gx#stx-e _tl121594121861_)))) + (let ((_tl121603121885_ (let () (declare (not safe)) - (##cdr _e121608121883_))) - (_hd121607121886_ + (##cdr _e121605121880_))) + (_hd121604121883_ (let () (declare (not safe)) - (##car _e121608121883_)))) + (##car _e121605121880_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121607121886_)) - (let ((_e121611121891_ + _hd121604121883_)) + (let ((_e121608121888_ (let () (declare (not safe)) (gx#stx-e - _hd121607121886_)))) - (let ((_tl121609121896_ + _hd121604121883_)))) + (let ((_tl121606121893_ (let () (declare (not safe)) - (##cdr _e121611121891_))) - (_hd121610121894_ + (##cdr _e121608121888_))) + (_hd121607121891_ (let () (declare (not safe)) - (##car _e121611121891_)))) + (##car _e121608121888_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd121610121894_)) + _hd121607121891_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd121610121894_)) + _hd121607121891_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl121609121896_)) - (let ((_e121614121899_ + (gx#stx-pair? _tl121606121893_)) + (let ((_e121611121896_ (let () (declare (not safe)) - (gx#stx-e _tl121609121896_)))) - (let ((_tl121612121904_ + (gx#stx-e _tl121606121893_)))) + (let ((_tl121609121901_ (let () (declare (not safe)) - (##cdr _e121614121899_))) - (_hd121613121902_ + (##cdr _e121611121896_))) + (_hd121610121899_ (let () (declare (not safe)) - (##car _e121614121899_)))) + (##car _e121611121896_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121612121904_)) + (gx#stx-null? _tl121609121901_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl121582121824_)) + (gx#stx-null? _tl121579121821_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl121570121792_)) + (gx#stx-null? _tl121567121789_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl121549121736_)) + (gx#stx-null? _tl121546121733_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121540121712_)) + _tl121537121709_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121537121704_)) - (let ((_e121617121907_ + _tl121534121701_)) + (let ((_e121614121904_ (let () (declare (not safe)) (gx#stx-e - _tl121537121704_)))) - (let ((_tl121615121912_ + _tl121534121701_)))) + (let ((_tl121612121909_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e121617121907_))) - (_hd121616121910_ - (let () (declare (not safe)) (##car _e121617121907_)))) + (##cdr _e121614121904_))) + (_hd121613121907_ + (let () (declare (not safe)) (##car _e121614121904_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121616121910_)) - (let ((_e121620121915_ + (gx#stx-pair? _hd121613121907_)) + (let ((_e121617121912_ (let () (declare (not safe)) - (gx#stx-e _hd121616121910_)))) - (let ((_tl121618121920_ + (gx#stx-e _hd121613121907_)))) + (let ((_tl121615121917_ (let () (declare (not safe)) - (##cdr _e121620121915_))) - (_hd121619121918_ + (##cdr _e121617121912_))) + (_hd121616121915_ (let () (declare (not safe)) - (##car _e121620121915_)))) + (##car _e121617121912_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121619121918_)) + (gx#identifier? _hd121616121915_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd121619121918_)) + (gx#stx-eq? '%#lambda _hd121616121915_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121618121920_)) - (let ((_e121623121923_ + (gx#stx-pair? _tl121615121917_)) + (let ((_e121620121920_ (let () (declare (not safe)) - (gx#stx-e _tl121618121920_)))) - (let ((_tl121621121928_ + (gx#stx-e _tl121615121917_)))) + (let ((_tl121618121925_ (let () (declare (not safe)) - (##cdr _e121623121923_))) - (_hd121622121926_ + (##cdr _e121620121920_))) + (_hd121619121923_ (let () (declare (not safe)) - (##car _e121623121923_)))) + (##car _e121620121920_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121621121928_)) - (let ((_e121626121931_ + (gx#stx-pair? _tl121618121925_)) + (let ((_e121623121928_ (let () (declare (not safe)) (gx#stx-e - _tl121621121928_)))) - (let ((_tl121624121936_ + _tl121618121925_)))) + (let ((_tl121621121933_ (let () (declare (not safe)) - (##cdr _e121626121931_))) - (_hd121625121934_ + (##cdr _e121623121928_))) + (_hd121622121931_ (let () (declare (not safe)) - (##car _e121626121931_)))) + (##car _e121623121928_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121625121934_)) - (let ((_e121629121939_ + _hd121622121931_)) + (let ((_e121626121936_ (let () (declare (not safe)) (gx#stx-e - _hd121625121934_)))) - (let ((_tl121627121944_ + _hd121622121931_)))) + (let ((_tl121624121941_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e121629121939_))) - (_hd121628121942_ - (let () (declare (not safe)) (##car _e121629121939_)))) + (##cdr _e121626121936_))) + (_hd121625121939_ + (let () (declare (not safe)) (##car _e121626121936_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121628121942_)) + (gx#identifier? _hd121625121939_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd121628121942_)) + (gx#stx-eq? '%#call _hd121625121939_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121627121944_)) - (let ((_e121632121947_ + (gx#stx-pair? _tl121624121941_)) + (let ((_e121629121944_ (let () (declare (not safe)) - (gx#stx-e _tl121627121944_)))) - (let ((_tl121630121952_ + (gx#stx-e _tl121624121941_)))) + (let ((_tl121627121949_ (let () (declare (not safe)) - (##cdr _e121632121947_))) - (_hd121631121950_ + (##cdr _e121629121944_))) + (_hd121628121947_ (let () (declare (not safe)) - (##car _e121632121947_)))) + (##car _e121629121944_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121631121950_)) - (let ((_e121635121955_ + (gx#stx-pair? _hd121628121947_)) + (let ((_e121632121952_ (let () (declare (not safe)) - (gx#stx-e _hd121631121950_)))) - (let ((_tl121633121960_ + (gx#stx-e _hd121628121947_)))) + (let ((_tl121630121957_ (let () (declare (not safe)) - (##cdr _e121635121955_))) - (_hd121634121958_ + (##cdr _e121632121952_))) + (_hd121631121955_ (let () (declare (not safe)) - (##car _e121635121955_)))) + (##car _e121632121952_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd121634121958_)) + _hd121631121955_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd121634121958_)) + _hd121631121955_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121633121960_)) - (let ((_e121638121963_ + _tl121630121957_)) + (let ((_e121635121960_ (let () (declare (not safe)) (gx#stx-e - _tl121633121960_)))) - (let ((_tl121636121968_ + _tl121630121957_)))) + (let ((_tl121633121965_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e121638121963_))) - (_hd121637121966_ - (let () (declare (not safe)) (##car _e121638121963_)))) + (##cdr _e121635121960_))) + (_hd121634121963_ + (let () (declare (not safe)) (##car _e121635121960_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121636121968_)) + (gx#stx-null? _tl121633121965_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121630121952_)) - (let ((_e121641121971_ + (gx#stx-pair? _tl121627121949_)) + (let ((_e121638121968_ (let () (declare (not safe)) - (gx#stx-e _tl121630121952_)))) - (let ((_tl121639121976_ + (gx#stx-e _tl121627121949_)))) + (let ((_tl121636121973_ (let () (declare (not safe)) - (##cdr _e121641121971_))) - (_hd121640121974_ + (##cdr _e121638121968_))) + (_hd121637121971_ (let () (declare (not safe)) - (##car _e121641121971_)))) + (##car _e121638121968_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121640121974_)) - (let ((_e121644121979_ + (gx#stx-pair? _hd121637121971_)) + (let ((_e121641121976_ (let () (declare (not safe)) - (gx#stx-e _hd121640121974_)))) - (let ((_tl121642121984_ + (gx#stx-e _hd121637121971_)))) + (let ((_tl121639121981_ (let () (declare (not safe)) - (##cdr _e121644121979_))) - (_hd121643121982_ + (##cdr _e121641121976_))) + (_hd121640121979_ (let () (declare (not safe)) - (##car _e121644121979_)))) + (##car _e121641121976_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121643121982_)) + (gx#identifier? _hd121640121979_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd121643121982_)) + _hd121640121979_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121642121984_)) - (let ((_e121647121987_ + _tl121639121981_)) + (let ((_e121644121984_ (let () (declare (not safe)) (gx#stx-e - _tl121642121984_)))) - (let ((_tl121645121992_ + _tl121639121981_)))) + (let ((_tl121642121989_ (let () (declare (not safe)) - (##cdr _e121647121987_))) - (_hd121646121990_ + (##cdr _e121644121984_))) + (_hd121643121987_ (let () (declare (not safe)) - (##car _e121647121987_)))) + (##car _e121644121984_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121645121992_)) + _tl121642121989_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121639121976_)) - (let ((_e121650121995_ + _tl121636121973_)) + (let ((_e121647121992_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl121639121976_)))) - (let ((_tl121648122000_ + (gx#stx-e _tl121636121973_)))) + (let ((_tl121645121997_ (let () (declare (not safe)) - (##cdr _e121650121995_))) - (_hd121649121998_ + (##cdr _e121647121992_))) + (_hd121646121995_ (let () (declare (not safe)) - (##car _e121650121995_)))) + (##car _e121647121992_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121649121998_)) - (let ((_e121653122003_ + (gx#stx-pair? _hd121646121995_)) + (let ((_e121650122000_ (let () (declare (not safe)) - (gx#stx-e _hd121649121998_)))) - (let ((_tl121651122008_ + (gx#stx-e _hd121646121995_)))) + (let ((_tl121648122005_ (let () (declare (not safe)) - (##cdr _e121653122003_))) - (_hd121652122006_ + (##cdr _e121650122000_))) + (_hd121649122003_ (let () (declare (not safe)) - (##car _e121653122003_)))) + (##car _e121650122000_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121652122006_)) + (gx#identifier? _hd121649122003_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd121652122006_)) + _hd121649122003_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121651122008_)) - (let ((_e121656122011_ + (gx#stx-pair? _tl121648122005_)) + (let ((_e121653122008_ (let () (declare (not safe)) (gx#stx-e - _tl121651122008_)))) - (let ((_tl121654122016_ + _tl121648122005_)))) + (let ((_tl121651122013_ (let () (declare (not safe)) - (##cdr _e121656122011_))) - (_hd121655122014_ + (##cdr _e121653122008_))) + (_hd121652122011_ (let () (declare (not safe)) - (##car _e121656122011_)))) + (##car _e121653122008_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121654122016_)) + _tl121651122013_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121648122000_)) - (let ((_e121659122019_ + _tl121645121997_)) + (let ((_e121656122016_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl121648122000_)))) - (let ((_tl121657122024_ - (let () (declare (not safe)) (##cdr _e121659122019_))) - (_hd121658122022_ + (gx#stx-e _tl121645121997_)))) + (let ((_tl121654122021_ + (let () (declare (not safe)) (##cdr _e121656122016_))) + (_hd121655122019_ (let () (declare (not safe)) - (##car _e121659122019_)))) + (##car _e121656122016_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121658122022_)) - (let ((_e121662122027_ + (gx#stx-pair? _hd121655122019_)) + (let ((_e121659122024_ (let () (declare (not safe)) - (gx#stx-e _hd121658122022_)))) - (let ((_tl121660122032_ + (gx#stx-e _hd121655122019_)))) + (let ((_tl121657122029_ (let () (declare (not safe)) - (##cdr _e121662122027_))) - (_hd121661122030_ + (##cdr _e121659122024_))) + (_hd121658122027_ (let () (declare (not safe)) - (##car _e121662122027_)))) + (##car _e121659122024_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121661122030_)) + (gx#identifier? _hd121658122027_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd121661122030_)) + (gx#stx-eq? '%#ref _hd121658122027_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121660122032_)) - (let ((_e121665122035_ + (gx#stx-pair? _tl121657122029_)) + (let ((_e121662122032_ (let () (declare (not safe)) - (gx#stx-e _tl121660122032_)))) - (let ((_tl121663122040_ + (gx#stx-e _tl121657122029_)))) + (let ((_tl121660122037_ (let () (declare (not safe)) - (##cdr _e121665122035_))) - (_hd121664122038_ + (##cdr _e121662122032_))) + (_hd121661122035_ (let () (declare (not safe)) - (##car _e121665122035_)))) + (##car _e121662122032_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121663122040_)) + _tl121660122037_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121657122024_)) - (let ((_e121668122043_ + _tl121654122021_)) + (let ((_e121665122040_ (let () (declare (not safe)) (gx#stx-e - _tl121657122024_)))) - (let ((_tl121666122048_ + _tl121654122021_)))) + (let ((_tl121663122045_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e121668122043_))) - (_hd121667122046_ - (let () (declare (not safe)) (##car _e121668122043_)))) + (##cdr _e121665122040_))) + (_hd121664122043_ + (let () (declare (not safe)) (##car _e121665122040_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121667122046_)) - (let ((_e121671122051_ + (gx#stx-pair? _hd121664122043_)) + (let ((_e121668122048_ (let () (declare (not safe)) - (gx#stx-e _hd121667122046_)))) - (let ((_tl121669122056_ + (gx#stx-e _hd121664122043_)))) + (let ((_tl121666122053_ (let () (declare (not safe)) - (##cdr _e121671122051_))) - (_hd121670122054_ + (##cdr _e121668122048_))) + (_hd121667122051_ (let () (declare (not safe)) - (##car _e121671122051_)))) + (##car _e121668122048_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121670122054_)) + (gx#identifier? _hd121667122051_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd121670122054_)) + (gx#stx-eq? '%#ref _hd121667122051_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121669122056_)) - (let ((_e121674122059_ + (gx#stx-pair? _tl121666122053_)) + (let ((_e121671122056_ (let () (declare (not safe)) - (gx#stx-e _tl121669122056_)))) - (let ((_tl121672122064_ + (gx#stx-e _tl121666122053_)))) + (let ((_tl121669122061_ (let () (declare (not safe)) - (##cdr _e121674122059_))) - (_hd121673122062_ + (##cdr _e121671122056_))) + (_hd121670122059_ (let () (declare (not safe)) - (##car _e121674122059_)))) + (##car _e121671122056_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121672122064_)) + (gx#stx-null? _tl121669122061_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121666122048_)) + _tl121663122045_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121624121936_)) + _tl121621121933_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121615121912_)) - (___kont127897127898_ - _hd121673122062_ - _hd121664122038_ - _hd121646121990_ - _hd121637121966_ - _hd121622121926_ - _hd121613121902_ - _hd121604121878_ - _hd121595121854_ - _hd121580121814_ - _hd121565121774_ - _hd121547121726_) - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)))) - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)))) - (___kont127899127900_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127899127900_)) - (___kont127899127900_)))) - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)))) - (___kont127899127900_)))) - (___kont127899127900_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127899127900_)))) - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)))) - (___kont127899127900_)))) - (___kont127899127900_)) - (___kont127899127900_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)))) - (___kont127899127900_)))) - (___kont127899127900_)) - (___kont127899127900_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)))) - (___kont127899127900_)))) - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127899127900_)))) - (___kont127899127900_)))) - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)))) - (___kont127899127900_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)))) - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127899127900_)))) - (___kont127899127900_)) - (___kont127899127900_)))) - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127899127900_)))) - (___kont127899127900_)) - (___kont127899127900_)))) - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)))) - (___kont127899127900_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)))) - (___kont127899127900_)))) - (___kont127899127900_)))) - (___kont127899127900_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)))) - (___kont127899127900_)))) - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127899127900_)) - (___kont127899127900_)))) - (___kont127899127900_)))) - (___kont127899127900_)))) - (___kont127899127900_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)))) - (___kont127899127900_)))) - (___kont127899127900_)) - (___kont127899127900_)))) - (___kont127899127900_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127899127900_)))) - (___kont127899127900_)))) - (___kont127899127900_)) - (___kont127899127900_)) - (___kont127899127900_)))) - (___kont127899127900_)))))) + _tl121612121909_)) + (___kont127894127895_ + _hd121670122059_ + _hd121661122035_ + _hd121643121987_ + _hd121634121963_ + _hd121619121923_ + _hd121610121899_ + _hd121601121875_ + _hd121592121851_ + _hd121577121811_ + _hd121562121771_ + _hd121544121723_) + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)))) + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)))) + (___kont127896127897_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127896127897_)) + (___kont127896127897_)))) + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)))) + (___kont127896127897_)))) + (___kont127896127897_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127896127897_)))) + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)))) + (___kont127896127897_)))) + (___kont127896127897_)) + (___kont127896127897_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)))) + (___kont127896127897_)))) + (___kont127896127897_)) + (___kont127896127897_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)))) + (___kont127896127897_)))) + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127896127897_)))) + (___kont127896127897_)))) + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)))) + (___kont127896127897_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)))) + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127896127897_)))) + (___kont127896127897_)) + (___kont127896127897_)))) + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127896127897_)))) + (___kont127896127897_)) + (___kont127896127897_)))) + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)))) + (___kont127896127897_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)))) + (___kont127896127897_)))) + (___kont127896127897_)))) + (___kont127896127897_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)))) + (___kont127896127897_)))) + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127896127897_)) + (___kont127896127897_)))) + (___kont127896127897_)))) + (___kont127896127897_)))) + (___kont127896127897_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)))) + (___kont127896127897_)))) + (___kont127896127897_)) + (___kont127896127897_)))) + (___kont127896127897_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127896127897_)))) + (___kont127896127897_)))) + (___kont127896127897_)) + (___kont127896127897_)) + (___kont127896127897_)))) + (___kont127896127897_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_stx121260_ _id121261_ _clauses121262_ _gensym?121263_) - (let _lp121265_ ((_rest121267_ _clauses121262_) - (_ids121268_ '()) - (_impls121269_ '()) - (_clauses121270_ '())) - (let* ((_rest121271121279_ _rest121267_) - (_else121273121287_ + (lambda (_stx121257_ _id121258_ _clauses121259_ _gensym?121260_) + (let _lp121262_ ((_rest121264_ _clauses121259_) + (_ids121265_ '()) + (_impls121266_ '()) + (_clauses121267_ '())) + (let* ((_rest121268121276_ _rest121264_) + (_else121270121284_ (lambda () - (values (reverse _ids121268_) - (reverse _impls121269_) - (reverse _clauses121270_)))) - (_K121275121492_ - (lambda (_rest121290_ _clause121291_) + (values (reverse _ids121265_) + (reverse _impls121266_) + (reverse _clauses121267_)))) + (_K121272121489_ + (lambda (_rest121287_ _clause121288_) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _clause121291_)) - (let ((__tmp128974 + (gxc#dispatch-lambda-form? _clause121288_)) + (let ((__tmp128971 (let () (declare (not safe)) - (cons _clause121291_ _clauses121270_)))) + (cons _clause121288_ _clauses121267_)))) (declare (not safe)) - (_lp121265_ - _rest121290_ - _ids121268_ - _impls121269_ - __tmp128974)) - (let* ((_g121293121304_ - (lambda (_g121294121301_) + (_lp121262_ + _rest121287_ + _ids121265_ + _impls121266_ + __tmp128971)) + (let* ((_g121290121301_ + (lambda (_g121291121298_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g121294121301_)))) - (_g121292121489_ - (lambda (_g121294121307_) + _g121291121298_)))) + (_g121289121486_ + (lambda (_g121291121304_) (if (let () (declare (not safe)) - (gx#stx-pair? _g121294121307_)) - (let ((_e121299121309_ + (gx#stx-pair? _g121291121304_)) + (let ((_e121296121306_ (let () (declare (not safe)) - (gx#stx-e _g121294121307_)))) - (let ((_hd121298121312_ + (gx#stx-e _g121291121304_)))) + (let ((_hd121295121309_ (let () (declare (not safe)) - (##car _e121299121309_))) - (_tl121297121314_ + (##car _e121296121306_))) + (_tl121294121311_ (let () (declare (not safe)) - (##cdr _e121299121309_)))) - ((lambda (_L121317_ _L121318_) - (let* ((_id121335_ - (let ((__tmp128921 + (##cdr _e121296121306_)))) + ((lambda (_L121314_ _L121315_) + (let* ((_id121332_ + (let ((__tmp128918 (let () (declare (not safe)) (gx#stx-e - _id121261_))) - (__tmp128920 - (length _clauses121270_)) - (__tmp128919 - (if _gensym?121263_ + _id121258_))) + (__tmp128917 + (length _clauses121267_)) + (__tmp128916 + (if _gensym?121260_ (gensym '__) '""))) (declare (not safe)) (make-symbol__1 - __tmp128921 + __tmp128918 '"__" - __tmp128920 - __tmp128919))) - (_id121337_ - (let ((__tmp128922 + __tmp128917 + __tmp128916))) + (_id121334_ + (let ((__tmp128919 (let () (declare (not safe)) (gx#stx-source - _stx121260_)))) + _stx121257_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id121335_ - __tmp128922))) - (_impl121339_ - (let ((__tmp128923 - (let ((__tmp128925 + _id121332_ + __tmp128919))) + (_impl121336_ + (let ((__tmp128920 + (let ((__tmp128922 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp128924 + (__tmp128921 (let () (declare (not safe)) - (cons _L121318_ _L121317_)))) + (cons _L121315_ _L121314_)))) (declare (not safe)) - (cons __tmp128925 __tmp128924)))) + (cons __tmp128922 __tmp128921)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp128923 _stx121260_))) + (gxc#xform-wrap-source __tmp128920 _stx121257_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_clause121486_ - (let* ((___stx128279128280_ - _L121318_) - (_g121343121371_ + (_clause121483_ + (let* ((___stx128276128277_ + _L121315_) + (_g121340121368_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -10642,1813 +10642,1813 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128279128280_))))) - (let ((___kont128281128282_ - (lambda (_L121465_) - (let ((__tmp128926 - (let ((__tmp128927 - (let ((__tmp128928 - (let ((__tmp128929 - (let ((__tmp128935 - (let ((__tmp128936 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id121337_ '())))) + ___stx128276128277_))))) + (let ((___kont128278128279_ + (lambda (_L121462_) + (let ((__tmp128923 + (let ((__tmp128924 + (let ((__tmp128925 + (let ((__tmp128926 + (let ((__tmp128932 + (let ((__tmp128933 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _id121334_ '())))) (declare (not safe)) - (cons '%#ref __tmp128936))) - (__tmp128930 - (let ((__tmp128931 - (lambda (_g121475121478_ _g121476121480_) - (let ((__tmp128932 - (let ((__tmp128934 + (cons '%#ref __tmp128933))) + (__tmp128927 + (let ((__tmp128928 + (lambda (_g121472121475_ _g121473121477_) + (let ((__tmp128929 + (let ((__tmp128931 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp128933 + (__tmp128930 (let () (declare (not safe)) - (cons _g121475121478_ '())))) + (cons _g121472121475_ '())))) (declare (not safe)) - (cons __tmp128934 __tmp128933)))) + (cons __tmp128931 __tmp128930)))) (declare (not safe)) - (cons __tmp128932 _g121476121480_))))) + (cons __tmp128929 _g121473121477_))))) (declare (not safe)) - (foldr1 __tmp128931 '() _L121465_)))) + (foldr1 __tmp128928 '() _L121462_)))) (declare (not safe)) - (cons __tmp128935 __tmp128930)))) + (cons __tmp128932 __tmp128927)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp128929)))) + (cons '%#call __tmp128926)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp128928 - _stx121260_)))) + __tmp128925 + _stx121257_)))) (declare (not safe)) - (cons __tmp128927 '())))) + (cons __tmp128924 '())))) (declare (not safe)) - (cons _L121318_ __tmp128926)))) - (___kont128285128286_ - (lambda (_L121416_ _L121417_) - (let ((__tmp128937 - (let ((__tmp128938 - (let ((__tmp128939 - (let ((__tmp128940 - (let ((__tmp128954 - (let ((__tmp128955 + (cons _L121315_ __tmp128923)))) + (___kont128282128283_ + (lambda (_L121413_ _L121414_) + (let ((__tmp128934 + (let ((__tmp128935 + (let ((__tmp128936 + (let ((__tmp128937 + (let ((__tmp128951 + (let ((__tmp128952 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp128955))) - (__tmp128941 - (let ((__tmp128952 - (let ((__tmp128953 + (cons '%#ref __tmp128952))) + (__tmp128938 + (let ((__tmp128949 + (let ((__tmp128950 (let () (declare (not safe)) - (cons _id121337_ '())))) + (cons _id121334_ '())))) (declare (not safe)) - (cons '%#ref __tmp128953))) - (__tmp128942 - (let ((__tmp128948 - (let ((__tmp128949 - (let ((__tmp128951 + (cons '%#ref __tmp128950))) + (__tmp128939 + (let ((__tmp128945 + (let ((__tmp128946 + (let ((__tmp128948 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp128950 + (__tmp128947 (let () (declare (not safe)) - (cons _L121416_ '())))) + (cons _L121413_ '())))) (declare (not safe)) - (cons __tmp128951 __tmp128950)))) + (cons __tmp128948 __tmp128947)))) (declare (not safe)) - (cons __tmp128949 '()))) - (__tmp128943 - (let ((__tmp128944 - (lambda (_g121428121431_ - _g121429121433_) - (let ((__tmp128945 - (let ((__tmp128947 + (cons __tmp128946 '()))) + (__tmp128940 + (let ((__tmp128941 + (lambda (_g121425121428_ + _g121426121430_) + (let ((__tmp128942 + (let ((__tmp128944 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp128946 + (__tmp128943 (let () (declare (not safe)) - (cons _g121428121431_ + (cons _g121425121428_ '())))) (declare (not safe)) - (cons __tmp128947 - __tmp128946)))) + (cons __tmp128944 + __tmp128943)))) (declare (not safe)) - (cons __tmp128945 - _g121429121433_))))) + (cons __tmp128942 + _g121426121430_))))) (declare (not safe)) - (foldr1 __tmp128944 '() _L121417_)))) + (foldr1 __tmp128941 '() _L121414_)))) (declare (not safe)) - (foldr1 cons __tmp128948 __tmp128943)))) + (foldr1 cons __tmp128945 __tmp128940)))) (declare (not safe)) - (cons __tmp128952 __tmp128942)))) + (cons __tmp128949 __tmp128939)))) (declare (not safe)) - (cons __tmp128954 __tmp128941)))) + (cons __tmp128951 __tmp128938)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp128940)))) + (cons '%#call __tmp128937)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp128939 - _stx121260_)))) + __tmp128936 + _stx121257_)))) (declare (not safe)) - (cons __tmp128938 '())))) + (cons __tmp128935 '())))) (declare (not safe)) - (cons _L121318_ __tmp128937)))) - (___kont128289128290_ - (lambda (_L121376_) - (let ((__tmp128956 - (let ((__tmp128957 - (let ((__tmp128958 - (let ((__tmp128959 - (let ((__tmp128967 - (let ((__tmp128968 + (cons _L121315_ __tmp128934)))) + (___kont128286128287_ + (lambda (_L121373_) + (let ((__tmp128953 + (let ((__tmp128954 + (let ((__tmp128955 + (let ((__tmp128956 + (let ((__tmp128964 + (let ((__tmp128965 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp128968))) - (__tmp128960 - (let ((__tmp128965 - (let ((__tmp128966 + (cons '%#ref __tmp128965))) + (__tmp128957 + (let ((__tmp128962 + (let ((__tmp128963 (let () (declare (not safe)) - (cons _id121337_ '())))) + (cons _id121334_ '())))) (declare (not safe)) - (cons '%#ref __tmp128966))) - (__tmp128961 - (let ((__tmp128962 - (let ((__tmp128964 + (cons '%#ref __tmp128963))) + (__tmp128958 + (let ((__tmp128959 + (let ((__tmp128961 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp128963 + (__tmp128960 (let () (declare (not safe)) - (cons _L121376_ '())))) + (cons _L121373_ '())))) (declare (not safe)) - (cons __tmp128964 __tmp128963)))) + (cons __tmp128961 __tmp128960)))) (declare (not safe)) - (cons __tmp128962 '())))) + (cons __tmp128959 '())))) (declare (not safe)) - (cons __tmp128965 __tmp128961)))) + (cons __tmp128962 __tmp128958)))) (declare (not safe)) - (cons __tmp128967 __tmp128960)))) + (cons __tmp128964 __tmp128957)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp128959)))) + (cons '%#call __tmp128956)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp128958 - _stx121260_)))) + __tmp128955 + _stx121257_)))) (declare (not safe)) - (cons __tmp128957 '())))) + (cons __tmp128954 '())))) (declare (not safe)) - (cons _L121318_ __tmp128956))))) - (let* ((___match128304128305_ - (lambda (___splice128287128288_ - _target121357121392_ - _tl121359121394_) - (letrec ((_loop121360121397_ - (lambda (_hd121358121400_ - _arg121364121402_) + (cons _L121315_ __tmp128953))))) + (let* ((___match128301128302_ + (lambda (___splice128284128285_ + _target121354121389_ + _tl121356121391_) + (letrec ((_loop121357121394_ + (lambda (_hd121355121397_ + _arg121361121399_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121358121400_)) - (let ((_e121361121405_ + (gx#stx-pair? _hd121355121397_)) + (let ((_e121358121402_ (let () (declare (not safe)) (gx#stx-e - _hd121358121400_)))) - (let ((_lp-tl121363121410_ + _hd121355121397_)))) + (let ((_lp-tl121360121407_ (let () (declare (not safe)) - (##cdr _e121361121405_))) - (_lp-hd121362121408_ + (##cdr _e121358121402_))) + (_lp-hd121359121405_ (let () (declare (not safe)) - (##car _e121361121405_)))) - (let ((__tmp128969 + (##car _e121358121402_)))) + (let ((__tmp128966 (let () (declare (not safe)) - (cons _lp-hd121362121408_ - _arg121364121402_)))) + (cons _lp-hd121359121405_ + _arg121361121399_)))) (declare (not safe)) - (_loop121360121397_ - _lp-tl121363121410_ - __tmp128969)))) - (let ((_arg121365121413_ - (reverse _arg121364121402_))) - (___kont128285128286_ - _tl121359121394_ - _arg121365121413_)))))) + (_loop121357121394_ + _lp-tl121360121407_ + __tmp128966)))) + (let ((_arg121362121410_ + (reverse _arg121361121399_))) + (___kont128282128283_ + _tl121356121391_ + _arg121362121410_)))))) (let () (declare (not safe)) - (_loop121360121397_ - _target121357121392_ + (_loop121357121394_ + _target121354121389_ '()))))) - (___match128298128299_ - (lambda (___splice128283128284_ - _target121346121441_ - _tl121348121443_) - (letrec ((_loop121349121446_ - (lambda (_hd121347121449_ - _arg121353121451_) + (___match128295128296_ + (lambda (___splice128280128281_ + _target121343121438_ + _tl121345121440_) + (letrec ((_loop121346121443_ + (lambda (_hd121344121446_ + _arg121350121448_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121347121449_)) - (let ((_e121350121454_ + (gx#stx-pair? _hd121344121446_)) + (let ((_e121347121451_ (let () (declare (not safe)) (gx#stx-e - _hd121347121449_)))) - (let ((_lp-tl121352121459_ + _hd121344121446_)))) + (let ((_lp-tl121349121456_ (let () (declare (not safe)) - (##cdr _e121350121454_))) - (_lp-hd121351121457_ + (##cdr _e121347121451_))) + (_lp-hd121348121454_ (let () (declare (not safe)) - (##car _e121350121454_)))) - (let ((__tmp128970 + (##car _e121347121451_)))) + (let ((__tmp128967 (let () (declare (not safe)) - (cons _lp-hd121351121457_ - _arg121353121451_)))) + (cons _lp-hd121348121454_ + _arg121350121448_)))) (declare (not safe)) - (_loop121349121446_ - _lp-tl121352121459_ - __tmp128970)))) - (let ((_arg121354121462_ - (reverse _arg121353121451_))) - (___kont128281128282_ - _arg121354121462_)))))) + (_loop121346121443_ + _lp-tl121349121456_ + __tmp128967)))) + (let ((_arg121351121459_ + (reverse _arg121350121448_))) + (___kont128278128279_ + _arg121351121459_)))))) (let () (declare (not safe)) - (_loop121349121446_ - _target121346121441_ + (_loop121346121443_ + _target121343121438_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? ___stx128279128280_)) - (let ((___splice128283128284_ + (gx#stx-pair/null? ___stx128276128277_)) + (let ((___splice128280128281_ (let () (declare (not safe)) (gx#syntax-split-splice - ___stx128279128280_ + ___stx128276128277_ '0)))) - (let ((_tl121348121443_ + (let ((_tl121345121440_ (let () (declare (not safe)) - (##vector-ref ___splice128283128284_ '1))) - (_target121346121441_ + (##vector-ref ___splice128280128281_ '1))) + (_target121343121438_ (let () (declare (not safe)) - (##vector-ref ___splice128283128284_ '0)))) + (##vector-ref ___splice128280128281_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121348121443_)) - (___match128298128299_ - ___splice128283128284_ - _target121346121441_ - _tl121348121443_) - (___match128304128305_ - ___splice128283128284_ - _target121346121441_ - _tl121348121443_)))) - (___kont128289128290_ ___stx128279128280_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp128973 + (gx#stx-null? _tl121345121440_)) + (___match128295128296_ + ___splice128280128281_ + _target121343121438_ + _tl121345121440_) + (___match128301128302_ + ___splice128280128281_ + _target121343121438_ + _tl121345121440_)))) + (___kont128286128287_ ___stx128276128277_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp128970 (let () (declare (not safe)) - (cons _id121337_ - _ids121268_))) - (__tmp128972 + (cons _id121334_ + _ids121265_))) + (__tmp128969 (let () (declare (not safe)) - (cons _impl121339_ - _impls121269_))) - (__tmp128971 + (cons _impl121336_ + _impls121266_))) + (__tmp128968 (let () (declare (not safe)) - (cons _clause121486_ - _clauses121270_)))) + (cons _clause121483_ + _clauses121267_)))) (declare (not safe)) - (_lp121265_ - _rest121290_ - __tmp128973 - __tmp128972 - __tmp128971)))) - _tl121297121314_ - _hd121298121312_))) + (_lp121262_ + _rest121287_ + __tmp128970 + __tmp128969 + __tmp128968)))) + _tl121294121311_ + _hd121295121309_))) (let () (declare (not safe)) - (_g121293121304_ _g121294121307_)))))) + (_g121290121301_ _g121291121304_)))))) (declare (not safe)) - (_g121292121489_ _clause121291_)))))) - (if (let () (declare (not safe)) (##pair? _rest121271121279_)) - (let ((_hd121276121495_ + (_g121289121486_ _clause121288_)))))) + (if (let () (declare (not safe)) (##pair? _rest121268121276_)) + (let ((_hd121273121492_ (let () (declare (not safe)) - (##car _rest121271121279_))) - (_tl121277121497_ + (##car _rest121268121276_))) + (_tl121274121494_ (let () (declare (not safe)) - (##cdr _rest121271121279_)))) - (let* ((_clause121500_ _hd121276121495_) - (_rest121502_ _tl121277121497_)) + (##cdr _rest121268121276_)))) + (let* ((_clause121497_ _hd121273121492_) + (_rest121499_ _tl121274121494_)) (declare (not safe)) - (_K121275121492_ _rest121502_ _clause121500_))) - (let () (declare (not safe)) (_else121273121287_))))))) + (_K121272121489_ _rest121499_ _clause121497_))) + (let () (declare (not safe)) (_else121270121284_))))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_stx121507_ _id121508_ _clauses121509_) - (let ((_gensym?121511_ '#f)) + (lambda (_stx121504_ _id121505_ _clauses121506_) + (let ((_gensym?121508_ '#f)) (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx121507_ - _id121508_ - _clauses121509_ - _gensym?121511_)))) + _stx121504_ + _id121505_ + _clauses121506_ + _gensym?121508_)))) (define gxc#lift-case-lambda-clauses - (lambda _g128976_ - (let ((_g128975_ (let () (declare (not safe)) (##length _g128976_)))) - (cond ((let () (declare (not safe)) (##fx= _g128975_ 3)) - (apply (lambda (_stx121507_ _id121508_ _clauses121509_) + (lambda _g128973_ + (let ((_g128972_ (let () (declare (not safe)) (##length _g128973_)))) + (cond ((let () (declare (not safe)) (##fx= _g128972_ 3)) + (apply (lambda (_stx121504_ _id121505_ _clauses121506_) (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__0 - _stx121507_ - _id121508_ - _clauses121509_))) - _g128976_)) - ((let () (declare (not safe)) (##fx= _g128975_ 4)) - (apply (lambda (_stx121513_ - _id121514_ - _clauses121515_ - _gensym?121516_) + _stx121504_ + _id121505_ + _clauses121506_))) + _g128973_)) + ((let () (declare (not safe)) (##fx= _g128972_ 4)) + (apply (lambda (_stx121510_ + _id121511_ + _clauses121512_ + _gensym?121513_) (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx121513_ - _id121514_ - _clauses121515_ - _gensym?121516_))) - _g128976_)) + _stx121510_ + _id121511_ + _clauses121512_ + _gensym?121513_))) + _g128973_)) (else (##raise-wrong-number-of-arguments-exception gxc#lift-case-lambda-clauses - _g128976_)))))) + _g128973_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_stx120537_) - (letrec ((_case-lambda-clause-def120539_ - (lambda (_id121256_ _impl121257_) - (let ((__tmp128977 - (let ((__tmp128978 - (let ((__tmp128981 + (lambda (_stx120534_) + (letrec ((_case-lambda-clause-def120536_ + (lambda (_id121253_ _impl121254_) + (let ((__tmp128974 + (let ((__tmp128975 + (let ((__tmp128978 (let () (declare (not safe)) - (cons _id121256_ '()))) - (__tmp128979 - (let ((__tmp128980 + (cons _id121253_ '()))) + (__tmp128976 + (let ((__tmp128977 (let () (declare (not safe)) (gxc#compile-e__0 - _impl121257_)))) + _impl121254_)))) (declare (not safe)) - (cons __tmp128980 '())))) + (cons __tmp128977 '())))) (declare (not safe)) - (cons __tmp128981 __tmp128979)))) + (cons __tmp128978 __tmp128976)))) (declare (not safe)) - (cons '%#define-values __tmp128978)))) + (cons '%#define-values __tmp128975)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp128977 _stx120537_)))) - (_opt-lambda-dispatch-name120540_ - (lambda (_id121252_) - (if (uninterned-symbol? _id121252_) - (let ((_str121254_ (symbol->string _id121252_))) + (gxc#xform-wrap-source __tmp128974 _stx120534_)))) + (_opt-lambda-dispatch-name120537_ + (lambda (_id121249_) + (if (uninterned-symbol? _id121249_) + (let ((_str121251_ (symbol->string _id121249_))) (if (let () (declare (not safe)) - (string-prefix? '"opt-lambda" _str121254_)) + (string-prefix? '"opt-lambda" _str121251_)) '"%" - _id121252_)) - _id121252_))) - (_kw-lambda-dispatch-name120541_ - (lambda (_id121247_ _name121248_) - (if (uninterned-symbol? _id121247_) - (let ((_str121250_ (symbol->string _id121247_))) + _id121249_)) + _id121249_))) + (_kw-lambda-dispatch-name120538_ + (lambda (_id121244_ _name121245_) + (if (uninterned-symbol? _id121244_) + (let ((_str121247_ (symbol->string _id121244_))) (if (let () (declare (not safe)) - (string-prefix? '"kw-lambda" _str121250_)) - _name121248_ - _id121247_)) - _id121247_)))) - (let* ((___stx128327128328_ _stx120537_) - (_g120546120605_ + (string-prefix? '"kw-lambda" _str121247_)) + _name121245_ + _id121244_)) + _id121244_)))) + (let* ((___stx128324128325_ _stx120534_) + (_g120543120602_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128327128328_))))) - (let ((___kont128329128330_ - (lambda (_L121156_ _L121157_) - (let* ((___stx128307128308_ _L121156_) - (_g121174121188_ + ___stx128324128325_))))) + (let ((___kont128326128327_ + (lambda (_L121153_ _L121154_) + (let* ((___stx128304128305_ _L121153_) + (_g121171121185_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128307128308_))))) - (let ((___kont128309128310_ - (lambda (_L121232_) _stx120537_)) - (___kont128311128312_ - (lambda (_L121201_) - (let ((_g128982_ + ___stx128304128305_))))) + (let ((___kont128306128307_ + (lambda (_L121229_) _stx120534_)) + (___kont128308128309_ + (lambda (_L121198_) + (let ((_g128979_ (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__0 - _stx120537_ - _L121157_ - _L121201_)))) + _stx120534_ + _L121154_ + _L121198_)))) (begin - (let ((_g128983_ + (let ((_g128980_ (let () (declare (not safe)) - (if (##values? _g128982_) - (##vector-length _g128982_) + (if (##values? _g128979_) + (##vector-length _g128979_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g128983_ 3))) + (##fx= _g128980_ 3))) (error "Context expects 3 values" - _g128983_))) - (let ((_ids121211_ + _g128980_))) + (let ((_ids121208_ (let () (declare (not safe)) - (##vector-ref _g128982_ 0))) - (_impls121212_ + (##vector-ref _g128979_ 0))) + (_impls121209_ (let () (declare (not safe)) - (##vector-ref _g128982_ 1))) - (_clauses121213_ + (##vector-ref _g128979_ 1))) + (_clauses121210_ (let () (declare (not safe)) - (##vector-ref _g128982_ 2)))) - (let* ((_g128984_ + (##vector-ref _g128979_ 2)))) + (let* ((_g128981_ (for-each gx#core-bind-runtime! - _ids121211_)) - (_defs121216_ - (map _case-lambda-clause-def120539_ - _ids121211_ - _impls121212_))) - (let ((__tmp128986 + _ids121208_)) + (_defs121213_ + (map _case-lambda-clause-def120536_ + _ids121208_ + _impls121209_))) + (let ((__tmp128983 (let () (declare (not safe)) (gxc#identifier-symbol - _L121157_))) - (__tmp128985 + _L121154_))) + (__tmp128982 (map gxc#identifier-symbol - _ids121211_))) + _ids121208_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp128986 + __tmp128983 '" => " - __tmp128985)) - (let ((__tmp128987 - (let ((__tmp128988 - (let ((__tmp128989 - (let ((__tmp128990 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp128991 - (let ((__tmp128992 - (let ((__tmp128997 + __tmp128982)) + (let ((__tmp128984 + (let ((__tmp128985 + (let ((__tmp128986 + (let ((__tmp128987 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp128988 + (let ((__tmp128989 + (let ((__tmp128994 (let () (declare (not safe)) - (cons _L121157_ '()))) - (__tmp128993 - (let ((__tmp128994 - (let ((__tmp128996 + (cons _L121154_ '()))) + (__tmp128990 + (let ((__tmp128991 + (let ((__tmp128993 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons '%#case-lambda _clauses121213_))) - (__tmp128995 + (cons '%#case-lambda _clauses121210_))) + (__tmp128992 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda-expr)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp128996 __tmp128995)))) + (gxc#xform-wrap-source __tmp128993 __tmp128992)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp128994 '())))) + (cons __tmp128991 '())))) (declare (not safe)) - (cons __tmp128997 __tmp128993)))) + (cons __tmp128994 __tmp128990)))) (declare (not safe)) - (cons '%#define-values __tmp128992)))) + (cons '%#define-values __tmp128989)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp128991 - _stx120537_)))) + __tmp128988 + _stx120534_)))) (declare (not safe)) - (cons __tmp128990 '())))) + (cons __tmp128987 '())))) (declare (not safe)) - (foldr1 cons __tmp128989 _defs121216_)))) + (foldr1 cons __tmp128986 _defs121213_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#begin __tmp128988)))) + (cons '%#begin __tmp128985)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp128987 - _stx120537_))))))))) - (let ((___match128318128319_ - (lambda (_e121179121224_ - _hd121178121227_ - _tl121177121229_) - (let ((_L121232_ _tl121177121229_)) + __tmp128984 + _stx120534_))))))))) + (let ((___match128315128316_ + (lambda (_e121176121221_ + _hd121175121224_ + _tl121174121226_) + (let ((_L121229_ _tl121174121226_)) (if (let () (declare (not safe)) (andmap1 gxc#dispatch-lambda-form? - _L121232_)) - (___kont128309128310_ _L121232_) - (___kont128311128312_ - _tl121177121229_)))))) + _L121229_)) + (___kont128306128307_ _L121229_) + (___kont128308128309_ + _tl121174121226_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128307128308_)) - (let ((_e121179121224_ + (gx#stx-pair? ___stx128304128305_)) + (let ((_e121176121221_ (let () (declare (not safe)) - (gx#stx-e ___stx128307128308_)))) - (let ((_tl121177121229_ + (gx#stx-e ___stx128304128305_)))) + (let ((_tl121174121226_ (let () (declare (not safe)) - (##cdr _e121179121224_))) - (_hd121178121227_ + (##cdr _e121176121221_))) + (_hd121175121224_ (let () (declare (not safe)) - (##car _e121179121224_)))) - (___match128318128319_ - _e121179121224_ - _hd121178121227_ - _tl121177121229_))) + (##car _e121176121221_)))) + (___match128315128316_ + _e121176121221_ + _hd121175121224_ + _tl121174121226_))) (let () (declare (not safe)) - (_g121174121188_)))))))) - (___kont128331128332_ - (lambda (_L120974_ _L120975_) - (let* ((_g120991121021_ - (lambda (_g120992121018_) + (_g121171121185_)))))))) + (___kont128328128329_ + (lambda (_L120971_ _L120972_) + (let* ((_g120988121018_ + (lambda (_g120989121015_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g120992121018_)))) - (_g120990121116_ - (lambda (_g120992121024_) + _g120989121015_)))) + (_g120987121113_ + (lambda (_g120989121021_) (if (let () (declare (not safe)) - (gx#stx-pair? _g120992121024_)) - (let ((_e120998121026_ + (gx#stx-pair? _g120989121021_)) + (let ((_e120995121023_ (let () (declare (not safe)) - (gx#stx-e _g120992121024_)))) - (let ((_hd120997121029_ + (gx#stx-e _g120989121021_)))) + (let ((_hd120994121026_ (let () (declare (not safe)) - (##car _e120998121026_))) - (_tl120996121031_ + (##car _e120995121023_))) + (_tl120993121028_ (let () (declare (not safe)) - (##cdr _e120998121026_)))) + (##cdr _e120995121023_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120996121031_)) - (let ((_e121001121034_ + (gx#stx-pair? _tl120993121028_)) + (let ((_e120998121031_ (let () (declare (not safe)) (gx#stx-e - _tl120996121031_)))) - (let ((_hd121000121037_ + _tl120993121028_)))) + (let ((_hd120997121034_ (let () (declare (not safe)) - (##car _e121001121034_))) - (_tl120999121039_ + (##car _e120998121031_))) + (_tl120996121036_ (let () (declare (not safe)) - (##cdr _e121001121034_)))) + (##cdr _e120998121031_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121000121037_)) - (let ((_e121004121042_ + _hd120997121034_)) + (let ((_e121001121039_ (let () (declare (not safe)) (gx#stx-e - _hd121000121037_)))) - (let ((_hd121003121045_ + _hd120997121034_)))) + (let ((_hd121000121042_ (let () (declare (not safe)) - (##car _e121004121042_))) - (_tl121002121047_ + (##car _e121001121039_))) + (_tl120999121044_ (let () (declare (not safe)) - (##cdr _e121004121042_)))) + (##cdr _e121001121039_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121003121045_)) - (let ((_e121007121050_ + _hd121000121042_)) + (let ((_e121004121047_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd121003121045_)))) - (let ((_hd121006121053_ + (gx#stx-e _hd121000121042_)))) + (let ((_hd121003121050_ (let () (declare (not safe)) - (##car _e121007121050_))) - (_tl121005121055_ + (##car _e121004121047_))) + (_tl121002121052_ (let () (declare (not safe)) - (##cdr _e121007121050_)))) + (##cdr _e121004121047_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121006121053_)) - (let ((_e121010121058_ + (gx#stx-pair? _hd121003121050_)) + (let ((_e121007121055_ (let () (declare (not safe)) - (gx#stx-e _hd121006121053_)))) - (let ((_hd121009121061_ + (gx#stx-e _hd121003121050_)))) + (let ((_hd121006121058_ (let () (declare (not safe)) - (##car _e121010121058_))) - (_tl121008121063_ + (##car _e121007121055_))) + (_tl121005121060_ (let () (declare (not safe)) - (##cdr _e121010121058_)))) + (##cdr _e121007121055_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121008121063_)) + (gx#stx-null? _tl121005121060_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121005121055_)) - (let ((_e121013121066_ + (gx#stx-pair? _tl121002121052_)) + (let ((_e121010121063_ (let () (declare (not safe)) - (gx#stx-e _tl121005121055_)))) - (let ((_hd121012121069_ + (gx#stx-e _tl121002121052_)))) + (let ((_hd121009121066_ (let () (declare (not safe)) - (##car _e121013121066_))) - (_tl121011121071_ + (##car _e121010121063_))) + (_tl121008121068_ (let () (declare (not safe)) - (##cdr _e121013121066_)))) + (##cdr _e121010121063_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121011121071_)) + _tl121008121068_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121002121047_)) + _tl120999121044_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120999121039_)) - (let ((_e121016121074_ + _tl120996121036_)) + (let ((_e121013121071_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl120999121039_)))) - (let ((_hd121015121077_ - (let () (declare (not safe)) (##car _e121016121074_))) - (_tl121014121079_ - (let () (declare (not safe)) (##cdr _e121016121074_)))) + (gx#stx-e _tl120996121036_)))) + (let ((_hd121012121074_ + (let () (declare (not safe)) (##car _e121013121071_))) + (_tl121011121076_ + (let () (declare (not safe)) (##cdr _e121013121071_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121014121079_)) - ((lambda (_L121082_ _L121083_ _L121084_) - (let* ((_lambda-id121108_ - (let ((__tmp129000 + (gx#stx-null? _tl121011121076_)) + ((lambda (_L121079_ _L121080_ _L121081_) + (let* ((_lambda-id121105_ + (let ((__tmp128997 (let () (declare (not safe)) - (gx#stx-e _L120975_))) - (__tmp128998 - (let ((__tmp128999 + (gx#stx-e _L120972_))) + (__tmp128995 + (let ((__tmp128996 (let () (declare (not safe)) - (gx#stx-e _L121084_)))) + (gx#stx-e _L121081_)))) (declare (not safe)) - (_opt-lambda-dispatch-name120540_ - __tmp128999)))) + (_opt-lambda-dispatch-name120537_ + __tmp128996)))) (declare (not safe)) (make-symbol__1 - __tmp129000 + __tmp128997 '"__" - __tmp128998))) - (_lambda-id121110_ - (let ((__tmp129001 + __tmp128995))) + (_lambda-id121107_ + (let ((__tmp128998 (let () (declare (not safe)) - (gx#stx-source _stx120537_)))) + (gx#stx-source _stx120534_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _lambda-id121108_ - __tmp129001))) - (_g129002_ + _lambda-id121105_ + __tmp128998))) + (_g128999_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lambda-id121110_))) - (_new-case-lambda-expr121113_ + _lambda-id121107_))) + (_new-case-lambda-expr121110_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L121082_ - _L121084_ - _lambda-id121110_)))) - (let ((__tmp129004 + _L121079_ + _L121081_ + _lambda-id121107_)))) + (let ((__tmp129001 (let () (declare (not safe)) - (gxc#identifier-symbol _L120975_))) - (__tmp129003 + (gxc#identifier-symbol _L120972_))) + (__tmp129000 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id121110_)))) + _lambda-id121107_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp129004 + __tmp129001 '" => " - __tmp129003)) - (let ((__tmp129005 - (let ((__tmp129006 - (let ((__tmp129014 - (let ((__tmp129015 - (let ((__tmp129016 - (let ((__tmp129019 + __tmp129000)) + (let ((__tmp129002 + (let ((__tmp129003 + (let ((__tmp129011 + (let ((__tmp129012 + (let ((__tmp129013 + (let ((__tmp129016 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _lambda-id121110_ '()))) - (__tmp129017 - (let ((__tmp129018 + (cons _lambda-id121107_ '()))) + (__tmp129014 + (let ((__tmp129015 (let () (declare (not safe)) - (gxc#compile-e__0 _L121083_)))) + (gxc#compile-e__0 _L121080_)))) (declare (not safe)) - (cons __tmp129018 '())))) + (cons __tmp129015 '())))) (declare (not safe)) - (cons __tmp129019 __tmp129017)))) + (cons __tmp129016 __tmp129014)))) (declare (not safe)) - (cons '%#define-values __tmp129016)))) + (cons '%#define-values __tmp129013)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp129015 - _stx120537_))) - (__tmp129007 - (let ((__tmp129008 - (let ((__tmp129009 - (let ((__tmp129010 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129011 - (let ((__tmp129013 + __tmp129012 + _stx120534_))) + (__tmp129004 + (let ((__tmp129005 + (let ((__tmp129006 + (let ((__tmp129007 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129008 + (let ((__tmp129010 (let () (declare (not safe)) - (cons _L120975_ '()))) - (__tmp129012 + (cons _L120972_ '()))) + (__tmp129009 (let () (declare (not safe)) - (cons _new-case-lambda-expr121113_ + (cons _new-case-lambda-expr121110_ '())))) (declare (not safe)) - (cons __tmp129013 __tmp129012)))) + (cons __tmp129010 __tmp129009)))) (declare (not safe)) - (cons '%#define-values __tmp129011)))) + (cons '%#define-values __tmp129008)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp129010 _stx120537_)))) + (gxc#xform-wrap-source __tmp129007 _stx120534_)))) (declare (not safe)) - (gxc#lift-top-lambda-define-values% __tmp129009)))) + (gxc#lift-top-lambda-define-values% __tmp129006)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129008 '())))) + (cons __tmp129005 '())))) (declare (not safe)) - (cons __tmp129014 __tmp129007)))) + (cons __tmp129011 __tmp129004)))) (declare (not safe)) - (cons '%#begin __tmp129006)))) + (cons '%#begin __tmp129003)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp129005 - _stx120537_)))) - _hd121015121077_ - _hd121012121069_ - _hd121009121061_) + __tmp129002 + _stx120534_)))) + _hd121012121074_ + _hd121009121066_ + _hd121006121058_) (let () (declare (not safe)) - (_g120991121021_ _g120992121024_))))) - (let () (declare (not safe)) (_g120991121021_ _g120992121024_))) + (_g120988121018_ _g120989121021_))))) + (let () (declare (not safe)) (_g120988121018_ _g120989121021_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120991121021_ - _g120992121024_))) + (_g120988121018_ + _g120989121021_))) (let () (declare (not safe)) - (_g120991121021_ - _g120992121024_))))) + (_g120988121018_ + _g120989121021_))))) (let () (declare (not safe)) - (_g120991121021_ _g120992121024_))) + (_g120988121018_ _g120989121021_))) (let () (declare (not safe)) - (_g120991121021_ _g120992121024_))))) + (_g120988121018_ _g120989121021_))))) (let () (declare (not safe)) - (_g120991121021_ _g120992121024_))))) + (_g120988121018_ _g120989121021_))))) (let () (declare (not safe)) - (_g120991121021_ _g120992121024_))))) + (_g120988121018_ _g120989121021_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120991121021_ - _g120992121024_))))) + (_g120988121018_ + _g120989121021_))))) (let () (declare (not safe)) - (_g120991121021_ - _g120992121024_))))) + (_g120988121018_ + _g120989121021_))))) (let () (declare (not safe)) - (_g120991121021_ _g120992121024_)))))) + (_g120988121018_ _g120989121021_)))))) (declare (not safe)) - (_g120990121116_ _L120974_)))) - (___kont128333128334_ - (lambda (_L120688_ _L120689_) - (let* ((_g120705120758_ - (lambda (_g120706120755_) + (_g120987121113_ _L120971_)))) + (___kont128330128331_ + (lambda (_L120685_ _L120686_) + (let* ((_g120702120755_ + (lambda (_g120703120752_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g120706120755_)))) - (_g120704120934_ - (lambda (_g120706120761_) + _g120703120752_)))) + (_g120701120931_ + (lambda (_g120703120758_) (if (let () (declare (not safe)) - (gx#stx-pair? _g120706120761_)) - (let ((_e120714120763_ + (gx#stx-pair? _g120703120758_)) + (let ((_e120711120760_ (let () (declare (not safe)) - (gx#stx-e _g120706120761_)))) - (let ((_hd120713120766_ + (gx#stx-e _g120703120758_)))) + (let ((_hd120710120763_ (let () (declare (not safe)) - (##car _e120714120763_))) - (_tl120712120768_ + (##car _e120711120760_))) + (_tl120709120765_ (let () (declare (not safe)) - (##cdr _e120714120763_)))) + (##cdr _e120711120760_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120712120768_)) - (let ((_e120717120771_ + (gx#stx-pair? _tl120709120765_)) + (let ((_e120714120768_ (let () (declare (not safe)) (gx#stx-e - _tl120712120768_)))) - (let ((_hd120716120774_ + _tl120709120765_)))) + (let ((_hd120713120771_ (let () (declare (not safe)) - (##car _e120717120771_))) - (_tl120715120776_ + (##car _e120714120768_))) + (_tl120712120773_ (let () (declare (not safe)) - (##cdr _e120717120771_)))) + (##cdr _e120714120768_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120716120774_)) - (let ((_e120720120779_ + _hd120713120771_)) + (let ((_e120717120776_ (let () (declare (not safe)) (gx#stx-e - _hd120716120774_)))) - (let ((_hd120719120782_ + _hd120713120771_)))) + (let ((_hd120716120779_ (let () (declare (not safe)) - (##car _e120720120779_))) - (_tl120718120784_ + (##car _e120717120776_))) + (_tl120715120781_ (let () (declare (not safe)) - (##cdr _e120720120779_)))) + (##cdr _e120717120776_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120719120782_)) - (let ((_e120723120787_ + _hd120716120779_)) + (let ((_e120720120784_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd120719120782_)))) - (let ((_hd120722120790_ + (gx#stx-e _hd120716120779_)))) + (let ((_hd120719120787_ (let () (declare (not safe)) - (##car _e120723120787_))) - (_tl120721120792_ + (##car _e120720120784_))) + (_tl120718120789_ (let () (declare (not safe)) - (##cdr _e120723120787_)))) + (##cdr _e120720120784_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120722120790_)) - (let ((_e120726120795_ + (gx#stx-pair? _hd120719120787_)) + (let ((_e120723120792_ (let () (declare (not safe)) - (gx#stx-e _hd120722120790_)))) - (let ((_hd120725120798_ + (gx#stx-e _hd120719120787_)))) + (let ((_hd120722120795_ (let () (declare (not safe)) - (##car _e120726120795_))) - (_tl120724120800_ + (##car _e120723120792_))) + (_tl120721120797_ (let () (declare (not safe)) - (##cdr _e120726120795_)))) + (##cdr _e120723120792_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120724120800_)) + (gx#stx-null? _tl120721120797_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120721120792_)) - (let ((_e120729120803_ + (gx#stx-pair? _tl120718120789_)) + (let ((_e120726120800_ (let () (declare (not safe)) - (gx#stx-e _tl120721120792_)))) - (let ((_hd120728120806_ + (gx#stx-e _tl120718120789_)))) + (let ((_hd120725120803_ (let () (declare (not safe)) - (##car _e120729120803_))) - (_tl120727120808_ + (##car _e120726120800_))) + (_tl120724120805_ (let () (declare (not safe)) - (##cdr _e120729120803_)))) + (##cdr _e120726120800_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120728120806_)) - (let ((_e120732120811_ + _hd120725120803_)) + (let ((_e120729120808_ (let () (declare (not safe)) (gx#stx-e - _hd120728120806_)))) - (let ((_hd120731120814_ + _hd120725120803_)))) + (let ((_hd120728120811_ (let () (declare (not safe)) - (##car _e120732120811_))) - (_tl120730120816_ + (##car _e120729120808_))) + (_tl120727120813_ (let () (declare (not safe)) - (##cdr _e120732120811_)))) + (##cdr _e120729120808_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120730120816_)) - (let ((_e120735120819_ + _tl120727120813_)) + (let ((_e120732120816_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl120730120816_)))) - (let ((_hd120734120822_ - (let () (declare (not safe)) (##car _e120735120819_))) - (_tl120733120824_ - (let () (declare (not safe)) (##cdr _e120735120819_)))) + (gx#stx-e _tl120727120813_)))) + (let ((_hd120731120819_ + (let () (declare (not safe)) (##car _e120732120816_))) + (_tl120730120821_ + (let () (declare (not safe)) (##cdr _e120732120816_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120734120822_)) - (let ((_e120738120827_ + (gx#stx-pair? _hd120731120819_)) + (let ((_e120735120824_ (let () (declare (not safe)) - (gx#stx-e _hd120734120822_)))) - (let ((_hd120737120830_ + (gx#stx-e _hd120731120819_)))) + (let ((_hd120734120827_ (let () (declare (not safe)) - (##car _e120738120827_))) - (_tl120736120832_ + (##car _e120735120824_))) + (_tl120733120829_ (let () (declare (not safe)) - (##cdr _e120738120827_)))) + (##cdr _e120735120824_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120737120830_)) - (let ((_e120741120835_ + (gx#stx-pair? _hd120734120827_)) + (let ((_e120738120832_ (let () (declare (not safe)) - (gx#stx-e _hd120737120830_)))) - (let ((_hd120740120838_ + (gx#stx-e _hd120734120827_)))) + (let ((_hd120737120835_ (let () (declare (not safe)) - (##car _e120741120835_))) - (_tl120739120840_ + (##car _e120738120832_))) + (_tl120736120837_ (let () (declare (not safe)) - (##cdr _e120741120835_)))) + (##cdr _e120738120832_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120740120838_)) - (let ((_e120744120843_ + (gx#stx-pair? _hd120737120835_)) + (let ((_e120741120840_ (let () (declare (not safe)) - (gx#stx-e _hd120740120838_)))) - (let ((_hd120743120846_ + (gx#stx-e _hd120737120835_)))) + (let ((_hd120740120843_ (let () (declare (not safe)) - (##car _e120744120843_))) - (_tl120742120848_ + (##car _e120741120840_))) + (_tl120739120845_ (let () (declare (not safe)) - (##cdr _e120744120843_)))) + (##cdr _e120741120840_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120742120848_)) + _tl120739120845_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120739120840_)) - (let ((_e120747120851_ + _tl120736120837_)) + (let ((_e120744120848_ (let () (declare (not safe)) (gx#stx-e - _tl120739120840_)))) - (let ((_hd120746120854_ + _tl120736120837_)))) + (let ((_hd120743120851_ (let () (declare (not safe)) - (##car _e120747120851_))) - (_tl120745120856_ + (##car _e120744120848_))) + (_tl120742120853_ (let () (declare (not safe)) - (##cdr _e120747120851_)))) + (##cdr _e120744120848_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120745120856_)) + _tl120742120853_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-null? _tl120736120832_)) + (gx#stx-null? _tl120733120829_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120733120824_)) - (let ((_e120750120859_ + (gx#stx-pair? _tl120730120821_)) + (let ((_e120747120856_ (let () (declare (not safe)) - (gx#stx-e _tl120733120824_)))) - (let ((_hd120749120862_ + (gx#stx-e _tl120730120821_)))) + (let ((_hd120746120859_ (let () (declare (not safe)) - (##car _e120750120859_))) - (_tl120748120864_ + (##car _e120747120856_))) + (_tl120745120861_ (let () (declare (not safe)) - (##cdr _e120750120859_)))) + (##cdr _e120747120856_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120748120864_)) + (gx#stx-null? _tl120745120861_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl120727120808_)) + (gx#stx-null? _tl120724120805_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl120718120784_)) + (gx#stx-null? _tl120715120781_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120715120776_)) - (let ((_e120753120867_ + _tl120712120773_)) + (let ((_e120750120864_ (let () (declare (not safe)) (gx#stx-e - _tl120715120776_)))) - (let ((_hd120752120870_ + _tl120712120773_)))) + (let ((_hd120749120867_ (let () (declare (not safe)) - (##car _e120753120867_))) - (_tl120751120872_ + (##car _e120750120864_))) + (_tl120748120869_ (let () (declare (not safe)) - (##cdr _e120753120867_)))) + (##cdr _e120750120864_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120751120872_)) - ((lambda (_L120875_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L120876_ - _L120877_ - _L120878_ - _L120879_) - (let* ((_get-kws-id120919_ - (let ((__tmp129022 + _tl120748120869_)) + ((lambda (_L120872_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L120873_ + _L120874_ + _L120875_ + _L120876_) + (let* ((_get-kws-id120916_ + (let ((__tmp129019 (let () (declare (not safe)) - (gx#stx-e _L120689_))) - (__tmp129020 - (let ((__tmp129021 + (gx#stx-e _L120686_))) + (__tmp129017 + (let ((__tmp129018 (let () (declare (not safe)) - (gx#stx-e _L120879_)))) + (gx#stx-e _L120876_)))) (declare (not safe)) - (_kw-lambda-dispatch-name120541_ - __tmp129021 + (_kw-lambda-dispatch-name120538_ + __tmp129018 '"@")))) (declare (not safe)) - (make-symbol__1 __tmp129022 '"__" __tmp129020))) - (_get-kws-id120921_ - (let ((__tmp129023 + (make-symbol__1 __tmp129019 '"__" __tmp129017))) + (_get-kws-id120918_ + (let ((__tmp129020 (let () (declare (not safe)) - (gx#stx-source _stx120537_)))) + (gx#stx-source _stx120534_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id120919_ - __tmp129023))) - (_main-id120923_ - (let ((__tmp129026 + _get-kws-id120916_ + __tmp129020))) + (_main-id120920_ + (let ((__tmp129023 (let () (declare (not safe)) - (gx#stx-e _L120689_))) - (__tmp129024 - (let ((__tmp129025 + (gx#stx-e _L120686_))) + (__tmp129021 + (let ((__tmp129022 (let () (declare (not safe)) - (gx#stx-e _L120878_)))) + (gx#stx-e _L120875_)))) (declare (not safe)) - (_kw-lambda-dispatch-name120541_ - __tmp129025 + (_kw-lambda-dispatch-name120538_ + __tmp129022 '"%")))) (declare (not safe)) - (make-symbol__1 __tmp129026 '"__" __tmp129024))) - (_main-id120925_ - (let ((__tmp129027 + (make-symbol__1 __tmp129023 '"__" __tmp129021))) + (_main-id120922_ + (let ((__tmp129024 (let () (declare (not safe)) - (gx#stx-source _stx120537_)))) + (gx#stx-source _stx120534_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id120923_ - __tmp129027))) - (_g129028_ + _main-id120920_ + __tmp129024))) + (_g129025_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _get-kws-id120921_))) - (_g129029_ + (gx#core-bind-runtime!__0 _get-kws-id120918_))) + (_g129026_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _main-id120925_))) - (_new-kw-dispatch120929_ + (gx#core-bind-runtime!__0 _main-id120922_))) + (_new-kw-dispatch120926_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L120875_ - _L120879_ - _get-kws-id120921_))) - (_new-get-kws120931_ + _L120872_ + _L120876_ + _get-kws-id120918_))) + (_new-get-kws120928_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L120876_ - _L120878_ - _main-id120925_)))) - (let ((__tmp129032 + _L120873_ + _L120875_ + _main-id120922_)))) + (let ((__tmp129029 (let () (declare (not safe)) - (gxc#identifier-symbol _L120689_))) - (__tmp129031 + (gxc#identifier-symbol _L120686_))) + (__tmp129028 (let () (declare (not safe)) - (gxc#identifier-symbol _get-kws-id120921_))) - (__tmp129030 + (gxc#identifier-symbol _get-kws-id120918_))) + (__tmp129027 (let () (declare (not safe)) - (gxc#identifier-symbol _main-id120925_)))) + (gxc#identifier-symbol _main-id120922_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp129032 + __tmp129029 '" => " - __tmp129031 + __tmp129028 '" => " - __tmp129030)) - (let ((__tmp129033 - (let ((__tmp129034 - (let ((__tmp129047 - (let ((__tmp129048 - (let ((__tmp129049 - (let ((__tmp129050 - (let ((__tmp129052 + __tmp129027)) + (let ((__tmp129030 + (let ((__tmp129031 + (let ((__tmp129044 + (let ((__tmp129045 + (let ((__tmp129046 + (let ((__tmp129047 + (let ((__tmp129049 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _main-id120925_ '()))) - (__tmp129051 + (cons _main-id120922_ '()))) + (__tmp129048 (let () (declare (not safe)) - (cons _L120877_ '())))) + (cons _L120874_ '())))) (declare (not safe)) - (cons __tmp129052 __tmp129051)))) + (cons __tmp129049 __tmp129048)))) (declare (not safe)) - (cons '%#define-values __tmp129050)))) + (cons '%#define-values __tmp129047)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp129049 - _stx120537_)))) + __tmp129046 + _stx120534_)))) (declare (not safe)) (gxc#lift-top-lambda-define-values% - __tmp129048))) - (__tmp129035 - (let ((__tmp129042 - (let ((__tmp129043 - (let ((__tmp129044 - (let ((__tmp129046 + __tmp129045))) + (__tmp129032 + (let ((__tmp129039 + (let ((__tmp129040 + (let ((__tmp129041 + (let ((__tmp129043 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _get-kws-id120921_ '()))) - (__tmp129045 + (cons _get-kws-id120918_ '()))) + (__tmp129042 (let () (declare (not safe)) - (cons _new-get-kws120931_ '())))) + (cons _new-get-kws120928_ '())))) (declare (not safe)) - (cons __tmp129046 __tmp129045)))) + (cons __tmp129043 __tmp129042)))) (declare (not safe)) - (cons '%#define-values __tmp129044)))) + (cons '%#define-values __tmp129041)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp129043 - _stx120537_))) - (__tmp129036 - (let ((__tmp129037 - (let ((__tmp129038 - (let ((__tmp129039 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129041 + __tmp129040 + _stx120534_))) + (__tmp129033 + (let ((__tmp129034 + (let ((__tmp129035 + (let ((__tmp129036 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129038 (let () (declare (not safe)) - (cons _L120689_ '()))) - (__tmp129040 + (cons _L120686_ '()))) + (__tmp129037 (let () (declare (not safe)) - (cons _new-kw-dispatch120929_ '())))) + (cons _new-kw-dispatch120926_ '())))) (declare (not safe)) - (cons __tmp129041 __tmp129040)))) + (cons __tmp129038 __tmp129037)))) (declare (not safe)) - (cons '%#define-values __tmp129039)))) + (cons '%#define-values __tmp129036)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp129038 _stx120537_)))) + (gxc#xform-wrap-source __tmp129035 _stx120534_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129037 '())))) + (cons __tmp129034 '())))) (declare (not safe)) - (cons __tmp129042 __tmp129036)))) + (cons __tmp129039 __tmp129033)))) (declare (not safe)) - (cons __tmp129047 __tmp129035)))) + (cons __tmp129044 __tmp129032)))) (declare (not safe)) - (cons '%#begin __tmp129034)))) + (cons '%#begin __tmp129031)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp129033 _stx120537_)))) - _hd120752120870_ - _hd120749120862_ - _hd120746120854_ - _hd120743120846_ - _hd120725120798_) + (gxc#xform-wrap-source __tmp129030 _stx120534_)))) + _hd120749120867_ + _hd120746120859_ + _hd120743120851_ + _hd120740120843_ + _hd120722120795_) (let () (declare (not safe)) - (_g120705120758_ _g120706120761_))))) + (_g120702120755_ _g120703120758_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120705120758_ - _g120706120761_))) + (_g120702120755_ + _g120703120758_))) (let () (declare (not safe)) - (_g120705120758_ - _g120706120761_))) + (_g120702120755_ + _g120703120758_))) (let () (declare (not safe)) - (_g120705120758_ _g120706120761_))) + (_g120702120755_ _g120703120758_))) (let () (declare (not safe)) - (_g120705120758_ _g120706120761_))))) + (_g120702120755_ _g120703120758_))))) (let () (declare (not safe)) - (_g120705120758_ _g120706120761_))) + (_g120702120755_ _g120703120758_))) (let () (declare (not safe)) - (_g120705120758_ _g120706120761_))) + (_g120702120755_ _g120703120758_))) (let () (declare (not safe)) - (_g120705120758_ _g120706120761_))))) + (_g120702120755_ _g120703120758_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120705120758_ - _g120706120761_))) + (_g120702120755_ + _g120703120758_))) (let () (declare (not safe)) - (_g120705120758_ - _g120706120761_))))) + (_g120702120755_ + _g120703120758_))))) (let () (declare (not safe)) - (_g120705120758_ _g120706120761_))))) + (_g120702120755_ _g120703120758_))))) (let () (declare (not safe)) - (_g120705120758_ _g120706120761_))))) + (_g120702120755_ _g120703120758_))))) (let () (declare (not safe)) - (_g120705120758_ _g120706120761_))))) + (_g120702120755_ _g120703120758_))))) (let () (declare (not safe)) - (_g120705120758_ _g120706120761_))))) + (_g120702120755_ _g120703120758_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120705120758_ - _g120706120761_))))) + (_g120702120755_ + _g120703120758_))))) (let () (declare (not safe)) - (_g120705120758_ _g120706120761_))) + (_g120702120755_ _g120703120758_))) (let () (declare (not safe)) - (_g120705120758_ _g120706120761_))))) + (_g120702120755_ _g120703120758_))))) (let () (declare (not safe)) - (_g120705120758_ _g120706120761_))))) + (_g120702120755_ _g120703120758_))))) (let () (declare (not safe)) - (_g120705120758_ _g120706120761_))))) + (_g120702120755_ _g120703120758_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120705120758_ - _g120706120761_))))) + (_g120702120755_ + _g120703120758_))))) (let () (declare (not safe)) - (_g120705120758_ - _g120706120761_))))) + (_g120702120755_ + _g120703120758_))))) (let () (declare (not safe)) - (_g120705120758_ _g120706120761_)))))) + (_g120702120755_ _g120703120758_)))))) (declare (not safe)) - (_g120704120934_ _L120688_)))) - (___kont128335128336_ - (lambda (_L120634_ _L120635_) - (let ((__tmp129053 - (let ((__tmp129054 - (let ((__tmp129055 - (let ((__tmp129056 + (_g120701120931_ _L120685_)))) + (___kont128332128333_ + (lambda (_L120631_ _L120632_) + (let ((__tmp129050 + (let ((__tmp129051 + (let ((__tmp129052 + (let ((__tmp129053 (let () (declare (not safe)) (gxc#compile-e__0 - _L120634_)))) + _L120631_)))) (declare (not safe)) - (cons __tmp129056 '())))) + (cons __tmp129053 '())))) (declare (not safe)) - (cons _L120635_ __tmp129055)))) + (cons _L120632_ __tmp129052)))) (declare (not safe)) - (cons '%#define-values __tmp129054)))) + (cons '%#define-values __tmp129051)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp129053 _stx120537_))))) - (let* ((___match128420128421_ - (lambda (_e120580120656_ - _hd120579120659_ - _tl120578120661_ - _e120583120664_ - _hd120582120667_ - _tl120581120669_ - _e120586120672_ - _hd120585120675_ - _tl120584120677_ - _e120589120680_ - _hd120588120683_ - _tl120587120685_) - (let ((_L120688_ _hd120588120683_) - (_L120689_ _hd120585120675_)) + (gxc#xform-wrap-source __tmp129050 _stx120534_))))) + (let* ((___match128417128418_ + (lambda (_e120577120653_ + _hd120576120656_ + _tl120575120658_ + _e120580120661_ + _hd120579120664_ + _tl120578120666_ + _e120583120669_ + _hd120582120672_ + _tl120581120674_ + _e120586120677_ + _hd120585120680_ + _tl120584120682_) + (let ((_L120685_ _hd120585120680_) + (_L120686_ _hd120582120672_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L120689_)) + (gx#identifier? _L120686_)) (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L120688_))) - (___kont128333128334_ _L120688_ _L120689_) - (___kont128335128336_ - _hd120588120683_ - _hd120582120667_))))) - (___match128392128393_ - (lambda (_e120566120942_ - _hd120565120945_ - _tl120564120947_ - _e120569120950_ - _hd120568120953_ - _tl120567120955_ - _e120572120958_ - _hd120571120961_ - _tl120570120963_ - _e120575120966_ - _hd120574120969_ - _tl120573120971_) - (let ((_L120974_ _hd120574120969_) - (_L120975_ _hd120571120961_)) + (gxc#kw-lambda-expr? _L120685_))) + (___kont128330128331_ _L120685_ _L120686_) + (___kont128332128333_ + _hd120585120680_ + _hd120579120664_))))) + (___match128389128390_ + (lambda (_e120563120939_ + _hd120562120942_ + _tl120561120944_ + _e120566120947_ + _hd120565120950_ + _tl120564120952_ + _e120569120955_ + _hd120568120958_ + _tl120567120960_ + _e120572120963_ + _hd120571120966_ + _tl120570120968_) + (let ((_L120971_ _hd120571120966_) + (_L120972_ _hd120568120958_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L120975_)) + (gx#identifier? _L120972_)) (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L120974_))) - (___kont128331128332_ _L120974_ _L120975_) - (___match128420128421_ - _e120566120942_ - _hd120565120945_ - _tl120564120947_ - _e120569120950_ - _hd120568120953_ - _tl120567120955_ - _e120572120958_ - _hd120571120961_ - _tl120570120963_ - _e120575120966_ - _hd120574120969_ - _tl120573120971_))))) - (___match128364128365_ - (lambda (_e120552121124_ - _hd120551121127_ - _tl120550121129_ - _e120555121132_ - _hd120554121135_ - _tl120553121137_ - _e120558121140_ - _hd120557121143_ - _tl120556121145_ - _e120561121148_ - _hd120560121151_ - _tl120559121153_) - (let ((_L121156_ _hd120560121151_) - (_L121157_ _hd120557121143_)) + (gxc#opt-lambda-expr? _L120971_))) + (___kont128328128329_ _L120971_ _L120972_) + (___match128417128418_ + _e120563120939_ + _hd120562120942_ + _tl120561120944_ + _e120566120947_ + _hd120565120950_ + _tl120564120952_ + _e120569120955_ + _hd120568120958_ + _tl120567120960_ + _e120572120963_ + _hd120571120966_ + _tl120570120968_))))) + (___match128361128362_ + (lambda (_e120549121121_ + _hd120548121124_ + _tl120547121126_ + _e120552121129_ + _hd120551121132_ + _tl120550121134_ + _e120555121137_ + _hd120554121140_ + _tl120553121142_ + _e120558121145_ + _hd120557121148_ + _tl120556121150_) + (let ((_L121153_ _hd120557121148_) + (_L121154_ _hd120554121140_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L121157_)) + (gx#identifier? _L121154_)) (let () (declare (not safe)) - (gxc#case-lambda-expr? _L121156_))) - (___kont128329128330_ _L121156_ _L121157_) - (___match128392128393_ - _e120552121124_ - _hd120551121127_ - _tl120550121129_ - _e120555121132_ - _hd120554121135_ - _tl120553121137_ - _e120558121140_ - _hd120557121143_ - _tl120556121145_ - _e120561121148_ - _hd120560121151_ - _tl120559121153_)))))) + (gxc#case-lambda-expr? _L121153_))) + (___kont128326128327_ _L121153_ _L121154_) + (___match128389128390_ + _e120549121121_ + _hd120548121124_ + _tl120547121126_ + _e120552121129_ + _hd120551121132_ + _tl120550121134_ + _e120555121137_ + _hd120554121140_ + _tl120553121142_ + _e120558121145_ + _hd120557121148_ + _tl120556121150_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128327128328_)) - (let ((_e120552121124_ + (gx#stx-pair? ___stx128324128325_)) + (let ((_e120549121121_ (let () (declare (not safe)) - (gx#stx-e ___stx128327128328_)))) - (let ((_tl120550121129_ + (gx#stx-e ___stx128324128325_)))) + (let ((_tl120547121126_ (let () (declare (not safe)) - (##cdr _e120552121124_))) - (_hd120551121127_ + (##cdr _e120549121121_))) + (_hd120548121124_ (let () (declare (not safe)) - (##car _e120552121124_)))) + (##car _e120549121121_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120550121129_)) - (let ((_e120555121132_ + (gx#stx-pair? _tl120547121126_)) + (let ((_e120552121129_ (let () (declare (not safe)) - (gx#stx-e _tl120550121129_)))) - (let ((_tl120553121137_ + (gx#stx-e _tl120547121126_)))) + (let ((_tl120550121134_ (let () (declare (not safe)) - (##cdr _e120555121132_))) - (_hd120554121135_ + (##cdr _e120552121129_))) + (_hd120551121132_ (let () (declare (not safe)) - (##car _e120555121132_)))) + (##car _e120552121129_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120554121135_)) - (let ((_e120558121140_ + (gx#stx-pair? _hd120551121132_)) + (let ((_e120555121137_ (let () (declare (not safe)) - (gx#stx-e _hd120554121135_)))) - (let ((_tl120556121145_ + (gx#stx-e _hd120551121132_)))) + (let ((_tl120553121142_ (let () (declare (not safe)) - (##cdr _e120558121140_))) - (_hd120557121143_ + (##cdr _e120555121137_))) + (_hd120554121140_ (let () (declare (not safe)) - (##car _e120558121140_)))) + (##car _e120555121137_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120556121145_)) + (gx#stx-null? _tl120553121142_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120553121137_)) - (let ((_e120561121148_ + _tl120550121134_)) + (let ((_e120558121145_ (let () (declare (not safe)) (gx#stx-e - _tl120553121137_)))) - (let ((_tl120559121153_ + _tl120550121134_)))) + (let ((_tl120556121150_ (let () (declare (not safe)) - (##cdr _e120561121148_))) - (_hd120560121151_ + (##cdr _e120558121145_))) + (_hd120557121148_ (let () (declare (not safe)) - (##car _e120561121148_)))) + (##car _e120558121145_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120559121153_)) - (___match128364128365_ - _e120552121124_ - _hd120551121127_ - _tl120550121129_ - _e120555121132_ - _hd120554121135_ - _tl120553121137_ - _e120558121140_ - _hd120557121143_ - _tl120556121145_ - _e120561121148_ - _hd120560121151_ - _tl120559121153_) + _tl120556121150_)) + (___match128361128362_ + _e120549121121_ + _hd120548121124_ + _tl120547121126_ + _e120552121129_ + _hd120551121132_ + _tl120550121134_ + _e120555121137_ + _hd120554121140_ + _tl120553121142_ + _e120558121145_ + _hd120557121148_ + _tl120556121150_) (let () (declare (not safe)) - (_g120546120605_))))) + (_g120543120602_))))) (let () (declare (not safe)) - (_g120546120605_))) + (_g120543120602_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120553121137_)) - (let ((_e120600120626_ + _tl120550121134_)) + (let ((_e120597120623_ (let () (declare (not safe)) (gx#stx-e - _tl120553121137_)))) - (let ((_tl120598120631_ + _tl120550121134_)))) + (let ((_tl120595120628_ (let () (declare (not safe)) - (##cdr _e120600120626_))) - (_hd120599120629_ + (##cdr _e120597120623_))) + (_hd120596120626_ (let () (declare (not safe)) - (##car _e120600120626_)))) + (##car _e120597120623_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120598120631_)) - (___kont128335128336_ - _hd120599120629_ - _hd120554121135_) + _tl120595120628_)) + (___kont128332128333_ + _hd120596120626_ + _hd120551121132_) (let () (declare (not safe)) - (_g120546120605_))))) + (_g120543120602_))))) (let () (declare (not safe)) - (_g120546120605_)))))) + (_g120543120602_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120553121137_)) - (let ((_e120600120626_ + (gx#stx-pair? _tl120550121134_)) + (let ((_e120597120623_ (let () (declare (not safe)) - (gx#stx-e _tl120553121137_)))) - (let ((_tl120598120631_ + (gx#stx-e _tl120550121134_)))) + (let ((_tl120595120628_ (let () (declare (not safe)) - (##cdr _e120600120626_))) - (_hd120599120629_ + (##cdr _e120597120623_))) + (_hd120596120626_ (let () (declare (not safe)) - (##car _e120600120626_)))) + (##car _e120597120623_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120598120631_)) - (___kont128335128336_ - _hd120599120629_ - _hd120554121135_) + _tl120595120628_)) + (___kont128332128333_ + _hd120596120626_ + _hd120551121132_) (let () (declare (not safe)) - (_g120546120605_))))) + (_g120543120602_))))) (let () (declare (not safe)) - (_g120546120605_)))))) - (let () (declare (not safe)) (_g120546120605_))))) - (let () (declare (not safe)) (_g120546120605_))))))))) + (_g120543120602_)))))) + (let () (declare (not safe)) (_g120543120602_))))) + (let () (declare (not safe)) (_g120543120602_))))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_stx119469_) - (letrec* ((_bind-e__126723126724_ - (lambda (_id120521_ _expr120522_ _compile?120523_) - (let ((__tmp129059 + (lambda (_stx119466_) + (letrec* ((_bind-e__126720126721_ + (lambda (_id120518_ _expr120519_ _compile?120520_) + (let ((__tmp129056 (let () (declare (not safe)) - (cons _id120521_ '()))) - (__tmp129057 - (let ((__tmp129058 - (if _compile?120523_ + (cons _id120518_ '()))) + (__tmp129054 + (let ((__tmp129055 + (if _compile?120520_ (let () (declare (not safe)) - (gxc#compile-e__0 _expr120522_)) - _expr120522_))) + (gxc#compile-e__0 _expr120519_)) + _expr120519_))) (declare (not safe)) - (cons __tmp129058 '())))) + (cons __tmp129055 '())))) (declare (not safe)) - (cons __tmp129059 __tmp129057)))) - (_bind-e__0__126725126726_ - (lambda (_id120528_ _expr120529_) - (let ((_compile?120531_ '#t)) + (cons __tmp129056 __tmp129054)))) + (_bind-e__0__126722126723_ + (lambda (_id120525_ _expr120526_) + (let ((_compile?120528_ '#t)) (declare (not safe)) - (_bind-e__126723126724_ - _id120528_ - _expr120529_ - _compile?120531_)))) - (_bind-e119471_ - (lambda _g129061_ - (let ((_g129060_ + (_bind-e__126720126721_ + _id120525_ + _expr120526_ + _compile?120528_)))) + (_bind-e119468_ + (lambda _g129058_ + (let ((_g129057_ (let () (declare (not safe)) - (##length _g129061_)))) - (cond ((let () (declare (not safe)) (##fx= _g129060_ 2)) - (apply (lambda (_id120528_ _expr120529_) + (##length _g129058_)))) + (cond ((let () (declare (not safe)) (##fx= _g129057_ 2)) + (apply (lambda (_id120525_ _expr120526_) (let () (declare (not safe)) - (_bind-e__0__126725126726_ - _id120528_ - _expr120529_))) - _g129061_)) - ((let () (declare (not safe)) (##fx= _g129060_ 3)) - (apply (lambda (_id120533_ - _expr120534_ - _compile?120535_) + (_bind-e__0__126722126723_ + _id120525_ + _expr120526_))) + _g129058_)) + ((let () (declare (not safe)) (##fx= _g129057_ 3)) + (apply (lambda (_id120530_ + _expr120531_ + _compile?120532_) (let () (declare (not safe)) - (_bind-e__126723126724_ - _id120533_ - _expr120534_ - _compile?120535_))) - _g129061_)) + (_bind-e__126720126721_ + _id120530_ + _expr120531_ + _compile?120532_))) + _g129058_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g129061_)))))) - (_compile-bindings119472_ - (lambda (_bindings120105_) - (let _lp120107_ ((_rest120109_ _bindings120105_) - (_lift1120110_ '()) - (_lift2120111_ '()) - (_bind120112_ '())) - (let* ((_rest120113120121_ _rest120109_) - (_else120115120129_ + _g129058_)))))) + (_compile-bindings119469_ + (lambda (_bindings120102_) + (let _lp120104_ ((_rest120106_ _bindings120102_) + (_lift1120107_ '()) + (_lift2120108_ '()) + (_bind120109_ '())) + (let* ((_rest120110120118_ _rest120106_) + (_else120112120126_ (lambda () - (values (reverse _lift1120110_) - (reverse _lift2120111_) - (reverse _bind120112_)))) - (_K120117120508_ - (lambda (_rest120132_ _hd120133_) - (let* ((___stx128463128464_ _hd120133_) - (_g120137120173_ + (values (reverse _lift1120107_) + (reverse _lift2120108_) + (reverse _bind120109_)))) + (_K120114120505_ + (lambda (_rest120129_ _hd120130_) + (let* ((___stx128460128461_ _hd120130_) + (_g120134120170_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128463128464_))))) - (let ((___kont128465128466_ - (lambda (_L120415_ _L120416_) - (let* ((___stx128443128444_ - _L120415_) - (_g120431120445_ + ___stx128460128461_))))) + (let ((___kont128462128463_ + (lambda (_L120412_ _L120413_) + (let* ((___stx128440128441_ + _L120412_) + (_g120428120442_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128443128444_))))) - (let ((___kont128445128446_ - (lambda (_L120493_) - (let ((__tmp129062 - (let ((__tmp129063 + ___stx128440128441_))))) + (let ((___kont128442128443_ + (lambda (_L120490_) + (let ((__tmp129059 + (let ((__tmp129060 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__126723126724_ - _L120416_ - _L120415_ + (_bind-e__126720126721_ + _L120413_ + _L120412_ '#f)))) (declare (not safe)) - (cons __tmp129063 _bind120112_)))) + (cons __tmp129060 _bind120109_)))) (declare (not safe)) - (_lp120107_ - _rest120132_ - _lift1120110_ - _lift2120111_ - __tmp129062)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128447128448_ - (lambda (_L120458_) - (let ((_g129064_ + (_lp120104_ + _rest120129_ + _lift1120107_ + _lift2120108_ + __tmp129059)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128444128445_ + (lambda (_L120455_) + (let ((_g129061_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#lift-case-lambda-clauses__% - _stx119469_ - _L120416_ - _L120458_ + _stx119466_ + _L120413_ + _L120455_ '#t)))) (begin - (let ((_g129065_ + (let ((_g129062_ (let () (declare (not safe)) - (if (##values? _g129064_) - (##vector-length _g129064_) + (if (##values? _g129061_) + (##vector-length _g129061_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129065_ 3))) - (error "Context expects 3 values" _g129065_))) - (let ((_ids120468_ + (##fx= _g129062_ 3))) + (error "Context expects 3 values" _g129062_))) + (let ((_ids120465_ (let () (declare (not safe)) - (##vector-ref _g129064_ 0))) - (_impls120469_ + (##vector-ref _g129061_ 0))) + (_impls120466_ (let () (declare (not safe)) - (##vector-ref _g129064_ 1))) - (_clauses120470_ + (##vector-ref _g129061_ 1))) + (_clauses120467_ (let () (declare (not safe)) - (##vector-ref _g129064_ 2)))) - (let* ((_g129066_ - (for-each gx#core-bind-runtime! _ids120468_)) - (_xbind120473_ - (map _bind-e119471_ _ids120468_ _impls120469_)) - (_expr*120475_ - (let ((__tmp129068 + (##vector-ref _g129061_ 2)))) + (let* ((_g129063_ + (for-each gx#core-bind-runtime! _ids120465_)) + (_xbind120470_ + (map _bind-e119468_ _ids120465_ _impls120466_)) + (_expr*120472_ + (let ((__tmp129065 (let () (declare (not safe)) - (cons '%#case-lambda _clauses120470_))) - (__tmp129067 + (cons '%#case-lambda _clauses120467_))) + (__tmp129064 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -12456,1584 +12456,1584 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp129068 - __tmp129067))) - (_bind*120477_ + __tmp129065 + __tmp129064))) + (_bind*120474_ (let () (declare (not safe)) - (_bind-e__126723126724_ - _L120416_ - _expr*120475_ + (_bind-e__126720126721_ + _L120413_ + _expr*120472_ '#f)))) - (let ((__tmp129070 + (let ((__tmp129067 (let () (declare (not safe)) - (gxc#identifier-symbol _L120416_))) - (__tmp129069 - (map gxc#identifier-symbol _ids120468_))) + (gxc#identifier-symbol _L120413_))) + (__tmp129066 + (map gxc#identifier-symbol _ids120465_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp129070 + __tmp129067 '" => " - __tmp129069)) - (let ((__tmp129072 + __tmp129066)) + (let ((__tmp129069 (let () (declare (not safe)) - (foldl1 cons _lift2120111_ _xbind120473_))) - (__tmp129071 + (foldl1 cons _lift2120108_ _xbind120470_))) + (__tmp129068 (let () (declare (not safe)) - (cons _bind*120477_ _bind120112_)))) + (cons _bind*120474_ _bind120109_)))) (declare (not safe)) - (_lp120107_ - _rest120132_ - _lift1120110_ - __tmp129072 - __tmp129071))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match128454128455_ - (lambda (_e120436120485_ - _hd120435120488_ - _tl120434120490_) - (let ((_L120493_ - _tl120434120490_)) + (_lp120104_ + _rest120129_ + _lift1120107_ + __tmp129069 + __tmp129068))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match128451128452_ + (lambda (_e120433120482_ + _hd120432120485_ + _tl120431120487_) + (let ((_L120490_ + _tl120431120487_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (andmap1 gxc#dispatch-lambda-form? _L120493_)) - (___kont128445128446_ _L120493_) - (___kont128447128448_ _tl120434120490_)))))) + (andmap1 gxc#dispatch-lambda-form? _L120490_)) + (___kont128442128443_ _L120490_) + (___kont128444128445_ _tl120431120487_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx128443128444_)) - (let ((_e120436120485_ + ___stx128440128441_)) + (let ((_e120433120482_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx128443128444_)))) - (let ((_tl120434120490_ - (let () (declare (not safe)) (##cdr _e120436120485_))) - (_hd120435120488_ - (let () (declare (not safe)) (##car _e120436120485_)))) - (___match128454128455_ - _e120436120485_ - _hd120435120488_ - _tl120434120490_))) - (let () (declare (not safe)) (_g120431120445_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128467128468_ - (lambda (_L120243_ _L120244_) - (let* ((_g120258120288_ - (lambda (_g120259120285_) + (gx#stx-e ___stx128440128441_)))) + (let ((_tl120431120487_ + (let () (declare (not safe)) (##cdr _e120433120482_))) + (_hd120432120485_ + (let () (declare (not safe)) (##car _e120433120482_)))) + (___match128451128452_ + _e120433120482_ + _hd120432120485_ + _tl120431120487_))) + (let () (declare (not safe)) (_g120428120442_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128464128465_ + (lambda (_L120240_ _L120241_) + (let* ((_g120255120285_ + (lambda (_g120256120282_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g120259120285_)))) - (_g120257120383_ - (lambda (_g120259120291_) + _g120256120282_)))) + (_g120254120380_ + (lambda (_g120256120288_) (if (let () (declare (not safe)) (gx#stx-pair? - _g120259120291_)) - (let ((_e120265120293_ + _g120256120288_)) + (let ((_e120262120290_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g120259120291_)))) - (let ((_hd120264120296_ + (gx#stx-e _g120256120288_)))) + (let ((_hd120261120293_ (let () (declare (not safe)) - (##car _e120265120293_))) - (_tl120263120298_ + (##car _e120262120290_))) + (_tl120260120295_ (let () (declare (not safe)) - (##cdr _e120265120293_)))) + (##cdr _e120262120290_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120263120298_)) - (let ((_e120268120301_ + (gx#stx-pair? _tl120260120295_)) + (let ((_e120265120298_ (let () (declare (not safe)) - (gx#stx-e _tl120263120298_)))) - (let ((_hd120267120304_ + (gx#stx-e _tl120260120295_)))) + (let ((_hd120264120301_ (let () (declare (not safe)) - (##car _e120268120301_))) - (_tl120266120306_ + (##car _e120265120298_))) + (_tl120263120303_ (let () (declare (not safe)) - (##cdr _e120268120301_)))) + (##cdr _e120265120298_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120267120304_)) - (let ((_e120271120309_ + (gx#stx-pair? _hd120264120301_)) + (let ((_e120268120306_ (let () (declare (not safe)) - (gx#stx-e _hd120267120304_)))) - (let ((_hd120270120312_ + (gx#stx-e _hd120264120301_)))) + (let ((_hd120267120309_ (let () (declare (not safe)) - (##car _e120271120309_))) - (_tl120269120314_ + (##car _e120268120306_))) + (_tl120266120311_ (let () (declare (not safe)) - (##cdr _e120271120309_)))) + (##cdr _e120268120306_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120270120312_)) - (let ((_e120274120317_ + (gx#stx-pair? _hd120267120309_)) + (let ((_e120271120314_ (let () (declare (not safe)) (gx#stx-e - _hd120270120312_)))) - (let ((_hd120273120320_ + _hd120267120309_)))) + (let ((_hd120270120317_ (let () (declare (not safe)) - (##car _e120274120317_))) - (_tl120272120322_ + (##car _e120271120314_))) + (_tl120269120319_ (let () (declare (not safe)) - (##cdr _e120274120317_)))) + (##cdr _e120271120314_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120273120320_)) - (let ((_e120277120325_ + _hd120270120317_)) + (let ((_e120274120322_ (let () (declare (not safe)) (gx#stx-e - _hd120273120320_)))) - (let ((_hd120276120328_ + _hd120270120317_)))) + (let ((_hd120273120325_ (let () (declare (not safe)) - (##car _e120277120325_))) - (_tl120275120330_ + (##car _e120274120322_))) + (_tl120272120327_ (let () (declare (not safe)) - (##cdr _e120277120325_)))) + (##cdr _e120274120322_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120275120330_)) + _tl120272120327_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl120272120322_)) - (let ((_e120280120333_ + (gx#stx-pair? _tl120269120319_)) + (let ((_e120277120330_ (let () (declare (not safe)) - (gx#stx-e _tl120272120322_)))) - (let ((_hd120279120336_ + (gx#stx-e _tl120269120319_)))) + (let ((_hd120276120333_ (let () (declare (not safe)) - (##car _e120280120333_))) - (_tl120278120338_ + (##car _e120277120330_))) + (_tl120275120335_ (let () (declare (not safe)) - (##cdr _e120280120333_)))) + (##cdr _e120277120330_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120278120338_)) + (gx#stx-null? _tl120275120335_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl120269120314_)) + (gx#stx-null? _tl120266120311_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120266120306_)) - (let ((_e120283120341_ + (gx#stx-pair? _tl120263120303_)) + (let ((_e120280120338_ (let () (declare (not safe)) - (gx#stx-e _tl120266120306_)))) - (let ((_hd120282120344_ + (gx#stx-e _tl120263120303_)))) + (let ((_hd120279120341_ (let () (declare (not safe)) - (##car _e120283120341_))) - (_tl120281120346_ + (##car _e120280120338_))) + (_tl120278120343_ (let () (declare (not safe)) - (##cdr _e120283120341_)))) + (##cdr _e120280120338_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120281120346_)) - ((lambda (_L120349_ - _L120350_ - _L120351_) - (let* ((_lambda-id120375_ - (let ((__tmp129074 + _tl120278120343_)) + ((lambda (_L120346_ + _L120347_ + _L120348_) + (let* ((_lambda-id120372_ + (let ((__tmp129071 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L120244_))) - (__tmp129073 (gensym '__))) + (gx#stx-e _L120241_))) + (__tmp129070 (gensym '__))) (declare (not safe)) - (make-symbol__1 __tmp129074 __tmp129073))) - (_lambda-id120377_ - (let ((__tmp129075 + (make-symbol__1 __tmp129071 __tmp129070))) + (_lambda-id120374_ + (let ((__tmp129072 (let () (declare (not safe)) - (gx#stx-source _stx119469_)))) + (gx#stx-source _stx119466_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _lambda-id120375_ __tmp129075))) - (_g129076_ + (gx#core-quote-syntax__1 _lambda-id120372_ __tmp129072))) + (_g129073_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lambda-id120377_))) - (_new-case-lambda-expr120380_ + (gx#core-bind-runtime!__0 _lambda-id120374_))) + (_new-case-lambda-expr120377_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L120349_ - _L120351_ - _lambda-id120377_)))) + _L120346_ + _L120348_ + _lambda-id120374_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp129078 + (let ((__tmp129075 (let () (declare (not safe)) (gxc#identifier-symbol - _L120244_))) - (__tmp129077 + _L120241_))) + (__tmp129074 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id120377_)))) + _lambda-id120374_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp129078 + __tmp129075 '" => " - __tmp129077)) - (let ((__tmp129081 - (let ((__tmp129082 + __tmp129074)) + (let ((__tmp129078 + (let ((__tmp129079 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__126723126724_ - _L120244_ - _new-case-lambda-expr120380_ + (_bind-e__126720126721_ + _L120241_ + _new-case-lambda-expr120377_ '#f)))) (declare (not safe)) - (cons __tmp129082 _rest120132_))) - (__tmp129079 - (let ((__tmp129080 + (cons __tmp129079 _rest120129_))) + (__tmp129076 + (let ((__tmp129077 (let () (declare (not safe)) - (_bind-e__0__126725126726_ - _lambda-id120377_ - _L120350_)))) + (_bind-e__0__126722126723_ + _lambda-id120374_ + _L120347_)))) (declare (not safe)) - (cons __tmp129080 _lift1120110_)))) + (cons __tmp129077 _lift1120107_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp120107_ - __tmp129081 - __tmp129079 - _lift2120111_ - _bind120112_)))) - _hd120282120344_ - _hd120279120336_ - _hd120276120328_) + (_lp120104_ + __tmp129078 + __tmp129076 + _lift2120108_ + _bind120109_)))) + _hd120279120341_ + _hd120276120333_ + _hd120273120325_) (let () (declare (not safe)) - (_g120258120288_ - _g120259120291_))))) + (_g120255120285_ + _g120256120288_))))) (let () (declare (not safe)) - (_g120258120288_ _g120259120291_))) + (_g120255120285_ _g120256120288_))) (let () (declare (not safe)) - (_g120258120288_ _g120259120291_))) + (_g120255120285_ _g120256120288_))) (let () (declare (not safe)) - (_g120258120288_ _g120259120291_))))) + (_g120255120285_ _g120256120288_))))) (let () (declare (not safe)) - (_g120258120288_ _g120259120291_))) + (_g120255120285_ _g120256120288_))) (let () (declare (not safe)) - (_g120258120288_ _g120259120291_))))) + (_g120255120285_ _g120256120288_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120258120288_ - _g120259120291_))))) + (_g120255120285_ + _g120256120288_))))) (let () (declare (not safe)) - (_g120258120288_ - _g120259120291_))))) + (_g120255120285_ + _g120256120288_))))) (let () (declare (not safe)) - (_g120258120288_ _g120259120291_))))) + (_g120255120285_ _g120256120288_))))) (let () (declare (not safe)) - (_g120258120288_ _g120259120291_))))) + (_g120255120285_ _g120256120288_))))) (let () (declare (not safe)) - (_g120258120288_ _g120259120291_)))))) + (_g120255120285_ _g120256120288_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g120257120383_ _L120243_)))) - (___kont128469128470_ - (lambda (_L120194_ _L120195_) - (let ((__tmp129083 - (let ((__tmp129084 - (let ((__tmp129085 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129086 + (_g120254120380_ _L120240_)))) + (___kont128466128467_ + (lambda (_L120191_ _L120192_) + (let ((__tmp129080 + (let ((__tmp129081 + (let ((__tmp129082 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129083 (let () (declare (not safe)) - (gxc#compile-e__0 _L120194_)))) + (gxc#compile-e__0 _L120191_)))) (declare (not safe)) - (cons __tmp129086 '())))) + (cons __tmp129083 '())))) (declare (not safe)) - (cons _L120195_ __tmp129085)))) + (cons _L120192_ __tmp129082)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129084 - _bind120112_)))) + (cons __tmp129081 + _bind120109_)))) (declare (not safe)) - (_lp120107_ - _rest120132_ - _lift1120110_ - _lift2120111_ - __tmp129083))))) - (let* ((___match128514128515_ - (lambda (_e120154120219_ - _hd120153120222_ - _tl120152120224_ - _e120157120227_ - _hd120156120230_ - _tl120155120232_ - _e120160120235_ - _hd120159120238_ - _tl120158120240_) - (let ((_L120243_ - _hd120159120238_) - (_L120244_ - _hd120156120230_)) + (_lp120104_ + _rest120129_ + _lift1120107_ + _lift2120108_ + __tmp129080))))) + (let* ((___match128511128512_ + (lambda (_e120151120216_ + _hd120150120219_ + _tl120149120221_ + _e120154120224_ + _hd120153120227_ + _tl120152120229_ + _e120157120232_ + _hd120156120235_ + _tl120155120237_) + (let ((_L120240_ + _hd120156120235_) + (_L120241_ + _hd120153120227_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L120244_)) + _L120241_)) (let () (declare (not safe)) (gxc#opt-lambda-expr? - _L120243_))) - (___kont128467128468_ - _L120243_ - _L120244_) - (___kont128469128470_ - _hd120159120238_ - _hd120153120222_))))) - (___match128492128493_ - (lambda (_e120143120391_ - _hd120142120394_ - _tl120141120396_ - _e120146120399_ - _hd120145120402_ - _tl120144120404_ - _e120149120407_ - _hd120148120410_ - _tl120147120412_) - (let ((_L120415_ - _hd120148120410_) - (_L120416_ - _hd120145120402_)) + _L120240_))) + (___kont128464128465_ + _L120240_ + _L120241_) + (___kont128466128467_ + _hd120156120235_ + _hd120150120219_))))) + (___match128489128490_ + (lambda (_e120140120388_ + _hd120139120391_ + _tl120138120393_ + _e120143120396_ + _hd120142120399_ + _tl120141120401_ + _e120146120404_ + _hd120145120407_ + _tl120144120409_) + (let ((_L120412_ + _hd120145120407_) + (_L120413_ + _hd120142120399_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L120416_)) + _L120413_)) (let () (declare (not safe)) (gxc#case-lambda-expr? - _L120415_))) - (___kont128465128466_ - _L120415_ - _L120416_) - (___match128514128515_ - _e120143120391_ - _hd120142120394_ - _tl120141120396_ - _e120146120399_ - _hd120145120402_ - _tl120144120404_ - _e120149120407_ - _hd120148120410_ - _tl120147120412_)))))) + _L120412_))) + (___kont128462128463_ + _L120412_ + _L120413_) + (___match128511128512_ + _e120140120388_ + _hd120139120391_ + _tl120138120393_ + _e120143120396_ + _hd120142120399_ + _tl120141120401_ + _e120146120404_ + _hd120145120407_ + _tl120144120409_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx128463128464_)) - (let ((_e120143120391_ + ___stx128460128461_)) + (let ((_e120140120388_ (let () (declare (not safe)) (gx#stx-e - ___stx128463128464_)))) - (let ((_tl120141120396_ + ___stx128460128461_)))) + (let ((_tl120138120393_ (let () (declare (not safe)) - (##cdr _e120143120391_))) - (_hd120142120394_ + (##cdr _e120140120388_))) + (_hd120139120391_ (let () (declare (not safe)) - (##car _e120143120391_)))) + (##car _e120140120388_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120142120394_)) - (let ((_e120146120399_ + _hd120139120391_)) + (let ((_e120143120396_ (let () (declare (not safe)) (gx#stx-e - _hd120142120394_)))) - (let ((_tl120144120404_ + _hd120139120391_)))) + (let ((_tl120141120401_ (let () (declare (not safe)) - (##cdr _e120146120399_))) - (_hd120145120402_ + (##cdr _e120143120396_))) + (_hd120142120399_ (let () (declare (not safe)) - (##car _e120146120399_)))) + (##car _e120143120396_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120144120404_)) + _tl120141120401_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl120141120396_)) - (let ((_e120149120407_ + (gx#stx-pair? _tl120138120393_)) + (let ((_e120146120404_ (let () (declare (not safe)) - (gx#stx-e _tl120141120396_)))) - (let ((_tl120147120412_ + (gx#stx-e _tl120138120393_)))) + (let ((_tl120144120409_ (let () (declare (not safe)) - (##cdr _e120149120407_))) - (_hd120148120410_ + (##cdr _e120146120404_))) + (_hd120145120407_ (let () (declare (not safe)) - (##car _e120149120407_)))) + (##car _e120146120404_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120147120412_)) - (___match128492128493_ - _e120143120391_ - _hd120142120394_ - _tl120141120396_ - _e120146120399_ - _hd120145120402_ - _tl120144120404_ - _e120149120407_ - _hd120148120410_ - _tl120147120412_) + (gx#stx-null? _tl120144120409_)) + (___match128489128490_ + _e120140120388_ + _hd120139120391_ + _tl120138120393_ + _e120143120396_ + _hd120142120399_ + _tl120141120401_ + _e120146120404_ + _hd120145120407_ + _tl120144120409_) (let () (declare (not safe)) - (_g120137120173_))))) - (let () (declare (not safe)) (_g120137120173_))) + (_g120134120170_))))) + (let () (declare (not safe)) (_g120134120170_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120141120396_)) - (let ((_e120168120186_ + (gx#stx-pair? _tl120138120393_)) + (let ((_e120165120183_ (let () (declare (not safe)) - (gx#stx-e _tl120141120396_)))) - (let ((_tl120166120191_ + (gx#stx-e _tl120138120393_)))) + (let ((_tl120163120188_ (let () (declare (not safe)) - (##cdr _e120168120186_))) - (_hd120167120189_ + (##cdr _e120165120183_))) + (_hd120164120186_ (let () (declare (not safe)) - (##car _e120168120186_)))) + (##car _e120165120183_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120166120191_)) - (___kont128469128470_ - _hd120167120189_ - _hd120142120394_) + (gx#stx-null? _tl120163120188_)) + (___kont128466128467_ + _hd120164120186_ + _hd120139120391_) (let () (declare (not safe)) - (_g120137120173_))))) - (let () (declare (not safe)) (_g120137120173_)))))) + (_g120134120170_))))) + (let () (declare (not safe)) (_g120134120170_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl120141120396_)) - (let ((_e120168120186_ + _tl120138120393_)) + (let ((_e120165120183_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl120141120396_)))) - (let ((_tl120166120191_ - (let () (declare (not safe)) (##cdr _e120168120186_))) - (_hd120167120189_ - (let () (declare (not safe)) (##car _e120168120186_)))) + (gx#stx-e _tl120138120393_)))) + (let ((_tl120163120188_ + (let () (declare (not safe)) (##cdr _e120165120183_))) + (_hd120164120186_ + (let () (declare (not safe)) (##car _e120165120183_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120166120191_)) - (___kont128469128470_ _hd120167120189_ _hd120142120394_) - (let () (declare (not safe)) (_g120137120173_))))) - (let () (declare (not safe)) (_g120137120173_)))))) + (gx#stx-null? _tl120163120188_)) + (___kont128466128467_ _hd120164120186_ _hd120139120391_) + (let () (declare (not safe)) (_g120134120170_))))) + (let () (declare (not safe)) (_g120134120170_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120137120173_))))))))) + (_g120134120170_))))))))) (if (let () (declare (not safe)) - (##pair? _rest120113120121_)) - (let ((_hd120118120511_ + (##pair? _rest120110120118_)) + (let ((_hd120115120508_ (let () (declare (not safe)) - (##car _rest120113120121_))) - (_tl120119120513_ + (##car _rest120110120118_))) + (_tl120116120510_ (let () (declare (not safe)) - (##cdr _rest120113120121_)))) - (let* ((_hd120516_ _hd120118120511_) - (_rest120518_ _tl120119120513_)) + (##cdr _rest120110120118_)))) + (let* ((_hd120513_ _hd120115120508_) + (_rest120515_ _tl120116120510_)) (declare (not safe)) - (_K120117120508_ _rest120518_ _hd120516_))) + (_K120114120505_ _rest120515_ _hd120513_))) (let () (declare (not safe)) - (_else120115120129_))))))) - (_lift-kw-lambda?119473_ - (lambda (_bind120029_) - (let* ((___stx128531128532_ _bind120029_) - (_g120032120049_ + (_else120112120126_))))))) + (_lift-kw-lambda?119470_ + (lambda (_bind120026_) + (let* ((___stx128528128529_ _bind120026_) + (_g120029120046_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128531128532_))))) - (let ((___kont128533128534_ - (lambda (_L120085_ _L120086_) + ___stx128528128529_))))) + (let ((___kont128530128531_ + (lambda (_L120082_ _L120083_) (if (let () (declare (not safe)) - (gx#identifier? _L120086_)) + (gx#identifier? _L120083_)) (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L120085_)) + (gxc#kw-lambda-expr? _L120082_)) '#f))) - (___kont128535128536_ (lambda () '#f))) + (___kont128532128533_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128531128532_)) - (let ((_e120038120061_ + (gx#stx-pair? ___stx128528128529_)) + (let ((_e120035120058_ (let () (declare (not safe)) - (gx#stx-e ___stx128531128532_)))) - (let ((_tl120036120066_ + (gx#stx-e ___stx128528128529_)))) + (let ((_tl120033120063_ (let () (declare (not safe)) - (##cdr _e120038120061_))) - (_hd120037120064_ + (##cdr _e120035120058_))) + (_hd120034120061_ (let () (declare (not safe)) - (##car _e120038120061_)))) + (##car _e120035120058_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120037120064_)) - (let ((_e120041120069_ + (gx#stx-pair? _hd120034120061_)) + (let ((_e120038120066_ (let () (declare (not safe)) - (gx#stx-e _hd120037120064_)))) - (let ((_tl120039120074_ + (gx#stx-e _hd120034120061_)))) + (let ((_tl120036120071_ (let () (declare (not safe)) - (##cdr _e120041120069_))) - (_hd120040120072_ + (##cdr _e120038120066_))) + (_hd120037120069_ (let () (declare (not safe)) - (##car _e120041120069_)))) + (##car _e120038120066_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120039120074_)) + (gx#stx-null? _tl120036120071_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120036120066_)) - (let ((_e120044120077_ + _tl120033120063_)) + (let ((_e120041120074_ (let () (declare (not safe)) (gx#stx-e - _tl120036120066_)))) - (let ((_tl120042120082_ + _tl120033120063_)))) + (let ((_tl120039120079_ (let () (declare (not safe)) - (##cdr _e120044120077_))) - (_hd120043120080_ + (##cdr _e120041120074_))) + (_hd120040120077_ (let () (declare (not safe)) - (##car _e120044120077_)))) + (##car _e120041120074_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120042120082_)) - (___kont128533128534_ - _hd120043120080_ - _hd120040120072_) - (___kont128535128536_)))) - (___kont128535128536_)) - (___kont128535128536_)))) - (___kont128535128536_)))) - (___kont128535128536_)))))) - (_lift-kw-lambda-bindings119474_ - (lambda (_bindings119641_) - (let _lp119643_ ((_rest119645_ _bindings119641_) - (_lift1119646_ '()) - (_lift2119647_ '()) - (_bind119648_ '())) - (let* ((_rest119649119657_ _rest119645_) - (_else119651119665_ + _tl120039120079_)) + (___kont128530128531_ + _hd120040120077_ + _hd120037120069_) + (___kont128532128533_)))) + (___kont128532128533_)) + (___kont128532128533_)))) + (___kont128532128533_)))) + (___kont128532128533_)))))) + (_lift-kw-lambda-bindings119471_ + (lambda (_bindings119638_) + (let _lp119640_ ((_rest119642_ _bindings119638_) + (_lift1119643_ '()) + (_lift2119644_ '()) + (_bind119645_ '())) + (let* ((_rest119646119654_ _rest119642_) + (_else119648119662_ (lambda () - (values (reverse _lift1119646_) - (reverse _lift2119647_) - (reverse _bind119648_)))) - (_K119653120017_ - (lambda (_rest119668_ _hd119669_) - (let* ((___stx128561128562_ _hd119669_) - (_g119672119697_ + (values (reverse _lift1119643_) + (reverse _lift2119644_) + (reverse _bind119645_)))) + (_K119650120014_ + (lambda (_rest119665_ _hd119666_) + (let* ((___stx128558128559_ _hd119666_) + (_g119669119694_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128561128562_))))) - (let ((___kont128563128564_ - (lambda (_L119767_ _L119768_) - (let* ((_g119782119835_ - (lambda (_g119783119832_) + ___stx128558128559_))))) + (let ((___kont128560128561_ + (lambda (_L119764_ _L119765_) + (let* ((_g119779119832_ + (lambda (_g119780119829_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g119783119832_)))) - (_g119781120011_ - (lambda (_g119783119838_) + _g119780119829_)))) + (_g119778120008_ + (lambda (_g119780119835_) (if (let () (declare (not safe)) (gx#stx-pair? - _g119783119838_)) - (let ((_e119791119840_ + _g119780119835_)) + (let ((_e119788119837_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g119783119838_)))) - (let ((_hd119790119843_ + (gx#stx-e _g119780119835_)))) + (let ((_hd119787119840_ (let () (declare (not safe)) - (##car _e119791119840_))) - (_tl119789119845_ + (##car _e119788119837_))) + (_tl119786119842_ (let () (declare (not safe)) - (##cdr _e119791119840_)))) + (##cdr _e119788119837_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119789119845_)) - (let ((_e119794119848_ + (gx#stx-pair? _tl119786119842_)) + (let ((_e119791119845_ (let () (declare (not safe)) - (gx#stx-e _tl119789119845_)))) - (let ((_hd119793119851_ + (gx#stx-e _tl119786119842_)))) + (let ((_hd119790119848_ (let () (declare (not safe)) - (##car _e119794119848_))) - (_tl119792119853_ + (##car _e119791119845_))) + (_tl119789119850_ (let () (declare (not safe)) - (##cdr _e119794119848_)))) + (##cdr _e119791119845_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119793119851_)) - (let ((_e119797119856_ + (gx#stx-pair? _hd119790119848_)) + (let ((_e119794119853_ (let () (declare (not safe)) - (gx#stx-e _hd119793119851_)))) - (let ((_hd119796119859_ + (gx#stx-e _hd119790119848_)))) + (let ((_hd119793119856_ (let () (declare (not safe)) - (##car _e119797119856_))) - (_tl119795119861_ + (##car _e119794119853_))) + (_tl119792119858_ (let () (declare (not safe)) - (##cdr _e119797119856_)))) + (##cdr _e119794119853_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119796119859_)) - (let ((_e119800119864_ + (gx#stx-pair? _hd119793119856_)) + (let ((_e119797119861_ (let () (declare (not safe)) (gx#stx-e - _hd119796119859_)))) - (let ((_hd119799119867_ + _hd119793119856_)))) + (let ((_hd119796119864_ (let () (declare (not safe)) - (##car _e119800119864_))) - (_tl119798119869_ + (##car _e119797119861_))) + (_tl119795119866_ (let () (declare (not safe)) - (##cdr _e119800119864_)))) + (##cdr _e119797119861_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd119799119867_)) - (let ((_e119803119872_ + _hd119796119864_)) + (let ((_e119800119869_ (let () (declare (not safe)) (gx#stx-e - _hd119799119867_)))) - (let ((_hd119802119875_ + _hd119796119864_)))) + (let ((_hd119799119872_ (let () (declare (not safe)) - (##car _e119803119872_))) - (_tl119801119877_ + (##car _e119800119869_))) + (_tl119798119874_ (let () (declare (not safe)) - (##cdr _e119803119872_)))) + (##cdr _e119800119869_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119801119877_)) + _tl119798119874_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl119798119869_)) - (let ((_e119806119880_ + (gx#stx-pair? _tl119795119866_)) + (let ((_e119803119877_ (let () (declare (not safe)) - (gx#stx-e _tl119798119869_)))) - (let ((_hd119805119883_ + (gx#stx-e _tl119795119866_)))) + (let ((_hd119802119880_ (let () (declare (not safe)) - (##car _e119806119880_))) - (_tl119804119885_ + (##car _e119803119877_))) + (_tl119801119882_ (let () (declare (not safe)) - (##cdr _e119806119880_)))) + (##cdr _e119803119877_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119805119883_)) - (let ((_e119809119888_ + (gx#stx-pair? _hd119802119880_)) + (let ((_e119806119885_ (let () (declare (not safe)) - (gx#stx-e _hd119805119883_)))) - (let ((_hd119808119891_ + (gx#stx-e _hd119802119880_)))) + (let ((_hd119805119888_ (let () (declare (not safe)) - (##car _e119809119888_))) - (_tl119807119893_ + (##car _e119806119885_))) + (_tl119804119890_ (let () (declare (not safe)) - (##cdr _e119809119888_)))) + (##cdr _e119806119885_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119807119893_)) - (let ((_e119812119896_ + (gx#stx-pair? _tl119804119890_)) + (let ((_e119809119893_ (let () (declare (not safe)) - (gx#stx-e _tl119807119893_)))) - (let ((_hd119811119899_ + (gx#stx-e _tl119804119890_)))) + (let ((_hd119808119896_ (let () (declare (not safe)) - (##car _e119812119896_))) - (_tl119810119901_ + (##car _e119809119893_))) + (_tl119807119898_ (let () (declare (not safe)) - (##cdr _e119812119896_)))) + (##cdr _e119809119893_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd119811119899_)) - (let ((_e119815119904_ + _hd119808119896_)) + (let ((_e119812119901_ (let () (declare (not safe)) (gx#stx-e - _hd119811119899_)))) - (let ((_hd119814119907_ + _hd119808119896_)))) + (let ((_hd119811119904_ (let () (declare (not safe)) - (##car _e119815119904_))) - (_tl119813119909_ + (##car _e119812119901_))) + (_tl119810119906_ (let () (declare (not safe)) - (##cdr _e119815119904_)))) + (##cdr _e119812119901_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd119814119907_)) - (let ((_e119818119912_ + _hd119811119904_)) + (let ((_e119815119909_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd119814119907_)))) - (let ((_hd119817119915_ - (let () (declare (not safe)) (##car _e119818119912_))) - (_tl119816119917_ - (let () (declare (not safe)) (##cdr _e119818119912_)))) + (gx#stx-e _hd119811119904_)))) + (let ((_hd119814119912_ + (let () (declare (not safe)) (##car _e119815119909_))) + (_tl119813119914_ + (let () (declare (not safe)) (##cdr _e119815119909_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119817119915_)) - (let ((_e119821119920_ + (gx#stx-pair? _hd119814119912_)) + (let ((_e119818119917_ (let () (declare (not safe)) - (gx#stx-e _hd119817119915_)))) - (let ((_hd119820119923_ + (gx#stx-e _hd119814119912_)))) + (let ((_hd119817119920_ (let () (declare (not safe)) - (##car _e119821119920_))) - (_tl119819119925_ + (##car _e119818119917_))) + (_tl119816119922_ (let () (declare (not safe)) - (##cdr _e119821119920_)))) + (##cdr _e119818119917_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119819119925_)) + (gx#stx-null? _tl119816119922_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119816119917_)) - (let ((_e119824119928_ + (gx#stx-pair? _tl119813119914_)) + (let ((_e119821119925_ (let () (declare (not safe)) - (gx#stx-e _tl119816119917_)))) - (let ((_hd119823119931_ + (gx#stx-e _tl119813119914_)))) + (let ((_hd119820119928_ (let () (declare (not safe)) - (##car _e119824119928_))) - (_tl119822119933_ + (##car _e119821119925_))) + (_tl119819119930_ (let () (declare (not safe)) - (##cdr _e119824119928_)))) + (##cdr _e119821119925_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119822119933_)) + (gx#stx-null? _tl119819119930_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl119813119909_)) + _tl119810119906_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl119810119901_)) - (let ((_e119827119936_ + _tl119807119898_)) + (let ((_e119824119933_ (let () (declare (not safe)) (gx#stx-e - _tl119810119901_)))) - (let ((_hd119826119939_ + _tl119807119898_)))) + (let ((_hd119823119936_ (let () (declare (not safe)) - (##car _e119827119936_))) - (_tl119825119941_ + (##car _e119824119933_))) + (_tl119822119938_ (let () (declare (not safe)) - (##cdr _e119827119936_)))) + (##cdr _e119824119933_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119825119941_)) + _tl119822119938_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl119804119885_)) + (gx#stx-null? _tl119801119882_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl119795119861_)) + (gx#stx-null? _tl119792119858_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119792119853_)) - (let ((_e119830119944_ + (gx#stx-pair? _tl119789119850_)) + (let ((_e119827119941_ (let () (declare (not safe)) - (gx#stx-e _tl119792119853_)))) - (let ((_hd119829119947_ + (gx#stx-e _tl119789119850_)))) + (let ((_hd119826119944_ (let () (declare (not safe)) - (##car _e119830119944_))) - (_tl119828119949_ + (##car _e119827119941_))) + (_tl119825119946_ (let () (declare (not safe)) - (##cdr _e119830119944_)))) + (##cdr _e119827119941_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119828119949_)) - ((lambda (_L119952_ - _L119953_ - _L119954_ - _L119955_ - _L119956_) - (let* ((_get-kws-id119996_ - (let ((__tmp129088 + (gx#stx-null? _tl119825119946_)) + ((lambda (_L119949_ + _L119950_ + _L119951_ + _L119952_ + _L119953_) + (let* ((_get-kws-id119993_ + (let ((__tmp129085 (let () (declare (not safe)) (gx#stx-e - _L119768_))) - (__tmp129087 + _L119765_))) + (__tmp129084 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp129088 - __tmp129087))) - (_get-kws-id119998_ - (let ((__tmp129089 + __tmp129085 + __tmp129084))) + (_get-kws-id119995_ + (let ((__tmp129086 (let () (declare (not safe)) (gx#stx-source - _stx119469_)))) + _stx119466_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id119996_ - __tmp129089))) - (_main-id120000_ - (let ((__tmp129091 + _get-kws-id119993_ + __tmp129086))) + (_main-id119997_ + (let ((__tmp129088 (let () (declare (not safe)) (gx#stx-e - _L119768_))) - (__tmp129090 + _L119765_))) + (__tmp129087 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp129091 - __tmp129090))) - (_main-id120002_ - (let ((__tmp129092 + __tmp129088 + __tmp129087))) + (_main-id119999_ + (let ((__tmp129089 (let () (declare (not safe)) (gx#stx-source - _stx119469_)))) + _stx119466_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id120000_ - __tmp129092))) - (_g129093_ + _main-id119997_ + __tmp129089))) + (_g129090_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _get-kws-id119998_))) - (_g129094_ + _get-kws-id119995_))) + (_g129091_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _main-id120002_))) - (_new-kw-dispatch120006_ + _main-id119999_))) + (_new-kw-dispatch120003_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L119952_ - _L119956_ - _get-kws-id119998_))) - (_new-get-kws120008_ + _L119949_ + _L119953_ + _get-kws-id119995_))) + (_new-get-kws120005_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L119953_ - _L119955_ - _main-id120002_)))) - (let ((__tmp129097 + _L119950_ + _L119952_ + _main-id119999_)))) + (let ((__tmp129094 (let () (declare (not safe)) (gxc#identifier-symbol - _L119768_))) - (__tmp129096 + _L119765_))) + (__tmp129093 (let () (declare (not safe)) (gxc#identifier-symbol - _get-kws-id119998_))) - (__tmp129095 + _get-kws-id119995_))) + (__tmp129092 (let () (declare (not safe)) (gxc#identifier-symbol - _main-id120002_)))) + _main-id119999_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp129097 + __tmp129094 '" => " - __tmp129096 + __tmp129093 '" => " - __tmp129095)) - (let ((__tmp129102 - (let ((__tmp129103 + __tmp129092)) + (let ((__tmp129099 + (let ((__tmp129100 (let () (declare (not safe)) - (_bind-e__126723126724_ - _main-id120002_ - _L119954_ + (_bind-e__126720126721_ + _main-id119999_ + _L119951_ '#f)))) (declare (not safe)) - (cons __tmp129103 - _lift1119646_))) - (__tmp129100 - (let ((__tmp129101 + (cons __tmp129100 + _lift1119643_))) + (__tmp129097 + (let ((__tmp129098 (let () (declare (not safe)) - (_bind-e__126723126724_ - _get-kws-id119998_ - _new-get-kws120008_ + (_bind-e__126720126721_ + _get-kws-id119995_ + _new-get-kws120005_ '#f)))) (declare (not safe)) - (cons __tmp129101 - _lift2119647_))) - (__tmp129098 - (let ((__tmp129099 + (cons __tmp129098 + _lift2119644_))) + (__tmp129095 + (let ((__tmp129096 (let () (declare (not safe)) - (_bind-e__126723126724_ - _L119768_ - _new-kw-dispatch120006_ + (_bind-e__126720126721_ + _L119765_ + _new-kw-dispatch120003_ '#f)))) (declare (not safe)) - (cons __tmp129099 - _bind119648_)))) + (cons __tmp129096 + _bind119645_)))) (declare (not safe)) - (_lp119643_ - _rest119668_ - __tmp129102 - __tmp129100 - __tmp129098)))) - _hd119829119947_ - _hd119826119939_ - _hd119823119931_ - _hd119820119923_ - _hd119802119875_) + (_lp119640_ + _rest119665_ + __tmp129099 + __tmp129097 + __tmp129095)))) + _hd119826119944_ + _hd119823119936_ + _hd119820119928_ + _hd119817119920_ + _hd119799119872_) (let () (declare (not safe)) - (_g119782119835_ _g119783119838_))))) + (_g119779119832_ _g119780119835_))))) (let () (declare (not safe)) - (_g119782119835_ _g119783119838_))) + (_g119779119832_ _g119780119835_))) (let () (declare (not safe)) - (_g119782119835_ _g119783119838_))) + (_g119779119832_ _g119780119835_))) (let () (declare (not safe)) - (_g119782119835_ _g119783119838_))) + (_g119779119832_ _g119780119835_))) (let () (declare (not safe)) - (_g119782119835_ _g119783119838_))))) + (_g119779119832_ _g119780119835_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g119782119835_ - _g119783119838_))) + (_g119779119832_ + _g119780119835_))) (let () (declare (not safe)) - (_g119782119835_ - _g119783119838_))) + (_g119779119832_ + _g119780119835_))) (let () (declare (not safe)) - (_g119782119835_ - _g119783119838_))))) + (_g119779119832_ + _g119780119835_))))) (let () (declare (not safe)) - (_g119782119835_ _g119783119838_))) + (_g119779119832_ _g119780119835_))) (let () (declare (not safe)) - (_g119782119835_ _g119783119838_))))) + (_g119779119832_ _g119780119835_))))) (let () (declare (not safe)) - (_g119782119835_ _g119783119838_))))) + (_g119779119832_ _g119780119835_))))) (let () (declare (not safe)) - (_g119782119835_ _g119783119838_))))) + (_g119779119832_ _g119780119835_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g119782119835_ - _g119783119838_))))) + (_g119779119832_ + _g119780119835_))))) (let () (declare (not safe)) - (_g119782119835_ _g119783119838_))))) + (_g119779119832_ _g119780119835_))))) (let () (declare (not safe)) - (_g119782119835_ _g119783119838_))))) + (_g119779119832_ _g119780119835_))))) (let () (declare (not safe)) - (_g119782119835_ _g119783119838_))) + (_g119779119832_ _g119780119835_))) (let () (declare (not safe)) - (_g119782119835_ _g119783119838_))))) + (_g119779119832_ _g119780119835_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g119782119835_ - _g119783119838_))))) + (_g119779119832_ + _g119780119835_))))) (let () (declare (not safe)) - (_g119782119835_ - _g119783119838_))))) + (_g119779119832_ + _g119780119835_))))) (let () (declare (not safe)) - (_g119782119835_ _g119783119838_))))) + (_g119779119832_ _g119780119835_))))) (let () (declare (not safe)) - (_g119782119835_ _g119783119838_))))) + (_g119779119832_ _g119780119835_))))) (let () (declare (not safe)) - (_g119782119835_ _g119783119838_)))))) + (_g119779119832_ _g119780119835_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g119781120011_ _L119767_)))) - (___kont128565128566_ - (lambda (_L119718_ _L119719_) - (let ((__tmp129104 - (let ((__tmp129105 - (let ((__tmp129106 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L119718_ '())))) + (_g119778120008_ _L119764_)))) + (___kont128562128563_ + (lambda (_L119715_ _L119716_) + (let ((__tmp129101 + (let ((__tmp129102 + (let ((__tmp129103 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _L119715_ '())))) (declare (not safe)) - (cons _L119719_ __tmp129106)))) + (cons _L119716_ __tmp129103)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129105 - _bind119648_)))) + (cons __tmp129102 + _bind119645_)))) (declare (not safe)) - (_lp119643_ - _rest119668_ - _lift1119646_ - _lift2119647_ - __tmp129104))))) - (let ((___match128588128589_ - (lambda (_e119678119743_ - _hd119677119746_ - _tl119676119748_ - _e119681119751_ - _hd119680119754_ - _tl119679119756_ - _e119684119759_ - _hd119683119762_ - _tl119682119764_) - (let ((_L119767_ - _hd119683119762_) - (_L119768_ - _hd119680119754_)) + (_lp119640_ + _rest119665_ + _lift1119643_ + _lift2119644_ + __tmp129101))))) + (let ((___match128585128586_ + (lambda (_e119675119740_ + _hd119674119743_ + _tl119673119745_ + _e119678119748_ + _hd119677119751_ + _tl119676119753_ + _e119681119756_ + _hd119680119759_ + _tl119679119761_) + (let ((_L119764_ + _hd119680119759_) + (_L119765_ + _hd119677119751_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L119768_)) + _L119765_)) (let () (declare (not safe)) (gxc#kw-lambda-expr? - _L119767_))) - (___kont128563128564_ - _L119767_ - _L119768_) - (___kont128565128566_ - _hd119683119762_ - _hd119677119746_)))))) + _L119764_))) + (___kont128560128561_ + _L119764_ + _L119765_) + (___kont128562128563_ + _hd119680119759_ + _hd119674119743_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx128561128562_)) - (let ((_e119678119743_ + ___stx128558128559_)) + (let ((_e119675119740_ (let () (declare (not safe)) (gx#stx-e - ___stx128561128562_)))) - (let ((_tl119676119748_ + ___stx128558128559_)))) + (let ((_tl119673119745_ (let () (declare (not safe)) - (##cdr _e119678119743_))) - (_hd119677119746_ + (##cdr _e119675119740_))) + (_hd119674119743_ (let () (declare (not safe)) - (##car _e119678119743_)))) + (##car _e119675119740_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd119677119746_)) - (let ((_e119681119751_ + _hd119674119743_)) + (let ((_e119678119748_ (let () (declare (not safe)) (gx#stx-e - _hd119677119746_)))) - (let ((_tl119679119756_ + _hd119674119743_)))) + (let ((_tl119676119753_ (let () (declare (not safe)) - (##cdr _e119681119751_))) - (_hd119680119754_ + (##cdr _e119678119748_))) + (_hd119677119751_ (let () (declare (not safe)) - (##car _e119681119751_)))) + (##car _e119678119748_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119679119756_)) + _tl119676119753_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl119676119748_)) - (let ((_e119684119759_ + (gx#stx-pair? _tl119673119745_)) + (let ((_e119681119756_ (let () (declare (not safe)) - (gx#stx-e _tl119676119748_)))) - (let ((_tl119682119764_ + (gx#stx-e _tl119673119745_)))) + (let ((_tl119679119761_ (let () (declare (not safe)) - (##cdr _e119684119759_))) - (_hd119683119762_ + (##cdr _e119681119756_))) + (_hd119680119759_ (let () (declare (not safe)) - (##car _e119684119759_)))) + (##car _e119681119756_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119682119764_)) - (___match128588128589_ - _e119678119743_ - _hd119677119746_ - _tl119676119748_ - _e119681119751_ - _hd119680119754_ - _tl119679119756_ - _e119684119759_ - _hd119683119762_ - _tl119682119764_) + (gx#stx-null? _tl119679119761_)) + (___match128585128586_ + _e119675119740_ + _hd119674119743_ + _tl119673119745_ + _e119678119748_ + _hd119677119751_ + _tl119676119753_ + _e119681119756_ + _hd119680119759_ + _tl119679119761_) (let () (declare (not safe)) - (_g119672119697_))))) - (let () (declare (not safe)) (_g119672119697_))) + (_g119669119694_))))) + (let () (declare (not safe)) (_g119669119694_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119676119748_)) - (let ((_e119692119710_ + (gx#stx-pair? _tl119673119745_)) + (let ((_e119689119707_ (let () (declare (not safe)) - (gx#stx-e _tl119676119748_)))) - (let ((_tl119690119715_ + (gx#stx-e _tl119673119745_)))) + (let ((_tl119687119712_ (let () (declare (not safe)) - (##cdr _e119692119710_))) - (_hd119691119713_ + (##cdr _e119689119707_))) + (_hd119688119710_ (let () (declare (not safe)) - (##car _e119692119710_)))) + (##car _e119689119707_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119690119715_)) - (___kont128565128566_ - _hd119691119713_ - _hd119677119746_) + (gx#stx-null? _tl119687119712_)) + (___kont128562128563_ + _hd119688119710_ + _hd119674119743_) (let () (declare (not safe)) - (_g119672119697_))))) - (let () (declare (not safe)) (_g119672119697_)))))) + (_g119669119694_))))) + (let () (declare (not safe)) (_g119669119694_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl119676119748_)) - (let ((_e119692119710_ + _tl119673119745_)) + (let ((_e119689119707_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl119676119748_)))) - (let ((_tl119690119715_ - (let () (declare (not safe)) (##cdr _e119692119710_))) - (_hd119691119713_ - (let () (declare (not safe)) (##car _e119692119710_)))) + (gx#stx-e _tl119673119745_)))) + (let ((_tl119687119712_ + (let () (declare (not safe)) (##cdr _e119689119707_))) + (_hd119688119710_ + (let () (declare (not safe)) (##car _e119689119707_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119690119715_)) - (___kont128565128566_ _hd119691119713_ _hd119677119746_) - (let () (declare (not safe)) (_g119672119697_))))) - (let () (declare (not safe)) (_g119672119697_)))))) + (gx#stx-null? _tl119687119712_)) + (___kont128562128563_ _hd119688119710_ _hd119674119743_) + (let () (declare (not safe)) (_g119669119694_))))) + (let () (declare (not safe)) (_g119669119694_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g119672119697_))))))))) + (_g119669119694_))))))))) (if (let () (declare (not safe)) - (##pair? _rest119649119657_)) - (let ((_hd119654120020_ + (##pair? _rest119646119654_)) + (let ((_hd119651120017_ (let () (declare (not safe)) - (##car _rest119649119657_))) - (_tl119655120022_ + (##car _rest119646119654_))) + (_tl119652120019_ (let () (declare (not safe)) - (##cdr _rest119649119657_)))) - (let* ((_hd120025_ _hd119654120020_) - (_rest120027_ _tl119655120022_)) + (##cdr _rest119646119654_)))) + (let* ((_hd120022_ _hd119651120017_) + (_rest120024_ _tl119652120019_)) (declare (not safe)) - (_K119653120017_ _rest120027_ _hd120025_))) + (_K119650120014_ _rest120024_ _hd120022_))) (let () (declare (not safe)) - (_else119651119665_)))))))) - (let* ((___stx128605128606_ _stx119469_) - (_g119477119503_ + (_else119648119662_)))))))) + (let* ((___stx128602128603_ _stx119466_) + (_g119474119500_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128605128606_))))) - (let ((___kont128607128608_ - (lambda (_L119563_ _L119564_) - (let ((__tmp129108 + ___stx128602128603_))))) + (let ((___kont128604128605_ + (lambda (_L119560_ _L119561_) + (let ((__tmp129105 (lambda () - (if (let ((__tmp129135 - (let ((__tmp129136 - (lambda (_g119592119595_ - _g119593119597_) + (if (let ((__tmp129132 + (let ((__tmp129133 + (lambda (_g119589119592_ + _g119590119594_) (let () (declare (not safe)) - (cons _g119592119595_ - _g119593119597_))))) + (cons _g119589119592_ + _g119590119594_))))) (declare (not safe)) - (foldr1 __tmp129136 + (foldr1 __tmp129133 '() - _L119564_)))) + _L119561_)))) (declare (not safe)) - (ormap1 _lift-kw-lambda?119473_ - __tmp129135)) - (let ((_g129122_ - (let ((__tmp129124 - (let ((__tmp129125 - (lambda (_g119599119602_ - _g119600119604_) + (ormap1 _lift-kw-lambda?119470_ + __tmp129132)) + (let ((_g129119_ + (let ((__tmp129121 + (let ((__tmp129122 + (lambda (_g119596119599_ + _g119597119601_) (let () (declare (not safe)) - (cons _g119599119602_ + (cons _g119596119599_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g119600119604_))))) + _g119597119601_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp129125 + (foldr1 __tmp129122 '() - _L119564_)))) + _L119561_)))) (declare (not safe)) - (_lift-kw-lambda-bindings119474_ - __tmp129124)))) + (_lift-kw-lambda-bindings119471_ + __tmp129121)))) (begin - (let ((_g129123_ + (let ((_g129120_ (let () (declare (not safe)) - (if (##values? _g129122_) - (##vector-length _g129122_) + (if (##values? _g129119_) + (##vector-length _g129119_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129123_ 3))) + (##fx= _g129120_ 3))) (error "Context expects 3 values" - _g129123_))) - (let ((_lift1119607_ + _g129120_))) + (let ((_lift1119604_ (let () (declare (not safe)) - (##vector-ref _g129122_ 0))) - (_lift2119608_ + (##vector-ref _g129119_ 0))) + (_lift2119605_ (let () (declare (not safe)) - (##vector-ref _g129122_ 1))) - (_hd119609_ + (##vector-ref _g129119_ 1))) + (_hd119606_ (let () (declare (not safe)) - (##vector-ref _g129122_ 2)))) - (let* ((_expr119611_ + (##vector-ref _g129119_ 2)))) + (let* ((_expr119608_ + (let ((__tmp129123 + (let ((__tmp129124 + (let ((__tmp129125 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _L119560_ '())))) + (declare (not safe)) + (cons _hd119606_ __tmp129125)))) + (declare (not safe)) + (cons '%#let-values __tmp129124)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp129123 + _stx119466_))) + (_expr119610_ (let ((__tmp129126 (let ((__tmp129127 (let ((__tmp129128 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L119563_ '())))) + (cons _expr119608_ '())))) (declare (not safe)) - (cons _hd119609_ __tmp129128)))) + (cons _lift2119605_ __tmp129128)))) (declare (not safe)) (cons '%#let-values __tmp129127)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source __tmp129126 - _stx119469_))) - (_expr119613_ + _stx119466_))) + (_expr119612_ (let ((__tmp129129 (let ((__tmp129130 (let ((__tmp129131 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr119611_ '())))) + (cons _expr119610_ '())))) (declare (not safe)) - (cons _lift2119608_ __tmp129131)))) + (cons _lift1119604_ __tmp129131)))) (declare (not safe)) (cons '%#let-values __tmp129130)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source __tmp129129 - _stx119469_))) - (_expr119615_ - (let ((__tmp129132 - (let ((__tmp129133 - (let ((__tmp129134 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (cons _expr119613_ '())))) - (declare (not safe)) - (cons _lift1119607_ __tmp129134)))) - (declare (not safe)) - (cons '%#let-values __tmp129133)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#xform-wrap-source - __tmp129132 - _stx119469_)))) + _stx119466_)))) (let () (declare (not safe)) (gxc#lift-top-lambda-let-values% - _expr119615_)))))) - (let ((_g129109_ - (let ((__tmp129111 - (let ((__tmp129112 - (lambda (_g119617119620_ - _g119618119622_) + _expr119612_)))))) + (let ((_g129106_ + (let ((__tmp129108 + (let ((__tmp129109 + (lambda (_g119614119617_ + _g119615119619_) (let () (declare (not safe)) - (cons _g119617119620_ + (cons _g119614119617_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g119618119622_))))) + _g119615119619_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp129112 + (foldr1 __tmp129109 '() - _L119564_)))) + _L119561_)))) (declare (not safe)) - (_compile-bindings119472_ - __tmp129111)))) + (_compile-bindings119469_ + __tmp129108)))) (begin - (let ((_g129110_ + (let ((_g129107_ (let () (declare (not safe)) - (if (##values? _g129109_) - (##vector-length _g129109_) + (if (##values? _g129106_) + (##vector-length _g129106_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129110_ 3))) + (##fx= _g129107_ 3))) (error "Context expects 3 values" - _g129110_))) - (let ((_lift1119625_ + _g129107_))) + (let ((_lift1119622_ (let () (declare (not safe)) - (##vector-ref _g129109_ 0))) - (_lift2119626_ + (##vector-ref _g129106_ 0))) + (_lift2119623_ (let () (declare (not safe)) - (##vector-ref _g129109_ 1))) - (_hd119627_ + (##vector-ref _g129106_ 1))) + (_hd119624_ (let () (declare (not safe)) - (##vector-ref _g129109_ 2)))) - (let* ((_body119629_ + (##vector-ref _g129106_ 2)))) + (let* ((_body119626_ (let () (declare (not safe)) (gxc#compile-e__0 - _L119563_))) - (_expr119631_ - (let ((__tmp129113 - (let ((__tmp129114 - (let ((__tmp129115 + _L119560_))) + (_expr119628_ + (let ((__tmp129110 + (let ((__tmp129111 + (let ((__tmp129112 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _body119629_ '())))) + (cons _body119626_ '())))) (declare (not safe)) - (cons _hd119627_ __tmp129115)))) + (cons _hd119624_ __tmp129112)))) (declare (not safe)) - (cons '%#let-values __tmp129114)))) + (cons '%#let-values __tmp129111)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp129113 - _stx119469_))) - (_expr119633_ + __tmp129110 + _stx119466_))) + (_expr119630_ (if (let () (declare (not safe)) - (null? _lift2119626_)) - _expr119631_ - (let ((__tmp129116 - (let ((__tmp129117 + (null? _lift2119623_)) + _expr119628_ + (let ((__tmp129113 + (let ((__tmp129114 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129118 + (let ((__tmp129115 (let () (declare (not safe)) - (cons _expr119631_ '())))) + (cons _expr119628_ '())))) (declare (not safe)) - (cons _lift2119626_ __tmp129118)))) + (cons _lift2119623_ __tmp129115)))) (declare (not safe)) - (cons '%#let-values __tmp129117)))) + (cons '%#let-values __tmp129114)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp129116 _stx119469_)))) + (gxc#xform-wrap-source __tmp129113 _stx119466_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_expr119635_ + (_expr119632_ (if (let () (declare (not safe)) - (null? _lift1119625_)) - _expr119633_ - (let ((__tmp129119 - (let ((__tmp129120 + (null? _lift1119622_)) + _expr119630_ + (let ((__tmp129116 + (let ((__tmp129117 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129121 + (let ((__tmp129118 (let () (declare (not safe)) - (cons _expr119633_ '())))) + (cons _expr119630_ '())))) (declare (not safe)) - (cons _lift1119625_ __tmp129121)))) + (cons _lift1119622_ __tmp129118)))) (declare (not safe)) - (cons '%#let-values __tmp129120)))) + (cons '%#let-values __tmp129117)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp129119 _stx119469_))))) + (gxc#xform-wrap-source __tmp129116 _stx119466_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _expr119635_))))))) - (__tmp129107 - (let ((__obj128811 + _expr119632_))))))) + (__tmp129104 + (let ((__obj128808 (let () (declare (not safe)) (##structure @@ -14043,314 +14043,314 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj128811) - __obj128811))) + (gx#local-context:::init! __obj128808) + __obj128808))) (declare (not safe)) (call-with-parameters - __tmp129108 + __tmp129105 gx#current-expander-context - __tmp129107)))) - (___kont128611128612_ + __tmp129104)))) + (___kont128608128609_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _stx119469_))))) - (let ((___match128632128633_ - (lambda (_e119483119515_ - _hd119482119518_ - _tl119481119520_ - _e119486119523_ - _hd119485119526_ - _tl119484119528_ - ___splice128609128610_ - _target119487119531_ - _tl119489119533_) - (letrec ((_loop119490119536_ - (lambda (_hd119488119539_ _bind119494119541_) + (gxc#xform-let-values% _stx119466_))))) + (let ((___match128629128630_ + (lambda (_e119480119512_ + _hd119479119515_ + _tl119478119517_ + _e119483119520_ + _hd119482119523_ + _tl119481119525_ + ___splice128606128607_ + _target119484119528_ + _tl119486119530_) + (letrec ((_loop119487119533_ + (lambda (_hd119485119536_ _bind119491119538_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119488119539_)) - (let ((_e119491119544_ + (gx#stx-pair? _hd119485119536_)) + (let ((_e119488119541_ (let () (declare (not safe)) - (gx#stx-e _hd119488119539_)))) - (let ((_lp-tl119493119549_ + (gx#stx-e _hd119485119536_)))) + (let ((_lp-tl119490119546_ (let () (declare (not safe)) - (##cdr _e119491119544_))) - (_lp-hd119492119547_ + (##cdr _e119488119541_))) + (_lp-hd119489119544_ (let () (declare (not safe)) - (##car _e119491119544_)))) - (let ((__tmp129139 + (##car _e119488119541_)))) + (let ((__tmp129136 (let () (declare (not safe)) - (cons _lp-hd119492119547_ - _bind119494119541_)))) + (cons _lp-hd119489119544_ + _bind119491119538_)))) (declare (not safe)) - (_loop119490119536_ - _lp-tl119493119549_ - __tmp129139)))) - (let ((_bind119495119552_ - (reverse _bind119494119541_))) + (_loop119487119533_ + _lp-tl119490119546_ + __tmp129136)))) + (let ((_bind119492119549_ + (reverse _bind119491119538_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119484119528_)) - (let ((_e119498119555_ + (gx#stx-pair? _tl119481119525_)) + (let ((_e119495119552_ (let () (declare (not safe)) (gx#stx-e - _tl119484119528_)))) - (let ((_tl119496119560_ + _tl119481119525_)))) + (let ((_tl119493119557_ (let () (declare (not safe)) - (##cdr _e119498119555_))) - (_hd119497119558_ + (##cdr _e119495119552_))) + (_hd119494119555_ (let () (declare (not safe)) - (##car _e119498119555_)))) + (##car _e119495119552_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119496119560_)) - (let ((_L119563_ - _hd119497119558_) - (_L119564_ - _bind119495119552_)) - (if (let ((__tmp129137 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129138 - (lambda (_g119584119587_ _g119585119589_) + _tl119493119557_)) + (let ((_L119560_ + _hd119494119555_) + (_L119561_ + _bind119492119549_)) + (if (let ((__tmp129134 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129135 + (lambda (_g119581119584_ _g119582119586_) (let () (declare (not safe)) - (cons _g119584119587_ _g119585119589_))))) + (cons _g119581119584_ _g119582119586_))))) (declare (not safe)) - (foldr1 __tmp129138 '() _L119564_)))) + (foldr1 __tmp129135 '() _L119561_)))) (declare (not safe)) - (ormap1 gxc#lift-top-lambda-binding? __tmp129137)) - (___kont128607128608_ _L119563_ _L119564_) - (___kont128611128612_))) + (ormap1 gxc#lift-top-lambda-binding? __tmp129134)) + (___kont128604128605_ _L119560_ _L119561_) + (___kont128608128609_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128611128612_)))) - (___kont128611128612_))))))) + (___kont128608128609_)))) + (___kont128608128609_))))))) (let () (declare (not safe)) - (_loop119490119536_ _target119487119531_ '())))))) + (_loop119487119533_ _target119484119528_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128605128606_)) - (let ((_e119483119515_ + (gx#stx-pair? ___stx128602128603_)) + (let ((_e119480119512_ (let () (declare (not safe)) - (gx#stx-e ___stx128605128606_)))) - (let ((_tl119481119520_ + (gx#stx-e ___stx128602128603_)))) + (let ((_tl119478119517_ (let () (declare (not safe)) - (##cdr _e119483119515_))) - (_hd119482119518_ + (##cdr _e119480119512_))) + (_hd119479119515_ (let () (declare (not safe)) - (##car _e119483119515_)))) + (##car _e119480119512_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119481119520_)) - (let ((_e119486119523_ + (gx#stx-pair? _tl119478119517_)) + (let ((_e119483119520_ (let () (declare (not safe)) - (gx#stx-e _tl119481119520_)))) - (let ((_tl119484119528_ + (gx#stx-e _tl119478119517_)))) + (let ((_tl119481119525_ (let () (declare (not safe)) - (##cdr _e119486119523_))) - (_hd119485119526_ + (##cdr _e119483119520_))) + (_hd119482119523_ (let () (declare (not safe)) - (##car _e119486119523_)))) + (##car _e119483119520_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd119485119526_)) - (let ((___splice128609128610_ + (gx#stx-pair/null? _hd119482119523_)) + (let ((___splice128606128607_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd119485119526_ + _hd119482119523_ '0)))) - (let ((_tl119489119533_ + (let ((_tl119486119530_ (let () (declare (not safe)) (##vector-ref - ___splice128609128610_ + ___splice128606128607_ '1))) - (_target119487119531_ + (_target119484119528_ (let () (declare (not safe)) (##vector-ref - ___splice128609128610_ + ___splice128606128607_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119489119533_)) - (___match128632128633_ - _e119483119515_ - _hd119482119518_ - _tl119481119520_ - _e119486119523_ - _hd119485119526_ - _tl119484119528_ - ___splice128609128610_ - _target119487119531_ - _tl119489119533_) - (___kont128611128612_)))) - (___kont128611128612_)))) - (___kont128611128612_)))) - (___kont128611128612_)))))))) + (gx#stx-null? _tl119486119530_)) + (___match128629128630_ + _e119480119512_ + _hd119479119515_ + _tl119478119517_ + _e119483119520_ + _hd119482119523_ + _tl119481119525_ + ___splice128606128607_ + _target119484119528_ + _tl119486119530_) + (___kont128608128609_)))) + (___kont128608128609_)))) + (___kont128608128609_)))) + (___kont128608128609_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_stx118613_) - (letrec* ((_bind-e__126728126729_ - (lambda (_id119453_ _expr119454_ _compile?119455_) - (let ((__tmp129142 + (lambda (_stx118610_) + (letrec* ((_bind-e__126725126726_ + (lambda (_id119450_ _expr119451_ _compile?119452_) + (let ((__tmp129139 (let () (declare (not safe)) - (cons _id119453_ '()))) - (__tmp129140 - (let ((__tmp129141 - (if _compile?119455_ + (cons _id119450_ '()))) + (__tmp129137 + (let ((__tmp129138 + (if _compile?119452_ (let () (declare (not safe)) - (gxc#compile-e__0 _expr119454_)) - _expr119454_))) + (gxc#compile-e__0 _expr119451_)) + _expr119451_))) (declare (not safe)) - (cons __tmp129141 '())))) + (cons __tmp129138 '())))) (declare (not safe)) - (cons __tmp129142 __tmp129140)))) - (_bind-e__0__126730126731_ - (lambda (_id119460_ _expr119461_) - (let ((_compile?119463_ '#t)) + (cons __tmp129139 __tmp129137)))) + (_bind-e__0__126727126728_ + (lambda (_id119457_ _expr119458_) + (let ((_compile?119460_ '#t)) (declare (not safe)) - (_bind-e__126728126729_ - _id119460_ - _expr119461_ - _compile?119463_)))) - (_bind-e118615_ - (lambda _g129144_ - (let ((_g129143_ + (_bind-e__126725126726_ + _id119457_ + _expr119458_ + _compile?119460_)))) + (_bind-e118612_ + (lambda _g129141_ + (let ((_g129140_ (let () (declare (not safe)) - (##length _g129144_)))) - (cond ((let () (declare (not safe)) (##fx= _g129143_ 2)) - (apply (lambda (_id119460_ _expr119461_) + (##length _g129141_)))) + (cond ((let () (declare (not safe)) (##fx= _g129140_ 2)) + (apply (lambda (_id119457_ _expr119458_) (let () (declare (not safe)) - (_bind-e__0__126730126731_ - _id119460_ - _expr119461_))) - _g129144_)) - ((let () (declare (not safe)) (##fx= _g129143_ 3)) - (apply (lambda (_id119465_ - _expr119466_ - _compile?119467_) + (_bind-e__0__126727126728_ + _id119457_ + _expr119458_))) + _g129141_)) + ((let () (declare (not safe)) (##fx= _g129140_ 3)) + (apply (lambda (_id119462_ + _expr119463_ + _compile?119464_) (let () (declare (not safe)) - (_bind-e__126728126729_ - _id119465_ - _expr119466_ - _compile?119467_))) - _g129144_)) + (_bind-e__126725126726_ + _id119462_ + _expr119463_ + _compile?119464_))) + _g129141_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g129144_)))))) - (_compile-bindings118616_ - (lambda (_rest118751_) - (let _lp118753_ ((_rest118755_ _rest118751_) - (_bind118756_ '())) - (let* ((_rest118757118765_ _rest118755_) - (_else118759118773_ - (lambda () (reverse _bind118756_))) - (_K118761119440_ - (lambda (_rest118776_ _hd118777_) - (let* ((___stx128655128656_ _hd118777_) - (_g118782118829_ + _g129141_)))))) + (_compile-bindings118613_ + (lambda (_rest118748_) + (let _lp118750_ ((_rest118752_ _rest118748_) + (_bind118753_ '())) + (let* ((_rest118754118762_ _rest118752_) + (_else118756118770_ + (lambda () (reverse _bind118753_))) + (_K118758119437_ + (lambda (_rest118773_ _hd118774_) + (let* ((___stx128652128653_ _hd118774_) + (_g118779118826_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128655128656_))))) - (let ((___kont128657128658_ - (lambda (_L119347_ _L119348_) - (let* ((___stx128635128636_ - _L119347_) - (_g119363119377_ + ___stx128652128653_))))) + (let ((___kont128654128655_ + (lambda (_L119344_ _L119345_) + (let* ((___stx128632128633_ + _L119344_) + (_g119360119374_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128635128636_))))) - (let ((___kont128637128638_ - (lambda (_L119425_) - (let ((__tmp129145 - (let ((__tmp129146 + ___stx128632128633_))))) + (let ((___kont128634128635_ + (lambda (_L119422_) + (let ((__tmp129142 + (let ((__tmp129143 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__126728126729_ - _L119348_ - _L119347_ + (_bind-e__126725126726_ + _L119345_ + _L119344_ '#f)))) (declare (not safe)) - (cons __tmp129146 _bind118756_)))) + (cons __tmp129143 _bind118753_)))) (declare (not safe)) - (_lp118753_ _rest118776_ __tmp129145)))) + (_lp118750_ _rest118773_ __tmp129142)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128639128640_ - (lambda (_L119390_) - (let ((_g129147_ + (___kont128636128637_ + (lambda (_L119387_) + (let ((_g129144_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#lift-case-lambda-clauses__% - _stx118613_ - _L119348_ - _L119390_ + _stx118610_ + _L119345_ + _L119387_ '#t)))) (begin - (let ((_g129148_ + (let ((_g129145_ (let () (declare (not safe)) - (if (##values? _g129147_) - (##vector-length _g129147_) + (if (##values? _g129144_) + (##vector-length _g129144_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129148_ 3))) - (error "Context expects 3 values" _g129148_))) - (let ((_ids119400_ + (##fx= _g129145_ 3))) + (error "Context expects 3 values" _g129145_))) + (let ((_ids119397_ (let () (declare (not safe)) - (##vector-ref _g129147_ 0))) - (_impls119401_ + (##vector-ref _g129144_ 0))) + (_impls119398_ (let () (declare (not safe)) - (##vector-ref _g129147_ 1))) - (_clauses119402_ + (##vector-ref _g129144_ 1))) + (_clauses119399_ (let () (declare (not safe)) - (##vector-ref _g129147_ 2)))) - (let* ((_g129149_ - (for-each gx#core-bind-runtime! _ids119400_)) - (_xbind119405_ - (map _bind-e118615_ _ids119400_ _impls119401_)) - (_expr*119407_ - (let ((__tmp129151 + (##vector-ref _g129144_ 2)))) + (let* ((_g129146_ + (for-each gx#core-bind-runtime! _ids119397_)) + (_xbind119402_ + (map _bind-e118612_ _ids119397_ _impls119398_)) + (_expr*119404_ + (let ((__tmp129148 (let () (declare (not safe)) - (cons '%#case-lambda _clauses119402_))) - (__tmp129150 + (cons '%#case-lambda _clauses119399_))) + (__tmp129147 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -14358,1134 +14358,1134 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp129151 - __tmp129150))) - (_bind*119409_ + __tmp129148 + __tmp129147))) + (_bind*119406_ (let () (declare (not safe)) - (_bind-e__126728126729_ - _L119348_ - _expr*119407_ + (_bind-e__126725126726_ + _L119345_ + _expr*119404_ '#f)))) - (let ((__tmp129153 + (let ((__tmp129150 (let () (declare (not safe)) - (gxc#identifier-symbol _L119348_))) - (__tmp129152 - (map gxc#identifier-symbol _ids119400_))) + (gxc#identifier-symbol _L119345_))) + (__tmp129149 + (map gxc#identifier-symbol _ids119397_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp129153 + __tmp129150 '" => " - __tmp129152)) - (let ((__tmp129154 - (let ((__tmp129155 + __tmp129149)) + (let ((__tmp129151 + (let ((__tmp129152 (let () (declare (not safe)) (foldl1 cons - _bind118756_ - _xbind119405_)))) + _bind118753_ + _xbind119402_)))) (declare (not safe)) - (cons _bind*119409_ __tmp129155)))) + (cons _bind*119406_ __tmp129152)))) (declare (not safe)) - (_lp118753_ _rest118776_ __tmp129154))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match128646128647_ - (lambda (_e119368119417_ - _hd119367119420_ - _tl119366119422_) - (let ((_L119425_ - _tl119366119422_)) + (_lp118750_ _rest118773_ __tmp129151))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match128643128644_ + (lambda (_e119365119414_ + _hd119364119417_ + _tl119363119419_) + (let ((_L119422_ + _tl119363119419_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (andmap1 gxc#dispatch-lambda-form? _L119425_)) - (___kont128637128638_ _L119425_) - (___kont128639128640_ _tl119366119422_)))))) + (andmap1 gxc#dispatch-lambda-form? _L119422_)) + (___kont128634128635_ _L119422_) + (___kont128636128637_ _tl119363119419_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx128635128636_)) - (let ((_e119368119417_ + ___stx128632128633_)) + (let ((_e119365119414_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx128635128636_)))) - (let ((_tl119366119422_ - (let () (declare (not safe)) (##cdr _e119368119417_))) - (_hd119367119420_ - (let () (declare (not safe)) (##car _e119368119417_)))) - (___match128646128647_ - _e119368119417_ - _hd119367119420_ - _tl119366119422_))) - (let () (declare (not safe)) (_g119363119377_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128659128660_ - (lambda (_L119175_ _L119176_) - (let* ((_g119190119220_ - (lambda (_g119191119217_) + (gx#stx-e ___stx128632128633_)))) + (let ((_tl119363119419_ + (let () (declare (not safe)) (##cdr _e119365119414_))) + (_hd119364119417_ + (let () (declare (not safe)) (##car _e119365119414_)))) + (___match128643128644_ + _e119365119414_ + _hd119364119417_ + _tl119363119419_))) + (let () (declare (not safe)) (_g119360119374_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128656128657_ + (lambda (_L119172_ _L119173_) + (let* ((_g119187119217_ + (lambda (_g119188119214_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g119191119217_)))) - (_g119189119315_ - (lambda (_g119191119223_) + _g119188119214_)))) + (_g119186119312_ + (lambda (_g119188119220_) (if (let () (declare (not safe)) (gx#stx-pair? - _g119191119223_)) - (let ((_e119197119225_ + _g119188119220_)) + (let ((_e119194119222_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g119191119223_)))) - (let ((_hd119196119228_ + (gx#stx-e _g119188119220_)))) + (let ((_hd119193119225_ (let () (declare (not safe)) - (##car _e119197119225_))) - (_tl119195119230_ + (##car _e119194119222_))) + (_tl119192119227_ (let () (declare (not safe)) - (##cdr _e119197119225_)))) + (##cdr _e119194119222_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119195119230_)) - (let ((_e119200119233_ + (gx#stx-pair? _tl119192119227_)) + (let ((_e119197119230_ (let () (declare (not safe)) - (gx#stx-e _tl119195119230_)))) - (let ((_hd119199119236_ + (gx#stx-e _tl119192119227_)))) + (let ((_hd119196119233_ (let () (declare (not safe)) - (##car _e119200119233_))) - (_tl119198119238_ + (##car _e119197119230_))) + (_tl119195119235_ (let () (declare (not safe)) - (##cdr _e119200119233_)))) + (##cdr _e119197119230_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119199119236_)) - (let ((_e119203119241_ + (gx#stx-pair? _hd119196119233_)) + (let ((_e119200119238_ (let () (declare (not safe)) - (gx#stx-e _hd119199119236_)))) - (let ((_hd119202119244_ + (gx#stx-e _hd119196119233_)))) + (let ((_hd119199119241_ (let () (declare (not safe)) - (##car _e119203119241_))) - (_tl119201119246_ + (##car _e119200119238_))) + (_tl119198119243_ (let () (declare (not safe)) - (##cdr _e119203119241_)))) + (##cdr _e119200119238_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119202119244_)) - (let ((_e119206119249_ + (gx#stx-pair? _hd119199119241_)) + (let ((_e119203119246_ (let () (declare (not safe)) (gx#stx-e - _hd119202119244_)))) - (let ((_hd119205119252_ + _hd119199119241_)))) + (let ((_hd119202119249_ (let () (declare (not safe)) - (##car _e119206119249_))) - (_tl119204119254_ + (##car _e119203119246_))) + (_tl119201119251_ (let () (declare (not safe)) - (##cdr _e119206119249_)))) + (##cdr _e119203119246_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd119205119252_)) - (let ((_e119209119257_ + _hd119202119249_)) + (let ((_e119206119254_ (let () (declare (not safe)) (gx#stx-e - _hd119205119252_)))) - (let ((_hd119208119260_ + _hd119202119249_)))) + (let ((_hd119205119257_ (let () (declare (not safe)) - (##car _e119209119257_))) - (_tl119207119262_ + (##car _e119206119254_))) + (_tl119204119259_ (let () (declare (not safe)) - (##cdr _e119209119257_)))) + (##cdr _e119206119254_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119207119262_)) + _tl119204119259_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl119204119254_)) - (let ((_e119212119265_ + (gx#stx-pair? _tl119201119251_)) + (let ((_e119209119262_ (let () (declare (not safe)) - (gx#stx-e _tl119204119254_)))) - (let ((_hd119211119268_ + (gx#stx-e _tl119201119251_)))) + (let ((_hd119208119265_ (let () (declare (not safe)) - (##car _e119212119265_))) - (_tl119210119270_ + (##car _e119209119262_))) + (_tl119207119267_ (let () (declare (not safe)) - (##cdr _e119212119265_)))) + (##cdr _e119209119262_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119210119270_)) + (gx#stx-null? _tl119207119267_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl119201119246_)) + (gx#stx-null? _tl119198119243_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119198119238_)) - (let ((_e119215119273_ + (gx#stx-pair? _tl119195119235_)) + (let ((_e119212119270_ (let () (declare (not safe)) - (gx#stx-e _tl119198119238_)))) - (let ((_hd119214119276_ + (gx#stx-e _tl119195119235_)))) + (let ((_hd119211119273_ (let () (declare (not safe)) - (##car _e119215119273_))) - (_tl119213119278_ + (##car _e119212119270_))) + (_tl119210119275_ (let () (declare (not safe)) - (##cdr _e119215119273_)))) + (##cdr _e119212119270_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119213119278_)) - ((lambda (_L119281_ - _L119282_ - _L119283_) - (let* ((_lambda-id119307_ - (let ((__tmp129157 + _tl119210119275_)) + ((lambda (_L119278_ + _L119279_ + _L119280_) + (let* ((_lambda-id119304_ + (let ((__tmp129154 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L119176_))) - (__tmp129156 (gensym '__))) + (gx#stx-e _L119173_))) + (__tmp129153 (gensym '__))) (declare (not safe)) - (make-symbol__1 __tmp129157 __tmp129156))) - (_lambda-id119309_ - (let ((__tmp129158 + (make-symbol__1 __tmp129154 __tmp129153))) + (_lambda-id119306_ + (let ((__tmp129155 (let () (declare (not safe)) - (gx#stx-source _stx118613_)))) + (gx#stx-source _stx118610_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _lambda-id119307_ __tmp129158))) - (_g129159_ + (gx#core-quote-syntax__1 _lambda-id119304_ __tmp129155))) + (_g129156_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lambda-id119309_))) - (_new-case-lambda-expr119312_ + (gx#core-bind-runtime!__0 _lambda-id119306_))) + (_new-case-lambda-expr119309_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L119281_ - _L119283_ - _lambda-id119309_)))) + _L119278_ + _L119280_ + _lambda-id119306_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp129161 + (let ((__tmp129158 (let () (declare (not safe)) (gxc#identifier-symbol - _L119176_))) - (__tmp129160 + _L119173_))) + (__tmp129157 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id119309_)))) + _lambda-id119306_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp129161 + __tmp129158 '" => " - __tmp129160)) - (let ((__tmp129164 - (let ((__tmp129165 + __tmp129157)) + (let ((__tmp129161 + (let ((__tmp129162 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__126728126729_ - _L119176_ - _new-case-lambda-expr119312_ + (_bind-e__126725126726_ + _L119173_ + _new-case-lambda-expr119309_ '#f)))) (declare (not safe)) - (cons __tmp129165 _rest118776_))) - (__tmp129162 - (let ((__tmp129163 + (cons __tmp129162 _rest118773_))) + (__tmp129159 + (let ((__tmp129160 (let () (declare (not safe)) - (_bind-e__0__126730126731_ - _lambda-id119309_ - _L119282_)))) + (_bind-e__0__126727126728_ + _lambda-id119306_ + _L119279_)))) (declare (not safe)) - (cons __tmp129163 _bind118756_)))) + (cons __tmp129160 _bind118753_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp118753_ - __tmp129164 - __tmp129162)))) - _hd119214119276_ - _hd119211119268_ - _hd119208119260_) + (_lp118750_ + __tmp129161 + __tmp129159)))) + _hd119211119273_ + _hd119208119265_ + _hd119205119257_) (let () (declare (not safe)) - (_g119190119220_ - _g119191119223_))))) + (_g119187119217_ + _g119188119220_))))) (let () (declare (not safe)) - (_g119190119220_ _g119191119223_))) + (_g119187119217_ _g119188119220_))) (let () (declare (not safe)) - (_g119190119220_ _g119191119223_))) + (_g119187119217_ _g119188119220_))) (let () (declare (not safe)) - (_g119190119220_ _g119191119223_))))) + (_g119187119217_ _g119188119220_))))) (let () (declare (not safe)) - (_g119190119220_ _g119191119223_))) + (_g119187119217_ _g119188119220_))) (let () (declare (not safe)) - (_g119190119220_ _g119191119223_))))) + (_g119187119217_ _g119188119220_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g119190119220_ - _g119191119223_))))) + (_g119187119217_ + _g119188119220_))))) (let () (declare (not safe)) - (_g119190119220_ - _g119191119223_))))) + (_g119187119217_ + _g119188119220_))))) (let () (declare (not safe)) - (_g119190119220_ _g119191119223_))))) + (_g119187119217_ _g119188119220_))))) (let () (declare (not safe)) - (_g119190119220_ _g119191119223_))))) + (_g119187119217_ _g119188119220_))))) (let () (declare (not safe)) - (_g119190119220_ _g119191119223_)))))) + (_g119187119217_ _g119188119220_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g119189119315_ _L119175_)))) - (___kont128661128662_ - (lambda (_L118899_ _L118900_) - (let* ((_g118914118967_ - (lambda (_g118915118964_) + (_g119186119312_ _L119172_)))) + (___kont128658128659_ + (lambda (_L118896_ _L118897_) + (let* ((_g118911118964_ + (lambda (_g118912118961_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118915118964_)))) - (_g118913119143_ - (lambda (_g118915118970_) + _g118912118961_)))) + (_g118910119140_ + (lambda (_g118912118967_) (if (let () (declare (not safe)) (gx#stx-pair? - _g118915118970_)) - (let ((_e118923118972_ + _g118912118967_)) + (let ((_e118920118969_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g118915118970_)))) - (let ((_hd118922118975_ + (gx#stx-e _g118912118967_)))) + (let ((_hd118919118972_ (let () (declare (not safe)) - (##car _e118923118972_))) - (_tl118921118977_ + (##car _e118920118969_))) + (_tl118918118974_ (let () (declare (not safe)) - (##cdr _e118923118972_)))) + (##cdr _e118920118969_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118921118977_)) - (let ((_e118926118980_ + (gx#stx-pair? _tl118918118974_)) + (let ((_e118923118977_ (let () (declare (not safe)) - (gx#stx-e _tl118921118977_)))) - (let ((_hd118925118983_ + (gx#stx-e _tl118918118974_)))) + (let ((_hd118922118980_ (let () (declare (not safe)) - (##car _e118926118980_))) - (_tl118924118985_ + (##car _e118923118977_))) + (_tl118921118982_ (let () (declare (not safe)) - (##cdr _e118926118980_)))) + (##cdr _e118923118977_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118925118983_)) - (let ((_e118929118988_ + (gx#stx-pair? _hd118922118980_)) + (let ((_e118926118985_ (let () (declare (not safe)) - (gx#stx-e _hd118925118983_)))) - (let ((_hd118928118991_ + (gx#stx-e _hd118922118980_)))) + (let ((_hd118925118988_ (let () (declare (not safe)) - (##car _e118929118988_))) - (_tl118927118993_ + (##car _e118926118985_))) + (_tl118924118990_ (let () (declare (not safe)) - (##cdr _e118929118988_)))) + (##cdr _e118926118985_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118928118991_)) - (let ((_e118932118996_ + (gx#stx-pair? _hd118925118988_)) + (let ((_e118929118993_ (let () (declare (not safe)) (gx#stx-e - _hd118928118991_)))) - (let ((_hd118931118999_ + _hd118925118988_)))) + (let ((_hd118928118996_ (let () (declare (not safe)) - (##car _e118932118996_))) - (_tl118930119001_ + (##car _e118929118993_))) + (_tl118927118998_ (let () (declare (not safe)) - (##cdr _e118932118996_)))) + (##cdr _e118929118993_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118931118999_)) - (let ((_e118935119004_ + _hd118928118996_)) + (let ((_e118932119001_ (let () (declare (not safe)) (gx#stx-e - _hd118931118999_)))) - (let ((_hd118934119007_ + _hd118928118996_)))) + (let ((_hd118931119004_ (let () (declare (not safe)) - (##car _e118935119004_))) - (_tl118933119009_ + (##car _e118932119001_))) + (_tl118930119006_ (let () (declare (not safe)) - (##cdr _e118935119004_)))) + (##cdr _e118932119001_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118933119009_)) + _tl118930119006_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl118930119001_)) - (let ((_e118938119012_ + (gx#stx-pair? _tl118927118998_)) + (let ((_e118935119009_ (let () (declare (not safe)) - (gx#stx-e _tl118930119001_)))) - (let ((_hd118937119015_ + (gx#stx-e _tl118927118998_)))) + (let ((_hd118934119012_ (let () (declare (not safe)) - (##car _e118938119012_))) - (_tl118936119017_ + (##car _e118935119009_))) + (_tl118933119014_ (let () (declare (not safe)) - (##cdr _e118938119012_)))) + (##cdr _e118935119009_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118937119015_)) - (let ((_e118941119020_ + (gx#stx-pair? _hd118934119012_)) + (let ((_e118938119017_ (let () (declare (not safe)) - (gx#stx-e _hd118937119015_)))) - (let ((_hd118940119023_ + (gx#stx-e _hd118934119012_)))) + (let ((_hd118937119020_ (let () (declare (not safe)) - (##car _e118941119020_))) - (_tl118939119025_ + (##car _e118938119017_))) + (_tl118936119022_ (let () (declare (not safe)) - (##cdr _e118941119020_)))) + (##cdr _e118938119017_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118939119025_)) - (let ((_e118944119028_ + (gx#stx-pair? _tl118936119022_)) + (let ((_e118941119025_ (let () (declare (not safe)) - (gx#stx-e _tl118939119025_)))) - (let ((_hd118943119031_ + (gx#stx-e _tl118936119022_)))) + (let ((_hd118940119028_ (let () (declare (not safe)) - (##car _e118944119028_))) - (_tl118942119033_ + (##car _e118941119025_))) + (_tl118939119030_ (let () (declare (not safe)) - (##cdr _e118944119028_)))) + (##cdr _e118941119025_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118943119031_)) - (let ((_e118947119036_ + _hd118940119028_)) + (let ((_e118944119033_ (let () (declare (not safe)) (gx#stx-e - _hd118943119031_)))) - (let ((_hd118946119039_ + _hd118940119028_)))) + (let ((_hd118943119036_ (let () (declare (not safe)) - (##car _e118947119036_))) - (_tl118945119041_ + (##car _e118944119033_))) + (_tl118942119038_ (let () (declare (not safe)) - (##cdr _e118947119036_)))) + (##cdr _e118944119033_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118946119039_)) - (let ((_e118950119044_ + _hd118943119036_)) + (let ((_e118947119041_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd118946119039_)))) - (let ((_hd118949119047_ - (let () (declare (not safe)) (##car _e118950119044_))) - (_tl118948119049_ - (let () (declare (not safe)) (##cdr _e118950119044_)))) + (gx#stx-e _hd118943119036_)))) + (let ((_hd118946119044_ + (let () (declare (not safe)) (##car _e118947119041_))) + (_tl118945119046_ + (let () (declare (not safe)) (##cdr _e118947119041_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118949119047_)) - (let ((_e118953119052_ + (gx#stx-pair? _hd118946119044_)) + (let ((_e118950119049_ (let () (declare (not safe)) - (gx#stx-e _hd118949119047_)))) - (let ((_hd118952119055_ + (gx#stx-e _hd118946119044_)))) + (let ((_hd118949119052_ (let () (declare (not safe)) - (##car _e118953119052_))) - (_tl118951119057_ + (##car _e118950119049_))) + (_tl118948119054_ (let () (declare (not safe)) - (##cdr _e118953119052_)))) + (##cdr _e118950119049_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118951119057_)) + (gx#stx-null? _tl118948119054_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118948119049_)) - (let ((_e118956119060_ + (gx#stx-pair? _tl118945119046_)) + (let ((_e118953119057_ (let () (declare (not safe)) - (gx#stx-e _tl118948119049_)))) - (let ((_hd118955119063_ + (gx#stx-e _tl118945119046_)))) + (let ((_hd118952119060_ (let () (declare (not safe)) - (##car _e118956119060_))) - (_tl118954119065_ + (##car _e118953119057_))) + (_tl118951119062_ (let () (declare (not safe)) - (##cdr _e118956119060_)))) + (##cdr _e118953119057_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118954119065_)) + (gx#stx-null? _tl118951119062_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl118945119041_)) + _tl118942119038_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl118942119033_)) - (let ((_e118959119068_ + _tl118939119030_)) + (let ((_e118956119065_ (let () (declare (not safe)) (gx#stx-e - _tl118942119033_)))) - (let ((_hd118958119071_ + _tl118939119030_)))) + (let ((_hd118955119068_ (let () (declare (not safe)) - (##car _e118959119068_))) - (_tl118957119073_ + (##car _e118956119065_))) + (_tl118954119070_ (let () (declare (not safe)) - (##cdr _e118959119068_)))) + (##cdr _e118956119065_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118957119073_)) + _tl118954119070_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl118936119017_)) + (gx#stx-null? _tl118933119014_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl118927118993_)) + (gx#stx-null? _tl118924118990_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118924118985_)) - (let ((_e118962119076_ + (gx#stx-pair? _tl118921118982_)) + (let ((_e118959119073_ (let () (declare (not safe)) - (gx#stx-e _tl118924118985_)))) - (let ((_hd118961119079_ + (gx#stx-e _tl118921118982_)))) + (let ((_hd118958119076_ (let () (declare (not safe)) - (##car _e118962119076_))) - (_tl118960119081_ + (##car _e118959119073_))) + (_tl118957119078_ (let () (declare (not safe)) - (##cdr _e118962119076_)))) + (##cdr _e118959119073_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118960119081_)) - ((lambda (_L119084_ - _L119085_ - _L119086_ - _L119087_ - _L119088_) - (let* ((_get-kws-id119128_ - (let ((__tmp129167 + (gx#stx-null? _tl118957119078_)) + ((lambda (_L119081_ + _L119082_ + _L119083_ + _L119084_ + _L119085_) + (let* ((_get-kws-id119125_ + (let ((__tmp129164 (let () (declare (not safe)) (gx#stx-e - _L118900_))) - (__tmp129166 + _L118897_))) + (__tmp129163 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp129167 - __tmp129166))) - (_get-kws-id119130_ - (let ((__tmp129168 + __tmp129164 + __tmp129163))) + (_get-kws-id119127_ + (let ((__tmp129165 (let () (declare (not safe)) (gx#stx-source - _stx118613_)))) + _stx118610_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id119128_ - __tmp129168))) - (_main-id119132_ - (let ((__tmp129170 + _get-kws-id119125_ + __tmp129165))) + (_main-id119129_ + (let ((__tmp129167 (let () (declare (not safe)) (gx#stx-e - _L118900_))) - (__tmp129169 + _L118897_))) + (__tmp129166 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp129170 - __tmp129169))) - (_main-id119134_ - (let ((__tmp129171 + __tmp129167 + __tmp129166))) + (_main-id119131_ + (let ((__tmp129168 (let () (declare (not safe)) (gx#stx-source - _stx118613_)))) + _stx118610_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id119132_ - __tmp129171))) - (_g129172_ + _main-id119129_ + __tmp129168))) + (_g129169_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _get-kws-id119130_))) - (_g129173_ + _get-kws-id119127_))) + (_g129170_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _main-id119134_))) - (_new-kw-dispatch119138_ + _main-id119131_))) + (_new-kw-dispatch119135_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L119084_ - _L119088_ - _get-kws-id119130_))) - (_new-get-kws119140_ + _L119081_ + _L119085_ + _get-kws-id119127_))) + (_new-get-kws119137_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L119085_ - _L119087_ - _main-id119134_)))) - (let ((__tmp129176 + _L119082_ + _L119084_ + _main-id119131_)))) + (let ((__tmp129173 (let () (declare (not safe)) (gxc#identifier-symbol - _L118900_))) - (__tmp129175 + _L118897_))) + (__tmp129172 (let () (declare (not safe)) (gxc#identifier-symbol - _get-kws-id119130_))) - (__tmp129174 + _get-kws-id119127_))) + (__tmp129171 (let () (declare (not safe)) (gxc#identifier-symbol - _main-id119134_)))) + _main-id119131_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp129176 + __tmp129173 '" => " - __tmp129175 + __tmp129172 '" => " - __tmp129174)) - (let ((__tmp129177 - (let ((__tmp129182 + __tmp129171)) + (let ((__tmp129174 + (let ((__tmp129179 (let () (declare (not safe)) - (_bind-e__126728126729_ - _main-id119134_ - _L119086_ + (_bind-e__126725126726_ + _main-id119131_ + _L119083_ '#f))) - (__tmp129178 - (let ((__tmp129181 + (__tmp129175 + (let ((__tmp129178 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_bind-e__126728126729_ - _get-kws-id119130_ - _new-get-kws119140_ + (_bind-e__126725126726_ + _get-kws-id119127_ + _new-get-kws119137_ '#f))) - (__tmp129179 - (let ((__tmp129180 + (__tmp129176 + (let ((__tmp129177 (let () (declare (not safe)) - (_bind-e__126728126729_ - _L118900_ - _new-kw-dispatch119138_ + (_bind-e__126725126726_ + _L118897_ + _new-kw-dispatch119135_ '#f)))) (declare (not safe)) - (cons __tmp129180 _rest118776_)))) + (cons __tmp129177 _rest118773_)))) (declare (not safe)) - (cons __tmp129181 __tmp129179)))) + (cons __tmp129178 __tmp129176)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129182 - __tmp129178)))) + (cons __tmp129179 + __tmp129175)))) (declare (not safe)) - (_lp118753_ - __tmp129177 - _bind118756_)))) - _hd118961119079_ - _hd118958119071_ - _hd118955119063_ - _hd118952119055_ - _hd118934119007_) + (_lp118750_ + __tmp129174 + _bind118753_)))) + _hd118958119076_ + _hd118955119068_ + _hd118952119060_ + _hd118949119052_ + _hd118931119004_) (let () (declare (not safe)) - (_g118914118967_ _g118915118970_))))) + (_g118911118964_ _g118912118967_))))) (let () (declare (not safe)) - (_g118914118967_ _g118915118970_))) + (_g118911118964_ _g118912118967_))) (let () (declare (not safe)) - (_g118914118967_ _g118915118970_))) + (_g118911118964_ _g118912118967_))) (let () (declare (not safe)) - (_g118914118967_ _g118915118970_))) + (_g118911118964_ _g118912118967_))) (let () (declare (not safe)) - (_g118914118967_ _g118915118970_))))) + (_g118911118964_ _g118912118967_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g118914118967_ - _g118915118970_))) + (_g118911118964_ + _g118912118967_))) (let () (declare (not safe)) - (_g118914118967_ - _g118915118970_))) + (_g118911118964_ + _g118912118967_))) (let () (declare (not safe)) - (_g118914118967_ - _g118915118970_))))) + (_g118911118964_ + _g118912118967_))))) (let () (declare (not safe)) - (_g118914118967_ _g118915118970_))) + (_g118911118964_ _g118912118967_))) (let () (declare (not safe)) - (_g118914118967_ _g118915118970_))))) + (_g118911118964_ _g118912118967_))))) (let () (declare (not safe)) - (_g118914118967_ _g118915118970_))))) + (_g118911118964_ _g118912118967_))))) (let () (declare (not safe)) - (_g118914118967_ _g118915118970_))))) + (_g118911118964_ _g118912118967_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g118914118967_ - _g118915118970_))))) + (_g118911118964_ + _g118912118967_))))) (let () (declare (not safe)) - (_g118914118967_ _g118915118970_))))) + (_g118911118964_ _g118912118967_))))) (let () (declare (not safe)) - (_g118914118967_ _g118915118970_))))) + (_g118911118964_ _g118912118967_))))) (let () (declare (not safe)) - (_g118914118967_ _g118915118970_))) + (_g118911118964_ _g118912118967_))) (let () (declare (not safe)) - (_g118914118967_ _g118915118970_))))) + (_g118911118964_ _g118912118967_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g118914118967_ - _g118915118970_))))) + (_g118911118964_ + _g118912118967_))))) (let () (declare (not safe)) - (_g118914118967_ - _g118915118970_))))) + (_g118911118964_ + _g118912118967_))))) (let () (declare (not safe)) - (_g118914118967_ _g118915118970_))))) + (_g118911118964_ _g118912118967_))))) (let () (declare (not safe)) - (_g118914118967_ _g118915118970_))))) + (_g118911118964_ _g118912118967_))))) (let () (declare (not safe)) - (_g118914118967_ _g118915118970_)))))) + (_g118911118964_ _g118912118967_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g118913119143_ _L118899_)))) - (___kont128663128664_ - (lambda (_L118850_ _L118851_) - (let ((__tmp129183 - (let ((__tmp129184 - (let ((__tmp129185 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129186 + (_g118910119140_ _L118896_)))) + (___kont128660128661_ + (lambda (_L118847_ _L118848_) + (let ((__tmp129180 + (let ((__tmp129181 + (let ((__tmp129182 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129183 (let () (declare (not safe)) - (gxc#compile-e__0 _L118850_)))) + (gxc#compile-e__0 _L118847_)))) (declare (not safe)) - (cons __tmp129186 '())))) + (cons __tmp129183 '())))) (declare (not safe)) - (cons _L118851_ __tmp129185)))) + (cons _L118848_ __tmp129182)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129184 - _bind118756_)))) + (cons __tmp129181 + _bind118753_)))) (declare (not safe)) - (_lp118753_ - _rest118776_ - __tmp129183))))) - (let* ((___match128730128731_ - (lambda (_e118810118875_ - _hd118809118878_ - _tl118808118880_ - _e118813118883_ - _hd118812118886_ - _tl118811118888_ - _e118816118891_ - _hd118815118894_ - _tl118814118896_) - (let ((_L118899_ - _hd118815118894_) - (_L118900_ - _hd118812118886_)) + (_lp118750_ + _rest118773_ + __tmp129180))))) + (let* ((___match128727128728_ + (lambda (_e118807118872_ + _hd118806118875_ + _tl118805118877_ + _e118810118880_ + _hd118809118883_ + _tl118808118885_ + _e118813118888_ + _hd118812118891_ + _tl118811118893_) + (let ((_L118896_ + _hd118812118891_) + (_L118897_ + _hd118809118883_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L118900_)) + _L118897_)) (let () (declare (not safe)) (gxc#kw-lambda-expr? - _L118899_))) - (___kont128661128662_ - _L118899_ - _L118900_) - (___kont128663128664_ - _hd118815118894_ - _hd118809118878_))))) - (___match128708128709_ - (lambda (_e118799119151_ - _hd118798119154_ - _tl118797119156_ - _e118802119159_ - _hd118801119162_ - _tl118800119164_ - _e118805119167_ - _hd118804119170_ - _tl118803119172_) - (let ((_L119175_ - _hd118804119170_) - (_L119176_ - _hd118801119162_)) + _L118896_))) + (___kont128658128659_ + _L118896_ + _L118897_) + (___kont128660128661_ + _hd118812118891_ + _hd118806118875_))))) + (___match128705128706_ + (lambda (_e118796119148_ + _hd118795119151_ + _tl118794119153_ + _e118799119156_ + _hd118798119159_ + _tl118797119161_ + _e118802119164_ + _hd118801119167_ + _tl118800119169_) + (let ((_L119172_ + _hd118801119167_) + (_L119173_ + _hd118798119159_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L119176_)) + _L119173_)) (let () (declare (not safe)) (gxc#opt-lambda-expr? - _L119175_))) - (___kont128659128660_ - _L119175_ - _L119176_) - (___match128730128731_ - _e118799119151_ - _hd118798119154_ - _tl118797119156_ - _e118802119159_ - _hd118801119162_ - _tl118800119164_ - _e118805119167_ - _hd118804119170_ - _tl118803119172_))))) - (___match128686128687_ - (lambda (_e118788119323_ - _hd118787119326_ - _tl118786119328_ - _e118791119331_ - _hd118790119334_ - _tl118789119336_ - _e118794119339_ - _hd118793119342_ - _tl118792119344_) - (let ((_L119347_ - _hd118793119342_) - (_L119348_ - _hd118790119334_)) + _L119172_))) + (___kont128656128657_ + _L119172_ + _L119173_) + (___match128727128728_ + _e118796119148_ + _hd118795119151_ + _tl118794119153_ + _e118799119156_ + _hd118798119159_ + _tl118797119161_ + _e118802119164_ + _hd118801119167_ + _tl118800119169_))))) + (___match128683128684_ + (lambda (_e118785119320_ + _hd118784119323_ + _tl118783119325_ + _e118788119328_ + _hd118787119331_ + _tl118786119333_ + _e118791119336_ + _hd118790119339_ + _tl118789119341_) + (let ((_L119344_ + _hd118790119339_) + (_L119345_ + _hd118787119331_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L119348_)) + _L119345_)) (let () (declare (not safe)) (gxc#case-lambda-expr? - _L119347_))) - (___kont128657128658_ - _L119347_ - _L119348_) - (___match128708128709_ - _e118788119323_ - _hd118787119326_ - _tl118786119328_ - _e118791119331_ - _hd118790119334_ - _tl118789119336_ - _e118794119339_ - _hd118793119342_ - _tl118792119344_)))))) + _L119344_))) + (___kont128654128655_ + _L119344_ + _L119345_) + (___match128705128706_ + _e118785119320_ + _hd118784119323_ + _tl118783119325_ + _e118788119328_ + _hd118787119331_ + _tl118786119333_ + _e118791119336_ + _hd118790119339_ + _tl118789119341_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx128655128656_)) - (let ((_e118788119323_ + ___stx128652128653_)) + (let ((_e118785119320_ (let () (declare (not safe)) (gx#stx-e - ___stx128655128656_)))) - (let ((_tl118786119328_ + ___stx128652128653_)))) + (let ((_tl118783119325_ (let () (declare (not safe)) - (##cdr _e118788119323_))) - (_hd118787119326_ + (##cdr _e118785119320_))) + (_hd118784119323_ (let () (declare (not safe)) - (##car _e118788119323_)))) + (##car _e118785119320_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118787119326_)) - (let ((_e118791119331_ + _hd118784119323_)) + (let ((_e118788119328_ (let () (declare (not safe)) (gx#stx-e - _hd118787119326_)))) - (let ((_tl118789119336_ + _hd118784119323_)))) + (let ((_tl118786119333_ (let () (declare (not safe)) - (##cdr _e118791119331_))) - (_hd118790119334_ + (##cdr _e118788119328_))) + (_hd118787119331_ (let () (declare (not safe)) - (##car _e118791119331_)))) + (##car _e118788119328_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118789119336_)) + _tl118786119333_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl118786119328_)) - (let ((_e118794119339_ + (gx#stx-pair? _tl118783119325_)) + (let ((_e118791119336_ (let () (declare (not safe)) - (gx#stx-e _tl118786119328_)))) - (let ((_tl118792119344_ + (gx#stx-e _tl118783119325_)))) + (let ((_tl118789119341_ (let () (declare (not safe)) - (##cdr _e118794119339_))) - (_hd118793119342_ + (##cdr _e118791119336_))) + (_hd118790119339_ (let () (declare (not safe)) - (##car _e118794119339_)))) + (##car _e118791119336_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118792119344_)) - (___match128686128687_ - _e118788119323_ - _hd118787119326_ - _tl118786119328_ - _e118791119331_ - _hd118790119334_ - _tl118789119336_ - _e118794119339_ - _hd118793119342_ - _tl118792119344_) + (gx#stx-null? _tl118789119341_)) + (___match128683128684_ + _e118785119320_ + _hd118784119323_ + _tl118783119325_ + _e118788119328_ + _hd118787119331_ + _tl118786119333_ + _e118791119336_ + _hd118790119339_ + _tl118789119341_) (let () (declare (not safe)) - (_g118782118829_))))) - (let () (declare (not safe)) (_g118782118829_))) + (_g118779118826_))))) + (let () (declare (not safe)) (_g118779118826_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118786119328_)) - (let ((_e118824118842_ + (gx#stx-pair? _tl118783119325_)) + (let ((_e118821118839_ (let () (declare (not safe)) - (gx#stx-e _tl118786119328_)))) - (let ((_tl118822118847_ + (gx#stx-e _tl118783119325_)))) + (let ((_tl118819118844_ (let () (declare (not safe)) - (##cdr _e118824118842_))) - (_hd118823118845_ + (##cdr _e118821118839_))) + (_hd118820118842_ (let () (declare (not safe)) - (##car _e118824118842_)))) + (##car _e118821118839_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118822118847_)) - (___kont128663128664_ - _hd118823118845_ - _hd118787119326_) + (gx#stx-null? _tl118819118844_)) + (___kont128660128661_ + _hd118820118842_ + _hd118784119323_) (let () (declare (not safe)) - (_g118782118829_))))) - (let () (declare (not safe)) (_g118782118829_)))))) + (_g118779118826_))))) + (let () (declare (not safe)) (_g118779118826_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl118786119328_)) - (let ((_e118824118842_ + _tl118783119325_)) + (let ((_e118821118839_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl118786119328_)))) - (let ((_tl118822118847_ - (let () (declare (not safe)) (##cdr _e118824118842_))) - (_hd118823118845_ - (let () (declare (not safe)) (##car _e118824118842_)))) + (gx#stx-e _tl118783119325_)))) + (let ((_tl118819118844_ + (let () (declare (not safe)) (##cdr _e118821118839_))) + (_hd118820118842_ + (let () (declare (not safe)) (##car _e118821118839_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118822118847_)) - (___kont128663128664_ _hd118823118845_ _hd118787119326_) - (let () (declare (not safe)) (_g118782118829_))))) - (let () (declare (not safe)) (_g118782118829_)))))) + (gx#stx-null? _tl118819118844_)) + (___kont128660128661_ _hd118820118842_ _hd118784119323_) + (let () (declare (not safe)) (_g118779118826_))))) + (let () (declare (not safe)) (_g118779118826_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g118782118829_))))))))) + (_g118779118826_))))))))) (if (let () (declare (not safe)) - (##pair? _rest118757118765_)) - (let ((_hd118762119443_ + (##pair? _rest118754118762_)) + (let ((_hd118759119440_ (let () (declare (not safe)) - (##car _rest118757118765_))) - (_tl118763119445_ + (##car _rest118754118762_))) + (_tl118760119442_ (let () (declare (not safe)) - (##cdr _rest118757118765_)))) - (let* ((_hd119448_ _hd118762119443_) - (_rest119450_ _tl118763119445_)) + (##cdr _rest118754118762_)))) + (let* ((_hd119445_ _hd118759119440_) + (_rest119447_ _tl118760119442_)) (declare (not safe)) - (_K118761119440_ _rest119450_ _hd119448_))) + (_K118758119437_ _rest119447_ _hd119445_))) (let () (declare (not safe)) - (_else118759118773_)))))))) - (let* ((___stx128747128748_ _stx118613_) - (_g118619118646_ + (_else118756118770_)))))))) + (let* ((___stx128744128745_ _stx118610_) + (_g118616118643_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128747128748_))))) - (let ((___kont128749128750_ - (lambda (_L118706_ _L118707_ _L118708_) - (let ((__tmp129188 + ___stx128744128745_))))) + (let ((___kont128746128747_ + (lambda (_L118703_ _L118704_ _L118705_) + (let ((__tmp129185 (lambda () - (let ((_hd118745_ - (let ((__tmp129189 - (let ((__tmp129190 - (lambda (_g118737118740_ - _g118738118742_) + (let ((_hd118742_ + (let ((__tmp129186 + (let ((__tmp129187 + (lambda (_g118734118737_ + _g118735118739_) (let () (declare (not safe)) - (cons _g118737118740_ - _g118738118742_))))) + (cons _g118734118737_ + _g118735118739_))))) (declare (not safe)) - (foldr1 __tmp129190 + (foldr1 __tmp129187 '() - _L118707_)))) + _L118704_)))) (declare (not safe)) - (_compile-bindings118616_ __tmp129189))) - (_body118746_ + (_compile-bindings118613_ __tmp129186))) + (_body118743_ (let () (declare (not safe)) - (gxc#compile-e__0 _L118706_)))) - (let ((__tmp129191 - (let ((__tmp129192 - (let ((__tmp129193 + (gxc#compile-e__0 _L118703_)))) + (let ((__tmp129188 + (let ((__tmp129189 + (let ((__tmp129190 (let () (declare (not safe)) - (cons _body118746_ + (cons _body118743_ '())))) (declare (not safe)) - (cons _hd118745_ - __tmp129193)))) + (cons _hd118742_ + __tmp129190)))) (declare (not safe)) - (cons _L118708_ __tmp129192)))) + (cons _L118705_ __tmp129189)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp129191 - _stx118613_))))) - (__tmp129187 - (let ((__obj128812 + __tmp129188 + _stx118610_))))) + (__tmp129184 + (let ((__obj128809 (let () (declare (not safe)) (##structure @@ -15495,254 +15495,254 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj128812) - __obj128812))) + (gx#local-context:::init! __obj128809) + __obj128809))) (declare (not safe)) (call-with-parameters - __tmp129188 + __tmp129185 gx#current-expander-context - __tmp129187)))) - (___kont128753128754_ + __tmp129184)))) + (___kont128750128751_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _stx118613_))))) - (let ((___match128774128775_ - (lambda (_e118626118658_ - _hd118625118661_ - _tl118624118663_ - _e118629118666_ - _hd118628118669_ - _tl118627118671_ - ___splice128751128752_ - _target118630118674_ - _tl118632118676_) - (letrec ((_loop118633118679_ - (lambda (_hd118631118682_ _bind118637118684_) + (gxc#xform-let-values% _stx118610_))))) + (let ((___match128771128772_ + (lambda (_e118623118655_ + _hd118622118658_ + _tl118621118660_ + _e118626118663_ + _hd118625118666_ + _tl118624118668_ + ___splice128748128749_ + _target118627118671_ + _tl118629118673_) + (letrec ((_loop118630118676_ + (lambda (_hd118628118679_ _bind118634118681_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118631118682_)) - (let ((_e118634118687_ + (gx#stx-pair? _hd118628118679_)) + (let ((_e118631118684_ (let () (declare (not safe)) - (gx#stx-e _hd118631118682_)))) - (let ((_lp-tl118636118692_ + (gx#stx-e _hd118628118679_)))) + (let ((_lp-tl118633118689_ (let () (declare (not safe)) - (##cdr _e118634118687_))) - (_lp-hd118635118690_ + (##cdr _e118631118684_))) + (_lp-hd118632118687_ (let () (declare (not safe)) - (##car _e118634118687_)))) - (let ((__tmp129196 + (##car _e118631118684_)))) + (let ((__tmp129193 (let () (declare (not safe)) - (cons _lp-hd118635118690_ - _bind118637118684_)))) + (cons _lp-hd118632118687_ + _bind118634118681_)))) (declare (not safe)) - (_loop118633118679_ - _lp-tl118636118692_ - __tmp129196)))) - (let ((_bind118638118695_ - (reverse _bind118637118684_))) + (_loop118630118676_ + _lp-tl118633118689_ + __tmp129193)))) + (let ((_bind118635118692_ + (reverse _bind118634118681_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118627118671_)) - (let ((_e118641118698_ + (gx#stx-pair? _tl118624118668_)) + (let ((_e118638118695_ (let () (declare (not safe)) (gx#stx-e - _tl118627118671_)))) - (let ((_tl118639118703_ + _tl118624118668_)))) + (let ((_tl118636118700_ (let () (declare (not safe)) - (##cdr _e118641118698_))) - (_hd118640118701_ + (##cdr _e118638118695_))) + (_hd118637118698_ (let () (declare (not safe)) - (##car _e118641118698_)))) + (##car _e118638118695_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118639118703_)) - (let ((_L118706_ - _hd118640118701_) - (_L118707_ - _bind118638118695_) - (_L118708_ - _hd118625118661_)) - (if (let ((__tmp129194 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129195 - (lambda (_g118729118732_ _g118730118734_) + _tl118636118700_)) + (let ((_L118703_ + _hd118637118698_) + (_L118704_ + _bind118635118692_) + (_L118705_ + _hd118622118658_)) + (if (let ((__tmp129191 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129192 + (lambda (_g118726118729_ _g118727118731_) (let () (declare (not safe)) - (cons _g118729118732_ _g118730118734_))))) + (cons _g118726118729_ _g118727118731_))))) (declare (not safe)) - (foldr1 __tmp129195 '() _L118707_)))) + (foldr1 __tmp129192 '() _L118704_)))) (declare (not safe)) - (ormap1 gxc#lift-top-lambda-binding? __tmp129194)) - (___kont128749128750_ _L118706_ _L118707_ _L118708_) - (___kont128753128754_))) + (ormap1 gxc#lift-top-lambda-binding? __tmp129191)) + (___kont128746128747_ _L118703_ _L118704_ _L118705_) + (___kont128750128751_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128753128754_)))) - (___kont128753128754_))))))) + (___kont128750128751_)))) + (___kont128750128751_))))))) (let () (declare (not safe)) - (_loop118633118679_ _target118630118674_ '())))))) + (_loop118630118676_ _target118627118671_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128747128748_)) - (let ((_e118626118658_ + (gx#stx-pair? ___stx128744128745_)) + (let ((_e118623118655_ (let () (declare (not safe)) - (gx#stx-e ___stx128747128748_)))) - (let ((_tl118624118663_ + (gx#stx-e ___stx128744128745_)))) + (let ((_tl118621118660_ (let () (declare (not safe)) - (##cdr _e118626118658_))) - (_hd118625118661_ + (##cdr _e118623118655_))) + (_hd118622118658_ (let () (declare (not safe)) - (##car _e118626118658_)))) + (##car _e118623118655_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118624118663_)) - (let ((_e118629118666_ + (gx#stx-pair? _tl118621118660_)) + (let ((_e118626118663_ (let () (declare (not safe)) - (gx#stx-e _tl118624118663_)))) - (let ((_tl118627118671_ + (gx#stx-e _tl118621118660_)))) + (let ((_tl118624118668_ (let () (declare (not safe)) - (##cdr _e118629118666_))) - (_hd118628118669_ + (##cdr _e118626118663_))) + (_hd118625118666_ (let () (declare (not safe)) - (##car _e118629118666_)))) + (##car _e118626118663_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd118628118669_)) - (let ((___splice128751128752_ + (gx#stx-pair/null? _hd118625118666_)) + (let ((___splice128748128749_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd118628118669_ + _hd118625118666_ '0)))) - (let ((_tl118632118676_ + (let ((_tl118629118673_ (let () (declare (not safe)) (##vector-ref - ___splice128751128752_ + ___splice128748128749_ '1))) - (_target118630118674_ + (_target118627118671_ (let () (declare (not safe)) (##vector-ref - ___splice128751128752_ + ___splice128748128749_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118632118676_)) - (___match128774128775_ - _e118626118658_ - _hd118625118661_ - _tl118624118663_ - _e118629118666_ - _hd118628118669_ - _tl118627118671_ - ___splice128751128752_ - _target118630118674_ - _tl118632118676_) - (___kont128753128754_)))) - (___kont128753128754_)))) - (___kont128753128754_)))) - (___kont128753128754_)))))))) + (gx#stx-null? _tl118629118673_)) + (___match128771128772_ + _e118623118655_ + _hd118622118658_ + _tl118621118660_ + _e118626118663_ + _hd118625118666_ + _tl118624118668_ + ___splice128748128749_ + _target118627118671_ + _tl118629118673_) + (___kont128750128751_)))) + (___kont128750128751_)))) + (___kont128750128751_)))) + (___kont128750128751_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_bind118531_) - (let* ((___stx128777128778_ _bind118531_) - (_g118534118551_ + (lambda (_bind118528_) + (let* ((___stx128774128775_ _bind118528_) + (_g118531118548_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128777128778_))))) - (let ((___kont128779128780_ - (lambda (_L118587_ _L118588_) - (if (let () (declare (not safe)) (gx#identifier? _L118588_)) - (let ((_$e118604_ + ___stx128774128775_))))) + (let ((___kont128776128777_ + (lambda (_L118584_ _L118585_) + (if (let () (declare (not safe)) (gx#identifier? _L118585_)) + (let ((_$e118601_ (let () (declare (not safe)) - (gxc#case-lambda-expr? _L118587_)))) - (if _$e118604_ - _$e118604_ - (let ((_$e118607_ + (gxc#case-lambda-expr? _L118584_)))) + (if _$e118601_ + _$e118601_ + (let ((_$e118604_ (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L118587_)))) - (if _$e118607_ - _$e118607_ + (gxc#opt-lambda-expr? _L118584_)))) + (if _$e118604_ + _$e118604_ (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L118587_)))))) + (gxc#kw-lambda-expr? _L118584_)))))) '#f))) - (___kont128781128782_ (lambda () '#f))) + (___kont128778128779_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128777128778_)) - (let ((_e118540118563_ + (gx#stx-pair? ___stx128774128775_)) + (let ((_e118537118560_ (let () (declare (not safe)) - (gx#stx-e ___stx128777128778_)))) - (let ((_tl118538118568_ - (let () (declare (not safe)) (##cdr _e118540118563_))) - (_hd118539118566_ + (gx#stx-e ___stx128774128775_)))) + (let ((_tl118535118565_ + (let () (declare (not safe)) (##cdr _e118537118560_))) + (_hd118536118563_ (let () (declare (not safe)) - (##car _e118540118563_)))) + (##car _e118537118560_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118539118566_)) - (let ((_e118543118571_ + (gx#stx-pair? _hd118536118563_)) + (let ((_e118540118568_ (let () (declare (not safe)) - (gx#stx-e _hd118539118566_)))) - (let ((_tl118541118576_ + (gx#stx-e _hd118536118563_)))) + (let ((_tl118538118573_ (let () (declare (not safe)) - (##cdr _e118543118571_))) - (_hd118542118574_ + (##cdr _e118540118568_))) + (_hd118539118571_ (let () (declare (not safe)) - (##car _e118543118571_)))) + (##car _e118540118568_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118541118576_)) + (gx#stx-null? _tl118538118573_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118538118568_)) - (let ((_e118546118579_ + (gx#stx-pair? _tl118535118565_)) + (let ((_e118543118576_ (let () (declare (not safe)) - (gx#stx-e _tl118538118568_)))) - (let ((_tl118544118584_ + (gx#stx-e _tl118535118565_)))) + (let ((_tl118541118581_ (let () (declare (not safe)) - (##cdr _e118546118579_))) - (_hd118545118582_ + (##cdr _e118543118576_))) + (_hd118542118579_ (let () (declare (not safe)) - (##car _e118546118579_)))) + (##car _e118543118576_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118544118584_)) - (___kont128779128780_ - _hd118545118582_ - _hd118542118574_) - (___kont128781128782_)))) - (___kont128781128782_)) - (___kont128781128782_)))) - (___kont128781128782_)))) - (___kont128781128782_)))))))) + (gx#stx-null? _tl118541118581_)) + (___kont128776128777_ + _hd118542118579_ + _hd118539118571_) + (___kont128778128779_)))) + (___kont128778128779_)) + (___kont128778128779_)))) + (___kont128778128779_)))) + (___kont128778128779_)))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top__1.scm b/src/bootstrap/gerbil/compiler/optimize-top__1.scm index 58cde329..c22727cd 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 (_$stx118254_) - (let* ((_g118258118287_ - (lambda (_g118259118283_) + (lambda (_$stx118251_) + (let* ((_g118255118284_ + (lambda (_g118256118280_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118259118283_)))) - (_g118257118388_ - (lambda (_g118259118291_) + _g118256118280_)))) + (_g118254118385_ + (lambda (_g118256118288_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118259118291_)) - (let ((_e118264118294_ + (gx#stx-pair? _g118256118288_)) + (let ((_e118261118291_ (let () (declare (not safe)) - (gx#syntax-e _g118259118291_)))) - (let ((_hd118263118298_ + (gx#syntax-e _g118256118288_)))) + (let ((_hd118260118295_ (let () (declare (not safe)) - (##car _e118264118294_))) - (_tl118262118301_ + (##car _e118261118291_))) + (_tl118259118298_ (let () (declare (not safe)) - (##cdr _e118264118294_)))) + (##cdr _e118261118291_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl118262118301_)) - (let ((_g129197_ + (gx#stx-pair/null? _tl118259118298_)) + (let ((_g129194_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl118262118301_ + _tl118259118298_ '0)))) (begin - (let ((_g129198_ + (let ((_g129195_ (let () (declare (not safe)) - (if (##values? _g129197_) - (##vector-length _g129197_) + (if (##values? _g129194_) + (##vector-length _g129194_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129198_ 2))) + (##fx= _g129195_ 2))) (error "Context expects 2 values" - _g129198_))) - (let ((_target118265118304_ + _g129195_))) + (let ((_target118262118301_ (let () (declare (not safe)) - (##vector-ref _g129197_ 0))) - (_tl118267118307_ + (##vector-ref _g129194_ 0))) + (_tl118264118304_ (let () (declare (not safe)) - (##vector-ref _g129197_ 1)))) + (##vector-ref _g129194_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118267118307_)) - (letrec ((_loop118268118310_ - (lambda (_hd118266118314_ - _type-e118272118317_ - _id118273118319_) + (gx#stx-null? _tl118264118304_)) + (letrec ((_loop118265118307_ + (lambda (_hd118263118311_ + _type-e118269118314_ + _id118270118316_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118266118314_)) - (let ((_e118269118322_ + _hd118263118311_)) + (let ((_e118266118319_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd118266118314_)))) - (let ((_lp-hd118270118326_ - (let () (declare (not safe)) (##car _e118269118322_))) - (_lp-tl118271118329_ - (let () (declare (not safe)) (##cdr _e118269118322_)))) + (gx#syntax-e _hd118263118311_)))) + (let ((_lp-hd118267118323_ + (let () (declare (not safe)) (##car _e118266118319_))) + (_lp-tl118268118326_ + (let () (declare (not safe)) (##cdr _e118266118319_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd118270118326_)) - (let ((_e118278118332_ + (gx#stx-pair? _lp-hd118267118323_)) + (let ((_e118275118329_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd118270118326_)))) - (let ((_hd118277118336_ + (gx#syntax-e _lp-hd118267118323_)))) + (let ((_hd118274118333_ (let () (declare (not safe)) - (##car _e118278118332_))) - (_tl118276118339_ + (##car _e118275118329_))) + (_tl118273118336_ (let () (declare (not safe)) - (##cdr _e118278118332_)))) + (##cdr _e118275118329_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118276118339_)) - (let ((_e118281118342_ + (gx#stx-pair? _tl118273118336_)) + (let ((_e118278118339_ (let () (declare (not safe)) - (gx#syntax-e _tl118276118339_)))) - (let ((_hd118280118346_ + (gx#syntax-e _tl118273118336_)))) + (let ((_hd118277118343_ (let () (declare (not safe)) - (##car _e118281118342_))) - (_tl118279118349_ + (##car _e118278118339_))) + (_tl118276118346_ (let () (declare (not safe)) - (##cdr _e118281118342_)))) + (##cdr _e118278118339_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118279118349_)) - (_loop118268118310_ - _lp-tl118271118329_ + (gx#stx-null? _tl118276118346_)) + (_loop118265118307_ + _lp-tl118268118326_ (let () (declare (not safe)) - (cons _hd118280118346_ - _type-e118272118317_)) + (cons _hd118277118343_ + _type-e118269118314_)) (let () (declare (not safe)) - (cons _hd118277118336_ - _id118273118319_))) - (_g118258118287_ _g118259118291_)))) - (_g118258118287_ _g118259118291_)))) - (_g118258118287_ _g118259118291_)))) - (let ((_type-e118274118352_ (reverse _type-e118272118317_)) - (_id118275118355_ (reverse _id118273118319_))) - ((lambda (_L118358_ _L118360_) - (let ((__tmp129210 + (cons _hd118274118333_ + _id118270118316_))) + (_g118255118284_ _g118256118288_)))) + (_g118255118284_ _g118256118288_)))) + (_g118255118284_ _g118256118288_)))) + (let ((_type-e118271118349_ (reverse _type-e118269118314_)) + (_id118272118352_ (reverse _id118270118316_))) + ((lambda (_L118355_ _L118357_) + (let ((__tmp129207 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp129199 + (__tmp129196 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L118358_ - _L118360_)) - (let ((__tmp129200 - (lambda (_g118376118380_ - _g118377118383_ - _g118378118385_) - (let ((__tmp129201 - (let ((__tmp129209 + _L118355_ + _L118357_)) + (let ((__tmp129197 + (lambda (_g118373118377_ + _g118374118380_ + _g118375118382_) + (let ((__tmp129198 + (let ((__tmp129206 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp129202 - (let ((__tmp129208 + (__tmp129199 + (let ((__tmp129205 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'basic-expression-type-annotations))) - (__tmp129203 - (let ((__tmp129205 + (__tmp129200 + (let ((__tmp129202 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129207 + (let ((__tmp129204 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp129206 + (__tmp129203 (let () (declare (not safe)) - (cons _g118377118383_ '())))) + (cons _g118374118380_ '())))) (declare (not safe)) - (cons __tmp129207 __tmp129206))) - (__tmp129204 + (cons __tmp129204 __tmp129203))) + (__tmp129201 (let () (declare (not safe)) - (cons _g118376118380_ '())))) + (cons _g118373118377_ '())))) (declare (not safe)) - (cons __tmp129205 __tmp129204)))) + (cons __tmp129202 __tmp129201)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129208 - __tmp129203)))) + (cons __tmp129205 + __tmp129200)))) (declare (not safe)) - (cons __tmp129209 __tmp129202)))) + (cons __tmp129206 __tmp129199)))) (declare (not safe)) - (cons __tmp129201 _g118378118385_))))) + (cons __tmp129198 _g118375118382_))))) (declare (not safe)) - (foldr2 __tmp129200 '() _L118358_ _L118360_))))) + (foldr2 __tmp129197 '() _L118355_ _L118357_))))) (declare (not safe)) - (cons __tmp129210 __tmp129199))) - _type-e118274118352_ - _id118275118355_)))))) + (cons __tmp129207 __tmp129196))) + _type-e118271118349_ + _id118272118352_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop118268118310_ - _target118265118304_ + (_loop118265118307_ + _target118262118301_ '() '())) - (_g118258118287_ _g118259118291_))))) - (_g118258118287_ _g118259118291_)))) - (_g118258118287_ _g118259118291_))))) - (_g118257118388_ _$stx118254_)))) + (_g118255118284_ _g118256118288_))))) + (_g118255118284_ _g118256118288_)))) + (_g118255118284_ _g118256118288_))))) + (_g118254118385_ _$stx118251_)))) (define |gxc[:0:]#defbasic-expression-type-builtin| - (lambda (_$stx118393_) - (let* ((_g118397118426_ - (lambda (_g118398118422_) + (lambda (_$stx118390_) + (let* ((_g118394118423_ + (lambda (_g118395118419_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118398118422_)))) - (_g118396118526_ - (lambda (_g118398118430_) + _g118395118419_)))) + (_g118393118523_ + (lambda (_g118395118427_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118398118430_)) - (let ((_e118403118433_ + (gx#stx-pair? _g118395118427_)) + (let ((_e118400118430_ (let () (declare (not safe)) - (gx#syntax-e _g118398118430_)))) - (let ((_hd118402118437_ + (gx#syntax-e _g118395118427_)))) + (let ((_hd118399118434_ (let () (declare (not safe)) - (##car _e118403118433_))) - (_tl118401118440_ + (##car _e118400118430_))) + (_tl118398118437_ (let () (declare (not safe)) - (##cdr _e118403118433_)))) + (##cdr _e118400118430_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl118401118440_)) - (let ((_g129211_ + (gx#stx-pair/null? _tl118398118437_)) + (let ((_g129208_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl118401118440_ + _tl118398118437_ '0)))) (begin - (let ((_g129212_ + (let ((_g129209_ (let () (declare (not safe)) - (if (##values? _g129211_) - (##vector-length _g129211_) + (if (##values? _g129208_) + (##vector-length _g129208_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129212_ 2))) + (##fx= _g129209_ 2))) (error "Context expects 2 values" - _g129212_))) - (let ((_target118404118443_ + _g129209_))) + (let ((_target118401118440_ (let () (declare (not safe)) - (##vector-ref _g129211_ 0))) - (_tl118406118446_ + (##vector-ref _g129208_ 0))) + (_tl118403118443_ (let () (declare (not safe)) - (##vector-ref _g129211_ 1)))) + (##vector-ref _g129208_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118406118446_)) - (letrec ((_loop118407118449_ - (lambda (_hd118405118453_ - _type-e118411118456_ - _id118412118458_) + (gx#stx-null? _tl118403118443_)) + (letrec ((_loop118404118446_ + (lambda (_hd118402118450_ + _type-e118408118453_ + _id118409118455_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118405118453_)) - (let ((_e118408118461_ + _hd118402118450_)) + (let ((_e118405118458_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd118405118453_)))) - (let ((_lp-hd118409118465_ - (let () (declare (not safe)) (##car _e118408118461_))) - (_lp-tl118410118468_ - (let () (declare (not safe)) (##cdr _e118408118461_)))) + (gx#syntax-e _hd118402118450_)))) + (let ((_lp-hd118406118462_ + (let () (declare (not safe)) (##car _e118405118458_))) + (_lp-tl118407118465_ + (let () (declare (not safe)) (##cdr _e118405118458_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd118409118465_)) - (let ((_e118417118471_ + (gx#stx-pair? _lp-hd118406118462_)) + (let ((_e118414118468_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd118409118465_)))) - (let ((_hd118416118475_ + (gx#syntax-e _lp-hd118406118462_)))) + (let ((_hd118413118472_ (let () (declare (not safe)) - (##car _e118417118471_))) - (_tl118415118478_ + (##car _e118414118468_))) + (_tl118412118475_ (let () (declare (not safe)) - (##cdr _e118417118471_)))) + (##cdr _e118414118468_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118415118478_)) - (let ((_e118420118481_ + (gx#stx-pair? _tl118412118475_)) + (let ((_e118417118478_ (let () (declare (not safe)) - (gx#syntax-e _tl118415118478_)))) - (let ((_hd118419118485_ + (gx#syntax-e _tl118412118475_)))) + (let ((_hd118416118482_ (let () (declare (not safe)) - (##car _e118420118481_))) - (_tl118418118488_ + (##car _e118417118478_))) + (_tl118415118485_ (let () (declare (not safe)) - (##cdr _e118420118481_)))) + (##cdr _e118417118478_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118418118488_)) - (_loop118407118449_ - _lp-tl118410118468_ + (gx#stx-null? _tl118415118485_)) + (_loop118404118446_ + _lp-tl118407118465_ (let () (declare (not safe)) - (cons _hd118419118485_ - _type-e118411118456_)) + (cons _hd118416118482_ + _type-e118408118453_)) (let () (declare (not safe)) - (cons _hd118416118475_ - _id118412118458_))) - (_g118397118426_ _g118398118430_)))) - (_g118397118426_ _g118398118430_)))) - (_g118397118426_ _g118398118430_)))) - (let ((_type-e118413118491_ (reverse _type-e118411118456_)) - (_id118414118494_ (reverse _id118412118458_))) - ((lambda (_L118497_ _L118499_) - (let ((__tmp129224 + (cons _hd118413118472_ + _id118409118455_))) + (_g118394118423_ _g118395118427_)))) + (_g118394118423_ _g118395118427_)))) + (_g118394118423_ _g118395118427_)))) + (let ((_type-e118410118488_ (reverse _type-e118408118453_)) + (_id118411118491_ (reverse _id118409118455_))) + ((lambda (_L118494_ _L118496_) + (let ((__tmp129221 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp129213 + (__tmp129210 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L118497_ - _L118499_)) - (let ((__tmp129214 - (lambda (_g118514118518_ - _g118515118521_ - _g118516118523_) - (let ((__tmp129215 - (let ((__tmp129223 + _L118494_ + _L118496_)) + (let ((__tmp129211 + (lambda (_g118511118515_ + _g118512118518_ + _g118513118520_) + (let ((__tmp129212 + (let ((__tmp129220 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp129216 - (let ((__tmp129222 + (__tmp129213 + (let ((__tmp129219 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'basic-expression-type-builtin))) - (__tmp129217 - (let ((__tmp129219 + (__tmp129214 + (let ((__tmp129216 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129221 + (let ((__tmp129218 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp129220 + (__tmp129217 (let () (declare (not safe)) - (cons _g118515118521_ '())))) + (cons _g118512118518_ '())))) (declare (not safe)) - (cons __tmp129221 __tmp129220))) - (__tmp129218 + (cons __tmp129218 __tmp129217))) + (__tmp129215 (let () (declare (not safe)) - (cons _g118514118518_ '())))) + (cons _g118511118515_ '())))) (declare (not safe)) - (cons __tmp129219 __tmp129218)))) + (cons __tmp129216 __tmp129215)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129222 - __tmp129217)))) + (cons __tmp129219 + __tmp129214)))) (declare (not safe)) - (cons __tmp129223 __tmp129216)))) + (cons __tmp129220 __tmp129213)))) (declare (not safe)) - (cons __tmp129215 _g118516118523_))))) + (cons __tmp129212 _g118513118520_))))) (declare (not safe)) - (foldr2 __tmp129214 '() _L118497_ _L118499_))))) + (foldr2 __tmp129211 '() _L118494_ _L118496_))))) (declare (not safe)) - (cons __tmp129224 __tmp129213))) - _type-e118413118491_ - _id118414118494_)))))) + (cons __tmp129221 __tmp129210))) + _type-e118410118488_ + _id118411118491_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop118407118449_ - _target118404118443_ + (_loop118404118446_ + _target118401118440_ '() '())) - (_g118397118426_ _g118398118430_))))) - (_g118397118426_ _g118398118430_)))) - (_g118397118426_ _g118398118430_))))) - (_g118396118526_ _$stx118393_))))) + (_g118394118423_ _g118395118427_))))) + (_g118394118423_ _g118395118427_)))) + (_g118394118423_ _g118395118427_))))) + (_g118393118523_ _$stx118390_))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm index 052c8a86..6e69acab 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 1709128373) + (define gerbil/compiler/optimize-xform::timestamp 1709229971) (begin (define gxc#&identity-expression (make-promise (lambda () - (let ((_tbl117898_ + (let ((_tbl117895_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl117898_ '%#begin-annotation gxc#xform-identity)) + (hash-put! _tbl117895_ '%#begin-annotation gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117898_ '%#lambda gxc#xform-identity)) + (hash-put! _tbl117895_ '%#lambda gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117898_ '%#case-lambda gxc#xform-identity)) + (hash-put! _tbl117895_ '%#case-lambda gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117898_ '%#let-values gxc#xform-identity)) + (hash-put! _tbl117895_ '%#let-values gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117898_ '%#letrec-values gxc#xform-identity)) + (hash-put! _tbl117895_ '%#letrec-values gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117898_ '%#letrec*-values gxc#xform-identity)) + (hash-put! _tbl117895_ '%#letrec*-values gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117898_ '%#quote gxc#xform-identity)) + (hash-put! _tbl117895_ '%#quote gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117898_ '%#quote-syntax gxc#xform-identity)) + (hash-put! _tbl117895_ '%#quote-syntax gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117898_ '%#call gxc#xform-identity)) + (hash-put! _tbl117895_ '%#call gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117898_ '%#call-unchecked gxc#xform-identity)) + (hash-put! _tbl117895_ '%#call-unchecked gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117898_ '%#if gxc#xform-identity)) + (hash-put! _tbl117895_ '%#if gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117898_ '%#ref gxc#xform-identity)) + (hash-put! _tbl117895_ '%#ref gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117898_ '%#set! gxc#xform-identity)) + (hash-put! _tbl117895_ '%#set! gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117898_ '%#struct-instance? gxc#xform-identity)) + (hash-put! _tbl117895_ '%#struct-instance? gxc#xform-identity)) (let () (declare (not safe)) (hash-put! - _tbl117898_ + _tbl117895_ '%#struct-direct-instance? gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117898_ '%#struct-ref gxc#xform-identity)) + (hash-put! _tbl117895_ '%#struct-ref gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117898_ '%#struct-set! gxc#xform-identity)) + (hash-put! _tbl117895_ '%#struct-set! gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117898_ '%#struct-direct-ref gxc#xform-identity)) + (hash-put! _tbl117895_ '%#struct-direct-ref gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117898_ '%#struct-direct-set! gxc#xform-identity)) + (hash-put! _tbl117895_ '%#struct-direct-set! gxc#xform-identity)) (let () (declare (not safe)) (hash-put! - _tbl117898_ + _tbl117895_ '%#struct-unchecked-ref gxc#xform-identity)) (let () (declare (not safe)) (hash-put! - _tbl117898_ + _tbl117895_ '%#struct-unchecked-set! gxc#xform-identity)) - _tbl117898_)))) + _tbl117895_)))) (define gxc#&identity-special-form (make-promise (lambda () - (let ((_tbl117894_ + (let ((_tbl117891_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl117894_ '%#begin gxc#xform-identity)) + (hash-put! _tbl117891_ '%#begin gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117894_ '%#begin-syntax gxc#xform-identity)) + (hash-put! _tbl117891_ '%#begin-syntax gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117894_ '%#begin-foreign gxc#xform-identity)) + (hash-put! _tbl117891_ '%#begin-foreign gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117894_ '%#module gxc#xform-identity)) + (hash-put! _tbl117891_ '%#module gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117894_ '%#import gxc#xform-identity)) + (hash-put! _tbl117891_ '%#import gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117894_ '%#export gxc#xform-identity)) + (hash-put! _tbl117891_ '%#export gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117894_ '%#provide gxc#xform-identity)) + (hash-put! _tbl117891_ '%#provide gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117894_ '%#extern gxc#xform-identity)) + (hash-put! _tbl117891_ '%#extern gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117894_ '%#define-values gxc#xform-identity)) + (hash-put! _tbl117891_ '%#define-values gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117894_ '%#define-syntax gxc#xform-identity)) + (hash-put! _tbl117891_ '%#define-syntax gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117894_ '%#define-alias gxc#xform-identity)) + (hash-put! _tbl117891_ '%#define-alias gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117894_ '%#declare gxc#xform-identity)) - _tbl117894_)))) + (hash-put! _tbl117891_ '%#declare gxc#xform-identity)) + _tbl117891_)))) (define gxc#&identity (make-promise (lambda () - (let ((_tbl117890_ + (let ((_tbl117887_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118144 (force gxc#&identity-special-form))) + (let ((__tmp118141 (force gxc#&identity-special-form))) (declare (not safe)) - (hash-merge! _tbl117890_ __tmp118144)) - (let ((__tmp118145 (force gxc#&identity-expression))) + (hash-merge! _tbl117887_ __tmp118141)) + (let ((__tmp118142 (force gxc#&identity-expression))) (declare (not safe)) - (hash-merge! _tbl117890_ __tmp118145)) - _tbl117890_)))) + (hash-merge! _tbl117887_ __tmp118142)) + _tbl117887_)))) (define gxc#&basic-xform-expression (make-promise (lambda () - (let ((_tbl117886_ + (let ((_tbl117883_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) (hash-put! - _tbl117886_ + _tbl117883_ '%#begin-annotation gxc#xform-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl117886_ '%#lambda gxc#xform-lambda%)) + (hash-put! _tbl117883_ '%#lambda gxc#xform-lambda%)) (let () (declare (not safe)) - (hash-put! _tbl117886_ '%#case-lambda gxc#xform-case-lambda%)) + (hash-put! _tbl117883_ '%#case-lambda gxc#xform-case-lambda%)) (let () (declare (not safe)) - (hash-put! _tbl117886_ '%#let-values gxc#xform-let-values%)) + (hash-put! _tbl117883_ '%#let-values gxc#xform-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117886_ '%#letrec-values gxc#xform-let-values%)) + (hash-put! _tbl117883_ '%#letrec-values gxc#xform-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117886_ '%#letrec*-values gxc#xform-let-values%)) + (hash-put! _tbl117883_ '%#letrec*-values gxc#xform-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117886_ '%#quote gxc#xform-identity)) + (hash-put! _tbl117883_ '%#quote gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117886_ '%#quote-syntax gxc#xform-identity)) + (hash-put! _tbl117883_ '%#quote-syntax gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117886_ '%#call gxc#xform-operands)) + (hash-put! _tbl117883_ '%#call gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117886_ '%#call-unchecked gxc#xform-operands)) + (hash-put! _tbl117883_ '%#call-unchecked gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117886_ '%#if gxc#xform-operands)) + (hash-put! _tbl117883_ '%#if gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117886_ '%#ref gxc#xform-identity)) + (hash-put! _tbl117883_ '%#ref gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117886_ '%#set! gxc#xform-setq%)) + (hash-put! _tbl117883_ '%#set! gxc#xform-setq%)) (let () (declare (not safe)) - (hash-put! _tbl117886_ '%#struct-instance? gxc#xform-operands)) + (hash-put! _tbl117883_ '%#struct-instance? gxc#xform-operands)) (let () (declare (not safe)) (hash-put! - _tbl117886_ + _tbl117883_ '%#struct-direct-instance? gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117886_ '%#struct-ref gxc#xform-operands)) + (hash-put! _tbl117883_ '%#struct-ref gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117886_ '%#struct-set! gxc#xform-operands)) + (hash-put! _tbl117883_ '%#struct-set! gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117886_ '%#struct-direct-ref gxc#xform-operands)) + (hash-put! _tbl117883_ '%#struct-direct-ref gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117886_ '%#struct-direct-set! gxc#xform-operands)) + (hash-put! _tbl117883_ '%#struct-direct-set! gxc#xform-operands)) (let () (declare (not safe)) (hash-put! - _tbl117886_ + _tbl117883_ '%#struct-unchecked-ref gxc#xform-operands)) (let () (declare (not safe)) (hash-put! - _tbl117886_ + _tbl117883_ '%#struct-unchecked-set! gxc#xform-operands)) - _tbl117886_)))) + _tbl117883_)))) (define gxc#&basic-xform (make-promise (lambda () - (let ((_tbl117882_ + (let ((_tbl117879_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118146 (force gxc#&basic-xform-expression))) + (let ((__tmp118143 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-merge! _tbl117882_ __tmp118146)) - (let ((__tmp118147 (force gxc#&identity))) + (hash-merge! _tbl117879_ __tmp118143)) + (let ((__tmp118144 (force gxc#&identity))) (declare (not safe)) - (hash-merge! _tbl117882_ __tmp118147)) + (hash-merge! _tbl117879_ __tmp118144)) (let () (declare (not safe)) - (hash-put! _tbl117882_ '%#begin gxc#xform-begin%)) + (hash-put! _tbl117879_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (hash-put! _tbl117882_ '%#begin-syntax gxc#xform-begin-syntax%)) + (hash-put! _tbl117879_ '%#begin-syntax gxc#xform-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl117882_ '%#module gxc#xform-module%)) + (hash-put! _tbl117879_ '%#module gxc#xform-module%)) (let () (declare (not safe)) - (hash-put! _tbl117882_ '%#define-values gxc#xform-define-values%)) + (hash-put! _tbl117879_ '%#define-values gxc#xform-define-values%)) (let () (declare (not safe)) - (hash-put! _tbl117882_ '%#define-syntax gxc#xform-define-syntax%)) - _tbl117882_)))) + (hash-put! _tbl117879_ '%#define-syntax gxc#xform-define-syntax%)) + _tbl117879_)))) (define gxc#&collect-mutators (make-promise (lambda () - (let ((_tbl117878_ + (let ((_tbl117875_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118148 (force gxc#&void))) + (let ((__tmp118145 (force gxc#&void))) (declare (not safe)) - (hash-merge! _tbl117878_ __tmp118148)) + (hash-merge! _tbl117875_ __tmp118145)) (let () (declare (not safe)) - (hash-put! _tbl117878_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl117875_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (hash-put! _tbl117878_ '%#begin-syntax gxc#collect-begin-syntax%)) + (hash-put! _tbl117875_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) (hash-put! - _tbl117878_ + _tbl117875_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl117878_ '%#module gxc#collect-module%)) + (hash-put! _tbl117875_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (hash-put! - _tbl117878_ + _tbl117875_ '%#define-values gxc#collect-define-values%)) (let () (declare (not safe)) (hash-put! - _tbl117878_ + _tbl117875_ '%#define-syntax gxc#collect-define-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl117878_ '%#lambda gxc#collect-body-lambda%)) + (hash-put! _tbl117875_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl117878_ + _tbl117875_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl117878_ + _tbl117875_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl117878_ + _tbl117875_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl117878_ + _tbl117875_ '%#letrec*-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117878_ '%#call gxc#collect-operands)) + (hash-put! _tbl117875_ '%#call gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl117878_ '%#call-unchecked gxc#collect-operands)) + (hash-put! _tbl117875_ '%#call-unchecked gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl117878_ '%#if gxc#collect-operands)) + (hash-put! _tbl117875_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl117878_ '%#set! gxc#collect-mutators-setq%)) + (hash-put! _tbl117875_ '%#set! gxc#collect-mutators-setq%)) (let () (declare (not safe)) - (hash-put! _tbl117878_ '%#struct-instance? gxc#collect-operands)) + (hash-put! _tbl117875_ '%#struct-instance? gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl117878_ + _tbl117875_ '%#struct-direct-instance? gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl117878_ '%#struct-ref gxc#collect-operands)) + (hash-put! _tbl117875_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl117878_ '%#struct-set! gxc#collect-operands)) + (hash-put! _tbl117875_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl117878_ '%#struct-direct-ref gxc#collect-operands)) + (hash-put! _tbl117875_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl117878_ + _tbl117875_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl117878_ + _tbl117875_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl117878_ + _tbl117875_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl117878_)))) + _tbl117875_)))) (define gxc#apply-collect-mutators - (lambda (_stx117861_ . _args117863_) - (let ((__tmp118150 + (lambda (_stx117858_ . _args117860_) + (let ((__tmp118147 (lambda () (declare (not safe)) - (if (null? _args117863_) - (gxc#compile-e__0 _stx117861_) - (let ((_arg1117868_ (car _args117863_)) - (_rest117870_ (cdr _args117863_))) - (if (null? _rest117870_) - (gxc#compile-e__1 _stx117861_ _arg1117868_) - (let ((_arg2117873_ (car _rest117870_)) - (_rest117875_ (cdr _rest117870_))) - (if (null? _rest117875_) + (if (null? _args117860_) + (gxc#compile-e__0 _stx117858_) + (let ((_arg1117865_ (car _args117860_)) + (_rest117867_ (cdr _args117860_))) + (if (null? _rest117867_) + (gxc#compile-e__1 _stx117858_ _arg1117865_) + (let ((_arg2117870_ (car _rest117867_)) + (_rest117872_ (cdr _rest117867_))) + (if (null? _rest117872_) (gxc#compile-e__2 - _stx117861_ - _arg1117868_ - _arg2117873_) + _stx117858_ + _arg1117865_ + _arg2117870_) (apply gxc#compile-e - _stx117861_ - _arg1117868_ - _arg2117873_ - _rest117875_)))))))) - (__tmp118149 (force gxc#&collect-mutators))) + _stx117858_ + _arg1117865_ + _arg2117870_ + _rest117872_)))))))) + (__tmp118146 (force gxc#&collect-mutators))) (declare (not safe)) (call-with-parameters - __tmp118150 + __tmp118147 gxc#current-compile-methods - __tmp118149)))) + __tmp118146)))) (define gxc#&collect-methods (make-promise (lambda () - (let ((_tbl117858_ + (let ((_tbl117855_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118151 (force gxc#&void))) + (let ((__tmp118148 (force gxc#&void))) (declare (not safe)) - (hash-merge! _tbl117858_ __tmp118151)) + (hash-merge! _tbl117855_ __tmp118148)) (let () (declare (not safe)) - (hash-put! _tbl117858_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl117855_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (hash-put! _tbl117858_ '%#begin-syntax gxc#collect-begin-syntax%)) + (hash-put! _tbl117855_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl117858_ '%#module gxc#collect-module%)) + (hash-put! _tbl117855_ '%#module gxc#collect-module%)) (let () (declare (not safe)) - (hash-put! _tbl117858_ '%#call gxc#collect-methods-call%)) + (hash-put! _tbl117855_ '%#call gxc#collect-methods-call%)) (let () (declare (not safe)) (hash-put! - _tbl117858_ + _tbl117855_ '%#call-unchecked gxc#collect-methods-call%)) - _tbl117858_)))) + _tbl117855_)))) (define gxc#apply-collect-methods - (lambda (_stx117841_ . _args117843_) - (let ((__tmp118153 + (lambda (_stx117838_ . _args117840_) + (let ((__tmp118150 (lambda () (declare (not safe)) - (if (null? _args117843_) - (gxc#compile-e__0 _stx117841_) - (let ((_arg1117848_ (car _args117843_)) - (_rest117850_ (cdr _args117843_))) - (if (null? _rest117850_) - (gxc#compile-e__1 _stx117841_ _arg1117848_) - (let ((_arg2117853_ (car _rest117850_)) - (_rest117855_ (cdr _rest117850_))) - (if (null? _rest117855_) + (if (null? _args117840_) + (gxc#compile-e__0 _stx117838_) + (let ((_arg1117845_ (car _args117840_)) + (_rest117847_ (cdr _args117840_))) + (if (null? _rest117847_) + (gxc#compile-e__1 _stx117838_ _arg1117845_) + (let ((_arg2117850_ (car _rest117847_)) + (_rest117852_ (cdr _rest117847_))) + (if (null? _rest117852_) (gxc#compile-e__2 - _stx117841_ - _arg1117848_ - _arg2117853_) + _stx117838_ + _arg1117845_ + _arg2117850_) (apply gxc#compile-e - _stx117841_ - _arg1117848_ - _arg2117853_ - _rest117855_)))))))) - (__tmp118152 (force gxc#&collect-methods))) + _stx117838_ + _arg1117845_ + _arg2117850_ + _rest117852_)))))))) + (__tmp118149 (force gxc#&collect-methods))) (declare (not safe)) (call-with-parameters - __tmp118153 + __tmp118150 gxc#current-compile-methods - __tmp118152)))) + __tmp118149)))) (define gxc#&expression-subst (make-promise (lambda () - (let ((_tbl117838_ + (let ((_tbl117835_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118154 (force gxc#&basic-xform-expression))) + (let ((__tmp118151 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-merge! _tbl117838_ __tmp118154)) + (hash-merge! _tbl117835_ __tmp118151)) (let () (declare (not safe)) - (hash-put! _tbl117838_ '%#begin gxc#xform-begin%)) + (hash-put! _tbl117835_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (hash-put! _tbl117838_ '%#ref gxc#expression-subst-ref%)) + (hash-put! _tbl117835_ '%#ref gxc#expression-subst-ref%)) (let () (declare (not safe)) - (hash-put! _tbl117838_ '%#set! gxc#expression-subst-setq%)) - _tbl117838_)))) + (hash-put! _tbl117835_ '%#set! gxc#expression-subst-setq%)) + _tbl117835_)))) (define gxc#apply-expression-subst - (lambda (_stx117821_ . _args117823_) - (let ((__tmp118156 + (lambda (_stx117818_ . _args117820_) + (let ((__tmp118153 (lambda () (declare (not safe)) - (if (null? _args117823_) - (gxc#compile-e__0 _stx117821_) - (let ((_arg1117828_ (car _args117823_)) - (_rest117830_ (cdr _args117823_))) - (if (null? _rest117830_) - (gxc#compile-e__1 _stx117821_ _arg1117828_) - (let ((_arg2117833_ (car _rest117830_)) - (_rest117835_ (cdr _rest117830_))) - (if (null? _rest117835_) + (if (null? _args117820_) + (gxc#compile-e__0 _stx117818_) + (let ((_arg1117825_ (car _args117820_)) + (_rest117827_ (cdr _args117820_))) + (if (null? _rest117827_) + (gxc#compile-e__1 _stx117818_ _arg1117825_) + (let ((_arg2117830_ (car _rest117827_)) + (_rest117832_ (cdr _rest117827_))) + (if (null? _rest117832_) (gxc#compile-e__2 - _stx117821_ - _arg1117828_ - _arg2117833_) + _stx117818_ + _arg1117825_ + _arg2117830_) (apply gxc#compile-e - _stx117821_ - _arg1117828_ - _arg2117833_ - _rest117835_)))))))) - (__tmp118155 (force gxc#&expression-subst))) + _stx117818_ + _arg1117825_ + _arg2117830_ + _rest117832_)))))))) + (__tmp118152 (force gxc#&expression-subst))) (declare (not safe)) (call-with-parameters - __tmp118156 + __tmp118153 gxc#current-compile-methods - __tmp118155)))) + __tmp118152)))) (define gxc#&expression-subst* (make-promise (lambda () - (let ((_tbl117818_ + (let ((_tbl117815_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118157 (force gxc#&expression-subst))) + (let ((__tmp118154 (force gxc#&expression-subst))) (declare (not safe)) - (hash-merge! _tbl117818_ __tmp118157)) + (hash-merge! _tbl117815_ __tmp118154)) (let () (declare (not safe)) - (hash-put! _tbl117818_ '%#ref gxc#expression-subst*-ref%)) + (hash-put! _tbl117815_ '%#ref gxc#expression-subst*-ref%)) (let () (declare (not safe)) - (hash-put! _tbl117818_ '%#set! gxc#expression-subst*-setq%)) - _tbl117818_)))) + (hash-put! _tbl117815_ '%#set! gxc#expression-subst*-setq%)) + _tbl117815_)))) (define gxc#apply-expression-subst* - (lambda (_stx117801_ . _args117803_) - (let ((__tmp118159 + (lambda (_stx117798_ . _args117800_) + (let ((__tmp118156 (lambda () (declare (not safe)) - (if (null? _args117803_) - (gxc#compile-e__0 _stx117801_) - (let ((_arg1117808_ (car _args117803_)) - (_rest117810_ (cdr _args117803_))) - (if (null? _rest117810_) - (gxc#compile-e__1 _stx117801_ _arg1117808_) - (let ((_arg2117813_ (car _rest117810_)) - (_rest117815_ (cdr _rest117810_))) - (if (null? _rest117815_) + (if (null? _args117800_) + (gxc#compile-e__0 _stx117798_) + (let ((_arg1117805_ (car _args117800_)) + (_rest117807_ (cdr _args117800_))) + (if (null? _rest117807_) + (gxc#compile-e__1 _stx117798_ _arg1117805_) + (let ((_arg2117810_ (car _rest117807_)) + (_rest117812_ (cdr _rest117807_))) + (if (null? _rest117812_) (gxc#compile-e__2 - _stx117801_ - _arg1117808_ - _arg2117813_) + _stx117798_ + _arg1117805_ + _arg2117810_) (apply gxc#compile-e - _stx117801_ - _arg1117808_ - _arg2117813_ - _rest117815_)))))))) - (__tmp118158 (force gxc#&expression-subst*))) + _stx117798_ + _arg1117805_ + _arg2117810_ + _rest117812_)))))))) + (__tmp118155 (force gxc#&expression-subst*))) (declare (not safe)) (call-with-parameters - __tmp118159 + __tmp118156 gxc#current-compile-methods - __tmp118158)))) + __tmp118155)))) (define gxc#&find-expression (make-promise (lambda () - (let ((_tbl117798_ + (let ((_tbl117795_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118160 (force gxc#&false-expression))) + (let ((__tmp118157 (force gxc#&false-expression))) (declare (not safe)) - (hash-merge! _tbl117798_ __tmp118160)) + (hash-merge! _tbl117795_ __tmp118157)) (let () (declare (not safe)) - (hash-put! _tbl117798_ '%#begin gxc#find-body%)) + (hash-put! _tbl117795_ '%#begin gxc#find-body%)) (let () (declare (not safe)) (hash-put! - _tbl117798_ + _tbl117795_ '%#begin-annotation gxc#find-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl117798_ '%#lambda gxc#find-lambda%)) + (hash-put! _tbl117795_ '%#lambda gxc#find-lambda%)) (let () (declare (not safe)) - (hash-put! _tbl117798_ '%#case-lambda gxc#find-case-lambda%)) + (hash-put! _tbl117795_ '%#case-lambda gxc#find-case-lambda%)) (let () (declare (not safe)) - (hash-put! _tbl117798_ '%#let-values gxc#find-let-values%)) + (hash-put! _tbl117795_ '%#let-values gxc#find-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117798_ '%#letrec-values gxc#find-let-values%)) + (hash-put! _tbl117795_ '%#letrec-values gxc#find-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117798_ '%#letrec*-values gxc#find-let-values%)) + (hash-put! _tbl117795_ '%#letrec*-values gxc#find-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117798_ '%#call gxc#find-body%)) + (hash-put! _tbl117795_ '%#call gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117798_ '%#call-unchecked gxc#find-body%)) + (hash-put! _tbl117795_ '%#call-unchecked gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117798_ '%#if gxc#find-body%)) + (hash-put! _tbl117795_ '%#if gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117798_ '%#set! gxc#find-setq%)) + (hash-put! _tbl117795_ '%#set! gxc#find-setq%)) (let () (declare (not safe)) - (hash-put! _tbl117798_ '%#struct-instance? gxc#find-body%)) + (hash-put! _tbl117795_ '%#struct-instance? gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117798_ '%#struct-direct-instance? gxc#find-body%)) + (hash-put! _tbl117795_ '%#struct-direct-instance? gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117798_ '%#struct-ref gxc#find-body%)) + (hash-put! _tbl117795_ '%#struct-ref gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117798_ '%#struct-set! gxc#find-body%)) + (hash-put! _tbl117795_ '%#struct-set! gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117798_ '%#struct-direct-ref gxc#find-body%)) + (hash-put! _tbl117795_ '%#struct-direct-ref gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117798_ '%#struct-direct-set! gxc#find-body%)) + (hash-put! _tbl117795_ '%#struct-direct-set! gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117798_ '%#struct-unchecked-ref gxc#find-body%)) + (hash-put! _tbl117795_ '%#struct-unchecked-ref gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117798_ '%#struct-unchecked-set! gxc#find-body%)) - _tbl117798_)))) + (hash-put! _tbl117795_ '%#struct-unchecked-set! gxc#find-body%)) + _tbl117795_)))) (define gxc#&find-var-refs (make-promise (lambda () - (let ((_tbl117794_ + (let ((_tbl117791_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118161 (force gxc#&find-expression))) + (let ((__tmp118158 (force gxc#&find-expression))) (declare (not safe)) - (hash-merge! _tbl117794_ __tmp118161)) + (hash-merge! _tbl117791_ __tmp118158)) (let () (declare (not safe)) - (hash-put! _tbl117794_ '%#ref gxc#find-var-refs-ref%)) + (hash-put! _tbl117791_ '%#ref gxc#find-var-refs-ref%)) (let () (declare (not safe)) - (hash-put! _tbl117794_ '%#set! gxc#find-var-refs-setq%)) - _tbl117794_)))) + (hash-put! _tbl117791_ '%#set! gxc#find-var-refs-setq%)) + _tbl117791_)))) (define gxc#apply-find-var-refs - (lambda (_stx117777_ . _args117779_) - (let ((__tmp118163 + (lambda (_stx117774_ . _args117776_) + (let ((__tmp118160 (lambda () (declare (not safe)) - (if (null? _args117779_) - (gxc#compile-e__0 _stx117777_) - (let ((_arg1117784_ (car _args117779_)) - (_rest117786_ (cdr _args117779_))) - (if (null? _rest117786_) - (gxc#compile-e__1 _stx117777_ _arg1117784_) - (let ((_arg2117789_ (car _rest117786_)) - (_rest117791_ (cdr _rest117786_))) - (if (null? _rest117791_) + (if (null? _args117776_) + (gxc#compile-e__0 _stx117774_) + (let ((_arg1117781_ (car _args117776_)) + (_rest117783_ (cdr _args117776_))) + (if (null? _rest117783_) + (gxc#compile-e__1 _stx117774_ _arg1117781_) + (let ((_arg2117786_ (car _rest117783_)) + (_rest117788_ (cdr _rest117783_))) + (if (null? _rest117788_) (gxc#compile-e__2 - _stx117777_ - _arg1117784_ - _arg2117789_) + _stx117774_ + _arg1117781_ + _arg2117786_) (apply gxc#compile-e - _stx117777_ - _arg1117784_ - _arg2117789_ - _rest117791_)))))))) - (__tmp118162 (force gxc#&find-var-refs))) + _stx117774_ + _arg1117781_ + _arg2117786_ + _rest117788_)))))))) + (__tmp118159 (force gxc#&find-var-refs))) (declare (not safe)) (call-with-parameters - __tmp118163 + __tmp118160 gxc#current-compile-methods - __tmp118162)))) + __tmp118159)))) (define gxc#&collect-runtime-refs (make-promise (lambda () - (let ((_tbl117774_ + (let ((_tbl117771_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118164 (force gxc#&collect-expression-refs))) + (let ((__tmp118161 (force gxc#&collect-expression-refs))) (declare (not safe)) - (hash-merge! _tbl117774_ __tmp118164)) + (hash-merge! _tbl117771_ __tmp118161)) (let () (declare (not safe)) - (hash-put! _tbl117774_ '%#ref gxc#collect-runtime-refs-ref%)) + (hash-put! _tbl117771_ '%#ref gxc#collect-runtime-refs-ref%)) (let () (declare (not safe)) - (hash-put! _tbl117774_ '%#set! gxc#collect-runtime-refs-setq%)) - _tbl117774_)))) + (hash-put! _tbl117771_ '%#set! gxc#collect-runtime-refs-setq%)) + _tbl117771_)))) (define gxc#apply-collect-runtime-refs - (lambda (_stx117757_ . _args117759_) - (let ((__tmp118166 + (lambda (_stx117754_ . _args117756_) + (let ((__tmp118163 (lambda () (declare (not safe)) - (if (null? _args117759_) - (gxc#compile-e__0 _stx117757_) - (let ((_arg1117764_ (car _args117759_)) - (_rest117766_ (cdr _args117759_))) - (if (null? _rest117766_) - (gxc#compile-e__1 _stx117757_ _arg1117764_) - (let ((_arg2117769_ (car _rest117766_)) - (_rest117771_ (cdr _rest117766_))) - (if (null? _rest117771_) + (if (null? _args117756_) + (gxc#compile-e__0 _stx117754_) + (let ((_arg1117761_ (car _args117756_)) + (_rest117763_ (cdr _args117756_))) + (if (null? _rest117763_) + (gxc#compile-e__1 _stx117754_ _arg1117761_) + (let ((_arg2117766_ (car _rest117763_)) + (_rest117768_ (cdr _rest117763_))) + (if (null? _rest117768_) (gxc#compile-e__2 - _stx117757_ - _arg1117764_ - _arg2117769_) + _stx117754_ + _arg1117761_ + _arg2117766_) (apply gxc#compile-e - _stx117757_ - _arg1117764_ - _arg2117769_ - _rest117771_)))))))) - (__tmp118165 (force gxc#&collect-runtime-refs))) + _stx117754_ + _arg1117761_ + _arg2117766_ + _rest117768_)))))))) + (__tmp118162 (force gxc#&collect-runtime-refs))) (declare (not safe)) (call-with-parameters - __tmp118166 + __tmp118163 gxc#current-compile-methods - __tmp118165)))) + __tmp118162)))) (define gxc#xform-identity - (lambda (_stx117754_ . _args117755_) _stx117754_)) + (lambda (_stx117751_ . _args117752_) _stx117751_)) (define gxc#xform-wrap-source - (lambda (_stx117751_ _src-stx117752_) - (let ((__tmp118167 - (let () (declare (not safe)) (gx#stx-source _src-stx117752_)))) + (lambda (_stx117748_ _src-stx117749_) + (let ((__tmp118164 + (let () (declare (not safe)) (gx#stx-source _src-stx117749_)))) (declare (not safe)) - (gx#stx-wrap-source _stx117751_ __tmp118167)))) + (gx#stx-wrap-source _stx117748_ __tmp118164)))) (define gxc#xform-apply-compile-e - (lambda (_args117738_) - (lambda (_stx117740_) - (if (let () (declare (not safe)) (null? _args117738_)) - (let () (declare (not safe)) (gxc#compile-e__0 _stx117740_)) - (let ((_arg1117742_ (car _args117738_)) - (_rest117744_ (cdr _args117738_))) - (if (let () (declare (not safe)) (null? _rest117744_)) + (lambda (_args117735_) + (lambda (_stx117737_) + (if (let () (declare (not safe)) (null? _args117735_)) + (let () (declare (not safe)) (gxc#compile-e__0 _stx117737_)) + (let ((_arg1117739_ (car _args117735_)) + (_rest117741_ (cdr _args117735_))) + (if (let () (declare (not safe)) (null? _rest117741_)) (let () (declare (not safe)) - (gxc#compile-e__1 _stx117740_ _arg1117742_)) - (let ((_arg2117747_ (car _rest117744_)) - (_rest117749_ (cdr _rest117744_))) - (if (let () (declare (not safe)) (null? _rest117749_)) + (gxc#compile-e__1 _stx117737_ _arg1117739_)) + (let ((_arg2117744_ (car _rest117741_)) + (_rest117746_ (cdr _rest117741_))) + (if (let () (declare (not safe)) (null? _rest117746_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx117740_ - _arg1117742_ - _arg2117747_)) + _stx117737_ + _arg1117739_ + _arg2117744_)) (apply gxc#compile-e - _stx117740_ - _arg1117742_ - _arg2117747_ - _rest117749_))))))))) + _stx117737_ + _arg1117739_ + _arg2117744_ + _rest117746_))))))))) (define gxc#xform-begin% - (lambda (_stx117697_ . _args117698_) - (let* ((_g117700117710_ - (lambda (_g117701117707_) + (lambda (_stx117694_ . _args117695_) + (let* ((_g117697117707_ + (lambda (_g117698117704_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117701117707_)))) - (_g117699117735_ - (lambda (_g117701117713_) + _g117698117704_)))) + (_g117696117732_ + (lambda (_g117698117710_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117701117713_)) - (let ((_e117705117715_ + (gx#stx-pair? _g117698117710_)) + (let ((_e117702117712_ (let () (declare (not safe)) - (gx#stx-e _g117701117713_)))) - (let ((_hd117704117718_ + (gx#stx-e _g117698117710_)))) + (let ((_hd117701117715_ (let () (declare (not safe)) - (##car _e117705117715_))) - (_tl117703117720_ + (##car _e117702117712_))) + (_tl117700117717_ (let () (declare (not safe)) - (##cdr _e117705117715_)))) - ((lambda (_L117723_) - (let* ((_forms117733_ + (##cdr _e117702117712_)))) + ((lambda (_L117720_) + (let* ((_forms117730_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args117698_)) - _L117723_)) - (__tmp118168 + _args117695_)) + _L117720_)) + (__tmp118165 (let () (declare (not safe)) - (cons '%#begin _forms117733_)))) + (cons '%#begin _forms117730_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118168 - _stx117697_))) - _tl117703117720_))) + __tmp118165 + _stx117694_))) + _tl117700117717_))) (let () (declare (not safe)) - (_g117700117710_ _g117701117713_)))))) + (_g117697117707_ _g117698117710_)))))) (declare (not safe)) - (_g117699117735_ _stx117697_)))) + (_g117696117732_ _stx117694_)))) (define gxc#xform-begin-syntax% - (lambda (_stx117655_ . _args117656_) - (let* ((_g117658117668_ - (lambda (_g117659117665_) + (lambda (_stx117652_ . _args117653_) + (let* ((_g117655117665_ + (lambda (_g117656117662_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117659117665_)))) - (_g117657117694_ - (lambda (_g117659117671_) + _g117656117662_)))) + (_g117654117691_ + (lambda (_g117656117668_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117659117671_)) - (let ((_e117663117673_ + (gx#stx-pair? _g117656117668_)) + (let ((_e117660117670_ (let () (declare (not safe)) - (gx#stx-e _g117659117671_)))) - (let ((_hd117662117676_ + (gx#stx-e _g117656117668_)))) + (let ((_hd117659117673_ (let () (declare (not safe)) - (##car _e117663117673_))) - (_tl117661117678_ + (##car _e117660117670_))) + (_tl117658117675_ (let () (declare (not safe)) - (##cdr _e117663117673_)))) - ((lambda (_L117681_) - (let ((__tmp118171 + (##cdr _e117660117670_)))) + ((lambda (_L117678_) + (let ((__tmp118168 (lambda () - (let* ((_forms117692_ + (let* ((_forms117689_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args117656_)) - _L117681_)) - (__tmp118172 + _args117653_)) + _L117678_)) + (__tmp118169 (let () (declare (not safe)) (cons '%#begin-syntax - _forms117692_)))) + _forms117689_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118172 - _stx117655_)))) - (__tmp118169 - (let ((__tmp118170 + __tmp118169 + _stx117652_)))) + (__tmp118166 + (let ((__tmp118167 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp118170 '1)))) + (fx+ __tmp118167 '1)))) (declare (not safe)) (call-with-parameters - __tmp118171 + __tmp118168 gx#current-expander-phi - __tmp118169))) - _tl117661117678_))) + __tmp118166))) + _tl117658117675_))) (let () (declare (not safe)) - (_g117658117668_ _g117659117671_)))))) + (_g117655117665_ _g117656117668_)))))) (declare (not safe)) - (_g117657117694_ _stx117655_)))) + (_g117654117691_ _stx117652_)))) (define gxc#xform-module% - (lambda (_stx117583_ . _args117584_) - (let* ((_g117586117600_ - (lambda (_g117587117597_) + (lambda (_stx117580_ . _args117581_) + (let* ((_g117583117597_ + (lambda (_g117584117594_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117587117597_)))) - (_g117585117652_ - (lambda (_g117587117603_) + _g117584117594_)))) + (_g117582117649_ + (lambda (_g117584117600_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117587117603_)) - (let ((_e117592117605_ + (gx#stx-pair? _g117584117600_)) + (let ((_e117589117602_ (let () (declare (not safe)) - (gx#stx-e _g117587117603_)))) - (let ((_hd117591117608_ + (gx#stx-e _g117584117600_)))) + (let ((_hd117588117605_ (let () (declare (not safe)) - (##car _e117592117605_))) - (_tl117590117610_ + (##car _e117589117602_))) + (_tl117587117607_ (let () (declare (not safe)) - (##cdr _e117592117605_)))) + (##cdr _e117589117602_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117590117610_)) - (let ((_e117595117613_ + (gx#stx-pair? _tl117587117607_)) + (let ((_e117592117610_ (let () (declare (not safe)) - (gx#stx-e _tl117590117610_)))) - (let ((_hd117594117616_ + (gx#stx-e _tl117587117607_)))) + (let ((_hd117591117613_ (let () (declare (not safe)) - (##car _e117595117613_))) - (_tl117593117618_ + (##car _e117592117610_))) + (_tl117590117615_ (let () (declare (not safe)) - (##cdr _e117595117613_)))) - ((lambda (_L117621_ _L117622_) - (let* ((_ctx117635_ + (##cdr _e117592117610_)))) + ((lambda (_L117618_ _L117619_) + (let* ((_ctx117632_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L117622_))) - (_code117637_ + _L117619_))) + (_code117634_ (##structure-ref - _ctx117635_ + _ctx117632_ '11 gx#module-context::t '#f)) - (_code117649_ - (let ((__tmp118173 + (_code117646_ + (let ((__tmp118170 (lambda () (if (let () (declare (not safe)) - (null? _args117584_)) + (null? _args117581_)) (let () (declare (not safe)) (gxc#compile-e__0 - _code117637_)) - (let ((_arg1117640_ + _code117634_)) + (let ((_arg1117637_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _args117584_)) - (_rest117642_ (cdr _args117584_))) - (if (let () (declare (not safe)) (null? _rest117642_)) + (car _args117581_)) + (_rest117639_ (cdr _args117581_))) + (if (let () (declare (not safe)) (null? _rest117639_)) (let () (declare (not safe)) - (gxc#compile-e__1 _code117637_ _arg1117640_)) - (let ((_arg2117645_ (car _rest117642_)) - (_rest117647_ (cdr _rest117642_))) + (gxc#compile-e__1 _code117634_ _arg1117637_)) + (let ((_arg2117642_ (car _rest117639_)) + (_rest117644_ (cdr _rest117639_))) (if (let () (declare (not safe)) - (null? _rest117647_)) + (null? _rest117644_)) (let () (declare (not safe)) (gxc#compile-e__2 - _code117637_ - _arg1117640_ - _arg2117645_)) + _code117634_ + _arg1117637_ + _arg2117642_)) (apply gxc#compile-e - _code117637_ - _arg1117640_ - _arg2117645_ - _rest117647_))))))))) + _code117634_ + _arg1117637_ + _arg2117642_ + _rest117644_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp118173 + __tmp118170 gx#current-expander-context - _ctx117635_)))) + _ctx117632_)))) (##structure-set! - _ctx117635_ - _code117649_ + _ctx117632_ + _code117646_ '11 gx#module-context::t '#f) - (let ((__tmp118174 - (let ((__tmp118175 - (let ((__tmp118176 + (let ((__tmp118171 + (let ((__tmp118172 + (let ((__tmp118173 (let () (declare (not safe)) - (cons _code117649_ + (cons _code117646_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L117622_ __tmp118176)))) + (cons _L117619_ __tmp118173)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#module __tmp118175)))) + (cons '%#module __tmp118172)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118174 - _stx117583_)))) - _tl117593117618_ - _hd117594117616_))) + __tmp118171 + _stx117580_)))) + _tl117590117615_ + _hd117591117613_))) (let () (declare (not safe)) - (_g117586117600_ _g117587117603_))))) + (_g117583117597_ _g117584117600_))))) (let () (declare (not safe)) - (_g117586117600_ _g117587117603_)))))) + (_g117583117597_ _g117584117600_)))))) (declare (not safe)) - (_g117585117652_ _stx117583_)))) + (_g117582117649_ _stx117580_)))) (define gxc#xform-define-values% - (lambda (_stx117504_ . _args117505_) - (let* ((_g117507117524_ - (lambda (_g117508117521_) + (lambda (_stx117501_ . _args117502_) + (let* ((_g117504117521_ + (lambda (_g117505117518_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117508117521_)))) - (_g117506117580_ - (lambda (_g117508117527_) + _g117505117518_)))) + (_g117503117577_ + (lambda (_g117505117524_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117508117527_)) - (let ((_e117513117529_ + (gx#stx-pair? _g117505117524_)) + (let ((_e117510117526_ (let () (declare (not safe)) - (gx#stx-e _g117508117527_)))) - (let ((_hd117512117532_ + (gx#stx-e _g117505117524_)))) + (let ((_hd117509117529_ (let () (declare (not safe)) - (##car _e117513117529_))) - (_tl117511117534_ + (##car _e117510117526_))) + (_tl117508117531_ (let () (declare (not safe)) - (##cdr _e117513117529_)))) + (##cdr _e117510117526_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117511117534_)) - (let ((_e117516117537_ + (gx#stx-pair? _tl117508117531_)) + (let ((_e117513117534_ (let () (declare (not safe)) - (gx#stx-e _tl117511117534_)))) - (let ((_hd117515117540_ + (gx#stx-e _tl117508117531_)))) + (let ((_hd117512117537_ (let () (declare (not safe)) - (##car _e117516117537_))) - (_tl117514117542_ + (##car _e117513117534_))) + (_tl117511117539_ (let () (declare (not safe)) - (##cdr _e117516117537_)))) + (##cdr _e117513117534_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117514117542_)) - (let ((_e117519117545_ + (gx#stx-pair? _tl117511117539_)) + (let ((_e117516117542_ (let () (declare (not safe)) - (gx#stx-e _tl117514117542_)))) - (let ((_hd117518117548_ + (gx#stx-e _tl117511117539_)))) + (let ((_hd117515117545_ (let () (declare (not safe)) - (##car _e117519117545_))) - (_tl117517117550_ + (##car _e117516117542_))) + (_tl117514117547_ (let () (declare (not safe)) - (##cdr _e117519117545_)))) + (##cdr _e117516117542_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl117517117550_)) - ((lambda (_L117553_ _L117554_) - (let* ((_expr117578_ + _tl117514117547_)) + ((lambda (_L117550_ _L117551_) + (let* ((_expr117575_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args117505_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L117553_)) - (let ((_arg1117569_ (car _args117505_)) - (_rest117571_ (cdr _args117505_))) - (if (let () (declare (not safe)) (null? _rest117571_)) + (null? _args117502_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L117550_)) + (let ((_arg1117566_ (car _args117502_)) + (_rest117568_ (cdr _args117502_))) + (if (let () (declare (not safe)) (null? _rest117568_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L117553_ _arg1117569_)) - (let ((_arg2117574_ (car _rest117571_)) - (_rest117576_ (cdr _rest117571_))) + (gxc#compile-e__1 _L117550_ _arg1117566_)) + (let ((_arg2117571_ (car _rest117568_)) + (_rest117573_ (cdr _rest117568_))) (if (let () (declare (not safe)) - (null? _rest117576_)) + (null? _rest117573_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L117553_ - _arg1117569_ - _arg2117574_)) + _L117550_ + _arg1117566_ + _arg2117571_)) (apply gxc#compile-e - _L117553_ - _arg1117569_ - _arg2117574_ - _rest117576_))))))) - (__tmp118177 - (let ((__tmp118178 - (let ((__tmp118179 + _L117550_ + _arg1117566_ + _arg2117571_ + _rest117573_))))))) + (__tmp118174 + (let ((__tmp118175 + (let ((__tmp118176 (let () (declare (not safe)) - (cons _expr117578_ '())))) + (cons _expr117575_ '())))) (declare (not safe)) - (cons _L117554_ __tmp118179)))) + (cons _L117551_ __tmp118176)))) (declare (not safe)) - (cons '%#define-values __tmp118178)))) + (cons '%#define-values __tmp118175)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118177 - _stx117504_))) - _hd117518117548_ - _hd117515117540_) + __tmp118174 + _stx117501_))) + _hd117515117545_ + _hd117512117537_) (let () (declare (not safe)) - (_g117507117524_ - _g117508117527_))))) + (_g117504117521_ + _g117505117524_))))) (let () (declare (not safe)) - (_g117507117524_ _g117508117527_))))) + (_g117504117521_ _g117505117524_))))) (let () (declare (not safe)) - (_g117507117524_ _g117508117527_))))) + (_g117504117521_ _g117505117524_))))) (let () (declare (not safe)) - (_g117507117524_ _g117508117527_)))))) + (_g117504117521_ _g117505117524_)))))) (declare (not safe)) - (_g117506117580_ _stx117504_)))) + (_g117503117577_ _stx117501_)))) (define gxc#xform-define-syntax% - (lambda (_stx117424_ . _args117425_) - (let* ((_g117427117444_ - (lambda (_g117428117441_) + (lambda (_stx117421_ . _args117422_) + (let* ((_g117424117441_ + (lambda (_g117425117438_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117428117441_)))) - (_g117426117501_ - (lambda (_g117428117447_) + _g117425117438_)))) + (_g117423117498_ + (lambda (_g117425117444_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117428117447_)) - (let ((_e117433117449_ + (gx#stx-pair? _g117425117444_)) + (let ((_e117430117446_ (let () (declare (not safe)) - (gx#stx-e _g117428117447_)))) - (let ((_hd117432117452_ + (gx#stx-e _g117425117444_)))) + (let ((_hd117429117449_ (let () (declare (not safe)) - (##car _e117433117449_))) - (_tl117431117454_ + (##car _e117430117446_))) + (_tl117428117451_ (let () (declare (not safe)) - (##cdr _e117433117449_)))) + (##cdr _e117430117446_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117431117454_)) - (let ((_e117436117457_ + (gx#stx-pair? _tl117428117451_)) + (let ((_e117433117454_ (let () (declare (not safe)) - (gx#stx-e _tl117431117454_)))) - (let ((_hd117435117460_ + (gx#stx-e _tl117428117451_)))) + (let ((_hd117432117457_ (let () (declare (not safe)) - (##car _e117436117457_))) - (_tl117434117462_ + (##car _e117433117454_))) + (_tl117431117459_ (let () (declare (not safe)) - (##cdr _e117436117457_)))) + (##cdr _e117433117454_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117434117462_)) - (let ((_e117439117465_ + (gx#stx-pair? _tl117431117459_)) + (let ((_e117436117462_ (let () (declare (not safe)) - (gx#stx-e _tl117434117462_)))) - (let ((_hd117438117468_ + (gx#stx-e _tl117431117459_)))) + (let ((_hd117435117465_ (let () (declare (not safe)) - (##car _e117439117465_))) - (_tl117437117470_ + (##car _e117436117462_))) + (_tl117434117467_ (let () (declare (not safe)) - (##cdr _e117439117465_)))) + (##cdr _e117436117462_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl117437117470_)) - ((lambda (_L117473_ _L117474_) - (let ((__tmp118182 + _tl117434117467_)) + ((lambda (_L117470_ _L117471_) + (let ((__tmp118179 (lambda () - (let* ((_expr117499_ + (let* ((_expr117496_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) - (null? _args117425_)) + (null? _args117422_)) (let () (declare (not safe)) - (gxc#compile-e__0 _L117473_)) - (let ((_arg1117490_ (car _args117425_)) - (_rest117492_ (cdr _args117425_))) + (gxc#compile-e__0 _L117470_)) + (let ((_arg1117487_ (car _args117422_)) + (_rest117489_ (cdr _args117422_))) (if (let () (declare (not safe)) - (null? _rest117492_)) + (null? _rest117489_)) (let () (declare (not safe)) (gxc#compile-e__1 - _L117473_ - _arg1117490_)) - (let ((_arg2117495_ (car _rest117492_)) - (_rest117497_ (cdr _rest117492_))) + _L117470_ + _arg1117487_)) + (let ((_arg2117492_ (car _rest117489_)) + (_rest117494_ (cdr _rest117489_))) (if (let () (declare (not safe)) - (null? _rest117497_)) + (null? _rest117494_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L117473_ - _arg1117490_ - _arg2117495_)) + _L117470_ + _arg1117487_ + _arg2117492_)) (apply gxc#compile-e - _L117473_ - _arg1117490_ - _arg2117495_ - _rest117497_))))))) - (__tmp118183 - (let ((__tmp118184 - (let ((__tmp118185 + _L117470_ + _arg1117487_ + _arg2117492_ + _rest117494_))))))) + (__tmp118180 + (let ((__tmp118181 + (let ((__tmp118182 (let () (declare (not safe)) - (cons _expr117499_ '())))) + (cons _expr117496_ '())))) (declare (not safe)) - (cons _L117474_ __tmp118185)))) + (cons _L117471_ __tmp118182)))) (declare (not safe)) - (cons '%#define-syntax __tmp118184)))) + (cons '%#define-syntax __tmp118181)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp118183 _stx117424_)))) - (__tmp118180 - (let ((__tmp118181 (gx#current-expander-phi))) + (gxc#xform-wrap-source __tmp118180 _stx117421_)))) + (__tmp118177 + (let ((__tmp118178 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp118181 '1)))) + (fx+ __tmp118178 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp118182 + __tmp118179 gx#current-expander-phi - __tmp118180))) - _hd117438117468_ - _hd117435117460_) + __tmp118177))) + _hd117435117465_ + _hd117432117457_) (let () (declare (not safe)) - (_g117427117444_ - _g117428117447_))))) + (_g117424117441_ + _g117425117444_))))) (let () (declare (not safe)) - (_g117427117444_ _g117428117447_))))) + (_g117424117441_ _g117425117444_))))) (let () (declare (not safe)) - (_g117427117444_ _g117428117447_))))) + (_g117424117441_ _g117425117444_))))) (let () (declare (not safe)) - (_g117427117444_ _g117428117447_)))))) + (_g117424117441_ _g117425117444_)))))) (declare (not safe)) - (_g117426117501_ _stx117424_)))) + (_g117423117498_ _stx117421_)))) (define gxc#xform-begin-annotation% - (lambda (_stx117345_ . _args117346_) - (let* ((_g117348117365_ - (lambda (_g117349117362_) + (lambda (_stx117342_ . _args117343_) + (let* ((_g117345117362_ + (lambda (_g117346117359_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117349117362_)))) - (_g117347117421_ - (lambda (_g117349117368_) + _g117346117359_)))) + (_g117344117418_ + (lambda (_g117346117365_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117349117368_)) - (let ((_e117354117370_ + (gx#stx-pair? _g117346117365_)) + (let ((_e117351117367_ (let () (declare (not safe)) - (gx#stx-e _g117349117368_)))) - (let ((_hd117353117373_ + (gx#stx-e _g117346117365_)))) + (let ((_hd117350117370_ (let () (declare (not safe)) - (##car _e117354117370_))) - (_tl117352117375_ + (##car _e117351117367_))) + (_tl117349117372_ (let () (declare (not safe)) - (##cdr _e117354117370_)))) + (##cdr _e117351117367_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117352117375_)) - (let ((_e117357117378_ + (gx#stx-pair? _tl117349117372_)) + (let ((_e117354117375_ (let () (declare (not safe)) - (gx#stx-e _tl117352117375_)))) - (let ((_hd117356117381_ + (gx#stx-e _tl117349117372_)))) + (let ((_hd117353117378_ (let () (declare (not safe)) - (##car _e117357117378_))) - (_tl117355117383_ + (##car _e117354117375_))) + (_tl117352117380_ (let () (declare (not safe)) - (##cdr _e117357117378_)))) + (##cdr _e117354117375_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117355117383_)) - (let ((_e117360117386_ + (gx#stx-pair? _tl117352117380_)) + (let ((_e117357117383_ (let () (declare (not safe)) - (gx#stx-e _tl117355117383_)))) - (let ((_hd117359117389_ + (gx#stx-e _tl117352117380_)))) + (let ((_hd117356117386_ (let () (declare (not safe)) - (##car _e117360117386_))) - (_tl117358117391_ + (##car _e117357117383_))) + (_tl117355117388_ (let () (declare (not safe)) - (##cdr _e117360117386_)))) + (##cdr _e117357117383_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl117358117391_)) - ((lambda (_L117394_ _L117395_) - (let* ((_expr117419_ + _tl117355117388_)) + ((lambda (_L117391_ _L117392_) + (let* ((_expr117416_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args117346_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L117394_)) - (let ((_arg1117410_ (car _args117346_)) - (_rest117412_ (cdr _args117346_))) - (if (let () (declare (not safe)) (null? _rest117412_)) + (null? _args117343_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L117391_)) + (let ((_arg1117407_ (car _args117343_)) + (_rest117409_ (cdr _args117343_))) + (if (let () (declare (not safe)) (null? _rest117409_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L117394_ _arg1117410_)) - (let ((_arg2117415_ (car _rest117412_)) - (_rest117417_ (cdr _rest117412_))) + (gxc#compile-e__1 _L117391_ _arg1117407_)) + (let ((_arg2117412_ (car _rest117409_)) + (_rest117414_ (cdr _rest117409_))) (if (let () (declare (not safe)) - (null? _rest117417_)) + (null? _rest117414_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L117394_ - _arg1117410_ - _arg2117415_)) + _L117391_ + _arg1117407_ + _arg2117412_)) (apply gxc#compile-e - _L117394_ - _arg1117410_ - _arg2117415_ - _rest117417_))))))) - (__tmp118186 - (let ((__tmp118187 - (let ((__tmp118188 + _L117391_ + _arg1117407_ + _arg2117412_ + _rest117414_))))))) + (__tmp118183 + (let ((__tmp118184 + (let ((__tmp118185 (let () (declare (not safe)) - (cons _expr117419_ '())))) + (cons _expr117416_ '())))) (declare (not safe)) - (cons _L117395_ __tmp118188)))) + (cons _L117392_ __tmp118185)))) (declare (not safe)) - (cons '%#begin-annotation __tmp118187)))) + (cons '%#begin-annotation __tmp118184)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118186 - _stx117345_))) - _hd117359117389_ - _hd117356117381_) + __tmp118183 + _stx117342_))) + _hd117356117386_ + _hd117353117378_) (let () (declare (not safe)) - (_g117348117365_ - _g117349117368_))))) + (_g117345117362_ + _g117346117365_))))) (let () (declare (not safe)) - (_g117348117365_ _g117349117368_))))) + (_g117345117362_ _g117346117365_))))) (let () (declare (not safe)) - (_g117348117365_ _g117349117368_))))) + (_g117345117362_ _g117346117365_))))) (let () (declare (not safe)) - (_g117348117365_ _g117349117368_)))))) + (_g117345117362_ _g117346117365_)))))) (declare (not safe)) - (_g117347117421_ _stx117345_)))) + (_g117344117418_ _stx117342_)))) (define gxc#xform-lambda% - (lambda (_stx117288_ . _args117289_) - (let* ((_g117291117305_ - (lambda (_g117292117302_) + (lambda (_stx117285_ . _args117286_) + (let* ((_g117288117302_ + (lambda (_g117289117299_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117292117302_)))) - (_g117290117342_ - (lambda (_g117292117308_) + _g117289117299_)))) + (_g117287117339_ + (lambda (_g117289117305_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117292117308_)) - (let ((_e117297117310_ + (gx#stx-pair? _g117289117305_)) + (let ((_e117294117307_ (let () (declare (not safe)) - (gx#stx-e _g117292117308_)))) - (let ((_hd117296117313_ + (gx#stx-e _g117289117305_)))) + (let ((_hd117293117310_ (let () (declare (not safe)) - (##car _e117297117310_))) - (_tl117295117315_ + (##car _e117294117307_))) + (_tl117292117312_ (let () (declare (not safe)) - (##cdr _e117297117310_)))) + (##cdr _e117294117307_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117295117315_)) - (let ((_e117300117318_ + (gx#stx-pair? _tl117292117312_)) + (let ((_e117297117315_ (let () (declare (not safe)) - (gx#stx-e _tl117295117315_)))) - (let ((_hd117299117321_ + (gx#stx-e _tl117292117312_)))) + (let ((_hd117296117318_ (let () (declare (not safe)) - (##car _e117300117318_))) - (_tl117298117323_ + (##car _e117297117315_))) + (_tl117295117320_ (let () (declare (not safe)) - (##cdr _e117300117318_)))) - ((lambda (_L117326_ _L117327_) - (let* ((_body117340_ + (##cdr _e117297117315_)))) + ((lambda (_L117323_ _L117324_) + (let* ((_body117337_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args117289_)) - _L117326_)) - (__tmp118189 - (let ((__tmp118190 + _args117286_)) + _L117323_)) + (__tmp118186 + (let ((__tmp118187 (let () (declare (not safe)) - (cons _L117327_ - _body117340_)))) + (cons _L117324_ + _body117337_)))) (declare (not safe)) - (cons '%#lambda __tmp118190)))) + (cons '%#lambda __tmp118187)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118189 - _stx117288_))) - _tl117298117323_ - _hd117299117321_))) + __tmp118186 + _stx117285_))) + _tl117295117320_ + _hd117296117318_))) (let () (declare (not safe)) - (_g117291117305_ _g117292117308_))))) + (_g117288117302_ _g117289117305_))))) (let () (declare (not safe)) - (_g117291117305_ _g117292117308_)))))) + (_g117288117302_ _g117289117305_)))))) (declare (not safe)) - (_g117290117342_ _stx117288_)))) + (_g117287117339_ _stx117285_)))) (define gxc#xform-case-lambda% - (lambda (_stx117201_ . _args117202_) - (letrec ((_clause-e117204_ - (lambda (_clause117245_) - (let* ((_g117247117258_ - (lambda (_g117248117255_) + (lambda (_stx117198_ . _args117199_) + (letrec ((_clause-e117201_ + (lambda (_clause117242_) + (let* ((_g117244117255_ + (lambda (_g117245117252_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117248117255_)))) - (_g117246117285_ - (lambda (_g117248117261_) + _g117245117252_)))) + (_g117243117282_ + (lambda (_g117245117258_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117248117261_)) - (let ((_e117253117263_ + (gx#stx-pair? _g117245117258_)) + (let ((_e117250117260_ (let () (declare (not safe)) - (gx#stx-e _g117248117261_)))) - (let ((_hd117252117266_ + (gx#stx-e _g117245117258_)))) + (let ((_hd117249117263_ (let () (declare (not safe)) - (##car _e117253117263_))) - (_tl117251117268_ + (##car _e117250117260_))) + (_tl117248117265_ (let () (declare (not safe)) - (##cdr _e117253117263_)))) - ((lambda (_L117271_ _L117272_) - (let ((_body117283_ + (##cdr _e117250117260_)))) + ((lambda (_L117268_ _L117269_) + (let ((_body117280_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args117202_)) - _L117271_))) + _args117199_)) + _L117268_))) (declare (not safe)) - (cons _L117272_ _body117283_))) - _tl117251117268_ - _hd117252117266_))) + (cons _L117269_ _body117280_))) + _tl117248117265_ + _hd117249117263_))) (let () (declare (not safe)) - (_g117247117258_ _g117248117261_)))))) + (_g117244117255_ _g117245117258_)))))) (declare (not safe)) - (_g117246117285_ _clause117245_))))) - (let* ((_g117206117216_ - (lambda (_g117207117213_) + (_g117243117282_ _clause117242_))))) + (let* ((_g117203117213_ + (lambda (_g117204117210_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117207117213_)))) - (_g117205117242_ - (lambda (_g117207117219_) + _g117204117210_)))) + (_g117202117239_ + (lambda (_g117204117216_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117207117219_)) - (let ((_e117211117221_ + (gx#stx-pair? _g117204117216_)) + (let ((_e117208117218_ (let () (declare (not safe)) - (gx#stx-e _g117207117219_)))) - (let ((_hd117210117224_ + (gx#stx-e _g117204117216_)))) + (let ((_hd117207117221_ (let () (declare (not safe)) - (##car _e117211117221_))) - (_tl117209117226_ + (##car _e117208117218_))) + (_tl117206117223_ (let () (declare (not safe)) - (##cdr _e117211117221_)))) - ((lambda (_L117229_) - (let* ((_clauses117240_ - (map _clause-e117204_ _L117229_)) - (__tmp118191 + (##cdr _e117208117218_)))) + ((lambda (_L117226_) + (let* ((_clauses117237_ + (map _clause-e117201_ _L117226_)) + (__tmp118188 (let () (declare (not safe)) (cons '%#case-lambda - _clauses117240_)))) + _clauses117237_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118191 - _stx117201_))) - _tl117209117226_))) + __tmp118188 + _stx117198_))) + _tl117206117223_))) (let () (declare (not safe)) - (_g117206117216_ _g117207117219_)))))) + (_g117203117213_ _g117204117216_)))))) (declare (not safe)) - (_g117205117242_ _stx117201_))))) + (_g117202117239_ _stx117198_))))) (define gxc#xform-let-values% - (lambda (_stx116995_ . _args116996_) - (let* ((_g116998117031_ - (lambda (_g116999117028_) + (lambda (_stx116992_ . _args116993_) + (let* ((_g116995117028_ + (lambda (_g116996117025_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116999117028_)))) - (_g116997117198_ - (lambda (_g116999117034_) + _g116996117025_)))) + (_g116994117195_ + (lambda (_g116996117031_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116999117034_)) - (let ((_e117006117036_ + (gx#stx-pair? _g116996117031_)) + (let ((_e117003117033_ (let () (declare (not safe)) - (gx#stx-e _g116999117034_)))) - (let ((_hd117005117039_ + (gx#stx-e _g116996117031_)))) + (let ((_hd117002117036_ (let () (declare (not safe)) - (##car _e117006117036_))) - (_tl117004117041_ + (##car _e117003117033_))) + (_tl117001117038_ (let () (declare (not safe)) - (##cdr _e117006117036_)))) + (##cdr _e117003117033_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117004117041_)) - (let ((_e117009117044_ + (gx#stx-pair? _tl117001117038_)) + (let ((_e117006117041_ (let () (declare (not safe)) - (gx#stx-e _tl117004117041_)))) - (let ((_hd117008117047_ + (gx#stx-e _tl117001117038_)))) + (let ((_hd117005117044_ (let () (declare (not safe)) - (##car _e117009117044_))) - (_tl117007117049_ + (##car _e117006117041_))) + (_tl117004117046_ (let () (declare (not safe)) - (##cdr _e117009117044_)))) + (##cdr _e117006117041_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd117008117047_)) - (let ((_g118192_ + (gx#stx-pair/null? _hd117005117044_)) + (let ((_g118189_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd117008117047_ + _hd117005117044_ '0)))) (begin - (let ((_g118193_ + (let ((_g118190_ (let () (declare (not safe)) - (if (##values? _g118192_) + (if (##values? _g118189_) (##vector-length - _g118192_) + _g118189_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g118193_ 2))) + (##fx= _g118190_ 2))) (error "Context expects 2 values" - _g118193_))) - (let ((_target117010117052_ + _g118190_))) + (let ((_target117007117049_ (let () (declare (not safe)) - (##vector-ref _g118192_ 0))) - (_tl117012117054_ + (##vector-ref _g118189_ 0))) + (_tl117009117051_ (let () (declare (not safe)) (##vector-ref - _g118192_ + _g118189_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl117012117054_)) - (letrec ((_loop117013117057_ - (lambda (_hd117011117060_ + _tl117009117051_)) + (letrec ((_loop117010117054_ + (lambda (_hd117008117057_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr117017117062_ - _hd117018117064_) + _expr117014117059_ + _hd117015117061_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd117011117060_)) - (let ((_e117014117067_ + (gx#stx-pair? _hd117008117057_)) + (let ((_e117011117064_ (let () (declare (not safe)) - (gx#stx-e _hd117011117060_)))) - (let ((_lp-hd117015117070_ + (gx#stx-e _hd117008117057_)))) + (let ((_lp-hd117012117067_ (let () (declare (not safe)) - (##car _e117014117067_))) - (_lp-tl117016117072_ + (##car _e117011117064_))) + (_lp-tl117013117069_ (let () (declare (not safe)) - (##cdr _e117014117067_)))) + (##cdr _e117011117064_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd117015117070_)) - (let ((_e117023117075_ + (gx#stx-pair? _lp-hd117012117067_)) + (let ((_e117020117072_ (let () (declare (not safe)) - (gx#stx-e _lp-hd117015117070_)))) - (let ((_hd117022117078_ + (gx#stx-e _lp-hd117012117067_)))) + (let ((_hd117019117075_ (let () (declare (not safe)) - (##car _e117023117075_))) - (_tl117021117080_ + (##car _e117020117072_))) + (_tl117018117077_ (let () (declare (not safe)) - (##cdr _e117023117075_)))) + (##cdr _e117020117072_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117021117080_)) - (let ((_e117026117083_ + (gx#stx-pair? _tl117018117077_)) + (let ((_e117023117080_ (let () (declare (not safe)) - (gx#stx-e _tl117021117080_)))) - (let ((_hd117025117086_ + (gx#stx-e _tl117018117077_)))) + (let ((_hd117022117083_ (let () (declare (not safe)) - (##car _e117026117083_))) - (_tl117024117088_ + (##car _e117023117080_))) + (_tl117021117085_ (let () (declare (not safe)) - (##cdr _e117026117083_)))) + (##cdr _e117023117080_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl117024117088_)) - (let ((__tmp118206 + _tl117021117085_)) + (let ((__tmp118203 (let () (declare (not safe)) - (cons _hd117025117086_ - _expr117017117062_))) - (__tmp118205 + (cons _hd117022117083_ + _expr117014117059_))) + (__tmp118202 (let () (declare (not safe)) - (cons _hd117022117078_ - _hd117018117064_)))) + (cons _hd117019117075_ + _hd117015117061_)))) (declare (not safe)) - (_loop117013117057_ - _lp-tl117016117072_ - __tmp118206 - __tmp118205)) + (_loop117010117054_ + _lp-tl117013117069_ + __tmp118203 + __tmp118202)) (let () (declare (not safe)) - (_g116998117031_ - _g116999117034_))))) + (_g116995117028_ + _g116996117031_))))) (let () (declare (not safe)) - (_g116998117031_ _g116999117034_))))) + (_g116995117028_ _g116996117031_))))) (let () (declare (not safe)) - (_g116998117031_ _g116999117034_))))) - (let ((_expr117019117091_ (reverse _expr117017117062_)) - (_hd117020117093_ (reverse _hd117018117064_))) - ((lambda (_L117096_ _L117097_ _L117098_ _L117099_) - (let* ((_g117118117134_ - (lambda (_g117119117131_) + (_g116995117028_ _g116996117031_))))) + (let ((_expr117016117088_ (reverse _expr117014117059_)) + (_hd117017117090_ (reverse _hd117015117061_))) + ((lambda (_L117093_ _L117094_ _L117095_ _L117096_) + (let* ((_g117115117131_ + (lambda (_g117116117128_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117119117131_)))) - (_g117117117188_ - (lambda (_g117119117137_) + _g117116117128_)))) + (_g117114117185_ + (lambda (_g117116117134_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _g117119117137_)) - (let ((_g118194_ + _g117116117134_)) + (let ((_g118191_ (let () (declare (not safe)) (gx#syntax-split-splice - _g117119117137_ + _g117116117134_ '0)))) (begin - (let ((_g118195_ + (let ((_g118192_ (let () (declare (not safe)) (if (##values? - _g118194_) + _g118191_) (##vector-length - _g118194_) + _g118191_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g118195_ + (##fx= _g118192_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g118195_))) - (let ((_target117121117139_ + _g118192_))) + (let ((_target117118117136_ (let () (declare (not safe)) (##vector-ref - _g118194_ + _g118191_ 0))) - (_tl117123117141_ + (_tl117120117138_ (let () (declare (not safe)) (##vector-ref - _g118194_ + _g118191_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl117123117141_)) - (letrec ((_loop117124117144_ - (lambda (_hd117122117147_ + _tl117120117138_)) + (letrec ((_loop117121117141_ + (lambda (_hd117119117144_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr117128117149_) + _expr117125117146_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd117122117147_)) - (let ((_e117125117152_ + (gx#stx-pair? _hd117119117144_)) + (let ((_e117122117149_ (let () (declare (not safe)) - (gx#syntax-e _hd117122117147_)))) - (let ((_lp-hd117126117155_ + (gx#syntax-e _hd117119117144_)))) + (let ((_lp-hd117123117152_ (let () (declare (not safe)) - (##car _e117125117152_))) - (_lp-tl117127117157_ + (##car _e117122117149_))) + (_lp-tl117124117154_ (let () (declare (not safe)) - (##cdr _e117125117152_)))) - (let ((__tmp118202 + (##cdr _e117122117149_)))) + (let ((__tmp118199 (let () (declare (not safe)) - (cons _lp-hd117126117155_ - _expr117128117149_)))) + (cons _lp-hd117123117152_ + _expr117125117146_)))) (declare (not safe)) - (_loop117124117144_ - _lp-tl117127117157_ - __tmp118202)))) - (let ((_expr117129117160_ - (reverse _expr117128117149_))) - ((lambda (_L117163_) + (_loop117121117141_ + _lp-tl117124117154_ + __tmp118199)))) + (let ((_expr117126117157_ + (reverse _expr117125117146_))) + ((lambda (_L117160_) (let () - (let* ((_body117176_ + (let* ((_body117173_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args116996_)) - _L117096_)) - (__tmp118196 - (let ((__tmp118197 - (let ((__tmp118198 + _args116993_)) + _L117093_)) + (__tmp118193 + (let ((__tmp118194 + (let ((__tmp118195 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L117163_ - _L117098_)) - (let ((__tmp118199 + _L117160_ + _L117095_)) + (let ((__tmp118196 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g117177117181_ - _g117178117183_ - _g117179117185_) - (let ((__tmp118200 - (let ((__tmp118201 + (lambda (_g117174117178_ + _g117175117180_ + _g117176117182_) + (let ((__tmp118197 + (let ((__tmp118198 (let () (declare (not safe)) - (cons _g117177117181_ '())))) + (cons _g117174117178_ '())))) (declare (not safe)) - (cons _g117178117183_ __tmp118201)))) + (cons _g117175117180_ __tmp118198)))) (declare (not safe)) - (cons __tmp118200 _g117179117185_))))) + (cons __tmp118197 _g117176117182_))))) (declare (not safe)) - (foldr2 __tmp118199 '() _L117163_ _L117098_))))) + (foldr2 __tmp118196 '() _L117160_ _L117095_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp118198 - _body117176_)))) + (cons __tmp118195 + _body117173_)))) (declare (not safe)) - (cons _L117099_ __tmp118197)))) + (cons _L117096_ __tmp118194)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118196 - _stx116995_)))) - _expr117129117160_)))))) + __tmp118193 + _stx116992_)))) + _expr117126117157_)))))) (let () (declare (not safe)) - (_loop117124117144_ _target117121117139_ '()))) + (_loop117121117141_ _target117118117136_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g117118117134_ - _g117119117137_)))))) + (_g117115117131_ + _g117116117134_)))))) (let () (declare (not safe)) - (_g117118117134_ - _g117119117137_))))) - (__tmp118203 + (_g117115117131_ + _g117116117134_))))) + (__tmp118200 (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args116996_)) - (let ((__tmp118204 - (lambda (_g117190117193_ - _g117191117195_) + _args116993_)) + (let ((__tmp118201 + (lambda (_g117187117190_ + _g117188117192_) (let () (declare (not safe)) - (cons _g117190117193_ - _g117191117195_))))) + (cons _g117187117190_ + _g117188117192_))))) (declare (not safe)) - (foldr1 __tmp118204 + (foldr1 __tmp118201 '() - _L117097_))))) + _L117094_))))) (declare (not safe)) - (_g117117117188_ __tmp118203))) - _tl117007117049_ - _expr117019117091_ - _hd117020117093_ - _hd117005117039_)))))) + (_g117114117185_ __tmp118200))) + _tl117004117046_ + _expr117016117088_ + _hd117017117090_ + _hd117002117036_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop117013117057_ - _target117010117052_ + (_loop117010117054_ + _target117007117049_ '() '()))) (let () (declare (not safe)) - (_g116998117031_ - _g116999117034_)))))) + (_g116995117028_ + _g116996117031_)))))) (let () (declare (not safe)) - (_g116998117031_ _g116999117034_))))) + (_g116995117028_ _g116996117031_))))) (let () (declare (not safe)) - (_g116998117031_ _g116999117034_))))) + (_g116995117028_ _g116996117031_))))) (let () (declare (not safe)) - (_g116998117031_ _g116999117034_)))))) + (_g116995117028_ _g116996117031_)))))) (declare (not safe)) - (_g116997117198_ _stx116995_)))) + (_g116994117195_ _stx116992_)))) (define gxc#xform-operands - (lambda (_stx116951_ . _args116952_) - (let* ((_g116954116965_ - (lambda (_g116955116962_) + (lambda (_stx116948_ . _args116949_) + (let* ((_g116951116962_ + (lambda (_g116952116959_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116955116962_)))) - (_g116953116992_ - (lambda (_g116955116968_) + _g116952116959_)))) + (_g116950116989_ + (lambda (_g116952116965_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116955116968_)) - (let ((_e116960116970_ + (gx#stx-pair? _g116952116965_)) + (let ((_e116957116967_ (let () (declare (not safe)) - (gx#stx-e _g116955116968_)))) - (let ((_hd116959116973_ + (gx#stx-e _g116952116965_)))) + (let ((_hd116956116970_ (let () (declare (not safe)) - (##car _e116960116970_))) - (_tl116958116975_ + (##car _e116957116967_))) + (_tl116955116972_ (let () (declare (not safe)) - (##cdr _e116960116970_)))) - ((lambda (_L116978_ _L116979_) - (let* ((_rands116990_ + (##cdr _e116957116967_)))) + ((lambda (_L116975_ _L116976_) + (let* ((_rands116987_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args116952_)) - _L116978_)) - (__tmp118207 + _args116949_)) + _L116975_)) + (__tmp118204 (let () (declare (not safe)) - (cons _L116979_ _rands116990_)))) + (cons _L116976_ _rands116987_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118207 - _stx116951_))) - _tl116958116975_ - _hd116959116973_))) + __tmp118204 + _stx116948_))) + _tl116955116972_ + _hd116956116970_))) (let () (declare (not safe)) - (_g116954116965_ _g116955116968_)))))) + (_g116951116962_ _g116952116965_)))))) (declare (not safe)) - (_g116953116992_ _stx116951_)))) + (_g116950116989_ _stx116948_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_stx116872_ . _args116873_) - (let* ((_g116875116892_ - (lambda (_g116876116889_) + (lambda (_stx116869_ . _args116870_) + (let* ((_g116872116889_ + (lambda (_g116873116886_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116876116889_)))) - (_g116874116948_ - (lambda (_g116876116895_) + _g116873116886_)))) + (_g116871116945_ + (lambda (_g116873116892_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116876116895_)) - (let ((_e116881116897_ + (gx#stx-pair? _g116873116892_)) + (let ((_e116878116894_ (let () (declare (not safe)) - (gx#stx-e _g116876116895_)))) - (let ((_hd116880116900_ + (gx#stx-e _g116873116892_)))) + (let ((_hd116877116897_ (let () (declare (not safe)) - (##car _e116881116897_))) - (_tl116879116902_ + (##car _e116878116894_))) + (_tl116876116899_ (let () (declare (not safe)) - (##cdr _e116881116897_)))) + (##cdr _e116878116894_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116879116902_)) - (let ((_e116884116905_ + (gx#stx-pair? _tl116876116899_)) + (let ((_e116881116902_ (let () (declare (not safe)) - (gx#stx-e _tl116879116902_)))) - (let ((_hd116883116908_ + (gx#stx-e _tl116876116899_)))) + (let ((_hd116880116905_ (let () (declare (not safe)) - (##car _e116884116905_))) - (_tl116882116910_ + (##car _e116881116902_))) + (_tl116879116907_ (let () (declare (not safe)) - (##cdr _e116884116905_)))) + (##cdr _e116881116902_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116882116910_)) - (let ((_e116887116913_ + (gx#stx-pair? _tl116879116907_)) + (let ((_e116884116910_ (let () (declare (not safe)) - (gx#stx-e _tl116882116910_)))) - (let ((_hd116886116916_ + (gx#stx-e _tl116879116907_)))) + (let ((_hd116883116913_ (let () (declare (not safe)) - (##car _e116887116913_))) - (_tl116885116918_ + (##car _e116884116910_))) + (_tl116882116915_ (let () (declare (not safe)) - (##cdr _e116887116913_)))) + (##cdr _e116884116910_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116885116918_)) - ((lambda (_L116921_ _L116922_) - (let* ((_expr116946_ + _tl116882116915_)) + ((lambda (_L116918_ _L116919_) + (let* ((_expr116943_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args116873_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L116921_)) - (let ((_arg1116937_ (car _args116873_)) - (_rest116939_ (cdr _args116873_))) - (if (let () (declare (not safe)) (null? _rest116939_)) + (null? _args116870_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L116918_)) + (let ((_arg1116934_ (car _args116870_)) + (_rest116936_ (cdr _args116870_))) + (if (let () (declare (not safe)) (null? _rest116936_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L116921_ _arg1116937_)) - (let ((_arg2116942_ (car _rest116939_)) - (_rest116944_ (cdr _rest116939_))) + (gxc#compile-e__1 _L116918_ _arg1116934_)) + (let ((_arg2116939_ (car _rest116936_)) + (_rest116941_ (cdr _rest116936_))) (if (let () (declare (not safe)) - (null? _rest116944_)) + (null? _rest116941_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L116921_ - _arg1116937_ - _arg2116942_)) + _L116918_ + _arg1116934_ + _arg2116939_)) (apply gxc#compile-e - _L116921_ - _arg1116937_ - _arg2116942_ - _rest116944_))))))) - (__tmp118208 - (let ((__tmp118209 - (let ((__tmp118210 + _L116918_ + _arg1116934_ + _arg2116939_ + _rest116941_))))))) + (__tmp118205 + (let ((__tmp118206 + (let ((__tmp118207 (let () (declare (not safe)) - (cons _expr116946_ '())))) + (cons _expr116943_ '())))) (declare (not safe)) - (cons _L116922_ __tmp118210)))) + (cons _L116919_ __tmp118207)))) (declare (not safe)) - (cons '%#set! __tmp118209)))) + (cons '%#set! __tmp118206)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118208 - _stx116872_))) - _hd116886116916_ - _hd116883116908_) + __tmp118205 + _stx116869_))) + _hd116883116913_ + _hd116880116905_) (let () (declare (not safe)) - (_g116875116892_ - _g116876116895_))))) + (_g116872116889_ + _g116873116892_))))) (let () (declare (not safe)) - (_g116875116892_ _g116876116895_))))) + (_g116872116889_ _g116873116892_))))) (let () (declare (not safe)) - (_g116875116892_ _g116876116895_))))) + (_g116872116889_ _g116873116892_))))) (let () (declare (not safe)) - (_g116875116892_ _g116876116895_)))))) + (_g116872116889_ _g116873116892_)))))) (declare (not safe)) - (_g116874116948_ _stx116872_)))) + (_g116871116945_ _stx116869_)))) (define gxc#collect-mutators-setq% - (lambda (_stx116803_) - (let* ((_g116805116822_ - (lambda (_g116806116819_) + (lambda (_stx116800_) + (let* ((_g116802116819_ + (lambda (_g116803116816_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116806116819_)))) - (_g116804116869_ - (lambda (_g116806116825_) + _g116803116816_)))) + (_g116801116866_ + (lambda (_g116803116822_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116806116825_)) - (let ((_e116811116827_ + (gx#stx-pair? _g116803116822_)) + (let ((_e116808116824_ (let () (declare (not safe)) - (gx#stx-e _g116806116825_)))) - (let ((_hd116810116830_ + (gx#stx-e _g116803116822_)))) + (let ((_hd116807116827_ (let () (declare (not safe)) - (##car _e116811116827_))) - (_tl116809116832_ + (##car _e116808116824_))) + (_tl116806116829_ (let () (declare (not safe)) - (##cdr _e116811116827_)))) + (##cdr _e116808116824_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116809116832_)) - (let ((_e116814116835_ + (gx#stx-pair? _tl116806116829_)) + (let ((_e116811116832_ (let () (declare (not safe)) - (gx#stx-e _tl116809116832_)))) - (let ((_hd116813116838_ + (gx#stx-e _tl116806116829_)))) + (let ((_hd116810116835_ (let () (declare (not safe)) - (##car _e116814116835_))) - (_tl116812116840_ + (##car _e116811116832_))) + (_tl116809116837_ (let () (declare (not safe)) - (##cdr _e116814116835_)))) + (##cdr _e116811116832_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116812116840_)) - (let ((_e116817116843_ + (gx#stx-pair? _tl116809116837_)) + (let ((_e116814116840_ (let () (declare (not safe)) - (gx#stx-e _tl116812116840_)))) - (let ((_hd116816116846_ + (gx#stx-e _tl116809116837_)))) + (let ((_hd116813116843_ (let () (declare (not safe)) - (##car _e116817116843_))) - (_tl116815116848_ + (##car _e116814116840_))) + (_tl116812116845_ (let () (declare (not safe)) - (##cdr _e116817116843_)))) + (##cdr _e116814116840_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116815116848_)) - ((lambda (_L116851_ _L116852_) - (let ((_sym116867_ + _tl116812116845_)) + ((lambda (_L116848_ _L116849_) + (let ((_sym116864_ (let () (declare (not safe)) (gxc#identifier-symbol - _L116852_)))) + _L116849_)))) (let () (declare (not safe)) (gxc#verbose '"collect mutator " - _sym116867_)) - (let ((__tmp118211 + _sym116864_)) + (let ((__tmp118208 (gxc#current-compile-mutators))) (declare (not safe)) (hash-put! - __tmp118211 - _sym116867_ + __tmp118208 + _sym116864_ '#t)) (let () (declare (not safe)) (gxc#compile-e__0 - _L116851_)))) - _hd116816116846_ - _hd116813116838_) + _L116848_)))) + _hd116813116843_ + _hd116810116835_) (let () (declare (not safe)) - (_g116805116822_ - _g116806116825_))))) + (_g116802116819_ + _g116803116822_))))) (let () (declare (not safe)) - (_g116805116822_ _g116806116825_))))) + (_g116802116819_ _g116803116822_))))) (let () (declare (not safe)) - (_g116805116822_ _g116806116825_))))) + (_g116802116819_ _g116803116822_))))) (let () (declare (not safe)) - (_g116805116822_ _g116806116825_)))))) + (_g116802116819_ _g116803116822_)))))) (declare (not safe)) - (_g116804116869_ _stx116803_)))) + (_g116801116866_ _stx116800_)))) (define gxc#collect-methods-call% - (lambda (_stx116357_) - (let* ((___stx117901117902_ _stx116357_) - (_g116361116463_ + (lambda (_stx116354_) + (let* ((___stx117898117899_ _stx116354_) + (_g116358116460_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx117901117902_))))) - (let ((___kont117903117904_ - (lambda (_L116753_ _L116754_ _L116755_ _L116756_ _L116757_) - (let ((__tmp118212 + ___stx117898117899_))))) + (let ((___kont117900117901_ + (lambda (_L116750_ _L116751_ _L116752_ _L116753_ _L116754_) + (let ((__tmp118209 (let () (declare (not safe)) - (gxc#identifier-symbol _L116754_)))) + (gxc#identifier-symbol _L116751_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp118212)))) - (___kont117905117906_ - (lambda (_L116579_ _L116580_ _L116581_ _L116582_) - (let ((__tmp118213 + (gxc#optimizer-top-level-method! __tmp118209)))) + (___kont117902117903_ + (lambda (_L116576_ _L116577_ _L116578_ _L116579_) + (let ((__tmp118210 (let () (declare (not safe)) - (gxc#identifier-symbol _L116579_)))) + (gxc#identifier-symbol _L116576_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp118213)))) - (___kont117907117908_ (lambda () '#!void))) - (let ((___match118036118037_ - (lambda (_e116370116625_ - _hd116369116628_ - _tl116368116630_ - _e116373116633_ - _hd116372116636_ - _tl116371116638_ - _e116376116641_ - _hd116375116644_ - _tl116374116646_ - _e116379116649_ - _hd116378116652_ - _tl116377116654_ - _e116382116657_ - _hd116381116660_ - _tl116380116662_ - _e116385116665_ - _hd116384116668_ - _tl116383116670_ - _e116388116673_ - _hd116387116676_ - _tl116386116678_ - _e116391116681_ - _hd116390116684_ - _tl116389116686_ - _e116394116689_ - _hd116393116692_ - _tl116392116694_ - _e116397116697_ - _hd116396116700_ - _tl116395116702_ - _e116400116705_ - _hd116399116708_ - _tl116398116710_ - _e116403116713_ - _hd116402116716_ - _tl116401116718_ - _e116406116721_ - _hd116405116724_ - _tl116404116726_ - _e116409116729_ - _hd116408116732_ - _tl116407116734_ - _e116412116737_ - _hd116411116740_ - _tl116410116742_ - _e116415116745_ - _hd116414116748_ - _tl116413116750_) - (let ((_L116753_ _hd116414116748_) - (_L116754_ _hd116405116724_) - (_L116755_ _hd116396116700_) - (_L116756_ _hd116387116676_) - (_L116757_ _hd116378116652_)) + (gxc#optimizer-top-level-method! __tmp118210)))) + (___kont117904117905_ (lambda () '#!void))) + (let ((___match118033118034_ + (lambda (_e116367116622_ + _hd116366116625_ + _tl116365116627_ + _e116370116630_ + _hd116369116633_ + _tl116368116635_ + _e116373116638_ + _hd116372116641_ + _tl116371116643_ + _e116376116646_ + _hd116375116649_ + _tl116374116651_ + _e116379116654_ + _hd116378116657_ + _tl116377116659_ + _e116382116662_ + _hd116381116665_ + _tl116380116667_ + _e116385116670_ + _hd116384116673_ + _tl116383116675_ + _e116388116678_ + _hd116387116681_ + _tl116386116683_ + _e116391116686_ + _hd116390116689_ + _tl116389116691_ + _e116394116694_ + _hd116393116697_ + _tl116392116699_ + _e116397116702_ + _hd116396116705_ + _tl116395116707_ + _e116400116710_ + _hd116399116713_ + _tl116398116715_ + _e116403116718_ + _hd116402116721_ + _tl116401116723_ + _e116406116726_ + _hd116405116729_ + _tl116404116731_ + _e116409116734_ + _hd116408116737_ + _tl116407116739_ + _e116412116742_ + _hd116411116745_ + _tl116410116747_) + (let ((_L116750_ _hd116411116745_) + (_L116751_ _hd116402116721_) + (_L116752_ _hd116393116697_) + (_L116753_ _hd116384116673_) + (_L116754_ _hd116375116649_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L116757_ + _L116754_ 'bind-method!)) - (___kont117903117904_ + (___kont117900117901_ + _L116750_ + _L116751_ + _L116752_ _L116753_ - _L116754_ - _L116755_ - _L116756_ - _L116757_) - (___kont117907117908_)))))) + _L116754_) + (___kont117904117905_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx117901117902_)) - (let ((_e116370116625_ + (gx#stx-pair? ___stx117898117899_)) + (let ((_e116367116622_ (let () (declare (not safe)) - (gx#stx-e ___stx117901117902_)))) - (let ((_tl116368116630_ + (gx#stx-e ___stx117898117899_)))) + (let ((_tl116365116627_ (let () (declare (not safe)) - (##cdr _e116370116625_))) - (_hd116369116628_ + (##cdr _e116367116622_))) + (_hd116366116625_ (let () (declare (not safe)) - (##car _e116370116625_)))) + (##car _e116367116622_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116368116630_)) - (let ((_e116373116633_ + (gx#stx-pair? _tl116365116627_)) + (let ((_e116370116630_ (let () (declare (not safe)) - (gx#stx-e _tl116368116630_)))) - (let ((_tl116371116638_ + (gx#stx-e _tl116365116627_)))) + (let ((_tl116368116635_ (let () (declare (not safe)) - (##cdr _e116373116633_))) - (_hd116372116636_ + (##cdr _e116370116630_))) + (_hd116369116633_ (let () (declare (not safe)) - (##car _e116373116633_)))) + (##car _e116370116630_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd116372116636_)) - (let ((_e116376116641_ + (gx#stx-pair? _hd116369116633_)) + (let ((_e116373116638_ (let () (declare (not safe)) - (gx#stx-e _hd116372116636_)))) - (let ((_tl116374116646_ + (gx#stx-e _hd116369116633_)))) + (let ((_tl116371116643_ (let () (declare (not safe)) - (##cdr _e116376116641_))) - (_hd116375116644_ + (##cdr _e116373116638_))) + (_hd116372116641_ (let () (declare (not safe)) - (##car _e116376116641_)))) + (##car _e116373116638_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd116375116644_)) + (gx#identifier? _hd116372116641_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd116375116644_)) + _hd116372116641_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl116374116646_)) - (let ((_e116379116649_ + _tl116371116643_)) + (let ((_e116376116646_ (let () (declare (not safe)) (gx#stx-e - _tl116374116646_)))) - (let ((_tl116377116654_ + _tl116371116643_)))) + (let ((_tl116374116651_ (let () (declare (not safe)) - (##cdr _e116379116649_))) - (_hd116378116652_ + (##cdr _e116376116646_))) + (_hd116375116649_ (let () (declare (not safe)) - (##car _e116379116649_)))) + (##car _e116376116646_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116377116654_)) + _tl116374116651_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl116371116638_)) - (let ((_e116382116657_ + (gx#stx-pair? _tl116368116635_)) + (let ((_e116379116654_ (let () (declare (not safe)) - (gx#stx-e _tl116371116638_)))) - (let ((_tl116380116662_ + (gx#stx-e _tl116368116635_)))) + (let ((_tl116377116659_ (let () (declare (not safe)) - (##cdr _e116382116657_))) - (_hd116381116660_ + (##cdr _e116379116654_))) + (_hd116378116657_ (let () (declare (not safe)) - (##car _e116382116657_)))) + (##car _e116379116654_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd116381116660_)) - (let ((_e116385116665_ + (gx#stx-pair? _hd116378116657_)) + (let ((_e116382116662_ (let () (declare (not safe)) - (gx#stx-e _hd116381116660_)))) - (let ((_tl116383116670_ + (gx#stx-e _hd116378116657_)))) + (let ((_tl116380116667_ (let () (declare (not safe)) - (##cdr _e116385116665_))) - (_hd116384116668_ + (##cdr _e116382116662_))) + (_hd116381116665_ (let () (declare (not safe)) - (##car _e116385116665_)))) + (##car _e116382116662_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd116384116668_)) + (gx#identifier? _hd116381116665_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd116384116668_)) + _hd116381116665_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl116383116670_)) - (let ((_e116388116673_ + _tl116380116667_)) + (let ((_e116385116670_ (let () (declare (not safe)) (gx#stx-e - _tl116383116670_)))) - (let ((_tl116386116678_ + _tl116380116667_)))) + (let ((_tl116383116675_ (let () (declare (not safe)) - (##cdr _e116388116673_))) - (_hd116387116676_ + (##cdr _e116385116670_))) + (_hd116384116673_ (let () (declare (not safe)) - (##car _e116388116673_)))) + (##car _e116385116670_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116386116678_)) + _tl116383116675_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl116380116662_)) - (let ((_e116391116681_ + _tl116377116659_)) + (let ((_e116388116678_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl116380116662_)))) - (let ((_tl116389116686_ + (gx#stx-e _tl116377116659_)))) + (let ((_tl116386116683_ (let () (declare (not safe)) - (##cdr _e116391116681_))) - (_hd116390116684_ + (##cdr _e116388116678_))) + (_hd116387116681_ (let () (declare (not safe)) - (##car _e116391116681_)))) + (##car _e116388116678_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd116390116684_)) - (let ((_e116394116689_ + (gx#stx-pair? _hd116387116681_)) + (let ((_e116391116686_ (let () (declare (not safe)) - (gx#stx-e _hd116390116684_)))) - (let ((_tl116392116694_ + (gx#stx-e _hd116387116681_)))) + (let ((_tl116389116691_ (let () (declare (not safe)) - (##cdr _e116394116689_))) - (_hd116393116692_ + (##cdr _e116391116686_))) + (_hd116390116689_ (let () (declare (not safe)) - (##car _e116394116689_)))) + (##car _e116391116686_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd116393116692_)) + (gx#identifier? _hd116390116689_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd116393116692_)) + (gx#stx-eq? '%#quote _hd116390116689_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116392116694_)) - (let ((_e116397116697_ + (gx#stx-pair? _tl116389116691_)) + (let ((_e116394116694_ (let () (declare (not safe)) (gx#stx-e - _tl116392116694_)))) - (let ((_tl116395116702_ + _tl116389116691_)))) + (let ((_tl116392116699_ (let () (declare (not safe)) - (##cdr _e116397116697_))) - (_hd116396116700_ + (##cdr _e116394116694_))) + (_hd116393116697_ (let () (declare (not safe)) - (##car _e116397116697_)))) + (##car _e116394116694_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116395116702_)) + _tl116392116699_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl116389116686_)) - (let ((_e116400116705_ + _tl116386116683_)) + (let ((_e116397116702_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl116389116686_)))) - (let ((_tl116398116710_ - (let () (declare (not safe)) (##cdr _e116400116705_))) - (_hd116399116708_ - (let () (declare (not safe)) (##car _e116400116705_)))) + (gx#stx-e _tl116386116683_)))) + (let ((_tl116395116707_ + (let () (declare (not safe)) (##cdr _e116397116702_))) + (_hd116396116705_ + (let () (declare (not safe)) (##car _e116397116702_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd116399116708_)) - (let ((_e116403116713_ + (gx#stx-pair? _hd116396116705_)) + (let ((_e116400116710_ (let () (declare (not safe)) - (gx#stx-e _hd116399116708_)))) - (let ((_tl116401116718_ + (gx#stx-e _hd116396116705_)))) + (let ((_tl116398116715_ (let () (declare (not safe)) - (##cdr _e116403116713_))) - (_hd116402116716_ + (##cdr _e116400116710_))) + (_hd116399116713_ (let () (declare (not safe)) - (##car _e116403116713_)))) + (##car _e116400116710_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd116402116716_)) + (gx#identifier? _hd116399116713_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd116402116716_)) + (gx#stx-eq? '%#ref _hd116399116713_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116401116718_)) - (let ((_e116406116721_ + (gx#stx-pair? _tl116398116715_)) + (let ((_e116403116718_ (let () (declare (not safe)) - (gx#stx-e _tl116401116718_)))) - (let ((_tl116404116726_ + (gx#stx-e _tl116398116715_)))) + (let ((_tl116401116723_ (let () (declare (not safe)) - (##cdr _e116406116721_))) - (_hd116405116724_ + (##cdr _e116403116718_))) + (_hd116402116721_ (let () (declare (not safe)) - (##car _e116406116721_)))) + (##car _e116403116718_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116404116726_)) + _tl116401116723_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl116398116710_)) - (let ((_e116409116729_ + _tl116395116707_)) + (let ((_e116406116726_ (let () (declare (not safe)) (gx#stx-e - _tl116398116710_)))) - (let ((_tl116407116734_ + _tl116395116707_)))) + (let ((_tl116404116731_ (let () (declare (not safe)) - (##cdr _e116409116729_))) - (_hd116408116732_ + (##cdr _e116406116726_))) + (_hd116405116729_ (let () (declare (not safe)) - (##car _e116409116729_)))) + (##car _e116406116726_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd116408116732_)) - (let ((_e116412116737_ + _hd116405116729_)) + (let ((_e116409116734_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd116408116732_)))) - (let ((_tl116410116742_ + (gx#stx-e _hd116405116729_)))) + (let ((_tl116407116739_ (let () (declare (not safe)) - (##cdr _e116412116737_))) - (_hd116411116740_ + (##cdr _e116409116734_))) + (_hd116408116737_ (let () (declare (not safe)) - (##car _e116412116737_)))) + (##car _e116409116734_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd116411116740_)) + (gx#identifier? _hd116408116737_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd116411116740_)) + (gx#stx-eq? '%#quote _hd116408116737_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116410116742_)) - (let ((_e116415116745_ + (gx#stx-pair? _tl116407116739_)) + (let ((_e116412116742_ (let () (declare (not safe)) - (gx#stx-e _tl116410116742_)))) - (let ((_tl116413116750_ + (gx#stx-e _tl116407116739_)))) + (let ((_tl116410116747_ (let () (declare (not safe)) - (##cdr _e116415116745_))) - (_hd116414116748_ + (##cdr _e116412116742_))) + (_hd116411116745_ (let () (declare (not safe)) - (##car _e116415116745_)))) + (##car _e116412116742_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl116413116750_)) + (gx#stx-null? _tl116410116747_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl116407116734_)) - (___match118036118037_ - _e116370116625_ - _hd116369116628_ - _tl116368116630_ - _e116373116633_ - _hd116372116636_ - _tl116371116638_ - _e116376116641_ - _hd116375116644_ - _tl116374116646_ - _e116379116649_ - _hd116378116652_ - _tl116377116654_ - _e116382116657_ - _hd116381116660_ - _tl116380116662_ - _e116385116665_ - _hd116384116668_ - _tl116383116670_ - _e116388116673_ - _hd116387116676_ - _tl116386116678_ - _e116391116681_ - _hd116390116684_ - _tl116389116686_ - _e116394116689_ - _hd116393116692_ - _tl116392116694_ - _e116397116697_ - _hd116396116700_ - _tl116395116702_ - _e116400116705_ - _hd116399116708_ - _tl116398116710_ - _e116403116713_ - _hd116402116716_ - _tl116401116718_ - _e116406116721_ - _hd116405116724_ - _tl116404116726_ - _e116409116729_ - _hd116408116732_ - _tl116407116734_ - _e116412116737_ - _hd116411116740_ - _tl116410116742_ - _e116415116745_ - _hd116414116748_ - _tl116413116750_) - (___kont117907117908_)) - (___kont117907117908_)))) - (___kont117907117908_)) - (___kont117907117908_)) - (___kont117907117908_)))) - (___kont117907117908_)))) + _tl116404116731_)) + (___match118033118034_ + _e116367116622_ + _hd116366116625_ + _tl116365116627_ + _e116370116630_ + _hd116369116633_ + _tl116368116635_ + _e116373116638_ + _hd116372116641_ + _tl116371116643_ + _e116376116646_ + _hd116375116649_ + _tl116374116651_ + _e116379116654_ + _hd116378116657_ + _tl116377116659_ + _e116382116662_ + _hd116381116665_ + _tl116380116667_ + _e116385116670_ + _hd116384116673_ + _tl116383116675_ + _e116388116678_ + _hd116387116681_ + _tl116386116683_ + _e116391116686_ + _hd116390116689_ + _tl116389116691_ + _e116394116694_ + _hd116393116697_ + _tl116392116699_ + _e116397116702_ + _hd116396116705_ + _tl116395116707_ + _e116400116710_ + _hd116399116713_ + _tl116398116715_ + _e116403116718_ + _hd116402116721_ + _tl116401116723_ + _e116406116726_ + _hd116405116729_ + _tl116404116731_ + _e116409116734_ + _hd116408116737_ + _tl116407116739_ + _e116412116742_ + _hd116411116745_ + _tl116410116747_) + (___kont117904117905_)) + (___kont117904117905_)))) + (___kont117904117905_)) + (___kont117904117905_)) + (___kont117904117905_)))) + (___kont117904117905_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl116398116710_)) - (if (let ((__tmp118214 + _tl116395116707_)) + (if (let ((__tmp118211 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp118214 'bind-method!)) - (let ((_L116579_ _hd116405116724_) - (_L116580_ _hd116396116700_) - (_L116581_ _hd116387116676_) - (_L116582_ _hd116378116652_)) - (___kont117905117906_ - _L116579_ - _L116580_ - _L116581_ - _L116582_)) - (___kont117907117908_)) - (___kont117907117908_))) + (gxc#runtime-identifier=? __tmp118211 'bind-method!)) + (let ((_L116576_ _hd116402116721_) + (_L116577_ _hd116393116697_) + (_L116578_ _hd116384116673_) + (_L116579_ _hd116375116649_)) + (___kont117902117903_ + _L116576_ + _L116577_ + _L116578_ + _L116579_)) + (___kont117904117905_)) + (___kont117904117905_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont117907117908_)))) - (___kont117907117908_)) - (___kont117907117908_)) - (___kont117907117908_)))) - (___kont117907117908_)))) - (___kont117907117908_)) + (___kont117904117905_)))) + (___kont117904117905_)) + (___kont117904117905_)) + (___kont117904117905_)))) + (___kont117904117905_)))) + (___kont117904117905_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont117907117908_)))) - (___kont117907117908_)) - (___kont117907117908_)) - (___kont117907117908_)))) - (___kont117907117908_)))) - (___kont117907117908_)) - (___kont117907117908_)))) + (___kont117904117905_)))) + (___kont117904117905_)) + (___kont117904117905_)) + (___kont117904117905_)))) + (___kont117904117905_)))) + (___kont117904117905_)) + (___kont117904117905_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont117907117908_)) - (___kont117907117908_)) - (___kont117907117908_)))) - (___kont117907117908_)))) - (___kont117907117908_)) - (___kont117907117908_)))) + (___kont117904117905_)) + (___kont117904117905_)) + (___kont117904117905_)))) + (___kont117904117905_)))) + (___kont117904117905_)) + (___kont117904117905_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont117907117908_)) - (___kont117907117908_)) - (___kont117907117908_)))) - (___kont117907117908_)))) - (___kont117907117908_)))) - (___kont117907117908_))))))) + (___kont117904117905_)) + (___kont117904117905_)) + (___kont117904117905_)))) + (___kont117904117905_)))) + (___kont117904117905_)))) + (___kont117904117905_))))))) (define gxc#expression-subst-ref% - (lambda (_stx116304_ _id116305_ _new-id116306_) - (let* ((_g116308116321_ - (lambda (_g116309116318_) + (lambda (_stx116301_ _id116302_ _new-id116303_) + (let* ((_g116305116318_ + (lambda (_g116306116315_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116309116318_)))) - (_g116307116354_ - (lambda (_g116309116324_) + _g116306116315_)))) + (_g116304116351_ + (lambda (_g116306116321_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116309116324_)) - (let ((_e116313116326_ + (gx#stx-pair? _g116306116321_)) + (let ((_e116310116323_ (let () (declare (not safe)) - (gx#stx-e _g116309116324_)))) - (let ((_hd116312116329_ + (gx#stx-e _g116306116321_)))) + (let ((_hd116309116326_ (let () (declare (not safe)) - (##car _e116313116326_))) - (_tl116311116331_ + (##car _e116310116323_))) + (_tl116308116328_ (let () (declare (not safe)) - (##cdr _e116313116326_)))) + (##cdr _e116310116323_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116311116331_)) - (let ((_e116316116334_ + (gx#stx-pair? _tl116308116328_)) + (let ((_e116313116331_ (let () (declare (not safe)) - (gx#stx-e _tl116311116331_)))) - (let ((_hd116315116337_ + (gx#stx-e _tl116308116328_)))) + (let ((_hd116312116334_ (let () (declare (not safe)) - (##car _e116316116334_))) - (_tl116314116339_ + (##car _e116313116331_))) + (_tl116311116336_ (let () (declare (not safe)) - (##cdr _e116316116334_)))) + (##cdr _e116313116331_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl116314116339_)) - ((lambda (_L116342_) + (gx#stx-null? _tl116311116336_)) + ((lambda (_L116339_) (if (let () (declare (not safe)) (gx#free-identifier=? - _L116342_ - _id116305_)) - (let ((__tmp118215 - (let ((__tmp118216 + _L116339_ + _id116302_)) + (let ((__tmp118212 + (let ((__tmp118213 (let () (declare (not safe)) - (cons _new-id116306_ + (cons _new-id116303_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp118216)))) + (cons '%#ref __tmp118213)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118215 - _stx116304_)) - _stx116304_)) - _hd116315116337_) + __tmp118212 + _stx116301_)) + _stx116301_)) + _hd116312116334_) (let () (declare (not safe)) - (_g116308116321_ _g116309116324_))))) + (_g116305116318_ _g116306116321_))))) (let () (declare (not safe)) - (_g116308116321_ _g116309116324_))))) + (_g116305116318_ _g116306116321_))))) (let () (declare (not safe)) - (_g116308116321_ _g116309116324_)))))) + (_g116305116318_ _g116306116321_)))))) (declare (not safe)) - (_g116307116354_ _stx116304_)))) + (_g116304116351_ _stx116301_)))) (define gxc#expression-subst*-ref% - (lambda (_stx116245_ _subst116246_) - (let* ((_g116248116261_ - (lambda (_g116249116258_) + (lambda (_stx116242_ _subst116243_) + (let* ((_g116245116258_ + (lambda (_g116246116255_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116249116258_)))) - (_g116247116301_ - (lambda (_g116249116264_) + _g116246116255_)))) + (_g116244116298_ + (lambda (_g116246116261_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116249116264_)) - (let ((_e116253116266_ + (gx#stx-pair? _g116246116261_)) + (let ((_e116250116263_ (let () (declare (not safe)) - (gx#stx-e _g116249116264_)))) - (let ((_hd116252116269_ + (gx#stx-e _g116246116261_)))) + (let ((_hd116249116266_ (let () (declare (not safe)) - (##car _e116253116266_))) - (_tl116251116271_ + (##car _e116250116263_))) + (_tl116248116268_ (let () (declare (not safe)) - (##cdr _e116253116266_)))) + (##cdr _e116250116263_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116251116271_)) - (let ((_e116256116274_ + (gx#stx-pair? _tl116248116268_)) + (let ((_e116253116271_ (let () (declare (not safe)) - (gx#stx-e _tl116251116271_)))) - (let ((_hd116255116277_ + (gx#stx-e _tl116248116268_)))) + (let ((_hd116252116274_ (let () (declare (not safe)) - (##car _e116256116274_))) - (_tl116254116279_ + (##car _e116253116271_))) + (_tl116251116276_ (let () (declare (not safe)) - (##cdr _e116256116274_)))) + (##cdr _e116253116271_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl116254116279_)) - ((lambda (_L116282_) - (let ((_$e116296_ - (let ((__tmp118217 - (lambda (_sub116294_) - (let ((__tmp118218 - (car _sub116294_))) + (gx#stx-null? _tl116251116276_)) + ((lambda (_L116279_) + (let ((_$e116293_ + (let ((__tmp118214 + (lambda (_sub116291_) + (let ((__tmp118215 + (car _sub116291_))) (declare (not safe)) (gx#free-identifier=? - _L116282_ - __tmp118218))))) + _L116279_ + __tmp118215))))) (declare (not safe)) - (find __tmp118217 - _subst116246_)))) - (if _$e116296_ - ((lambda (_sub116299_) - (let ((__tmp118219 - (let ((__tmp118220 - (let ((__tmp118221 + (find __tmp118214 + _subst116243_)))) + (if _$e116293_ + ((lambda (_sub116296_) + (let ((__tmp118216 + (let ((__tmp118217 + (let ((__tmp118218 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _sub116299_))) + (cdr _sub116296_))) (declare (not safe)) - (cons __tmp118221 '())))) + (cons __tmp118218 '())))) (declare (not safe)) - (cons '%#ref __tmp118220)))) + (cons '%#ref __tmp118217)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118219 - _stx116245_))) - _$e116296_) - _stx116245_))) - _hd116255116277_) + __tmp118216 + _stx116242_))) + _$e116293_) + _stx116242_))) + _hd116252116274_) (let () (declare (not safe)) - (_g116248116261_ _g116249116264_))))) + (_g116245116258_ _g116246116261_))))) (let () (declare (not safe)) - (_g116248116261_ _g116249116264_))))) + (_g116245116258_ _g116246116261_))))) (let () (declare (not safe)) - (_g116248116261_ _g116249116264_)))))) + (_g116245116258_ _g116246116261_)))))) (declare (not safe)) - (_g116247116301_ _stx116245_)))) + (_g116244116298_ _stx116242_)))) (define gxc#expression-subst-setq% - (lambda (_stx116173_ _id116174_ _new-id116175_) - (let* ((_g116177116194_ - (lambda (_g116178116191_) + (lambda (_stx116170_ _id116171_ _new-id116172_) + (let* ((_g116174116191_ + (lambda (_g116175116188_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116178116191_)))) - (_g116176116242_ - (lambda (_g116178116197_) + _g116175116188_)))) + (_g116173116239_ + (lambda (_g116175116194_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116178116197_)) - (let ((_e116183116199_ + (gx#stx-pair? _g116175116194_)) + (let ((_e116180116196_ (let () (declare (not safe)) - (gx#stx-e _g116178116197_)))) - (let ((_hd116182116202_ + (gx#stx-e _g116175116194_)))) + (let ((_hd116179116199_ (let () (declare (not safe)) - (##car _e116183116199_))) - (_tl116181116204_ + (##car _e116180116196_))) + (_tl116178116201_ (let () (declare (not safe)) - (##cdr _e116183116199_)))) + (##cdr _e116180116196_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116181116204_)) - (let ((_e116186116207_ + (gx#stx-pair? _tl116178116201_)) + (let ((_e116183116204_ (let () (declare (not safe)) - (gx#stx-e _tl116181116204_)))) - (let ((_hd116185116210_ + (gx#stx-e _tl116178116201_)))) + (let ((_hd116182116207_ (let () (declare (not safe)) - (##car _e116186116207_))) - (_tl116184116212_ + (##car _e116183116204_))) + (_tl116181116209_ (let () (declare (not safe)) - (##cdr _e116186116207_)))) + (##cdr _e116183116204_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116184116212_)) - (let ((_e116189116215_ + (gx#stx-pair? _tl116181116209_)) + (let ((_e116186116212_ (let () (declare (not safe)) - (gx#stx-e _tl116184116212_)))) - (let ((_hd116188116218_ + (gx#stx-e _tl116181116209_)))) + (let ((_hd116185116215_ (let () (declare (not safe)) - (##car _e116189116215_))) - (_tl116187116220_ + (##car _e116186116212_))) + (_tl116184116217_ (let () (declare (not safe)) - (##cdr _e116189116215_)))) + (##cdr _e116186116212_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116187116220_)) - ((lambda (_L116223_ _L116224_) - (let ((_new-expr116239_ + _tl116184116217_)) + ((lambda (_L116220_ _L116221_) + (let ((_new-expr116236_ (let () (declare (not safe)) (gxc#compile-e__2 - _L116223_ - _id116174_ - _new-id116175_))) - (_new-xid116240_ + _L116220_ + _id116171_ + _new-id116172_))) + (_new-xid116237_ (if (let () (declare (not safe)) (gx#free-identifier=? - _L116224_ - _id116174_)) - _new-id116175_ - _L116224_))) - (let ((__tmp118222 - (let ((__tmp118223 + _L116221_ + _id116171_)) + _new-id116172_ + _L116221_))) + (let ((__tmp118219 + (let ((__tmp118220 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp118224 + (let ((__tmp118221 (let () (declare (not safe)) - (cons _new-expr116239_ '())))) + (cons _new-expr116236_ '())))) (declare (not safe)) - (cons _new-xid116240_ __tmp118224)))) + (cons _new-xid116237_ __tmp118221)))) (declare (not safe)) - (cons '%#set! __tmp118223)))) + (cons '%#set! __tmp118220)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118222 - _stx116173_)))) - _hd116188116218_ - _hd116185116210_) + __tmp118219 + _stx116170_)))) + _hd116185116215_ + _hd116182116207_) (let () (declare (not safe)) - (_g116177116194_ - _g116178116197_))))) + (_g116174116191_ + _g116175116194_))))) (let () (declare (not safe)) - (_g116177116194_ _g116178116197_))))) + (_g116174116191_ _g116175116194_))))) (let () (declare (not safe)) - (_g116177116194_ _g116178116197_))))) + (_g116174116191_ _g116175116194_))))) (let () (declare (not safe)) - (_g116177116194_ _g116178116197_)))))) + (_g116174116191_ _g116175116194_)))))) (declare (not safe)) - (_g116176116242_ _stx116173_)))) + (_g116173116239_ _stx116170_)))) (define gxc#expression-subst*-setq% - (lambda (_stx116097_ _subst116098_) - (let* ((_g116100116117_ - (lambda (_g116101116114_) + (lambda (_stx116094_ _subst116095_) + (let* ((_g116097116114_ + (lambda (_g116098116111_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116101116114_)))) - (_g116099116170_ - (lambda (_g116101116120_) + _g116098116111_)))) + (_g116096116167_ + (lambda (_g116098116117_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116101116120_)) - (let ((_e116106116122_ + (gx#stx-pair? _g116098116117_)) + (let ((_e116103116119_ (let () (declare (not safe)) - (gx#stx-e _g116101116120_)))) - (let ((_hd116105116125_ + (gx#stx-e _g116098116117_)))) + (let ((_hd116102116122_ (let () (declare (not safe)) - (##car _e116106116122_))) - (_tl116104116127_ + (##car _e116103116119_))) + (_tl116101116124_ (let () (declare (not safe)) - (##cdr _e116106116122_)))) + (##cdr _e116103116119_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116104116127_)) - (let ((_e116109116130_ + (gx#stx-pair? _tl116101116124_)) + (let ((_e116106116127_ (let () (declare (not safe)) - (gx#stx-e _tl116104116127_)))) - (let ((_hd116108116133_ + (gx#stx-e _tl116101116124_)))) + (let ((_hd116105116130_ (let () (declare (not safe)) - (##car _e116109116130_))) - (_tl116107116135_ + (##car _e116106116127_))) + (_tl116104116132_ (let () (declare (not safe)) - (##cdr _e116109116130_)))) + (##cdr _e116106116127_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116107116135_)) - (let ((_e116112116138_ + (gx#stx-pair? _tl116104116132_)) + (let ((_e116109116135_ (let () (declare (not safe)) - (gx#stx-e _tl116107116135_)))) - (let ((_hd116111116141_ + (gx#stx-e _tl116104116132_)))) + (let ((_hd116108116138_ (let () (declare (not safe)) - (##car _e116112116138_))) - (_tl116110116143_ + (##car _e116109116135_))) + (_tl116107116140_ (let () (declare (not safe)) - (##cdr _e116112116138_)))) + (##cdr _e116109116135_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116110116143_)) - ((lambda (_L116146_ _L116147_) - (let ((_new-expr116167_ + _tl116107116140_)) + ((lambda (_L116143_ _L116144_) + (let ((_new-expr116164_ (let () (declare (not safe)) (gxc#compile-e__1 - _L116146_ - _subst116098_))) - (_new-xid116168_ - (let ((_$e116164_ - (let ((__tmp118225 + _L116143_ + _subst116095_))) + (_new-xid116165_ + (let ((_$e116161_ + (let ((__tmp118222 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_sub116162_) - (let ((__tmp118226 (car _sub116162_))) + (lambda (_sub116159_) + (let ((__tmp118223 (car _sub116159_))) (declare (not safe)) (gx#free-identifier=? - _L116147_ - __tmp118226))))) + _L116144_ + __tmp118223))))) (declare (not safe)) - (find __tmp118225 _subst116098_)))) - (if _$e116164_ (cdr _$e116164_) _L116147_)))) + (find __tmp118222 _subst116095_)))) + (if _$e116161_ (cdr _$e116161_) _L116144_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp118227 - (let ((__tmp118228 + (let ((__tmp118224 + (let ((__tmp118225 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp118229 + (let ((__tmp118226 (let () (declare (not safe)) - (cons _new-expr116167_ '())))) + (cons _new-expr116164_ '())))) (declare (not safe)) - (cons _new-xid116168_ __tmp118229)))) + (cons _new-xid116165_ __tmp118226)))) (declare (not safe)) - (cons '%#set! __tmp118228)))) + (cons '%#set! __tmp118225)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118227 - _stx116097_)))) - _hd116111116141_ - _hd116108116133_) + __tmp118224 + _stx116094_)))) + _hd116108116138_ + _hd116105116130_) (let () (declare (not safe)) - (_g116100116117_ - _g116101116120_))))) + (_g116097116114_ + _g116098116117_))))) (let () (declare (not safe)) - (_g116100116117_ _g116101116120_))))) + (_g116097116114_ _g116098116117_))))) (let () (declare (not safe)) - (_g116100116117_ _g116101116120_))))) + (_g116097116114_ _g116098116117_))))) (let () (declare (not safe)) - (_g116100116117_ _g116101116120_)))))) + (_g116097116114_ _g116098116117_)))))) (declare (not safe)) - (_g116099116170_ _stx116097_)))) + (_g116096116167_ _stx116094_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_stx116043_ _ht116044_) - (let* ((_g116046116059_ - (lambda (_g116047116056_) + (lambda (_stx116040_ _ht116041_) + (let* ((_g116043116056_ + (lambda (_g116044116053_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116047116056_)))) - (_g116045116094_ - (lambda (_g116047116062_) + _g116044116053_)))) + (_g116042116091_ + (lambda (_g116044116059_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116047116062_)) - (let ((_e116051116064_ + (gx#stx-pair? _g116044116059_)) + (let ((_e116048116061_ (let () (declare (not safe)) - (gx#stx-e _g116047116062_)))) - (let ((_hd116050116067_ + (gx#stx-e _g116044116059_)))) + (let ((_hd116047116064_ (let () (declare (not safe)) - (##car _e116051116064_))) - (_tl116049116069_ + (##car _e116048116061_))) + (_tl116046116066_ (let () (declare (not safe)) - (##cdr _e116051116064_)))) + (##cdr _e116048116061_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116049116069_)) - (let ((_e116054116072_ + (gx#stx-pair? _tl116046116066_)) + (let ((_e116051116069_ (let () (declare (not safe)) - (gx#stx-e _tl116049116069_)))) - (let ((_hd116053116075_ + (gx#stx-e _tl116046116066_)))) + (let ((_hd116050116072_ (let () (declare (not safe)) - (##car _e116054116072_))) - (_tl116052116077_ + (##car _e116051116069_))) + (_tl116049116074_ (let () (declare (not safe)) - (##cdr _e116054116072_)))) + (##cdr _e116051116069_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl116052116077_)) - ((lambda (_L116080_) - (let ((_eid116092_ + (gx#stx-null? _tl116049116074_)) + ((lambda (_L116077_) + (let ((_eid116089_ (let () (declare (not safe)) (gxc#identifier-symbol - _L116080_)))) + _L116077_)))) (declare (not safe)) (hash-update!__% - _ht116044_ - _eid116092_ + _ht116041_ + _eid116089_ 1+ '0))) - _hd116053116075_) + _hd116050116072_) (let () (declare (not safe)) - (_g116046116059_ _g116047116062_))))) + (_g116043116056_ _g116044116059_))))) (let () (declare (not safe)) - (_g116046116059_ _g116047116062_))))) + (_g116043116056_ _g116044116059_))))) (let () (declare (not safe)) - (_g116046116059_ _g116047116062_)))))) + (_g116043116056_ _g116044116059_)))))) (declare (not safe)) - (_g116045116094_ _stx116043_)))) + (_g116042116091_ _stx116040_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_stx115973_ _ht115974_) - (let* ((_g115976115993_ - (lambda (_g115977115990_) + (lambda (_stx115970_ _ht115971_) + (let* ((_g115973115990_ + (lambda (_g115974115987_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115977115990_)))) - (_g115975116040_ - (lambda (_g115977115996_) + _g115974115987_)))) + (_g115972116037_ + (lambda (_g115974115993_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115977115996_)) - (let ((_e115982115998_ + (gx#stx-pair? _g115974115993_)) + (let ((_e115979115995_ (let () (declare (not safe)) - (gx#stx-e _g115977115996_)))) - (let ((_hd115981116001_ + (gx#stx-e _g115974115993_)))) + (let ((_hd115978115998_ (let () (declare (not safe)) - (##car _e115982115998_))) - (_tl115980116003_ + (##car _e115979115995_))) + (_tl115977116000_ (let () (declare (not safe)) - (##cdr _e115982115998_)))) + (##cdr _e115979115995_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115980116003_)) - (let ((_e115985116006_ + (gx#stx-pair? _tl115977116000_)) + (let ((_e115982116003_ (let () (declare (not safe)) - (gx#stx-e _tl115980116003_)))) - (let ((_hd115984116009_ + (gx#stx-e _tl115977116000_)))) + (let ((_hd115981116006_ (let () (declare (not safe)) - (##car _e115985116006_))) - (_tl115983116011_ + (##car _e115982116003_))) + (_tl115980116008_ (let () (declare (not safe)) - (##cdr _e115985116006_)))) + (##cdr _e115982116003_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115983116011_)) - (let ((_e115988116014_ + (gx#stx-pair? _tl115980116008_)) + (let ((_e115985116011_ (let () (declare (not safe)) - (gx#stx-e _tl115983116011_)))) - (let ((_hd115987116017_ + (gx#stx-e _tl115980116008_)))) + (let ((_hd115984116014_ (let () (declare (not safe)) - (##car _e115988116014_))) - (_tl115986116019_ + (##car _e115985116011_))) + (_tl115983116016_ (let () (declare (not safe)) - (##cdr _e115988116014_)))) + (##cdr _e115985116011_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115986116019_)) - ((lambda (_L116022_ _L116023_) - (let ((_eid116038_ + _tl115983116016_)) + ((lambda (_L116019_ _L116020_) + (let ((_eid116035_ (let () (declare (not safe)) (gxc#identifier-symbol - _L116023_)))) + _L116020_)))) (let () (declare (not safe)) (hash-update!__% - _ht115974_ - _eid116038_ + _ht115971_ + _eid116035_ 1+ '0)) (let () (declare (not safe)) (gxc#compile-e__1 - _L116022_ - _ht115974_)))) - _hd115987116017_ - _hd115984116009_) + _L116019_ + _ht115971_)))) + _hd115984116014_ + _hd115981116006_) (let () (declare (not safe)) - (_g115976115993_ - _g115977115996_))))) + (_g115973115990_ + _g115974115993_))))) (let () (declare (not safe)) - (_g115976115993_ _g115977115996_))))) + (_g115973115990_ _g115974115993_))))) (let () (declare (not safe)) - (_g115976115993_ _g115977115996_))))) + (_g115973115990_ _g115974115993_))))) (let () (declare (not safe)) - (_g115976115993_ _g115977115996_)))))) + (_g115973115990_ _g115974115993_)))))) (declare (not safe)) - (_g115975116040_ _stx115973_)))) + (_g115972116037_ _stx115970_)))) (define gxc#find-body% - (lambda (_stx115886_ _arg115887_) - (let* ((_g115889115908_ - (lambda (_g115890115905_) + (lambda (_stx115883_ _arg115884_) + (let* ((_g115886115905_ + (lambda (_g115887115902_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115890115905_)))) - (_g115888115970_ - (lambda (_g115890115911_) + _g115887115902_)))) + (_g115885115967_ + (lambda (_g115887115908_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115890115911_)) - (let ((_e115894115913_ + (gx#stx-pair? _g115887115908_)) + (let ((_e115891115910_ (let () (declare (not safe)) - (gx#stx-e _g115890115911_)))) - (let ((_hd115893115916_ + (gx#stx-e _g115887115908_)))) + (let ((_hd115890115913_ (let () (declare (not safe)) - (##car _e115894115913_))) - (_tl115892115918_ + (##car _e115891115910_))) + (_tl115889115915_ (let () (declare (not safe)) - (##cdr _e115894115913_)))) + (##cdr _e115891115910_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl115892115918_)) - (let ((_g118230_ + (gx#stx-pair/null? _tl115889115915_)) + (let ((_g118227_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl115892115918_ + _tl115889115915_ '0)))) (begin - (let ((_g118231_ + (let ((_g118228_ (let () (declare (not safe)) - (if (##values? _g118230_) - (##vector-length _g118230_) + (if (##values? _g118227_) + (##vector-length _g118227_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g118231_ 2))) + (##fx= _g118228_ 2))) (error "Context expects 2 values" - _g118231_))) - (let ((_target115895115921_ + _g118228_))) + (let ((_target115892115918_ (let () (declare (not safe)) - (##vector-ref _g118230_ 0))) - (_tl115897115923_ + (##vector-ref _g118227_ 0))) + (_tl115894115920_ (let () (declare (not safe)) - (##vector-ref _g118230_ 1)))) + (##vector-ref _g118227_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl115897115923_)) - (letrec ((_loop115898115926_ - (lambda (_hd115896115929_ - _expr115902115931_) + (gx#stx-null? _tl115894115920_)) + (letrec ((_loop115895115923_ + (lambda (_hd115893115926_ + _expr115899115928_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd115896115929_)) - (let ((_e115899115934_ + _hd115893115926_)) + (let ((_e115896115931_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd115896115929_)))) - (let ((_lp-hd115900115937_ - (let () (declare (not safe)) (##car _e115899115934_))) - (_lp-tl115901115939_ + (gx#stx-e _hd115893115926_)))) + (let ((_lp-hd115897115934_ + (let () (declare (not safe)) (##car _e115896115931_))) + (_lp-tl115898115936_ (let () (declare (not safe)) - (##cdr _e115899115934_)))) - (let ((__tmp118235 + (##cdr _e115896115931_)))) + (let ((__tmp118232 (let () (declare (not safe)) - (cons _lp-hd115900115937_ _expr115902115931_)))) + (cons _lp-hd115897115934_ _expr115899115928_)))) (declare (not safe)) - (_loop115898115926_ _lp-tl115901115939_ __tmp118235)))) - (let ((_expr115903115942_ (reverse _expr115902115931_))) - ((lambda (_L115945_) - (let ((__tmp118234 - (lambda (_g115958115960_) + (_loop115895115923_ _lp-tl115898115936_ __tmp118232)))) + (let ((_expr115900115939_ (reverse _expr115899115928_))) + ((lambda (_L115942_) + (let ((__tmp118231 + (lambda (_g115955115957_) (let () (declare (not safe)) (gxc#compile-e__1 - _g115958115960_ - _arg115887_)))) - (__tmp118232 - (let ((__tmp118233 - (lambda (_g115962115965_ _g115963115967_) + _g115955115957_ + _arg115884_)))) + (__tmp118229 + (let ((__tmp118230 + (lambda (_g115959115962_ _g115960115964_) (let () (declare (not safe)) - (cons _g115962115965_ - _g115963115967_))))) + (cons _g115959115962_ + _g115960115964_))))) (declare (not safe)) - (foldr1 __tmp118233 '() _L115945_)))) + (foldr1 __tmp118230 '() _L115942_)))) (declare (not safe)) - (ormap1 __tmp118234 __tmp118232))) - _expr115903115942_)))))) + (ormap1 __tmp118231 __tmp118229))) + _expr115900115939_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop115898115926_ - _target115895115921_ + (_loop115895115923_ + _target115892115918_ '()))) (let () (declare (not safe)) - (_g115889115908_ - _g115890115911_)))))) + (_g115886115905_ + _g115887115908_)))))) (let () (declare (not safe)) - (_g115889115908_ _g115890115911_))))) + (_g115886115905_ _g115887115908_))))) (let () (declare (not safe)) - (_g115889115908_ _g115890115911_)))))) + (_g115886115905_ _g115887115908_)))))) (declare (not safe)) - (_g115888115970_ _stx115886_)))) + (_g115885115967_ _stx115883_)))) (define gxc#find-begin-annotation% - (lambda (_stx115818_ _arg115819_) - (let* ((_g115821115838_ - (lambda (_g115822115835_) + (lambda (_stx115815_ _arg115816_) + (let* ((_g115818115835_ + (lambda (_g115819115832_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115822115835_)))) - (_g115820115883_ - (lambda (_g115822115841_) + _g115819115832_)))) + (_g115817115880_ + (lambda (_g115819115838_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115822115841_)) - (let ((_e115827115843_ + (gx#stx-pair? _g115819115838_)) + (let ((_e115824115840_ (let () (declare (not safe)) - (gx#stx-e _g115822115841_)))) - (let ((_hd115826115846_ + (gx#stx-e _g115819115838_)))) + (let ((_hd115823115843_ (let () (declare (not safe)) - (##car _e115827115843_))) - (_tl115825115848_ + (##car _e115824115840_))) + (_tl115822115845_ (let () (declare (not safe)) - (##cdr _e115827115843_)))) + (##cdr _e115824115840_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115825115848_)) - (let ((_e115830115851_ + (gx#stx-pair? _tl115822115845_)) + (let ((_e115827115848_ (let () (declare (not safe)) - (gx#stx-e _tl115825115848_)))) - (let ((_hd115829115854_ + (gx#stx-e _tl115822115845_)))) + (let ((_hd115826115851_ (let () (declare (not safe)) - (##car _e115830115851_))) - (_tl115828115856_ + (##car _e115827115848_))) + (_tl115825115853_ (let () (declare (not safe)) - (##cdr _e115830115851_)))) + (##cdr _e115827115848_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115828115856_)) - (let ((_e115833115859_ + (gx#stx-pair? _tl115825115853_)) + (let ((_e115830115856_ (let () (declare (not safe)) - (gx#stx-e _tl115828115856_)))) - (let ((_hd115832115862_ + (gx#stx-e _tl115825115853_)))) + (let ((_hd115829115859_ (let () (declare (not safe)) - (##car _e115833115859_))) - (_tl115831115864_ + (##car _e115830115856_))) + (_tl115828115861_ (let () (declare (not safe)) - (##cdr _e115833115859_)))) + (##cdr _e115830115856_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115831115864_)) - ((lambda (_L115867_ _L115868_) + _tl115828115861_)) + ((lambda (_L115864_ _L115865_) (let () (declare (not safe)) (gxc#compile-e__1 - _L115867_ - _arg115819_))) - _hd115832115862_ - _hd115829115854_) + _L115864_ + _arg115816_))) + _hd115829115859_ + _hd115826115851_) (let () (declare (not safe)) - (_g115821115838_ - _g115822115841_))))) + (_g115818115835_ + _g115819115838_))))) (let () (declare (not safe)) - (_g115821115838_ _g115822115841_))))) + (_g115818115835_ _g115819115838_))))) (let () (declare (not safe)) - (_g115821115838_ _g115822115841_))))) + (_g115818115835_ _g115819115838_))))) (let () (declare (not safe)) - (_g115821115838_ _g115822115841_)))))) + (_g115818115835_ _g115819115838_)))))) (declare (not safe)) - (_g115820115883_ _stx115818_)))) + (_g115817115880_ _stx115815_)))) (define gxc#find-lambda% - (lambda (_stx115750_ _arg115751_) - (let* ((_g115753115770_ - (lambda (_g115754115767_) + (lambda (_stx115747_ _arg115748_) + (let* ((_g115750115767_ + (lambda (_g115751115764_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115754115767_)))) - (_g115752115815_ - (lambda (_g115754115773_) + _g115751115764_)))) + (_g115749115812_ + (lambda (_g115751115770_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115754115773_)) - (let ((_e115759115775_ + (gx#stx-pair? _g115751115770_)) + (let ((_e115756115772_ (let () (declare (not safe)) - (gx#stx-e _g115754115773_)))) - (let ((_hd115758115778_ + (gx#stx-e _g115751115770_)))) + (let ((_hd115755115775_ (let () (declare (not safe)) - (##car _e115759115775_))) - (_tl115757115780_ + (##car _e115756115772_))) + (_tl115754115777_ (let () (declare (not safe)) - (##cdr _e115759115775_)))) + (##cdr _e115756115772_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115757115780_)) - (let ((_e115762115783_ + (gx#stx-pair? _tl115754115777_)) + (let ((_e115759115780_ (let () (declare (not safe)) - (gx#stx-e _tl115757115780_)))) - (let ((_hd115761115786_ + (gx#stx-e _tl115754115777_)))) + (let ((_hd115758115783_ (let () (declare (not safe)) - (##car _e115762115783_))) - (_tl115760115788_ + (##car _e115759115780_))) + (_tl115757115785_ (let () (declare (not safe)) - (##cdr _e115762115783_)))) + (##cdr _e115759115780_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115760115788_)) - (let ((_e115765115791_ + (gx#stx-pair? _tl115757115785_)) + (let ((_e115762115788_ (let () (declare (not safe)) - (gx#stx-e _tl115760115788_)))) - (let ((_hd115764115794_ + (gx#stx-e _tl115757115785_)))) + (let ((_hd115761115791_ (let () (declare (not safe)) - (##car _e115765115791_))) - (_tl115763115796_ + (##car _e115762115788_))) + (_tl115760115793_ (let () (declare (not safe)) - (##cdr _e115765115791_)))) + (##cdr _e115762115788_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115763115796_)) - ((lambda (_L115799_ _L115800_) + _tl115760115793_)) + ((lambda (_L115796_ _L115797_) (let () (declare (not safe)) (gxc#compile-e__1 - _L115799_ - _arg115751_))) - _hd115764115794_ - _hd115761115786_) + _L115796_ + _arg115748_))) + _hd115761115791_ + _hd115758115783_) (let () (declare (not safe)) - (_g115753115770_ - _g115754115773_))))) + (_g115750115767_ + _g115751115770_))))) (let () (declare (not safe)) - (_g115753115770_ _g115754115773_))))) + (_g115750115767_ _g115751115770_))))) (let () (declare (not safe)) - (_g115753115770_ _g115754115773_))))) + (_g115750115767_ _g115751115770_))))) (let () (declare (not safe)) - (_g115753115770_ _g115754115773_)))))) + (_g115750115767_ _g115751115770_)))))) (declare (not safe)) - (_g115752115815_ _stx115750_)))) + (_g115749115812_ _stx115747_)))) (define gxc#find-case-lambda% - (lambda (_stx115632_ _arg115633_) - (let* ((_g115635115663_ - (lambda (_g115636115660_) + (lambda (_stx115629_ _arg115630_) + (let* ((_g115632115660_ + (lambda (_g115633115657_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115636115660_)))) - (_g115634115747_ - (lambda (_g115636115666_) + _g115633115657_)))) + (_g115631115744_ + (lambda (_g115633115663_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115636115666_)) - (let ((_e115641115668_ + (gx#stx-pair? _g115633115663_)) + (let ((_e115638115665_ (let () (declare (not safe)) - (gx#stx-e _g115636115666_)))) - (let ((_hd115640115671_ + (gx#stx-e _g115633115663_)))) + (let ((_hd115637115668_ (let () (declare (not safe)) - (##car _e115641115668_))) - (_tl115639115673_ + (##car _e115638115665_))) + (_tl115636115670_ (let () (declare (not safe)) - (##cdr _e115641115668_)))) + (##cdr _e115638115665_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl115639115673_)) - (let ((_g118236_ + (gx#stx-pair/null? _tl115636115670_)) + (let ((_g118233_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl115639115673_ + _tl115636115670_ '0)))) (begin - (let ((_g118237_ + (let ((_g118234_ (let () (declare (not safe)) - (if (##values? _g118236_) - (##vector-length _g118236_) + (if (##values? _g118233_) + (##vector-length _g118233_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g118237_ 2))) + (##fx= _g118234_ 2))) (error "Context expects 2 values" - _g118237_))) - (let ((_target115642115676_ + _g118234_))) + (let ((_target115639115673_ (let () (declare (not safe)) - (##vector-ref _g118236_ 0))) - (_tl115644115678_ + (##vector-ref _g118233_ 0))) + (_tl115641115675_ (let () (declare (not safe)) - (##vector-ref _g118236_ 1)))) + (##vector-ref _g118233_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl115644115678_)) - (letrec ((_loop115645115681_ - (lambda (_hd115643115684_ - _body115649115686_ - _hd115650115688_) + (gx#stx-null? _tl115641115675_)) + (letrec ((_loop115642115678_ + (lambda (_hd115640115681_ + _body115646115683_ + _hd115647115685_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd115643115684_)) - (let ((_e115646115691_ + _hd115640115681_)) + (let ((_e115643115688_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd115643115684_)))) - (let ((_lp-hd115647115694_ - (let () (declare (not safe)) (##car _e115646115691_))) - (_lp-tl115648115696_ + (gx#stx-e _hd115640115681_)))) + (let ((_lp-hd115644115691_ + (let () (declare (not safe)) (##car _e115643115688_))) + (_lp-tl115645115693_ (let () (declare (not safe)) - (##cdr _e115646115691_)))) + (##cdr _e115643115688_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd115647115694_)) - (let ((_e115655115699_ + (gx#stx-pair? _lp-hd115644115691_)) + (let ((_e115652115696_ (let () (declare (not safe)) - (gx#stx-e _lp-hd115647115694_)))) - (let ((_hd115654115702_ + (gx#stx-e _lp-hd115644115691_)))) + (let ((_hd115651115699_ (let () (declare (not safe)) - (##car _e115655115699_))) - (_tl115653115704_ + (##car _e115652115696_))) + (_tl115650115701_ (let () (declare (not safe)) - (##cdr _e115655115699_)))) + (##cdr _e115652115696_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115653115704_)) - (let ((_e115658115707_ + (gx#stx-pair? _tl115650115701_)) + (let ((_e115655115704_ (let () (declare (not safe)) - (gx#stx-e _tl115653115704_)))) - (let ((_hd115657115710_ + (gx#stx-e _tl115650115701_)))) + (let ((_hd115654115707_ (let () (declare (not safe)) - (##car _e115658115707_))) - (_tl115656115712_ + (##car _e115655115704_))) + (_tl115653115709_ (let () (declare (not safe)) - (##cdr _e115658115707_)))) + (##cdr _e115655115704_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl115656115712_)) - (let ((__tmp118242 + (gx#stx-null? _tl115653115709_)) + (let ((__tmp118239 (let () (declare (not safe)) - (cons _hd115657115710_ - _body115649115686_))) - (__tmp118241 + (cons _hd115654115707_ + _body115646115683_))) + (__tmp118238 (let () (declare (not safe)) - (cons _hd115654115702_ - _hd115650115688_)))) + (cons _hd115651115699_ + _hd115647115685_)))) (declare (not safe)) - (_loop115645115681_ - _lp-tl115648115696_ - __tmp118242 - __tmp118241)) + (_loop115642115678_ + _lp-tl115645115693_ + __tmp118239 + __tmp118238)) (let () (declare (not safe)) - (_g115635115663_ _g115636115666_))))) + (_g115632115660_ _g115633115663_))))) (let () (declare (not safe)) - (_g115635115663_ _g115636115666_))))) + (_g115632115660_ _g115633115663_))))) (let () (declare (not safe)) - (_g115635115663_ _g115636115666_))))) - (let ((_body115651115715_ (reverse _body115649115686_)) - (_hd115652115717_ (reverse _hd115650115688_))) - ((lambda (_L115720_ _L115721_) - (let ((__tmp118240 - (lambda (_g115735115737_) + (_g115632115660_ _g115633115663_))))) + (let ((_body115648115712_ (reverse _body115646115683_)) + (_hd115649115714_ (reverse _hd115647115685_))) + ((lambda (_L115717_ _L115718_) + (let ((__tmp118237 + (lambda (_g115732115734_) (let () (declare (not safe)) (gxc#compile-e__1 - _g115735115737_ - _arg115633_)))) - (__tmp118238 - (let ((__tmp118239 - (lambda (_g115739115742_ _g115740115744_) + _g115732115734_ + _arg115630_)))) + (__tmp118235 + (let ((__tmp118236 + (lambda (_g115736115739_ _g115737115741_) (let () (declare (not safe)) - (cons _g115739115742_ - _g115740115744_))))) + (cons _g115736115739_ + _g115737115741_))))) (declare (not safe)) - (foldr1 __tmp118239 '() _L115720_)))) + (foldr1 __tmp118236 '() _L115717_)))) (declare (not safe)) - (ormap1 __tmp118240 __tmp118238))) - _body115651115715_ - _hd115652115717_)))))) + (ormap1 __tmp118237 __tmp118235))) + _body115648115712_ + _hd115649115714_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop115645115681_ - _target115642115676_ + (_loop115642115678_ + _target115639115673_ '() '()))) (let () (declare (not safe)) - (_g115635115663_ - _g115636115666_)))))) + (_g115632115660_ + _g115633115663_)))))) (let () (declare (not safe)) - (_g115635115663_ _g115636115666_))))) + (_g115632115660_ _g115633115663_))))) (let () (declare (not safe)) - (_g115635115663_ _g115636115666_)))))) + (_g115632115660_ _g115633115663_)))))) (declare (not safe)) - (_g115634115747_ _stx115632_)))) + (_g115631115744_ _stx115629_)))) (define gxc#find-let-values% - (lambda (_stx115482_ _arg115483_) - (let* ((_g115485115520_ - (lambda (_g115486115517_) + (lambda (_stx115479_ _arg115480_) + (let* ((_g115482115517_ + (lambda (_g115483115514_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115486115517_)))) - (_g115484115629_ - (lambda (_g115486115523_) + _g115483115514_)))) + (_g115481115626_ + (lambda (_g115483115520_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115486115523_)) - (let ((_e115492115525_ + (gx#stx-pair? _g115483115520_)) + (let ((_e115489115522_ (let () (declare (not safe)) - (gx#stx-e _g115486115523_)))) - (let ((_hd115491115528_ + (gx#stx-e _g115483115520_)))) + (let ((_hd115488115525_ (let () (declare (not safe)) - (##car _e115492115525_))) - (_tl115490115530_ + (##car _e115489115522_))) + (_tl115487115527_ (let () (declare (not safe)) - (##cdr _e115492115525_)))) + (##cdr _e115489115522_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115490115530_)) - (let ((_e115495115533_ + (gx#stx-pair? _tl115487115527_)) + (let ((_e115492115530_ (let () (declare (not safe)) - (gx#stx-e _tl115490115530_)))) - (let ((_hd115494115536_ + (gx#stx-e _tl115487115527_)))) + (let ((_hd115491115533_ (let () (declare (not safe)) - (##car _e115495115533_))) - (_tl115493115538_ + (##car _e115492115530_))) + (_tl115490115535_ (let () (declare (not safe)) - (##cdr _e115495115533_)))) + (##cdr _e115492115530_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd115494115536_)) - (let ((_g118243_ + (gx#stx-pair/null? _hd115491115533_)) + (let ((_g118240_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd115494115536_ + _hd115491115533_ '0)))) (begin - (let ((_g118244_ + (let ((_g118241_ (let () (declare (not safe)) - (if (##values? _g118243_) + (if (##values? _g118240_) (##vector-length - _g118243_) + _g118240_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g118244_ 2))) + (##fx= _g118241_ 2))) (error "Context expects 2 values" - _g118244_))) - (let ((_target115496115541_ + _g118241_))) + (let ((_target115493115538_ (let () (declare (not safe)) - (##vector-ref _g118243_ 0))) - (_tl115498115543_ + (##vector-ref _g118240_ 0))) + (_tl115495115540_ (let () (declare (not safe)) (##vector-ref - _g118243_ + _g118240_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115498115543_)) - (letrec ((_loop115499115546_ - (lambda (_hd115497115549_ + _tl115495115540_)) + (letrec ((_loop115496115543_ + (lambda (_hd115494115546_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr115503115551_ - _bind115504115553_) + _expr115500115548_ + _bind115501115550_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd115497115549_)) - (let ((_e115500115556_ + (gx#stx-pair? _hd115494115546_)) + (let ((_e115497115553_ (let () (declare (not safe)) - (gx#stx-e _hd115497115549_)))) - (let ((_lp-hd115501115559_ + (gx#stx-e _hd115494115546_)))) + (let ((_lp-hd115498115556_ (let () (declare (not safe)) - (##car _e115500115556_))) - (_lp-tl115502115561_ + (##car _e115497115553_))) + (_lp-tl115499115558_ (let () (declare (not safe)) - (##cdr _e115500115556_)))) + (##cdr _e115497115553_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd115501115559_)) - (let ((_e115509115564_ + (gx#stx-pair? _lp-hd115498115556_)) + (let ((_e115506115561_ (let () (declare (not safe)) - (gx#stx-e _lp-hd115501115559_)))) - (let ((_hd115508115567_ + (gx#stx-e _lp-hd115498115556_)))) + (let ((_hd115505115564_ (let () (declare (not safe)) - (##car _e115509115564_))) - (_tl115507115569_ + (##car _e115506115561_))) + (_tl115504115566_ (let () (declare (not safe)) - (##cdr _e115509115564_)))) + (##cdr _e115506115561_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115507115569_)) - (let ((_e115512115572_ + (gx#stx-pair? _tl115504115566_)) + (let ((_e115509115569_ (let () (declare (not safe)) - (gx#stx-e _tl115507115569_)))) - (let ((_hd115511115575_ + (gx#stx-e _tl115504115566_)))) + (let ((_hd115508115572_ (let () (declare (not safe)) - (##car _e115512115572_))) - (_tl115510115577_ + (##car _e115509115569_))) + (_tl115507115574_ (let () (declare (not safe)) - (##cdr _e115512115572_)))) + (##cdr _e115509115569_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115510115577_)) - (let ((__tmp118249 + _tl115507115574_)) + (let ((__tmp118246 (let () (declare (not safe)) - (cons _hd115511115575_ - _expr115503115551_))) - (__tmp118248 + (cons _hd115508115572_ + _expr115500115548_))) + (__tmp118245 (let () (declare (not safe)) - (cons _hd115508115567_ - _bind115504115553_)))) + (cons _hd115505115564_ + _bind115501115550_)))) (declare (not safe)) - (_loop115499115546_ - _lp-tl115502115561_ - __tmp118249 - __tmp118248)) + (_loop115496115543_ + _lp-tl115499115558_ + __tmp118246 + __tmp118245)) (let () (declare (not safe)) - (_g115485115520_ - _g115486115523_))))) + (_g115482115517_ + _g115483115520_))))) (let () (declare (not safe)) - (_g115485115520_ _g115486115523_))))) + (_g115482115517_ _g115483115520_))))) (let () (declare (not safe)) - (_g115485115520_ _g115486115523_))))) - (let ((_expr115505115580_ (reverse _expr115503115551_)) - (_bind115506115582_ - (reverse _bind115504115553_))) + (_g115482115517_ _g115483115520_))))) + (let ((_expr115502115577_ (reverse _expr115500115548_)) + (_bind115503115579_ + (reverse _bind115501115550_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115493115538_)) - (let ((_e115515115585_ + (gx#stx-pair? _tl115490115535_)) + (let ((_e115512115582_ (let () (declare (not safe)) - (gx#stx-e _tl115493115538_)))) - (let ((_hd115514115588_ + (gx#stx-e _tl115490115535_)))) + (let ((_hd115511115585_ (let () (declare (not safe)) - (##car _e115515115585_))) - (_tl115513115590_ + (##car _e115512115582_))) + (_tl115510115587_ (let () (declare (not safe)) - (##cdr _e115515115585_)))) + (##cdr _e115512115582_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl115513115590_)) - ((lambda (_L115593_ _L115594_ _L115595_) - (let ((_$e115626_ - (let ((__tmp118247 - (lambda (_g115614115616_) + (gx#stx-null? _tl115510115587_)) + ((lambda (_L115590_ _L115591_ _L115592_) + (let ((_$e115623_ + (let ((__tmp118244 + (lambda (_g115611115613_) (let () (declare (not safe)) (gxc#compile-e__1 - _g115614115616_ - _arg115483_)))) - (__tmp118245 - (let ((__tmp118246 - (lambda (_g115618115621_ + _g115611115613_ + _arg115480_)))) + (__tmp118242 + (let ((__tmp118243 + (lambda (_g115615115618_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g115619115623_) + _g115616115620_) (let () (declare (not safe)) - (cons _g115618115621_ _g115619115623_))))) + (cons _g115615115618_ _g115616115620_))))) (declare (not safe)) - (foldr1 __tmp118246 '() _L115594_)))) + (foldr1 __tmp118243 '() _L115591_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (ormap1 __tmp118247 - __tmp118245)))) - (if _$e115626_ - _$e115626_ + (ormap1 __tmp118244 + __tmp118242)))) + (if _$e115623_ + _$e115623_ (let () (declare (not safe)) (gxc#compile-e__1 - _L115593_ - _arg115483_))))) - _hd115514115588_ - _expr115505115580_ - _bind115506115582_) + _L115590_ + _arg115480_))))) + _hd115511115585_ + _expr115502115577_ + _bind115503115579_) (let () (declare (not safe)) - (_g115485115520_ _g115486115523_))))) + (_g115482115517_ _g115483115520_))))) (let () (declare (not safe)) - (_g115485115520_ _g115486115523_)))))))) + (_g115482115517_ _g115483115520_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop115499115546_ - _target115496115541_ + (_loop115496115543_ + _target115493115538_ '() '()))) (let () (declare (not safe)) - (_g115485115520_ - _g115486115523_)))))) + (_g115482115517_ + _g115483115520_)))))) (let () (declare (not safe)) - (_g115485115520_ _g115486115523_))))) + (_g115482115517_ _g115483115520_))))) (let () (declare (not safe)) - (_g115485115520_ _g115486115523_))))) + (_g115482115517_ _g115483115520_))))) (let () (declare (not safe)) - (_g115485115520_ _g115486115523_)))))) + (_g115482115517_ _g115483115520_)))))) (declare (not safe)) - (_g115484115629_ _stx115482_)))) + (_g115481115626_ _stx115479_)))) (define gxc#find-setq% - (lambda (_stx115414_ _arg115415_) - (let* ((_g115417115434_ - (lambda (_g115418115431_) + (lambda (_stx115411_ _arg115412_) + (let* ((_g115414115431_ + (lambda (_g115415115428_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115418115431_)))) - (_g115416115479_ - (lambda (_g115418115437_) + _g115415115428_)))) + (_g115413115476_ + (lambda (_g115415115434_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115418115437_)) - (let ((_e115423115439_ + (gx#stx-pair? _g115415115434_)) + (let ((_e115420115436_ (let () (declare (not safe)) - (gx#stx-e _g115418115437_)))) - (let ((_hd115422115442_ + (gx#stx-e _g115415115434_)))) + (let ((_hd115419115439_ (let () (declare (not safe)) - (##car _e115423115439_))) - (_tl115421115444_ + (##car _e115420115436_))) + (_tl115418115441_ (let () (declare (not safe)) - (##cdr _e115423115439_)))) + (##cdr _e115420115436_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115421115444_)) - (let ((_e115426115447_ + (gx#stx-pair? _tl115418115441_)) + (let ((_e115423115444_ (let () (declare (not safe)) - (gx#stx-e _tl115421115444_)))) - (let ((_hd115425115450_ + (gx#stx-e _tl115418115441_)))) + (let ((_hd115422115447_ (let () (declare (not safe)) - (##car _e115426115447_))) - (_tl115424115452_ + (##car _e115423115444_))) + (_tl115421115449_ (let () (declare (not safe)) - (##cdr _e115426115447_)))) + (##cdr _e115423115444_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115424115452_)) - (let ((_e115429115455_ + (gx#stx-pair? _tl115421115449_)) + (let ((_e115426115452_ (let () (declare (not safe)) - (gx#stx-e _tl115424115452_)))) - (let ((_hd115428115458_ + (gx#stx-e _tl115421115449_)))) + (let ((_hd115425115455_ (let () (declare (not safe)) - (##car _e115429115455_))) - (_tl115427115460_ + (##car _e115426115452_))) + (_tl115424115457_ (let () (declare (not safe)) - (##cdr _e115429115455_)))) + (##cdr _e115426115452_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115427115460_)) - ((lambda (_L115463_ _L115464_) + _tl115424115457_)) + ((lambda (_L115460_ _L115461_) (let () (declare (not safe)) (gxc#compile-e__1 - _L115463_ - _arg115415_))) - _hd115428115458_ - _hd115425115450_) + _L115460_ + _arg115412_))) + _hd115425115455_ + _hd115422115447_) (let () (declare (not safe)) - (_g115417115434_ - _g115418115437_))))) + (_g115414115431_ + _g115415115434_))))) (let () (declare (not safe)) - (_g115417115434_ _g115418115437_))))) + (_g115414115431_ _g115415115434_))))) (let () (declare (not safe)) - (_g115417115434_ _g115418115437_))))) + (_g115414115431_ _g115415115434_))))) (let () (declare (not safe)) - (_g115417115434_ _g115418115437_)))))) + (_g115414115431_ _g115415115434_)))))) (declare (not safe)) - (_g115416115479_ _stx115414_)))) + (_g115413115476_ _stx115411_)))) (define gxc#find-var-refs-ref% - (lambda (_stx115358_ _ids115359_) - (let* ((_g115361115374_ - (lambda (_g115362115371_) + (lambda (_stx115355_ _ids115356_) + (let* ((_g115358115371_ + (lambda (_g115359115368_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115362115371_)))) - (_g115360115411_ - (lambda (_g115362115377_) + _g115359115368_)))) + (_g115357115408_ + (lambda (_g115359115374_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115362115377_)) - (let ((_e115366115379_ + (gx#stx-pair? _g115359115374_)) + (let ((_e115363115376_ (let () (declare (not safe)) - (gx#stx-e _g115362115377_)))) - (let ((_hd115365115382_ + (gx#stx-e _g115359115374_)))) + (let ((_hd115362115379_ (let () (declare (not safe)) - (##car _e115366115379_))) - (_tl115364115384_ + (##car _e115363115376_))) + (_tl115361115381_ (let () (declare (not safe)) - (##cdr _e115366115379_)))) + (##cdr _e115363115376_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115364115384_)) - (let ((_e115369115387_ + (gx#stx-pair? _tl115361115381_)) + (let ((_e115366115384_ (let () (declare (not safe)) - (gx#stx-e _tl115364115384_)))) - (let ((_hd115368115390_ + (gx#stx-e _tl115361115381_)))) + (let ((_hd115365115387_ (let () (declare (not safe)) - (##car _e115369115387_))) - (_tl115367115392_ + (##car _e115366115384_))) + (_tl115364115389_ (let () (declare (not safe)) - (##cdr _e115369115387_)))) + (##cdr _e115366115384_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl115367115392_)) - ((lambda (_L115395_) - (let ((__tmp118250 - (lambda (_g115406115408_) + (gx#stx-null? _tl115364115389_)) + ((lambda (_L115392_) + (let ((__tmp118247 + (lambda (_g115403115405_) (let () (declare (not safe)) (gx#free-identifier=? - _L115395_ - _g115406115408_))))) + _L115392_ + _g115403115405_))))) (declare (not safe)) - (find __tmp118250 _ids115359_))) - _hd115368115390_) + (find __tmp118247 _ids115356_))) + _hd115365115387_) (let () (declare (not safe)) - (_g115361115374_ _g115362115377_))))) + (_g115358115371_ _g115359115374_))))) (let () (declare (not safe)) - (_g115361115374_ _g115362115377_))))) + (_g115358115371_ _g115359115374_))))) (let () (declare (not safe)) - (_g115361115374_ _g115362115377_)))))) + (_g115358115371_ _g115359115374_)))))) (declare (not safe)) - (_g115360115411_ _stx115358_)))) + (_g115357115408_ _stx115355_)))) (define gxc#find-var-refs-setq% - (lambda (_stx115282_ _ids115283_) - (let* ((_g115285115302_ - (lambda (_g115286115299_) + (lambda (_stx115279_ _ids115280_) + (let* ((_g115282115299_ + (lambda (_g115283115296_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115286115299_)))) - (_g115284115355_ - (lambda (_g115286115305_) + _g115283115296_)))) + (_g115281115352_ + (lambda (_g115283115302_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115286115305_)) - (let ((_e115291115307_ + (gx#stx-pair? _g115283115302_)) + (let ((_e115288115304_ (let () (declare (not safe)) - (gx#stx-e _g115286115305_)))) - (let ((_hd115290115310_ + (gx#stx-e _g115283115302_)))) + (let ((_hd115287115307_ (let () (declare (not safe)) - (##car _e115291115307_))) - (_tl115289115312_ + (##car _e115288115304_))) + (_tl115286115309_ (let () (declare (not safe)) - (##cdr _e115291115307_)))) + (##cdr _e115288115304_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115289115312_)) - (let ((_e115294115315_ + (gx#stx-pair? _tl115286115309_)) + (let ((_e115291115312_ (let () (declare (not safe)) - (gx#stx-e _tl115289115312_)))) - (let ((_hd115293115318_ + (gx#stx-e _tl115286115309_)))) + (let ((_hd115290115315_ (let () (declare (not safe)) - (##car _e115294115315_))) - (_tl115292115320_ + (##car _e115291115312_))) + (_tl115289115317_ (let () (declare (not safe)) - (##cdr _e115294115315_)))) + (##cdr _e115291115312_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115292115320_)) - (let ((_e115297115323_ + (gx#stx-pair? _tl115289115317_)) + (let ((_e115294115320_ (let () (declare (not safe)) - (gx#stx-e _tl115292115320_)))) - (let ((_hd115296115326_ + (gx#stx-e _tl115289115317_)))) + (let ((_hd115293115323_ (let () (declare (not safe)) - (##car _e115297115323_))) - (_tl115295115328_ + (##car _e115294115320_))) + (_tl115292115325_ (let () (declare (not safe)) - (##cdr _e115297115323_)))) + (##cdr _e115294115320_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115295115328_)) - ((lambda (_L115331_ _L115332_) - (let ((_$e115352_ - (let ((__tmp118251 - (lambda (_g115347115349_) + _tl115292115325_)) + ((lambda (_L115328_ _L115329_) + (let ((_$e115349_ + (let ((__tmp118248 + (lambda (_g115344115346_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#free-identifier=? _L115332_ _g115347115349_))))) + (gx#free-identifier=? _L115329_ _g115344115346_))))) (declare (not safe)) - (find __tmp118251 _ids115283_)))) + (find __tmp118248 _ids115280_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e115352_ - _$e115352_ + (if _$e115349_ + _$e115349_ (let () (declare (not safe)) (gxc#compile-e__1 - _L115331_ - _ids115283_))))) - _hd115296115326_ - _hd115293115318_) + _L115328_ + _ids115280_))))) + _hd115293115323_ + _hd115290115315_) (let () (declare (not safe)) - (_g115285115302_ - _g115286115305_))))) + (_g115282115299_ + _g115283115302_))))) (let () (declare (not safe)) - (_g115285115302_ _g115286115305_))))) + (_g115282115299_ _g115283115302_))))) (let () (declare (not safe)) - (_g115285115302_ _g115286115305_))))) + (_g115282115299_ _g115283115302_))))) (let () (declare (not safe)) - (_g115285115302_ _g115286115305_)))))) + (_g115282115299_ _g115283115302_)))))) (declare (not safe)) - (_g115284115355_ _stx115282_)))))) + (_g115281115352_ _stx115279_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize__0.scm b/src/bootstrap/gerbil/compiler/optimize__0.scm index 37215be6..13024b56 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 1709128376) + (define gerbil/compiler/optimize::timestamp 1709229975) (begin (define gxc#optimizer-info-init! (lambda () (if (gxc#current-compile-optimizer-info) '#!void (gxc#current-compile-optimizer-info - (let ((__obj156556 + (let ((__obj156553 (let () (declare (not safe)) (##structure gxc#optimizer-info::t '#f '#f '#f)))) - (gxc#optimizer-info:::init! __obj156556) - __obj156556))))) + (gxc#optimizer-info:::init! __obj156553) + __obj156553))))) (define gxc#optimize! - (lambda (_ctx156249_) - (let ((__tmp156560 + (lambda (_ctx156246_) + (let ((__tmp156557 (lambda () (let () (declare (not safe)) - (gxc#optimizer-load-ssxi-deps _ctx156249_)) + (gxc#optimizer-load-ssxi-deps _ctx156246_)) (let () (declare (not safe)) (gxc#optimizer-load-builtin-ssxi)) - (let ((__tmp156562 + (let ((__tmp156559 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp156561 + (__tmp156558 (##structure-ref - _ctx156249_ + _ctx156246_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-put! __tmp156562 __tmp156561 '#t)) - (let ((_code156252_ - (let ((__tmp156563 + (hash-put! __tmp156559 __tmp156558 '#t)) + (let ((_code156249_ + (let ((__tmp156560 (##structure-ref - _ctx156249_ + _ctx156246_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#optimize-source __tmp156563)))) + (gxc#optimize-source __tmp156560)))) (##structure-set! - _ctx156249_ - _code156252_ + _ctx156246_ + _code156249_ '11 gx#module-context::t '#f)))) - (__tmp156559 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp156558 (let () (declare (not safe)) (make-hash-table-eq)))) + (__tmp156556 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp156555 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (call-with-parameters - __tmp156560 + __tmp156557 gxc#current-compile-mutators - __tmp156559 + __tmp156556 gxc#current-compile-local-type - __tmp156558)))) + __tmp156555)))) (define gxc#optimizer-load-builtin-ssxi (lambda () - (letrec ((_load-it!156245_ - (lambda (_id156247_) - (if (let ((__tmp156565 + (letrec ((_load-it!156242_ + (lambda (_id156244_) + (if (let ((__tmp156562 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp156565 _id156247_)) + (hash-get __tmp156562 _id156244_)) '#!void (begin (let () (declare (not safe)) - (gxc#optimizer-import-ssxi-by-id _id156247_)) - (let ((__tmp156564 + (gxc#optimizer-import-ssxi-by-id _id156244_)) + (let ((__tmp156561 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp156564 _id156247_ '#t))))))) + (hash-put! __tmp156561 _id156244_ '#t))))))) (for-each - _load-it!156245_ + _load-it!156242_ '(gerbil/runtime/gambit gerbil/runtime/util gerbil/runtime/table @@ -107,1688 +107,1688 @@ gerbil/runtime gerbil/builtin))))) (define gxc#optimizer-load-ssxi-deps - (lambda (_ctx156189_) - (letrec* ((_deps156191_ - (let* ((_imports156235_ + (lambda (_ctx156186_) + (letrec* ((_deps156188_ + (let* ((_imports156232_ (##structure-ref - _ctx156189_ + _ctx156186_ '8 gx#module-context::t '#f)) - (_$e156237_ + (_$e156234_ (let () (declare (not safe)) - (gx#core-context-prelude__% _ctx156189_)))) - (if _$e156237_ - ((lambda (_g156239156241_) + (gx#core-context-prelude__% _ctx156186_)))) + (if _$e156234_ + ((lambda (_g156236156238_) (let () (declare (not safe)) - (cons _g156239156241_ _imports156235_))) - _$e156237_) - _imports156235_)))) - (let _lp156193_ ((_rest156195_ _deps156191_)) - (let* ((_rest156196156204_ _rest156195_) - (_else156198156212_ (lambda () '#!void)) - (_K156200156223_ - (lambda (_rest156215_ _hd156216_) + (cons _g156236156238_ _imports156232_))) + _$e156234_) + _imports156232_)))) + (let _lp156190_ ((_rest156192_ _deps156188_)) + (let* ((_rest156193156201_ _rest156192_) + (_else156195156209_ (lambda () '#!void)) + (_K156197156220_ + (lambda (_rest156212_ _hd156213_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd156216_ + _hd156213_ 'gx#module-context::t)) (begin - (if (let ((__tmp156579 + (if (let ((__tmp156576 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp156578 + (__tmp156575 (##structure-ref - _hd156216_ + _hd156213_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-get __tmp156579 __tmp156578)) + (hash-get __tmp156576 __tmp156575)) '#!void (begin - (let ((_$e156218_ + (let ((_$e156215_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd156216_)))) - (if _$e156218_ - ((lambda (_pre156221_) - (let ((__tmp156576 - (let ((__tmp156577 + _hd156213_)))) + (if _$e156215_ + ((lambda (_pre156218_) + (let ((__tmp156573 + (let ((__tmp156574 (##structure-ref - _hd156216_ + _hd156213_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre156221_ - __tmp156577)))) + (cons _pre156218_ + __tmp156574)))) (declare (not safe)) - (_lp156193_ __tmp156576))) - _$e156218_) - (let ((__tmp156575 + (_lp156190_ __tmp156573))) + _$e156215_) + (let ((__tmp156572 (##structure-ref - _hd156216_ + _hd156213_ '8 gx#module-context::t '#f))) (declare (not safe)) - (_lp156193_ __tmp156575)))) + (_lp156190_ __tmp156572)))) (let () (declare (not safe)) - (gxc#optimizer-load-ssxi _hd156216_)))) + (gxc#optimizer-load-ssxi _hd156213_)))) (let () (declare (not safe)) - (_lp156193_ _rest156215_))) + (_lp156190_ _rest156212_))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd156216_ + _hd156213_ 'gx#prelude-context::t)) (begin - (if (let ((__tmp156574 + (if (let ((__tmp156571 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp156573 + (__tmp156570 (##structure-ref - _hd156216_ + _hd156213_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-get __tmp156574 __tmp156573)) + (hash-get __tmp156571 __tmp156570)) '#!void (begin - (let ((__tmp156572 + (let ((__tmp156569 (##structure-ref - _hd156216_ + _hd156213_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_lp156193_ __tmp156572)) + (_lp156190_ __tmp156569)) (let () (declare (not safe)) - (gxc#optimizer-load-ssxi _hd156216_)))) + (gxc#optimizer-load-ssxi _hd156213_)))) (let () (declare (not safe)) - (_lp156193_ _rest156215_))) + (_lp156190_ _rest156212_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd156216_ + _hd156213_ 'gx#module-import::t)) - (let ((__tmp156570 - (let ((__tmp156571 + (let ((__tmp156567 + (let ((__tmp156568 (##direct-structure-ref - _hd156216_ + _hd156213_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp156571 _rest156215_)))) + (cons __tmp156568 _rest156212_)))) (declare (not safe)) - (_lp156193_ __tmp156570)) + (_lp156190_ __tmp156567)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd156216_ + _hd156213_ 'gx#module-export::t)) - (let ((__tmp156568 - (let ((__tmp156569 + (let ((__tmp156565 + (let ((__tmp156566 (##direct-structure-ref - _hd156216_ + _hd156213_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp156569 - _rest156215_)))) + (cons __tmp156566 + _rest156212_)))) (declare (not safe)) - (_lp156193_ __tmp156568)) + (_lp156190_ __tmp156565)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd156216_ + _hd156213_ 'gx#import-set::t)) - (let ((__tmp156566 - (let ((__tmp156567 + (let ((__tmp156563 + (let ((__tmp156564 (##direct-structure-ref - _hd156216_ + _hd156213_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp156567 - _rest156215_)))) + (cons __tmp156564 + _rest156212_)))) (declare (not safe)) - (_lp156193_ __tmp156566)) + (_lp156190_ __tmp156563)) (let () (declare (not safe)) (error '"Unexpected module import" - _hd156216_)))))))))) - (if (let () (declare (not safe)) (##pair? _rest156196156204_)) - (let ((_hd156201156226_ + _hd156213_)))))))))) + (if (let () (declare (not safe)) (##pair? _rest156193156201_)) + (let ((_hd156198156223_ (let () (declare (not safe)) - (##car _rest156196156204_))) - (_tl156202156228_ + (##car _rest156193156201_))) + (_tl156199156225_ (let () (declare (not safe)) - (##cdr _rest156196156204_)))) - (let* ((_hd156231_ _hd156201156226_) - (_rest156233_ _tl156202156228_)) + (##cdr _rest156193156201_)))) + (let* ((_hd156228_ _hd156198156223_) + (_rest156230_ _tl156199156225_)) (declare (not safe)) - (_K156200156223_ _rest156233_ _hd156231_))) + (_K156197156220_ _rest156230_ _hd156228_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_ctx156169_) + (lambda (_ctx156166_) (if (and (let () (declare (not safe)) (##structure-instance-of? - _ctx156169_ + _ctx156166_ 'gx#module-context::t)) - (let ((__tmp156580 + (let ((__tmp156577 (##structure-ref - _ctx156169_ + _ctx156166_ '7 gx#module-context::t '#f))) (declare (not safe)) - (list? __tmp156580))) + (list? __tmp156577))) '#!void - (let* ((_ht156171_ + (let* ((_ht156168_ (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (_id156173_ + (_id156170_ (##structure-ref - _ctx156169_ + _ctx156166_ '1 gx#expander-context::t '#f)) - (_mod156175_ + (_mod156172_ (let () (declare (not safe)) - (hash-get _ht156171_ _id156173_)))) - (let ((_$e156178_ _mod156175_)) - (if _$e156178_ - _$e156178_ - (let* ((_mod156181_ + (hash-get _ht156168_ _id156170_)))) + (let ((_$e156175_ _mod156172_)) + (if _$e156175_ + _$e156175_ + (let* ((_mod156178_ (let () (declare (not safe)) - (gxc#optimizer-import-ssxi _ctx156169_))) - (_val156186_ - (let ((_$e156183_ _mod156181_)) - (if _$e156183_ _$e156183_ '#!void)))) + (gxc#optimizer-import-ssxi _ctx156166_))) + (_val156183_ + (let ((_$e156180_ _mod156178_)) + (if _$e156180_ _$e156180_ '#!void)))) (let () (declare (not safe)) - (hash-put! _ht156171_ _id156173_ _val156186_)) - _val156186_))))))) + (hash-put! _ht156168_ _id156170_ _val156183_)) + _val156183_))))))) (define gxc#optimizer-import-ssxi - (lambda (_ctx156167_) - (if (##structure-ref _ctx156167_ '1 gx#expander-context::t '#f) - (let ((__tmp156581 + (lambda (_ctx156164_) + (if (##structure-ref _ctx156164_ '1 gx#expander-context::t '#f) + (let ((__tmp156578 (##structure-ref - _ctx156167_ + _ctx156164_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#optimizer-import-ssxi-by-id __tmp156581)) + (gxc#optimizer-import-ssxi-by-id __tmp156578)) '#f))) (define gxc#optimizer-import-ssxi-by-id - (lambda (_id156144_) - (letrec ((_catch-e156146_ - (lambda (_exn156165_) + (lambda (_id156141_) + (letrec ((_catch-e156143_ + (lambda (_exn156162_) (if (gxc#current-compile-verbose) (begin (let () (declare (not safe)) (displayln '"Failed to load ssxi module for " - _id156144_)) - (display-exception _exn156165_)) + _id156141_)) + (display-exception _exn156162_)) '#!void) '#f)) - (_import-e156147_ + (_import-e156144_ (lambda () - (let* ((_str-id156150_ + (let* ((_str-id156147_ (string-append (let () (declare (not safe)) - (gxc#module-id->path-string _id156144_)) + (gxc#module-id->path-string _id156141_)) '".ssxi")) - (_artefact-path156158_ - (let ((_odir156151156153_ + (_artefact-path156155_ + (let ((_odir156148156150_ (gxc#current-compile-output-dir))) - (if _odir156151156153_ - (let ((_odir156156_ _odir156151156153_)) + (if _odir156148156150_ + (let ((_odir156153_ _odir156148156150_)) (path-expand - (string-append _str-id156150_ '".ss") - _odir156156_)) + (string-append _str-id156147_ '".ss") + _odir156153_)) '#f))) - (_library-path156160_ + (_library-path156157_ (string->symbol - (string-append '":" _str-id156150_ '".ss"))) - (_ssxi-path156162_ - (if (and _artefact-path156158_ - (file-exists? _artefact-path156158_)) - _artefact-path156158_ - _library-path156160_))) + (string-append '":" _str-id156147_ '".ss"))) + (_ssxi-path156159_ + (if (and _artefact-path156155_ + (file-exists? _artefact-path156155_)) + _artefact-path156155_ + _library-path156157_))) (let () (declare (not safe)) (gxc#verbose '"Loading ssxi module " - _ssxi-path156162_)) + _ssxi-path156159_)) (let () (declare (not safe)) - (gx#import-module__% _ssxi-path156162_ '#t '#t)))))) + (gx#import-module__% _ssxi-path156159_ '#t '#t)))))) (let () (declare (not safe)) - (with-catch _catch-e156146_ _import-e156147_))))) + (with-catch _catch-e156143_ _import-e156144_))))) (define gxc#optimize-source - (lambda (_stx156135_) - (let () (declare (not safe)) (gxc#apply-collect-mutators _stx156135_)) - (let () (declare (not safe)) (gxc#apply-collect-methods _stx156135_)) + (lambda (_stx156132_) + (let () (declare (not safe)) (gxc#apply-collect-mutators _stx156132_)) + (let () (declare (not safe)) (gxc#apply-collect-methods _stx156132_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-type-info _stx156135_)) - (let* ((_stx156137_ + (gxc#apply-collect-top-level-type-info _stx156132_)) + (let* ((_stx156134_ (let () (declare (not safe)) - (gxc#apply-generate-method-specializers _stx156135_))) - (_stx156139_ + (gxc#apply-generate-method-specializers _stx156132_))) + (_stx156136_ (let () (declare (not safe)) - (gxc#apply-lift-top-lambdas _stx156137_)))) + (gxc#apply-lift-top-lambdas _stx156134_)))) (let () (declare (not safe)) - (gxc#apply-collect-type-info _stx156139_)) - (let ((_stx156142_ + (gxc#apply-collect-type-info _stx156136_)) + (let ((_stx156139_ (let () (declare (not safe)) - (gxc#apply-optimize-annotated _stx156139_)))) + (gxc#apply-optimize-annotated _stx156136_)))) (declare (not safe)) - (gxc#apply-optimize-call _stx156142_))))) + (gxc#apply-optimize-call _stx156139_))))) (define gxc#&generate-ssxi (make-promise (lambda () - (let ((_tbl156132_ + (let ((_tbl156129_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp156582 (force gxc#&generate-runtime-empty))) + (let ((__tmp156579 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-merge! _tbl156132_ __tmp156582)) + (hash-merge! _tbl156129_ __tmp156579)) (let () (declare (not safe)) - (hash-put! _tbl156132_ '%#begin gxc#generate-runtime-begin%)) + (hash-put! _tbl156129_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) (hash-put! - _tbl156132_ + _tbl156129_ '%#begin-syntax gxc#generate-ssxi-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl156132_ '%#module gxc#generate-ssxi-module%)) + (hash-put! _tbl156129_ '%#module gxc#generate-ssxi-module%)) (let () (declare (not safe)) (hash-put! - _tbl156132_ + _tbl156129_ '%#define-values gxc#generate-ssxi-define-values%)) (let () (declare (not safe)) - (hash-put! _tbl156132_ '%#call gxc#generate-ssxi-call%)) - _tbl156132_)))) + (hash-put! _tbl156129_ '%#call gxc#generate-ssxi-call%)) + _tbl156129_)))) (define gxc#apply-generate-ssxi - (lambda (_stx156115_ . _args156117_) - (let ((__tmp156584 + (lambda (_stx156112_ . _args156114_) + (let ((__tmp156581 (lambda () (declare (not safe)) - (if (null? _args156117_) - (gxc#compile-e__0 _stx156115_) - (let ((_arg1156122_ (car _args156117_)) - (_rest156124_ (cdr _args156117_))) - (if (null? _rest156124_) - (gxc#compile-e__1 _stx156115_ _arg1156122_) - (let ((_arg2156127_ (car _rest156124_)) - (_rest156129_ (cdr _rest156124_))) - (if (null? _rest156129_) + (if (null? _args156114_) + (gxc#compile-e__0 _stx156112_) + (let ((_arg1156119_ (car _args156114_)) + (_rest156121_ (cdr _args156114_))) + (if (null? _rest156121_) + (gxc#compile-e__1 _stx156112_ _arg1156119_) + (let ((_arg2156124_ (car _rest156121_)) + (_rest156126_ (cdr _rest156121_))) + (if (null? _rest156126_) (gxc#compile-e__2 - _stx156115_ - _arg1156122_ - _arg2156127_) + _stx156112_ + _arg1156119_ + _arg2156124_) (apply gxc#compile-e - _stx156115_ - _arg1156122_ - _arg2156127_ - _rest156129_)))))))) - (__tmp156583 (force gxc#&generate-ssxi))) + _stx156112_ + _arg1156119_ + _arg2156124_ + _rest156126_)))))))) + (__tmp156580 (force gxc#&generate-ssxi))) (declare (not safe)) (call-with-parameters - __tmp156584 + __tmp156581 gxc#current-compile-methods - __tmp156583)))) + __tmp156580)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_stx156076_) - (let* ((_g156078156088_ - (lambda (_g156079156085_) + (lambda (_stx156073_) + (let* ((_g156075156085_ + (lambda (_g156076156082_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g156079156085_)))) - (_g156077156112_ - (lambda (_g156079156091_) + _g156076156082_)))) + (_g156074156109_ + (lambda (_g156076156088_) (if (let () (declare (not safe)) - (gx#stx-pair? _g156079156091_)) - (let ((_e156083156093_ + (gx#stx-pair? _g156076156088_)) + (let ((_e156080156090_ (let () (declare (not safe)) - (gx#stx-e _g156079156091_)))) - (let ((_hd156082156096_ + (gx#stx-e _g156076156088_)))) + (let ((_hd156079156093_ (let () (declare (not safe)) - (##car _e156083156093_))) - (_tl156081156098_ + (##car _e156080156090_))) + (_tl156078156095_ (let () (declare (not safe)) - (##cdr _e156083156093_)))) - ((lambda (_L156101_) - (let ((__tmp156587 + (##cdr _e156080156090_)))) + ((lambda (_L156098_) + (let ((__tmp156584 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-begin% - _stx156076_)))) - (__tmp156585 - (let ((__tmp156586 + _stx156073_)))) + (__tmp156582 + (let ((__tmp156583 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp156586 '1)))) + (fx+ __tmp156583 '1)))) (declare (not safe)) (call-with-parameters - __tmp156587 + __tmp156584 gx#current-expander-phi - __tmp156585))) - _tl156081156098_))) + __tmp156582))) + _tl156078156095_))) (let () (declare (not safe)) - (_g156078156088_ _g156079156091_)))))) + (_g156075156085_ _g156076156088_)))))) (declare (not safe)) - (_g156077156112_ _stx156076_)))) + (_g156074156109_ _stx156073_)))) (define gxc#generate-ssxi-module% - (lambda (_stx156016_) - (let* ((_g156018156032_ - (lambda (_g156019156029_) + (lambda (_stx156013_) + (let* ((_g156015156029_ + (lambda (_g156016156026_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g156019156029_)))) - (_g156017156073_ - (lambda (_g156019156035_) + _g156016156026_)))) + (_g156014156070_ + (lambda (_g156016156032_) (if (let () (declare (not safe)) - (gx#stx-pair? _g156019156035_)) - (let ((_e156024156037_ + (gx#stx-pair? _g156016156032_)) + (let ((_e156021156034_ (let () (declare (not safe)) - (gx#stx-e _g156019156035_)))) - (let ((_hd156023156040_ + (gx#stx-e _g156016156032_)))) + (let ((_hd156020156037_ (let () (declare (not safe)) - (##car _e156024156037_))) - (_tl156022156042_ + (##car _e156021156034_))) + (_tl156019156039_ (let () (declare (not safe)) - (##cdr _e156024156037_)))) + (##cdr _e156021156034_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl156022156042_)) - (let ((_e156027156045_ + (gx#stx-pair? _tl156019156039_)) + (let ((_e156024156042_ (let () (declare (not safe)) - (gx#stx-e _tl156022156042_)))) - (let ((_hd156026156048_ + (gx#stx-e _tl156019156039_)))) + (let ((_hd156023156045_ (let () (declare (not safe)) - (##car _e156027156045_))) - (_tl156025156050_ + (##car _e156024156042_))) + (_tl156022156047_ (let () (declare (not safe)) - (##cdr _e156027156045_)))) - ((lambda (_L156053_ _L156054_) - (let* ((_ctx156067_ + (##cdr _e156024156042_)))) + ((lambda (_L156050_ _L156051_) + (let* ((_ctx156064_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L156054_))) - (_code156069_ + _L156051_))) + (_code156066_ (##structure-ref - _ctx156067_ + _ctx156064_ '11 gx#module-context::t '#f))) - (let ((__tmp156588 + (let ((__tmp156585 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _code156069_))))) + _code156066_))))) (declare (not safe)) (call-with-parameters - __tmp156588 + __tmp156585 gx#current-expander-context - _ctx156067_)))) - _tl156025156050_ - _hd156026156048_))) + _ctx156064_)))) + _tl156022156047_ + _hd156023156045_))) (let () (declare (not safe)) - (_g156018156032_ _g156019156035_))))) + (_g156015156029_ _g156016156032_))))) (let () (declare (not safe)) - (_g156018156032_ _g156019156035_)))))) + (_g156015156029_ _g156016156032_)))))) (declare (not safe)) - (_g156017156073_ _stx156016_)))) + (_g156014156070_ _stx156013_)))) (define gxc#generate-ssxi-define-values% - (lambda (_stx155826_) - (letrec ((_generate-e155828_ - (lambda (_id156005_) - (let* ((_sym156007_ - (if (let ((__tmp156589 + (lambda (_stx155823_) + (letrec ((_generate-e155825_ + (lambda (_id156002_) + (let* ((_sym156004_ + (if (let ((__tmp156586 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'id)))) (declare (not safe)) - (gx#identifier? __tmp156589)) + (gx#identifier? __tmp156586)) (let () (declare (not safe)) - (gxc#identifier-symbol _id156005_)) + (gxc#identifier-symbol _id156002_)) '#f)) - (_$e156009_ - (if _sym156007_ + (_$e156006_ + (if _sym156004_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym156007_)) + (gxc#optimizer-lookup-type _sym156004_)) '#f))) - (if _$e156009_ - ((lambda (_type156012_) + (if _$e156006_ + ((lambda (_type156009_) (let () (declare (not safe)) - (gxc#verbose '"generate typedecl " _sym156007_)) - (let* ((_typedecl156014_ - (let ((__method156557 + (gxc#verbose '"generate typedecl " _sym156004_)) + (let* ((_typedecl156011_ + (let ((__method156554 (let () (declare (not safe)) (method-ref - _type156012_ + _type156009_ 'typedecl)))) - (if __method156557 - (__method156557 _type156012_) + (if __method156554 + (__method156554 _type156009_) (let () (declare (not safe)) (error '"Missing method" - _type156012_ + _type156009_ 'typedecl))))) - (__tmp156590 - (let ((__tmp156591 + (__tmp156587 + (let ((__tmp156588 (let () (declare (not safe)) - (cons _typedecl156014_ '())))) + (cons _typedecl156011_ '())))) (declare (not safe)) - (cons _sym156007_ __tmp156591)))) + (cons _sym156004_ __tmp156588)))) (declare (not safe)) - (cons 'declare-type __tmp156590))) - _$e156009_) + (cons 'declare-type __tmp156587))) + _$e156006_) '(begin)))))) - (let* ((___stx156255156256_ _stx155826_) - (_g155831155869_ + (let* ((___stx156252156253_ _stx155823_) + (_g155828155866_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx156255156256_))))) - (let ((___kont156257156258_ - (lambda (_L155987_) + ___stx156252156253_))))) + (let ((___kont156254156255_ + (lambda (_L155984_) (let () (declare (not safe)) - (_generate-e155828_ _L155987_)))) - (___kont156259156260_ - (lambda (_L155922_) - (let ((_types155948_ - (map _generate-e155828_ - (let ((__tmp156592 - (lambda (_g155940155943_ - _g155941155945_) + (_generate-e155825_ _L155984_)))) + (___kont156256156257_ + (lambda (_L155919_) + (let ((_types155945_ + (map _generate-e155825_ + (let ((__tmp156589 + (lambda (_g155937155940_ + _g155938155942_) (let () (declare (not safe)) - (cons _g155940155943_ - _g155941155945_))))) + (cons _g155937155940_ + _g155938155942_))))) (declare (not safe)) - (foldr1 __tmp156592 '() _L155922_))))) + (foldr1 __tmp156589 '() _L155919_))))) (declare (not safe)) - (cons 'begin _types155948_))))) - (let ((___match156310156311_ - (lambda (_e155849155874_ - _hd155848155877_ - _tl155847155879_ - _e155852155882_ - _hd155851155885_ - _tl155850155887_ - ___splice156261156262_ - _target155853155890_ - _tl155855155892_) - (letrec ((_loop155856155895_ - (lambda (_hd155854155898_ _id155860155900_) + (cons 'begin _types155945_))))) + (let ((___match156307156308_ + (lambda (_e155846155871_ + _hd155845155874_ + _tl155844155876_ + _e155849155879_ + _hd155848155882_ + _tl155847155884_ + ___splice156258156259_ + _target155850155887_ + _tl155852155889_) + (letrec ((_loop155853155892_ + (lambda (_hd155851155895_ _id155857155897_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd155854155898_)) - (let ((_e155857155903_ + (gx#stx-pair? _hd155851155895_)) + (let ((_e155854155900_ (let () (declare (not safe)) - (gx#stx-e _hd155854155898_)))) - (let ((_lp-tl155859155908_ + (gx#stx-e _hd155851155895_)))) + (let ((_lp-tl155856155905_ (let () (declare (not safe)) - (##cdr _e155857155903_))) - (_lp-hd155858155906_ + (##cdr _e155854155900_))) + (_lp-hd155855155903_ (let () (declare (not safe)) - (##car _e155857155903_)))) - (let ((__tmp156593 + (##car _e155854155900_)))) + (let ((__tmp156590 (let () (declare (not safe)) - (cons _lp-hd155858155906_ - _id155860155900_)))) + (cons _lp-hd155855155903_ + _id155857155897_)))) (declare (not safe)) - (_loop155856155895_ - _lp-tl155859155908_ - __tmp156593)))) - (let ((_id155861155911_ - (reverse _id155860155900_))) + (_loop155853155892_ + _lp-tl155856155905_ + __tmp156590)))) + (let ((_id155858155908_ + (reverse _id155857155897_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl155850155887_)) - (let ((_e155864155914_ + (gx#stx-pair? _tl155847155884_)) + (let ((_e155861155911_ (let () (declare (not safe)) (gx#stx-e - _tl155850155887_)))) - (let ((_tl155862155919_ + _tl155847155884_)))) + (let ((_tl155859155916_ (let () (declare (not safe)) - (##cdr _e155864155914_))) - (_hd155863155917_ + (##cdr _e155861155911_))) + (_hd155860155914_ (let () (declare (not safe)) - (##car _e155864155914_)))) + (##car _e155861155911_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155862155919_)) - (___kont156259156260_ - _id155861155911_) + _tl155859155916_)) + (___kont156256156257_ + _id155858155908_) (let () (declare (not safe)) - (_g155831155869_))))) + (_g155828155866_))))) (let () (declare (not safe)) - (_g155831155869_)))))))) + (_g155828155866_)))))))) (let () (declare (not safe)) - (_loop155856155895_ _target155853155890_ '())))))) + (_loop155853155892_ _target155850155887_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx156255156256_)) - (let ((_e155836155955_ + (gx#stx-pair? ___stx156252156253_)) + (let ((_e155833155952_ (let () (declare (not safe)) - (gx#stx-e ___stx156255156256_)))) - (let ((_tl155834155960_ + (gx#stx-e ___stx156252156253_)))) + (let ((_tl155831155957_ (let () (declare (not safe)) - (##cdr _e155836155955_))) - (_hd155835155958_ + (##cdr _e155833155952_))) + (_hd155832155955_ (let () (declare (not safe)) - (##car _e155836155955_)))) + (##car _e155833155952_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl155834155960_)) - (let ((_e155839155963_ + (gx#stx-pair? _tl155831155957_)) + (let ((_e155836155960_ (let () (declare (not safe)) - (gx#stx-e _tl155834155960_)))) - (let ((_tl155837155968_ + (gx#stx-e _tl155831155957_)))) + (let ((_tl155834155965_ (let () (declare (not safe)) - (##cdr _e155839155963_))) - (_hd155838155966_ + (##cdr _e155836155960_))) + (_hd155835155963_ (let () (declare (not safe)) - (##car _e155839155963_)))) + (##car _e155836155960_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd155838155966_)) - (let ((_e155842155971_ + (gx#stx-pair? _hd155835155963_)) + (let ((_e155839155968_ (let () (declare (not safe)) - (gx#stx-e _hd155838155966_)))) - (let ((_tl155840155976_ + (gx#stx-e _hd155835155963_)))) + (let ((_tl155837155973_ (let () (declare (not safe)) - (##cdr _e155842155971_))) - (_hd155841155974_ + (##cdr _e155839155968_))) + (_hd155838155971_ (let () (declare (not safe)) - (##car _e155842155971_)))) + (##car _e155839155968_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl155840155976_)) + (gx#stx-null? _tl155837155973_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl155837155968_)) - (let ((_e155845155979_ + _tl155834155965_)) + (let ((_e155842155976_ (let () (declare (not safe)) (gx#stx-e - _tl155837155968_)))) - (let ((_tl155843155984_ + _tl155834155965_)))) + (let ((_tl155840155981_ (let () (declare (not safe)) - (##cdr _e155845155979_))) - (_hd155844155982_ + (##cdr _e155842155976_))) + (_hd155841155979_ (let () (declare (not safe)) - (##car _e155845155979_)))) + (##car _e155842155976_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155843155984_)) - (___kont156257156258_ - _hd155841155974_) + _tl155840155981_)) + (___kont156254156255_ + _hd155838155971_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd155838155966_)) - (let ((___splice156261156262_ + _hd155835155963_)) + (let ((___splice156258156259_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd155838155966_ '0)))) - (let ((_tl155855155892_ + (gx#syntax-split-splice _hd155835155963_ '0)))) + (let ((_tl155852155889_ (let () (declare (not safe)) - (##vector-ref ___splice156261156262_ '1))) - (_target155853155890_ + (##vector-ref ___splice156258156259_ '1))) + (_target155850155887_ (let () (declare (not safe)) - (##vector-ref ___splice156261156262_ '0)))) + (##vector-ref ___splice156258156259_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl155855155892_)) - (___match156310156311_ - _e155836155955_ - _hd155835155958_ - _tl155834155960_ - _e155839155963_ - _hd155838155966_ - _tl155837155968_ - ___splice156261156262_ - _target155853155890_ - _tl155855155892_) - (let () (declare (not safe)) (_g155831155869_))))) - (let () (declare (not safe)) (_g155831155869_)))))) + (gx#stx-null? _tl155852155889_)) + (___match156307156308_ + _e155833155952_ + _hd155832155955_ + _tl155831155957_ + _e155836155960_ + _hd155835155963_ + _tl155834155965_ + ___splice156258156259_ + _target155850155887_ + _tl155852155889_) + (let () (declare (not safe)) (_g155828155866_))))) + (let () (declare (not safe)) (_g155828155866_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd155838155966_)) - (let ((___splice156261156262_ + _hd155835155963_)) + (let ((___splice156258156259_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd155838155966_ + _hd155835155963_ '0)))) - (let ((_tl155855155892_ + (let ((_tl155852155889_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice156261156262_ '1))) - (_target155853155890_ + (##vector-ref ___splice156258156259_ '1))) + (_target155850155887_ (let () (declare (not safe)) - (##vector-ref ___splice156261156262_ '0)))) + (##vector-ref ___splice156258156259_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl155855155892_)) - (___match156310156311_ - _e155836155955_ - _hd155835155958_ - _tl155834155960_ - _e155839155963_ - _hd155838155966_ - _tl155837155968_ - ___splice156261156262_ - _target155853155890_ - _tl155855155892_) - (let () (declare (not safe)) (_g155831155869_))))) + (gx#stx-null? _tl155852155889_)) + (___match156307156308_ + _e155833155952_ + _hd155832155955_ + _tl155831155957_ + _e155836155960_ + _hd155835155963_ + _tl155834155965_ + ___splice156258156259_ + _target155850155887_ + _tl155852155889_) + (let () (declare (not safe)) (_g155828155866_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g155831155869_)))) + (_g155828155866_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd155838155966_)) - (let ((___splice156261156262_ + _hd155835155963_)) + (let ((___splice156258156259_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd155838155966_ + _hd155835155963_ '0)))) - (let ((_tl155855155892_ + (let ((_tl155852155889_ (let () (declare (not safe)) (##vector-ref - ___splice156261156262_ + ___splice156258156259_ '1))) - (_target155853155890_ + (_target155850155887_ (let () (declare (not safe)) (##vector-ref - ___splice156261156262_ + ___splice156258156259_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155855155892_)) - (___match156310156311_ - _e155836155955_ - _hd155835155958_ - _tl155834155960_ - _e155839155963_ - _hd155838155966_ - _tl155837155968_ - ___splice156261156262_ - _target155853155890_ - _tl155855155892_) + _tl155852155889_)) + (___match156307156308_ + _e155833155952_ + _hd155832155955_ + _tl155831155957_ + _e155836155960_ + _hd155835155963_ + _tl155834155965_ + ___splice156258156259_ + _target155850155887_ + _tl155852155889_) (let () (declare (not safe)) - (_g155831155869_))))) + (_g155828155866_))))) (let () (declare (not safe)) - (_g155831155869_)))))) + (_g155828155866_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd155838155966_)) - (let ((___splice156261156262_ + (gx#stx-pair/null? _hd155835155963_)) + (let ((___splice156258156259_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd155838155966_ + _hd155835155963_ '0)))) - (let ((_tl155855155892_ + (let ((_tl155852155889_ (let () (declare (not safe)) (##vector-ref - ___splice156261156262_ + ___splice156258156259_ '1))) - (_target155853155890_ + (_target155850155887_ (let () (declare (not safe)) (##vector-ref - ___splice156261156262_ + ___splice156258156259_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155855155892_)) - (___match156310156311_ - _e155836155955_ - _hd155835155958_ - _tl155834155960_ - _e155839155963_ - _hd155838155966_ - _tl155837155968_ - ___splice156261156262_ - _target155853155890_ - _tl155855155892_) + _tl155852155889_)) + (___match156307156308_ + _e155833155952_ + _hd155832155955_ + _tl155831155957_ + _e155836155960_ + _hd155835155963_ + _tl155834155965_ + ___splice156258156259_ + _target155850155887_ + _tl155852155889_) (let () (declare (not safe)) - (_g155831155869_))))) + (_g155828155866_))))) (let () (declare (not safe)) - (_g155831155869_)))))) - (let () (declare (not safe)) (_g155831155869_))))) - (let () (declare (not safe)) (_g155831155869_))))))))) + (_g155828155866_)))))) + (let () (declare (not safe)) (_g155828155866_))))) + (let () (declare (not safe)) (_g155828155866_))))))))) (define gxc#generate-ssxi-call% - (lambda (_stx155380_) - (let* ((___stx156313156314_ _stx155380_) - (_g155384155486_ + (lambda (_stx155377_) + (let* ((___stx156310156311_ _stx155377_) + (_g155381155483_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx156313156314_))))) - (let ((___kont156315156316_ - (lambda (_L155776_ _L155777_ _L155778_ _L155779_ _L155780_) - (let ((__tmp156594 - (let ((__tmp156601 + ___stx156310156311_))))) + (let ((___kont156312156313_ + (lambda (_L155773_ _L155774_ _L155775_ _L155776_ _L155777_) + (let ((__tmp156591 + (let ((__tmp156598 (let () (declare (not safe)) - (gxc#identifier-symbol _L155779_))) - (__tmp156595 - (let ((__tmp156600 + (gxc#identifier-symbol _L155776_))) + (__tmp156592 + (let ((__tmp156597 (let () (declare (not safe)) - (gx#stx-e _L155778_))) - (__tmp156596 - (let ((__tmp156599 + (gx#stx-e _L155775_))) + (__tmp156593 + (let ((__tmp156596 (let () (declare (not safe)) (gxc#identifier-symbol - _L155777_))) - (__tmp156597 - (let ((__tmp156598 + _L155774_))) + (__tmp156594 + (let ((__tmp156595 (let () (declare (not safe)) - (gx#stx-e _L155776_)))) + (gx#stx-e _L155773_)))) (declare (not safe)) - (cons __tmp156598 '())))) + (cons __tmp156595 '())))) (declare (not safe)) - (cons __tmp156599 __tmp156597)))) + (cons __tmp156596 __tmp156594)))) (declare (not safe)) - (cons __tmp156600 __tmp156596)))) + (cons __tmp156597 __tmp156593)))) (declare (not safe)) - (cons __tmp156601 __tmp156595)))) + (cons __tmp156598 __tmp156592)))) (declare (not safe)) - (cons 'declare-method __tmp156594)))) - (___kont156317156318_ - (lambda (_L155602_ _L155603_ _L155604_ _L155605_) - (let ((__tmp156602 - (let ((__tmp156608 + (cons 'declare-method __tmp156591)))) + (___kont156314156315_ + (lambda (_L155599_ _L155600_ _L155601_ _L155602_) + (let ((__tmp156599 + (let ((__tmp156605 (let () (declare (not safe)) - (gxc#identifier-symbol _L155604_))) - (__tmp156603 - (let ((__tmp156607 + (gxc#identifier-symbol _L155601_))) + (__tmp156600 + (let ((__tmp156604 (let () (declare (not safe)) - (gx#stx-e _L155603_))) - (__tmp156604 - (let ((__tmp156606 + (gx#stx-e _L155600_))) + (__tmp156601 + (let ((__tmp156603 (let () (declare (not safe)) (gxc#identifier-symbol - _L155602_))) - (__tmp156605 + _L155599_))) + (__tmp156602 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp156606 __tmp156605)))) + (cons __tmp156603 __tmp156602)))) (declare (not safe)) - (cons __tmp156607 __tmp156604)))) + (cons __tmp156604 __tmp156601)))) (declare (not safe)) - (cons __tmp156608 __tmp156603)))) + (cons __tmp156605 __tmp156600)))) (declare (not safe)) - (cons 'declare-method __tmp156602)))) - (___kont156319156320_ (lambda () '(begin)))) - (let ((___match156448156449_ - (lambda (_e155393155648_ - _hd155392155651_ - _tl155391155653_ - _e155396155656_ - _hd155395155659_ - _tl155394155661_ - _e155399155664_ - _hd155398155667_ - _tl155397155669_ - _e155402155672_ - _hd155401155675_ - _tl155400155677_ - _e155405155680_ - _hd155404155683_ - _tl155403155685_ - _e155408155688_ - _hd155407155691_ - _tl155406155693_ - _e155411155696_ - _hd155410155699_ - _tl155409155701_ - _e155414155704_ - _hd155413155707_ - _tl155412155709_ - _e155417155712_ - _hd155416155715_ - _tl155415155717_ - _e155420155720_ - _hd155419155723_ - _tl155418155725_ - _e155423155728_ - _hd155422155731_ - _tl155421155733_ - _e155426155736_ - _hd155425155739_ - _tl155424155741_ - _e155429155744_ - _hd155428155747_ - _tl155427155749_ - _e155432155752_ - _hd155431155755_ - _tl155430155757_ - _e155435155760_ - _hd155434155763_ - _tl155433155765_ - _e155438155768_ - _hd155437155771_ - _tl155436155773_) - (let ((_L155776_ _hd155437155771_) - (_L155777_ _hd155428155747_) - (_L155778_ _hd155419155723_) - (_L155779_ _hd155410155699_) - (_L155780_ _hd155401155675_)) + (cons 'declare-method __tmp156599)))) + (___kont156316156317_ (lambda () '(begin)))) + (let ((___match156445156446_ + (lambda (_e155390155645_ + _hd155389155648_ + _tl155388155650_ + _e155393155653_ + _hd155392155656_ + _tl155391155658_ + _e155396155661_ + _hd155395155664_ + _tl155394155666_ + _e155399155669_ + _hd155398155672_ + _tl155397155674_ + _e155402155677_ + _hd155401155680_ + _tl155400155682_ + _e155405155685_ + _hd155404155688_ + _tl155403155690_ + _e155408155693_ + _hd155407155696_ + _tl155406155698_ + _e155411155701_ + _hd155410155704_ + _tl155409155706_ + _e155414155709_ + _hd155413155712_ + _tl155412155714_ + _e155417155717_ + _hd155416155720_ + _tl155415155722_ + _e155420155725_ + _hd155419155728_ + _tl155418155730_ + _e155423155733_ + _hd155422155736_ + _tl155421155738_ + _e155426155741_ + _hd155425155744_ + _tl155424155746_ + _e155429155749_ + _hd155428155752_ + _tl155427155754_ + _e155432155757_ + _hd155431155760_ + _tl155430155762_ + _e155435155765_ + _hd155434155768_ + _tl155433155770_) + (let ((_L155773_ _hd155434155768_) + (_L155774_ _hd155425155744_) + (_L155775_ _hd155416155720_) + (_L155776_ _hd155407155696_) + (_L155777_ _hd155398155672_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L155780_ + _L155777_ 'bind-method!)) - (___kont156315156316_ + (___kont156312156313_ + _L155773_ + _L155774_ + _L155775_ _L155776_ - _L155777_ - _L155778_ - _L155779_ - _L155780_) - (___kont156319156320_)))))) + _L155777_) + (___kont156316156317_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx156313156314_)) - (let ((_e155393155648_ + (gx#stx-pair? ___stx156310156311_)) + (let ((_e155390155645_ (let () (declare (not safe)) - (gx#stx-e ___stx156313156314_)))) - (let ((_tl155391155653_ + (gx#stx-e ___stx156310156311_)))) + (let ((_tl155388155650_ (let () (declare (not safe)) - (##cdr _e155393155648_))) - (_hd155392155651_ + (##cdr _e155390155645_))) + (_hd155389155648_ (let () (declare (not safe)) - (##car _e155393155648_)))) + (##car _e155390155645_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl155391155653_)) - (let ((_e155396155656_ + (gx#stx-pair? _tl155388155650_)) + (let ((_e155393155653_ (let () (declare (not safe)) - (gx#stx-e _tl155391155653_)))) - (let ((_tl155394155661_ + (gx#stx-e _tl155388155650_)))) + (let ((_tl155391155658_ (let () (declare (not safe)) - (##cdr _e155396155656_))) - (_hd155395155659_ + (##cdr _e155393155653_))) + (_hd155392155656_ (let () (declare (not safe)) - (##car _e155396155656_)))) + (##car _e155393155653_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd155395155659_)) - (let ((_e155399155664_ + (gx#stx-pair? _hd155392155656_)) + (let ((_e155396155661_ (let () (declare (not safe)) - (gx#stx-e _hd155395155659_)))) - (let ((_tl155397155669_ + (gx#stx-e _hd155392155656_)))) + (let ((_tl155394155666_ (let () (declare (not safe)) - (##cdr _e155399155664_))) - (_hd155398155667_ + (##cdr _e155396155661_))) + (_hd155395155664_ (let () (declare (not safe)) - (##car _e155399155664_)))) + (##car _e155396155661_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd155398155667_)) + (gx#identifier? _hd155395155664_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd155398155667_)) + _hd155395155664_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl155397155669_)) - (let ((_e155402155672_ + _tl155394155666_)) + (let ((_e155399155669_ (let () (declare (not safe)) (gx#stx-e - _tl155397155669_)))) - (let ((_tl155400155677_ + _tl155394155666_)))) + (let ((_tl155397155674_ (let () (declare (not safe)) - (##cdr _e155402155672_))) - (_hd155401155675_ + (##cdr _e155399155669_))) + (_hd155398155672_ (let () (declare (not safe)) - (##car _e155402155672_)))) + (##car _e155399155669_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155400155677_)) + _tl155397155674_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl155394155661_)) - (let ((_e155405155680_ + (gx#stx-pair? _tl155391155658_)) + (let ((_e155402155677_ (let () (declare (not safe)) - (gx#stx-e _tl155394155661_)))) - (let ((_tl155403155685_ + (gx#stx-e _tl155391155658_)))) + (let ((_tl155400155682_ (let () (declare (not safe)) - (##cdr _e155405155680_))) - (_hd155404155683_ + (##cdr _e155402155677_))) + (_hd155401155680_ (let () (declare (not safe)) - (##car _e155405155680_)))) + (##car _e155402155677_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd155404155683_)) - (let ((_e155408155688_ + (gx#stx-pair? _hd155401155680_)) + (let ((_e155405155685_ (let () (declare (not safe)) - (gx#stx-e _hd155404155683_)))) - (let ((_tl155406155693_ + (gx#stx-e _hd155401155680_)))) + (let ((_tl155403155690_ (let () (declare (not safe)) - (##cdr _e155408155688_))) - (_hd155407155691_ + (##cdr _e155405155685_))) + (_hd155404155688_ (let () (declare (not safe)) - (##car _e155408155688_)))) + (##car _e155405155685_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd155407155691_)) + (gx#identifier? _hd155404155688_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd155407155691_)) + _hd155404155688_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl155406155693_)) - (let ((_e155411155696_ + _tl155403155690_)) + (let ((_e155408155693_ (let () (declare (not safe)) (gx#stx-e - _tl155406155693_)))) - (let ((_tl155409155701_ + _tl155403155690_)))) + (let ((_tl155406155698_ (let () (declare (not safe)) - (##cdr _e155411155696_))) - (_hd155410155699_ + (##cdr _e155408155693_))) + (_hd155407155696_ (let () (declare (not safe)) - (##car _e155411155696_)))) + (##car _e155408155693_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155409155701_)) + _tl155406155698_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl155403155685_)) - (let ((_e155414155704_ + _tl155400155682_)) + (let ((_e155411155701_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl155403155685_)))) - (let ((_tl155412155709_ + (gx#stx-e _tl155400155682_)))) + (let ((_tl155409155706_ (let () (declare (not safe)) - (##cdr _e155414155704_))) - (_hd155413155707_ + (##cdr _e155411155701_))) + (_hd155410155704_ (let () (declare (not safe)) - (##car _e155414155704_)))) + (##car _e155411155701_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd155413155707_)) - (let ((_e155417155712_ + (gx#stx-pair? _hd155410155704_)) + (let ((_e155414155709_ (let () (declare (not safe)) - (gx#stx-e _hd155413155707_)))) - (let ((_tl155415155717_ + (gx#stx-e _hd155410155704_)))) + (let ((_tl155412155714_ (let () (declare (not safe)) - (##cdr _e155417155712_))) - (_hd155416155715_ + (##cdr _e155414155709_))) + (_hd155413155712_ (let () (declare (not safe)) - (##car _e155417155712_)))) + (##car _e155414155709_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd155416155715_)) + (gx#identifier? _hd155413155712_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd155416155715_)) + (gx#stx-eq? '%#quote _hd155413155712_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl155415155717_)) - (let ((_e155420155720_ + (gx#stx-pair? _tl155412155714_)) + (let ((_e155417155717_ (let () (declare (not safe)) (gx#stx-e - _tl155415155717_)))) - (let ((_tl155418155725_ + _tl155412155714_)))) + (let ((_tl155415155722_ (let () (declare (not safe)) - (##cdr _e155420155720_))) - (_hd155419155723_ + (##cdr _e155417155717_))) + (_hd155416155720_ (let () (declare (not safe)) - (##car _e155420155720_)))) + (##car _e155417155717_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155418155725_)) + _tl155415155722_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl155412155709_)) - (let ((_e155423155728_ + _tl155409155706_)) + (let ((_e155420155725_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl155412155709_)))) - (let ((_tl155421155733_ - (let () (declare (not safe)) (##cdr _e155423155728_))) - (_hd155422155731_ - (let () (declare (not safe)) (##car _e155423155728_)))) + (gx#stx-e _tl155409155706_)))) + (let ((_tl155418155730_ + (let () (declare (not safe)) (##cdr _e155420155725_))) + (_hd155419155728_ + (let () (declare (not safe)) (##car _e155420155725_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd155422155731_)) - (let ((_e155426155736_ + (gx#stx-pair? _hd155419155728_)) + (let ((_e155423155733_ (let () (declare (not safe)) - (gx#stx-e _hd155422155731_)))) - (let ((_tl155424155741_ + (gx#stx-e _hd155419155728_)))) + (let ((_tl155421155738_ (let () (declare (not safe)) - (##cdr _e155426155736_))) - (_hd155425155739_ + (##cdr _e155423155733_))) + (_hd155422155736_ (let () (declare (not safe)) - (##car _e155426155736_)))) + (##car _e155423155733_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd155425155739_)) + (gx#identifier? _hd155422155736_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd155425155739_)) + (gx#stx-eq? '%#ref _hd155422155736_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl155424155741_)) - (let ((_e155429155744_ + (gx#stx-pair? _tl155421155738_)) + (let ((_e155426155741_ (let () (declare (not safe)) - (gx#stx-e _tl155424155741_)))) - (let ((_tl155427155749_ + (gx#stx-e _tl155421155738_)))) + (let ((_tl155424155746_ (let () (declare (not safe)) - (##cdr _e155429155744_))) - (_hd155428155747_ + (##cdr _e155426155741_))) + (_hd155425155744_ (let () (declare (not safe)) - (##car _e155429155744_)))) + (##car _e155426155741_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155427155749_)) + _tl155424155746_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl155421155733_)) - (let ((_e155432155752_ + _tl155418155730_)) + (let ((_e155429155749_ (let () (declare (not safe)) (gx#stx-e - _tl155421155733_)))) - (let ((_tl155430155757_ + _tl155418155730_)))) + (let ((_tl155427155754_ (let () (declare (not safe)) - (##cdr _e155432155752_))) - (_hd155431155755_ + (##cdr _e155429155749_))) + (_hd155428155752_ (let () (declare (not safe)) - (##car _e155432155752_)))) + (##car _e155429155749_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd155431155755_)) - (let ((_e155435155760_ + _hd155428155752_)) + (let ((_e155432155757_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd155431155755_)))) - (let ((_tl155433155765_ + (gx#stx-e _hd155428155752_)))) + (let ((_tl155430155762_ (let () (declare (not safe)) - (##cdr _e155435155760_))) - (_hd155434155763_ + (##cdr _e155432155757_))) + (_hd155431155760_ (let () (declare (not safe)) - (##car _e155435155760_)))) + (##car _e155432155757_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd155434155763_)) + (gx#identifier? _hd155431155760_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd155434155763_)) + (gx#stx-eq? '%#quote _hd155431155760_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl155433155765_)) - (let ((_e155438155768_ + (gx#stx-pair? _tl155430155762_)) + (let ((_e155435155765_ (let () (declare (not safe)) - (gx#stx-e _tl155433155765_)))) - (let ((_tl155436155773_ + (gx#stx-e _tl155430155762_)))) + (let ((_tl155433155770_ (let () (declare (not safe)) - (##cdr _e155438155768_))) - (_hd155437155771_ + (##cdr _e155435155765_))) + (_hd155434155768_ (let () (declare (not safe)) - (##car _e155438155768_)))) + (##car _e155435155765_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl155436155773_)) + (gx#stx-null? _tl155433155770_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl155430155757_)) - (___match156448156449_ - _e155393155648_ - _hd155392155651_ - _tl155391155653_ - _e155396155656_ - _hd155395155659_ - _tl155394155661_ - _e155399155664_ - _hd155398155667_ - _tl155397155669_ - _e155402155672_ - _hd155401155675_ - _tl155400155677_ - _e155405155680_ - _hd155404155683_ - _tl155403155685_ - _e155408155688_ - _hd155407155691_ - _tl155406155693_ - _e155411155696_ - _hd155410155699_ - _tl155409155701_ - _e155414155704_ - _hd155413155707_ - _tl155412155709_ - _e155417155712_ - _hd155416155715_ - _tl155415155717_ - _e155420155720_ - _hd155419155723_ - _tl155418155725_ - _e155423155728_ - _hd155422155731_ - _tl155421155733_ - _e155426155736_ - _hd155425155739_ - _tl155424155741_ - _e155429155744_ - _hd155428155747_ - _tl155427155749_ - _e155432155752_ - _hd155431155755_ - _tl155430155757_ - _e155435155760_ - _hd155434155763_ - _tl155433155765_ - _e155438155768_ - _hd155437155771_ - _tl155436155773_) - (___kont156319156320_)) - (___kont156319156320_)))) - (___kont156319156320_)) - (___kont156319156320_)) - (___kont156319156320_)))) - (___kont156319156320_)))) + _tl155427155754_)) + (___match156445156446_ + _e155390155645_ + _hd155389155648_ + _tl155388155650_ + _e155393155653_ + _hd155392155656_ + _tl155391155658_ + _e155396155661_ + _hd155395155664_ + _tl155394155666_ + _e155399155669_ + _hd155398155672_ + _tl155397155674_ + _e155402155677_ + _hd155401155680_ + _tl155400155682_ + _e155405155685_ + _hd155404155688_ + _tl155403155690_ + _e155408155693_ + _hd155407155696_ + _tl155406155698_ + _e155411155701_ + _hd155410155704_ + _tl155409155706_ + _e155414155709_ + _hd155413155712_ + _tl155412155714_ + _e155417155717_ + _hd155416155720_ + _tl155415155722_ + _e155420155725_ + _hd155419155728_ + _tl155418155730_ + _e155423155733_ + _hd155422155736_ + _tl155421155738_ + _e155426155741_ + _hd155425155744_ + _tl155424155746_ + _e155429155749_ + _hd155428155752_ + _tl155427155754_ + _e155432155757_ + _hd155431155760_ + _tl155430155762_ + _e155435155765_ + _hd155434155768_ + _tl155433155770_) + (___kont156316156317_)) + (___kont156316156317_)))) + (___kont156316156317_)) + (___kont156316156317_)) + (___kont156316156317_)))) + (___kont156316156317_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl155421155733_)) - (if (let ((__tmp156609 + _tl155418155730_)) + (if (let ((__tmp156606 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp156609 'bind-method!)) - (let ((_L155602_ _hd155428155747_) - (_L155603_ _hd155419155723_) - (_L155604_ _hd155410155699_) - (_L155605_ _hd155401155675_)) - (___kont156317156318_ - _L155602_ - _L155603_ - _L155604_ - _L155605_)) - (___kont156319156320_)) - (___kont156319156320_))) + (gxc#runtime-identifier=? __tmp156606 'bind-method!)) + (let ((_L155599_ _hd155425155744_) + (_L155600_ _hd155416155720_) + (_L155601_ _hd155407155696_) + (_L155602_ _hd155398155672_)) + (___kont156314156315_ + _L155599_ + _L155600_ + _L155601_ + _L155602_)) + (___kont156316156317_)) + (___kont156316156317_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont156319156320_)))) - (___kont156319156320_)) - (___kont156319156320_)) - (___kont156319156320_)))) - (___kont156319156320_)))) - (___kont156319156320_)) + (___kont156316156317_)))) + (___kont156316156317_)) + (___kont156316156317_)) + (___kont156316156317_)))) + (___kont156316156317_)))) + (___kont156316156317_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont156319156320_)))) - (___kont156319156320_)) - (___kont156319156320_)) - (___kont156319156320_)))) - (___kont156319156320_)))) - (___kont156319156320_)) - (___kont156319156320_)))) + (___kont156316156317_)))) + (___kont156316156317_)) + (___kont156316156317_)) + (___kont156316156317_)))) + (___kont156316156317_)))) + (___kont156316156317_)) + (___kont156316156317_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont156319156320_)) - (___kont156319156320_)) - (___kont156319156320_)))) - (___kont156319156320_)))) - (___kont156319156320_)) - (___kont156319156320_)))) + (___kont156316156317_)) + (___kont156316156317_)) + (___kont156316156317_)))) + (___kont156316156317_)))) + (___kont156316156317_)) + (___kont156316156317_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont156319156320_)) - (___kont156319156320_)) - (___kont156319156320_)))) - (___kont156319156320_)))) - (___kont156319156320_)))) - (___kont156319156320_))))))) + (___kont156316156317_)) + (___kont156316156317_)) + (___kont156316156317_)))) + (___kont156316156317_)))) + (___kont156316156317_)))) + (___kont156316156317_))))))) (define gxc#!alias::typedecl - (lambda (_self155356_) - (let* ((_self155357155363_ _self155356_) - (_E155359155367_ + (lambda (_self155353_) + (let* ((_self155354155360_ _self155353_) + (_E155356155364_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self155357155363_)))) - (_K155360155372_ - (lambda (_alias-id155370_) - (let ((__tmp156610 + (error '"No clause matching" _self155354155360_)))) + (_K155357155369_ + (lambda (_alias-id155367_) + (let ((__tmp156607 (let () (declare (not safe)) - (cons _alias-id155370_ '())))) + (cons _alias-id155367_ '())))) (declare (not safe)) - (cons '@alias __tmp156610))))) + (cons '@alias __tmp156607))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self155357155363_ 'gxc#!alias::t)) - (let* ((_e155361155375_ + (##structure-instance-of? _self155354155360_ 'gxc#!alias::t)) + (let* ((_e155358155372_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155357155363_ + _self155354155360_ '1 gxc#!type::t '#f))) - (_alias-id155378_ _e155361155375_)) + (_alias-id155375_ _e155358155372_)) (declare (not safe)) - (_K155360155372_ _alias-id155378_)) - (let () (declare (not safe)) (_E155359155367_)))))) + (_K155357155369_ _alias-id155375_)) + (let () (declare (not safe)) (_E155356155364_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) (define gxc#!class::typedecl - (lambda (_self155147_) - (let* ((_self155148155163_ _self155147_) - (_E155150155167_ + (lambda (_self155144_) + (let* ((_self155145155160_ _self155144_) + (_E155147155164_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self155148155163_)))) - (_K155151155181_ - (lambda (_methods155170_ - _metaclass155171_ - _final?155172_ - _struct?155173_ - _constructor155174_ - _fields155175_ - _slots155176_ - _precendence-list155177_ - _super155178_ - _id155179_) - (let ((__tmp156611 - (let ((__tmp156612 - (let ((__tmp156613 - (let ((__tmp156614 - (let ((__tmp156615 - (let ((__tmp156616 - (let ((__tmp156617 + (error '"No clause matching" _self155145155160_)))) + (_K155148155178_ + (lambda (_methods155167_ + _metaclass155168_ + _final?155169_ + _struct?155170_ + _constructor155171_ + _fields155172_ + _slots155173_ + _precendence-list155174_ + _super155175_ + _id155176_) + (let ((__tmp156608 + (let ((__tmp156609 + (let ((__tmp156610 + (let ((__tmp156611 + (let ((__tmp156612 + (let ((__tmp156613 + (let ((__tmp156614 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp156618 - (let ((__tmp156619 - (let ((__tmp156620 - (let ((__tmp156621 - (if _methods155170_ + (let ((__tmp156615 + (let ((__tmp156616 + (let ((__tmp156617 + (let ((__tmp156618 + (if _methods155167_ (let () (declare (not safe)) (hash->list - _methods155170_)) + _methods155167_)) '#f))) (declare (not safe)) - (cons __tmp156621 '())))) + (cons __tmp156618 '())))) (declare (not safe)) - (cons _metaclass155171_ - __tmp156620)))) + (cons _metaclass155168_ + __tmp156617)))) (declare (not safe)) - (cons _final?155172_ __tmp156619)))) + (cons _final?155169_ __tmp156616)))) (declare (not safe)) - (cons _struct?155173_ __tmp156618)))) + (cons _struct?155170_ __tmp156615)))) (declare (not safe)) - (cons _constructor155174_ __tmp156617)))) + (cons _constructor155171_ __tmp156614)))) (declare (not safe)) - (cons _fields155175_ __tmp156616)))) + (cons _fields155172_ __tmp156613)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _slots155176_ - __tmp156615)))) + (cons _slots155173_ + __tmp156612)))) (declare (not safe)) - (cons _precendence-list155177_ - __tmp156614)))) + (cons _precendence-list155174_ + __tmp156611)))) (declare (not safe)) - (cons _super155178_ __tmp156613)))) + (cons _super155175_ __tmp156610)))) (declare (not safe)) - (cons _id155179_ __tmp156612)))) + (cons _id155176_ __tmp156609)))) (declare (not safe)) - (cons '@class __tmp156611))))) + (cons '@class __tmp156608))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self155148155163_ 'gxc#!class::t)) - (let* ((_e155152155184_ + (##structure-instance-of? _self155145155160_ 'gxc#!class::t)) + (let* ((_e155149155181_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155148155163_ + _self155145155160_ '1 gxc#!type::t '#f))) - (_id155187_ _e155152155184_) - (_e155153155189_ + (_id155184_ _e155149155181_) + (_e155150155186_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155148155163_ + _self155145155160_ '2 gxc#!class::t '#f))) - (_super155192_ _e155153155189_) - (_e155154155194_ + (_super155189_ _e155150155186_) + (_e155151155191_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155148155163_ + _self155145155160_ '3 gxc#!class::t '#f))) - (_precendence-list155197_ _e155154155194_) - (_e155155155199_ + (_precendence-list155194_ _e155151155191_) + (_e155152155196_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155148155163_ + _self155145155160_ '4 gxc#!class::t '#f))) - (_slots155202_ _e155155155199_) - (_e155156155204_ + (_slots155199_ _e155152155196_) + (_e155153155201_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155148155163_ + _self155145155160_ '5 gxc#!class::t '#f))) - (_fields155207_ _e155156155204_) - (_e155157155209_ + (_fields155204_ _e155153155201_) + (_e155154155206_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155148155163_ + _self155145155160_ '6 gxc#!class::t '#f))) - (_constructor155212_ _e155157155209_) - (_e155158155214_ + (_constructor155209_ _e155154155206_) + (_e155155155211_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155148155163_ + _self155145155160_ '7 gxc#!class::t '#f))) - (_struct?155217_ _e155158155214_) - (_e155159155219_ + (_struct?155214_ _e155155155211_) + (_e155156155216_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155148155163_ + _self155145155160_ '8 gxc#!class::t '#f))) - (_final?155222_ _e155159155219_) - (_e155160155224_ + (_final?155219_ _e155156155216_) + (_e155157155221_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155148155163_ + _self155145155160_ '9 gxc#!class::t '#f))) - (_metaclass155227_ _e155160155224_) - (_e155161155229_ + (_metaclass155224_ _e155157155221_) + (_e155158155226_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155148155163_ + _self155145155160_ '10 gxc#!class::t '#f))) - (_methods155232_ _e155161155229_)) + (_methods155229_ _e155158155226_)) (declare (not safe)) - (_K155151155181_ - _methods155232_ - _metaclass155227_ - _final?155222_ - _struct?155217_ - _constructor155212_ - _fields155207_ - _slots155202_ - _precendence-list155197_ - _super155192_ - _id155187_)) - (let () (declare (not safe)) (_E155150155167_)))))) + (_K155148155178_ + _methods155229_ + _metaclass155224_ + _final?155219_ + _struct?155214_ + _constructor155209_ + _fields155204_ + _slots155199_ + _precendence-list155194_ + _super155189_ + _id155184_)) + (let () (declare (not safe)) (_E155147155164_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!class::t 'typedecl gxc#!class::typedecl '#f)) (define gxc#!predicate::typedecl - (lambda (_self155001_) - (let* ((_self155002155008_ _self155001_) - (_E155004155012_ + (lambda (_self154998_) + (let* ((_self154999155005_ _self154998_) + (_E155001155009_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self155002155008_)))) - (_K155005155017_ - (lambda (_klass-id155015_) - (let ((__tmp156622 + (error '"No clause matching" _self154999155005_)))) + (_K155002155014_ + (lambda (_klass-id155012_) + (let ((__tmp156619 (let () (declare (not safe)) - (cons _klass-id155015_ '())))) + (cons _klass-id155012_ '())))) (declare (not safe)) - (cons '@predicate __tmp156622))))) + (cons '@predicate __tmp156619))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self155002155008_ + _self154999155005_ 'gxc#!predicate::t)) - (let* ((_e155006155020_ + (let* ((_e155003155017_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155002155008_ + _self154999155005_ '1 gxc#!type::t '#f))) - (_klass-id155023_ _e155006155020_)) + (_klass-id155020_ _e155003155017_)) (declare (not safe)) - (_K155005155017_ _klass-id155023_)) - (let () (declare (not safe)) (_E155004155012_)))))) + (_K155002155014_ _klass-id155020_)) + (let () (declare (not safe)) (_E155001155009_)))))) (let () (declare (not safe)) (bind-method!__% @@ -1797,38 +1797,38 @@ gxc#!predicate::typedecl '#f)) (define gxc#!constructor::typedecl - (lambda (_self154855_) - (let* ((_self154856154862_ _self154855_) - (_E154858154866_ + (lambda (_self154852_) + (let* ((_self154853154859_ _self154852_) + (_E154855154863_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154856154862_)))) - (_K154859154871_ - (lambda (_klass-id154869_) - (let ((__tmp156623 + (error '"No clause matching" _self154853154859_)))) + (_K154856154868_ + (lambda (_klass-id154866_) + (let ((__tmp156620 (let () (declare (not safe)) - (cons _klass-id154869_ '())))) + (cons _klass-id154866_ '())))) (declare (not safe)) - (cons '@constructor __tmp156623))))) + (cons '@constructor __tmp156620))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self154856154862_ + _self154853154859_ 'gxc#!constructor::t)) - (let* ((_e154860154874_ + (let* ((_e154857154871_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154856154862_ + _self154853154859_ '1 gxc#!type::t '#f))) - (_klass-id154877_ _e154860154874_)) + (_klass-id154874_ _e154857154871_)) (declare (not safe)) - (_K154859154871_ _klass-id154877_)) - (let () (declare (not safe)) (_E154858154866_)))))) + (_K154856154868_ _klass-id154874_)) + (let () (declare (not safe)) (_E154855154863_)))))) (let () (declare (not safe)) (bind-method!__% @@ -1837,305 +1837,305 @@ gxc#!constructor::typedecl '#f)) (define gxc#!accessor::typedecl - (lambda (_self154695_) - (let* ((_self154696154704_ _self154695_) - (_E154698154708_ + (lambda (_self154692_) + (let* ((_self154693154701_ _self154692_) + (_E154695154705_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154696154704_)))) - (_K154699154715_ - (lambda (_checked?154711_ _slot154712_ _klass-id154713_) - (let ((__tmp156624 - (let ((__tmp156625 - (let ((__tmp156626 + (error '"No clause matching" _self154693154701_)))) + (_K154696154712_ + (lambda (_checked?154708_ _slot154709_ _klass-id154710_) + (let ((__tmp156621 + (let ((__tmp156622 + (let ((__tmp156623 (let () (declare (not safe)) - (cons _checked?154711_ '())))) + (cons _checked?154708_ '())))) (declare (not safe)) - (cons _slot154712_ __tmp156626)))) + (cons _slot154709_ __tmp156623)))) (declare (not safe)) - (cons _klass-id154713_ __tmp156625)))) + (cons _klass-id154710_ __tmp156622)))) (declare (not safe)) - (cons '@accessor __tmp156624))))) + (cons '@accessor __tmp156621))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self154696154704_ + _self154693154701_ 'gxc#!accessor::t)) - (let* ((_e154700154718_ + (let* ((_e154697154715_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154696154704_ + _self154693154701_ '1 gxc#!type::t '#f))) - (_klass-id154721_ _e154700154718_) - (_e154701154723_ + (_klass-id154718_ _e154697154715_) + (_e154698154720_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154696154704_ + _self154693154701_ '2 gxc#!accessor::t '#f))) - (_slot154726_ _e154701154723_) - (_e154702154728_ + (_slot154723_ _e154698154720_) + (_e154699154725_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154696154704_ + _self154693154701_ '3 gxc#!accessor::t '#f))) - (_checked?154731_ _e154702154728_)) + (_checked?154728_ _e154699154725_)) (declare (not safe)) - (_K154699154715_ - _checked?154731_ - _slot154726_ - _klass-id154721_)) - (let () (declare (not safe)) (_E154698154708_)))))) + (_K154696154712_ + _checked?154728_ + _slot154723_ + _klass-id154718_)) + (let () (declare (not safe)) (_E154695154705_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!accessor::t 'typedecl gxc#!accessor::typedecl '#f)) (define gxc#!mutator::typedecl - (lambda (_self154535_) - (let* ((_self154536154544_ _self154535_) - (_E154538154548_ + (lambda (_self154532_) + (let* ((_self154533154541_ _self154532_) + (_E154535154545_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154536154544_)))) - (_K154539154555_ - (lambda (_checked?154551_ _slot154552_ _klass-id154553_) - (let ((__tmp156627 - (let ((__tmp156628 - (let ((__tmp156629 + (error '"No clause matching" _self154533154541_)))) + (_K154536154552_ + (lambda (_checked?154548_ _slot154549_ _klass-id154550_) + (let ((__tmp156624 + (let ((__tmp156625 + (let ((__tmp156626 (let () (declare (not safe)) - (cons _checked?154551_ '())))) + (cons _checked?154548_ '())))) (declare (not safe)) - (cons _slot154552_ __tmp156629)))) + (cons _slot154549_ __tmp156626)))) (declare (not safe)) - (cons _klass-id154553_ __tmp156628)))) + (cons _klass-id154550_ __tmp156625)))) (declare (not safe)) - (cons '@mutator __tmp156627))))) + (cons '@mutator __tmp156624))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self154536154544_ 'gxc#!mutator::t)) - (let* ((_e154540154558_ + (##structure-instance-of? _self154533154541_ 'gxc#!mutator::t)) + (let* ((_e154537154555_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154536154544_ + _self154533154541_ '1 gxc#!type::t '#f))) - (_klass-id154561_ _e154540154558_) - (_e154541154563_ + (_klass-id154558_ _e154537154555_) + (_e154538154560_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154536154544_ + _self154533154541_ '2 gxc#!mutator::t '#f))) - (_slot154566_ _e154541154563_) - (_e154542154568_ + (_slot154563_ _e154538154560_) + (_e154539154565_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154536154544_ + _self154533154541_ '3 gxc#!mutator::t '#f))) - (_checked?154571_ _e154542154568_)) + (_checked?154568_ _e154539154565_)) (declare (not safe)) - (_K154539154555_ - _checked?154571_ - _slot154566_ - _klass-id154561_)) - (let () (declare (not safe)) (_E154538154548_)))))) + (_K154536154552_ + _checked?154568_ + _slot154563_ + _klass-id154558_)) + (let () (declare (not safe)) (_E154535154545_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!mutator::t 'typedecl gxc#!mutator::typedecl '#f)) (define gxc#!lambda::typedecl - (lambda (_self154361_) - (let* ((_self154362154372_ _self154361_) - (_E154364154376_ + (lambda (_self154358_) + (let* ((_self154359154369_ _self154358_) + (_E154361154373_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154362154372_)))) - (_K154365154387_ - (lambda (_typedecl154379_ - _inline154380_ - _dispatch154381_ - _arity154382_) - (if _inline154380_ - (let ((_$e154384_ _typedecl154379_)) - (if _$e154384_ - _$e154384_ + (error '"No clause matching" _self154359154369_)))) + (_K154362154384_ + (lambda (_typedecl154376_ + _inline154377_ + _dispatch154378_ + _arity154379_) + (if _inline154377_ + (let ((_$e154381_ _typedecl154376_)) + (if _$e154381_ + _$e154381_ (let () (declare (not safe)) (error '"Cannot generate typedecl for inline rules")))) - (let ((__tmp156630 - (let ((__tmp156631 + (let ((__tmp156627 + (let ((__tmp156628 (let () (declare (not safe)) - (cons _dispatch154381_ '())))) + (cons _dispatch154378_ '())))) (declare (not safe)) - (cons _arity154382_ __tmp156631)))) + (cons _arity154379_ __tmp156628)))) (declare (not safe)) - (cons '@lambda __tmp156630)))))) + (cons '@lambda __tmp156627)))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self154362154372_ 'gxc#!lambda::t)) - (let* ((_e154366154390_ + (##structure-instance-of? _self154359154369_ 'gxc#!lambda::t)) + (let* ((_e154363154387_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154362154372_ + _self154359154369_ '1 gxc#!type::t '#f))) - (_e154367154393_ + (_e154364154390_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154362154372_ + _self154359154369_ '2 gxc#!lambda::t '#f))) - (_arity154396_ _e154367154393_) - (_e154368154398_ + (_arity154393_ _e154364154390_) + (_e154365154395_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154362154372_ + _self154359154369_ '3 gxc#!lambda::t '#f))) - (_dispatch154401_ _e154368154398_) - (_e154369154403_ + (_dispatch154398_ _e154365154395_) + (_e154366154400_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154362154372_ + _self154359154369_ '4 gxc#!lambda::t '#f))) - (_inline154406_ _e154369154403_) - (_e154370154408_ + (_inline154403_ _e154366154400_) + (_e154367154405_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154362154372_ + _self154359154369_ '5 gxc#!lambda::t '#f))) - (_typedecl154411_ _e154370154408_)) + (_typedecl154408_ _e154367154405_)) (declare (not safe)) - (_K154365154387_ - _typedecl154411_ - _inline154406_ - _dispatch154401_ - _arity154396_)) - (let () (declare (not safe)) (_E154364154376_)))))) + (_K154362154384_ + _typedecl154408_ + _inline154403_ + _dispatch154398_ + _arity154393_)) + (let () (declare (not safe)) (_E154361154373_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) (define gxc#!case-lambda::typedecl - (lambda (_self154172_) - (letrec ((_clause-e154174_ - (lambda (_clause154204_) - (let* ((_clause154205154213_ _clause154204_) - (_E154207154217_ + (lambda (_self154169_) + (letrec ((_clause-e154171_ + (lambda (_clause154201_) + (let* ((_clause154202154210_ _clause154201_) + (_E154204154214_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clause154205154213_)))) - (_K154208154223_ - (lambda (_dispatch154220_ _arity154221_) - (let ((__tmp156632 + _clause154202154210_)))) + (_K154205154220_ + (lambda (_dispatch154217_ _arity154218_) + (let ((__tmp156629 (let () (declare (not safe)) - (cons _dispatch154220_ '())))) + (cons _dispatch154217_ '())))) (declare (not safe)) - (cons _arity154221_ __tmp156632))))) + (cons _arity154218_ __tmp156629))))) (if (let () (declare (not safe)) (##structure-instance-of? - _clause154205154213_ + _clause154202154210_ 'gxc#!lambda::t)) - (let* ((_e154209154226_ + (let* ((_e154206154223_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause154205154213_ + _clause154202154210_ '1 gxc#!type::t '#f))) - (_e154210154229_ + (_e154207154226_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause154205154213_ + _clause154202154210_ '2 gxc#!lambda::t '#f))) - (_arity154232_ _e154210154229_) - (_e154211154234_ + (_arity154229_ _e154207154226_) + (_e154208154231_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause154205154213_ + _clause154202154210_ '3 gxc#!lambda::t '#f))) - (_dispatch154237_ _e154211154234_)) + (_dispatch154234_ _e154208154231_)) (declare (not safe)) - (_K154208154223_ _dispatch154237_ _arity154232_)) - (let () (declare (not safe)) (_E154207154217_))))))) - (let* ((_self154175154182_ _self154172_) - (_E154177154186_ + (_K154205154220_ _dispatch154234_ _arity154229_)) + (let () (declare (not safe)) (_E154204154214_))))))) + (let* ((_self154172154179_ _self154169_) + (_E154174154183_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154175154182_)))) - (_K154178154193_ - (lambda (_clauses154189_) - (let ((_clauses154191_ - (map _clause-e154174_ _clauses154189_))) + (error '"No clause matching" _self154172154179_)))) + (_K154175154190_ + (lambda (_clauses154186_) + (let ((_clauses154188_ + (map _clause-e154171_ _clauses154186_))) (declare (not safe)) - (cons '@case-lambda _clauses154191_))))) + (cons '@case-lambda _clauses154188_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self154175154182_ + _self154172154179_ 'gxc#!case-lambda::t)) - (let* ((_e154179154196_ + (let* ((_e154176154193_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154175154182_ + _self154172154179_ '1 gxc#!type::t '#f))) - (_e154180154199_ + (_e154177154196_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154175154182_ + _self154172154179_ '2 gxc#!case-lambda::t '#f))) - (_clauses154202_ _e154180154199_)) + (_clauses154199_ _e154177154196_)) (declare (not safe)) - (_K154178154193_ _clauses154202_)) - (let () (declare (not safe)) (_E154177154186_))))))) + (_K154175154190_ _clauses154199_)) + (let () (declare (not safe)) (_E154174154183_))))))) (let () (declare (not safe)) (bind-method!__% @@ -2144,58 +2144,58 @@ gxc#!case-lambda::typedecl '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_self154015_) - (let* ((_self154016154024_ _self154015_) - (_E154018154028_ + (lambda (_self154012_) + (let* ((_self154013154021_ _self154012_) + (_E154015154025_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154016154024_)))) - (_K154019154034_ - (lambda (_dispatch154031_ _table154032_) - (let ((__tmp156633 - (let ((__tmp156634 + (error '"No clause matching" _self154013154021_)))) + (_K154016154031_ + (lambda (_dispatch154028_ _table154029_) + (let ((__tmp156630 + (let ((__tmp156631 (let () (declare (not safe)) - (cons _dispatch154031_ '())))) + (cons _dispatch154028_ '())))) (declare (not safe)) - (cons _table154032_ __tmp156634)))) + (cons _table154029_ __tmp156631)))) (declare (not safe)) - (cons '@kw-lambda __tmp156633))))) + (cons '@kw-lambda __tmp156630))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self154016154024_ + _self154013154021_ 'gxc#!kw-lambda::t)) - (let* ((_e154020154037_ + (let* ((_e154017154034_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154016154024_ + _self154013154021_ '1 gxc#!type::t '#f))) - (_e154021154040_ + (_e154018154037_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154016154024_ + _self154013154021_ '2 gxc#!kw-lambda::t '#f))) - (_table154043_ _e154021154040_) - (_e154022154045_ + (_table154040_ _e154018154037_) + (_e154019154042_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154016154024_ + _self154013154021_ '3 gxc#!kw-lambda::t '#f))) - (_dispatch154048_ _e154022154045_)) + (_dispatch154045_ _e154019154042_)) (declare (not safe)) - (_K154019154034_ _dispatch154048_ _table154043_)) - (let () (declare (not safe)) (_E154018154028_)))))) + (_K154016154031_ _dispatch154045_ _table154040_)) + (let () (declare (not safe)) (_E154015154025_)))))) (let () (declare (not safe)) (bind-method!__% @@ -2204,58 +2204,58 @@ gxc#!kw-lambda::typedecl '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_self153858_) - (let* ((_self153859153867_ _self153858_) - (_E153861153871_ + (lambda (_self153855_) + (let* ((_self153856153864_ _self153855_) + (_E153858153868_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self153859153867_)))) - (_K153862153877_ - (lambda (_main153874_ _keys153875_) - (let ((__tmp156635 - (let ((__tmp156636 + (error '"No clause matching" _self153856153864_)))) + (_K153859153874_ + (lambda (_main153871_ _keys153872_) + (let ((__tmp156632 + (let ((__tmp156633 (let () (declare (not safe)) - (cons _main153874_ '())))) + (cons _main153871_ '())))) (declare (not safe)) - (cons _keys153875_ __tmp156636)))) + (cons _keys153872_ __tmp156633)))) (declare (not safe)) - (cons '@kw-lambda-dispatch __tmp156635))))) + (cons '@kw-lambda-dispatch __tmp156632))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self153859153867_ + _self153856153864_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e153863153880_ + (let* ((_e153860153877_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153859153867_ + _self153856153864_ '1 gxc#!type::t '#f))) - (_e153864153883_ + (_e153861153880_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153859153867_ + _self153856153864_ '2 gxc#!kw-lambda-primary::t '#f))) - (_keys153886_ _e153864153883_) - (_e153865153888_ + (_keys153883_ _e153861153880_) + (_e153862153885_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153859153867_ + _self153856153864_ '3 gxc#!kw-lambda-primary::t '#f))) - (_main153891_ _e153865153888_)) + (_main153888_ _e153862153885_)) (declare (not safe)) - (_K153862153877_ _main153891_ _keys153886_)) - (let () (declare (not safe)) (_E153861153871_)))))) + (_K153859153874_ _main153888_ _keys153883_)) + (let () (declare (not safe)) (_E153858153868_)))))) (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 19d3fdf0..f19135e5 100644 --- a/src/bootstrap/gerbil/compiler/ssxi__1.scm +++ b/src/bootstrap/gerbil/compiler/ssxi__1.scm @@ -1,4576 +1,4576 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gxc[:0:]#declare-type| - (lambda (_$stx158451_) - (let* ((_g158455158473_ - (lambda (_g158456158469_) + (lambda (_$stx158448_) + (let* ((_g158452158470_ + (lambda (_g158453158466_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g158456158469_)))) - (_g158454158528_ - (lambda (_g158456158477_) + _g158453158466_)))) + (_g158451158525_ + (lambda (_g158453158474_) (if (let () (declare (not safe)) - (gx#stx-pair? _g158456158477_)) - (let ((_e158461158480_ + (gx#stx-pair? _g158453158474_)) + (let ((_e158458158477_ (let () (declare (not safe)) - (gx#syntax-e _g158456158477_)))) - (let ((_hd158460158484_ + (gx#syntax-e _g158453158474_)))) + (let ((_hd158457158481_ (let () (declare (not safe)) - (##car _e158461158480_))) - (_tl158459158487_ + (##car _e158458158477_))) + (_tl158456158484_ (let () (declare (not safe)) - (##cdr _e158461158480_)))) + (##cdr _e158458158477_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158459158487_)) - (let ((_e158464158490_ + (gx#stx-pair? _tl158456158484_)) + (let ((_e158461158487_ (let () (declare (not safe)) - (gx#syntax-e _tl158459158487_)))) - (let ((_hd158463158494_ + (gx#syntax-e _tl158456158484_)))) + (let ((_hd158460158491_ (let () (declare (not safe)) - (##car _e158464158490_))) - (_tl158462158497_ + (##car _e158461158487_))) + (_tl158459158494_ (let () (declare (not safe)) - (##cdr _e158464158490_)))) + (##cdr _e158461158487_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158462158497_)) - (let ((_e158467158500_ + (gx#stx-pair? _tl158459158494_)) + (let ((_e158464158497_ (let () (declare (not safe)) - (gx#syntax-e _tl158462158497_)))) - (let ((_hd158466158504_ + (gx#syntax-e _tl158459158494_)))) + (let ((_hd158463158501_ (let () (declare (not safe)) - (##car _e158467158500_))) - (_tl158465158507_ + (##car _e158464158497_))) + (_tl158462158504_ (let () (declare (not safe)) - (##cdr _e158467158500_)))) + (##cdr _e158464158497_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158465158507_)) - ((lambda (_L158510_ _L158512_) + (gx#stx-null? _tl158462158504_)) + ((lambda (_L158507_ _L158509_) (if (let () (declare (not safe)) (gx#identifier? - _L158512_)) - (let ((__tmp161992 + _L158509_)) + (let ((__tmp161989 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-type!))) - (__tmp161987 - (let ((__tmp161989 + (__tmp161984 + (let ((__tmp161986 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp161991 + (let ((__tmp161988 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp161990 + (__tmp161987 (let () (declare (not safe)) - (cons _L158512_ '())))) + (cons _L158509_ '())))) (declare (not safe)) - (cons __tmp161991 __tmp161990))) - (__tmp161988 - (let () (declare (not safe)) (cons _L158510_ '())))) + (cons __tmp161988 __tmp161987))) + (__tmp161985 + (let () (declare (not safe)) (cons _L158507_ '())))) (declare (not safe)) - (cons __tmp161989 __tmp161988)))) + (cons __tmp161986 __tmp161985)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp161992 - __tmp161987)) - (_g158455158473_ - _g158456158477_))) - _hd158466158504_ - _hd158463158494_) - (_g158455158473_ - _g158456158477_)))) - (_g158455158473_ _g158456158477_)))) - (_g158455158473_ _g158456158477_)))) - (_g158455158473_ _g158456158477_))))) - (_g158454158528_ _$stx158451_)))) + (cons __tmp161989 + __tmp161984)) + (_g158452158470_ + _g158453158474_))) + _hd158463158501_ + _hd158460158491_) + (_g158452158470_ + _g158453158474_)))) + (_g158452158470_ _g158453158474_)))) + (_g158452158470_ _g158453158474_)))) + (_g158452158470_ _g158453158474_))))) + (_g158451158525_ _$stx158448_)))) (define |gxc[:0:]#declare-type*| - (lambda (_$stx158532_) - (let* ((_g158536158565_ - (lambda (_g158537158561_) + (lambda (_$stx158529_) + (let* ((_g158533158562_ + (lambda (_g158534158558_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g158537158561_)))) - (_g158535158665_ - (lambda (_g158537158569_) + _g158534158558_)))) + (_g158532158662_ + (lambda (_g158534158566_) (if (let () (declare (not safe)) - (gx#stx-pair? _g158537158569_)) - (let ((_e158542158572_ + (gx#stx-pair? _g158534158566_)) + (let ((_e158539158569_ (let () (declare (not safe)) - (gx#syntax-e _g158537158569_)))) - (let ((_hd158541158576_ + (gx#syntax-e _g158534158566_)))) + (let ((_hd158538158573_ (let () (declare (not safe)) - (##car _e158542158572_))) - (_tl158540158579_ + (##car _e158539158569_))) + (_tl158537158576_ (let () (declare (not safe)) - (##cdr _e158542158572_)))) + (##cdr _e158539158569_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl158540158579_)) - (let ((_g161993_ + (gx#stx-pair/null? _tl158537158576_)) + (let ((_g161990_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl158540158579_ + _tl158537158576_ '0)))) (begin - (let ((_g161994_ + (let ((_g161991_ (let () (declare (not safe)) - (if (##values? _g161993_) - (##vector-length _g161993_) + (if (##values? _g161990_) + (##vector-length _g161990_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g161994_ 2))) + (##fx= _g161991_ 2))) (error "Context expects 2 values" - _g161994_))) - (let ((_target158543158582_ + _g161991_))) + (let ((_target158540158579_ (let () (declare (not safe)) - (##vector-ref _g161993_ 0))) - (_tl158545158585_ + (##vector-ref _g161990_ 0))) + (_tl158542158582_ (let () (declare (not safe)) - (##vector-ref _g161993_ 1)))) + (##vector-ref _g161990_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158545158585_)) - (letrec ((_loop158546158588_ - (lambda (_hd158544158592_ - _type158550158595_ - _symbol158551158597_) + (gx#stx-null? _tl158542158582_)) + (letrec ((_loop158543158585_ + (lambda (_hd158541158589_ + _type158547158592_ + _symbol158548158594_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd158544158592_)) - (let ((_e158547158600_ + _hd158541158589_)) + (let ((_e158544158597_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd158544158592_)))) - (let ((_lp-hd158548158604_ - (let () (declare (not safe)) (##car _e158547158600_))) - (_lp-tl158549158607_ - (let () (declare (not safe)) (##cdr _e158547158600_)))) + (gx#syntax-e _hd158541158589_)))) + (let ((_lp-hd158545158601_ + (let () (declare (not safe)) (##car _e158544158597_))) + (_lp-tl158546158604_ + (let () (declare (not safe)) (##cdr _e158544158597_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd158548158604_)) - (let ((_e158556158610_ + (gx#stx-pair? _lp-hd158545158601_)) + (let ((_e158553158607_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd158548158604_)))) - (let ((_hd158555158614_ + (gx#syntax-e _lp-hd158545158601_)))) + (let ((_hd158552158611_ (let () (declare (not safe)) - (##car _e158556158610_))) - (_tl158554158617_ + (##car _e158553158607_))) + (_tl158551158614_ (let () (declare (not safe)) - (##cdr _e158556158610_)))) + (##cdr _e158553158607_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158554158617_)) - (let ((_e158559158620_ + (gx#stx-pair? _tl158551158614_)) + (let ((_e158556158617_ (let () (declare (not safe)) - (gx#syntax-e _tl158554158617_)))) - (let ((_hd158558158624_ + (gx#syntax-e _tl158551158614_)))) + (let ((_hd158555158621_ (let () (declare (not safe)) - (##car _e158559158620_))) - (_tl158557158627_ + (##car _e158556158617_))) + (_tl158554158624_ (let () (declare (not safe)) - (##cdr _e158559158620_)))) + (##cdr _e158556158617_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158557158627_)) - (_loop158546158588_ - _lp-tl158549158607_ + (gx#stx-null? _tl158554158624_)) + (_loop158543158585_ + _lp-tl158546158604_ (let () (declare (not safe)) - (cons _hd158558158624_ - _type158550158595_)) + (cons _hd158555158621_ + _type158547158592_)) (let () (declare (not safe)) - (cons _hd158555158614_ - _symbol158551158597_))) - (_g158536158565_ _g158537158569_)))) - (_g158536158565_ _g158537158569_)))) - (_g158536158565_ _g158537158569_)))) - (let ((_type158552158630_ (reverse _type158550158595_)) - (_symbol158553158633_ (reverse _symbol158551158597_))) - ((lambda (_L158636_ _L158638_) - (let ((__tmp162001 + (cons _hd158552158611_ + _symbol158548158594_))) + (_g158533158562_ _g158534158566_)))) + (_g158533158562_ _g158534158566_)))) + (_g158533158562_ _g158534158566_)))) + (let ((_type158549158627_ (reverse _type158547158592_)) + (_symbol158550158630_ (reverse _symbol158548158594_))) + ((lambda (_L158633_ _L158635_) + (let ((__tmp161998 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp161995 + (__tmp161992 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L158636_ - _L158638_)) - (let ((__tmp161996 - (lambda (_g158653158657_ - _g158654158660_ - _g158655158662_) - (let ((__tmp161997 - (let ((__tmp162000 + _L158633_ + _L158635_)) + (let ((__tmp161993 + (lambda (_g158650158654_ + _g158651158657_ + _g158652158659_) + (let ((__tmp161994 + (let ((__tmp161997 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp161998 - (let ((__tmp161999 + (__tmp161995 + (let ((__tmp161996 (let () (declare (not safe)) - (cons _g158653158657_ + (cons _g158650158654_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g158654158660_ - __tmp161999)))) + (cons _g158651158657_ + __tmp161996)))) (declare (not safe)) - (cons __tmp162000 __tmp161998)))) + (cons __tmp161997 __tmp161995)))) (declare (not safe)) - (cons __tmp161997 _g158655158662_))))) + (cons __tmp161994 _g158652158659_))))) (declare (not safe)) - (foldr2 __tmp161996 '() _L158636_ _L158638_))))) + (foldr2 __tmp161993 '() _L158633_ _L158635_))))) (declare (not safe)) - (cons __tmp162001 __tmp161995))) - _type158552158630_ - _symbol158553158633_)))))) + (cons __tmp161998 __tmp161992))) + _type158549158627_ + _symbol158550158630_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop158546158588_ - _target158543158582_ + (_loop158543158585_ + _target158540158579_ '() '())) - (_g158536158565_ _g158537158569_))))) - (_g158536158565_ _g158537158569_)))) - (_g158536158565_ _g158537158569_))))) - (_g158535158665_ _$stx158532_)))) + (_g158533158562_ _g158534158566_))))) + (_g158533158562_ _g158534158566_)))) + (_g158533158562_ _g158534158566_))))) + (_g158532158662_ _$stx158529_)))) (define |gxc[:0:]#declare-method| - (lambda (_$stx158670_) - (let* ((___stx161552161553_ _$stx158670_) - (_g158675158717_ + (lambda (_$stx158667_) + (let* ((___stx161549161550_ _$stx158667_) + (_g158672158714_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx161552161553_))))) - (let ((___kont161555161556_ - (lambda (_L158845_ _L158847_ _L158848_ _L158849_) - (let ((__tmp162015 + ___stx161549161550_))))) + (let ((___kont161552161553_ + (lambda (_L158842_ _L158844_ _L158845_ _L158846_) + (let ((__tmp162012 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-method!))) - (__tmp162002 - (let ((__tmp162012 - (let ((__tmp162014 + (__tmp161999 + (let ((__tmp162009 + (let ((__tmp162011 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162013 + (__tmp162010 (let () (declare (not safe)) - (cons _L158849_ '())))) + (cons _L158846_ '())))) (declare (not safe)) - (cons __tmp162014 __tmp162013))) - (__tmp162003 - (let ((__tmp162009 - (let ((__tmp162011 + (cons __tmp162011 __tmp162010))) + (__tmp162000 + (let ((__tmp162006 + (let ((__tmp162008 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162010 + (__tmp162007 (let () (declare (not safe)) - (cons _L158848_ '())))) + (cons _L158845_ '())))) (declare (not safe)) - (cons __tmp162011 __tmp162010))) - (__tmp162004 - (let ((__tmp162006 - (let ((__tmp162008 + (cons __tmp162008 __tmp162007))) + (__tmp162001 + (let ((__tmp162003 + (let ((__tmp162005 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162007 + (__tmp162004 (let () (declare (not safe)) - (cons _L158847_ '())))) + (cons _L158844_ '())))) (declare (not safe)) - (cons __tmp162008 __tmp162007))) - (__tmp162005 + (cons __tmp162005 __tmp162004))) + (__tmp162002 (let () (declare (not safe)) - (cons _L158845_ '())))) + (cons _L158842_ '())))) (declare (not safe)) - (cons __tmp162006 __tmp162005)))) + (cons __tmp162003 __tmp162002)))) (declare (not safe)) - (cons __tmp162009 __tmp162004)))) + (cons __tmp162006 __tmp162001)))) (declare (not safe)) - (cons __tmp162012 __tmp162003)))) + (cons __tmp162009 __tmp162000)))) (declare (not safe)) - (cons __tmp162015 __tmp162002)))) - (___kont161557161558_ - (lambda (_L158764_ _L158766_ _L158767_ _L158768_) - (let ((__tmp162016 - (let ((__tmp162017 - (let ((__tmp162018 - (let ((__tmp162019 - (let ((__tmp162020 + (cons __tmp162012 __tmp161999)))) + (___kont161554161555_ + (lambda (_L158761_ _L158763_ _L158764_ _L158765_) + (let ((__tmp162013 + (let ((__tmp162014 + (let ((__tmp162015 + (let ((__tmp162016 + (let ((__tmp162017 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rebind?)))) (declare (not safe)) - (cons __tmp162020 '())))) + (cons __tmp162017 '())))) (declare (not safe)) - (cons _L158764_ __tmp162019)))) + (cons _L158761_ __tmp162016)))) (declare (not safe)) - (cons _L158766_ __tmp162018)))) + (cons _L158763_ __tmp162015)))) (declare (not safe)) - (cons _L158767_ __tmp162017)))) + (cons _L158764_ __tmp162014)))) (declare (not safe)) - (cons _L158768_ __tmp162016))))) - (let ((___match161591161592_ - (lambda (_e158683158795_ - _hd158682158799_ - _tl158681158802_ - _e158686158805_ - _hd158685158809_ - _tl158684158812_ - _e158689158815_ - _hd158688158819_ - _tl158687158822_ - _e158692158825_ - _hd158691158829_ - _tl158690158832_ - _e158695158835_ - _hd158694158839_ - _tl158693158842_) - (let ((_L158845_ _hd158694158839_) - (_L158847_ _hd158691158829_) - (_L158848_ _hd158688158819_) - (_L158849_ _hd158685158809_)) + (cons _L158765_ __tmp162013))))) + (let ((___match161588161589_ + (lambda (_e158680158792_ + _hd158679158796_ + _tl158678158799_ + _e158683158802_ + _hd158682158806_ + _tl158681158809_ + _e158686158812_ + _hd158685158816_ + _tl158684158819_ + _e158689158822_ + _hd158688158826_ + _tl158687158829_ + _e158692158832_ + _hd158691158836_ + _tl158690158839_) + (let ((_L158842_ _hd158691158836_) + (_L158844_ _hd158688158826_) + (_L158845_ _hd158685158816_) + (_L158846_ _hd158682158806_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L158849_)) + (gx#identifier? _L158846_)) (let () (declare (not safe)) - (gx#identifier? _L158848_)) + (gx#identifier? _L158845_)) (let () (declare (not safe)) - (gx#identifier? _L158847_))) - (___kont161555161556_ + (gx#identifier? _L158844_))) + (___kont161552161553_ + _L158842_ + _L158844_ _L158845_ - _L158847_ - _L158848_ - _L158849_) - (let () (declare (not safe)) (_g158675158717_))))))) + _L158846_) + (let () (declare (not safe)) (_g158672158714_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx161552161553_)) - (let ((_e158683158795_ + (gx#stx-pair? ___stx161549161550_)) + (let ((_e158680158792_ (let () (declare (not safe)) - (gx#syntax-e ___stx161552161553_)))) - (let ((_tl158681158802_ - (let () (declare (not safe)) (##cdr _e158683158795_))) - (_hd158682158799_ + (gx#syntax-e ___stx161549161550_)))) + (let ((_tl158678158799_ + (let () (declare (not safe)) (##cdr _e158680158792_))) + (_hd158679158796_ (let () (declare (not safe)) - (##car _e158683158795_)))) + (##car _e158680158792_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158681158802_)) - (let ((_e158686158805_ + (gx#stx-pair? _tl158678158799_)) + (let ((_e158683158802_ (let () (declare (not safe)) - (gx#syntax-e _tl158681158802_)))) - (let ((_tl158684158812_ + (gx#syntax-e _tl158678158799_)))) + (let ((_tl158681158809_ (let () (declare (not safe)) - (##cdr _e158686158805_))) - (_hd158685158809_ + (##cdr _e158683158802_))) + (_hd158682158806_ (let () (declare (not safe)) - (##car _e158686158805_)))) + (##car _e158683158802_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158684158812_)) - (let ((_e158689158815_ + (gx#stx-pair? _tl158681158809_)) + (let ((_e158686158812_ (let () (declare (not safe)) - (gx#syntax-e _tl158684158812_)))) - (let ((_tl158687158822_ + (gx#syntax-e _tl158681158809_)))) + (let ((_tl158684158819_ (let () (declare (not safe)) - (##cdr _e158689158815_))) - (_hd158688158819_ + (##cdr _e158686158812_))) + (_hd158685158816_ (let () (declare (not safe)) - (##car _e158689158815_)))) + (##car _e158686158812_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158687158822_)) - (let ((_e158692158825_ + (gx#stx-pair? _tl158684158819_)) + (let ((_e158689158822_ (let () (declare (not safe)) (gx#syntax-e - _tl158687158822_)))) - (let ((_tl158690158832_ + _tl158684158819_)))) + (let ((_tl158687158829_ (let () (declare (not safe)) - (##cdr _e158692158825_))) - (_hd158691158829_ + (##cdr _e158689158822_))) + (_hd158688158826_ (let () (declare (not safe)) - (##car _e158692158825_)))) + (##car _e158689158822_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl158690158832_)) - (let ((_e158695158835_ + _tl158687158829_)) + (let ((_e158692158832_ (let () (declare (not safe)) (gx#syntax-e - _tl158690158832_)))) - (let ((_tl158693158842_ + _tl158687158829_)))) + (let ((_tl158690158839_ (let () (declare (not safe)) - (##cdr _e158695158835_))) - (_hd158694158839_ + (##cdr _e158692158832_))) + (_hd158691158836_ (let () (declare (not safe)) - (##car _e158695158835_)))) + (##car _e158692158832_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl158693158842_)) - (___match161591161592_ - _e158683158795_ - _hd158682158799_ - _tl158681158802_ - _e158686158805_ - _hd158685158809_ - _tl158684158812_ - _e158689158815_ - _hd158688158819_ - _tl158687158822_ - _e158692158825_ - _hd158691158829_ - _tl158690158832_ - _e158695158835_ - _hd158694158839_ - _tl158693158842_) + _tl158690158839_)) + (___match161588161589_ + _e158680158792_ + _hd158679158796_ + _tl158678158799_ + _e158683158802_ + _hd158682158806_ + _tl158681158809_ + _e158686158812_ + _hd158685158816_ + _tl158684158819_ + _e158689158822_ + _hd158688158826_ + _tl158687158829_ + _e158692158832_ + _hd158691158836_ + _tl158690158839_) (let () (declare (not safe)) - (_g158675158717_))))) + (_g158672158714_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl158690158832_)) - (___kont161557161558_ - _hd158691158829_ - _hd158688158819_ - _hd158685158809_ - _hd158682158799_) + _tl158687158829_)) + (___kont161554161555_ + _hd158688158826_ + _hd158685158816_ + _hd158682158806_ + _hd158679158796_) (let () (declare (not safe)) - (_g158675158717_)))))) + (_g158672158714_)))))) (let () (declare (not safe)) - (_g158675158717_))))) + (_g158672158714_))))) (let () (declare (not safe)) - (_g158675158717_))))) - (let () (declare (not safe)) (_g158675158717_))))) - (let () (declare (not safe)) (_g158675158717_)))))))) + (_g158672158714_))))) + (let () (declare (not safe)) (_g158672158714_))))) + (let () (declare (not safe)) (_g158672158714_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_$stx158874_) - (let* ((_g158878158913_ - (lambda (_g158879158909_) + (lambda (_$stx158871_) + (let* ((_g158875158910_ + (lambda (_g158876158906_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g158879158909_)))) - (_g158877159032_ - (lambda (_g158879158917_) + _g158876158906_)))) + (_g158874159029_ + (lambda (_g158876158914_) (if (let () (declare (not safe)) - (gx#stx-pair? _g158879158917_)) - (let ((_e158885158920_ + (gx#stx-pair? _g158876158914_)) + (let ((_e158882158917_ (let () (declare (not safe)) - (gx#syntax-e _g158879158917_)))) - (let ((_hd158884158924_ + (gx#syntax-e _g158876158914_)))) + (let ((_hd158881158921_ (let () (declare (not safe)) - (##car _e158885158920_))) - (_tl158883158927_ + (##car _e158882158917_))) + (_tl158880158924_ (let () (declare (not safe)) - (##cdr _e158885158920_)))) + (##cdr _e158882158917_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl158883158927_)) - (let ((_g162021_ + (gx#stx-pair/null? _tl158880158924_)) + (let ((_g162018_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl158883158927_ + _tl158880158924_ '0)))) (begin - (let ((_g162022_ + (let ((_g162019_ (let () (declare (not safe)) - (if (##values? _g162021_) - (##vector-length _g162021_) + (if (##values? _g162018_) + (##vector-length _g162018_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162022_ 2))) + (##fx= _g162019_ 2))) (error "Context expects 2 values" - _g162022_))) - (let ((_target158886158930_ + _g162019_))) + (let ((_target158883158927_ (let () (declare (not safe)) - (##vector-ref _g162021_ 0))) - (_tl158888158933_ + (##vector-ref _g162018_ 0))) + (_tl158885158930_ (let () (declare (not safe)) - (##vector-ref _g162021_ 1)))) + (##vector-ref _g162018_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158888158933_)) - (letrec ((_loop158889158936_ - (lambda (_hd158887158940_ - _symbol158893158943_ - _method158894158945_ - _type-t158895158947_) + (gx#stx-null? _tl158885158930_)) + (letrec ((_loop158886158933_ + (lambda (_hd158884158937_ + _symbol158890158940_ + _method158891158942_ + _type-t158892158944_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd158887158940_)) - (let ((_e158890158950_ + _hd158884158937_)) + (let ((_e158887158947_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd158887158940_)))) - (let ((_lp-hd158891158954_ - (let () (declare (not safe)) (##car _e158890158950_))) - (_lp-tl158892158957_ - (let () (declare (not safe)) (##cdr _e158890158950_)))) + (gx#syntax-e _hd158884158937_)))) + (let ((_lp-hd158888158951_ + (let () (declare (not safe)) (##car _e158887158947_))) + (_lp-tl158889158954_ + (let () (declare (not safe)) (##cdr _e158887158947_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd158891158954_)) - (let ((_e158901158960_ + (gx#stx-pair? _lp-hd158888158951_)) + (let ((_e158898158957_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd158891158954_)))) - (let ((_hd158900158964_ + (gx#syntax-e _lp-hd158888158951_)))) + (let ((_hd158897158961_ (let () (declare (not safe)) - (##car _e158901158960_))) - (_tl158899158967_ + (##car _e158898158957_))) + (_tl158896158964_ (let () (declare (not safe)) - (##cdr _e158901158960_)))) + (##cdr _e158898158957_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158899158967_)) - (let ((_e158904158970_ + (gx#stx-pair? _tl158896158964_)) + (let ((_e158901158967_ (let () (declare (not safe)) - (gx#syntax-e _tl158899158967_)))) - (let ((_hd158903158974_ + (gx#syntax-e _tl158896158964_)))) + (let ((_hd158900158971_ (let () (declare (not safe)) - (##car _e158904158970_))) - (_tl158902158977_ + (##car _e158901158967_))) + (_tl158899158974_ (let () (declare (not safe)) - (##cdr _e158904158970_)))) + (##cdr _e158901158967_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158902158977_)) - (let ((_e158907158980_ + (gx#stx-pair? _tl158899158974_)) + (let ((_e158904158977_ (let () (declare (not safe)) (gx#syntax-e - _tl158902158977_)))) - (let ((_hd158906158984_ + _tl158899158974_)))) + (let ((_hd158903158981_ (let () (declare (not safe)) - (##car _e158907158980_))) - (_tl158905158987_ + (##car _e158904158977_))) + (_tl158902158984_ (let () (declare (not safe)) - (##cdr _e158907158980_)))) + (##cdr _e158904158977_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl158905158987_)) - (_loop158889158936_ - _lp-tl158892158957_ + _tl158902158984_)) + (_loop158886158933_ + _lp-tl158889158954_ (let () (declare (not safe)) - (cons _hd158906158984_ - _symbol158893158943_)) + (cons _hd158903158981_ + _symbol158890158940_)) (let () (declare (not safe)) - (cons _hd158903158974_ - _method158894158945_)) + (cons _hd158900158971_ + _method158891158942_)) (let () (declare (not safe)) - (cons _hd158900158964_ - _type-t158895158947_))) - (_g158878158913_ - _g158879158917_)))) - (_g158878158913_ _g158879158917_)))) - (_g158878158913_ _g158879158917_)))) - (_g158878158913_ _g158879158917_)))) - (let ((_symbol158896158990_ (reverse _symbol158893158943_)) - (_method158897158993_ (reverse _method158894158945_)) - (_type-t158898158995_ (reverse _type-t158895158947_))) - ((lambda (_L158998_ _L159000_ _L159001_) - (let ((__tmp162030 + (cons _hd158897158961_ + _type-t158892158944_))) + (_g158875158910_ + _g158876158914_)))) + (_g158875158910_ _g158876158914_)))) + (_g158875158910_ _g158876158914_)))) + (_g158875158910_ _g158876158914_)))) + (let ((_symbol158893158987_ (reverse _symbol158890158940_)) + (_method158894158990_ (reverse _method158891158942_)) + (_type-t158895158992_ (reverse _type-t158892158944_))) + ((lambda (_L158995_ _L158997_ _L158998_) + (let ((__tmp162027 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp162023 + (__tmp162020 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L158998_ - _L159000_ - _L159001_)) - (let ((__tmp162024 - (lambda (_g159017159022_ - _g159018159025_ - _g159019159027_ - _g159020159029_) - (let ((__tmp162025 - (let ((__tmp162029 + _L158995_ + _L158997_ + _L158998_)) + (let ((__tmp162021 + (lambda (_g159014159019_ + _g159015159022_ + _g159016159024_ + _g159017159026_) + (let ((__tmp162022 + (let ((__tmp162026 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp162026 - (let ((__tmp162027 - (let ((__tmp162028 + (__tmp162023 + (let ((__tmp162024 + (let ((__tmp162025 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _g159017159022_ '())))) + (cons _g159014159019_ '())))) (declare (not safe)) - (cons _g159018159025_ __tmp162028)))) + (cons _g159015159022_ __tmp162025)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g159019159027_ - __tmp162027)))) + (cons _g159016159024_ + __tmp162024)))) (declare (not safe)) - (cons __tmp162029 __tmp162026)))) + (cons __tmp162026 __tmp162023)))) (declare (not safe)) - (cons __tmp162025 _g159020159029_))))) + (cons __tmp162022 _g159017159026_))))) (declare (not safe)) - (foldr* __tmp162024 + (foldr* __tmp162021 '() - _L158998_ - _L159000_ - _L159001_))))) + _L158995_ + _L158997_ + _L158998_))))) (declare (not safe)) - (cons __tmp162030 __tmp162023))) - _symbol158896158990_ - _method158897158993_ - _type-t158898158995_)))))) + (cons __tmp162027 __tmp162020))) + _symbol158893158987_ + _method158894158990_ + _type-t158895158992_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop158889158936_ - _target158886158930_ + (_loop158886158933_ + _target158883158927_ '() '() '())) - (_g158878158913_ _g158879158917_))))) - (_g158878158913_ _g158879158917_)))) - (_g158878158913_ _g158879158917_))))) - (_g158877159032_ _$stx158874_)))) + (_g158875158910_ _g158876158914_))))) + (_g158875158910_ _g158876158914_)))) + (_g158875158910_ _g158876158914_))))) + (_g158874159029_ _$stx158871_)))) (define |gxc[:0:]#declare-methods| - (lambda (_$stx159037_) - (let* ((_g159041159074_ - (lambda (_g159042159070_) + (lambda (_$stx159034_) + (let* ((_g159038159071_ + (lambda (_g159039159067_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159042159070_)))) - (_g159040159188_ - (lambda (_g159042159078_) + _g159039159067_)))) + (_g159037159185_ + (lambda (_g159039159075_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159042159078_)) - (let ((_e159048159081_ + (gx#stx-pair? _g159039159075_)) + (let ((_e159045159078_ (let () (declare (not safe)) - (gx#syntax-e _g159042159078_)))) - (let ((_hd159047159085_ + (gx#syntax-e _g159039159075_)))) + (let ((_hd159044159082_ (let () (declare (not safe)) - (##car _e159048159081_))) - (_tl159046159088_ + (##car _e159045159078_))) + (_tl159043159085_ (let () (declare (not safe)) - (##cdr _e159048159081_)))) + (##cdr _e159045159078_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159046159088_)) - (let ((_e159051159091_ + (gx#stx-pair? _tl159043159085_)) + (let ((_e159048159088_ (let () (declare (not safe)) - (gx#syntax-e _tl159046159088_)))) - (let ((_hd159050159095_ + (gx#syntax-e _tl159043159085_)))) + (let ((_hd159047159092_ (let () (declare (not safe)) - (##car _e159051159091_))) - (_tl159049159098_ + (##car _e159048159088_))) + (_tl159046159095_ (let () (declare (not safe)) - (##cdr _e159051159091_)))) + (##cdr _e159048159088_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl159049159098_)) - (let ((_g162031_ + (gx#stx-pair/null? _tl159046159095_)) + (let ((_g162028_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl159049159098_ + _tl159046159095_ '0)))) (begin - (let ((_g162032_ + (let ((_g162029_ (let () (declare (not safe)) - (if (##values? _g162031_) + (if (##values? _g162028_) (##vector-length - _g162031_) + _g162028_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162032_ 2))) + (##fx= _g162029_ 2))) (error "Context expects 2 values" - _g162032_))) - (let ((_target159052159101_ + _g162029_))) + (let ((_target159049159098_ (let () (declare (not safe)) - (##vector-ref _g162031_ 0))) - (_tl159054159104_ + (##vector-ref _g162028_ 0))) + (_tl159051159101_ (let () (declare (not safe)) - (##vector-ref _g162031_ 1)))) + (##vector-ref _g162028_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl159054159104_)) - (letrec ((_loop159055159107_ - (lambda (_hd159053159111_ + _tl159051159101_)) + (letrec ((_loop159052159104_ + (lambda (_hd159050159108_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _symbol159059159114_ - _method159060159116_) + _symbol159056159111_ + _method159057159113_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd159053159111_)) - (let ((_e159056159119_ + (gx#stx-pair? _hd159050159108_)) + (let ((_e159053159116_ (let () (declare (not safe)) - (gx#syntax-e _hd159053159111_)))) - (let ((_lp-hd159057159123_ + (gx#syntax-e _hd159050159108_)))) + (let ((_lp-hd159054159120_ (let () (declare (not safe)) - (##car _e159056159119_))) - (_lp-tl159058159126_ + (##car _e159053159116_))) + (_lp-tl159055159123_ (let () (declare (not safe)) - (##cdr _e159056159119_)))) + (##cdr _e159053159116_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd159057159123_)) - (let ((_e159065159129_ + (gx#stx-pair? _lp-hd159054159120_)) + (let ((_e159062159126_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd159057159123_)))) - (let ((_hd159064159133_ + (gx#syntax-e _lp-hd159054159120_)))) + (let ((_hd159061159130_ (let () (declare (not safe)) - (##car _e159065159129_))) - (_tl159063159136_ + (##car _e159062159126_))) + (_tl159060159133_ (let () (declare (not safe)) - (##cdr _e159065159129_)))) + (##cdr _e159062159126_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159063159136_)) - (let ((_e159068159139_ + (gx#stx-pair? _tl159060159133_)) + (let ((_e159065159136_ (let () (declare (not safe)) (gx#syntax-e - _tl159063159136_)))) - (let ((_hd159067159143_ + _tl159060159133_)))) + (let ((_hd159064159140_ (let () (declare (not safe)) - (##car _e159068159139_))) - (_tl159066159146_ + (##car _e159065159136_))) + (_tl159063159143_ (let () (declare (not safe)) - (##cdr _e159068159139_)))) + (##cdr _e159065159136_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl159066159146_)) - (_loop159055159107_ - _lp-tl159058159126_ + _tl159063159143_)) + (_loop159052159104_ + _lp-tl159055159123_ (let () (declare (not safe)) - (cons _hd159067159143_ - _symbol159059159114_)) + (cons _hd159064159140_ + _symbol159056159111_)) (let () (declare (not safe)) - (cons _hd159064159133_ - _method159060159116_))) - (_g159041159074_ - _g159042159078_)))) - (_g159041159074_ _g159042159078_)))) - (_g159041159074_ _g159042159078_)))) - (let ((_symbol159061159149_ - (reverse _symbol159059159114_)) - (_method159062159152_ - (reverse _method159060159116_))) - ((lambda (_L159155_ _L159157_ _L159158_) - (let ((__tmp162040 + (cons _hd159061159130_ + _method159057159113_))) + (_g159038159071_ + _g159039159075_)))) + (_g159038159071_ _g159039159075_)))) + (_g159038159071_ _g159039159075_)))) + (let ((_symbol159058159146_ + (reverse _symbol159056159111_)) + (_method159059159149_ + (reverse _method159057159113_))) + ((lambda (_L159152_ _L159154_ _L159155_) + (let ((__tmp162037 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp162033 + (__tmp162030 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L159155_ - _L159157_)) - (let ((__tmp162034 - (lambda (_g159176159180_ - _g159177159183_ - _g159178159185_) - (let ((__tmp162035 - (let ((__tmp162039 + _L159152_ + _L159154_)) + (let ((__tmp162031 + (lambda (_g159173159177_ + _g159174159180_ + _g159175159182_) + (let ((__tmp162032 + (let ((__tmp162036 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp162036 - (let ((__tmp162037 + (__tmp162033 + (let ((__tmp162034 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp162038 + (let ((__tmp162035 (let () (declare (not safe)) - (cons _g159176159180_ '())))) + (cons _g159173159177_ '())))) (declare (not safe)) - (cons _g159177159183_ __tmp162038)))) + (cons _g159174159180_ __tmp162035)))) (declare (not safe)) - (cons _L159158_ __tmp162037)))) + (cons _L159155_ __tmp162034)))) (declare (not safe)) - (cons __tmp162039 __tmp162036)))) + (cons __tmp162036 __tmp162033)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162035 - _g159178159185_))))) + (cons __tmp162032 + _g159175159182_))))) (declare (not safe)) - (foldr2 __tmp162034 + (foldr2 __tmp162031 '() - _L159155_ - _L159157_))))) + _L159152_ + _L159154_))))) (declare (not safe)) - (cons __tmp162040 __tmp162033))) - _symbol159061159149_ - _method159062159152_ - _hd159050159095_)))))) + (cons __tmp162037 __tmp162030))) + _symbol159058159146_ + _method159059159149_ + _hd159047159092_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop159055159107_ - _target159052159101_ + (_loop159052159104_ + _target159049159098_ '() '())) - (_g159041159074_ - _g159042159078_))))) - (_g159041159074_ _g159042159078_)))) - (_g159041159074_ _g159042159078_)))) - (_g159041159074_ _g159042159078_))))) - (_g159040159188_ _$stx159037_)))) + (_g159038159071_ + _g159039159075_))))) + (_g159038159071_ _g159039159075_)))) + (_g159038159071_ _g159039159075_)))) + (_g159038159071_ _g159039159075_))))) + (_g159037159185_ _$stx159034_)))) (define |gxc[:0:]#@alias| - (lambda (_$stx159193_) - (let* ((_g159197159211_ - (lambda (_g159198159207_) + (lambda (_$stx159190_) + (let* ((_g159194159208_ + (lambda (_g159195159204_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159198159207_)))) - (_g159196159252_ - (lambda (_g159198159215_) + _g159195159204_)))) + (_g159193159249_ + (lambda (_g159195159212_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159198159215_)) - (let ((_e159202159218_ + (gx#stx-pair? _g159195159212_)) + (let ((_e159199159215_ (let () (declare (not safe)) - (gx#syntax-e _g159198159215_)))) - (let ((_hd159201159222_ + (gx#syntax-e _g159195159212_)))) + (let ((_hd159198159219_ (let () (declare (not safe)) - (##car _e159202159218_))) - (_tl159200159225_ + (##car _e159199159215_))) + (_tl159197159222_ (let () (declare (not safe)) - (##cdr _e159202159218_)))) + (##cdr _e159199159215_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159200159225_)) - (let ((_e159205159228_ + (gx#stx-pair? _tl159197159222_)) + (let ((_e159202159225_ (let () (declare (not safe)) - (gx#syntax-e _tl159200159225_)))) - (let ((_hd159204159232_ + (gx#syntax-e _tl159197159222_)))) + (let ((_hd159201159229_ (let () (declare (not safe)) - (##car _e159205159228_))) - (_tl159203159235_ + (##car _e159202159225_))) + (_tl159200159232_ (let () (declare (not safe)) - (##cdr _e159205159228_)))) + (##cdr _e159202159225_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159203159235_)) - ((lambda (_L159238_) - (let ((__tmp162045 + (gx#stx-null? _tl159200159232_)) + ((lambda (_L159235_) + (let ((__tmp162042 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!alias))) - (__tmp162041 - (let ((__tmp162042 - (let ((__tmp162044 + (__tmp162038 + (let ((__tmp162039 + (let ((__tmp162041 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162043 + (__tmp162040 (let () (declare (not safe)) - (cons _L159238_ + (cons _L159235_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp162044 __tmp162043)))) + (cons __tmp162041 __tmp162040)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162042 '())))) + (cons __tmp162039 '())))) (declare (not safe)) - (cons __tmp162045 __tmp162041))) - _hd159204159232_) - (_g159197159211_ _g159198159215_)))) - (_g159197159211_ _g159198159215_)))) - (_g159197159211_ _g159198159215_))))) - (_g159196159252_ _$stx159193_)))) + (cons __tmp162042 __tmp162038))) + _hd159201159229_) + (_g159194159208_ _g159195159212_)))) + (_g159194159208_ _g159195159212_)))) + (_g159194159208_ _g159195159212_))))) + (_g159193159249_ _$stx159190_)))) (define |gxc[:0:]#@class| - (lambda (_$stx159256_) - (let* ((_g159260159310_ - (lambda (_g159261159306_) + (lambda (_$stx159253_) + (let* ((_g159257159307_ + (lambda (_g159258159303_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159261159306_)))) - (_g159259159477_ - (lambda (_g159261159314_) + _g159258159303_)))) + (_g159256159474_ + (lambda (_g159258159311_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159261159314_)) - (let ((_e159274159317_ + (gx#stx-pair? _g159258159311_)) + (let ((_e159271159314_ (let () (declare (not safe)) - (gx#syntax-e _g159261159314_)))) - (let ((_hd159273159321_ + (gx#syntax-e _g159258159311_)))) + (let ((_hd159270159318_ (let () (declare (not safe)) - (##car _e159274159317_))) - (_tl159272159324_ + (##car _e159271159314_))) + (_tl159269159321_ (let () (declare (not safe)) - (##cdr _e159274159317_)))) + (##cdr _e159271159314_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159272159324_)) - (let ((_e159277159327_ + (gx#stx-pair? _tl159269159321_)) + (let ((_e159274159324_ (let () (declare (not safe)) - (gx#syntax-e _tl159272159324_)))) - (let ((_hd159276159331_ + (gx#syntax-e _tl159269159321_)))) + (let ((_hd159273159328_ (let () (declare (not safe)) - (##car _e159277159327_))) - (_tl159275159334_ + (##car _e159274159324_))) + (_tl159272159331_ (let () (declare (not safe)) - (##cdr _e159277159327_)))) + (##cdr _e159274159324_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159275159334_)) - (let ((_e159280159337_ + (gx#stx-pair? _tl159272159331_)) + (let ((_e159277159334_ (let () (declare (not safe)) - (gx#syntax-e _tl159275159334_)))) - (let ((_hd159279159341_ + (gx#syntax-e _tl159272159331_)))) + (let ((_hd159276159338_ (let () (declare (not safe)) - (##car _e159280159337_))) - (_tl159278159344_ + (##car _e159277159334_))) + (_tl159275159341_ (let () (declare (not safe)) - (##cdr _e159280159337_)))) + (##cdr _e159277159334_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159278159344_)) - (let ((_e159283159347_ + (gx#stx-pair? _tl159275159341_)) + (let ((_e159280159344_ (let () (declare (not safe)) (gx#syntax-e - _tl159278159344_)))) - (let ((_hd159282159351_ + _tl159275159341_)))) + (let ((_hd159279159348_ (let () (declare (not safe)) - (##car _e159283159347_))) - (_tl159281159354_ + (##car _e159280159344_))) + (_tl159278159351_ (let () (declare (not safe)) - (##cdr _e159283159347_)))) + (##cdr _e159280159344_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl159281159354_)) - (let ((_e159286159357_ + _tl159278159351_)) + (let ((_e159283159354_ (let () (declare (not safe)) (gx#syntax-e - _tl159281159354_)))) - (let ((_hd159285159361_ + _tl159278159351_)))) + (let ((_hd159282159358_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e159286159357_))) - (_tl159284159364_ - (let () (declare (not safe)) (##cdr _e159286159357_)))) + (##car _e159283159354_))) + (_tl159281159361_ + (let () (declare (not safe)) (##cdr _e159283159354_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159284159364_)) - (let ((_e159289159367_ + (gx#stx-pair? _tl159281159361_)) + (let ((_e159286159364_ (let () (declare (not safe)) - (gx#syntax-e _tl159284159364_)))) - (let ((_hd159288159371_ + (gx#syntax-e _tl159281159361_)))) + (let ((_hd159285159368_ (let () (declare (not safe)) - (##car _e159289159367_))) - (_tl159287159374_ + (##car _e159286159364_))) + (_tl159284159371_ (let () (declare (not safe)) - (##cdr _e159289159367_)))) + (##cdr _e159286159364_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159287159374_)) - (let ((_e159292159377_ + (gx#stx-pair? _tl159284159371_)) + (let ((_e159289159374_ (let () (declare (not safe)) - (gx#syntax-e _tl159287159374_)))) - (let ((_hd159291159381_ + (gx#syntax-e _tl159284159371_)))) + (let ((_hd159288159378_ (let () (declare (not safe)) - (##car _e159292159377_))) - (_tl159290159384_ + (##car _e159289159374_))) + (_tl159287159381_ (let () (declare (not safe)) - (##cdr _e159292159377_)))) + (##cdr _e159289159374_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159290159384_)) - (let ((_e159295159387_ + (gx#stx-pair? _tl159287159381_)) + (let ((_e159292159384_ (let () (declare (not safe)) - (gx#syntax-e _tl159290159384_)))) - (let ((_hd159294159391_ + (gx#syntax-e _tl159287159381_)))) + (let ((_hd159291159388_ (let () (declare (not safe)) - (##car _e159295159387_))) - (_tl159293159394_ + (##car _e159292159384_))) + (_tl159290159391_ (let () (declare (not safe)) - (##cdr _e159295159387_)))) + (##cdr _e159292159384_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159293159394_)) - (let ((_e159298159397_ + (gx#stx-pair? _tl159290159391_)) + (let ((_e159295159394_ (let () (declare (not safe)) (gx#syntax-e - _tl159293159394_)))) - (let ((_hd159297159401_ + _tl159290159391_)))) + (let ((_hd159294159398_ (let () (declare (not safe)) - (##car _e159298159397_))) - (_tl159296159404_ + (##car _e159295159394_))) + (_tl159293159401_ (let () (declare (not safe)) - (##cdr _e159298159397_)))) + (##cdr _e159295159394_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl159296159404_)) - (let ((_e159301159407_ + _tl159293159401_)) + (let ((_e159298159404_ (let () (declare (not safe)) (gx#syntax-e - _tl159296159404_)))) - (let ((_hd159300159411_ + _tl159293159401_)))) + (let ((_hd159297159408_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e159301159407_))) - (_tl159299159414_ - (let () (declare (not safe)) (##cdr _e159301159407_)))) + (##car _e159298159404_))) + (_tl159296159411_ + (let () (declare (not safe)) (##cdr _e159298159404_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159299159414_)) - (let ((_e159304159417_ + (gx#stx-pair? _tl159296159411_)) + (let ((_e159301159414_ (let () (declare (not safe)) - (gx#syntax-e _tl159299159414_)))) - (let ((_hd159303159421_ + (gx#syntax-e _tl159296159411_)))) + (let ((_hd159300159418_ (let () (declare (not safe)) - (##car _e159304159417_))) - (_tl159302159424_ + (##car _e159301159414_))) + (_tl159299159421_ (let () (declare (not safe)) - (##cdr _e159304159417_)))) + (##cdr _e159301159414_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159302159424_)) - ((lambda (_L159427_ + (gx#stx-null? _tl159299159421_)) + ((lambda (_L159424_ + _L159426_ + _L159427_ + _L159428_ _L159429_ _L159430_ _L159431_ _L159432_ _L159433_ - _L159434_ - _L159435_ - _L159436_ - _L159437_) - (let ((__tmp162080 + _L159434_) + (let ((__tmp162077 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!class))) - (__tmp162046 - (let ((__tmp162077 - (let ((__tmp162079 + (__tmp162043 + (let ((__tmp162074 + (let ((__tmp162076 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162078 + (__tmp162075 (let () (declare (not safe)) - (cons _L159437_ '())))) + (cons _L159434_ '())))) (declare (not safe)) - (cons __tmp162079 __tmp162078))) - (__tmp162047 - (let ((__tmp162074 - (let ((__tmp162076 + (cons __tmp162076 __tmp162075))) + (__tmp162044 + (let ((__tmp162071 + (let ((__tmp162073 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162075 + (__tmp162072 (let () (declare (not safe)) - (cons _L159436_ + (cons _L159433_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp162076 __tmp162075))) + (cons __tmp162073 __tmp162072))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp162048 - (let ((__tmp162071 - (let ((__tmp162073 + (__tmp162045 + (let ((__tmp162068 + (let ((__tmp162070 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162072 - (let () (declare (not safe)) (cons _L159435_ '())))) + (__tmp162069 + (let () (declare (not safe)) (cons _L159432_ '())))) (declare (not safe)) - (cons __tmp162073 __tmp162072))) - (__tmp162049 - (let ((__tmp162068 - (let ((__tmp162070 + (cons __tmp162070 __tmp162069))) + (__tmp162046 + (let ((__tmp162065 + (let ((__tmp162067 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162069 + (__tmp162066 (let () (declare (not safe)) - (cons _L159434_ '())))) + (cons _L159431_ '())))) (declare (not safe)) - (cons __tmp162070 __tmp162069))) - (__tmp162050 - (let ((__tmp162065 - (let ((__tmp162067 + (cons __tmp162067 __tmp162066))) + (__tmp162047 + (let ((__tmp162062 + (let ((__tmp162064 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162066 + (__tmp162063 (let () (declare (not safe)) - (cons _L159433_ '())))) + (cons _L159430_ '())))) (declare (not safe)) - (cons __tmp162067 __tmp162066))) - (__tmp162051 - (let ((__tmp162062 - (let ((__tmp162064 + (cons __tmp162064 __tmp162063))) + (__tmp162048 + (let ((__tmp162059 + (let ((__tmp162061 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162063 + (__tmp162060 (let () (declare (not safe)) - (cons _L159432_ '())))) + (cons _L159429_ '())))) (declare (not safe)) - (cons __tmp162064 __tmp162063))) - (__tmp162052 - (let ((__tmp162053 - (let ((__tmp162054 - (let ((__tmp162059 - (let ((__tmp162061 + (cons __tmp162061 __tmp162060))) + (__tmp162049 + (let ((__tmp162050 + (let ((__tmp162051 + (let ((__tmp162056 + (let ((__tmp162058 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162060 + (__tmp162057 (let () (declare (not safe)) - (cons _L159429_ '())))) + (cons _L159426_ '())))) (declare (not safe)) - (cons __tmp162061 __tmp162060))) - (__tmp162055 - (let ((__tmp162056 - (let ((__tmp162058 + (cons __tmp162058 __tmp162057))) + (__tmp162052 + (let ((__tmp162053 + (let ((__tmp162055 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162057 + (__tmp162054 (let () (declare (not safe)) - (cons _L159427_ '())))) + (cons _L159424_ '())))) (declare (not safe)) - (cons __tmp162058 __tmp162057)))) + (cons __tmp162055 __tmp162054)))) (declare (not safe)) - (cons __tmp162056 '())))) + (cons __tmp162053 '())))) (declare (not safe)) - (cons __tmp162059 __tmp162055)))) + (cons __tmp162056 __tmp162052)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L159430_ - __tmp162054)))) + (cons _L159427_ + __tmp162051)))) (declare (not safe)) - (cons _L159431_ __tmp162053)))) + (cons _L159428_ __tmp162050)))) (declare (not safe)) - (cons __tmp162062 __tmp162052)))) + (cons __tmp162059 __tmp162049)))) (declare (not safe)) - (cons __tmp162065 __tmp162051)))) + (cons __tmp162062 __tmp162048)))) (declare (not safe)) - (cons __tmp162068 __tmp162050)))) + (cons __tmp162065 __tmp162047)))) (declare (not safe)) - (cons __tmp162071 __tmp162049)))) + (cons __tmp162068 __tmp162046)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162074 - __tmp162048)))) + (cons __tmp162071 + __tmp162045)))) (declare (not safe)) - (cons __tmp162077 __tmp162047)))) + (cons __tmp162074 __tmp162044)))) (declare (not safe)) - (cons __tmp162080 __tmp162046))) - _hd159303159421_ - _hd159300159411_ - _hd159297159401_ - _hd159294159391_ - _hd159291159381_ - _hd159288159371_ - _hd159285159361_ - _hd159282159351_ - _hd159279159341_ - _hd159276159331_) - (_g159260159310_ _g159261159314_)))) - (_g159260159310_ _g159261159314_)))) + (cons __tmp162077 __tmp162043))) + _hd159300159418_ + _hd159297159408_ + _hd159294159398_ + _hd159291159388_ + _hd159288159378_ + _hd159285159368_ + _hd159282159358_ + _hd159279159348_ + _hd159276159338_ + _hd159273159328_) + (_g159257159307_ _g159258159311_)))) + (_g159257159307_ _g159258159311_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g159260159310_ - _g159261159314_)))) - (_g159260159310_ - _g159261159314_)))) - (_g159260159310_ _g159261159314_)))) - (_g159260159310_ _g159261159314_)))) - (_g159260159310_ _g159261159314_)))) + (_g159257159307_ + _g159258159311_)))) + (_g159257159307_ + _g159258159311_)))) + (_g159257159307_ _g159258159311_)))) + (_g159257159307_ _g159258159311_)))) + (_g159257159307_ _g159258159311_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g159260159310_ - _g159261159314_)))) - (_g159260159310_ - _g159261159314_)))) - (_g159260159310_ _g159261159314_)))) - (_g159260159310_ _g159261159314_)))) - (_g159260159310_ _g159261159314_))))) - (_g159259159477_ _$stx159256_)))) + (_g159257159307_ + _g159258159311_)))) + (_g159257159307_ + _g159258159311_)))) + (_g159257159307_ _g159258159311_)))) + (_g159257159307_ _g159258159311_)))) + (_g159257159307_ _g159258159311_))))) + (_g159256159474_ _$stx159253_)))) (define |gxc[:0:]#@predicate| - (lambda (_$stx159481_) - (let* ((_g159485159499_ - (lambda (_g159486159495_) + (lambda (_$stx159478_) + (let* ((_g159482159496_ + (lambda (_g159483159492_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159486159495_)))) - (_g159484159540_ - (lambda (_g159486159503_) + _g159483159492_)))) + (_g159481159537_ + (lambda (_g159483159500_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159486159503_)) - (let ((_e159490159506_ + (gx#stx-pair? _g159483159500_)) + (let ((_e159487159503_ (let () (declare (not safe)) - (gx#syntax-e _g159486159503_)))) - (let ((_hd159489159510_ + (gx#syntax-e _g159483159500_)))) + (let ((_hd159486159507_ (let () (declare (not safe)) - (##car _e159490159506_))) - (_tl159488159513_ + (##car _e159487159503_))) + (_tl159485159510_ (let () (declare (not safe)) - (##cdr _e159490159506_)))) + (##cdr _e159487159503_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159488159513_)) - (let ((_e159493159516_ + (gx#stx-pair? _tl159485159510_)) + (let ((_e159490159513_ (let () (declare (not safe)) - (gx#syntax-e _tl159488159513_)))) - (let ((_hd159492159520_ + (gx#syntax-e _tl159485159510_)))) + (let ((_hd159489159517_ (let () (declare (not safe)) - (##car _e159493159516_))) - (_tl159491159523_ + (##car _e159490159513_))) + (_tl159488159520_ (let () (declare (not safe)) - (##cdr _e159493159516_)))) + (##cdr _e159490159513_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159491159523_)) - ((lambda (_L159526_) - (let ((__tmp162085 + (gx#stx-null? _tl159488159520_)) + ((lambda (_L159523_) + (let ((__tmp162082 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!predicate))) - (__tmp162081 - (let ((__tmp162082 - (let ((__tmp162084 + (__tmp162078 + (let ((__tmp162079 + (let ((__tmp162081 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162083 + (__tmp162080 (let () (declare (not safe)) - (cons _L159526_ + (cons _L159523_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp162084 __tmp162083)))) + (cons __tmp162081 __tmp162080)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162082 '())))) + (cons __tmp162079 '())))) (declare (not safe)) - (cons __tmp162085 __tmp162081))) - _hd159492159520_) - (_g159485159499_ _g159486159503_)))) - (_g159485159499_ _g159486159503_)))) - (_g159485159499_ _g159486159503_))))) - (_g159484159540_ _$stx159481_)))) + (cons __tmp162082 __tmp162078))) + _hd159489159517_) + (_g159482159496_ _g159483159500_)))) + (_g159482159496_ _g159483159500_)))) + (_g159482159496_ _g159483159500_))))) + (_g159481159537_ _$stx159478_)))) (define |gxc[:0:]#@constructor| - (lambda (_$stx159544_) - (let* ((_g159548159562_ - (lambda (_g159549159558_) + (lambda (_$stx159541_) + (let* ((_g159545159559_ + (lambda (_g159546159555_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159549159558_)))) - (_g159547159603_ - (lambda (_g159549159566_) + _g159546159555_)))) + (_g159544159600_ + (lambda (_g159546159563_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159549159566_)) - (let ((_e159553159569_ + (gx#stx-pair? _g159546159563_)) + (let ((_e159550159566_ (let () (declare (not safe)) - (gx#syntax-e _g159549159566_)))) - (let ((_hd159552159573_ + (gx#syntax-e _g159546159563_)))) + (let ((_hd159549159570_ (let () (declare (not safe)) - (##car _e159553159569_))) - (_tl159551159576_ + (##car _e159550159566_))) + (_tl159548159573_ (let () (declare (not safe)) - (##cdr _e159553159569_)))) + (##cdr _e159550159566_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159551159576_)) - (let ((_e159556159579_ + (gx#stx-pair? _tl159548159573_)) + (let ((_e159553159576_ (let () (declare (not safe)) - (gx#syntax-e _tl159551159576_)))) - (let ((_hd159555159583_ + (gx#syntax-e _tl159548159573_)))) + (let ((_hd159552159580_ (let () (declare (not safe)) - (##car _e159556159579_))) - (_tl159554159586_ + (##car _e159553159576_))) + (_tl159551159583_ (let () (declare (not safe)) - (##cdr _e159556159579_)))) + (##cdr _e159553159576_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159554159586_)) - ((lambda (_L159589_) - (let ((__tmp162090 + (gx#stx-null? _tl159551159583_)) + ((lambda (_L159586_) + (let ((__tmp162087 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!constructor))) - (__tmp162086 - (let ((__tmp162087 - (let ((__tmp162089 + (__tmp162083 + (let ((__tmp162084 + (let ((__tmp162086 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162088 + (__tmp162085 (let () (declare (not safe)) - (cons _L159589_ + (cons _L159586_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp162089 __tmp162088)))) + (cons __tmp162086 __tmp162085)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162087 '())))) + (cons __tmp162084 '())))) (declare (not safe)) - (cons __tmp162090 __tmp162086))) - _hd159555159583_) - (_g159548159562_ _g159549159566_)))) - (_g159548159562_ _g159549159566_)))) - (_g159548159562_ _g159549159566_))))) - (_g159547159603_ _$stx159544_)))) + (cons __tmp162087 __tmp162083))) + _hd159552159580_) + (_g159545159559_ _g159546159563_)))) + (_g159545159559_ _g159546159563_)))) + (_g159545159559_ _g159546159563_))))) + (_g159544159600_ _$stx159541_)))) (define |gxc[:0:]#@accessor| - (lambda (_$stx159607_) - (let* ((_g159611159633_ - (lambda (_g159612159629_) + (lambda (_$stx159604_) + (let* ((_g159608159630_ + (lambda (_g159609159626_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159612159629_)))) - (_g159610159702_ - (lambda (_g159612159637_) + _g159609159626_)))) + (_g159607159699_ + (lambda (_g159609159634_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159612159637_)) - (let ((_e159618159640_ + (gx#stx-pair? _g159609159634_)) + (let ((_e159615159637_ (let () (declare (not safe)) - (gx#syntax-e _g159612159637_)))) - (let ((_hd159617159644_ + (gx#syntax-e _g159609159634_)))) + (let ((_hd159614159641_ (let () (declare (not safe)) - (##car _e159618159640_))) - (_tl159616159647_ + (##car _e159615159637_))) + (_tl159613159644_ (let () (declare (not safe)) - (##cdr _e159618159640_)))) + (##cdr _e159615159637_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159616159647_)) - (let ((_e159621159650_ + (gx#stx-pair? _tl159613159644_)) + (let ((_e159618159647_ (let () (declare (not safe)) - (gx#syntax-e _tl159616159647_)))) - (let ((_hd159620159654_ + (gx#syntax-e _tl159613159644_)))) + (let ((_hd159617159651_ (let () (declare (not safe)) - (##car _e159621159650_))) - (_tl159619159657_ + (##car _e159618159647_))) + (_tl159616159654_ (let () (declare (not safe)) - (##cdr _e159621159650_)))) + (##cdr _e159618159647_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159619159657_)) - (let ((_e159624159660_ + (gx#stx-pair? _tl159616159654_)) + (let ((_e159621159657_ (let () (declare (not safe)) - (gx#syntax-e _tl159619159657_)))) - (let ((_hd159623159664_ + (gx#syntax-e _tl159616159654_)))) + (let ((_hd159620159661_ (let () (declare (not safe)) - (##car _e159624159660_))) - (_tl159622159667_ + (##car _e159621159657_))) + (_tl159619159664_ (let () (declare (not safe)) - (##cdr _e159624159660_)))) + (##cdr _e159621159657_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159622159667_)) - (let ((_e159627159670_ + (gx#stx-pair? _tl159619159664_)) + (let ((_e159624159667_ (let () (declare (not safe)) (gx#syntax-e - _tl159622159667_)))) - (let ((_hd159626159674_ + _tl159619159664_)))) + (let ((_hd159623159671_ (let () (declare (not safe)) - (##car _e159627159670_))) - (_tl159625159677_ + (##car _e159624159667_))) + (_tl159622159674_ (let () (declare (not safe)) - (##cdr _e159627159670_)))) + (##cdr _e159624159667_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl159625159677_)) - ((lambda (_L159680_ - _L159682_ - _L159683_) - (let ((__tmp162100 + _tl159622159674_)) + ((lambda (_L159677_ + _L159679_ + _L159680_) + (let ((__tmp162097 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'make-!accessor))) - (__tmp162091 - (let ((__tmp162097 - (let ((__tmp162099 + (__tmp162088 + (let ((__tmp162094 + (let ((__tmp162096 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162098 + (__tmp162095 (let () (declare (not safe)) - (cons _L159683_ '())))) + (cons _L159680_ '())))) (declare (not safe)) - (cons __tmp162099 __tmp162098))) - (__tmp162092 - (let ((__tmp162094 - (let ((__tmp162096 + (cons __tmp162096 __tmp162095))) + (__tmp162089 + (let ((__tmp162091 + (let ((__tmp162093 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162095 + (__tmp162092 (let () (declare (not safe)) - (cons _L159682_ '())))) + (cons _L159679_ '())))) (declare (not safe)) - (cons __tmp162096 __tmp162095))) - (__tmp162093 + (cons __tmp162093 __tmp162092))) + (__tmp162090 (let () (declare (not safe)) - (cons _L159680_ '())))) + (cons _L159677_ '())))) (declare (not safe)) - (cons __tmp162094 __tmp162093)))) + (cons __tmp162091 __tmp162090)))) (declare (not safe)) - (cons __tmp162097 __tmp162092)))) + (cons __tmp162094 __tmp162089)))) (declare (not safe)) - (cons __tmp162100 __tmp162091))) + (cons __tmp162097 __tmp162088))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd159626159674_ - _hd159623159664_ - _hd159620159654_) - (_g159611159633_ - _g159612159637_)))) - (_g159611159633_ - _g159612159637_)))) - (_g159611159633_ _g159612159637_)))) - (_g159611159633_ _g159612159637_)))) - (_g159611159633_ _g159612159637_))))) - (_g159610159702_ _$stx159607_)))) + _hd159623159671_ + _hd159620159661_ + _hd159617159651_) + (_g159608159630_ + _g159609159634_)))) + (_g159608159630_ + _g159609159634_)))) + (_g159608159630_ _g159609159634_)))) + (_g159608159630_ _g159609159634_)))) + (_g159608159630_ _g159609159634_))))) + (_g159607159699_ _$stx159604_)))) (define |gxc[:0:]#@mutator| - (lambda (_$stx159706_) - (let* ((_g159710159732_ - (lambda (_g159711159728_) + (lambda (_$stx159703_) + (let* ((_g159707159729_ + (lambda (_g159708159725_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159711159728_)))) - (_g159709159801_ - (lambda (_g159711159736_) + _g159708159725_)))) + (_g159706159798_ + (lambda (_g159708159733_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159711159736_)) - (let ((_e159717159739_ + (gx#stx-pair? _g159708159733_)) + (let ((_e159714159736_ (let () (declare (not safe)) - (gx#syntax-e _g159711159736_)))) - (let ((_hd159716159743_ + (gx#syntax-e _g159708159733_)))) + (let ((_hd159713159740_ (let () (declare (not safe)) - (##car _e159717159739_))) - (_tl159715159746_ + (##car _e159714159736_))) + (_tl159712159743_ (let () (declare (not safe)) - (##cdr _e159717159739_)))) + (##cdr _e159714159736_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159715159746_)) - (let ((_e159720159749_ + (gx#stx-pair? _tl159712159743_)) + (let ((_e159717159746_ (let () (declare (not safe)) - (gx#syntax-e _tl159715159746_)))) - (let ((_hd159719159753_ + (gx#syntax-e _tl159712159743_)))) + (let ((_hd159716159750_ (let () (declare (not safe)) - (##car _e159720159749_))) - (_tl159718159756_ + (##car _e159717159746_))) + (_tl159715159753_ (let () (declare (not safe)) - (##cdr _e159720159749_)))) + (##cdr _e159717159746_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159718159756_)) - (let ((_e159723159759_ + (gx#stx-pair? _tl159715159753_)) + (let ((_e159720159756_ (let () (declare (not safe)) - (gx#syntax-e _tl159718159756_)))) - (let ((_hd159722159763_ + (gx#syntax-e _tl159715159753_)))) + (let ((_hd159719159760_ (let () (declare (not safe)) - (##car _e159723159759_))) - (_tl159721159766_ + (##car _e159720159756_))) + (_tl159718159763_ (let () (declare (not safe)) - (##cdr _e159723159759_)))) + (##cdr _e159720159756_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159721159766_)) - (let ((_e159726159769_ + (gx#stx-pair? _tl159718159763_)) + (let ((_e159723159766_ (let () (declare (not safe)) (gx#syntax-e - _tl159721159766_)))) - (let ((_hd159725159773_ + _tl159718159763_)))) + (let ((_hd159722159770_ (let () (declare (not safe)) - (##car _e159726159769_))) - (_tl159724159776_ + (##car _e159723159766_))) + (_tl159721159773_ (let () (declare (not safe)) - (##cdr _e159726159769_)))) + (##cdr _e159723159766_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl159724159776_)) - ((lambda (_L159779_ - _L159781_ - _L159782_) - (let ((__tmp162110 + _tl159721159773_)) + ((lambda (_L159776_ + _L159778_ + _L159779_) + (let ((__tmp162107 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'make-!mutator))) - (__tmp162101 - (let ((__tmp162107 - (let ((__tmp162109 + (__tmp162098 + (let ((__tmp162104 + (let ((__tmp162106 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162108 + (__tmp162105 (let () (declare (not safe)) - (cons _L159782_ '())))) + (cons _L159779_ '())))) (declare (not safe)) - (cons __tmp162109 __tmp162108))) - (__tmp162102 - (let ((__tmp162104 - (let ((__tmp162106 + (cons __tmp162106 __tmp162105))) + (__tmp162099 + (let ((__tmp162101 + (let ((__tmp162103 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162105 + (__tmp162102 (let () (declare (not safe)) - (cons _L159781_ '())))) + (cons _L159778_ '())))) (declare (not safe)) - (cons __tmp162106 __tmp162105))) - (__tmp162103 + (cons __tmp162103 __tmp162102))) + (__tmp162100 (let () (declare (not safe)) - (cons _L159779_ '())))) + (cons _L159776_ '())))) (declare (not safe)) - (cons __tmp162104 __tmp162103)))) + (cons __tmp162101 __tmp162100)))) (declare (not safe)) - (cons __tmp162107 __tmp162102)))) + (cons __tmp162104 __tmp162099)))) (declare (not safe)) - (cons __tmp162110 __tmp162101))) + (cons __tmp162107 __tmp162098))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd159725159773_ - _hd159722159763_ - _hd159719159753_) - (_g159710159732_ - _g159711159736_)))) - (_g159710159732_ - _g159711159736_)))) - (_g159710159732_ _g159711159736_)))) - (_g159710159732_ _g159711159736_)))) - (_g159710159732_ _g159711159736_))))) - (_g159709159801_ _$stx159706_)))) + _hd159722159770_ + _hd159719159760_ + _hd159716159750_) + (_g159707159729_ + _g159708159733_)))) + (_g159707159729_ + _g159708159733_)))) + (_g159707159729_ _g159708159733_)))) + (_g159707159729_ _g159708159733_)))) + (_g159707159729_ _g159708159733_))))) + (_g159706159798_ _$stx159703_)))) (define |gxc[:0:]#@lambda| - (lambda (_$stx159805_) - (let* ((___stx161620161621_ _$stx159805_) - (_g159813159881_ + (lambda (_$stx159802_) + (let* ((___stx161617161618_ _$stx159802_) + (_g159810159878_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx161620161621_))))) - (let ((___kont161623161624_ - (lambda (_L160159_ _L160161_) - (let ((__tmp162126 + ___stx161617161618_))))) + (let ((___kont161620161621_ + (lambda (_L160156_ _L160158_) + (let ((__tmp162123 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp162111 - (let ((__tmp162122 - (let ((__tmp162125 + (__tmp162108 + (let ((__tmp162119 + (let ((__tmp162122 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162123 - (let ((__tmp162124 + (__tmp162120 + (let ((__tmp162121 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp162124 '())))) + (cons __tmp162121 '())))) (declare (not safe)) - (cons __tmp162125 __tmp162123))) - (__tmp162112 - (let ((__tmp162119 - (let ((__tmp162121 + (cons __tmp162122 __tmp162120))) + (__tmp162109 + (let ((__tmp162116 + (let ((__tmp162118 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162120 + (__tmp162117 (let () (declare (not safe)) - (cons _L160161_ '())))) + (cons _L160158_ '())))) (declare (not safe)) - (cons __tmp162121 __tmp162120))) - (__tmp162113 - (let ((__tmp162114 - (let ((__tmp162115 - (let ((__tmp162116 - (let ((__tmp162118 + (cons __tmp162118 __tmp162117))) + (__tmp162110 + (let ((__tmp162111 + (let ((__tmp162112 + (let ((__tmp162113 + (let ((__tmp162115 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162117 - (let () (declare (not safe)) (cons _L160159_ '())))) + (__tmp162114 + (let () (declare (not safe)) (cons _L160156_ '())))) (declare (not safe)) - (cons __tmp162118 __tmp162117)))) + (cons __tmp162115 __tmp162114)))) (declare (not safe)) - (cons __tmp162116 '())))) + (cons __tmp162113 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L160159_ __tmp162115)))) + (cons _L160156_ __tmp162112)))) (declare (not safe)) - (cons '#f __tmp162114)))) + (cons '#f __tmp162111)))) (declare (not safe)) - (cons __tmp162119 __tmp162113)))) + (cons __tmp162116 __tmp162110)))) (declare (not safe)) - (cons __tmp162122 __tmp162112)))) + (cons __tmp162119 __tmp162109)))) (declare (not safe)) - (cons __tmp162126 __tmp162111)))) - (___kont161625161626_ - (lambda (_L160090_ _L160092_) - (let ((__tmp162127 - (let ((__tmp162128 - (let ((__tmp162129 + (cons __tmp162123 __tmp162108)))) + (___kont161622161623_ + (lambda (_L160087_ _L160089_) + (let ((__tmp162124 + (let ((__tmp162125 + (let ((__tmp162126 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L160090_ __tmp162129)))) + (cons _L160087_ __tmp162126)))) (declare (not safe)) - (cons 'primitive: __tmp162128)))) + (cons 'primitive: __tmp162125)))) (declare (not safe)) - (cons _L160092_ __tmp162127)))) - (___kont161627161628_ - (lambda (_L160029_ _L160031_) - (let ((__tmp162143 + (cons _L160089_ __tmp162124)))) + (___kont161624161625_ + (lambda (_L160026_ _L160028_) + (let ((__tmp162140 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-lambda))) - (__tmp162130 - (let ((__tmp162139 - (let ((__tmp162142 + (__tmp162127 + (let ((__tmp162136 + (let ((__tmp162139 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162140 - (let ((__tmp162141 + (__tmp162137 + (let ((__tmp162138 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp162141 '())))) + (cons __tmp162138 '())))) (declare (not safe)) - (cons __tmp162142 __tmp162140))) - (__tmp162131 - (let ((__tmp162136 - (let ((__tmp162138 + (cons __tmp162139 __tmp162137))) + (__tmp162128 + (let ((__tmp162133 + (let ((__tmp162135 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162137 + (__tmp162134 (let () (declare (not safe)) - (cons _L160031_ '())))) + (cons _L160028_ '())))) (declare (not safe)) - (cons __tmp162138 __tmp162137))) - (__tmp162132 - (let ((__tmp162133 - (let ((__tmp162135 + (cons __tmp162135 __tmp162134))) + (__tmp162129 + (let ((__tmp162130 + (let ((__tmp162132 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162134 + (__tmp162131 (let () (declare (not safe)) - (cons _L160029_ '())))) + (cons _L160026_ '())))) (declare (not safe)) - (cons __tmp162135 - __tmp162134)))) + (cons __tmp162132 + __tmp162131)))) (declare (not safe)) - (cons __tmp162133 '())))) + (cons __tmp162130 '())))) (declare (not safe)) - (cons __tmp162136 __tmp162132)))) + (cons __tmp162133 __tmp162129)))) (declare (not safe)) - (cons __tmp162139 __tmp162131)))) + (cons __tmp162136 __tmp162128)))) (declare (not safe)) - (cons __tmp162143 __tmp162130)))) - (___kont161629161630_ - (lambda (_L159961_ _L159963_) - (let ((__tmp162157 + (cons __tmp162140 __tmp162127)))) + (___kont161626161627_ + (lambda (_L159958_ _L159960_) + (let ((__tmp162154 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp162144 - (let ((__tmp162153 - (let ((__tmp162156 + (__tmp162141 + (let ((__tmp162150 + (let ((__tmp162153 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162154 - (let ((__tmp162155 + (__tmp162151 + (let ((__tmp162152 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp162155 '())))) + (cons __tmp162152 '())))) (declare (not safe)) - (cons __tmp162156 __tmp162154))) - (__tmp162145 - (let ((__tmp162150 - (let ((__tmp162152 + (cons __tmp162153 __tmp162151))) + (__tmp162142 + (let ((__tmp162147 + (let ((__tmp162149 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162151 + (__tmp162148 (let () (declare (not safe)) - (cons _L159963_ '())))) + (cons _L159960_ '())))) (declare (not safe)) - (cons __tmp162152 __tmp162151))) - (__tmp162146 - (let ((__tmp162147 - (let ((__tmp162149 + (cons __tmp162149 __tmp162148))) + (__tmp162143 + (let ((__tmp162144 + (let ((__tmp162146 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162148 + (__tmp162145 (let () (declare (not safe)) - (cons _L159961_ '())))) + (cons _L159958_ '())))) (declare (not safe)) - (cons __tmp162149 - __tmp162148)))) + (cons __tmp162146 + __tmp162145)))) (declare (not safe)) - (cons __tmp162147 '())))) + (cons __tmp162144 '())))) (declare (not safe)) - (cons __tmp162150 __tmp162146)))) + (cons __tmp162147 __tmp162143)))) (declare (not safe)) - (cons __tmp162153 __tmp162145)))) + (cons __tmp162150 __tmp162142)))) (declare (not safe)) - (cons __tmp162157 __tmp162144)))) - (___kont161631161632_ - (lambda (_L159908_ _L159910_) - (let ((__tmp162158 - (let ((__tmp162159 + (cons __tmp162154 __tmp162141)))) + (___kont161628161629_ + (lambda (_L159905_ _L159907_) + (let ((__tmp162155 + (let ((__tmp162156 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L159908_ __tmp162159)))) + (cons _L159905_ __tmp162156)))) (declare (not safe)) - (cons _L159910_ __tmp162158))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx161620161621_)) - (let ((_e159819160115_ + (cons _L159907_ __tmp162155))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx161617161618_)) + (let ((_e159816160112_ (let () (declare (not safe)) - (gx#syntax-e ___stx161620161621_)))) - (let ((_tl159817160122_ - (let () (declare (not safe)) (##cdr _e159819160115_))) - (_hd159818160119_ - (let () (declare (not safe)) (##car _e159819160115_)))) + (gx#syntax-e ___stx161617161618_)))) + (let ((_tl159814160119_ + (let () (declare (not safe)) (##cdr _e159816160112_))) + (_hd159815160116_ + (let () (declare (not safe)) (##car _e159816160112_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159817160122_)) - (let ((_e159822160125_ + (gx#stx-pair? _tl159814160119_)) + (let ((_e159819160122_ (let () (declare (not safe)) - (gx#syntax-e _tl159817160122_)))) - (let ((_tl159820160132_ + (gx#syntax-e _tl159814160119_)))) + (let ((_tl159817160129_ (let () (declare (not safe)) - (##cdr _e159822160125_))) - (_hd159821160129_ + (##cdr _e159819160122_))) + (_hd159818160126_ (let () (declare (not safe)) - (##car _e159822160125_)))) + (##car _e159819160122_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159820160132_)) - (let ((_e159825160135_ + (gx#stx-pair? _tl159817160129_)) + (let ((_e159822160132_ (let () (declare (not safe)) - (gx#syntax-e _tl159820160132_)))) - (let ((_tl159823160142_ + (gx#syntax-e _tl159817160129_)))) + (let ((_tl159820160139_ (let () (declare (not safe)) - (##cdr _e159825160135_))) - (_hd159824160139_ + (##cdr _e159822160132_))) + (_hd159821160136_ (let () (declare (not safe)) - (##car _e159825160135_)))) + (##car _e159822160132_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd159824160139_)) - (let ((_e159826160145_ + (gx#stx-datum? _hd159821160136_)) + (let ((_e159823160142_ (let () (declare (not safe)) - (gx#stx-e _hd159824160139_)))) + (gx#stx-e _hd159821160136_)))) (if (let () (declare (not safe)) - (equal? _e159826160145_ + (equal? _e159823160142_ 'inline:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl159823160142_)) - (let ((_e159829160149_ + _tl159820160139_)) + (let ((_e159826160146_ (let () (declare (not safe)) (gx#syntax-e - _tl159823160142_)))) - (let ((_tl159827160156_ + _tl159820160139_)))) + (let ((_tl159824160153_ (let () (declare (not safe)) - (##cdr _e159829160149_))) - (_hd159828160153_ + (##cdr _e159826160146_))) + (_hd159825160150_ (let () (declare (not safe)) - (##car _e159829160149_)))) + (##car _e159826160146_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl159827160156_)) - (___kont161623161624_ - _hd159828160153_ - _hd159821160129_) + _tl159824160153_)) + (___kont161620161621_ + _hd159825160150_ + _hd159818160126_) (if (let () (declare (not safe)) (gx#stx-datum? - _hd159821160129_)) - (let ((_e159838160076_ + _hd159818160126_)) + (let ((_e159835160073_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd159821160129_)))) + (gx#stx-e _hd159818160126_)))) (declare (not safe)) - (_g159813159881_)) - (let () (declare (not safe)) (_g159813159881_)))))) + (_g159810159878_)) + (let () (declare (not safe)) (_g159810159878_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _hd159821160129_)) - (let ((_e159838160076_ + _hd159818160126_)) + (let ((_e159835160073_ (let () (declare (not safe)) (gx#stx-e - _hd159821160129_)))) + _hd159818160126_)))) (if (let () (declare (not safe)) - (equal? _e159838160076_ + (equal? _e159835160073_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'primitive:)) (if (let () (declare (not safe)) - (gx#stx-null? _tl159823160142_)) - (___kont161625161626_ _hd159824160139_ _hd159818160119_) - (let () (declare (not safe)) (_g159813159881_))) + (gx#stx-null? _tl159820160139_)) + (___kont161622161623_ _hd159821160136_ _hd159815160116_) + (let () (declare (not safe)) (_g159810159878_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159823160142_)) - (___kont161629161630_ _hd159824160139_ _hd159821160129_) - (let () (declare (not safe)) (_g159813159881_))))) + (gx#stx-null? _tl159820160139_)) + (___kont161626161627_ _hd159821160136_ _hd159818160126_) + (let () (declare (not safe)) (_g159810159878_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl159823160142_)) - (___kont161629161630_ - _hd159824160139_ - _hd159821160129_) + _tl159820160139_)) + (___kont161626161627_ + _hd159821160136_ + _hd159818160126_) (let () (declare (not safe)) - (_g159813159881_))))) + (_g159810159878_))))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd159821160129_)) - (let ((_e159838160076_ + _hd159818160126_)) + (let ((_e159835160073_ (let () (declare (not safe)) (gx#stx-e - _hd159821160129_)))) + _hd159818160126_)))) (if (let () (declare (not safe)) - (equal? _e159838160076_ + (equal? _e159835160073_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl159823160142_)) - (___kont161625161626_ - _hd159824160139_ - _hd159818160119_) + _tl159820160139_)) + (___kont161622161623_ + _hd159821160136_ + _hd159815160116_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl159823160142_)) - (let ((_e159856160019_ + (gx#stx-pair? _tl159820160139_)) + (let ((_e159853160016_ (let () (declare (not safe)) - (gx#syntax-e _tl159823160142_)))) - (let ((_tl159854160026_ + (gx#syntax-e _tl159820160139_)))) + (let ((_tl159851160023_ (let () (declare (not safe)) - (##cdr _e159856160019_))) - (_hd159855160023_ + (##cdr _e159853160016_))) + (_hd159852160020_ (let () (declare (not safe)) - (##car _e159856160019_)))) + (##car _e159853160016_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159854160026_)) - (___kont161627161628_ - _hd159855160023_ - _hd159824160139_) + (gx#stx-null? _tl159851160023_)) + (___kont161624161625_ + _hd159852160020_ + _hd159821160136_) (let () (declare (not safe)) - (_g159813159881_))))) - (let () (declare (not safe)) (_g159813159881_)))) - (if (let () (declare (not safe)) (gx#stx-null? _tl159823160142_)) - (___kont161629161630_ _hd159824160139_ _hd159821160129_) - (let () (declare (not safe)) (_g159813159881_))))) + (_g159810159878_))))) + (let () (declare (not safe)) (_g159810159878_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl159820160139_)) + (___kont161626161627_ _hd159821160136_ _hd159818160126_) + (let () (declare (not safe)) (_g159810159878_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl159823160142_)) - (___kont161629161630_ - _hd159824160139_ - _hd159821160129_) + _tl159820160139_)) + (___kont161626161627_ + _hd159821160136_ + _hd159818160126_) (let () (declare (not safe)) - (_g159813159881_)))))) + (_g159810159878_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd159821160129_)) - (let ((_e159838160076_ + (gx#stx-datum? _hd159818160126_)) + (let ((_e159835160073_ (let () (declare (not safe)) (gx#stx-e - _hd159821160129_)))) + _hd159818160126_)))) (if (let () (declare (not safe)) - (equal? _e159838160076_ + (equal? _e159835160073_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl159823160142_)) - (___kont161625161626_ - _hd159824160139_ - _hd159818160119_) + _tl159820160139_)) + (___kont161622161623_ + _hd159821160136_ + _hd159815160116_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl159823160142_)) - (let ((_e159856160019_ + _tl159820160139_)) + (let ((_e159853160016_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl159823160142_)))) - (let ((_tl159854160026_ - (let () (declare (not safe)) (##cdr _e159856160019_))) - (_hd159855160023_ + (gx#syntax-e _tl159820160139_)))) + (let ((_tl159851160023_ + (let () (declare (not safe)) (##cdr _e159853160016_))) + (_hd159852160020_ (let () (declare (not safe)) - (##car _e159856160019_)))) + (##car _e159853160016_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159854160026_)) - (___kont161627161628_ - _hd159855160023_ - _hd159824160139_) - (let () (declare (not safe)) (_g159813159881_))))) - (let () (declare (not safe)) (_g159813159881_)))) + (gx#stx-null? _tl159851160023_)) + (___kont161624161625_ + _hd159852160020_ + _hd159821160136_) + (let () (declare (not safe)) (_g159810159878_))))) + (let () (declare (not safe)) (_g159810159878_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl159823160142_)) - (___kont161629161630_ - _hd159824160139_ - _hd159821160129_) + _tl159820160139_)) + (___kont161626161627_ + _hd159821160136_ + _hd159818160126_) (let () (declare (not safe)) - (_g159813159881_))))) + (_g159810159878_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl159823160142_)) - (___kont161629161630_ - _hd159824160139_ - _hd159821160129_) + _tl159820160139_)) + (___kont161626161627_ + _hd159821160136_ + _hd159818160126_) (let () (declare (not safe)) - (_g159813159881_))))))) + (_g159810159878_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd159821160129_)) - (let ((_e159838160076_ + (gx#stx-datum? _hd159818160126_)) + (let ((_e159835160073_ (let () (declare (not safe)) - (gx#stx-e _hd159821160129_)))) + (gx#stx-e _hd159818160126_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159820160132_)) - (___kont161631161632_ - _hd159821160129_ - _hd159818160119_) + (gx#stx-null? _tl159817160129_)) + (___kont161628161629_ + _hd159818160126_ + _hd159815160116_) (let () (declare (not safe)) - (_g159813159881_)))) + (_g159810159878_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159820160132_)) - (___kont161631161632_ - _hd159821160129_ - _hd159818160119_) + (gx#stx-null? _tl159817160129_)) + (___kont161628161629_ + _hd159818160126_ + _hd159815160116_) (let () (declare (not safe)) - (_g159813159881_))))))) - (let () (declare (not safe)) (_g159813159881_))))) - (let () (declare (not safe)) (_g159813159881_))))))) + (_g159810159878_))))))) + (let () (declare (not safe)) (_g159810159878_))))) + (let () (declare (not safe)) (_g159810159878_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_$stx160183_) - (let* ((___stx161760161761_ _$stx160183_) - (_g160188160243_ + (lambda (_$stx160180_) + (let* ((___stx161757161758_ _$stx160180_) + (_g160185160240_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx161760161761_))))) - (let ((___kont161763161764_ - (lambda (_L160428_ _L160430_) - (let ((__tmp162175 + ___stx161757161758_))))) + (let ((___kont161760161761_ + (lambda (_L160425_ _L160427_) + (let ((__tmp162172 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-case-lambda))) - (__tmp162160 - (let ((__tmp162171 - (let ((__tmp162174 + (__tmp162157 + (let ((__tmp162168 + (let ((__tmp162171 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162172 - (let ((__tmp162173 + (__tmp162169 + (let ((__tmp162170 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp162173 '())))) + (cons __tmp162170 '())))) (declare (not safe)) - (cons __tmp162174 __tmp162172))) - (__tmp162161 - (let ((__tmp162162 - (let ((__tmp162170 + (cons __tmp162171 __tmp162169))) + (__tmp162158 + (let ((__tmp162159 + (let ((__tmp162167 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp162163 + (__tmp162160 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L160428_ - _L160430_)) - (let ((__tmp162164 - (lambda (_g160447160451_ - _g160448160454_ - _g160449160456_) - (let ((__tmp162165 - (let ((__tmp162169 + _L160425_ + _L160427_)) + (let ((__tmp162161 + (lambda (_g160444160448_ + _g160445160451_ + _g160446160453_) + (let ((__tmp162162 + (let ((__tmp162166 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp162166 - (let ((__tmp162167 - (let ((__tmp162168 + (__tmp162163 + (let ((__tmp162164 + (let ((__tmp162165 (let () (declare (not safe)) - (cons _g160447160451_ '())))) + (cons _g160444160448_ '())))) (declare (not safe)) - (cons _g160448160454_ __tmp162168)))) + (cons _g160445160451_ __tmp162165)))) (declare (not safe)) - (cons 'primitive: __tmp162167)))) + (cons 'primitive: __tmp162164)))) (declare (not safe)) - (cons __tmp162169 __tmp162166)))) + (cons __tmp162166 __tmp162163)))) (declare (not safe)) - (cons __tmp162165 _g160449160456_))))) + (cons __tmp162162 _g160446160453_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp162164 + (foldr2 __tmp162161 '() - _L160428_ - _L160430_))))) + _L160425_ + _L160427_))))) (declare (not safe)) - (cons __tmp162170 __tmp162163)))) + (cons __tmp162167 __tmp162160)))) (declare (not safe)) - (cons __tmp162162 '())))) + (cons __tmp162159 '())))) (declare (not safe)) - (cons __tmp162171 __tmp162161)))) + (cons __tmp162168 __tmp162158)))) (declare (not safe)) - (cons __tmp162175 __tmp162160)))) - (___kont161767161768_ - (lambda (_L160314_ _L160316_) - (let ((__tmp162190 + (cons __tmp162172 __tmp162157)))) + (___kont161764161765_ + (lambda (_L160311_ _L160313_) + (let ((__tmp162187 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!case-lambda))) - (__tmp162176 - (let ((__tmp162186 - (let ((__tmp162189 + (__tmp162173 + (let ((__tmp162183 + (let ((__tmp162186 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162187 - (let ((__tmp162188 + (__tmp162184 + (let ((__tmp162185 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp162188 '())))) + (cons __tmp162185 '())))) (declare (not safe)) - (cons __tmp162189 __tmp162187))) - (__tmp162177 - (let ((__tmp162178 - (let ((__tmp162185 + (cons __tmp162186 __tmp162184))) + (__tmp162174 + (let ((__tmp162175 + (let ((__tmp162182 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp162179 + (__tmp162176 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L160314_ - _L160316_)) - (let ((__tmp162180 - (lambda (_g160331160335_ - _g160332160338_ - _g160333160340_) - (let ((__tmp162181 - (let ((__tmp162184 + _L160311_ + _L160313_)) + (let ((__tmp162177 + (lambda (_g160328160332_ + _g160329160335_ + _g160330160337_) + (let ((__tmp162178 + (let ((__tmp162181 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp162182 - (let ((__tmp162183 + (__tmp162179 + (let ((__tmp162180 (let () (declare (not safe)) - (cons _g160331160335_ '())))) + (cons _g160328160332_ '())))) (declare (not safe)) - (cons _g160332160338_ __tmp162183)))) + (cons _g160329160335_ __tmp162180)))) (declare (not safe)) - (cons __tmp162184 __tmp162182)))) + (cons __tmp162181 __tmp162179)))) (declare (not safe)) - (cons __tmp162181 _g160333160340_))))) + (cons __tmp162178 _g160330160337_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp162180 + (foldr2 __tmp162177 '() - _L160314_ - _L160316_))))) + _L160311_ + _L160313_))))) (declare (not safe)) - (cons __tmp162185 __tmp162179)))) + (cons __tmp162182 __tmp162176)))) (declare (not safe)) - (cons __tmp162178 '())))) + (cons __tmp162175 '())))) (declare (not safe)) - (cons __tmp162186 __tmp162177)))) + (cons __tmp162183 __tmp162174)))) (declare (not safe)) - (cons __tmp162190 __tmp162176))))) - (let* ((___match161811161812_ - (lambda (_e160220160250_ - _hd160219160254_ - _tl160218160257_ - ___splice161769161770_ - _target160221160260_ - _tl160223160263_) - (letrec ((_loop160224160266_ - (lambda (_hd160222160270_ - _dispatch160228160273_ - _arity160229160275_) + (cons __tmp162187 __tmp162173))))) + (let* ((___match161808161809_ + (lambda (_e160217160247_ + _hd160216160251_ + _tl160215160254_ + ___splice161766161767_ + _target160218160257_ + _tl160220160260_) + (letrec ((_loop160221160263_ + (lambda (_hd160219160267_ + _dispatch160225160270_ + _arity160226160272_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd160222160270_)) - (let ((_e160225160278_ + (gx#stx-pair? _hd160219160267_)) + (let ((_e160222160275_ (let () (declare (not safe)) - (gx#syntax-e _hd160222160270_)))) - (let ((_lp-tl160227160285_ + (gx#syntax-e _hd160219160267_)))) + (let ((_lp-tl160224160282_ (let () (declare (not safe)) - (##cdr _e160225160278_))) - (_lp-hd160226160282_ + (##cdr _e160222160275_))) + (_lp-hd160223160279_ (let () (declare (not safe)) - (##car _e160225160278_)))) + (##car _e160222160275_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd160226160282_)) - (let ((_e160234160288_ + _lp-hd160223160279_)) + (let ((_e160231160285_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd160226160282_)))) - (let ((_tl160232160295_ + _lp-hd160223160279_)))) + (let ((_tl160229160292_ (let () (declare (not safe)) - (##cdr _e160234160288_))) - (_hd160233160292_ + (##cdr _e160231160285_))) + (_hd160230160289_ (let () (declare (not safe)) - (##car _e160234160288_)))) + (##car _e160231160285_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl160232160295_)) - (let ((_e160237160298_ + _tl160229160292_)) + (let ((_e160234160295_ (let () (declare (not safe)) (gx#syntax-e - _tl160232160295_)))) - (let ((_tl160235160305_ + _tl160229160292_)))) + (let ((_tl160232160302_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e160237160298_))) - (_hd160236160302_ - (let () (declare (not safe)) (##car _e160237160298_)))) + (##cdr _e160234160295_))) + (_hd160233160299_ + (let () (declare (not safe)) (##car _e160234160295_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160235160305_)) - (_loop160224160266_ - _lp-tl160227160285_ + (gx#stx-null? _tl160232160302_)) + (_loop160221160263_ + _lp-tl160224160282_ (let () (declare (not safe)) - (cons _hd160236160302_ _dispatch160228160273_)) + (cons _hd160233160299_ _dispatch160225160270_)) (let () (declare (not safe)) - (cons _hd160233160292_ _arity160229160275_))) - (let () (declare (not safe)) (_g160188160243_))))) + (cons _hd160230160289_ _arity160226160272_))) + (let () (declare (not safe)) (_g160185160240_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g160188160243_))))) + (_g160185160240_))))) (let () (declare (not safe)) - (_g160188160243_))))) - (let ((_arity160231160311_ - (reverse _arity160229160275_)) - (_dispatch160230160308_ - (reverse _dispatch160228160273_))) - (___kont161767161768_ - _dispatch160230160308_ - _arity160231160311_)))))) - (_loop160224160266_ _target160221160260_ '() '())))) - (___match161803161804_ - (lambda (_e160220160250_ _hd160219160254_ _tl160218160257_) + (_g160185160240_))))) + (let ((_arity160228160308_ + (reverse _arity160226160272_)) + (_dispatch160227160305_ + (reverse _dispatch160225160270_))) + (___kont161764161765_ + _dispatch160227160305_ + _arity160228160308_)))))) + (_loop160221160263_ _target160218160257_ '() '())))) + (___match161800161801_ + (lambda (_e160217160247_ _hd160216160251_ _tl160215160254_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160218160257_)) - (let ((___splice161769161770_ + (gx#stx-pair/null? _tl160215160254_)) + (let ((___splice161766161767_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160218160257_ + _tl160215160254_ '0)))) - (let ((_tl160223160263_ + (let ((_tl160220160260_ (let () (declare (not safe)) - (##vector-ref ___splice161769161770_ '1))) - (_target160221160260_ + (##vector-ref ___splice161766161767_ '1))) + (_target160218160257_ (let () (declare (not safe)) - (##vector-ref ___splice161769161770_ '0)))) + (##vector-ref ___splice161766161767_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160223160263_)) - (___match161811161812_ - _e160220160250_ - _hd160219160254_ - _tl160218160257_ - ___splice161769161770_ - _target160221160260_ - _tl160223160263_) + (gx#stx-null? _tl160220160260_)) + (___match161808161809_ + _e160217160247_ + _hd160216160251_ + _tl160215160254_ + ___splice161766161767_ + _target160218160257_ + _tl160220160260_) (let () (declare (not safe)) - (_g160188160243_))))) - (let () (declare (not safe)) (_g160188160243_))))) - (___match161797161798_ - (lambda (_e160194160350_ - _hd160193160354_ - _tl160192160357_ - _e160197160360_ - _hd160196160364_ - _tl160195160367_ - _e160198160370_ - ___splice161765161766_ - _target160199160374_ - _tl160201160377_) - (letrec ((_loop160202160380_ - (lambda (_hd160200160384_ - _dispatch160206160387_ - _arity160207160389_) + (_g160185160240_))))) + (let () (declare (not safe)) (_g160185160240_))))) + (___match161794161795_ + (lambda (_e160191160347_ + _hd160190160351_ + _tl160189160354_ + _e160194160357_ + _hd160193160361_ + _tl160192160364_ + _e160195160367_ + ___splice161762161763_ + _target160196160371_ + _tl160198160374_) + (letrec ((_loop160199160377_ + (lambda (_hd160197160381_ + _dispatch160203160384_ + _arity160204160386_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd160200160384_)) - (let ((_e160203160392_ + (gx#stx-pair? _hd160197160381_)) + (let ((_e160200160389_ (let () (declare (not safe)) - (gx#syntax-e _hd160200160384_)))) - (let ((_lp-tl160205160399_ + (gx#syntax-e _hd160197160381_)))) + (let ((_lp-tl160202160396_ (let () (declare (not safe)) - (##cdr _e160203160392_))) - (_lp-hd160204160396_ + (##cdr _e160200160389_))) + (_lp-hd160201160393_ (let () (declare (not safe)) - (##car _e160203160392_)))) + (##car _e160200160389_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd160204160396_)) - (let ((_e160212160402_ + _lp-hd160201160393_)) + (let ((_e160209160399_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd160204160396_)))) - (let ((_tl160210160409_ + _lp-hd160201160393_)))) + (let ((_tl160207160406_ (let () (declare (not safe)) - (##cdr _e160212160402_))) - (_hd160211160406_ + (##cdr _e160209160399_))) + (_hd160208160403_ (let () (declare (not safe)) - (##car _e160212160402_)))) + (##car _e160209160399_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl160210160409_)) - (let ((_e160215160412_ + _tl160207160406_)) + (let ((_e160212160409_ (let () (declare (not safe)) (gx#syntax-e - _tl160210160409_)))) - (let ((_tl160213160419_ + _tl160207160406_)))) + (let ((_tl160210160416_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e160215160412_))) - (_hd160214160416_ - (let () (declare (not safe)) (##car _e160215160412_)))) + (##cdr _e160212160409_))) + (_hd160211160413_ + (let () (declare (not safe)) (##car _e160212160409_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160213160419_)) - (_loop160202160380_ - _lp-tl160205160399_ + (gx#stx-null? _tl160210160416_)) + (_loop160199160377_ + _lp-tl160202160396_ (let () (declare (not safe)) - (cons _hd160214160416_ _dispatch160206160387_)) + (cons _hd160211160413_ _dispatch160203160384_)) (let () (declare (not safe)) - (cons _hd160211160406_ _arity160207160389_))) - (___match161803161804_ - _e160194160350_ - _hd160193160354_ - _tl160192160357_)))) + (cons _hd160208160403_ _arity160204160386_))) + (___match161800161801_ + _e160191160347_ + _hd160190160351_ + _tl160189160354_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match161803161804_ - _e160194160350_ - _hd160193160354_ - _tl160192160357_)))) - (___match161803161804_ - _e160194160350_ - _hd160193160354_ - _tl160192160357_)))) - (let ((_arity160209160425_ - (reverse _arity160207160389_)) - (_dispatch160208160422_ - (reverse _dispatch160206160387_))) - (___kont161763161764_ - _dispatch160208160422_ - _arity160209160425_)))))) - (_loop160202160380_ _target160199160374_ '() '()))))) + (___match161800161801_ + _e160191160347_ + _hd160190160351_ + _tl160189160354_)))) + (___match161800161801_ + _e160191160347_ + _hd160190160351_ + _tl160189160354_)))) + (let ((_arity160206160422_ + (reverse _arity160204160386_)) + (_dispatch160205160419_ + (reverse _dispatch160203160384_))) + (___kont161760161761_ + _dispatch160205160419_ + _arity160206160422_)))))) + (_loop160199160377_ _target160196160371_ '() '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx161760161761_)) - (let ((_e160194160350_ + (gx#stx-pair? ___stx161757161758_)) + (let ((_e160191160347_ (let () (declare (not safe)) - (gx#syntax-e ___stx161760161761_)))) - (let ((_tl160192160357_ - (let () (declare (not safe)) (##cdr _e160194160350_))) - (_hd160193160354_ + (gx#syntax-e ___stx161757161758_)))) + (let ((_tl160189160354_ + (let () (declare (not safe)) (##cdr _e160191160347_))) + (_hd160190160351_ (let () (declare (not safe)) - (##car _e160194160350_)))) + (##car _e160191160347_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160192160357_)) - (let ((_e160197160360_ + (gx#stx-pair? _tl160189160354_)) + (let ((_e160194160357_ (let () (declare (not safe)) - (gx#syntax-e _tl160192160357_)))) - (let ((_tl160195160367_ + (gx#syntax-e _tl160189160354_)))) + (let ((_tl160192160364_ (let () (declare (not safe)) - (##cdr _e160197160360_))) - (_hd160196160364_ + (##cdr _e160194160357_))) + (_hd160193160361_ (let () (declare (not safe)) - (##car _e160197160360_)))) + (##car _e160194160357_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd160196160364_)) - (let ((_e160198160370_ + (gx#stx-datum? _hd160193160361_)) + (let ((_e160195160367_ (let () (declare (not safe)) - (gx#stx-e _hd160196160364_)))) + (gx#stx-e _hd160193160361_)))) (if (let () (declare (not safe)) - (equal? _e160198160370_ 'primitive:)) + (equal? _e160195160367_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160195160367_)) - (let ((___splice161765161766_ + _tl160192160364_)) + (let ((___splice161762161763_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160195160367_ + _tl160192160364_ '0)))) - (let ((_tl160201160377_ + (let ((_tl160198160374_ (let () (declare (not safe)) (##vector-ref - ___splice161765161766_ + ___splice161762161763_ '1))) - (_target160199160374_ + (_target160196160371_ (let () (declare (not safe)) (##vector-ref - ___splice161765161766_ + ___splice161762161763_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160201160377_)) - (___match161797161798_ - _e160194160350_ - _hd160193160354_ - _tl160192160357_ - _e160197160360_ - _hd160196160364_ - _tl160195160367_ - _e160198160370_ - ___splice161765161766_ - _target160199160374_ - _tl160201160377_) + _tl160198160374_)) + (___match161794161795_ + _e160191160347_ + _hd160190160351_ + _tl160189160354_ + _e160194160357_ + _hd160193160361_ + _tl160192160364_ + _e160195160367_ + ___splice161762161763_ + _target160196160371_ + _tl160198160374_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160192160357_)) - (let ((___splice161769161770_ + _tl160189160354_)) + (let ((___splice161766161767_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl160192160357_ '0)))) - (let ((_tl160223160263_ + (gx#syntax-split-splice _tl160189160354_ '0)))) + (let ((_tl160220160260_ (let () (declare (not safe)) - (##vector-ref ___splice161769161770_ '1))) - (_target160221160260_ + (##vector-ref ___splice161766161767_ '1))) + (_target160218160257_ (let () (declare (not safe)) - (##vector-ref ___splice161769161770_ '0)))) + (##vector-ref ___splice161766161767_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160223160263_)) - (___match161811161812_ - _e160194160350_ - _hd160193160354_ - _tl160192160357_ - ___splice161769161770_ - _target160221160260_ - _tl160223160263_) - (let () (declare (not safe)) (_g160188160243_))))) - (let () (declare (not safe)) (_g160188160243_)))))) + (gx#stx-null? _tl160220160260_)) + (___match161808161809_ + _e160191160347_ + _hd160190160351_ + _tl160189160354_ + ___splice161766161767_ + _target160218160257_ + _tl160220160260_) + (let () (declare (not safe)) (_g160185160240_))))) + (let () (declare (not safe)) (_g160185160240_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160192160357_)) - (let ((___splice161769161770_ + _tl160189160354_)) + (let ((___splice161766161767_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160192160357_ + _tl160189160354_ '0)))) - (let ((_tl160223160263_ + (let ((_tl160220160260_ (let () (declare (not safe)) (##vector-ref - ___splice161769161770_ + ___splice161766161767_ '1))) - (_target160221160260_ + (_target160218160257_ (let () (declare (not safe)) (##vector-ref - ___splice161769161770_ + ___splice161766161767_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160223160263_)) - (___match161811161812_ - _e160194160350_ - _hd160193160354_ - _tl160192160357_ - ___splice161769161770_ - _target160221160260_ - _tl160223160263_) + _tl160220160260_)) + (___match161808161809_ + _e160191160347_ + _hd160190160351_ + _tl160189160354_ + ___splice161766161767_ + _target160218160257_ + _tl160220160260_) (let () (declare (not safe)) - (_g160188160243_))))) + (_g160185160240_))))) (let () (declare (not safe)) - (_g160188160243_)))) + (_g160185160240_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160192160357_)) - (let ((___splice161769161770_ + _tl160189160354_)) + (let ((___splice161766161767_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160192160357_ + _tl160189160354_ '0)))) - (let ((_tl160223160263_ + (let ((_tl160220160260_ (let () (declare (not safe)) (##vector-ref - ___splice161769161770_ + ___splice161766161767_ '1))) - (_target160221160260_ + (_target160218160257_ (let () (declare (not safe)) (##vector-ref - ___splice161769161770_ + ___splice161766161767_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160223160263_)) - (___match161811161812_ - _e160194160350_ - _hd160193160354_ - _tl160192160357_ - ___splice161769161770_ - _target160221160260_ - _tl160223160263_) + _tl160220160260_)) + (___match161808161809_ + _e160191160347_ + _hd160190160351_ + _tl160189160354_ + ___splice161766161767_ + _target160218160257_ + _tl160220160260_) (let () (declare (not safe)) - (_g160188160243_))))) + (_g160185160240_))))) (let () (declare (not safe)) - (_g160188160243_))))) + (_g160185160240_))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160192160357_)) - (let ((___splice161769161770_ + (gx#stx-pair/null? _tl160189160354_)) + (let ((___splice161766161767_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160192160357_ + _tl160189160354_ '0)))) - (let ((_tl160223160263_ + (let ((_tl160220160260_ (let () (declare (not safe)) (##vector-ref - ___splice161769161770_ + ___splice161766161767_ '1))) - (_target160221160260_ + (_target160218160257_ (let () (declare (not safe)) (##vector-ref - ___splice161769161770_ + ___splice161766161767_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160223160263_)) - (___match161811161812_ - _e160194160350_ - _hd160193160354_ - _tl160192160357_ - ___splice161769161770_ - _target160221160260_ - _tl160223160263_) + (gx#stx-null? _tl160220160260_)) + (___match161808161809_ + _e160191160347_ + _hd160190160351_ + _tl160189160354_ + ___splice161766161767_ + _target160218160257_ + _tl160220160260_) (let () (declare (not safe)) - (_g160188160243_))))) + (_g160185160240_))))) (let () (declare (not safe)) - (_g160188160243_)))))) + (_g160185160240_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160192160357_)) - (let ((___splice161769161770_ + (gx#stx-pair/null? _tl160189160354_)) + (let ((___splice161766161767_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160192160357_ + _tl160189160354_ '0)))) - (let ((_tl160223160263_ + (let ((_tl160220160260_ (let () (declare (not safe)) (##vector-ref - ___splice161769161770_ + ___splice161766161767_ '1))) - (_target160221160260_ + (_target160218160257_ (let () (declare (not safe)) (##vector-ref - ___splice161769161770_ + ___splice161766161767_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160223160263_)) - (___match161811161812_ - _e160194160350_ - _hd160193160354_ - _tl160192160357_ - ___splice161769161770_ - _target160221160260_ - _tl160223160263_) + (gx#stx-null? _tl160220160260_)) + (___match161808161809_ + _e160191160347_ + _hd160190160351_ + _tl160189160354_ + ___splice161766161767_ + _target160218160257_ + _tl160220160260_) (let () (declare (not safe)) - (_g160188160243_))))) - (let () (declare (not safe)) (_g160188160243_)))))) - (let () (declare (not safe)) (_g160188160243_)))))))) + (_g160185160240_))))) + (let () (declare (not safe)) (_g160185160240_)))))) + (let () (declare (not safe)) (_g160185160240_)))))))) (define |gxc[:0:]#@kw-lambda| - (lambda (_$stx160465_) - (let* ((_g160469160487_ - (lambda (_g160470160483_) + (lambda (_$stx160462_) + (let* ((_g160466160484_ + (lambda (_g160467160480_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g160470160483_)))) - (_g160468160542_ - (lambda (_g160470160491_) + _g160467160480_)))) + (_g160465160539_ + (lambda (_g160467160488_) (if (let () (declare (not safe)) - (gx#stx-pair? _g160470160491_)) - (let ((_e160475160494_ + (gx#stx-pair? _g160467160488_)) + (let ((_e160472160491_ (let () (declare (not safe)) - (gx#syntax-e _g160470160491_)))) - (let ((_hd160474160498_ + (gx#syntax-e _g160467160488_)))) + (let ((_hd160471160495_ (let () (declare (not safe)) - (##car _e160475160494_))) - (_tl160473160501_ + (##car _e160472160491_))) + (_tl160470160498_ (let () (declare (not safe)) - (##cdr _e160475160494_)))) + (##cdr _e160472160491_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160473160501_)) - (let ((_e160478160504_ + (gx#stx-pair? _tl160470160498_)) + (let ((_e160475160501_ (let () (declare (not safe)) - (gx#syntax-e _tl160473160501_)))) - (let ((_hd160477160508_ + (gx#syntax-e _tl160470160498_)))) + (let ((_hd160474160505_ (let () (declare (not safe)) - (##car _e160478160504_))) - (_tl160476160511_ + (##car _e160475160501_))) + (_tl160473160508_ (let () (declare (not safe)) - (##cdr _e160478160504_)))) + (##cdr _e160475160501_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160476160511_)) - (let ((_e160481160514_ + (gx#stx-pair? _tl160473160508_)) + (let ((_e160478160511_ (let () (declare (not safe)) - (gx#syntax-e _tl160476160511_)))) - (let ((_hd160480160518_ + (gx#syntax-e _tl160473160508_)))) + (let ((_hd160477160515_ (let () (declare (not safe)) - (##car _e160481160514_))) - (_tl160479160521_ + (##car _e160478160511_))) + (_tl160476160518_ (let () (declare (not safe)) - (##cdr _e160481160514_)))) + (##cdr _e160478160511_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160479160521_)) - ((lambda (_L160524_ _L160526_) - (let ((__tmp162204 + (gx#stx-null? _tl160476160518_)) + ((lambda (_L160521_ _L160523_) + (let ((__tmp162201 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda))) - (__tmp162191 - (let ((__tmp162200 - (let ((__tmp162203 + (__tmp162188 + (let ((__tmp162197 + (let ((__tmp162200 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162201 - (let ((__tmp162202 + (__tmp162198 + (let ((__tmp162199 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda)))) (declare (not safe)) - (cons __tmp162202 '())))) + (cons __tmp162199 '())))) (declare (not safe)) - (cons __tmp162203 __tmp162201))) - (__tmp162192 - (let ((__tmp162197 - (let ((__tmp162199 + (cons __tmp162200 __tmp162198))) + (__tmp162189 + (let ((__tmp162194 + (let ((__tmp162196 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162198 + (__tmp162195 (let () (declare (not safe)) - (cons _L160526_ '())))) + (cons _L160523_ '())))) (declare (not safe)) - (cons __tmp162199 __tmp162198))) - (__tmp162193 - (let ((__tmp162194 - (let ((__tmp162196 + (cons __tmp162196 __tmp162195))) + (__tmp162190 + (let ((__tmp162191 + (let ((__tmp162193 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162195 + (__tmp162192 (let () (declare (not safe)) - (cons _L160524_ '())))) + (cons _L160521_ '())))) (declare (not safe)) - (cons __tmp162196 __tmp162195)))) + (cons __tmp162193 __tmp162192)))) (declare (not safe)) - (cons __tmp162194 '())))) + (cons __tmp162191 '())))) (declare (not safe)) - (cons __tmp162197 __tmp162193)))) + (cons __tmp162194 __tmp162190)))) (declare (not safe)) - (cons __tmp162200 __tmp162192)))) + (cons __tmp162197 __tmp162189)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162204 - __tmp162191))) - _hd160480160518_ - _hd160477160508_) - (_g160469160487_ - _g160470160491_)))) - (_g160469160487_ _g160470160491_)))) - (_g160469160487_ _g160470160491_)))) - (_g160469160487_ _g160470160491_))))) - (_g160468160542_ _$stx160465_)))) + (cons __tmp162201 + __tmp162188))) + _hd160477160515_ + _hd160474160505_) + (_g160466160484_ + _g160467160488_)))) + (_g160466160484_ _g160467160488_)))) + (_g160466160484_ _g160467160488_)))) + (_g160466160484_ _g160467160488_))))) + (_g160465160539_ _$stx160462_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_$stx160546_) - (let* ((_g160550160568_ - (lambda (_g160551160564_) + (lambda (_$stx160543_) + (let* ((_g160547160565_ + (lambda (_g160548160561_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g160551160564_)))) - (_g160549160623_ - (lambda (_g160551160572_) + _g160548160561_)))) + (_g160546160620_ + (lambda (_g160548160569_) (if (let () (declare (not safe)) - (gx#stx-pair? _g160551160572_)) - (let ((_e160556160575_ + (gx#stx-pair? _g160548160569_)) + (let ((_e160553160572_ (let () (declare (not safe)) - (gx#syntax-e _g160551160572_)))) - (let ((_hd160555160579_ + (gx#syntax-e _g160548160569_)))) + (let ((_hd160552160576_ (let () (declare (not safe)) - (##car _e160556160575_))) - (_tl160554160582_ + (##car _e160553160572_))) + (_tl160551160579_ (let () (declare (not safe)) - (##cdr _e160556160575_)))) + (##cdr _e160553160572_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160554160582_)) - (let ((_e160559160585_ + (gx#stx-pair? _tl160551160579_)) + (let ((_e160556160582_ (let () (declare (not safe)) - (gx#syntax-e _tl160554160582_)))) - (let ((_hd160558160589_ + (gx#syntax-e _tl160551160579_)))) + (let ((_hd160555160586_ (let () (declare (not safe)) - (##car _e160559160585_))) - (_tl160557160592_ + (##car _e160556160582_))) + (_tl160554160589_ (let () (declare (not safe)) - (##cdr _e160559160585_)))) + (##cdr _e160556160582_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160557160592_)) - (let ((_e160562160595_ + (gx#stx-pair? _tl160554160589_)) + (let ((_e160559160592_ (let () (declare (not safe)) - (gx#syntax-e _tl160557160592_)))) - (let ((_hd160561160599_ + (gx#syntax-e _tl160554160589_)))) + (let ((_hd160558160596_ (let () (declare (not safe)) - (##car _e160562160595_))) - (_tl160560160602_ + (##car _e160559160592_))) + (_tl160557160599_ (let () (declare (not safe)) - (##cdr _e160562160595_)))) + (##cdr _e160559160592_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160560160602_)) - ((lambda (_L160605_ _L160607_) - (let ((__tmp162218 + (gx#stx-null? _tl160557160599_)) + ((lambda (_L160602_ _L160604_) + (let ((__tmp162215 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda-primary))) - (__tmp162205 - (let ((__tmp162214 - (let ((__tmp162217 + (__tmp162202 + (let ((__tmp162211 + (let ((__tmp162214 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162215 - (let ((__tmp162216 + (__tmp162212 + (let ((__tmp162213 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda-dispatch)))) (declare (not safe)) - (cons __tmp162216 '())))) + (cons __tmp162213 '())))) (declare (not safe)) - (cons __tmp162217 __tmp162215))) - (__tmp162206 - (let ((__tmp162211 - (let ((__tmp162213 + (cons __tmp162214 __tmp162212))) + (__tmp162203 + (let ((__tmp162208 + (let ((__tmp162210 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162212 + (__tmp162209 (let () (declare (not safe)) - (cons _L160607_ '())))) + (cons _L160604_ '())))) (declare (not safe)) - (cons __tmp162213 __tmp162212))) - (__tmp162207 - (let ((__tmp162208 - (let ((__tmp162210 + (cons __tmp162210 __tmp162209))) + (__tmp162204 + (let ((__tmp162205 + (let ((__tmp162207 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162209 + (__tmp162206 (let () (declare (not safe)) - (cons _L160605_ '())))) + (cons _L160602_ '())))) (declare (not safe)) - (cons __tmp162210 __tmp162209)))) + (cons __tmp162207 __tmp162206)))) (declare (not safe)) - (cons __tmp162208 '())))) + (cons __tmp162205 '())))) (declare (not safe)) - (cons __tmp162211 __tmp162207)))) + (cons __tmp162208 __tmp162204)))) (declare (not safe)) - (cons __tmp162214 __tmp162206)))) + (cons __tmp162211 __tmp162203)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162218 - __tmp162205))) - _hd160561160599_ - _hd160558160589_) - (_g160550160568_ - _g160551160572_)))) - (_g160550160568_ _g160551160572_)))) - (_g160550160568_ _g160551160572_)))) - (_g160550160568_ _g160551160572_))))) - (_g160549160623_ _$stx160546_)))) + (cons __tmp162215 + __tmp162202))) + _hd160558160596_ + _hd160555160586_) + (_g160547160565_ + _g160548160569_)))) + (_g160547160565_ _g160548160569_)))) + (_g160547160565_ _g160548160569_)))) + (_g160547160565_ _g160548160569_))))) + (_g160546160620_ _$stx160543_)))) (define |gxc[:0:]#declare-primitive| - (lambda (_$stx160627_) - (let* ((___stx161814161815_ _$stx160627_) - (_g160634160705_ + (lambda (_$stx160624_) + (let* ((___stx161811161812_ _$stx160624_) + (_g160631160702_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx161814161815_))))) - (let ((___kont161817161818_ - (lambda (_L160996_ _L160998_) - (let ((__tmp162224 + ___stx161811161812_))))) + (let ((___kont161814161815_ + (lambda (_L160993_ _L160995_) + (let ((__tmp162221 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162219 - (let ((__tmp162220 - (let ((__tmp162221 - (let ((__tmp162223 + (__tmp162216 + (let ((__tmp162217 + (let ((__tmp162218 + (let ((__tmp162220 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp162222 + (__tmp162219 (let () (declare (not safe)) - (cons _L160996_ '())))) + (cons _L160993_ '())))) (declare (not safe)) - (cons __tmp162223 __tmp162222)))) + (cons __tmp162220 __tmp162219)))) (declare (not safe)) - (cons __tmp162221 '())))) + (cons __tmp162218 '())))) (declare (not safe)) - (cons _L160998_ __tmp162220)))) + (cons _L160995_ __tmp162217)))) (declare (not safe)) - (cons __tmp162224 __tmp162219)))) - (___kont161819161820_ - (lambda (_L160915_ _L160917_) - (let ((__tmp162233 + (cons __tmp162221 __tmp162216)))) + (___kont161816161817_ + (lambda (_L160912_ _L160914_) + (let ((__tmp162230 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162225 - (let ((__tmp162226 - (let ((__tmp162227 - (let ((__tmp162232 + (__tmp162222 + (let ((__tmp162223 + (let ((__tmp162224 + (let ((__tmp162229 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp162228 - (let ((__tmp162229 - (lambda (_g160936160939_ - _g160937160942_) - (let ((__tmp162230 - (let ((__tmp162231 + (__tmp162225 + (let ((__tmp162226 + (lambda (_g160933160936_ + _g160934160939_) + (let ((__tmp162227 + (let ((__tmp162228 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g160936160939_ __tmp162231)))) + (cons _g160933160936_ __tmp162228)))) (declare (not safe)) - (cons __tmp162230 _g160937160942_))))) + (cons __tmp162227 _g160934160939_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp162229 + (foldr1 __tmp162226 '() - _L160915_)))) + _L160912_)))) (declare (not safe)) - (cons __tmp162232 __tmp162228)))) + (cons __tmp162229 __tmp162225)))) (declare (not safe)) - (cons __tmp162227 '())))) + (cons __tmp162224 '())))) (declare (not safe)) - (cons _L160917_ __tmp162226)))) + (cons _L160914_ __tmp162223)))) (declare (not safe)) - (cons __tmp162233 __tmp162225)))) - (___kont161823161824_ - (lambda (_L160827_ _L160829_) - (let ((__tmp162240 + (cons __tmp162230 __tmp162222)))) + (___kont161820161821_ + (lambda (_L160824_ _L160826_) + (let ((__tmp162237 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162234 - (let ((__tmp162235 - (let ((__tmp162236 - (let ((__tmp162239 + (__tmp162231 + (let ((__tmp162232 + (let ((__tmp162233 + (let ((__tmp162236 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp162237 - (let ((__tmp162238 + (__tmp162234 + (let ((__tmp162235 (let () (declare (not safe)) - (cons _L160827_ '())))) + (cons _L160824_ '())))) (declare (not safe)) (cons 'primitive: - __tmp162238)))) + __tmp162235)))) (declare (not safe)) - (cons __tmp162239 __tmp162237)))) + (cons __tmp162236 __tmp162234)))) (declare (not safe)) - (cons __tmp162236 '())))) + (cons __tmp162233 '())))) (declare (not safe)) - (cons _L160829_ __tmp162235)))) + (cons _L160826_ __tmp162232)))) (declare (not safe)) - (cons __tmp162240 __tmp162234)))) - (___kont161825161826_ - (lambda (_L160762_ _L160764_) - (let ((__tmp162250 + (cons __tmp162237 __tmp162231)))) + (___kont161822161823_ + (lambda (_L160759_ _L160761_) + (let ((__tmp162247 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162241 - (let ((__tmp162242 - (let ((__tmp162243 - (let ((__tmp162249 + (__tmp162238 + (let ((__tmp162239 + (let ((__tmp162240 + (let ((__tmp162246 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp162244 - (let ((__tmp162245 - (let ((__tmp162246 - (lambda (_g160781160784_ + (__tmp162241 + (let ((__tmp162242 + (let ((__tmp162243 + (lambda (_g160778160781_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g160782160787_) - (let ((__tmp162247 - (let ((__tmp162248 + _g160779160784_) + (let ((__tmp162244 + (let ((__tmp162245 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g160781160784_ __tmp162248)))) + (cons _g160778160781_ __tmp162245)))) (declare (not safe)) - (cons __tmp162247 _g160782160787_))))) + (cons __tmp162244 _g160779160784_))))) (declare (not safe)) - (foldr1 __tmp162246 '() _L160762_)))) + (foldr1 __tmp162243 '() _L160759_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'primitive: - __tmp162245)))) + __tmp162242)))) (declare (not safe)) - (cons __tmp162249 __tmp162244)))) + (cons __tmp162246 __tmp162241)))) (declare (not safe)) - (cons __tmp162243 '())))) + (cons __tmp162240 '())))) (declare (not safe)) - (cons _L160764_ __tmp162242)))) + (cons _L160761_ __tmp162239)))) (declare (not safe)) - (cons __tmp162250 __tmp162241))))) - (let* ((___match161933161934_ - (lambda (_e160687160712_ - _hd160686160716_ - _tl160685160719_ - _e160690160722_ - _hd160689160726_ - _tl160688160729_ - ___splice161827161828_ - _target160691160732_ - _tl160693160735_) - (letrec ((_loop160694160738_ - (lambda (_hd160692160742_ _arity160698160745_) + (cons __tmp162247 __tmp162238))))) + (let* ((___match161930161931_ + (lambda (_e160684160709_ + _hd160683160713_ + _tl160682160716_ + _e160687160719_ + _hd160686160723_ + _tl160685160726_ + ___splice161824161825_ + _target160688160729_ + _tl160690160732_) + (letrec ((_loop160691160735_ + (lambda (_hd160689160739_ _arity160695160742_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd160692160742_)) - (let ((_e160695160748_ + (gx#stx-pair? _hd160689160739_)) + (let ((_e160692160745_ (let () (declare (not safe)) - (gx#syntax-e _hd160692160742_)))) - (let ((_lp-tl160697160755_ + (gx#syntax-e _hd160689160739_)))) + (let ((_lp-tl160694160752_ (let () (declare (not safe)) - (##cdr _e160695160748_))) - (_lp-hd160696160752_ + (##cdr _e160692160745_))) + (_lp-hd160693160749_ (let () (declare (not safe)) - (##car _e160695160748_)))) - (_loop160694160738_ - _lp-tl160697160755_ + (##car _e160692160745_)))) + (_loop160691160735_ + _lp-tl160694160752_ (let () (declare (not safe)) - (cons _lp-hd160696160752_ - _arity160698160745_))))) - (let ((_arity160699160758_ - (reverse _arity160698160745_))) - (___kont161825161826_ - _arity160699160758_ - _hd160689160726_)))))) - (_loop160694160738_ _target160691160732_ '())))) - (___match161893161894_ - (lambda (_e160655160851_ - _hd160654160855_ - _tl160653160858_ - _e160658160861_ - _hd160657160865_ - _tl160656160868_ - _e160661160871_ - _hd160660160875_ - _tl160659160878_ - _e160662160881_ - ___splice161821161822_ - _target160663160885_ - _tl160665160888_) - (letrec ((_loop160666160891_ - (lambda (_hd160664160895_ _arity160670160898_) + (cons _lp-hd160693160749_ + _arity160695160742_))))) + (let ((_arity160696160755_ + (reverse _arity160695160742_))) + (___kont161822161823_ + _arity160696160755_ + _hd160686160723_)))))) + (_loop160691160735_ _target160688160729_ '())))) + (___match161890161891_ + (lambda (_e160652160848_ + _hd160651160852_ + _tl160650160855_ + _e160655160858_ + _hd160654160862_ + _tl160653160865_ + _e160658160868_ + _hd160657160872_ + _tl160656160875_ + _e160659160878_ + ___splice161818161819_ + _target160660160882_ + _tl160662160885_) + (letrec ((_loop160663160888_ + (lambda (_hd160661160892_ _arity160667160895_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd160664160895_)) - (let ((_e160667160901_ + (gx#stx-pair? _hd160661160892_)) + (let ((_e160664160898_ (let () (declare (not safe)) - (gx#syntax-e _hd160664160895_)))) - (let ((_lp-tl160669160908_ + (gx#syntax-e _hd160661160892_)))) + (let ((_lp-tl160666160905_ (let () (declare (not safe)) - (##cdr _e160667160901_))) - (_lp-hd160668160905_ + (##cdr _e160664160898_))) + (_lp-hd160665160902_ (let () (declare (not safe)) - (##car _e160667160901_)))) - (_loop160666160891_ - _lp-tl160669160908_ + (##car _e160664160898_)))) + (_loop160663160888_ + _lp-tl160666160905_ (let () (declare (not safe)) - (cons _lp-hd160668160905_ - _arity160670160898_))))) - (let ((_arity160671160911_ - (reverse _arity160670160898_))) - (___kont161819161820_ - _arity160671160911_ - _hd160657160865_)))))) - (_loop160666160891_ _target160663160885_ '()))))) + (cons _lp-hd160665160902_ + _arity160667160895_))))) + (let ((_arity160668160908_ + (reverse _arity160667160895_))) + (___kont161816161817_ + _arity160668160908_ + _hd160654160862_)))))) + (_loop160663160888_ _target160660160882_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx161814161815_)) - (let ((_e160640160952_ + (gx#stx-pair? ___stx161811161812_)) + (let ((_e160637160949_ (let () (declare (not safe)) - (gx#syntax-e ___stx161814161815_)))) - (let ((_tl160638160959_ - (let () (declare (not safe)) (##cdr _e160640160952_))) - (_hd160639160956_ + (gx#syntax-e ___stx161811161812_)))) + (let ((_tl160635160956_ + (let () (declare (not safe)) (##cdr _e160637160949_))) + (_hd160636160953_ (let () (declare (not safe)) - (##car _e160640160952_)))) + (##car _e160637160949_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160638160959_)) - (let ((_e160643160962_ + (gx#stx-pair? _tl160635160956_)) + (let ((_e160640160959_ (let () (declare (not safe)) - (gx#syntax-e _tl160638160959_)))) - (let ((_tl160641160969_ + (gx#syntax-e _tl160635160956_)))) + (let ((_tl160638160966_ (let () (declare (not safe)) - (##cdr _e160643160962_))) - (_hd160642160966_ + (##cdr _e160640160959_))) + (_hd160639160963_ (let () (declare (not safe)) - (##car _e160643160962_)))) + (##car _e160640160959_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160641160969_)) - (let ((_e160646160972_ + (gx#stx-pair? _tl160638160966_)) + (let ((_e160643160969_ (let () (declare (not safe)) - (gx#syntax-e _tl160641160969_)))) - (let ((_tl160644160979_ + (gx#syntax-e _tl160638160966_)))) + (let ((_tl160641160976_ (let () (declare (not safe)) - (##cdr _e160646160972_))) - (_hd160645160976_ + (##cdr _e160643160969_))) + (_hd160642160973_ (let () (declare (not safe)) - (##car _e160646160972_)))) + (##car _e160643160969_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd160645160976_)) - (let ((_e160647160982_ + (gx#stx-datum? _hd160642160973_)) + (let ((_e160644160979_ (let () (declare (not safe)) - (gx#stx-e _hd160645160976_)))) + (gx#stx-e _hd160642160973_)))) (if (let () (declare (not safe)) - (equal? _e160647160982_ + (equal? _e160644160979_ 'unchecked:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl160644160979_)) - (let ((_e160650160986_ + _tl160641160976_)) + (let ((_e160647160983_ (let () (declare (not safe)) (gx#syntax-e - _tl160644160979_)))) - (let ((_tl160648160993_ + _tl160641160976_)))) + (let ((_tl160645160990_ (let () (declare (not safe)) - (##cdr _e160650160986_))) - (_hd160649160990_ + (##cdr _e160647160983_))) + (_hd160646160987_ (let () (declare (not safe)) - (##car _e160650160986_)))) + (##car _e160647160983_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160648160993_)) - (___kont161817161818_ - _hd160649160990_ - _hd160642160966_) + _tl160645160990_)) + (___kont161814161815_ + _hd160646160987_ + _hd160639160963_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _tl160644160979_)) - (let ((___splice161821161822_ + (gx#stx-pair/null? _tl160641160976_)) + (let ((___splice161818161819_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl160644160979_ '0)))) - (let ((_tl160665160888_ + (gx#syntax-split-splice _tl160641160976_ '0)))) + (let ((_tl160662160885_ (let () (declare (not safe)) - (##vector-ref ___splice161821161822_ '1))) - (_target160663160885_ + (##vector-ref ___splice161818161819_ '1))) + (_target160660160882_ (let () (declare (not safe)) - (##vector-ref ___splice161821161822_ '0)))) + (##vector-ref ___splice161818161819_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160665160888_)) - (___match161893161894_ - _e160640160952_ - _hd160639160956_ - _tl160638160959_ - _e160643160962_ - _hd160642160966_ - _tl160641160969_ - _e160646160972_ - _hd160645160976_ - _tl160644160979_ - _e160647160982_ - ___splice161821161822_ - _target160663160885_ - _tl160665160888_) + (gx#stx-null? _tl160662160885_)) + (___match161890161891_ + _e160637160949_ + _hd160636160953_ + _tl160635160956_ + _e160640160959_ + _hd160639160963_ + _tl160638160966_ + _e160643160969_ + _hd160642160973_ + _tl160641160976_ + _e160644160979_ + ___splice161818161819_ + _target160660160882_ + _tl160662160885_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160641160969_)) - (let ((___splice161827161828_ + (gx#stx-pair/null? _tl160638160966_)) + (let ((___splice161824161825_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160641160969_ + _tl160638160966_ '0)))) - (let ((_tl160693160735_ + (let ((_tl160690160732_ (let () (declare (not safe)) (##vector-ref - ___splice161827161828_ + ___splice161824161825_ '1))) - (_target160691160732_ + (_target160688160729_ (let () (declare (not safe)) (##vector-ref - ___splice161827161828_ + ___splice161824161825_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160693160735_)) - (___match161933161934_ - _e160640160952_ - _hd160639160956_ - _tl160638160959_ - _e160643160962_ - _hd160642160966_ - _tl160641160969_ - ___splice161827161828_ - _target160691160732_ - _tl160693160735_) + (gx#stx-null? _tl160690160732_)) + (___match161930161931_ + _e160637160949_ + _hd160636160953_ + _tl160635160956_ + _e160640160959_ + _hd160639160963_ + _tl160638160966_ + ___splice161824161825_ + _target160688160729_ + _tl160690160732_) (let () (declare (not safe)) - (_g160634160705_))))) + (_g160631160702_))))) (let () (declare (not safe)) - (_g160634160705_)))))) + (_g160631160702_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160641160969_)) - (let ((___splice161827161828_ + (gx#stx-pair/null? _tl160638160966_)) + (let ((___splice161824161825_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160641160969_ + _tl160638160966_ '0)))) - (let ((_tl160693160735_ + (let ((_tl160690160732_ (let () (declare (not safe)) - (##vector-ref ___splice161827161828_ '1))) - (_target160691160732_ + (##vector-ref ___splice161824161825_ '1))) + (_target160688160729_ (let () (declare (not safe)) (##vector-ref - ___splice161827161828_ + ___splice161824161825_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160693160735_)) - (___match161933161934_ - _e160640160952_ - _hd160639160956_ - _tl160638160959_ - _e160643160962_ - _hd160642160966_ - _tl160641160969_ - ___splice161827161828_ - _target160691160732_ - _tl160693160735_) + (gx#stx-null? _tl160690160732_)) + (___match161930161931_ + _e160637160949_ + _hd160636160953_ + _tl160635160956_ + _e160640160959_ + _hd160639160963_ + _tl160638160966_ + ___splice161824161825_ + _target160688160729_ + _tl160690160732_) (let () (declare (not safe)) - (_g160634160705_))))) - (let () (declare (not safe)) (_g160634160705_))))))) + (_g160631160702_))))) + (let () (declare (not safe)) (_g160631160702_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160644160979_)) - (let ((___splice161821161822_ + _tl160641160976_)) + (let ((___splice161818161819_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl160644160979_ '0)))) - (let ((_tl160665160888_ + (gx#syntax-split-splice _tl160641160976_ '0)))) + (let ((_tl160662160885_ (let () (declare (not safe)) - (##vector-ref ___splice161821161822_ '1))) - (_target160663160885_ + (##vector-ref ___splice161818161819_ '1))) + (_target160660160882_ (let () (declare (not safe)) - (##vector-ref ___splice161821161822_ '0)))) + (##vector-ref ___splice161818161819_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160665160888_)) - (___match161893161894_ - _e160640160952_ - _hd160639160956_ - _tl160638160959_ - _e160643160962_ - _hd160642160966_ - _tl160641160969_ - _e160646160972_ - _hd160645160976_ - _tl160644160979_ - _e160647160982_ - ___splice161821161822_ - _target160663160885_ - _tl160665160888_) + (gx#stx-null? _tl160662160885_)) + (___match161890161891_ + _e160637160949_ + _hd160636160953_ + _tl160635160956_ + _e160640160959_ + _hd160639160963_ + _tl160638160966_ + _e160643160969_ + _hd160642160973_ + _tl160641160976_ + _e160644160979_ + ___splice161818161819_ + _target160660160882_ + _tl160662160885_) (if (let () (declare (not safe)) - (gx#stx-null? _tl160644160979_)) - (___kont161823161824_ - _hd160645160976_ - _hd160642160966_) + (gx#stx-null? _tl160641160976_)) + (___kont161820161821_ + _hd160642160973_ + _hd160639160963_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160641160969_)) - (let ((___splice161827161828_ + (gx#stx-pair/null? _tl160638160966_)) + (let ((___splice161824161825_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160641160969_ + _tl160638160966_ '0)))) - (let ((_tl160693160735_ + (let ((_tl160690160732_ (let () (declare (not safe)) (##vector-ref - ___splice161827161828_ + ___splice161824161825_ '1))) - (_target160691160732_ + (_target160688160729_ (let () (declare (not safe)) (##vector-ref - ___splice161827161828_ + ___splice161824161825_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160693160735_)) - (___match161933161934_ - _e160640160952_ - _hd160639160956_ - _tl160638160959_ - _e160643160962_ - _hd160642160966_ - _tl160641160969_ - ___splice161827161828_ - _target160691160732_ - _tl160693160735_) + (gx#stx-null? _tl160690160732_)) + (___match161930161931_ + _e160637160949_ + _hd160636160953_ + _tl160635160956_ + _e160640160959_ + _hd160639160963_ + _tl160638160966_ + ___splice161824161825_ + _target160688160729_ + _tl160690160732_) (let () (declare (not safe)) - (_g160634160705_))))) + (_g160631160702_))))) (let () (declare (not safe)) - (_g160634160705_))))))) - (if (let () (declare (not safe)) (gx#stx-null? _tl160644160979_)) - (___kont161823161824_ _hd160645160976_ _hd160642160966_) + (_g160631160702_))))))) + (if (let () (declare (not safe)) (gx#stx-null? _tl160641160976_)) + (___kont161820161821_ _hd160642160973_ _hd160639160963_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160641160969_)) - (let ((___splice161827161828_ + (gx#stx-pair/null? _tl160638160966_)) + (let ((___splice161824161825_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl160641160969_ '0)))) - (let ((_tl160693160735_ + (gx#syntax-split-splice _tl160638160966_ '0)))) + (let ((_tl160690160732_ (let () (declare (not safe)) - (##vector-ref ___splice161827161828_ '1))) - (_target160691160732_ + (##vector-ref ___splice161824161825_ '1))) + (_target160688160729_ (let () (declare (not safe)) - (##vector-ref ___splice161827161828_ '0)))) + (##vector-ref ___splice161824161825_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160693160735_)) - (___match161933161934_ - _e160640160952_ - _hd160639160956_ - _tl160638160959_ - _e160643160962_ - _hd160642160966_ - _tl160641160969_ - ___splice161827161828_ - _target160691160732_ - _tl160693160735_) + (gx#stx-null? _tl160690160732_)) + (___match161930161931_ + _e160637160949_ + _hd160636160953_ + _tl160635160956_ + _e160640160959_ + _hd160639160963_ + _tl160638160966_ + ___splice161824161825_ + _target160688160729_ + _tl160690160732_) (let () (declare (not safe)) - (_g160634160705_))))) - (let () (declare (not safe)) (_g160634160705_)))))) + (_g160631160702_))))) + (let () (declare (not safe)) (_g160631160702_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl160644160979_)) - (___kont161823161824_ - _hd160645160976_ - _hd160642160966_) + _tl160641160976_)) + (___kont161820161821_ + _hd160642160973_ + _hd160639160963_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160641160969_)) - (let ((___splice161827161828_ + _tl160638160966_)) + (let ((___splice161824161825_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl160641160969_ '0)))) - (let ((_tl160693160735_ + (gx#syntax-split-splice _tl160638160966_ '0)))) + (let ((_tl160690160732_ (let () (declare (not safe)) - (##vector-ref ___splice161827161828_ '1))) - (_target160691160732_ + (##vector-ref ___splice161824161825_ '1))) + (_target160688160729_ (let () (declare (not safe)) - (##vector-ref ___splice161827161828_ '0)))) + (##vector-ref ___splice161824161825_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160693160735_)) - (___match161933161934_ - _e160640160952_ - _hd160639160956_ - _tl160638160959_ - _e160643160962_ - _hd160642160966_ - _tl160641160969_ - ___splice161827161828_ - _target160691160732_ - _tl160693160735_) - (let () (declare (not safe)) (_g160634160705_))))) - (let () (declare (not safe)) (_g160634160705_)))))) + (gx#stx-null? _tl160690160732_)) + (___match161930161931_ + _e160637160949_ + _hd160636160953_ + _tl160635160956_ + _e160640160959_ + _hd160639160963_ + _tl160638160966_ + ___splice161824161825_ + _target160688160729_ + _tl160690160732_) + (let () (declare (not safe)) (_g160631160702_))))) + (let () (declare (not safe)) (_g160631160702_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (gx#stx-null? _tl160644160979_)) - (___kont161823161824_ - _hd160645160976_ - _hd160642160966_) + (gx#stx-null? _tl160641160976_)) + (___kont161820161821_ + _hd160642160973_ + _hd160639160963_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160641160969_)) - (let ((___splice161827161828_ + _tl160638160966_)) + (let ((___splice161824161825_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160641160969_ + _tl160638160966_ '0)))) - (let ((_tl160693160735_ + (let ((_tl160690160732_ (let () (declare (not safe)) (##vector-ref - ___splice161827161828_ + ___splice161824161825_ '1))) - (_target160691160732_ + (_target160688160729_ (let () (declare (not safe)) (##vector-ref - ___splice161827161828_ + ___splice161824161825_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160693160735_)) - (___match161933161934_ - _e160640160952_ - _hd160639160956_ - _tl160638160959_ - _e160643160962_ - _hd160642160966_ - _tl160641160969_ - ___splice161827161828_ - _target160691160732_ - _tl160693160735_) + _tl160690160732_)) + (___match161930161931_ + _e160637160949_ + _hd160636160953_ + _tl160635160956_ + _e160640160959_ + _hd160639160963_ + _tl160638160966_ + ___splice161824161825_ + _target160688160729_ + _tl160690160732_) (let () (declare (not safe)) - (_g160634160705_))))) + (_g160631160702_))))) (let () (declare (not safe)) - (_g160634160705_))))))) + (_g160631160702_))))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160641160969_)) - (let ((___splice161827161828_ + (gx#stx-pair/null? _tl160638160966_)) + (let ((___splice161824161825_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160641160969_ + _tl160638160966_ '0)))) - (let ((_tl160693160735_ + (let ((_tl160690160732_ (let () (declare (not safe)) (##vector-ref - ___splice161827161828_ + ___splice161824161825_ '1))) - (_target160691160732_ + (_target160688160729_ (let () (declare (not safe)) (##vector-ref - ___splice161827161828_ + ___splice161824161825_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160693160735_)) - (___match161933161934_ - _e160640160952_ - _hd160639160956_ - _tl160638160959_ - _e160643160962_ - _hd160642160966_ - _tl160641160969_ - ___splice161827161828_ - _target160691160732_ - _tl160693160735_) + (gx#stx-null? _tl160690160732_)) + (___match161930161931_ + _e160637160949_ + _hd160636160953_ + _tl160635160956_ + _e160640160959_ + _hd160639160963_ + _tl160638160966_ + ___splice161824161825_ + _target160688160729_ + _tl160690160732_) (let () (declare (not safe)) - (_g160634160705_))))) + (_g160631160702_))))) (let () (declare (not safe)) - (_g160634160705_)))))) - (let () (declare (not safe)) (_g160634160705_))))) - (let () (declare (not safe)) (_g160634160705_)))))))) + (_g160631160702_)))))) + (let () (declare (not safe)) (_g160631160702_))))) + (let () (declare (not safe)) (_g160631160702_)))))))) (define |gxc[:0:]#declare-primitive/unchecked| - (lambda (_$stx161022_) - (let* ((___stx161936161937_ _$stx161022_) - (_g161027161062_ + (lambda (_$stx161019_) + (let* ((___stx161933161934_ _$stx161019_) + (_g161024161059_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx161936161937_))))) - (let ((___kont161939161940_ - (lambda (_L161184_ _L161186_) - (let ((__tmp162256 + ___stx161933161934_))))) + (let ((___kont161936161937_ + (lambda (_L161181_ _L161183_) + (let ((__tmp162253 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162251 - (let ((__tmp162252 - (let ((__tmp162253 - (let ((__tmp162255 + (__tmp162248 + (let ((__tmp162249 + (let ((__tmp162250 + (let ((__tmp162252 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp162254 + (__tmp162251 (let () (declare (not safe)) - (cons _L161184_ '())))) + (cons _L161181_ '())))) (declare (not safe)) - (cons __tmp162255 __tmp162254)))) + (cons __tmp162252 __tmp162251)))) (declare (not safe)) - (cons __tmp162253 '())))) + (cons __tmp162250 '())))) (declare (not safe)) - (cons _L161186_ __tmp162252)))) + (cons _L161183_ __tmp162249)))) (declare (not safe)) - (cons __tmp162256 __tmp162251)))) - (___kont161941161942_ - (lambda (_L161119_ _L161121_) - (let ((__tmp162265 + (cons __tmp162253 __tmp162248)))) + (___kont161938161939_ + (lambda (_L161116_ _L161118_) + (let ((__tmp162262 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162257 - (let ((__tmp162258 - (let ((__tmp162259 - (let ((__tmp162264 + (__tmp162254 + (let ((__tmp162255 + (let ((__tmp162256 + (let ((__tmp162261 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp162260 - (let ((__tmp162261 - (lambda (_g161138161141_ - _g161139161144_) - (let ((__tmp162262 - (let ((__tmp162263 + (__tmp162257 + (let ((__tmp162258 + (lambda (_g161135161138_ + _g161136161141_) + (let ((__tmp162259 + (let ((__tmp162260 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g161138161141_ __tmp162263)))) + (cons _g161135161138_ __tmp162260)))) (declare (not safe)) - (cons __tmp162262 _g161139161144_))))) + (cons __tmp162259 _g161136161141_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp162261 + (foldr1 __tmp162258 '() - _L161119_)))) + _L161116_)))) (declare (not safe)) - (cons __tmp162264 __tmp162260)))) + (cons __tmp162261 __tmp162257)))) (declare (not safe)) - (cons __tmp162259 '())))) + (cons __tmp162256 '())))) (declare (not safe)) - (cons _L161121_ __tmp162258)))) + (cons _L161118_ __tmp162255)))) (declare (not safe)) - (cons __tmp162265 __tmp162257))))) - (let ((___match161985161986_ - (lambda (_e161044161069_ - _hd161043161073_ - _tl161042161076_ - _e161047161079_ - _hd161046161083_ - _tl161045161086_ - ___splice161943161944_ - _target161048161089_ - _tl161050161092_) - (letrec ((_loop161051161095_ - (lambda (_hd161049161099_ _arity161055161102_) + (cons __tmp162262 __tmp162254))))) + (let ((___match161982161983_ + (lambda (_e161041161066_ + _hd161040161070_ + _tl161039161073_ + _e161044161076_ + _hd161043161080_ + _tl161042161083_ + ___splice161940161941_ + _target161045161086_ + _tl161047161089_) + (letrec ((_loop161048161092_ + (lambda (_hd161046161096_ _arity161052161099_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd161049161099_)) - (let ((_e161052161105_ + (gx#stx-pair? _hd161046161096_)) + (let ((_e161049161102_ (let () (declare (not safe)) - (gx#syntax-e _hd161049161099_)))) - (let ((_lp-tl161054161112_ + (gx#syntax-e _hd161046161096_)))) + (let ((_lp-tl161051161109_ (let () (declare (not safe)) - (##cdr _e161052161105_))) - (_lp-hd161053161109_ + (##cdr _e161049161102_))) + (_lp-hd161050161106_ (let () (declare (not safe)) - (##car _e161052161105_)))) - (_loop161051161095_ - _lp-tl161054161112_ + (##car _e161049161102_)))) + (_loop161048161092_ + _lp-tl161051161109_ (let () (declare (not safe)) - (cons _lp-hd161053161109_ - _arity161055161102_))))) - (let ((_arity161056161115_ - (reverse _arity161055161102_))) - (___kont161941161942_ - _arity161056161115_ - _hd161046161083_)))))) - (_loop161051161095_ _target161048161089_ '()))))) + (cons _lp-hd161050161106_ + _arity161052161099_))))) + (let ((_arity161053161112_ + (reverse _arity161052161099_))) + (___kont161938161939_ + _arity161053161112_ + _hd161043161080_)))))) + (_loop161048161092_ _target161045161086_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx161936161937_)) - (let ((_e161033161154_ + (gx#stx-pair? ___stx161933161934_)) + (let ((_e161030161151_ (let () (declare (not safe)) - (gx#syntax-e ___stx161936161937_)))) - (let ((_tl161031161161_ - (let () (declare (not safe)) (##cdr _e161033161154_))) - (_hd161032161158_ + (gx#syntax-e ___stx161933161934_)))) + (let ((_tl161028161158_ + (let () (declare (not safe)) (##cdr _e161030161151_))) + (_hd161029161155_ (let () (declare (not safe)) - (##car _e161033161154_)))) + (##car _e161030161151_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161031161161_)) - (let ((_e161036161164_ + (gx#stx-pair? _tl161028161158_)) + (let ((_e161033161161_ (let () (declare (not safe)) - (gx#syntax-e _tl161031161161_)))) - (let ((_tl161034161171_ + (gx#syntax-e _tl161028161158_)))) + (let ((_tl161031161168_ (let () (declare (not safe)) - (##cdr _e161036161164_))) - (_hd161035161168_ + (##cdr _e161033161161_))) + (_hd161032161165_ (let () (declare (not safe)) - (##car _e161036161164_)))) + (##car _e161033161161_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161034161171_)) - (let ((_e161039161174_ + (gx#stx-pair? _tl161031161168_)) + (let ((_e161036161171_ (let () (declare (not safe)) - (gx#syntax-e _tl161034161171_)))) - (let ((_tl161037161181_ + (gx#syntax-e _tl161031161168_)))) + (let ((_tl161034161178_ (let () (declare (not safe)) - (##cdr _e161039161174_))) - (_hd161038161178_ + (##cdr _e161036161171_))) + (_hd161035161175_ (let () (declare (not safe)) - (##car _e161039161174_)))) + (##car _e161036161171_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161037161181_)) - (___kont161939161940_ - _hd161038161178_ - _hd161035161168_) + (gx#stx-null? _tl161034161178_)) + (___kont161936161937_ + _hd161035161175_ + _hd161032161165_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl161034161171_)) - (let ((___splice161943161944_ + _tl161031161168_)) + (let ((___splice161940161941_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161034161171_ + _tl161031161168_ '0)))) - (let ((_tl161050161092_ + (let ((_tl161047161089_ (let () (declare (not safe)) (##vector-ref - ___splice161943161944_ + ___splice161940161941_ '1))) - (_target161048161089_ + (_target161045161086_ (let () (declare (not safe)) (##vector-ref - ___splice161943161944_ + ___splice161940161941_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl161050161092_)) - (___match161985161986_ - _e161033161154_ - _hd161032161158_ - _tl161031161161_ - _e161036161164_ - _hd161035161168_ - _tl161034161171_ - ___splice161943161944_ - _target161048161089_ - _tl161050161092_) + _tl161047161089_)) + (___match161982161983_ + _e161030161151_ + _hd161029161155_ + _tl161028161158_ + _e161033161161_ + _hd161032161165_ + _tl161031161168_ + ___splice161940161941_ + _target161045161086_ + _tl161047161089_) (let () (declare (not safe)) - (_g161027161062_))))) + (_g161024161059_))))) (let () (declare (not safe)) - (_g161027161062_)))))) + (_g161024161059_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161034161171_)) - (let ((___splice161943161944_ + (gx#stx-pair/null? _tl161031161168_)) + (let ((___splice161940161941_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161034161171_ + _tl161031161168_ '0)))) - (let ((_tl161050161092_ + (let ((_tl161047161089_ (let () (declare (not safe)) (##vector-ref - ___splice161943161944_ + ___splice161940161941_ '1))) - (_target161048161089_ + (_target161045161086_ (let () (declare (not safe)) (##vector-ref - ___splice161943161944_ + ___splice161940161941_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161050161092_)) - (___match161985161986_ - _e161033161154_ - _hd161032161158_ - _tl161031161161_ - _e161036161164_ - _hd161035161168_ - _tl161034161171_ - ___splice161943161944_ - _target161048161089_ - _tl161050161092_) + (gx#stx-null? _tl161047161089_)) + (___match161982161983_ + _e161030161151_ + _hd161029161155_ + _tl161028161158_ + _e161033161161_ + _hd161032161165_ + _tl161031161168_ + ___splice161940161941_ + _target161045161086_ + _tl161047161089_) (let () (declare (not safe)) - (_g161027161062_))))) + (_g161024161059_))))) (let () (declare (not safe)) - (_g161027161062_)))))) - (let () (declare (not safe)) (_g161027161062_))))) - (let () (declare (not safe)) (_g161027161062_)))))))) + (_g161024161059_)))))) + (let () (declare (not safe)) (_g161024161059_))))) + (let () (declare (not safe)) (_g161024161059_)))))))) (define |gxc[:0:]#declare-primitive*| - (lambda (_$stx161206_) - (let* ((_g161210161245_ - (lambda (_g161211161241_) + (lambda (_$stx161203_) + (let* ((_g161207161242_ + (lambda (_g161208161238_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161211161241_)))) - (_g161209161373_ - (lambda (_g161211161249_) + _g161208161238_)))) + (_g161206161370_ + (lambda (_g161208161246_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161211161249_)) - (let ((_e161216161252_ + (gx#stx-pair? _g161208161246_)) + (let ((_e161213161249_ (let () (declare (not safe)) - (gx#syntax-e _g161211161249_)))) - (let ((_hd161215161256_ + (gx#syntax-e _g161208161246_)))) + (let ((_hd161212161253_ (let () (declare (not safe)) - (##car _e161216161252_))) - (_tl161214161259_ + (##car _e161213161249_))) + (_tl161211161256_ (let () (declare (not safe)) - (##cdr _e161216161252_)))) + (##cdr _e161213161249_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161214161259_)) - (let ((_g162266_ + (gx#stx-pair/null? _tl161211161256_)) + (let ((_g162263_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161214161259_ + _tl161211161256_ '0)))) (begin - (let ((_g162267_ + (let ((_g162264_ (let () (declare (not safe)) - (if (##values? _g162266_) - (##vector-length _g162266_) + (if (##values? _g162263_) + (##vector-length _g162263_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162267_ 2))) + (##fx= _g162264_ 2))) (error "Context expects 2 values" - _g162267_))) - (let ((_target161217161262_ + _g162264_))) + (let ((_target161214161259_ (let () (declare (not safe)) - (##vector-ref _g162266_ 0))) - (_tl161219161265_ + (##vector-ref _g162263_ 0))) + (_tl161216161262_ (let () (declare (not safe)) - (##vector-ref _g162266_ 1)))) + (##vector-ref _g162263_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161219161265_)) - (letrec ((_loop161220161268_ - (lambda (_hd161218161272_ - _arity161224161275_ - _prim161225161277_) + (gx#stx-null? _tl161216161262_)) + (letrec ((_loop161217161265_ + (lambda (_hd161215161269_ + _arity161221161272_ + _prim161222161274_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd161218161272_)) - (let ((_e161221161280_ + _hd161215161269_)) + (let ((_e161218161277_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd161218161272_)))) - (let ((_lp-hd161222161284_ - (let () (declare (not safe)) (##car _e161221161280_))) - (_lp-tl161223161287_ - (let () (declare (not safe)) (##cdr _e161221161280_)))) + (gx#syntax-e _hd161215161269_)))) + (let ((_lp-hd161219161281_ + (let () (declare (not safe)) (##car _e161218161277_))) + (_lp-tl161220161284_ + (let () (declare (not safe)) (##cdr _e161218161277_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd161222161284_)) - (let ((_e161230161290_ + (gx#stx-pair? _lp-hd161219161281_)) + (let ((_e161227161287_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd161222161284_)))) - (let ((_hd161229161294_ + (gx#syntax-e _lp-hd161219161281_)))) + (let ((_hd161226161291_ (let () (declare (not safe)) - (##car _e161230161290_))) - (_tl161228161297_ + (##car _e161227161287_))) + (_tl161225161294_ (let () (declare (not safe)) - (##cdr _e161230161290_)))) + (##cdr _e161227161287_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161228161297_)) - (let ((_g162276_ + (gx#stx-pair/null? _tl161225161294_)) + (let ((_g162273_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161228161297_ + _tl161225161294_ '0)))) (begin - (let ((_g162277_ + (let ((_g162274_ (let () (declare (not safe)) - (if (##values? _g162276_) - (##vector-length _g162276_) + (if (##values? _g162273_) + (##vector-length _g162273_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162277_ 2))) + (##fx= _g162274_ 2))) (error "Context expects 2 values" - _g162277_))) - (let ((_target161231161300_ + _g162274_))) + (let ((_target161228161297_ (let () (declare (not safe)) - (##vector-ref _g162276_ 0))) - (_tl161233161303_ + (##vector-ref _g162273_ 0))) + (_tl161230161300_ (let () (declare (not safe)) - (##vector-ref _g162276_ 1)))) + (##vector-ref _g162273_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161233161303_)) - (letrec ((_loop161234161306_ - (lambda (_hd161232161310_ - _arity161238161313_) + (gx#stx-null? _tl161230161300_)) + (letrec ((_loop161231161303_ + (lambda (_hd161229161307_ + _arity161235161310_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd161232161310_)) - (let ((_e161235161316_ + _hd161229161307_)) + (let ((_e161232161313_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd161232161310_)))) - (let ((_lp-hd161236161320_ - (let () (declare (not safe)) (##car _e161235161316_))) - (_lp-tl161237161323_ + (gx#syntax-e _hd161229161307_)))) + (let ((_lp-hd161233161317_ + (let () (declare (not safe)) (##car _e161232161313_))) + (_lp-tl161234161320_ (let () (declare (not safe)) - (##cdr _e161235161316_)))) - (_loop161234161306_ - _lp-tl161237161323_ + (##cdr _e161232161313_)))) + (_loop161231161303_ + _lp-tl161234161320_ (let () (declare (not safe)) - (cons _lp-hd161236161320_ _arity161238161313_))))) - (let ((_arity161239161326_ (reverse _arity161238161313_))) - (_loop161220161268_ - _lp-tl161223161287_ + (cons _lp-hd161233161317_ _arity161235161310_))))) + (let ((_arity161236161323_ (reverse _arity161235161310_))) + (_loop161217161265_ + _lp-tl161220161284_ (let () (declare (not safe)) - (cons _arity161239161326_ _arity161224161275_)) + (cons _arity161236161323_ _arity161221161272_)) (let () (declare (not safe)) - (cons _hd161229161294_ _prim161225161277_)))))))) + (cons _hd161226161291_ _prim161222161274_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop161234161306_ - _target161231161300_ + (_loop161231161303_ + _target161228161297_ '())) - (_g161210161245_ _g161211161249_))))) - (_g161210161245_ _g161211161249_)))) - (_g161210161245_ _g161211161249_)))) - (let ((_arity161226161330_ (reverse _arity161224161275_)) - (_prim161227161333_ (reverse _prim161225161277_))) - ((lambda (_L161336_ _L161338_) - (let ((__tmp162275 + (_g161207161242_ _g161208161246_))))) + (_g161207161242_ _g161208161246_)))) + (_g161207161242_ _g161208161246_)))) + (let ((_arity161223161327_ (reverse _arity161221161272_)) + (_prim161224161330_ (reverse _prim161222161274_))) + ((lambda (_L161333_ _L161335_) + (let ((__tmp162272 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp162268 + (__tmp162265 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L161336_ - _L161338_)) - (let ((__tmp162269 - (lambda (_g161353161359_ - _g161354161362_ - _g161355161364_) - (let ((__tmp162270 - (let ((__tmp162274 + _L161333_ + _L161335_)) + (let ((__tmp162266 + (lambda (_g161350161356_ + _g161351161359_ + _g161352161361_) + (let ((__tmp162267 + (let ((__tmp162271 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive))) - (__tmp162271 - (let ((__tmp162272 - (let ((__tmp162273 + (__tmp162268 + (let ((__tmp162269 + (let ((__tmp162270 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g161356161367_ _g161357161370_) + (lambda (_g161353161364_ _g161354161367_) (let () (declare (not safe)) - (cons _g161356161367_ _g161357161370_))))) + (cons _g161353161364_ _g161354161367_))))) (declare (not safe)) - (foldr1 __tmp162273 '() _g161353161359_)))) + (foldr1 __tmp162270 '() _g161350161356_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g161354161362_ - __tmp162272)))) + (cons _g161351161359_ + __tmp162269)))) (declare (not safe)) - (cons __tmp162274 __tmp162271)))) + (cons __tmp162271 __tmp162268)))) (declare (not safe)) - (cons __tmp162270 _g161355161364_))))) + (cons __tmp162267 _g161352161361_))))) (declare (not safe)) - (foldr2 __tmp162269 '() _L161336_ _L161338_))))) + (foldr2 __tmp162266 '() _L161333_ _L161335_))))) (declare (not safe)) - (cons __tmp162275 __tmp162268))) - _arity161226161330_ - _prim161227161333_)))))) + (cons __tmp162272 __tmp162265))) + _arity161223161327_ + _prim161224161330_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop161220161268_ - _target161217161262_ + (_loop161217161265_ + _target161214161259_ '() '())) - (_g161210161245_ _g161211161249_))))) - (_g161210161245_ _g161211161249_)))) - (_g161210161245_ _g161211161249_))))) - (_g161209161373_ _$stx161206_)))) + (_g161207161242_ _g161208161246_))))) + (_g161207161242_ _g161208161246_)))) + (_g161207161242_ _g161208161246_))))) + (_g161206161370_ _$stx161203_)))) (define |gxc[:0:]#declare-primitive/unchecked*| - (lambda (_$stx161379_) - (let* ((_g161383161418_ - (lambda (_g161384161414_) + (lambda (_$stx161376_) + (let* ((_g161380161415_ + (lambda (_g161381161411_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161384161414_)))) - (_g161382161546_ - (lambda (_g161384161422_) + _g161381161411_)))) + (_g161379161543_ + (lambda (_g161381161419_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161384161422_)) - (let ((_e161389161425_ + (gx#stx-pair? _g161381161419_)) + (let ((_e161386161422_ (let () (declare (not safe)) - (gx#syntax-e _g161384161422_)))) - (let ((_hd161388161429_ + (gx#syntax-e _g161381161419_)))) + (let ((_hd161385161426_ (let () (declare (not safe)) - (##car _e161389161425_))) - (_tl161387161432_ + (##car _e161386161422_))) + (_tl161384161429_ (let () (declare (not safe)) - (##cdr _e161389161425_)))) + (##cdr _e161386161422_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161387161432_)) - (let ((_g162278_ + (gx#stx-pair/null? _tl161384161429_)) + (let ((_g162275_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161387161432_ + _tl161384161429_ '0)))) (begin - (let ((_g162279_ + (let ((_g162276_ (let () (declare (not safe)) - (if (##values? _g162278_) - (##vector-length _g162278_) + (if (##values? _g162275_) + (##vector-length _g162275_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162279_ 2))) + (##fx= _g162276_ 2))) (error "Context expects 2 values" - _g162279_))) - (let ((_target161390161435_ + _g162276_))) + (let ((_target161387161432_ (let () (declare (not safe)) - (##vector-ref _g162278_ 0))) - (_tl161392161438_ + (##vector-ref _g162275_ 0))) + (_tl161389161435_ (let () (declare (not safe)) - (##vector-ref _g162278_ 1)))) + (##vector-ref _g162275_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161392161438_)) - (letrec ((_loop161393161441_ - (lambda (_hd161391161445_ - _arity161397161448_ - _prim161398161450_) + (gx#stx-null? _tl161389161435_)) + (letrec ((_loop161390161438_ + (lambda (_hd161388161442_ + _arity161394161445_ + _prim161395161447_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd161391161445_)) - (let ((_e161394161453_ + _hd161388161442_)) + (let ((_e161391161450_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd161391161445_)))) - (let ((_lp-hd161395161457_ - (let () (declare (not safe)) (##car _e161394161453_))) - (_lp-tl161396161460_ - (let () (declare (not safe)) (##cdr _e161394161453_)))) + (gx#syntax-e _hd161388161442_)))) + (let ((_lp-hd161392161454_ + (let () (declare (not safe)) (##car _e161391161450_))) + (_lp-tl161393161457_ + (let () (declare (not safe)) (##cdr _e161391161450_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd161395161457_)) - (let ((_e161403161463_ + (gx#stx-pair? _lp-hd161392161454_)) + (let ((_e161400161460_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd161395161457_)))) - (let ((_hd161402161467_ + (gx#syntax-e _lp-hd161392161454_)))) + (let ((_hd161399161464_ (let () (declare (not safe)) - (##car _e161403161463_))) - (_tl161401161470_ + (##car _e161400161460_))) + (_tl161398161467_ (let () (declare (not safe)) - (##cdr _e161403161463_)))) + (##cdr _e161400161460_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161401161470_)) - (let ((_g162288_ + (gx#stx-pair/null? _tl161398161467_)) + (let ((_g162285_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161401161470_ + _tl161398161467_ '0)))) (begin - (let ((_g162289_ + (let ((_g162286_ (let () (declare (not safe)) - (if (##values? _g162288_) - (##vector-length _g162288_) + (if (##values? _g162285_) + (##vector-length _g162285_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162289_ 2))) + (##fx= _g162286_ 2))) (error "Context expects 2 values" - _g162289_))) - (let ((_target161404161473_ + _g162286_))) + (let ((_target161401161470_ (let () (declare (not safe)) - (##vector-ref _g162288_ 0))) - (_tl161406161476_ + (##vector-ref _g162285_ 0))) + (_tl161403161473_ (let () (declare (not safe)) - (##vector-ref _g162288_ 1)))) + (##vector-ref _g162285_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161406161476_)) - (letrec ((_loop161407161479_ - (lambda (_hd161405161483_ - _arity161411161486_) + (gx#stx-null? _tl161403161473_)) + (letrec ((_loop161404161476_ + (lambda (_hd161402161480_ + _arity161408161483_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd161405161483_)) - (let ((_e161408161489_ + _hd161402161480_)) + (let ((_e161405161486_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd161405161483_)))) - (let ((_lp-hd161409161493_ - (let () (declare (not safe)) (##car _e161408161489_))) - (_lp-tl161410161496_ + (gx#syntax-e _hd161402161480_)))) + (let ((_lp-hd161406161490_ + (let () (declare (not safe)) (##car _e161405161486_))) + (_lp-tl161407161493_ (let () (declare (not safe)) - (##cdr _e161408161489_)))) - (_loop161407161479_ - _lp-tl161410161496_ + (##cdr _e161405161486_)))) + (_loop161404161476_ + _lp-tl161407161493_ (let () (declare (not safe)) - (cons _lp-hd161409161493_ _arity161411161486_))))) - (let ((_arity161412161499_ (reverse _arity161411161486_))) - (_loop161393161441_ - _lp-tl161396161460_ + (cons _lp-hd161406161490_ _arity161408161483_))))) + (let ((_arity161409161496_ (reverse _arity161408161483_))) + (_loop161390161438_ + _lp-tl161393161457_ (let () (declare (not safe)) - (cons _arity161412161499_ _arity161397161448_)) + (cons _arity161409161496_ _arity161394161445_)) (let () (declare (not safe)) - (cons _hd161402161467_ _prim161398161450_)))))))) + (cons _hd161399161464_ _prim161395161447_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop161407161479_ - _target161404161473_ + (_loop161404161476_ + _target161401161470_ '())) - (_g161383161418_ _g161384161422_))))) - (_g161383161418_ _g161384161422_)))) - (_g161383161418_ _g161384161422_)))) - (let ((_arity161399161503_ (reverse _arity161397161448_)) - (_prim161400161506_ (reverse _prim161398161450_))) - ((lambda (_L161509_ _L161511_) - (let ((__tmp162287 + (_g161380161415_ _g161381161419_))))) + (_g161380161415_ _g161381161419_)))) + (_g161380161415_ _g161381161419_)))) + (let ((_arity161396161500_ (reverse _arity161394161445_)) + (_prim161397161503_ (reverse _prim161395161447_))) + ((lambda (_L161506_ _L161508_) + (let ((__tmp162284 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp162280 + (__tmp162277 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L161509_ - _L161511_)) - (let ((__tmp162281 - (lambda (_g161526161532_ - _g161527161535_ - _g161528161537_) - (let ((__tmp162282 - (let ((__tmp162286 + _L161506_ + _L161508_)) + (let ((__tmp162278 + (lambda (_g161523161529_ + _g161524161532_ + _g161525161534_) + (let ((__tmp162279 + (let ((__tmp162283 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive/unchecked))) - (__tmp162283 - (let ((__tmp162284 - (let ((__tmp162285 + (__tmp162280 + (let ((__tmp162281 + (let ((__tmp162282 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g161529161540_ _g161530161543_) + (lambda (_g161526161537_ _g161527161540_) (let () (declare (not safe)) - (cons _g161529161540_ _g161530161543_))))) + (cons _g161526161537_ _g161527161540_))))) (declare (not safe)) - (foldr1 __tmp162285 '() _g161526161532_)))) + (foldr1 __tmp162282 '() _g161523161529_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g161527161535_ - __tmp162284)))) + (cons _g161524161532_ + __tmp162281)))) (declare (not safe)) - (cons __tmp162286 __tmp162283)))) + (cons __tmp162283 __tmp162280)))) (declare (not safe)) - (cons __tmp162282 _g161528161537_))))) + (cons __tmp162279 _g161525161534_))))) (declare (not safe)) - (foldr2 __tmp162281 '() _L161509_ _L161511_))))) + (foldr2 __tmp162278 '() _L161506_ _L161508_))))) (declare (not safe)) - (cons __tmp162287 __tmp162280))) - _arity161399161503_ - _prim161400161506_)))))) + (cons __tmp162284 __tmp162277))) + _arity161396161500_ + _prim161397161503_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop161393161441_ - _target161390161435_ + (_loop161390161438_ + _target161387161432_ '() '())) - (_g161383161418_ _g161384161422_))))) - (_g161383161418_ _g161384161422_)))) - (_g161383161418_ _g161384161422_))))) - (_g161382161546_ _$stx161379_))))) + (_g161380161415_ _g161381161419_))))) + (_g161380161415_ _g161381161419_)))) + (_g161380161415_ _g161381161419_))))) + (_g161379161543_ _$stx161376_))))) diff --git a/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm b/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm index e2299682..4b765ed1 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 1709128369) + (define gerbil/core$<MOP>$<MOP:2>::timestamp 1709229967) (begin (define gerbil/core$<MOP>$<MOP:2>#class-type-info::t (let ((__tmp49652 (list))) diff --git a/src/bootstrap/gerbil/core$_macro-object___0.scm b/src/bootstrap/gerbil/core$_macro-object___0.scm index 2dd96700..b76e92ab 100644 --- a/src/bootstrap/gerbil/core$_macro-object___0.scm +++ b/src/bootstrap/gerbil/core$_macro-object___0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core$<macro-object>::timestamp 1709128369) + (define gerbil/core$<macro-object>::timestamp 1709229967) (begin (define gerbil/core$<macro-object>#macro-object::t (let ((__tmp49659 (list))) diff --git a/src/bootstrap/gerbil/core__10.scm b/src/bootstrap/gerbil/core__10.scm index 39a7b4b3..def24787 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]#_g51956_| + (define |gerbil/core$<match>[1]#_g52030_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g51957_| + (define |gerbil/core$<match>[1]#_g52031_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52013_| + (define |gerbil/core$<match>[1]#_g52087_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52014_| + (define |gerbil/core$<match>[1]#_g52088_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52015_| + (define |gerbil/core$<match>[1]#_g52089_| (##structure gx#syntax-quote::t 'apply #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52017_| + (define |gerbil/core$<match>[1]#_g52091_| (##structure gx#syntax-quote::t 'vector #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52018_| + (define |gerbil/core$<match>[1]#_g52092_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52019_| + (define |gerbil/core$<match>[1]#_g52093_| (##structure gx#syntax-quote::t 'box #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52020_| + (define |gerbil/core$<match>[1]#_g52094_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52021_| + (define |gerbil/core$<match>[1]#_g52095_| (##structure gx#syntax-quote::t 'cons* #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52022_| + (define |gerbil/core$<match>[1]#_g52096_| (##structure gx#syntax-quote::t 'cons #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52023_| + (define |gerbil/core$<match>[1]#_g52097_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52024_| + (define |gerbil/core$<match>[1]#_g52098_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52025_| + (define |gerbil/core$<match>[1]#_g52099_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52026_| + (define |gerbil/core$<match>[1]#_g52100_| (##structure gx#syntax-quote::t '? #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52406_| + (define |gerbil/core$<match>[1]#_g52480_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52486_| + (define |gerbil/core$<match>[1]#_g52560_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52506_| + (define |gerbil/core$<match>[1]#_g52580_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52507_| + (define |gerbil/core$<match>[1]#_g52581_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52624_| + (define |gerbil/core$<match>[1]#_g52698_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52625_| + (define |gerbil/core$<match>[1]#_g52699_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52626_| + (define |gerbil/core$<match>[1]#_g52700_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52627_| + (define |gerbil/core$<match>[1]#_g52701_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52628_| + (define |gerbil/core$<match>[1]#_g52702_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) (begin (define |gerbil/core$<match>[1]#match-macro::t| - (let ((__tmp51940 (list gerbil/core$<macro-object>#macro-object::t))) + (let ((__tmp52014 (list gerbil/core$<macro-object>#macro-object::t))) (declare (not safe)) (make-class-type 'gerbil.core#match-macro::t 'match-macro - __tmp51940 + __tmp52014 '() '() '#f))) @@ -150,11 +150,11 @@ (define |gerbil/core$<match>[1]#syntax-local-match-macro?| (lambda (_stx30638_) (if (gx#identifier? _stx30638_) - (let ((__tmp51941 (gx#syntax-local-value _stx30638_ false))) + (let ((__tmp52015 (gx#syntax-local-value _stx30638_ false))) (declare (not safe)) (class-instance? |gerbil/core$<match>[1]#match-macro::t| - __tmp51941)) + __tmp52015)) '#f))) (define |gerbil/core$<match>[1]#parse-match-pattern__%| (lambda (_stx28944_ _match-stx28946_) @@ -178,75 +178,75 @@ ___stx4690246903_)))) (let ((___kont4690546906_ (lambda () - (let ((__tmp51942 + (let ((__tmp52016 (let () (declare (not safe)) (cons _L30403_ '())))) (declare (not safe)) - (cons '?: __tmp51942)))) + (cons '?: __tmp52016)))) (___kont4690746908_ (lambda (_L30594_) - (let ((__tmp51943 - (let ((__tmp51944 - (let ((__tmp51945 + (let ((__tmp52017 + (let ((__tmp52018 + (let ((__tmp52019 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (_parse128948_ _L30594_)))) (declare (not safe)) - (cons __tmp51945 '())))) + (cons __tmp52019 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L30403_ - __tmp51944)))) + __tmp52018)))) (declare (not safe)) - (cons '?: __tmp51943)))) + (cons '?: __tmp52017)))) (___kont4690946910_ (lambda (_L30564_) - (let ((__tmp51946 - (let ((__tmp51947 - (let ((__tmp51948 - (let ((__tmp51949 + (let ((__tmp52020 + (let ((__tmp52021 + (let ((__tmp52022 + (let ((__tmp52023 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (_parse128948_ _L30564_)))) (declare (not safe)) - (cons __tmp51949 '())))) + (cons __tmp52023 '())))) (declare (not safe)) - (cons '=>: __tmp51948)))) + (cons '=>: __tmp52022)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L30403_ - __tmp51947)))) + __tmp52021)))) (declare (not safe)) - (cons '?: __tmp51946)))) + (cons '?: __tmp52020)))) (___kont4691146912_ (lambda (_L30515_ _L30517_) - (let ((__tmp51950 - (let ((__tmp51951 - (let ((__tmp51952 - (let ((__tmp51953 + (let ((__tmp52024 + (let ((__tmp52025 + (let ((__tmp52026 + (let ((__tmp52027 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51954 - (let ((__tmp51955 + (let ((__tmp52028 + (let ((__tmp52029 (let () (declare (not safe)) (_parse128948_ _L30515_)))) (declare (not safe)) - (cons __tmp51955 '())))) + (cons __tmp52029 '())))) (declare (not safe)) - (cons '=>: __tmp51954)))) + (cons '=>: __tmp52028)))) (declare (not safe)) - (cons _L30517_ __tmp51953)))) + (cons _L30517_ __tmp52027)))) (declare (not safe)) - (cons ':: __tmp51952)))) + (cons ':: __tmp52026)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L30403_ - __tmp51951)))) + __tmp52025)))) (declare (not safe)) - (cons '?: __tmp51950)))) + (cons '?: __tmp52024)))) (___kont4691346914_ (lambda () (let () @@ -275,7 +275,7 @@ _hd3042430588_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$<match>[1]#_g51957_| + |gerbil/core$<match>[1]#_g52031_| _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]#_g51956_| + |gerbil/core$<match>[1]#_g52030_| _hd3044330499_) (if (gx#stx-pair? _tl3044230502_) @@ -369,12 +369,12 @@ (_parse128948_ _L30357_)))) (___kont4688946890_ (lambda () - (let ((__tmp51958 + (let ((__tmp52032 (gx#stx-map _parse128948_ _L30306_))) (declare (not safe)) - (cons 'and: __tmp51958))))) + (cons 'and: __tmp52032))))) (if (gx#stx-pair? ___stx4688446885_) (let ((_e3032330347_ (gx#syntax-e ___stx4688446885_))) @@ -407,12 +407,12 @@ (_parse128948_ _L30272_)))) (___kont4687146872_ (lambda () - (let ((__tmp51959 + (let ((__tmp52033 (gx#stx-map _parse128948_ _L30221_))) (declare (not safe)) - (cons 'or: __tmp51959))))) + (cons 'or: __tmp52033))))) (if (gx#stx-pair? ___stx4686646867_) (let ((_e3023830262_ (gx#syntax-e ___stx4686646867_))) @@ -431,80 +431,80 @@ (___kont4687146872_)))))) (___kont4699146992_ (lambda (_L30191_) - (let ((__tmp51960 - (let ((__tmp51961 + (let ((__tmp52034 + (let ((__tmp52035 (let () (declare (not safe)) (_parse128948_ _L30191_)))) (declare (not safe)) - (cons __tmp51961 '())))) + (cons __tmp52035 '())))) (declare (not safe)) - (cons 'not: __tmp51960)))) + (cons 'not: __tmp52034)))) (___kont4699346994_ (lambda (_L30147_ _L30149_) - (let ((__tmp51962 - (let ((__tmp51965 + (let ((__tmp52036 + (let ((__tmp52039 (let () (declare (not safe)) (_parse128948_ _L30149_))) - (__tmp51963 - (let ((__tmp51964 + (__tmp52037 + (let ((__tmp52038 (let () (declare (not safe)) (_parse128948_ _L30147_)))) (declare (not safe)) - (cons __tmp51964 '())))) + (cons __tmp52038 '())))) (declare (not safe)) - (cons __tmp51965 __tmp51963)))) + (cons __tmp52039 __tmp52037)))) (declare (not safe)) - (cons 'cons: __tmp51962)))) + (cons 'cons: __tmp52036)))) (___kont4699546996_ (lambda (_L30091_ _L30093_ _L30094_) (if (gx#stx-null? _L30091_) - (let ((__tmp51973 - (let ((__tmp51976 + (let ((__tmp52047 + (let ((__tmp52050 (let () (declare (not safe)) (_parse128948_ _L30094_))) - (__tmp51974 - (let ((__tmp51975 + (__tmp52048 + (let ((__tmp52049 (let () (declare (not safe)) (_parse128948_ _L30093_)))) (declare (not safe)) - (cons __tmp51975 '())))) + (cons __tmp52049 '())))) (declare (not safe)) - (cons __tmp51976 __tmp51974)))) + (cons __tmp52050 __tmp52048)))) (declare (not safe)) - (cons 'cons: __tmp51973)) - (let ((__tmp51966 - (let ((__tmp51972 + (cons 'cons: __tmp52047)) + (let ((__tmp52040 + (let ((__tmp52046 (let () (declare (not safe)) (_parse128948_ _L30094_))) - (__tmp51967 - (let ((__tmp51968 - (let ((__tmp51969 - (let ((__tmp51971 + (__tmp52041 + (let ((__tmp52042 + (let ((__tmp52043 + (let ((__tmp52045 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cons*)) - (__tmp51970 + (__tmp52044 (let () (declare (not safe)) (cons _L30093_ _L30091_)))) (declare (not safe)) - (cons __tmp51971 __tmp51970)))) + (cons __tmp52045 __tmp52044)))) (declare (not safe)) - (_parse128948_ __tmp51969)))) + (_parse128948_ __tmp52043)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51968 '())))) + (cons __tmp52042 '())))) (declare (not safe)) - (cons __tmp51972 __tmp51967)))) + (cons __tmp52046 __tmp52041)))) (declare (not safe)) - (cons 'cons: __tmp51966))))) + (cons 'cons: __tmp52040))))) (___kont4699746998_ (lambda (_L30043_) (let () @@ -512,26 +512,26 @@ (_parse-list28950_ _L30043_)))) (___kont4699947000_ (lambda (_L30013_) - (let ((__tmp51977 - (let ((__tmp51978 + (let ((__tmp52051 + (let ((__tmp52052 (let () (declare (not safe)) (_parse128948_ _L30013_)))) (declare (not safe)) - (cons __tmp51978 '())))) + (cons __tmp52052 '())))) (declare (not safe)) - (cons 'box: __tmp51977)))) + (cons 'box: __tmp52051)))) (___kont4700147002_ (lambda (_L29976_) - (let ((__tmp51979 - (let ((__tmp51980 + (let ((__tmp52053 + (let ((__tmp52054 (let () (declare (not safe)) (_parse128948_ _L29976_)))) (declare (not safe)) - (cons __tmp51980 '())))) + (cons __tmp52054 '())))) (declare (not safe)) - (cons 'box: __tmp51979)))) + (cons 'box: __tmp52053)))) (___kont4700347004_ (lambda (_L29952_) (let () @@ -539,33 +539,33 @@ (_parse128948_ _L29952_)))) (___kont4700547006_ (lambda (_L29914_) - (let ((__tmp51981 - (let ((__tmp51982 + (let ((__tmp52055 + (let ((__tmp52056 (let () (declare (not safe)) (_parse-vector28951_ _L29914_)))) (declare (not safe)) - (cons __tmp51982 '())))) + (cons __tmp52056 '())))) (declare (not safe)) - (cons 'values: __tmp51981)))) + (cons 'values: __tmp52055)))) (___kont4700747008_ (lambda (_L29886_) - (let ((__tmp51983 - (let ((__tmp51984 + (let ((__tmp52057 + (let ((__tmp52058 (let () (declare (not safe)) (_parse-vector28951_ _L29886_)))) (declare (not safe)) - (cons __tmp51984 '())))) + (cons __tmp52058 '())))) (declare (not safe)) - (cons 'vector: __tmp51983)))) + (cons 'vector: __tmp52057)))) (___kont4700947010_ (lambda (_L29847_) - (let ((__tmp51985 - (let ((__tmp51986 - (let ((__tmp51987 + (let ((__tmp52059 + (let ((__tmp52060 + (let ((__tmp52061 (foldr (lambda (_g2986029863_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2986129866_) @@ -577,79 +577,79 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_parse-vector28951_ - __tmp51987)))) + __tmp52061)))) (declare (not safe)) - (cons __tmp51986 '())))) + (cons __tmp52060 '())))) (declare (not safe)) - (cons 'vector: __tmp51985)))) + (cons 'vector: __tmp52059)))) (___kont4701347014_ (lambda (_L29793_ _L29795_) - (let ((__tmp51988 - (let ((__tmp51991 + (let ((__tmp52062 + (let ((__tmp52065 (gx#syntax-local-value _L29795_)) - (__tmp51989 - (let ((__tmp51990 + (__tmp52063 + (let ((__tmp52064 (let () (declare (not safe)) (_parse-vector28951_ _L29793_)))) (declare (not safe)) - (cons __tmp51990 '())))) + (cons __tmp52064 '())))) (declare (not safe)) - (cons __tmp51991 __tmp51989)))) + (cons __tmp52065 __tmp52063)))) (declare (not safe)) - (cons 'struct: __tmp51988)))) + (cons 'struct: __tmp52062)))) (___kont4701547016_ (lambda (_L29763_ _L29765_) - (let ((__tmp51992 - (let ((__tmp51995 + (let ((__tmp52066 + (let ((__tmp52069 (gx#syntax-local-value _L29765_)) - (__tmp51993 - (let ((__tmp51994 + (__tmp52067 + (let ((__tmp52068 (let () (declare (not safe)) (_parse-class-body28953_ _L29763_)))) (declare (not safe)) - (cons __tmp51994 '())))) + (cons __tmp52068 '())))) (declare (not safe)) - (cons __tmp51995 __tmp51993)))) + (cons __tmp52069 __tmp52067)))) (declare (not safe)) - (cons 'class: __tmp51992)))) + (cons 'class: __tmp52066)))) (___kont4701747018_ (lambda (_L29723_ _L29725_) - (let ((__tmp51996 - (let ((__tmp51997 - (let ((__tmp52002 + (let ((__tmp52070 + (let ((__tmp52071 + (let ((__tmp52076 (gx#datum->syntax '#f 'cut)) - (__tmp51998 - (let ((__tmp51999 - (let ((__tmp52001 + (__tmp52072 + (let ((__tmp52073 + (let ((__tmp52075 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '<>)) - (__tmp52000 + (__tmp52074 (let () (declare (not safe)) (cons _L29723_ '())))) (declare (not safe)) - (cons __tmp52001 __tmp52000)))) + (cons __tmp52075 __tmp52074)))) (declare (not safe)) - (cons _L29725_ __tmp51999)))) + (cons _L29725_ __tmp52073)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52002 __tmp51998)))) + (cons __tmp52076 __tmp52072)))) (declare (not safe)) - (cons __tmp51997 '())))) + (cons __tmp52071 '())))) (declare (not safe)) - (cons '?: __tmp51996)))) + (cons '?: __tmp52070)))) (___kont4701947020_ (lambda (_L29683_) - (let ((__tmp52003 - (let ((__tmp52004 (gx#stx-e _L29683_))) + (let ((__tmp52077 + (let ((__tmp52078 (gx#stx-e _L29683_))) (declare (not safe)) - (cons __tmp52004 '())))) + (cons __tmp52078 '())))) (declare (not safe)) - (cons 'datum: __tmp52003)))) + (cons 'datum: __tmp52077)))) (___kont4702147022_ (lambda (_L29643_) (let () @@ -657,22 +657,22 @@ (_parse-qq28954_ _L29643_)))) (___kont4702347024_ (lambda (_L29599_ _L29601_) - (let ((__tmp52005 - (let ((__tmp52006 - (let ((__tmp52007 + (let ((__tmp52079 + (let ((__tmp52080 + (let ((__tmp52081 (let () (declare (not safe)) (_parse128948_ _L29599_)))) (declare (not safe)) - (cons __tmp52007 '())))) + (cons __tmp52081 '())))) (declare (not safe)) - (cons _L29601_ __tmp52006)))) + (cons _L29601_ __tmp52080)))) (declare (not safe)) - (cons 'apply: __tmp52005)))) + (cons 'apply: __tmp52079)))) (___kont4702547026_ (lambda (_L29547_) - (let ((__tmp52008 + (let ((__tmp52082 (gx#core-apply-expander (gx#syntax-local-e _L29547_) (gx#stx-wrap-source @@ -685,26 +685,26 @@ _$e29558_ (gx#stx-source _stx28944_))))))) (declare (not safe)) - (_parse128948_ __tmp52008)))) + (_parse128948_ __tmp52082)))) (___kont4702747028_ (lambda (_L29521_) (let () (declare (not safe)) (cons 'any: '())))) (___kont4702947030_ (lambda (_L29505_) - (let ((__tmp52009 + (let ((__tmp52083 (let () (declare (not safe)) (cons _L29505_ '())))) (declare (not safe)) - (cons 'var: __tmp52009)))) + (cons 'var: __tmp52083)))) (___kont4703147032_ (lambda (_L29487_) - (let ((__tmp52010 - (let ((__tmp52011 (gx#stx-e _L29487_))) + (let ((__tmp52084 + (let ((__tmp52085 (gx#stx-e _L29487_))) (declare (not safe)) - (cons __tmp52011 '())))) + (cons __tmp52085 '())))) (declare (not safe)) - (cons 'datum: __tmp52010)))) + (cons 'datum: __tmp52084)))) (___kont4703347034_ (lambda () (let () @@ -720,10 +720,10 @@ (lambda () (let ((_L29505_ ___stx4698246983_)) (if (and (gx#identifier? _L29505_) - (let ((__tmp52012 + (let ((__tmp52086 (gx#ellipsis? _L29505_))) (declare (not safe)) - (not __tmp52012))) + (not __tmp52086))) (___kont4702947030_ _L29505_) (let () (declare (not safe)) @@ -773,12 +773,12 @@ (___kont4701747018_ _L29723_ _L29725_) (if (gx#identifier? _hd2942729707_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52014_| + |gerbil/core$<match>[1]#_g52088_| _hd2942729707_) (___kont4701947020_ _hd2943029717_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52013_| + |gerbil/core$<match>[1]#_g52087_| _hd2942729707_) (___kont4702147022_ _hd2943029717_) @@ -825,7 +825,7 @@ (if (gx#identifier? _hd2942229757_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52014_| + |gerbil/core$<match>[1]#_g52088_| _hd2942229757_) (___match4730947310_ _e2942329753_ @@ -833,14 +833,14 @@ _tl2942129760_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$<match>[1]#_g52013_| + |gerbil/core$<match>[1]#_g52087_| _hd2942229757_) (___match4730947310_ _e2942329753_ _hd2942229757_ _tl2942129760_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52015_| + |gerbil/core$<match>[1]#_g52089_| _hd2942229757_) (if (gx#stx-pair? _tl2942929720_) (let ((_e2945629589_ @@ -916,14 +916,14 @@ (declare (not safe)) (##car _e2940929833_)))) - (let ((__tmp52016 + (let ((__tmp52090 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _lp-hd2941029837_ _body2941229830_)))) (declare (not safe)) - (_loop2940829823_ _lp-tl2941129840_ __tmp52016)))) + (_loop2940829823_ _lp-tl2941129840_ __tmp52090)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_body2941329843_ (reverse _body2941229830_))) @@ -1019,7 +1019,7 @@ (##car _e2933330381_)))) (if (gx#identifier? _hd2933230385_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52026_| + |gerbil/core$<match>[1]#_g52100_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2933630391_ @@ -1041,21 +1041,21 @@ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52025_| + |gerbil/core$<match>[1]#_g52099_| _hd2933230385_) (___match4706147062_ _e2933330381_ _hd2933230385_ _tl2933130388_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52024_| + |gerbil/core$<match>[1]#_g52098_| _hd2933230385_) (___match4707147072_ _e2933330381_ _hd2933230385_ _tl2933130388_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52023_| + |gerbil/core$<match>[1]#_g52097_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) @@ -1079,7 +1079,7 @@ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52022_| + |gerbil/core$<match>[1]#_g52096_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2935930127_ (gx#syntax-e _tl2933130388_))) @@ -1119,7 +1119,7 @@ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52021_| + |gerbil/core$<match>[1]#_g52095_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2937130071_ (gx#syntax-e _tl2933130388_))) @@ -1155,11 +1155,11 @@ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52020_| + |gerbil/core$<match>[1]#_g52094_| _hd2933230385_) (___kont4699746998_ _tl2933130388_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52019_| + |gerbil/core$<match>[1]#_g52093_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2938530003_ @@ -1183,7 +1183,7 @@ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52018_| + |gerbil/core$<match>[1]#_g52092_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2939429942_ @@ -1203,7 +1203,7 @@ _tl2933130388_)))) (___kont4700547006_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52017_| + |gerbil/core$<match>[1]#_g52091_| _hd2933230385_) (___kont4700747008_ _tl2933130388_) (___match4722347224_ @@ -1234,52 +1234,52 @@ (_parse128948_ _L29283_)))) (___kont4731747318_ (lambda (_L29235_ _L29237_ _L29238_) - (let ((__tmp52027 - (let ((__tmp52030 + (let ((__tmp52101 + (let ((__tmp52104 (let () (declare (not safe)) (_parse128948_ _L29238_))) - (__tmp52028 - (let ((__tmp52029 + (__tmp52102 + (let ((__tmp52103 (let () (declare (not safe)) (_parse-list28950_ _L29235_)))) (declare (not safe)) - (cons __tmp52029 '())))) + (cons __tmp52103 '())))) (declare (not safe)) - (cons __tmp52030 __tmp52028)))) + (cons __tmp52104 __tmp52102)))) (declare (not safe)) - (cons 'splice: __tmp52027)))) + (cons 'splice: __tmp52101)))) (___kont4731947320_ (lambda (_L29193_ _L29195_) - (let ((__tmp52031 - (let ((__tmp52034 + (let ((__tmp52105 + (let ((__tmp52108 (let () (declare (not safe)) (_parse128948_ _L29195_))) - (__tmp52032 - (let ((__tmp52033 + (__tmp52106 + (let ((__tmp52107 (let () (declare (not safe)) (_parse-list28950_ _L29193_)))) (declare (not safe)) - (cons __tmp52033 '())))) + (cons __tmp52107 '())))) (declare (not safe)) - (cons __tmp52034 __tmp52032)))) + (cons __tmp52108 __tmp52106)))) (declare (not safe)) - (cons 'cons: __tmp52031)))) + (cons 'cons: __tmp52105)))) (___kont4732147322_ (lambda () (if (gx#stx-null? _body29130_) (let () (declare (not safe)) (cons 'null: '())) - (if (let ((__tmp52035 + (if (let ((__tmp52109 (gx#stx-pair? _body29130_))) (declare (not safe)) - (not __tmp52035)) + (not __tmp52109)) (let () (declare (not safe)) (_parse128948_ _body29130_)) @@ -1292,10 +1292,10 @@ _tl2915729190_) (let ((_L29193_ _tl2915729190_) (_L29195_ _hd2915829187_)) - (if (let ((__tmp52036 + (if (let ((__tmp52110 (gx#ellipsis? _L29195_))) (declare (not safe)) - (not __tmp52036)) + (not __tmp52110)) (___kont4731947320_ _L29193_ _L29195_) (___kont4732147322_))))) (___match4735547356_ @@ -1412,22 +1412,22 @@ (if (let () (declare (not safe)) (_simple-vector?28952_ _body29127_)) - (let ((__tmp52039 - (let ((__tmp52040 + (let ((__tmp52113 + (let ((__tmp52114 (gx#stx-map _parse128948_ _body29127_))) (declare (not safe)) - (cons __tmp52040 '())))) + (cons __tmp52114 '())))) (declare (not safe)) - (cons 'simple: __tmp52039)) - (let ((__tmp52037 - (let ((__tmp52038 + (cons 'simple: __tmp52113)) + (let ((__tmp52111 + (let ((__tmp52112 (let () (declare (not safe)) (_parse-list28950_ _body29127_)))) (declare (not safe)) - (cons __tmp52038 '())))) + (cons __tmp52112 '())))) (declare (not safe)) - (cons 'list: __tmp52037))))) + (cons 'list: __tmp52111))))) (_simple-vector?28952_ (lambda (_body29064_) (let* ((___stx4736447365_ _body29064_) @@ -1439,9 +1439,9 @@ ___stx4736447365_)))) (let ((___kont4736747368_ (lambda (_L29108_ _L29110_) - (if (let ((__tmp52041 (gx#ellipsis? _L29110_))) + (if (let ((__tmp52115 (gx#ellipsis? _L29110_))) (declare (not safe)) - (not __tmp52041)) + (not __tmp52115)) (let () (declare (not safe)) (_simple-vector?28952_ _L29108_)) @@ -1475,19 +1475,19 @@ ___stx4738047381_)))) (let ((___kont4738347384_ (lambda (_L29037_ _L29039_ _L29040_) - (let ((__tmp52042 - (let ((__tmp52044 + (let ((__tmp52116 + (let ((__tmp52118 (let () (declare (not safe)) (_parse128948_ _L29039_))) - (__tmp52043 + (__tmp52117 (let () (declare (not safe)) (_recur28976_ _L29037_)))) (declare (not safe)) - (cons __tmp52044 __tmp52043)))) + (cons __tmp52118 __tmp52117)))) (declare (not safe)) - (cons _L29040_ __tmp52042)))) + (cons _L29040_ __tmp52116)))) (___kont4738547386_ (lambda () (if (gx#stx-null? _rest28979_) @@ -1558,21 +1558,21 @@ '#f '"bad syntax; illegal pattern" (if _match-stx28946_ - (let ((__tmp52046 - (let ((__tmp52047 + (let ((__tmp52120 + (let ((__tmp52121 (let () (declare (not safe)) (cons _hd28957_ '())))) (declare (not safe)) - (cons _stx28944_ __tmp52047)))) + (cons _stx28944_ __tmp52121)))) (declare (not safe)) - (cons _match-stx28946_ __tmp52046)) - (let ((__tmp52045 + (cons _match-stx28946_ __tmp52120)) + (let ((__tmp52119 (let () (declare (not safe)) (cons _hd28957_ '())))) (declare (not safe)) - (cons _stx28944_ __tmp52045))))))) + (cons _stx28944_ __tmp52119))))))) (let () (declare (not safe)) (_parse128948_ _stx28944_))))) (define |gerbil/core$<match>[1]#parse-match-pattern__0| (lambda (_stx30628_) @@ -1582,27 +1582,27 @@ _stx30628_ _match-stx30631_)))) (define |gerbil/core$<match>[1]#parse-match-pattern| - (lambda _g52049_ - (let ((_g52048_ (let () (declare (not safe)) (##length _g52049_)))) - (cond ((let () (declare (not safe)) (##fx= _g52048_ 1)) + (lambda _g52123_ + (let ((_g52122_ (let () (declare (not safe)) (##length _g52123_)))) + (cond ((let () (declare (not safe)) (##fx= _g52122_ 1)) (apply (lambda (_stx30628_) (let () (declare (not safe)) (|gerbil/core$<match>[1]#parse-match-pattern__0| _stx30628_))) - _g52049_)) - ((let () (declare (not safe)) (##fx= _g52048_ 2)) + _g52123_)) + ((let () (declare (not safe)) (##fx= _g52122_ 2)) (apply (lambda (_stx30634_ _match-stx30636_) (let () (declare (not safe)) (|gerbil/core$<match>[1]#parse-match-pattern__%| _stx30634_ _match-stx30636_))) - _g52049_)) + _g52123_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core$<match>[1]#parse-match-pattern| - _g52049_)))))) + _g52123_)))))) (define |gerbil/core$<match>[1]#match-pattern?| (lambda (_stx28928_) (call-with-current-continuation @@ -1774,9 +1774,9 @@ ___stx4740247403_)))) (let ((___kont4740547406_ (lambda (_L28654_ _L28656_) - (let ((__tmp52050 + (let ((__tmp52124 (lambda (_g2866828670_) - (let ((__tmp52051 + (let ((__tmp52125 (let () (declare (not safe)) @@ -1786,14 +1786,14 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_loop27666_ - __tmp52051 + __tmp52125 _g2866828670_ _K27956_))))) (declare (not safe)) (_loop27666_ _L28656_ _vars27955_ - __tmp52050)))) + __tmp52124)))) (___kont4740747408_ (lambda () (_K27956_ _vars27955_)))) (if (gx#stx-pair? ___stx4740247403_) @@ -1818,7 +1818,7 @@ (_loop27666_ _L28565_ _vars27955_ _K27956_)))) (___kont4750747508_ (lambda (_L28511_ _L28513_) - (let ((__tmp52052 + (let ((__tmp52126 (lambda (_g2852828530_) (let () (declare (not safe)) @@ -1830,10 +1830,10 @@ (_loop27666_ _L28513_ _vars27955_ - __tmp52052)))) + __tmp52126)))) (___kont4750947510_ (lambda (_L28447_ _L28449_) - (let ((__tmp52053 + (let ((__tmp52127 (lambda (_g2846428466_) (let () (declare (not safe)) @@ -1845,7 +1845,7 @@ (_loop27666_ _L28449_ _vars27955_ - __tmp52053)))) + __tmp52127)))) (___kont4751147512_ (lambda (_L28392_) (let () @@ -2322,7 +2322,7 @@ ___stx4780647807_)))) (let ((___kont4780947810_ (lambda (_L27805_ _L27807_) - (let ((__tmp52054 + (let ((__tmp52128 (lambda (_g2781927821_) (let () (declare (not safe)) @@ -2334,7 +2334,7 @@ (_loop27666_ _L27807_ _vars27761_ - __tmp52054)))) + __tmp52128)))) (___kont4781147812_ (lambda () (_K27762_ _vars27761_)))) (if (gx#stx-pair? ___stx4780647807_) @@ -2363,7 +2363,7 @@ ___stx4782247823_)))) (let ((___kont4782547826_ (lambda (_L27731_ _L27733_) - (let ((__tmp52055 + (let ((__tmp52129 (lambda (_g2774927751_) (let () (declare (not safe)) @@ -2375,7 +2375,7 @@ (_loop27666_ _L27733_ _vars27674_ - __tmp52055)))) + __tmp52129)))) (___kont4782747828_ (lambda () (_K27675_ _vars27674_)))) (if (gx#stx-pair? ___stx4782247823_) @@ -2441,46 +2441,46 @@ ___stx4797647977_)))) (let ((___kont4797947980_ (lambda () - (let ((__tmp52056 - (let ((__tmp52059 + (let ((__tmp52130 + (let ((__tmp52133 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52062 (gx#datum->syntax '#f '?)) - (__tmp52060 - (let ((__tmp52061 + (let ((__tmp52136 (gx#datum->syntax '#f '?)) + (__tmp52134 + (let ((__tmp52135 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L27376_ __tmp52061)))) + (cons _L27376_ __tmp52135)))) (declare (not safe)) - (cons __tmp52062 __tmp52060))) - (__tmp52057 - (let ((__tmp52058 + (cons __tmp52136 __tmp52134))) + (__tmp52131 + (let ((__tmp52132 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons _K25879_ __tmp52058)))) + (cons _K25879_ __tmp52132)))) (declare (not safe)) - (cons __tmp52059 __tmp52057)))) + (cons __tmp52133 __tmp52131)))) (declare (not safe)) - (cons 'if __tmp52056)))) + (cons 'if __tmp52130)))) (___kont4798147982_ (lambda (_L27629_) - (let ((__tmp52063 - (let ((__tmp52067 - (let ((__tmp52070 (gx#datum->syntax '#f '?)) - (__tmp52068 - (let ((__tmp52069 + (let ((__tmp52137 + (let ((__tmp52141 + (let ((__tmp52144 (gx#datum->syntax '#f '?)) + (__tmp52142 + (let ((__tmp52143 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L27376_ __tmp52069)))) + (cons _L27376_ __tmp52143)))) (declare (not safe)) - (cons __tmp52070 __tmp52068))) - (__tmp52064 - (let ((__tmp52066 + (cons __tmp52144 __tmp52142))) + (__tmp52138 + (let ((__tmp52140 (let () (declare (not safe)) (_generate124631_ @@ -2488,16 +2488,16 @@ _L27629_ _K25879_ _E25880_))) - (__tmp52065 + (__tmp52139 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52066 __tmp52065)))) + (cons __tmp52140 __tmp52139)))) (declare (not safe)) - (cons __tmp52067 __tmp52064)))) + (cons __tmp52141 __tmp52138)))) (declare (not safe)) - (cons 'if __tmp52063)))) + (cons 'if __tmp52137)))) (___kont4798347984_ (lambda (_L27567_) (let* ((_g2758127589_ @@ -2510,31 +2510,31 @@ (lambda (_g2758227593_) ((lambda (_L27596_) (let () - (let ((__tmp52071 - (let ((__tmp52078 - (let ((__tmp52079 - (let ((__tmp52080 - (let ((__tmp52081 + (let ((__tmp52145 + (let ((__tmp52152 + (let ((__tmp52153 + (let ((__tmp52154 + (let ((__tmp52155 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52082 + (let ((__tmp52156 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L27376_ __tmp52082)))) + (cons _L27376_ __tmp52156)))) (declare (not safe)) - (cons __tmp52081 '())))) + (cons __tmp52155 '())))) (declare (not safe)) - (cons _L27596_ __tmp52080)))) + (cons _L27596_ __tmp52154)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52079 '()))) - (__tmp52072 - (let ((__tmp52073 - (let ((__tmp52074 - (let ((__tmp52075 + (cons __tmp52153 '()))) + (__tmp52146 + (let ((__tmp52147 + (let ((__tmp52148 + (let ((__tmp52149 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52077 + (let ((__tmp52151 (let () (declare (not safe)) (_generate124631_ @@ -2542,27 +2542,27 @@ _L27567_ _K25879_ _E25880_))) - (__tmp52076 + (__tmp52150 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52077 __tmp52076)))) + (cons __tmp52151 __tmp52150)))) (declare (not safe)) - (cons _L27596_ __tmp52075)))) + (cons _L27596_ __tmp52149)))) (declare (not safe)) - (cons 'if __tmp52074)))) + (cons 'if __tmp52148)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52073 '())))) + (cons __tmp52147 '())))) (declare (not safe)) - (cons __tmp52078 __tmp52072)))) + (cons __tmp52152 __tmp52146)))) (declare (not safe)) - (cons 'let __tmp52071)))) + (cons 'let __tmp52145)))) _g2758227593_))) - (__tmp52083 (gx#genident 'e))) + (__tmp52157 (gx#genident 'e))) (declare (not safe)) - (_g2758027608_ __tmp52083)))) + (_g2758027608_ __tmp52157)))) (___kont4798547986_ (lambda (_L27483_ _L27485_) (let* ((_g2750527513_ @@ -2575,12 +2575,12 @@ (lambda (_g2750627517_) ((lambda (_L27520_) (let () - (let ((__tmp52084 - (let ((__tmp52096 - (let ((__tmp52099 + (let ((__tmp52158 + (let ((__tmp52170 + (let ((__tmp52173 (gx#datum->syntax '#f '?)) - (__tmp52097 - (let ((__tmp52098 + (__tmp52171 + (let ((__tmp52172 (let () (declare (not safe)) @@ -2588,32 +2588,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L27376_ __tmp52098)))) + (cons _L27376_ __tmp52172)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52099 __tmp52097))) - (__tmp52085 - (let ((__tmp52087 - (let ((__tmp52088 - (let ((__tmp52091 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52092 - (let ((__tmp52093 - (let ((__tmp52094 - (let ((__tmp52095 + (cons __tmp52173 __tmp52171))) + (__tmp52159 + (let ((__tmp52161 + (let ((__tmp52162 + (let ((__tmp52165 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52166 + (let ((__tmp52167 + (let ((__tmp52168 + (let ((__tmp52169 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L27485_ __tmp52095)))) + (cons _L27485_ __tmp52169)))) (declare (not safe)) - (cons __tmp52094 '())))) + (cons __tmp52168 '())))) (declare (not safe)) - (cons _L27520_ __tmp52093)))) + (cons _L27520_ __tmp52167)))) (declare (not safe)) - (cons __tmp52092 '()))) - (__tmp52089 - (let ((__tmp52090 + (cons __tmp52166 '()))) + (__tmp52163 + (let ((__tmp52164 (let () (declare (not safe)) (_generate124631_ @@ -2622,26 +2622,26 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp52090 '())))) + (cons __tmp52164 '())))) (declare (not safe)) - (cons __tmp52091 __tmp52089)))) + (cons __tmp52165 __tmp52163)))) (declare (not safe)) - (cons 'let __tmp52088))) + (cons 'let __tmp52162))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52086 + (__tmp52160 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52087 __tmp52086)))) + (cons __tmp52161 __tmp52160)))) (declare (not safe)) - (cons __tmp52096 __tmp52085)))) + (cons __tmp52170 __tmp52159)))) (declare (not safe)) - (cons 'if __tmp52084)))) + (cons 'if __tmp52158)))) _g2750627517_))) - (__tmp52100 (gx#genident 'e))) + (__tmp52174 (gx#genident 'e))) (declare (not safe)) - (_g2750427532_ __tmp52100))))) + (_g2750427532_ __tmp52174))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_g2739027640_ (lambda () @@ -2775,8 +2775,8 @@ (let ((___kont4796347964_ (lambda (_L27324_ _L27326_) - (let ((__tmp52101 - (let ((__tmp52102 + (let ((__tmp52175 + (let ((__tmp52176 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -2784,14 +2784,14 @@ (declare (not safe)) (_generate124631_ _tgt25876_ - __tmp52102 + __tmp52176 _K25879_ _E25880_)))) (declare (not safe)) (_generate124631_ _tgt25876_ _L27326_ - __tmp52101 + __tmp52175 _E25880_)))) (___kont4796547966_ (lambda () _K25879_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2823,8 +2823,8 @@ (let ((___kont4794747948_ (lambda (_L27231_ _L27233_) - (let ((__tmp52103 - (let ((__tmp52104 + (let ((__tmp52177 + (let ((__tmp52178 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -2832,7 +2832,7 @@ (declare (not safe)) (_generate124631_ _tgt25876_ - __tmp52104 + __tmp52178 _K25879_ _E25880_)))) (declare (not safe)) @@ -2840,7 +2840,7 @@ _tgt25876_ _L27233_ _K25879_ - __tmp52103)))) + __tmp52177)))) (___kont4794947950_ (lambda () _E25880_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? @@ -2903,22 +2903,22 @@ (if (gx#stx-null? _tl2705127083_) ((lambda (_L27086_ _L27088_) (let () - (let ((__tmp52105 - (let ((__tmp52143 - (let ((__tmp52145 + (let ((__tmp52179 + (let ((__tmp52217 + (let ((__tmp52219 (gx#datum->syntax '#f '##pair?)) - (__tmp52144 + (__tmp52218 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52145 __tmp52144))) - (__tmp52106 - (let ((__tmp52108 + (cons __tmp52219 __tmp52218))) + (__tmp52180 + (let ((__tmp52182 (let ((_hd-pat27104_ (gx#stx-e _L27027_)) (_tl-pat27106_ (gx#stx-e _L27025_))) (if (and (let () @@ -2931,28 +2931,28 @@ (if (let () (declare (not safe)) (equal? _tl-pat27106_ '(any:))) - (let ((__tmp52134 - (let ((__tmp52137 - (let ((__tmp52138 - (let ((__tmp52139 - (let ((__tmp52140 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52142 (gx#datum->syntax '#f '##car)) - (__tmp52141 + (let ((__tmp52208 + (let ((__tmp52211 + (let ((__tmp52212 + (let ((__tmp52213 + (let ((__tmp52214 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52216 (gx#datum->syntax '#f '##car)) + (__tmp52215 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52142 __tmp52141)))) + (cons __tmp52216 __tmp52215)))) (declare (not safe)) - (cons __tmp52140 '())))) + (cons __tmp52214 '())))) (declare (not safe)) - (cons _L27088_ __tmp52139)))) + (cons _L27088_ __tmp52213)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52138 '()))) - (__tmp52135 - (let ((__tmp52136 + (cons __tmp52212 '()))) + (__tmp52209 + (let ((__tmp52210 (let () (declare (not safe)) (_generate124631_ @@ -2961,36 +2961,36 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp52136 '())))) + (cons __tmp52210 '())))) (declare (not safe)) - (cons __tmp52137 __tmp52135)))) + (cons __tmp52211 __tmp52209)))) (declare (not safe)) - (cons 'let __tmp52134)) + (cons 'let __tmp52208)) (if (let () (declare (not safe)) (equal? _hd-pat27104_ '(any:))) - (let ((__tmp52125 - (let ((__tmp52128 - (let ((__tmp52129 - (let ((__tmp52130 - (let ((__tmp52131 + (let ((__tmp52199 + (let ((__tmp52202 + (let ((__tmp52203 + (let ((__tmp52204 + (let ((__tmp52205 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52133 (gx#datum->syntax '#f '##cdr)) - (__tmp52132 + (let ((__tmp52207 (gx#datum->syntax '#f '##cdr)) + (__tmp52206 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52133 __tmp52132)))) + (cons __tmp52207 __tmp52206)))) (declare (not safe)) - (cons __tmp52131 '())))) + (cons __tmp52205 '())))) (declare (not safe)) - (cons _L27086_ __tmp52130)))) + (cons _L27086_ __tmp52204)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52129 '()))) - (__tmp52126 - (let ((__tmp52127 + (cons __tmp52203 '()))) + (__tmp52200 + (let ((__tmp52201 (let () (declare (not safe)) (_generate124631_ @@ -2999,53 +2999,53 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp52127 '())))) + (cons __tmp52201 '())))) (declare (not safe)) - (cons __tmp52128 __tmp52126)))) + (cons __tmp52202 __tmp52200)))) (declare (not safe)) - (cons 'let __tmp52125)) - (let ((__tmp52109 - (let ((__tmp52113 - (let ((__tmp52120 - (let ((__tmp52121 - (let ((__tmp52122 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52124 (gx#datum->syntax '#f '##car)) - (__tmp52123 + (cons 'let __tmp52199)) + (let ((__tmp52183 + (let ((__tmp52187 + (let ((__tmp52194 + (let ((__tmp52195 + (let ((__tmp52196 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52198 (gx#datum->syntax '#f '##car)) + (__tmp52197 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52124 __tmp52123)))) + (cons __tmp52198 __tmp52197)))) (declare (not safe)) - (cons __tmp52122 '())))) + (cons __tmp52196 '())))) (declare (not safe)) - (cons _L27088_ __tmp52121))) - (__tmp52114 - (let ((__tmp52115 - (let ((__tmp52116 - (let ((__tmp52117 - (let ((__tmp52119 + (cons _L27088_ __tmp52195))) + (__tmp52188 + (let ((__tmp52189 + (let ((__tmp52190 + (let ((__tmp52191 + (let ((__tmp52193 (gx#datum->syntax '#f '##cdr)) - (__tmp52118 + (__tmp52192 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52119 __tmp52118)))) + (cons __tmp52193 __tmp52192)))) (declare (not safe)) - (cons __tmp52117 '())))) + (cons __tmp52191 '())))) (declare (not safe)) - (cons _L27086_ __tmp52116)))) + (cons _L27086_ __tmp52190)))) (declare (not safe)) - (cons __tmp52115 '())))) + (cons __tmp52189 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52120 - __tmp52114))) - (__tmp52110 - (let ((__tmp52111 - (let ((__tmp52112 + (cons __tmp52194 + __tmp52188))) + (__tmp52184 + (let ((__tmp52185 + (let ((__tmp52186 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -3055,24 +3055,24 @@ _K25879_ _E25880_)))) (declare (not safe)) - (_generate124631_ _L27088_ _L27027_ __tmp52112 _E25880_)))) + (_generate124631_ _L27088_ _L27027_ __tmp52186 _E25880_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52111 '())))) + (cons __tmp52185 '())))) (declare (not safe)) - (cons __tmp52113 __tmp52110)))) + (cons __tmp52187 __tmp52184)))) (declare (not safe)) - (cons 'let __tmp52109))))))) - (__tmp52107 + (cons 'let __tmp52183))))))) + (__tmp52181 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52108 __tmp52107)))) + (cons __tmp52182 __tmp52181)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52143 - __tmp52106)))) + (cons __tmp52217 + __tmp52180)))) (declare (not safe)) - (cons 'if __tmp52105)))) + (cons 'if __tmp52179)))) _hd2705227080_ _hd2704927070_) (let () @@ -3085,33 +3085,33 @@ (declare (not safe)) (_g2704427059_ _g2704527063_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52146 + (__tmp52220 (list (gx#genident 'hd) (gx#genident 'tl)))) (declare (not safe)) - (_g2704327108_ __tmp52146)))) + (_g2704327108_ __tmp52220)))) (___kont4807148072_ (lambda () - (let ((__tmp52147 - (let ((__tmp52150 - (let ((__tmp52152 + (let ((__tmp52221 + (let ((__tmp52224 + (let ((__tmp52226 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##null?)) - (__tmp52151 + (__tmp52225 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52152 __tmp52151))) - (__tmp52148 - (let ((__tmp52149 + (cons __tmp52226 __tmp52225))) + (__tmp52222 + (let ((__tmp52223 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons _K25879_ __tmp52149)))) + (cons _K25879_ __tmp52223)))) (declare (not safe)) - (cons __tmp52150 __tmp52148)))) + (cons __tmp52224 __tmp52222)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp52147)))) + (cons 'if __tmp52221)))) (___kont4807348074_ (lambda (_L26941_ _L26943_) (let () @@ -3134,41 +3134,41 @@ (lambda (_g2687026881_) ((lambda (_L26884_) (let () - (let ((__tmp52153 + (let ((__tmp52227 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52166 - (let ((__tmp52168 + (let ((__tmp52240 + (let ((__tmp52242 (gx#datum->syntax '#f '##box?)) - (__tmp52167 + (__tmp52241 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52168 __tmp52167))) - (__tmp52154 - (let ((__tmp52156 - (let ((__tmp52157 - (let ((__tmp52160 - (let ((__tmp52161 - (let ((__tmp52162 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52163 - (let ((__tmp52165 + (cons __tmp52242 __tmp52241))) + (__tmp52228 + (let ((__tmp52230 + (let ((__tmp52231 + (let ((__tmp52234 + (let ((__tmp52235 + (let ((__tmp52236 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52237 + (let ((__tmp52239 (gx#datum->syntax '#f '##unbox)) - (__tmp52164 + (__tmp52238 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52165 __tmp52164)))) + (cons __tmp52239 __tmp52238)))) (declare (not safe)) - (cons __tmp52163 '())))) + (cons __tmp52237 '())))) (declare (not safe)) - (cons _L26884_ __tmp52162)))) + (cons _L26884_ __tmp52236)))) (declare (not safe)) - (cons __tmp52161 '()))) - (__tmp52158 - (let ((__tmp52159 + (cons __tmp52235 '()))) + (__tmp52232 + (let ((__tmp52233 (let () (declare (not safe)) (_generate124631_ @@ -3177,29 +3177,29 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp52159 '())))) + (cons __tmp52233 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52160 - __tmp52158)))) + (cons __tmp52234 + __tmp52232)))) (declare (not safe)) - (cons 'let __tmp52157))) - (__tmp52155 + (cons 'let __tmp52231))) + (__tmp52229 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52156 __tmp52155)))) + (cons __tmp52230 __tmp52229)))) (declare (not safe)) - (cons __tmp52166 __tmp52154)))) + (cons __tmp52240 __tmp52228)))) (declare (not safe)) - (cons 'if __tmp52153)))) + (cons 'if __tmp52227)))) _g2687026881_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52169 + (__tmp52243 (gx#genident 'e))) (declare (not safe)) - (_g2686826896_ __tmp52169)))) + (_g2686826896_ __tmp52243)))) (___kont4807748078_ (lambda (_L26660_) (let* ((___stx4789447895_ @@ -3223,30 +3223,30 @@ (lambda (_g2679026801_) ((lambda (_L26804_) (let () - (let ((__tmp52170 - (let ((__tmp52174 - (let ((__tmp52180 + (let ((__tmp52244 + (let ((__tmp52248 + (let ((__tmp52254 (gx#datum->syntax '#f '##fx=)) - (__tmp52175 - (let ((__tmp52177 - (let ((__tmp52179 + (__tmp52249 + (let ((__tmp52251 + (let ((__tmp52253 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'values-count)) - (__tmp52178 + (__tmp52252 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52179 __tmp52178))) - (__tmp52176 + (cons __tmp52253 __tmp52252))) + (__tmp52250 (let () (declare (not safe)) (cons _L26804_ '())))) (declare (not safe)) - (cons __tmp52177 __tmp52176)))) + (cons __tmp52251 __tmp52250)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52180 __tmp52175))) - (__tmp52171 - (let ((__tmp52173 + (cons __tmp52254 __tmp52249))) + (__tmp52245 + (let ((__tmp52247 (let () (declare (not safe)) (_generate-simple-vector24634_ @@ -3255,20 +3255,20 @@ '0 _K25879_ _E25880_))) - (__tmp52172 + (__tmp52246 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52173 __tmp52172)))) + (cons __tmp52247 __tmp52246)))) (declare (not safe)) - (cons __tmp52174 __tmp52171)))) + (cons __tmp52248 __tmp52245)))) (declare (not safe)) - (cons 'if __tmp52170)))) + (cons 'if __tmp52244)))) _g2679026801_))) - (__tmp52181 (gx#stx-length _L26775_))) + (__tmp52255 (gx#stx-length _L26775_))) (declare (not safe)) - (_g2678826816_ __tmp52181)))) + (_g2678826816_ __tmp52255)))) (___kont4789947900_ (lambda (_L26729_) (let () @@ -3365,46 +3365,46 @@ (lambda (_g2659526606_) ((lambda (_L26609_) (let () - (let ((__tmp52182 - (let ((__tmp52197 - (let ((__tmp52199 + (let ((__tmp52256 + (let ((__tmp52271 + (let ((__tmp52273 (gx#datum->syntax '#f '##vector?)) - (__tmp52198 + (__tmp52272 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52199 __tmp52198))) - (__tmp52183 - (let ((__tmp52185 - (let ((__tmp52186 - (let ((__tmp52190 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52196 (gx#datum->syntax '#f '##fx=)) - (__tmp52191 - (let ((__tmp52193 - (let ((__tmp52195 + (cons __tmp52273 __tmp52272))) + (__tmp52257 + (let ((__tmp52259 + (let ((__tmp52260 + (let ((__tmp52264 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52270 (gx#datum->syntax '#f '##fx=)) + (__tmp52265 + (let ((__tmp52267 + (let ((__tmp52269 (gx#datum->syntax '#f '##vector-length)) - (__tmp52194 + (__tmp52268 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52195 __tmp52194))) - (__tmp52192 + (cons __tmp52269 __tmp52268))) + (__tmp52266 (let () (declare (not safe)) (cons _L26609_ '())))) (declare (not safe)) - (cons __tmp52193 __tmp52192)))) + (cons __tmp52267 __tmp52266)))) (declare (not safe)) - (cons __tmp52196 __tmp52191))) - (__tmp52187 - (let ((__tmp52189 + (cons __tmp52270 __tmp52265))) + (__tmp52261 + (let ((__tmp52263 (let () (declare (not safe)) (_generate-simple-vector24634_ @@ -3413,45 +3413,45 @@ '0 _K25879_ _E25880_))) - (__tmp52188 + (__tmp52262 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52189 __tmp52188)))) + (cons __tmp52263 __tmp52262)))) (declare (not safe)) - (cons __tmp52190 __tmp52187)))) + (cons __tmp52264 __tmp52261)))) (declare (not safe)) - (cons 'if __tmp52186))) + (cons 'if __tmp52260))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52184 + (__tmp52258 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52185 __tmp52184)))) + (cons __tmp52259 __tmp52258)))) (declare (not safe)) - (cons __tmp52197 __tmp52183)))) + (cons __tmp52271 __tmp52257)))) (declare (not safe)) - (cons 'if __tmp52182)))) + (cons 'if __tmp52256)))) _g2659526606_))) - (__tmp52200 (gx#stx-length _L26580_))) + (__tmp52274 (gx#stx-length _L26580_))) (declare (not safe)) - (_g2659326621_ __tmp52200)))) + (_g2659326621_ __tmp52274)))) (___kont4784947850_ (lambda (_L26534_) - (let ((__tmp52201 - (let ((__tmp52205 - (let ((__tmp52207 + (let ((__tmp52275 + (let ((__tmp52279 + (let ((__tmp52281 (gx#datum->syntax '#f '##vector?)) - (__tmp52206 + (__tmp52280 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52207 __tmp52206))) - (__tmp52202 - (let ((__tmp52204 + (cons __tmp52281 __tmp52280))) + (__tmp52276 + (let ((__tmp52278 (let () (declare (not safe)) (_generate-list-vector24635_ @@ -3460,16 +3460,16 @@ 'vector->list _K25879_ _E25880_))) - (__tmp52203 + (__tmp52277 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52204 __tmp52203)))) + (cons __tmp52278 __tmp52277)))) (declare (not safe)) - (cons __tmp52205 __tmp52202)))) + (cons __tmp52279 __tmp52276)))) (declare (not safe)) - (cons 'if __tmp52201))))) + (cons 'if __tmp52275))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? ___stx4784447845_) @@ -3535,22 +3535,22 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4808148082_ (lambda (_L26416_ _L26418_) - (let ((__tmp52208 + (let ((__tmp52282 (gx#stx-e _L26418_))) (declare (not safe)) (_generate-struct24636_ - __tmp52208 + __tmp52282 _tgt25876_ _L26416_ _K25879_ _E25880_)))) (___kont4808348084_ (lambda (_L26357_ _L26359_) - (let ((__tmp52209 + (let ((__tmp52283 (gx#stx-e _L26359_))) (declare (not safe)) (_generate-class24639_ - __tmp52209 + __tmp52283 _tgt25876_ _L26357_ _K25879_ @@ -3567,44 +3567,44 @@ (lambda (_g2627526286_) ((lambda (_L26289_) (let () - (let ((__tmp52210 + (let ((__tmp52284 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52213 - (let ((__tmp52214 - (let ((__tmp52215 - (let ((__tmp52216 - (let ((__tmp52218 + (let ((__tmp52287 + (let ((__tmp52288 + (let ((__tmp52289 + (let ((__tmp52290 + (let ((__tmp52292 (gx#datum->syntax '#f 'quote)) - (__tmp52217 + (__tmp52291 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L26260_ '())))) (declare (not safe)) - (cons __tmp52218 __tmp52217)))) + (cons __tmp52292 __tmp52291)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52216 '())))) + (cons __tmp52290 '())))) (declare (not safe)) - (cons _L25897_ __tmp52215)))) + (cons _L25897_ __tmp52289)))) (declare (not safe)) - (cons _L26289_ __tmp52214))) - (__tmp52211 - (let ((__tmp52212 + (cons _L26289_ __tmp52288))) + (__tmp52285 + (let ((__tmp52286 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons _K25879_ __tmp52212)))) + (cons _K25879_ __tmp52286)))) (declare (not safe)) - (cons __tmp52213 __tmp52211)))) + (cons __tmp52287 __tmp52285)))) (declare (not safe)) - (cons 'if __tmp52210)))) + (cons 'if __tmp52284)))) _g2627526286_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52219 + (__tmp52293 (let ((_e26305_ (gx#stx-e _L26260_))) @@ -3620,7 +3620,7 @@ 'equal?))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2627326301_ __tmp52219)))) + (_g2627326301_ __tmp52293)))) (___kont4808748088_ (lambda (_L26180_ _L26182_) (let* ((_g2619826206_ @@ -3633,28 +3633,28 @@ (lambda (_g2619926210_) ((lambda (_L26213_) (let () - (let ((__tmp52220 + (let ((__tmp52294 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52223 - (let ((__tmp52224 - (let ((__tmp52225 - (let ((__tmp52226 - (let ((__tmp52227 + (let ((__tmp52297 + (let ((__tmp52298 + (let ((__tmp52299 + (let ((__tmp52300 + (let ((__tmp52301 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L26182_ __tmp52227)))) + (cons _L26182_ __tmp52301)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52226 '())))) + (cons __tmp52300 '())))) (declare (not safe)) - (cons _L26213_ __tmp52225)))) + (cons _L26213_ __tmp52299)))) (declare (not safe)) - (cons __tmp52224 '()))) - (__tmp52221 - (let ((__tmp52222 + (cons __tmp52298 '()))) + (__tmp52295 + (let ((__tmp52296 (let () (declare (not safe)) (_generate124631_ @@ -3663,38 +3663,38 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp52222 '())))) + (cons __tmp52296 '())))) (declare (not safe)) - (cons __tmp52223 __tmp52221)))) + (cons __tmp52297 __tmp52295)))) (declare (not safe)) - (cons 'let __tmp52220)))) + (cons 'let __tmp52294)))) _g2619926210_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52228 + (__tmp52302 (gx#genident 'e))) (declare (not safe)) - (_g2619726225_ __tmp52228)))) + (_g2619726225_ __tmp52302)))) (___kont4808948090_ (lambda (_L26122_) - (let ((__tmp52229 - (let ((__tmp52231 - (let ((__tmp52232 + (let ((__tmp52303 + (let ((__tmp52305 + (let ((__tmp52306 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52233 + (let ((__tmp52307 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L26122_ __tmp52233)))) + (cons _L26122_ __tmp52307)))) (declare (not safe)) - (cons __tmp52232 '()))) - (__tmp52230 + (cons __tmp52306 '()))) + (__tmp52304 (let () (declare (not safe)) (cons _K25879_ '())))) (declare (not safe)) - (cons __tmp52231 __tmp52230)))) + (cons __tmp52305 __tmp52304)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp52229)))) + (cons 'let __tmp52303)))) (___kont4809148092_ (lambda () _K25879_))) (if (gx#stx-pair? ___stx4805848059_) @@ -4095,30 +4095,30 @@ (_g2525425872_ (lambda (_g2525625276_) (if (gx#stx-pair/null? _g2525625276_) - (let ((_g52234_ + (let ((_g52308_ (gx#syntax-split-splice _g2525625276_ '0))) (begin - (let ((_g52235_ + (let ((_g52309_ (let () (declare (not safe)) - (if (##values? _g52234_) - (##vector-length _g52234_) + (if (##values? _g52308_) + (##vector-length _g52308_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52235_ 2))) + (##fx= _g52309_ 2))) (error "Context expects 2 values" - _g52235_))) + _g52309_))) (let ((_target2525825279_ (let () (declare (not safe)) - (##vector-ref _g52234_ 0))) + (##vector-ref _g52308_ 0))) (_tl2526025282_ (let () (declare (not safe)) - (##vector-ref _g52234_ 1)))) + (##vector-ref _g52308_ 1)))) (if (gx#stx-null? _tl2526025282_) (letrec ((_loop2526125285_ (lambda (_hd2525925289_ @@ -4136,12 +4136,12 @@ (let () (declare (not safe)) (##cdr _e2526225295_)))) - (let ((__tmp52317 + (let ((__tmp52391 (let () (declare (not safe)) (cons _lp-hd2526325299_ _var2526525292_)))) (declare (not safe)) - (_loop2526125285_ _lp-tl2526425302_ __tmp52317)))) + (_loop2526125285_ _lp-tl2526425302_ __tmp52391)))) (let ((_var2526625305_ (reverse _var2526525292_))) ((lambda (_L25309_) (let () @@ -4154,34 +4154,34 @@ (_g2532425860_ (lambda (_g2532625346_) (if (gx#stx-pair/null? _g2532625346_) - (let ((_g52236_ + (let ((_g52310_ (gx#syntax-split-splice _g2532625346_ '0))) (begin - (let ((_g52237_ + (let ((_g52311_ (let () (declare (not safe)) - (if (##values? _g52236_) + (if (##values? _g52310_) (##vector-length - _g52236_) + _g52310_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52237_ 2))) + (##fx= _g52311_ 2))) (error "Context expects 2 values" - _g52237_))) + _g52311_))) (let ((_target2532825349_ (let () (declare (not safe)) (##vector-ref - _g52236_ + _g52310_ 0))) (_tl2533025352_ (let () (declare (not safe)) (##vector-ref - _g52236_ + _g52310_ 1)))) (if (gx#stx-null? _tl2533025352_) @@ -4199,7 +4199,7 @@ (let () (declare (not safe)) (##cdr _e2533225365_)))) - (let ((__tmp52315 + (let ((__tmp52389 (let () (declare (not safe)) (cons _lp-hd2533325369_ @@ -4207,7 +4207,7 @@ (declare (not safe)) (_loop2533125355_ _lp-tl2533425372_ - __tmp52315)))) + __tmp52389)))) (let ((_var-r2533625375_ (reverse _var-r2533525362_))) ((lambda (_L25379_) @@ -4222,36 +4222,36 @@ (lambda (_g2539725417_) (if (gx#stx-pair/null? _g2539725417_) - (let ((_g52238_ + (let ((_g52312_ (gx#syntax-split-splice _g2539725417_ '0))) (begin - (let ((_g52239_ + (let ((_g52313_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g52238_) - (##vector-length _g52238_) + _g52312_) + (##vector-length _g52312_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g52239_ 2))) - (error "Context expects 2 values" _g52239_))) + (if (not (let () (declare (not safe)) (##fx= _g52313_ 2))) + (error "Context expects 2 values" _g52313_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2539925420_ (let () (declare (not safe)) (##vector-ref - _g52238_ + _g52312_ 0))) (_tl2540125423_ (let () (declare (not safe)) (##vector-ref - _g52238_ + _g52312_ 1)))) (if (gx#stx-null? _tl2540125423_) @@ -4269,7 +4269,7 @@ (let () (declare (not safe)) (##cdr _e2540325436_)))) - (let ((__tmp52312 + (let ((__tmp52386 (let () (declare (not safe)) (cons _lp-hd2540425440_ @@ -4277,7 +4277,7 @@ (declare (not safe)) (_loop2540225426_ _lp-tl2540525443_ - __tmp52312)))) + __tmp52386)))) (let ((_init2540725446_ (reverse _init2540625433_))) ((lambda (_L25450_) @@ -4387,18 +4387,18 @@ ((lambda (_L25734_) (let () (let () - (let ((__tmp52288 + (let ((__tmp52362 (gx#datum->syntax '#f 'letrec)) - (__tmp52240 - (let ((__tmp52245 - (let ((__tmp52280 - (let ((__tmp52281 - (let ((__tmp52282 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52287 (gx#datum->syntax '#f 'lambda)) - (__tmp52283 - (let ((__tmp52285 - (let ((__tmp52286 + (__tmp52314 + (let ((__tmp52319 + (let ((__tmp52354 + (let ((__tmp52355 + (let ((__tmp52356 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52361 (gx#datum->syntax '#f 'lambda)) + (__tmp52357 + (let ((__tmp52359 + (let ((__tmp52360 (foldr (lambda (_g2575625759_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2575725762_) @@ -4409,31 +4409,31 @@ _L25309_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L25622_ __tmp52286))) - (__tmp52284 + (cons _L25622_ __tmp52360))) + (__tmp52358 (let () (declare (not safe)) (cons _L25650_ '())))) (declare (not safe)) - (cons __tmp52285 __tmp52284)))) + (cons __tmp52359 __tmp52358)))) (declare (not safe)) - (cons __tmp52287 __tmp52283)))) + (cons __tmp52361 __tmp52357)))) (declare (not safe)) - (cons __tmp52282 '())))) + (cons __tmp52356 '())))) (declare (not safe)) - (cons _L25510_ __tmp52281))) + (cons _L25510_ __tmp52355))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52246 - (let ((__tmp52271 - (let ((__tmp52272 + (__tmp52320 + (let ((__tmp52345 + (let ((__tmp52346 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52273 - (let ((__tmp52279 + (let ((__tmp52347 + (let ((__tmp52353 (gx#datum->syntax '#f 'lambda)) - (__tmp52274 - (let ((__tmp52276 - (let ((__tmp52277 - (let ((__tmp52278 + (__tmp52348 + (let ((__tmp52350 + (let ((__tmp52351 + (let ((__tmp52352 (foldr (lambda (_g2575425765_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2575525768_) @@ -4443,33 +4443,33 @@ '() _L25379_))) (declare (not safe)) - (cons _L25622_ __tmp52278)))) + (cons _L25622_ __tmp52352)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L25594_ __tmp52277))) - (__tmp52275 + (cons _L25594_ __tmp52351))) + (__tmp52349 (let () (declare (not safe)) (cons _L25734_ '())))) (declare (not safe)) - (cons __tmp52276 __tmp52275)))) + (cons __tmp52350 __tmp52349)))) (declare (not safe)) - (cons __tmp52279 __tmp52274)))) + (cons __tmp52353 __tmp52348)))) (declare (not safe)) - (cons __tmp52273 '())))) + (cons __tmp52347 '())))) (declare (not safe)) - (cons _L25566_ __tmp52272))) - (__tmp52247 - (let ((__tmp52248 - (let ((__tmp52249 - (let ((__tmp52250 - (let ((__tmp52270 + (cons _L25566_ __tmp52346))) + (__tmp52321 + (let ((__tmp52322 + (let ((__tmp52323 + (let ((__tmp52324 + (let ((__tmp52344 (gx#datum->syntax '#f 'lambda)) - (__tmp52251 - (let ((__tmp52268 - (let ((__tmp52269 + (__tmp52325 + (let ((__tmp52342 + (let ((__tmp52343 (foldr (lambda (_g2575225771_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2575325774_) @@ -4479,33 +4479,33 @@ '() _L25379_))) (declare (not safe)) - (cons _L25622_ __tmp52269))) - (__tmp52252 - (let ((__tmp52253 - (let ((__tmp52267 (gx#datum->syntax '#f 'if)) - (__tmp52254 - (let ((__tmp52264 - (let ((__tmp52266 + (cons _L25622_ __tmp52343))) + (__tmp52326 + (let ((__tmp52327 + (let ((__tmp52341 (gx#datum->syntax '#f 'if)) + (__tmp52328 + (let ((__tmp52338 + (let ((__tmp52340 (gx#datum->syntax '#f 'pair?)) - (__tmp52265 + (__tmp52339 (let () (declare (not safe)) (cons _L25622_ '())))) (declare (not safe)) - (cons __tmp52266 __tmp52265))) - (__tmp52255 - (let ((__tmp52257 - (let ((__tmp52258 - (let ((__tmp52261 - (let ((__tmp52263 + (cons __tmp52340 __tmp52339))) + (__tmp52329 + (let ((__tmp52331 + (let ((__tmp52332 + (let ((__tmp52335 + (let ((__tmp52337 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##car)) - (__tmp52262 + (__tmp52336 (let () (declare (not safe)) (cons _L25622_ '())))) (declare (not safe)) - (cons __tmp52263 __tmp52262))) - (__tmp52259 - (let ((__tmp52260 + (cons __tmp52337 __tmp52336))) + (__tmp52333 + (let ((__tmp52334 (foldr (lambda (_g2575025777_ _g2575125780_) (let () (declare (not safe)) @@ -4513,46 +4513,46 @@ '() _L25379_))) (declare (not safe)) - (cons _L25622_ __tmp52260)))) + (cons _L25622_ __tmp52334)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52261 - __tmp52259)))) + (cons __tmp52335 + __tmp52333)))) (declare (not safe)) - (cons _L25566_ __tmp52258))) - (__tmp52256 + (cons _L25566_ __tmp52332))) + (__tmp52330 (let () (declare (not safe)) (cons _L25706_ '())))) (declare (not safe)) - (cons __tmp52257 __tmp52256)))) + (cons __tmp52331 __tmp52330)))) (declare (not safe)) - (cons __tmp52264 __tmp52255)))) + (cons __tmp52338 __tmp52329)))) (declare (not safe)) - (cons __tmp52267 __tmp52254)))) + (cons __tmp52341 __tmp52328)))) (declare (not safe)) - (cons __tmp52253 '())))) + (cons __tmp52327 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52268 - __tmp52252)))) + (cons __tmp52342 + __tmp52326)))) (declare (not safe)) - (cons __tmp52270 __tmp52251)))) + (cons __tmp52344 __tmp52325)))) (declare (not safe)) - (cons __tmp52250 '())))) + (cons __tmp52324 '())))) (declare (not safe)) - (cons _L25538_ __tmp52249)))) + (cons _L25538_ __tmp52323)))) (declare (not safe)) - (cons __tmp52248 '())))) + (cons __tmp52322 '())))) (declare (not safe)) - (cons __tmp52271 __tmp52247)))) + (cons __tmp52345 __tmp52321)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52280 __tmp52246))) - (__tmp52241 - (let ((__tmp52242 - (let ((__tmp52243 - (let ((__tmp52244 + (cons __tmp52354 __tmp52320))) + (__tmp52315 + (let ((__tmp52316 + (let ((__tmp52317 + (let ((__tmp52318 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (foldr (lambda (_g2574825783_ _g2574925786_) (let () @@ -4561,18 +4561,18 @@ '() _L25450_))) (declare (not safe)) - (cons _L25482_ __tmp52244)))) + (cons _L25482_ __tmp52318)))) (declare (not safe)) - (cons _L25538_ __tmp52243)))) + (cons _L25538_ __tmp52317)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52242 '())))) + (cons __tmp52316 '())))) (declare (not safe)) - (cons __tmp52245 __tmp52241)))) + (cons __tmp52319 __tmp52315)))) (declare (not safe)) - (cons __tmp52288 __tmp52240))))) + (cons __tmp52362 __tmp52314))))) _g2572025731_))) - (__tmp52289 + (__tmp52363 (let () (declare (not safe)) (_generate124631_ @@ -4581,52 +4581,52 @@ _L25678_ _L25706_)))) (declare (not safe)) - (_g2571825789_ __tmp52289)))) + (_g2571825789_ __tmp52363)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2569225703_))) - (__tmp52290 - (let ((__tmp52291 - (let ((__tmp52292 + (__tmp52364 + (let ((__tmp52365 + (let ((__tmp52366 (foldr (lambda (_g2579625799_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2579725802_) - (let ((__tmp52293 - (let ((__tmp52295 + (let ((__tmp52367 + (let ((__tmp52369 (gx#datum->syntax '#f 'reverse)) - (__tmp52294 + (__tmp52368 (let () (declare (not safe)) (cons _g2579625799_ '())))) (declare (not safe)) - (cons __tmp52295 __tmp52294)))) + (cons __tmp52369 __tmp52368)))) (declare (not safe)) - (cons __tmp52293 _g2579725802_))) + (cons __tmp52367 _g2579725802_))) '() _L25379_))) (declare (not safe)) - (cons _L25622_ __tmp52292)))) + (cons _L25622_ __tmp52366)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L25510_ - __tmp52291)))) + __tmp52365)))) (declare (not safe)) - (_g2569025793_ __tmp52290)))) + (_g2569025793_ __tmp52364)))) _g2566425675_))) - (__tmp52296 - (let ((__tmp52297 - (let ((__tmp52303 - (let ((__tmp52305 + (__tmp52370 + (let ((__tmp52371 + (let ((__tmp52377 + (let ((__tmp52379 (gx#datum->syntax '#f '##cdr)) - (__tmp52304 + (__tmp52378 (let () (declare (not safe)) (cons _L25622_ '())))) (declare (not safe)) - (cons __tmp52305 - __tmp52304))) - (__tmp52298 + (cons __tmp52379 + __tmp52378))) + (__tmp52372 (begin (gx#syntax-check-splice-targets _L25379_ @@ -4635,31 +4635,31 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2580925815_ _g2581025817_) - (let ((__tmp52299 - (let ((__tmp52302 (gx#datum->syntax '#f 'cons)) - (__tmp52300 - (let ((__tmp52301 + (let ((__tmp52373 + (let ((__tmp52376 (gx#datum->syntax '#f 'cons)) + (__tmp52374 + (let ((__tmp52375 (let () (declare (not safe)) (cons _g2580825812_ '())))) (declare (not safe)) - (cons _g2580925815_ __tmp52301)))) + (cons _g2580925815_ __tmp52375)))) (declare (not safe)) - (cons __tmp52302 __tmp52300)))) + (cons __tmp52376 __tmp52374)))) (declare (not safe)) - (cons __tmp52299 _g2581025817_))) + (cons __tmp52373 _g2581025817_))) '() _L25379_ _L25309_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52303 __tmp52298)))) + (cons __tmp52377 __tmp52372)))) (declare (not safe)) - (cons _L25538_ __tmp52297)))) + (cons _L25538_ __tmp52371)))) (declare (not safe)) - (_g2566225805_ __tmp52296)))) + (_g2566225805_ __tmp52370)))) _g2563625647_))) - (__tmp52306 + (__tmp52380 (let () (declare (not safe)) (_generate124631_ @@ -4670,30 +4670,30 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_g2563425820_ - __tmp52306)))) + __tmp52380)))) _g2560825619_))) - (__tmp52307 (gx#genident 'rest))) + (__tmp52381 (gx#genident 'rest))) (declare (not safe)) - (_g2560625824_ __tmp52307)))) + (_g2560625824_ __tmp52381)))) _g2558025591_))) - (__tmp52308 (gx#genident 'hd))) + (__tmp52382 (gx#genident 'hd))) (declare (not safe)) - (_g2557825828_ __tmp52308)))) + (_g2557825828_ __tmp52382)))) _g2555225563_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52309 + (__tmp52383 (gx#genident 'splice-try))) (declare (not safe)) - (_g2555025832_ __tmp52309)))) + (_g2555025832_ __tmp52383)))) _g2552425535_))) - (__tmp52310 (gx#genident 'splice-loop))) + (__tmp52384 (gx#genident 'splice-loop))) (declare (not safe)) - (_g2552225836_ __tmp52310)))) + (_g2552225836_ __tmp52384)))) _g2549625507_))) - (__tmp52311 (gx#genident 'splice-rest))) + (__tmp52385 (gx#genident 'splice-rest))) (declare (not safe)) - (_g2549425840_ __tmp52311)))) + (_g2549425840_ __tmp52385)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2546825479_)))) (declare (not safe)) @@ -4710,7 +4710,7 @@ (declare (not safe)) (_g2539625413_ _g2539725417_))))) - (__tmp52313 + (__tmp52387 (make-list (gx#stx-length (foldr (lambda (_g2585125854_ @@ -4721,14 +4721,14 @@ _g2585225857_))) '() _L25309_)) - (let ((__tmp52314 + (let ((__tmp52388 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp52314 '()))))) + (cons __tmp52388 '()))))) (declare (not safe)) - (_g2539525848_ __tmp52313)))) + (_g2539525848_ __tmp52387)))) _var-r2533625375_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -4743,7 +4743,7 @@ (let () (declare (not safe)) (_g2532525342_ _g2532625346_))))) - (__tmp52316 + (__tmp52390 (gx#gentemps (foldr (lambda (_g2586325866_ _g2586425869_) @@ -4754,7 +4754,7 @@ '() _L25309_)))) (declare (not safe)) - (_g2532425860_ __tmp52316)))) + (_g2532425860_ __tmp52390)))) _var2526625305_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -4769,13 +4769,13 @@ (let () (declare (not safe)) (_g2525525272_ _g2525625276_))))) - (__tmp52318 + (__tmp52392 (let () (declare (not safe)) (|gerbil/core$<match>[1]#match-pattern-vars| _hd25250_)))) (declare (not safe)) - (_g2525425872_ __tmp52318)))) + (_g2525425872_ __tmp52392)))) (_generate-simple-vector24634_ (lambda (_tgt25090_ _body25092_ @@ -4838,49 +4838,49 @@ (if (gx#stx-null? _tl2517325215_) ((lambda (_L25218_ _L25220_ _L25221_) (let () - (let ((__tmp52319 - (let ((__tmp52324 - (let ((__tmp52325 - (let ((__tmp52326 - (let ((__tmp52327 + (let ((__tmp52393 + (let ((__tmp52398 + (let ((__tmp52399 + (let ((__tmp52400 + (let ((__tmp52401 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52330 + (let ((__tmp52404 (gx#datum->syntax '#f '##vector-ref)) - (__tmp52328 - (let ((__tmp52329 + (__tmp52402 + (let ((__tmp52403 (let () (declare (not safe)) (cons _L25218_ '())))) (declare (not safe)) - (cons _L25220_ __tmp52329)))) + (cons _L25220_ __tmp52403)))) (declare (not safe)) - (cons __tmp52330 __tmp52328)))) + (cons __tmp52404 __tmp52402)))) (declare (not safe)) - (cons __tmp52327 '())))) + (cons __tmp52401 '())))) (declare (not safe)) - (cons _L25221_ __tmp52326)))) + (cons _L25221_ __tmp52400)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52325 '()))) - (__tmp52320 - (let ((__tmp52321 - (let ((__tmp52322 - (let ((__tmp52323 + (cons __tmp52399 '()))) + (__tmp52394 + (let ((__tmp52395 + (let ((__tmp52396 + (let ((__tmp52397 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (fx+ _off25102_ '1)))) (declare (not safe)) - (_recur25097_ _L25145_ __tmp52323)))) + (_recur25097_ _L25145_ __tmp52397)))) (declare (not safe)) - (_generate124631_ _L25221_ _L25147_ __tmp52322 _E25095_)))) + (_generate124631_ _L25221_ _L25147_ __tmp52396 _E25095_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52321 '())))) + (cons __tmp52395 '())))) (declare (not safe)) - (cons __tmp52324 __tmp52320)))) + (cons __tmp52398 __tmp52394)))) (declare (not safe)) - (cons 'let __tmp52319)))) + (cons 'let __tmp52393)))) _hd2517425212_ _hd2517125202_ _hd2516825192_) @@ -4896,12 +4896,12 @@ (declare (not safe)) (_g2516225181_ _g2516325185_))))) - (__tmp52331 + (__tmp52405 (list (gx#genident 'e) _tgt25090_ _off25102_))) (declare (not safe)) - (_g2516125240_ __tmp52331)))) + (_g2516125240_ __tmp52405)))) (___kont4842148422_ (lambda () _K25094_))) (if (gx#stx-pair? ___stx4841648417_) (let ((_e2511125135_ @@ -4956,19 +4956,19 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp52332 - (let ((__tmp52335 - (let ((__tmp52336 - (let ((__tmp52337 + (let ((__tmp52406 + (let ((__tmp52409 + (let ((__tmp52410 + (let ((__tmp52411 (let () (declare (not safe)) (cons _L25059_ '())))) (declare (not safe)) - (cons _L25004_ __tmp52337)))) + (cons _L25004_ __tmp52411)))) (declare (not safe)) - (cons __tmp52336 '()))) - (__tmp52333 - (let ((__tmp52334 + (cons __tmp52410 '()))) + (__tmp52407 + (let ((__tmp52408 (let () (declare (not safe)) (_generate124631_ @@ -4977,56 +4977,56 @@ _K24986_ _E24987_)))) (declare (not safe)) - (cons __tmp52334 '())))) + (cons __tmp52408 '())))) (declare (not safe)) - (cons __tmp52335 __tmp52333)))) + (cons __tmp52409 __tmp52407)))) (declare (not safe)) - (cons 'let __tmp52332))))) + (cons 'let __tmp52406))))) _g2504525056_))) - (__tmp52338 + (__tmp52412 (let ((_$e25078_ _->list24985_)) (if (let () (declare (not safe)) (eq? 'values->list _$e25078_)) - (let ((__tmp52347 (gx#datum->syntax '#f 'values->list)) - (__tmp52346 + (let ((__tmp52421 (gx#datum->syntax '#f 'values->list)) + (__tmp52420 (let () (declare (not safe)) (cons _L25031_ '())))) (declare (not safe)) - (cons __tmp52347 __tmp52346)) + (cons __tmp52421 __tmp52420)) (if (let () (declare (not safe)) (eq? 'vector->list _$e25078_)) - (let ((__tmp52345 + (let ((__tmp52419 (gx#datum->syntax '#f '##vector->list)) - (__tmp52344 + (__tmp52418 (let () (declare (not safe)) (cons _L25031_ '())))) (declare (not safe)) - (cons __tmp52345 __tmp52344)) + (cons __tmp52419 __tmp52418)) (if (let () (declare (not safe)) (eq? 'struct->list _$e25078_)) - (let ((__tmp52343 + (let ((__tmp52417 (gx#datum->syntax '#f '##cdr)) - (__tmp52339 - (let ((__tmp52340 - (let ((__tmp52342 + (__tmp52413 + (let ((__tmp52414 + (let ((__tmp52416 (gx#datum->syntax '#f '##structure->list)) - (__tmp52341 + (__tmp52415 (let () (declare (not safe)) (cons _L25031_ '())))) (declare (not safe)) - (cons __tmp52342 __tmp52341)))) + (cons __tmp52416 __tmp52415)))) (declare (not safe)) - (cons __tmp52340 '())))) + (cons __tmp52414 '())))) (declare (not safe)) - (cons __tmp52343 __tmp52339)) + (cons __tmp52417 __tmp52413)) (gx#raise-syntax-error '#f '"Unexpected list conversion" @@ -5035,14 +5035,14 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_g2504325074_ - __tmp52338)))) + __tmp52412)))) _g2501725028_)))) (declare (not safe)) (_g2501525082_ _tgt24982_)))) _g2499025001_))) - (__tmp52348 (gx#genident 'e))) + (__tmp52422 (gx#genident 'e))) (declare (not safe)) - (_g2498825086_ __tmp52348)))) + (_g2498825086_ __tmp52422)))) (_generate-struct24636_ (lambda (_info24853_ _tgt24855_ @@ -5063,9 +5063,9 @@ (declare (not safe)) (_struct-field-accessors24638_ _info24853_))) - (__tmp52349 - (let ((__tmp52353 - (let ((__tmp52355 + (__tmp52423 + (let ((__tmp52427 + (let ((__tmp52429 (let ((__obj49635 _info24853_)) (if (let () @@ -5086,14 +5086,14 @@ gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49635 'predicate)))) - (__tmp52354 + (__tmp52428 (let () (declare (not safe)) (cons _tgt24855_ '())))) (declare (not safe)) - (cons __tmp52355 __tmp52354))) - (__tmp52350 - (let ((__tmp52352 + (cons __tmp52429 __tmp52428))) + (__tmp52424 + (let ((__tmp52426 (let () (declare (not safe)) (_generate-simple-struct-body24637_ @@ -5102,21 +5102,21 @@ _L24961_ _K24857_ _E24858_))) - (__tmp52351 + (__tmp52425 (let () (declare (not safe)) (cons _E24858_ '())))) (declare (not safe)) - (cons __tmp52352 __tmp52351)))) + (cons __tmp52426 __tmp52425)))) (declare (not safe)) - (cons __tmp52353 __tmp52350)))) + (cons __tmp52427 __tmp52424)))) (declare (not safe)) - (cons 'if __tmp52349)))) + (cons 'if __tmp52423)))) (___kont4843748438_ (lambda (_L24915_) - (let ((__tmp52356 - (let ((__tmp52360 - (let ((__tmp52362 + (let ((__tmp52430 + (let ((__tmp52434 + (let ((__tmp52436 (let ((__obj49636 _info24853_)) (if (let () @@ -5137,14 +5137,14 @@ gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49636 'predicate)))) - (__tmp52361 + (__tmp52435 (let () (declare (not safe)) (cons _tgt24855_ '())))) (declare (not safe)) - (cons __tmp52362 __tmp52361))) - (__tmp52357 - (let ((__tmp52359 + (cons __tmp52436 __tmp52435))) + (__tmp52431 + (let ((__tmp52433 (let () (declare (not safe)) (_generate-list-vector24635_ @@ -5153,16 +5153,16 @@ 'struct->list _K24857_ _E24858_))) - (__tmp52358 + (__tmp52432 (let () (declare (not safe)) (cons _E24858_ '())))) (declare (not safe)) - (cons __tmp52359 __tmp52358)))) + (cons __tmp52433 __tmp52432)))) (declare (not safe)) - (cons __tmp52360 __tmp52357)))) + (cons __tmp52434 __tmp52431)))) (declare (not safe)) - (cons 'if __tmp52356))))) + (cons 'if __tmp52430))))) (if (gx#stx-pair? ___stx4843248433_) (let ((_e2486624937_ (gx#syntax-e ___stx4843248433_))) @@ -5285,45 +5285,45 @@ 'name)))) (let ((_$tgt24845_ (gx#genident 'e)) (_getf24847_ (car _fields24785_))) - (let ((__tmp52363 - (let ((__tmp52368 - (let ((__tmp52369 - (let ((__tmp52370 + (let ((__tmp52437 + (let ((__tmp52442 + (let ((__tmp52443 + (let ((__tmp52444 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52371 - (let ((__tmp52372 + (let ((__tmp52445 + (let ((__tmp52446 (let () (declare (not safe)) (cons _tgt24775_ '())))) (declare (not safe)) - (cons _getf24847_ __tmp52372)))) + (cons _getf24847_ __tmp52446)))) (declare (not safe)) - (cons __tmp52371 '())))) + (cons __tmp52445 '())))) (declare (not safe)) - (cons _$tgt24845_ __tmp52370)))) + (cons _$tgt24845_ __tmp52444)))) (declare (not safe)) - (cons __tmp52369 '()))) + (cons __tmp52443 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52364 - (let ((__tmp52365 - (let ((__tmp52366 + (__tmp52438 + (let ((__tmp52439 + (let ((__tmp52440 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52367 (cdr _fields24785_))) + (let ((__tmp52441 (cdr _fields24785_))) (declare (not safe)) - (_recur24780_ _L24828_ __tmp52367)))) + (_recur24780_ _L24828_ __tmp52441)))) (declare (not safe)) (_generate124631_ _$tgt24845_ _L24830_ - __tmp52366 + __tmp52440 _E24778_)))) (declare (not safe)) - (cons __tmp52365 '())))) + (cons __tmp52439 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52368 __tmp52364)))) + (cons __tmp52442 __tmp52438)))) (declare (not safe)) - (cons 'let __tmp52363)))))) + (cons 'let __tmp52437)))))) (___kont4848748488_ (lambda () _K24777_))) (if (gx#stx-pair? ___stx4848248483_) (let ((_e2479424818_ @@ -5349,7 +5349,7 @@ (if (let () (declare (not safe)) (null? _next24760_)) '() (let ((_ti24763_ (car _next24760_))) - (append (let ((__tmp52373 + (append (let ((__tmp52447 (map gx#syntax-local-value (let ((__obj49638 _ti24763_)) (if (let () @@ -5369,7 +5369,7 @@ __obj49638 'super)))))) (declare (not safe)) - (_recur24757_ __tmp52373)) + (_recur24757_ __tmp52447)) (map (lambda (_slot24766_) (let ((_$e24769_ (assgetq _slot24766_ @@ -5424,9 +5424,9 @@ _body24750_ _K24751_ _E24752_) - (let ((__tmp52374 - (let ((__tmp52378 - (let ((__tmp52380 + (let ((__tmp52448 + (let ((__tmp52452 + (let ((__tmp52454 (let ((__obj49641 _info24747_)) (if (let () (declare (not safe)) @@ -5444,14 +5444,14 @@ gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49641 'predicate)))) - (__tmp52379 + (__tmp52453 (let () (declare (not safe)) (cons _tgt24749_ '())))) (declare (not safe)) - (cons __tmp52380 __tmp52379))) - (__tmp52375 - (let ((__tmp52377 + (cons __tmp52454 __tmp52453))) + (__tmp52449 + (let ((__tmp52451 (let () (declare (not safe)) (_generate-class-body24640_ @@ -5460,16 +5460,16 @@ _body24750_ _K24751_ _E24752_))) - (__tmp52376 + (__tmp52450 (let () (declare (not safe)) (cons _E24752_ '())))) (declare (not safe)) - (cons __tmp52377 __tmp52376)))) + (cons __tmp52451 __tmp52450)))) (declare (not safe)) - (cons __tmp52378 __tmp52375)))) + (cons __tmp52452 __tmp52449)))) (declare (not safe)) - (cons 'if __tmp52374)))) + (cons 'if __tmp52448)))) (_generate-class-body24640_ (lambda (_info24642_ _tgt24644_ @@ -5511,27 +5511,27 @@ (if _$e24733_ ((lambda (_getf24737_) (let* ((_$tgt24740_ (gx#genident 'e)) - (__tmp52381 - (let ((__tmp52385 - (let ((__tmp52386 - (let ((__tmp52387 + (__tmp52455 + (let ((__tmp52459 + (let ((__tmp52460 + (let ((__tmp52461 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52388 - (let ((__tmp52389 + (let ((__tmp52462 + (let ((__tmp52463 (let () (declare (not safe)) (cons _tgt24644_ '())))) (declare (not safe)) - (cons _getf24737_ __tmp52389)))) + (cons _getf24737_ __tmp52463)))) (declare (not safe)) - (cons __tmp52388 '())))) + (cons __tmp52462 '())))) (declare (not safe)) - (cons _$tgt24740_ __tmp52387)))) + (cons _$tgt24740_ __tmp52461)))) (declare (not safe)) - (cons __tmp52386 '()))) - (__tmp52382 - (let ((__tmp52383 - (let ((__tmp52384 + (cons __tmp52460 '()))) + (__tmp52456 + (let ((__tmp52457 + (let ((__tmp52458 (let () (declare (not safe)) (_recur24649_ _L24710_)))) @@ -5539,16 +5539,16 @@ (_generate124631_ _$tgt24740_ _L24712_ - __tmp52384 + __tmp52458 _E24647_)))) (declare (not safe)) - (cons __tmp52383 '())))) + (cons __tmp52457 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52385 - __tmp52382)))) + (cons __tmp52459 + __tmp52456)))) (declare (not safe)) - (cons 'let __tmp52381))) + (cons 'let __tmp52455))) _$e24733_) (gx#raise-syntax-error '#f @@ -5613,33 +5613,33 @@ (let ((___kont4852348524_ (lambda (_L24601_) (if (gx#stx-null? _L24497_) - (let ((__tmp52390 - (let ((__tmp52395 + (let ((__tmp52464 + (let ((__tmp52469 (gx#genident 'else)) - (__tmp52391 - (let ((__tmp52392 + (__tmp52465 + (let ((__tmp52466 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52393 + (let ((__tmp52467 (gx#stx-wrap-source - (let ((__tmp52394 + (let ((__tmp52468 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp52394 _L24601_)) + (cons __tmp52468 _L24601_)) (let ((_$e24612_ (gx#stx-source _L24499_))) (if _$e24612_ _$e24612_ (gx#stx-source _stx23520_)))))) (declare (not safe)) - (cons __tmp52393 '())))) + (cons __tmp52467 '())))) (declare (not safe)) - (cons '#f __tmp52392)))) + (cons '#f __tmp52466)))) (declare (not safe)) - (cons __tmp52395 __tmp52391)))) + (cons __tmp52469 __tmp52465)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52390 _r24454_)) + (cons __tmp52464 _r24454_)) (gx#raise-syntax-error '#f '"bad syntax; misplaced else" @@ -5647,13 +5647,13 @@ _L24499_)))) (___kont4852548526_ (lambda (_L24560_ _L24562_) - (let ((__tmp52396 - (let ((__tmp52397 - (let ((__tmp52403 + (let ((__tmp52470 + (let ((__tmp52471 + (let ((__tmp52477 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#genident 'try-match)) - (__tmp52398 - (let ((__tmp52402 + (__tmp52472 + (let ((__tmp52476 (gx#stx-map (lambda (_g2457424576_) (let () @@ -5662,32 +5662,32 @@ _g2457424576_ _stx23520_))) _L24562_)) - (__tmp52399 - (let ((__tmp52400 + (__tmp52473 + (let ((__tmp52474 (gx#stx-wrap-source - (let ((__tmp52401 + (let ((__tmp52475 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp52401 _L24560_)) + (cons __tmp52475 _L24560_)) (let ((_$e24580_ (gx#stx-source _L24499_))) (if _$e24580_ _$e24580_ (gx#stx-source _stx23520_)))))) (declare (not safe)) - (cons __tmp52400 '())))) + (cons __tmp52474 '())))) (declare (not safe)) - (cons __tmp52402 __tmp52399)))) + (cons __tmp52476 __tmp52473)))) (declare (not safe)) - (cons __tmp52403 __tmp52398)))) + (cons __tmp52477 __tmp52472)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52397 + (cons __tmp52471 _r24454_)))) (declare (not safe)) (_lp24449_ _L24497_ - __tmp52396)))) + __tmp52470)))) (___kont4852748528_ (lambda () (gx#raise-syntax-error @@ -5708,11 +5708,11 @@ _hd-len24446_) (gx#stx-list? _L24560_) - (let ((__tmp52404 + (let ((__tmp52478 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-null? _L24560_))) (declare (not safe)) - (not __tmp52404))) + (not __tmp52478))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4852548526_ _L24560_ @@ -5725,11 +5725,11 @@ (let ((_L24601_ _tl2451924598_)) (if (and (gx#stx-list? _L24601_) - (let ((__tmp52405 + (let ((__tmp52479 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-null? _L24601_))) (declare (not safe)) - (not __tmp52405))) + (not __tmp52479))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4852348524_ _L24601_) @@ -5752,7 +5752,7 @@ (if (gx#identifier? _hd2452024595_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52406_| + |gerbil/core$<match>[1]#_g52480_| _hd2452024595_) (___match4853948540_ _e2452124591_ @@ -5805,36 +5805,36 @@ (lambda (_g2426224282_) (if (gx#stx-pair/null? _g2426224282_) - (let ((_g52407_ + (let ((_g52481_ (gx#syntax-split-splice _g2426224282_ '0))) (begin - (let ((_g52408_ + (let ((_g52482_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g52407_) - (##vector-length _g52407_) + _g52481_) + (##vector-length _g52481_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g52408_ 2))) - (error "Context expects 2 values" _g52408_))) + (if (not (let () (declare (not safe)) (##fx= _g52482_ 2))) + (error "Context expects 2 values" _g52482_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2426424285_ (let () (declare (not safe)) (##vector-ref - _g52407_ + _g52481_ 0))) (_tl2426624288_ (let () (declare (not safe)) (##vector-ref - _g52407_ + _g52481_ 1)))) (if (gx#stx-null? _tl2426624288_) @@ -5852,7 +5852,7 @@ (let () (declare (not safe)) (##cdr _e2426824301_)))) - (let ((__tmp52430 + (let ((__tmp52504 (let () (declare (not safe)) (cons _lp-hd2426924305_ @@ -5860,7 +5860,7 @@ (declare (not safe)) (_loop2426724291_ _lp-tl2427024308_ - __tmp52430)))) + __tmp52504)))) (let ((_target2427224311_ (reverse _target2427124298_))) ((lambda (_L24315_) @@ -5897,79 +5897,79 @@ ((lambda (_L24403_) (let () (let () - (let ((__tmp52412 + (let ((__tmp52486 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp52409 - (let ((__tmp52411 + (__tmp52483 + (let ((__tmp52485 (gx#datum->syntax '#f '@match)) - (__tmp52410 + (__tmp52484 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L24403_ '())))) (declare (not safe)) - (cons __tmp52411 __tmp52410)))) + (cons __tmp52485 __tmp52484)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52412 - __tmp52409))))) + (cons __tmp52486 + __tmp52483))))) _g2438924400_))) - (__tmp52413 + (__tmp52487 (gx#stx-wrap-source - (let ((__tmp52419 + (let ((__tmp52493 (gx#datum->syntax '#f 'let)) - (__tmp52414 - (let ((__tmp52416 - (let ((__tmp52417 - (let ((__tmp52418 + (__tmp52488 + (let ((__tmp52490 + (let ((__tmp52491 + (let ((__tmp52492 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L24347_ '())))) (declare (not safe)) - (cons _L24249_ __tmp52418)))) + (cons _L24249_ __tmp52492)))) (declare (not safe)) - (cons __tmp52417 '()))) - (__tmp52415 (let () (declare (not safe)) (cons _L24375_ '())))) + (cons __tmp52491 '()))) + (__tmp52489 (let () (declare (not safe)) (cons _L24375_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52416 - __tmp52415)))) + (cons __tmp52490 + __tmp52489)))) (declare (not safe)) - (cons __tmp52419 __tmp52414)) + (cons __tmp52493 __tmp52488)) (gx#stx-source _stx23520_)))) (declare (not safe)) - (_g2438724418_ __tmp52413)))) + (_g2438724418_ __tmp52487)))) _g2436124372_))) - (__tmp52420 - (let ((__tmp52421 + (__tmp52494 + (let ((__tmp52495 (let () (declare (not safe)) (cons _L24249_ '())))) (declare (not safe)) - (_generate-clauses23528_ _body24231_ __tmp52421)))) + (_generate-clauses23528_ _body24231_ __tmp52495)))) (declare (not safe)) - (_g2435924422_ __tmp52420)))) + (_g2435924422_ __tmp52494)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2433324344_))) - (__tmp52422 + (__tmp52496 (gx#stx-wrap-source - (let ((__tmp52429 + (let ((__tmp52503 (gx#datum->syntax '#f 'lambda)) - (__tmp52423 - (let ((__tmp52424 + (__tmp52497 + (let ((__tmp52498 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52425 - (let ((__tmp52428 + (let ((__tmp52499 + (let ((__tmp52502 (gx#datum->syntax '#f 'error)) - (__tmp52426 - (let ((__tmp52427 + (__tmp52500 + (let ((__tmp52501 (foldr (lambda (_g2442924432_ _g2443024435_) (let () @@ -5980,21 +5980,21 @@ _L24315_))) (declare (not safe)) (cons '"No clause matching" - __tmp52427)))) + __tmp52501)))) (declare (not safe)) - (cons __tmp52428 __tmp52426)))) + (cons __tmp52502 __tmp52500)))) (declare (not safe)) - (cons __tmp52425 '())))) + (cons __tmp52499 '())))) (declare (not safe)) - (cons '() __tmp52424)))) + (cons '() __tmp52498)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52429 - __tmp52423)) + (cons __tmp52503 + __tmp52497)) (gx#stx-source _stx23520_)))) (declare (not safe)) - (_g2433124426_ __tmp52422)))) + (_g2433124426_ __tmp52496)))) _target2427224311_)))))) (let () (declare (not safe)) @@ -6010,9 +6010,9 @@ (declare (not safe)) (_g2426024438_ _tgt-lst23522_)))) _g2423524246_))) - (__tmp52431 (gx#genident 'E))) + (__tmp52505 (gx#genident 'E))) (declare (not safe)) - (_g2423324442_ __tmp52431)))) + (_g2423324442_ __tmp52505)))) (_generate-clauses23528_ (lambda (_rest23883_ _E23885_) (let* ((___stx4856448565_ _rest23883_) @@ -6069,9 +6069,9 @@ (##cdr _e2416224195_)))) (if (gx#stx-null? _tl2416024202_) ((lambda (_L24205_ _L24207_) - (let ((__tmp52432 - (let ((__tmp52433 - (let ((__tmp52434 + (let ((__tmp52506 + (let ((__tmp52507 + (let ((__tmp52508 (if (gx#stx-e _L24207_) (let () (declare (not safe)) @@ -6081,11 +6081,11 @@ _E23885_)) _L24205_))) (declare (not safe)) - (cons __tmp52434 '())))) + (cons __tmp52508 '())))) (declare (not safe)) - (cons '@match-body __tmp52433)))) + (cons '@match-body __tmp52507)))) (declare (not safe)) - (cons 'begin-annotation __tmp52432))) + (cons 'begin-annotation __tmp52506))) _hd2416124199_ _hd2415824189_) (let () @@ -6189,38 +6189,38 @@ (if (gx#stx-null? _tl2403124063_) ((lambda (_L24066_ _L24068_) (let () - (let ((__tmp52461 (gx#datum->syntax '#f 'let)) - (__tmp52452 - (let ((__tmp52454 - (let ((__tmp52455 - (let ((__tmp52456 - (let ((__tmp52457 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52460 (gx#datum->syntax '#f 'lambda)) - (__tmp52458 - (let ((__tmp52459 + (let ((__tmp52535 (gx#datum->syntax '#f 'let)) + (__tmp52526 + (let ((__tmp52528 + (let ((__tmp52529 + (let ((__tmp52530 + (let ((__tmp52531 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52534 (gx#datum->syntax '#f 'lambda)) + (__tmp52532 + (let ((__tmp52533 (let () (declare (not safe)) (cons _L24068_ '())))) (declare (not safe)) - (cons '() __tmp52459)))) + (cons '() __tmp52533)))) (declare (not safe)) - (cons __tmp52460 __tmp52458)))) + (cons __tmp52534 __tmp52532)))) (declare (not safe)) - (cons __tmp52457 '())))) + (cons __tmp52531 '())))) (declare (not safe)) - (cons _L24007_ __tmp52456)))) + (cons _L24007_ __tmp52530)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52455 '()))) - (__tmp52453 + (cons __tmp52529 '()))) + (__tmp52527 (let () (declare (not safe)) (cons _L24066_ '())))) (declare (not safe)) - (cons __tmp52454 __tmp52453)))) + (cons __tmp52528 __tmp52527)))) (declare (not safe)) - (cons __tmp52461 __tmp52452)))) + (cons __tmp52535 __tmp52526)))) _hd2403224060_ _hd2402924050_) (let () @@ -6234,14 +6234,14 @@ (declare (not safe)) (_g2402424039_ _g2402524043_))))) - (__tmp52462 + (__tmp52536 (list (let () (declare (not safe)) (_generate123529_ _L24006_ _L24004_ _E23885_)) - (let ((__tmp52463 + (let ((__tmp52537 (let () (declare (not safe)) (cons _L24007_ @@ -6251,9 +6251,9 @@ (declare (not safe)) (_generate-clauses23528_ _L23933_ - __tmp52463))))) + __tmp52537))))) (declare (not safe)) - (_g2402324084_ __tmp52462)) + (_g2402324084_ __tmp52536)) (let* ((_g2408824096_ (lambda (_g2408924092_) (gx#raise-syntax-error @@ -6264,71 +6264,71 @@ (lambda (_g2408924100_) ((lambda (_L24103_) (let () - (let ((__tmp52449 + (let ((__tmp52523 (gx#datum->syntax '#f 'let)) - (__tmp52435 - (let ((__tmp52437 + (__tmp52509 + (let ((__tmp52511 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52438 - (let ((__tmp52439 - (let ((__tmp52440 - (let ((__tmp52448 + (let ((__tmp52512 + (let ((__tmp52513 + (let ((__tmp52514 + (let ((__tmp52522 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp52441 - (let ((__tmp52447 + (__tmp52515 + (let ((__tmp52521 (gx#datum->syntax '#f '@match-else)) - (__tmp52442 - (let ((__tmp52443 + (__tmp52516 + (let ((__tmp52517 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52446 (gx#datum->syntax '#f 'lambda)) - (__tmp52444 - (let ((__tmp52445 + (let ((__tmp52520 (gx#datum->syntax '#f 'lambda)) + (__tmp52518 + (let ((__tmp52519 (let () (declare (not safe)) (cons _L24004_ '())))) (declare (not safe)) - (cons '() __tmp52445)))) + (cons '() __tmp52519)))) (declare (not safe)) - (cons __tmp52446 __tmp52444)))) + (cons __tmp52520 __tmp52518)))) (declare (not safe)) - (cons __tmp52443 '())))) + (cons __tmp52517 '())))) (declare (not safe)) - (cons __tmp52447 __tmp52442)))) + (cons __tmp52521 __tmp52516)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52448 __tmp52441)))) + (cons __tmp52522 __tmp52515)))) (declare (not safe)) - (cons __tmp52440 '())))) + (cons __tmp52514 '())))) (declare (not safe)) - (cons _L24007_ __tmp52439)))) + (cons _L24007_ __tmp52513)))) (declare (not safe)) - (cons __tmp52438 '()))) - (__tmp52436 + (cons __tmp52512 '()))) + (__tmp52510 (let () (declare (not safe)) (cons _L24103_ '())))) (declare (not safe)) - (cons __tmp52437 __tmp52436)))) + (cons __tmp52511 __tmp52510)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52449 - __tmp52435)))) + (cons __tmp52523 + __tmp52509)))) _g2408924100_))) - (__tmp52450 - (let ((__tmp52451 + (__tmp52524 + (let ((__tmp52525 (let () (declare (not safe)) (cons _L24007_ '())))) (declare (not safe)) (_generate-clauses23528_ _L23933_ - __tmp52451)))) + __tmp52525)))) (declare (not safe)) - (_g2408724114_ __tmp52450)))) + (_g2408724114_ __tmp52524)))) _hd2396023998_ _hd2395723988_ _hd2395423978_) @@ -6351,15 +6351,15 @@ (_g2394724118_ _L23935_)))) (___kont4857148572_ (lambda () - (let ((__tmp52464 - (let ((__tmp52465 + (let ((__tmp52538 + (let ((__tmp52539 (let () (declare (not safe)) (cons _E23885_ '())))) (declare (not safe)) - (cons '@match-body __tmp52465)))) + (cons '@match-body __tmp52539)))) (declare (not safe)) - (cons 'begin-annotation __tmp52464))))) + (cons 'begin-annotation __tmp52538))))) (if (gx#stx-pair? ___stx4856448565_) (let ((_e2389424129_ (gx#syntax-e ___stx4856448565_))) @@ -6411,25 +6411,25 @@ (##cdr _e2354523577_)))) (if (gx#stx-pair/null? _hd2354423581_) - (let ((_g52466_ + (let ((_g52540_ (gx#syntax-split-splice _hd2354423581_ '0))) (begin - (let ((_g52467_ + (let ((_g52541_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g52466_) - (##vector-length _g52466_) + (if (##values? _g52540_) + (##vector-length _g52540_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g52467_ 2))) - (error "Context expects 2 values" _g52467_))) + (if (not (let () (declare (not safe)) (##fx= _g52541_ 2))) + (error "Context expects 2 values" _g52541_))) (let ((_target2354623587_ - (let () (declare (not safe)) (##vector-ref _g52466_ 0))) + (let () (declare (not safe)) (##vector-ref _g52540_ 0))) (_tl2354823590_ - (let () (declare (not safe)) (##vector-ref _g52466_ 1)))) + (let () (declare (not safe)) (##vector-ref _g52540_ 1)))) (if (gx#stx-null? _tl2354823590_) (letrec ((_loop2354923593_ (lambda (_hd2354723597_ _var2355323600_) @@ -6444,7 +6444,7 @@ (let () (declare (not safe)) (##cdr _e2355023603_)))) - (let ((__tmp52481 + (let ((__tmp52555 (let () (declare (not safe)) (cons _lp-hd2355123607_ @@ -6452,7 +6452,7 @@ (declare (not safe)) (_loop2354923593_ _lp-tl2355223610_ - __tmp52481)))) + __tmp52555)))) (let ((_var2355423613_ (reverse _var2355323600_))) (if (gx#stx-null? _tl2354323584_) @@ -6503,38 +6503,38 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp52472 + (let ((__tmp52546 (gx#datum->syntax '#f 'let)) - (__tmp52468 - (let ((__tmp52470 + (__tmp52542 + (let ((__tmp52544 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52471 + (let ((__tmp52545 (let () (declare (not safe)) (cons _L23720_ '())))) (declare (not safe)) - (cons _L23619_ __tmp52471))) - (__tmp52469 + (cons _L23619_ __tmp52545))) + (__tmp52543 (let () (declare (not safe)) (cons _L23664_ '())))) (declare (not safe)) - (cons __tmp52470 __tmp52469)))) + (cons __tmp52544 __tmp52543)))) (declare (not safe)) - (cons __tmp52472 __tmp52468)) + (cons __tmp52546 __tmp52542)) (gx#stx-source _stx23520_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2370623717_))) - (__tmp52473 + (__tmp52547 (gx#stx-wrap-source - (let ((__tmp52477 + (let ((__tmp52551 (gx#datum->syntax '#f 'lambda)) - (__tmp52474 - (let ((__tmp52476 + (__tmp52548 + (let ((__tmp52550 (foldr (lambda (_g2373823741_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2373923744_) @@ -6543,21 +6543,21 @@ (cons _g2373823741_ _g2373923744_))) '() _L23617_)) - (__tmp52475 + (__tmp52549 (let () (declare (not safe)) (cons _L23692_ '())))) (declare (not safe)) - (cons __tmp52476 __tmp52475)))) + (cons __tmp52550 __tmp52549)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52477 __tmp52474)) + (cons __tmp52551 __tmp52548)) (gx#stx-source _stx23520_)))) (declare (not safe)) - (_g2370423735_ __tmp52473)))) + (_g2370423735_ __tmp52547)))) _g2367823689_)))) (declare (not safe)) (_g2367623747_ _body23533_)))) _g2365023661_))) - (__tmp52478 + (__tmp52552 (let _recur23755_ ((_rest23758_ _clause23531_) (_rest-targets23760_ _tgt-lst23522_)) (let* ((___stx4859048591_ _rest23758_) @@ -6589,7 +6589,7 @@ (declare (not safe)) (##cdr _e2383423847_)))) ((lambda (_L23857_ _L23859_) - (let ((__tmp52479 + (let ((__tmp52553 (let () (declare (not safe)) (_recur23755_ @@ -6600,7 +6600,7 @@ _stx23520_ _L23859_ _L23813_ - __tmp52479 + __tmp52553 _E23534_))) _tl2383223854_ _hd2383323851_))) @@ -6611,7 +6611,7 @@ (_g2382723871_ _rest-targets23760_)))) (___kont4859548596_ (lambda () - (let ((__tmp52480 + (let ((__tmp52554 (foldr (lambda (_g2378523788_ _g2378623791_) (let () (declare (not safe)) @@ -6620,7 +6620,7 @@ '() _L23617_))) (declare (not safe)) - (cons _L23619_ __tmp52480))))) + (cons _L23619_ __tmp52554))))) (if (gx#stx-pair? ___stx4859048591_) (let ((_e2376923801_ (gx#syntax-e ___stx4859048591_))) (let ((_tl2376723808_ @@ -6637,7 +6637,7 @@ (___kont4859548596_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2364823751_ __tmp52478)))) + (_g2364823751_ __tmp52552)))) _var2355423613_ _hd2354123571_) (let () @@ -6661,19 +6661,19 @@ (let () (declare (not safe)) (_g2353623560_ _g2353723564_))))) - (__tmp52482 + (__tmp52556 (list (gx#genident 'K) (apply append (map |gerbil/core$<match>[1]#match-pattern-vars| _clause23531_))))) (declare (not safe)) - (_g2353523879_ __tmp52482))))) - (let ((__tmp52483 - (let ((__tmp52484 (gx#stx-length _tgt-lst23522_))) + (_g2353523879_ __tmp52556))))) + (let ((__tmp52557 + (let ((__tmp52558 (gx#stx-length _tgt-lst23522_))) (declare (not safe)) - (_parse-body23525_ __tmp52484)))) + (_parse-body23525_ __tmp52558)))) (declare (not safe)) - (_generate-body23527_ __tmp52483))))) + (_generate-body23527_ __tmp52557))))) (define |gerbil/core$<match>[1]#generate-match| (lambda (_stx23422_ _tgt23424_ _clauses23425_) (letrec ((_reclause23427_ @@ -6689,12 +6689,12 @@ (___kont4861148612_ (lambda (_L23478_ _L23480_) (gx#stx-wrap-source - (let ((__tmp52485 + (let ((__tmp52559 (let () (declare (not safe)) (cons _L23480_ '())))) (declare (not safe)) - (cons __tmp52485 _L23478_)) + (cons __tmp52559 _L23478_)) (gx#stx-source (gx#datum->syntax '#f 'clause))))) (___kont4861348614_ @@ -6717,7 +6717,7 @@ (##car _e2343923502_)))) (if (gx#identifier? _hd2343823506_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52486_| + |gerbil/core$<match>[1]#_g52560_| _hd2343823506_) (___kont4860948610_) (___kont4861148612_ @@ -6727,14 +6727,14 @@ _tl2343723509_ _hd2343823506_)))) (___kont4861348614_))))))) - (let ((__tmp52488 + (let ((__tmp52562 (let () (declare (not safe)) (cons _tgt23424_ '()))) - (__tmp52487 (gx#stx-map _reclause23427_ _clauses23425_))) + (__tmp52561 (gx#stx-map _reclause23427_ _clauses23425_))) (declare (not safe)) (|gerbil/core$<match>[1]#generate-match*| _stx23422_ - __tmp52488 - __tmp52487))))) + __tmp52562 + __tmp52561))))) (define |gerbil/core$<match>[:0:]#match| (lambda (_stx30653_) (let* ((___stx4863448635_ _stx30653_) @@ -6767,33 +6767,33 @@ ((lambda (_L30982_) (let () (let () - (let ((__tmp52492 + (let ((__tmp52566 (gx#datum->syntax '#f 'lambda)) - (__tmp52489 - (let ((__tmp52491 + (__tmp52563 + (let ((__tmp52565 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L30955_ '()))) - (__tmp52490 + (__tmp52564 (let () (declare (not safe)) (cons _L30982_ '())))) (declare (not safe)) - (cons __tmp52491 __tmp52490)))) + (cons __tmp52565 __tmp52564)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52492 - __tmp52489))))) + (cons __tmp52566 + __tmp52563))))) _g3096830979_)))) (_g3096630997_ (gx#stx-wrap-source - (let ((__tmp52494 + (let ((__tmp52568 (gx#datum->syntax '#f 'match)) - (__tmp52493 + (__tmp52567 (let () (declare (not safe)) (cons _L30955_ _L30927_)))) (declare (not safe)) - (cons __tmp52494 __tmp52493)) + (cons __tmp52568 __tmp52567)) (gx#stx-source _stx30653_)))))) _g3094130952_)))) (_g3093931001_ (gx#genident 'e))))) @@ -6820,31 +6820,31 @@ ((lambda (_L30877_) (let () (let () - (let ((__tmp52497 + (let ((__tmp52571 (gx#datum->syntax '#f 'lambda)) - (__tmp52495 - (let ((__tmp52496 + (__tmp52569 + (let ((__tmp52570 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L30877_ '())))) (declare (not safe)) - (cons _L30850_ __tmp52496)))) + (cons _L30850_ __tmp52570)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52497 - __tmp52495))))) + (cons __tmp52571 + __tmp52569))))) _g3086330874_)))) (_g3086130892_ (gx#stx-wrap-source - (let ((__tmp52499 + (let ((__tmp52573 (gx#datum->syntax '#f 'match)) - (__tmp52498 + (__tmp52572 (let () (declare (not safe)) (cons _L30850_ _L30822_)))) (declare (not safe)) - (cons __tmp52499 __tmp52498)) + (cons __tmp52573 __tmp52572)) (gx#stx-source _stx30653_)))))) _g3083630847_)))) (_g3083430896_ (gx#genident 'args))))) @@ -6871,30 +6871,30 @@ ((lambda (_L30772_) (let () (let () - (let ((__tmp52505 + (let ((__tmp52579 (gx#datum->syntax '#f 'let)) - (__tmp52500 - (let ((__tmp52502 + (__tmp52574 + (let ((__tmp52576 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52503 - (let ((__tmp52504 + (let ((__tmp52577 + (let ((__tmp52578 (let () (declare (not safe)) (cons _L30716_ '())))) (declare (not safe)) - (cons _L30745_ __tmp52504)))) + (cons _L30745_ __tmp52578)))) (declare (not safe)) - (cons __tmp52503 '()))) - (__tmp52501 + (cons __tmp52577 '()))) + (__tmp52575 (let () (declare (not safe)) (cons _L30772_ '())))) (declare (not safe)) - (cons __tmp52502 __tmp52501)))) + (cons __tmp52576 __tmp52575)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52505 - __tmp52500))))) + (cons __tmp52579 + __tmp52574))))) _g3075830769_)))) (_g3075630787_ (let () @@ -6971,7 +6971,7 @@ (##car _e3066630917_)))) (if (gx#identifier? _hd3066530921_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52507_| + |gerbil/core$<match>[1]#_g52581_| _hd3066530921_) (___match4865948660_ _e3066330907_ @@ -6981,7 +6981,7 @@ _hd3066530921_ _tl3066430924_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52506_| + |gerbil/core$<match>[1]#_g52580_| _hd3066530921_) (___match4867548676_ _e3066330907_ @@ -7038,31 +7038,31 @@ (declare (not safe)) (##cdr _e3102131053_)))) (if (gx#stx-pair/null? _hd3102031057_) - (let ((_g52508_ + (let ((_g52582_ (gx#syntax-split-splice _hd3102031057_ '0))) (begin - (let ((_g52509_ + (let ((_g52583_ (let () (declare (not safe)) - (if (##values? _g52508_) + (if (##values? _g52582_) (##vector-length - _g52508_) + _g52582_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52509_ 2))) + (##fx= _g52583_ 2))) (error "Context expects 2 values" - _g52509_))) + _g52583_))) (let ((_target3102231063_ (let () (declare (not safe)) - (##vector-ref _g52508_ 0))) + (##vector-ref _g52582_ 0))) (_tl3102431066_ (let () (declare (not safe)) - (##vector-ref _g52508_ 1)))) + (##vector-ref _g52582_ 1)))) (if (gx#stx-null? _tl3102431066_) (letrec ((_loop3102531069_ (lambda (_hd3102331073_ @@ -7096,41 +7096,41 @@ (lambda (_g3111431134_) (if (gx#stx-pair/null? _g3111431134_) - (let ((_g52510_ + (let ((_g52584_ (gx#syntax-split-splice _g3111431134_ '0))) (begin - (let ((_g52511_ + (let ((_g52585_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g52510_) - (##vector-length _g52510_) + _g52584_) + (##vector-length _g52584_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g52511_ 2))) - (error "Context expects 2 values" _g52511_))) + (##fx= _g52585_ 2))) + (error "Context expects 2 values" _g52585_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3111631137_ (let () (declare (not safe)) (##vector-ref - _g52510_ + _g52584_ 0))) (_tl3111831140_ (let () (declare (not safe)) (##vector-ref - _g52510_ + _g52584_ 1)))) (if (gx#stx-null? _tl3111831140_) @@ -7169,13 +7169,13 @@ ((lambda (_L31198_) (let () (let () - (let ((__tmp52517 + (let ((__tmp52591 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let)) - (__tmp52512 - (let ((__tmp52514 + (__tmp52586 + (let ((__tmp52588 (begin (gx#syntax-check-splice-targets _L31095_ @@ -7183,32 +7183,32 @@ (foldr (lambda (_g3121231216_ _g3121331219_ _g3121431221_) - (let ((__tmp52515 - (let ((__tmp52516 + (let ((__tmp52589 + (let ((__tmp52590 (let () (declare (not safe)) (cons _g3121231216_ '())))) (declare (not safe)) (cons _g3121331219_ - __tmp52516)))) + __tmp52590)))) (declare (not safe)) - (cons __tmp52515 _g3121431221_))) + (cons __tmp52589 _g3121431221_))) '() _L31095_ _L31167_))) - (__tmp52513 + (__tmp52587 (let () (declare (not safe)) (cons _L31198_ '())))) (declare (not safe)) - (cons __tmp52514 __tmp52513)))) + (cons __tmp52588 __tmp52587)))) (declare (not safe)) - (cons __tmp52517 __tmp52512))))) + (cons __tmp52591 __tmp52586))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g3118431195_)))) (_g3118231224_ - (let ((__tmp52518 + (let ((__tmp52592 (foldr (lambda (_g3122731230_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3122831233_) @@ -7221,7 +7221,7 @@ (declare (not safe)) (|gerbil/core$<match>[1]#generate-match*| _stx31009_ - __tmp52518 + __tmp52592 _L31093_)))))) _$e3112431163_)))))) (_loop3111931143_ _target3111631137_ '())) @@ -7263,9 +7263,9 @@ ___stx4869048691_)))) (let ((___kont4869348694_ (lambda (_L31673_) - (let ((__tmp52521 (gx#datum->syntax '#f 'let)) - (__tmp52519 - (let ((__tmp52520 + (let ((__tmp52595 (gx#datum->syntax '#f 'let)) + (__tmp52593 + (let ((__tmp52594 (foldr (lambda (_g3168931692_ _g3169031695_) (let () (declare (not safe)) @@ -7274,23 +7274,23 @@ '() _L31673_))) (declare (not safe)) - (cons '() __tmp52520)))) + (cons '() __tmp52594)))) (declare (not safe)) - (cons __tmp52521 __tmp52519)))) + (cons __tmp52595 __tmp52593)))) (___kont4869748698_ (lambda (_L31581_ _L31583_ _L31584_ _L31585_) - (let ((__tmp52522 - (let ((__tmp52524 - (let ((__tmp52525 - (let ((__tmp52526 + (let ((__tmp52596 + (let ((__tmp52598 + (let ((__tmp52599 + (let ((__tmp52600 (let () (declare (not safe)) (cons _L31583_ '())))) (declare (not safe)) - (cons _L31584_ __tmp52526)))) + (cons _L31584_ __tmp52600)))) (declare (not safe)) - (cons __tmp52525 '()))) - (__tmp52523 + (cons __tmp52599 '()))) + (__tmp52597 (foldr (lambda (_g3160731610_ _g3160831613_) (let () (declare (not safe)) @@ -7299,14 +7299,14 @@ '() _L31581_))) (declare (not safe)) - (cons __tmp52524 __tmp52523)))) + (cons __tmp52598 __tmp52597)))) (declare (not safe)) - (cons _L31585_ __tmp52522)))) + (cons _L31585_ __tmp52596)))) (___kont4870148702_ (lambda (_L31454_ _L31456_ _L31457_) - (let ((__tmp52533 (gx#datum->syntax '#f 'match*)) - (__tmp52527 - (let ((__tmp52532 + (let ((__tmp52607 (gx#datum->syntax '#f 'match*)) + (__tmp52601 + (let ((__tmp52606 (foldr (lambda (_g3148331486_ _g3148431489_) (let () (declare (not safe)) @@ -7314,9 +7314,9 @@ _g3148431489_))) '() _L31456_)) - (__tmp52528 - (let ((__tmp52529 - (let ((__tmp52531 + (__tmp52602 + (let ((__tmp52603 + (let ((__tmp52605 (foldr (lambda (_g3148131492_ _g3148231495_) (let () @@ -7325,7 +7325,7 @@ _g3148231495_))) '() _L31457_)) - (__tmp52530 + (__tmp52604 (foldr (lambda (_g3147931498_ _g3148031501_) (let () @@ -7335,13 +7335,13 @@ '() _L31454_))) (declare (not safe)) - (cons __tmp52531 __tmp52530)))) + (cons __tmp52605 __tmp52604)))) (declare (not safe)) - (cons __tmp52529 '())))) + (cons __tmp52603 '())))) (declare (not safe)) - (cons __tmp52532 __tmp52528)))) + (cons __tmp52606 __tmp52602)))) (declare (not safe)) - (cons __tmp52533 __tmp52527))))) + (cons __tmp52607 __tmp52601))))) (let* ((___match4878348784_ (lambda (_e3130831350_ _hd3130731354_ @@ -7931,22 +7931,22 @@ ___stx4878648787_)))) (let ((___kont4878948790_ (lambda (_L31933_ _L31935_ _L31936_ _L31937_ _L31938_) - (let ((__tmp52542 (gx#datum->syntax '#f 'with)) - (__tmp52534 - (let ((__tmp52539 - (let ((__tmp52540 - (let ((__tmp52541 + (let ((__tmp52616 (gx#datum->syntax '#f 'with)) + (__tmp52608 + (let ((__tmp52613 + (let ((__tmp52614 + (let ((__tmp52615 (let () (declare (not safe)) (cons _L31936_ '())))) (declare (not safe)) - (cons _L31937_ __tmp52541)))) + (cons _L31937_ __tmp52615)))) (declare (not safe)) - (cons __tmp52540 '()))) - (__tmp52535 - (let ((__tmp52536 - (let ((__tmp52537 - (let ((__tmp52538 + (cons __tmp52614 '()))) + (__tmp52609 + (let ((__tmp52610 + (let ((__tmp52611 + (let ((__tmp52612 (foldr (lambda (_g3196331966_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3196431969_) @@ -7957,20 +7957,20 @@ _L31933_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L31935_ __tmp52538)))) + (cons _L31935_ __tmp52612)))) (declare (not safe)) - (cons _L31938_ __tmp52537)))) + (cons _L31938_ __tmp52611)))) (declare (not safe)) - (cons __tmp52536 '())))) + (cons __tmp52610 '())))) (declare (not safe)) - (cons __tmp52539 __tmp52535)))) + (cons __tmp52613 __tmp52609)))) (declare (not safe)) - (cons __tmp52542 __tmp52534)))) + (cons __tmp52616 __tmp52608)))) (___kont4879348794_ (lambda (_L31820_) - (let ((__tmp52545 (gx#datum->syntax '#f 'let)) - (__tmp52543 - (let ((__tmp52544 + (let ((__tmp52619 (gx#datum->syntax '#f 'let)) + (__tmp52617 + (let ((__tmp52618 (foldr (lambda (_g3183731840_ _g3183831843_) (let () (declare (not safe)) @@ -7979,9 +7979,9 @@ '() _L31820_))) (declare (not safe)) - (cons '() __tmp52544)))) + (cons '() __tmp52618)))) (declare (not safe)) - (cons __tmp52545 __tmp52543))))) + (cons __tmp52619 __tmp52617))))) (let* ((___match4885948860_ (lambda (_e3174531770_ _hd3174431774_ @@ -8213,269 +8213,269 @@ ___stx4886248863_)))) (let ((___kont4886548866_ (lambda (_L32739_ _L32741_ _L32742_) - (let ((__tmp52550 (gx#datum->syntax '#f 'and)) - (__tmp52546 + (let ((__tmp52624 (gx#datum->syntax '#f 'and)) + (__tmp52620 (foldr (lambda (_g3276332766_ _g3276432769_) - (let ((__tmp52547 - (let ((__tmp52548 - (let ((__tmp52549 + (let ((__tmp52621 + (let ((__tmp52622 + (let ((__tmp52623 (let () (declare (not safe)) (cons _L32739_ '())))) (declare (not safe)) (cons _g3276332766_ - __tmp52549)))) + __tmp52623)))) (declare (not safe)) - (cons _L32742_ __tmp52548)))) + (cons _L32742_ __tmp52622)))) (declare (not safe)) - (cons __tmp52547 _g3276432769_))) + (cons __tmp52621 _g3276432769_))) '() _L32741_))) (declare (not safe)) - (cons __tmp52550 __tmp52546)))) + (cons __tmp52624 __tmp52620)))) (___kont4886948870_ (lambda (_L32629_ _L32631_ _L32632_) - (let ((__tmp52555 (gx#datum->syntax '#f 'or)) - (__tmp52551 + (let ((__tmp52629 (gx#datum->syntax '#f 'or)) + (__tmp52625 (foldr (lambda (_g3265332656_ _g3265432659_) - (let ((__tmp52552 - (let ((__tmp52553 - (let ((__tmp52554 + (let ((__tmp52626 + (let ((__tmp52627 + (let ((__tmp52628 (let () (declare (not safe)) (cons _L32629_ '())))) (declare (not safe)) (cons _g3265332656_ - __tmp52554)))) + __tmp52628)))) (declare (not safe)) - (cons _L32632_ __tmp52553)))) + (cons _L32632_ __tmp52627)))) (declare (not safe)) - (cons __tmp52552 _g3265432659_))) + (cons __tmp52626 _g3265432659_))) '() _L32631_))) (declare (not safe)) - (cons __tmp52555 __tmp52551)))) + (cons __tmp52629 __tmp52625)))) (___kont4887348874_ (lambda (_L32529_ _L32531_ _L32532_) - (let ((__tmp52560 (gx#datum->syntax '#f 'not)) - (__tmp52556 - (let ((__tmp52557 - (let ((__tmp52558 - (let ((__tmp52559 + (let ((__tmp52634 (gx#datum->syntax '#f 'not)) + (__tmp52630 + (let ((__tmp52631 + (let ((__tmp52632 + (let ((__tmp52633 (let () (declare (not safe)) (cons _L32529_ '())))) (declare (not safe)) - (cons _L32531_ __tmp52559)))) + (cons _L32531_ __tmp52633)))) (declare (not safe)) - (cons _L32532_ __tmp52558)))) + (cons _L32532_ __tmp52632)))) (declare (not safe)) - (cons __tmp52557 '())))) + (cons __tmp52631 '())))) (declare (not safe)) - (cons __tmp52560 __tmp52556)))) + (cons __tmp52634 __tmp52630)))) (___kont4887548876_ (lambda (_L32455_ _L32457_) - (let ((__tmp52561 + (let ((__tmp52635 (let () (declare (not safe)) (cons _L32455_ '())))) (declare (not safe)) - (cons _L32457_ __tmp52561)))) + (cons _L32457_ __tmp52635)))) (___kont4887748878_ (lambda (_L32403_ _L32405_) - (let ((__tmp52570 (gx#datum->syntax '#f 'lambda)) - (__tmp52562 - (let ((__tmp52568 - (let ((__tmp52569 + (let ((__tmp52644 (gx#datum->syntax '#f 'lambda)) + (__tmp52636 + (let ((__tmp52642 + (let ((__tmp52643 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52569 '()))) - (__tmp52563 - (let ((__tmp52564 - (let ((__tmp52565 - (let ((__tmp52566 - (let ((__tmp52567 + (cons __tmp52643 '()))) + (__tmp52637 + (let ((__tmp52638 + (let ((__tmp52639 + (let ((__tmp52640 + (let ((__tmp52641 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52567 + (cons __tmp52641 '())))) (declare (not safe)) - (cons _L32403_ __tmp52566)))) + (cons _L32403_ __tmp52640)))) (declare (not safe)) - (cons _L32405_ __tmp52565)))) + (cons _L32405_ __tmp52639)))) (declare (not safe)) - (cons __tmp52564 '())))) + (cons __tmp52638 '())))) (declare (not safe)) - (cons __tmp52568 __tmp52563)))) + (cons __tmp52642 __tmp52637)))) (declare (not safe)) - (cons __tmp52570 __tmp52562)))) + (cons __tmp52644 __tmp52636)))) (___kont4887948880_ (lambda (_L32355_ _L32357_ _L32358_) - (let ((__tmp52589 (gx#datum->syntax '#f 'lambda)) - (__tmp52571 - (let ((__tmp52587 - (let ((__tmp52588 + (let ((__tmp52663 (gx#datum->syntax '#f 'lambda)) + (__tmp52645 + (let ((__tmp52661 + (let ((__tmp52662 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52588 '()))) - (__tmp52572 - (let ((__tmp52573 - (let ((__tmp52586 + (cons __tmp52662 '()))) + (__tmp52646 + (let ((__tmp52647 + (let ((__tmp52660 (gx#datum->syntax '#f 'alet)) - (__tmp52574 - (let ((__tmp52579 - (let ((__tmp52585 + (__tmp52648 + (let ((__tmp52653 + (let ((__tmp52659 (gx#datum->syntax '#f '$val)) - (__tmp52580 - (let ((__tmp52581 + (__tmp52654 + (let ((__tmp52655 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52582 - (let ((__tmp52583 - (let ((__tmp52584 + (let ((__tmp52656 + (let ((__tmp52657 + (let ((__tmp52658 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52584 '())))) + (cons __tmp52658 '())))) (declare (not safe)) - (cons _L32357_ __tmp52583)))) + (cons _L32357_ __tmp52657)))) (declare (not safe)) - (cons _L32358_ __tmp52582)))) + (cons _L32358_ __tmp52656)))) (declare (not safe)) - (cons __tmp52581 '())))) + (cons __tmp52655 '())))) (declare (not safe)) - (cons __tmp52585 __tmp52580))) + (cons __tmp52659 __tmp52654))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52575 - (let ((__tmp52576 - (let ((__tmp52577 + (__tmp52649 + (let ((__tmp52650 + (let ((__tmp52651 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52578 (gx#datum->syntax '#f '$val))) + (let ((__tmp52652 (gx#datum->syntax '#f '$val))) (declare (not safe)) - (cons __tmp52578 '())))) + (cons __tmp52652 '())))) (declare (not safe)) - (cons _L32355_ __tmp52577)))) + (cons _L32355_ __tmp52651)))) (declare (not safe)) - (cons __tmp52576 '())))) + (cons __tmp52650 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52579 - __tmp52575)))) + (cons __tmp52653 + __tmp52649)))) (declare (not safe)) - (cons __tmp52586 __tmp52574)))) + (cons __tmp52660 __tmp52648)))) (declare (not safe)) - (cons __tmp52573 '())))) + (cons __tmp52647 '())))) (declare (not safe)) - (cons __tmp52587 __tmp52572)))) + (cons __tmp52661 __tmp52646)))) (declare (not safe)) - (cons __tmp52589 __tmp52571)))) + (cons __tmp52663 __tmp52645)))) (___kont4888148882_ (lambda (_L32286_ _L32288_ _L32289_) - (let ((__tmp52605 (gx#datum->syntax '#f 'lambda)) - (__tmp52590 - (let ((__tmp52603 - (let ((__tmp52604 + (let ((__tmp52679 (gx#datum->syntax '#f 'lambda)) + (__tmp52664 + (let ((__tmp52677 + (let ((__tmp52678 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52604 '()))) - (__tmp52591 - (let ((__tmp52592 - (let ((__tmp52602 + (cons __tmp52678 '()))) + (__tmp52665 + (let ((__tmp52666 + (let ((__tmp52676 (gx#datum->syntax '#f 'and)) - (__tmp52593 - (let ((__tmp52598 - (let ((__tmp52599 - (let ((__tmp52600 + (__tmp52667 + (let ((__tmp52672 + (let ((__tmp52673 + (let ((__tmp52674 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52601 (gx#datum->syntax '#f '$obj))) + (let ((__tmp52675 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52601 '())))) + (cons __tmp52675 '())))) (declare (not safe)) - (cons _L32288_ __tmp52600)))) + (cons _L32288_ __tmp52674)))) (declare (not safe)) - (cons _L32289_ __tmp52599))) + (cons _L32289_ __tmp52673))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52594 - (let ((__tmp52595 - (let ((__tmp52596 + (__tmp52668 + (let ((__tmp52669 + (let ((__tmp52670 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52597 (gx#datum->syntax '#f '$obj))) + (let ((__tmp52671 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52597 '())))) + (cons __tmp52671 '())))) (declare (not safe)) - (cons _L32286_ __tmp52596)))) + (cons _L32286_ __tmp52670)))) (declare (not safe)) - (cons __tmp52595 '())))) + (cons __tmp52669 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52598 - __tmp52594)))) + (cons __tmp52672 + __tmp52668)))) (declare (not safe)) - (cons __tmp52602 __tmp52593)))) + (cons __tmp52676 __tmp52667)))) (declare (not safe)) - (cons __tmp52592 '())))) + (cons __tmp52666 '())))) (declare (not safe)) - (cons __tmp52603 __tmp52591)))) + (cons __tmp52677 __tmp52665)))) (declare (not safe)) - (cons __tmp52605 __tmp52590)))) + (cons __tmp52679 __tmp52664)))) (___kont4888348884_ (lambda (_L32206_ _L32208_ _L32209_ _L32210_) - (let ((__tmp52623 (gx#datum->syntax '#f 'lambda)) - (__tmp52606 - (let ((__tmp52621 - (let ((__tmp52622 + (let ((__tmp52697 (gx#datum->syntax '#f 'lambda)) + (__tmp52680 + (let ((__tmp52695 + (let ((__tmp52696 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52622 '()))) - (__tmp52607 - (let ((__tmp52608 - (let ((__tmp52620 + (cons __tmp52696 '()))) + (__tmp52681 + (let ((__tmp52682 + (let ((__tmp52694 (gx#datum->syntax '#f 'and)) - (__tmp52609 - (let ((__tmp52616 - (let ((__tmp52617 - (let ((__tmp52618 + (__tmp52683 + (let ((__tmp52690 + (let ((__tmp52691 + (let ((__tmp52692 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52619 (gx#datum->syntax '#f '$obj))) + (let ((__tmp52693 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52619 '())))) + (cons __tmp52693 '())))) (declare (not safe)) - (cons _L32209_ __tmp52618)))) + (cons _L32209_ __tmp52692)))) (declare (not safe)) - (cons _L32210_ __tmp52617))) + (cons _L32210_ __tmp52691))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52610 - (let ((__tmp52611 - (let ((__tmp52612 + (__tmp52684 + (let ((__tmp52685 + (let ((__tmp52686 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52613 - (let ((__tmp52614 - (let ((__tmp52615 + (let ((__tmp52687 + (let ((__tmp52688 + (let ((__tmp52689 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52615 '())))) + (cons __tmp52689 '())))) (declare (not safe)) - (cons _L32208_ __tmp52614)))) + (cons _L32208_ __tmp52688)))) (declare (not safe)) - (cons __tmp52613 '())))) + (cons __tmp52687 '())))) (declare (not safe)) - (cons _L32206_ __tmp52612)))) + (cons _L32206_ __tmp52686)))) (declare (not safe)) - (cons __tmp52611 '())))) + (cons __tmp52685 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52616 - __tmp52610)))) + (cons __tmp52690 + __tmp52684)))) (declare (not safe)) - (cons __tmp52620 __tmp52609)))) + (cons __tmp52694 __tmp52683)))) (declare (not safe)) - (cons __tmp52608 '())))) + (cons __tmp52682 '())))) (declare (not safe)) - (cons __tmp52621 __tmp52607)))) + (cons __tmp52695 __tmp52681)))) (declare (not safe)) - (cons __tmp52623 __tmp52606))))) + (cons __tmp52697 __tmp52680))))) (let* ((___match4903549036_ (lambda (_e3208132315_ _hd3208032319_ @@ -8488,7 +8488,7 @@ _tl3208532342_) (if (gx#identifier? _hd3208632339_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52625_| + |gerbil/core$<match>[1]#_g52699_| _hd3208632339_) (if (gx#stx-pair? _tl3208532342_) (let ((_e3209032345_ @@ -8549,7 +8549,7 @@ (let () (declare (not safe)) (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52624_| + |gerbil/core$<match>[1]#_g52698_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ (gx#syntax-e _tl3212432193_))) @@ -8606,7 +8606,7 @@ (##car _e3208732335_)))) (if (gx#identifier? _hd3208632339_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52625_| + |gerbil/core$<match>[1]#_g52699_| _hd3208632339_) (if (gx#stx-pair? _tl3208532342_) (let ((_e3209032345_ @@ -8671,7 +8671,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52624_| + |gerbil/core$<match>[1]#_g52698_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -8885,7 +8885,7 @@ (##car _e3200232689_)))) (if (gx#identifier? _hd3200132693_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52628_| + |gerbil/core$<match>[1]#_g52702_| _hd3200132693_) (if (gx#stx-pair/null? _tl3200032696_) @@ -8941,7 +8941,7 @@ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52625_| + |gerbil/core$<match>[1]#_g52699_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9007,7 +9007,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52624_| + |gerbil/core$<match>[1]#_g52698_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9065,7 +9065,7 @@ (___kont4887548876_ _hd3206632449_ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52625_| + |gerbil/core$<match>[1]#_g52699_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9126,7 +9126,7 @@ (let () (declare (not safe)) (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52624_| + |gerbil/core$<match>[1]#_g52698_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ (gx#syntax-e _tl3212432193_))) @@ -9168,7 +9168,7 @@ (let () (declare (not safe)) (_g3198932135_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52627_| + |gerbil/core$<match>[1]#_g52701_| _hd3200132693_) (if (gx#stx-pair/null? _tl3200032696_) @@ -9215,7 +9215,7 @@ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52625_| + |gerbil/core$<match>[1]#_g52699_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9280,7 +9280,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52624_| + |gerbil/core$<match>[1]#_g52698_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9341,7 +9341,7 @@ (___kont4887548876_ _hd3206632449_ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52625_| + |gerbil/core$<match>[1]#_g52699_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9404,7 +9404,7 @@ (let () (declare (not safe)) (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52624_| + |gerbil/core$<match>[1]#_g52698_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9445,7 +9445,7 @@ (let () (declare (not safe)) (_g3198932135_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52626_| + |gerbil/core$<match>[1]#_g52700_| _hd3200132693_) (if (gx#stx-pair? _tl3200032696_) @@ -9477,7 +9477,7 @@ _hd3199532673_) (if (gx#identifier? _hd3205532523_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52625_| + |gerbil/core$<match>[1]#_g52699_| _hd3205532523_) (if (gx#stx-pair? _tl3205432526_) (let ((_e3209032345_ @@ -9544,7 +9544,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52624_| + |gerbil/core$<match>[1]#_g52698_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9610,7 +9610,7 @@ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52625_| + |gerbil/core$<match>[1]#_g52699_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9677,7 +9677,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52624_| + |gerbil/core$<match>[1]#_g52698_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9742,7 +9742,7 @@ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52625_| + |gerbil/core$<match>[1]#_g52699_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9808,7 +9808,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52624_| + |gerbil/core$<match>[1]#_g52698_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9861,7 +9861,7 @@ (___kont4887548876_ _hd3206632449_ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52625_| + |gerbil/core$<match>[1]#_g52699_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9924,7 +9924,7 @@ (let () (declare (not safe)) (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52624_| + |gerbil/core$<match>[1]#_g52698_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9984,7 +9984,7 @@ (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52625_| + |gerbil/core$<match>[1]#_g52699_| _hd3206632449_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -10044,7 +10044,7 @@ (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52624_| + |gerbil/core$<match>[1]#_g52698_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) @@ -10104,7 +10104,7 @@ (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52625_| + |gerbil/core$<match>[1]#_g52699_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) @@ -10165,7 +10165,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52624_| + |gerbil/core$<match>[1]#_g52698_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) @@ -10224,256 +10224,256 @@ ___stx4913049131_)))) (let ((___kont4913349134_ (lambda (_L32921_ _L32923_ _L32924_) - (let ((__tmp52690 (gx#datum->syntax '#f 'defsyntax)) - (__tmp52629 - (let ((__tmp52630 - (let ((__tmp52631 - (let ((__tmp52689 + (let ((__tmp52764 (gx#datum->syntax '#f 'defsyntax)) + (__tmp52703 + (let ((__tmp52704 + (let ((__tmp52705 + (let ((__tmp52763 (gx#datum->syntax '#f 'make-match-macro)) - (__tmp52632 - (let ((__tmp52633 - (let ((__tmp52634 - (let ((__tmp52688 + (__tmp52706 + (let ((__tmp52707 + (let ((__tmp52708 + (let ((__tmp52762 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp52635 - (let ((__tmp52680 - (let ((__tmp52685 - (let ((__tmp52687 + (__tmp52709 + (let ((__tmp52754 + (let ((__tmp52759 + (let ((__tmp52761 (gx#datum->syntax '#f '$match-e)) - (__tmp52686 + (__tmp52760 (let () (declare (not safe)) (cons _L32923_ '())))) (declare (not safe)) - (cons __tmp52687 __tmp52686))) - (__tmp52681 - (let ((__tmp52682 - (let ((__tmp52684 + (cons __tmp52761 __tmp52760))) + (__tmp52755 + (let ((__tmp52756 + (let ((__tmp52758 (gx#datum->syntax '#f '$macro-e)) - (__tmp52683 + (__tmp52757 (let () (declare (not safe)) (cons _L32921_ '())))) (declare (not safe)) - (cons __tmp52684 - __tmp52683)))) + (cons __tmp52758 + __tmp52757)))) (declare (not safe)) - (cons __tmp52682 '())))) + (cons __tmp52756 '())))) (declare (not safe)) - (cons __tmp52685 __tmp52681))) - (__tmp52636 - (let ((__tmp52637 - (let ((__tmp52679 + (cons __tmp52759 __tmp52755))) + (__tmp52710 + (let ((__tmp52711 + (let ((__tmp52753 (gx#datum->syntax '#f 'lambda)) - (__tmp52638 - (let ((__tmp52677 - (let ((__tmp52678 + (__tmp52712 + (let ((__tmp52751 + (let ((__tmp52752 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp52678 + (cons __tmp52752 '()))) - (__tmp52639 - (let ((__tmp52640 - (let ((__tmp52676 + (__tmp52713 + (let ((__tmp52714 + (let ((__tmp52750 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-case)) - (__tmp52641 - (let ((__tmp52675 (gx#datum->syntax '#f '$stx)) - (__tmp52642 - (let ((__tmp52643 - (let ((__tmp52654 - (let ((__tmp52673 - (let ((__tmp52674 + (__tmp52715 + (let ((__tmp52749 (gx#datum->syntax '#f '$stx)) + (__tmp52716 + (let ((__tmp52717 + (let ((__tmp52728 + (let ((__tmp52747 + (let ((__tmp52748 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'body))) (declare (not safe)) - (cons 'match: __tmp52674))) - (__tmp52655 - (let ((__tmp52656 - (let ((__tmp52672 + (cons 'match: __tmp52748))) + (__tmp52729 + (let ((__tmp52730 + (let ((__tmp52746 (gx#datum->syntax '#f 'core-apply-expander)) - (__tmp52657 - (let ((__tmp52671 + (__tmp52731 + (let ((__tmp52745 (gx#datum->syntax '#f '$match-e)) - (__tmp52658 - (let ((__tmp52659 - (let ((__tmp52670 + (__tmp52732 + (let ((__tmp52733 + (let ((__tmp52744 (gx#datum->syntax '#f 'stx-wrap-source)) - (__tmp52660 - (let ((__tmp52666 - (let ((__tmp52669 + (__tmp52734 + (let ((__tmp52740 + (let ((__tmp52743 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax)) - (__tmp52667 - (let ((__tmp52668 (gx#datum->syntax '#f 'body))) + (__tmp52741 + (let ((__tmp52742 (gx#datum->syntax '#f 'body))) (declare (not safe)) - (cons __tmp52668 '())))) + (cons __tmp52742 '())))) (declare (not safe)) - (cons __tmp52669 __tmp52667))) - (__tmp52661 - (let ((__tmp52662 - (let ((__tmp52665 + (cons __tmp52743 __tmp52741))) + (__tmp52735 + (let ((__tmp52736 + (let ((__tmp52739 (gx#datum->syntax '#f 'stx-source)) - (__tmp52663 - (let ((__tmp52664 + (__tmp52737 + (let ((__tmp52738 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp52664 '())))) + (cons __tmp52738 '())))) (declare (not safe)) - (cons __tmp52665 __tmp52663)))) + (cons __tmp52739 __tmp52737)))) (declare (not safe)) - (cons __tmp52662 '())))) + (cons __tmp52736 '())))) (declare (not safe)) - (cons __tmp52666 __tmp52661)))) + (cons __tmp52740 __tmp52735)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52670 __tmp52660)))) + (cons __tmp52744 __tmp52734)))) (declare (not safe)) - (cons __tmp52659 '())))) + (cons __tmp52733 '())))) (declare (not safe)) - (cons __tmp52671 __tmp52658)))) + (cons __tmp52745 __tmp52732)))) (declare (not safe)) - (cons __tmp52672 __tmp52657)))) + (cons __tmp52746 __tmp52731)))) (declare (not safe)) - (cons __tmp52656 '())))) + (cons __tmp52730 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52673 - __tmp52655))) - (__tmp52644 - (let ((__tmp52645 - (let ((__tmp52653 + (cons __tmp52747 + __tmp52729))) + (__tmp52718 + (let ((__tmp52719 + (let ((__tmp52727 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '_)) - (__tmp52646 - (let ((__tmp52647 - (let ((__tmp52652 + (__tmp52720 + (let ((__tmp52721 + (let ((__tmp52726 (gx#datum->syntax '#f 'core-apply-expander)) - (__tmp52648 - (let ((__tmp52651 + (__tmp52722 + (let ((__tmp52725 (gx#datum->syntax '#f '$macro-e)) - (__tmp52649 - (let ((__tmp52650 + (__tmp52723 + (let ((__tmp52724 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp52650 '())))) + (cons __tmp52724 '())))) (declare (not safe)) - (cons __tmp52651 __tmp52649)))) + (cons __tmp52725 __tmp52723)))) (declare (not safe)) - (cons __tmp52652 __tmp52648)))) + (cons __tmp52726 __tmp52722)))) (declare (not safe)) - (cons __tmp52647 '())))) + (cons __tmp52721 '())))) (declare (not safe)) - (cons __tmp52653 __tmp52646)))) + (cons __tmp52727 __tmp52720)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52645 '())))) + (cons __tmp52719 '())))) (declare (not safe)) - (cons __tmp52654 __tmp52644)))) + (cons __tmp52728 __tmp52718)))) (declare (not safe)) - (cons '() __tmp52643)))) + (cons '() __tmp52717)))) (declare (not safe)) - (cons __tmp52675 __tmp52642)))) + (cons __tmp52749 __tmp52716)))) (declare (not safe)) - (cons __tmp52676 __tmp52641)))) + (cons __tmp52750 __tmp52715)))) (declare (not safe)) - (cons __tmp52640 '())))) + (cons __tmp52714 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52677 - __tmp52639)))) + (cons __tmp52751 + __tmp52713)))) (declare (not safe)) - (cons __tmp52679 __tmp52638)))) + (cons __tmp52753 __tmp52712)))) (declare (not safe)) - (cons __tmp52637 '())))) + (cons __tmp52711 '())))) (declare (not safe)) - (cons __tmp52680 __tmp52636)))) + (cons __tmp52754 __tmp52710)))) (declare (not safe)) - (cons __tmp52688 __tmp52635)))) + (cons __tmp52762 __tmp52709)))) (declare (not safe)) - (cons __tmp52634 '())))) + (cons __tmp52708 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'macro: __tmp52633)))) + (cons 'macro: __tmp52707)))) (declare (not safe)) - (cons __tmp52689 __tmp52632)))) + (cons __tmp52763 __tmp52706)))) (declare (not safe)) - (cons __tmp52631 '())))) + (cons __tmp52705 '())))) (declare (not safe)) - (cons _L32924_ __tmp52630)))) + (cons _L32924_ __tmp52704)))) (declare (not safe)) - (cons __tmp52690 __tmp52629)))) + (cons __tmp52764 __tmp52703)))) (___kont4913549136_ (lambda (_L32854_ _L32856_ _L32857_) - (let ((__tmp52691 - (let ((__tmp52692 - (let ((__tmp52693 - (let ((__tmp52694 - (let ((__tmp52705 + (let ((__tmp52765 + (let ((__tmp52766 + (let ((__tmp52767 + (let ((__tmp52768 + (let ((__tmp52779 (gx#datum->syntax '#f 'lambda)) - (__tmp52695 - (let ((__tmp52703 - (let ((__tmp52704 + (__tmp52769 + (let ((__tmp52777 + (let ((__tmp52778 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp52704 '()))) - (__tmp52696 - (let ((__tmp52697 - (let ((__tmp52702 + (cons __tmp52778 '()))) + (__tmp52770 + (let ((__tmp52771 + (let ((__tmp52776 (gx#datum->syntax '#f 'raise-syntax-error)) - (__tmp52698 - (let ((__tmp52699 - (let ((__tmp52700 - (let ((__tmp52701 + (__tmp52772 + (let ((__tmp52773 + (let ((__tmp52774 + (let ((__tmp52775 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp52701 '())))) + (cons __tmp52775 '())))) (declare (not safe)) (cons '"bad syntax; no macro definition for defsyntax-for-match" - __tmp52700)))) + __tmp52774)))) (declare (not safe)) - (cons '#f __tmp52699)))) + (cons '#f __tmp52773)))) (declare (not safe)) - (cons __tmp52702 __tmp52698)))) + (cons __tmp52776 __tmp52772)))) (declare (not safe)) - (cons __tmp52697 '())))) + (cons __tmp52771 '())))) (declare (not safe)) - (cons __tmp52703 __tmp52696)))) + (cons __tmp52777 __tmp52770)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52705 - __tmp52695)))) + (cons __tmp52779 + __tmp52769)))) (declare (not safe)) - (cons __tmp52694 '())))) + (cons __tmp52768 '())))) (declare (not safe)) - (cons _L32854_ __tmp52693)))) + (cons _L32854_ __tmp52767)))) (declare (not safe)) - (cons _L32856_ __tmp52692)))) + (cons _L32856_ __tmp52766)))) (declare (not safe)) - (cons _L32857_ __tmp52691))))) + (cons _L32857_ __tmp52765))))) (let ((___match4916349164_ (lambda (_e3279032881_ _hd3278932885_ @@ -10595,25 +10595,25 @@ (declare (not safe)) (##cdr _e3295932982_)))) ((lambda (_L32992_ _L32994_) - (let ((__tmp52710 + (let ((__tmp52784 (gx#datum->syntax '#f 'defsyntax-for-match)) - (__tmp52706 - (let ((__tmp52707 - (let ((__tmp52708 - (let ((__tmp52709 + (__tmp52780 + (let ((__tmp52781 + (let ((__tmp52782 + (let ((__tmp52783 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-rules))) (declare (not safe)) - (cons __tmp52709 _L32992_)))) + (cons __tmp52783 _L32992_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52708 '())))) + (cons __tmp52782 '())))) (declare (not safe)) - (cons _L32994_ __tmp52707)))) + (cons _L32994_ __tmp52781)))) (declare (not safe)) - (cons __tmp52710 __tmp52706))) + (cons __tmp52784 __tmp52780))) _tl3295732989_ _hd3295832986_))) (_g3295032965_ _g3295132969_)))) diff --git a/src/bootstrap/gerbil/core__11.scm b/src/bootstrap/gerbil/core__11.scm index 2847d9bf..a6e16b22 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]#_g52713_| + (define |gerbil/core$<match>[2]#_g52787_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52715_| + (define |gerbil/core$<match>[2]#_g52789_| (##structure gx#syntax-quote::t 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52717_| + (define |gerbil/core$<match>[2]#_g52791_| (##structure gx#syntax-quote::t 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52719_| + (define |gerbil/core$<match>[2]#_g52793_| (##structure gx#syntax-quote::t 'match-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52723_| + (define |gerbil/core$<match>[2]#_g52797_| (##structure gx#syntax-quote::t 'match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52727_| + (define |gerbil/core$<match>[2]#_g52801_| (##structure gx#syntax-quote::t 'match-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52731_| + (define |gerbil/core$<match>[2]#_g52805_| (##structure gx#syntax-quote::t '&match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52735_| + (define |gerbil/core$<match>[2]#_g52809_| (##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 ((__tmp52711 - (let ((__tmp52712 |gerbil/core$<match>[2]#_g52713_|)) + (let ((__tmp52785 + (let ((__tmp52786 |gerbil/core$<match>[2]#_g52787_|)) (declare (not safe)) - (cons __tmp52712 '())))) + (cons __tmp52786 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52711 + __tmp52785 '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 ((__tmp52714 |gerbil/core$<match>[2]#_g52715_|)) + (let ((__tmp52788 |gerbil/core$<match>[2]#_g52789_|)) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52714 + __tmp52788 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52716 |gerbil/core$<match>[2]#_g52717_|)) + (let ((__tmp52790 |gerbil/core$<match>[2]#_g52791_|)) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52716 + __tmp52790 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52718 |gerbil/core$<match>[2]#_g52719_|)) + (let ((__tmp52792 |gerbil/core$<match>[2]#_g52793_|)) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52718 + __tmp52792 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52720 - (let ((__tmp52721 - (let ((__tmp52722 |gerbil/core$<match>[2]#_g52723_|)) + (let ((__tmp52794 + (let ((__tmp52795 + (let ((__tmp52796 |gerbil/core$<match>[2]#_g52797_|)) (declare (not safe)) - (cons 'macro __tmp52722)))) + (cons 'macro __tmp52796)))) (declare (not safe)) - (cons __tmp52721 '())))) + (cons __tmp52795 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52720 + __tmp52794 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52724 - (let ((__tmp52725 - (let ((__tmp52726 |gerbil/core$<match>[2]#_g52727_|)) + (let ((__tmp52798 + (let ((__tmp52799 + (let ((__tmp52800 |gerbil/core$<match>[2]#_g52801_|)) (declare (not safe)) - (cons 'macro __tmp52726)))) + (cons 'macro __tmp52800)))) (declare (not safe)) - (cons __tmp52725 '())))) + (cons __tmp52799 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52724 + __tmp52798 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52728 - (let ((__tmp52729 - (let ((__tmp52730 |gerbil/core$<match>[2]#_g52731_|)) + (let ((__tmp52802 + (let ((__tmp52803 + (let ((__tmp52804 |gerbil/core$<match>[2]#_g52805_|)) (declare (not safe)) - (cons 'macro __tmp52730)))) + (cons 'macro __tmp52804)))) (declare (not safe)) - (cons __tmp52729 '())))) + (cons __tmp52803 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52728 + __tmp52802 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52732 - (let ((__tmp52733 - (let ((__tmp52734 |gerbil/core$<match>[2]#_g52735_|)) + (let ((__tmp52806 + (let ((__tmp52807 + (let ((__tmp52808 |gerbil/core$<match>[2]#_g52809_|)) (declare (not safe)) - (cons 'macro __tmp52734)))) + (cons 'macro __tmp52808)))) (declare (not safe)) - (cons __tmp52733 '())))) + (cons __tmp52807 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52732 + __tmp52806 '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 70aa77ea..c084d813 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 ((__tmp52785 (list gerbil/core$<macro-object>#macro-object::t))) + (let ((__tmp52810 (list gerbil/core$<macro-object>#macro-object::t))) (declare (not safe)) (make-class-type 'gerbil.core#setq-macro::t 'setq-macro - __tmp52785 + __tmp52810 '() '() '#f))) @@ -80,12 +80,12 @@ |gerbil/core$<more-sugar>[1]#setq-macro::t| 'macro))) (define |gerbil/core$<more-sugar>[1]#setf-macro::t| - (let ((__tmp52786 (list gerbil/core$<macro-object>#macro-object::t))) + (let ((__tmp52811 (list gerbil/core$<macro-object>#macro-object::t))) (declare (not safe)) (make-class-type 'gerbil.core#setf-macro::t 'setf-macro - __tmp52786 + __tmp52811 '() '() '#f))) @@ -125,20 +125,20 @@ (define |gerbil/core$<more-sugar>[1]#syntax-local-setf-macro?| (lambda (_stx33073_) (if (gx#identifier? _stx33073_) - (let ((__tmp52787 (gx#syntax-local-value _stx33073_ false))) + (let ((__tmp52812 (gx#syntax-local-value _stx33073_ false))) (declare (not safe)) (class-instance? |gerbil/core$<more-sugar>[1]#setf-macro::t| - __tmp52787)) + __tmp52812)) '#f))) (define |gerbil/core$<more-sugar>[1]#syntax-local-setq-macro?| (lambda (_stx33070_) (if (gx#identifier? _stx33070_) - (let ((__tmp52788 (gx#syntax-local-value _stx33070_ false))) + (let ((__tmp52813 (gx#syntax-local-value _stx33070_ false))) (declare (not safe)) (class-instance? |gerbil/core$<more-sugar>[1]#setq-macro::t| - __tmp52788)) + __tmp52813)) '#f))) (define |gerbil/core$<more-sugar>[:0:]#set!| (lambda (_stx33084_) @@ -166,7 +166,7 @@ (lambda (_g3334733358_) ((lambda (_L33361_) (let () - (let ((__tmp52789 + (let ((__tmp52814 (foldr (lambda (_g3337233375_ _g3337333378_) (let () @@ -178,7 +178,7 @@ (cons _L33321_ '())) _L33323_))) (declare (not safe)) - (cons _L33361_ __tmp52789)))) + (cons _L33361_ __tmp52814)))) _g3334733358_)))) (_g3334533381_ (gx#stx-identifier _L33324_ _L33324_ '"-set!"))))) @@ -189,16 +189,16 @@ _stx33084_))) (___kont4919749198_ (lambda (_L33186_ _L33188_) - (let ((__tmp52792 (gx#datum->syntax '#f '%#set!)) - (__tmp52790 - (let ((__tmp52791 + (let ((__tmp52817 (gx#datum->syntax '#f '%#set!)) + (__tmp52815 + (let ((__tmp52816 (let () (declare (not safe)) (cons _L33186_ '())))) (declare (not safe)) - (cons _L33188_ __tmp52791)))) + (cons _L33188_ __tmp52816)))) (declare (not safe)) - (cons __tmp52792 __tmp52790))))) + (cons __tmp52817 __tmp52815))))) (let* ((___match4927749278_ (lambda (_e3313733156_ _hd3313633160_ @@ -361,11 +361,11 @@ (let () (declare (not safe)) (##car _e3310133412_)))) - (if (let ((__tmp52793 + (if (let ((__tmp52818 (gx#datum->syntax '#f 'setfid))) (declare (not safe)) (|gerbil/core$<more-sugar>[1]#syntax-local-setf-macro?| - __tmp52793)) + __tmp52818)) (let ((_L33422_ _hd3310033416_)) (___kont4918949190_ _L33422_)) (if (gx#stx-pair/null? _tl3309933419_) @@ -445,30 +445,30 @@ (##cdr _e3345133476_)))) (if (gx#stx-pair/null? _tl3344933483_) (if (fx>= (gx#stx-length _tl3344933483_) '1) - (let ((_g52794_ + (let ((_g52819_ (gx#syntax-split-splice _tl3344933483_ '1))) (begin - (let ((_g52795_ + (let ((_g52820_ (let () (declare (not safe)) - (if (##values? _g52794_) - (##vector-length _g52794_) + (if (##values? _g52819_) + (##vector-length _g52819_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52795_ 2))) + (##fx= _g52820_ 2))) (error "Context expects 2 values" - _g52795_))) + _g52820_))) (let ((_target3345233486_ (let () (declare (not safe)) - (##vector-ref _g52794_ 0))) + (##vector-ref _g52819_ 0))) (_tl3345433489_ (let () (declare (not safe)) - (##vector-ref _g52794_ 1)))) + (##vector-ref _g52819_ 1)))) (if (gx#stx-pair? _tl3345433489_) (let ((_e3346333492_ (gx#syntax-e _tl3345433489_))) @@ -511,38 +511,38 @@ (_g3354533635_ (lambda (_g3354733567_) (if (gx#stx-pair/null? _g3354733567_) - (let ((_g52796_ + (let ((_g52821_ (gx#syntax-split-splice _g3354733567_ '0))) (begin - (let ((_g52797_ + (let ((_g52822_ (let () (declare (not safe)) (if (##values? - _g52796_) + _g52821_) (##vector-length - _g52796_) + _g52821_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52797_ + (##fx= _g52822_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g52797_))) + (error "Context expects 2 values" _g52822_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3354933570_ (let () (declare (not safe)) (##vector-ref - _g52796_ + _g52821_ 0))) (_tl3355133573_ (let () (declare (not safe)) (##vector-ref - _g52796_ + _g52821_ 1)))) (if (gx#stx-null? _tl3355133573_) @@ -569,14 +569,14 @@ (let ((_$e3355733596_ (reverse _$e3355633583_))) ((lambda (_L33600_) (let () - (let ((__tmp52808 + (let ((__tmp52833 (gx#datum->syntax '#f 'let-values)) - (__tmp52798 - (let ((__tmp52804 - (let ((__tmp52805 - (let ((__tmp52807 + (__tmp52823 + (let ((__tmp52829 + (let ((__tmp52830 + (let ((__tmp52832 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (foldr (lambda (_g3361833621_ _g3361933624_) (let () @@ -584,14 +584,14 @@ (cons _g3361833621_ _g3361933624_))) '() _L33600_)) - (__tmp52806 + (__tmp52831 (let () (declare (not safe)) (cons _L33526_ '())))) (declare (not safe)) - (cons __tmp52807 __tmp52806)))) + (cons __tmp52832 __tmp52831)))) (declare (not safe)) - (cons __tmp52805 '()))) + (cons __tmp52830 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52799 + (__tmp52824 (begin (gx#syntax-check-splice-targets _L33600_ @@ -600,27 +600,27 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3361633630_ _g3361733632_) - (let ((__tmp52800 - (let ((__tmp52803 (gx#datum->syntax '#f 'set!)) - (__tmp52801 - (let ((__tmp52802 + (let ((__tmp52825 + (let ((__tmp52828 (gx#datum->syntax '#f 'set!)) + (__tmp52826 + (let ((__tmp52827 (let () (declare (not safe)) (cons _g3361533627_ '())))) (declare (not safe)) - (cons _g3361633630_ __tmp52802)))) + (cons _g3361633630_ __tmp52827)))) (declare (not safe)) - (cons __tmp52803 __tmp52801)))) + (cons __tmp52828 __tmp52826)))) (declare (not safe)) - (cons __tmp52800 _g3361733632_))) + (cons __tmp52825 _g3361733632_))) '() _L33600_ _L33528_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52804 __tmp52799)))) + (cons __tmp52829 __tmp52824)))) (declare (not safe)) - (cons __tmp52808 __tmp52798)))) + (cons __tmp52833 __tmp52823)))) _$e3355733596_)))))) (_loop3355233576_ _target3354933570_ '())) (_g3354633563_ _g3354733567_))))) @@ -659,9 +659,9 @@ ___stx4928049281_)))) (let ((___kont4928349284_ (lambda (_L34049_) - (let ((__tmp52811 (gx#datum->syntax '#f 'let)) - (__tmp52809 - (let ((__tmp52810 + (let ((__tmp52836 (gx#datum->syntax '#f 'let)) + (__tmp52834 + (let ((__tmp52835 (foldr (lambda (_g3406534068_ _g3406634071_) (let () (declare (not safe)) @@ -669,9 +669,9 @@ '() _L34049_))) (declare (not safe)) - (cons '() __tmp52810)))) + (cons '() __tmp52835)))) (declare (not safe)) - (cons __tmp52811 __tmp52809)))) + (cons __tmp52836 __tmp52834)))) (___kont4928749288_ (lambda (_L33826_ _L33828_ _L33829_) (let* ((_g3385233860_ @@ -693,37 +693,37 @@ (_g3387833960_ (lambda (_g3388033900_) (if (gx#stx-pair/null? _g3388033900_) - (let ((_g52812_ + (let ((_g52837_ (gx#syntax-split-splice _g3388033900_ '0))) (begin - (let ((_g52813_ + (let ((_g52838_ (let () (declare (not safe)) (if (##values? - _g52812_) + _g52837_) (##vector-length - _g52812_) + _g52837_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g52813_ 2))) - (error "Context expects 2 values" _g52813_))) + (##fx= _g52838_ 2))) + (error "Context expects 2 values" _g52838_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3388233903_ (let () (declare (not safe)) (##vector-ref - _g52812_ + _g52837_ 0))) (_tl3388433906_ (let () (declare (not safe)) (##vector-ref - _g52812_ + _g52837_ 1)))) (if (gx#stx-null? _tl3388433906_) @@ -752,12 +752,12 @@ ((lambda (_L33933_) (let () (let () - (let ((__tmp52816 + (let ((__tmp52841 (gx#datum->syntax '#f 'call-with-parameters)) - (__tmp52814 - (let ((__tmp52815 + (__tmp52839 + (let ((__tmp52840 (foldr (lambda (_g3395133954_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3395233957_) @@ -768,9 +768,9 @@ _L33933_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L33867_ __tmp52815)))) + (cons _L33867_ __tmp52840)))) (declare (not safe)) - (cons __tmp52816 __tmp52814))))) + (cons __tmp52841 __tmp52839))))) _arg3389033929_)))))) (_loop3388533909_ _target3388233903_ '())) (_g3387933896_ _g3388033900_))))) @@ -800,9 +800,9 @@ _g3385333864_)))) (_g3385133980_ (gx#stx-wrap-source - (let ((__tmp52819 (gx#datum->syntax '#f 'lambda)) - (__tmp52817 - (let ((__tmp52818 + (let ((__tmp52844 (gx#datum->syntax '#f 'lambda)) + (__tmp52842 + (let ((__tmp52843 (foldr (lambda (_g3398333986_ _g3398433989_) (let () (declare (not safe)) @@ -811,9 +811,9 @@ '() _L33826_))) (declare (not safe)) - (cons '() __tmp52818)))) + (cons '() __tmp52843)))) (declare (not safe)) - (cons __tmp52819 __tmp52817)) + (cons __tmp52844 __tmp52842)) (gx#stx-source _stx33653_))))))) (let* ((___match4933549336_ (lambda (_e3368033722_ @@ -1155,30 +1155,30 @@ (declare (not safe)) (##cdr _e3409534127_)))) (if (gx#stx-pair/null? _tl3409334134_) - (let ((_g52820_ + (let ((_g52845_ (gx#syntax-split-splice _tl3409334134_ '0))) (begin - (let ((_g52821_ + (let ((_g52846_ (let () (declare (not safe)) - (if (##values? _g52820_) - (##vector-length _g52820_) + (if (##values? _g52845_) + (##vector-length _g52845_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52821_ 2))) + (##fx= _g52846_ 2))) (error "Context expects 2 values" - _g52821_))) + _g52846_))) (let ((_target3409634137_ (let () (declare (not safe)) - (##vector-ref _g52820_ 0))) + (##vector-ref _g52845_ 0))) (_tl3409834140_ (let () (declare (not safe)) - (##vector-ref _g52820_ 1)))) + (##vector-ref _g52845_ 1)))) (if (gx#stx-null? _tl3409834140_) (letrec ((_loop3409934143_ (lambda (_hd3409734147_ @@ -1202,23 +1202,23 @@ (let ((_body3410434163_ (reverse _body3410334150_))) ((lambda (_L34167_ _L34169_) (if (gx#identifier? _L34169_) - (let ((__tmp52828 + (let ((__tmp52853 (gx#datum->syntax '#f 'call/cc)) - (__tmp52822 - (let ((__tmp52823 - (let ((__tmp52827 + (__tmp52847 + (let ((__tmp52848 + (let ((__tmp52852 (gx#datum->syntax '#f 'lambda)) - (__tmp52824 - (let ((__tmp52826 + (__tmp52849 + (let ((__tmp52851 (let () (declare (not safe)) (cons _L34169_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp52825 + (__tmp52850 (foldr (lambda (_g3418634189_ _g3418734192_) (let () (declare (not safe)) @@ -1226,14 +1226,14 @@ '() _L34167_))) (declare (not safe)) - (cons __tmp52826 __tmp52825)))) + (cons __tmp52851 __tmp52850)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52827 __tmp52824)))) + (cons __tmp52852 __tmp52849)))) (declare (not safe)) - (cons __tmp52823 '())))) + (cons __tmp52848 '())))) (declare (not safe)) - (cons __tmp52828 __tmp52822)) + (cons __tmp52853 __tmp52847)) (_g3408634110_ _g3408734114_))) _body3410434163_ _hd3409434131_)))))) @@ -1277,30 +1277,30 @@ (declare (not safe)) (##cdr _e3421334245_)))) (if (gx#stx-pair/null? _tl3421134252_) - (let ((_g52829_ + (let ((_g52854_ (gx#syntax-split-splice _tl3421134252_ '0))) (begin - (let ((_g52830_ + (let ((_g52855_ (let () (declare (not safe)) - (if (##values? _g52829_) - (##vector-length _g52829_) + (if (##values? _g52854_) + (##vector-length _g52854_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52830_ 2))) + (##fx= _g52855_ 2))) (error "Context expects 2 values" - _g52830_))) + _g52855_))) (let ((_target3421434255_ (let () (declare (not safe)) - (##vector-ref _g52829_ 0))) + (##vector-ref _g52854_ 0))) (_tl3421634258_ (let () (declare (not safe)) - (##vector-ref _g52829_ 1)))) + (##vector-ref _g52854_ 1)))) (if (gx#stx-null? _tl3421634258_) (letrec ((_loop3421734261_ (lambda (_hd3421534265_ @@ -1324,23 +1324,23 @@ (let ((_body3422234281_ (reverse _body3422134268_))) ((lambda (_L34285_ _L34287_) (if (gx#identifier? _L34287_) - (let ((__tmp52837 + (let ((__tmp52862 (gx#datum->syntax '#f 'call/esc)) - (__tmp52831 - (let ((__tmp52832 - (let ((__tmp52836 + (__tmp52856 + (let ((__tmp52857 + (let ((__tmp52861 (gx#datum->syntax '#f 'lambda)) - (__tmp52833 - (let ((__tmp52835 + (__tmp52858 + (let ((__tmp52860 (let () (declare (not safe)) (cons _L34287_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp52834 + (__tmp52859 (foldr (lambda (_g3430434307_ _g3430534310_) (let () (declare (not safe)) @@ -1348,14 +1348,14 @@ '() _L34285_))) (declare (not safe)) - (cons __tmp52835 __tmp52834)))) + (cons __tmp52860 __tmp52859)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52836 __tmp52833)))) + (cons __tmp52861 __tmp52858)))) (declare (not safe)) - (cons __tmp52832 '())))) + (cons __tmp52857 '())))) (declare (not safe)) - (cons __tmp52837 __tmp52831)) + (cons __tmp52862 __tmp52856)) (_g3420434228_ _g3420534232_))) _body3422234281_ _hd3421234249_)))))) @@ -1410,38 +1410,38 @@ (declare (not safe)) (##cdr _e3433534377_)))) (if (gx#stx-pair/null? _tl3433334384_) - (let ((_g52838_ + (let ((_g52863_ (gx#syntax-split-splice _tl3433334384_ '0))) (begin - (let ((_g52839_ + (let ((_g52864_ (let () (declare (not safe)) (if (##values? - _g52838_) + _g52863_) (##vector-length - _g52838_) + _g52863_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52839_ + (##fx= _g52864_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g52839_))) + (error "Context expects 2 values" _g52864_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3433634387_ (let () (declare (not safe)) (##vector-ref - _g52838_ + _g52863_ 0))) (_tl3433834390_ (let () (declare (not safe)) (##vector-ref - _g52838_ + _g52863_ 1)))) (if (gx#stx-null? _tl3433834390_) @@ -1469,38 +1469,38 @@ (let ((_rest3434434413_ (reverse _rest3434334400_))) ((lambda (_L34417_ _L34419_ _L34420_) - (let ((__tmp52851 + (let ((__tmp52876 (gx#datum->syntax '#f 'with-unwind-protect)) - (__tmp52840 - (let ((__tmp52847 - (let ((__tmp52850 + (__tmp52865 + (let ((__tmp52872 + (let ((__tmp52875 (gx#datum->syntax '#f 'lambda)) - (__tmp52848 - (let ((__tmp52849 + (__tmp52873 + (let ((__tmp52874 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L34420_ '())))) (declare (not safe)) - (cons '() __tmp52849)))) + (cons '() __tmp52874)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52850 - __tmp52848))) - (__tmp52841 - (let ((__tmp52842 - (let ((__tmp52846 + (cons __tmp52875 + __tmp52873))) + (__tmp52866 + (let ((__tmp52867 + (let ((__tmp52871 (gx#datum->syntax '#f 'lambda)) - (__tmp52843 - (let ((__tmp52844 + (__tmp52868 + (let ((__tmp52869 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52845 + (let ((__tmp52870 (foldr (lambda (_g3444034443_ _g3444134446_) (let () @@ -1510,18 +1510,18 @@ '() _L34417_))) (declare (not safe)) - (cons _L34419_ __tmp52845)))) + (cons _L34419_ __tmp52870)))) (declare (not safe)) - (cons '() __tmp52844)))) + (cons '() __tmp52869)))) (declare (not safe)) - (cons __tmp52846 __tmp52843)))) + (cons __tmp52871 __tmp52868)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52842 '())))) + (cons __tmp52867 '())))) (declare (not safe)) - (cons __tmp52847 __tmp52841)))) + (cons __tmp52872 __tmp52866)))) (declare (not safe)) - (cons __tmp52851 __tmp52840))) + (cons __tmp52876 __tmp52865))) _rest3434434413_ _hd3433434381_ _hd3433134371_)))))) @@ -1576,13 +1576,13 @@ (lambda (_g3451334524_) ((lambda (_L34527_) (let () - (let ((__tmp52853 + (let ((__tmp52878 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp52852 + (__tmp52877 (let () (declare (not safe)) (cons _L34527_ '())))) (declare (not safe)) - (cons __tmp52853 __tmp52852)))) + (cons __tmp52878 __tmp52877)))) _g3451334524_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g3451134539_ diff --git a/src/bootstrap/gerbil/core__13.scm b/src/bootstrap/gerbil/core__13.scm index 236e023c..7b1b5610 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]#_g52738_| + (define |gerbil/core$<more-sugar>[2]#_g52881_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52740_| + (define |gerbil/core$<more-sugar>[2]#_g52883_| (##structure gx#syntax-quote::t 'setq-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52742_| + (define |gerbil/core$<more-sugar>[2]#_g52885_| (##structure gx#syntax-quote::t 'make-setq-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52744_| + (define |gerbil/core$<more-sugar>[2]#_g52887_| (##structure gx#syntax-quote::t 'setq-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52748_| + (define |gerbil/core$<more-sugar>[2]#_g52891_| (##structure gx#syntax-quote::t 'setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52752_| + (define |gerbil/core$<more-sugar>[2]#_g52895_| (##structure gx#syntax-quote::t 'setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52756_| + (define |gerbil/core$<more-sugar>[2]#_g52899_| (##structure gx#syntax-quote::t '&setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52760_| + (define |gerbil/core$<more-sugar>[2]#_g52903_| (##structure gx#syntax-quote::t '&setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52764_| + (define |gerbil/core$<more-sugar>[2]#_g52907_| (##structure gx#syntax-quote::t 'setf-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52766_| + (define |gerbil/core$<more-sugar>[2]#_g52909_| (##structure gx#syntax-quote::t 'make-setf-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52768_| + (define |gerbil/core$<more-sugar>[2]#_g52911_| (##structure gx#syntax-quote::t 'setf-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52772_| + (define |gerbil/core$<more-sugar>[2]#_g52915_| (##structure gx#syntax-quote::t 'setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52776_| + (define |gerbil/core$<more-sugar>[2]#_g52919_| (##structure gx#syntax-quote::t 'setf-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52780_| + (define |gerbil/core$<more-sugar>[2]#_g52923_| (##structure gx#syntax-quote::t '&setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52784_| + (define |gerbil/core$<more-sugar>[2]#_g52927_| (##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 ((__tmp52736 - (let ((__tmp52737 |gerbil/core$<more-sugar>[2]#_g52738_|)) + (let ((__tmp52879 + (let ((__tmp52880 |gerbil/core$<more-sugar>[2]#_g52881_|)) (declare (not safe)) - (cons __tmp52737 '())))) + (cons __tmp52880 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52736 + __tmp52879 '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 ((__tmp52739 |gerbil/core$<more-sugar>[2]#_g52740_|)) + (let ((__tmp52882 |gerbil/core$<more-sugar>[2]#_g52883_|)) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52739 + __tmp52882 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52741 |gerbil/core$<more-sugar>[2]#_g52742_|)) + (let ((__tmp52884 |gerbil/core$<more-sugar>[2]#_g52885_|)) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52741 + __tmp52884 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52743 |gerbil/core$<more-sugar>[2]#_g52744_|)) + (let ((__tmp52886 |gerbil/core$<more-sugar>[2]#_g52887_|)) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52743 + __tmp52886 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52745 - (let ((__tmp52746 - (let ((__tmp52747 - |gerbil/core$<more-sugar>[2]#_g52748_|)) + (let ((__tmp52888 + (let ((__tmp52889 + (let ((__tmp52890 + |gerbil/core$<more-sugar>[2]#_g52891_|)) (declare (not safe)) - (cons 'macro __tmp52747)))) + (cons 'macro __tmp52890)))) (declare (not safe)) - (cons __tmp52746 '())))) + (cons __tmp52889 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52745 + __tmp52888 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52749 - (let ((__tmp52750 - (let ((__tmp52751 - |gerbil/core$<more-sugar>[2]#_g52752_|)) + (let ((__tmp52892 + (let ((__tmp52893 + (let ((__tmp52894 + |gerbil/core$<more-sugar>[2]#_g52895_|)) (declare (not safe)) - (cons 'macro __tmp52751)))) + (cons 'macro __tmp52894)))) (declare (not safe)) - (cons __tmp52750 '())))) + (cons __tmp52893 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52749 + __tmp52892 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52753 - (let ((__tmp52754 - (let ((__tmp52755 - |gerbil/core$<more-sugar>[2]#_g52756_|)) + (let ((__tmp52896 + (let ((__tmp52897 + (let ((__tmp52898 + |gerbil/core$<more-sugar>[2]#_g52899_|)) (declare (not safe)) - (cons 'macro __tmp52755)))) + (cons 'macro __tmp52898)))) (declare (not safe)) - (cons __tmp52754 '())))) + (cons __tmp52897 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52753 + __tmp52896 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52757 - (let ((__tmp52758 - (let ((__tmp52759 - |gerbil/core$<more-sugar>[2]#_g52760_|)) + (let ((__tmp52900 + (let ((__tmp52901 + (let ((__tmp52902 + |gerbil/core$<more-sugar>[2]#_g52903_|)) (declare (not safe)) - (cons 'macro __tmp52759)))) + (cons 'macro __tmp52902)))) (declare (not safe)) - (cons __tmp52758 '())))) + (cons __tmp52901 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52757 + __tmp52900 '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 ((__tmp52761 - (let ((__tmp52762 |gerbil/core$<more-sugar>[2]#_g52738_|)) + (let ((__tmp52904 + (let ((__tmp52905 |gerbil/core$<more-sugar>[2]#_g52881_|)) (declare (not safe)) - (cons __tmp52762 '())))) + (cons __tmp52905 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52761 + __tmp52904 '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 ((__tmp52763 |gerbil/core$<more-sugar>[2]#_g52764_|)) + (let ((__tmp52906 |gerbil/core$<more-sugar>[2]#_g52907_|)) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52763 + __tmp52906 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52765 |gerbil/core$<more-sugar>[2]#_g52766_|)) + (let ((__tmp52908 |gerbil/core$<more-sugar>[2]#_g52909_|)) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52765 + __tmp52908 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52767 |gerbil/core$<more-sugar>[2]#_g52768_|)) + (let ((__tmp52910 |gerbil/core$<more-sugar>[2]#_g52911_|)) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52767 + __tmp52910 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52769 - (let ((__tmp52770 - (let ((__tmp52771 - |gerbil/core$<more-sugar>[2]#_g52772_|)) + (let ((__tmp52912 + (let ((__tmp52913 + (let ((__tmp52914 + |gerbil/core$<more-sugar>[2]#_g52915_|)) (declare (not safe)) - (cons 'macro __tmp52771)))) + (cons 'macro __tmp52914)))) (declare (not safe)) - (cons __tmp52770 '())))) + (cons __tmp52913 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52769 + __tmp52912 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52773 - (let ((__tmp52774 - (let ((__tmp52775 - |gerbil/core$<more-sugar>[2]#_g52776_|)) + (let ((__tmp52916 + (let ((__tmp52917 + (let ((__tmp52918 + |gerbil/core$<more-sugar>[2]#_g52919_|)) (declare (not safe)) - (cons 'macro __tmp52775)))) + (cons 'macro __tmp52918)))) (declare (not safe)) - (cons __tmp52774 '())))) + (cons __tmp52917 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52773 + __tmp52916 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52777 - (let ((__tmp52778 - (let ((__tmp52779 - |gerbil/core$<more-sugar>[2]#_g52780_|)) + (let ((__tmp52920 + (let ((__tmp52921 + (let ((__tmp52922 + |gerbil/core$<more-sugar>[2]#_g52923_|)) (declare (not safe)) - (cons 'macro __tmp52779)))) + (cons 'macro __tmp52922)))) (declare (not safe)) - (cons __tmp52778 '())))) + (cons __tmp52921 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52777 + __tmp52920 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52781 - (let ((__tmp52782 - (let ((__tmp52783 - |gerbil/core$<more-sugar>[2]#_g52784_|)) + (let ((__tmp52924 + (let ((__tmp52925 + (let ((__tmp52926 + |gerbil/core$<more-sugar>[2]#_g52927_|)) (declare (not safe)) - (cons 'macro __tmp52783)))) + (cons 'macro __tmp52926)))) (declare (not safe)) - (cons __tmp52782 '())))) + (cons __tmp52925 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52781 + __tmp52924 '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 7ca60203..79bdea69 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 ((__tmp52858 + (let ((__tmp52932 (gx#datum->syntax '#f 'make-setq-macro)) - (__tmp52854 - (let ((__tmp52855 - (let ((__tmp52856 - (let ((__tmp52857 + (__tmp52928 + (let ((__tmp52929 + (let ((__tmp52930 + (let ((__tmp52931 (gx#datum->syntax '#f 'syntax-rules))) (declare (not safe)) - (cons __tmp52857 _L34582_)))) + (cons __tmp52931 _L34582_)))) (declare (not safe)) - (cons __tmp52856 '())))) + (cons __tmp52930 '())))) (declare (not safe)) - (cons 'macro: __tmp52855)))) + (cons 'macro: __tmp52929)))) (declare (not safe)) - (cons __tmp52858 __tmp52854))) + (cons __tmp52932 __tmp52928))) _tl3455734579_))) (_g3455434565_ _g3455534569_))))) (_g3455334595_ _$stx34550_)))) diff --git a/src/bootstrap/gerbil/core__15.scm b/src/bootstrap/gerbil/core__15.scm index 71fef2b2..3aa97ce8 100644 --- a/src/bootstrap/gerbil/core__15.scm +++ b/src/bootstrap/gerbil/core__15.scm @@ -11,52 +11,52 @@ ___stx4933849339_)))) (let ((___kont4934149342_ (lambda () - (let ((__tmp52859 (gx#datum->syntax '#f 'begin))) + (let ((__tmp52933 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp52859 '())))) + (cons __tmp52933 '())))) (___kont4934349344_ (lambda (_L34665_ _L34667_ _L34668_) - (let ((__tmp52872 (gx#datum->syntax '#f 'cond-expand)) - (__tmp52860 - (let ((__tmp52869 - (let ((__tmp52870 - (let ((__tmp52871 + (let ((__tmp52946 (gx#datum->syntax '#f 'cond-expand)) + (__tmp52934 + (let ((__tmp52943 + (let ((__tmp52944 + (let ((__tmp52945 (let () (declare (not safe)) (cons _L34668_ _L34665_)))) (declare (not safe)) - (cons __tmp52871 '())))) + (cons __tmp52945 '())))) (declare (not safe)) - (cons _L34667_ __tmp52870))) - (__tmp52861 - (let ((__tmp52862 - (let ((__tmp52868 + (cons _L34667_ __tmp52944))) + (__tmp52935 + (let ((__tmp52936 + (let ((__tmp52942 (gx#datum->syntax '#f 'else)) - (__tmp52863 - (let ((__tmp52864 - (let ((__tmp52867 + (__tmp52937 + (let ((__tmp52938 + (let ((__tmp52941 (gx#datum->syntax '#f 'syntax-error)) - (__tmp52865 - (let ((__tmp52866 + (__tmp52939 + (let ((__tmp52940 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L34667_ '())))) (declare (not safe)) - (cons '"Missing required feature" __tmp52866)))) + (cons '"Missing required feature" __tmp52940)))) (declare (not safe)) - (cons __tmp52867 __tmp52865)))) + (cons __tmp52941 __tmp52939)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52864 '())))) + (cons __tmp52938 '())))) (declare (not safe)) - (cons __tmp52868 __tmp52863)))) + (cons __tmp52942 __tmp52937)))) (declare (not safe)) - (cons __tmp52862 '())))) + (cons __tmp52936 '())))) (declare (not safe)) - (cons __tmp52869 __tmp52861)))) + (cons __tmp52943 __tmp52935)))) (declare (not safe)) - (cons __tmp52872 __tmp52860))))) + (cons __tmp52946 __tmp52934))))) (if (gx#stx-pair? ___stx4933849339_) (let ((_e3462334691_ (gx#syntax-e ___stx4933849339_))) (let ((_tl3462134698_ @@ -92,35 +92,35 @@ ___stx4936849369_)))) (let ((___kont4937149372_ (lambda (_L34892_ _L34894_) - (let ((__tmp52878 (gx#datum->syntax '#f 'defsyntax)) - (__tmp52873 - (let ((__tmp52874 - (let ((__tmp52875 - (let ((__tmp52877 + (let ((__tmp52952 (gx#datum->syntax '#f 'defsyntax)) + (__tmp52947 + (let ((__tmp52948 + (let ((__tmp52949 + (let ((__tmp52951 (gx#datum->syntax '#f 'make-import-expander)) - (__tmp52876 + (__tmp52950 (let () (declare (not safe)) (cons _L34892_ '())))) (declare (not safe)) - (cons __tmp52877 __tmp52876)))) + (cons __tmp52951 __tmp52950)))) (declare (not safe)) - (cons __tmp52875 '())))) + (cons __tmp52949 '())))) (declare (not safe)) - (cons _L34894_ __tmp52874)))) + (cons _L34894_ __tmp52948)))) (declare (not safe)) - (cons __tmp52878 __tmp52873)))) + (cons __tmp52952 __tmp52947)))) (___kont4937349374_ (lambda (_L34821_ _L34823_ _L34824_ _L34825_) - (let ((__tmp52879 - (let ((__tmp52880 - (let ((__tmp52881 - (let ((__tmp52884 + (let ((__tmp52953 + (let ((__tmp52954 + (let ((__tmp52955 + (let ((__tmp52958 (gx#datum->syntax '#f 'lambda)) - (__tmp52882 - (let ((__tmp52883 + (__tmp52956 + (let ((__tmp52957 (foldr (lambda (_g3484634849_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3484734852_) @@ -131,15 +131,15 @@ _L34821_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L34823_ __tmp52883)))) + (cons _L34823_ __tmp52957)))) (declare (not safe)) - (cons __tmp52884 __tmp52882)))) + (cons __tmp52958 __tmp52956)))) (declare (not safe)) - (cons __tmp52881 '())))) + (cons __tmp52955 '())))) (declare (not safe)) - (cons _L34824_ __tmp52880)))) + (cons _L34824_ __tmp52954)))) (declare (not safe)) - (cons _L34825_ __tmp52879))))) + (cons _L34825_ __tmp52953))))) (let* ((___match4942349424_ (lambda (_e3473334761_ _hd3473234765_ @@ -405,35 +405,35 @@ ___stx4942649427_)))) (let ((___kont4942949430_ (lambda (_L35097_ _L35099_) - (let ((__tmp52890 (gx#datum->syntax '#f 'defsyntax)) - (__tmp52885 - (let ((__tmp52886 - (let ((__tmp52887 - (let ((__tmp52889 + (let ((__tmp52964 (gx#datum->syntax '#f 'defsyntax)) + (__tmp52959 + (let ((__tmp52960 + (let ((__tmp52961 + (let ((__tmp52963 (gx#datum->syntax '#f 'make-export-expander)) - (__tmp52888 + (__tmp52962 (let () (declare (not safe)) (cons _L35097_ '())))) (declare (not safe)) - (cons __tmp52889 __tmp52888)))) + (cons __tmp52963 __tmp52962)))) (declare (not safe)) - (cons __tmp52887 '())))) + (cons __tmp52961 '())))) (declare (not safe)) - (cons _L35099_ __tmp52886)))) + (cons _L35099_ __tmp52960)))) (declare (not safe)) - (cons __tmp52890 __tmp52885)))) + (cons __tmp52964 __tmp52959)))) (___kont4943149432_ (lambda (_L35026_ _L35028_ _L35029_ _L35030_) - (let ((__tmp52891 - (let ((__tmp52892 - (let ((__tmp52893 - (let ((__tmp52896 + (let ((__tmp52965 + (let ((__tmp52966 + (let ((__tmp52967 + (let ((__tmp52970 (gx#datum->syntax '#f 'lambda)) - (__tmp52894 - (let ((__tmp52895 + (__tmp52968 + (let ((__tmp52969 (foldr (lambda (_g3505135054_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3505235057_) @@ -444,15 +444,15 @@ _L35026_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L35028_ __tmp52895)))) + (cons _L35028_ __tmp52969)))) (declare (not safe)) - (cons __tmp52896 __tmp52894)))) + (cons __tmp52970 __tmp52968)))) (declare (not safe)) - (cons __tmp52893 '())))) + (cons __tmp52967 '())))) (declare (not safe)) - (cons _L35029_ __tmp52892)))) + (cons _L35029_ __tmp52966)))) (declare (not safe)) - (cons _L35030_ __tmp52891))))) + (cons _L35030_ __tmp52965))))) (let* ((___match4948149482_ (lambda (_e3493834966_ _hd3493734970_ @@ -718,35 +718,35 @@ ___stx4948449485_)))) (let ((___kont4948749488_ (lambda (_L35302_ _L35304_) - (let ((__tmp52902 (gx#datum->syntax '#f 'defsyntax)) - (__tmp52897 - (let ((__tmp52898 - (let ((__tmp52899 - (let ((__tmp52901 + (let ((__tmp52976 (gx#datum->syntax '#f 'defsyntax)) + (__tmp52971 + (let ((__tmp52972 + (let ((__tmp52973 + (let ((__tmp52975 (gx#datum->syntax '#f 'make-import-export-expander)) - (__tmp52900 + (__tmp52974 (let () (declare (not safe)) (cons _L35302_ '())))) (declare (not safe)) - (cons __tmp52901 __tmp52900)))) + (cons __tmp52975 __tmp52974)))) (declare (not safe)) - (cons __tmp52899 '())))) + (cons __tmp52973 '())))) (declare (not safe)) - (cons _L35304_ __tmp52898)))) + (cons _L35304_ __tmp52972)))) (declare (not safe)) - (cons __tmp52902 __tmp52897)))) + (cons __tmp52976 __tmp52971)))) (___kont4948949490_ (lambda (_L35231_ _L35233_ _L35234_ _L35235_) - (let ((__tmp52903 - (let ((__tmp52904 - (let ((__tmp52905 - (let ((__tmp52908 + (let ((__tmp52977 + (let ((__tmp52978 + (let ((__tmp52979 + (let ((__tmp52982 (gx#datum->syntax '#f 'lambda)) - (__tmp52906 - (let ((__tmp52907 + (__tmp52980 + (let ((__tmp52981 (foldr (lambda (_g3525635259_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3525735262_) @@ -757,15 +757,15 @@ _L35231_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L35233_ __tmp52907)))) + (cons _L35233_ __tmp52981)))) (declare (not safe)) - (cons __tmp52908 __tmp52906)))) + (cons __tmp52982 __tmp52980)))) (declare (not safe)) - (cons __tmp52905 '())))) + (cons __tmp52979 '())))) (declare (not safe)) - (cons _L35234_ __tmp52904)))) + (cons _L35234_ __tmp52978)))) (declare (not safe)) - (cons _L35235_ __tmp52903))))) + (cons _L35235_ __tmp52977))))) (let* ((___match4953949540_ (lambda (_e3514335171_ _hd3514235175_ @@ -1042,30 +1042,30 @@ (declare (not safe)) (##cdr _e3533235354_)))) (if (gx#stx-pair/null? _tl3533035361_) - (let ((_g52909_ + (let ((_g52983_ (gx#syntax-split-splice _tl3533035361_ '0))) (begin - (let ((_g52910_ + (let ((_g52984_ (let () (declare (not safe)) - (if (##values? _g52909_) - (##vector-length _g52909_) + (if (##values? _g52983_) + (##vector-length _g52983_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52910_ 2))) + (##fx= _g52984_ 2))) (error "Context expects 2 values" - _g52910_))) + _g52984_))) (let ((_target3533335364_ (let () (declare (not safe)) - (##vector-ref _g52909_ 0))) + (##vector-ref _g52983_ 0))) (_tl3533535367_ (let () (declare (not safe)) - (##vector-ref _g52909_ 1)))) + (##vector-ref _g52983_ 1)))) (if (gx#stx-null? _tl3533535367_) (letrec ((_loop3533635370_ (lambda (_hd3533435374_ @@ -1089,8 +1089,8 @@ (cons _lp-hd3533835384_ _body3534035377_))))) (let ((_body3534135390_ (reverse _body3534035377_))) ((lambda (_L35394_) - (let ((__tmp52911 - (let ((__tmp52912 + (let ((__tmp52985 + (let ((__tmp52986 (foldr (lambda (_g3540935412_ _g3541035415_) (let () (declare (not safe)) @@ -1099,9 +1099,9 @@ '() _L35394_))) (declare (not safe)) - (cons '1 __tmp52912)))) + (cons '1 __tmp52986)))) (declare (not safe)) - (cons 'phi: __tmp52911))) + (cons 'phi: __tmp52985))) _body3534135390_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop3533635370_ @@ -1133,30 +1133,30 @@ (declare (not safe)) (##cdr _e3543135453_)))) (if (gx#stx-pair/null? _tl3542935460_) - (let ((_g52913_ + (let ((_g52987_ (gx#syntax-split-splice _tl3542935460_ '0))) (begin - (let ((_g52914_ + (let ((_g52988_ (let () (declare (not safe)) - (if (##values? _g52913_) - (##vector-length _g52913_) + (if (##values? _g52987_) + (##vector-length _g52987_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52914_ 2))) + (##fx= _g52988_ 2))) (error "Context expects 2 values" - _g52914_))) + _g52988_))) (let ((_target3543235463_ (let () (declare (not safe)) - (##vector-ref _g52913_ 0))) + (##vector-ref _g52987_ 0))) (_tl3543435466_ (let () (declare (not safe)) - (##vector-ref _g52913_ 1)))) + (##vector-ref _g52987_ 1)))) (if (gx#stx-null? _tl3543435466_) (letrec ((_loop3543535469_ (lambda (_hd3543335473_ @@ -1180,8 +1180,8 @@ (cons _lp-hd3543735483_ _body3543935476_))))) (let ((_body3544035489_ (reverse _body3543935476_))) ((lambda (_L35493_) - (let ((__tmp52915 - (let ((__tmp52916 + (let ((__tmp52989 + (let ((__tmp52990 (foldr (lambda (_g3550835511_ _g3550935514_) (let () (declare (not safe)) @@ -1190,9 +1190,9 @@ '() _L35493_))) (declare (not safe)) - (cons '-1 __tmp52916)))) + (cons '-1 __tmp52990)))) (declare (not safe)) - (cons 'phi: __tmp52915))) + (cons 'phi: __tmp52989))) _body3544035489_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop3543535469_ @@ -1235,31 +1235,31 @@ (declare (not safe)) (##cdr _e3553435566_)))) (if (gx#stx-pair/null? _tl3553235573_) - (let ((_g52917_ + (let ((_g52991_ (gx#syntax-split-splice _tl3553235573_ '0))) (begin - (let ((_g52918_ + (let ((_g52992_ (let () (declare (not safe)) - (if (##values? _g52917_) + (if (##values? _g52991_) (##vector-length - _g52917_) + _g52991_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52918_ 2))) + (##fx= _g52992_ 2))) (error "Context expects 2 values" - _g52918_))) + _g52992_))) (let ((_target3553535576_ (let () (declare (not safe)) - (##vector-ref _g52917_ 0))) + (##vector-ref _g52991_ 0))) (_tl3553735579_ (let () (declare (not safe)) - (##vector-ref _g52917_ 1)))) + (##vector-ref _g52991_ 1)))) (if (gx#stx-null? _tl3553735579_) (letrec ((_loop3553835582_ (lambda (_hd3553635586_ @@ -1324,11 +1324,11 @@ (lambda (_in35662_ _r35664_) (if (gx#module-import? _in35662_) - (if (let ((__tmp52919 + (if (let ((__tmp52993 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#module-import-name _in35662_))) (declare (not safe)) - (hash-get _keytab35653_ __tmp52919)) + (hash-get _keytab35653_ __tmp52993)) (let () (declare (not safe)) (cons _in35662_ _r35664_)) _r35664_) (if (gx#import-set? _in35662_) @@ -1338,12 +1338,12 @@ _r35664_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e35659_))) - (let ((__tmp52920 + (let ((__tmp52994 (foldl _fold-e35666_ '() _imports35656_))) (declare (not safe)) - (cons 'begin: __tmp52920))) + (cons 'begin: __tmp52994))) (_g3552535549_ _g3552635553_))) _id3554335602_ _hd3553335570_)))))) @@ -1390,31 +1390,31 @@ (declare (not safe)) (##cdr _e3568835720_)))) (if (gx#stx-pair/null? _tl3568635727_) - (let ((_g52921_ + (let ((_g52995_ (gx#syntax-split-splice _tl3568635727_ '0))) (begin - (let ((_g52922_ + (let ((_g52996_ (let () (declare (not safe)) - (if (##values? _g52921_) + (if (##values? _g52995_) (##vector-length - _g52921_) + _g52995_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52922_ 2))) + (##fx= _g52996_ 2))) (error "Context expects 2 values" - _g52922_))) + _g52996_))) (let ((_target3568935730_ (let () (declare (not safe)) - (##vector-ref _g52921_ 0))) + (##vector-ref _g52995_ 0))) (_tl3569135733_ (let () (declare (not safe)) - (##vector-ref _g52921_ 1)))) + (##vector-ref _g52995_ 1)))) (if (gx#stx-null? _tl3569135733_) (letrec ((_loop3569235736_ (lambda (_hd3569035740_ @@ -1479,11 +1479,11 @@ (lambda (_in35816_ _r35818_) (if (gx#module-import? _in35816_) - (if (let ((__tmp52923 + (if (let ((__tmp52997 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#module-import-name _in35816_))) (declare (not safe)) - (hash-get _keytab35807_ __tmp52923)) + (hash-get _keytab35807_ __tmp52997)) _r35818_ (let () (declare (not safe)) (cons _in35816_ _r35818_))) (if (gx#import-set? _in35816_) @@ -1495,12 +1495,12 @@ (cons _in35816_ _r35818_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e35813_))) - (let ((__tmp52924 + (let ((__tmp52998 (foldl _fold-e35820_ '() _imports35810_))) (declare (not safe)) - (cons 'begin: __tmp52924))) + (cons 'begin: __tmp52998))) (_g3567935703_ _g3568035707_))) _id3569735756_ _hd3568735724_)))))) @@ -1528,9 +1528,9 @@ (lambda () (make-symbol _pre35832_ _name35830_))) (_K3583735861_ (lambda (_mark35857_ _id35859_) - (let ((__tmp52925 (make-symbol _pre35832_ _id35859_))) + (let ((__tmp52999 (make-symbol _pre35832_ _id35859_))) (declare (not safe)) - (cons __tmp52925 _mark35857_))))) + (cons __tmp52999 _mark35857_))))) (if (let () (declare (not safe)) (##pair? _name3583335841_)) (let ((_hd3583835865_ (let () (declare (not safe)) (##car _name3583335841_))) @@ -1573,31 +1573,31 @@ (declare (not safe)) (##cdr _e3589435934_)))) (if (gx#stx-pair/null? _tl3589235941_) - (let ((_g52926_ + (let ((_g53000_ (gx#syntax-split-splice _tl3589235941_ '0))) (begin - (let ((_g52927_ + (let ((_g53001_ (let () (declare (not safe)) - (if (##values? _g52926_) + (if (##values? _g53000_) (##vector-length - _g52926_) + _g53000_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52927_ 2))) + (##fx= _g53001_ 2))) (error "Context expects 2 values" - _g52927_))) + _g53001_))) (let ((_target3589535944_ (let () (declare (not safe)) - (##vector-ref _g52926_ 0))) + (##vector-ref _g53000_ 0))) (_tl3589735947_ (let () (declare (not safe)) - (##vector-ref _g52926_ 1)))) + (##vector-ref _g53000_ 1)))) (if (gx#stx-null? _tl3589735947_) (letrec ((_loop3589835950_ (lambda (_hd3589635954_ @@ -1679,20 +1679,20 @@ (let () (declare (not safe)) (make-hash-table))) - (_g52930_ + (_g53004_ (for-each (lambda (_id36042_ _new-id36044_) - (let ((__tmp52929 + (let ((__tmp53003 (gx#core-identifier-key _id36042_)) - (__tmp52928 + (__tmp53002 (gx#core-identifier-key _new-id36044_))) (declare (not safe)) (hash-put! _keytab36036_ - __tmp52929 - __tmp52928))) + __tmp53003 + __tmp53002))) (foldr (lambda (_g3604536048_ _g3604636051_) (let () @@ -1730,14 +1730,14 @@ (let () (declare (not safe)) (hash-put! _found36039_ _name36074_ '#t)) - (let ((__tmp52931 + (let ((__tmp53005 (let () (declare (not safe)) (|gerbil/core$<module-sugar>[1]#module-import-rename| _in36070_ _rename36081_)))) (declare (not safe)) - (cons __tmp52931 _r36072_))) + (cons __tmp53005 _r36072_))) _$e36077_) (let () (declare (not safe)) (cons _in36070_ _r36072_)))) (if (gx#import-set? _in36070_) @@ -1755,11 +1755,11 @@ _imports36064_))) (for-each (lambda (_id36092_) - (if (let ((__tmp52932 + (if (let ((__tmp53006 (gx#core-identifier-key _id36092_))) (declare (not safe)) - (hash-get _found36039_ __tmp52932)) + (hash-get _found36039_ __tmp53006)) '#!void (gx#raise-syntax-error '#f @@ -1856,17 +1856,17 @@ (letrec ((_fold-e36197_ (lambda (_in36200_ _r36202_) (if (gx#module-import? _in36200_) - (let ((__tmp52933 - (let ((__tmp52934 + (let ((__tmp53007 + (let ((__tmp53008 (_rename-e36194_ (gx#module-import-name _in36200_)))) (declare (not safe)) (|gerbil/core$<module-sugar>[1]#module-import-rename| _in36200_ - __tmp52934)))) + __tmp53008)))) (declare (not safe)) - (cons __tmp52933 _r36202_)) + (cons __tmp53007 _r36202_)) (if (gx#import-set? _in36200_) (foldl _fold-e36197_ _r36202_ @@ -1876,9 +1876,9 @@ (declare (not safe)) (cons _in36200_ _r36202_))))))) _fold-e36197_))) - (let ((__tmp52935 (foldl _fold-e36204_ '() _imports36188_))) + (let ((__tmp53009 (foldl _fold-e36204_ '() _imports36188_))) (declare (not safe)) - (cons 'begin: __tmp52935))) + (cons 'begin: __tmp53009))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g3611236130_ _g3611336134_))) @@ -2066,32 +2066,32 @@ (declare (not safe)) (##cdr _e3622936261_)))) (if (gx#stx-pair/null? _tl3622736268_) - (let ((_g52936_ + (let ((_g53010_ (gx#syntax-split-splice _tl3622736268_ '0))) (begin - (let ((_g52937_ + (let ((_g53011_ (let () (declare (not safe)) - (if (##values? _g52936_) + (if (##values? _g53010_) (##vector-length - _g52936_) + _g53010_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52937_ 2))) + (##fx= _g53011_ 2))) (error "Context expects 2 values" - _g52937_))) + _g53011_))) (let ((_target3623036271_ (let () (declare (not safe)) - (##vector-ref _g52936_ 0))) + (##vector-ref _g53010_ 0))) (_tl3623236274_ (let () (declare (not safe)) (##vector-ref - _g52936_ + _g53010_ 1)))) (if (gx#stx-null? _tl3623236274_) (letrec ((_loop3623336277_ @@ -2115,7 +2115,7 @@ (cons _lp-hd3623536291_ _mod3623736284_))))) (let ((_mod3623836297_ (reverse _mod3623736284_))) ((lambda (_L36301_ _L36303_) - (let ((__tmp52938 + (let ((__tmp53012 (_flatten36216_ (map (lambda (_g3632136323_) (_expand-path36218_ @@ -2130,7 +2130,7 @@ '() _L36301_))))) (declare (not safe)) - (cons 'begin: __tmp52938))) + (cons 'begin: __tmp53012))) _mod3623836297_ _hd3622836265_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2176,31 +2176,31 @@ (declare (not safe)) (##cdr _e3649236524_)))) (if (gx#stx-pair/null? _tl3649036531_) - (let ((_g52939_ + (let ((_g53013_ (gx#syntax-split-splice _tl3649036531_ '0))) (begin - (let ((_g52940_ + (let ((_g53014_ (let () (declare (not safe)) - (if (##values? _g52939_) + (if (##values? _g53013_) (##vector-length - _g52939_) + _g53013_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52940_ 2))) + (##fx= _g53014_ 2))) (error "Context expects 2 values" - _g52940_))) + _g53014_))) (let ((_target3649336534_ (let () (declare (not safe)) - (##vector-ref _g52939_ 0))) + (##vector-ref _g53013_ 0))) (_tl3649536537_ (let () (declare (not safe)) - (##vector-ref _g52939_ 1)))) + (##vector-ref _g53013_ 1)))) (if (gx#stx-null? _tl3649536537_) (letrec ((_loop3649636540_ (lambda (_hd3649436544_ @@ -2265,11 +2265,11 @@ (lambda (_out36620_ _r36622_) (if (gx#module-export? _out36620_) - (if (let ((__tmp52941 + (if (let ((__tmp53015 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#module-export-name _out36620_))) (declare (not safe)) - (hash-get _keytab36611_ __tmp52941)) + (hash-get _keytab36611_ __tmp53015)) _r36622_ (let () (declare (not safe)) (cons _out36620_ _r36622_))) (if (gx#export-set? _out36620_) @@ -2279,12 +2279,12 @@ _r36622_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e36617_))) - (let ((__tmp52942 + (let ((__tmp53016 (foldl _fold-e36624_ '() _exports36614_))) (declare (not safe)) - (cons 'begin: __tmp52942))) + (cons 'begin: __tmp53016))) (_g3648336507_ _g3648436511_))) _id3650136560_ _hd3649136528_)))))) @@ -2339,31 +2339,31 @@ (declare (not safe)) (##cdr _e3665136691_)))) (if (gx#stx-pair/null? _tl3664936698_) - (let ((_g52943_ + (let ((_g53017_ (gx#syntax-split-splice _tl3664936698_ '0))) (begin - (let ((_g52944_ + (let ((_g53018_ (let () (declare (not safe)) - (if (##values? _g52943_) + (if (##values? _g53017_) (##vector-length - _g52943_) + _g53017_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52944_ 2))) + (##fx= _g53018_ 2))) (error "Context expects 2 values" - _g52944_))) + _g53018_))) (let ((_target3665236701_ (let () (declare (not safe)) - (##vector-ref _g52943_ 0))) + (##vector-ref _g53017_ 0))) (_tl3665436704_ (let () (declare (not safe)) - (##vector-ref _g52943_ 1)))) + (##vector-ref _g53017_ 1)))) (if (gx#stx-null? _tl3665436704_) (letrec ((_loop3665536707_ (lambda (_hd3665336711_ @@ -2445,20 +2445,20 @@ (let () (declare (not safe)) (make-hash-table))) - (_g52947_ + (_g53021_ (for-each (lambda (_id36799_ _new-id36801_) - (let ((__tmp52946 + (let ((__tmp53020 (gx#core-identifier-key _id36799_)) - (__tmp52945 + (__tmp53019 (gx#core-identifier-key _new-id36801_))) (declare (not safe)) (hash-put! _keytab36793_ - __tmp52946 - __tmp52945))) + __tmp53020 + __tmp53019))) (foldr (lambda (_g3680236805_ _g3680336808_) (let () @@ -2496,14 +2496,14 @@ (let () (declare (not safe)) (hash-put! _found36796_ _name36831_ '#t)) - (let ((__tmp52948 + (let ((__tmp53022 (let () (declare (not safe)) (|gerbil/core$<module-sugar>[1]#module-export-rename| _out36827_ _rename36838_)))) (declare (not safe)) - (cons __tmp52948 _r36829_))) + (cons __tmp53022 _r36829_))) _$e36834_) (let () (declare (not safe)) @@ -2523,11 +2523,11 @@ _exports36821_))) (for-each (lambda (_id36849_) - (if (let ((__tmp52949 + (if (let ((__tmp53023 (gx#core-identifier-key _id36849_))) (declare (not safe)) - (hash-get _found36796_ __tmp52949)) + (hash-get _found36796_ __tmp53023)) '#!void (gx#raise-syntax-error '#f @@ -2624,17 +2624,17 @@ (letrec ((_fold-e36954_ (lambda (_out36957_ _r36959_) (if (gx#module-export? _out36957_) - (let ((__tmp52950 - (let ((__tmp52951 + (let ((__tmp53024 + (let ((__tmp53025 (_rename-e36951_ (gx#module-export-name _out36957_)))) (declare (not safe)) (|gerbil/core$<module-sugar>[1]#module-export-rename| _out36957_ - __tmp52951)))) + __tmp53025)))) (declare (not safe)) - (cons __tmp52950 _r36959_)) + (cons __tmp53024 _r36959_)) (if (gx#export-set? _out36957_) (foldl _fold-e36954_ _r36959_ @@ -2644,9 +2644,9 @@ (declare (not safe)) (cons _out36957_ _r36959_))))))) _fold-e36954_))) - (let ((__tmp52952 (foldl _fold-e36961_ '() _exports36945_))) + (let ((__tmp53026 (foldl _fold-e36961_ '() _exports36945_))) (declare (not safe)) - (cons 'begin: __tmp52952))) + (cons 'begin: __tmp53026))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g3686936887_ _g3687036891_))) @@ -2668,8 +2668,8 @@ (class-instance? gerbil/core$<MOP>$<MOP:2>#class-type-info::t _info37209_)) - (let ((__tmp52953 - (let ((__tmp52957 + (let ((__tmp53027 + (let ((__tmp53031 (let ((__obj49645 _info37209_)) (if (let () (declare (not safe)) @@ -2687,9 +2687,9 @@ gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49645 'type-descriptor)))) - (__tmp52954 + (__tmp53028 (foldr cons - (let ((__tmp52956 + (let ((__tmp53030 (let ((__obj49646 _info37209_)) (if (let () @@ -2710,7 +2710,7 @@ gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49646 'predicate)))) - (__tmp52955 + (__tmp53029 (foldr cons (foldr cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -2791,7 +2791,7 @@ 'accessors))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52956 __tmp52955)) + (cons __tmp53030 __tmp53029)) (let ((_ctor37212_ (let ((__obj49651 _info37209_)) @@ -2819,9 +2819,9 @@ (cons _ctor37212_ '())) '()))))) (declare (not safe)) - (cons __tmp52957 __tmp52954)))) + (cons __tmp53031 __tmp53028)))) (declare (not safe)) - (cons _id37205_ __tmp52953)) + (cons _id37205_ __tmp53027)) (gx#raise-syntax-error '#f '"no class type info" @@ -2836,7 +2836,7 @@ ___stx4956849569_)))) (let ((___kont4957149572_ (lambda (_L37166_ _L37168_) - (let ((__tmp52958 + (let ((__tmp53032 (concatenate (gx#stx-map (lambda (_g3718737189_) @@ -2850,10 +2850,10 @@ '() _L37166_))))) (declare (not safe)) - (cons 'begin: __tmp52958)))) + (cons 'begin: __tmp53032)))) (___kont4957549576_ (lambda (_L37065_) - (let ((__tmp52959 + (let ((__tmp53033 (concatenate (gx#stx-map (lambda (_g3708137083_) @@ -2865,7 +2865,7 @@ '() _L37065_))))) (declare (not safe)) - (cons 'begin: __tmp52959))))) + (cons 'begin: __tmp53033))))) (let* ((___match4962549626_ (lambda (_e3700337025_ _hd3700237029_ diff --git a/src/bootstrap/gerbil/core__16.scm b/src/bootstrap/gerbil/core__16.scm index 448b4d05..318c7673 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 ((__tmp52960 + (let ((__tmp53034 (gx#datum->syntax '#f 'void))) (declare (not safe)) - (cons __tmp52960 '()))) + (cons __tmp53034 '()))) _hd3722837256_) (_g3722137235_ _g3722237239_)))) (_g3722137235_ _g3722237239_)))) diff --git a/src/bootstrap/gerbil/core__4.scm b/src/bootstrap/gerbil/core__4.scm index 3094451c..0c6338c3 100644 --- a/src/bootstrap/gerbil/core__4.scm +++ b/src/bootstrap/gerbil/core__4.scm @@ -32,70 +32,70 @@ #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g52961_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g50987_| (##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]#_g50988_| (##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]#_g50989_| (##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]#_g50990_| (##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]#_g51034_| (##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]#_g51035_| (##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]#_g51036_| (##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]#_g51037_| (##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]#_g51048_| (##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]#_g51049_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) (begin (define |gerbil/core$<sugar>$<sugar:2>[:0:]#lambda| @@ -12597,7 +12597,7 @@ (##car _e1524215620_)))) (if (gx#identifier? _hd1524115624_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g52962_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g50988_| _hd1524115624_) (if (gx#stx-pair? _tl1524015627_) (let ((_e1524515630_ @@ -12630,7 +12630,7 @@ _hd1524115624_ _hd1523415666_)) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g52961_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g50987_| _hd1524115624_) (if (gx#stx-pair? _tl1524015627_) (let ((_e1525515578_ @@ -12942,7 +12942,7 @@ (##car _e1638716585_)))) (if (gx#identifier? _hd1638616589_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g52964_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g50990_| _hd1638616589_) (if (gx#stx-pair? _tl1638516592_) (let ((_e1639016595_ @@ -12966,7 +12966,7 @@ _tl1638516592_ _hd1638616589_)) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g52963_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g50989_| _hd1638616589_) (if (gx#stx-pair? _tl1638516592_) (let ((_e1639616564_ @@ -13021,29 +13021,29 @@ (lambda (_g1634116352_) ((lambda (_L16355_) (let () - (let ((__tmp52971 + (let ((__tmp50997 (gx#datum->syntax '#f 'list)) - (__tmp52965 - (let ((__tmp52967 - (let ((__tmp52970 + (__tmp50991 + (let ((__tmp50993 + (let ((__tmp50996 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp52968 - (let ((__tmp52969 + (__tmp50994 + (let ((__tmp50995 (gx#datum->syntax '#f 'quasiquote))) (declare (not safe)) - (cons __tmp52969 '())))) + (cons __tmp50995 '())))) (declare (not safe)) - (cons __tmp52970 __tmp52968))) - (__tmp52966 + (cons __tmp50996 __tmp50994))) + (__tmp50992 (let () (declare (not safe)) (cons _L16355_ '())))) (declare (not safe)) - (cons __tmp52967 __tmp52966)))) + (cons __tmp50993 __tmp50992)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52971 __tmp52965)))) + (cons __tmp50997 __tmp50991)))) _g1634116352_)))) (_g1633916367_ (_generate15685_ @@ -13067,30 +13067,30 @@ (lambda (_g1627016281_) ((lambda (_L16284_) (let () - (let ((__tmp52978 + (let ((__tmp51004 (gx#datum->syntax '#f 'list)) - (__tmp52972 - (let ((__tmp52974 - (let ((__tmp52977 + (__tmp50998 + (let ((__tmp51000 + (let ((__tmp51003 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp52975 - (let ((__tmp52976 + (__tmp51001 + (let ((__tmp51002 (gx#datum->syntax '#f 'unquote))) (declare (not safe)) - (cons __tmp52976 '())))) + (cons __tmp51002 '())))) (declare (not safe)) - (cons __tmp52977 __tmp52975))) - (__tmp52973 + (cons __tmp51003 __tmp51001))) + (__tmp50999 (let () (declare (not safe)) (cons _L16284_ '())))) (declare (not safe)) - (cons __tmp52974 __tmp52973)))) + (cons __tmp51000 __tmp50999)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52978 - __tmp52972)))) + (cons __tmp51004 + __tmp50998)))) _g1627016281_)))) (_g1626816296_ (_generate15685_ @@ -13103,33 +13103,33 @@ (if (let () (declare (not safe)) (fxzero? _d15749_)) - (let ((__tmp52993 + (let ((__tmp51019 (gx#datum->syntax '#f 'foldr)) - (__tmp52986 - (let ((__tmp52992 + (__tmp51012 + (let ((__tmp51018 (gx#datum->syntax '#f 'cons)) - (__tmp52987 - (let ((__tmp52989 - (let ((__tmp52991 + (__tmp51013 + (let ((__tmp51015 + (let ((__tmp51017 (gx#datum->syntax '#f 'quote)) - (__tmp52990 + (__tmp51016 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp52991 __tmp52990))) - (__tmp52988 (let () (declare (not safe)) (cons _L16185_ '())))) + (cons __tmp51017 __tmp51016))) + (__tmp51014 (let () (declare (not safe)) (cons _L16185_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52989 - __tmp52988)))) + (cons __tmp51015 + __tmp51014)))) (declare (not safe)) - (cons __tmp52992 __tmp52987)))) + (cons __tmp51018 __tmp51013)))) (declare (not safe)) - (cons __tmp52993 __tmp52986)) + (cons __tmp51019 __tmp51012)) (let* ((_g1619816206_ (lambda (_g1619916202_) (gx#raise-syntax-error @@ -13140,32 +13140,32 @@ (lambda (_g1619916210_) ((lambda (_L16213_) (let () - (let ((__tmp52985 + (let ((__tmp51011 (gx#datum->syntax '#f 'list)) - (__tmp52979 - (let ((__tmp52981 - (let ((__tmp52984 + (__tmp51005 + (let ((__tmp51007 + (let ((__tmp51010 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp52982 - (let ((__tmp52983 + (__tmp51008 + (let ((__tmp51009 (gx#datum->syntax '#f 'unquote-splicing))) (declare (not safe)) - (cons __tmp52983 '())))) + (cons __tmp51009 '())))) (declare (not safe)) - (cons __tmp52984 __tmp52982))) - (__tmp52980 + (cons __tmp51010 __tmp51008))) + (__tmp51006 (let () (declare (not safe)) (cons _L16213_ '())))) (declare (not safe)) - (cons __tmp52981 __tmp52980)))) + (cons __tmp51007 __tmp51006)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52985 - __tmp52979)))) + (cons __tmp51011 + __tmp51005)))) _g1619916210_)))) (_g1619716225_ (_generate15685_ @@ -13185,26 +13185,26 @@ (lambda (_g1612816139_) ((lambda (_L16142_) (let () - (let ((__tmp52998 + (let ((__tmp51024 (gx#datum->syntax '#f 'foldr)) - (__tmp52994 - (let ((__tmp52997 + (__tmp51020 + (let ((__tmp51023 (gx#datum->syntax '#f 'cons)) - (__tmp52995 - (let ((__tmp52996 + (__tmp51021 + (let ((__tmp51022 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L16112_ '())))) (declare (not safe)) - (cons _L16142_ __tmp52996)))) + (cons _L16142_ __tmp51022)))) (declare (not safe)) - (cons __tmp52997 __tmp52995)))) + (cons __tmp51023 __tmp51021)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52998 __tmp52994)))) + (cons __tmp51024 __tmp51020)))) _g1612816139_)))) (_g1612616154_ (_generate15685_ _L16110_ _d15749_))))) @@ -13246,16 +13246,16 @@ (if (gx#stx-null? _tl1601616048_) ((lambda (_L16051_ _L16053_) (let () - (let ((__tmp53001 (gx#datum->syntax '#f 'cons)) - (__tmp52999 - (let ((__tmp53000 + (let ((__tmp51027 (gx#datum->syntax '#f 'cons)) + (__tmp51025 + (let ((__tmp51026 (let () (declare (not safe)) (cons _L16051_ '())))) (declare (not safe)) - (cons _L16053_ __tmp53000)))) + (cons _L16053_ __tmp51026)))) (declare (not safe)) - (cons __tmp53001 __tmp52999)))) + (cons __tmp51027 __tmp51025)))) _hd1601716045_ _hd1601416035_) (_g1600916024_ _g1601016028_)))) @@ -13280,16 +13280,16 @@ (lambda (_g1594115952_) ((lambda (_L15955_) (let () - (let ((__tmp53003 + (let ((__tmp51029 (gx#datum->syntax '#f 'list->vector)) - (__tmp53002 + (__tmp51028 (let () (declare (not safe)) (cons _L15955_ '())))) (declare (not safe)) - (cons __tmp53003 __tmp53002)))) + (cons __tmp51029 __tmp51028)))) _g1594115952_)))) (_g1593915967_ (_generate15685_ @@ -13313,28 +13313,28 @@ (lambda (_g1585515866_) ((lambda (_L15869_) (let () - (let ((__tmp53005 + (let ((__tmp51031 (gx#datum->syntax '#f 'box)) - (__tmp53004 + (__tmp51030 (let () (declare (not safe)) (cons _L15869_ '())))) (declare (not safe)) - (cons __tmp53005 __tmp53004)))) + (cons __tmp51031 __tmp51030)))) _g1585515866_)))) (_g1585315881_ (_generate15685_ _L15844_ _d15749_))))) (___kont4628546286_ (lambda (_L15823_) - (let ((__tmp53007 (gx#datum->syntax '#f 'quote)) - (__tmp53006 + (let ((__tmp51033 (gx#datum->syntax '#f 'quote)) + (__tmp51032 (let () (declare (not safe)) (cons _L15823_ '())))) (declare (not safe)) - (cons __tmp53007 __tmp53006))))) + (cons __tmp51033 __tmp51032))))) (let* ((_g1575615885_ (lambda () (if (gx#stx-box? ___stx4626646267_) @@ -13429,7 +13429,7 @@ (##car _e1576316307_)))) (if (gx#identifier? _hd1576216311_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g53011_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g51037_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) (let ((_e1576616317_ @@ -13454,7 +13454,7 @@ _tl1576116314_ _hd1576216311_)) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g53010_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g51036_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) (let ((_e1577316246_ @@ -13481,7 +13481,7 @@ _tl1576116314_ _hd1576216311_)) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g53009_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g51035_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) @@ -13517,7 +13517,7 @@ (if (gx#identifier? _hd1578716094_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g53008_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g51034_| _hd1578716094_) (if (gx#stx-pair? _tl1578616097_) @@ -13583,16 +13583,16 @@ (if (gx#stx-null? _tl1569315725_) ((lambda (_L15728_) (if (_simple-quote?15683_ _L15728_) - (let ((__tmp53013 + (let ((__tmp51039 (gx#datum->syntax '#f 'quote)) - (__tmp53012 + (__tmp51038 (let () (declare (not safe)) (cons _L15728_ '())))) (declare (not safe)) - (cons __tmp53013 __tmp53012)) + (cons __tmp51039 __tmp51038)) (_generate15685_ _L15728_ '0))) _hd1569415722_) (_g1568715701_ _g1568815705_)))) @@ -13610,31 +13610,31 @@ ___stx4639246393_)))) (let ((___kont4639546396_ (lambda (_L16709_) - (let ((__tmp53015 (gx#datum->syntax '#f 'quote)) - (__tmp53014 + (let ((__tmp51041 (gx#datum->syntax '#f 'quote)) + (__tmp51040 (let () (declare (not safe)) (cons _L16709_ '())))) (declare (not safe)) - (cons __tmp53015 __tmp53014)))) + (cons __tmp51041 __tmp51040)))) (___kont4639746398_ (lambda (_L16668_) - (let ((__tmp53021 (gx#datum->syntax '#f 'make-promise)) - (__tmp53016 - (let ((__tmp53017 - (let ((__tmp53020 + (let ((__tmp51047 (gx#datum->syntax '#f 'make-promise)) + (__tmp51042 + (let ((__tmp51043 + (let ((__tmp51046 (gx#datum->syntax '#f 'lambda%)) - (__tmp53018 - (let ((__tmp53019 + (__tmp51044 + (let ((__tmp51045 (let () (declare (not safe)) (cons _L16668_ '())))) (declare (not safe)) - (cons '() __tmp53019)))) + (cons '() __tmp51045)))) (declare (not safe)) - (cons __tmp53020 __tmp53018)))) + (cons __tmp51046 __tmp51044)))) (declare (not safe)) - (cons __tmp53017 '())))) + (cons __tmp51043 '())))) (declare (not safe)) - (cons __tmp53021 __tmp53016))))) + (cons __tmp51047 __tmp51042))))) (let ((___match4641346414_ (lambda (_e1662516689_ _hd1662416693_ @@ -13739,11 +13739,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]#_g51049_| ___stx4643046431_) (___kont4643346434_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g53022_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g51048_| ___stx4643046431_) (___kont4643546436_) (___kont4643746438_))) @@ -13788,35 +13788,35 @@ (##cdr _e1673716750_)))) ((lambda (_L16760_) (if (and (gx#stx-list? _L16760_) - (let ((__tmp53034 + (let ((__tmp51060 (gx#stx-null? _L16760_))) (declare (not safe)) - (not __tmp53034))) - (let ((_g53024_ (_generate16729_ _L16760_))) + (not __tmp51060))) + (let ((_g51050_ (_generate16729_ _L16760_))) (begin - (let ((_g53025_ + (let ((_g51051_ (let () (declare (not safe)) - (if (##values? _g53024_) - (##vector-length _g53024_) + (if (##values? _g51050_) + (##vector-length _g51050_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g53025_ 3))) + (##fx= _g51051_ 3))) (error "Context expects 3 values" - _g53025_))) + _g51051_))) (let ((_hd16773_ (let () (declare (not safe)) - (##vector-ref _g53024_ 0))) + (##vector-ref _g51050_ 0))) (_body16775_ (let () (declare (not safe)) - (##vector-ref _g53024_ 1))) + (##vector-ref _g51050_ 1))) (_tail?16776_ (let () (declare (not safe)) - (##vector-ref _g53024_ 2)))) + (##vector-ref _g51050_ 2)))) (let* ((_g1677816786_ (lambda (_g1677916782_) (gx#raise-syntax-error @@ -13840,34 +13840,34 @@ (let () (let () (if _tail?16776_ - (let ((__tmp53033 + (let ((__tmp51059 (gx#datum->syntax '#f 'lambda%)) - (__tmp53029 - (let ((__tmp53030 - (let ((__tmp53031 - (let ((__tmp53032 + (__tmp51055 + (let ((__tmp51056 + (let ((__tmp51057 + (let ((__tmp51058 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'apply))) (declare (not safe)) - (cons __tmp53032 _L16821_)))) + (cons __tmp51058 _L16821_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp53031 '())))) + (cons __tmp51057 '())))) (declare (not safe)) - (cons _L16793_ __tmp53030)))) + (cons _L16793_ __tmp51056)))) (declare (not safe)) - (cons __tmp53033 __tmp53029)) - (let ((__tmp53028 + (cons __tmp51059 __tmp51055)) + (let ((__tmp51054 (gx#datum->syntax '#f 'lambda%)) - (__tmp53026 - (let ((__tmp53027 + (__tmp51052 + (let ((__tmp51053 (let () (declare (not safe)) (cons _L16821_ '())))) (declare (not safe)) - (cons _L16793_ __tmp53027)))) + (cons _L16793_ __tmp51053)))) (declare (not safe)) - (cons __tmp53028 __tmp53026)))))) + (cons __tmp51054 __tmp51052)))))) _g1680716818_)))) (_g1680516836_ _body16775_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> diff --git a/src/bootstrap/gerbil/core__5.scm b/src/bootstrap/gerbil/core__5.scm index c91d5a1e..17553b9f 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]#_g51062_| + (define |gerbil/core$<sugar>$<sugar:3>[1]#_g51136_| (##structure gx#syntax-quote::t 'quote @@ -19,14 +19,14 @@ ___stx4646646467_)))) (let ((___kont4646946470_ (lambda (_L17170_ _L17172_ _L17173_) - (let ((__tmp50993 (gx#datum->syntax '#f 'define-syntax)) - (__tmp50987 - (let ((__tmp50988 - (let ((__tmp50989 - (let ((__tmp50992 + (let ((__tmp51067 (gx#datum->syntax '#f 'define-syntax)) + (__tmp51061 + (let ((__tmp51062 + (let ((__tmp51063 + (let ((__tmp51066 (gx#datum->syntax '#f 'lambda)) - (__tmp50990 - (let ((__tmp50991 + (__tmp51064 + (let ((__tmp51065 (foldr (lambda (_g1719217195_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1719317198_) @@ -37,27 +37,27 @@ _L17170_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L17172_ __tmp50991)))) + (cons _L17172_ __tmp51065)))) (declare (not safe)) - (cons __tmp50992 __tmp50990)))) + (cons __tmp51066 __tmp51064)))) (declare (not safe)) - (cons __tmp50989 '())))) + (cons __tmp51063 '())))) (declare (not safe)) - (cons _L17173_ __tmp50988)))) + (cons _L17173_ __tmp51062)))) (declare (not safe)) - (cons __tmp50993 __tmp50987)))) + (cons __tmp51067 __tmp51061)))) (___kont4647346474_ (lambda (_L17084_ _L17086_) - (let ((__tmp50996 (gx#datum->syntax '#f 'define-syntax)) - (__tmp50994 - (let ((__tmp50995 + (let ((__tmp51070 (gx#datum->syntax '#f 'define-syntax)) + (__tmp51068 + (let ((__tmp51069 (let () (declare (not safe)) (cons _L17084_ '())))) (declare (not safe)) - (cons _L17086_ __tmp50995)))) + (cons _L17086_ __tmp51069)))) (declare (not safe)) - (cons __tmp50996 __tmp50994))))) + (cons __tmp51070 __tmp51068))))) (let* ((___match4652146522_ (lambda (_e1703517054_ _hd1703417058_ @@ -345,37 +345,37 @@ (##cdr _e1722217273_)))) (if (gx#stx-pair/null? _tl1722017280_) - (let ((_g50997_ + (let ((_g51071_ (gx#syntax-split-splice _tl1722017280_ '0))) (begin - (let ((_g50998_ + (let ((_g51072_ (let () (declare (not safe)) (if (##values? - _g50997_) + _g51071_) (##vector-length - _g50997_) + _g51071_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g50998_ 2))) - (error "Context expects 2 values" _g50998_))) + (##fx= _g51072_ 2))) + (error "Context expects 2 values" _g51072_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1722317283_ (let () (declare (not safe)) (##vector-ref - _g50997_ + _g51071_ 0))) (_tl1722517286_ (let () (declare (not safe)) (##vector-ref - _g50997_ + _g51071_ 1)))) (if (gx#stx-null? _tl1722517286_) @@ -402,31 +402,31 @@ (let ((_arg1723117309_ (reverse _arg1723017296_))) (if (gx#stx-pair/null? _tl1721717270_) - (let ((_g50999_ + (let ((_g51073_ (gx#syntax-split-splice _tl1721717270_ '0))) (begin - (let ((_g51000_ + (let ((_g51074_ (let () (declare (not safe)) - (if (##values? _g50999_) + (if (##values? _g51073_) (##vector-length - _g50999_) + _g51073_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51000_ 2))) + (##fx= _g51074_ 2))) (error "Context expects 2 values" - _g51000_))) + _g51074_))) (let ((_target1723217313_ (let () (declare (not safe)) - (##vector-ref _g50999_ 0))) + (##vector-ref _g51073_ 0))) (_tl1723417316_ (let () (declare (not safe)) - (##vector-ref _g50999_ 1)))) + (##vector-ref _g51073_ 1)))) (if (gx#stx-null? _tl1723417316_) (letrec ((_loop1723517319_ (lambda (_hd1723317323_ @@ -479,28 +479,28 @@ (lambda (_g1740717427_) (if (gx#stx-pair/null? _g1740717427_) - (let ((_g51001_ + (let ((_g51075_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1740717427_ '0))) (begin - (let ((_g51002_ + (let ((_g51076_ (let () (declare (not safe)) - (if (##values? _g51001_) - (##vector-length _g51001_) + (if (##values? _g51075_) + (##vector-length _g51075_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51002_ 2))) - (error "Context expects 2 values" _g51002_))) + (##fx= _g51076_ 2))) + (error "Context expects 2 values" _g51076_))) (let ((_target1740917430_ (let () (declare (not safe)) - (##vector-ref _g51001_ 0))) + (##vector-ref _g51075_ 0))) (_tl1741117433_ (let () (declare (not safe)) - (##vector-ref _g51001_ 1)))) + (##vector-ref _g51075_ 1)))) (if (gx#stx-null? _tl1741117433_) (letrec ((_loop1741217436_ (lambda (_hd1741017440_ @@ -550,31 +550,31 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp51005 + (let ((__tmp51079 (gx#datum->syntax '#f 'begin)) - (__tmp51003 - (let ((__tmp51004 + (__tmp51077 + (let ((__tmp51078 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L17492_ '())))) (declare (not safe)) - (cons _L17520_ __tmp51004)))) + (cons _L17520_ __tmp51078)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51005 __tmp51003)) + (cons __tmp51079 __tmp51077)) (gx#stx-source _stx17206_))))) _g1750617517_)))) (_g1750417535_ (gx#stx-wrap-source - (let ((__tmp51010 + (let ((__tmp51084 (gx#datum->syntax '#f 'def)) - (__tmp51006 - (let ((__tmp51008 - (let ((__tmp51009 + (__tmp51080 + (let ((__tmp51082 + (let ((__tmp51083 (foldr (lambda (_g1754017543_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1754117546_) @@ -585,8 +585,8 @@ _L17345_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L17394_ __tmp51009))) - (__tmp51007 + (cons _L17394_ __tmp51083))) + (__tmp51081 (foldr (lambda (_g1753817549_ _g1753917552_) (let () @@ -598,24 +598,24 @@ _L17343_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51008 __tmp51007)))) + (cons __tmp51082 __tmp51081)))) (declare (not safe)) - (cons __tmp51010 __tmp51006)) + (cons __tmp51084 __tmp51080)) (gx#stx-source _stx17206_)))))) _g1747817489_)))) (_g1747617555_ (gx#stx-wrap-source - (let ((__tmp51038 (gx#datum->syntax '#f 'defrules)) - (__tmp51011 - (let ((__tmp51012 - (let ((__tmp51013 - (let ((__tmp51026 - (let ((__tmp51035 - (let ((__tmp51037 + (let ((__tmp51112 (gx#datum->syntax '#f 'defrules)) + (__tmp51085 + (let ((__tmp51086 + (let ((__tmp51087 + (let ((__tmp51100 + (let ((__tmp51109 + (let ((__tmp51111 (gx#datum->syntax '#f '_)) - (__tmp51036 + (__tmp51110 (foldr (lambda (_g1756417567_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1756517570_) @@ -625,15 +625,15 @@ '() _L17460_))) (declare (not safe)) - (cons __tmp51037 __tmp51036))) + (cons __tmp51111 __tmp51110))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp51027 - (let ((__tmp51028 - (let ((__tmp51030 + (__tmp51101 + (let ((__tmp51102 + (let ((__tmp51104 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51034 (gx#datum->syntax '#f 'lambda)) - (__tmp51031 - (let ((__tmp51033 + (let ((__tmp51108 (gx#datum->syntax '#f 'lambda)) + (__tmp51105 + (let ((__tmp51107 (foldr (lambda (_g1756217573_ _g1756317576_) (let () @@ -642,7 +642,7 @@ _g1756317576_))) '() _L17345_)) - (__tmp51032 + (__tmp51106 (foldr (lambda (_g1756017579_ _g1756117582_) (let () @@ -652,10 +652,10 @@ '() _L17343_))) (declare (not safe)) - (cons __tmp51033 __tmp51032)))) + (cons __tmp51107 __tmp51106)))) (declare (not safe)) - (cons __tmp51034 __tmp51031))) - (__tmp51029 + (cons __tmp51108 __tmp51105))) + (__tmp51103 (foldr (lambda (_g1755817585_ _g1755917588_) (let () (declare (not safe)) @@ -663,59 +663,59 @@ '() _L17460_))) (declare (not safe)) - (cons __tmp51030 __tmp51029)))) + (cons __tmp51104 __tmp51103)))) (declare (not safe)) - (cons __tmp51028 '())))) + (cons __tmp51102 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51035 __tmp51027))) - (__tmp51014 - (let ((__tmp51015 - (let ((__tmp51025 + (cons __tmp51109 __tmp51101))) + (__tmp51088 + (let ((__tmp51089 + (let ((__tmp51099 (gx#datum->syntax '#f 'ref)) - (__tmp51016 - (let ((__tmp51018 + (__tmp51090 + (let ((__tmp51092 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51024 + (let ((__tmp51098 (gx#datum->syntax '#f 'identifier?)) - (__tmp51019 - (let ((__tmp51020 - (let ((__tmp51023 + (__tmp51093 + (let ((__tmp51094 + (let ((__tmp51097 (gx#datum->syntax '#f 'syntax)) - (__tmp51021 - (let ((__tmp51022 + (__tmp51095 + (let ((__tmp51096 (gx#datum->syntax '#f 'ref))) (declare (not safe)) - (cons __tmp51022 '())))) + (cons __tmp51096 '())))) (declare (not safe)) - (cons __tmp51023 __tmp51021)))) + (cons __tmp51097 __tmp51095)))) (declare (not safe)) - (cons __tmp51020 '())))) + (cons __tmp51094 '())))) (declare (not safe)) - (cons __tmp51024 __tmp51019))) - (__tmp51017 + (cons __tmp51098 __tmp51093))) + (__tmp51091 (let () (declare (not safe)) (cons _L17394_ '())))) (declare (not safe)) - (cons __tmp51018 __tmp51017)))) + (cons __tmp51092 __tmp51091)))) (declare (not safe)) - (cons __tmp51025 __tmp51016)))) + (cons __tmp51099 __tmp51090)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51015 '())))) + (cons __tmp51089 '())))) (declare (not safe)) - (cons __tmp51026 __tmp51014)))) + (cons __tmp51100 __tmp51088)))) (declare (not safe)) - (cons '() __tmp51013)))) + (cons '() __tmp51087)))) (declare (not safe)) - (cons _L17346_ __tmp51012)))) + (cons _L17346_ __tmp51086)))) (declare (not safe)) - (cons __tmp51038 __tmp51011)) + (cons __tmp51112 __tmp51085)) (gx#stx-source _stx17206_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _xarg1741717456_)))))) @@ -770,79 +770,79 @@ ___stx4652446525_)))) (let ((___kont4652746528_ (lambda (_L17769_ _L17771_) - (let ((__tmp51056 (gx#datum->syntax '#f 'defrules)) - (__tmp51039 - (let ((__tmp51040 - (let ((__tmp51041 - (let ((__tmp51042 - (let ((__tmp51055 + (let ((__tmp51130 (gx#datum->syntax '#f 'defrules)) + (__tmp51113 + (let ((__tmp51114 + (let ((__tmp51115 + (let ((__tmp51116 + (let ((__tmp51129 (gx#datum->syntax '#f 'x)) - (__tmp51043 - (let ((__tmp51048 - (let ((__tmp51054 + (__tmp51117 + (let ((__tmp51122 + (let ((__tmp51128 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'identifier?)) - (__tmp51049 - (let ((__tmp51050 - (let ((__tmp51053 + (__tmp51123 + (let ((__tmp51124 + (let ((__tmp51127 (gx#datum->syntax '#f 'syntax)) - (__tmp51051 - (let ((__tmp51052 + (__tmp51125 + (let ((__tmp51126 (gx#datum->syntax '#f 'x))) (declare (not safe)) - (cons __tmp51052 '())))) + (cons __tmp51126 '())))) (declare (not safe)) - (cons __tmp51053 __tmp51051)))) + (cons __tmp51127 __tmp51125)))) (declare (not safe)) - (cons __tmp51050 '())))) + (cons __tmp51124 '())))) (declare (not safe)) - (cons __tmp51054 __tmp51049))) - (__tmp51044 - (let ((__tmp51045 - (let ((__tmp51047 (gx#datum->syntax '#f 'quote)) - (__tmp51046 + (cons __tmp51128 __tmp51123))) + (__tmp51118 + (let ((__tmp51119 + (let ((__tmp51121 (gx#datum->syntax '#f 'quote)) + (__tmp51120 (let () (declare (not safe)) (cons _L17769_ '())))) (declare (not safe)) - (cons __tmp51047 __tmp51046)))) + (cons __tmp51121 __tmp51120)))) (declare (not safe)) - (cons __tmp51045 '())))) + (cons __tmp51119 '())))) (declare (not safe)) - (cons __tmp51048 __tmp51044)))) + (cons __tmp51122 __tmp51118)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51055 - __tmp51043)))) + (cons __tmp51129 + __tmp51117)))) (declare (not safe)) - (cons __tmp51042 '())))) + (cons __tmp51116 '())))) (declare (not safe)) - (cons '() __tmp51041)))) + (cons '() __tmp51115)))) (declare (not safe)) - (cons _L17771_ __tmp51040)))) + (cons _L17771_ __tmp51114)))) (declare (not safe)) - (cons __tmp51056 __tmp51039)))) + (cons __tmp51130 __tmp51113)))) (___kont4652946530_ (lambda (_L17692_ _L17694_ _L17695_) - (let ((__tmp51057 - (let ((__tmp51058 - (let ((__tmp51059 - (let ((__tmp51061 + (let ((__tmp51131 + (let ((__tmp51132 + (let ((__tmp51133 + (let ((__tmp51135 (gx#datum->syntax '#f 'quote)) - (__tmp51060 + (__tmp51134 (let () (declare (not safe)) (cons _L17692_ '())))) (declare (not safe)) - (cons __tmp51061 __tmp51060)))) + (cons __tmp51135 __tmp51134)))) (declare (not safe)) - (cons __tmp51059 '())))) + (cons __tmp51133 '())))) (declare (not safe)) - (cons _L17694_ __tmp51058)))) + (cons _L17694_ __tmp51132)))) (declare (not safe)) - (cons _L17695_ __tmp51057))))) + (cons _L17695_ __tmp51131))))) (let* ((___match4658946590_ (lambda (_e1764317662_ _hd1764217666_ @@ -933,7 +933,7 @@ (if (gx#identifier? _hd1763317753_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:3>[1]#_g51062_| + |gerbil/core$<sugar>$<sugar:3>[1]#_g51136_| _hd1763317753_) (if (gx#stx-pair? _tl1763217756_) diff --git a/src/bootstrap/gerbil/core__6.scm b/src/bootstrap/gerbil/core__6.scm index f6d50d3c..d24e29df 100644 --- a/src/bootstrap/gerbil/core__6.scm +++ b/src/bootstrap/gerbil/core__6.scm @@ -216,32 +216,32 @@ (_g1795419119_ (lambda (_g1795617976_) (if (gx#stx-pair/null? _g1795617976_) - (let ((_g51063_ + (let ((_g51137_ (gx#syntax-split-splice _g1795617976_ '0))) (begin - (let ((_g51064_ + (let ((_g51138_ (let () (declare (not safe)) - (if (##values? _g51063_) + (if (##values? _g51137_) (##vector-length - _g51063_) + _g51137_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51064_ 2))) + (##fx= _g51138_ 2))) (error "Context expects 2 values" - _g51064_))) + _g51138_))) (let ((_target1795817979_ (let () (declare (not safe)) - (##vector-ref _g51063_ 0))) + (##vector-ref _g51137_ 0))) (_tl1796017982_ (let () (declare (not safe)) (##vector-ref - _g51063_ + _g51137_ 1)))) (if (gx#stx-null? _tl1796017982_) (letrec ((_loop1796117985_ @@ -258,7 +258,7 @@ (let () (declare (not safe)) (##cdr _e1796217995_)))) - (let ((__tmp51285 + (let ((__tmp51359 (let () (declare (not safe)) (cons _lp-hd1796317999_ @@ -266,7 +266,7 @@ (declare (not safe)) (_loop1796117985_ _lp-tl1796418002_ - __tmp51285)))) + __tmp51359)))) (let ((_slot1796618005_ (reverse _slot1796517992_))) ((lambda (_L18009_) (let () @@ -456,28 +456,28 @@ (lambda (_g1850718536_) (if (gx#stx-pair/null? _g1850718536_) - (let ((_g51065_ + (let ((_g51139_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1850718536_ '0))) (begin - (let ((_g51066_ + (let ((_g51140_ (let () (declare (not safe)) - (if (##values? _g51065_) - (##vector-length _g51065_) + (if (##values? _g51139_) + (##vector-length _g51139_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51066_ 2))) - (error "Context expects 2 values" _g51066_))) + (##fx= _g51140_ 2))) + (error "Context expects 2 values" _g51140_))) (let ((_target1851018539_ (let () (declare (not safe)) - (##vector-ref _g51065_ 0))) + (##vector-ref _g51139_ 0))) (_tl1851218542_ (let () (declare (not safe)) - (##vector-ref _g51065_ 1)))) + (##vector-ref _g51139_ 1)))) (if (gx#stx-null? _tl1851218542_) (letrec ((_loop1851318545_ (lambda (_hd1851118549_ @@ -518,12 +518,12 @@ (declare (not safe)) (##cdr _e1852618577_)))) (if (gx#stx-null? _tl1852418584_) - (let ((__tmp51123 + (let ((__tmp51197 (let () (declare (not safe)) (cons _hd1852518581_ _def-setf1851718552_))) - (__tmp51122 + (__tmp51196 (let () (declare (not safe)) (cons _hd1852218571_ @@ -531,8 +531,8 @@ (declare (not safe)) (_loop1851318545_ _lp-tl1851618564_ - __tmp51123 - __tmp51122)) + __tmp51197 + __tmp51196)) (let () (declare (not safe)) (_g1850618532_ _g1850718536_))))) @@ -557,28 +557,28 @@ (_g1861118752_ (lambda (_g1861318642_) (if (gx#stx-pair/null? _g1861318642_) - (let ((_g51067_ + (let ((_g51141_ (gx#syntax-split-splice _g1861318642_ '0))) (begin - (let ((_g51068_ + (let ((_g51142_ (let () (declare (not safe)) - (if (##values? _g51067_) - (##vector-length _g51067_) + (if (##values? _g51141_) + (##vector-length _g51141_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51068_ 2))) + (##fx= _g51142_ 2))) (error "Context expects 2 values" - _g51068_))) + _g51142_))) (let ((_target1861618645_ (let () (declare (not safe)) - (##vector-ref _g51067_ 0))) + (##vector-ref _g51141_ 0))) (_tl1861818648_ (let () (declare (not safe)) - (##vector-ref _g51067_ 1)))) + (##vector-ref _g51141_ 1)))) (if (gx#stx-null? _tl1861818648_) (letrec ((_loop1861918651_ (lambda (_hd1861718655_ @@ -618,12 +618,12 @@ (declare (not safe)) (##cdr _e1863218683_)))) (if (gx#stx-null? _tl1863018690_) - (let ((__tmp51076 + (let ((__tmp51150 (let () (declare (not safe)) (cons _hd1863118687_ _def-usetf1862318658_))) - (__tmp51075 + (__tmp51149 (let () (declare (not safe)) (cons _hd1862818677_ @@ -631,8 +631,8 @@ (declare (not safe)) (_loop1861918651_ _lp-tl1862218670_ - __tmp51076 - __tmp51075)) + __tmp51150 + __tmp51149)) (let () (declare (not safe)) (_g1861218638_ _g1861318642_))))) @@ -647,12 +647,12 @@ ((lambda (_L18699_ _L18701_) (let () (let () - (let ((__tmp51069 - (let ((__tmp51074 (gx#datum->syntax '#f 'begin)) - (__tmp51070 - (let ((__tmp51071 - (let ((__tmp51072 - (let ((__tmp51073 + (let ((__tmp51143 + (let ((__tmp51148 (gx#datum->syntax '#f 'begin)) + (__tmp51144 + (let ((__tmp51145 + (let ((__tmp51146 + (let ((__tmp51147 (foldr (lambda (_g1871918728_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1872018731_) @@ -681,15 +681,15 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L18465_ - __tmp51073)))) + __tmp51147)))) (declare (not safe)) - (cons _L18493_ __tmp51072)))) + (cons _L18493_ __tmp51146)))) (declare (not safe)) - (cons _L18437_ __tmp51071)))) + (cons _L18437_ __tmp51145)))) (declare (not safe)) - (cons __tmp51074 __tmp51070)))) + (cons __tmp51148 __tmp51144)))) (declare (not safe)) - (_wrap17800_ __tmp51069))))) + (_wrap17800_ __tmp51143))))) _def-usetf1862518693_ _def-ugetf1862618696_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -705,7 +705,7 @@ (let () (declare (not safe)) (_g1861218638_ _g1861318642_))))) - (__tmp51077 + (__tmp51151 (gx#stx-map (lambda (_ref18756_) (let* ((_g1875918778_ @@ -790,148 +790,148 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L18880_) (let () - (let ((__tmp51100 - (let ((__tmp51101 - (let ((__tmp51120 + (let ((__tmp51174 + (let ((__tmp51175 + (let ((__tmp51194 (gx#datum->syntax '#f 'def)) - (__tmp51102 - (let ((__tmp51103 - (let ((__tmp51104 - (let ((__tmp51119 + (__tmp51176 + (let ((__tmp51177 + (let ((__tmp51178 + (let ((__tmp51193 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp51105 - (let ((__tmp51114 + (__tmp51179 + (let ((__tmp51188 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51118 + (let ((__tmp51192 (gx#datum->syntax '#f '@mop.accessor)) - (__tmp51115 - (let ((__tmp51116 - (let ((__tmp51117 + (__tmp51189 + (let ((__tmp51190 + (let ((__tmp51191 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L18818_ __tmp51117)))) + (cons _L18818_ __tmp51191)))) (declare (not safe)) - (cons _L18129_ __tmp51116)))) + (cons _L18129_ __tmp51190)))) (declare (not safe)) - (cons __tmp51118 __tmp51115))) - (__tmp51106 - (let ((__tmp51107 - (let ((__tmp51113 + (cons __tmp51192 __tmp51189))) + (__tmp51180 + (let ((__tmp51181 + (let ((__tmp51187 (gx#datum->syntax '#f 'make-class-slot-unchecked-accessor)) - (__tmp51108 - (let ((__tmp51109 - (let ((__tmp51110 - (let ((__tmp51112 + (__tmp51182 + (let ((__tmp51183 + (let ((__tmp51184 + (let ((__tmp51186 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp51111 + (__tmp51185 (let () (declare (not safe)) (cons _L18818_ '())))) (declare (not safe)) - (cons __tmp51112 __tmp51111)))) + (cons __tmp51186 __tmp51185)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51110 '())))) + (cons __tmp51184 '())))) (declare (not safe)) - (cons _L17894_ __tmp51109)))) + (cons _L17894_ __tmp51183)))) (declare (not safe)) - (cons __tmp51113 __tmp51108)))) + (cons __tmp51187 __tmp51182)))) (declare (not safe)) - (cons __tmp51107 '())))) + (cons __tmp51181 '())))) (declare (not safe)) - (cons __tmp51114 __tmp51106)))) + (cons __tmp51188 __tmp51180)))) (declare (not safe)) - (cons __tmp51119 __tmp51105)))) + (cons __tmp51193 __tmp51179)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51104 '())))) + (cons __tmp51178 '())))) (declare (not safe)) - (cons _L18880_ __tmp51103)))) + (cons _L18880_ __tmp51177)))) (declare (not safe)) - (cons __tmp51120 __tmp51102)))) + (cons __tmp51194 __tmp51176)))) (declare (not safe)) - (_wrap17800_ __tmp51101))) - (__tmp51078 - (let ((__tmp51079 - (let ((__tmp51080 - (let ((__tmp51099 + (_wrap17800_ __tmp51175))) + (__tmp51152 + (let ((__tmp51153 + (let ((__tmp51154 + (let ((__tmp51173 (gx#datum->syntax '#f 'def)) - (__tmp51081 - (let ((__tmp51082 - (let ((__tmp51083 - (let ((__tmp51098 + (__tmp51155 + (let ((__tmp51156 + (let ((__tmp51157 + (let ((__tmp51172 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin-annotation)) - (__tmp51084 - (let ((__tmp51093 - (let ((__tmp51097 + (__tmp51158 + (let ((__tmp51167 + (let ((__tmp51171 (gx#datum->syntax '#f '@mop.mutator)) - (__tmp51094 - (let ((__tmp51095 - (let ((__tmp51096 + (__tmp51168 + (let ((__tmp51169 + (let ((__tmp51170 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) (cons _L18818_ - __tmp51096)))) + __tmp51170)))) (declare (not safe)) - (cons _L18129_ __tmp51095)))) + (cons _L18129_ __tmp51169)))) (declare (not safe)) - (cons __tmp51097 __tmp51094))) - (__tmp51085 - (let ((__tmp51086 - (let ((__tmp51092 + (cons __tmp51171 __tmp51168))) + (__tmp51159 + (let ((__tmp51160 + (let ((__tmp51166 (gx#datum->syntax '#f 'make-class-slot-unchecked-mutator)) - (__tmp51087 - (let ((__tmp51088 - (let ((__tmp51089 + (__tmp51161 + (let ((__tmp51162 + (let ((__tmp51163 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51091 (gx#datum->syntax '#f 'quote)) - (__tmp51090 + (let ((__tmp51165 (gx#datum->syntax '#f 'quote)) + (__tmp51164 (let () (declare (not safe)) (cons _L18818_ '())))) (declare (not safe)) - (cons __tmp51091 __tmp51090)))) + (cons __tmp51165 __tmp51164)))) (declare (not safe)) - (cons __tmp51089 '())))) + (cons __tmp51163 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L17894_ - __tmp51088)))) + __tmp51162)))) (declare (not safe)) - (cons __tmp51092 __tmp51087)))) + (cons __tmp51166 __tmp51161)))) (declare (not safe)) - (cons __tmp51086 '())))) + (cons __tmp51160 '())))) (declare (not safe)) - (cons __tmp51093 __tmp51085)))) + (cons __tmp51167 __tmp51159)))) (declare (not safe)) - (cons __tmp51098 __tmp51084)))) + (cons __tmp51172 __tmp51158)))) (declare (not safe)) - (cons __tmp51083 '())))) + (cons __tmp51157 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L18878_ - __tmp51082)))) + __tmp51156)))) (declare (not safe)) - (cons __tmp51099 __tmp51081)))) + (cons __tmp51173 __tmp51155)))) (declare (not safe)) - (_wrap17800_ __tmp51080)))) + (_wrap17800_ __tmp51154)))) (declare (not safe)) - (cons __tmp51079 '())))) + (cons __tmp51153 '())))) (declare (not safe)) - (cons __tmp51100 __tmp51078)))) + (cons __tmp51174 __tmp51152)))) _hd1884418872_ _hd1884118862_) (let () (declare (not safe)) (_g1883618851_ _g1883718855_))))) @@ -943,7 +943,7 @@ (let () (declare (not safe)) (_g1883618851_ _g1883718855_))))) - (__tmp51121 + (__tmp51195 (list (gx#stx-identifier _L18817_ '"&" @@ -953,7 +953,7 @@ '"&" _L18815_)))) (declare (not safe)) - (_g1883518896_ __tmp51121))) + (_g1883518896_ __tmp51195))) _hd1877118809_ _hd1876818799_ _hd1876518789_) @@ -973,7 +973,7 @@ (_g1875818900_ _ref18756_))) _accessible-slots17949_))) (declare (not safe)) - (_g1861118752_ __tmp51077)))) + (_g1861118752_ __tmp51151)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _def-setf1851918587_ _def-getf1852018590_)))))) @@ -989,7 +989,7 @@ (let () (declare (not safe)) (_g1850618532_ _g1850718536_))))) - (__tmp51124 + (__tmp51198 (gx#stx-map (lambda (_ref18908_) (let* ((_g1891118930_ @@ -1040,148 +1040,148 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L18969_ _L18970_) - (let ((__tmp51147 - (let ((__tmp51148 - (let ((__tmp51167 (gx#datum->syntax '#f 'def)) - (__tmp51149 - (let ((__tmp51150 - (let ((__tmp51151 - (let ((__tmp51166 + (let ((__tmp51221 + (let ((__tmp51222 + (let ((__tmp51241 (gx#datum->syntax '#f 'def)) + (__tmp51223 + (let ((__tmp51224 + (let ((__tmp51225 + (let ((__tmp51240 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp51152 - (let ((__tmp51161 + (__tmp51226 + (let ((__tmp51235 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51165 + (let ((__tmp51239 (gx#datum->syntax '#f '@mop.accessor)) - (__tmp51162 - (let ((__tmp51163 - (let ((__tmp51164 + (__tmp51236 + (let ((__tmp51237 + (let ((__tmp51238 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) - (cons _L18970_ __tmp51164)))) + (cons _L18970_ __tmp51238)))) (declare (not safe)) - (cons _L18129_ __tmp51163)))) + (cons _L18129_ __tmp51237)))) (declare (not safe)) - (cons __tmp51165 __tmp51162))) - (__tmp51153 - (let ((__tmp51154 - (let ((__tmp51160 + (cons __tmp51239 __tmp51236))) + (__tmp51227 + (let ((__tmp51228 + (let ((__tmp51234 (gx#datum->syntax '#f 'make-class-slot-accessor)) - (__tmp51155 - (let ((__tmp51156 - (let ((__tmp51157 - (let ((__tmp51159 + (__tmp51229 + (let ((__tmp51230 + (let ((__tmp51231 + (let ((__tmp51233 (gx#datum->syntax '#f 'quote)) - (__tmp51158 + (__tmp51232 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L18970_ '())))) (declare (not safe)) - (cons __tmp51159 __tmp51158)))) + (cons __tmp51233 __tmp51232)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51157 '())))) + (cons __tmp51231 '())))) (declare (not safe)) - (cons _L17894_ __tmp51156)))) + (cons _L17894_ __tmp51230)))) (declare (not safe)) - (cons __tmp51160 __tmp51155)))) + (cons __tmp51234 __tmp51229)))) (declare (not safe)) - (cons __tmp51154 '())))) + (cons __tmp51228 '())))) (declare (not safe)) - (cons __tmp51161 __tmp51153)))) + (cons __tmp51235 __tmp51227)))) (declare (not safe)) - (cons __tmp51166 __tmp51152)))) + (cons __tmp51240 __tmp51226)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51151 '())))) + (cons __tmp51225 '())))) (declare (not safe)) - (cons _L18969_ __tmp51150)))) + (cons _L18969_ __tmp51224)))) (declare (not safe)) - (cons __tmp51167 __tmp51149)))) + (cons __tmp51241 __tmp51223)))) (declare (not safe)) - (_wrap17800_ __tmp51148))) - (__tmp51125 - (let ((__tmp51126 - (let ((__tmp51127 - (let ((__tmp51146 + (_wrap17800_ __tmp51222))) + (__tmp51199 + (let ((__tmp51200 + (let ((__tmp51201 + (let ((__tmp51220 (gx#datum->syntax '#f 'def)) - (__tmp51128 - (let ((__tmp51129 - (let ((__tmp51130 - (let ((__tmp51145 + (__tmp51202 + (let ((__tmp51203 + (let ((__tmp51204 + (let ((__tmp51219 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin-annotation)) - (__tmp51131 - (let ((__tmp51140 - (let ((__tmp51144 + (__tmp51205 + (let ((__tmp51214 + (let ((__tmp51218 (gx#datum->syntax '#f '@mop.mutator)) - (__tmp51141 - (let ((__tmp51142 - (let ((__tmp51143 + (__tmp51215 + (let ((__tmp51216 + (let ((__tmp51217 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) (cons _L18970_ - __tmp51143)))) + __tmp51217)))) (declare (not safe)) - (cons _L18129_ __tmp51142)))) + (cons _L18129_ __tmp51216)))) (declare (not safe)) - (cons __tmp51144 __tmp51141))) - (__tmp51132 - (let ((__tmp51133 - (let ((__tmp51139 + (cons __tmp51218 __tmp51215))) + (__tmp51206 + (let ((__tmp51207 + (let ((__tmp51213 (gx#datum->syntax '#f 'make-class-slot-mutator)) - (__tmp51134 - (let ((__tmp51135 - (let ((__tmp51136 - (let ((__tmp51138 + (__tmp51208 + (let ((__tmp51209 + (let ((__tmp51210 + (let ((__tmp51212 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp51137 + (__tmp51211 (let () (declare (not safe)) (cons _L18970_ '())))) (declare (not safe)) - (cons __tmp51138 __tmp51137)))) + (cons __tmp51212 __tmp51211)))) (declare (not safe)) - (cons __tmp51136 '())))) + (cons __tmp51210 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L17894_ - __tmp51135)))) + __tmp51209)))) (declare (not safe)) - (cons __tmp51139 __tmp51134)))) + (cons __tmp51213 __tmp51208)))) (declare (not safe)) - (cons __tmp51133 '())))) + (cons __tmp51207 '())))) (declare (not safe)) - (cons __tmp51140 __tmp51132)))) + (cons __tmp51214 __tmp51206)))) (declare (not safe)) - (cons __tmp51145 __tmp51131)))) + (cons __tmp51219 __tmp51205)))) (declare (not safe)) - (cons __tmp51130 '())))) + (cons __tmp51204 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L18967_ __tmp51129)))) + (cons _L18967_ __tmp51203)))) (declare (not safe)) - (cons __tmp51146 __tmp51128)))) + (cons __tmp51220 __tmp51202)))) (declare (not safe)) - (_wrap17800_ __tmp51127)))) + (_wrap17800_ __tmp51201)))) (declare (not safe)) - (cons __tmp51126 '())))) + (cons __tmp51200 '())))) (declare (not safe)) - (cons __tmp51147 __tmp51125))) + (cons __tmp51221 __tmp51199))) _hd1892318961_ _hd1892018951_ _hd1891718941_) @@ -1202,171 +1202,171 @@ _accessible-slots17949_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1850518904_ __tmp51124)))) + (_g1850518904_ __tmp51198)))) _g1847918490_))) - (__tmp51168 - (let ((__tmp51169 - (let ((__tmp51182 + (__tmp51242 + (let ((__tmp51243 + (let ((__tmp51256 (gx#datum->syntax '#f 'def)) - (__tmp51170 - (let ((__tmp51171 - (let ((__tmp51172 + (__tmp51244 + (let ((__tmp51245 + (let ((__tmp51246 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51181 + (let ((__tmp51255 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp51173 - (let ((__tmp51178 - (let ((__tmp51180 + (__tmp51247 + (let ((__tmp51252 + (let ((__tmp51254 (gx#datum->syntax '#f '@mop.predicate)) - (__tmp51179 + (__tmp51253 (let () (declare (not safe)) (cons _L18129_ '())))) (declare (not safe)) - (cons __tmp51180 __tmp51179))) - (__tmp51174 - (let ((__tmp51175 - (let ((__tmp51177 + (cons __tmp51254 __tmp51253))) + (__tmp51248 + (let ((__tmp51249 + (let ((__tmp51251 (gx#datum->syntax '#f 'make-class-predicate)) - (__tmp51176 + (__tmp51250 (let () (declare (not safe)) (cons _L17894_ '())))) (declare (not safe)) - (cons __tmp51177 - __tmp51176)))) + (cons __tmp51251 + __tmp51250)))) (declare (not safe)) - (cons __tmp51175 '())))) + (cons __tmp51249 '())))) (declare (not safe)) - (cons __tmp51178 __tmp51174)))) + (cons __tmp51252 __tmp51248)))) (declare (not safe)) - (cons __tmp51181 __tmp51173)))) + (cons __tmp51255 __tmp51247)))) (declare (not safe)) - (cons __tmp51172 '())))) + (cons __tmp51246 '())))) (declare (not safe)) - (cons _L17891_ __tmp51171)))) + (cons _L17891_ __tmp51245)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51182 - __tmp51170)))) + (cons __tmp51256 + __tmp51244)))) (declare (not safe)) - (_wrap17800_ __tmp51169)))) + (_wrap17800_ __tmp51243)))) (declare (not safe)) - (_g1847718992_ __tmp51168)))) + (_g1847718992_ __tmp51242)))) _g1845118462_))) - (__tmp51183 + (__tmp51257 (if (gx#stx-false? _L17892_) - (let ((__tmp51207 (gx#datum->syntax '#f 'begin))) + (let ((__tmp51281 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp51207 '())) - (let ((__tmp51184 - (let ((__tmp51206 + (cons __tmp51281 '())) + (let ((__tmp51258 + (let ((__tmp51280 (gx#datum->syntax '#f 'def)) - (__tmp51185 - (let ((__tmp51186 - (let ((__tmp51187 - (let ((__tmp51205 + (__tmp51259 + (let ((__tmp51260 + (let ((__tmp51261 + (let ((__tmp51279 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation)) - (__tmp51188 - (let ((__tmp51202 - (let ((__tmp51204 + (__tmp51262 + (let ((__tmp51276 + (let ((__tmp51278 (gx#datum->syntax '#f '@mop.constructor)) - (__tmp51203 + (__tmp51277 (let () (declare (not safe)) (cons _L18129_ '())))) (declare (not safe)) - (cons __tmp51204 __tmp51203))) - (__tmp51189 - (let ((__tmp51190 - (let ((__tmp51201 + (cons __tmp51278 __tmp51277))) + (__tmp51263 + (let ((__tmp51264 + (let ((__tmp51275 (gx#datum->syntax '#f 'lambda)) - (__tmp51191 - (let ((__tmp51200 + (__tmp51265 + (let ((__tmp51274 (gx#datum->syntax '#f '$args)) - (__tmp51192 - (let ((__tmp51193 - (let ((__tmp51199 + (__tmp51266 + (let ((__tmp51267 + (let ((__tmp51273 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'apply)) - (__tmp51194 - (let ((__tmp51198 + (__tmp51268 + (let ((__tmp51272 (gx#datum->syntax '#f 'make-instance)) - (__tmp51195 - (let ((__tmp51196 - (let ((__tmp51197 + (__tmp51269 + (let ((__tmp51270 + (let ((__tmp51271 (gx#datum->syntax '#f '$args))) (declare (not safe)) - (cons __tmp51197 '())))) + (cons __tmp51271 '())))) (declare (not safe)) - (cons _L17894_ __tmp51196)))) + (cons _L17894_ __tmp51270)))) (declare (not safe)) - (cons __tmp51198 __tmp51195)))) + (cons __tmp51272 __tmp51269)))) (declare (not safe)) - (cons __tmp51199 __tmp51194)))) + (cons __tmp51273 __tmp51268)))) (declare (not safe)) - (cons __tmp51193 '())))) + (cons __tmp51267 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51200 __tmp51192)))) + (cons __tmp51274 __tmp51266)))) (declare (not safe)) - (cons __tmp51201 __tmp51191)))) + (cons __tmp51275 __tmp51265)))) (declare (not safe)) - (cons __tmp51190 '())))) + (cons __tmp51264 '())))) (declare (not safe)) - (cons __tmp51202 __tmp51189)))) + (cons __tmp51276 __tmp51263)))) (declare (not safe)) - (cons __tmp51205 __tmp51188)))) + (cons __tmp51279 __tmp51262)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51187 '())))) + (cons __tmp51261 '())))) (declare (not safe)) - (cons _L17892_ __tmp51186)))) + (cons _L17892_ __tmp51260)))) (declare (not safe)) - (cons __tmp51206 __tmp51185)))) + (cons __tmp51280 __tmp51259)))) (declare (not safe)) - (_wrap17800_ __tmp51184))))) + (_wrap17800_ __tmp51258))))) (declare (not safe)) - (_g1844918996_ __tmp51183)))) + (_g1844918996_ __tmp51257)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1842318434_))) - (__tmp51208 - (let ((__tmp51209 - (let ((__tmp51226 + (__tmp51282 + (let ((__tmp51283 + (let ((__tmp51300 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def)) - (__tmp51210 - (let ((__tmp51211 - (let ((__tmp51212 - (let ((__tmp51225 + (__tmp51284 + (let ((__tmp51285 + (let ((__tmp51286 + (let ((__tmp51299 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp51213 - (let ((__tmp51215 - (let ((__tmp51224 + (__tmp51287 + (let ((__tmp51289 + (let ((__tmp51298 (gx#datum->syntax '#f '@mop.class)) - (__tmp51216 - (let ((__tmp51217 + (__tmp51290 + (let ((__tmp51291 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51218 - (let ((__tmp51223 + (let ((__tmp51292 + (let ((__tmp51297 (foldr (lambda (_g1900319006_ _g1900419009_) (let () @@ -1375,89 +1375,89 @@ _g1900419009_))) '() _L18009_)) - (__tmp51219 - (let ((__tmp51220 - (let ((__tmp51221 - (let ((__tmp51222 + (__tmp51293 + (let ((__tmp51294 + (let ((__tmp51295 + (let ((__tmp51296 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L18241_ '())))) (declare (not safe)) - (cons _L18213_ __tmp51222)))) + (cons _L18213_ __tmp51296)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L18185_ __tmp51221)))) + (cons _L18185_ __tmp51295)))) (declare (not safe)) - (cons _L18101_ __tmp51220)))) + (cons _L18101_ __tmp51294)))) (declare (not safe)) - (cons __tmp51223 __tmp51219)))) + (cons __tmp51297 __tmp51293)))) (declare (not safe)) - (cons _L18157_ __tmp51218)))) + (cons _L18157_ __tmp51292)))) (declare (not safe)) - (cons _L18045_ __tmp51217)))) + (cons _L18045_ __tmp51291)))) (declare (not safe)) - (cons __tmp51224 __tmp51216))) + (cons __tmp51298 __tmp51290))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp51214 + (__tmp51288 (let () (declare (not safe)) (cons _L18409_ '())))) (declare (not safe)) - (cons __tmp51215 __tmp51214)))) + (cons __tmp51289 __tmp51288)))) (declare (not safe)) - (cons __tmp51225 __tmp51213)))) + (cons __tmp51299 __tmp51287)))) (declare (not safe)) - (cons __tmp51212 '())))) + (cons __tmp51286 '())))) (declare (not safe)) - (cons _L17894_ __tmp51211)))) + (cons _L17894_ __tmp51285)))) (declare (not safe)) - (cons __tmp51226 __tmp51210)))) + (cons __tmp51300 __tmp51284)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap17800_ __tmp51209)))) + (_wrap17800_ __tmp51283)))) (declare (not safe)) - (_g1842119000_ __tmp51208)))) + (_g1842119000_ __tmp51282)))) _g1839518406_))) - (__tmp51227 - (let ((__tmp51247 + (__tmp51301 + (let ((__tmp51321 (gx#datum->syntax '#f 'make-class-type)) - (__tmp51228 - (let ((__tmp51244 - (let ((__tmp51246 + (__tmp51302 + (let ((__tmp51318 + (let ((__tmp51320 (gx#datum->syntax '#f 'quote)) - (__tmp51245 + (__tmp51319 (let () (declare (not safe)) (cons _L18045_ '())))) (declare (not safe)) - (cons __tmp51246 - __tmp51245))) - (__tmp51229 - (let ((__tmp51241 - (let ((__tmp51243 + (cons __tmp51320 + __tmp51319))) + (__tmp51303 + (let ((__tmp51315 + (let ((__tmp51317 (gx#datum->syntax '#f 'quote)) - (__tmp51242 + (__tmp51316 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L18073_ '())))) (declare (not safe)) - (cons __tmp51243 __tmp51242))) - (__tmp51230 - (let ((__tmp51231 - (let ((__tmp51237 - (let ((__tmp51240 (gx#datum->syntax '#f 'quote)) - (__tmp51238 - (let ((__tmp51239 + (cons __tmp51317 __tmp51316))) + (__tmp51304 + (let ((__tmp51305 + (let ((__tmp51311 + (let ((__tmp51314 (gx#datum->syntax '#f 'quote)) + (__tmp51312 + (let ((__tmp51313 (foldr (lambda (_g1901519018_ _g1901619021_) (let () @@ -1467,50 +1467,50 @@ '() _L18009_))) (declare (not safe)) - (cons __tmp51239 '())))) + (cons __tmp51313 '())))) (declare (not safe)) - (cons __tmp51240 __tmp51238))) - (__tmp51232 - (let ((__tmp51233 - (let ((__tmp51234 - (let ((__tmp51236 + (cons __tmp51314 __tmp51312))) + (__tmp51306 + (let ((__tmp51307 + (let ((__tmp51308 + (let ((__tmp51310 (gx#datum->syntax '#f 'quote)) - (__tmp51235 + (__tmp51309 (let () (declare (not safe)) (cons _L18101_ '())))) (declare (not safe)) - (cons __tmp51236 __tmp51235)))) + (cons __tmp51310 __tmp51309)))) (declare (not safe)) - (cons __tmp51234 '())))) + (cons __tmp51308 '())))) (declare (not safe)) - (cons _L18353_ __tmp51233)))) + (cons _L18353_ __tmp51307)))) (declare (not safe)) - (cons __tmp51237 __tmp51232)))) + (cons __tmp51311 __tmp51306)))) (declare (not safe)) - (cons _L18381_ __tmp51231)))) + (cons _L18381_ __tmp51305)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51241 - __tmp51230)))) + (cons __tmp51315 + __tmp51304)))) (declare (not safe)) - (cons __tmp51244 __tmp51229)))) + (cons __tmp51318 __tmp51303)))) (declare (not safe)) - (cons __tmp51247 __tmp51228)))) + (cons __tmp51321 __tmp51302)))) (declare (not safe)) - (_g1839319012_ __tmp51227)))) + (_g1839319012_ __tmp51301)))) _g1836718378_))) - (__tmp51248 - (let ((__tmp51249 (gx#datum->syntax '#f 'list))) + (__tmp51322 + (let ((__tmp51323 (gx#datum->syntax '#f 'list))) (declare (not safe)) - (cons __tmp51249 _L17893_)))) + (cons __tmp51323 _L17893_)))) (declare (not safe)) - (_g1836519024_ __tmp51248)))) + (_g1836519024_ __tmp51322)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1833918350_))) - (__tmp51250 + (__tmp51324 (if (gx#stx-e _metaclass17952_) (let* ((_g1903219040_ (lambda (_g1903319036_) @@ -1522,16 +1522,16 @@ (lambda (_g1903319044_) ((lambda (_L19047_) (let () - (let ((__tmp51259 + (let ((__tmp51333 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '@list)) - (__tmp51251 - (let ((__tmp51254 - (let ((__tmp51258 + (__tmp51325 + (let ((__tmp51328 + (let ((__tmp51332 (gx#datum->syntax '#f '@list)) - (__tmp51255 - (let ((__tmp51256 - (let ((__tmp51257 + (__tmp51329 + (let ((__tmp51330 + (let ((__tmp51331 (let () (declare (not safe)) @@ -1539,23 +1539,23 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons ':: __tmp51257)))) + (cons ':: __tmp51331)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'metaclass: __tmp51256)))) + (cons 'metaclass: __tmp51330)))) (declare (not safe)) - (cons __tmp51258 __tmp51255))) - (__tmp51252 - (let ((__tmp51253 + (cons __tmp51332 __tmp51329))) + (__tmp51326 + (let ((__tmp51327 (let () (declare (not safe)) (cons _L18325_ '())))) (declare (not safe)) - (cons ':: __tmp51253)))) + (cons ':: __tmp51327)))) (declare (not safe)) - (cons __tmp51254 __tmp51252)))) + (cons __tmp51328 __tmp51326)))) (declare (not safe)) - (cons __tmp51259 __tmp51251)))) + (cons __tmp51333 __tmp51325)))) _g1903319044_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) @@ -1563,125 +1563,125 @@ _metaclass17952_)) _L18325_))) (declare (not safe)) - (_g1833719028_ __tmp51250)))) + (_g1833719028_ __tmp51324)))) _g1831118322_))) - (__tmp51260 + (__tmp51334 (if _struct?17932_ - (let ((__tmp51267 + (let ((__tmp51341 (gx#datum->syntax '#f '@list)) - (__tmp51261 - (let ((__tmp51264 - (let ((__tmp51266 + (__tmp51335 + (let ((__tmp51338 + (let ((__tmp51340 (gx#datum->syntax '#f '@list)) - (__tmp51265 + (__tmp51339 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp51266 - __tmp51265))) - (__tmp51262 - (let ((__tmp51263 + (cons __tmp51340 + __tmp51339))) + (__tmp51336 + (let ((__tmp51337 (let () (declare (not safe)) (cons _L18297_ '())))) (declare (not safe)) - (cons ':: __tmp51263)))) + (cons ':: __tmp51337)))) (declare (not safe)) - (cons __tmp51264 __tmp51262)))) + (cons __tmp51338 __tmp51336)))) (declare (not safe)) - (cons __tmp51267 __tmp51261)) + (cons __tmp51341 __tmp51335)) _L18297_))) (declare (not safe)) - (_g1830919063_ __tmp51260)))) + (_g1830919063_ __tmp51334)))) _g1828318294_))) - (__tmp51268 + (__tmp51342 (if (gx#stx-e _L18213_) - (let ((__tmp51275 (gx#datum->syntax '#f '@list)) - (__tmp51269 - (let ((__tmp51272 - (let ((__tmp51274 + (let ((__tmp51349 (gx#datum->syntax '#f '@list)) + (__tmp51343 + (let ((__tmp51346 + (let ((__tmp51348 (gx#datum->syntax '#f '@list)) - (__tmp51273 + (__tmp51347 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp51274 __tmp51273))) - (__tmp51270 - (let ((__tmp51271 + (cons __tmp51348 __tmp51347))) + (__tmp51344 + (let ((__tmp51345 (let () (declare (not safe)) (cons _L18269_ '())))) (declare (not safe)) - (cons ':: __tmp51271)))) + (cons ':: __tmp51345)))) (declare (not safe)) - (cons __tmp51272 __tmp51270)))) + (cons __tmp51346 __tmp51344)))) (declare (not safe)) - (cons __tmp51275 __tmp51269)) + (cons __tmp51349 __tmp51343)) _L18269_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1828119067_ __tmp51268)))) + (_g1828119067_ __tmp51342)))) _g1825518266_))) - (__tmp51276 + (__tmp51350 (let ((_$e19075_ (gx#stx-getq 'properties: _L17889_))) (if _$e19075_ _$e19075_ - (let ((__tmp51277 + (let ((__tmp51351 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp51277 '())))))) + (cons __tmp51351 '())))))) (declare (not safe)) - (_g1825319071_ __tmp51276)))) + (_g1825319071_ __tmp51350)))) _g1822718238_))) - (__tmp51278 + (__tmp51352 (if (gx#stx-e _metaclass17952_) (gx#core-quote-syntax _metaclass17952_) '#f))) (declare (not safe)) - (_g1822519079_ __tmp51278)))) + (_g1822519079_ __tmp51352)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1819918210_))) - (__tmp51279 + (__tmp51353 (gx#stx-getq 'final: _L17889_))) (declare (not safe)) - (_g1819719083_ __tmp51279)))) + (_g1819719083_ __tmp51353)))) _g1817118182_)))) (declare (not safe)) (_g1816919087_ _struct?17932_)))) _g1814318154_))) - (__tmp51280 (gx#stx-map gx#core-quote-syntax _L17893_))) + (__tmp51354 (gx#stx-map gx#core-quote-syntax _L17893_))) (declare (not safe)) - (_g1814119091_ __tmp51280)))) + (_g1814119091_ __tmp51354)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1811518126_))) - (__tmp51281 + (__tmp51355 (gx#core-quote-syntax _L17894_))) (declare (not safe)) - (_g1811319095_ __tmp51281)))) + (_g1811319095_ __tmp51355)))) _g1808718098_))) - (__tmp51282 (gx#stx-getq 'constructor: _L17889_))) + (__tmp51356 (gx#stx-getq 'constructor: _L17889_))) (declare (not safe)) - (_g1808519099_ __tmp51282)))) + (_g1808519099_ __tmp51356)))) _g1805918070_))) - (__tmp51283 + (__tmp51357 (let ((_$e19107_ (gx#stx-getq 'name: _L17889_))) (if _$e19107_ _$e19107_ _L17894_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1805719103_ __tmp51283)))) + (_g1805719103_ __tmp51357)))) _g1803118042_))) - (__tmp51284 + (__tmp51358 (let ((_$e19115_ (gx#stx-getq 'id: _L17889_))) (if _$e19115_ @@ -1691,7 +1691,7 @@ (|gerbil/core$<MOP>$<MOP:1>[1]#make-class-type-id| _L17894_)))))) (declare (not safe)) - (_g1802919111_ __tmp51284)))) + (_g1802919111_ __tmp51358)))) _slot1796618005_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -1706,10 +1706,10 @@ (let () (declare (not safe)) (_g1795517972_ _g1795617976_))))) - (__tmp51286 + (__tmp51360 (gx#stx-map _slot-name17802_ _slots17939_))) (declare (not safe)) - (_g1795419119_ __tmp51286)) + (_g1795419119_ __tmp51360)) (let () (declare (not safe)) (_g1780517832_ _g1780617836_)))) diff --git a/src/bootstrap/gerbil/core__7.scm b/src/bootstrap/gerbil/core__7.scm index 1a8c2e50..9a2bee17 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]#_g51288_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51362_| (##structure gx#syntax-quote::t 'class-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51290_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51364_| (##structure gx#syntax-quote::t 'make-class-type-info #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51292_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51366_| (##structure gx#syntax-quote::t 'class-type-info? #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51310_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51384_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51313_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51387_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51316_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51390_| (##structure gx#syntax-quote::t '!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51319_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51393_| (##structure gx#syntax-quote::t '!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51322_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51396_| (##structure gx#syntax-quote::t '!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51325_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51399_| (##structure gx#syntax-quote::t '!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51328_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51402_| (##structure gx#syntax-quote::t '!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51331_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51405_| (##structure gx#syntax-quote::t '!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51334_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51408_| (##structure gx#syntax-quote::t '!class-type-metaclass #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51337_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51411_| (##structure gx#syntax-quote::t '!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51340_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51414_| (##structure gx#syntax-quote::t '!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51343_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51417_| (##structure gx#syntax-quote::t '!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51346_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51420_| (##structure gx#syntax-quote::t '!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51349_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51423_| (##structure gx#syntax-quote::t '!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51352_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51426_| (##structure gx#syntax-quote::t '!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51370_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51444_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51373_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51447_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51376_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51450_| (##structure gx#syntax-quote::t '!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51379_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51453_| (##structure gx#syntax-quote::t '!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51382_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51456_| (##structure gx#syntax-quote::t '!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51385_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51459_| (##structure gx#syntax-quote::t '!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51388_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51462_| (##structure gx#syntax-quote::t '!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51391_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51465_| (##structure gx#syntax-quote::t '!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51394_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51468_| (##structure gx#syntax-quote::t '!class-type-metaclass-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51397_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51471_| (##structure gx#syntax-quote::t '!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51400_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51474_| (##structure gx#syntax-quote::t '!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51403_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51477_| (##structure gx#syntax-quote::t '!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51406_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51480_| (##structure gx#syntax-quote::t '!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51409_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51483_| (##structure gx#syntax-quote::t '!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51412_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51486_| (##structure gx#syntax-quote::t '!class-type-id-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51430_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51504_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51433_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51507_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51436_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51510_| (##structure gx#syntax-quote::t '&!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51439_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51513_| (##structure gx#syntax-quote::t '&!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51442_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51516_| (##structure gx#syntax-quote::t '&!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51445_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51519_| (##structure gx#syntax-quote::t '&!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51448_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51522_| (##structure gx#syntax-quote::t '&!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51451_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51525_| (##structure gx#syntax-quote::t '&!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51456_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51530_| (##structure gx#syntax-quote::t '&!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51459_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51533_| (##structure gx#syntax-quote::t '&!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51462_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51536_| (##structure gx#syntax-quote::t '&!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51465_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51539_| (##structure gx#syntax-quote::t '&!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51468_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51542_| (##structure gx#syntax-quote::t '&!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51471_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51545_| (##structure gx#syntax-quote::t '&!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51489_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51563_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51492_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51566_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51495_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51569_| (##structure gx#syntax-quote::t '&!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51498_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51572_| (##structure gx#syntax-quote::t '&!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51501_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51575_| (##structure gx#syntax-quote::t '&!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51504_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51578_| (##structure gx#syntax-quote::t '&!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51507_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51581_| (##structure gx#syntax-quote::t '&!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51510_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51584_| (##structure gx#syntax-quote::t '&!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51513_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51587_| (##structure gx#syntax-quote::t '&!class-type-metaclass-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51516_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51590_| (##structure gx#syntax-quote::t '&!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51519_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51593_| (##structure gx#syntax-quote::t '&!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51522_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51596_| (##structure gx#syntax-quote::t '&!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51525_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51599_| (##structure gx#syntax-quote::t '&!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51528_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51602_| (##structure gx#syntax-quote::t '&!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51531_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51605_| (##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 ((__tmp51287 |gerbil/core$<MOP>$<MOP:3>[1]#_g51288_|)) + (let ((__tmp51361 |gerbil/core$<MOP>$<MOP:3>[1]#_g51362_|)) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51287 + __tmp51361 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51289 |gerbil/core$<MOP>$<MOP:3>[1]#_g51290_|)) + (let ((__tmp51363 |gerbil/core$<MOP>$<MOP:3>[1]#_g51364_|)) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51289 + __tmp51363 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51291 |gerbil/core$<MOP>$<MOP:3>[1]#_g51292_|)) + (let ((__tmp51365 |gerbil/core$<MOP>$<MOP:3>[1]#_g51366_|)) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51291 + __tmp51365 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51293 - (let ((__tmp51350 - (let ((__tmp51351 |gerbil/core$<MOP>$<MOP:3>[1]#_g51352_|)) + (let ((__tmp51367 + (let ((__tmp51424 + (let ((__tmp51425 |gerbil/core$<MOP>$<MOP:3>[1]#_g51426_|)) (declare (not safe)) - (cons 'id __tmp51351))) - (__tmp51294 - (let ((__tmp51347 - (let ((__tmp51348 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51349_|)) + (cons 'id __tmp51425))) + (__tmp51368 + (let ((__tmp51421 + (let ((__tmp51422 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51423_|)) (declare (not safe)) - (cons 'name __tmp51348))) - (__tmp51295 - (let ((__tmp51344 - (let ((__tmp51345 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51346_|)) + (cons 'name __tmp51422))) + (__tmp51369 + (let ((__tmp51418 + (let ((__tmp51419 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51420_|)) (declare (not safe)) - (cons 'super __tmp51345))) - (__tmp51296 - (let ((__tmp51341 - (let ((__tmp51342 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51343_|)) + (cons 'super __tmp51419))) + (__tmp51370 + (let ((__tmp51415 + (let ((__tmp51416 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51417_|)) (declare (not safe)) - (cons 'slots __tmp51342))) - (__tmp51297 - (let ((__tmp51338 - (let ((__tmp51339 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51340_|)) + (cons 'slots __tmp51416))) + (__tmp51371 + (let ((__tmp51412 + (let ((__tmp51413 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51414_|)) (declare (not safe)) - (cons 'struct? __tmp51339))) - (__tmp51298 - (let ((__tmp51335 - (let ((__tmp51336 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51337_|)) + (cons 'struct? __tmp51413))) + (__tmp51372 + (let ((__tmp51409 + (let ((__tmp51410 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51411_|)) (declare (not safe)) (cons 'final? - __tmp51336))) - (__tmp51299 - (let ((__tmp51332 - (let ((__tmp51333 + __tmp51410))) + (__tmp51373 + (let ((__tmp51406 + (let ((__tmp51407 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$<MOP>$<MOP:3>[1]#_g51334_|)) + |gerbil/core$<MOP>$<MOP:3>[1]#_g51408_|)) (declare (not safe)) - (cons 'metaclass __tmp51333))) - (__tmp51300 - (let ((__tmp51329 - (let ((__tmp51330 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51331_|)) + (cons 'metaclass __tmp51407))) + (__tmp51374 + (let ((__tmp51403 + (let ((__tmp51404 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51405_|)) (declare (not safe)) - (cons 'constructor-method __tmp51330))) - (__tmp51301 - (let ((__tmp51326 - (let ((__tmp51327 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51328_|)) + (cons 'constructor-method __tmp51404))) + (__tmp51375 + (let ((__tmp51400 + (let ((__tmp51401 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51402_|)) (declare (not safe)) - (cons 'type-descriptor __tmp51327))) - (__tmp51302 - (let ((__tmp51323 - (let ((__tmp51324 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51325_|)) + (cons 'type-descriptor __tmp51401))) + (__tmp51376 + (let ((__tmp51397 + (let ((__tmp51398 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51399_|)) (declare (not safe)) - (cons 'constructor __tmp51324))) - (__tmp51303 - (let ((__tmp51320 - (let ((__tmp51321 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51322_|)) + (cons 'constructor __tmp51398))) + (__tmp51377 + (let ((__tmp51394 + (let ((__tmp51395 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51396_|)) (declare (not safe)) (cons 'predicate - __tmp51321))) - (__tmp51304 - (let ((__tmp51317 - (let ((__tmp51318 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51319_|)) + __tmp51395))) + (__tmp51378 + (let ((__tmp51391 + (let ((__tmp51392 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51393_|)) (declare (not safe)) (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp51318))) - (__tmp51305 - (let ((__tmp51314 - (let ((__tmp51315 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51316_|)) + __tmp51392))) + (__tmp51379 + (let ((__tmp51388 + (let ((__tmp51389 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51390_|)) (declare (not safe)) - (cons 'mutators __tmp51315))) - (__tmp51306 - (let ((__tmp51311 - (let ((__tmp51312 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51313_|)) + (cons 'mutators __tmp51389))) + (__tmp51380 + (let ((__tmp51385 + (let ((__tmp51386 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51387_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp51312))) - (__tmp51307 - (let ((__tmp51308 - (let ((__tmp51309 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51310_|)) + (cons 'unchecked-accessors __tmp51386))) + (__tmp51381 + (let ((__tmp51382 + (let ((__tmp51383 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51384_|)) (declare (not safe)) (cons 'unchecked-mutators - __tmp51309)))) + __tmp51383)))) (declare (not safe)) - (cons __tmp51308 '())))) + (cons __tmp51382 '())))) (declare (not safe)) - (cons __tmp51311 __tmp51307)))) + (cons __tmp51385 __tmp51381)))) (declare (not safe)) - (cons __tmp51314 __tmp51306)))) + (cons __tmp51388 __tmp51380)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51317 - __tmp51305)))) + (cons __tmp51391 + __tmp51379)))) (declare (not safe)) - (cons __tmp51320 __tmp51304)))) + (cons __tmp51394 __tmp51378)))) (declare (not safe)) - (cons __tmp51323 __tmp51303)))) + (cons __tmp51397 __tmp51377)))) (declare (not safe)) - (cons __tmp51326 __tmp51302)))) + (cons __tmp51400 __tmp51376)))) (declare (not safe)) - (cons __tmp51329 __tmp51301)))) + (cons __tmp51403 __tmp51375)))) (declare (not safe)) - (cons __tmp51332 __tmp51300)))) + (cons __tmp51406 __tmp51374)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51335 - __tmp51299)))) + (cons __tmp51409 + __tmp51373)))) (declare (not safe)) - (cons __tmp51338 __tmp51298)))) + (cons __tmp51412 __tmp51372)))) (declare (not safe)) - (cons __tmp51341 __tmp51297)))) + (cons __tmp51415 __tmp51371)))) (declare (not safe)) - (cons __tmp51344 __tmp51296)))) + (cons __tmp51418 __tmp51370)))) (declare (not safe)) - (cons __tmp51347 __tmp51295)))) + (cons __tmp51421 __tmp51369)))) (declare (not safe)) - (cons __tmp51350 __tmp51294)))) + (cons __tmp51424 __tmp51368)))) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51293 + __tmp51367 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51353 - (let ((__tmp51410 - (let ((__tmp51411 |gerbil/core$<MOP>$<MOP:3>[1]#_g51412_|)) + (let ((__tmp51427 + (let ((__tmp51484 + (let ((__tmp51485 |gerbil/core$<MOP>$<MOP:3>[1]#_g51486_|)) (declare (not safe)) - (cons 'id __tmp51411))) - (__tmp51354 - (let ((__tmp51407 - (let ((__tmp51408 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51409_|)) + (cons 'id __tmp51485))) + (__tmp51428 + (let ((__tmp51481 + (let ((__tmp51482 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51483_|)) (declare (not safe)) - (cons 'name __tmp51408))) - (__tmp51355 - (let ((__tmp51404 - (let ((__tmp51405 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51406_|)) + (cons 'name __tmp51482))) + (__tmp51429 + (let ((__tmp51478 + (let ((__tmp51479 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51480_|)) (declare (not safe)) - (cons 'super __tmp51405))) - (__tmp51356 - (let ((__tmp51401 - (let ((__tmp51402 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51403_|)) + (cons 'super __tmp51479))) + (__tmp51430 + (let ((__tmp51475 + (let ((__tmp51476 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51477_|)) (declare (not safe)) - (cons 'slots __tmp51402))) - (__tmp51357 - (let ((__tmp51398 - (let ((__tmp51399 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51400_|)) + (cons 'slots __tmp51476))) + (__tmp51431 + (let ((__tmp51472 + (let ((__tmp51473 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51474_|)) (declare (not safe)) - (cons 'struct? __tmp51399))) - (__tmp51358 - (let ((__tmp51395 - (let ((__tmp51396 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51397_|)) + (cons 'struct? __tmp51473))) + (__tmp51432 + (let ((__tmp51469 + (let ((__tmp51470 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51471_|)) (declare (not safe)) (cons 'final? - __tmp51396))) - (__tmp51359 - (let ((__tmp51392 - (let ((__tmp51393 + __tmp51470))) + (__tmp51433 + (let ((__tmp51466 + (let ((__tmp51467 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$<MOP>$<MOP:3>[1]#_g51394_|)) + |gerbil/core$<MOP>$<MOP:3>[1]#_g51468_|)) (declare (not safe)) - (cons 'metaclass __tmp51393))) - (__tmp51360 - (let ((__tmp51389 - (let ((__tmp51390 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51391_|)) + (cons 'metaclass __tmp51467))) + (__tmp51434 + (let ((__tmp51463 + (let ((__tmp51464 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51465_|)) (declare (not safe)) - (cons 'constructor-method __tmp51390))) - (__tmp51361 - (let ((__tmp51386 - (let ((__tmp51387 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51388_|)) + (cons 'constructor-method __tmp51464))) + (__tmp51435 + (let ((__tmp51460 + (let ((__tmp51461 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51462_|)) (declare (not safe)) - (cons 'type-descriptor __tmp51387))) - (__tmp51362 - (let ((__tmp51383 - (let ((__tmp51384 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51385_|)) + (cons 'type-descriptor __tmp51461))) + (__tmp51436 + (let ((__tmp51457 + (let ((__tmp51458 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51459_|)) (declare (not safe)) - (cons 'constructor __tmp51384))) - (__tmp51363 - (let ((__tmp51380 - (let ((__tmp51381 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51382_|)) + (cons 'constructor __tmp51458))) + (__tmp51437 + (let ((__tmp51454 + (let ((__tmp51455 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51456_|)) (declare (not safe)) (cons 'predicate - __tmp51381))) - (__tmp51364 - (let ((__tmp51377 - (let ((__tmp51378 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51379_|)) + __tmp51455))) + (__tmp51438 + (let ((__tmp51451 + (let ((__tmp51452 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51453_|)) (declare (not safe)) (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp51378))) - (__tmp51365 - (let ((__tmp51374 - (let ((__tmp51375 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51376_|)) + __tmp51452))) + (__tmp51439 + (let ((__tmp51448 + (let ((__tmp51449 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51450_|)) (declare (not safe)) - (cons 'mutators __tmp51375))) - (__tmp51366 - (let ((__tmp51371 - (let ((__tmp51372 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51373_|)) + (cons 'mutators __tmp51449))) + (__tmp51440 + (let ((__tmp51445 + (let ((__tmp51446 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51447_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp51372))) - (__tmp51367 - (let ((__tmp51368 - (let ((__tmp51369 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51370_|)) + (cons 'unchecked-accessors __tmp51446))) + (__tmp51441 + (let ((__tmp51442 + (let ((__tmp51443 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51444_|)) (declare (not safe)) (cons 'unchecked-mutators - __tmp51369)))) + __tmp51443)))) (declare (not safe)) - (cons __tmp51368 '())))) + (cons __tmp51442 '())))) (declare (not safe)) - (cons __tmp51371 __tmp51367)))) + (cons __tmp51445 __tmp51441)))) (declare (not safe)) - (cons __tmp51374 __tmp51366)))) + (cons __tmp51448 __tmp51440)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51377 - __tmp51365)))) + (cons __tmp51451 + __tmp51439)))) (declare (not safe)) - (cons __tmp51380 __tmp51364)))) + (cons __tmp51454 __tmp51438)))) (declare (not safe)) - (cons __tmp51383 __tmp51363)))) + (cons __tmp51457 __tmp51437)))) (declare (not safe)) - (cons __tmp51386 __tmp51362)))) + (cons __tmp51460 __tmp51436)))) (declare (not safe)) - (cons __tmp51389 __tmp51361)))) + (cons __tmp51463 __tmp51435)))) (declare (not safe)) - (cons __tmp51392 __tmp51360)))) + (cons __tmp51466 __tmp51434)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51395 - __tmp51359)))) + (cons __tmp51469 + __tmp51433)))) (declare (not safe)) - (cons __tmp51398 __tmp51358)))) + (cons __tmp51472 __tmp51432)))) (declare (not safe)) - (cons __tmp51401 __tmp51357)))) + (cons __tmp51475 __tmp51431)))) (declare (not safe)) - (cons __tmp51404 __tmp51356)))) + (cons __tmp51478 __tmp51430)))) (declare (not safe)) - (cons __tmp51407 __tmp51355)))) + (cons __tmp51481 __tmp51429)))) (declare (not safe)) - (cons __tmp51410 __tmp51354)))) + (cons __tmp51484 __tmp51428)))) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51353 + __tmp51427 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51413 - (let ((__tmp51469 - (let ((__tmp51470 |gerbil/core$<MOP>$<MOP:3>[1]#_g51471_|)) + (let ((__tmp51487 + (let ((__tmp51543 + (let ((__tmp51544 |gerbil/core$<MOP>$<MOP:3>[1]#_g51545_|)) (declare (not safe)) - (cons 'id __tmp51470))) - (__tmp51414 - (let ((__tmp51466 - (let ((__tmp51467 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51468_|)) + (cons 'id __tmp51544))) + (__tmp51488 + (let ((__tmp51540 + (let ((__tmp51541 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51542_|)) (declare (not safe)) - (cons 'name __tmp51467))) - (__tmp51415 - (let ((__tmp51463 - (let ((__tmp51464 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51465_|)) + (cons 'name __tmp51541))) + (__tmp51489 + (let ((__tmp51537 + (let ((__tmp51538 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51539_|)) (declare (not safe)) - (cons 'super __tmp51464))) - (__tmp51416 - (let ((__tmp51460 - (let ((__tmp51461 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51462_|)) + (cons 'super __tmp51538))) + (__tmp51490 + (let ((__tmp51534 + (let ((__tmp51535 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51536_|)) (declare (not safe)) - (cons 'slots __tmp51461))) - (__tmp51417 - (let ((__tmp51457 - (let ((__tmp51458 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51459_|)) + (cons 'slots __tmp51535))) + (__tmp51491 + (let ((__tmp51531 + (let ((__tmp51532 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51533_|)) (declare (not safe)) - (cons 'struct? __tmp51458))) - (__tmp51418 - (let ((__tmp51454 - (let ((__tmp51455 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51456_|)) + (cons 'struct? __tmp51532))) + (__tmp51492 + (let ((__tmp51528 + (let ((__tmp51529 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51530_|)) (declare (not safe)) (cons 'final? - __tmp51455))) - (__tmp51419 - (let ((__tmp51452 - (let ((__tmp51453 + __tmp51529))) + (__tmp51493 + (let ((__tmp51526 + (let ((__tmp51527 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$<MOP>$<MOP:3>[1]#_g51334_|)) + |gerbil/core$<MOP>$<MOP:3>[1]#_g51408_|)) (declare (not safe)) - (cons 'metaclass __tmp51453))) - (__tmp51420 - (let ((__tmp51449 - (let ((__tmp51450 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51451_|)) + (cons 'metaclass __tmp51527))) + (__tmp51494 + (let ((__tmp51523 + (let ((__tmp51524 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51525_|)) (declare (not safe)) - (cons 'constructor-method __tmp51450))) - (__tmp51421 - (let ((__tmp51446 - (let ((__tmp51447 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51448_|)) + (cons 'constructor-method __tmp51524))) + (__tmp51495 + (let ((__tmp51520 + (let ((__tmp51521 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51522_|)) (declare (not safe)) - (cons 'type-descriptor __tmp51447))) - (__tmp51422 - (let ((__tmp51443 - (let ((__tmp51444 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51445_|)) + (cons 'type-descriptor __tmp51521))) + (__tmp51496 + (let ((__tmp51517 + (let ((__tmp51518 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51519_|)) (declare (not safe)) - (cons 'constructor __tmp51444))) - (__tmp51423 - (let ((__tmp51440 - (let ((__tmp51441 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51442_|)) + (cons 'constructor __tmp51518))) + (__tmp51497 + (let ((__tmp51514 + (let ((__tmp51515 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51516_|)) (declare (not safe)) (cons 'predicate - __tmp51441))) - (__tmp51424 - (let ((__tmp51437 - (let ((__tmp51438 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51439_|)) + __tmp51515))) + (__tmp51498 + (let ((__tmp51511 + (let ((__tmp51512 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51513_|)) (declare (not safe)) (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp51438))) - (__tmp51425 - (let ((__tmp51434 - (let ((__tmp51435 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51436_|)) + __tmp51512))) + (__tmp51499 + (let ((__tmp51508 + (let ((__tmp51509 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51510_|)) (declare (not safe)) - (cons 'mutators __tmp51435))) - (__tmp51426 - (let ((__tmp51431 - (let ((__tmp51432 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51433_|)) + (cons 'mutators __tmp51509))) + (__tmp51500 + (let ((__tmp51505 + (let ((__tmp51506 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51507_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp51432))) - (__tmp51427 - (let ((__tmp51428 - (let ((__tmp51429 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51430_|)) + (cons 'unchecked-accessors __tmp51506))) + (__tmp51501 + (let ((__tmp51502 + (let ((__tmp51503 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51504_|)) (declare (not safe)) (cons 'unchecked-mutators - __tmp51429)))) + __tmp51503)))) (declare (not safe)) - (cons __tmp51428 '())))) + (cons __tmp51502 '())))) (declare (not safe)) - (cons __tmp51431 __tmp51427)))) + (cons __tmp51505 __tmp51501)))) (declare (not safe)) - (cons __tmp51434 __tmp51426)))) + (cons __tmp51508 __tmp51500)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51437 - __tmp51425)))) + (cons __tmp51511 + __tmp51499)))) (declare (not safe)) - (cons __tmp51440 __tmp51424)))) + (cons __tmp51514 __tmp51498)))) (declare (not safe)) - (cons __tmp51443 __tmp51423)))) + (cons __tmp51517 __tmp51497)))) (declare (not safe)) - (cons __tmp51446 __tmp51422)))) + (cons __tmp51520 __tmp51496)))) (declare (not safe)) - (cons __tmp51449 __tmp51421)))) + (cons __tmp51523 __tmp51495)))) (declare (not safe)) - (cons __tmp51452 __tmp51420)))) + (cons __tmp51526 __tmp51494)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51454 - __tmp51419)))) + (cons __tmp51528 + __tmp51493)))) (declare (not safe)) - (cons __tmp51457 __tmp51418)))) + (cons __tmp51531 __tmp51492)))) (declare (not safe)) - (cons __tmp51460 __tmp51417)))) + (cons __tmp51534 __tmp51491)))) (declare (not safe)) - (cons __tmp51463 __tmp51416)))) + (cons __tmp51537 __tmp51490)))) (declare (not safe)) - (cons __tmp51466 __tmp51415)))) + (cons __tmp51540 __tmp51489)))) (declare (not safe)) - (cons __tmp51469 __tmp51414)))) + (cons __tmp51543 __tmp51488)))) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51413 + __tmp51487 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51472 - (let ((__tmp51529 - (let ((__tmp51530 |gerbil/core$<MOP>$<MOP:3>[1]#_g51531_|)) + (let ((__tmp51546 + (let ((__tmp51603 + (let ((__tmp51604 |gerbil/core$<MOP>$<MOP:3>[1]#_g51605_|)) (declare (not safe)) - (cons 'id __tmp51530))) - (__tmp51473 - (let ((__tmp51526 - (let ((__tmp51527 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51528_|)) + (cons 'id __tmp51604))) + (__tmp51547 + (let ((__tmp51600 + (let ((__tmp51601 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51602_|)) (declare (not safe)) - (cons 'name __tmp51527))) - (__tmp51474 - (let ((__tmp51523 - (let ((__tmp51524 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51525_|)) + (cons 'name __tmp51601))) + (__tmp51548 + (let ((__tmp51597 + (let ((__tmp51598 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51599_|)) (declare (not safe)) - (cons 'super __tmp51524))) - (__tmp51475 - (let ((__tmp51520 - (let ((__tmp51521 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51522_|)) + (cons 'super __tmp51598))) + (__tmp51549 + (let ((__tmp51594 + (let ((__tmp51595 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51596_|)) (declare (not safe)) - (cons 'slots __tmp51521))) - (__tmp51476 - (let ((__tmp51517 - (let ((__tmp51518 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51519_|)) + (cons 'slots __tmp51595))) + (__tmp51550 + (let ((__tmp51591 + (let ((__tmp51592 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51593_|)) (declare (not safe)) - (cons 'struct? __tmp51518))) - (__tmp51477 - (let ((__tmp51514 - (let ((__tmp51515 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51516_|)) + (cons 'struct? __tmp51592))) + (__tmp51551 + (let ((__tmp51588 + (let ((__tmp51589 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51590_|)) (declare (not safe)) (cons 'final? - __tmp51515))) - (__tmp51478 - (let ((__tmp51511 - (let ((__tmp51512 + __tmp51589))) + (__tmp51552 + (let ((__tmp51585 + (let ((__tmp51586 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$<MOP>$<MOP:3>[1]#_g51513_|)) + |gerbil/core$<MOP>$<MOP:3>[1]#_g51587_|)) (declare (not safe)) - (cons 'metaclass __tmp51512))) - (__tmp51479 - (let ((__tmp51508 - (let ((__tmp51509 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51510_|)) + (cons 'metaclass __tmp51586))) + (__tmp51553 + (let ((__tmp51582 + (let ((__tmp51583 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51584_|)) (declare (not safe)) - (cons 'constructor-method __tmp51509))) - (__tmp51480 - (let ((__tmp51505 - (let ((__tmp51506 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51507_|)) + (cons 'constructor-method __tmp51583))) + (__tmp51554 + (let ((__tmp51579 + (let ((__tmp51580 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51581_|)) (declare (not safe)) - (cons 'type-descriptor __tmp51506))) - (__tmp51481 - (let ((__tmp51502 - (let ((__tmp51503 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51504_|)) + (cons 'type-descriptor __tmp51580))) + (__tmp51555 + (let ((__tmp51576 + (let ((__tmp51577 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51578_|)) (declare (not safe)) - (cons 'constructor __tmp51503))) - (__tmp51482 - (let ((__tmp51499 - (let ((__tmp51500 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51501_|)) + (cons 'constructor __tmp51577))) + (__tmp51556 + (let ((__tmp51573 + (let ((__tmp51574 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51575_|)) (declare (not safe)) (cons 'predicate - __tmp51500))) - (__tmp51483 - (let ((__tmp51496 - (let ((__tmp51497 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51498_|)) + __tmp51574))) + (__tmp51557 + (let ((__tmp51570 + (let ((__tmp51571 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51572_|)) (declare (not safe)) (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp51497))) - (__tmp51484 - (let ((__tmp51493 - (let ((__tmp51494 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51495_|)) + __tmp51571))) + (__tmp51558 + (let ((__tmp51567 + (let ((__tmp51568 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51569_|)) (declare (not safe)) - (cons 'mutators __tmp51494))) - (__tmp51485 - (let ((__tmp51490 - (let ((__tmp51491 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51492_|)) + (cons 'mutators __tmp51568))) + (__tmp51559 + (let ((__tmp51564 + (let ((__tmp51565 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51566_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp51491))) - (__tmp51486 - (let ((__tmp51487 - (let ((__tmp51488 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51489_|)) + (cons 'unchecked-accessors __tmp51565))) + (__tmp51560 + (let ((__tmp51561 + (let ((__tmp51562 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51563_|)) (declare (not safe)) (cons 'unchecked-mutators - __tmp51488)))) + __tmp51562)))) (declare (not safe)) - (cons __tmp51487 '())))) + (cons __tmp51561 '())))) (declare (not safe)) - (cons __tmp51490 __tmp51486)))) + (cons __tmp51564 __tmp51560)))) (declare (not safe)) - (cons __tmp51493 __tmp51485)))) + (cons __tmp51567 __tmp51559)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51496 - __tmp51484)))) + (cons __tmp51570 + __tmp51558)))) (declare (not safe)) - (cons __tmp51499 __tmp51483)))) + (cons __tmp51573 __tmp51557)))) (declare (not safe)) - (cons __tmp51502 __tmp51482)))) + (cons __tmp51576 __tmp51556)))) (declare (not safe)) - (cons __tmp51505 __tmp51481)))) + (cons __tmp51579 __tmp51555)))) (declare (not safe)) - (cons __tmp51508 __tmp51480)))) + (cons __tmp51582 __tmp51554)))) (declare (not safe)) - (cons __tmp51511 __tmp51479)))) + (cons __tmp51585 __tmp51553)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51514 - __tmp51478)))) + (cons __tmp51588 + __tmp51552)))) (declare (not safe)) - (cons __tmp51517 __tmp51477)))) + (cons __tmp51591 __tmp51551)))) (declare (not safe)) - (cons __tmp51520 __tmp51476)))) + (cons __tmp51594 __tmp51550)))) (declare (not safe)) - (cons __tmp51523 __tmp51475)))) + (cons __tmp51597 __tmp51549)))) (declare (not safe)) - (cons __tmp51526 __tmp51474)))) + (cons __tmp51600 __tmp51548)))) (declare (not safe)) - (cons __tmp51529 __tmp51473)))) + (cons __tmp51603 __tmp51547)))) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51472 + __tmp51546 '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 42b90d30..3e000b31 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]#_g51850_| + (define |gerbil/core$<MOP>$<MOP:4>[1]#_g51924_| (##structure gx#syntax-quote::t '@method @@ -32,7 +32,7 @@ (gx#stx-source _stx19359_)))) (_make-id19368_ (if (uninterned-symbol? (gx#stx-e _id19361_)) - (lambda _g51532_ (gx#genident _id19361_)) + (lambda _g51606_ (gx#genident _id19361_)) (lambda _args21569_ (apply gx#stx-identifier _id19361_ _args21569_)))) (_get-mixin-slots19369_ @@ -54,11 +54,11 @@ (hash-get _tab21547_ _slot21564_)) - (let ((__tmp51535 + (let ((__tmp51609 (cdr _rest21560_))) (declare (not safe)) (_lp21557_ - __tmp51535 + __tmp51609 _r21562_)) (begin (let () @@ -67,40 +67,40 @@ _tab21547_ _slot21564_ '#t)) - (let ((__tmp51534 + (let ((__tmp51608 (cdr _rest21560_)) - (__tmp51533 + (__tmp51607 (let () (declare (not safe)) (cons _slot21564_ _r21562_)))) (declare (not safe)) (_lp21557_ - __tmp51534 - __tmp51533))))) + __tmp51608 + __tmp51607))))) (reverse _r21562_)))))) (gx#stx-for-each (lambda (_slot21551_) - (let ((__tmp51536 (gx#stx-e _slot21551_))) + (let ((__tmp51610 (gx#stx-e _slot21551_))) (declare (not safe)) - (hash-put! _tab21547_ __tmp51536 '#t))) + (hash-put! _tab21547_ __tmp51610 '#t))) _slots21545_) (if (let () (declare (not safe)) (not _super21543_)) '() (if (gx#identifier? _super21543_) - (let ((__tmp51538 + (let ((__tmp51612 (let () (declare (not safe)) (_get-mixin-slots-r19370_ _super21543_)))) (declare (not safe)) - (_dedup21549_ __tmp51538)) - (let ((__tmp51537 + (_dedup21549_ __tmp51612)) + (let ((__tmp51611 (concatenate (map _get-mixin-slots-r19370_ _super21543_)))) (declare (not safe)) - (_dedup21549_ __tmp51537))))))) + (_dedup21549_ __tmp51611))))))) (_get-mixin-slots-r19370_ (lambda (_type-id21537_) (let ((_info21540_ @@ -206,28 +206,28 @@ (lambda (_g1952519545_) (if (gx#stx-pair/null? _g1952519545_) - (let ((_g51539_ + (let ((_g51613_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1952519545_ '0))) (begin - (let ((_g51540_ + (let ((_g51614_ (let () (declare (not safe)) - (if (##values? _g51539_) - (##vector-length _g51539_) + (if (##values? _g51613_) + (##vector-length _g51613_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51540_ 2))) - (error "Context expects 2 values" _g51540_))) + (##fx= _g51614_ 2))) + (error "Context expects 2 values" _g51614_))) (let ((_target1952719548_ (let () (declare (not safe)) - (##vector-ref _g51539_ 0))) + (##vector-ref _g51613_ 0))) (_tl1952919551_ (let () (declare (not safe)) - (##vector-ref _g51539_ 1)))) + (##vector-ref _g51613_ 1)))) (if (gx#stx-null? _tl1952919551_) (letrec ((_loop1953019554_ (lambda (_hd1952819558_ @@ -244,7 +244,7 @@ (let () (declare (not safe)) (##cdr _e1953119564_)))) - (let ((__tmp51789 + (let ((__tmp51863 (let () (declare (not safe)) (cons _lp-hd1953219568_ @@ -252,7 +252,7 @@ (declare (not safe)) (_loop1953019554_ _lp-tl1953319571_ - __tmp51789)))) + __tmp51863)))) (let ((_slot1953519574_ (reverse _slot1953419561_))) ((lambda (_L19578_) @@ -268,28 +268,28 @@ (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1959619616_) - (let ((_g51541_ + (let ((_g51615_ (gx#syntax-split-splice _g1959619616_ '0))) (begin - (let ((_g51542_ + (let ((_g51616_ (let () (declare (not safe)) - (if (##values? _g51541_) - (##vector-length _g51541_) + (if (##values? _g51615_) + (##vector-length _g51615_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51542_ 2))) + (##fx= _g51616_ 2))) (error "Context expects 2 values" - _g51542_))) + _g51616_))) (let ((_target1959819619_ (let () (declare (not safe)) - (##vector-ref _g51541_ 0))) + (##vector-ref _g51615_ 0))) (_tl1960019622_ (let () (declare (not safe)) - (##vector-ref _g51541_ 1)))) + (##vector-ref _g51615_ 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 ((__tmp51787 + (let ((__tmp51861 (let () (declare (not safe)) (cons _lp-hd1960319639_ _getf1960519632_)))) (declare (not safe)) - (_loop1960119625_ _lp-tl1960419642_ __tmp51787)))) + (_loop1960119625_ _lp-tl1960419642_ __tmp51861)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_getf1960619645_ (reverse _getf1960519632_))) @@ -328,30 +328,30 @@ (_g1966521495_ (lambda (_g1966719687_) (if (gx#stx-pair/null? _g1966719687_) - (let ((_g51543_ + (let ((_g51617_ (gx#syntax-split-splice _g1966719687_ '0))) (begin - (let ((_g51544_ + (let ((_g51618_ (let () (declare (not safe)) - (if (##values? _g51543_) - (##vector-length _g51543_) + (if (##values? _g51617_) + (##vector-length _g51617_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51544_ 2))) + (##fx= _g51618_ 2))) (error "Context expects 2 values" - _g51544_))) + _g51618_))) (let ((_target1966919690_ (let () (declare (not safe)) - (##vector-ref _g51543_ 0))) + (##vector-ref _g51617_ 0))) (_tl1967119693_ (let () (declare (not safe)) - (##vector-ref _g51543_ 1)))) + (##vector-ref _g51617_ 1)))) (if (gx#stx-null? _tl1967119693_) (letrec ((_loop1967219696_ (lambda (_hd1967019700_ @@ -369,12 +369,12 @@ (let () (declare (not safe)) (##cdr _e1967319706_)))) - (let ((__tmp51785 + (let ((__tmp51859 (let () (declare (not safe)) (cons _lp-hd1967419710_ _setf1967619703_)))) (declare (not safe)) - (_loop1967219696_ _lp-tl1967519713_ __tmp51785)))) + (_loop1967219696_ _lp-tl1967519713_ __tmp51859)))) (let ((_setf1967719716_ (reverse _setf1967619703_))) ((lambda (_L19720_) (let () @@ -393,34 +393,34 @@ (_g1973921491_ (lambda (_g1974119761_) (if (gx#stx-pair/null? _g1974119761_) - (let ((_g51545_ + (let ((_g51619_ (gx#syntax-split-splice _g1974119761_ '0))) (begin - (let ((_g51546_ + (let ((_g51620_ (let () (declare (not safe)) - (if (##values? _g51545_) + (if (##values? _g51619_) (##vector-length - _g51545_) + _g51619_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51546_ 2))) + (##fx= _g51620_ 2))) (error "Context expects 2 values" - _g51546_))) + _g51620_))) (let ((_target1974319764_ (let () (declare (not safe)) (##vector-ref - _g51545_ + _g51619_ 0))) (_tl1974519767_ (let () (declare (not safe)) (##vector-ref - _g51545_ + _g51619_ 1)))) (if (gx#stx-null? _tl1974519767_) (letrec ((_loop1974619770_ @@ -437,7 +437,7 @@ (let () (declare (not safe)) (##cdr _e1974719780_)))) - (let ((__tmp51784 + (let ((__tmp51858 (let () (declare (not safe)) (cons _lp-hd1974819784_ @@ -445,7 +445,7 @@ (declare (not safe)) (_loop1974619770_ _lp-tl1974919787_ - __tmp51784)))) + __tmp51858)))) (let ((_mixin-slot1975119790_ (reverse _mixin-slot1975019777_))) ((lambda (_L19794_) @@ -460,41 +460,41 @@ (lambda (_g1981319833_) (if (gx#stx-pair/null? _g1981319833_) - (let ((_g51547_ + (let ((_g51621_ (gx#syntax-split-splice _g1981319833_ '0))) (begin - (let ((_g51548_ + (let ((_g51622_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g51547_) - (##vector-length _g51547_) + _g51621_) + (##vector-length _g51621_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g51548_ 2))) - (error "Context expects 2 values" _g51548_))) + (##fx= _g51622_ 2))) + (error "Context expects 2 values" _g51622_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1981519836_ (let () (declare (not safe)) (##vector-ref - _g51547_ + _g51621_ 0))) (_tl1981719839_ (let () (declare (not safe)) (##vector-ref - _g51547_ + _g51621_ 1)))) (if (gx#stx-null? _tl1981719839_) @@ -512,7 +512,7 @@ (let () (declare (not safe)) (##cdr _e1981919852_)))) - (let ((__tmp51782 + (let ((__tmp51856 (let () (declare (not safe)) (cons _lp-hd1982019856_ @@ -520,7 +520,7 @@ (declare (not safe)) (_loop1981819842_ _lp-tl1982119859_ - __tmp51782)))) + __tmp51856)))) (let ((_mixin-getf1982319862_ (reverse _mixin-getf1982219849_))) ((lambda (_L19866_) @@ -535,28 +535,28 @@ (lambda (_g1988419904_) (if (gx#stx-pair/null? _g1988419904_) - (let ((_g51549_ + (let ((_g51623_ (gx#syntax-split-splice _g1988419904_ '0))) (begin - (let ((_g51550_ + (let ((_g51624_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g51549_) - (##vector-length _g51549_) + (if (##values? _g51623_) + (##vector-length _g51623_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g51550_ 2))) - (error "Context expects 2 values" _g51550_))) + (if (not (let () (declare (not safe)) (##fx= _g51624_ 2))) + (error "Context expects 2 values" _g51624_))) (let ((_target1988619907_ (let () (declare (not safe)) - (##vector-ref _g51549_ 0))) + (##vector-ref _g51623_ 0))) (_tl1988819910_ (let () (declare (not safe)) - (##vector-ref _g51549_ 1)))) + (##vector-ref _g51623_ 1)))) (if (gx#stx-null? _tl1988819910_) (letrec ((_loop1988919913_ (lambda (_hd1988719917_ @@ -572,7 +572,7 @@ (let () (declare (not safe)) (##cdr _e1989019923_)))) - (let ((__tmp51780 + (let ((__tmp51854 (let () (declare (not safe)) (cons _lp-hd1989119927_ @@ -580,7 +580,7 @@ (declare (not safe)) (_loop1988919913_ _lp-tl1989219930_ - __tmp51780)))) + __tmp51854)))) (let ((_mixin-setf1989419933_ (reverse _mixin-setf1989319920_))) ((lambda (_L19937_) @@ -595,28 +595,28 @@ (lambda (_g1995519975_) (if (gx#stx-pair/null? _g1995519975_) - (let ((_g51551_ + (let ((_g51625_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1995519975_ '0))) (begin - (let ((_g51552_ + (let ((_g51626_ (let () (declare (not safe)) - (if (##values? _g51551_) - (##vector-length _g51551_) + (if (##values? _g51625_) + (##vector-length _g51625_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51552_ 2))) - (error "Context expects 2 values" _g51552_))) + (##fx= _g51626_ 2))) + (error "Context expects 2 values" _g51626_))) (let ((_target1995719978_ (let () (declare (not safe)) - (##vector-ref _g51551_ 0))) + (##vector-ref _g51625_ 0))) (_tl1995919981_ (let () (declare (not safe)) - (##vector-ref _g51551_ 1)))) + (##vector-ref _g51625_ 1)))) (if (gx#stx-null? _tl1995919981_) (letrec ((_loop1996019984_ (lambda (_hd1995819988_ @@ -633,7 +633,7 @@ (let () (declare (not safe)) (##cdr _e1996119994_)))) - (let ((__tmp51778 + (let ((__tmp51852 (let () (declare (not safe)) @@ -644,7 +644,7 @@ (declare (not safe)) (_loop1996019984_ _lp-tl1996320001_ - __tmp51778)))) + __tmp51852)))) (let ((_ugetf1996520004_ (reverse _ugetf1996419991_))) ((lambda (_L20008_) @@ -659,28 +659,28 @@ (_g2002421439_ (lambda (_g2002620046_) (if (gx#stx-pair/null? _g2002620046_) - (let ((_g51553_ + (let ((_g51627_ (gx#syntax-split-splice _g2002620046_ '0))) (begin - (let ((_g51554_ + (let ((_g51628_ (let () (declare (not safe)) - (if (##values? _g51553_) - (##vector-length _g51553_) + (if (##values? _g51627_) + (##vector-length _g51627_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51554_ 2))) + (##fx= _g51628_ 2))) (error "Context expects 2 values" - _g51554_))) + _g51628_))) (let ((_target2002820049_ (let () (declare (not safe)) - (##vector-ref _g51553_ 0))) + (##vector-ref _g51627_ 0))) (_tl2003020052_ (let () (declare (not safe)) - (##vector-ref _g51553_ 1)))) + (##vector-ref _g51627_ 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 ((__tmp51776 + (let ((__tmp51850 (let () (declare (not safe)) (cons _lp-hd2003320069_ _usetf2003520062_)))) (declare (not safe)) - (_loop2003120055_ _lp-tl2003420072_ __tmp51776)))) + (_loop2003120055_ _lp-tl2003420072_ __tmp51850)))) (let ((_usetf2003620075_ (reverse _usetf2003520062_))) ((lambda (_L20079_) (let () @@ -715,30 +715,30 @@ (_g2009521422_ (lambda (_g2009720117_) (if (gx#stx-pair/null? _g2009720117_) - (let ((_g51555_ + (let ((_g51629_ (gx#syntax-split-splice _g2009720117_ '0))) (begin - (let ((_g51556_ + (let ((_g51630_ (let () (declare (not safe)) - (if (##values? _g51555_) - (##vector-length _g51555_) + (if (##values? _g51629_) + (##vector-length _g51629_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51556_ 2))) + (##fx= _g51630_ 2))) (error "Context expects 2 values" - _g51556_))) + _g51630_))) (let ((_target2009920120_ (let () (declare (not safe)) - (##vector-ref _g51555_ 0))) + (##vector-ref _g51629_ 0))) (_tl2010120123_ (let () (declare (not safe)) - (##vector-ref _g51555_ 1)))) + (##vector-ref _g51629_ 1)))) (if (gx#stx-null? _tl2010120123_) (letrec ((_loop2010220126_ (lambda (_hd2010020130_ @@ -756,13 +756,13 @@ (let () (declare (not safe)) (##cdr _e2010320136_)))) - (let ((__tmp51774 + (let ((__tmp51848 (let () (declare (not safe)) (cons _lp-hd2010420140_ _mixin-ugetf2010620133_)))) (declare (not safe)) - (_loop2010220126_ _lp-tl2010520143_ __tmp51774)))) + (_loop2010220126_ _lp-tl2010520143_ __tmp51848)))) (let ((_mixin-ugetf2010720146_ (reverse _mixin-ugetf2010620133_))) ((lambda (_L20150_) @@ -776,34 +776,34 @@ (_g2016621405_ (lambda (_g2016820188_) (if (gx#stx-pair/null? _g2016820188_) - (let ((_g51557_ + (let ((_g51631_ (gx#syntax-split-splice _g2016820188_ '0))) (begin - (let ((_g51558_ + (let ((_g51632_ (let () (declare (not safe)) - (if (##values? _g51557_) + (if (##values? _g51631_) (##vector-length - _g51557_) + _g51631_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51558_ 2))) + (##fx= _g51632_ 2))) (error "Context expects 2 values" - _g51558_))) + _g51632_))) (let ((_target2017020191_ (let () (declare (not safe)) (##vector-ref - _g51557_ + _g51631_ 0))) (_tl2017220194_ (let () (declare (not safe)) (##vector-ref - _g51557_ + _g51631_ 1)))) (if (gx#stx-null? _tl2017220194_) @@ -821,7 +821,7 @@ (let () (declare (not safe)) (##cdr _e2017420207_)))) - (let ((__tmp51772 + (let ((__tmp51846 (let () (declare (not safe)) (cons _lp-hd2017520211_ @@ -829,7 +829,7 @@ (declare (not safe)) (_loop2017320197_ _lp-tl2017620214_ - __tmp51772)))) + __tmp51846)))) (let ((_mixin-usetf2017820217_ (reverse _mixin-usetf2017720204_))) ((lambda (_L20221_) @@ -837,8 +837,8 @@ (let* ((_type-slots20252_ (if (gx#stx-null? _slots19363_) '() - (let ((__tmp51559 - (let ((__tmp51560 + (let ((__tmp51633 + (let ((__tmp51634 (begin (gx#syntax-check-splice-targets _L19720_ @@ -849,35 +849,35 @@ _g2023820245_ _g2023920247_ _g2024020249_) - (let ((__tmp51561 - (let ((__tmp51562 - (let ((__tmp51563 + (let ((__tmp51635 + (let ((__tmp51636 + (let ((__tmp51637 (let () (declare (not safe)) (cons _g2023720242_ '())))) (declare (not safe)) (cons _g2023820245_ - __tmp51563)))) + __tmp51637)))) (declare (not safe)) - (cons _g2023920247_ __tmp51562)))) + (cons _g2023920247_ __tmp51636)))) (declare (not safe)) - (cons __tmp51561 _g2024020249_))) + (cons __tmp51635 _g2024020249_))) '() _L19720_ _L19649_ _L19578_)))) (declare (not safe)) - (cons __tmp51560 '())))) + (cons __tmp51634 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'slots: __tmp51559)))) + (cons 'slots: __tmp51633)))) (_type-mixin-slots20269_ (if (gx#stx-null? _mixin-slots19737_) '() - (let ((__tmp51564 - (let ((__tmp51565 + (let ((__tmp51638 + (let ((__tmp51639 (begin (gx#syntax-check-splice-targets _L19937_ @@ -888,32 +888,32 @@ _g2025520262_ _g2025620264_ _g2025720266_) - (let ((__tmp51566 - (let ((__tmp51567 - (let ((__tmp51568 + (let ((__tmp51640 + (let ((__tmp51641 + (let ((__tmp51642 (let () (declare (not safe)) (cons _g2025420259_ '())))) (declare (not safe)) (cons _g2025520262_ - __tmp51568)))) + __tmp51642)))) (declare (not safe)) - (cons _g2025620264_ __tmp51567)))) + (cons _g2025620264_ __tmp51641)))) (declare (not safe)) - (cons __tmp51566 _g2025720266_))) + (cons __tmp51640 _g2025720266_))) '() _L19937_ _L19866_ _L19794_)))) (declare (not safe)) - (cons __tmp51565 '())))) + (cons __tmp51639 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'mixin: __tmp51564)))) + (cons 'mixin: __tmp51638)))) (_type-name20276_ - (let ((__tmp51569 - (let ((__tmp51570 + (let ((__tmp51643 + (let ((__tmp51644 (let ((_$e20272_ (gx#stx-getq ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -922,12 +922,12 @@ (if _$e20272_ _$e20272_ _id19361_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51570 '())))) + (cons __tmp51644 '())))) (declare (not safe)) - (cons 'name: __tmp51569))) + (cons 'name: __tmp51643))) (_type-id20283_ - (let ((__tmp51571 - (let ((__tmp51572 + (let ((__tmp51645 + (let ((__tmp51646 (let ((_$e20279_ (gx#stx-getq ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -941,9 +941,9 @@ _L19396_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51572 '())))) + (cons __tmp51646 '())))) (declare (not safe)) - (cons 'id: __tmp51571))) + (cons 'id: __tmp51645))) (_type-constructor20298_ (let ((_$e20294_ (let ((_e2028520287_ @@ -953,13 +953,13 @@ (if _e2028520287_ (let* ((_e20291_ _e2028520287_) - (__tmp51573 + (__tmp51647 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _e20291_ '())))) (declare (not safe)) - (cons 'constructor: __tmp51573)) + (cons 'constructor: __tmp51647)) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if _$e20294_ _$e20294_ '()))) @@ -969,14 +969,14 @@ (gx#stx-getq 'transparent: _body19364_)) - (let ((__tmp51574 + (let ((__tmp51648 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons 'transparent: '#t)))) (declare (not safe)) - (cons __tmp51574 '())) + (cons __tmp51648 '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_properties20314_ @@ -994,12 +994,12 @@ (eq? _print20308_ '#t)) _slots19363_ _print20308_)) - (__tmp51575 + (__tmp51649 (let () (declare (not safe)) (cons 'print: _print20311_)))) (declare (not safe)) - (cons __tmp51575 _properties20301_))) + (cons __tmp51649 _properties20301_))) _$e20304_) _properties20301_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1018,12 +1018,12 @@ (eq? _equal20321_ '#t)) _slots19363_ _equal20321_)) - (__tmp51576 + (__tmp51650 (let () (declare (not safe)) (cons 'equal: _equal20324_)))) (declare (not safe)) - (cons __tmp51576 _properties20314_))) + (cons __tmp51650 _properties20314_))) _$e20317_) _properties20314_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1043,21 +1043,21 @@ (lambda (_g2033620347_) ((lambda (_L20350_) (let () - (let ((__tmp51577 + (let ((__tmp51651 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51578 - (let ((__tmp51580 + (let ((__tmp51652 + (let ((__tmp51654 (gx#datum->syntax '#f 'quote)) - (__tmp51579 + (__tmp51653 (let () (declare (not safe)) (cons _L20350_ '())))) (declare (not safe)) - (cons __tmp51580 __tmp51579)))) + (cons __tmp51654 __tmp51653)))) (declare (not safe)) - (cons __tmp51578 '())))) + (cons __tmp51652 '())))) (declare (not safe)) - (cons 'properties: __tmp51577)))) + (cons 'properties: __tmp51651)))) _g2033620347_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) @@ -1078,32 +1078,32 @@ '#f))) (_type-metaclass20386_ (if _metaclass20383_ - (let ((__tmp51581 + (let ((__tmp51655 (let () (declare (not safe)) (cons _metaclass20383_ '())))) (declare (not safe)) - (cons 'metaclass: __tmp51581)) + (cons 'metaclass: __tmp51655)) '())) (_final?20389_ (gx#stx-e (gx#stx-getq 'final: _body19364_))) (_type-struct20392_ - (let ((__tmp51582 + (let ((__tmp51656 (let () (declare (not safe)) (cons _struct?19378_ '())))) (declare (not safe)) - (cons 'struct: __tmp51582))) + (cons 'struct: __tmp51656))) (_type-final20395_ - (let ((__tmp51583 + (let ((__tmp51657 (let () (declare (not safe)) (cons _final?20389_ '())))) (declare (not safe)) - (cons 'final: __tmp51583))) + (cons 'final: __tmp51657))) (_g2039820415_ (lambda (_g2039920411_) (gx#raise-syntax-error @@ -1114,36 +1114,36 @@ (lambda (_g2039920419_) (if (gx#stx-pair/null? _g2039920419_) - (let ((_g51584_ + (let ((_g51658_ (gx#syntax-split-splice _g2039920419_ '0))) (begin - (let ((_g51585_ + (let ((_g51659_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g51584_) - (##vector-length _g51584_) + _g51658_) + (##vector-length _g51658_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g51585_ 2))) - (error "Context expects 2 values" _g51585_))) + (if (not (let () (declare (not safe)) (##fx= _g51659_ 2))) + (error "Context expects 2 values" _g51659_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2040120422_ (let () (declare (not safe)) (##vector-ref - _g51584_ + _g51658_ 0))) (_tl2040320425_ (let () (declare (not safe)) (##vector-ref - _g51584_ + _g51658_ 1)))) (if (gx#stx-null? _tl2040320425_) @@ -1161,7 +1161,7 @@ (let () (declare (not safe)) (##cdr _e2040520438_)))) - (let ((__tmp51770 + (let ((__tmp51844 (let () (declare (not safe)) (cons _lp-hd2040620442_ @@ -1169,7 +1169,7 @@ (declare (not safe)) (_loop2040420428_ _lp-tl2040720445_ - __tmp51770)))) + __tmp51844)))) (let ((_type-body2040920448_ (reverse _type-body2040820435_))) ((lambda (_L20452_) @@ -1351,158 +1351,158 @@ ((lambda (_L20936_) (let () (let () - (let ((__tmp51586 + (let ((__tmp51660 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51589 (gx#datum->syntax '#f 'begin)) - (__tmp51587 - (let ((__tmp51588 + (let ((__tmp51663 (gx#datum->syntax '#f 'begin)) + (__tmp51661 + (let ((__tmp51662 (let () (declare (not safe)) (cons _L20936_ '())))) (declare (not safe)) - (cons _L20488_ __tmp51588)))) + (cons _L20488_ __tmp51662)))) (declare (not safe)) - (cons __tmp51589 __tmp51587)))) + (cons __tmp51663 __tmp51661)))) (declare (not safe)) - (_wrap19366_ __tmp51586))))) + (_wrap19366_ __tmp51660))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2092220933_))) - (__tmp51590 - (let ((__tmp51591 - (let ((__tmp51626 + (__tmp51664 + (let ((__tmp51665 + (let ((__tmp51700 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'defsyntax)) - (__tmp51592 - (let ((__tmp51593 - (let ((__tmp51594 - (let ((__tmp51625 + (__tmp51666 + (let ((__tmp51667 + (let ((__tmp51668 + (let ((__tmp51699 (gx#datum->syntax '#f 'make-class-type-info)) - (__tmp51595 - (let ((__tmp51596 - (let ((__tmp51597 - (let ((__tmp51598 + (__tmp51669 + (let ((__tmp51670 + (let ((__tmp51671 + (let ((__tmp51672 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51599 - (let ((__tmp51600 - (let ((__tmp51601 - (let ((__tmp51602 - (let ((__tmp51603 - (let ((__tmp51604 + (let ((__tmp51673 + (let ((__tmp51674 + (let ((__tmp51675 + (let ((__tmp51676 + (let ((__tmp51677 + (let ((__tmp51678 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51605 - (let ((__tmp51606 - (let ((__tmp51607 - (let ((__tmp51608 - (let ((__tmp51609 - (let ((__tmp51610 + (let ((__tmp51679 + (let ((__tmp51680 + (let ((__tmp51681 + (let ((__tmp51682 + (let ((__tmp51683 + (let ((__tmp51684 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51611 - (let ((__tmp51612 - (let ((__tmp51613 - (let ((__tmp51614 - (let ((__tmp51615 + (let ((__tmp51685 + (let ((__tmp51686 + (let ((__tmp51687 + (let ((__tmp51688 + (let ((__tmp51689 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51616 - (let ((__tmp51617 - (let ((__tmp51618 - (let ((__tmp51619 - (let ((__tmp51620 - (let ((__tmp51621 + (let ((__tmp51690 + (let ((__tmp51691 + (let ((__tmp51692 + (let ((__tmp51693 + (let ((__tmp51694 + (let ((__tmp51695 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51622 - (let ((__tmp51623 - (let ((__tmp51624 + (let ((__tmp51696 + (let ((__tmp51697 + (let ((__tmp51698 (let () (declare (not safe)) (cons _L20908_ '())))) (declare (not safe)) (cons 'unchecked-mutators: - __tmp51624)))) + __tmp51698)))) (declare (not safe)) - (cons _L20880_ __tmp51623)))) + (cons _L20880_ __tmp51697)))) (declare (not safe)) - (cons 'unchecked-accessors: __tmp51622)))) + (cons 'unchecked-accessors: __tmp51696)))) (declare (not safe)) - (cons _L20852_ __tmp51621)))) + (cons _L20852_ __tmp51695)))) (declare (not safe)) - (cons 'mutators: __tmp51620)))) + (cons 'mutators: __tmp51694)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L20824_ __tmp51619)))) + (cons _L20824_ __tmp51693)))) (declare (not safe)) - (cons 'accessors: __tmp51618)))) + (cons 'accessors: __tmp51692)))) (declare (not safe)) - (cons _L20796_ __tmp51617)))) + (cons _L20796_ __tmp51691)))) (declare (not safe)) - (cons 'predicate: __tmp51616)))) + (cons 'predicate: __tmp51690)))) (declare (not safe)) - (cons _L20768_ __tmp51615)))) + (cons _L20768_ __tmp51689)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'constructor: - __tmp51614)))) + __tmp51688)))) (declare (not safe)) - (cons _L20740_ __tmp51613)))) + (cons _L20740_ __tmp51687)))) (declare (not safe)) - (cons 'type-descriptor: __tmp51612)))) + (cons 'type-descriptor: __tmp51686)))) (declare (not safe)) - (cons _L20712_ __tmp51611)))) + (cons _L20712_ __tmp51685)))) (declare (not safe)) - (cons 'constructor-method: __tmp51610)))) + (cons 'constructor-method: __tmp51684)))) (declare (not safe)) - (cons _L20684_ __tmp51609)))) + (cons _L20684_ __tmp51683)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'metaclass: - __tmp51608)))) + __tmp51682)))) (declare (not safe)) - (cons _L20656_ __tmp51607)))) + (cons _L20656_ __tmp51681)))) (declare (not safe)) - (cons 'final?: __tmp51606)))) + (cons 'final?: __tmp51680)))) (declare (not safe)) - (cons _L20628_ __tmp51605)))) + (cons _L20628_ __tmp51679)))) (declare (not safe)) - (cons 'struct?: __tmp51604)))) + (cons 'struct?: __tmp51678)))) (declare (not safe)) - (cons _L20572_ __tmp51603)))) + (cons _L20572_ __tmp51677)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'super: __tmp51602)))) + (cons 'super: __tmp51676)))) (declare (not safe)) - (cons _L20600_ __tmp51601)))) + (cons _L20600_ __tmp51675)))) (declare (not safe)) - (cons 'slots: __tmp51600)))) + (cons 'slots: __tmp51674)))) (declare (not safe)) - (cons _L20544_ __tmp51599)))) + (cons _L20544_ __tmp51673)))) (declare (not safe)) - (cons 'name: __tmp51598)))) + (cons 'name: __tmp51672)))) (declare (not safe)) - (cons _L20516_ __tmp51597)))) + (cons _L20516_ __tmp51671)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'id: __tmp51596)))) + (cons 'id: __tmp51670)))) (declare (not safe)) - (cons __tmp51625 __tmp51595)))) + (cons __tmp51699 __tmp51669)))) (declare (not safe)) - (cons __tmp51594 '())))) + (cons __tmp51668 '())))) (declare (not safe)) - (cons _L19396_ __tmp51593)))) + (cons _L19396_ __tmp51667)))) (declare (not safe)) - (cons __tmp51626 __tmp51592)))) + (cons __tmp51700 __tmp51666)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap19366_ __tmp51591)))) + (_wrap19366_ __tmp51665)))) (declare (not safe)) - (_g2092020951_ __tmp51590)))) + (_g2092020951_ __tmp51664)))) _g2089420905_))) - (__tmp51627 - (let ((__tmp51651 + (__tmp51701 + (let ((__tmp51725 (gx#datum->syntax '#f '@list)) - (__tmp51628 + (__tmp51702 (begin (gx#syntax-check-splice-targets _L20079_ @@ -1510,45 +1510,45 @@ (foldr (lambda (_g2095820965_ _g2095920968_ _g2096020970_) - (let ((__tmp51629 - (let ((__tmp51639 + (let ((__tmp51703 + (let ((__tmp51713 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '@list)) - (__tmp51630 - (let ((__tmp51636 - (let ((__tmp51638 + (__tmp51704 + (let ((__tmp51710 + (let ((__tmp51712 (gx#datum->syntax '#f 'quote)) - (__tmp51637 + (__tmp51711 (let () (declare (not safe)) (cons _g2095920968_ '())))) (declare (not safe)) - (cons __tmp51638 __tmp51637))) - (__tmp51631 - (let ((__tmp51632 - (let ((__tmp51633 - (let ((__tmp51635 + (cons __tmp51712 __tmp51711))) + (__tmp51705 + (let ((__tmp51706 + (let ((__tmp51707 + (let ((__tmp51709 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51634 + (__tmp51708 (let () (declare (not safe)) (cons _g2095820965_ '())))) (declare (not safe)) - (cons __tmp51635 - __tmp51634)))) + (cons __tmp51709 + __tmp51708)))) (declare (not safe)) - (cons __tmp51633 '())))) + (cons __tmp51707 '())))) (declare (not safe)) - (cons ':: __tmp51632)))) + (cons ':: __tmp51706)))) (declare (not safe)) - (cons __tmp51636 __tmp51631)))) + (cons __tmp51710 __tmp51705)))) (declare (not safe)) - (cons __tmp51639 __tmp51630)))) + (cons __tmp51713 __tmp51704)))) (declare (not safe)) - (cons __tmp51629 _g2096020970_))) + (cons __tmp51703 _g2096020970_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets @@ -1558,45 +1558,45 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2096220976_ _g2096320978_) - (let ((__tmp51640 - (let ((__tmp51650 (gx#datum->syntax '#f '@list)) - (__tmp51641 - (let ((__tmp51647 - (let ((__tmp51649 + (let ((__tmp51714 + (let ((__tmp51724 (gx#datum->syntax '#f '@list)) + (__tmp51715 + (let ((__tmp51721 + (let ((__tmp51723 (gx#datum->syntax '#f 'quote)) - (__tmp51648 + (__tmp51722 (let () (declare (not safe)) (cons _g2096220976_ '())))) (declare (not safe)) - (cons __tmp51649 __tmp51648))) - (__tmp51642 - (let ((__tmp51643 - (let ((__tmp51644 - (let ((__tmp51646 + (cons __tmp51723 __tmp51722))) + (__tmp51716 + (let ((__tmp51717 + (let ((__tmp51718 + (let ((__tmp51720 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax)) - (__tmp51645 + (__tmp51719 (let () (declare (not safe)) (cons _g2096120973_ '())))) (declare (not safe)) - (cons __tmp51646 __tmp51645)))) + (cons __tmp51720 __tmp51719)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51644 '())))) + (cons __tmp51718 '())))) (declare (not safe)) - (cons ':: __tmp51643)))) + (cons ':: __tmp51717)))) (declare (not safe)) - (cons __tmp51647 __tmp51642)))) + (cons __tmp51721 __tmp51716)))) (declare (not safe)) - (cons __tmp51650 __tmp51641)))) + (cons __tmp51724 __tmp51715)))) (declare (not safe)) - (cons __tmp51640 _g2096320978_))) + (cons __tmp51714 _g2096320978_))) '() _L20221_ _L19794_)) @@ -1604,56 +1604,56 @@ _L20079_ _L19578_)))) (declare (not safe)) - (cons __tmp51651 __tmp51628)))) + (cons __tmp51725 __tmp51702)))) (declare (not safe)) - (_g2089220955_ __tmp51627)))) + (_g2089220955_ __tmp51701)))) _g2086620877_))) - (__tmp51652 - (let ((__tmp51676 (gx#datum->syntax '#f '@list)) - (__tmp51653 + (__tmp51726 + (let ((__tmp51750 (gx#datum->syntax '#f '@list)) + (__tmp51727 (begin (gx#syntax-check-splice-targets _L20008_ _L19578_) (foldr (lambda (_g2098420991_ _g2098520994_ _g2098620996_) - (let ((__tmp51654 - (let ((__tmp51664 + (let ((__tmp51728 + (let ((__tmp51738 (gx#datum->syntax '#f '@list)) - (__tmp51655 - (let ((__tmp51661 - (let ((__tmp51663 + (__tmp51729 + (let ((__tmp51735 + (let ((__tmp51737 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp51662 + (__tmp51736 (let () (declare (not safe)) (cons _g2098520994_ '())))) (declare (not safe)) - (cons __tmp51663 __tmp51662))) - (__tmp51656 - (let ((__tmp51657 - (let ((__tmp51658 - (let ((__tmp51660 + (cons __tmp51737 __tmp51736))) + (__tmp51730 + (let ((__tmp51731 + (let ((__tmp51732 + (let ((__tmp51734 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51659 + (__tmp51733 (let () (declare (not safe)) (cons _g2098420991_ '())))) (declare (not safe)) - (cons __tmp51660 __tmp51659)))) + (cons __tmp51734 __tmp51733)))) (declare (not safe)) - (cons __tmp51658 '())))) + (cons __tmp51732 '())))) (declare (not safe)) - (cons ':: __tmp51657)))) + (cons ':: __tmp51731)))) (declare (not safe)) - (cons __tmp51661 __tmp51656)))) + (cons __tmp51735 __tmp51730)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51664 __tmp51655)))) + (cons __tmp51738 __tmp51729)))) (declare (not safe)) - (cons __tmp51654 _g2098620996_))) + (cons __tmp51728 _g2098620996_))) (begin (gx#syntax-check-splice-targets _L20150_ @@ -1661,45 +1661,45 @@ (foldr (lambda (_g2098720999_ _g2098821002_ _g2098921004_) - (let ((__tmp51665 - (let ((__tmp51675 + (let ((__tmp51739 + (let ((__tmp51749 (gx#datum->syntax '#f '@list)) - (__tmp51666 - (let ((__tmp51672 + (__tmp51740 + (let ((__tmp51746 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51674 (gx#datum->syntax '#f 'quote)) - (__tmp51673 + (let ((__tmp51748 (gx#datum->syntax '#f 'quote)) + (__tmp51747 (let () (declare (not safe)) (cons _g2098821002_ '())))) (declare (not safe)) - (cons __tmp51674 __tmp51673))) - (__tmp51667 - (let ((__tmp51668 - (let ((__tmp51669 - (let ((__tmp51671 + (cons __tmp51748 __tmp51747))) + (__tmp51741 + (let ((__tmp51742 + (let ((__tmp51743 + (let ((__tmp51745 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51670 + (__tmp51744 (let () (declare (not safe)) (cons _g2098720999_ '())))) (declare (not safe)) - (cons __tmp51671 __tmp51670)))) + (cons __tmp51745 __tmp51744)))) (declare (not safe)) - (cons __tmp51669 '())))) + (cons __tmp51743 '())))) (declare (not safe)) - (cons ':: __tmp51668)))) + (cons ':: __tmp51742)))) (declare (not safe)) - (cons __tmp51672 __tmp51667)))) + (cons __tmp51746 __tmp51741)))) (declare (not safe)) - (cons __tmp51675 __tmp51666)))) + (cons __tmp51749 __tmp51740)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51665 + (cons __tmp51739 _g2098921004_))) '() _L20150_ @@ -1707,17 +1707,17 @@ _L20008_ _L19578_)))) (declare (not safe)) - (cons __tmp51676 __tmp51653)))) + (cons __tmp51750 __tmp51727)))) (declare (not safe)) - (_g2086420981_ __tmp51652)))) + (_g2086420981_ __tmp51726)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2083820849_))) - (__tmp51677 - (let ((__tmp51701 + (__tmp51751 + (let ((__tmp51775 (gx#datum->syntax '#f '@list)) - (__tmp51678 + (__tmp51752 (begin (gx#syntax-check-splice-targets _L19720_ @@ -1726,59 +1726,59 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2101121020_ _g2101221022_) - (let ((__tmp51679 - (let ((__tmp51689 (gx#datum->syntax '#f '@list)) - (__tmp51680 - (let ((__tmp51686 - (let ((__tmp51688 + (let ((__tmp51753 + (let ((__tmp51763 (gx#datum->syntax '#f '@list)) + (__tmp51754 + (let ((__tmp51760 + (let ((__tmp51762 (gx#datum->syntax '#f 'quote)) - (__tmp51687 + (__tmp51761 (let () (declare (not safe)) (cons _g2101121020_ '())))) (declare (not safe)) - (cons __tmp51688 __tmp51687))) - (__tmp51681 - (let ((__tmp51682 - (let ((__tmp51683 - (let ((__tmp51685 + (cons __tmp51762 __tmp51761))) + (__tmp51755 + (let ((__tmp51756 + (let ((__tmp51757 + (let ((__tmp51759 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51684 + (__tmp51758 (let () (declare (not safe)) (cons _g2101021017_ '())))) (declare (not safe)) - (cons __tmp51685 __tmp51684)))) + (cons __tmp51759 __tmp51758)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51683 '())))) + (cons __tmp51757 '())))) (declare (not safe)) - (cons ':: __tmp51682)))) + (cons ':: __tmp51756)))) (declare (not safe)) - (cons __tmp51686 __tmp51681)))) + (cons __tmp51760 __tmp51755)))) (declare (not safe)) - (cons __tmp51689 __tmp51680)))) + (cons __tmp51763 __tmp51754)))) (declare (not safe)) - (cons __tmp51679 _g2101221022_))) + (cons __tmp51753 _g2101221022_))) (begin (gx#syntax-check-splice-targets _L19937_ _L19794_) (foldr (lambda (_g2101321025_ _g2101421028_ _g2101521030_) - (let ((__tmp51690 - (let ((__tmp51700 + (let ((__tmp51764 + (let ((__tmp51774 (gx#datum->syntax '#f '@list)) - (__tmp51691 - (let ((__tmp51697 - (let ((__tmp51699 + (__tmp51765 + (let ((__tmp51771 + (let ((__tmp51773 (gx#datum->syntax '#f 'quote)) - (__tmp51698 + (__tmp51772 (let () (declare (not safe)) @@ -1786,31 +1786,31 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp51699 __tmp51698))) + (cons __tmp51773 __tmp51772))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp51692 - (let ((__tmp51693 - (let ((__tmp51694 + (__tmp51766 + (let ((__tmp51767 + (let ((__tmp51768 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51696 + (let ((__tmp51770 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51695 + (__tmp51769 (let () (declare (not safe)) (cons _g2101321025_ '())))) (declare (not safe)) - (cons __tmp51696 __tmp51695)))) + (cons __tmp51770 __tmp51769)))) (declare (not safe)) - (cons __tmp51694 '())))) + (cons __tmp51768 '())))) (declare (not safe)) - (cons ':: __tmp51693)))) + (cons ':: __tmp51767)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51697 __tmp51692)))) + (cons __tmp51771 __tmp51766)))) (declare (not safe)) - (cons __tmp51700 __tmp51691)))) + (cons __tmp51774 __tmp51765)))) (declare (not safe)) - (cons __tmp51690 _g2101521030_))) + (cons __tmp51764 _g2101521030_))) '() _L19937_ _L19794_)) @@ -1818,13 +1818,13 @@ _L19578_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51701 __tmp51678)))) + (cons __tmp51775 __tmp51752)))) (declare (not safe)) - (_g2083621007_ __tmp51677)))) + (_g2083621007_ __tmp51751)))) _g2081020821_))) - (__tmp51702 - (let ((__tmp51726 (gx#datum->syntax '#f '@list)) - (__tmp51703 + (__tmp51776 + (let ((__tmp51800 (gx#datum->syntax '#f '@list)) + (__tmp51777 (begin (gx#syntax-check-splice-targets _L19649_ @@ -1832,45 +1832,45 @@ (foldr (lambda (_g2103621043_ _g2103721046_ _g2103821048_) - (let ((__tmp51704 - (let ((__tmp51714 + (let ((__tmp51778 + (let ((__tmp51788 (gx#datum->syntax '#f '@list)) - (__tmp51705 - (let ((__tmp51711 + (__tmp51779 + (let ((__tmp51785 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51713 (gx#datum->syntax '#f 'quote)) - (__tmp51712 + (let ((__tmp51787 (gx#datum->syntax '#f 'quote)) + (__tmp51786 (let () (declare (not safe)) (cons _g2103721046_ '())))) (declare (not safe)) - (cons __tmp51713 __tmp51712))) - (__tmp51706 - (let ((__tmp51707 - (let ((__tmp51708 - (let ((__tmp51710 + (cons __tmp51787 __tmp51786))) + (__tmp51780 + (let ((__tmp51781 + (let ((__tmp51782 + (let ((__tmp51784 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51709 + (__tmp51783 (let () (declare (not safe)) (cons _g2103621043_ '())))) (declare (not safe)) - (cons __tmp51710 __tmp51709)))) + (cons __tmp51784 __tmp51783)))) (declare (not safe)) - (cons __tmp51708 '())))) + (cons __tmp51782 '())))) (declare (not safe)) - (cons ':: __tmp51707)))) + (cons ':: __tmp51781)))) (declare (not safe)) - (cons __tmp51711 __tmp51706)))) + (cons __tmp51785 __tmp51780)))) (declare (not safe)) - (cons __tmp51714 __tmp51705)))) + (cons __tmp51788 __tmp51779)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51704 + (cons __tmp51778 _g2103821048_))) (begin (gx#syntax-check-splice-targets @@ -1879,28 +1879,28 @@ (foldr (lambda (_g2103921051_ _g2104021054_ _g2104121056_) - (let ((__tmp51715 - (let ((__tmp51725 + (let ((__tmp51789 + (let ((__tmp51799 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '@list)) - (__tmp51716 - (let ((__tmp51722 - (let ((__tmp51724 + (__tmp51790 + (let ((__tmp51796 + (let ((__tmp51798 (gx#datum->syntax '#f 'quote)) - (__tmp51723 + (__tmp51797 (let () (declare (not safe)) (cons _g2104021054_ '())))) (declare (not safe)) - (cons __tmp51724 __tmp51723))) - (__tmp51717 - (let ((__tmp51718 - (let ((__tmp51719 - (let ((__tmp51721 + (cons __tmp51798 __tmp51797))) + (__tmp51791 + (let ((__tmp51792 + (let ((__tmp51793 + (let ((__tmp51795 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51720 + (__tmp51794 (let () (declare (not safe)) @@ -1908,18 +1908,18 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp51721 __tmp51720)))) + (cons __tmp51795 __tmp51794)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51719 '())))) + (cons __tmp51793 '())))) (declare (not safe)) - (cons ':: __tmp51718)))) + (cons ':: __tmp51792)))) (declare (not safe)) - (cons __tmp51722 __tmp51717)))) + (cons __tmp51796 __tmp51791)))) (declare (not safe)) - (cons __tmp51725 __tmp51716)))) + (cons __tmp51799 __tmp51790)))) (declare (not safe)) - (cons __tmp51715 _g2104121056_))) + (cons __tmp51789 _g2104121056_))) '() _L19866_ _L19794_)) @@ -1927,48 +1927,48 @@ _L19649_ _L19578_)))) (declare (not safe)) - (cons __tmp51726 __tmp51703)))) + (cons __tmp51800 __tmp51777)))) (declare (not safe)) - (_g2080821033_ __tmp51702)))) + (_g2080821033_ __tmp51776)))) _g2078220793_))) - (__tmp51727 - (let ((__tmp51729 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51728 + (__tmp51801 + (let ((__tmp51803 (gx#datum->syntax '#f 'quote-syntax)) + (__tmp51802 (let () (declare (not safe)) (cons _L19483_ '())))) (declare (not safe)) - (cons __tmp51729 __tmp51728)))) + (cons __tmp51803 __tmp51802)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2078021059_ __tmp51727)))) + (_g2078021059_ __tmp51801)))) _g2075420765_))) - (__tmp51730 - (let ((__tmp51732 + (__tmp51804 + (let ((__tmp51806 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51731 + (__tmp51805 (let () (declare (not safe)) (cons _L19455_ '())))) (declare (not safe)) - (cons __tmp51732 __tmp51731)))) + (cons __tmp51806 __tmp51805)))) (declare (not safe)) - (_g2075221063_ __tmp51730)))) + (_g2075221063_ __tmp51804)))) _g2072620737_))) - (__tmp51733 - (let ((__tmp51735 + (__tmp51807 + (let ((__tmp51809 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51734 + (__tmp51808 (let () (declare (not safe)) (cons _L19427_ '())))) (declare (not safe)) - (cons __tmp51735 __tmp51734)))) + (cons __tmp51809 __tmp51808)))) (declare (not safe)) - (_g2072421067_ __tmp51733)))) + (_g2072421067_ __tmp51807)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2069820709_))) - (__tmp51736 + (__tmp51810 (if (let () (declare (not safe)) (null? _type-constructor20298_)) @@ -2015,13 +2015,13 @@ _tl2108221118_) ((lambda (_L21121_) (let () - (let ((__tmp51738 + (let ((__tmp51812 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp51737 + (__tmp51811 (let () (declare (not safe)) (cons _L21121_ '())))) (declare (not safe)) - (cons __tmp51738 __tmp51737)))) + (cons __tmp51812 __tmp51811)))) _hd2108321115_) (let () (declare (not safe)) (_g2107521090_ _g2107621094_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2041,9 +2041,9 @@ (_g2107421138_ _type-constructor20298_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2069621071_ __tmp51736)))) + (_g2069621071_ __tmp51810)))) _g2067020681_))) - (__tmp51739 + (__tmp51813 (if _metaclass20383_ (let* ((_g2114621154_ (lambda (_g2114721150_) @@ -2055,25 +2055,25 @@ (lambda (_g2114721158_) ((lambda (_L21161_) (let () - (let ((__tmp51741 + (let ((__tmp51815 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51740 + (__tmp51814 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L21161_ '())))) (declare (not safe)) - (cons __tmp51741 __tmp51740)))) + (cons __tmp51815 __tmp51814)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2114721158_)))) (declare (not safe)) (_g2114521173_ _metaclass20383_)) '#f))) (declare (not safe)) - (_g2066821142_ __tmp51739)))) + (_g2066821142_ __tmp51813)))) _g2064220653_)))) (declare (not safe)) (_g2064021177_ _final?20389_)))) @@ -2082,10 +2082,10 @@ (declare (not safe)) (_g2061221181_ _struct?19378_)))) _g2058620597_))) - (__tmp51742 - (let ((__tmp51745 (gx#datum->syntax '#f 'quote)) - (__tmp51743 - (let ((__tmp51744 + (__tmp51816 + (let ((__tmp51819 (gx#datum->syntax '#f 'quote)) + (__tmp51817 + (let ((__tmp51818 (foldr (lambda (_g2118821191_ _g2118921194_) (let () @@ -2095,13 +2095,13 @@ '() _L19578_))) (declare (not safe)) - (cons __tmp51744 '())))) + (cons __tmp51818 '())))) (declare (not safe)) - (cons __tmp51745 __tmp51743)))) + (cons __tmp51819 __tmp51817)))) (declare (not safe)) - (_g2058421185_ __tmp51742)))) + (_g2058421185_ __tmp51816)))) _g2055820569_))) - (__tmp51746 + (__tmp51820 (let* ((_g2120121218_ (lambda (_g2120221214_) (gx#raise-syntax-error @@ -2111,28 +2111,28 @@ (_g2120021279_ (lambda (_g2120221222_) (if (gx#stx-pair/null? _g2120221222_) - (let ((_g51747_ + (let ((_g51821_ (gx#syntax-split-splice _g2120221222_ '0))) (begin - (let ((_g51748_ + (let ((_g51822_ (let () (declare (not safe)) - (if (##values? _g51747_) - (##vector-length _g51747_) + (if (##values? _g51821_) + (##vector-length _g51821_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51748_ 2))) + (##fx= _g51822_ 2))) (error "Context expects 2 values" - _g51748_))) + _g51822_))) (let ((_target2120421225_ (let () (declare (not safe)) - (##vector-ref _g51747_ 0))) + (##vector-ref _g51821_ 0))) (_tl2120621228_ (let () (declare (not safe)) - (##vector-ref _g51747_ 1)))) + (##vector-ref _g51821_ 1)))) (if (gx#stx-null? _tl2120621228_) (letrec ((_loop2120721231_ (lambda (_hd2120521235_ @@ -2149,36 +2149,36 @@ (##car _e2120821241_))) (_lp-tl2121021248_ (let () (declare (not safe)) (##cdr _e2120821241_)))) - (let ((__tmp51754 + (let ((__tmp51828 (let () (declare (not safe)) (cons _lp-hd2120921245_ _super-id2121121238_)))) (declare (not safe)) - (_loop2120721231_ _lp-tl2121021248_ __tmp51754)))) + (_loop2120721231_ _lp-tl2121021248_ __tmp51828)))) (let ((_super-id2121221251_ (reverse _super-id2121121238_))) ((lambda (_L21255_) (let () - (let ((__tmp51753 (gx#datum->syntax '#f '@list)) - (__tmp51749 + (let ((__tmp51827 (gx#datum->syntax '#f '@list)) + (__tmp51823 (foldr (lambda (_g2127021273_ _g2127121276_) - (let ((__tmp51750 - (let ((__tmp51752 + (let ((__tmp51824 + (let ((__tmp51826 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51751 + (__tmp51825 (let () (declare (not safe)) (cons _g2127021273_ '())))) (declare (not safe)) - (cons __tmp51752 __tmp51751)))) + (cons __tmp51826 __tmp51825)))) (declare (not safe)) - (cons __tmp51750 _g2127121276_))) + (cons __tmp51824 _g2127121276_))) '() _L21255_))) (declare (not safe)) - (cons __tmp51753 __tmp51749)))) + (cons __tmp51827 __tmp51823)))) _super-id2121221251_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2196,9 +2196,9 @@ (_g2120021279_ _super-ref19362_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2055621197_ __tmp51746)))) + (_g2055621197_ __tmp51820)))) _g2053020541_))) - (__tmp51755 + (__tmp51829 (let* ((_g2128721295_ (lambda (_g2128821291_) (gx#raise-syntax-error @@ -2209,28 +2209,28 @@ (lambda (_g2128821299_) ((lambda (_L21302_) (let () - (let ((__tmp51757 + (let ((__tmp51831 (gx#datum->syntax '#f 'quote)) - (__tmp51756 + (__tmp51830 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L21302_ '())))) (declare (not safe)) - (cons __tmp51757 __tmp51756)))) + (cons __tmp51831 __tmp51830)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2128821299_))) - (__tmp51758 + (__tmp51832 (cadr _type-name20276_))) (declare (not safe)) - (_g2128621314_ __tmp51758)))) + (_g2128621314_ __tmp51832)))) (declare (not safe)) - (_g2052821283_ __tmp51755)))) + (_g2052821283_ __tmp51829)))) _g2050220513_))) - (__tmp51759 + (__tmp51833 (let* ((_g2132221337_ (lambda (_g2132321333_) (gx#raise-syntax-error @@ -2271,13 +2271,13 @@ (if (gx#stx-null? _tl2132921365_) ((lambda (_L21368_) (let () - (let ((__tmp51761 (gx#datum->syntax '#f 'quote)) - (__tmp51760 + (let ((__tmp51835 (gx#datum->syntax '#f 'quote)) + (__tmp51834 (let () (declare (not safe)) (cons _L21368_ '())))) (declare (not safe)) - (cons __tmp51761 __tmp51760)))) + (cons __tmp51835 __tmp51834)))) _hd2133021362_) (let () (declare (not safe)) @@ -2298,21 +2298,21 @@ (declare (not safe)) (_g2132121385_ _type-id20283_)))) (declare (not safe)) - (_g2050021318_ __tmp51759)))) + (_g2050021318_ __tmp51833)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2047420485_))) - (__tmp51762 - (let ((__tmp51763 - (let ((__tmp51769 + (__tmp51836 + (let ((__tmp51837 + (let ((__tmp51843 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'defclass-type)) - (__tmp51764 - (let ((__tmp51765 - (let ((__tmp51766 - (let ((__tmp51767 - (let ((__tmp51768 + (__tmp51838 + (let ((__tmp51839 + (let ((__tmp51840 + (let ((__tmp51841 + (let ((__tmp51842 (foldr (lambda (_g2139221395_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2139321398_) @@ -2323,20 +2323,20 @@ _L20452_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L19483_ __tmp51768)))) + (cons _L19483_ __tmp51842)))) (declare (not safe)) - (cons _L19455_ __tmp51767)))) + (cons _L19455_ __tmp51841)))) (declare (not safe)) - (cons _L19511_ __tmp51766)))) + (cons _L19511_ __tmp51840)))) (declare (not safe)) - (cons _L19427_ __tmp51765)))) + (cons _L19427_ __tmp51839)))) (declare (not safe)) - (cons __tmp51769 __tmp51764)))) + (cons __tmp51843 __tmp51838)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap19366_ __tmp51763)))) + (_wrap19366_ __tmp51837)))) (declare (not safe)) - (_g2047221389_ __tmp51762)))) + (_g2047221389_ __tmp51836)))) _type-body2040920448_)))))) (let () (declare (not safe)) @@ -2349,7 +2349,7 @@ (declare (not safe)) (_g2039820415_ _g2039920419_))))) - (__tmp51771 + (__tmp51845 (foldr cons (foldr cons (foldr cons @@ -2370,7 +2370,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _type-id20283_))) (declare (not safe)) - (_g2039721401_ __tmp51771)))) + (_g2039721401_ __tmp51845)))) _mixin-usetf2017820217_)))))) (let () (declare (not safe)) @@ -2383,7 +2383,7 @@ (let () (declare (not safe)) (_g2016720184_ _g2016820188_))))) - (__tmp51773 + (__tmp51847 (gx#stx-map (lambda (_g2140821410_) (_make-id19368_ '"&" _g2140821410_)) @@ -2396,7 +2396,7 @@ '() _L19937_)))) (declare (not safe)) - (_g2016621405_ __tmp51773)))) + (_g2016621405_ __tmp51847)))) _mixin-ugetf2010720146_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2411,7 +2411,7 @@ (let () (declare (not safe)) (_g2009620113_ _g2009720117_))))) - (__tmp51775 + (__tmp51849 (gx#stx-map (lambda (_g2142521427_) (_make-id19368_ '"&" _g2142521427_)) @@ -2422,7 +2422,7 @@ '() _L19866_)))) (declare (not safe)) - (_g2009521422_ __tmp51775)))) + (_g2009521422_ __tmp51849)))) _usetf2003620075_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2436,7 +2436,7 @@ (let () (declare (not safe)) (_g2002520042_ _g2002620046_))))) - (__tmp51777 + (__tmp51851 (gx#stx-map (lambda (_g2144221444_) (_make-id19368_ '"&" _g2144221444_)) @@ -2447,7 +2447,7 @@ '() _L19720_)))) (declare (not safe)) - (_g2002421439_ __tmp51777)))) + (_g2002421439_ __tmp51851)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _ugetf1996520004_)))))) (let () @@ -2459,7 +2459,7 @@ (let () (declare (not safe)) (_g1995419971_ _g1995519975_))))) - (__tmp51779 + (__tmp51853 (gx#stx-map (lambda (_g2145921461_) (_make-id19368_ '"&" _g2145921461_)) (foldr (lambda (_g2146421467_ _g2146521470_) @@ -2470,7 +2470,7 @@ _L19649_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1995321456_ __tmp51779)))) + (_g1995321456_ __tmp51853)))) _mixin-setf1989419933_)))))) (let () (declare (not safe)) @@ -2480,7 +2480,7 @@ (_g1988319900_ _g1988419904_)))))) (let () (declare (not safe)) (_g1988319900_ _g1988419904_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp51781 + (__tmp51855 (gx#stx-map (lambda (_g2147621478_) (_make-id19368_ @@ -2490,7 +2490,7 @@ '"-set!")) _mixin-slots19737_))) (declare (not safe)) - (_g1988221473_ __tmp51781)))) + (_g1988221473_ __tmp51855)))) _mixin-getf1982319862_)))))) (let () (declare (not safe)) @@ -2503,7 +2503,7 @@ (declare (not safe)) (_g1981219829_ _g1981319833_))))) - (__tmp51783 + (__tmp51857 (gx#stx-map (lambda (_g2148521487_) (_make-id19368_ @@ -2512,7 +2512,7 @@ _g2148521487_)) _mixin-slots19737_))) (declare (not safe)) - (_g1981121482_ __tmp51783)))) + (_g1981121482_ __tmp51857)))) _mixin-slot1975119790_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2542,7 +2542,7 @@ (let () (declare (not safe)) (_g1966619683_ _g1966719687_))))) - (__tmp51786 + (__tmp51860 (gx#stx-map (lambda (_g2149821500_) (_make-id19368_ @@ -2552,7 +2552,7 @@ '"-set!")) _slots19363_))) (declare (not safe)) - (_g1966521495_ __tmp51786)))) + (_g1966521495_ __tmp51860)))) _getf1960619645_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2566,13 +2566,13 @@ (let () (declare (not safe)) (_g1959519612_ _g1959619616_))))) - (__tmp51788 + (__tmp51862 (gx#stx-map (lambda (_g2150721509_) (_make-id19368_ _name19372_ '"-" _g2150721509_)) _slots19363_))) (declare (not safe)) - (_g1959421504_ __tmp51788)))) + (_g1959421504_ __tmp51862)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _slot1953519574_)))))) (let () @@ -2588,28 +2588,28 @@ (declare (not safe)) (_g1952321513_ _slots19363_)))) _g1949719508_))) - (__tmp51790 + (__tmp51864 (map gerbil/core$<MOP>$<MOP:2>#!class-type-descriptor _super19375_))) (declare (not safe)) - (_g1949521517_ __tmp51790)))) + (_g1949521517_ __tmp51864)))) _g1946919480_))) - (__tmp51791 (_make-id19368_ _name19372_ '"?"))) + (__tmp51865 (_make-id19368_ _name19372_ '"?"))) (declare (not safe)) - (_g1946721521_ __tmp51791)))) + (_g1946721521_ __tmp51865)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1944119452_))) - (__tmp51792 + (__tmp51866 (_make-id19368_ '"make-" _name19372_))) (declare (not safe)) - (_g1943921525_ __tmp51792)))) + (_g1943921525_ __tmp51866)))) _g1941319424_))) - (__tmp51793 + (__tmp51867 (_make-id19368_ _name19372_ '"::t"))) (declare (not safe)) - (_g1941121529_ __tmp51793)))) + (_g1941121529_ __tmp51867)))) _g1938219393_)))) (declare (not safe)) (_g1938021533_ _id19361_))))) @@ -2656,27 +2656,27 @@ (declare (not safe)) (##cdr _e2161421647_)))) ((lambda (_L21657_ _L21659_ _L21660_) - (let ((__tmp51798 + (let ((__tmp51872 (gx#datum->syntax '#f 'defclass)) - (__tmp51794 - (let ((__tmp51795 - (let ((__tmp51796 + (__tmp51868 + (let ((__tmp51869 + (let ((__tmp51870 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51797 + (let ((__tmp51871 (let () (declare (not safe)) (cons '#t _L21657_)))) (declare (not safe)) - (cons 'struct: __tmp51797)))) + (cons 'struct: __tmp51871)))) (declare (not safe)) - (cons _L21659_ __tmp51796)))) + (cons _L21659_ __tmp51870)))) (declare (not safe)) - (cons _L21660_ __tmp51795)))) + (cons _L21660_ __tmp51869)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51798 __tmp51794))) + (cons __tmp51872 __tmp51868))) _tl2161221654_ _hd2161321651_ _hd2161021641_))) @@ -2697,12 +2697,12 @@ ___stx4659246593_)))) (let ((___kont4659546596_ (lambda (_L21814_ _L21816_) - (let ((__tmp51799 (gx#syntax->list _L21814_))) + (let ((__tmp51873 (gx#syntax->list _L21814_))) (declare (not safe)) (|gerbil/core$<MOP>$<MOP:4>[1]#generate-defclass| _stx21681_ _L21816_ - __tmp51799 + __tmp51873 _slots21770_ _body21771_)))) (___kont4659746598_ @@ -2862,7 +2862,7 @@ (##cdr _e2185421896_)))) (if (gx#identifier? _hd2185321900_) (if (gx#free-identifier=? - |gerbil/core$<MOP>$<MOP:4>[1]#_g51850_| + |gerbil/core$<MOP>$<MOP:4>[1]#_g51924_| _hd2185321900_) (if (gx#stx-pair? _tl2185221903_) @@ -2980,166 +2980,166 @@ (let () (let () (_wrap21836_ - (let ((__tmp51804 + (let ((__tmp51878 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin)) - (__tmp51802 - (let ((__tmp51803 + (__tmp51876 + (let ((__tmp51877 (let () (declare (not safe)) (cons _L22127_ '())))) (declare (not safe)) - (cons _L22071_ __tmp51803)))) + (cons _L22071_ __tmp51877)))) (declare (not safe)) - (cons __tmp51804 __tmp51802)))))) + (cons __tmp51878 __tmp51876)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2211322124_)))) (_g2211122142_ (_wrap21836_ - (let ((__tmp51812 + (let ((__tmp51886 (gx#datum->syntax '#f 'bind-method!)) - (__tmp51805 - (let ((__tmp51806 - (let ((__tmp51809 + (__tmp51879 + (let ((__tmp51880 + (let ((__tmp51883 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51811 (gx#datum->syntax '#f 'quote)) - (__tmp51810 + (let ((__tmp51885 (gx#datum->syntax '#f 'quote)) + (__tmp51884 (let () (declare (not safe)) (cons _L21940_ '())))) (declare (not safe)) - (cons __tmp51811 __tmp51810))) - (__tmp51807 - (let ((__tmp51808 + (cons __tmp51885 __tmp51884))) + (__tmp51881 + (let ((__tmp51882 (let () (declare (not safe)) (cons _L22099_ '())))) (declare (not safe)) - (cons _L22015_ __tmp51808)))) + (cons _L22015_ __tmp51882)))) (declare (not safe)) - (cons __tmp51809 __tmp51807)))) + (cons __tmp51883 __tmp51881)))) (declare (not safe)) - (cons _L21986_ __tmp51806)))) + (cons _L21986_ __tmp51880)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51812 - __tmp51805))))))) + (cons __tmp51886 + __tmp51879))))))) _g2208522096_)))) (_g2208322146_ _rebind?21968_)))) _g2205722068_)))) (_g2205522150_ (_wrap21836_ - (let ((__tmp51849 (gx#datum->syntax '#f 'def)) - (__tmp51813 - (let ((__tmp51814 - (let ((__tmp51815 - (let ((__tmp51848 + (let ((__tmp51923 (gx#datum->syntax '#f 'def)) + (__tmp51887 + (let ((__tmp51888 + (let ((__tmp51889 + (let ((__tmp51922 (gx#datum->syntax '#f 'let-syntax)) - (__tmp51816 - (let ((__tmp51818 - (let ((__tmp51819 - (let ((__tmp51820 + (__tmp51890 + (let ((__tmp51892 + (let ((__tmp51893 + (let ((__tmp51894 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51821 - (let ((__tmp51847 + (let ((__tmp51895 + (let ((__tmp51921 (gx#datum->syntax '#f 'syntax-rules)) - (__tmp51822 - (let ((__tmp51823 - (let ((__tmp51824 - (let ((__tmp51839 - (let ((__tmp51846 + (__tmp51896 + (let ((__tmp51897 + (let ((__tmp51898 + (let ((__tmp51913 + (let ((__tmp51920 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '_)) - (__tmp51840 - (let ((__tmp51845 (gx#datum->syntax '#f 'obj)) - (__tmp51841 - (let ((__tmp51844 + (__tmp51914 + (let ((__tmp51919 (gx#datum->syntax '#f 'obj)) + (__tmp51915 + (let ((__tmp51918 (gx#datum->syntax '#f 'arg)) - (__tmp51842 - (let ((__tmp51843 + (__tmp51916 + (let ((__tmp51917 (gx#datum->syntax '#f '...))) (declare (not safe)) - (cons __tmp51843 '())))) + (cons __tmp51917 '())))) (declare (not safe)) - (cons __tmp51844 __tmp51842)))) + (cons __tmp51918 __tmp51916)))) (declare (not safe)) - (cons __tmp51845 __tmp51841)))) + (cons __tmp51919 __tmp51915)))) (declare (not safe)) - (cons __tmp51846 __tmp51840))) - (__tmp51825 - (let ((__tmp51826 - (let ((__tmp51838 + (cons __tmp51920 __tmp51914))) + (__tmp51899 + (let ((__tmp51900 + (let ((__tmp51912 (gx#datum->syntax '#f 'call-next-method)) - (__tmp51827 - (let ((__tmp51828 - (let ((__tmp51837 + (__tmp51901 + (let ((__tmp51902 + (let ((__tmp51911 (gx#datum->syntax '#f 'obj)) - (__tmp51829 - (let ((__tmp51834 - (let ((__tmp51836 + (__tmp51903 + (let ((__tmp51908 + (let ((__tmp51910 (gx#datum->syntax '#f 'quote)) - (__tmp51835 + (__tmp51909 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L21940_ '())))) (declare (not safe)) - (cons __tmp51836 __tmp51835))) - (__tmp51830 - (let ((__tmp51833 (gx#datum->syntax '#f 'arg)) - (__tmp51831 - (let ((__tmp51832 (gx#datum->syntax '#f '...))) + (cons __tmp51910 __tmp51909))) + (__tmp51904 + (let ((__tmp51907 (gx#datum->syntax '#f 'arg)) + (__tmp51905 + (let ((__tmp51906 (gx#datum->syntax '#f '...))) (declare (not safe)) - (cons __tmp51832 '())))) + (cons __tmp51906 '())))) (declare (not safe)) - (cons __tmp51833 __tmp51831)))) + (cons __tmp51907 __tmp51905)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51834 - __tmp51830)))) + (cons __tmp51908 + __tmp51904)))) (declare (not safe)) - (cons __tmp51837 __tmp51829)))) + (cons __tmp51911 __tmp51903)))) (declare (not safe)) - (cons _L21986_ __tmp51828)))) + (cons _L21986_ __tmp51902)))) (declare (not safe)) - (cons __tmp51838 __tmp51827)))) + (cons __tmp51912 __tmp51901)))) (declare (not safe)) - (cons __tmp51826 '())))) + (cons __tmp51900 '())))) (declare (not safe)) - (cons __tmp51839 __tmp51825)))) + (cons __tmp51913 __tmp51899)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51824 '())))) + (cons __tmp51898 '())))) (declare (not safe)) - (cons '() __tmp51823)))) + (cons '() __tmp51897)))) (declare (not safe)) - (cons __tmp51847 __tmp51822)))) + (cons __tmp51921 __tmp51896)))) (declare (not safe)) - (cons __tmp51821 '())))) + (cons __tmp51895 '())))) (declare (not safe)) - (cons _L22043_ __tmp51820)))) + (cons _L22043_ __tmp51894)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51819 '()))) - (__tmp51817 + (cons __tmp51893 '()))) + (__tmp51891 (let () (declare (not safe)) (cons _L21938_ '())))) (declare (not safe)) - (cons __tmp51818 __tmp51817)))) + (cons __tmp51892 __tmp51891)))) (declare (not safe)) - (cons __tmp51848 __tmp51816)))) + (cons __tmp51922 __tmp51890)))) (declare (not safe)) - (cons __tmp51815 '())))) + (cons __tmp51889 '())))) (declare (not safe)) - (cons _L22015_ __tmp51814)))) + (cons _L22015_ __tmp51888)))) (declare (not safe)) - (cons __tmp51849 __tmp51813))))))) + (cons __tmp51923 __tmp51887))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2202922040_)))) (_g2202722154_ @@ -3174,17 +3174,17 @@ gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49631 'type-descriptor))))) - (if (let ((__tmp51801 + (if (let ((__tmp51875 (gx#identifier? _L21940_))) (declare (not safe)) - (not __tmp51801)) + (not __tmp51875)) (gx#raise-syntax-error '#f '"bad syntax; expected method identifier" _stx21833_ _L21940_) - (if (let ((__tmp51800 + (if (let ((__tmp51874 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -3192,7 +3192,7 @@ (gerbil/core$<MOP>$<MOP:2>#syntax-local-class-type-info?__0 _L21939_)))) (declare (not safe)) - (not __tmp51800)) + (not __tmp51874)) (gx#raise-syntax-error '#f '"bad syntax; expected type identifier" @@ -3238,17 +3238,17 @@ (let* ((_id-str22804_ (symbol->string (gx#stx-e _id22801_))) (_split22807_ (string-split _id-str22804_ '#\.))) - (let ((__tmp51853 + (let ((__tmp51927 (gx#stx-identifier _id22801_ (car _split22807_))) - (__tmp51851 - (let ((__tmp51852 + (__tmp51925 + (let ((__tmp51926 (gx#stx-identifier _id22801_ (cadr _split22807_)))) (declare (not safe)) - (cons __tmp51852 '())))) + (cons __tmp51926 '())))) (declare (not safe)) - (cons __tmp51853 __tmp51851)))))) + (cons __tmp51927 __tmp51925)))))) (let* ((___stx4660846609_ _stx22176_) (_g2218622273_ (lambda () @@ -3293,34 +3293,34 @@ _tl2273222764_) ((lambda (_L22767_ _L22769_) (let () - (let ((__tmp51865 + (let ((__tmp51939 (gx#datum->syntax '#f 'apply)) - (__tmp51854 - (let ((__tmp51864 + (__tmp51928 + (let ((__tmp51938 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'call-method)) - (__tmp51855 - (let ((__tmp51856 - (let ((__tmp51861 - (let ((__tmp51863 + (__tmp51929 + (let ((__tmp51930 + (let ((__tmp51935 + (let ((__tmp51937 (gx#datum->syntax '#f 'quote)) - (__tmp51862 + (__tmp51936 (let () (declare (not safe)) (cons _L22767_ '())))) (declare (not safe)) - (cons __tmp51863 __tmp51862))) - (__tmp51857 - (let ((__tmp51858 - (let ((__tmp51860 + (cons __tmp51937 __tmp51936))) + (__tmp51931 + (let ((__tmp51932 + (let ((__tmp51934 (gx#datum->syntax '#f '@list)) - (__tmp51859 + (__tmp51933 (foldr (lambda (_g2278422787_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2278522790_) @@ -3331,18 +3331,18 @@ _L22696_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51860 - __tmp51859)))) + (cons __tmp51934 + __tmp51933)))) (declare (not safe)) - (cons __tmp51858 '())))) + (cons __tmp51932 '())))) (declare (not safe)) - (cons __tmp51861 __tmp51857)))) + (cons __tmp51935 __tmp51931)))) (declare (not safe)) - (cons _L22769_ __tmp51856)))) + (cons _L22769_ __tmp51930)))) (declare (not safe)) - (cons __tmp51864 __tmp51855)))) + (cons __tmp51938 __tmp51929)))) (declare (not safe)) - (cons __tmp51865 __tmp51854)))) + (cons __tmp51939 __tmp51928)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd2273322761_ _hd2273022751_) @@ -3388,23 +3388,23 @@ _tl2256222594_) ((lambda (_L22597_ _L22599_) (let () - (let ((__tmp51872 + (let ((__tmp51946 (gx#datum->syntax '#f 'call-method)) - (__tmp51866 - (let ((__tmp51867 + (__tmp51940 + (let ((__tmp51941 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51869 - (let ((__tmp51871 + (let ((__tmp51943 + (let ((__tmp51945 (gx#datum->syntax '#f 'quote)) - (__tmp51870 + (__tmp51944 (let () (declare (not safe)) (cons _L22597_ '())))) (declare (not safe)) - (cons __tmp51871 __tmp51870))) - (__tmp51868 + (cons __tmp51945 __tmp51944))) + (__tmp51942 (foldr (lambda (_g2261422617_ _g2261522620_) (let () @@ -3414,11 +3414,11 @@ '() _L22536_))) (declare (not safe)) - (cons __tmp51869 __tmp51868)))) + (cons __tmp51943 __tmp51942)))) (declare (not safe)) - (cons _L22599_ __tmp51867)))) + (cons _L22599_ __tmp51941)))) (declare (not safe)) - (cons __tmp51872 __tmp51866)))) + (cons __tmp51946 __tmp51940)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd2256322591_ _hd2256022581_) @@ -3429,32 +3429,32 @@ (_g2255422623_ (_split-dotted22181_ _L22538_))))) (___kont4661946620_ (lambda (_L22440_ _L22442_ _L22443_) - (let ((__tmp51884 (gx#datum->syntax '#f 'apply)) - (__tmp51873 - (let ((__tmp51883 + (let ((__tmp51958 (gx#datum->syntax '#f 'apply)) + (__tmp51947 + (let ((__tmp51957 (gx#datum->syntax '#f 'call-method)) - (__tmp51874 - (let ((__tmp51875 - (let ((__tmp51880 - (let ((__tmp51882 + (__tmp51948 + (let ((__tmp51949 + (let ((__tmp51954 + (let ((__tmp51956 (gx#datum->syntax '#f 'quote)) - (__tmp51881 + (__tmp51955 (let () (declare (not safe)) (cons _L22443_ '())))) (declare (not safe)) - (cons __tmp51882 - __tmp51881))) - (__tmp51876 - (let ((__tmp51877 - (let ((__tmp51879 + (cons __tmp51956 + __tmp51955))) + (__tmp51950 + (let ((__tmp51951 + (let ((__tmp51953 (gx#datum->syntax '#f '@list)) - (__tmp51878 + (__tmp51952 (foldr (lambda (_g2247022473_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2247122476_) @@ -3464,33 +3464,33 @@ '() _L22440_))) (declare (not safe)) - (cons __tmp51879 __tmp51878)))) + (cons __tmp51953 __tmp51952)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51877 '())))) + (cons __tmp51951 '())))) (declare (not safe)) - (cons __tmp51880 __tmp51876)))) + (cons __tmp51954 __tmp51950)))) (declare (not safe)) - (cons _L22442_ __tmp51875)))) + (cons _L22442_ __tmp51949)))) (declare (not safe)) - (cons __tmp51883 __tmp51874)))) + (cons __tmp51957 __tmp51948)))) (declare (not safe)) - (cons __tmp51884 __tmp51873)))) + (cons __tmp51958 __tmp51947)))) (___kont4662346624_ (lambda (_L22340_ _L22342_ _L22343_) - (let ((__tmp51891 (gx#datum->syntax '#f 'call-method)) - (__tmp51885 - (let ((__tmp51886 - (let ((__tmp51888 - (let ((__tmp51890 + (let ((__tmp51965 (gx#datum->syntax '#f 'call-method)) + (__tmp51959 + (let ((__tmp51960 + (let ((__tmp51962 + (let ((__tmp51964 (gx#datum->syntax '#f 'quote)) - (__tmp51889 + (__tmp51963 (let () (declare (not safe)) (cons _L22343_ '())))) (declare (not safe)) - (cons __tmp51890 __tmp51889))) - (__tmp51887 + (cons __tmp51964 __tmp51963))) + (__tmp51961 (foldr (lambda (_g2236422367_ _g2236522370_) (let () @@ -3500,11 +3500,11 @@ '() _L22340_))) (declare (not safe)) - (cons __tmp51888 __tmp51887)))) + (cons __tmp51962 __tmp51961)))) (declare (not safe)) - (cons _L22342_ __tmp51886)))) + (cons _L22342_ __tmp51960)))) (declare (not safe)) - (cons __tmp51891 __tmp51885))))) + (cons __tmp51965 __tmp51959))))) (let* ((___match4672746728_ (lambda (_e2225222280_ _hd2225122284_ @@ -4224,38 +4224,38 @@ ___stx4673046731_)))) (let ((___kont4673346734_ (lambda (_L23008_ _L23010_) - (let ((__tmp51897 (gx#datum->syntax '#f 'slot-ref)) - (__tmp51892 - (let ((__tmp51893 - (let ((__tmp51894 - (let ((__tmp51896 + (let ((__tmp51971 (gx#datum->syntax '#f 'slot-ref)) + (__tmp51966 + (let ((__tmp51967 + (let ((__tmp51968 + (let ((__tmp51970 (gx#datum->syntax '#f 'quote)) - (__tmp51895 + (__tmp51969 (let () (declare (not safe)) (cons _L23008_ '())))) (declare (not safe)) - (cons __tmp51896 __tmp51895)))) + (cons __tmp51970 __tmp51969)))) (declare (not safe)) - (cons __tmp51894 '())))) + (cons __tmp51968 '())))) (declare (not safe)) - (cons _L23010_ __tmp51893)))) + (cons _L23010_ __tmp51967)))) (declare (not safe)) - (cons __tmp51897 __tmp51892)))) + (cons __tmp51971 __tmp51966)))) (___kont4673546736_ (lambda (_L22937_ _L22939_ _L22940_ _L22941_) - (let ((__tmp51898 - (let ((__tmp51900 - (let ((__tmp51901 - (let ((__tmp51902 + (let ((__tmp51972 + (let ((__tmp51974 + (let ((__tmp51975 + (let ((__tmp51976 (let () (declare (not safe)) (cons _L22939_ '())))) (declare (not safe)) - (cons _L22940_ __tmp51902)))) + (cons _L22940_ __tmp51976)))) (declare (not safe)) - (cons _L22941_ __tmp51901))) - (__tmp51899 + (cons _L22941_ __tmp51975))) + (__tmp51973 (foldr (lambda (_g2296222965_ _g2296322968_) (let () (declare (not safe)) @@ -4264,9 +4264,9 @@ '() _L22937_))) (declare (not safe)) - (cons __tmp51900 __tmp51899)))) + (cons __tmp51974 __tmp51973)))) (declare (not safe)) - (cons _L22941_ __tmp51898))))) + (cons _L22941_ __tmp51972))))) (let* ((___match4678546786_ (lambda (_e2284922877_ _hd2284822881_ @@ -4453,28 +4453,28 @@ ___stx4678846789_)))) (let ((___kont4679146792_ (lambda (_L23263_ _L23265_ _L23266_) - (let ((__tmp51909 (gx#datum->syntax '#f 'slot-set!)) - (__tmp51903 - (let ((__tmp51904 - (let ((__tmp51906 - (let ((__tmp51908 + (let ((__tmp51983 (gx#datum->syntax '#f 'slot-set!)) + (__tmp51977 + (let ((__tmp51978 + (let ((__tmp51980 + (let ((__tmp51982 (gx#datum->syntax '#f 'quote)) - (__tmp51907 + (__tmp51981 (let () (declare (not safe)) (cons _L23265_ '())))) (declare (not safe)) - (cons __tmp51908 __tmp51907))) - (__tmp51905 + (cons __tmp51982 __tmp51981))) + (__tmp51979 (let () (declare (not safe)) (cons _L23263_ '())))) (declare (not safe)) - (cons __tmp51906 __tmp51905)))) + (cons __tmp51980 __tmp51979)))) (declare (not safe)) - (cons _L23266_ __tmp51904)))) + (cons _L23266_ __tmp51978)))) (declare (not safe)) - (cons __tmp51909 __tmp51903)))) + (cons __tmp51983 __tmp51977)))) (___kont4679346794_ (lambda (_L23174_ _L23176_ @@ -4482,12 +4482,12 @@ _L23178_ _L23179_ _L23180_) - (let ((__tmp51910 - (let ((__tmp51913 - (let ((__tmp51917 (gx#datum->syntax '#f '@)) - (__tmp51914 - (let ((__tmp51915 - (let ((__tmp51916 + (let ((__tmp51984 + (let ((__tmp51987 + (let ((__tmp51991 (gx#datum->syntax '#f '@)) + (__tmp51988 + (let ((__tmp51989 + (let ((__tmp51990 (foldr (lambda (_g2320723210_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2320823213_) @@ -4498,22 +4498,22 @@ _L23177_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L23178_ __tmp51916)))) + (cons _L23178_ __tmp51990)))) (declare (not safe)) - (cons _L23179_ __tmp51915)))) + (cons _L23179_ __tmp51989)))) (declare (not safe)) - (cons __tmp51917 __tmp51914))) - (__tmp51911 - (let ((__tmp51912 + (cons __tmp51991 __tmp51988))) + (__tmp51985 + (let ((__tmp51986 (let () (declare (not safe)) (cons _L23174_ '())))) (declare (not safe)) - (cons _L23176_ __tmp51912)))) + (cons _L23176_ __tmp51986)))) (declare (not safe)) - (cons __tmp51913 __tmp51911)))) + (cons __tmp51987 __tmp51985)))) (declare (not safe)) - (cons _L23180_ __tmp51910))))) + (cons _L23180_ __tmp51984))))) (let* ((___match4686346864_ (lambda (_e2306023094_ _hd2305923098_ diff --git a/src/bootstrap/gerbil/core__9.scm b/src/bootstrap/gerbil/core__9.scm index 8812894f..32c34b68 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]#_g51919_| + (define |gerbil/core$<macro-object>[1]#_g51993_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<macro-object>[1]#_g51921_| + (define |gerbil/core$<macro-object>[1]#_g51995_| (##structure gx#syntax-quote::t 'make-macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$<macro-object>[1]#_g51923_| + (define |gerbil/core$<macro-object>[1]#_g51997_| (##structure gx#syntax-quote::t 'macro-object? #f (gx#current-expander-context) '())) - (define |gerbil/core$<macro-object>[1]#_g51927_| + (define |gerbil/core$<macro-object>[1]#_g52001_| (##structure gx#syntax-quote::t 'macro-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<macro-object>[1]#_g51931_| + (define |gerbil/core$<macro-object>[1]#_g52005_| (##structure gx#syntax-quote::t 'macro-object-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<macro-object>[1]#_g51935_| + (define |gerbil/core$<macro-object>[1]#_g52009_| (##structure gx#syntax-quote::t '¯o-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<macro-object>[1]#_g51939_| + (define |gerbil/core$<macro-object>[1]#_g52013_| (##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 ((__tmp51918 |gerbil/core$<macro-object>[1]#_g51919_|)) + (let ((__tmp51992 |gerbil/core$<macro-object>[1]#_g51993_|)) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp51918 + __tmp51992 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51920 |gerbil/core$<macro-object>[1]#_g51921_|)) + (let ((__tmp51994 |gerbil/core$<macro-object>[1]#_g51995_|)) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp51920 + __tmp51994 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51922 |gerbil/core$<macro-object>[1]#_g51923_|)) + (let ((__tmp51996 |gerbil/core$<macro-object>[1]#_g51997_|)) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp51922 + __tmp51996 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51924 - (let ((__tmp51925 - (let ((__tmp51926 - |gerbil/core$<macro-object>[1]#_g51927_|)) + (let ((__tmp51998 + (let ((__tmp51999 + (let ((__tmp52000 + |gerbil/core$<macro-object>[1]#_g52001_|)) (declare (not safe)) - (cons 'macro __tmp51926)))) + (cons 'macro __tmp52000)))) (declare (not safe)) - (cons __tmp51925 '())))) + (cons __tmp51999 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp51924 + __tmp51998 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51928 - (let ((__tmp51929 - (let ((__tmp51930 - |gerbil/core$<macro-object>[1]#_g51931_|)) + (let ((__tmp52002 + (let ((__tmp52003 + (let ((__tmp52004 + |gerbil/core$<macro-object>[1]#_g52005_|)) (declare (not safe)) - (cons 'macro __tmp51930)))) + (cons 'macro __tmp52004)))) (declare (not safe)) - (cons __tmp51929 '())))) + (cons __tmp52003 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp51928 + __tmp52002 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51932 - (let ((__tmp51933 - (let ((__tmp51934 - |gerbil/core$<macro-object>[1]#_g51935_|)) + (let ((__tmp52006 + (let ((__tmp52007 + (let ((__tmp52008 + |gerbil/core$<macro-object>[1]#_g52009_|)) (declare (not safe)) - (cons 'macro __tmp51934)))) + (cons 'macro __tmp52008)))) (declare (not safe)) - (cons __tmp51933 '())))) + (cons __tmp52007 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp51932 + __tmp52006 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51936 - (let ((__tmp51937 - (let ((__tmp51938 - |gerbil/core$<macro-object>[1]#_g51939_|)) + (let ((__tmp52010 + (let ((__tmp52011 + (let ((__tmp52012 + |gerbil/core$<macro-object>[1]#_g52013_|)) (declare (not safe)) - (cons 'macro __tmp51938)))) + (cons 'macro __tmp52012)))) (declare (not safe)) - (cons __tmp51937 '())))) + (cons __tmp52011 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp51936 + __tmp52010 '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 b632cf0d..ea913bc2 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 1709128371) + (define gerbil/expander/common::timestamp 1709229970) (begin (define gx#AST::t - (let ((__tmp80112 (list)) - (__tmp80110 - (let ((__tmp80111 + (let ((__tmp80109 (list)) + (__tmp80107 + (let ((__tmp80108 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp80111 '())))) + (cons __tmp80108 '())))) (declare (not safe)) (make-class-type 'gerbil#AST::t 'syntax - __tmp80112 + __tmp80109 '(e source) - __tmp80110 + __tmp80107 '#f))) (define gx#AST? (let () (declare (not safe)) (make-class-predicate gx#AST::t))) (define gx#make-AST - (lambda _$args80009_ (apply make-instance gx#AST::t _$args80009_))) + (lambda _$args80006_ (apply make-instance gx#AST::t _$args80006_))) (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 a83ff689..775696b5 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]#_g80114_| + (define |gx[1]#_g80111_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g80116_| + (define |gx[1]#_g80113_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g80118_| + (define |gx[1]#_g80115_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |gx[1]#_g80123_| + (define |gx[1]#_g80120_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g80126_| + (define |gx[1]#_g80123_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g80131_| + (define |gx[1]#_g80128_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g80134_| + (define |gx[1]#_g80131_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g80139_| + (define |gx[1]#_g80136_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g80142_| + (define |gx[1]#_g80139_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g80147_| + (define |gx[1]#_g80144_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g80150_| + (define |gx[1]#_g80147_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g80257_| + (define |gx[1]#_g80254_| (##structure gx#syntax-quote::t 'else @@ -86,7 +86,7 @@ '())) (begin (define |gx[:0:]#AST| - (let ((__obj80109 + (let ((__obj80106 (let () (declare (not safe)) (##structure @@ -109,7 +109,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj80109 + __obj80106 'gerbil#AST::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -117,7 +117,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj80109 + __obj80106 'syntax '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -125,7 +125,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj80109 + __obj80106 '(e source) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -133,7 +133,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj80109 + __obj80106 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -141,7 +141,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj80109 + __obj80106 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -149,7 +149,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj80109 + __obj80106 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -157,7 +157,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj80109 + __obj80106 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -165,847 +165,847 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj80109 + __obj80106 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp80113 |gx[1]#_g80114_|)) + (let ((__tmp80110 |gx[1]#_g80111_|)) (declare (not safe)) (##unchecked-structure-set! - __obj80109 - __tmp80113 + __obj80106 + __tmp80110 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp80115 |gx[1]#_g80116_|)) + (let ((__tmp80112 |gx[1]#_g80113_|)) (declare (not safe)) (##unchecked-structure-set! - __obj80109 - __tmp80115 + __obj80106 + __tmp80112 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp80117 |gx[1]#_g80118_|)) + (let ((__tmp80114 |gx[1]#_g80115_|)) (declare (not safe)) (##unchecked-structure-set! - __obj80109 - __tmp80117 + __obj80106 + __tmp80114 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp80119 - (let ((__tmp80124 - (let ((__tmp80125 |gx[1]#_g80126_|)) + (let ((__tmp80116 + (let ((__tmp80121 + (let ((__tmp80122 |gx[1]#_g80123_|)) (declare (not safe)) - (cons 'e __tmp80125))) - (__tmp80120 - (let ((__tmp80121 - (let ((__tmp80122 |gx[1]#_g80123_|)) + (cons 'e __tmp80122))) + (__tmp80117 + (let ((__tmp80118 + (let ((__tmp80119 |gx[1]#_g80120_|)) (declare (not safe)) - (cons 'source __tmp80122)))) + (cons 'source __tmp80119)))) (declare (not safe)) - (cons __tmp80121 '())))) + (cons __tmp80118 '())))) (declare (not safe)) - (cons __tmp80124 __tmp80120)))) + (cons __tmp80121 __tmp80117)))) (declare (not safe)) (##unchecked-structure-set! - __obj80109 - __tmp80119 + __obj80106 + __tmp80116 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp80127 - (let ((__tmp80132 - (let ((__tmp80133 |gx[1]#_g80134_|)) + (let ((__tmp80124 + (let ((__tmp80129 + (let ((__tmp80130 |gx[1]#_g80131_|)) (declare (not safe)) - (cons 'e __tmp80133))) - (__tmp80128 - (let ((__tmp80129 - (let ((__tmp80130 |gx[1]#_g80131_|)) + (cons 'e __tmp80130))) + (__tmp80125 + (let ((__tmp80126 + (let ((__tmp80127 |gx[1]#_g80128_|)) (declare (not safe)) - (cons 'source __tmp80130)))) + (cons 'source __tmp80127)))) (declare (not safe)) - (cons __tmp80129 '())))) + (cons __tmp80126 '())))) (declare (not safe)) - (cons __tmp80132 __tmp80128)))) + (cons __tmp80129 __tmp80125)))) (declare (not safe)) (##unchecked-structure-set! - __obj80109 - __tmp80127 + __obj80106 + __tmp80124 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp80135 - (let ((__tmp80140 - (let ((__tmp80141 |gx[1]#_g80142_|)) + (let ((__tmp80132 + (let ((__tmp80137 + (let ((__tmp80138 |gx[1]#_g80139_|)) (declare (not safe)) - (cons 'e __tmp80141))) - (__tmp80136 - (let ((__tmp80137 - (let ((__tmp80138 |gx[1]#_g80139_|)) + (cons 'e __tmp80138))) + (__tmp80133 + (let ((__tmp80134 + (let ((__tmp80135 |gx[1]#_g80136_|)) (declare (not safe)) - (cons 'source __tmp80138)))) + (cons 'source __tmp80135)))) (declare (not safe)) - (cons __tmp80137 '())))) + (cons __tmp80134 '())))) (declare (not safe)) - (cons __tmp80140 __tmp80136)))) + (cons __tmp80137 __tmp80133)))) (declare (not safe)) (##unchecked-structure-set! - __obj80109 - __tmp80135 + __obj80106 + __tmp80132 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp80143 - (let ((__tmp80148 - (let ((__tmp80149 |gx[1]#_g80150_|)) + (let ((__tmp80140 + (let ((__tmp80145 + (let ((__tmp80146 |gx[1]#_g80147_|)) (declare (not safe)) - (cons 'e __tmp80149))) - (__tmp80144 - (let ((__tmp80145 - (let ((__tmp80146 |gx[1]#_g80147_|)) + (cons 'e __tmp80146))) + (__tmp80141 + (let ((__tmp80142 + (let ((__tmp80143 |gx[1]#_g80144_|)) (declare (not safe)) - (cons 'source __tmp80146)))) + (cons 'source __tmp80143)))) (declare (not safe)) - (cons __tmp80145 '())))) + (cons __tmp80142 '())))) (declare (not safe)) - (cons __tmp80148 __tmp80144)))) + (cons __tmp80145 __tmp80141)))) (declare (not safe)) (##unchecked-structure-set! - __obj80109 - __tmp80143 + __obj80106 + __tmp80140 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj80109)) + __obj80106)) (define |gx[:0:]#check-procedure| - (lambda (_$stx78729_) - (let* ((_g7873378747_ - (lambda (_g7873478743_) + (lambda (_$stx78726_) + (let* ((_g7873078744_ + (lambda (_g7873178740_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7873478743_))) - (_g7873278789_ - (lambda (_g7873478751_) - (if (gx#stx-pair? _g7873478751_) - (let ((_e7873878754_ (gx#syntax-e _g7873478751_))) - (let ((_hd7873778758_ + _g7873178740_))) + (_g7872978786_ + (lambda (_g7873178748_) + (if (gx#stx-pair? _g7873178748_) + (let ((_e7873578751_ (gx#syntax-e _g7873178748_))) + (let ((_hd7873478755_ (let () (declare (not safe)) - (##car _e7873878754_))) - (_tl7873678761_ + (##car _e7873578751_))) + (_tl7873378758_ (let () (declare (not safe)) - (##cdr _e7873878754_)))) - (if (gx#stx-pair? _tl7873678761_) - (let ((_e7874178764_ - (gx#syntax-e _tl7873678761_))) - (let ((_hd7874078768_ + (##cdr _e7873578751_)))) + (if (gx#stx-pair? _tl7873378758_) + (let ((_e7873878761_ + (gx#syntax-e _tl7873378758_))) + (let ((_hd7873778765_ (let () (declare (not safe)) - (##car _e7874178764_))) - (_tl7873978771_ + (##car _e7873878761_))) + (_tl7873678768_ (let () (declare (not safe)) - (##cdr _e7874178764_)))) - (if (gx#stx-null? _tl7873978771_) - ((lambda (_L78774_) - (let ((__tmp80160 + (##cdr _e7873878761_)))) + (if (gx#stx-null? _tl7873678768_) + ((lambda (_L78771_) + (let ((__tmp80157 (gx#datum->syntax '#f 'unless)) - (__tmp80151 - (let ((__tmp80157 - (let ((__tmp80159 + (__tmp80148 + (let ((__tmp80154 + (let ((__tmp80156 (gx#datum->syntax '#f 'procedure?)) - (__tmp80158 + (__tmp80155 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L78774_ '())))) + (cons _L78771_ '())))) (declare (not safe)) - (cons __tmp80159 __tmp80158))) - (__tmp80152 - (let ((__tmp80153 - (let ((__tmp80156 (gx#datum->syntax '#f 'error)) - (__tmp80154 - (let ((__tmp80155 + (cons __tmp80156 __tmp80155))) + (__tmp80149 + (let ((__tmp80150 + (let ((__tmp80153 (gx#datum->syntax '#f 'error)) + (__tmp80151 + (let ((__tmp80152 (let () (declare (not safe)) - (cons _L78774_ '())))) + (cons _L78771_ '())))) (declare (not safe)) - (cons '"expected procedure" __tmp80155)))) + (cons '"expected procedure" __tmp80152)))) (declare (not safe)) - (cons __tmp80156 __tmp80154)))) + (cons __tmp80153 __tmp80151)))) (declare (not safe)) - (cons __tmp80153 '())))) + (cons __tmp80150 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80157 - __tmp80152)))) + (cons __tmp80154 + __tmp80149)))) (declare (not safe)) - (cons __tmp80160 __tmp80151))) - _hd7874078768_) - (_g7873378747_ _g7873478751_)))) - (_g7873378747_ _g7873478751_)))) - (_g7873378747_ _g7873478751_))))) - (_g7873278789_ _$stx78729_)))) + (cons __tmp80157 __tmp80148))) + _hd7873778765_) + (_g7873078744_ _g7873178748_)))) + (_g7873078744_ _g7873178748_)))) + (_g7873078744_ _g7873178748_))))) + (_g7872978786_ _$stx78726_)))) (define |gx[:0:]#core-syntax-case| - (lambda (_stx78793_) - (letrec ((_generate78796_ - (lambda (_tgt78945_ _kws78947_ _clauses78948_) - (letrec ((_generate-clause78950_ - (lambda (_hd79860_ _E79862_) - (let* ((___stx8001280013_ _hd79860_) - (_g7986679893_ + (lambda (_stx78790_) + (letrec ((_generate78793_ + (lambda (_tgt78942_ _kws78944_ _clauses78945_) + (letrec ((_generate-clause78947_ + (lambda (_hd79857_ _E79859_) + (let* ((___stx8000980010_ _hd79857_) + (_g7986379890_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx8001280013_)))) - (let ((___kont8001580016_ - (lambda (_L79989_ _L79991_) - (_generate178952_ - _hd79860_ - _L79991_ + ___stx8000980010_)))) + (let ((___kont8001280013_ + (lambda (_L79986_ _L79988_) + (_generate178949_ + _hd79857_ + _L79988_ '#t - _L79989_ - _E79862_))) - (___kont8001780018_ - (lambda (_L79941_ _L79943_ _L79944_) - (_generate178952_ - _hd79860_ - _L79944_ - _L79943_ + _L79986_ + _E79859_))) + (___kont8001480015_ + (lambda (_L79938_ _L79940_ _L79941_) + (_generate178949_ + _hd79857_ _L79941_ - _E79862_))) - (___kont8001980020_ + _L79940_ + _L79938_ + _E79859_))) + (___kont8001680017_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case pattern" - _stx78793_ - _hd79860_)))) - (if (gx#stx-pair? ___stx8001280013_) - (let ((_e7987279969_ + _stx78790_ + _hd79857_)))) + (if (gx#stx-pair? ___stx8000980010_) + (let ((_e7986979966_ (gx#syntax-e - ___stx8001280013_))) - (let ((_tl7987079976_ + ___stx8000980010_))) + (let ((_tl7986779973_ (let () (declare (not safe)) - (##cdr _e7987279969_))) - (_hd7987179973_ + (##cdr _e7986979966_))) + (_hd7986879970_ (let () (declare (not safe)) - (##car _e7987279969_)))) - (if (gx#stx-pair? _tl7987079976_) - (let ((_e7987579979_ + (##car _e7986979966_)))) + (if (gx#stx-pair? _tl7986779973_) + (let ((_e7987279976_ (gx#syntax-e - _tl7987079976_))) - (let ((_tl7987379986_ + _tl7986779973_))) + (let ((_tl7987079983_ (let () (declare (not safe)) - (##cdr _e7987579979_))) - (_hd7987479983_ + (##cdr _e7987279976_))) + (_hd7987179980_ (let () (declare (not safe)) - (##car _e7987579979_)))) + (##car _e7987279976_)))) (if (gx#stx-null? - _tl7987379986_) - (___kont8001580016_ - _hd7987479983_ - _hd7987179973_) + _tl7987079983_) + (___kont8001280013_ + _hd7987179980_ + _hd7986879970_) (if (gx#stx-pair? - _tl7987379986_) - (let ((_e7988779931_ + _tl7987079983_) + (let ((_e7988479928_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl7987379986_))) - (let ((_tl7988579938_ + (gx#syntax-e _tl7987079983_))) + (let ((_tl7988279935_ (let () (declare (not safe)) - (##cdr _e7988779931_))) - (_hd7988679935_ + (##cdr _e7988479928_))) + (_hd7988379932_ (let () (declare (not safe)) - (##car _e7988779931_)))) - (if (gx#stx-null? _tl7988579938_) - (___kont8001780018_ - _hd7988679935_ - _hd7987479983_ - _hd7987179973_) - (___kont8001980020_)))) - (___kont8001980020_))))) + (##car _e7988479928_)))) + (if (gx#stx-null? _tl7988279935_) + (___kont8001480015_ + _hd7988379932_ + _hd7987179980_ + _hd7986879970_) + (___kont8001680017_)))) + (___kont8001680017_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8001980020_)))) - (___kont8001980020_)))))) - (_generate178952_ - (lambda (_where79338_ - _hd79340_ - _fender79341_ - _body79342_ - _E79343_) - (letrec ((_recur79345_ - (lambda (_hd79348_ - _tgt79350_ - _K79351_) - (let* ((___stx8005880059_ - _hd79348_) - (_g7935479366_ + (___kont8001680017_)))) + (___kont8001680017_)))))) + (_generate178949_ + (lambda (_where79335_ + _hd79337_ + _fender79338_ + _body79339_ + _E79340_) + (letrec ((_recur79342_ + (lambda (_hd79345_ + _tgt79347_ + _K79348_) + (let* ((___stx8005580056_ + _hd79345_) + (_g7935179363_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx8005880059_)))) - (let ((___kont8006180062_ - (lambda (_L79650_ - _L79652_) - (let* ((_g7966379671_ - (lambda (_g7966479667_) + ___stx8005580056_)))) + (let ((___kont8005880059_ + (lambda (_L79647_ + _L79649_) + (let* ((_g7966079668_ + (lambda (_g7966179664_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7966479667_))) - (_g7966279852_ - (lambda (_g7966479675_) - ((lambda (_L79678_) + _g7966179664_))) + (_g7965979849_ + (lambda (_g7966179672_) + ((lambda (_L79675_) (let () - (let* ((_g7969079698_ - (lambda (_g7969179694_) + (let* ((_g7968779695_ + (lambda (_g7968879691_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7969179694_))) - (_g7968979848_ - (lambda (_g7969179702_) - ((lambda (_L79705_) + _g7968879691_))) + (_g7968679845_ + (lambda (_g7968879699_) + ((lambda (_L79702_) (let () - (let* ((_g7971879726_ - (lambda (_g7971979722_) + (let* ((_g7971579723_ + (lambda (_g7971679719_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7971979722_))) - (_g7971779844_ - (lambda (_g7971979730_) - ((lambda (_L79733_) + _g7971679719_))) + (_g7971479841_ + (lambda (_g7971679727_) + ((lambda (_L79730_) (let () - (let* ((_g7974679754_ + (let* ((_g7974379751_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7974779750_) + (lambda (_g7974479747_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7974779750_))) - (_g7974579840_ - (lambda (_g7974779758_) - ((lambda (_L79761_) + _g7974479747_))) + (_g7974279837_ + (lambda (_g7974479755_) + ((lambda (_L79758_) (let () - (let* ((_g7977479782_ - (lambda (_g7977579778_) + (let* ((_g7977179779_ + (lambda (_g7977279775_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7977579778_))) - (_g7977379836_ - (lambda (_g7977579786_) - ((lambda (_L79789_) + _g7977279775_))) + (_g7977079833_ + (lambda (_g7977279783_) + ((lambda (_L79786_) (let () - (let* ((_g7980279810_ - (lambda (_g7980379806_) + (let* ((_g7979979807_ + (lambda (_g7980079803_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7980379806_))) - (_g7980179832_ - (lambda (_g7980379814_) - ((lambda (_L79817_) + _g7980079803_))) + (_g7979879829_ + (lambda (_g7980079811_) + ((lambda (_L79814_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp80193 (gx#datum->syntax '#f 'if)) - (__tmp80161 - (let ((__tmp80190 - (let ((__tmp80192 + (let ((__tmp80190 (gx#datum->syntax '#f 'if)) + (__tmp80158 + (let ((__tmp80187 + (let ((__tmp80189 (gx#datum->syntax '#f 'stx-pair?)) - (__tmp80191 + (__tmp80188 (let () (declare (not safe)) - (cons _L79678_ '())))) + (cons _L79675_ '())))) (declare (not safe)) - (cons __tmp80192 __tmp80191))) - (__tmp80162 - (let ((__tmp80164 - (let ((__tmp80189 + (cons __tmp80189 __tmp80188))) + (__tmp80159 + (let ((__tmp80161 + (let ((__tmp80186 (gx#datum->syntax '#f 'let)) - (__tmp80165 - (let ((__tmp80183 - (let ((__tmp80184 + (__tmp80162 + (let ((__tmp80180 + (let ((__tmp80181 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp80185 - (let ((__tmp80186 - (let ((__tmp80188 + (let ((__tmp80182 + (let ((__tmp80183 + (let ((__tmp80185 (gx#datum->syntax '#f 'syntax-e)) - (__tmp80187 + (__tmp80184 (let () (declare (not safe)) - (cons _L79678_ '())))) + (cons _L79675_ '())))) (declare (not safe)) - (cons __tmp80188 __tmp80187)))) + (cons __tmp80185 __tmp80184)))) (declare (not safe)) - (cons __tmp80186 '())))) + (cons __tmp80183 '())))) (declare (not safe)) - (cons _L79705_ __tmp80185)))) + (cons _L79702_ __tmp80182)))) (declare (not safe)) - (cons __tmp80184 '()))) - (__tmp80166 - (let ((__tmp80167 - (let ((__tmp80182 (gx#datum->syntax '#f 'let)) - (__tmp80168 - (let ((__tmp80170 - (let ((__tmp80177 - (let ((__tmp80178 - (let ((__tmp80179 - (let ((__tmp80181 + (cons __tmp80181 '()))) + (__tmp80163 + (let ((__tmp80164 + (let ((__tmp80179 (gx#datum->syntax '#f 'let)) + (__tmp80165 + (let ((__tmp80167 + (let ((__tmp80174 + (let ((__tmp80175 + (let ((__tmp80176 + (let ((__tmp80178 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##car)) - (__tmp80180 + (__tmp80177 (let () (declare (not safe)) - (cons _L79705_ '())))) + (cons _L79702_ '())))) (declare (not safe)) - (cons __tmp80181 __tmp80180)))) + (cons __tmp80178 __tmp80177)))) (declare (not safe)) - (cons __tmp80179 '())))) + (cons __tmp80176 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L79733_ - __tmp80178))) - (__tmp80171 - (let ((__tmp80172 - (let ((__tmp80173 - (let ((__tmp80174 + (cons _L79730_ + __tmp80175))) + (__tmp80168 + (let ((__tmp80169 + (let ((__tmp80170 + (let ((__tmp80171 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp80176 (gx#datum->syntax '#f '##cdr)) - (__tmp80175 + (let ((__tmp80173 (gx#datum->syntax '#f '##cdr)) + (__tmp80172 (let () (declare (not safe)) - (cons _L79705_ '())))) + (cons _L79702_ '())))) (declare (not safe)) - (cons __tmp80176 __tmp80175)))) + (cons __tmp80173 __tmp80172)))) (declare (not safe)) - (cons __tmp80174 '())))) + (cons __tmp80171 '())))) (declare (not safe)) - (cons _L79761_ __tmp80173)))) + (cons _L79758_ __tmp80170)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80172 '())))) + (cons __tmp80169 '())))) (declare (not safe)) - (cons __tmp80177 __tmp80171))) - (__tmp80169 + (cons __tmp80174 __tmp80168))) + (__tmp80166 (let () (declare (not safe)) - (cons _L79789_ '())))) + (cons _L79786_ '())))) (declare (not safe)) - (cons __tmp80170 __tmp80169)))) + (cons __tmp80167 __tmp80166)))) (declare (not safe)) - (cons __tmp80182 __tmp80168)))) + (cons __tmp80179 __tmp80165)))) (declare (not safe)) - (cons __tmp80167 '())))) + (cons __tmp80164 '())))) (declare (not safe)) - (cons __tmp80183 __tmp80166)))) + (cons __tmp80180 __tmp80163)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80189 - __tmp80165))) - (__tmp80163 + (cons __tmp80186 + __tmp80162))) + (__tmp80160 (let () (declare (not safe)) - (cons _L79817_ '())))) + (cons _L79814_ '())))) (declare (not safe)) - (cons __tmp80164 __tmp80163)))) + (cons __tmp80161 __tmp80160)))) (declare (not safe)) - (cons __tmp80190 __tmp80162)))) + (cons __tmp80187 __tmp80159)))) (declare (not safe)) - (cons __tmp80193 __tmp80161))))) - _g7980379814_)))) + (cons __tmp80190 __tmp80158))))) + _g7980079811_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7980179832_ _E79343_)))) - _g7977579786_)))) - (_g7977379836_ - (_recur79345_ - _L79652_ - _L79733_ - (_recur79345_ - _L79650_ - _L79761_ - _K79351_)))))) - _g7974779758_)))) - (_g7974579840_ (gx#genident 'tl))))) - _g7971979730_)))) + (_g7979879829_ _E79340_)))) + _g7977279783_)))) + (_g7977079833_ + (_recur79342_ + _L79649_ + _L79730_ + (_recur79342_ + _L79647_ + _L79758_ + _K79348_)))))) + _g7974479755_)))) + (_g7974279837_ (gx#genident 'tl))))) + _g7971679727_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7971779844_ + (_g7971479841_ (gx#genident 'hd))))) - _g7969179702_)))) - (_g7968979848_ (gx#genident 'e))))) - _g7966479675_)))) - (_g7966279852_ _tgt79350_)))) + _g7968879699_)))) + (_g7968679845_ (gx#genident 'e))))) + _g7966179672_)))) + (_g7965979849_ _tgt79347_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8006380064_ + (___kont8006080061_ (lambda () (if (gx#identifier? - _hd79348_) + _hd79345_) (if (gx#underscore? - _hd79348_) - _K79351_ - (if (let ((__tmp80238 + _hd79345_) + _K79348_ + (if (let ((__tmp80235 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7937679378_) + (lambda (_g7937379375_) (gx#bound-identifier=? - _g7937679378_ - _hd79348_)))) + _g7937379375_ + _hd79345_)))) (declare (not safe)) - (find __tmp80238 _kws78947_)) - (let* ((_g7938279397_ - (lambda (_g7938379393_) + (find __tmp80235 _kws78944_)) + (let* ((_g7937979394_ + (lambda (_g7938079390_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7938379393_))) - (_g7938179448_ - (lambda (_g7938379401_) - (if (gx#stx-pair? _g7938379401_) - (let ((_e7938879404_ - (gx#syntax-e _g7938379401_))) - (let ((_hd7938779408_ + _g7938079390_))) + (_g7937879445_ + (lambda (_g7938079398_) + (if (gx#stx-pair? _g7938079398_) + (let ((_e7938579401_ + (gx#syntax-e _g7938079398_))) + (let ((_hd7938479405_ (let () (declare (not safe)) - (##car _e7938879404_))) - (_tl7938679411_ + (##car _e7938579401_))) + (_tl7938379408_ (let () (declare (not safe)) - (##cdr _e7938879404_)))) - (if (gx#stx-pair? _tl7938679411_) - (let ((_e7939179414_ + (##cdr _e7938579401_)))) + (if (gx#stx-pair? _tl7938379408_) + (let ((_e7938879411_ (gx#syntax-e - _tl7938679411_))) - (let ((_hd7939079418_ + _tl7938379408_))) + (let ((_hd7938779415_ (let () (declare (not safe)) - (##car _e7939179414_))) - (_tl7938979421_ + (##car _e7938879411_))) + (_tl7938679418_ (let () (declare (not safe)) - (##cdr _e7939179414_)))) + (##cdr _e7938879411_)))) (if (gx#stx-null? - _tl7938979421_) - ((lambda (_L79424_ + _tl7938679418_) + ((lambda (_L79421_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L79426_) + _L79423_) (let () - (let ((__tmp80237 (gx#datum->syntax '#f 'if)) - (__tmp80220 - (let ((__tmp80223 - (let ((__tmp80236 + (let ((__tmp80234 (gx#datum->syntax '#f 'if)) + (__tmp80217 + (let ((__tmp80220 + (let ((__tmp80233 (gx#datum->syntax '#f 'and)) - (__tmp80224 - (let ((__tmp80233 - (let ((__tmp80235 + (__tmp80221 + (let ((__tmp80230 + (let ((__tmp80232 (gx#datum->syntax '#f 'identifier?)) - (__tmp80234 + (__tmp80231 (let () (declare (not safe)) - (cons _L79426_ + (cons _L79423_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80235 - __tmp80234))) - (__tmp80225 - (let ((__tmp80226 - (let ((__tmp80232 + (cons __tmp80232 + __tmp80231))) + (__tmp80222 + (let ((__tmp80223 + (let ((__tmp80229 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'core-identifier=?)) - (__tmp80227 - (let ((__tmp80228 - (let ((__tmp80229 - (let ((__tmp80231 + (__tmp80224 + (let ((__tmp80225 + (let ((__tmp80226 + (let ((__tmp80228 (gx#datum->syntax '#f 'quote)) - (__tmp80230 + (__tmp80227 (let () (declare (not safe)) - (cons _L79424_ '())))) + (cons _L79421_ '())))) (declare (not safe)) - (cons __tmp80231 __tmp80230)))) + (cons __tmp80228 __tmp80227)))) (declare (not safe)) - (cons __tmp80229 '())))) + (cons __tmp80226 '())))) (declare (not safe)) - (cons _L79426_ __tmp80228)))) + (cons _L79423_ __tmp80225)))) (declare (not safe)) - (cons __tmp80232 __tmp80227)))) + (cons __tmp80229 __tmp80224)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80226 '())))) + (cons __tmp80223 '())))) (declare (not safe)) - (cons __tmp80233 __tmp80225)))) + (cons __tmp80230 __tmp80222)))) (declare (not safe)) - (cons __tmp80236 __tmp80224))) - (__tmp80221 - (let ((__tmp80222 + (cons __tmp80233 __tmp80221))) + (__tmp80218 + (let ((__tmp80219 (let () (declare (not safe)) - (cons _E79343_ '())))) + (cons _E79340_ '())))) (declare (not safe)) - (cons _K79351_ __tmp80222)))) + (cons _K79348_ __tmp80219)))) (declare (not safe)) - (cons __tmp80223 __tmp80221)))) + (cons __tmp80220 __tmp80218)))) (declare (not safe)) - (cons __tmp80237 __tmp80220)))) - _hd7939079418_ - _hd7938779408_) - (_g7938279397_ _g7938379401_)))) + (cons __tmp80234 __tmp80217)))) + _hd7938779415_ + _hd7938479405_) + (_g7937979394_ _g7938079398_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7938279397_ - _g7938379401_)))) - (_g7938279397_ _g7938379401_))))) - (_g7938179448_ (list _tgt79350_ _hd79348_))) - (let* ((_g7945279467_ - (lambda (_g7945379463_) + (_g7937979394_ + _g7938079398_)))) + (_g7937979394_ _g7938079398_))))) + (_g7937879445_ (list _tgt79347_ _hd79345_))) + (let* ((_g7944979464_ + (lambda (_g7945079460_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7945379463_))) - (_g7945179511_ - (lambda (_g7945379471_) - (if (gx#stx-pair? _g7945379471_) - (let ((_e7945879474_ - (gx#syntax-e _g7945379471_))) - (let ((_hd7945779478_ + _g7945079460_))) + (_g7944879508_ + (lambda (_g7945079468_) + (if (gx#stx-pair? _g7945079468_) + (let ((_e7945579471_ + (gx#syntax-e _g7945079468_))) + (let ((_hd7945479475_ (let () (declare (not safe)) - (##car _e7945879474_))) - (_tl7945679481_ + (##car _e7945579471_))) + (_tl7945379478_ (let () (declare (not safe)) - (##cdr _e7945879474_)))) - (if (gx#stx-pair? _tl7945679481_) - (let ((_e7946179484_ + (##cdr _e7945579471_)))) + (if (gx#stx-pair? _tl7945379478_) + (let ((_e7945879481_ (gx#syntax-e - _tl7945679481_))) - (let ((_hd7946079488_ + _tl7945379478_))) + (let ((_hd7945779485_ (let () (declare (not safe)) - (##car _e7946179484_))) - (_tl7945979491_ + (##car _e7945879481_))) + (_tl7945679488_ (let () (declare (not safe)) - (##cdr _e7946179484_)))) + (##cdr _e7945879481_)))) (if (gx#stx-null? - _tl7945979491_) - ((lambda (_L79494_ + _tl7945679488_) + ((lambda (_L79491_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L79496_) + _L79493_) (let () - (let ((__tmp80219 (gx#datum->syntax '#f 'let)) - (__tmp80214 - (let ((__tmp80216 - (let ((__tmp80217 - (let ((__tmp80218 + (let ((__tmp80216 (gx#datum->syntax '#f 'let)) + (__tmp80211 + (let ((__tmp80213 + (let ((__tmp80214 + (let ((__tmp80215 (let () (declare (not safe)) - (cons _L79496_ '())))) + (cons _L79493_ '())))) (declare (not safe)) - (cons _L79494_ __tmp80218)))) + (cons _L79491_ __tmp80215)))) (declare (not safe)) - (cons __tmp80217 '()))) - (__tmp80215 + (cons __tmp80214 '()))) + (__tmp80212 (let () (declare (not safe)) - (cons _K79351_ '())))) + (cons _K79348_ '())))) (declare (not safe)) - (cons __tmp80216 __tmp80215)))) + (cons __tmp80213 __tmp80212)))) (declare (not safe)) - (cons __tmp80219 __tmp80214)))) - _hd7946079488_ - _hd7945779478_) - (_g7945279467_ _g7945379471_)))) + (cons __tmp80216 __tmp80211)))) + _hd7945779485_ + _hd7945479475_) + (_g7944979464_ _g7945079468_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7945279467_ - _g7945379471_)))) - (_g7945279467_ _g7945379471_))))) - (_g7945179511_ (list _tgt79350_ _hd79348_))))) - (if (gx#stx-null? _hd79348_) - (let* ((_g7951579523_ - (lambda (_g7951679519_) + (_g7944979464_ + _g7945079468_)))) + (_g7944979464_ _g7945079468_))))) + (_g7944879508_ (list _tgt79347_ _hd79345_))))) + (if (gx#stx-null? _hd79345_) + (let* ((_g7951279520_ + (lambda (_g7951379516_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7951679519_))) - (_g7951479541_ - (lambda (_g7951679527_) - ((lambda (_L79530_) + _g7951379516_))) + (_g7951179538_ + (lambda (_g7951379524_) + ((lambda (_L79527_) (let () - (let ((__tmp80213 + (let ((__tmp80210 (gx#datum->syntax '#f 'if)) - (__tmp80207 - (let ((__tmp80210 - (let ((__tmp80212 + (__tmp80204 + (let ((__tmp80207 + (let ((__tmp80209 (gx#datum->syntax '#f 'stx-null?)) - (__tmp80211 + (__tmp80208 (let () (declare (not safe)) - (cons _L79530_ + (cons _L79527_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp80212 __tmp80211))) + (cons __tmp80209 __tmp80208))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp80208 - (let ((__tmp80209 + (__tmp80205 + (let ((__tmp80206 (let () (declare (not safe)) - (cons _E79343_ + (cons _E79340_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _K79351_ __tmp80209)))) + (cons _K79348_ __tmp80206)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80210 __tmp80208)))) + (cons __tmp80207 __tmp80205)))) (declare (not safe)) - (cons __tmp80213 __tmp80207)))) - _g7951679527_)))) - (_g7951479541_ _tgt79350_)) - (if (gx#stx-datum? _hd79348_) - (let* ((_g7954579564_ - (lambda (_g7954679560_) + (cons __tmp80210 __tmp80204)))) + _g7951379524_)))) + (_g7951179538_ _tgt79347_)) + (if (gx#stx-datum? _hd79345_) + (let* ((_g7954279561_ + (lambda (_g7954379557_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7954679560_))) - (_g7954479622_ - (lambda (_g7954679568_) - (if (gx#stx-pair? _g7954679568_) - (let ((_e7955279571_ - (gx#syntax-e _g7954679568_))) - (let ((_hd7955179575_ + _g7954379557_))) + (_g7954179619_ + (lambda (_g7954379565_) + (if (gx#stx-pair? _g7954379565_) + (let ((_e7954979568_ + (gx#syntax-e _g7954379565_))) + (let ((_hd7954879572_ (let () (declare (not safe)) - (##car _e7955279571_))) - (_tl7955079578_ + (##car _e7954979568_))) + (_tl7954779575_ (let () (declare (not safe)) - (##cdr _e7955279571_)))) - (if (gx#stx-pair? _tl7955079578_) - (let ((_e7955579581_ + (##cdr _e7954979568_)))) + (if (gx#stx-pair? _tl7954779575_) + (let ((_e7955279578_ (gx#syntax-e - _tl7955079578_))) - (let ((_hd7955479585_ + _tl7954779575_))) + (let ((_hd7955179582_ (let () (declare (not safe)) - (##car _e7955579581_))) - (_tl7955379588_ + (##car _e7955279578_))) + (_tl7955079585_ (let () (declare (not safe)) - (##cdr _e7955579581_)))) + (##cdr _e7955279578_)))) (if (gx#stx-pair? - _tl7955379588_) - (let ((_e7955879591_ + _tl7955079585_) + (let ((_e7955579588_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl7955379588_))) - (let ((_hd7955779595_ - (let () (declare (not safe)) (##car _e7955879591_))) - (_tl7955679598_ - (let () (declare (not safe)) (##cdr _e7955879591_)))) - (if (gx#stx-null? _tl7955679598_) - ((lambda (_L79601_ _L79603_ _L79604_) + _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_) (let () - (let ((__tmp80206 (gx#datum->syntax '#f 'if)) - (__tmp80194 - (let ((__tmp80197 - (let ((__tmp80198 - (let ((__tmp80203 - (let ((__tmp80205 + (let ((__tmp80203 (gx#datum->syntax '#f 'if)) + (__tmp80191 + (let ((__tmp80194 + (let ((__tmp80195 + (let ((__tmp80200 + (let ((__tmp80202 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'stx-e)) - (__tmp80204 - (let () (declare (not safe)) (cons _L79604_ '())))) + (__tmp80201 + (let () (declare (not safe)) (cons _L79601_ '())))) (declare (not safe)) - (cons __tmp80205 __tmp80204))) - (__tmp80199 - (let ((__tmp80200 - (let ((__tmp80202 (gx#datum->syntax '#f 'quote)) - (__tmp80201 + (cons __tmp80202 __tmp80201))) + (__tmp80196 + (let ((__tmp80197 + (let ((__tmp80199 (gx#datum->syntax '#f 'quote)) + (__tmp80198 (let () (declare (not safe)) - (cons _L79603_ '())))) + (cons _L79600_ '())))) (declare (not safe)) - (cons __tmp80202 __tmp80201)))) + (cons __tmp80199 __tmp80198)))) (declare (not safe)) - (cons __tmp80200 '())))) + (cons __tmp80197 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80203 - __tmp80199)))) + (cons __tmp80200 + __tmp80196)))) (declare (not safe)) - (cons _L79601_ __tmp80198))) - (__tmp80195 - (let ((__tmp80196 + (cons _L79598_ __tmp80195))) + (__tmp80192 + (let ((__tmp80193 (let () (declare (not safe)) - (cons _E79343_ '())))) + (cons _E79340_ '())))) (declare (not safe)) - (cons _K79351_ __tmp80196)))) + (cons _K79348_ __tmp80193)))) (declare (not safe)) - (cons __tmp80197 __tmp80195)))) + (cons __tmp80194 __tmp80192)))) (declare (not safe)) - (cons __tmp80206 __tmp80194)))) - _hd7955779595_ - _hd7955479585_ - _hd7955179575_) - (_g7954579564_ _g7954679568_)))) - (_g7954579564_ _g7954679568_)))) + (cons __tmp80203 __tmp80191)))) + _hd7955479592_ + _hd7955179582_ + _hd7954879572_) + (_g7954279561_ _g7954379565_)))) + (_g7954279561_ _g7954379565_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7954579564_ - _g7954679568_)))) - (_g7954579564_ _g7954679568_))))) - (_g7954479622_ - (list _tgt79350_ - _hd79348_ - (let ((_e79626_ (gx#stx-e _hd79348_))) - (if (or (keyword? _e79626_) + (_g7954279561_ + _g7954379565_)))) + (_g7954279561_ _g7954379565_))))) + (_g7954179619_ + (list _tgt79347_ + _hd79345_ + (let ((_e79623_ (gx#stx-e _hd79345_))) + (if (or (keyword? _e79623_) (let () (declare (not safe)) - (immediate? _e79626_))) + (immediate? _e79623_))) (gx#datum->syntax '#f 'eq?) (if (let () (declare (not safe)) - (number? _e79626_)) + (number? _e79623_)) (gx#datum->syntax '#f 'eqv?) (gx#datum->syntax '#f @@ -1013,502 +1013,502 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case head" - _stx78793_ - _where79338_ - _hd79348_))))))) + _stx78790_ + _where79335_ + _hd79345_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx8005880059_) - (let ((_e7936079640_ + ___stx8005580056_) + (let ((_e7935779637_ (gx#syntax-e - ___stx8005880059_))) - (let ((_tl7935879647_ + ___stx8005580056_))) + (let ((_tl7935579644_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e7936079640_))) - (_hd7935979644_ - (let () (declare (not safe)) (##car _e7936079640_)))) - (___kont8006180062_ _tl7935879647_ _hd7935979644_))) + (##cdr _e7935779637_))) + (_hd7935679641_ + (let () (declare (not safe)) (##car _e7935779637_)))) + (___kont8005880059_ _tl7935579644_ _hd7935679641_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8006380064_))))))) - (_recur79345_ - _hd79340_ - _tgt78945_ - (let ((__tmp80242 + (___kont8006080061_))))))) + (_recur79342_ + _hd79337_ + _tgt78942_ + (let ((__tmp80239 (gx#datum->syntax '#f 'if)) - (__tmp80239 - (let ((__tmp80240 - (let ((__tmp80241 + (__tmp80236 + (let ((__tmp80237 + (let ((__tmp80238 (let () (declare (not safe)) - (cons _E79343_ + (cons _E79340_ '())))) (declare (not safe)) - (cons _body79342_ - __tmp80241)))) + (cons _body79339_ + __tmp80238)))) (declare (not safe)) - (cons _fender79341_ __tmp80240)))) + (cons _fender79338_ __tmp80237)))) (declare (not safe)) - (cons __tmp80242 __tmp80239)))))) - (_generate-clauses78953_ - (lambda (_clauses79076_) - (let _lp79079_ ((_rest79082_ _clauses79076_) - (_E79084_ (gx#genident 'E)) - (_r79085_ '())) - (let* ((___stx8009480095_ _rest79082_) - (_g7908879100_ + (cons __tmp80239 __tmp80236)))))) + (_generate-clauses78950_ + (lambda (_clauses79073_) + (let _lp79076_ ((_rest79079_ _clauses79073_) + (_E79081_ (gx#genident 'E)) + (_r79082_ '())) + (let* ((___stx8009180092_ _rest79079_) + (_g7908579097_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx8009480095_)))) - (let ((___kont8009780098_ - (lambda (_L79165_ _L79167_) - (let* ((___stx8007480075_ - _L79167_) - (_g7917979190_ + ___stx8009180092_)))) + (let ((___kont8009480095_ + (lambda (_L79162_ _L79164_) + (let* ((___stx8007180072_ + _L79164_) + (_g7917679187_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx8007480075_)))) - (let ((___kont8007780078_ - (lambda (_L79319_) + ___stx8007180072_)))) + (let ((___kont8007480075_ + (lambda (_L79316_) (if (gx#stx-null? - _L79165_) + _L79162_) (if (and (gx#stx-list? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L79319_) - (let ((__tmp80251 (gx#stx-null? _L79319_))) + _L79316_) + (let ((__tmp80248 (gx#stx-null? _L79316_))) (declare (not safe)) - (not __tmp80251))) - (let ((__tmp80243 - (let ((__tmp80244 - (let ((__tmp80245 + (not __tmp80248))) + (let ((__tmp80240 + (let ((__tmp80241 + (let ((__tmp80242 (gx#stx-wrap-source - (let ((__tmp80250 + (let ((__tmp80247 (gx#datum->syntax '#f 'lambda)) - (__tmp80246 - (let ((__tmp80247 - (let ((__tmp80248 + (__tmp80243 + (let ((__tmp80244 + (let ((__tmp80245 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp80249 (gx#datum->syntax '#f 'begin))) + (let ((__tmp80246 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp80249 _L79319_)))) + (cons __tmp80246 _L79316_)))) (declare (not safe)) - (cons __tmp80248 '())))) + (cons __tmp80245 '())))) (declare (not safe)) - (cons '() __tmp80247)))) + (cons '() __tmp80244)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80250 __tmp80246)) - (gx#stx-source _L79167_)))) + (cons __tmp80247 __tmp80243)) + (gx#stx-source _L79164_)))) (declare (not safe)) - (cons __tmp80245 '())))) + (cons __tmp80242 '())))) (declare (not safe)) - (cons _E79084_ __tmp80244)))) + (cons _E79081_ __tmp80241)))) (declare (not safe)) - (cons __tmp80243 _r79085_)) + (cons __tmp80240 _r79082_)) (gx#raise-syntax-error '#f '"Bad syntax; invalid else body" - _stx78793_ - _L79167_)) + _stx78790_ + _L79164_)) (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _stx78793_ - _L79167_)))) + _stx78790_ + _L79164_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8007980080_ + (___kont8007680077_ (lambda () - (let* ((_g7920179209_ - (lambda (_g7920279205_) + (let* ((_g7919879206_ + (lambda (_g7919979202_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7920279205_))) - (_g7920079298_ - (lambda (_g7920279213_) - ((lambda (_L79216_) + _g7919979202_))) + (_g7919779295_ + (lambda (_g7919979210_) + ((lambda (_L79213_) (let () - (let* ((_g7923279240_ - (lambda (_g7923379236_) + (let* ((_g7922979237_ + (lambda (_g7923079233_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7923379236_))) - (_g7923179294_ - (lambda (_g7923379244_) - ((lambda (_L79247_) + _g7923079233_))) + (_g7922879291_ + (lambda (_g7923079241_) + ((lambda (_L79244_) (let () - (let* ((_g7926079268_ - (lambda (_g7926179264_) + (let* ((_g7925779265_ + (lambda (_g7925879261_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7926179264_))) - (_g7925979290_ - (lambda (_g7926179272_) - ((lambda (_L79275_) + _g7925879261_))) + (_g7925679287_ + (lambda (_g7925879269_) + ((lambda (_L79272_) (let () (let () - (_lp79079_ - _L79165_ - _L79216_ - (let ((__tmp80252 + (_lp79076_ + _L79162_ + _L79213_ + (let ((__tmp80249 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp80253 + (let ((__tmp80250 (let () (declare (not safe)) - (cons _L79275_ '())))) + (cons _L79272_ '())))) (declare (not safe)) - (cons _E79084_ __tmp80253)))) + (cons _E79081_ __tmp80250)))) (declare (not safe)) - (cons __tmp80252 _r79085_)))))) - _g7926179272_)))) + (cons __tmp80249 _r79082_)))))) + _g7925879269_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7925979290_ + (_g7925679287_ (gx#stx-wrap-source - (let ((__tmp80256 + (let ((__tmp80253 (gx#datum->syntax '#f 'lambda)) - (__tmp80254 - (let ((__tmp80255 + (__tmp80251 + (let ((__tmp80252 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L79247_ '())))) + (cons _L79244_ '())))) (declare (not safe)) - (cons '() __tmp80255)))) + (cons '() __tmp80252)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80256 - __tmp80254)) - (gx#stx-source _L79167_)))))) - _g7923379244_)))) - (_g7923179294_ - (_generate-clause78950_ - _L79167_ + (cons __tmp80253 + __tmp80251)) + (gx#stx-source _L79164_)))))) + _g7923079241_)))) + (_g7922879291_ + (_generate-clause78947_ + _L79164_ (let () (declare (not safe)) - (cons _L79216_ '()))))))) - _g7920279213_)))) - (_g7920079298_ (gx#genident 'E)))))) + (cons _L79213_ '()))))))) + _g7919979210_)))) + (_g7919779295_ (gx#genident 'E)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx8007480075_) - (let ((_e7918479309_ + ___stx8007180072_) + (let ((_e7918179306_ (gx#syntax-e - ___stx8007480075_))) - (let ((_tl7918279316_ + ___stx8007180072_))) + (let ((_tl7917979313_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e7918479309_))) - (_hd7918379313_ - (let () (declare (not safe)) (##car _e7918479309_)))) - (if (gx#identifier? _hd7918379313_) - (if (gx#free-identifier=? |gx[1]#_g80257_| _hd7918379313_) - (___kont8007780078_ _tl7918279316_) - (___kont8007980080_)) - (___kont8007980080_)))) + (##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_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8007980080_)))))) - (___kont8009980100_ + (___kont8007680077_)))))) + (___kont8009680097_ (lambda () - (let* ((_g7911179119_ - (lambda (_g7911279115_) + (let* ((_g7910879116_ + (lambda (_g7910979112_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7911279115_))) - (_g7911079144_ - (lambda (_g7911279123_) - ((lambda (_L79126_) + _g7910979112_))) + (_g7910779141_ + (lambda (_g7910979120_) + ((lambda (_L79123_) (let () - (let ((__tmp80258 + (let ((__tmp80255 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp80259 - (let ((__tmp80260 + (let ((__tmp80256 + (let ((__tmp80257 (gx#stx-wrap-source - (let ((__tmp80268 + (let ((__tmp80265 (gx#datum->syntax '#f 'lambda)) - (__tmp80261 - (let ((__tmp80262 - (let ((__tmp80263 - (let ((__tmp80267 + (__tmp80258 + (let ((__tmp80259 + (let ((__tmp80260 + (let ((__tmp80264 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'raise-syntax-error)) - (__tmp80264 - (let ((__tmp80265 - (let ((__tmp80266 + (__tmp80261 + (let ((__tmp80262 + (let ((__tmp80263 (let () (declare (not safe)) - (cons _L79126_ '())))) + (cons _L79123_ '())))) (declare (not safe)) (cons '"Bad syntax; invalid syntax-case clause" - __tmp80266)))) + __tmp80263)))) (declare (not safe)) - (cons '#f __tmp80265)))) + (cons '#f __tmp80262)))) (declare (not safe)) - (cons __tmp80267 __tmp80264)))) + (cons __tmp80264 __tmp80261)))) (declare (not safe)) - (cons __tmp80263 '())))) + (cons __tmp80260 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp80262)))) + (cons '() __tmp80259)))) (declare (not safe)) - (cons __tmp80268 __tmp80261)) - (gx#stx-source _stx78793_)))) + (cons __tmp80265 __tmp80258)) + (gx#stx-source _stx78790_)))) (declare (not safe)) - (cons __tmp80260 '())))) + (cons __tmp80257 '())))) (declare (not safe)) - (cons _E79084_ __tmp80259)))) + (cons _E79081_ __tmp80256)))) (declare (not safe)) - (cons __tmp80258 _r79085_)))) - _g7911279123_)))) + (cons __tmp80255 _r79082_)))) + _g7910979120_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7911079144_ _tgt78945_))))) - (if (gx#stx-pair? ___stx8009480095_) - (let ((_e7909479155_ + (_g7910779141_ _tgt78942_))))) + (if (gx#stx-pair? ___stx8009180092_) + (let ((_e7909179152_ (gx#syntax-e - ___stx8009480095_))) - (let ((_tl7909279162_ + ___stx8009180092_))) + (let ((_tl7908979159_ (let () (declare (not safe)) - (##cdr _e7909479155_))) - (_hd7909379159_ + (##cdr _e7909179152_))) + (_hd7909079156_ (let () (declare (not safe)) - (##car _e7909479155_)))) - (___kont8009780098_ - _tl7909279162_ - _hd7909379159_))) - (___kont8009980100_)))))))) - (let* ((_bind78955_ - (_generate-clauses78953_ _clauses78948_)) - (_g7895878975_ - (lambda (_g7895978971_) + (##car _e7909179152_)))) + (___kont8009480095_ + _tl7908979159_ + _hd7909079156_))) + (___kont8009680097_)))))))) + (let* ((_bind78952_ + (_generate-clauses78950_ _clauses78945_)) + (_g7895578972_ + (lambda (_g7895678968_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7895978971_))) - (_g7895779072_ - (lambda (_g7895978979_) - (if (gx#stx-pair/null? _g7895978979_) - (let ((_g80269_ + _g7895678968_))) + (_g7895479069_ + (lambda (_g7895678976_) + (if (gx#stx-pair/null? _g7895678976_) + (let ((_g80266_ (gx#syntax-split-splice - _g7895978979_ + _g7895678976_ '0))) (begin - (let ((_g80270_ + (let ((_g80267_ (let () (declare (not safe)) - (if (##values? _g80269_) - (##vector-length _g80269_) + (if (##values? _g80266_) + (##vector-length _g80266_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80270_ 2))) + (##fx= _g80267_ 2))) (error "Context expects 2 values" - _g80270_))) - (let ((_target7896178982_ + _g80267_))) + (let ((_target7895878979_ (let () (declare (not safe)) - (##vector-ref _g80269_ 0))) - (_tl7896378985_ + (##vector-ref _g80266_ 0))) + (_tl7896078982_ (let () (declare (not safe)) - (##vector-ref _g80269_ 1)))) - (if (gx#stx-null? _tl7896378985_) - (letrec ((_loop7896478988_ - (lambda (_hd7896278992_ + (##vector-ref _g80266_ 1)))) + (if (gx#stx-null? _tl7896078982_) + (letrec ((_loop7896178985_ + (lambda (_hd7895978989_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind-try7896878995_) - (if (gx#stx-pair? _hd7896278992_) - (let ((_e7896578998_ (gx#syntax-e _hd7896278992_))) - (let ((_lp-hd7896679002_ + _bind-try7896578992_) + (if (gx#stx-pair? _hd7895978989_) + (let ((_e7896278995_ (gx#syntax-e _hd7895978989_))) + (let ((_lp-hd7896378999_ (let () (declare (not safe)) - (##car _e7896578998_))) - (_lp-tl7896779005_ + (##car _e7896278995_))) + (_lp-tl7896479002_ (let () (declare (not safe)) - (##cdr _e7896578998_)))) - (_loop7896478988_ - _lp-tl7896779005_ + (##cdr _e7896278995_)))) + (_loop7896178985_ + _lp-tl7896479002_ (let () (declare (not safe)) - (cons _lp-hd7896679002_ _bind-try7896878995_))))) - (let ((_bind-try7896979008_ - (reverse _bind-try7896878995_))) - ((lambda (_L79012_) + (cons _lp-hd7896378999_ _bind-try7896578992_))))) + (let ((_bind-try7896679005_ + (reverse _bind-try7896578992_))) + ((lambda (_L79009_) (let () - (let* ((_g7903079038_ - (lambda (_g7903179034_) + (let* ((_g7902779035_ + (lambda (_g7902879031_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7903179034_))) - (_g7902979068_ - (lambda (_g7903179042_) - ((lambda (_L79045_) + _g7902879031_))) + (_g7902679065_ + (lambda (_g7902879039_) + ((lambda (_L79042_) (let () (let () - (let ((__tmp80276 + (let ((__tmp80273 (gx#datum->syntax '#f 'let*)) - (__tmp80271 - (let ((__tmp80274 - (let ((__tmp80275 + (__tmp80268 + (let ((__tmp80271 + (let ((__tmp80272 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7905979062_ _g7906079065_) + (lambda (_g7905679059_ _g7905779062_) (let () (declare (not safe)) - (cons _g7905979062_ _g7906079065_))))) + (cons _g7905679059_ _g7905779062_))))) (declare (not safe)) - (foldr1 __tmp80275 '() _L79012_))) - (__tmp80272 - (let ((__tmp80273 - (let () (declare (not safe)) (cons _L79045_ '())))) + (foldr1 __tmp80272 '() _L79009_))) + (__tmp80269 + (let ((__tmp80270 + (let () (declare (not safe)) (cons _L79042_ '())))) (declare (not safe)) - (cons __tmp80273 '())))) + (cons __tmp80270 '())))) (declare (not safe)) - (cons __tmp80274 __tmp80272)))) + (cons __tmp80271 __tmp80269)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80276 - __tmp80271))))) - _g7903179042_)))) - (_g7902979068_ + (cons __tmp80273 + __tmp80268))))) + _g7902879039_)))) + (_g7902679065_ (car (let () (declare (not safe)) - (last _bind78955_))))))) - _bind-try7896979008_)))))) + (last _bind78952_))))))) + _bind-try7896679005_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop7896478988_ - _target7896178982_ + (_loop7896178985_ + _target7895878979_ '())) - (_g7895878975_ _g7895978979_))))) - (_g7895878975_ _g7895978979_))))) - (_g7895779072_ _bind78955_)))))) - (let* ((_g7879978818_ - (lambda (_g7880078814_) + (_g7895578972_ _g7895678976_))))) + (_g7895578972_ _g7895678976_))))) + (_g7895479069_ _bind78952_)))))) + (let* ((_g7879678815_ + (lambda (_g7879778811_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7880078814_))) - (_g7879878941_ - (lambda (_g7880078822_) - (if (gx#stx-pair? _g7880078822_) - (let ((_e7880678825_ (gx#syntax-e _g7880078822_))) - (let ((_hd7880578829_ + _g7879778811_))) + (_g7879578938_ + (lambda (_g7879778819_) + (if (gx#stx-pair? _g7879778819_) + (let ((_e7880378822_ (gx#syntax-e _g7879778819_))) + (let ((_hd7880278826_ (let () (declare (not safe)) - (##car _e7880678825_))) - (_tl7880478832_ + (##car _e7880378822_))) + (_tl7880178829_ (let () (declare (not safe)) - (##cdr _e7880678825_)))) - (if (gx#stx-pair? _tl7880478832_) - (let ((_e7880978835_ - (gx#syntax-e _tl7880478832_))) - (let ((_hd7880878839_ + (##cdr _e7880378822_)))) + (if (gx#stx-pair? _tl7880178829_) + (let ((_e7880678832_ + (gx#syntax-e _tl7880178829_))) + (let ((_hd7880578836_ (let () (declare (not safe)) - (##car _e7880978835_))) - (_tl7880778842_ + (##car _e7880678832_))) + (_tl7880478839_ (let () (declare (not safe)) - (##cdr _e7880978835_)))) - (if (gx#stx-pair? _tl7880778842_) - (let ((_e7881278845_ - (gx#syntax-e _tl7880778842_))) - (let ((_hd7881178849_ + (##cdr _e7880678832_)))) + (if (gx#stx-pair? _tl7880478839_) + (let ((_e7880978842_ + (gx#syntax-e _tl7880478839_))) + (let ((_hd7880878846_ (let () (declare (not safe)) - (##car _e7881278845_))) - (_tl7881078852_ + (##car _e7880978842_))) + (_tl7880778849_ (let () (declare (not safe)) - (##cdr _e7881278845_)))) - ((lambda (_L78855_ - _L78857_ - _L78858_) + (##cdr _e7880978842_)))) + ((lambda (_L78852_ + _L78854_ + _L78855_) (if (and (gx#identifier-list? - _L78857_) + _L78854_) (gx#stx-list? - _L78855_)) - (let* ((_g7887678884_ - (lambda (_g7887778880_) + _L78852_)) + (let* ((_g7887378881_ + (lambda (_g7887478877_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7887778880_))) - (_g7887578937_ - (lambda (_g7887778888_) - ((lambda (_L78891_) + _g7887478877_))) + (_g7887278934_ + (lambda (_g7887478885_) + ((lambda (_L78888_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g7890378911_ - (lambda (_g7890478907_) + (let* ((_g7890078908_ + (lambda (_g7890178904_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7890478907_))) - (_g7890278933_ - (lambda (_g7890478915_) - ((lambda (_L78918_) + _g7890178904_))) + (_g7889978930_ + (lambda (_g7890178912_) + ((lambda (_L78915_) (let () (let () - (let ((__tmp80282 + (let ((__tmp80279 (gx#datum->syntax '#f 'let)) - (__tmp80277 - (let ((__tmp80279 - (let ((__tmp80280 - (let ((__tmp80281 + (__tmp80274 + (let ((__tmp80276 + (let ((__tmp80277 + (let ((__tmp80278 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L78858_ '())))) + (cons _L78855_ '())))) (declare (not safe)) - (cons _L78891_ __tmp80281)))) + (cons _L78888_ __tmp80278)))) (declare (not safe)) - (cons __tmp80280 '()))) - (__tmp80278 (let () (declare (not safe)) (cons _L78918_ '())))) + (cons __tmp80277 '()))) + (__tmp80275 (let () (declare (not safe)) (cons _L78915_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80279 - __tmp80278)))) + (cons __tmp80276 + __tmp80275)))) (declare (not safe)) - (cons __tmp80282 __tmp80277))))) - _g7890478915_)))) - (_g7890278933_ - (_generate78796_ - _L78891_ - (gx#syntax->list _L78857_) - _L78855_))))) - _g7887778888_)))) + (cons __tmp80279 __tmp80274))))) + _g7890178912_)))) + (_g7889978930_ + (_generate78793_ + _L78888_ + (gx#syntax->list _L78854_) + _L78852_))))) + _g7887478885_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7887578937_ + (_g7887278934_ (gx#genident 'e))) - (_g7879978818_ - _g7880078822_))) - _tl7881078852_ - _hd7881178849_ - _hd7880878839_))) - (_g7879978818_ _g7880078822_)))) - (_g7879978818_ _g7880078822_)))) - (_g7879978818_ _g7880078822_))))) - (_g7879878941_ _stx78793_))))))) + (_g7879678815_ + _g7879778819_))) + _tl7880778849_ + _hd7880878846_ + _hd7880578836_))) + (_g7879678815_ _g7879778819_)))) + (_g7879678815_ _g7879778819_)))) + (_g7879678815_ _g7879778819_))))) + (_g7879578938_ _stx78790_))))))) diff --git a/src/bootstrap/gerbil/expander/compile__0.scm b/src/bootstrap/gerbil/expander/compile__0.scm index 85d0c366..a390dc68 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 1709128372) + (define gerbil/expander/compile::timestamp 1709229970) (begin (declare (not safe)) (define gx#core-compile-top-syntax - (lambda (_stx94857_) - (let* ((_e9485894865_ _stx94857_) - (_E9486094869_ + (lambda (_stx94854_) + (let* ((_e9485594862_ _stx94854_) + (_E9485794866_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9485894865_))) - (_E9485994883_ - (lambda () - (if (gx#stx-pair? _e9485894865_) - (let ((_e9486194873_ (gx#syntax-e _e9485894865_))) - (let ((_hd9486294876_ (##car _e9486194873_)) - (_tl9486394878_ (##cdr _e9486194873_))) - (let ((_form94881_ _hd9486294876_)) + _e9485594862_))) + (_E9485694880_ + (lambda () + (if (gx#stx-pair? _e9485594862_) + (let ((_e9485894870_ (gx#syntax-e _e9485594862_))) + (let ((_hd9485994873_ (##car _e9485894870_)) + (_tl9486094875_ (##cdr _e9485894870_))) + (let ((_form94878_ _hd9485994873_)) (if '#t - (let* ((__self94886 - (gx#syntax-local-e__0 _form94881_)) - (__method94887 + (let* ((__self94883 + (gx#syntax-local-e__0 _form94878_)) + (__method94884 (method-ref - __self94886 + __self94883 'compile-top-syntax))) - (if __method94887 - (__method94887 __self94886 _stx94857_) + (if __method94884 + (__method94884 __self94883 _stx94854_) (error '"Missing method" - __self94886 + __self94883 'compile-top-syntax))) - (_E9486094869_))))) - (_E9486094869_))))) - (_E9485994883_)))) + (_E9485794866_))))) + (_E9485794866_))))) + (_E9485694880_)))) (define gx#core-expander::compile-top-syntax - (lambda (_self94817_ _stx94818_) - (let* ((_self9481994827_ _self94817_) - (_E9482194831_ - (lambda () (error '"No clause matching" _self9481994827_))) - (_K9482294843_ - (lambda (_K94834_) - (let ((_$e94836_ (gx#stx-source _stx94818_))) - (if _$e94836_ - ((lambda (_g9483894840_) + (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_) (gx#stx-wrap-source - (_K94834_ _stx94818_) - _g9483894840_)) - _$e94836_) - (_K94834_ _stx94818_)))))) - (if (##structure-instance-of? _self9481994827_ 'gx#core-expander::t) - (let* ((_e9482394846_ + (_K94831_ _stx94815_) + _g9483594837_)) + _$e94833_) + (_K94831_ _stx94815_)))))) + (if (##structure-instance-of? _self9481694824_ 'gx#core-expander::t) + (let* ((_e9482094843_ (##unchecked-structure-ref - _self9481994827_ + _self9481694824_ '1 gx#expander::t '#f)) - (_e9482494849_ + (_e9482194846_ (##unchecked-structure-ref - _self9481994827_ + _self9481694824_ '2 gx#core-expander::t '#f)) - (_e9482594852_ + (_e9482294849_ (##unchecked-structure-ref - _self9481994827_ + _self9481694824_ '3 gx#core-expander::t '#f)) - (_K94855_ _e9482594852_)) - (_K9482294843_ _K94855_)) - (_E9482194831_))))) + (_K94852_ _e9482294849_)) + (_K9481994840_ _K94852_)) + (_E9481894828_))))) (bind-method!__% gx#core-expander::t 'compile-top-syntax gx#core-expander::compile-top-syntax '#f) (define gx#core-compile-top-error - (lambda (_stx94691_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _stx94691_))) + (lambda (_stx94688_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _stx94688_))) (define gx#core-compile-top-begin% - (lambda (_stx94661_) - (let* ((_e9466294669_ _stx94661_) - (_E9466494673_ + (lambda (_stx94658_) + (let* ((_e9465994666_ _stx94658_) + (_E9466194670_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9466294669_))) - (_E9466394687_ - (lambda () - (if (gx#stx-pair? _e9466294669_) - (let ((_e9466594677_ (gx#syntax-e _e9466294669_))) - (let ((_hd9466694680_ (##car _e9466594677_)) - (_tl9466794682_ (##cdr _e9466594677_))) - (let ((_body94685_ _tl9466794682_)) + _e9465994666_))) + (_E9466094684_ + (lambda () + (if (gx#stx-pair? _e9465994666_) + (let ((_e9466294674_ (gx#syntax-e _e9465994666_))) + (let ((_hd9466394677_ (##car _e9466294674_)) + (_tl9466494679_ (##cdr _e9466294674_))) + (let ((_body94682_ _tl9466494679_)) (if '#t (cons '%#begin (gx#stx-map1 gx#core-compile-top-syntax - _body94685_)) - (_E9466494673_))))) - (_E9466494673_))))) - (_E9466394687_)))) + _body94682_)) + (_E9466194670_))))) + (_E9466194670_))))) + (_E9466094684_)))) (define gx#core-compile-top-begin-syntax% - (lambda (_stx94630_) - (let* ((_e9463194638_ _stx94630_) - (_E9463394642_ + (lambda (_stx94627_) + (let* ((_e9462894635_ _stx94627_) + (_E9463094639_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9463194638_))) - (_E9463294657_ - (lambda () - (if (gx#stx-pair? _e9463194638_) - (let ((_e9463494646_ (gx#syntax-e _e9463194638_))) - (let ((_hd9463594649_ (##car _e9463494646_)) - (_tl9463694651_ (##cdr _e9463494646_))) - (let ((_body94654_ _tl9463694651_)) + _e9462894635_))) + (_E9462994654_ + (lambda () + (if (gx#stx-pair? _e9462894635_) + (let ((_e9463194643_ (gx#syntax-e _e9462894635_))) + (let ((_hd9463294646_ (##car _e9463194643_)) + (_tl9463394648_ (##cdr _e9463194643_))) + (let ((_body94651_ _tl9463394648_)) (if '#t (cons '%#begin-syntax (call-with-parameters (lambda () (gx#stx-map1 gx#core-compile-top-syntax - _body94654_)) + _body94651_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))) - (_E9463394642_))))) - (_E9463394642_))))) - (_E9463294657_)))) + (_E9463094639_))))) + (_E9463094639_))))) + (_E9462994654_)))) (define gx#core-compile-top-begin-foreign% - (lambda (_stx94600_) - (let* ((_e9460194608_ _stx94600_) - (_E9460394612_ + (lambda (_stx94597_) + (let* ((_e9459894605_ _stx94597_) + (_E9460094609_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9460194608_))) - (_E9460294626_ - (lambda () - (if (gx#stx-pair? _e9460194608_) - (let ((_e9460494616_ (gx#syntax-e _e9460194608_))) - (let ((_hd9460594619_ (##car _e9460494616_)) - (_tl9460694621_ (##cdr _e9460494616_))) - (let ((_body94624_ _tl9460694621_)) + _e9459894605_))) + (_E9459994623_ + (lambda () + (if (gx#stx-pair? _e9459894605_) + (let ((_e9460194613_ (gx#syntax-e _e9459894605_))) + (let ((_hd9460294616_ (##car _e9460194613_)) + (_tl9460394618_ (##cdr _e9460194613_))) + (let ((_body94621_ _tl9460394618_)) (if '#t - (cons '%#begin-foreign _body94624_) - (_E9460394612_))))) - (_E9460394612_))))) - (_E9460294626_)))) + (cons '%#begin-foreign _body94621_) + (_E9460094609_))))) + (_E9460094609_))))) + (_E9459994623_)))) (define gx#core-compile-top-begin-annotation% - (lambda (_stx94546_) - (let* ((_e9454794560_ _stx94546_) - (_E9454994564_ + (lambda (_stx94543_) + (let* ((_e9454494557_ _stx94543_) + (_E9454694561_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9454794560_))) - (_E9454894596_ - (lambda () - (if (gx#stx-pair? _e9454794560_) - (let ((_e9455094568_ (gx#syntax-e _e9454794560_))) - (let ((_hd9455194571_ (##car _e9455094568_)) - (_tl9455294573_ (##cdr _e9455094568_))) - (if (gx#stx-pair? _tl9455294573_) - (let ((_e9455394576_ - (gx#syntax-e _tl9455294573_))) - (let ((_hd9455494579_ (##car _e9455394576_)) - (_tl9455594581_ (##cdr _e9455394576_))) - (let ((_ann94584_ _hd9455494579_)) - (if (gx#stx-pair? _tl9455594581_) - (let ((_e9455694586_ - (gx#syntax-e _tl9455594581_))) - (let ((_hd9455794589_ - (##car _e9455694586_)) - (_tl9455894591_ - (##cdr _e9455694586_))) - (let ((_expr94594_ _hd9455794589_)) - (if (gx#stx-null? _tl9455894591_) + _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_) (if '#t (gx#core-compile-top-syntax - _expr94594_) - (_E9454994564_)) - (_E9454994564_))))) - (_E9454994564_))))) - (_E9454994564_)))) - (_E9454994564_))))) - (_E9454894596_)))) + _expr94591_) + (_E9454694561_)) + (_E9454694561_))))) + (_E9454694561_))))) + (_E9454694561_)))) + (_E9454694561_))))) + (_E9454594593_)))) (define gx#core-compile-top-import% - (lambda (_stx94516_) - (let* ((_e9451794524_ _stx94516_) - (_E9451994528_ + (lambda (_stx94513_) + (let* ((_e9451494521_ _stx94513_) + (_E9451694525_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9451794524_))) - (_E9451894542_ - (lambda () - (if (gx#stx-pair? _e9451794524_) - (let ((_e9452094532_ (gx#syntax-e _e9451794524_))) - (let ((_hd9452194535_ (##car _e9452094532_)) - (_tl9452294537_ (##cdr _e9452094532_))) - (let ((_body94540_ _tl9452294537_)) + _e9451494521_))) + (_E9451594539_ + (lambda () + (if (gx#stx-pair? _e9451494521_) + (let ((_e9451794529_ (gx#syntax-e _e9451494521_))) + (let ((_hd9451894532_ (##car _e9451794529_)) + (_tl9451994534_ (##cdr _e9451794529_))) + (let ((_body94537_ _tl9451994534_)) (if '#t - (cons '%#import _body94540_) - (_E9451994528_))))) - (_E9451994528_))))) - (_E9451894542_)))) + (cons '%#import _body94537_) + (_E9451694525_))))) + (_E9451694525_))))) + (_E9451594539_)))) (define gx#core-compile-top-module% - (lambda (_stx94473_) - (let* ((_e9447494484_ _stx94473_) - (_E9447694488_ + (lambda (_stx94470_) + (let* ((_e9447194481_ _stx94470_) + (_E9447394485_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9447494484_))) - (_E9447594512_ - (lambda () - (if (gx#stx-pair? _e9447494484_) - (let ((_e9447794492_ (gx#syntax-e _e9447494484_))) - (let ((_hd9447894495_ (##car _e9447794492_)) - (_tl9447994497_ (##cdr _e9447794492_))) - (if (gx#stx-pair? _tl9447994497_) - (let ((_e9448094500_ - (gx#syntax-e _tl9447994497_))) - (let ((_hd9448194503_ (##car _e9448094500_)) - (_tl9448294505_ (##cdr _e9448094500_))) - (let* ((_hd94508_ _hd9448194503_) - (_body94510_ _tl9448294505_)) + _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_)) (if '#t (cons '%#module (cons (##structure-ref (gx#syntax-local-e__0 - _hd94508_) + _hd94505_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _body94510_))) - (_E9447694488_))))) - (_E9447694488_)))) - (_E9447694488_))))) - (_E9447594512_)))) + _body94507_))) + (_E9447394485_))))) + (_E9447394485_)))) + (_E9447394485_))))) + (_E9447294509_)))) (define gx#core-compile-top-export% - (lambda (_stx94443_) - (let* ((_e9444494451_ _stx94443_) - (_E9444694455_ + (lambda (_stx94440_) + (let* ((_e9444194448_ _stx94440_) + (_E9444394452_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9444494451_))) - (_E9444594469_ - (lambda () - (if (gx#stx-pair? _e9444494451_) - (let ((_e9444794459_ (gx#syntax-e _e9444494451_))) - (let ((_hd9444894462_ (##car _e9444794459_)) - (_tl9444994464_ (##cdr _e9444794459_))) - (let ((_body94467_ _tl9444994464_)) + _e9444194448_))) + (_E9444294466_ + (lambda () + (if (gx#stx-pair? _e9444194448_) + (let ((_e9444494456_ (gx#syntax-e _e9444194448_))) + (let ((_hd9444594459_ (##car _e9444494456_)) + (_tl9444694461_ (##cdr _e9444494456_))) + (let ((_body94464_ _tl9444694461_)) (if '#t - (cons '%#export _body94467_) - (_E9444694455_))))) - (_E9444694455_))))) - (_E9444594469_)))) + (cons '%#export _body94464_) + (_E9444394452_))))) + (_E9444394452_))))) + (_E9444294466_)))) (define gx#core-compile-top-provide% - (lambda (_stx94413_) - (let* ((_e9441494421_ _stx94413_) - (_E9441694425_ + (lambda (_stx94410_) + (let* ((_e9441194418_ _stx94410_) + (_E9441394422_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9441494421_))) - (_E9441594439_ - (lambda () - (if (gx#stx-pair? _e9441494421_) - (let ((_e9441794429_ (gx#syntax-e _e9441494421_))) - (let ((_hd9441894432_ (##car _e9441794429_)) - (_tl9441994434_ (##cdr _e9441794429_))) - (let ((_body94437_ _tl9441994434_)) + _e9441194418_))) + (_E9441294436_ + (lambda () + (if (gx#stx-pair? _e9441194418_) + (let ((_e9441494426_ (gx#syntax-e _e9441194418_))) + (let ((_hd9441594429_ (##car _e9441494426_)) + (_tl9441694431_ (##cdr _e9441494426_))) + (let ((_body94434_ _tl9441694431_)) (if '#t - (cons '%#provide _body94437_) - (_E9441694425_))))) - (_E9441694425_))))) - (_E9441594439_)))) + (cons '%#provide _body94434_) + (_E9441394422_))))) + (_E9441394422_))))) + (_E9441294436_)))) (define gx#core-compile-top-extern% - (lambda (_stx94383_) - (let* ((_e9438494391_ _stx94383_) - (_E9438694395_ + (lambda (_stx94380_) + (let* ((_e9438194388_ _stx94380_) + (_E9438394392_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9438494391_))) - (_E9438594409_ - (lambda () - (if (gx#stx-pair? _e9438494391_) - (let ((_e9438794399_ (gx#syntax-e _e9438494391_))) - (let ((_hd9438894402_ (##car _e9438794399_)) - (_tl9438994404_ (##cdr _e9438794399_))) - (let ((_body94407_ _tl9438994404_)) + _e9438194388_))) + (_E9438294406_ + (lambda () + (if (gx#stx-pair? _e9438194388_) + (let ((_e9438494396_ (gx#syntax-e _e9438194388_))) + (let ((_hd9438594399_ (##car _e9438494396_)) + (_tl9438694401_ (##cdr _e9438494396_))) + (let ((_body94404_ _tl9438694401_)) (if '#t - (cons '%#extern _body94407_) - (_E9438694395_))))) - (_E9438694395_))))) - (_E9438594409_)))) + (cons '%#extern _body94404_) + (_E9438394392_))))) + (_E9438394392_))))) + (_E9438294406_)))) (define gx#core-compile-top-define-values% - (lambda (_stx94329_) - (let* ((_e9433094343_ _stx94329_) - (_E9433294347_ + (lambda (_stx94326_) + (let* ((_e9432794340_ _stx94326_) + (_E9432994344_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9433094343_))) - (_E9433194379_ - (lambda () - (if (gx#stx-pair? _e9433094343_) - (let ((_e9433394351_ (gx#syntax-e _e9433094343_))) - (let ((_hd9433494354_ (##car _e9433394351_)) - (_tl9433594356_ (##cdr _e9433394351_))) - (if (gx#stx-pair? _tl9433594356_) - (let ((_e9433694359_ - (gx#syntax-e _tl9433594356_))) - (let ((_hd9433794362_ (##car _e9433694359_)) - (_tl9433894364_ (##cdr _e9433694359_))) - (let ((_hd94367_ _hd9433794362_)) - (if (gx#stx-pair? _tl9433894364_) - (let ((_e9433994369_ - (gx#syntax-e _tl9433894364_))) - (let ((_hd9434094372_ - (##car _e9433994369_)) - (_tl9434194374_ - (##cdr _e9433994369_))) - (let ((_expr94377_ _hd9434094372_)) - (if (gx#stx-null? _tl9434194374_) + _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_) (if '#t (cons '%#define-values (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-runtime-bind - _hd94367_) - (cons (gx#core-compile-top-syntax _expr94377_) '()))) - (_E9433294347_)) + _hd94364_) + (cons (gx#core-compile-top-syntax _expr94374_) '()))) + (_E9432994344_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9433294347_))))) - (_E9433294347_))))) - (_E9433294347_)))) - (_E9433294347_))))) - (_E9433194379_)))) + (_E9432994344_))))) + (_E9432994344_))))) + (_E9432994344_)))) + (_E9432994344_))))) + (_E9432894376_)))) (define gx#core-compile-top-define-syntax% - (lambda (_stx94274_) - (let* ((_e9427594288_ _stx94274_) - (_E9427794292_ + (lambda (_stx94271_) + (let* ((_e9427294285_ _stx94271_) + (_E9427494289_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9427594288_))) - (_E9427694325_ - (lambda () - (if (gx#stx-pair? _e9427594288_) - (let ((_e9427894296_ (gx#syntax-e _e9427594288_))) - (let ((_hd9427994299_ (##car _e9427894296_)) - (_tl9428094301_ (##cdr _e9427894296_))) - (if (gx#stx-pair? _tl9428094301_) - (let ((_e9428194304_ - (gx#syntax-e _tl9428094301_))) - (let ((_hd9428294307_ (##car _e9428194304_)) - (_tl9428394309_ (##cdr _e9428194304_))) - (let ((_hd94312_ _hd9428294307_)) - (if (gx#stx-pair? _tl9428394309_) - (let ((_e9428494314_ - (gx#syntax-e _tl9428394309_))) - (let ((_hd9428594317_ - (##car _e9428494314_)) - (_tl9428694319_ - (##cdr _e9428494314_))) - (let ((_expr94322_ _hd9428594317_)) - (if (gx#stx-null? _tl9428694319_) + _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_) (if '#t (cons '%#define-syntax - (cons _hd94312_ + (cons _hd94309_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (call-with-parameters (lambda () - (gx#core-compile-top-syntax _expr94322_)) + (gx#core-compile-top-syntax _expr94319_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)) '()))) - (_E9427794292_)) + (_E9427494289_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9427794292_))))) - (_E9427794292_))))) - (_E9427794292_)))) - (_E9427794292_))))) - (_E9427694325_)))) + (_E9427494289_))))) + (_E9427494289_))))) + (_E9427494289_)))) + (_E9427494289_))))) + (_E9427394322_)))) (define gx#core-compile-top-define-alias% - (lambda (_stx94244_) - (let* ((_e9424594252_ _stx94244_) - (_E9424794256_ + (lambda (_stx94241_) + (let* ((_e9424294249_ _stx94241_) + (_E9424494253_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9424594252_))) - (_E9424694270_ - (lambda () - (if (gx#stx-pair? _e9424594252_) - (let ((_e9424894260_ (gx#syntax-e _e9424594252_))) - (let ((_hd9424994263_ (##car _e9424894260_)) - (_tl9425094265_ (##cdr _e9424894260_))) - (let ((_body94268_ _tl9425094265_)) + _e9424294249_))) + (_E9424394267_ + (lambda () + (if (gx#stx-pair? _e9424294249_) + (let ((_e9424594257_ (gx#syntax-e _e9424294249_))) + (let ((_hd9424694260_ (##car _e9424594257_)) + (_tl9424794262_ (##cdr _e9424594257_))) + (let ((_body94265_ _tl9424794262_)) (if '#t - (cons '%#define-alias _body94268_) - (_E9424794256_))))) - (_E9424794256_))))) - (_E9424694270_)))) + (cons '%#define-alias _body94265_) + (_E9424494253_))))) + (_E9424494253_))))) + (_E9424394267_)))) (define gx#core-compile-top-define-runtime% - (lambda (_stx94214_) - (let* ((_e9421594222_ _stx94214_) - (_E9421794226_ + (lambda (_stx94211_) + (let* ((_e9421294219_ _stx94211_) + (_E9421494223_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9421594222_))) - (_E9421694240_ - (lambda () - (if (gx#stx-pair? _e9421594222_) - (let ((_e9421894230_ (gx#syntax-e _e9421594222_))) - (let ((_hd9421994233_ (##car _e9421894230_)) - (_tl9422094235_ (##cdr _e9421894230_))) - (let ((_body94238_ _tl9422094235_)) + _e9421294219_))) + (_E9421394237_ + (lambda () + (if (gx#stx-pair? _e9421294219_) + (let ((_e9421594227_ (gx#syntax-e _e9421294219_))) + (let ((_hd9421694230_ (##car _e9421594227_)) + (_tl9421794232_ (##cdr _e9421594227_))) + (let ((_body94235_ _tl9421794232_)) (if '#t - (cons '%#define-runtime _body94238_) - (_E9421794226_))))) - (_E9421794226_))))) - (_E9421694240_)))) + (cons '%#define-runtime _body94235_) + (_E9421494223_))))) + (_E9421494223_))))) + (_E9421394237_)))) (define gx#core-compile-top-declare% - (lambda (_stx94184_) - (let* ((_e9418594192_ _stx94184_) - (_E9418794196_ + (lambda (_stx94181_) + (let* ((_e9418294189_ _stx94181_) + (_E9418494193_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9418594192_))) - (_E9418694210_ - (lambda () - (if (gx#stx-pair? _e9418594192_) - (let ((_e9418894200_ (gx#syntax-e _e9418594192_))) - (let ((_hd9418994203_ (##car _e9418894200_)) - (_tl9419094205_ (##cdr _e9418894200_))) - (let ((_decls94208_ _tl9419094205_)) + _e9418294189_))) + (_E9418394207_ + (lambda () + (if (gx#stx-pair? _e9418294189_) + (let ((_e9418594197_ (gx#syntax-e _e9418294189_))) + (let ((_hd9418694200_ (##car _e9418594197_)) + (_tl9418794202_ (##cdr _e9418594197_))) + (let ((_decls94205_ _tl9418794202_)) (if '#t - (cons '%#declare _decls94208_) - (_E9418794196_))))) - (_E9418794196_))))) - (_E9418694210_)))) + (cons '%#declare _decls94205_) + (_E9418494193_))))) + (_E9418494193_))))) + (_E9418394207_)))) (define gx#core-compile-top-lambda% - (lambda (_stx94154_) - (let* ((_e9415594162_ _stx94154_) - (_E9415794166_ + (lambda (_stx94151_) + (let* ((_e9415294159_ _stx94151_) + (_E9415494163_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9415594162_))) - (_E9415694180_ - (lambda () - (if (gx#stx-pair? _e9415594162_) - (let ((_e9415894170_ (gx#syntax-e _e9415594162_))) - (let ((_hd9415994173_ (##car _e9415894170_)) - (_tl9416094175_ (##cdr _e9415894170_))) - (let ((_clause94178_ _tl9416094175_)) + _e9415294159_))) + (_E9415394177_ + (lambda () + (if (gx#stx-pair? _e9415294159_) + (let ((_e9415594167_ (gx#syntax-e _e9415294159_))) + (let ((_hd9415694170_ (##car _e9415594167_)) + (_tl9415794172_ (##cdr _e9415594167_))) + (let ((_clause94175_ _tl9415794172_)) (if '#t (cons '%#lambda (gx#core-compile-top-lambda-clause - _clause94178_)) - (_E9415794166_))))) - (_E9415794166_))))) - (_E9415694180_)))) + _clause94175_)) + (_E9415494163_))))) + (_E9415494163_))))) + (_E9415394177_)))) (define gx#core-compile-top-lambda-clause - (lambda (_stx94111_) - (let* ((_e9411294122_ _stx94111_) - (_E9411494126_ + (lambda (_stx94108_) + (let* ((_e9410994119_ _stx94108_) + (_E9411194123_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9411294122_))) - (_E9411394150_ - (lambda () - (if (gx#stx-pair? _e9411294122_) - (let ((_e9411594130_ (gx#syntax-e _e9411294122_))) - (let ((_hd9411694133_ (##car _e9411594130_)) - (_tl9411794135_ (##cdr _e9411594130_))) - (let ((_hd94138_ _hd9411694133_)) - (if (gx#stx-pair? _tl9411794135_) - (let ((_e9411894140_ - (gx#syntax-e _tl9411794135_))) - (let ((_hd9411994143_ (##car _e9411894140_)) - (_tl9412094145_ (##cdr _e9411894140_))) - (let ((_body94148_ _hd9411994143_)) - (if (gx#stx-null? _tl9412094145_) + _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_) (if '#t (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _hd94138_) + _hd94135_) (cons (gx#core-compile-top-syntax - _body94148_) + _body94145_) '())) - (_E9411494126_)) - (_E9411494126_))))) - (_E9411494126_))))) - (_E9411494126_))))) - (_E9411394150_)))) + (_E9411194123_)) + (_E9411194123_))))) + (_E9411194123_))))) + (_E9411194123_))))) + (_E9411094147_)))) (define gx#core-compile-top-case-lambda% - (lambda (_stx94081_) - (let* ((_e9408294089_ _stx94081_) - (_E9408494093_ + (lambda (_stx94078_) + (let* ((_e9407994086_ _stx94078_) + (_E9408194090_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9408294089_))) - (_E9408394107_ - (lambda () - (if (gx#stx-pair? _e9408294089_) - (let ((_e9408594097_ (gx#syntax-e _e9408294089_))) - (let ((_hd9408694100_ (##car _e9408594097_)) - (_tl9408794102_ (##cdr _e9408594097_))) - (let ((_clauses94105_ _tl9408794102_)) + _e9407994086_))) + (_E9408094104_ + (lambda () + (if (gx#stx-pair? _e9407994086_) + (let ((_e9408294094_ (gx#syntax-e _e9407994086_))) + (let ((_hd9408394097_ (##car _e9408294094_)) + (_tl9408494099_ (##cdr _e9408294094_))) + (let ((_clauses94102_ _tl9408494099_)) (if '#t (cons '%#case-lambda (gx#stx-map1 gx#core-compile-top-lambda-clause - _clauses94105_)) - (_E9408494093_))))) - (_E9408494093_))))) - (_E9408394107_)))) + _clauses94102_)) + (_E9408194090_))))) + (_E9408194090_))))) + (_E9408094104_)))) (define gx#core-compile-top-let-values%__% - (lambda (_stx94016_ _form94017_) - (let* ((_e9401894031_ _stx94016_) - (_E9402094035_ + (lambda (_stx94013_ _form94014_) + (let* ((_e9401594028_ _stx94013_) + (_E9401794032_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9401894031_))) - (_E9401994067_ - (lambda () - (if (gx#stx-pair? _e9401894031_) - (let ((_e9402194039_ (gx#syntax-e _e9401894031_))) - (let ((_hd9402294042_ (##car _e9402194039_)) - (_tl9402394044_ (##cdr _e9402194039_))) - (if (gx#stx-pair? _tl9402394044_) - (let ((_e9402494047_ - (gx#syntax-e _tl9402394044_))) - (let ((_hd9402594050_ (##car _e9402494047_)) - (_tl9402694052_ (##cdr _e9402494047_))) - (let ((_hd94055_ _hd9402594050_)) - (if (gx#stx-pair? _tl9402694052_) - (let ((_e9402794057_ - (gx#syntax-e _tl9402694052_))) - (let ((_hd9402894060_ - (##car _e9402794057_)) - (_tl9402994062_ - (##cdr _e9402794057_))) - (let ((_body94065_ _hd9402894060_)) - (if (gx#stx-null? _tl9402994062_) + _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_) (if '#t - (cons _form94017_ + (cons _form94014_ (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-lambda-clause - _hd94055_) - (cons (gx#core-compile-top-syntax _body94065_) '()))) - (_E9402094035_)) + _hd94052_) + (cons (gx#core-compile-top-syntax _body94062_) '()))) + (_E9401794032_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9402094035_))))) - (_E9402094035_))))) - (_E9402094035_)))) - (_E9402094035_))))) - (_E9401994067_)))) + (_E9401794032_))))) + (_E9401794032_))))) + (_E9401794032_)))) + (_E9401794032_))))) + (_E9401694064_)))) (define gx#core-compile-top-let-values%__0 - (lambda (_stx94074_) - (let ((_form94076_ '%#let-values)) - (gx#core-compile-top-let-values%__% _stx94074_ _form94076_)))) + (lambda (_stx94071_) + (let ((_form94073_ '%#let-values)) + (gx#core-compile-top-let-values%__% _stx94071_ _form94073_)))) (define gx#core-compile-top-let-values% - (lambda _g94889_ - (let ((_g94888_ (##length _g94889_))) - (cond ((##fx= _g94888_ 1) - (apply (lambda (_stx94074_) - (gx#core-compile-top-let-values%__0 _stx94074_)) - _g94889_)) - ((##fx= _g94888_ 2) - (apply (lambda (_stx94078_ _form94079_) + (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_) (gx#core-compile-top-let-values%__% - _stx94078_ - _form94079_)) - _g94889_)) + _stx94075_ + _form94076_)) + _g94886_)) (else (##raise-wrong-number-of-arguments-exception gx#core-compile-top-let-values% - _g94889_)))))) + _g94886_)))))) (define gx#core-compile-top-letrec-values% - (lambda (_stx94013_) - (gx#core-compile-top-let-values%__% _stx94013_ '%#letrec-values))) + (lambda (_stx94010_) + (gx#core-compile-top-let-values%__% _stx94010_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_stx94011_) - (gx#core-compile-top-let-values%__% _stx94011_ '%#letrec*-values))) + (lambda (_stx94008_) + (gx#core-compile-top-let-values%__% _stx94008_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_stx93970_) - (let* ((_e9397193981_ _stx93970_) - (_E9397393985_ + (lambda (_stx93967_) + (let* ((_e9396893978_ _stx93967_) + (_E9397093982_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9397193981_))) - (_E9397294007_ - (lambda () - (if (gx#stx-pair? _e9397193981_) - (let ((_e9397493989_ (gx#syntax-e _e9397193981_))) - (let ((_hd9397593992_ (##car _e9397493989_)) - (_tl9397693994_ (##cdr _e9397493989_))) - (if (gx#stx-pair? _tl9397693994_) - (let ((_e9397793997_ - (gx#syntax-e _tl9397693994_))) - (let ((_hd9397894000_ (##car _e9397793997_)) - (_tl9397994002_ (##cdr _e9397793997_))) - (let ((_e94005_ _hd9397894000_)) - (if (gx#stx-null? _tl9397994002_) + _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_) (if '#t (cons '%#quote (cons (gx#syntax->datum - _e94005_) + _e94002_) '())) - (_E9397393985_)) - (_E9397393985_))))) - (_E9397393985_)))) - (_E9397393985_))))) - (_E9397294007_)))) + (_E9397093982_)) + (_E9397093982_))))) + (_E9397093982_)))) + (_E9397093982_))))) + (_E9396994004_)))) (define gx#core-compile-top-quote-syntax% - (lambda (_stx93929_) - (let* ((_e9393093940_ _stx93929_) - (_E9393293944_ + (lambda (_stx93926_) + (let* ((_e9392793937_ _stx93926_) + (_E9392993941_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9393093940_))) - (_E9393193966_ - (lambda () - (if (gx#stx-pair? _e9393093940_) - (let ((_e9393393948_ (gx#syntax-e _e9393093940_))) - (let ((_hd9393493951_ (##car _e9393393948_)) - (_tl9393593953_ (##cdr _e9393393948_))) - (if (gx#stx-pair? _tl9393593953_) - (let ((_e9393693956_ - (gx#syntax-e _tl9393593953_))) - (let ((_hd9393793959_ (##car _e9393693956_)) - (_tl9393893961_ (##cdr _e9393693956_))) - (let ((_e93964_ _hd9393793959_)) - (if (gx#stx-null? _tl9393893961_) + _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_) (if '#t (cons '%#quote-syntax (cons (gx#core-quote-syntax__0 - _e93964_) + _e93961_) '())) - (_E9393293944_)) - (_E9393293944_))))) - (_E9393293944_)))) - (_E9393293944_))))) - (_E9393193966_)))) + (_E9392993941_)) + (_E9392993941_))))) + (_E9392993941_)))) + (_E9392993941_))))) + (_E9392893963_)))) (define gx#core-compile-top-call% - (lambda (_stx93886_) - (let* ((_e9388793897_ _stx93886_) - (_E9388993901_ + (lambda (_stx93883_) + (let* ((_e9388493894_ _stx93883_) + (_E9388693898_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9388793897_))) - (_E9388893925_ - (lambda () - (if (gx#stx-pair? _e9388793897_) - (let ((_e9389093905_ (gx#syntax-e _e9388793897_))) - (let ((_hd9389193908_ (##car _e9389093905_)) - (_tl9389293910_ (##cdr _e9389093905_))) - (if (gx#stx-pair? _tl9389293910_) - (let ((_e9389393913_ - (gx#syntax-e _tl9389293910_))) - (let ((_hd9389493916_ (##car _e9389393913_)) - (_tl9389593918_ (##cdr _e9389393913_))) - (let* ((_rator93921_ _hd9389493916_) - (_args93923_ _tl9389593918_)) + _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_)) (if '#t (cons '%#call (cons (gx#core-compile-top-syntax - _rator93921_) + _rator93918_) (gx#stx-map1 gx#core-compile-top-syntax - _args93923_))) - (_E9388993901_))))) - (_E9388993901_)))) - (_E9388993901_))))) - (_E9388893925_)))) + _args93920_))) + (_E9388693898_))))) + (_E9388693898_)))) + (_E9388693898_))))) + (_E9388593922_)))) (define gx#core-compile-top-if% - (lambda (_stx93819_) - (let* ((_e9382093836_ _stx93819_) - (_E9382293840_ + (lambda (_stx93816_) + (let* ((_e9381793833_ _stx93816_) + (_E9381993837_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9382093836_))) - (_E9382193882_ - (lambda () - (if (gx#stx-pair? _e9382093836_) - (let ((_e9382393844_ (gx#syntax-e _e9382093836_))) - (let ((_hd9382493847_ (##car _e9382393844_)) - (_tl9382593849_ (##cdr _e9382393844_))) - (if (gx#stx-pair? _tl9382593849_) - (let ((_e9382693852_ - (gx#syntax-e _tl9382593849_))) - (let ((_hd9382793855_ (##car _e9382693852_)) - (_tl9382893857_ (##cdr _e9382693852_))) - (let ((_test93860_ _hd9382793855_)) - (if (gx#stx-pair? _tl9382893857_) - (let ((_e9382993862_ - (gx#syntax-e _tl9382893857_))) - (let ((_hd9383093865_ - (##car _e9382993862_)) - (_tl9383193867_ - (##cdr _e9382993862_))) - (let ((_K93870_ _hd9383093865_)) - (if (gx#stx-pair? _tl9383193867_) - (let ((_e9383293872_ + _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_ (gx#syntax-e - _tl9383193867_))) - (let ((_hd9383393875_ - (##car _e9383293872_)) - (_tl9383493877_ - (##cdr _e9383293872_))) - (let ((_E93880_ - _hd9383393875_)) + _tl9382893864_))) + (let ((_hd9383093872_ + (##car _e9382993869_)) + (_tl9383193874_ + (##cdr _e9382993869_))) + (let ((_E93877_ + _hd9383093872_)) (if (gx#stx-null? - _tl9383493877_) + _tl9383193874_) (if '#t (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-compile-top-syntax _test93860_) - (cons (gx#core-compile-top-syntax _K93870_) + (cons (gx#core-compile-top-syntax _test93857_) + (cons (gx#core-compile-top-syntax _K93867_) (cons (gx#core-compile-top-syntax - _E93880_) + _E93877_) '())))) - (_E9382293840_)) - (_E9382293840_))))) + (_E9381993837_)) + (_E9381993837_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9382293840_))))) - (_E9382293840_))))) - (_E9382293840_)))) - (_E9382293840_))))) - (_E9382193882_)))) + (_E9381993837_))))) + (_E9381993837_))))) + (_E9381993837_)))) + (_E9381993837_))))) + (_E9381893879_)))) (define gx#core-compile-top-ref% - (lambda (_stx93778_) - (let* ((_e9377993789_ _stx93778_) - (_E9378193793_ + (lambda (_stx93775_) + (let* ((_e9377693786_ _stx93775_) + (_E9377893790_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9377993789_))) - (_E9378093815_ - (lambda () - (if (gx#stx-pair? _e9377993789_) - (let ((_e9378293797_ (gx#syntax-e _e9377993789_))) - (let ((_hd9378393800_ (##car _e9378293797_)) - (_tl9378493802_ (##cdr _e9378293797_))) - (if (gx#stx-pair? _tl9378493802_) - (let ((_e9378593805_ - (gx#syntax-e _tl9378493802_))) - (let ((_hd9378693808_ (##car _e9378593805_)) - (_tl9378793810_ (##cdr _e9378593805_))) - (let ((_id93813_ _hd9378693808_)) - (if (gx#stx-null? _tl9378793810_) - (if (gx#identifier? _id93813_) + _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_) (cons '%#ref (cons (gx#core-compile-top-runtime-ref - _id93813_) + _id93810_) '())) - (_E9378193793_)) - (_E9378193793_))))) - (_E9378193793_)))) - (_E9378193793_))))) - (_E9378093815_)))) + (_E9377893790_)) + (_E9377893790_))))) + (_E9377893790_)))) + (_E9377893790_))))) + (_E9377793812_)))) (define gx#core-compile-top-setq% - (lambda (_stx93724_) - (let* ((_e9372593738_ _stx93724_) - (_E9372793742_ + (lambda (_stx93721_) + (let* ((_e9372293735_ _stx93721_) + (_E9372493739_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9372593738_))) - (_E9372693774_ - (lambda () - (if (gx#stx-pair? _e9372593738_) - (let ((_e9372893746_ (gx#syntax-e _e9372593738_))) - (let ((_hd9372993749_ (##car _e9372893746_)) - (_tl9373093751_ (##cdr _e9372893746_))) - (if (gx#stx-pair? _tl9373093751_) - (let ((_e9373193754_ - (gx#syntax-e _tl9373093751_))) - (let ((_hd9373293757_ (##car _e9373193754_)) - (_tl9373393759_ (##cdr _e9373193754_))) - (let ((_id93762_ _hd9373293757_)) - (if (gx#stx-pair? _tl9373393759_) - (let ((_e9373493764_ - (gx#syntax-e _tl9373393759_))) - (let ((_hd9373593767_ - (##car _e9373493764_)) - (_tl9373693769_ - (##cdr _e9373493764_))) - (let ((_expr93772_ _hd9373593767_)) - (if (gx#stx-null? _tl9373693769_) + _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_) (if (gx#identifier? - _id93762_) + _id93759_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id93762_) - (cons (gx#core-compile-top-syntax _expr93772_) '()))) - (_E9372793742_)) + _id93759_) + (cons (gx#core-compile-top-syntax _expr93769_) '()))) + (_E9372493739_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9372793742_))))) - (_E9372793742_))))) - (_E9372793742_)))) - (_E9372793742_))))) - (_E9372693774_)))) + (_E9372493739_))))) + (_E9372493739_))))) + (_E9372493739_)))) + (_E9372493739_))))) + (_E9372393771_)))) (define gx#core-compile-top-runtime-ref - (lambda (_id93719_) - (let ((_$e93721_ (gx#resolve-identifier__0 _id93719_))) - (if _$e93721_ - (##unchecked-structure-ref _$e93721_ '1 gx#binding::t '#f) - _id93719_)))) + (lambda (_id93716_) + (let ((_$e93718_ (gx#resolve-identifier__0 _id93716_))) + (if _$e93718_ + (##unchecked-structure-ref _$e93718_ '1 gx#binding::t '#f) + _id93716_)))) (define gx#core-compile-top-runtime-bind - (lambda (_hd93717_) - (if (gx#identifier? _hd93717_) - (gx#core-compile-top-runtime-ref _hd93717_) + (lambda (_hd93714_) + (if (gx#identifier? _hd93714_) + (gx#core-compile-top-runtime-ref _hd93714_) '#f))))) diff --git a/src/bootstrap/gerbil/expander/core__0.scm b/src/bootstrap/gerbil/expander/core__0.scm index 786d2dfd..392a9df6 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 1709128371) + (define gerbil/expander/core::timestamp 1709229970) (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 _$args84742_ - (apply make-instance gx#expander-context::t _$args84742_))) + (lambda _$args84739_ + (apply make-instance gx#expander-context::t _$args84739_))) (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 _$args84739_ - (apply make-instance gx#root-context::t _$args84739_))) + (lambda _$args84736_ + (apply make-instance gx#root-context::t _$args84736_))) (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 _$args84736_ - (apply make-instance gx#phi-context::t _$args84736_))) + (lambda _$args84733_ + (apply make-instance gx#phi-context::t _$args84733_))) (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 _$args84733_ - (apply make-instance gx#top-context::t _$args84733_))) + (lambda _$args84730_ + (apply make-instance gx#top-context::t _$args84730_))) (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 _$args84730_ - (apply make-instance gx#module-context::t _$args84730_))) + (lambda _$args84727_ + (apply make-instance gx#module-context::t _$args84727_))) (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 _$args84727_ - (apply make-instance gx#prelude-context::t _$args84727_))) + (lambda _$args84724_ + (apply make-instance gx#prelude-context::t _$args84724_))) (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 _$args84724_ - (apply make-instance gx#local-context::t _$args84724_))) + (lambda _$args84721_ + (apply make-instance gx#local-context::t _$args84721_))) (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 (_self84708_ _id84709_ _super84710_) - (if (##fx< '3 (##structure-length _self84708_)) + (lambda (_self84705_ _id84706_ _super84707_) + (if (##fx< '3 (##structure-length _self84705_)) (begin (##unchecked-structure-set! - _self84708_ - _id84709_ + _self84705_ + _id84706_ '1 - (##structure-type _self84708_) + (##structure-type _self84705_) '#f) (##unchecked-structure-set! - _self84708_ + _self84705_ (make-hash-table-eq) '2 - (##structure-type _self84708_) + (##structure-type _self84705_) '#f) (##unchecked-structure-set! - _self84708_ - _super84710_ + _self84705_ + _super84707_ '3 - (##structure-type _self84708_) + (##structure-type _self84705_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self84708_ + _self84705_ '3 - (##vector-length _self84708_))))) + (##vector-length _self84705_))))) (define gx#phi-context:::init!__0 - (lambda (_self84715_ _id84716_) - (let ((_super84718_ (gx#current-expander-context))) - (gx#phi-context:::init!__% _self84715_ _id84716_ _super84718_)))) + (lambda (_self84712_ _id84713_) + (let ((_super84715_ (gx#current-expander-context))) + (gx#phi-context:::init!__% _self84712_ _id84713_ _super84715_)))) (define gx#phi-context:::init! - (lambda _g84785_ - (let ((_g84784_ (##length _g84785_))) - (cond ((##fx= _g84784_ 2) - (apply (lambda (_self84715_ _id84716_) - (gx#phi-context:::init!__0 _self84715_ _id84716_)) - _g84785_)) - ((##fx= _g84784_ 3) - (apply (lambda (_self84720_ _id84721_ _super84722_) + (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_) (gx#phi-context:::init!__% - _self84720_ - _id84721_ - _super84722_)) - _g84785_)) + _self84717_ + _id84718_ + _super84719_)) + _g84782_)) (else (##raise-wrong-number-of-arguments-exception gx#phi-context:::init! - _g84785_)))))) + _g84782_)))))) (bind-method!__% gx#phi-context::t ':init! gx#phi-context:::init! '#f) (define gx#local-context:::init!__% - (lambda (_self84572_ _super84573_) - (if (##fx< '3 (##structure-length _self84572_)) + (lambda (_self84569_ _super84570_) + (if (##fx< '3 (##structure-length _self84569_)) (begin (##unchecked-structure-set! - _self84572_ + _self84569_ (gensym 'L) '1 - (##structure-type _self84572_) + (##structure-type _self84569_) '#f) (##unchecked-structure-set! - _self84572_ + _self84569_ (make-hash-table-eq) '2 - (##structure-type _self84572_) + (##structure-type _self84569_) '#f) (##unchecked-structure-set! - _self84572_ - _super84573_ + _self84569_ + _super84570_ '3 - (##structure-type _self84572_) + (##structure-type _self84569_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self84572_ + _self84569_ '3 - (##vector-length _self84572_))))) + (##vector-length _self84569_))))) (define gx#local-context:::init!__0 - (lambda (_self84578_) - (let ((_super84580_ (gx#current-expander-context))) - (gx#local-context:::init!__% _self84578_ _super84580_)))) + (lambda (_self84575_) + (let ((_super84577_ (gx#current-expander-context))) + (gx#local-context:::init!__% _self84575_ _super84577_)))) (define gx#local-context:::init! - (lambda _g84787_ - (let ((_g84786_ (##length _g84787_))) - (cond ((##fx= _g84786_ 1) - (apply (lambda (_self84578_) - (gx#local-context:::init!__0 _self84578_)) - _g84787_)) - ((##fx= _g84786_ 2) - (apply (lambda (_self84582_ _super84583_) + (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_) (gx#local-context:::init!__% - _self84582_ - _super84583_)) - _g84787_)) + _self84579_ + _super84580_)) + _g84784_)) (else (##raise-wrong-number-of-arguments-exception gx#local-context:::init! - _g84787_)))))) + _g84784_)))))) (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 _$args84446_ (apply make-instance gx#binding::t _$args84446_))) + (lambda _$args84443_ (apply make-instance gx#binding::t _$args84443_))) (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 _$args84443_ - (apply make-instance gx#runtime-binding::t _$args84443_))) + (lambda _$args84440_ + (apply make-instance gx#runtime-binding::t _$args84440_))) (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 _$args84440_ - (apply make-instance gx#local-binding::t _$args84440_))) + (lambda _$args84437_ + (apply make-instance gx#local-binding::t _$args84437_))) (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 _$args84437_ - (apply make-instance gx#top-binding::t _$args84437_))) + (lambda _$args84434_ + (apply make-instance gx#top-binding::t _$args84434_))) (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 _$args84434_ - (apply make-instance gx#module-binding::t _$args84434_))) + (lambda _$args84431_ + (apply make-instance gx#module-binding::t _$args84431_))) (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 _$args84431_ - (apply make-instance gx#extern-binding::t _$args84431_))) + (lambda _$args84428_ + (apply make-instance gx#extern-binding::t _$args84428_))) (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 _$args84428_ - (apply make-instance gx#syntax-binding::t _$args84428_))) + (lambda _$args84425_ + (apply make-instance gx#syntax-binding::t _$args84425_))) (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 _$args84425_ - (apply make-instance gx#import-binding::t _$args84425_))) + (lambda _$args84422_ + (apply make-instance gx#import-binding::t _$args84422_))) (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 _$args84422_ - (apply make-instance gx#alias-binding::t _$args84422_))) + (lambda _$args84419_ + (apply make-instance gx#alias-binding::t _$args84419_))) (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 _$args84419_ (apply make-instance gx#expander::t _$args84419_))) + (lambda _$args84416_ (apply make-instance gx#expander::t _$args84416_))) (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 _$args84416_ - (apply make-instance gx#core-expander::t _$args84416_))) + (lambda _$args84413_ + (apply make-instance gx#core-expander::t _$args84413_))) (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 _$args84413_ - (apply make-instance gx#expression-form::t _$args84413_))) + (lambda _$args84410_ + (apply make-instance gx#expression-form::t _$args84410_))) (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 _$args84410_ - (apply make-instance gx#special-form::t _$args84410_))) + (lambda _$args84407_ + (apply make-instance gx#special-form::t _$args84407_))) (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 _$args84407_ - (apply make-instance gx#definition-form::t _$args84407_))) + (lambda _$args84404_ + (apply make-instance gx#definition-form::t _$args84404_))) (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 _$args84404_ - (apply make-instance gx#top-special-form::t _$args84404_))) + (lambda _$args84401_ + (apply make-instance gx#top-special-form::t _$args84401_))) (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 _$args84401_ - (apply make-instance gx#module-special-form::t _$args84401_))) + (lambda _$args84398_ + (apply make-instance gx#module-special-form::t _$args84398_))) (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 _$args84398_ - (apply make-instance gx#feature-expander::t _$args84398_))) + (lambda _$args84395_ + (apply make-instance gx#feature-expander::t _$args84395_))) (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 _$args84395_ - (apply make-instance gx#private-feature-expander::t _$args84395_))) + (lambda _$args84392_ + (apply make-instance gx#private-feature-expander::t _$args84392_))) (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 _$args84392_ - (apply make-instance gx#reserved-expander::t _$args84392_))) + (lambda _$args84389_ + (apply make-instance gx#reserved-expander::t _$args84389_))) (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 _$args84389_ - (apply make-instance gx#macro-expander::t _$args84389_))) + (lambda _$args84386_ + (apply make-instance gx#macro-expander::t _$args84386_))) (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 _$args84386_ - (apply make-instance gx#rename-macro-expander::t _$args84386_))) + (lambda _$args84383_ + (apply make-instance gx#rename-macro-expander::t _$args84383_))) (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 _$args84383_ - (apply make-instance gx#user-expander::t _$args84383_))) + (lambda _$args84380_ + (apply make-instance gx#user-expander::t _$args84380_))) (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 _$args84380_ - (apply make-instance gx#expander-mark::t _$args84380_))) + (lambda _$args84377_ + (apply make-instance gx#expander-mark::t _$args84377_))) (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 (_ctx84365_ _message84366_ _stx84367_ . _details84368_) - (let ((_ctx84378_ - (let ((_$e84370_ _ctx84365_)) - (if _$e84370_ - _$e84370_ - (let ((_$e84373_ (gx#core-context-top__0))) - (if _$e84373_ - ((lambda (_ctx84376_) + (lambda (_ctx84362_ _message84363_ _stx84364_ . _details84365_) + (let ((_ctx84375_ + (let ((_$e84367_ _ctx84362_)) + (if _$e84367_ + _$e84367_ + (let ((_$e84370_ (gx#core-context-top__0))) + (if _$e84370_ + ((lambda (_ctx84373_) (cons 'expand (cons (##structure-ref - _ctx84376_ + _ctx84373_ '1 gx#expander-context::t '#f) '()))) - _$e84373_) + _$e84370_) '#f)))))) (raise (make-syntax-error - _message84366_ - (cons _stx84367_ _details84368_) - _ctx84378_ + _message84363_ + (cons _stx84364_ _details84365_) + _ctx84375_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi)))))) (define gx#eval-syntax__% - (lambda (_stx84352_ _expression?84353_) - (gx#eval-syntax* (gx#core-expand__% _stx84352_ _expression?84353_)))) + (lambda (_stx84349_ _expression?84350_) + (gx#eval-syntax* (gx#core-expand__% _stx84349_ _expression?84350_)))) (define gx#eval-syntax__0 - (lambda (_stx84358_) - (let ((_expression?84360_ '#f)) - (gx#eval-syntax__% _stx84358_ _expression?84360_)))) + (lambda (_stx84355_) + (let ((_expression?84357_ '#f)) + (gx#eval-syntax__% _stx84355_ _expression?84357_)))) (define gx#eval-syntax - (lambda _g84789_ - (let ((_g84788_ (##length _g84789_))) - (cond ((##fx= _g84788_ 1) - (apply (lambda (_stx84358_) (gx#eval-syntax__0 _stx84358_)) - _g84789_)) - ((##fx= _g84788_ 2) - (apply (lambda (_stx84362_ _expression?84363_) - (gx#eval-syntax__% _stx84362_ _expression?84363_)) - _g84789_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#eval-syntax - _g84789_)))))) + _g84786_)))))) (define gx#eval-syntax* - (lambda (_stx84349_) + (lambda (_stx84346_) ((gx#current-expander-eval) - ((gx#current-expander-compile) _stx84349_)))) + ((gx#current-expander-compile) _stx84346_)))) (define gx#core-expand__% - (lambda (_stx84336_ _expression?84337_) - (if _expression?84337_ - (gx#core-expand-expression _stx84336_) - (gx#core-expand-top _stx84336_)))) + (lambda (_stx84333_ _expression?84334_) + (if _expression?84334_ + (gx#core-expand-expression _stx84333_) + (gx#core-expand-top _stx84333_)))) (define gx#core-expand__0 - (lambda (_stx84342_) - (let ((_expression?84344_ '#f)) - (gx#core-expand__% _stx84342_ _expression?84344_)))) + (lambda (_stx84339_) + (let ((_expression?84341_ '#f)) + (gx#core-expand__% _stx84339_ _expression?84341_)))) (define gx#core-expand - (lambda _g84791_ - (let ((_g84790_ (##length _g84791_))) - (cond ((##fx= _g84790_ 1) - (apply (lambda (_stx84342_) (gx#core-expand__0 _stx84342_)) - _g84791_)) - ((##fx= _g84790_ 2) - (apply (lambda (_stx84346_ _expression?84347_) - (gx#core-expand__% _stx84346_ _expression?84347_)) - _g84791_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand - _g84791_)))))) + _g84788_)))))) (define gx#core-expand-top - (lambda (_stx84303_) - (let* ((_stx84305_ (gx#core-expand*__0 _stx84303_)) - (_e8430684313_ _stx84305_) - (_E8430884317_ - (lambda () (gx#core-expand-expression _stx84305_))) - (_E8430784331_ + (lambda (_stx84300_) + (let* ((_stx84302_ (gx#core-expand*__0 _stx84300_)) + (_e8430384310_ _stx84302_) + (_E8430584314_ + (lambda () (gx#core-expand-expression _stx84302_))) + (_E8430484328_ (lambda () - (if (gx#stx-pair? _e8430684313_) - (let ((_e8430984321_ (gx#syntax-e _e8430684313_))) - (let ((_hd8431084324_ (##car _e8430984321_)) - (_tl8431184326_ (##cdr _e8430984321_))) - (let ((_form84329_ _hd8431084324_)) - (if (gx#core-bound-identifier?__0 _form84329_) - _stx84305_ - (_E8430884317_))))) - (_E8430884317_))))) - (_E8430784331_)))) + (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_)))) (define gx#core-expand-expression - (lambda (_stx84250_) - (letrec ((_sealed-expression?84252_ - (lambda (_hd84273_) - (if (gx#sealed-syntax? _hd84273_) - (let* ((_e8427484281_ _hd84273_) - (_E8427684285_ (lambda () '#f)) - (_E8427584299_ + (lambda (_stx84247_) + (letrec ((_sealed-expression?84249_ + (lambda (_hd84270_) + (if (gx#sealed-syntax? _hd84270_) + (let* ((_e8427184278_ _hd84270_) + (_E8427384282_ (lambda () '#f)) + (_E8427284296_ (lambda () - (if (gx#stx-pair? _e8427484281_) - (let ((_e8427784289_ - (gx#syntax-e _e8427484281_))) - (let ((_hd8427884292_ - (##car _e8427784289_)) - (_tl8427984294_ - (##cdr _e8427784289_))) - (let ((_form84297_ _hd8427884292_)) + (if (gx#stx-pair? _e8427184278_) + (let ((_e8427484286_ + (gx#syntax-e _e8427184278_))) + (let ((_hd8427584289_ + (##car _e8427484286_)) + (_tl8427684291_ + (##cdr _e8427484286_))) + (let ((_form84294_ _hd8427584289_)) (if '#t (gx#core-bound-identifier?__% - _form84297_ + _form84294_ gx#expression-form-binding?) - (_E8427684285_))))) - (_E8427684285_))))) - (_E8427584299_)) + (_E8427384282_))))) + (_E8427384282_))))) + (_E8427284296_)) '#f))) - (_illegal-expression84253_ - (lambda (_hd84271_ . _g84792_) + (_illegal-expression84250_ + (lambda (_hd84268_ . _g84789_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _stx84250_ - _hd84271_))) - (_expand-e84254_ - (lambda (_form84266_ _hd84267_) - (let ((_bind84269_ + _stx84247_ + _hd84268_))) + (_expand-e84251_ + (lambda (_form84263_ _hd84264_) + (let ((_bind84266_ (if (##structure-instance-of? - _form84266_ + _form84263_ 'gx#binding::t) - _form84266_ - (gx#resolve-identifier__0 _form84266_)))) - (if (gx#core-expander-binding? _bind84269_) + _form84263_ + (gx#resolve-identifier__0 _form84263_)))) + (if (gx#core-expander-binding? _bind84266_) (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind84269_ + _bind84266_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd84267_ - (gx#stx-source _stx84250_))) + _hd84264_ + (gx#stx-source _stx84247_))) (if (##structure-direct-instance-of? - _bind84269_ + _bind84266_ 'gx#syntax-binding::t) (gx#core-expand-expression (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind84269_ + _bind84266_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd84267_ - (gx#stx-source _stx84250_)))) + _hd84264_ + (gx#stx-source _stx84247_)))) (gx#raise-syntax-error '#f '"Bad syntax; missing expander" - _stx84250_ - _form84266_))))))) - (let ((_hd84256_ (gx#core-expand-head _stx84250_))) - (if (_sealed-expression?84252_ _hd84256_) - _hd84256_ - (if (gx#stx-pair? _hd84256_) - (let* ((_form84258_ (gx#stx-car _hd84256_)) - (_bind84260_ - (if (gx#identifier? _form84258_) - (gx#resolve-identifier__0 _form84258_) + _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_) '#f))) - (if (or (not _bind84260_) - (not (gx#core-expander-binding? _bind84260_))) - (_expand-e84254_ '%%app (cons '%%app _hd84256_)) + (if (or (not _bind84257_) + (not (gx#core-expander-binding? _bind84257_))) + (_expand-e84251_ '%%app (cons '%%app _hd84253_)) (if (eq? (##unchecked-structure-ref - _bind84260_ + _bind84257_ '1 gx#binding::t '#f) '%#begin) (gx#core-expand-block* - _hd84256_ - _illegal-expression84253_) - (if (gx#expression-form-binding? _bind84260_) - (_expand-e84254_ _bind84260_ _hd84256_) + _hd84253_ + _illegal-expression84250_) + (if (gx#expression-form-binding? _bind84257_) + (_expand-e84251_ _bind84257_ _hd84253_) (if (gx#direct-special-form-binding? - _bind84260_) + _bind84257_) (gx#core-expand-expression - (_expand-e84254_ _bind84260_ _hd84256_)) - (_illegal-expression84253_ - _hd84256_)))))) - (if (gx#core-bound-identifier?__0 _hd84256_) - (_illegal-expression84253_ _hd84256_) - (if (gx#identifier? _hd84256_) - (_expand-e84254_ + (_expand-e84251_ _bind84257_ _hd84253_)) + (_illegal-expression84250_ + _hd84253_)))))) + (if (gx#core-bound-identifier?__0 _hd84253_) + (_illegal-expression84250_ _hd84253_) + (if (gx#identifier? _hd84253_) + (_expand-e84251_ '%%ref - (cons '%%ref (cons _hd84256_ '()))) - (if (gx#stx-datum? _hd84256_) - (_expand-e84254_ + (cons '%%ref (cons _hd84253_ '()))) + (if (gx#stx-datum? _hd84253_) + (_expand-e84251_ '%#quote - (cons '%#quote (cons _hd84256_ '()))) - (_illegal-expression84253_ _hd84256_)))))))))) + (cons '%#quote (cons _hd84253_ '()))) + (_illegal-expression84250_ _hd84253_)))))))))) (define gx#core-expand-expression+1 - (lambda (_stx84245_) + (lambda (_stx84242_) (call-with-parameters (lambda () - (let ((_stx84248_ (gx#core-expand-expression _stx84245_))) - (values _stx84248_ (gx#eval-syntax* _stx84248_)))) + (let ((_stx84245_ (gx#core-expand-expression _stx84242_))) + (values _stx84245_ (gx#eval-syntax* _stx84245_)))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)))) (define gx#core-expand*__% - (lambda (_stx84226_ _stop?84227_) - (let _lp84229_ ((_stx84231_ _stx84226_)) - (if (_stop?84227_ _stx84231_) - _stx84231_ - (let ((_rstx84233_ (gx#core-expand1 _stx84231_))) - (if (eq? _stx84231_ _rstx84233_) - _stx84231_ - (_lp84229_ _rstx84233_))))))) + (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_))))))) (define gx#core-expand*__0 - (lambda (_stx84238_) - (let ((_stop?84240_ false)) - (gx#core-expand*__% _stx84238_ _stop?84240_)))) + (lambda (_stx84235_) + (let ((_stop?84237_ false)) + (gx#core-expand*__% _stx84235_ _stop?84237_)))) (define gx#core-expand* - (lambda _g84794_ - (let ((_g84793_ (##length _g84794_))) - (cond ((##fx= _g84793_ 1) - (apply (lambda (_stx84238_) (gx#core-expand*__0 _stx84238_)) - _g84794_)) - ((##fx= _g84793_ 2) - (apply (lambda (_stx84242_ _stop?84243_) - (gx#core-expand*__% _stx84242_ _stop?84243_)) - _g84794_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand* - _g84794_)))))) + _g84791_)))))) (define gx#core-expand1 - (lambda (_stx84182_) - (letrec ((_step84184_ - (lambda (_hd84221_) - (let ((_bind84223_ (gx#resolve-identifier__0 _hd84221_))) + (lambda (_stx84179_) + (letrec ((_step84181_ + (lambda (_hd84218_) + (let ((_bind84220_ (gx#resolve-identifier__0 _hd84218_))) (if (##structure-instance-of? - _bind84223_ + _bind84220_ 'gx#runtime-binding::t) - _stx84182_ + _stx84179_ (if (##structure-direct-instance-of? - _bind84223_ + _bind84220_ 'gx#syntax-binding::t) (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind84223_ + _bind84220_ '4 gx#syntax-binding::t '#f) - _stx84182_) - (if (not _bind84223_) - _stx84182_ + _stx84179_) + (if (not _bind84220_) + _stx84179_ (gx#raise-syntax-error '#f '"Bad syntax; no binding for head" - _stx84182_)))))))) - (let* ((_e8418584193_ _stx84182_) - (_E8419184197_ (lambda () _stx84182_)) - (_E8418784203_ + _stx84179_)))))))) + (let* ((_e8418284190_ _stx84179_) + (_E8418884194_ (lambda () _stx84179_)) + (_E8418484200_ (lambda () - (let ((_hd84201_ _e8418584193_)) - (if (gx#identifier? _hd84201_) - (_step84184_ _hd84201_) - (_E8419184197_))))) - (_E8418684217_ + (let ((_hd84198_ _e8418284190_)) + (if (gx#identifier? _hd84198_) + (_step84181_ _hd84198_) + (_E8418884194_))))) + (_E8418384214_ (lambda () - (if (gx#stx-pair? _e8418584193_) - (let ((_e8418884207_ (gx#syntax-e _e8418584193_))) - (let ((_hd8418984210_ (##car _e8418884207_)) - (_tl8419084212_ (##cdr _e8418884207_))) - (let ((_hd84215_ _hd8418984210_)) - (if (gx#identifier? _hd84215_) - (_step84184_ _hd84215_) - (_E8418784203_))))) - (_E8418784203_))))) - (_E8418684217_))))) + (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_))))) (define gx#core-expand-head - (lambda (_stx84148_) - (letrec ((_stop?84150_ - (lambda (_stx84152_) - (let* ((_e8415384160_ _stx84152_) - (_E8415584164_ (lambda () '#f)) - (_E8415484178_ + (lambda (_stx84145_) + (letrec ((_stop?84147_ + (lambda (_stx84149_) + (let* ((_e8415084157_ _stx84149_) + (_E8415284161_ (lambda () '#f)) + (_E8415184175_ (lambda () - (if (gx#stx-pair? _e8415384160_) - (let ((_e8415684168_ - (gx#syntax-e _e8415384160_))) - (let ((_hd8415784171_ - (##car _e8415684168_)) - (_tl8415884173_ - (##cdr _e8415684168_))) - (let ((_hd84176_ _hd8415784171_)) + (if (gx#stx-pair? _e8415084157_) + (let ((_e8415384165_ + (gx#syntax-e _e8415084157_))) + (let ((_hd8415484168_ + (##car _e8415384165_)) + (_tl8415584170_ + (##cdr _e8415384165_))) + (let ((_hd84173_ _hd8415484168_)) (if '#t (gx#core-bound-identifier?__0 - _hd84176_) - (_E8415584164_))))) - (_E8415584164_))))) - (_E8415484178_))))) - (gx#core-expand*__% _stx84148_ _stop?84150_)))) + _hd84173_) + (_E8415284161_))))) + (_E8415284161_))))) + (_E8415184175_))))) + (gx#core-expand*__% _stx84145_ _stop?84147_)))) (define gx#core-expand-block__% - (lambda (_stx83954_ - _expand-special83955_ - _begin-form83956_ - _expand-e83957_) - (letrec ((_expand-splice83959_ - (lambda (_hd84122_ _body84123_ _rest84124_ _r84125_) - (if (gx#stx-list? _body84123_) - (_K83963_ - (gx#stx-foldr cons _rest84124_ _body84123_) - _r84125_) + (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_) (gx#raise-syntax-error '#f '"Bad syntax; splice body isn't a list" - _stx83954_ - _hd84122_)))) - (_expand-cond-expand83960_ - (lambda (_hd84118_ _rest84119_ _r84120_) - (_K83963_ - (cons (gx#core-expand-cond-expand% _hd84118_) _rest84119_) - _r84120_))) - (_expand-include83961_ - (lambda (_hd84067_ _rest84068_ _r84069_) - (let* ((_e8407084080_ _hd84067_) - (_E8407284084_ + _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_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8407084080_))) - (_E8407184114_ + _e8406784077_))) + (_E8406884111_ (lambda () - (if (gx#stx-pair? _e8407084080_) - (let ((_e8407384088_ - (gx#syntax-e _e8407084080_))) - (let ((_hd8407484091_ - (##car _e8407384088_)) - (_tl8407584093_ - (##cdr _e8407384088_))) - (if (gx#stx-pair? _tl8407584093_) - (let ((_e8407684096_ - (gx#syntax-e _tl8407584093_))) - (let ((_hd8407784099_ - (##car _e8407684096_)) - (_tl8407884101_ - (##cdr _e8407684096_))) - (let ((_path84104_ - _hd8407784099_)) + (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-null? - _tl8407884101_) + _tl8407584098_) (if (gx#stx-string? - _path84104_) - (let* ((_rpath84106_ + _path84101_) + (let* ((_rpath84103_ (gx#core-resolve-path__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _path84104_ - (gx#stx-source _hd84067_))) - (_block84108_ - (gx#core-expand-include%__% _hd84067_ _rpath84106_)) - (_rbody84111_ + _path84101_ + (gx#stx-source _hd84064_))) + (_block84105_ + (gx#core-expand-include%__% _hd84064_ _rpath84103_)) + (_rbody84108_ (call-with-parameters (lambda () (gx#core-expand-block__% - _block84108_ - _expand-special83955_ + _block84105_ + _expand-special83952_ '#f - _expand-e83957_)) + _expand-e83954_)) gx#current-expander-path - (cons _rpath84106_ (gx#current-expander-path))))) - (_K83963_ _rest84068_ (foldr1 cons _r84069_ _rbody84111_))) - (_E8407284084_)) + (cons _rpath84103_ (gx#current-expander-path))))) + (_K83960_ _rest84065_ (foldr1 cons _r84066_ _rbody84108_))) + (_E8406984081_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8407284084_))))) - (_E8407284084_)))) - (_E8407284084_))))) - (_E8407184114_)))) - (_expand-expression83962_ - (lambda (_hd84063_ _rest84064_ _r84065_) - (_K83963_ - _rest84064_ - (cons (_expand-e83957_ _hd84063_) _r84065_)))) - (_K83963_ - (lambda (_rest83993_ _r83994_) - (let* ((_e8399584002_ _rest83993_) - (_E8399784006_ + (_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_ (lambda () - (if _begin-form83956_ + (if _begin-form83953_ (gx#core-quote-syntax__1 (gx#core-cons - _begin-form83956_ - (reverse _r83994_)) - (gx#stx-source _stx83954_)) - _r83994_))) - (_E8399684059_ + _begin-form83953_ + (reverse _r83991_)) + (gx#stx-source _stx83951_)) + _r83991_))) + (_E8399384056_ (lambda () - (if (gx#stx-pair? _e8399584002_) - (let ((_e8399884010_ - (gx#syntax-e _e8399584002_))) - (let ((_hd8399984013_ - (##car _e8399884010_)) - (_tl8400084015_ - (##cdr _e8399884010_))) - (let* ((_hd84018_ _hd8399984013_) - (_rest84020_ _tl8400084015_)) + (if (gx#stx-pair? _e8399283999_) + (let ((_e8399584007_ + (gx#syntax-e _e8399283999_))) + (let ((_hd8399684010_ + (##car _e8399584007_)) + (_tl8399784012_ + (##cdr _e8399584007_))) + (let* ((_hd84015_ _hd8399684010_) + (_rest84017_ _tl8399784012_)) (if '#t - (let* ((_hd84022_ + (let* ((_hd84019_ (gx#core-expand-head - _hd84018_)) - (_e8402384030_ _hd84022_) - (_E8402584034_ + _hd84015_)) + (_e8402084027_ _hd84019_) + (_E8402284031_ (lambda () - (_expand-expression83962_ - _hd84022_ - _rest84020_ - _r83994_))) - (_E8402484055_ + (_expand-expression83959_ + _hd84019_ + _rest84017_ + _r83991_))) + (_E8402184052_ (lambda () (if (gx#stx-pair? - _e8402384030_) - (let ((_e8402684038_ + _e8402084027_) + (let ((_e8402384035_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e8402384030_))) - (let ((_hd8402784041_ (##car _e8402684038_)) - (_tl8402884043_ (##cdr _e8402684038_))) - (let* ((_form84046_ _hd8402784041_) - (_body84048_ _tl8402884043_)) + (gx#syntax-e _e8402084027_))) + (let ((_hd8402484038_ (##car _e8402384035_)) + (_tl8402584040_ (##cdr _e8402384035_))) + (let* ((_form84043_ _hd8402484038_) + (_body84045_ _tl8402584040_)) (if '#t - (let ((_bind84050_ - (if (gx#identifier? _form84046_) - (gx#resolve-identifier__0 _form84046_) + (let ((_bind84047_ + (if (gx#identifier? _form84043_) + (gx#resolve-identifier__0 _form84043_) '#f))) - (if (gx#special-form-binding? _bind84050_) - (let ((_$e84052_ + (if (gx#special-form-binding? _bind84047_) + (let ((_$e84049_ (##unchecked-structure-ref - _bind84050_ + _bind84047_ '1 gx#binding::t '#f))) - (if (eq? '%#begin _$e84052_) - (_expand-splice83959_ - _hd84022_ - _body84048_ - _rest84020_ - _r83994_) - (if (eq? '%#cond-expand _$e84052_) - (_expand-cond-expand83960_ - _hd84022_ - _rest84020_ - _r83994_) - (if (eq? '%#include _$e84052_) - (_expand-include83961_ - _hd84022_ - _rest84020_ - _r83994_) - (_expand-special83955_ - _hd84022_ - _K83963_ - _rest84020_ - _r83994_))))) - (_expand-expression83962_ - _hd84022_ - _rest84020_ - _r83994_))) - (_E8402584034_))))) - (_E8402584034_))))) + (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_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8402484055_)) - (_E8399784006_))))) - (_E8399784006_))))) - (_E8399684059_))))) - (let* ((_e8396483971_ _stx83954_) - (_E8396683975_ + (_E8402184052_)) + (_E8399484003_))))) + (_E8399484003_))))) + (_E8399384056_))))) + (let* ((_e8396183968_ _stx83951_) + (_E8396383972_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8396483971_))) - (_E8396583989_ + _e8396183968_))) + (_E8396283986_ (lambda () - (if (gx#stx-pair? _e8396483971_) - (let ((_e8396783979_ (gx#syntax-e _e8396483971_))) - (let ((_hd8396883982_ (##car _e8396783979_)) - (_tl8396983984_ (##cdr _e8396783979_))) - (let ((_body83987_ _tl8396983984_)) - (if (gx#stx-list? _body83987_) - (_K83963_ _body83987_ '()) - (_E8396683975_))))) - (_E8396683975_))))) - (_E8396583989_))))) + (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_))))) (define gx#core-expand-block__0 - (lambda (_stx84130_ _expand-special84131_) - (let* ((_begin-form84133_ '%#begin) - (_expand-e84135_ gx#core-expand-expression)) + (lambda (_stx84127_ _expand-special84128_) + (let* ((_begin-form84130_ '%#begin) + (_expand-e84132_ gx#core-expand-expression)) (gx#core-expand-block__% - _stx84130_ - _expand-special84131_ - _begin-form84133_ - _expand-e84135_)))) + _stx84127_ + _expand-special84128_ + _begin-form84130_ + _expand-e84132_)))) (define gx#core-expand-block__1 - (lambda (_stx84137_ _expand-special84138_ _begin-form84139_) - (let ((_expand-e84141_ gx#core-expand-expression)) + (lambda (_stx84134_ _expand-special84135_ _begin-form84136_) + (let ((_expand-e84138_ gx#core-expand-expression)) (gx#core-expand-block__% - _stx84137_ - _expand-special84138_ - _begin-form84139_ - _expand-e84141_)))) + _stx84134_ + _expand-special84135_ + _begin-form84136_ + _expand-e84138_)))) (define gx#core-expand-block - (lambda _g84796_ - (let ((_g84795_ (##length _g84796_))) - (cond ((##fx= _g84795_ 2) - (apply (lambda (_stx84130_ _expand-special84131_) + (lambda _g84793_ + (let ((_g84792_ (##length _g84793_))) + (cond ((##fx= _g84792_ 2) + (apply (lambda (_stx84127_ _expand-special84128_) (gx#core-expand-block__0 - _stx84130_ - _expand-special84131_)) - _g84796_)) - ((##fx= _g84795_ 3) - (apply (lambda (_stx84137_ - _expand-special84138_ - _begin-form84139_) + _stx84127_ + _expand-special84128_)) + _g84793_)) + ((##fx= _g84792_ 3) + (apply (lambda (_stx84134_ + _expand-special84135_ + _begin-form84136_) (gx#core-expand-block__1 - _stx84137_ - _expand-special84138_ - _begin-form84139_)) - _g84796_)) - ((##fx= _g84795_ 4) - (apply (lambda (_stx84143_ - _expand-special84144_ - _begin-form84145_ - _expand-e84146_) + _stx84134_ + _expand-special84135_ + _begin-form84136_)) + _g84793_)) + ((##fx= _g84792_ 4) + (apply (lambda (_stx84140_ + _expand-special84141_ + _begin-form84142_ + _expand-e84143_) (gx#core-expand-block__% - _stx84143_ - _expand-special84144_ - _begin-form84145_ - _expand-e84146_)) - _g84796_)) + _stx84140_ + _expand-special84141_ + _begin-form84142_ + _expand-e84143_)) + _g84793_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-block - _g84796_)))))) + _g84793_)))))) (define gx#core-expand-block* - (lambda (_stx83902_ _expand-special83903_) - (let* ((_g8390483915_ - (gx#core-expand-block__1 _stx83902_ _expand-special83903_ '#f)) - (_E8390883919_ - (lambda () (error '"No clause matching" _g8390483915_)))) - (let ((_K8391383950_ + (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 () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _stx83902_))) - (_K8391083936_ (lambda (_expr83934_) _expr83934_)) - (_K8390983925_ - (lambda (_body83923_) + _stx83899_))) + (_K8390783933_ (lambda (_expr83931_) _expr83931_)) + (_K8390683922_ + (lambda (_body83920_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _body83923_)) - (gx#stx-source _stx83902_))))) - (let ((_try-match8390683946_ + (gx#core-cons '%#begin (reverse _body83920_)) + (gx#stx-source _stx83899_))))) + (let ((_try-match8390383943_ (lambda () - (if (##pair? _g8390483915_) - (let ((_tl8391283941_ (##cdr _g8390483915_)) - (_hd8391183939_ (##car _g8390483915_))) - (if (##null? _tl8391283941_) - (let ((_expr83944_ _hd8391183939_)) - (_K8391083936_ _expr83944_)) - (let ((_body83928_ _g8390483915_)) - (_K8390983925_ _body83928_)))) - (let ((_body83928_ _g8390483915_)) - (_K8390983925_ _body83928_)))))) - (if (##null? _g8390483915_) - (_K8391383950_) - (_try-match8390683946_))))))) + (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_))))))) (define gx#core-expand-cond-expand% - (lambda (_stx83730_) - (letrec ((_satisfied?83732_ - (lambda (_condition83830_) - (let* ((_e8383183846_ _condition83830_) - (_E8384183850_ + (lambda (_stx83727_) + (letrec ((_satisfied?83729_ + (lambda (_condition83827_) + (let* ((_e8382883843_ _condition83827_) + (_E8383883847_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8383183846_))) - (_E8383483869_ + _e8382883843_))) + (_E8383183866_ (lambda () - (if (gx#stx-pair? _e8383183846_) - (let ((_e8384283854_ - (gx#syntax-e _e8383183846_))) - (let ((_hd8384383857_ - (##car _e8384283854_)) - (_tl8384483859_ - (##cdr _e8384283854_))) - (let* ((_combinator83862_ _hd8384383857_) - (_body83864_ _tl8384483859_)) - (if (gx#stx-list? _body83864_) - (let ((_$e83866_ + (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_ (gx#stx-e - _combinator83862_))) - (if (eq? 'not _$e83866_) + _combinator83859_))) + (if (eq? 'not _$e83863_) (not (gx#stx-ormap - _satisfied?83732_ - _body83864_)) - (if (eq? 'and _$e83866_) + _satisfied?83729_ + _body83861_)) + (if (eq? 'and _$e83863_) (gx#stx-andmap - _satisfied?83732_ - _body83864_) - (if (eq? 'or _$e83866_) + _satisfied?83729_ + _body83861_) + (if (eq? 'or _$e83863_) (gx#stx-ormap - _satisfied?83732_ - _body83864_) + _satisfied?83729_ + _body83861_) (if (eq? 'defined ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e83866_) - (gx#stx-andmap gx#core-resolve-identifier _body83864_) + _$e83863_) + (gx#stx-andmap gx#core-resolve-identifier _body83861_) (gx#raise-syntax-error '#f '"Bad syntax; bad cond-expannd combinator" - _stx83730_ - _combinator83862_)))))) + _stx83727_ + _combinator83859_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8384183850_))))) - (_E8384183850_)))) - (_E8383383892_ + (_E8383883847_))))) + (_E8383883847_)))) + (_E8383083889_ (lambda () - (if (gx#stx-pair? _e8383183846_) - (let ((_e8383583873_ - (gx#syntax-e _e8383183846_))) - (let ((_hd8383683876_ - (##car _e8383583873_)) - (_tl8383783878_ - (##cdr _e8383583873_))) - (if (and (gx#identifier? _hd8383683876_) + (if (gx#stx-pair? _e8382883843_) + (let ((_e8383283870_ + (gx#syntax-e _e8382883843_))) + (let ((_hd8383383873_ + (##car _e8383283870_)) + (_tl8383483875_ + (##cdr _e8383283870_))) + (if (and (gx#identifier? _hd8383383873_) (gx#core-identifier=? - _hd8383683876_ + _hd8383383873_ 'unquote)) - (if (gx#stx-pair? _tl8383783878_) - (let ((_e8383883881_ + (if (gx#stx-pair? _tl8383483875_) + (let ((_e8383583878_ (gx#syntax-e - _tl8383783878_))) - (let ((_hd8383983884_ - (##car _e8383883881_)) - (_tl8384083886_ - (##cdr _e8383883881_))) - (let ((_expr83889_ - _hd8383983884_)) + _tl8383483875_))) + (let ((_hd8383683881_ + (##car _e8383583878_)) + (_tl8383783883_ + (##cdr _e8383583878_))) + (let ((_expr83886_ + _hd8383683881_)) (if (gx#stx-null? - _tl8384083886_) + _tl8383783883_) (if '#t (call-with-parameters (lambda () (gx#eval-syntax__0 - _expr83889_)) + _expr83886_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1)) - (_E8383483869_)) - (_E8383483869_))))) + (_E8383183866_)) + (_E8383183866_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8383483869_)) - (_E8383483869_)))) - (_E8383483869_)))) - (_E8383283898_ + (_E8383183866_)) + (_E8383183866_)))) + (_E8383183866_)))) + (_E8382983895_ (lambda () - (let ((_id83896_ _e8383183846_)) - (if (gx#identifier? _id83896_) + (let ((_id83893_ _e8382883843_)) + (if (gx#identifier? _id83893_) (gx#core-bound-identifier?__% - _id83896_ + _id83893_ gx#feature-binding?) - (_E8383383892_)))))) - (_E8383283898_)))) - (_loop83733_ - (lambda (_rest83763_) - (let* ((_e8376483772_ _rest83763_) - (_E8377083776_ + (_E8383083889_)))))) + (_E8382983895_)))) + (_loop83730_ + (lambda (_rest83760_) + (let* ((_e8376183769_ _rest83760_) + (_E8376783773_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8376483772_))) - (_E8376683780_ + _e8376183769_))) + (_E8376383777_ (lambda () - (if (gx#stx-null? _e8376483772_) - (if '#t '() (_E8377083776_)) - (_E8377083776_)))) - (_E8376583826_ + (if (gx#stx-null? _e8376183769_) + (if '#t '() (_E8376783773_)) + (_E8376783773_)))) + (_E8376283823_ (lambda () - (if (gx#stx-pair? _e8376483772_) - (let ((_e8376783784_ - (gx#syntax-e _e8376483772_))) - (let ((_hd8376883787_ - (##car _e8376783784_)) - (_tl8376983789_ - (##cdr _e8376783784_))) - (let* ((_hd83792_ _hd8376883787_) - (_rest83794_ _tl8376983789_)) + (if (gx#stx-pair? _e8376183769_) + (let ((_e8376483781_ + (gx#syntax-e _e8376183769_))) + (let ((_hd8376583784_ + (##car _e8376483781_)) + (_tl8376683786_ + (##cdr _e8376483781_))) + (let* ((_hd83789_ _hd8376583784_) + (_rest83791_ _tl8376683786_)) (if '#t - (let* ((_e8379583802_ _hd83792_) - (_E8379783806_ + (let* ((_e8379283799_ _hd83789_) + (_E8379483803_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8379583802_))) - (_E8379683822_ + _e8379283799_))) + (_E8379383819_ (lambda () (if (gx#stx-pair? - _e8379583802_) - (let ((_e8379883810_ + _e8379283799_) + (let ((_e8379583807_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e8379583802_))) - (let ((_hd8379983813_ (##car _e8379883810_)) - (_tl8380083815_ (##cdr _e8379883810_))) - (let* ((_condition83818_ _hd8379983813_) - (_body83820_ _tl8380083815_)) + (gx#syntax-e _e8379283799_))) + (let ((_hd8379683810_ (##car _e8379583807_)) + (_tl8379783812_ (##cdr _e8379583807_))) + (let* ((_condition83815_ _hd8379683810_) + (_body83817_ _tl8379783812_)) (if '#t - (if (gx#stx-eq? _condition83818_ 'else) - (if (gx#stx-null? _rest83794_) - _body83820_ + (if (gx#stx-eq? _condition83815_ 'else) + (if (gx#stx-null? _rest83791_) + _body83817_ (gx#raise-syntax-error '#f '"Bad syntax; clauses after else" - _stx83730_ - _hd83792_)) - (if (_satisfied?83732_ _condition83818_) - _body83820_ - (_loop83733_ _rest83794_))) - (_E8379783806_))))) - (_E8379783806_))))) + _stx83727_ + _hd83789_)) + (if (_satisfied?83729_ _condition83815_) + _body83817_ + (_loop83730_ _rest83791_))) + (_E8379483803_))))) + (_E8379483803_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8379683822_)) - (_E8376683780_))))) - (_E8376683780_))))) - (_E8376583826_))))) - (let* ((_e8373483741_ _stx83730_) - (_E8373683745_ + (_E8379383819_)) + (_E8376383777_))))) + (_E8376383777_))))) + (_E8376283823_))))) + (let* ((_e8373183738_ _stx83727_) + (_E8373383742_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8373483741_))) - (_E8373583759_ + _e8373183738_))) + (_E8373283756_ (lambda () - (if (gx#stx-pair? _e8373483741_) - (let ((_e8373783749_ (gx#syntax-e _e8373483741_))) - (let ((_hd8373883752_ (##car _e8373783749_)) - (_tl8373983754_ (##cdr _e8373783749_))) - (let ((_clauses83757_ _tl8373983754_)) - (if (gx#stx-list? _clauses83757_) + (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_) (gx#core-cons 'begin - (_loop83733_ _clauses83757_)) - (_E8373683745_))))) - (_E8373683745_))))) - (_E8373583759_))))) + (_loop83730_ _clauses83754_)) + (_E8373383742_))))) + (_E8373383742_))))) + (_E8373283756_))))) (define gx#core-expand-include%__% - (lambda (_stx83673_ _rpath83674_) - (let* ((_e8367583685_ _stx83673_) - (_E8367783689_ + (lambda (_stx83670_ _rpath83671_) + (let* ((_e8367283682_ _stx83670_) + (_E8367483686_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8367583685_))) - (_E8367683716_ + _e8367283682_))) + (_E8367383713_ (lambda () - (if (gx#stx-pair? _e8367583685_) - (let ((_e8367883693_ (gx#syntax-e _e8367583685_))) - (let ((_hd8367983696_ (##car _e8367883693_)) - (_tl8368083698_ (##cdr _e8367883693_))) - (if (gx#stx-pair? _tl8368083698_) - (let ((_e8368183701_ - (gx#syntax-e _tl8368083698_))) - (let ((_hd8368283704_ (##car _e8368183701_)) - (_tl8368383706_ (##cdr _e8368183701_))) - (let ((_path83709_ _hd8368283704_)) - (if (gx#stx-null? _tl8368383706_) - (if (gx#stx-string? _path83709_) - (let ((_rpath83714_ - (let ((_$e83711_ - _rpath83674_)) - (if _$e83711_ - _$e83711_ + (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_ (gx#core-resolve-path__% - _path83709_ + _path83706_ (gx#stx-source - _stx83673_)))))) - (if (member _rpath83714_ + _stx83670_)))))) + (if (member _rpath83711_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _stx83673_) + _stx83670_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons 'begin (read-syntax-from-file - _rpath83714_)) + _rpath83711_)) (gx#stx-source - _stx83673_))))) - (_E8367783689_)) - (_E8367783689_))))) - (_E8367783689_)))) - (_E8367783689_))))) - (_E8367683716_)))) + _stx83670_))))) + (_E8367483686_)) + (_E8367483686_))))) + (_E8367483686_)))) + (_E8367483686_))))) + (_E8367383713_)))) (define gx#core-expand-include%__0 - (lambda (_stx83723_) - (let ((_rpath83725_ '#f)) - (gx#core-expand-include%__% _stx83723_ _rpath83725_)))) + (lambda (_stx83720_) + (let ((_rpath83722_ '#f)) + (gx#core-expand-include%__% _stx83720_ _rpath83722_)))) (define gx#core-expand-include% - (lambda _g84798_ - (let ((_g84797_ (##length _g84798_))) - (cond ((##fx= _g84797_ 1) - (apply (lambda (_stx83723_) - (gx#core-expand-include%__0 _stx83723_)) - _g84798_)) - ((##fx= _g84797_ 2) - (apply (lambda (_stx83727_ _rpath83728_) - (gx#core-expand-include%__% _stx83727_ _rpath83728_)) - _g84798_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-include% - _g84798_)))))) + _g84795_)))))) (define gx#core-apply-expander__% - (lambda (_K83642_ _stx83643_ _method83644_) - (if (procedure? _K83642_) - (let ((_$e83646_ (gx#stx-source _stx83643_))) - (if _$e83646_ - ((lambda (_g8364883650_) - (gx#stx-wrap-source (_K83642_ _stx83643_) _g8364883650_)) - _$e83646_) - (_K83642_ _stx83643_))) - (let ((_$e83653_ (bound-method-ref _K83642_ _method83644_))) - (if _$e83653_ - ((lambda (_g8365583657_) + (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_) (gx#core-apply-expander__% - _g8365583657_ - _stx83643_ - _method83644_)) - _$e83653_) + _g8365283654_ + _stx83640_ + _method83641_)) + _$e83650_) (gx#raise-syntax-error '#f '"Bad syntax; no expander method" - _stx83643_ - _method83644_)))))) + _stx83640_ + _method83641_)))))) (define gx#core-apply-expander__0 - (lambda (_K83663_ _stx83664_) - (let ((_method83666_ 'apply-macro-expander)) - (gx#core-apply-expander__% _K83663_ _stx83664_ _method83666_)))) + (lambda (_K83660_ _stx83661_) + (let ((_method83663_ 'apply-macro-expander)) + (gx#core-apply-expander__% _K83660_ _stx83661_ _method83663_)))) (define gx#core-apply-expander - (lambda _g84800_ - (let ((_g84799_ (##length _g84800_))) - (cond ((##fx= _g84799_ 2) - (apply (lambda (_K83663_ _stx83664_) - (gx#core-apply-expander__0 _K83663_ _stx83664_)) - _g84800_)) - ((##fx= _g84799_ 3) - (apply (lambda (_K83668_ _stx83669_ _method83670_) + (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_) (gx#core-apply-expander__% - _K83668_ - _stx83669_ - _method83670_)) - _g84800_)) + _K83665_ + _stx83666_ + _method83667_)) + _g84797_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-expander - _g84800_)))))) + _g84797_)))))) (define gx#expander::apply-macro-expander - (lambda (_self83638_ _stx83639_) + (lambda (_self83635_ _stx83636_) (gx#raise-syntax-error '#f '"Bad syntax; bottom method for apply-macro-expander" - _stx83639_))) + _stx83636_))) (bind-method!__% gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (lambda (_self83491_ _stx83492_) - (let* ((_self8349383499_ _self83491_) - (_E8349583503_ - (lambda () (error '"No clause matching" _self8349383499_))) - (_K8349683508_ - (lambda (_K83506_) - (gx#core-apply-expander__0 _K83506_ _stx83492_)))) - (if (##structure-instance-of? _self8349383499_ 'gx#core-macro::t) - (let* ((_e8349783511_ + (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_ (##unchecked-structure-ref - _self8349383499_ + _self8349083496_ '1 gx#expander::t '#f)) - (_K83514_ _e8349783511_)) - (_K8349683508_ _K83514_)) - (_E8349583503_))))) + (_K83511_ _e8349483508_)) + (_K8349383505_ _K83511_)) + (_E8349283500_))))) (bind-method!__% gx#macro-expander::t 'apply-macro-expander gx#macro-expander::apply-macro-expander '#f) (define gx#core-expander::apply-macro-expander - (lambda (_self83344_ _stx83345_) - (if (gx#sealed-syntax? _stx83345_) - _stx83345_ - (let* ((_self8334683352_ _self83344_) - (_E8334883356_ - (lambda () (error '"No clause matching" _self8334683352_))) - (_K8334983361_ - (lambda (_K83359_) - (gx#core-apply-expander__0 _K83359_ _stx83345_)))) + (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_)))) (if (##structure-instance-of? - _self8334683352_ + _self8334383349_ 'gx#core-expander::t) - (let* ((_e8335083364_ + (let* ((_e8334783361_ (##unchecked-structure-ref - _self8334683352_ + _self8334383349_ '1 gx#expander::t '#f)) - (_K83367_ _e8335083364_)) - (_K8334983361_ _K83367_)) - (_E8334883356_)))))) + (_K83364_ _e8334783361_)) + (_K8334683358_ _K83364_)) + (_E8334583353_)))))) (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 (_self83206_ _stx83207_ _top?83208_) - (if (_top?83208_ (gx#current-expander-context)) - (gx#core-expander::apply-macro-expander _self83206_ _stx83207_) + (lambda (_self83203_ _stx83204_ _top?83205_) + (if (_top?83205_ (gx#current-expander-context)) + (gx#core-expander::apply-macro-expander _self83203_ _stx83204_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _stx83207_)))) + _stx83204_)))) (define gx#top-special-form::apply-macro-expander__0 - (lambda (_self83213_ _stx83214_) - (let ((_top?83216_ gx#top-context?)) + (lambda (_self83210_ _stx83211_) + (let ((_top?83213_ gx#top-context?)) (gx#top-special-form::apply-macro-expander__% - _self83213_ - _stx83214_ - _top?83216_)))) + _self83210_ + _stx83211_ + _top?83213_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g84802_ - (let ((_g84801_ (##length _g84802_))) - (cond ((##fx= _g84801_ 2) - (apply (lambda (_self83213_ _stx83214_) + (lambda _g84799_ + (let ((_g84798_ (##length _g84799_))) + (cond ((##fx= _g84798_ 2) + (apply (lambda (_self83210_ _stx83211_) (gx#top-special-form::apply-macro-expander__0 - _self83213_ - _stx83214_)) - _g84802_)) - ((##fx= _g84801_ 3) - (apply (lambda (_self83218_ _stx83219_ _top?83220_) + _self83210_ + _stx83211_)) + _g84799_)) + ((##fx= _g84798_ 3) + (apply (lambda (_self83215_ _stx83216_ _top?83217_) (gx#top-special-form::apply-macro-expander__% - _self83218_ - _stx83219_ - _top?83220_)) - _g84802_)) + _self83215_ + _stx83216_ + _top?83217_)) + _g84799_)) (else (##raise-wrong-number-of-arguments-exception gx#top-special-form::apply-macro-expander - _g84802_)))))) + _g84799_)))))) (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 (_self83080_ _stx83081_) + (lambda (_self83077_ _stx83078_) (gx#top-special-form::apply-macro-expander__% - _self83080_ - _stx83081_ + _self83077_ + _stx83078_ 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 (_self82905_ _stx82906_) - (let* ((_self8290782913_ _self82905_) - (_E8290982917_ - (lambda () (error '"No clause matching" _self8290782913_))) - (_K8291082950_ - (lambda (_id82920_) - (let* ((_e8292182928_ _stx82906_) - (_E8292382932_ + (lambda (_self82902_ _stx82903_) + (let* ((_self8290482910_ _self82902_) + (_E8290682914_ + (lambda () (error '"No clause matching" _self8290482910_))) + (_K8290782947_ + (lambda (_id82917_) + (let* ((_e8291882925_ _stx82903_) + (_E8292082929_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8292182928_))) - (_E8292282946_ + _e8291882925_))) + (_E8291982943_ (lambda () - (if (gx#stx-pair? _e8292182928_) - (let ((_e8292482936_ - (gx#syntax-e _e8292182928_))) - (let ((_hd8292582939_ (##car _e8292482936_)) - (_tl8292682941_ (##cdr _e8292482936_))) - (let ((_body82944_ _tl8292682941_)) + (if (gx#stx-pair? _e8291882925_) + (let ((_e8292182933_ + (gx#syntax-e _e8291882925_))) + (let ((_hd8292282936_ (##car _e8292182933_)) + (_tl8292382938_ (##cdr _e8292182933_))) + (let ((_body82941_ _tl8292382938_)) (if '#t - (gx#core-cons _id82920_ _body82944_) - (_E8292382932_))))) - (_E8292382932_))))) - (_E8292282946_))))) + (gx#core-cons _id82917_ _body82941_) + (_E8292082929_))))) + (_E8292082929_))))) + (_E8291982943_))))) (if (##structure-instance-of? - _self8290782913_ + _self8290482910_ 'gx#rename-macro-expander::t) - (let* ((_e8291182953_ + (let* ((_e8290882950_ (##unchecked-structure-ref - _self8290782913_ + _self8290482910_ '1 gx#expander::t '#f)) - (_id82956_ _e8291182953_)) - (_K8291082950_ _id82956_)) - (_E8290982917_))))) + (_id82953_ _e8290882950_)) + (_K8290782947_ _id82953_)) + (_E8290682914_))))) (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 (_self82731_ _stx82732_ _method82733_) - (let* ((_self8273482742_ _self82731_) - (_E8273682746_ - (lambda () (error '"No clause matching" _self8273482742_))) - (_K8273782753_ - (lambda (_phi82749_ _ctx82750_ _K82751_) + (lambda (_self82728_ _stx82729_ _method82730_) + (let* ((_self8273182739_ _self82728_) + (_E8273382743_ + (lambda () (error '"No clause matching" _self8273182739_))) + (_K8273482750_ + (lambda (_phi82746_ _ctx82747_ _K82748_) (gx#core-apply-user-macro - _K82751_ - _stx82732_ - _ctx82750_ - _phi82749_ - _method82733_)))) - (if (##structure-instance-of? _self8273482742_ 'gx#macro-expander::t) - (let* ((_e8273882756_ + _K82748_ + _stx82729_ + _ctx82747_ + _phi82746_ + _method82730_)))) + (if (##structure-instance-of? _self8273182739_ 'gx#macro-expander::t) + (let* ((_e8273582753_ (##unchecked-structure-ref - _self8273482742_ + _self8273182739_ '1 gx#expander::t '#f)) - (_K82759_ _e8273882756_) - (_e8273982761_ + (_K82756_ _e8273582753_) + (_e8273682758_ (##unchecked-structure-ref - _self8273482742_ + _self8273182739_ '2 gx#user-expander::t '#f)) - (_ctx82764_ _e8273982761_) - (_e8274082766_ + (_ctx82761_ _e8273682758_) + (_e8273782763_ (##unchecked-structure-ref - _self8273482742_ + _self8273182739_ '3 gx#user-expander::t '#f)) - (_phi82769_ _e8274082766_)) - (_K8273782753_ _phi82769_ _ctx82764_ _K82759_)) - (_E8273682746_))))) + (_phi82766_ _e8273782763_)) + (_K8273482750_ _phi82766_ _ctx82761_ _K82756_)) + (_E8273382743_))))) (define gx#core-apply-user-expander__0 - (lambda (_self82774_ _stx82775_) - (let ((_method82777_ 'apply-macro-expander)) + (lambda (_self82771_ _stx82772_) + (let ((_method82774_ 'apply-macro-expander)) (gx#core-apply-user-expander__% - _self82774_ - _stx82775_ - _method82777_)))) + _self82771_ + _stx82772_ + _method82774_)))) (define gx#core-apply-user-expander - (lambda _g84804_ - (let ((_g84803_ (##length _g84804_))) - (cond ((##fx= _g84803_ 2) - (apply (lambda (_self82774_ _stx82775_) + (lambda _g84801_ + (let ((_g84800_ (##length _g84801_))) + (cond ((##fx= _g84800_ 2) + (apply (lambda (_self82771_ _stx82772_) (gx#core-apply-user-expander__0 - _self82774_ - _stx82775_)) - _g84804_)) - ((##fx= _g84803_ 3) - (apply (lambda (_self82779_ _stx82780_ _method82781_) + _self82771_ + _stx82772_)) + _g84801_)) + ((##fx= _g84800_ 3) + (apply (lambda (_self82776_ _stx82777_ _method82778_) (gx#core-apply-user-expander__% - _self82779_ - _stx82780_ - _method82781_)) - _g84804_)) + _self82776_ + _stx82777_ + _method82778_)) + _g84801_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-user-expander - _g84804_)))))) + _g84801_)))))) (define gx#core-apply-user-macro - (lambda (_K82721_ _stx82722_ _ctx82723_ _phi82724_ _method82725_) - (let ((_mark82727_ + (lambda (_K82718_ _stx82719_ _ctx82720_ _phi82721_ _method82722_) + (let ((_mark82724_ (##structure gx#expander-mark::t '#f - _ctx82723_ - _phi82724_ - _stx82722_))) + _ctx82720_ + _phi82721_ + _stx82719_))) (call-with-parameters (lambda () (gx#stx-apply-mark (gx#core-apply-expander__% - _K82721_ - (gx#stx-apply-mark _stx82722_ _mark82727_) - _method82725_) - _mark82727_)) + _K82718_ + (gx#stx-apply-mark _stx82719_ _mark82724_) + _method82722_) + _mark82724_)) gx#current-expander-marks - (cons _mark82727_ (gx#current-expander-marks)))))) + (cons _mark82724_ (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 (_stx82573_ _phi82574_ _ctx82575_) - (let _lp82577_ ((_bind82579_ + (lambda (_stx82570_ _phi82571_ _ctx82572_) + (let _lp82574_ ((_bind82576_ (gx#core-resolve-identifier__% - _stx82573_ - _phi82574_ - _ctx82575_))) + _stx82570_ + _phi82571_ + _ctx82572_))) (if (##structure-direct-instance-of? - _bind82579_ + _bind82576_ 'gx#import-binding::t) - (_lp82577_ + (_lp82574_ (##unchecked-structure-ref - _bind82579_ + _bind82576_ '4 gx#import-binding::t '#f)) (if (##structure-direct-instance-of? - _bind82579_ + _bind82576_ 'gx#alias-binding::t) - (_lp82577_ + (_lp82574_ (gx#core-resolve-identifier__% (##unchecked-structure-ref - _bind82579_ + _bind82576_ '4 gx#alias-binding::t '#f) - _phi82574_ - _ctx82575_)) - _bind82579_))))) + _phi82571_ + _ctx82572_)) + _bind82576_))))) (define gx#resolve-identifier__0 - (lambda (_stx82584_) - (let* ((_phi82586_ (gx#current-expander-phi)) - (_ctx82588_ (gx#current-expander-context))) - (gx#resolve-identifier__% _stx82584_ _phi82586_ _ctx82588_)))) + (lambda (_stx82581_) + (let* ((_phi82583_ (gx#current-expander-phi)) + (_ctx82585_ (gx#current-expander-context))) + (gx#resolve-identifier__% _stx82581_ _phi82583_ _ctx82585_)))) (define gx#resolve-identifier__1 - (lambda (_stx82590_ _phi82591_) - (let ((_ctx82593_ (gx#current-expander-context))) - (gx#resolve-identifier__% _stx82590_ _phi82591_ _ctx82593_)))) + (lambda (_stx82587_ _phi82588_) + (let ((_ctx82590_ (gx#current-expander-context))) + (gx#resolve-identifier__% _stx82587_ _phi82588_ _ctx82590_)))) (define gx#resolve-identifier - (lambda _g84806_ - (let ((_g84805_ (##length _g84806_))) - (cond ((##fx= _g84805_ 1) - (apply (lambda (_stx82584_) - (gx#resolve-identifier__0 _stx82584_)) - _g84806_)) - ((##fx= _g84805_ 2) - (apply (lambda (_stx82590_ _phi82591_) - (gx#resolve-identifier__1 _stx82590_ _phi82591_)) - _g84806_)) - ((##fx= _g84805_ 3) - (apply (lambda (_stx82595_ _phi82596_ _ctx82597_) + (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_) (gx#resolve-identifier__% - _stx82595_ - _phi82596_ - _ctx82597_)) - _g84806_)) + _stx82592_ + _phi82593_ + _ctx82594_)) + _g84803_)) (else (##raise-wrong-number-of-arguments-exception gx#resolve-identifier - _g84806_)))))) + _g84803_)))))) (define gx#bind-identifier!__% - (lambda (_stx82531_ _val82532_ _rebind?82533_ _phi82534_ _ctx82535_) - (let ((_rebind?82537_ - (if (not _rebind?82533_) + (lambda (_stx82528_ _val82529_ _rebind?82530_ _phi82531_ _ctx82532_) + (let ((_rebind?82534_ + (if (not _rebind?82530_) gx#core-context-rebind? - (if (procedure? _rebind?82533_) _rebind?82533_ true)))) + (if (procedure? _rebind?82530_) _rebind?82530_ true)))) (gx#core-bind!__% - (gx#core-identifier-key _stx82531_) - _val82532_ - _rebind?82537_ - _phi82534_ - _ctx82535_)))) + (gx#core-identifier-key _stx82528_) + _val82529_ + _rebind?82534_ + _phi82531_ + _ctx82532_)))) (define gx#bind-identifier!__0 - (lambda (_stx82542_ _val82543_) - (let* ((_rebind?82545_ '#f) - (_phi82547_ (gx#current-expander-phi)) - (_ctx82549_ (gx#current-expander-context))) + (lambda (_stx82539_ _val82540_) + (let* ((_rebind?82542_ '#f) + (_phi82544_ (gx#current-expander-phi)) + (_ctx82546_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx82542_ - _val82543_ - _rebind?82545_ - _phi82547_ - _ctx82549_)))) + _stx82539_ + _val82540_ + _rebind?82542_ + _phi82544_ + _ctx82546_)))) (define gx#bind-identifier!__1 - (lambda (_stx82551_ _val82552_ _rebind?82553_) - (let* ((_phi82555_ (gx#current-expander-phi)) - (_ctx82557_ (gx#current-expander-context))) + (lambda (_stx82548_ _val82549_ _rebind?82550_) + (let* ((_phi82552_ (gx#current-expander-phi)) + (_ctx82554_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx82551_ - _val82552_ - _rebind?82553_ - _phi82555_ - _ctx82557_)))) + _stx82548_ + _val82549_ + _rebind?82550_ + _phi82552_ + _ctx82554_)))) (define gx#bind-identifier!__2 - (lambda (_stx82559_ _val82560_ _rebind?82561_ _phi82562_) - (let ((_ctx82564_ (gx#current-expander-context))) + (lambda (_stx82556_ _val82557_ _rebind?82558_ _phi82559_) + (let ((_ctx82561_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx82559_ - _val82560_ - _rebind?82561_ - _phi82562_ - _ctx82564_)))) + _stx82556_ + _val82557_ + _rebind?82558_ + _phi82559_ + _ctx82561_)))) (define gx#bind-identifier! - (lambda _g84808_ - (let ((_g84807_ (##length _g84808_))) - (cond ((##fx= _g84807_ 2) - (apply (lambda (_stx82542_ _val82543_) - (gx#bind-identifier!__0 _stx82542_ _val82543_)) - _g84808_)) - ((##fx= _g84807_ 3) - (apply (lambda (_stx82551_ _val82552_ _rebind?82553_) + (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_) (gx#bind-identifier!__1 - _stx82551_ - _val82552_ - _rebind?82553_)) - _g84808_)) - ((##fx= _g84807_ 4) - (apply (lambda (_stx82559_ - _val82560_ - _rebind?82561_ - _phi82562_) + _stx82548_ + _val82549_ + _rebind?82550_)) + _g84805_)) + ((##fx= _g84804_ 4) + (apply (lambda (_stx82556_ + _val82557_ + _rebind?82558_ + _phi82559_) (gx#bind-identifier!__2 - _stx82559_ - _val82560_ - _rebind?82561_ - _phi82562_)) - _g84808_)) - ((##fx= _g84807_ 5) - (apply (lambda (_stx82566_ - _val82567_ - _rebind?82568_ - _phi82569_ - _ctx82570_) + _stx82556_ + _val82557_ + _rebind?82558_ + _phi82559_)) + _g84805_)) + ((##fx= _g84804_ 5) + (apply (lambda (_stx82563_ + _val82564_ + _rebind?82565_ + _phi82566_ + _ctx82567_) (gx#bind-identifier!__% - _stx82566_ - _val82567_ - _rebind?82568_ - _phi82569_ - _ctx82570_)) - _g84808_)) + _stx82563_ + _val82564_ + _rebind?82565_ + _phi82566_ + _ctx82567_)) + _g84805_)) (else (##raise-wrong-number-of-arguments-exception gx#bind-identifier! - _g84808_)))))) + _g84805_)))))) (define gx#core-resolve-identifier__% - (lambda (_stx82503_ _phi82504_ _ctx82505_) - (let _lp82507_ ((_e82509_ _stx82503_) - (_marks82510_ (gx#current-expander-marks))) - (if (symbol? _e82509_) + (lambda (_stx82500_ _phi82501_ _ctx82502_) + (let _lp82504_ ((_e82506_ _stx82500_) + (_marks82507_ (gx#current-expander-marks))) + (if (symbol? _e82506_) (gx#core-resolve-binding - _e82509_ - _phi82504_ - _phi82504_ - _ctx82505_ - (reverse _marks82510_)) - (if (gx#identifier-quote? _e82509_) + _e82506_ + _phi82501_ + _phi82501_ + _ctx82502_ + (reverse _marks82507_)) + (if (gx#identifier-quote? _e82506_) (gx#core-resolve-binding - (##unchecked-structure-ref _e82509_ '1 gx#AST::t '#f) - _phi82504_ + (##unchecked-structure-ref _e82506_ '1 gx#AST::t '#f) + _phi82501_ '0 (##unchecked-structure-ref - _e82509_ + _e82506_ '3 gx#syntax-quote::t '#f) (##unchecked-structure-ref - _e82509_ + _e82506_ '4 gx#syntax-quote::t '#f)) (if (##structure-direct-instance-of? - _e82509_ + _e82506_ 'gx#identifier-wrap::t) (gx#core-resolve-binding - (##unchecked-structure-ref _e82509_ '1 gx#AST::t '#f) - _phi82504_ - _phi82504_ - _ctx82505_ + (##unchecked-structure-ref _e82506_ '1 gx#AST::t '#f) + _phi82501_ + _phi82501_ + _ctx82502_ (foldl1 gx#apply-mark (##unchecked-structure-ref - _e82509_ + _e82506_ '3 gx#identifier-wrap::t '#f) - _marks82510_)) + _marks82507_)) (if (##structure-direct-instance-of? - _e82509_ + _e82506_ 'gx#syntax-wrap::t) - (_lp82507_ + (_lp82504_ (##unchecked-structure-ref - _e82509_ + _e82506_ '1 gx#AST::t '#f) (gx#apply-mark (##unchecked-structure-ref - _e82509_ + _e82506_ '3 gx#syntax-wrap::t '#f) - _marks82510_)) + _marks82507_)) (if (##structure-instance-of? - _e82509_ + _e82506_ 'gerbil#AST::t) - (_lp82507_ + (_lp82504_ (##unchecked-structure-ref - _e82509_ + _e82506_ '1 gx#AST::t '#f) - _marks82510_) + _marks82507_) (gx#raise-syntax-error '#f '"Bad identifier" - _stx82503_))))))))) + _stx82500_))))))))) (define gx#core-resolve-identifier__0 - (lambda (_stx82515_) - (let* ((_phi82517_ (gx#current-expander-phi)) - (_ctx82519_ (gx#current-expander-context))) - (gx#core-resolve-identifier__% _stx82515_ _phi82517_ _ctx82519_)))) + (lambda (_stx82512_) + (let* ((_phi82514_ (gx#current-expander-phi)) + (_ctx82516_ (gx#current-expander-context))) + (gx#core-resolve-identifier__% _stx82512_ _phi82514_ _ctx82516_)))) (define gx#core-resolve-identifier__1 - (lambda (_stx82521_ _phi82522_) - (let ((_ctx82524_ (gx#current-expander-context))) - (gx#core-resolve-identifier__% _stx82521_ _phi82522_ _ctx82524_)))) + (lambda (_stx82518_ _phi82519_) + (let ((_ctx82521_ (gx#current-expander-context))) + (gx#core-resolve-identifier__% _stx82518_ _phi82519_ _ctx82521_)))) (define gx#core-resolve-identifier - (lambda _g84810_ - (let ((_g84809_ (##length _g84810_))) - (cond ((##fx= _g84809_ 1) - (apply (lambda (_stx82515_) - (gx#core-resolve-identifier__0 _stx82515_)) - _g84810_)) - ((##fx= _g84809_ 2) - (apply (lambda (_stx82521_ _phi82522_) + (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_) (gx#core-resolve-identifier__1 - _stx82521_ - _phi82522_)) - _g84810_)) - ((##fx= _g84809_ 3) - (apply (lambda (_stx82526_ _phi82527_ _ctx82528_) + _stx82518_ + _phi82519_)) + _g84807_)) + ((##fx= _g84806_ 3) + (apply (lambda (_stx82523_ _phi82524_ _ctx82525_) (gx#core-resolve-identifier__% - _stx82526_ - _phi82527_ - _ctx82528_)) - _g84810_)) + _stx82523_ + _phi82524_ + _ctx82525_)) + _g84807_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-identifier - _g84810_)))))) + _g84807_)))))) (define gx#core-resolve-binding - (lambda (_id82416_ _phi82417_ _src-phi82418_ _ctx82419_ _marks82420_) - (letrec ((_resolve82422_ - (lambda (_ctx82490_ _src-phi82491_ _key82492_) - (let _lp82494_ ((_ctx82496_ + (lambda (_id82413_ _phi82414_ _src-phi82415_ _ctx82416_ _marks82417_) + (letrec ((_resolve82419_ + (lambda (_ctx82487_ _src-phi82488_ _key82489_) + (let _lp82491_ ((_ctx82493_ (gx#core-context-shift - _ctx82490_ - _phi82417_)) - (_dphi82497_ - (fx- _phi82417_ _src-phi82491_))) - (let ((_$e82499_ - (gx#core-context-resolve _ctx82496_ _key82492_))) - (if _$e82499_ - (values _$e82499_) - (if (fxzero? _dphi82497_) + _ctx82487_ + _phi82414_)) + (_dphi82494_ + (fx- _phi82414_ _src-phi82488_))) + (let ((_$e82496_ + (gx#core-context-resolve _ctx82493_ _key82489_))) + (if _$e82496_ + (values _$e82496_) + (if (fxzero? _dphi82494_) '#f - (if (fxpositive? _dphi82497_) - (_lp82494_ - (gx#core-context-shift _ctx82496_ '-1) - (fx- _dphi82497_ '1)) - (_lp82494_ - (gx#core-context-shift _ctx82496_ '1) - (fx+ _dphi82497_ '1)))))))))) - (let _lp82424_ ((_ctx82426_ _ctx82419_) - (_src-phi82427_ _src-phi82418_) - (_rest82428_ _marks82420_)) - (let* ((_rest8242982437_ _rest82428_) - (_else8243182445_ + (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_ (lambda () - (_resolve82422_ _ctx82426_ _src-phi82427_ _id82416_))) - (_K8243382478_ - (lambda (_rest82448_ _hd82449_) - (let* ((_hd8245082456_ _hd82449_) - (_E8245282460_ + (_resolve82419_ _ctx82423_ _src-phi82424_ _id82413_))) + (_K8243082475_ + (lambda (_rest82445_ _hd82446_) + (let* ((_hd8244782453_ _hd82446_) + (_E8244982457_ (lambda () - (error '"No clause matching" _hd8245082456_))) - (_K8245382470_ - (lambda (_subst82463_) - (let ((_$e82467_ - (let ((_key82465_ - (if _subst82463_ + (error '"No clause matching" _hd8244782453_))) + (_K8245082467_ + (lambda (_subst82460_) + (let ((_$e82464_ + (let ((_key82462_ + (if _subst82460_ (hash-get - _subst82463_ - _id82416_) + _subst82460_ + _id82413_) '#f))) - (if _key82465_ - (_resolve82422_ - _ctx82426_ - _src-phi82427_ - _key82465_) + (if _key82462_ + (_resolve82419_ + _ctx82423_ + _src-phi82424_ + _key82462_) '#f)))) - (if _$e82467_ - _$e82467_ - (_lp82424_ + (if _$e82464_ + _$e82464_ + (_lp82421_ (##unchecked-structure-ref - _hd82449_ + _hd82446_ '2 gx#expander-mark::t '#f) (##unchecked-structure-ref - _hd82449_ + _hd82446_ '3 gx#expander-mark::t '#f) - _rest82448_)))))) + _rest82445_)))))) (if (##structure-instance-of? - _hd8245082456_ + _hd8244782453_ 'gx#expander-mark::t) - (let* ((_e8245482473_ + (let* ((_e8245182470_ (##unchecked-structure-ref - _hd8245082456_ + _hd8244782453_ '1 gx#expander-mark::t '#f)) - (_subst82476_ _e8245482473_)) - (_K8245382470_ _subst82476_)) - (_E8245282460_)))))) - (if (##pair? _rest8242982437_) - (let ((_hd8243482481_ (##car _rest8242982437_)) - (_tl8243582483_ (##cdr _rest8242982437_))) - (let* ((_hd82486_ _hd8243482481_) - (_rest82488_ _tl8243582483_)) - (_K8243382478_ _rest82488_ _hd82486_))) - (_else8243182445_))))))) + (_subst82473_ _e8245182470_)) + (_K8245082467_ _subst82473_)) + (_E8244982457_)))))) + (if (##pair? _rest8242682434_) + (let ((_hd8243182478_ (##car _rest8242682434_)) + (_tl8243282480_ (##cdr _rest8242682434_))) + (let* ((_hd82483_ _hd8243182478_) + (_rest82485_ _tl8243282480_)) + (_K8243082475_ _rest82485_ _hd82483_))) + (_else8242882442_))))))) (define gx#core-bind!__% - (lambda (_key82292_ _val82293_ _rebind?82294_ _phi82295_ _ctx82296_) - (letrec ((_update-binding82298_ - (lambda (_xval82369_) - (if (or (_rebind?82294_ _ctx82296_ _xval82369_ _val82293_) + (lambda (_key82289_ _val82290_ _rebind?82291_ _phi82292_ _ctx82293_) + (letrec ((_update-binding82295_ + (lambda (_xval82366_) + (if (or (_rebind?82291_ _ctx82293_ _xval82366_ _val82290_) (and (##structure-direct-instance-of? - _xval82369_ + _xval82366_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _xval82369_ + _xval82366_ '6 gx#import-binding::t '#f) (and (##structure-instance-of? - _val82293_ + _val82290_ 'gx#binding::t) (not (##structure-direct-instance-of? - _val82293_ + _val82290_ 'gx#import-binding::t))))) (and (##structure-instance-of? - _xval82369_ + _xval82366_ 'gx#extern-binding::t) (##structure-instance-of? - _val82293_ + _val82290_ 'gx#runtime-binding::t) (eq? (##unchecked-structure-ref - _val82293_ + _val82290_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _xval82369_ + _xval82366_ '1 gx#binding::t '#f)))) - _val82293_ + _val82290_ (if (and (##structure-direct-instance-of? - _val82293_ + _val82290_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _val82293_ + _val82290_ '6 gx#import-binding::t '#f) (and (##structure-instance-of? - _xval82369_ + _xval82366_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _val82293_ + _val82290_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _xval82369_ + _xval82366_ '1 gx#binding::t '#f))))) - _xval82369_ + _xval82366_ (if (and (##structure-direct-instance-of? - _val82293_ + _val82290_ 'gx#import-binding::t) (##structure-instance-of? - _xval82369_ + _xval82366_ 'gx#binding::t)) (gx#raise-syntax-error '#f '"Bad binding; import conflict" - _key82292_ + _key82289_ (cons (##unchecked-structure-ref - _val82293_ + _val82290_ '1 gx#binding::t '#f) (cons (##structure-ref (##unchecked-structure-ref - _val82293_ + _val82290_ '5 gx#import-binding::t '#f) @@ -2818,199 +2818,199 @@ '#f) '())) (cons (##unchecked-structure-ref - _xval82369_ + _xval82366_ '1 gx#binding::t '#f) (cons (if (##structure-direct-instance-of? - _xval82369_ + _xval82366_ 'gx#import-binding::t) (##structure-ref (##unchecked-structure-ref - _xval82369_ + _xval82366_ '5 gx#import-binding::t '#f) '1 gx#expander-context::t '#f) - _xval82369_) + _xval82366_) '()))) (gx#raise-syntax-error '#f '"Bad binding; rebind conflict" - _key82292_ - _val82293_ - _xval82369_)))))) - (_gensubst82299_ - (lambda (_subst82364_ _id82365_) - (let ((_eid82367_ - (gensym (if (uninterned-symbol? _id82365_) + _key82289_ + _val82290_ + _xval82366_)))))) + (_gensubst82296_ + (lambda (_subst82361_ _id82362_) + (let ((_eid82364_ + (gensym (if (uninterned-symbol? _id82362_) '% - _id82365_)))) - (hash-put! _subst82364_ _id82365_ _eid82367_) - _eid82367_))) - (_subst!82300_ - (lambda (_key82302_) - (let* ((_key8230382311_ _key82302_) - (_else8230582319_ (lambda () _key82302_)) - (_K8230782352_ - (lambda (_mark82322_ _id82323_) - (let* ((_mark8232482330_ _mark82322_) - (_E8232682334_ + _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_ (lambda () (error '"No clause matching" - _mark8232482330_))) - (_K8232782344_ - (lambda (_subst82337_) - (if (not _subst82337_) - (let ((_subst82339_ + _mark8232182327_))) + (_K8232482341_ + (lambda (_subst82334_) + (if (not _subst82334_) + (let ((_subst82336_ (make-hash-table-eq))) (##unchecked-structure-set! - _mark82322_ - _subst82339_ + _mark82319_ + _subst82336_ '1 gx#expander-mark::t '#f) - (_gensubst82299_ - _subst82339_ - _id82323_)) - (let ((_$e82341_ + (_gensubst82296_ + _subst82336_ + _id82320_)) + (let ((_$e82338_ (hash-get - _subst82337_ - _id82323_))) - (if _$e82341_ - (values _$e82341_) - (_gensubst82299_ - _subst82337_ - _id82323_))))))) + _subst82334_ + _id82320_))) + (if _$e82338_ + (values _$e82338_) + (_gensubst82296_ + _subst82334_ + _id82320_))))))) (if (##structure-instance-of? - _mark8232482330_ + _mark8232182327_ 'gx#expander-mark::t) - (let* ((_e8232882347_ + (let* ((_e8232582344_ (##unchecked-structure-ref - _mark8232482330_ + _mark8232182327_ '1 gx#expander-mark::t '#f)) - (_subst82350_ _e8232882347_)) - (_K8232782344_ _subst82350_)) - (_E8232682334_)))))) - (if (##pair? _key8230382311_) - (let ((_hd8230882355_ (##car _key8230382311_)) - (_tl8230982357_ (##cdr _key8230382311_))) - (let* ((_id82360_ _hd8230882355_) - (_mark82362_ _tl8230982357_)) - (_K8230782352_ _mark82362_ _id82360_))) - (_else8230582319_)))))) + (_subst82347_ _e8232582344_)) + (_K8232482341_ _subst82347_)) + (_E8232382331_)))))) + (if (##pair? _key8230082308_) + (let ((_hd8230582352_ (##car _key8230082308_)) + (_tl8230682354_ (##cdr _key8230082308_))) + (let* ((_id82357_ _hd8230582352_) + (_mark82359_ _tl8230682354_)) + (_K8230482349_ _mark82359_ _id82357_))) + (_else8230282316_)))))) (gx#core-context-bind! - (gx#core-context-shift _ctx82296_ _phi82295_) - (_subst!82300_ _key82292_) - _val82293_ - _update-binding82298_)))) + (gx#core-context-shift _ctx82293_ _phi82292_) + (_subst!82297_ _key82289_) + _val82290_ + _update-binding82295_)))) (define gx#core-bind!__0 - (lambda (_key82386_ _val82387_) - (let* ((_rebind?82389_ false) - (_phi82391_ (gx#current-expander-phi)) - (_ctx82393_ (gx#current-expander-context))) + (lambda (_key82383_ _val82384_) + (let* ((_rebind?82386_ false) + (_phi82388_ (gx#current-expander-phi)) + (_ctx82390_ (gx#current-expander-context))) (gx#core-bind!__% - _key82386_ - _val82387_ - _rebind?82389_ - _phi82391_ - _ctx82393_)))) + _key82383_ + _val82384_ + _rebind?82386_ + _phi82388_ + _ctx82390_)))) (define gx#core-bind!__1 - (lambda (_key82395_ _val82396_ _rebind?82397_) - (let* ((_phi82399_ (gx#current-expander-phi)) - (_ctx82401_ (gx#current-expander-context))) + (lambda (_key82392_ _val82393_ _rebind?82394_) + (let* ((_phi82396_ (gx#current-expander-phi)) + (_ctx82398_ (gx#current-expander-context))) (gx#core-bind!__% - _key82395_ - _val82396_ - _rebind?82397_ - _phi82399_ - _ctx82401_)))) + _key82392_ + _val82393_ + _rebind?82394_ + _phi82396_ + _ctx82398_)))) (define gx#core-bind!__2 - (lambda (_key82403_ _val82404_ _rebind?82405_ _phi82406_) - (let ((_ctx82408_ (gx#current-expander-context))) + (lambda (_key82400_ _val82401_ _rebind?82402_ _phi82403_) + (let ((_ctx82405_ (gx#current-expander-context))) (gx#core-bind!__% - _key82403_ - _val82404_ - _rebind?82405_ - _phi82406_ - _ctx82408_)))) + _key82400_ + _val82401_ + _rebind?82402_ + _phi82403_ + _ctx82405_)))) (define gx#core-bind! - (lambda _g84812_ - (let ((_g84811_ (##length _g84812_))) - (cond ((##fx= _g84811_ 2) - (apply (lambda (_key82386_ _val82387_) - (gx#core-bind!__0 _key82386_ _val82387_)) - _g84812_)) - ((##fx= _g84811_ 3) - (apply (lambda (_key82395_ _val82396_ _rebind?82397_) + (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_) (gx#core-bind!__1 - _key82395_ - _val82396_ - _rebind?82397_)) - _g84812_)) - ((##fx= _g84811_ 4) - (apply (lambda (_key82403_ - _val82404_ - _rebind?82405_ - _phi82406_) + _key82392_ + _val82393_ + _rebind?82394_)) + _g84809_)) + ((##fx= _g84808_ 4) + (apply (lambda (_key82400_ + _val82401_ + _rebind?82402_ + _phi82403_) (gx#core-bind!__2 - _key82403_ - _val82404_ - _rebind?82405_ - _phi82406_)) - _g84812_)) - ((##fx= _g84811_ 5) - (apply (lambda (_key82410_ - _val82411_ - _rebind?82412_ - _phi82413_ - _ctx82414_) + _key82400_ + _val82401_ + _rebind?82402_ + _phi82403_)) + _g84809_)) + ((##fx= _g84808_ 5) + (apply (lambda (_key82407_ + _val82408_ + _rebind?82409_ + _phi82410_ + _ctx82411_) (gx#core-bind!__% - _key82410_ - _val82411_ - _rebind?82412_ - _phi82413_ - _ctx82414_)) - _g84812_)) + _key82407_ + _val82408_ + _rebind?82409_ + _phi82410_ + _ctx82411_)) + _g84809_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind! - _g84812_)))))) + _g84809_)))))) (define gx#core-identifier-key - (lambda (_stx82226_) - (if (symbol? _stx82226_) - (let* ((_g8222782235_ (gx#current-expander-marks)) - (_else8222982243_ (lambda () _stx82226_)) - (_K8223182248_ - (lambda (_hd82246_) (cons _stx82226_ _hd82246_)))) - (if (##pair? _g8222782235_) - (let* ((_hd8223282251_ (##car _g8222782235_)) - (_hd82254_ _hd8223282251_)) - (_K8223182248_ _hd82254_)) - (_else8222982243_))) - (if (gx#identifier? _stx82226_) - (let* ((_id82256_ (gx#syntax-local-unwrap _stx82226_)) - (_eid82258_ (gx#stx-e _id82256_)) - (_marks82260_ (gx#stx-identifier-marks* _id82256_))) - (let* ((_marks8226282270_ _marks82260_) - (_else8226482278_ (lambda () _eid82258_)) - (_K8226682283_ - (lambda (_hd82281_) (cons _eid82258_ _hd82281_)))) - (if (##pair? _marks8226282270_) - (let* ((_hd8226782286_ (##car _marks8226282270_)) - (_hd82289_ _hd8226782286_)) - (_K8226682283_ _hd82289_)) - (_else8226482278_)))) - (gx#raise-syntax-error '#f '"Bad identifier" _stx82226_))))) + (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_))))) (define gx#core-context-shift - (lambda (_ctx82171_ _phi82172_) - (letrec ((_make-phi82174_ - (lambda (_super82224_) - (let ((__obj84783 + (lambda (_ctx82168_ _phi82169_) + (letrec ((_make-phi82171_ + (lambda (_super82221_) + (let ((__obj84780 (##structure gx#phi-context::t '#f @@ -3019,637 +3019,637 @@ '#f '#f))) (gx#phi-context:::init! - __obj84783 + __obj84780 (gensym 'phi) - _super82224_) - __obj84783))) - (_make-phi/up82175_ - (lambda (_ctx82219_ _super82220_) - (let ((_ctx+182222_ (_make-phi82174_ _super82220_))) + _super82221_) + __obj84780))) + (_make-phi/up82172_ + (lambda (_ctx82216_ _super82217_) + (let ((_ctx+182219_ (_make-phi82171_ _super82217_))) (##unchecked-structure-set! - _ctx82219_ - _ctx+182222_ + _ctx82216_ + _ctx+182219_ '4 gx#phi-context::t '#f) (##unchecked-structure-set! - _ctx+182222_ - _ctx82219_ + _ctx+182219_ + _ctx82216_ '5 gx#phi-context::t '#f) - _ctx+182222_))) - (_make-phi/down82176_ - (lambda (_ctx82214_ _super82215_) - (let ((_ctx-182217_ (_make-phi82174_ _super82215_))) + _ctx+182219_))) + (_make-phi/down82173_ + (lambda (_ctx82211_ _super82212_) + (let ((_ctx-182214_ (_make-phi82171_ _super82212_))) (##unchecked-structure-set! - _ctx-182217_ - _ctx82214_ + _ctx-182214_ + _ctx82211_ '4 gx#phi-context::t '#f) (##unchecked-structure-set! - _ctx82214_ - _ctx-182217_ + _ctx82211_ + _ctx-182214_ '5 gx#phi-context::t '#f) - _ctx-182217_))) - (_shift82177_ - (lambda (_ctx82198_ - _delta82199_ - _make-delta-context82200_ - _phi82201_ - _K82202_) - (let ((_$e82204_ + _ctx-182214_))) + (_shift82174_ + (lambda (_ctx82195_ + _delta82196_ + _make-delta-context82197_ + _phi82198_ + _K82199_) + (let ((_$e82201_ (##unchecked-structure-ref - _ctx82198_ + _ctx82195_ '3 gx#phi-context::t '#f))) - (if _$e82204_ - ((lambda (_super82207_) - (let* ((_super82209_ - (_K82202_ _super82207_ _delta82199_)) - (_ctx+d82211_ - (_make-delta-context82200_ - _ctx82198_ - _super82209_))) - (_K82202_ - _ctx+d82211_ - (fx- _phi82201_ _delta82199_)))) - _$e82204_) - (error '"Bad context" _ctx82198_)))))) - (let _K82179_ ((_ctx82181_ _ctx82171_) (_phi82182_ _phi82172_)) - (if (fxzero? _phi82182_) - _ctx82181_ - (if (fx> (##vector-length _ctx82181_) '3) - (if (fxpositive? _phi82182_) - (let ((_$e82184_ + (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_ (##unchecked-structure-ref - _ctx82181_ + _ctx82178_ '4 gx#phi-context::t '#f))) - (if _$e82184_ - ((lambda (_g8218682188_) - (_K82179_ _g8218682188_ (fx- _phi82182_ '1))) - _$e82184_) - (_shift82177_ - _ctx82181_ + (if _$e82181_ + ((lambda (_g8218382185_) + (_K82176_ _g8218382185_ (fx- _phi82179_ '1))) + _$e82181_) + (_shift82174_ + _ctx82178_ '1 - _make-phi/up82175_ - _phi82182_ - _K82179_))) - (let ((_$e82191_ + _make-phi/up82172_ + _phi82179_ + _K82176_))) + (let ((_$e82188_ (##unchecked-structure-ref - _ctx82181_ + _ctx82178_ '5 gx#phi-context::t '#f))) - (if _$e82191_ - ((lambda (_g8219382195_) - (_K82179_ _g8219382195_ (fx+ _phi82182_ '1))) - _$e82191_) - (_shift82177_ - _ctx82181_ + (if _$e82188_ + ((lambda (_g8219082192_) + (_K82176_ _g8219082192_ (fx+ _phi82179_ '1))) + _$e82188_) + (_shift82174_ + _ctx82178_ '-1 - _make-phi/down82176_ - _phi82182_ - _K82179_)))) - _ctx82181_)))))) + _make-phi/down82173_ + _phi82179_ + _K82176_)))) + _ctx82178_)))))) (define gx#core-context-get - (lambda (_ctx82168_ _key82169_) + (lambda (_ctx82165_ _key82166_) (hash-get - (##unchecked-structure-ref _ctx82168_ '2 gx#expander-context::t '#f) - _key82169_))) + (##unchecked-structure-ref _ctx82165_ '2 gx#expander-context::t '#f) + _key82166_))) (define gx#core-context-put! - (lambda (_ctx82164_ _key82165_ _val82166_) + (lambda (_ctx82161_ _key82162_ _val82163_) (hash-put! - (##unchecked-structure-ref _ctx82164_ '2 gx#expander-context::t '#f) - _key82165_ - _val82166_))) + (##unchecked-structure-ref _ctx82161_ '2 gx#expander-context::t '#f) + _key82162_ + _val82163_))) (define gx#core-context-resolve - (lambda (_ctx82151_ _key82152_) - (let _lp82154_ ((_ctx82156_ _ctx82151_)) - (let ((_$e82158_ (gx#core-context-get _ctx82156_ _key82152_))) - (if _$e82158_ - (values _$e82158_) - (let ((_$e82161_ - (if (fx> (##vector-length _ctx82156_) '3) + (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) (##unchecked-structure-ref - _ctx82156_ + _ctx82153_ '3 gx#phi-context::t '#f) '#f))) - (if _$e82161_ (_lp82154_ _$e82161_) '#f))))))) + (if _$e82158_ (_lp82151_ _$e82158_) '#f))))))) (define gx#core-context-bind! - (lambda (_ctx82141_ _key82142_ _val82143_ _rebind82144_) - (let ((_$e82146_ (gx#core-context-get _ctx82141_ _key82142_))) - (if _$e82146_ - ((lambda (_xval82149_) + (lambda (_ctx82138_ _key82139_ _val82140_ _rebind82141_) + (let ((_$e82143_ (gx#core-context-get _ctx82138_ _key82139_))) + (if _$e82143_ + ((lambda (_xval82146_) (gx#core-context-put! - _ctx82141_ - _key82142_ - (_rebind82144_ _xval82149_))) - _$e82146_) - (gx#core-context-put! _ctx82141_ _key82142_ _val82143_))))) + _ctx82138_ + _key82139_ + (_rebind82141_ _xval82146_))) + _$e82143_) + (gx#core-context-put! _ctx82138_ _key82139_ _val82140_))))) (define gx#core-context-top__% - (lambda (_ctx82119_ _stop?82120_) - (let _lp82122_ ((_ctx82124_ _ctx82119_)) - (if (_stop?82120_ _ctx82124_) - _ctx82124_ - (if (##structure-instance-of? _ctx82124_ 'gx#context-phi::t) - (_lp82122_ + (lambda (_ctx82116_ _stop?82117_) + (let _lp82119_ ((_ctx82121_ _ctx82116_)) + (if (_stop?82117_ _ctx82121_) + _ctx82121_ + (if (##structure-instance-of? _ctx82121_ 'gx#context-phi::t) + (_lp82119_ (##unchecked-structure-ref - _ctx82124_ + _ctx82121_ '3 gx#phi-context::t '#f)) '#f))))) (define gx#core-context-top__0 (lambda () - (let* ((_ctx82130_ (gx#current-expander-context)) - (_stop?82132_ gx#top-context?)) - (gx#core-context-top__% _ctx82130_ _stop?82132_)))) + (let* ((_ctx82127_ (gx#current-expander-context)) + (_stop?82129_ gx#top-context?)) + (gx#core-context-top__% _ctx82127_ _stop?82129_)))) (define gx#core-context-top__1 - (lambda (_ctx82134_) - (let ((_stop?82136_ gx#top-context?)) - (gx#core-context-top__% _ctx82134_ _stop?82136_)))) + (lambda (_ctx82131_) + (let ((_stop?82133_ gx#top-context?)) + (gx#core-context-top__% _ctx82131_ _stop?82133_)))) (define gx#core-context-top - (lambda _g84814_ - (let ((_g84813_ (##length _g84814_))) - (cond ((##fx= _g84813_ 0) - (apply (lambda () (gx#core-context-top__0)) _g84814_)) - ((##fx= _g84813_ 1) - (apply (lambda (_ctx82134_) - (gx#core-context-top__1 _ctx82134_)) - _g84814_)) - ((##fx= _g84813_ 2) - (apply (lambda (_ctx82138_ _stop?82139_) - (gx#core-context-top__% _ctx82138_ _stop?82139_)) - _g84814_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-top - _g84814_)))))) + _g84811_)))))) (define gx#core-context-root__% - (lambda (_ctx82104_) - (let _lp82106_ ((_ctx82108_ _ctx82104_)) - (if (##structure-instance-of? _ctx82108_ 'gx#context-phi::t) - (_lp82106_ - (##unchecked-structure-ref _ctx82108_ '3 gx#phi-context::t '#f)) - _ctx82108_)))) + (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_)))) (define gx#core-context-root__0 (lambda () - (let ((_ctx82114_ (gx#current-expander-context))) - (gx#core-context-root__% _ctx82114_)))) + (let ((_ctx82111_ (gx#current-expander-context))) + (gx#core-context-root__% _ctx82111_)))) (define gx#core-context-root - (lambda _g84816_ - (let ((_g84815_ (##length _g84816_))) - (cond ((##fx= _g84815_ 0) - (apply (lambda () (gx#core-context-root__0)) _g84816_)) - ((##fx= _g84815_ 1) - (apply (lambda (_ctx82116_) - (gx#core-context-root__% _ctx82116_)) - _g84816_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-root - _g84816_)))))) + _g84813_)))))) (define gx#core-context-rebind?__% - (lambda (_ctx82085_ . __8208282086_) - (let ((_$e82089_ (gx#current-expander-allow-rebind?))) - (if _$e82089_ - _$e82089_ - (if (##structure-instance-of? _ctx82085_ 'gx#top-context::t) + (lambda (_ctx82082_ . __8207982083_) + (let ((_$e82086_ (gx#current-expander-allow-rebind?))) + (if _$e82086_ + _$e82086_ + (if (##structure-instance-of? _ctx82082_ 'gx#top-context::t) (if (not (##structure-instance-of? - _ctx82085_ + _ctx82082_ 'gx#module-context::t)) (not (##structure-instance-of? - _ctx82085_ + _ctx82082_ 'gx#prelude-context::t)) '#f) '#f))))) (define gx#core-context-rebind?__0 (lambda () - (let ((_ctx82096_ (gx#current-expander-context))) - (gx#core-context-rebind?__% _ctx82096_)))) + (let ((_ctx82093_ (gx#current-expander-context))) + (gx#core-context-rebind?__% _ctx82093_)))) (define gx#core-context-rebind? - (lambda _g84818_ - (let ((_g84817_ (##length _g84818_))) - (cond ((##fx= _g84817_ 0) - (apply (lambda () (gx#core-context-rebind?__0)) _g84818_)) - ((##fx= _g84817_ 1) - (apply (lambda (_ctx82098_) - (gx#core-context-rebind?__% _ctx82098_)) - _g84818_)) - ((##fx>= _g84817_ 1) - (apply gx#core-context-rebind?__% _g84818_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-rebind? - _g84818_)))))) + _g84815_)))))) (define gx#core-context-namespace__% - (lambda (_ctx82068_) - (let ((_$e82070_ (gx#core-context-top__1 _ctx82068_))) - (if _$e82070_ - ((lambda (_ctx82073_) + (lambda (_ctx82065_) + (let ((_$e82067_ (gx#core-context-top__1 _ctx82065_))) + (if _$e82067_ + ((lambda (_ctx82070_) (if (##structure-instance-of? - _ctx82073_ + _ctx82070_ 'gx#module-context::t) (##unchecked-structure-ref - _ctx82073_ + _ctx82070_ '6 gx#module-context::t '#f) '#f)) - _$e82070_) + _$e82067_) '#f)))) (define gx#core-context-namespace__0 (lambda () - (let ((_ctx82079_ (gx#current-expander-context))) - (gx#core-context-namespace__% _ctx82079_)))) + (let ((_ctx82076_ (gx#current-expander-context))) + (gx#core-context-namespace__% _ctx82076_)))) (define gx#core-context-namespace - (lambda _g84820_ - (let ((_g84819_ (##length _g84820_))) - (cond ((##fx= _g84819_ 0) - (apply (lambda () (gx#core-context-namespace__0)) _g84820_)) - ((##fx= _g84819_ 1) - (apply (lambda (_ctx82081_) - (gx#core-context-namespace__% _ctx82081_)) - _g84820_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-namespace - _g84820_)))))) + _g84817_)))))) (define gx#expander-binding?__% - (lambda (_bind82054_ _is?82055_) - (if (##structure-direct-instance-of? _bind82054_ 'gx#syntax-binding::t) - (_is?82055_ + (lambda (_bind82051_ _is?82052_) + (if (##structure-direct-instance-of? _bind82051_ 'gx#syntax-binding::t) + (_is?82052_ (##unchecked-structure-ref - _bind82054_ + _bind82051_ '4 gx#syntax-binding::t '#f)) '#f))) (define gx#expander-binding?__0 - (lambda (_bind82060_) - (let ((_is?82062_ gx#expander?)) - (gx#expander-binding?__% _bind82060_ _is?82062_)))) + (lambda (_bind82057_) + (let ((_is?82059_ gx#expander?)) + (gx#expander-binding?__% _bind82057_ _is?82059_)))) (define gx#expander-binding? - (lambda _g84822_ - (let ((_g84821_ (##length _g84822_))) - (cond ((##fx= _g84821_ 1) - (apply (lambda (_bind82060_) - (gx#expander-binding?__0 _bind82060_)) - _g84822_)) - ((##fx= _g84821_ 2) - (apply (lambda (_bind82064_ _is?82065_) - (gx#expander-binding?__% _bind82064_ _is?82065_)) - _g84822_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-binding? - _g84822_)))))) + _g84819_)))))) (define gx#core-expander-binding? - (lambda (_bind82051_) - (gx#expander-binding?__% _bind82051_ gx#core-expander?))) + (lambda (_bind82048_) + (gx#expander-binding?__% _bind82048_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_bind82049_) - (gx#expander-binding?__% _bind82049_ gx#expression-form?))) + (lambda (_bind82046_) + (gx#expander-binding?__% _bind82046_ gx#expression-form?))) (define gx#direct-special-form-binding? - (lambda (_bind82043_) - (letrec ((_direct-special-form?82045_ - (lambda (_obj82047_) + (lambda (_bind82040_) + (letrec ((_direct-special-form?82042_ + (lambda (_obj82044_) (##structure-direct-instance-of? - _obj82047_ + _obj82044_ (##type-id gx#special-form::t))))) - (gx#expander-binding?__% _bind82043_ _direct-special-form?82045_)))) + (gx#expander-binding?__% _bind82040_ _direct-special-form?82042_)))) (define gx#special-form-binding? - (lambda (_bind82041_) - (gx#expander-binding?__% _bind82041_ gx#special-form?))) + (lambda (_bind82038_) + (gx#expander-binding?__% _bind82038_ gx#special-form?))) (define gx#feature-binding? - (lambda (_bind82032_) - (letrec ((_feature?82034_ - (lambda (_e82036_) - (let ((_$e82038_ + (lambda (_bind82029_) + (letrec ((_feature?82031_ + (lambda (_e82033_) + (let ((_$e82035_ (##structure-instance-of? - _e82036_ + _e82033_ 'gx#feature-expander::t))) - (if _$e82038_ - _$e82038_ + (if _$e82035_ + _$e82035_ (##structure-instance-of? - _e82036_ + _e82033_ 'gx#module-context::t)))))) - (gx#expander-binding?__% _bind82032_ _feature?82034_)))) + (gx#expander-binding?__% _bind82029_ _feature?82031_)))) (define gx#private-feature-binding? - (lambda (_bind82030_) - (gx#expander-binding?__% _bind82030_ gx#private-feature-expander?))) + (lambda (_bind82027_) + (gx#expander-binding?__% _bind82027_ gx#private-feature-expander?))) (define gx#core-bound-identifier?__% - (lambda (_id82017_ _bound?82018_) - (if (gx#identifier? _id82017_) - (_bound?82018_ (gx#resolve-identifier__0 _id82017_)) + (lambda (_id82014_ _bound?82015_) + (if (gx#identifier? _id82014_) + (_bound?82015_ (gx#resolve-identifier__0 _id82014_)) '#f))) (define gx#core-bound-identifier?__0 - (lambda (_id82023_) - (let ((_bound?82025_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__% _id82023_ _bound?82025_)))) + (lambda (_id82020_) + (let ((_bound?82022_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__% _id82020_ _bound?82022_)))) (define gx#core-bound-identifier? - (lambda _g84824_ - (let ((_g84823_ (##length _g84824_))) - (cond ((##fx= _g84823_ 1) - (apply (lambda (_id82023_) - (gx#core-bound-identifier?__0 _id82023_)) - _g84824_)) - ((##fx= _g84823_ 2) - (apply (lambda (_id82027_ _bound?82028_) + (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_) (gx#core-bound-identifier?__% - _id82027_ - _bound?82028_)) - _g84824_)) + _id82024_ + _bound?82025_)) + _g84821_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bound-identifier? - _g84824_)))))) + _g84821_)))))) (define gx#core-identifier=? - (lambda (_x82007_ _y82008_) - (letrec ((_y=?82010_ - (lambda (_xid82014_) - ((if (list? _y82008_) memq eq?) _xid82014_ _y82008_)))) - (let ((_bind82012_ (gx#resolve-identifier__0 _x82007_))) - (if (##structure-instance-of? _bind82012_ 'gx#binding::t) - (_y=?82010_ - (##unchecked-structure-ref _bind82012_ '1 gx#binding::t '#f)) - (_y=?82010_ (gx#stx-e _x82007_))))))) + (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_))))))) (define gx#core-extern-symbol? - (lambda (_e82005_) - (if (interned-symbol? _e82005_) - (string-index__0 (symbol->string _e82005_) '#\#) + (lambda (_e82002_) + (if (interned-symbol? _e82002_) + (string-index__0 (symbol->string _e82002_) '#\#) '#f))) (define gx#core-quote-syntax__% - (lambda (_stx81960_ _src81961_ _ctx81962_ _marks81963_) - (if (##structure? _stx81960_) - (let ((_$e81965_ (gx#sealed-syntax-unwrap _stx81960_))) - (if _$e81965_ - (values _$e81965_) - (if (gx#identifier? _stx81960_) - (let ((_id81968_ - (gx#stx-unwrap__% _stx81960_ _marks81963_))) + (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_))) (##structure gx#syntax-quote::t - (##unchecked-structure-ref _id81968_ '1 gx#AST::t '#f) - (let ((_$e81970_ + (##unchecked-structure-ref _id81965_ '1 gx#AST::t '#f) + (let ((_$e81967_ (##unchecked-structure-ref - _id81968_ + _id81965_ '2 gx#AST::t '#f))) - (if _$e81970_ _$e81970_ _src81961_)) - _ctx81962_ + (if _$e81967_ _$e81967_ _src81958_)) + _ctx81959_ (##unchecked-structure-ref - _id81968_ + _id81965_ '3 gx#identifier-wrap::t '#f))) (##structure gx#syntax-quote::t - (gx#stx-e _stx81960_) - (let ((_$e81973_ (gx#stx-source _stx81960_))) - (if _$e81973_ _$e81973_ _src81961_)) - _ctx81962_ - (reverse _marks81963_))))) + (gx#stx-e _stx81957_) + (let ((_$e81970_ (gx#stx-source _stx81957_))) + (if _$e81970_ _$e81970_ _src81958_)) + _ctx81959_ + (reverse _marks81960_))))) (##structure gx#syntax-quote::t - _stx81960_ - _src81961_ - _ctx81962_ - (reverse _marks81963_))))) + _stx81957_ + _src81958_ + _ctx81959_ + (reverse _marks81960_))))) (define gx#core-quote-syntax__0 - (lambda (_stx81979_) - (let* ((_src81981_ '#f) - (_ctx81983_ (gx#current-expander-context)) - (_marks81985_ (gx#current-expander-marks))) + (lambda (_stx81976_) + (let* ((_src81978_ '#f) + (_ctx81980_ (gx#current-expander-context)) + (_marks81982_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx81979_ - _src81981_ - _ctx81983_ - _marks81985_)))) + _stx81976_ + _src81978_ + _ctx81980_ + _marks81982_)))) (define gx#core-quote-syntax__1 - (lambda (_stx81987_ _src81988_) - (let* ((_ctx81990_ (gx#current-expander-context)) - (_marks81992_ (gx#current-expander-marks))) + (lambda (_stx81984_ _src81985_) + (let* ((_ctx81987_ (gx#current-expander-context)) + (_marks81989_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx81987_ - _src81988_ - _ctx81990_ - _marks81992_)))) + _stx81984_ + _src81985_ + _ctx81987_ + _marks81989_)))) (define gx#core-quote-syntax__2 - (lambda (_stx81994_ _src81995_ _ctx81996_) - (let ((_marks81998_ (gx#current-expander-marks))) + (lambda (_stx81991_ _src81992_ _ctx81993_) + (let ((_marks81995_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx81994_ - _src81995_ - _ctx81996_ - _marks81998_)))) + _stx81991_ + _src81992_ + _ctx81993_ + _marks81995_)))) (define gx#core-quote-syntax - (lambda _g84826_ - (let ((_g84825_ (##length _g84826_))) - (cond ((##fx= _g84825_ 1) - (apply (lambda (_stx81979_) - (gx#core-quote-syntax__0 _stx81979_)) - _g84826_)) - ((##fx= _g84825_ 2) - (apply (lambda (_stx81987_ _src81988_) - (gx#core-quote-syntax__1 _stx81987_ _src81988_)) - _g84826_)) - ((##fx= _g84825_ 3) - (apply (lambda (_stx81994_ _src81995_ _ctx81996_) + (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_) (gx#core-quote-syntax__2 - _stx81994_ - _src81995_ - _ctx81996_)) - _g84826_)) - ((##fx= _g84825_ 4) - (apply (lambda (_stx82000_ _src82001_ _ctx82002_ _marks82003_) + _stx81991_ + _src81992_ + _ctx81993_)) + _g84823_)) + ((##fx= _g84822_ 4) + (apply (lambda (_stx81997_ _src81998_ _ctx81999_ _marks82000_) (gx#core-quote-syntax__% - _stx82000_ - _src82001_ - _ctx82002_ - _marks82003_)) - _g84826_)) + _stx81997_ + _src81998_ + _ctx81999_ + _marks82000_)) + _g84823_)) (else (##raise-wrong-number-of-arguments-exception gx#core-quote-syntax - _g84826_)))))) + _g84823_)))))) (define gx#core-cons - (lambda (_hd81956_ _tl81957_) - (cons (gx#core-quote-syntax__0 _hd81956_) _tl81957_))) + (lambda (_hd81953_ _tl81954_) + (cons (gx#core-quote-syntax__0 _hd81953_) _tl81954_))) (define gx#core-list - (lambda (_hd81953_ . _rest81954_) - (cons (gx#core-quote-syntax__0 _hd81953_) _rest81954_))) - (define gx#core-cons* (lambda (_hd81950_ . _rest81951_) - (apply cons* (gx#core-quote-syntax__0 _hd81950_) _rest81951_))) + (cons (gx#core-quote-syntax__0 _hd81950_) _rest81951_))) + (define gx#core-cons* + (lambda (_hd81947_ . _rest81948_) + (apply cons* (gx#core-quote-syntax__0 _hd81947_) _rest81948_))) (define gx#core-resolve-path__% - (lambda (_stx-path81924_ _rel81925_) - (let ((_path81937_ (gx#stx-e _stx-path81924_)) - (_reldir81938_ - (let _lp81927_ ((_relsrc81929_ - (let ((_$e81934_ - (gx#stx-source _stx-path81924_))) - (if _$e81934_ _$e81934_ _rel81925_)))) - (if (##structure-instance-of? _relsrc81929_ 'gerbil#AST::t) - (_lp81927_ - (let ((_$e81931_ (gx#stx-source _relsrc81929_))) - (if _$e81931_ _$e81931_ (gx#stx-e _relsrc81929_)))) - (if (source-location-path? _relsrc81929_) - (path-directory (source-location-path _relsrc81929_)) - (if (string? _relsrc81929_) - (path-directory _relsrc81929_) + (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_) (if (not (null? (gx#current-expander-path))) (path-directory (car (gx#current-expander-path))) (current-directory)))))))) - (path-expand _path81937_ (path-normalize _reldir81938_))))) + (path-expand _path81934_ (path-normalize _reldir81935_))))) (define gx#core-resolve-path__0 - (lambda (_stx-path81943_) - (let ((_rel81945_ '#f)) - (gx#core-resolve-path__% _stx-path81943_ _rel81945_)))) + (lambda (_stx-path81940_) + (let ((_rel81942_ '#f)) + (gx#core-resolve-path__% _stx-path81940_ _rel81942_)))) (define gx#core-resolve-path - (lambda _g84828_ - (let ((_g84827_ (##length _g84828_))) - (cond ((##fx= _g84827_ 1) - (apply (lambda (_stx-path81943_) - (gx#core-resolve-path__0 _stx-path81943_)) - _g84828_)) - ((##fx= _g84827_ 2) - (apply (lambda (_stx-path81947_ _rel81948_) - (gx#core-resolve-path__% _stx-path81947_ _rel81948_)) - _g84828_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-path - _g84828_)))))) + _g84825_)))))) (define gx#core-deserialize-mark__% - (lambda (_repr81880_ _ctx81881_) - (let* ((_repr8188281889_ _repr81880_) - (_E8188481893_ - (lambda () (error '"No clause matching" _repr8188281889_))) - (_K8188581901_ - (lambda (_subs81896_ _phi81897_) - (let ((_subst81899_ - (if (not (null? _subs81896_)) - (list->hash-table-eq _subs81896_) + (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_) '#f))) (##structure gx#expander-mark::t - _subst81899_ - _ctx81881_ - _phi81897_ + _subst81896_ + _ctx81878_ + _phi81894_ '#f))))) - (if (##pair? _repr8188281889_) - (let ((_hd8188681904_ (##car _repr8188281889_)) - (_tl8188781906_ (##cdr _repr8188281889_))) - (let* ((_phi81909_ _hd8188681904_) - (_subs81911_ _tl8188781906_)) - (_K8188581901_ _subs81911_ _phi81909_))) - (_E8188481893_))))) + (if (##pair? _repr8187981886_) + (let ((_hd8188381901_ (##car _repr8187981886_)) + (_tl8188481903_ (##cdr _repr8187981886_))) + (let* ((_phi81906_ _hd8188381901_) + (_subs81908_ _tl8188481903_)) + (_K8188281898_ _subs81908_ _phi81906_))) + (_E8188181890_))))) (define gx#core-deserialize-mark__0 - (lambda (_repr81916_) - (let ((_ctx81918_ (gx#current-expander-context))) - (gx#core-deserialize-mark__% _repr81916_ _ctx81918_)))) + (lambda (_repr81913_) + (let ((_ctx81915_ (gx#current-expander-context))) + (gx#core-deserialize-mark__% _repr81913_ _ctx81915_)))) (define gx#core-deserialize-mark - (lambda _g84830_ - (let ((_g84829_ (##length _g84830_))) - (cond ((##fx= _g84829_ 1) - (apply (lambda (_repr81916_) - (gx#core-deserialize-mark__0 _repr81916_)) - _g84830_)) - ((##fx= _g84829_ 2) - (apply (lambda (_repr81920_ _ctx81921_) - (gx#core-deserialize-mark__% _repr81920_ _ctx81921_)) - _g84830_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-deserialize-mark - _g84830_)))))) + _g84827_)))))) (define gx#syntax-local-rewrap - (lambda (_stx81877_) - (gx#stx-rewrap _stx81877_ (gx#current-expander-marks)))) + (lambda (_stx81874_) + (gx#stx-rewrap _stx81874_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_stx81875_) - (gx#stx-unwrap__% _stx81875_ (gx#current-expander-marks)))) + (lambda (_stx81872_) + (gx#stx-unwrap__% _stx81872_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (lambda (_stx81845_) - (let* ((_g8184681854_ (gx#current-expander-marks)) - (_else8184881862_ (lambda () _stx81845_)) - (_K8185081867_ - (lambda (_hd81865_) (gx#stx-apply-mark _stx81845_ _hd81865_)))) - (if (##pair? _g8184681854_) - (let* ((_hd8185181870_ (##car _g8184681854_)) - (_hd81873_ _hd8185181870_)) - (_K8185081867_ _hd81873_)) - (_else8184881862_))))) + (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_))))) (define gx#syntax-local-e__% - (lambda (_stx81830_ _E81831_) - (let ((_bind81833_ (gx#resolve-identifier__0 _stx81830_))) + (lambda (_stx81827_ _E81828_) + (let ((_bind81830_ (gx#resolve-identifier__0 _stx81827_))) (if (##structure-direct-instance-of? - _bind81833_ + _bind81830_ 'gx#syntax-binding::t) (##unchecked-structure-ref - _bind81833_ + _bind81830_ '4 gx#syntax-binding::t '#f) - (_E81831_ _stx81830_))))) + (_E81828_ _stx81827_))))) (define gx#syntax-local-e__0 - (lambda (_stx81838_) - (let ((_E81840_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__% _stx81838_ _E81840_)))) + (lambda (_stx81835_) + (let ((_E81837_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__% _stx81835_ _E81837_)))) (define gx#syntax-local-e - (lambda _g84832_ - (let ((_g84831_ (##length _g84832_))) - (cond ((##fx= _g84831_ 1) - (apply (lambda (_stx81838_) (gx#syntax-local-e__0 _stx81838_)) - _g84832_)) - ((##fx= _g84831_ 2) - (apply (lambda (_stx81842_ _E81843_) - (gx#syntax-local-e__% _stx81842_ _E81843_)) - _g84832_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-e - _g84832_)))))) + _g84829_)))))) (define gx#syntax-local-value__% - (lambda (_stx81814_ _E81815_) - (let ((_e81817_ (gx#syntax-local-e__% _stx81814_ _E81815_))) - (if (##structure-instance-of? _e81817_ 'gx#expander::t) - (##structure-ref _e81817_ '1 gx#expander::t '#f) - _e81817_)))) + (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_)))) (define gx#syntax-local-value__0 - (lambda (_stx81822_) - (let ((_E81824_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__% _stx81822_ _E81824_)))) + (lambda (_stx81819_) + (let ((_E81821_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__% _stx81819_ _E81821_)))) (define gx#syntax-local-value - (lambda _g84834_ - (let ((_g84833_ (##length _g84834_))) - (cond ((##fx= _g84833_ 1) - (apply (lambda (_stx81822_) - (gx#syntax-local-value__0 _stx81822_)) - _g84834_)) - ((##fx= _g84833_ 2) - (apply (lambda (_stx81826_ _E81827_) - (gx#syntax-local-value__% _stx81826_ _E81827_)) - _g84834_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-value - _g84834_)))))) + _g84831_)))))) (define gx#raise-syntax-ref-error - (lambda (_stx81811_) + (lambda (_stx81808_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _stx81811_))))) + _stx81808_))))) diff --git a/src/bootstrap/gerbil/expander/core__1.scm b/src/bootstrap/gerbil/expander/core__1.scm index f59445f3..05fe3e10 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]#_g84836_| + (define |gx[1]#_g84833_| (##structure gx#syntax-quote::t 'expander-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g84838_| + (define |gx[1]#_g84835_| (##structure gx#syntax-quote::t 'make-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g84840_| + (define |gx[1]#_g84837_| (##structure gx#syntax-quote::t 'expander-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g84845_| + (define |gx[1]#_g84842_| (##structure gx#syntax-quote::t 'expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g84848_| + (define |gx[1]#_g84845_| (##structure gx#syntax-quote::t 'expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g84853_| + (define |gx[1]#_g84850_| (##structure gx#syntax-quote::t 'expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84856_| + (define |gx[1]#_g84853_| (##structure gx#syntax-quote::t 'expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84861_| + (define |gx[1]#_g84858_| (##structure gx#syntax-quote::t '&expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g84864_| + (define |gx[1]#_g84861_| (##structure gx#syntax-quote::t '&expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g84869_| + (define |gx[1]#_g84866_| (##structure gx#syntax-quote::t '&expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84872_| + (define |gx[1]#_g84869_| (##structure gx#syntax-quote::t '&expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84875_| + (define |gx[1]#_g84872_| (##structure gx#syntax-quote::t 'expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g84877_| + (define |gx[1]#_g84874_| (##structure gx#syntax-quote::t 'root-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g84879_| + (define |gx[1]#_g84876_| (##structure gx#syntax-quote::t 'make-root-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g84881_| + (define |gx[1]#_g84878_| (##structure gx#syntax-quote::t 'root-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g84886_| + (define |gx[1]#_g84883_| (##structure gx#syntax-quote::t 'root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g84889_| + (define |gx[1]#_g84886_| (##structure gx#syntax-quote::t 'root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g84894_| + (define |gx[1]#_g84891_| (##structure gx#syntax-quote::t 'root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84897_| + (define |gx[1]#_g84894_| (##structure gx#syntax-quote::t 'root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84902_| + (define |gx[1]#_g84899_| (##structure gx#syntax-quote::t '&root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g84905_| + (define |gx[1]#_g84902_| (##structure gx#syntax-quote::t '&root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g84910_| + (define |gx[1]#_g84907_| (##structure gx#syntax-quote::t '&root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84913_| + (define |gx[1]#_g84910_| (##structure gx#syntax-quote::t '&root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84917_| + (define |gx[1]#_g84914_| (##structure gx#syntax-quote::t 'phi-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g84919_| + (define |gx[1]#_g84916_| (##structure gx#syntax-quote::t 'make-phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g84921_| + (define |gx[1]#_g84918_| (##structure gx#syntax-quote::t 'phi-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g84929_| + (define |gx[1]#_g84926_| (##structure gx#syntax-quote::t 'phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g84932_| + (define |gx[1]#_g84929_| (##structure gx#syntax-quote::t 'phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g84935_| + (define |gx[1]#_g84932_| (##structure gx#syntax-quote::t 'phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g84938_| + (define |gx[1]#_g84935_| (##structure gx#syntax-quote::t 'phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g84941_| + (define |gx[1]#_g84938_| (##structure gx#syntax-quote::t 'phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g84949_| + (define |gx[1]#_g84946_| (##structure gx#syntax-quote::t 'phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84952_| + (define |gx[1]#_g84949_| (##structure gx#syntax-quote::t 'phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84955_| + (define |gx[1]#_g84952_| (##structure gx#syntax-quote::t 'phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84958_| + (define |gx[1]#_g84955_| (##structure gx#syntax-quote::t 'phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84961_| + (define |gx[1]#_g84958_| (##structure gx#syntax-quote::t 'phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84969_| + (define |gx[1]#_g84966_| (##structure gx#syntax-quote::t '&phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g84972_| + (define |gx[1]#_g84969_| (##structure gx#syntax-quote::t '&phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g84975_| + (define |gx[1]#_g84972_| (##structure gx#syntax-quote::t '&phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g84978_| + (define |gx[1]#_g84975_| (##structure gx#syntax-quote::t '&phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g84981_| + (define |gx[1]#_g84978_| (##structure gx#syntax-quote::t '&phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g84989_| + (define |gx[1]#_g84986_| (##structure gx#syntax-quote::t '&phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84992_| + (define |gx[1]#_g84989_| (##structure gx#syntax-quote::t '&phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84995_| + (define |gx[1]#_g84992_| (##structure gx#syntax-quote::t '&phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84998_| + (define |gx[1]#_g84995_| (##structure gx#syntax-quote::t '&phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85001_| + (define |gx[1]#_g84998_| (##structure gx#syntax-quote::t '&phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85004_| + (define |gx[1]#_g85001_| (##structure gx#syntax-quote::t 'phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g85006_| + (define |gx[1]#_g85003_| (##structure gx#syntax-quote::t 'top-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85008_| + (define |gx[1]#_g85005_| (##structure gx#syntax-quote::t 'make-top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g85010_| + (define |gx[1]#_g85007_| (##structure gx#syntax-quote::t 'top-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85018_| + (define |gx[1]#_g85015_| (##structure gx#syntax-quote::t 'top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g85021_| + (define |gx[1]#_g85018_| (##structure gx#syntax-quote::t 'top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85024_| + (define |gx[1]#_g85021_| (##structure gx#syntax-quote::t 'top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g85027_| + (define |gx[1]#_g85024_| (##structure gx#syntax-quote::t 'top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g85030_| + (define |gx[1]#_g85027_| (##structure gx#syntax-quote::t 'top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g85038_| + (define |gx[1]#_g85035_| (##structure gx#syntax-quote::t 'top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85041_| + (define |gx[1]#_g85038_| (##structure gx#syntax-quote::t 'top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85044_| + (define |gx[1]#_g85041_| (##structure gx#syntax-quote::t 'top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85047_| + (define |gx[1]#_g85044_| (##structure gx#syntax-quote::t 'top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85050_| + (define |gx[1]#_g85047_| (##structure gx#syntax-quote::t 'top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85058_| + (define |gx[1]#_g85055_| (##structure gx#syntax-quote::t '&top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g85061_| + (define |gx[1]#_g85058_| (##structure gx#syntax-quote::t '&top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85064_| + (define |gx[1]#_g85061_| (##structure gx#syntax-quote::t '&top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g85067_| + (define |gx[1]#_g85064_| (##structure gx#syntax-quote::t '&top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g85070_| + (define |gx[1]#_g85067_| (##structure gx#syntax-quote::t '&top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g85078_| + (define |gx[1]#_g85075_| (##structure gx#syntax-quote::t '&top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85081_| + (define |gx[1]#_g85078_| (##structure gx#syntax-quote::t '&top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85084_| + (define |gx[1]#_g85081_| (##structure gx#syntax-quote::t '&top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85087_| + (define |gx[1]#_g85084_| (##structure gx#syntax-quote::t '&top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85090_| + (define |gx[1]#_g85087_| (##structure gx#syntax-quote::t '&top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85093_| + (define |gx[1]#_g85090_| (##structure gx#syntax-quote::t 'top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g85095_| + (define |gx[1]#_g85092_| (##structure gx#syntax-quote::t 'module-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85097_| + (define |gx[1]#_g85094_| (##structure gx#syntax-quote::t 'make-module-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g85099_| + (define |gx[1]#_g85096_| (##structure gx#syntax-quote::t 'module-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85113_| + (define |gx[1]#_g85110_| (##structure gx#syntax-quote::t 'module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g85116_| + (define |gx[1]#_g85113_| (##structure gx#syntax-quote::t 'module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85119_| + (define |gx[1]#_g85116_| (##structure gx#syntax-quote::t 'module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g85122_| + (define |gx[1]#_g85119_| (##structure gx#syntax-quote::t 'module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g85125_| + (define |gx[1]#_g85122_| (##structure gx#syntax-quote::t 'module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g85128_| + (define |gx[1]#_g85125_| (##structure gx#syntax-quote::t 'module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g85131_| + (define |gx[1]#_g85128_| (##structure gx#syntax-quote::t 'module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g85134_| + (define |gx[1]#_g85131_| (##structure gx#syntax-quote::t 'module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g85137_| + (define |gx[1]#_g85134_| (##structure gx#syntax-quote::t 'module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g85140_| + (define |gx[1]#_g85137_| (##structure gx#syntax-quote::t 'module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g85143_| + (define |gx[1]#_g85140_| (##structure gx#syntax-quote::t 'module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g85157_| + (define |gx[1]#_g85154_| (##structure gx#syntax-quote::t 'module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85160_| + (define |gx[1]#_g85157_| (##structure gx#syntax-quote::t 'module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85163_| + (define |gx[1]#_g85160_| (##structure gx#syntax-quote::t 'module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85166_| + (define |gx[1]#_g85163_| (##structure gx#syntax-quote::t 'module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85169_| + (define |gx[1]#_g85166_| (##structure gx#syntax-quote::t 'module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85172_| + (define |gx[1]#_g85169_| (##structure gx#syntax-quote::t 'module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85175_| + (define |gx[1]#_g85172_| (##structure gx#syntax-quote::t 'module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85178_| + (define |gx[1]#_g85175_| (##structure gx#syntax-quote::t 'module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85181_| + (define |gx[1]#_g85178_| (##structure gx#syntax-quote::t 'module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85184_| + (define |gx[1]#_g85181_| (##structure gx#syntax-quote::t 'module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85187_| + (define |gx[1]#_g85184_| (##structure gx#syntax-quote::t 'module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85201_| + (define |gx[1]#_g85198_| (##structure gx#syntax-quote::t '&module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g85204_| + (define |gx[1]#_g85201_| (##structure gx#syntax-quote::t '&module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85207_| + (define |gx[1]#_g85204_| (##structure gx#syntax-quote::t '&module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g85210_| + (define |gx[1]#_g85207_| (##structure gx#syntax-quote::t '&module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g85213_| + (define |gx[1]#_g85210_| (##structure gx#syntax-quote::t '&module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g85216_| + (define |gx[1]#_g85213_| (##structure gx#syntax-quote::t '&module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g85219_| + (define |gx[1]#_g85216_| (##structure gx#syntax-quote::t '&module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g85222_| + (define |gx[1]#_g85219_| (##structure gx#syntax-quote::t '&module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g85225_| + (define |gx[1]#_g85222_| (##structure gx#syntax-quote::t '&module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g85228_| + (define |gx[1]#_g85225_| (##structure gx#syntax-quote::t '&module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g85231_| + (define |gx[1]#_g85228_| (##structure gx#syntax-quote::t '&module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g85245_| + (define |gx[1]#_g85242_| (##structure gx#syntax-quote::t '&module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85248_| + (define |gx[1]#_g85245_| (##structure gx#syntax-quote::t '&module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85251_| + (define |gx[1]#_g85248_| (##structure gx#syntax-quote::t '&module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85254_| + (define |gx[1]#_g85251_| (##structure gx#syntax-quote::t '&module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85257_| + (define |gx[1]#_g85254_| (##structure gx#syntax-quote::t '&module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85260_| + (define |gx[1]#_g85257_| (##structure gx#syntax-quote::t '&module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85263_| + (define |gx[1]#_g85260_| (##structure gx#syntax-quote::t '&module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85266_| + (define |gx[1]#_g85263_| (##structure gx#syntax-quote::t '&module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85269_| + (define |gx[1]#_g85266_| (##structure gx#syntax-quote::t '&module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85272_| + (define |gx[1]#_g85269_| (##structure gx#syntax-quote::t '&module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85275_| + (define |gx[1]#_g85272_| (##structure gx#syntax-quote::t '&module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85279_| + (define |gx[1]#_g85276_| (##structure gx#syntax-quote::t 'prelude-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85281_| + (define |gx[1]#_g85278_| (##structure gx#syntax-quote::t 'make-prelude-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g85283_| + (define |gx[1]#_g85280_| (##structure gx#syntax-quote::t 'prelude-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85294_| + (define |gx[1]#_g85291_| (##structure gx#syntax-quote::t 'prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g85297_| + (define |gx[1]#_g85294_| (##structure gx#syntax-quote::t 'prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85300_| + (define |gx[1]#_g85297_| (##structure gx#syntax-quote::t 'prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g85303_| + (define |gx[1]#_g85300_| (##structure gx#syntax-quote::t 'prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g85306_| + (define |gx[1]#_g85303_| (##structure gx#syntax-quote::t 'prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g85309_| + (define |gx[1]#_g85306_| (##structure gx#syntax-quote::t 'prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g85312_| + (define |gx[1]#_g85309_| (##structure gx#syntax-quote::t 'prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g85315_| + (define |gx[1]#_g85312_| (##structure gx#syntax-quote::t 'prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g85326_| + (define |gx[1]#_g85323_| (##structure gx#syntax-quote::t 'prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85329_| + (define |gx[1]#_g85326_| (##structure gx#syntax-quote::t 'prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85332_| + (define |gx[1]#_g85329_| (##structure gx#syntax-quote::t 'prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85335_| + (define |gx[1]#_g85332_| (##structure gx#syntax-quote::t 'prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85338_| + (define |gx[1]#_g85335_| (##structure gx#syntax-quote::t 'prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85341_| + (define |gx[1]#_g85338_| (##structure gx#syntax-quote::t 'prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85344_| + (define |gx[1]#_g85341_| (##structure gx#syntax-quote::t 'prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85347_| + (define |gx[1]#_g85344_| (##structure gx#syntax-quote::t 'prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85358_| + (define |gx[1]#_g85355_| (##structure gx#syntax-quote::t '&prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g85361_| + (define |gx[1]#_g85358_| (##structure gx#syntax-quote::t '&prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85364_| + (define |gx[1]#_g85361_| (##structure gx#syntax-quote::t '&prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g85367_| + (define |gx[1]#_g85364_| (##structure gx#syntax-quote::t '&prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g85370_| + (define |gx[1]#_g85367_| (##structure gx#syntax-quote::t '&prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g85373_| + (define |gx[1]#_g85370_| (##structure gx#syntax-quote::t '&prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g85376_| + (define |gx[1]#_g85373_| (##structure gx#syntax-quote::t '&prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g85379_| + (define |gx[1]#_g85376_| (##structure gx#syntax-quote::t '&prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g85390_| + (define |gx[1]#_g85387_| (##structure gx#syntax-quote::t '&prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85393_| + (define |gx[1]#_g85390_| (##structure gx#syntax-quote::t '&prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85396_| + (define |gx[1]#_g85393_| (##structure gx#syntax-quote::t '&prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85399_| + (define |gx[1]#_g85396_| (##structure gx#syntax-quote::t '&prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85402_| + (define |gx[1]#_g85399_| (##structure gx#syntax-quote::t '&prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85405_| + (define |gx[1]#_g85402_| (##structure gx#syntax-quote::t '&prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85408_| + (define |gx[1]#_g85405_| (##structure gx#syntax-quote::t '&prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85411_| + (define |gx[1]#_g85408_| (##structure gx#syntax-quote::t '&prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85415_| + (define |gx[1]#_g85412_| (##structure gx#syntax-quote::t 'local-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85417_| + (define |gx[1]#_g85414_| (##structure gx#syntax-quote::t 'make-local-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g85419_| + (define |gx[1]#_g85416_| (##structure gx#syntax-quote::t 'local-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85427_| + (define |gx[1]#_g85424_| (##structure gx#syntax-quote::t 'local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g85430_| + (define |gx[1]#_g85427_| (##structure gx#syntax-quote::t 'local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85433_| + (define |gx[1]#_g85430_| (##structure gx#syntax-quote::t 'local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g85436_| + (define |gx[1]#_g85433_| (##structure gx#syntax-quote::t 'local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g85439_| + (define |gx[1]#_g85436_| (##structure gx#syntax-quote::t 'local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g85447_| + (define |gx[1]#_g85444_| (##structure gx#syntax-quote::t 'local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85450_| + (define |gx[1]#_g85447_| (##structure gx#syntax-quote::t 'local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85453_| + (define |gx[1]#_g85450_| (##structure gx#syntax-quote::t 'local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85456_| + (define |gx[1]#_g85453_| (##structure gx#syntax-quote::t 'local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85459_| + (define |gx[1]#_g85456_| (##structure gx#syntax-quote::t 'local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85467_| + (define |gx[1]#_g85464_| (##structure gx#syntax-quote::t '&local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g85470_| + (define |gx[1]#_g85467_| (##structure gx#syntax-quote::t '&local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85473_| + (define |gx[1]#_g85470_| (##structure gx#syntax-quote::t '&local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g85476_| + (define |gx[1]#_g85473_| (##structure gx#syntax-quote::t '&local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g85479_| + (define |gx[1]#_g85476_| (##structure gx#syntax-quote::t '&local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g85487_| + (define |gx[1]#_g85484_| (##structure gx#syntax-quote::t '&local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85490_| + (define |gx[1]#_g85487_| (##structure gx#syntax-quote::t '&local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85493_| + (define |gx[1]#_g85490_| (##structure gx#syntax-quote::t '&local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85496_| + (define |gx[1]#_g85493_| (##structure gx#syntax-quote::t '&local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85499_| + (define |gx[1]#_g85496_| (##structure gx#syntax-quote::t '&local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85501_| + (define |gx[1]#_g85498_| (##structure gx#syntax-quote::t 'binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85503_| + (define |gx[1]#_g85500_| (##structure gx#syntax-quote::t 'make-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85505_| + (define |gx[1]#_g85502_| (##structure gx#syntax-quote::t 'binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85511_| + (define |gx[1]#_g85508_| (##structure gx#syntax-quote::t 'binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85514_| + (define |gx[1]#_g85511_| (##structure gx#syntax-quote::t 'binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85517_| + (define |gx[1]#_g85514_| (##structure gx#syntax-quote::t 'binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85523_| + (define |gx[1]#_g85520_| (##structure gx#syntax-quote::t 'binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85526_| + (define |gx[1]#_g85523_| (##structure gx#syntax-quote::t 'binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85529_| + (define |gx[1]#_g85526_| (##structure gx#syntax-quote::t 'binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85535_| + (define |gx[1]#_g85532_| (##structure gx#syntax-quote::t '&binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85538_| + (define |gx[1]#_g85535_| (##structure gx#syntax-quote::t '&binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85541_| + (define |gx[1]#_g85538_| (##structure gx#syntax-quote::t '&binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85547_| + (define |gx[1]#_g85544_| (##structure gx#syntax-quote::t '&binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85550_| + (define |gx[1]#_g85547_| (##structure gx#syntax-quote::t '&binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85553_| + (define |gx[1]#_g85550_| (##structure gx#syntax-quote::t '&binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85556_| + (define |gx[1]#_g85553_| (##structure gx#syntax-quote::t 'binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85558_| + (define |gx[1]#_g85555_| (##structure gx#syntax-quote::t 'runtime-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85560_| + (define |gx[1]#_g85557_| (##structure gx#syntax-quote::t 'make-runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85562_| + (define |gx[1]#_g85559_| (##structure gx#syntax-quote::t 'runtime-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85568_| + (define |gx[1]#_g85565_| (##structure gx#syntax-quote::t 'runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85571_| + (define |gx[1]#_g85568_| (##structure gx#syntax-quote::t 'runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85574_| + (define |gx[1]#_g85571_| (##structure gx#syntax-quote::t 'runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85580_| + (define |gx[1]#_g85577_| (##structure gx#syntax-quote::t 'runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85583_| + (define |gx[1]#_g85580_| (##structure gx#syntax-quote::t 'runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85586_| + (define |gx[1]#_g85583_| (##structure gx#syntax-quote::t 'runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85592_| + (define |gx[1]#_g85589_| (##structure gx#syntax-quote::t '&runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85595_| + (define |gx[1]#_g85592_| (##structure gx#syntax-quote::t '&runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85598_| + (define |gx[1]#_g85595_| (##structure gx#syntax-quote::t '&runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85604_| + (define |gx[1]#_g85601_| (##structure gx#syntax-quote::t '&runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85607_| + (define |gx[1]#_g85604_| (##structure gx#syntax-quote::t '&runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85610_| + (define |gx[1]#_g85607_| (##structure gx#syntax-quote::t '&runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85613_| + (define |gx[1]#_g85610_| (##structure gx#syntax-quote::t 'runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85615_| + (define |gx[1]#_g85612_| (##structure gx#syntax-quote::t 'local-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85617_| + (define |gx[1]#_g85614_| (##structure gx#syntax-quote::t 'make-local-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85619_| + (define |gx[1]#_g85616_| (##structure gx#syntax-quote::t 'local-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85625_| + (define |gx[1]#_g85622_| (##structure gx#syntax-quote::t 'local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85628_| + (define |gx[1]#_g85625_| (##structure gx#syntax-quote::t 'local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85631_| + (define |gx[1]#_g85628_| (##structure gx#syntax-quote::t 'local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85637_| + (define |gx[1]#_g85634_| (##structure gx#syntax-quote::t 'local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85640_| + (define |gx[1]#_g85637_| (##structure gx#syntax-quote::t 'local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85643_| + (define |gx[1]#_g85640_| (##structure gx#syntax-quote::t 'local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85649_| + (define |gx[1]#_g85646_| (##structure gx#syntax-quote::t '&local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85652_| + (define |gx[1]#_g85649_| (##structure gx#syntax-quote::t '&local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85655_| + (define |gx[1]#_g85652_| (##structure gx#syntax-quote::t '&local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85661_| + (define |gx[1]#_g85658_| (##structure gx#syntax-quote::t '&local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85664_| + (define |gx[1]#_g85661_| (##structure gx#syntax-quote::t '&local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85667_| + (define |gx[1]#_g85664_| (##structure gx#syntax-quote::t '&local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85671_| + (define |gx[1]#_g85668_| (##structure gx#syntax-quote::t 'top-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85673_| + (define |gx[1]#_g85670_| (##structure gx#syntax-quote::t 'make-top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85675_| + (define |gx[1]#_g85672_| (##structure gx#syntax-quote::t 'top-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85681_| + (define |gx[1]#_g85678_| (##structure gx#syntax-quote::t 'top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85684_| + (define |gx[1]#_g85681_| (##structure gx#syntax-quote::t 'top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85687_| + (define |gx[1]#_g85684_| (##structure gx#syntax-quote::t 'top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85693_| + (define |gx[1]#_g85690_| (##structure gx#syntax-quote::t 'top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85696_| + (define |gx[1]#_g85693_| (##structure gx#syntax-quote::t 'top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85699_| + (define |gx[1]#_g85696_| (##structure gx#syntax-quote::t 'top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85705_| + (define |gx[1]#_g85702_| (##structure gx#syntax-quote::t '&top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85708_| + (define |gx[1]#_g85705_| (##structure gx#syntax-quote::t '&top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85711_| + (define |gx[1]#_g85708_| (##structure gx#syntax-quote::t '&top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85717_| + (define |gx[1]#_g85714_| (##structure gx#syntax-quote::t '&top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85720_| + (define |gx[1]#_g85717_| (##structure gx#syntax-quote::t '&top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85723_| + (define |gx[1]#_g85720_| (##structure gx#syntax-quote::t '&top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85726_| + (define |gx[1]#_g85723_| (##structure gx#syntax-quote::t 'top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85728_| + (define |gx[1]#_g85725_| (##structure gx#syntax-quote::t 'module-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85730_| + (define |gx[1]#_g85727_| (##structure gx#syntax-quote::t 'make-module-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85732_| + (define |gx[1]#_g85729_| (##structure gx#syntax-quote::t 'module-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85739_| + (define |gx[1]#_g85736_| (##structure gx#syntax-quote::t 'module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85742_| + (define |gx[1]#_g85739_| (##structure gx#syntax-quote::t 'module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85745_| + (define |gx[1]#_g85742_| (##structure gx#syntax-quote::t 'module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85748_| + (define |gx[1]#_g85745_| (##structure gx#syntax-quote::t 'module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g85755_| + (define |gx[1]#_g85752_| (##structure gx#syntax-quote::t 'module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85758_| + (define |gx[1]#_g85755_| (##structure gx#syntax-quote::t 'module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85761_| + (define |gx[1]#_g85758_| (##structure gx#syntax-quote::t 'module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85764_| + (define |gx[1]#_g85761_| (##structure gx#syntax-quote::t 'module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85771_| + (define |gx[1]#_g85768_| (##structure gx#syntax-quote::t '&module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85774_| + (define |gx[1]#_g85771_| (##structure gx#syntax-quote::t '&module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85777_| + (define |gx[1]#_g85774_| (##structure gx#syntax-quote::t '&module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85780_| + (define |gx[1]#_g85777_| (##structure gx#syntax-quote::t '&module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g85787_| + (define |gx[1]#_g85784_| (##structure gx#syntax-quote::t '&module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85790_| + (define |gx[1]#_g85787_| (##structure gx#syntax-quote::t '&module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85793_| + (define |gx[1]#_g85790_| (##structure gx#syntax-quote::t '&module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85796_| + (define |gx[1]#_g85793_| (##structure gx#syntax-quote::t '&module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85800_| + (define |gx[1]#_g85797_| (##structure gx#syntax-quote::t 'extern-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85802_| + (define |gx[1]#_g85799_| (##structure gx#syntax-quote::t 'make-extern-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85804_| + (define |gx[1]#_g85801_| (##structure gx#syntax-quote::t 'extern-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85810_| + (define |gx[1]#_g85807_| (##structure gx#syntax-quote::t 'extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85813_| + (define |gx[1]#_g85810_| (##structure gx#syntax-quote::t 'extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85816_| + (define |gx[1]#_g85813_| (##structure gx#syntax-quote::t 'extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85822_| + (define |gx[1]#_g85819_| (##structure gx#syntax-quote::t 'extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85825_| + (define |gx[1]#_g85822_| (##structure gx#syntax-quote::t 'extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85828_| + (define |gx[1]#_g85825_| (##structure gx#syntax-quote::t 'extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85834_| + (define |gx[1]#_g85831_| (##structure gx#syntax-quote::t '&extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85837_| + (define |gx[1]#_g85834_| (##structure gx#syntax-quote::t '&extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85840_| + (define |gx[1]#_g85837_| (##structure gx#syntax-quote::t '&extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85846_| + (define |gx[1]#_g85843_| (##structure gx#syntax-quote::t '&extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85849_| + (define |gx[1]#_g85846_| (##structure gx#syntax-quote::t '&extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85852_| + (define |gx[1]#_g85849_| (##structure gx#syntax-quote::t '&extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85856_| + (define |gx[1]#_g85853_| (##structure gx#syntax-quote::t 'syntax-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85858_| + (define |gx[1]#_g85855_| (##structure gx#syntax-quote::t 'make-syntax-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85860_| + (define |gx[1]#_g85857_| (##structure gx#syntax-quote::t 'syntax-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85867_| + (define |gx[1]#_g85864_| (##structure gx#syntax-quote::t 'syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85870_| + (define |gx[1]#_g85867_| (##structure gx#syntax-quote::t 'syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85873_| + (define |gx[1]#_g85870_| (##structure gx#syntax-quote::t 'syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85876_| + (define |gx[1]#_g85873_| (##structure gx#syntax-quote::t 'syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g85883_| + (define |gx[1]#_g85880_| (##structure gx#syntax-quote::t 'syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85886_| + (define |gx[1]#_g85883_| (##structure gx#syntax-quote::t 'syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85889_| + (define |gx[1]#_g85886_| (##structure gx#syntax-quote::t 'syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85892_| + (define |gx[1]#_g85889_| (##structure gx#syntax-quote::t 'syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85899_| + (define |gx[1]#_g85896_| (##structure gx#syntax-quote::t '&syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85902_| + (define |gx[1]#_g85899_| (##structure gx#syntax-quote::t '&syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85905_| + (define |gx[1]#_g85902_| (##structure gx#syntax-quote::t '&syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85908_| + (define |gx[1]#_g85905_| (##structure gx#syntax-quote::t '&syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g85915_| + (define |gx[1]#_g85912_| (##structure gx#syntax-quote::t '&syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85918_| + (define |gx[1]#_g85915_| (##structure gx#syntax-quote::t '&syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85921_| + (define |gx[1]#_g85918_| (##structure gx#syntax-quote::t '&syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85924_| + (define |gx[1]#_g85921_| (##structure gx#syntax-quote::t '&syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85928_| + (define |gx[1]#_g85925_| (##structure gx#syntax-quote::t 'import-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85930_| + (define |gx[1]#_g85927_| (##structure gx#syntax-quote::t 'make-import-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85932_| + (define |gx[1]#_g85929_| (##structure gx#syntax-quote::t 'import-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85941_| + (define |gx[1]#_g85938_| (##structure gx#syntax-quote::t 'import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85944_| + (define |gx[1]#_g85941_| (##structure gx#syntax-quote::t 'import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85947_| + (define |gx[1]#_g85944_| (##structure gx#syntax-quote::t 'import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85950_| + (define |gx[1]#_g85947_| (##structure gx#syntax-quote::t 'import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85953_| + (define |gx[1]#_g85950_| (##structure gx#syntax-quote::t 'import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g85956_| + (define |gx[1]#_g85953_| (##structure gx#syntax-quote::t 'import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g85965_| + (define |gx[1]#_g85962_| (##structure gx#syntax-quote::t 'import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85968_| + (define |gx[1]#_g85965_| (##structure gx#syntax-quote::t 'import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85971_| + (define |gx[1]#_g85968_| (##structure gx#syntax-quote::t 'import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85974_| + (define |gx[1]#_g85971_| (##structure gx#syntax-quote::t 'import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85977_| + (define |gx[1]#_g85974_| (##structure gx#syntax-quote::t 'import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85980_| + (define |gx[1]#_g85977_| (##structure gx#syntax-quote::t 'import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85989_| + (define |gx[1]#_g85986_| (##structure gx#syntax-quote::t '&import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85992_| + (define |gx[1]#_g85989_| (##structure gx#syntax-quote::t '&import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85995_| + (define |gx[1]#_g85992_| (##structure gx#syntax-quote::t '&import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85998_| + (define |gx[1]#_g85995_| (##structure gx#syntax-quote::t '&import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86001_| + (define |gx[1]#_g85998_| (##structure gx#syntax-quote::t '&import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86004_| + (define |gx[1]#_g86001_| (##structure gx#syntax-quote::t '&import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86013_| + (define |gx[1]#_g86010_| (##structure gx#syntax-quote::t '&import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86016_| + (define |gx[1]#_g86013_| (##structure gx#syntax-quote::t '&import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86019_| + (define |gx[1]#_g86016_| (##structure gx#syntax-quote::t '&import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86022_| + (define |gx[1]#_g86019_| (##structure gx#syntax-quote::t '&import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86025_| + (define |gx[1]#_g86022_| (##structure gx#syntax-quote::t '&import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86028_| + (define |gx[1]#_g86025_| (##structure gx#syntax-quote::t '&import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86032_| + (define |gx[1]#_g86029_| (##structure gx#syntax-quote::t 'alias-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86034_| + (define |gx[1]#_g86031_| (##structure gx#syntax-quote::t 'make-alias-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g86036_| + (define |gx[1]#_g86033_| (##structure gx#syntax-quote::t 'alias-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86043_| + (define |gx[1]#_g86040_| (##structure gx#syntax-quote::t 'alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86046_| + (define |gx[1]#_g86043_| (##structure gx#syntax-quote::t 'alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g86049_| + (define |gx[1]#_g86046_| (##structure gx#syntax-quote::t 'alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86052_| + (define |gx[1]#_g86049_| (##structure gx#syntax-quote::t 'alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86059_| + (define |gx[1]#_g86056_| (##structure gx#syntax-quote::t 'alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86062_| + (define |gx[1]#_g86059_| (##structure gx#syntax-quote::t 'alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86065_| + (define |gx[1]#_g86062_| (##structure gx#syntax-quote::t 'alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86068_| + (define |gx[1]#_g86065_| (##structure gx#syntax-quote::t 'alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86075_| + (define |gx[1]#_g86072_| (##structure gx#syntax-quote::t '&alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86078_| + (define |gx[1]#_g86075_| (##structure gx#syntax-quote::t '&alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g86081_| + (define |gx[1]#_g86078_| (##structure gx#syntax-quote::t '&alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86084_| + (define |gx[1]#_g86081_| (##structure gx#syntax-quote::t '&alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86091_| + (define |gx[1]#_g86088_| (##structure gx#syntax-quote::t '&alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86094_| + (define |gx[1]#_g86091_| (##structure gx#syntax-quote::t '&alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86097_| + (define |gx[1]#_g86094_| (##structure gx#syntax-quote::t '&alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86100_| + (define |gx[1]#_g86097_| (##structure gx#syntax-quote::t '&alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86102_| + (define |gx[1]#_g86099_| (##structure gx#syntax-quote::t 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86104_| + (define |gx[1]#_g86101_| (##structure gx#syntax-quote::t 'make-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86106_| + (define |gx[1]#_g86103_| (##structure gx#syntax-quote::t 'expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86110_| + (define |gx[1]#_g86107_| (##structure gx#syntax-quote::t 'expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86114_| + (define |gx[1]#_g86111_| (##structure gx#syntax-quote::t 'expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86118_| + (define |gx[1]#_g86115_| (##structure gx#syntax-quote::t '&expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86122_| + (define |gx[1]#_g86119_| (##structure gx#syntax-quote::t '&expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86125_| + (define |gx[1]#_g86122_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86127_| + (define |gx[1]#_g86124_| (##structure gx#syntax-quote::t 'core-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86129_| + (define |gx[1]#_g86126_| (##structure gx#syntax-quote::t 'make-core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86131_| + (define |gx[1]#_g86128_| (##structure gx#syntax-quote::t 'core-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86137_| + (define |gx[1]#_g86134_| (##structure gx#syntax-quote::t 'core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86140_| + (define |gx[1]#_g86137_| (##structure gx#syntax-quote::t 'core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86143_| + (define |gx[1]#_g86140_| (##structure gx#syntax-quote::t 'core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86149_| + (define |gx[1]#_g86146_| (##structure gx#syntax-quote::t 'core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86152_| + (define |gx[1]#_g86149_| (##structure gx#syntax-quote::t 'core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86155_| + (define |gx[1]#_g86152_| (##structure gx#syntax-quote::t 'core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86161_| + (define |gx[1]#_g86158_| (##structure gx#syntax-quote::t '&core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86164_| + (define |gx[1]#_g86161_| (##structure gx#syntax-quote::t '&core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86167_| + (define |gx[1]#_g86164_| (##structure gx#syntax-quote::t '&core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86173_| + (define |gx[1]#_g86170_| (##structure gx#syntax-quote::t '&core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86176_| + (define |gx[1]#_g86173_| (##structure gx#syntax-quote::t '&core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86179_| + (define |gx[1]#_g86176_| (##structure gx#syntax-quote::t '&core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86182_| + (define |gx[1]#_g86179_| (##structure gx#syntax-quote::t 'core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86184_| + (define |gx[1]#_g86181_| (##structure gx#syntax-quote::t 'expression-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86186_| + (define |gx[1]#_g86183_| (##structure gx#syntax-quote::t 'make-expression-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g86188_| + (define |gx[1]#_g86185_| (##structure gx#syntax-quote::t 'expression-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86194_| + (define |gx[1]#_g86191_| (##structure gx#syntax-quote::t 'expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86197_| + (define |gx[1]#_g86194_| (##structure gx#syntax-quote::t 'expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86200_| + (define |gx[1]#_g86197_| (##structure gx#syntax-quote::t 'expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86206_| + (define |gx[1]#_g86203_| (##structure gx#syntax-quote::t 'expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86209_| + (define |gx[1]#_g86206_| (##structure gx#syntax-quote::t 'expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86212_| + (define |gx[1]#_g86209_| (##structure gx#syntax-quote::t 'expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86218_| + (define |gx[1]#_g86215_| (##structure gx#syntax-quote::t '&expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86221_| + (define |gx[1]#_g86218_| (##structure gx#syntax-quote::t '&expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86224_| + (define |gx[1]#_g86221_| (##structure gx#syntax-quote::t '&expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86230_| + (define |gx[1]#_g86227_| (##structure gx#syntax-quote::t '&expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86233_| + (define |gx[1]#_g86230_| (##structure gx#syntax-quote::t '&expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86236_| + (define |gx[1]#_g86233_| (##structure gx#syntax-quote::t '&expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86240_| + (define |gx[1]#_g86237_| (##structure gx#syntax-quote::t 'special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86242_| + (define |gx[1]#_g86239_| (##structure gx#syntax-quote::t 'make-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g86244_| + (define |gx[1]#_g86241_| (##structure gx#syntax-quote::t 'special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86250_| + (define |gx[1]#_g86247_| (##structure gx#syntax-quote::t 'special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86253_| + (define |gx[1]#_g86250_| (##structure gx#syntax-quote::t 'special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86256_| + (define |gx[1]#_g86253_| (##structure gx#syntax-quote::t 'special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86262_| + (define |gx[1]#_g86259_| (##structure gx#syntax-quote::t 'special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86265_| + (define |gx[1]#_g86262_| (##structure gx#syntax-quote::t 'special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86268_| + (define |gx[1]#_g86265_| (##structure gx#syntax-quote::t 'special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86274_| + (define |gx[1]#_g86271_| (##structure gx#syntax-quote::t '&special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86277_| + (define |gx[1]#_g86274_| (##structure gx#syntax-quote::t '&special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86280_| + (define |gx[1]#_g86277_| (##structure gx#syntax-quote::t '&special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86286_| + (define |gx[1]#_g86283_| (##structure gx#syntax-quote::t '&special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86289_| + (define |gx[1]#_g86286_| (##structure gx#syntax-quote::t '&special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86292_| + (define |gx[1]#_g86289_| (##structure gx#syntax-quote::t '&special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86295_| + (define |gx[1]#_g86292_| (##structure gx#syntax-quote::t 'special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g86297_| + (define |gx[1]#_g86294_| (##structure gx#syntax-quote::t 'definition-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86299_| + (define |gx[1]#_g86296_| (##structure gx#syntax-quote::t 'make-definition-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g86301_| + (define |gx[1]#_g86298_| (##structure gx#syntax-quote::t 'definition-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86307_| + (define |gx[1]#_g86304_| (##structure gx#syntax-quote::t 'definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86310_| + (define |gx[1]#_g86307_| (##structure gx#syntax-quote::t 'definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86313_| + (define |gx[1]#_g86310_| (##structure gx#syntax-quote::t 'definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86319_| + (define |gx[1]#_g86316_| (##structure gx#syntax-quote::t 'definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86322_| + (define |gx[1]#_g86319_| (##structure gx#syntax-quote::t 'definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86325_| + (define |gx[1]#_g86322_| (##structure gx#syntax-quote::t 'definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86331_| + (define |gx[1]#_g86328_| (##structure gx#syntax-quote::t '&definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86334_| + (define |gx[1]#_g86331_| (##structure gx#syntax-quote::t '&definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86337_| + (define |gx[1]#_g86334_| (##structure gx#syntax-quote::t '&definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86343_| + (define |gx[1]#_g86340_| (##structure gx#syntax-quote::t '&definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86346_| + (define |gx[1]#_g86343_| (##structure gx#syntax-quote::t '&definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86349_| + (define |gx[1]#_g86346_| (##structure gx#syntax-quote::t '&definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86353_| + (define |gx[1]#_g86350_| (##structure gx#syntax-quote::t 'top-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86355_| + (define |gx[1]#_g86352_| (##structure gx#syntax-quote::t 'make-top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g86357_| + (define |gx[1]#_g86354_| (##structure gx#syntax-quote::t 'top-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86363_| + (define |gx[1]#_g86360_| (##structure gx#syntax-quote::t 'top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86366_| + (define |gx[1]#_g86363_| (##structure gx#syntax-quote::t 'top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86369_| + (define |gx[1]#_g86366_| (##structure gx#syntax-quote::t 'top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86375_| + (define |gx[1]#_g86372_| (##structure gx#syntax-quote::t 'top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86378_| + (define |gx[1]#_g86375_| (##structure gx#syntax-quote::t 'top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86381_| + (define |gx[1]#_g86378_| (##structure gx#syntax-quote::t 'top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86387_| + (define |gx[1]#_g86384_| (##structure gx#syntax-quote::t '&top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86390_| + (define |gx[1]#_g86387_| (##structure gx#syntax-quote::t '&top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86393_| + (define |gx[1]#_g86390_| (##structure gx#syntax-quote::t '&top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86399_| + (define |gx[1]#_g86396_| (##structure gx#syntax-quote::t '&top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86402_| + (define |gx[1]#_g86399_| (##structure gx#syntax-quote::t '&top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86405_| + (define |gx[1]#_g86402_| (##structure gx#syntax-quote::t '&top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86408_| + (define |gx[1]#_g86405_| (##structure gx#syntax-quote::t 'top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g86410_| + (define |gx[1]#_g86407_| (##structure gx#syntax-quote::t 'module-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86412_| + (define |gx[1]#_g86409_| (##structure gx#syntax-quote::t 'make-module-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g86414_| + (define |gx[1]#_g86411_| (##structure gx#syntax-quote::t 'module-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86420_| + (define |gx[1]#_g86417_| (##structure gx#syntax-quote::t 'module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86423_| + (define |gx[1]#_g86420_| (##structure gx#syntax-quote::t 'module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86426_| + (define |gx[1]#_g86423_| (##structure gx#syntax-quote::t 'module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86432_| + (define |gx[1]#_g86429_| (##structure gx#syntax-quote::t 'module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86435_| + (define |gx[1]#_g86432_| (##structure gx#syntax-quote::t 'module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86438_| + (define |gx[1]#_g86435_| (##structure gx#syntax-quote::t 'module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86444_| + (define |gx[1]#_g86441_| (##structure gx#syntax-quote::t '&module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86447_| + (define |gx[1]#_g86444_| (##structure gx#syntax-quote::t '&module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86450_| + (define |gx[1]#_g86447_| (##structure gx#syntax-quote::t '&module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86456_| + (define |gx[1]#_g86453_| (##structure gx#syntax-quote::t '&module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86459_| + (define |gx[1]#_g86456_| (##structure gx#syntax-quote::t '&module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86462_| + (define |gx[1]#_g86459_| (##structure gx#syntax-quote::t '&module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86466_| + (define |gx[1]#_g86463_| (##structure gx#syntax-quote::t 'feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86468_| + (define |gx[1]#_g86465_| (##structure gx#syntax-quote::t 'make-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86470_| + (define |gx[1]#_g86467_| (##structure gx#syntax-quote::t 'feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86474_| + (define |gx[1]#_g86471_| (##structure gx#syntax-quote::t 'feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86478_| + (define |gx[1]#_g86475_| (##structure gx#syntax-quote::t 'feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86482_| + (define |gx[1]#_g86479_| (##structure gx#syntax-quote::t '&feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86486_| + (define |gx[1]#_g86483_| (##structure gx#syntax-quote::t '&feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86489_| + (define |gx[1]#_g86486_| (##structure gx#syntax-quote::t 'feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86491_| + (define |gx[1]#_g86488_| (##structure gx#syntax-quote::t 'private-feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86493_| + (define |gx[1]#_g86490_| (##structure gx#syntax-quote::t 'make-private-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86495_| + (define |gx[1]#_g86492_| (##structure gx#syntax-quote::t 'private-feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86499_| + (define |gx[1]#_g86496_| (##structure gx#syntax-quote::t 'private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86503_| + (define |gx[1]#_g86500_| (##structure gx#syntax-quote::t 'private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86507_| + (define |gx[1]#_g86504_| (##structure gx#syntax-quote::t '&private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86511_| + (define |gx[1]#_g86508_| (##structure gx#syntax-quote::t '&private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86515_| + (define |gx[1]#_g86512_| (##structure gx#syntax-quote::t 'reserved-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86517_| + (define |gx[1]#_g86514_| (##structure gx#syntax-quote::t 'make-reserved-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86519_| + (define |gx[1]#_g86516_| (##structure gx#syntax-quote::t 'reserved-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86523_| + (define |gx[1]#_g86520_| (##structure gx#syntax-quote::t 'reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86527_| + (define |gx[1]#_g86524_| (##structure gx#syntax-quote::t 'reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86531_| + (define |gx[1]#_g86528_| (##structure gx#syntax-quote::t '&reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86535_| + (define |gx[1]#_g86532_| (##structure gx#syntax-quote::t '&reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86539_| + (define |gx[1]#_g86536_| (##structure gx#syntax-quote::t 'macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86541_| + (define |gx[1]#_g86538_| (##structure gx#syntax-quote::t 'make-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86543_| + (define |gx[1]#_g86540_| (##structure gx#syntax-quote::t 'macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86547_| + (define |gx[1]#_g86544_| (##structure gx#syntax-quote::t 'macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86551_| + (define |gx[1]#_g86548_| (##structure gx#syntax-quote::t 'macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86555_| + (define |gx[1]#_g86552_| (##structure gx#syntax-quote::t '¯o-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86559_| + (define |gx[1]#_g86556_| (##structure gx#syntax-quote::t '¯o-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86562_| + (define |gx[1]#_g86559_| (##structure gx#syntax-quote::t 'macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86564_| + (define |gx[1]#_g86561_| (##structure gx#syntax-quote::t 'rename-macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86566_| + (define |gx[1]#_g86563_| (##structure gx#syntax-quote::t 'make-rename-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86568_| + (define |gx[1]#_g86565_| (##structure gx#syntax-quote::t 'rename-macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86572_| + (define |gx[1]#_g86569_| (##structure gx#syntax-quote::t 'rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86576_| + (define |gx[1]#_g86573_| (##structure gx#syntax-quote::t 'rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86580_| + (define |gx[1]#_g86577_| (##structure gx#syntax-quote::t '&rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86584_| + (define |gx[1]#_g86581_| (##structure gx#syntax-quote::t '&rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86588_| + (define |gx[1]#_g86585_| (##structure gx#syntax-quote::t 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86590_| + (define |gx[1]#_g86587_| (##structure gx#syntax-quote::t 'make-user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86592_| + (define |gx[1]#_g86589_| (##structure gx#syntax-quote::t 'user-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86598_| + (define |gx[1]#_g86595_| (##structure gx#syntax-quote::t 'user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86601_| + (define |gx[1]#_g86598_| (##structure gx#syntax-quote::t 'user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86604_| + (define |gx[1]#_g86601_| (##structure gx#syntax-quote::t 'user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86610_| + (define |gx[1]#_g86607_| (##structure gx#syntax-quote::t 'user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86613_| + (define |gx[1]#_g86610_| (##structure gx#syntax-quote::t 'user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86616_| + (define |gx[1]#_g86613_| (##structure gx#syntax-quote::t 'user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86622_| + (define |gx[1]#_g86619_| (##structure gx#syntax-quote::t '&user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86625_| + (define |gx[1]#_g86622_| (##structure gx#syntax-quote::t '&user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86628_| + (define |gx[1]#_g86625_| (##structure gx#syntax-quote::t '&user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86634_| + (define |gx[1]#_g86631_| (##structure gx#syntax-quote::t '&user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86637_| + (define |gx[1]#_g86634_| (##structure gx#syntax-quote::t '&user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86640_| + (define |gx[1]#_g86637_| (##structure gx#syntax-quote::t '&user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86642_| + (define |gx[1]#_g86639_| (##structure gx#syntax-quote::t 'expander-mark::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86644_| + (define |gx[1]#_g86641_| (##structure gx#syntax-quote::t 'make-expander-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g86646_| + (define |gx[1]#_g86643_| (##structure gx#syntax-quote::t 'expander-mark? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86653_| + (define |gx[1]#_g86650_| (##structure gx#syntax-quote::t 'expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g86656_| + (define |gx[1]#_g86653_| (##structure gx#syntax-quote::t 'expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86659_| + (define |gx[1]#_g86656_| (##structure gx#syntax-quote::t 'expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86662_| + (define |gx[1]#_g86659_| (##structure gx#syntax-quote::t 'expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g86669_| + (define |gx[1]#_g86666_| (##structure gx#syntax-quote::t 'expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86672_| + (define |gx[1]#_g86669_| (##structure gx#syntax-quote::t 'expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86675_| + (define |gx[1]#_g86672_| (##structure gx#syntax-quote::t 'expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86678_| + (define |gx[1]#_g86675_| (##structure gx#syntax-quote::t 'expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86685_| + (define |gx[1]#_g86682_| (##structure gx#syntax-quote::t '&expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g86688_| + (define |gx[1]#_g86685_| (##structure gx#syntax-quote::t '&expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86691_| + (define |gx[1]#_g86688_| (##structure gx#syntax-quote::t '&expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86694_| + (define |gx[1]#_g86691_| (##structure gx#syntax-quote::t '&expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g86701_| + (define |gx[1]#_g86698_| (##structure gx#syntax-quote::t '&expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86704_| + (define |gx[1]#_g86701_| (##structure gx#syntax-quote::t '&expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86707_| + (define |gx[1]#_g86704_| (##structure gx#syntax-quote::t '&expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86710_| + (define |gx[1]#_g86707_| (##structure gx#syntax-quote::t '&expander-mark-subst-set! @@ -3572,7 +3572,7 @@ '())) (begin (define |gx[:0:]#expander-context| - (let ((__obj84753 + (let ((__obj84750 (let () (declare (not safe)) (##structure @@ -3595,7 +3595,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84753 + __obj84750 '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! - __obj84753 + __obj84750 'expander-context '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3611,7 +3611,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84753 + __obj84750 '(id table) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3619,7 +3619,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84753 + __obj84750 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3627,7 +3627,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84753 + __obj84750 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3635,7 +3635,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84753 + __obj84750 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3643,7 +3643,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84753 + __obj84750 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3651,122 +3651,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84753 + __obj84750 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84835 |gx[1]#_g84836_|)) + (let ((__tmp84832 |gx[1]#_g84833_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84753 - __tmp84835 + __obj84750 + __tmp84832 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84837 |gx[1]#_g84838_|)) + (let ((__tmp84834 |gx[1]#_g84835_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84753 - __tmp84837 + __obj84750 + __tmp84834 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84839 |gx[1]#_g84840_|)) + (let ((__tmp84836 |gx[1]#_g84837_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84753 - __tmp84839 + __obj84750 + __tmp84836 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84841 - (let ((__tmp84846 - (let ((__tmp84847 |gx[1]#_g84848_|)) + (let ((__tmp84838 + (let ((__tmp84843 + (let ((__tmp84844 |gx[1]#_g84845_|)) (declare (not safe)) - (cons 'id __tmp84847))) - (__tmp84842 - (let ((__tmp84843 - (let ((__tmp84844 |gx[1]#_g84845_|)) + (cons 'id __tmp84844))) + (__tmp84839 + (let ((__tmp84840 + (let ((__tmp84841 |gx[1]#_g84842_|)) (declare (not safe)) - (cons 'table __tmp84844)))) + (cons 'table __tmp84841)))) (declare (not safe)) - (cons __tmp84843 '())))) + (cons __tmp84840 '())))) (declare (not safe)) - (cons __tmp84846 __tmp84842)))) + (cons __tmp84843 __tmp84839)))) (declare (not safe)) (##unchecked-structure-set! - __obj84753 - __tmp84841 + __obj84750 + __tmp84838 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84849 - (let ((__tmp84854 - (let ((__tmp84855 |gx[1]#_g84856_|)) + (let ((__tmp84846 + (let ((__tmp84851 + (let ((__tmp84852 |gx[1]#_g84853_|)) (declare (not safe)) - (cons 'id __tmp84855))) - (__tmp84850 - (let ((__tmp84851 - (let ((__tmp84852 |gx[1]#_g84853_|)) + (cons 'id __tmp84852))) + (__tmp84847 + (let ((__tmp84848 + (let ((__tmp84849 |gx[1]#_g84850_|)) (declare (not safe)) - (cons 'table __tmp84852)))) + (cons 'table __tmp84849)))) (declare (not safe)) - (cons __tmp84851 '())))) + (cons __tmp84848 '())))) (declare (not safe)) - (cons __tmp84854 __tmp84850)))) + (cons __tmp84851 __tmp84847)))) (declare (not safe)) (##unchecked-structure-set! - __obj84753 - __tmp84849 + __obj84750 + __tmp84846 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84857 - (let ((__tmp84862 - (let ((__tmp84863 |gx[1]#_g84864_|)) + (let ((__tmp84854 + (let ((__tmp84859 + (let ((__tmp84860 |gx[1]#_g84861_|)) (declare (not safe)) - (cons 'id __tmp84863))) - (__tmp84858 - (let ((__tmp84859 - (let ((__tmp84860 |gx[1]#_g84861_|)) + (cons 'id __tmp84860))) + (__tmp84855 + (let ((__tmp84856 + (let ((__tmp84857 |gx[1]#_g84858_|)) (declare (not safe)) - (cons 'table __tmp84860)))) + (cons 'table __tmp84857)))) (declare (not safe)) - (cons __tmp84859 '())))) + (cons __tmp84856 '())))) (declare (not safe)) - (cons __tmp84862 __tmp84858)))) + (cons __tmp84859 __tmp84855)))) (declare (not safe)) (##unchecked-structure-set! - __obj84753 - __tmp84857 + __obj84750 + __tmp84854 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84865 - (let ((__tmp84870 - (let ((__tmp84871 |gx[1]#_g84872_|)) + (let ((__tmp84862 + (let ((__tmp84867 + (let ((__tmp84868 |gx[1]#_g84869_|)) (declare (not safe)) - (cons 'id __tmp84871))) - (__tmp84866 - (let ((__tmp84867 - (let ((__tmp84868 |gx[1]#_g84869_|)) + (cons 'id __tmp84868))) + (__tmp84863 + (let ((__tmp84864 + (let ((__tmp84865 |gx[1]#_g84866_|)) (declare (not safe)) - (cons 'table __tmp84868)))) + (cons 'table __tmp84865)))) (declare (not safe)) - (cons __tmp84867 '())))) + (cons __tmp84864 '())))) (declare (not safe)) - (cons __tmp84870 __tmp84866)))) + (cons __tmp84867 __tmp84863)))) (declare (not safe)) (##unchecked-structure-set! - __obj84753 - __tmp84865 + __obj84750 + __tmp84862 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84753)) + __obj84750)) (define |gx[:0:]#root-context| - (let ((__obj84754 + (let ((__obj84751 (let () (declare (not safe)) (##structure @@ -3789,7 +3789,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84754 + __obj84751 '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! - __obj84754 + __obj84751 'root-context '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3805,26 +3805,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84754 + __obj84751 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84873 - (let ((__tmp84874 |gx[1]#_g84875_|)) + (let ((__tmp84870 + (let ((__tmp84871 |gx[1]#_g84872_|)) (declare (not safe)) - (cons __tmp84874 '())))) + (cons __tmp84871 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84754 - __tmp84873 + __obj84751 + __tmp84870 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84754 + __obj84751 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3832,7 +3832,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84754 + __obj84751 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3840,7 +3840,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84754 + __obj84751 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3848,122 +3848,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84754 + __obj84751 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84876 |gx[1]#_g84877_|)) + (let ((__tmp84873 |gx[1]#_g84874_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84754 - __tmp84876 + __obj84751 + __tmp84873 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84878 |gx[1]#_g84879_|)) + (let ((__tmp84875 |gx[1]#_g84876_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84754 - __tmp84878 + __obj84751 + __tmp84875 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84880 |gx[1]#_g84881_|)) + (let ((__tmp84877 |gx[1]#_g84878_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84754 - __tmp84880 + __obj84751 + __tmp84877 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84882 - (let ((__tmp84887 - (let ((__tmp84888 |gx[1]#_g84889_|)) + (let ((__tmp84879 + (let ((__tmp84884 + (let ((__tmp84885 |gx[1]#_g84886_|)) (declare (not safe)) - (cons 'id __tmp84888))) - (__tmp84883 - (let ((__tmp84884 - (let ((__tmp84885 |gx[1]#_g84886_|)) + (cons 'id __tmp84885))) + (__tmp84880 + (let ((__tmp84881 + (let ((__tmp84882 |gx[1]#_g84883_|)) (declare (not safe)) - (cons 'table __tmp84885)))) + (cons 'table __tmp84882)))) (declare (not safe)) - (cons __tmp84884 '())))) + (cons __tmp84881 '())))) (declare (not safe)) - (cons __tmp84887 __tmp84883)))) + (cons __tmp84884 __tmp84880)))) (declare (not safe)) (##unchecked-structure-set! - __obj84754 - __tmp84882 + __obj84751 + __tmp84879 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84890 - (let ((__tmp84895 - (let ((__tmp84896 |gx[1]#_g84897_|)) + (let ((__tmp84887 + (let ((__tmp84892 + (let ((__tmp84893 |gx[1]#_g84894_|)) (declare (not safe)) - (cons 'id __tmp84896))) - (__tmp84891 - (let ((__tmp84892 - (let ((__tmp84893 |gx[1]#_g84894_|)) + (cons 'id __tmp84893))) + (__tmp84888 + (let ((__tmp84889 + (let ((__tmp84890 |gx[1]#_g84891_|)) (declare (not safe)) - (cons 'table __tmp84893)))) + (cons 'table __tmp84890)))) (declare (not safe)) - (cons __tmp84892 '())))) + (cons __tmp84889 '())))) (declare (not safe)) - (cons __tmp84895 __tmp84891)))) + (cons __tmp84892 __tmp84888)))) (declare (not safe)) (##unchecked-structure-set! - __obj84754 - __tmp84890 + __obj84751 + __tmp84887 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84898 - (let ((__tmp84903 - (let ((__tmp84904 |gx[1]#_g84905_|)) + (let ((__tmp84895 + (let ((__tmp84900 + (let ((__tmp84901 |gx[1]#_g84902_|)) (declare (not safe)) - (cons 'id __tmp84904))) - (__tmp84899 - (let ((__tmp84900 - (let ((__tmp84901 |gx[1]#_g84902_|)) + (cons 'id __tmp84901))) + (__tmp84896 + (let ((__tmp84897 + (let ((__tmp84898 |gx[1]#_g84899_|)) (declare (not safe)) - (cons 'table __tmp84901)))) + (cons 'table __tmp84898)))) (declare (not safe)) - (cons __tmp84900 '())))) + (cons __tmp84897 '())))) (declare (not safe)) - (cons __tmp84903 __tmp84899)))) + (cons __tmp84900 __tmp84896)))) (declare (not safe)) (##unchecked-structure-set! - __obj84754 - __tmp84898 + __obj84751 + __tmp84895 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84906 - (let ((__tmp84911 - (let ((__tmp84912 |gx[1]#_g84913_|)) + (let ((__tmp84903 + (let ((__tmp84908 + (let ((__tmp84909 |gx[1]#_g84910_|)) (declare (not safe)) - (cons 'id __tmp84912))) - (__tmp84907 - (let ((__tmp84908 - (let ((__tmp84909 |gx[1]#_g84910_|)) + (cons 'id __tmp84909))) + (__tmp84904 + (let ((__tmp84905 + (let ((__tmp84906 |gx[1]#_g84907_|)) (declare (not safe)) - (cons 'table __tmp84909)))) + (cons 'table __tmp84906)))) (declare (not safe)) - (cons __tmp84908 '())))) + (cons __tmp84905 '())))) (declare (not safe)) - (cons __tmp84911 __tmp84907)))) + (cons __tmp84908 __tmp84904)))) (declare (not safe)) (##unchecked-structure-set! - __obj84754 - __tmp84906 + __obj84751 + __tmp84903 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84754)) + __obj84751)) (define |gx[:0:]#phi-context| - (let ((__obj84755 + (let ((__obj84752 (let () (declare (not safe)) (##structure @@ -3986,7 +3986,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84755 + __obj84752 '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! - __obj84755 + __obj84752 'phi-context '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4002,26 +4002,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84755 + __obj84752 '(super up down) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84914 - (let ((__tmp84915 |gx[1]#_g84875_|)) + (let ((__tmp84911 + (let ((__tmp84912 |gx[1]#_g84872_|)) (declare (not safe)) - (cons __tmp84915 '())))) + (cons __tmp84912 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84755 - __tmp84914 + __obj84752 + __tmp84911 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84755 + __obj84752 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4029,7 +4029,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84755 + __obj84752 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4037,7 +4037,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84755 + __obj84752 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4045,210 +4045,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84755 + __obj84752 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84916 |gx[1]#_g84917_|)) + (let ((__tmp84913 |gx[1]#_g84914_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84755 - __tmp84916 + __obj84752 + __tmp84913 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84918 |gx[1]#_g84919_|)) + (let ((__tmp84915 |gx[1]#_g84916_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84755 - __tmp84918 + __obj84752 + __tmp84915 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84920 |gx[1]#_g84921_|)) + (let ((__tmp84917 |gx[1]#_g84918_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84755 - __tmp84920 + __obj84752 + __tmp84917 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84922 - (let ((__tmp84939 - (let ((__tmp84940 |gx[1]#_g84941_|)) + (let ((__tmp84919 + (let ((__tmp84936 + (let ((__tmp84937 |gx[1]#_g84938_|)) (declare (not safe)) - (cons 'super __tmp84940))) - (__tmp84923 - (let ((__tmp84936 - (let ((__tmp84937 |gx[1]#_g84938_|)) + (cons 'super __tmp84937))) + (__tmp84920 + (let ((__tmp84933 + (let ((__tmp84934 |gx[1]#_g84935_|)) (declare (not safe)) - (cons 'up __tmp84937))) - (__tmp84924 - (let ((__tmp84933 - (let ((__tmp84934 |gx[1]#_g84935_|)) + (cons 'up __tmp84934))) + (__tmp84921 + (let ((__tmp84930 + (let ((__tmp84931 |gx[1]#_g84932_|)) (declare (not safe)) - (cons 'down __tmp84934))) - (__tmp84925 - (let ((__tmp84930 - (let ((__tmp84931 |gx[1]#_g84932_|)) + (cons 'down __tmp84931))) + (__tmp84922 + (let ((__tmp84927 + (let ((__tmp84928 |gx[1]#_g84929_|)) (declare (not safe)) - (cons 'id __tmp84931))) - (__tmp84926 - (let ((__tmp84927 - (let ((__tmp84928 - |gx[1]#_g84929_|)) + (cons 'id __tmp84928))) + (__tmp84923 + (let ((__tmp84924 + (let ((__tmp84925 + |gx[1]#_g84926_|)) (declare (not safe)) - (cons 'table __tmp84928)))) + (cons 'table __tmp84925)))) (declare (not safe)) - (cons __tmp84927 '())))) + (cons __tmp84924 '())))) (declare (not safe)) - (cons __tmp84930 __tmp84926)))) + (cons __tmp84927 __tmp84923)))) (declare (not safe)) - (cons __tmp84933 __tmp84925)))) + (cons __tmp84930 __tmp84922)))) (declare (not safe)) - (cons __tmp84936 __tmp84924)))) + (cons __tmp84933 __tmp84921)))) (declare (not safe)) - (cons __tmp84939 __tmp84923)))) + (cons __tmp84936 __tmp84920)))) (declare (not safe)) (##unchecked-structure-set! - __obj84755 - __tmp84922 + __obj84752 + __tmp84919 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84942 - (let ((__tmp84959 - (let ((__tmp84960 |gx[1]#_g84961_|)) + (let ((__tmp84939 + (let ((__tmp84956 + (let ((__tmp84957 |gx[1]#_g84958_|)) (declare (not safe)) - (cons 'super __tmp84960))) - (__tmp84943 - (let ((__tmp84956 - (let ((__tmp84957 |gx[1]#_g84958_|)) + (cons 'super __tmp84957))) + (__tmp84940 + (let ((__tmp84953 + (let ((__tmp84954 |gx[1]#_g84955_|)) (declare (not safe)) - (cons 'up __tmp84957))) - (__tmp84944 - (let ((__tmp84953 - (let ((__tmp84954 |gx[1]#_g84955_|)) + (cons 'up __tmp84954))) + (__tmp84941 + (let ((__tmp84950 + (let ((__tmp84951 |gx[1]#_g84952_|)) (declare (not safe)) - (cons 'down __tmp84954))) - (__tmp84945 - (let ((__tmp84950 - (let ((__tmp84951 |gx[1]#_g84952_|)) + (cons 'down __tmp84951))) + (__tmp84942 + (let ((__tmp84947 + (let ((__tmp84948 |gx[1]#_g84949_|)) (declare (not safe)) - (cons 'id __tmp84951))) - (__tmp84946 - (let ((__tmp84947 - (let ((__tmp84948 - |gx[1]#_g84949_|)) + (cons 'id __tmp84948))) + (__tmp84943 + (let ((__tmp84944 + (let ((__tmp84945 + |gx[1]#_g84946_|)) (declare (not safe)) - (cons 'table __tmp84948)))) + (cons 'table __tmp84945)))) (declare (not safe)) - (cons __tmp84947 '())))) + (cons __tmp84944 '())))) (declare (not safe)) - (cons __tmp84950 __tmp84946)))) + (cons __tmp84947 __tmp84943)))) (declare (not safe)) - (cons __tmp84953 __tmp84945)))) + (cons __tmp84950 __tmp84942)))) (declare (not safe)) - (cons __tmp84956 __tmp84944)))) + (cons __tmp84953 __tmp84941)))) (declare (not safe)) - (cons __tmp84959 __tmp84943)))) + (cons __tmp84956 __tmp84940)))) (declare (not safe)) (##unchecked-structure-set! - __obj84755 - __tmp84942 + __obj84752 + __tmp84939 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84962 - (let ((__tmp84979 - (let ((__tmp84980 |gx[1]#_g84981_|)) + (let ((__tmp84959 + (let ((__tmp84976 + (let ((__tmp84977 |gx[1]#_g84978_|)) (declare (not safe)) - (cons 'super __tmp84980))) - (__tmp84963 - (let ((__tmp84976 - (let ((__tmp84977 |gx[1]#_g84978_|)) + (cons 'super __tmp84977))) + (__tmp84960 + (let ((__tmp84973 + (let ((__tmp84974 |gx[1]#_g84975_|)) (declare (not safe)) - (cons 'up __tmp84977))) - (__tmp84964 - (let ((__tmp84973 - (let ((__tmp84974 |gx[1]#_g84975_|)) + (cons 'up __tmp84974))) + (__tmp84961 + (let ((__tmp84970 + (let ((__tmp84971 |gx[1]#_g84972_|)) (declare (not safe)) - (cons 'down __tmp84974))) - (__tmp84965 - (let ((__tmp84970 - (let ((__tmp84971 |gx[1]#_g84972_|)) + (cons 'down __tmp84971))) + (__tmp84962 + (let ((__tmp84967 + (let ((__tmp84968 |gx[1]#_g84969_|)) (declare (not safe)) - (cons 'id __tmp84971))) - (__tmp84966 - (let ((__tmp84967 - (let ((__tmp84968 - |gx[1]#_g84969_|)) + (cons 'id __tmp84968))) + (__tmp84963 + (let ((__tmp84964 + (let ((__tmp84965 + |gx[1]#_g84966_|)) (declare (not safe)) - (cons 'table __tmp84968)))) + (cons 'table __tmp84965)))) (declare (not safe)) - (cons __tmp84967 '())))) + (cons __tmp84964 '())))) (declare (not safe)) - (cons __tmp84970 __tmp84966)))) + (cons __tmp84967 __tmp84963)))) (declare (not safe)) - (cons __tmp84973 __tmp84965)))) + (cons __tmp84970 __tmp84962)))) (declare (not safe)) - (cons __tmp84976 __tmp84964)))) + (cons __tmp84973 __tmp84961)))) (declare (not safe)) - (cons __tmp84979 __tmp84963)))) + (cons __tmp84976 __tmp84960)))) (declare (not safe)) (##unchecked-structure-set! - __obj84755 - __tmp84962 + __obj84752 + __tmp84959 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84982 - (let ((__tmp84999 - (let ((__tmp85000 |gx[1]#_g85001_|)) + (let ((__tmp84979 + (let ((__tmp84996 + (let ((__tmp84997 |gx[1]#_g84998_|)) (declare (not safe)) - (cons 'super __tmp85000))) - (__tmp84983 - (let ((__tmp84996 - (let ((__tmp84997 |gx[1]#_g84998_|)) + (cons 'super __tmp84997))) + (__tmp84980 + (let ((__tmp84993 + (let ((__tmp84994 |gx[1]#_g84995_|)) (declare (not safe)) - (cons 'up __tmp84997))) - (__tmp84984 - (let ((__tmp84993 - (let ((__tmp84994 |gx[1]#_g84995_|)) + (cons 'up __tmp84994))) + (__tmp84981 + (let ((__tmp84990 + (let ((__tmp84991 |gx[1]#_g84992_|)) (declare (not safe)) - (cons 'down __tmp84994))) - (__tmp84985 - (let ((__tmp84990 - (let ((__tmp84991 |gx[1]#_g84992_|)) + (cons 'down __tmp84991))) + (__tmp84982 + (let ((__tmp84987 + (let ((__tmp84988 |gx[1]#_g84989_|)) (declare (not safe)) - (cons 'id __tmp84991))) - (__tmp84986 - (let ((__tmp84987 - (let ((__tmp84988 - |gx[1]#_g84989_|)) + (cons 'id __tmp84988))) + (__tmp84983 + (let ((__tmp84984 + (let ((__tmp84985 + |gx[1]#_g84986_|)) (declare (not safe)) - (cons 'table __tmp84988)))) + (cons 'table __tmp84985)))) (declare (not safe)) - (cons __tmp84987 '())))) + (cons __tmp84984 '())))) (declare (not safe)) - (cons __tmp84990 __tmp84986)))) + (cons __tmp84987 __tmp84983)))) (declare (not safe)) - (cons __tmp84993 __tmp84985)))) + (cons __tmp84990 __tmp84982)))) (declare (not safe)) - (cons __tmp84996 __tmp84984)))) + (cons __tmp84993 __tmp84981)))) (declare (not safe)) - (cons __tmp84999 __tmp84983)))) + (cons __tmp84996 __tmp84980)))) (declare (not safe)) (##unchecked-structure-set! - __obj84755 - __tmp84982 + __obj84752 + __tmp84979 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84755)) + __obj84752)) (define |gx[:0:]#top-context| - (let ((__obj84756 + (let ((__obj84753 (let () (declare (not safe)) (##structure @@ -4271,7 +4271,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84756 + __obj84753 '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! - __obj84756 + __obj84753 'top-context '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4287,26 +4287,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84756 + __obj84753 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85002 - (let ((__tmp85003 |gx[1]#_g85004_|)) + (let ((__tmp84999 + (let ((__tmp85000 |gx[1]#_g85001_|)) (declare (not safe)) - (cons __tmp85003 '())))) + (cons __tmp85000 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84756 - __tmp85002 + __obj84753 + __tmp84999 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84756 + __obj84753 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4314,7 +4314,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84756 + __obj84753 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4322,7 +4322,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84756 + __obj84753 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4330,210 +4330,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84756 + __obj84753 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85005 |gx[1]#_g85006_|)) + (let ((__tmp85002 |gx[1]#_g85003_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84756 - __tmp85005 + __obj84753 + __tmp85002 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85007 |gx[1]#_g85008_|)) + (let ((__tmp85004 |gx[1]#_g85005_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84756 - __tmp85007 + __obj84753 + __tmp85004 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85009 |gx[1]#_g85010_|)) + (let ((__tmp85006 |gx[1]#_g85007_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84756 - __tmp85009 + __obj84753 + __tmp85006 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85011 - (let ((__tmp85028 - (let ((__tmp85029 |gx[1]#_g85030_|)) + (let ((__tmp85008 + (let ((__tmp85025 + (let ((__tmp85026 |gx[1]#_g85027_|)) (declare (not safe)) - (cons 'super __tmp85029))) - (__tmp85012 - (let ((__tmp85025 - (let ((__tmp85026 |gx[1]#_g85027_|)) + (cons 'super __tmp85026))) + (__tmp85009 + (let ((__tmp85022 + (let ((__tmp85023 |gx[1]#_g85024_|)) (declare (not safe)) - (cons 'up __tmp85026))) - (__tmp85013 - (let ((__tmp85022 - (let ((__tmp85023 |gx[1]#_g85024_|)) + (cons 'up __tmp85023))) + (__tmp85010 + (let ((__tmp85019 + (let ((__tmp85020 |gx[1]#_g85021_|)) (declare (not safe)) - (cons 'down __tmp85023))) - (__tmp85014 - (let ((__tmp85019 - (let ((__tmp85020 |gx[1]#_g85021_|)) + (cons 'down __tmp85020))) + (__tmp85011 + (let ((__tmp85016 + (let ((__tmp85017 |gx[1]#_g85018_|)) (declare (not safe)) - (cons 'id __tmp85020))) - (__tmp85015 - (let ((__tmp85016 - (let ((__tmp85017 - |gx[1]#_g85018_|)) + (cons 'id __tmp85017))) + (__tmp85012 + (let ((__tmp85013 + (let ((__tmp85014 + |gx[1]#_g85015_|)) (declare (not safe)) - (cons 'table __tmp85017)))) + (cons 'table __tmp85014)))) (declare (not safe)) - (cons __tmp85016 '())))) + (cons __tmp85013 '())))) (declare (not safe)) - (cons __tmp85019 __tmp85015)))) + (cons __tmp85016 __tmp85012)))) (declare (not safe)) - (cons __tmp85022 __tmp85014)))) + (cons __tmp85019 __tmp85011)))) (declare (not safe)) - (cons __tmp85025 __tmp85013)))) + (cons __tmp85022 __tmp85010)))) (declare (not safe)) - (cons __tmp85028 __tmp85012)))) + (cons __tmp85025 __tmp85009)))) (declare (not safe)) (##unchecked-structure-set! - __obj84756 - __tmp85011 + __obj84753 + __tmp85008 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85031 - (let ((__tmp85048 - (let ((__tmp85049 |gx[1]#_g85050_|)) + (let ((__tmp85028 + (let ((__tmp85045 + (let ((__tmp85046 |gx[1]#_g85047_|)) (declare (not safe)) - (cons 'super __tmp85049))) - (__tmp85032 - (let ((__tmp85045 - (let ((__tmp85046 |gx[1]#_g85047_|)) + (cons 'super __tmp85046))) + (__tmp85029 + (let ((__tmp85042 + (let ((__tmp85043 |gx[1]#_g85044_|)) (declare (not safe)) - (cons 'up __tmp85046))) - (__tmp85033 - (let ((__tmp85042 - (let ((__tmp85043 |gx[1]#_g85044_|)) + (cons 'up __tmp85043))) + (__tmp85030 + (let ((__tmp85039 + (let ((__tmp85040 |gx[1]#_g85041_|)) (declare (not safe)) - (cons 'down __tmp85043))) - (__tmp85034 - (let ((__tmp85039 - (let ((__tmp85040 |gx[1]#_g85041_|)) + (cons 'down __tmp85040))) + (__tmp85031 + (let ((__tmp85036 + (let ((__tmp85037 |gx[1]#_g85038_|)) (declare (not safe)) - (cons 'id __tmp85040))) - (__tmp85035 - (let ((__tmp85036 - (let ((__tmp85037 - |gx[1]#_g85038_|)) + (cons 'id __tmp85037))) + (__tmp85032 + (let ((__tmp85033 + (let ((__tmp85034 + |gx[1]#_g85035_|)) (declare (not safe)) - (cons 'table __tmp85037)))) + (cons 'table __tmp85034)))) (declare (not safe)) - (cons __tmp85036 '())))) + (cons __tmp85033 '())))) (declare (not safe)) - (cons __tmp85039 __tmp85035)))) + (cons __tmp85036 __tmp85032)))) (declare (not safe)) - (cons __tmp85042 __tmp85034)))) + (cons __tmp85039 __tmp85031)))) (declare (not safe)) - (cons __tmp85045 __tmp85033)))) + (cons __tmp85042 __tmp85030)))) (declare (not safe)) - (cons __tmp85048 __tmp85032)))) + (cons __tmp85045 __tmp85029)))) (declare (not safe)) (##unchecked-structure-set! - __obj84756 - __tmp85031 + __obj84753 + __tmp85028 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85051 - (let ((__tmp85068 - (let ((__tmp85069 |gx[1]#_g85070_|)) + (let ((__tmp85048 + (let ((__tmp85065 + (let ((__tmp85066 |gx[1]#_g85067_|)) (declare (not safe)) - (cons 'super __tmp85069))) - (__tmp85052 - (let ((__tmp85065 - (let ((__tmp85066 |gx[1]#_g85067_|)) + (cons 'super __tmp85066))) + (__tmp85049 + (let ((__tmp85062 + (let ((__tmp85063 |gx[1]#_g85064_|)) (declare (not safe)) - (cons 'up __tmp85066))) - (__tmp85053 - (let ((__tmp85062 - (let ((__tmp85063 |gx[1]#_g85064_|)) + (cons 'up __tmp85063))) + (__tmp85050 + (let ((__tmp85059 + (let ((__tmp85060 |gx[1]#_g85061_|)) (declare (not safe)) - (cons 'down __tmp85063))) - (__tmp85054 - (let ((__tmp85059 - (let ((__tmp85060 |gx[1]#_g85061_|)) + (cons 'down __tmp85060))) + (__tmp85051 + (let ((__tmp85056 + (let ((__tmp85057 |gx[1]#_g85058_|)) (declare (not safe)) - (cons 'id __tmp85060))) - (__tmp85055 - (let ((__tmp85056 - (let ((__tmp85057 - |gx[1]#_g85058_|)) + (cons 'id __tmp85057))) + (__tmp85052 + (let ((__tmp85053 + (let ((__tmp85054 + |gx[1]#_g85055_|)) (declare (not safe)) - (cons 'table __tmp85057)))) + (cons 'table __tmp85054)))) (declare (not safe)) - (cons __tmp85056 '())))) + (cons __tmp85053 '())))) (declare (not safe)) - (cons __tmp85059 __tmp85055)))) + (cons __tmp85056 __tmp85052)))) (declare (not safe)) - (cons __tmp85062 __tmp85054)))) + (cons __tmp85059 __tmp85051)))) (declare (not safe)) - (cons __tmp85065 __tmp85053)))) + (cons __tmp85062 __tmp85050)))) (declare (not safe)) - (cons __tmp85068 __tmp85052)))) + (cons __tmp85065 __tmp85049)))) (declare (not safe)) (##unchecked-structure-set! - __obj84756 - __tmp85051 + __obj84753 + __tmp85048 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85071 - (let ((__tmp85088 - (let ((__tmp85089 |gx[1]#_g85090_|)) + (let ((__tmp85068 + (let ((__tmp85085 + (let ((__tmp85086 |gx[1]#_g85087_|)) (declare (not safe)) - (cons 'super __tmp85089))) - (__tmp85072 - (let ((__tmp85085 - (let ((__tmp85086 |gx[1]#_g85087_|)) + (cons 'super __tmp85086))) + (__tmp85069 + (let ((__tmp85082 + (let ((__tmp85083 |gx[1]#_g85084_|)) (declare (not safe)) - (cons 'up __tmp85086))) - (__tmp85073 - (let ((__tmp85082 - (let ((__tmp85083 |gx[1]#_g85084_|)) + (cons 'up __tmp85083))) + (__tmp85070 + (let ((__tmp85079 + (let ((__tmp85080 |gx[1]#_g85081_|)) (declare (not safe)) - (cons 'down __tmp85083))) - (__tmp85074 - (let ((__tmp85079 - (let ((__tmp85080 |gx[1]#_g85081_|)) + (cons 'down __tmp85080))) + (__tmp85071 + (let ((__tmp85076 + (let ((__tmp85077 |gx[1]#_g85078_|)) (declare (not safe)) - (cons 'id __tmp85080))) - (__tmp85075 - (let ((__tmp85076 - (let ((__tmp85077 - |gx[1]#_g85078_|)) + (cons 'id __tmp85077))) + (__tmp85072 + (let ((__tmp85073 + (let ((__tmp85074 + |gx[1]#_g85075_|)) (declare (not safe)) - (cons 'table __tmp85077)))) + (cons 'table __tmp85074)))) (declare (not safe)) - (cons __tmp85076 '())))) + (cons __tmp85073 '())))) (declare (not safe)) - (cons __tmp85079 __tmp85075)))) + (cons __tmp85076 __tmp85072)))) (declare (not safe)) - (cons __tmp85082 __tmp85074)))) + (cons __tmp85079 __tmp85071)))) (declare (not safe)) - (cons __tmp85085 __tmp85073)))) + (cons __tmp85082 __tmp85070)))) (declare (not safe)) - (cons __tmp85088 __tmp85072)))) + (cons __tmp85085 __tmp85069)))) (declare (not safe)) (##unchecked-structure-set! - __obj84756 - __tmp85071 + __obj84753 + __tmp85068 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84756)) + __obj84753)) (define |gx[:0:]#module-context| - (let ((__obj84757 + (let ((__obj84754 (let () (declare (not safe)) (##structure @@ -4556,7 +4556,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84757 + __obj84754 '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! - __obj84757 + __obj84754 'module-context '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4572,26 +4572,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84757 + __obj84754 '(ns path import export e code) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85091 - (let ((__tmp85092 |gx[1]#_g85093_|)) + (let ((__tmp85088 + (let ((__tmp85089 |gx[1]#_g85090_|)) (declare (not safe)) - (cons __tmp85092 '())))) + (cons __tmp85089 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84757 - __tmp85091 + __obj84754 + __tmp85088 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84757 + __obj84754 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4599,7 +4599,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84757 + __obj84754 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4607,7 +4607,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84757 + __obj84754 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4615,410 +4615,410 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84757 + __obj84754 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85094 |gx[1]#_g85095_|)) + (let ((__tmp85091 |gx[1]#_g85092_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84757 - __tmp85094 + __obj84754 + __tmp85091 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85096 |gx[1]#_g85097_|)) + (let ((__tmp85093 |gx[1]#_g85094_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84757 - __tmp85096 + __obj84754 + __tmp85093 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85098 |gx[1]#_g85099_|)) + (let ((__tmp85095 |gx[1]#_g85096_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84757 - __tmp85098 + __obj84754 + __tmp85095 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85100 - (let ((__tmp85141 - (let ((__tmp85142 |gx[1]#_g85143_|)) + (let ((__tmp85097 + (let ((__tmp85138 + (let ((__tmp85139 |gx[1]#_g85140_|)) (declare (not safe)) - (cons 'ns __tmp85142))) - (__tmp85101 - (let ((__tmp85138 - (let ((__tmp85139 |gx[1]#_g85140_|)) + (cons 'ns __tmp85139))) + (__tmp85098 + (let ((__tmp85135 + (let ((__tmp85136 |gx[1]#_g85137_|)) (declare (not safe)) - (cons 'path __tmp85139))) - (__tmp85102 - (let ((__tmp85135 - (let ((__tmp85136 |gx[1]#_g85137_|)) + (cons 'path __tmp85136))) + (__tmp85099 + (let ((__tmp85132 + (let ((__tmp85133 |gx[1]#_g85134_|)) (declare (not safe)) - (cons 'import __tmp85136))) - (__tmp85103 - (let ((__tmp85132 - (let ((__tmp85133 |gx[1]#_g85134_|)) + (cons 'import __tmp85133))) + (__tmp85100 + (let ((__tmp85129 + (let ((__tmp85130 |gx[1]#_g85131_|)) (declare (not safe)) - (cons 'export __tmp85133))) - (__tmp85104 - (let ((__tmp85129 - (let ((__tmp85130 - |gx[1]#_g85131_|)) + (cons 'export __tmp85130))) + (__tmp85101 + (let ((__tmp85126 + (let ((__tmp85127 + |gx[1]#_g85128_|)) (declare (not safe)) - (cons 'e __tmp85130))) - (__tmp85105 - (let ((__tmp85126 - (let ((__tmp85127 - |gx[1]#_g85128_|)) + (cons 'e __tmp85127))) + (__tmp85102 + (let ((__tmp85123 + (let ((__tmp85124 + |gx[1]#_g85125_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85127))) - (__tmp85106 - (let ((__tmp85123 - (let ((__tmp85124 |gx[1]#_g85125_|)) + __tmp85124))) + (__tmp85103 + (let ((__tmp85120 + (let ((__tmp85121 |gx[1]#_g85122_|)) (declare (not safe)) - (cons 'super __tmp85124))) - (__tmp85107 - (let ((__tmp85120 - (let ((__tmp85121 |gx[1]#_g85122_|)) + (cons 'super __tmp85121))) + (__tmp85104 + (let ((__tmp85117 + (let ((__tmp85118 |gx[1]#_g85119_|)) (declare (not safe)) - (cons 'up __tmp85121))) - (__tmp85108 - (let ((__tmp85117 - (let ((__tmp85118 |gx[1]#_g85119_|)) + (cons 'up __tmp85118))) + (__tmp85105 + (let ((__tmp85114 + (let ((__tmp85115 |gx[1]#_g85116_|)) (declare (not safe)) - (cons 'down __tmp85118))) - (__tmp85109 - (let ((__tmp85114 - (let ((__tmp85115 - |gx[1]#_g85116_|)) + (cons 'down __tmp85115))) + (__tmp85106 + (let ((__tmp85111 + (let ((__tmp85112 + |gx[1]#_g85113_|)) (declare (not safe)) - (cons 'id __tmp85115))) - (__tmp85110 - (let ((__tmp85111 - (let ((__tmp85112 - |gx[1]#_g85113_|)) + (cons 'id __tmp85112))) + (__tmp85107 + (let ((__tmp85108 + (let ((__tmp85109 + |gx[1]#_g85110_|)) (declare (not safe)) (cons 'table - __tmp85112)))) + __tmp85109)))) (declare (not safe)) - (cons __tmp85111 '())))) + (cons __tmp85108 '())))) (declare (not safe)) - (cons __tmp85114 __tmp85110)))) + (cons __tmp85111 __tmp85107)))) (declare (not safe)) - (cons __tmp85117 __tmp85109)))) + (cons __tmp85114 __tmp85106)))) (declare (not safe)) - (cons __tmp85120 __tmp85108)))) + (cons __tmp85117 __tmp85105)))) (declare (not safe)) - (cons __tmp85123 __tmp85107)))) + (cons __tmp85120 __tmp85104)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85126 - __tmp85106)))) + (cons __tmp85123 + __tmp85103)))) (declare (not safe)) - (cons __tmp85129 __tmp85105)))) + (cons __tmp85126 __tmp85102)))) (declare (not safe)) - (cons __tmp85132 __tmp85104)))) + (cons __tmp85129 __tmp85101)))) (declare (not safe)) - (cons __tmp85135 __tmp85103)))) + (cons __tmp85132 __tmp85100)))) (declare (not safe)) - (cons __tmp85138 __tmp85102)))) + (cons __tmp85135 __tmp85099)))) (declare (not safe)) - (cons __tmp85141 __tmp85101)))) + (cons __tmp85138 __tmp85098)))) (declare (not safe)) (##unchecked-structure-set! - __obj84757 - __tmp85100 + __obj84754 + __tmp85097 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85144 - (let ((__tmp85185 - (let ((__tmp85186 |gx[1]#_g85187_|)) + (let ((__tmp85141 + (let ((__tmp85182 + (let ((__tmp85183 |gx[1]#_g85184_|)) (declare (not safe)) - (cons 'ns __tmp85186))) - (__tmp85145 - (let ((__tmp85182 - (let ((__tmp85183 |gx[1]#_g85184_|)) + (cons 'ns __tmp85183))) + (__tmp85142 + (let ((__tmp85179 + (let ((__tmp85180 |gx[1]#_g85181_|)) (declare (not safe)) - (cons 'path __tmp85183))) - (__tmp85146 - (let ((__tmp85179 - (let ((__tmp85180 |gx[1]#_g85181_|)) + (cons 'path __tmp85180))) + (__tmp85143 + (let ((__tmp85176 + (let ((__tmp85177 |gx[1]#_g85178_|)) (declare (not safe)) - (cons 'import __tmp85180))) - (__tmp85147 - (let ((__tmp85176 - (let ((__tmp85177 |gx[1]#_g85178_|)) + (cons 'import __tmp85177))) + (__tmp85144 + (let ((__tmp85173 + (let ((__tmp85174 |gx[1]#_g85175_|)) (declare (not safe)) - (cons 'export __tmp85177))) - (__tmp85148 - (let ((__tmp85173 - (let ((__tmp85174 - |gx[1]#_g85175_|)) + (cons 'export __tmp85174))) + (__tmp85145 + (let ((__tmp85170 + (let ((__tmp85171 + |gx[1]#_g85172_|)) (declare (not safe)) - (cons 'e __tmp85174))) - (__tmp85149 - (let ((__tmp85170 - (let ((__tmp85171 - |gx[1]#_g85172_|)) + (cons 'e __tmp85171))) + (__tmp85146 + (let ((__tmp85167 + (let ((__tmp85168 + |gx[1]#_g85169_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85171))) - (__tmp85150 - (let ((__tmp85167 - (let ((__tmp85168 |gx[1]#_g85169_|)) + __tmp85168))) + (__tmp85147 + (let ((__tmp85164 + (let ((__tmp85165 |gx[1]#_g85166_|)) (declare (not safe)) - (cons 'super __tmp85168))) - (__tmp85151 - (let ((__tmp85164 - (let ((__tmp85165 |gx[1]#_g85166_|)) + (cons 'super __tmp85165))) + (__tmp85148 + (let ((__tmp85161 + (let ((__tmp85162 |gx[1]#_g85163_|)) (declare (not safe)) - (cons 'up __tmp85165))) - (__tmp85152 - (let ((__tmp85161 - (let ((__tmp85162 |gx[1]#_g85163_|)) + (cons 'up __tmp85162))) + (__tmp85149 + (let ((__tmp85158 + (let ((__tmp85159 |gx[1]#_g85160_|)) (declare (not safe)) - (cons 'down __tmp85162))) - (__tmp85153 - (let ((__tmp85158 - (let ((__tmp85159 - |gx[1]#_g85160_|)) + (cons 'down __tmp85159))) + (__tmp85150 + (let ((__tmp85155 + (let ((__tmp85156 + |gx[1]#_g85157_|)) (declare (not safe)) - (cons 'id __tmp85159))) - (__tmp85154 - (let ((__tmp85155 - (let ((__tmp85156 - |gx[1]#_g85157_|)) + (cons 'id __tmp85156))) + (__tmp85151 + (let ((__tmp85152 + (let ((__tmp85153 + |gx[1]#_g85154_|)) (declare (not safe)) (cons 'table - __tmp85156)))) + __tmp85153)))) (declare (not safe)) - (cons __tmp85155 '())))) + (cons __tmp85152 '())))) (declare (not safe)) - (cons __tmp85158 __tmp85154)))) + (cons __tmp85155 __tmp85151)))) (declare (not safe)) - (cons __tmp85161 __tmp85153)))) + (cons __tmp85158 __tmp85150)))) (declare (not safe)) - (cons __tmp85164 __tmp85152)))) + (cons __tmp85161 __tmp85149)))) (declare (not safe)) - (cons __tmp85167 __tmp85151)))) + (cons __tmp85164 __tmp85148)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85170 - __tmp85150)))) + (cons __tmp85167 + __tmp85147)))) (declare (not safe)) - (cons __tmp85173 __tmp85149)))) + (cons __tmp85170 __tmp85146)))) (declare (not safe)) - (cons __tmp85176 __tmp85148)))) + (cons __tmp85173 __tmp85145)))) (declare (not safe)) - (cons __tmp85179 __tmp85147)))) + (cons __tmp85176 __tmp85144)))) (declare (not safe)) - (cons __tmp85182 __tmp85146)))) + (cons __tmp85179 __tmp85143)))) (declare (not safe)) - (cons __tmp85185 __tmp85145)))) + (cons __tmp85182 __tmp85142)))) (declare (not safe)) (##unchecked-structure-set! - __obj84757 - __tmp85144 + __obj84754 + __tmp85141 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85188 - (let ((__tmp85229 - (let ((__tmp85230 |gx[1]#_g85231_|)) + (let ((__tmp85185 + (let ((__tmp85226 + (let ((__tmp85227 |gx[1]#_g85228_|)) (declare (not safe)) - (cons 'ns __tmp85230))) - (__tmp85189 - (let ((__tmp85226 - (let ((__tmp85227 |gx[1]#_g85228_|)) + (cons 'ns __tmp85227))) + (__tmp85186 + (let ((__tmp85223 + (let ((__tmp85224 |gx[1]#_g85225_|)) (declare (not safe)) - (cons 'path __tmp85227))) - (__tmp85190 - (let ((__tmp85223 - (let ((__tmp85224 |gx[1]#_g85225_|)) + (cons 'path __tmp85224))) + (__tmp85187 + (let ((__tmp85220 + (let ((__tmp85221 |gx[1]#_g85222_|)) (declare (not safe)) - (cons 'import __tmp85224))) - (__tmp85191 - (let ((__tmp85220 - (let ((__tmp85221 |gx[1]#_g85222_|)) + (cons 'import __tmp85221))) + (__tmp85188 + (let ((__tmp85217 + (let ((__tmp85218 |gx[1]#_g85219_|)) (declare (not safe)) - (cons 'export __tmp85221))) - (__tmp85192 - (let ((__tmp85217 - (let ((__tmp85218 - |gx[1]#_g85219_|)) + (cons 'export __tmp85218))) + (__tmp85189 + (let ((__tmp85214 + (let ((__tmp85215 + |gx[1]#_g85216_|)) (declare (not safe)) - (cons 'e __tmp85218))) - (__tmp85193 - (let ((__tmp85214 - (let ((__tmp85215 - |gx[1]#_g85216_|)) + (cons 'e __tmp85215))) + (__tmp85190 + (let ((__tmp85211 + (let ((__tmp85212 + |gx[1]#_g85213_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85215))) - (__tmp85194 - (let ((__tmp85211 - (let ((__tmp85212 |gx[1]#_g85213_|)) + __tmp85212))) + (__tmp85191 + (let ((__tmp85208 + (let ((__tmp85209 |gx[1]#_g85210_|)) (declare (not safe)) - (cons 'super __tmp85212))) - (__tmp85195 - (let ((__tmp85208 - (let ((__tmp85209 |gx[1]#_g85210_|)) + (cons 'super __tmp85209))) + (__tmp85192 + (let ((__tmp85205 + (let ((__tmp85206 |gx[1]#_g85207_|)) (declare (not safe)) - (cons 'up __tmp85209))) - (__tmp85196 - (let ((__tmp85205 - (let ((__tmp85206 |gx[1]#_g85207_|)) + (cons 'up __tmp85206))) + (__tmp85193 + (let ((__tmp85202 + (let ((__tmp85203 |gx[1]#_g85204_|)) (declare (not safe)) - (cons 'down __tmp85206))) - (__tmp85197 - (let ((__tmp85202 - (let ((__tmp85203 - |gx[1]#_g85204_|)) + (cons 'down __tmp85203))) + (__tmp85194 + (let ((__tmp85199 + (let ((__tmp85200 + |gx[1]#_g85201_|)) (declare (not safe)) - (cons 'id __tmp85203))) - (__tmp85198 - (let ((__tmp85199 - (let ((__tmp85200 - |gx[1]#_g85201_|)) + (cons 'id __tmp85200))) + (__tmp85195 + (let ((__tmp85196 + (let ((__tmp85197 + |gx[1]#_g85198_|)) (declare (not safe)) (cons 'table - __tmp85200)))) + __tmp85197)))) (declare (not safe)) - (cons __tmp85199 '())))) + (cons __tmp85196 '())))) (declare (not safe)) - (cons __tmp85202 __tmp85198)))) + (cons __tmp85199 __tmp85195)))) (declare (not safe)) - (cons __tmp85205 __tmp85197)))) + (cons __tmp85202 __tmp85194)))) (declare (not safe)) - (cons __tmp85208 __tmp85196)))) + (cons __tmp85205 __tmp85193)))) (declare (not safe)) - (cons __tmp85211 __tmp85195)))) + (cons __tmp85208 __tmp85192)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85214 - __tmp85194)))) + (cons __tmp85211 + __tmp85191)))) (declare (not safe)) - (cons __tmp85217 __tmp85193)))) + (cons __tmp85214 __tmp85190)))) (declare (not safe)) - (cons __tmp85220 __tmp85192)))) + (cons __tmp85217 __tmp85189)))) (declare (not safe)) - (cons __tmp85223 __tmp85191)))) + (cons __tmp85220 __tmp85188)))) (declare (not safe)) - (cons __tmp85226 __tmp85190)))) + (cons __tmp85223 __tmp85187)))) (declare (not safe)) - (cons __tmp85229 __tmp85189)))) + (cons __tmp85226 __tmp85186)))) (declare (not safe)) (##unchecked-structure-set! - __obj84757 - __tmp85188 + __obj84754 + __tmp85185 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85232 - (let ((__tmp85273 - (let ((__tmp85274 |gx[1]#_g85275_|)) + (let ((__tmp85229 + (let ((__tmp85270 + (let ((__tmp85271 |gx[1]#_g85272_|)) (declare (not safe)) - (cons 'ns __tmp85274))) - (__tmp85233 - (let ((__tmp85270 - (let ((__tmp85271 |gx[1]#_g85272_|)) + (cons 'ns __tmp85271))) + (__tmp85230 + (let ((__tmp85267 + (let ((__tmp85268 |gx[1]#_g85269_|)) (declare (not safe)) - (cons 'path __tmp85271))) - (__tmp85234 - (let ((__tmp85267 - (let ((__tmp85268 |gx[1]#_g85269_|)) + (cons 'path __tmp85268))) + (__tmp85231 + (let ((__tmp85264 + (let ((__tmp85265 |gx[1]#_g85266_|)) (declare (not safe)) - (cons 'import __tmp85268))) - (__tmp85235 - (let ((__tmp85264 - (let ((__tmp85265 |gx[1]#_g85266_|)) + (cons 'import __tmp85265))) + (__tmp85232 + (let ((__tmp85261 + (let ((__tmp85262 |gx[1]#_g85263_|)) (declare (not safe)) - (cons 'export __tmp85265))) - (__tmp85236 - (let ((__tmp85261 - (let ((__tmp85262 - |gx[1]#_g85263_|)) + (cons 'export __tmp85262))) + (__tmp85233 + (let ((__tmp85258 + (let ((__tmp85259 + |gx[1]#_g85260_|)) (declare (not safe)) - (cons 'e __tmp85262))) - (__tmp85237 - (let ((__tmp85258 - (let ((__tmp85259 - |gx[1]#_g85260_|)) + (cons 'e __tmp85259))) + (__tmp85234 + (let ((__tmp85255 + (let ((__tmp85256 + |gx[1]#_g85257_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85259))) - (__tmp85238 - (let ((__tmp85255 - (let ((__tmp85256 |gx[1]#_g85257_|)) + __tmp85256))) + (__tmp85235 + (let ((__tmp85252 + (let ((__tmp85253 |gx[1]#_g85254_|)) (declare (not safe)) - (cons 'super __tmp85256))) - (__tmp85239 - (let ((__tmp85252 - (let ((__tmp85253 |gx[1]#_g85254_|)) + (cons 'super __tmp85253))) + (__tmp85236 + (let ((__tmp85249 + (let ((__tmp85250 |gx[1]#_g85251_|)) (declare (not safe)) - (cons 'up __tmp85253))) - (__tmp85240 - (let ((__tmp85249 - (let ((__tmp85250 |gx[1]#_g85251_|)) + (cons 'up __tmp85250))) + (__tmp85237 + (let ((__tmp85246 + (let ((__tmp85247 |gx[1]#_g85248_|)) (declare (not safe)) - (cons 'down __tmp85250))) - (__tmp85241 - (let ((__tmp85246 - (let ((__tmp85247 - |gx[1]#_g85248_|)) + (cons 'down __tmp85247))) + (__tmp85238 + (let ((__tmp85243 + (let ((__tmp85244 + |gx[1]#_g85245_|)) (declare (not safe)) - (cons 'id __tmp85247))) - (__tmp85242 - (let ((__tmp85243 - (let ((__tmp85244 - |gx[1]#_g85245_|)) + (cons 'id __tmp85244))) + (__tmp85239 + (let ((__tmp85240 + (let ((__tmp85241 + |gx[1]#_g85242_|)) (declare (not safe)) (cons 'table - __tmp85244)))) + __tmp85241)))) (declare (not safe)) - (cons __tmp85243 '())))) + (cons __tmp85240 '())))) (declare (not safe)) - (cons __tmp85246 __tmp85242)))) + (cons __tmp85243 __tmp85239)))) (declare (not safe)) - (cons __tmp85249 __tmp85241)))) + (cons __tmp85246 __tmp85238)))) (declare (not safe)) - (cons __tmp85252 __tmp85240)))) + (cons __tmp85249 __tmp85237)))) (declare (not safe)) - (cons __tmp85255 __tmp85239)))) + (cons __tmp85252 __tmp85236)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85258 - __tmp85238)))) + (cons __tmp85255 + __tmp85235)))) (declare (not safe)) - (cons __tmp85261 __tmp85237)))) + (cons __tmp85258 __tmp85234)))) (declare (not safe)) - (cons __tmp85264 __tmp85236)))) + (cons __tmp85261 __tmp85233)))) (declare (not safe)) - (cons __tmp85267 __tmp85235)))) + (cons __tmp85264 __tmp85232)))) (declare (not safe)) - (cons __tmp85270 __tmp85234)))) + (cons __tmp85267 __tmp85231)))) (declare (not safe)) - (cons __tmp85273 __tmp85233)))) + (cons __tmp85270 __tmp85230)))) (declare (not safe)) (##unchecked-structure-set! - __obj84757 - __tmp85232 + __obj84754 + __tmp85229 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84757)) + __obj84754)) (define |gx[:0:]#prelude-context| - (let ((__obj84758 + (let ((__obj84755 (let () (declare (not safe)) (##structure @@ -5041,7 +5041,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84758 + __obj84755 '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! - __obj84758 + __obj84755 'prelude-context '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5057,26 +5057,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84758 + __obj84755 '(path import e) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85276 - (let ((__tmp85277 |gx[1]#_g85093_|)) + (let ((__tmp85273 + (let ((__tmp85274 |gx[1]#_g85090_|)) (declare (not safe)) - (cons __tmp85277 '())))) + (cons __tmp85274 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84758 - __tmp85276 + __obj84755 + __tmp85273 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84758 + __obj84755 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5084,7 +5084,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84758 + __obj84755 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5092,7 +5092,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84758 + __obj84755 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5100,314 +5100,314 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84758 + __obj84755 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85278 |gx[1]#_g85279_|)) + (let ((__tmp85275 |gx[1]#_g85276_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84758 - __tmp85278 + __obj84755 + __tmp85275 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85280 |gx[1]#_g85281_|)) + (let ((__tmp85277 |gx[1]#_g85278_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84758 - __tmp85280 + __obj84755 + __tmp85277 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85282 |gx[1]#_g85283_|)) + (let ((__tmp85279 |gx[1]#_g85280_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84758 - __tmp85282 + __obj84755 + __tmp85279 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85284 - (let ((__tmp85313 - (let ((__tmp85314 |gx[1]#_g85315_|)) + (let ((__tmp85281 + (let ((__tmp85310 + (let ((__tmp85311 |gx[1]#_g85312_|)) (declare (not safe)) - (cons 'path __tmp85314))) - (__tmp85285 - (let ((__tmp85310 - (let ((__tmp85311 |gx[1]#_g85312_|)) + (cons 'path __tmp85311))) + (__tmp85282 + (let ((__tmp85307 + (let ((__tmp85308 |gx[1]#_g85309_|)) (declare (not safe)) - (cons 'import __tmp85311))) - (__tmp85286 - (let ((__tmp85307 - (let ((__tmp85308 |gx[1]#_g85309_|)) + (cons 'import __tmp85308))) + (__tmp85283 + (let ((__tmp85304 + (let ((__tmp85305 |gx[1]#_g85306_|)) (declare (not safe)) - (cons 'e __tmp85308))) - (__tmp85287 - (let ((__tmp85304 - (let ((__tmp85305 |gx[1]#_g85306_|)) + (cons 'e __tmp85305))) + (__tmp85284 + (let ((__tmp85301 + (let ((__tmp85302 |gx[1]#_g85303_|)) (declare (not safe)) - (cons 'super __tmp85305))) - (__tmp85288 - (let ((__tmp85301 - (let ((__tmp85302 - |gx[1]#_g85303_|)) + (cons 'super __tmp85302))) + (__tmp85285 + (let ((__tmp85298 + (let ((__tmp85299 + |gx[1]#_g85300_|)) (declare (not safe)) - (cons 'up __tmp85302))) - (__tmp85289 - (let ((__tmp85298 - (let ((__tmp85299 - |gx[1]#_g85300_|)) + (cons 'up __tmp85299))) + (__tmp85286 + (let ((__tmp85295 + (let ((__tmp85296 + |gx[1]#_g85297_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85299))) - (__tmp85290 - (let ((__tmp85295 - (let ((__tmp85296 |gx[1]#_g85297_|)) + __tmp85296))) + (__tmp85287 + (let ((__tmp85292 + (let ((__tmp85293 |gx[1]#_g85294_|)) (declare (not safe)) - (cons 'id __tmp85296))) - (__tmp85291 - (let ((__tmp85292 - (let ((__tmp85293 |gx[1]#_g85294_|)) + (cons 'id __tmp85293))) + (__tmp85288 + (let ((__tmp85289 + (let ((__tmp85290 |gx[1]#_g85291_|)) (declare (not safe)) - (cons 'table __tmp85293)))) + (cons 'table __tmp85290)))) (declare (not safe)) - (cons __tmp85292 '())))) + (cons __tmp85289 '())))) (declare (not safe)) - (cons __tmp85295 __tmp85291)))) + (cons __tmp85292 __tmp85288)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85298 - __tmp85290)))) + (cons __tmp85295 + __tmp85287)))) (declare (not safe)) - (cons __tmp85301 __tmp85289)))) + (cons __tmp85298 __tmp85286)))) (declare (not safe)) - (cons __tmp85304 __tmp85288)))) + (cons __tmp85301 __tmp85285)))) (declare (not safe)) - (cons __tmp85307 __tmp85287)))) + (cons __tmp85304 __tmp85284)))) (declare (not safe)) - (cons __tmp85310 __tmp85286)))) + (cons __tmp85307 __tmp85283)))) (declare (not safe)) - (cons __tmp85313 __tmp85285)))) + (cons __tmp85310 __tmp85282)))) (declare (not safe)) (##unchecked-structure-set! - __obj84758 - __tmp85284 + __obj84755 + __tmp85281 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85316 - (let ((__tmp85345 - (let ((__tmp85346 |gx[1]#_g85347_|)) + (let ((__tmp85313 + (let ((__tmp85342 + (let ((__tmp85343 |gx[1]#_g85344_|)) (declare (not safe)) - (cons 'path __tmp85346))) - (__tmp85317 - (let ((__tmp85342 - (let ((__tmp85343 |gx[1]#_g85344_|)) + (cons 'path __tmp85343))) + (__tmp85314 + (let ((__tmp85339 + (let ((__tmp85340 |gx[1]#_g85341_|)) (declare (not safe)) - (cons 'import __tmp85343))) - (__tmp85318 - (let ((__tmp85339 - (let ((__tmp85340 |gx[1]#_g85341_|)) + (cons 'import __tmp85340))) + (__tmp85315 + (let ((__tmp85336 + (let ((__tmp85337 |gx[1]#_g85338_|)) (declare (not safe)) - (cons 'e __tmp85340))) - (__tmp85319 - (let ((__tmp85336 - (let ((__tmp85337 |gx[1]#_g85338_|)) + (cons 'e __tmp85337))) + (__tmp85316 + (let ((__tmp85333 + (let ((__tmp85334 |gx[1]#_g85335_|)) (declare (not safe)) - (cons 'super __tmp85337))) - (__tmp85320 - (let ((__tmp85333 - (let ((__tmp85334 - |gx[1]#_g85335_|)) + (cons 'super __tmp85334))) + (__tmp85317 + (let ((__tmp85330 + (let ((__tmp85331 + |gx[1]#_g85332_|)) (declare (not safe)) - (cons 'up __tmp85334))) - (__tmp85321 - (let ((__tmp85330 - (let ((__tmp85331 - |gx[1]#_g85332_|)) + (cons 'up __tmp85331))) + (__tmp85318 + (let ((__tmp85327 + (let ((__tmp85328 + |gx[1]#_g85329_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85331))) - (__tmp85322 - (let ((__tmp85327 - (let ((__tmp85328 |gx[1]#_g85329_|)) + __tmp85328))) + (__tmp85319 + (let ((__tmp85324 + (let ((__tmp85325 |gx[1]#_g85326_|)) (declare (not safe)) - (cons 'id __tmp85328))) - (__tmp85323 - (let ((__tmp85324 - (let ((__tmp85325 |gx[1]#_g85326_|)) + (cons 'id __tmp85325))) + (__tmp85320 + (let ((__tmp85321 + (let ((__tmp85322 |gx[1]#_g85323_|)) (declare (not safe)) - (cons 'table __tmp85325)))) + (cons 'table __tmp85322)))) (declare (not safe)) - (cons __tmp85324 '())))) + (cons __tmp85321 '())))) (declare (not safe)) - (cons __tmp85327 __tmp85323)))) + (cons __tmp85324 __tmp85320)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85330 - __tmp85322)))) + (cons __tmp85327 + __tmp85319)))) (declare (not safe)) - (cons __tmp85333 __tmp85321)))) + (cons __tmp85330 __tmp85318)))) (declare (not safe)) - (cons __tmp85336 __tmp85320)))) + (cons __tmp85333 __tmp85317)))) (declare (not safe)) - (cons __tmp85339 __tmp85319)))) + (cons __tmp85336 __tmp85316)))) (declare (not safe)) - (cons __tmp85342 __tmp85318)))) + (cons __tmp85339 __tmp85315)))) (declare (not safe)) - (cons __tmp85345 __tmp85317)))) + (cons __tmp85342 __tmp85314)))) (declare (not safe)) (##unchecked-structure-set! - __obj84758 - __tmp85316 + __obj84755 + __tmp85313 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85348 - (let ((__tmp85377 - (let ((__tmp85378 |gx[1]#_g85379_|)) + (let ((__tmp85345 + (let ((__tmp85374 + (let ((__tmp85375 |gx[1]#_g85376_|)) (declare (not safe)) - (cons 'path __tmp85378))) - (__tmp85349 - (let ((__tmp85374 - (let ((__tmp85375 |gx[1]#_g85376_|)) + (cons 'path __tmp85375))) + (__tmp85346 + (let ((__tmp85371 + (let ((__tmp85372 |gx[1]#_g85373_|)) (declare (not safe)) - (cons 'import __tmp85375))) - (__tmp85350 - (let ((__tmp85371 - (let ((__tmp85372 |gx[1]#_g85373_|)) + (cons 'import __tmp85372))) + (__tmp85347 + (let ((__tmp85368 + (let ((__tmp85369 |gx[1]#_g85370_|)) (declare (not safe)) - (cons 'e __tmp85372))) - (__tmp85351 - (let ((__tmp85368 - (let ((__tmp85369 |gx[1]#_g85370_|)) + (cons 'e __tmp85369))) + (__tmp85348 + (let ((__tmp85365 + (let ((__tmp85366 |gx[1]#_g85367_|)) (declare (not safe)) - (cons 'super __tmp85369))) - (__tmp85352 - (let ((__tmp85365 - (let ((__tmp85366 - |gx[1]#_g85367_|)) + (cons 'super __tmp85366))) + (__tmp85349 + (let ((__tmp85362 + (let ((__tmp85363 + |gx[1]#_g85364_|)) (declare (not safe)) - (cons 'up __tmp85366))) - (__tmp85353 - (let ((__tmp85362 - (let ((__tmp85363 - |gx[1]#_g85364_|)) + (cons 'up __tmp85363))) + (__tmp85350 + (let ((__tmp85359 + (let ((__tmp85360 + |gx[1]#_g85361_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85363))) - (__tmp85354 - (let ((__tmp85359 - (let ((__tmp85360 |gx[1]#_g85361_|)) + __tmp85360))) + (__tmp85351 + (let ((__tmp85356 + (let ((__tmp85357 |gx[1]#_g85358_|)) (declare (not safe)) - (cons 'id __tmp85360))) - (__tmp85355 - (let ((__tmp85356 - (let ((__tmp85357 |gx[1]#_g85358_|)) + (cons 'id __tmp85357))) + (__tmp85352 + (let ((__tmp85353 + (let ((__tmp85354 |gx[1]#_g85355_|)) (declare (not safe)) - (cons 'table __tmp85357)))) + (cons 'table __tmp85354)))) (declare (not safe)) - (cons __tmp85356 '())))) + (cons __tmp85353 '())))) (declare (not safe)) - (cons __tmp85359 __tmp85355)))) + (cons __tmp85356 __tmp85352)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85362 - __tmp85354)))) + (cons __tmp85359 + __tmp85351)))) (declare (not safe)) - (cons __tmp85365 __tmp85353)))) + (cons __tmp85362 __tmp85350)))) (declare (not safe)) - (cons __tmp85368 __tmp85352)))) + (cons __tmp85365 __tmp85349)))) (declare (not safe)) - (cons __tmp85371 __tmp85351)))) + (cons __tmp85368 __tmp85348)))) (declare (not safe)) - (cons __tmp85374 __tmp85350)))) + (cons __tmp85371 __tmp85347)))) (declare (not safe)) - (cons __tmp85377 __tmp85349)))) + (cons __tmp85374 __tmp85346)))) (declare (not safe)) (##unchecked-structure-set! - __obj84758 - __tmp85348 + __obj84755 + __tmp85345 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85380 - (let ((__tmp85409 - (let ((__tmp85410 |gx[1]#_g85411_|)) + (let ((__tmp85377 + (let ((__tmp85406 + (let ((__tmp85407 |gx[1]#_g85408_|)) (declare (not safe)) - (cons 'path __tmp85410))) - (__tmp85381 - (let ((__tmp85406 - (let ((__tmp85407 |gx[1]#_g85408_|)) + (cons 'path __tmp85407))) + (__tmp85378 + (let ((__tmp85403 + (let ((__tmp85404 |gx[1]#_g85405_|)) (declare (not safe)) - (cons 'import __tmp85407))) - (__tmp85382 - (let ((__tmp85403 - (let ((__tmp85404 |gx[1]#_g85405_|)) + (cons 'import __tmp85404))) + (__tmp85379 + (let ((__tmp85400 + (let ((__tmp85401 |gx[1]#_g85402_|)) (declare (not safe)) - (cons 'e __tmp85404))) - (__tmp85383 - (let ((__tmp85400 - (let ((__tmp85401 |gx[1]#_g85402_|)) + (cons 'e __tmp85401))) + (__tmp85380 + (let ((__tmp85397 + (let ((__tmp85398 |gx[1]#_g85399_|)) (declare (not safe)) - (cons 'super __tmp85401))) - (__tmp85384 - (let ((__tmp85397 - (let ((__tmp85398 - |gx[1]#_g85399_|)) + (cons 'super __tmp85398))) + (__tmp85381 + (let ((__tmp85394 + (let ((__tmp85395 + |gx[1]#_g85396_|)) (declare (not safe)) - (cons 'up __tmp85398))) - (__tmp85385 - (let ((__tmp85394 - (let ((__tmp85395 - |gx[1]#_g85396_|)) + (cons 'up __tmp85395))) + (__tmp85382 + (let ((__tmp85391 + (let ((__tmp85392 + |gx[1]#_g85393_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85395))) - (__tmp85386 - (let ((__tmp85391 - (let ((__tmp85392 |gx[1]#_g85393_|)) + __tmp85392))) + (__tmp85383 + (let ((__tmp85388 + (let ((__tmp85389 |gx[1]#_g85390_|)) (declare (not safe)) - (cons 'id __tmp85392))) - (__tmp85387 - (let ((__tmp85388 - (let ((__tmp85389 |gx[1]#_g85390_|)) + (cons 'id __tmp85389))) + (__tmp85384 + (let ((__tmp85385 + (let ((__tmp85386 |gx[1]#_g85387_|)) (declare (not safe)) - (cons 'table __tmp85389)))) + (cons 'table __tmp85386)))) (declare (not safe)) - (cons __tmp85388 '())))) + (cons __tmp85385 '())))) (declare (not safe)) - (cons __tmp85391 __tmp85387)))) + (cons __tmp85388 __tmp85384)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85394 - __tmp85386)))) + (cons __tmp85391 + __tmp85383)))) (declare (not safe)) - (cons __tmp85397 __tmp85385)))) + (cons __tmp85394 __tmp85382)))) (declare (not safe)) - (cons __tmp85400 __tmp85384)))) + (cons __tmp85397 __tmp85381)))) (declare (not safe)) - (cons __tmp85403 __tmp85383)))) + (cons __tmp85400 __tmp85380)))) (declare (not safe)) - (cons __tmp85406 __tmp85382)))) + (cons __tmp85403 __tmp85379)))) (declare (not safe)) - (cons __tmp85409 __tmp85381)))) + (cons __tmp85406 __tmp85378)))) (declare (not safe)) (##unchecked-structure-set! - __obj84758 - __tmp85380 + __obj84755 + __tmp85377 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84758)) + __obj84755)) (define |gx[:0:]#local-context| - (let ((__obj84759 + (let ((__obj84756 (let () (declare (not safe)) (##structure @@ -5430,7 +5430,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84759 + __obj84756 '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! - __obj84759 + __obj84756 'local-context '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5446,26 +5446,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84759 + __obj84756 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85412 - (let ((__tmp85413 |gx[1]#_g85004_|)) + (let ((__tmp85409 + (let ((__tmp85410 |gx[1]#_g85001_|)) (declare (not safe)) - (cons __tmp85413 '())))) + (cons __tmp85410 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84759 - __tmp85412 + __obj84756 + __tmp85409 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84759 + __obj84756 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5473,7 +5473,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84759 + __obj84756 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5481,7 +5481,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84759 + __obj84756 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5489,210 +5489,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84759 + __obj84756 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85414 |gx[1]#_g85415_|)) + (let ((__tmp85411 |gx[1]#_g85412_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84759 - __tmp85414 + __obj84756 + __tmp85411 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85416 |gx[1]#_g85417_|)) + (let ((__tmp85413 |gx[1]#_g85414_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84759 - __tmp85416 + __obj84756 + __tmp85413 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85418 |gx[1]#_g85419_|)) + (let ((__tmp85415 |gx[1]#_g85416_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84759 - __tmp85418 + __obj84756 + __tmp85415 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85420 - (let ((__tmp85437 - (let ((__tmp85438 |gx[1]#_g85439_|)) + (let ((__tmp85417 + (let ((__tmp85434 + (let ((__tmp85435 |gx[1]#_g85436_|)) (declare (not safe)) - (cons 'super __tmp85438))) - (__tmp85421 - (let ((__tmp85434 - (let ((__tmp85435 |gx[1]#_g85436_|)) + (cons 'super __tmp85435))) + (__tmp85418 + (let ((__tmp85431 + (let ((__tmp85432 |gx[1]#_g85433_|)) (declare (not safe)) - (cons 'up __tmp85435))) - (__tmp85422 - (let ((__tmp85431 - (let ((__tmp85432 |gx[1]#_g85433_|)) + (cons 'up __tmp85432))) + (__tmp85419 + (let ((__tmp85428 + (let ((__tmp85429 |gx[1]#_g85430_|)) (declare (not safe)) - (cons 'down __tmp85432))) - (__tmp85423 - (let ((__tmp85428 - (let ((__tmp85429 |gx[1]#_g85430_|)) + (cons 'down __tmp85429))) + (__tmp85420 + (let ((__tmp85425 + (let ((__tmp85426 |gx[1]#_g85427_|)) (declare (not safe)) - (cons 'id __tmp85429))) - (__tmp85424 - (let ((__tmp85425 - (let ((__tmp85426 - |gx[1]#_g85427_|)) + (cons 'id __tmp85426))) + (__tmp85421 + (let ((__tmp85422 + (let ((__tmp85423 + |gx[1]#_g85424_|)) (declare (not safe)) - (cons 'table __tmp85426)))) + (cons 'table __tmp85423)))) (declare (not safe)) - (cons __tmp85425 '())))) + (cons __tmp85422 '())))) (declare (not safe)) - (cons __tmp85428 __tmp85424)))) + (cons __tmp85425 __tmp85421)))) (declare (not safe)) - (cons __tmp85431 __tmp85423)))) + (cons __tmp85428 __tmp85420)))) (declare (not safe)) - (cons __tmp85434 __tmp85422)))) + (cons __tmp85431 __tmp85419)))) (declare (not safe)) - (cons __tmp85437 __tmp85421)))) + (cons __tmp85434 __tmp85418)))) (declare (not safe)) (##unchecked-structure-set! - __obj84759 - __tmp85420 + __obj84756 + __tmp85417 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85440 - (let ((__tmp85457 - (let ((__tmp85458 |gx[1]#_g85459_|)) + (let ((__tmp85437 + (let ((__tmp85454 + (let ((__tmp85455 |gx[1]#_g85456_|)) (declare (not safe)) - (cons 'super __tmp85458))) - (__tmp85441 - (let ((__tmp85454 - (let ((__tmp85455 |gx[1]#_g85456_|)) + (cons 'super __tmp85455))) + (__tmp85438 + (let ((__tmp85451 + (let ((__tmp85452 |gx[1]#_g85453_|)) (declare (not safe)) - (cons 'up __tmp85455))) - (__tmp85442 - (let ((__tmp85451 - (let ((__tmp85452 |gx[1]#_g85453_|)) + (cons 'up __tmp85452))) + (__tmp85439 + (let ((__tmp85448 + (let ((__tmp85449 |gx[1]#_g85450_|)) (declare (not safe)) - (cons 'down __tmp85452))) - (__tmp85443 - (let ((__tmp85448 - (let ((__tmp85449 |gx[1]#_g85450_|)) + (cons 'down __tmp85449))) + (__tmp85440 + (let ((__tmp85445 + (let ((__tmp85446 |gx[1]#_g85447_|)) (declare (not safe)) - (cons 'id __tmp85449))) - (__tmp85444 - (let ((__tmp85445 - (let ((__tmp85446 - |gx[1]#_g85447_|)) + (cons 'id __tmp85446))) + (__tmp85441 + (let ((__tmp85442 + (let ((__tmp85443 + |gx[1]#_g85444_|)) (declare (not safe)) - (cons 'table __tmp85446)))) + (cons 'table __tmp85443)))) (declare (not safe)) - (cons __tmp85445 '())))) + (cons __tmp85442 '())))) (declare (not safe)) - (cons __tmp85448 __tmp85444)))) + (cons __tmp85445 __tmp85441)))) (declare (not safe)) - (cons __tmp85451 __tmp85443)))) + (cons __tmp85448 __tmp85440)))) (declare (not safe)) - (cons __tmp85454 __tmp85442)))) + (cons __tmp85451 __tmp85439)))) (declare (not safe)) - (cons __tmp85457 __tmp85441)))) + (cons __tmp85454 __tmp85438)))) (declare (not safe)) (##unchecked-structure-set! - __obj84759 - __tmp85440 + __obj84756 + __tmp85437 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85460 - (let ((__tmp85477 - (let ((__tmp85478 |gx[1]#_g85479_|)) + (let ((__tmp85457 + (let ((__tmp85474 + (let ((__tmp85475 |gx[1]#_g85476_|)) (declare (not safe)) - (cons 'super __tmp85478))) - (__tmp85461 - (let ((__tmp85474 - (let ((__tmp85475 |gx[1]#_g85476_|)) + (cons 'super __tmp85475))) + (__tmp85458 + (let ((__tmp85471 + (let ((__tmp85472 |gx[1]#_g85473_|)) (declare (not safe)) - (cons 'up __tmp85475))) - (__tmp85462 - (let ((__tmp85471 - (let ((__tmp85472 |gx[1]#_g85473_|)) + (cons 'up __tmp85472))) + (__tmp85459 + (let ((__tmp85468 + (let ((__tmp85469 |gx[1]#_g85470_|)) (declare (not safe)) - (cons 'down __tmp85472))) - (__tmp85463 - (let ((__tmp85468 - (let ((__tmp85469 |gx[1]#_g85470_|)) + (cons 'down __tmp85469))) + (__tmp85460 + (let ((__tmp85465 + (let ((__tmp85466 |gx[1]#_g85467_|)) (declare (not safe)) - (cons 'id __tmp85469))) - (__tmp85464 - (let ((__tmp85465 - (let ((__tmp85466 - |gx[1]#_g85467_|)) + (cons 'id __tmp85466))) + (__tmp85461 + (let ((__tmp85462 + (let ((__tmp85463 + |gx[1]#_g85464_|)) (declare (not safe)) - (cons 'table __tmp85466)))) + (cons 'table __tmp85463)))) (declare (not safe)) - (cons __tmp85465 '())))) + (cons __tmp85462 '())))) (declare (not safe)) - (cons __tmp85468 __tmp85464)))) + (cons __tmp85465 __tmp85461)))) (declare (not safe)) - (cons __tmp85471 __tmp85463)))) + (cons __tmp85468 __tmp85460)))) (declare (not safe)) - (cons __tmp85474 __tmp85462)))) + (cons __tmp85471 __tmp85459)))) (declare (not safe)) - (cons __tmp85477 __tmp85461)))) + (cons __tmp85474 __tmp85458)))) (declare (not safe)) (##unchecked-structure-set! - __obj84759 - __tmp85460 + __obj84756 + __tmp85457 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85480 - (let ((__tmp85497 - (let ((__tmp85498 |gx[1]#_g85499_|)) + (let ((__tmp85477 + (let ((__tmp85494 + (let ((__tmp85495 |gx[1]#_g85496_|)) (declare (not safe)) - (cons 'super __tmp85498))) - (__tmp85481 - (let ((__tmp85494 - (let ((__tmp85495 |gx[1]#_g85496_|)) + (cons 'super __tmp85495))) + (__tmp85478 + (let ((__tmp85491 + (let ((__tmp85492 |gx[1]#_g85493_|)) (declare (not safe)) - (cons 'up __tmp85495))) - (__tmp85482 - (let ((__tmp85491 - (let ((__tmp85492 |gx[1]#_g85493_|)) + (cons 'up __tmp85492))) + (__tmp85479 + (let ((__tmp85488 + (let ((__tmp85489 |gx[1]#_g85490_|)) (declare (not safe)) - (cons 'down __tmp85492))) - (__tmp85483 - (let ((__tmp85488 - (let ((__tmp85489 |gx[1]#_g85490_|)) + (cons 'down __tmp85489))) + (__tmp85480 + (let ((__tmp85485 + (let ((__tmp85486 |gx[1]#_g85487_|)) (declare (not safe)) - (cons 'id __tmp85489))) - (__tmp85484 - (let ((__tmp85485 - (let ((__tmp85486 - |gx[1]#_g85487_|)) + (cons 'id __tmp85486))) + (__tmp85481 + (let ((__tmp85482 + (let ((__tmp85483 + |gx[1]#_g85484_|)) (declare (not safe)) - (cons 'table __tmp85486)))) + (cons 'table __tmp85483)))) (declare (not safe)) - (cons __tmp85485 '())))) + (cons __tmp85482 '())))) (declare (not safe)) - (cons __tmp85488 __tmp85484)))) + (cons __tmp85485 __tmp85481)))) (declare (not safe)) - (cons __tmp85491 __tmp85483)))) + (cons __tmp85488 __tmp85480)))) (declare (not safe)) - (cons __tmp85494 __tmp85482)))) + (cons __tmp85491 __tmp85479)))) (declare (not safe)) - (cons __tmp85497 __tmp85481)))) + (cons __tmp85494 __tmp85478)))) (declare (not safe)) (##unchecked-structure-set! - __obj84759 - __tmp85480 + __obj84756 + __tmp85477 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84759)) + __obj84756)) (define |gx[:0:]#binding| - (let ((__obj84760 + (let ((__obj84757 (let () (declare (not safe)) (##structure @@ -5715,7 +5715,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84760 + __obj84757 'gx#binding::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5723,7 +5723,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84760 + __obj84757 'binding '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5731,7 +5731,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84760 + __obj84757 '(id key phi) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5739,7 +5739,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84760 + __obj84757 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5747,7 +5747,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84760 + __obj84757 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5755,7 +5755,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84760 + __obj84757 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5763,7 +5763,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84760 + __obj84757 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5771,150 +5771,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84760 + __obj84757 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85500 |gx[1]#_g85501_|)) + (let ((__tmp85497 |gx[1]#_g85498_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84760 - __tmp85500 + __obj84757 + __tmp85497 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85502 |gx[1]#_g85503_|)) + (let ((__tmp85499 |gx[1]#_g85500_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84760 - __tmp85502 + __obj84757 + __tmp85499 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85504 |gx[1]#_g85505_|)) + (let ((__tmp85501 |gx[1]#_g85502_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84760 - __tmp85504 + __obj84757 + __tmp85501 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85506 - (let ((__tmp85515 - (let ((__tmp85516 |gx[1]#_g85517_|)) + (let ((__tmp85503 + (let ((__tmp85512 + (let ((__tmp85513 |gx[1]#_g85514_|)) (declare (not safe)) - (cons 'id __tmp85516))) - (__tmp85507 - (let ((__tmp85512 - (let ((__tmp85513 |gx[1]#_g85514_|)) + (cons 'id __tmp85513))) + (__tmp85504 + (let ((__tmp85509 + (let ((__tmp85510 |gx[1]#_g85511_|)) (declare (not safe)) - (cons 'key __tmp85513))) - (__tmp85508 - (let ((__tmp85509 - (let ((__tmp85510 |gx[1]#_g85511_|)) + (cons 'key __tmp85510))) + (__tmp85505 + (let ((__tmp85506 + (let ((__tmp85507 |gx[1]#_g85508_|)) (declare (not safe)) - (cons 'phi __tmp85510)))) + (cons 'phi __tmp85507)))) (declare (not safe)) - (cons __tmp85509 '())))) + (cons __tmp85506 '())))) (declare (not safe)) - (cons __tmp85512 __tmp85508)))) + (cons __tmp85509 __tmp85505)))) (declare (not safe)) - (cons __tmp85515 __tmp85507)))) + (cons __tmp85512 __tmp85504)))) (declare (not safe)) (##unchecked-structure-set! - __obj84760 - __tmp85506 + __obj84757 + __tmp85503 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85518 - (let ((__tmp85527 - (let ((__tmp85528 |gx[1]#_g85529_|)) + (let ((__tmp85515 + (let ((__tmp85524 + (let ((__tmp85525 |gx[1]#_g85526_|)) (declare (not safe)) - (cons 'id __tmp85528))) - (__tmp85519 - (let ((__tmp85524 - (let ((__tmp85525 |gx[1]#_g85526_|)) + (cons 'id __tmp85525))) + (__tmp85516 + (let ((__tmp85521 + (let ((__tmp85522 |gx[1]#_g85523_|)) (declare (not safe)) - (cons 'key __tmp85525))) - (__tmp85520 - (let ((__tmp85521 - (let ((__tmp85522 |gx[1]#_g85523_|)) + (cons 'key __tmp85522))) + (__tmp85517 + (let ((__tmp85518 + (let ((__tmp85519 |gx[1]#_g85520_|)) (declare (not safe)) - (cons 'phi __tmp85522)))) + (cons 'phi __tmp85519)))) (declare (not safe)) - (cons __tmp85521 '())))) + (cons __tmp85518 '())))) (declare (not safe)) - (cons __tmp85524 __tmp85520)))) + (cons __tmp85521 __tmp85517)))) (declare (not safe)) - (cons __tmp85527 __tmp85519)))) + (cons __tmp85524 __tmp85516)))) (declare (not safe)) (##unchecked-structure-set! - __obj84760 - __tmp85518 + __obj84757 + __tmp85515 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85530 - (let ((__tmp85539 - (let ((__tmp85540 |gx[1]#_g85541_|)) + (let ((__tmp85527 + (let ((__tmp85536 + (let ((__tmp85537 |gx[1]#_g85538_|)) (declare (not safe)) - (cons 'id __tmp85540))) - (__tmp85531 - (let ((__tmp85536 - (let ((__tmp85537 |gx[1]#_g85538_|)) + (cons 'id __tmp85537))) + (__tmp85528 + (let ((__tmp85533 + (let ((__tmp85534 |gx[1]#_g85535_|)) (declare (not safe)) - (cons 'key __tmp85537))) - (__tmp85532 - (let ((__tmp85533 - (let ((__tmp85534 |gx[1]#_g85535_|)) + (cons 'key __tmp85534))) + (__tmp85529 + (let ((__tmp85530 + (let ((__tmp85531 |gx[1]#_g85532_|)) (declare (not safe)) - (cons 'phi __tmp85534)))) + (cons 'phi __tmp85531)))) (declare (not safe)) - (cons __tmp85533 '())))) + (cons __tmp85530 '())))) (declare (not safe)) - (cons __tmp85536 __tmp85532)))) + (cons __tmp85533 __tmp85529)))) (declare (not safe)) - (cons __tmp85539 __tmp85531)))) + (cons __tmp85536 __tmp85528)))) (declare (not safe)) (##unchecked-structure-set! - __obj84760 - __tmp85530 + __obj84757 + __tmp85527 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85542 - (let ((__tmp85551 - (let ((__tmp85552 |gx[1]#_g85553_|)) + (let ((__tmp85539 + (let ((__tmp85548 + (let ((__tmp85549 |gx[1]#_g85550_|)) (declare (not safe)) - (cons 'id __tmp85552))) - (__tmp85543 - (let ((__tmp85548 - (let ((__tmp85549 |gx[1]#_g85550_|)) + (cons 'id __tmp85549))) + (__tmp85540 + (let ((__tmp85545 + (let ((__tmp85546 |gx[1]#_g85547_|)) (declare (not safe)) - (cons 'key __tmp85549))) - (__tmp85544 - (let ((__tmp85545 - (let ((__tmp85546 |gx[1]#_g85547_|)) + (cons 'key __tmp85546))) + (__tmp85541 + (let ((__tmp85542 + (let ((__tmp85543 |gx[1]#_g85544_|)) (declare (not safe)) - (cons 'phi __tmp85546)))) + (cons 'phi __tmp85543)))) (declare (not safe)) - (cons __tmp85545 '())))) + (cons __tmp85542 '())))) (declare (not safe)) - (cons __tmp85548 __tmp85544)))) + (cons __tmp85545 __tmp85541)))) (declare (not safe)) - (cons __tmp85551 __tmp85543)))) + (cons __tmp85548 __tmp85540)))) (declare (not safe)) (##unchecked-structure-set! - __obj84760 - __tmp85542 + __obj84757 + __tmp85539 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84760)) + __obj84757)) (define |gx[:0:]#runtime-binding| - (let ((__obj84761 + (let ((__obj84758 (let () (declare (not safe)) (##structure @@ -5937,7 +5937,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84761 + __obj84758 '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! - __obj84761 + __obj84758 'runtime-binding '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5953,26 +5953,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84761 + __obj84758 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85554 - (let ((__tmp85555 |gx[1]#_g85556_|)) + (let ((__tmp85551 + (let ((__tmp85552 |gx[1]#_g85553_|)) (declare (not safe)) - (cons __tmp85555 '())))) + (cons __tmp85552 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84761 - __tmp85554 + __obj84758 + __tmp85551 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84761 + __obj84758 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5980,7 +5980,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84761 + __obj84758 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5988,7 +5988,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84761 + __obj84758 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5996,150 +5996,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84761 + __obj84758 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85557 |gx[1]#_g85558_|)) + (let ((__tmp85554 |gx[1]#_g85555_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84761 - __tmp85557 + __obj84758 + __tmp85554 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85559 |gx[1]#_g85560_|)) + (let ((__tmp85556 |gx[1]#_g85557_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84761 - __tmp85559 + __obj84758 + __tmp85556 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85561 |gx[1]#_g85562_|)) + (let ((__tmp85558 |gx[1]#_g85559_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84761 - __tmp85561 + __obj84758 + __tmp85558 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85563 - (let ((__tmp85572 - (let ((__tmp85573 |gx[1]#_g85574_|)) + (let ((__tmp85560 + (let ((__tmp85569 + (let ((__tmp85570 |gx[1]#_g85571_|)) (declare (not safe)) - (cons 'id __tmp85573))) - (__tmp85564 - (let ((__tmp85569 - (let ((__tmp85570 |gx[1]#_g85571_|)) + (cons 'id __tmp85570))) + (__tmp85561 + (let ((__tmp85566 + (let ((__tmp85567 |gx[1]#_g85568_|)) (declare (not safe)) - (cons 'key __tmp85570))) - (__tmp85565 - (let ((__tmp85566 - (let ((__tmp85567 |gx[1]#_g85568_|)) + (cons 'key __tmp85567))) + (__tmp85562 + (let ((__tmp85563 + (let ((__tmp85564 |gx[1]#_g85565_|)) (declare (not safe)) - (cons 'phi __tmp85567)))) + (cons 'phi __tmp85564)))) (declare (not safe)) - (cons __tmp85566 '())))) + (cons __tmp85563 '())))) (declare (not safe)) - (cons __tmp85569 __tmp85565)))) + (cons __tmp85566 __tmp85562)))) (declare (not safe)) - (cons __tmp85572 __tmp85564)))) + (cons __tmp85569 __tmp85561)))) (declare (not safe)) (##unchecked-structure-set! - __obj84761 - __tmp85563 + __obj84758 + __tmp85560 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85575 - (let ((__tmp85584 - (let ((__tmp85585 |gx[1]#_g85586_|)) + (let ((__tmp85572 + (let ((__tmp85581 + (let ((__tmp85582 |gx[1]#_g85583_|)) (declare (not safe)) - (cons 'id __tmp85585))) - (__tmp85576 - (let ((__tmp85581 - (let ((__tmp85582 |gx[1]#_g85583_|)) + (cons 'id __tmp85582))) + (__tmp85573 + (let ((__tmp85578 + (let ((__tmp85579 |gx[1]#_g85580_|)) (declare (not safe)) - (cons 'key __tmp85582))) - (__tmp85577 - (let ((__tmp85578 - (let ((__tmp85579 |gx[1]#_g85580_|)) + (cons 'key __tmp85579))) + (__tmp85574 + (let ((__tmp85575 + (let ((__tmp85576 |gx[1]#_g85577_|)) (declare (not safe)) - (cons 'phi __tmp85579)))) + (cons 'phi __tmp85576)))) (declare (not safe)) - (cons __tmp85578 '())))) + (cons __tmp85575 '())))) (declare (not safe)) - (cons __tmp85581 __tmp85577)))) + (cons __tmp85578 __tmp85574)))) (declare (not safe)) - (cons __tmp85584 __tmp85576)))) + (cons __tmp85581 __tmp85573)))) (declare (not safe)) (##unchecked-structure-set! - __obj84761 - __tmp85575 + __obj84758 + __tmp85572 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85587 - (let ((__tmp85596 - (let ((__tmp85597 |gx[1]#_g85598_|)) + (let ((__tmp85584 + (let ((__tmp85593 + (let ((__tmp85594 |gx[1]#_g85595_|)) (declare (not safe)) - (cons 'id __tmp85597))) - (__tmp85588 - (let ((__tmp85593 - (let ((__tmp85594 |gx[1]#_g85595_|)) + (cons 'id __tmp85594))) + (__tmp85585 + (let ((__tmp85590 + (let ((__tmp85591 |gx[1]#_g85592_|)) (declare (not safe)) - (cons 'key __tmp85594))) - (__tmp85589 - (let ((__tmp85590 - (let ((__tmp85591 |gx[1]#_g85592_|)) + (cons 'key __tmp85591))) + (__tmp85586 + (let ((__tmp85587 + (let ((__tmp85588 |gx[1]#_g85589_|)) (declare (not safe)) - (cons 'phi __tmp85591)))) + (cons 'phi __tmp85588)))) (declare (not safe)) - (cons __tmp85590 '())))) + (cons __tmp85587 '())))) (declare (not safe)) - (cons __tmp85593 __tmp85589)))) + (cons __tmp85590 __tmp85586)))) (declare (not safe)) - (cons __tmp85596 __tmp85588)))) + (cons __tmp85593 __tmp85585)))) (declare (not safe)) (##unchecked-structure-set! - __obj84761 - __tmp85587 + __obj84758 + __tmp85584 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85599 - (let ((__tmp85608 - (let ((__tmp85609 |gx[1]#_g85610_|)) + (let ((__tmp85596 + (let ((__tmp85605 + (let ((__tmp85606 |gx[1]#_g85607_|)) (declare (not safe)) - (cons 'id __tmp85609))) - (__tmp85600 - (let ((__tmp85605 - (let ((__tmp85606 |gx[1]#_g85607_|)) + (cons 'id __tmp85606))) + (__tmp85597 + (let ((__tmp85602 + (let ((__tmp85603 |gx[1]#_g85604_|)) (declare (not safe)) - (cons 'key __tmp85606))) - (__tmp85601 - (let ((__tmp85602 - (let ((__tmp85603 |gx[1]#_g85604_|)) + (cons 'key __tmp85603))) + (__tmp85598 + (let ((__tmp85599 + (let ((__tmp85600 |gx[1]#_g85601_|)) (declare (not safe)) - (cons 'phi __tmp85603)))) + (cons 'phi __tmp85600)))) (declare (not safe)) - (cons __tmp85602 '())))) + (cons __tmp85599 '())))) (declare (not safe)) - (cons __tmp85605 __tmp85601)))) + (cons __tmp85602 __tmp85598)))) (declare (not safe)) - (cons __tmp85608 __tmp85600)))) + (cons __tmp85605 __tmp85597)))) (declare (not safe)) (##unchecked-structure-set! - __obj84761 - __tmp85599 + __obj84758 + __tmp85596 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84761)) + __obj84758)) (define |gx[:0:]#local-binding| - (let ((__obj84762 + (let ((__obj84759 (let () (declare (not safe)) (##structure @@ -6162,7 +6162,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84762 + __obj84759 '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! - __obj84762 + __obj84759 'local-binding '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6178,26 +6178,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84762 + __obj84759 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85611 - (let ((__tmp85612 |gx[1]#_g85613_|)) + (let ((__tmp85608 + (let ((__tmp85609 |gx[1]#_g85610_|)) (declare (not safe)) - (cons __tmp85612 '())))) + (cons __tmp85609 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84762 - __tmp85611 + __obj84759 + __tmp85608 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84762 + __obj84759 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6205,7 +6205,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84762 + __obj84759 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6213,7 +6213,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84762 + __obj84759 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6221,150 +6221,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84762 + __obj84759 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85614 |gx[1]#_g85615_|)) + (let ((__tmp85611 |gx[1]#_g85612_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84762 - __tmp85614 + __obj84759 + __tmp85611 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85616 |gx[1]#_g85617_|)) + (let ((__tmp85613 |gx[1]#_g85614_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84762 - __tmp85616 + __obj84759 + __tmp85613 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85618 |gx[1]#_g85619_|)) + (let ((__tmp85615 |gx[1]#_g85616_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84762 - __tmp85618 + __obj84759 + __tmp85615 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85620 - (let ((__tmp85629 - (let ((__tmp85630 |gx[1]#_g85631_|)) + (let ((__tmp85617 + (let ((__tmp85626 + (let ((__tmp85627 |gx[1]#_g85628_|)) (declare (not safe)) - (cons 'id __tmp85630))) - (__tmp85621 - (let ((__tmp85626 - (let ((__tmp85627 |gx[1]#_g85628_|)) + (cons 'id __tmp85627))) + (__tmp85618 + (let ((__tmp85623 + (let ((__tmp85624 |gx[1]#_g85625_|)) (declare (not safe)) - (cons 'key __tmp85627))) - (__tmp85622 - (let ((__tmp85623 - (let ((__tmp85624 |gx[1]#_g85625_|)) + (cons 'key __tmp85624))) + (__tmp85619 + (let ((__tmp85620 + (let ((__tmp85621 |gx[1]#_g85622_|)) (declare (not safe)) - (cons 'phi __tmp85624)))) + (cons 'phi __tmp85621)))) (declare (not safe)) - (cons __tmp85623 '())))) + (cons __tmp85620 '())))) (declare (not safe)) - (cons __tmp85626 __tmp85622)))) + (cons __tmp85623 __tmp85619)))) (declare (not safe)) - (cons __tmp85629 __tmp85621)))) + (cons __tmp85626 __tmp85618)))) (declare (not safe)) (##unchecked-structure-set! - __obj84762 - __tmp85620 + __obj84759 + __tmp85617 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85632 - (let ((__tmp85641 - (let ((__tmp85642 |gx[1]#_g85643_|)) + (let ((__tmp85629 + (let ((__tmp85638 + (let ((__tmp85639 |gx[1]#_g85640_|)) (declare (not safe)) - (cons 'id __tmp85642))) - (__tmp85633 - (let ((__tmp85638 - (let ((__tmp85639 |gx[1]#_g85640_|)) + (cons 'id __tmp85639))) + (__tmp85630 + (let ((__tmp85635 + (let ((__tmp85636 |gx[1]#_g85637_|)) (declare (not safe)) - (cons 'key __tmp85639))) - (__tmp85634 - (let ((__tmp85635 - (let ((__tmp85636 |gx[1]#_g85637_|)) + (cons 'key __tmp85636))) + (__tmp85631 + (let ((__tmp85632 + (let ((__tmp85633 |gx[1]#_g85634_|)) (declare (not safe)) - (cons 'phi __tmp85636)))) + (cons 'phi __tmp85633)))) (declare (not safe)) - (cons __tmp85635 '())))) + (cons __tmp85632 '())))) (declare (not safe)) - (cons __tmp85638 __tmp85634)))) + (cons __tmp85635 __tmp85631)))) (declare (not safe)) - (cons __tmp85641 __tmp85633)))) + (cons __tmp85638 __tmp85630)))) (declare (not safe)) (##unchecked-structure-set! - __obj84762 - __tmp85632 + __obj84759 + __tmp85629 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85644 - (let ((__tmp85653 - (let ((__tmp85654 |gx[1]#_g85655_|)) + (let ((__tmp85641 + (let ((__tmp85650 + (let ((__tmp85651 |gx[1]#_g85652_|)) (declare (not safe)) - (cons 'id __tmp85654))) - (__tmp85645 - (let ((__tmp85650 - (let ((__tmp85651 |gx[1]#_g85652_|)) + (cons 'id __tmp85651))) + (__tmp85642 + (let ((__tmp85647 + (let ((__tmp85648 |gx[1]#_g85649_|)) (declare (not safe)) - (cons 'key __tmp85651))) - (__tmp85646 - (let ((__tmp85647 - (let ((__tmp85648 |gx[1]#_g85649_|)) + (cons 'key __tmp85648))) + (__tmp85643 + (let ((__tmp85644 + (let ((__tmp85645 |gx[1]#_g85646_|)) (declare (not safe)) - (cons 'phi __tmp85648)))) + (cons 'phi __tmp85645)))) (declare (not safe)) - (cons __tmp85647 '())))) + (cons __tmp85644 '())))) (declare (not safe)) - (cons __tmp85650 __tmp85646)))) + (cons __tmp85647 __tmp85643)))) (declare (not safe)) - (cons __tmp85653 __tmp85645)))) + (cons __tmp85650 __tmp85642)))) (declare (not safe)) (##unchecked-structure-set! - __obj84762 - __tmp85644 + __obj84759 + __tmp85641 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85656 - (let ((__tmp85665 - (let ((__tmp85666 |gx[1]#_g85667_|)) + (let ((__tmp85653 + (let ((__tmp85662 + (let ((__tmp85663 |gx[1]#_g85664_|)) (declare (not safe)) - (cons 'id __tmp85666))) - (__tmp85657 - (let ((__tmp85662 - (let ((__tmp85663 |gx[1]#_g85664_|)) + (cons 'id __tmp85663))) + (__tmp85654 + (let ((__tmp85659 + (let ((__tmp85660 |gx[1]#_g85661_|)) (declare (not safe)) - (cons 'key __tmp85663))) - (__tmp85658 - (let ((__tmp85659 - (let ((__tmp85660 |gx[1]#_g85661_|)) + (cons 'key __tmp85660))) + (__tmp85655 + (let ((__tmp85656 + (let ((__tmp85657 |gx[1]#_g85658_|)) (declare (not safe)) - (cons 'phi __tmp85660)))) + (cons 'phi __tmp85657)))) (declare (not safe)) - (cons __tmp85659 '())))) + (cons __tmp85656 '())))) (declare (not safe)) - (cons __tmp85662 __tmp85658)))) + (cons __tmp85659 __tmp85655)))) (declare (not safe)) - (cons __tmp85665 __tmp85657)))) + (cons __tmp85662 __tmp85654)))) (declare (not safe)) (##unchecked-structure-set! - __obj84762 - __tmp85656 + __obj84759 + __tmp85653 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84762)) + __obj84759)) (define |gx[:0:]#top-binding| - (let ((__obj84763 + (let ((__obj84760 (let () (declare (not safe)) (##structure @@ -6387,7 +6387,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84763 + __obj84760 '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! - __obj84763 + __obj84760 'top-binding '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6403,26 +6403,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84763 + __obj84760 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85668 - (let ((__tmp85669 |gx[1]#_g85613_|)) + (let ((__tmp85665 + (let ((__tmp85666 |gx[1]#_g85610_|)) (declare (not safe)) - (cons __tmp85669 '())))) + (cons __tmp85666 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84763 - __tmp85668 + __obj84760 + __tmp85665 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84763 + __obj84760 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6430,7 +6430,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84763 + __obj84760 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6438,7 +6438,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84763 + __obj84760 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6446,150 +6446,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84763 + __obj84760 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85670 |gx[1]#_g85671_|)) + (let ((__tmp85667 |gx[1]#_g85668_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84763 - __tmp85670 + __obj84760 + __tmp85667 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85672 |gx[1]#_g85673_|)) + (let ((__tmp85669 |gx[1]#_g85670_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84763 - __tmp85672 + __obj84760 + __tmp85669 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85674 |gx[1]#_g85675_|)) + (let ((__tmp85671 |gx[1]#_g85672_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84763 - __tmp85674 + __obj84760 + __tmp85671 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85676 - (let ((__tmp85685 - (let ((__tmp85686 |gx[1]#_g85687_|)) + (let ((__tmp85673 + (let ((__tmp85682 + (let ((__tmp85683 |gx[1]#_g85684_|)) (declare (not safe)) - (cons 'id __tmp85686))) - (__tmp85677 - (let ((__tmp85682 - (let ((__tmp85683 |gx[1]#_g85684_|)) + (cons 'id __tmp85683))) + (__tmp85674 + (let ((__tmp85679 + (let ((__tmp85680 |gx[1]#_g85681_|)) (declare (not safe)) - (cons 'key __tmp85683))) - (__tmp85678 - (let ((__tmp85679 - (let ((__tmp85680 |gx[1]#_g85681_|)) + (cons 'key __tmp85680))) + (__tmp85675 + (let ((__tmp85676 + (let ((__tmp85677 |gx[1]#_g85678_|)) (declare (not safe)) - (cons 'phi __tmp85680)))) + (cons 'phi __tmp85677)))) (declare (not safe)) - (cons __tmp85679 '())))) + (cons __tmp85676 '())))) (declare (not safe)) - (cons __tmp85682 __tmp85678)))) + (cons __tmp85679 __tmp85675)))) (declare (not safe)) - (cons __tmp85685 __tmp85677)))) + (cons __tmp85682 __tmp85674)))) (declare (not safe)) (##unchecked-structure-set! - __obj84763 - __tmp85676 + __obj84760 + __tmp85673 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85688 - (let ((__tmp85697 - (let ((__tmp85698 |gx[1]#_g85699_|)) + (let ((__tmp85685 + (let ((__tmp85694 + (let ((__tmp85695 |gx[1]#_g85696_|)) (declare (not safe)) - (cons 'id __tmp85698))) - (__tmp85689 - (let ((__tmp85694 - (let ((__tmp85695 |gx[1]#_g85696_|)) + (cons 'id __tmp85695))) + (__tmp85686 + (let ((__tmp85691 + (let ((__tmp85692 |gx[1]#_g85693_|)) (declare (not safe)) - (cons 'key __tmp85695))) - (__tmp85690 - (let ((__tmp85691 - (let ((__tmp85692 |gx[1]#_g85693_|)) + (cons 'key __tmp85692))) + (__tmp85687 + (let ((__tmp85688 + (let ((__tmp85689 |gx[1]#_g85690_|)) (declare (not safe)) - (cons 'phi __tmp85692)))) + (cons 'phi __tmp85689)))) (declare (not safe)) - (cons __tmp85691 '())))) + (cons __tmp85688 '())))) (declare (not safe)) - (cons __tmp85694 __tmp85690)))) + (cons __tmp85691 __tmp85687)))) (declare (not safe)) - (cons __tmp85697 __tmp85689)))) + (cons __tmp85694 __tmp85686)))) (declare (not safe)) (##unchecked-structure-set! - __obj84763 - __tmp85688 + __obj84760 + __tmp85685 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85700 - (let ((__tmp85709 - (let ((__tmp85710 |gx[1]#_g85711_|)) + (let ((__tmp85697 + (let ((__tmp85706 + (let ((__tmp85707 |gx[1]#_g85708_|)) (declare (not safe)) - (cons 'id __tmp85710))) - (__tmp85701 - (let ((__tmp85706 - (let ((__tmp85707 |gx[1]#_g85708_|)) + (cons 'id __tmp85707))) + (__tmp85698 + (let ((__tmp85703 + (let ((__tmp85704 |gx[1]#_g85705_|)) (declare (not safe)) - (cons 'key __tmp85707))) - (__tmp85702 - (let ((__tmp85703 - (let ((__tmp85704 |gx[1]#_g85705_|)) + (cons 'key __tmp85704))) + (__tmp85699 + (let ((__tmp85700 + (let ((__tmp85701 |gx[1]#_g85702_|)) (declare (not safe)) - (cons 'phi __tmp85704)))) + (cons 'phi __tmp85701)))) (declare (not safe)) - (cons __tmp85703 '())))) + (cons __tmp85700 '())))) (declare (not safe)) - (cons __tmp85706 __tmp85702)))) + (cons __tmp85703 __tmp85699)))) (declare (not safe)) - (cons __tmp85709 __tmp85701)))) + (cons __tmp85706 __tmp85698)))) (declare (not safe)) (##unchecked-structure-set! - __obj84763 - __tmp85700 + __obj84760 + __tmp85697 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85712 - (let ((__tmp85721 - (let ((__tmp85722 |gx[1]#_g85723_|)) + (let ((__tmp85709 + (let ((__tmp85718 + (let ((__tmp85719 |gx[1]#_g85720_|)) (declare (not safe)) - (cons 'id __tmp85722))) - (__tmp85713 - (let ((__tmp85718 - (let ((__tmp85719 |gx[1]#_g85720_|)) + (cons 'id __tmp85719))) + (__tmp85710 + (let ((__tmp85715 + (let ((__tmp85716 |gx[1]#_g85717_|)) (declare (not safe)) - (cons 'key __tmp85719))) - (__tmp85714 - (let ((__tmp85715 - (let ((__tmp85716 |gx[1]#_g85717_|)) + (cons 'key __tmp85716))) + (__tmp85711 + (let ((__tmp85712 + (let ((__tmp85713 |gx[1]#_g85714_|)) (declare (not safe)) - (cons 'phi __tmp85716)))) + (cons 'phi __tmp85713)))) (declare (not safe)) - (cons __tmp85715 '())))) + (cons __tmp85712 '())))) (declare (not safe)) - (cons __tmp85718 __tmp85714)))) + (cons __tmp85715 __tmp85711)))) (declare (not safe)) - (cons __tmp85721 __tmp85713)))) + (cons __tmp85718 __tmp85710)))) (declare (not safe)) (##unchecked-structure-set! - __obj84763 - __tmp85712 + __obj84760 + __tmp85709 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84763)) + __obj84760)) (define |gx[:0:]#module-binding| - (let ((__obj84764 + (let ((__obj84761 (let () (declare (not safe)) (##structure @@ -6612,7 +6612,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84764 + __obj84761 '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! - __obj84764 + __obj84761 'module-binding '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6628,26 +6628,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84764 + __obj84761 '(context) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85724 - (let ((__tmp85725 |gx[1]#_g85726_|)) + (let ((__tmp85721 + (let ((__tmp85722 |gx[1]#_g85723_|)) (declare (not safe)) - (cons __tmp85725 '())))) + (cons __tmp85722 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84764 - __tmp85724 + __obj84761 + __tmp85721 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84764 + __obj84761 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6655,7 +6655,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84764 + __obj84761 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6663,7 +6663,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84764 + __obj84761 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6671,178 +6671,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84764 + __obj84761 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85727 |gx[1]#_g85728_|)) + (let ((__tmp85724 |gx[1]#_g85725_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84764 - __tmp85727 + __obj84761 + __tmp85724 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85729 |gx[1]#_g85730_|)) + (let ((__tmp85726 |gx[1]#_g85727_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84764 - __tmp85729 + __obj84761 + __tmp85726 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85731 |gx[1]#_g85732_|)) + (let ((__tmp85728 |gx[1]#_g85729_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84764 - __tmp85731 + __obj84761 + __tmp85728 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85733 - (let ((__tmp85746 - (let ((__tmp85747 |gx[1]#_g85748_|)) + (let ((__tmp85730 + (let ((__tmp85743 + (let ((__tmp85744 |gx[1]#_g85745_|)) (declare (not safe)) - (cons 'context __tmp85747))) - (__tmp85734 - (let ((__tmp85743 - (let ((__tmp85744 |gx[1]#_g85745_|)) + (cons 'context __tmp85744))) + (__tmp85731 + (let ((__tmp85740 + (let ((__tmp85741 |gx[1]#_g85742_|)) (declare (not safe)) - (cons 'id __tmp85744))) - (__tmp85735 - (let ((__tmp85740 - (let ((__tmp85741 |gx[1]#_g85742_|)) + (cons 'id __tmp85741))) + (__tmp85732 + (let ((__tmp85737 + (let ((__tmp85738 |gx[1]#_g85739_|)) (declare (not safe)) - (cons 'key __tmp85741))) - (__tmp85736 - (let ((__tmp85737 - (let ((__tmp85738 |gx[1]#_g85739_|)) + (cons 'key __tmp85738))) + (__tmp85733 + (let ((__tmp85734 + (let ((__tmp85735 |gx[1]#_g85736_|)) (declare (not safe)) - (cons 'phi __tmp85738)))) + (cons 'phi __tmp85735)))) (declare (not safe)) - (cons __tmp85737 '())))) + (cons __tmp85734 '())))) (declare (not safe)) - (cons __tmp85740 __tmp85736)))) + (cons __tmp85737 __tmp85733)))) (declare (not safe)) - (cons __tmp85743 __tmp85735)))) + (cons __tmp85740 __tmp85732)))) (declare (not safe)) - (cons __tmp85746 __tmp85734)))) + (cons __tmp85743 __tmp85731)))) (declare (not safe)) (##unchecked-structure-set! - __obj84764 - __tmp85733 + __obj84761 + __tmp85730 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85749 - (let ((__tmp85762 - (let ((__tmp85763 |gx[1]#_g85764_|)) + (let ((__tmp85746 + (let ((__tmp85759 + (let ((__tmp85760 |gx[1]#_g85761_|)) (declare (not safe)) - (cons 'context __tmp85763))) - (__tmp85750 - (let ((__tmp85759 - (let ((__tmp85760 |gx[1]#_g85761_|)) + (cons 'context __tmp85760))) + (__tmp85747 + (let ((__tmp85756 + (let ((__tmp85757 |gx[1]#_g85758_|)) (declare (not safe)) - (cons 'id __tmp85760))) - (__tmp85751 - (let ((__tmp85756 - (let ((__tmp85757 |gx[1]#_g85758_|)) + (cons 'id __tmp85757))) + (__tmp85748 + (let ((__tmp85753 + (let ((__tmp85754 |gx[1]#_g85755_|)) (declare (not safe)) - (cons 'key __tmp85757))) - (__tmp85752 - (let ((__tmp85753 - (let ((__tmp85754 |gx[1]#_g85755_|)) + (cons 'key __tmp85754))) + (__tmp85749 + (let ((__tmp85750 + (let ((__tmp85751 |gx[1]#_g85752_|)) (declare (not safe)) - (cons 'phi __tmp85754)))) + (cons 'phi __tmp85751)))) (declare (not safe)) - (cons __tmp85753 '())))) + (cons __tmp85750 '())))) (declare (not safe)) - (cons __tmp85756 __tmp85752)))) + (cons __tmp85753 __tmp85749)))) (declare (not safe)) - (cons __tmp85759 __tmp85751)))) + (cons __tmp85756 __tmp85748)))) (declare (not safe)) - (cons __tmp85762 __tmp85750)))) + (cons __tmp85759 __tmp85747)))) (declare (not safe)) (##unchecked-structure-set! - __obj84764 - __tmp85749 + __obj84761 + __tmp85746 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85765 - (let ((__tmp85778 - (let ((__tmp85779 |gx[1]#_g85780_|)) + (let ((__tmp85762 + (let ((__tmp85775 + (let ((__tmp85776 |gx[1]#_g85777_|)) (declare (not safe)) - (cons 'context __tmp85779))) - (__tmp85766 - (let ((__tmp85775 - (let ((__tmp85776 |gx[1]#_g85777_|)) + (cons 'context __tmp85776))) + (__tmp85763 + (let ((__tmp85772 + (let ((__tmp85773 |gx[1]#_g85774_|)) (declare (not safe)) - (cons 'id __tmp85776))) - (__tmp85767 - (let ((__tmp85772 - (let ((__tmp85773 |gx[1]#_g85774_|)) + (cons 'id __tmp85773))) + (__tmp85764 + (let ((__tmp85769 + (let ((__tmp85770 |gx[1]#_g85771_|)) (declare (not safe)) - (cons 'key __tmp85773))) - (__tmp85768 - (let ((__tmp85769 - (let ((__tmp85770 |gx[1]#_g85771_|)) + (cons 'key __tmp85770))) + (__tmp85765 + (let ((__tmp85766 + (let ((__tmp85767 |gx[1]#_g85768_|)) (declare (not safe)) - (cons 'phi __tmp85770)))) + (cons 'phi __tmp85767)))) (declare (not safe)) - (cons __tmp85769 '())))) + (cons __tmp85766 '())))) (declare (not safe)) - (cons __tmp85772 __tmp85768)))) + (cons __tmp85769 __tmp85765)))) (declare (not safe)) - (cons __tmp85775 __tmp85767)))) + (cons __tmp85772 __tmp85764)))) (declare (not safe)) - (cons __tmp85778 __tmp85766)))) + (cons __tmp85775 __tmp85763)))) (declare (not safe)) (##unchecked-structure-set! - __obj84764 - __tmp85765 + __obj84761 + __tmp85762 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85781 - (let ((__tmp85794 - (let ((__tmp85795 |gx[1]#_g85796_|)) + (let ((__tmp85778 + (let ((__tmp85791 + (let ((__tmp85792 |gx[1]#_g85793_|)) (declare (not safe)) - (cons 'context __tmp85795))) - (__tmp85782 - (let ((__tmp85791 - (let ((__tmp85792 |gx[1]#_g85793_|)) + (cons 'context __tmp85792))) + (__tmp85779 + (let ((__tmp85788 + (let ((__tmp85789 |gx[1]#_g85790_|)) (declare (not safe)) - (cons 'id __tmp85792))) - (__tmp85783 - (let ((__tmp85788 - (let ((__tmp85789 |gx[1]#_g85790_|)) + (cons 'id __tmp85789))) + (__tmp85780 + (let ((__tmp85785 + (let ((__tmp85786 |gx[1]#_g85787_|)) (declare (not safe)) - (cons 'key __tmp85789))) - (__tmp85784 - (let ((__tmp85785 - (let ((__tmp85786 |gx[1]#_g85787_|)) + (cons 'key __tmp85786))) + (__tmp85781 + (let ((__tmp85782 + (let ((__tmp85783 |gx[1]#_g85784_|)) (declare (not safe)) - (cons 'phi __tmp85786)))) + (cons 'phi __tmp85783)))) (declare (not safe)) - (cons __tmp85785 '())))) + (cons __tmp85782 '())))) (declare (not safe)) - (cons __tmp85788 __tmp85784)))) + (cons __tmp85785 __tmp85781)))) (declare (not safe)) - (cons __tmp85791 __tmp85783)))) + (cons __tmp85788 __tmp85780)))) (declare (not safe)) - (cons __tmp85794 __tmp85782)))) + (cons __tmp85791 __tmp85779)))) (declare (not safe)) (##unchecked-structure-set! - __obj84764 - __tmp85781 + __obj84761 + __tmp85778 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84764)) + __obj84761)) (define |gx[:0:]#extern-binding| - (let ((__obj84765 + (let ((__obj84762 (let () (declare (not safe)) (##structure @@ -6865,7 +6865,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84765 + __obj84762 '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! - __obj84765 + __obj84762 'extern-binding '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6881,26 +6881,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84765 + __obj84762 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85797 - (let ((__tmp85798 |gx[1]#_g85726_|)) + (let ((__tmp85794 + (let ((__tmp85795 |gx[1]#_g85723_|)) (declare (not safe)) - (cons __tmp85798 '())))) + (cons __tmp85795 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84765 - __tmp85797 + __obj84762 + __tmp85794 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84765 + __obj84762 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6908,7 +6908,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84765 + __obj84762 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6916,7 +6916,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84765 + __obj84762 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6924,150 +6924,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84765 + __obj84762 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85799 |gx[1]#_g85800_|)) + (let ((__tmp85796 |gx[1]#_g85797_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84765 - __tmp85799 + __obj84762 + __tmp85796 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85801 |gx[1]#_g85802_|)) + (let ((__tmp85798 |gx[1]#_g85799_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84765 - __tmp85801 + __obj84762 + __tmp85798 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85803 |gx[1]#_g85804_|)) + (let ((__tmp85800 |gx[1]#_g85801_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84765 - __tmp85803 + __obj84762 + __tmp85800 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85805 - (let ((__tmp85814 - (let ((__tmp85815 |gx[1]#_g85816_|)) + (let ((__tmp85802 + (let ((__tmp85811 + (let ((__tmp85812 |gx[1]#_g85813_|)) (declare (not safe)) - (cons 'id __tmp85815))) - (__tmp85806 - (let ((__tmp85811 - (let ((__tmp85812 |gx[1]#_g85813_|)) + (cons 'id __tmp85812))) + (__tmp85803 + (let ((__tmp85808 + (let ((__tmp85809 |gx[1]#_g85810_|)) (declare (not safe)) - (cons 'key __tmp85812))) - (__tmp85807 - (let ((__tmp85808 - (let ((__tmp85809 |gx[1]#_g85810_|)) + (cons 'key __tmp85809))) + (__tmp85804 + (let ((__tmp85805 + (let ((__tmp85806 |gx[1]#_g85807_|)) (declare (not safe)) - (cons 'phi __tmp85809)))) + (cons 'phi __tmp85806)))) (declare (not safe)) - (cons __tmp85808 '())))) + (cons __tmp85805 '())))) (declare (not safe)) - (cons __tmp85811 __tmp85807)))) + (cons __tmp85808 __tmp85804)))) (declare (not safe)) - (cons __tmp85814 __tmp85806)))) + (cons __tmp85811 __tmp85803)))) (declare (not safe)) (##unchecked-structure-set! - __obj84765 - __tmp85805 + __obj84762 + __tmp85802 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85817 - (let ((__tmp85826 - (let ((__tmp85827 |gx[1]#_g85828_|)) + (let ((__tmp85814 + (let ((__tmp85823 + (let ((__tmp85824 |gx[1]#_g85825_|)) (declare (not safe)) - (cons 'id __tmp85827))) - (__tmp85818 - (let ((__tmp85823 - (let ((__tmp85824 |gx[1]#_g85825_|)) + (cons 'id __tmp85824))) + (__tmp85815 + (let ((__tmp85820 + (let ((__tmp85821 |gx[1]#_g85822_|)) (declare (not safe)) - (cons 'key __tmp85824))) - (__tmp85819 - (let ((__tmp85820 - (let ((__tmp85821 |gx[1]#_g85822_|)) + (cons 'key __tmp85821))) + (__tmp85816 + (let ((__tmp85817 + (let ((__tmp85818 |gx[1]#_g85819_|)) (declare (not safe)) - (cons 'phi __tmp85821)))) + (cons 'phi __tmp85818)))) (declare (not safe)) - (cons __tmp85820 '())))) + (cons __tmp85817 '())))) (declare (not safe)) - (cons __tmp85823 __tmp85819)))) + (cons __tmp85820 __tmp85816)))) (declare (not safe)) - (cons __tmp85826 __tmp85818)))) + (cons __tmp85823 __tmp85815)))) (declare (not safe)) (##unchecked-structure-set! - __obj84765 - __tmp85817 + __obj84762 + __tmp85814 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85829 - (let ((__tmp85838 - (let ((__tmp85839 |gx[1]#_g85840_|)) + (let ((__tmp85826 + (let ((__tmp85835 + (let ((__tmp85836 |gx[1]#_g85837_|)) (declare (not safe)) - (cons 'id __tmp85839))) - (__tmp85830 - (let ((__tmp85835 - (let ((__tmp85836 |gx[1]#_g85837_|)) + (cons 'id __tmp85836))) + (__tmp85827 + (let ((__tmp85832 + (let ((__tmp85833 |gx[1]#_g85834_|)) (declare (not safe)) - (cons 'key __tmp85836))) - (__tmp85831 - (let ((__tmp85832 - (let ((__tmp85833 |gx[1]#_g85834_|)) + (cons 'key __tmp85833))) + (__tmp85828 + (let ((__tmp85829 + (let ((__tmp85830 |gx[1]#_g85831_|)) (declare (not safe)) - (cons 'phi __tmp85833)))) + (cons 'phi __tmp85830)))) (declare (not safe)) - (cons __tmp85832 '())))) + (cons __tmp85829 '())))) (declare (not safe)) - (cons __tmp85835 __tmp85831)))) + (cons __tmp85832 __tmp85828)))) (declare (not safe)) - (cons __tmp85838 __tmp85830)))) + (cons __tmp85835 __tmp85827)))) (declare (not safe)) (##unchecked-structure-set! - __obj84765 - __tmp85829 + __obj84762 + __tmp85826 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85841 - (let ((__tmp85850 - (let ((__tmp85851 |gx[1]#_g85852_|)) + (let ((__tmp85838 + (let ((__tmp85847 + (let ((__tmp85848 |gx[1]#_g85849_|)) (declare (not safe)) - (cons 'id __tmp85851))) - (__tmp85842 - (let ((__tmp85847 - (let ((__tmp85848 |gx[1]#_g85849_|)) + (cons 'id __tmp85848))) + (__tmp85839 + (let ((__tmp85844 + (let ((__tmp85845 |gx[1]#_g85846_|)) (declare (not safe)) - (cons 'key __tmp85848))) - (__tmp85843 - (let ((__tmp85844 - (let ((__tmp85845 |gx[1]#_g85846_|)) + (cons 'key __tmp85845))) + (__tmp85840 + (let ((__tmp85841 + (let ((__tmp85842 |gx[1]#_g85843_|)) (declare (not safe)) - (cons 'phi __tmp85845)))) + (cons 'phi __tmp85842)))) (declare (not safe)) - (cons __tmp85844 '())))) + (cons __tmp85841 '())))) (declare (not safe)) - (cons __tmp85847 __tmp85843)))) + (cons __tmp85844 __tmp85840)))) (declare (not safe)) - (cons __tmp85850 __tmp85842)))) + (cons __tmp85847 __tmp85839)))) (declare (not safe)) (##unchecked-structure-set! - __obj84765 - __tmp85841 + __obj84762 + __tmp85838 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84765)) + __obj84762)) (define |gx[:0:]#syntax-binding| - (let ((__obj84766 + (let ((__obj84763 (let () (declare (not safe)) (##structure @@ -7090,7 +7090,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84766 + __obj84763 '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! - __obj84766 + __obj84763 'syntax-binding '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7106,26 +7106,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84766 + __obj84763 '(e) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85853 - (let ((__tmp85854 |gx[1]#_g85556_|)) + (let ((__tmp85850 + (let ((__tmp85851 |gx[1]#_g85553_|)) (declare (not safe)) - (cons __tmp85854 '())))) + (cons __tmp85851 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84766 - __tmp85853 + __obj84763 + __tmp85850 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84766 + __obj84763 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7133,7 +7133,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84766 + __obj84763 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7141,7 +7141,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84766 + __obj84763 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7149,178 +7149,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84766 + __obj84763 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85855 |gx[1]#_g85856_|)) + (let ((__tmp85852 |gx[1]#_g85853_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84766 - __tmp85855 + __obj84763 + __tmp85852 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85857 |gx[1]#_g85858_|)) + (let ((__tmp85854 |gx[1]#_g85855_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84766 - __tmp85857 + __obj84763 + __tmp85854 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85859 |gx[1]#_g85860_|)) + (let ((__tmp85856 |gx[1]#_g85857_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84766 - __tmp85859 + __obj84763 + __tmp85856 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85861 - (let ((__tmp85874 - (let ((__tmp85875 |gx[1]#_g85876_|)) + (let ((__tmp85858 + (let ((__tmp85871 + (let ((__tmp85872 |gx[1]#_g85873_|)) (declare (not safe)) - (cons 'e __tmp85875))) - (__tmp85862 - (let ((__tmp85871 - (let ((__tmp85872 |gx[1]#_g85873_|)) + (cons 'e __tmp85872))) + (__tmp85859 + (let ((__tmp85868 + (let ((__tmp85869 |gx[1]#_g85870_|)) (declare (not safe)) - (cons 'id __tmp85872))) - (__tmp85863 - (let ((__tmp85868 - (let ((__tmp85869 |gx[1]#_g85870_|)) + (cons 'id __tmp85869))) + (__tmp85860 + (let ((__tmp85865 + (let ((__tmp85866 |gx[1]#_g85867_|)) (declare (not safe)) - (cons 'key __tmp85869))) - (__tmp85864 - (let ((__tmp85865 - (let ((__tmp85866 |gx[1]#_g85867_|)) + (cons 'key __tmp85866))) + (__tmp85861 + (let ((__tmp85862 + (let ((__tmp85863 |gx[1]#_g85864_|)) (declare (not safe)) - (cons 'phi __tmp85866)))) + (cons 'phi __tmp85863)))) (declare (not safe)) - (cons __tmp85865 '())))) + (cons __tmp85862 '())))) (declare (not safe)) - (cons __tmp85868 __tmp85864)))) + (cons __tmp85865 __tmp85861)))) (declare (not safe)) - (cons __tmp85871 __tmp85863)))) + (cons __tmp85868 __tmp85860)))) (declare (not safe)) - (cons __tmp85874 __tmp85862)))) + (cons __tmp85871 __tmp85859)))) (declare (not safe)) (##unchecked-structure-set! - __obj84766 - __tmp85861 + __obj84763 + __tmp85858 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85877 - (let ((__tmp85890 - (let ((__tmp85891 |gx[1]#_g85892_|)) + (let ((__tmp85874 + (let ((__tmp85887 + (let ((__tmp85888 |gx[1]#_g85889_|)) (declare (not safe)) - (cons 'e __tmp85891))) - (__tmp85878 - (let ((__tmp85887 - (let ((__tmp85888 |gx[1]#_g85889_|)) + (cons 'e __tmp85888))) + (__tmp85875 + (let ((__tmp85884 + (let ((__tmp85885 |gx[1]#_g85886_|)) (declare (not safe)) - (cons 'id __tmp85888))) - (__tmp85879 - (let ((__tmp85884 - (let ((__tmp85885 |gx[1]#_g85886_|)) + (cons 'id __tmp85885))) + (__tmp85876 + (let ((__tmp85881 + (let ((__tmp85882 |gx[1]#_g85883_|)) (declare (not safe)) - (cons 'key __tmp85885))) - (__tmp85880 - (let ((__tmp85881 - (let ((__tmp85882 |gx[1]#_g85883_|)) + (cons 'key __tmp85882))) + (__tmp85877 + (let ((__tmp85878 + (let ((__tmp85879 |gx[1]#_g85880_|)) (declare (not safe)) - (cons 'phi __tmp85882)))) + (cons 'phi __tmp85879)))) (declare (not safe)) - (cons __tmp85881 '())))) + (cons __tmp85878 '())))) (declare (not safe)) - (cons __tmp85884 __tmp85880)))) + (cons __tmp85881 __tmp85877)))) (declare (not safe)) - (cons __tmp85887 __tmp85879)))) + (cons __tmp85884 __tmp85876)))) (declare (not safe)) - (cons __tmp85890 __tmp85878)))) + (cons __tmp85887 __tmp85875)))) (declare (not safe)) (##unchecked-structure-set! - __obj84766 - __tmp85877 + __obj84763 + __tmp85874 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85893 - (let ((__tmp85906 - (let ((__tmp85907 |gx[1]#_g85908_|)) + (let ((__tmp85890 + (let ((__tmp85903 + (let ((__tmp85904 |gx[1]#_g85905_|)) (declare (not safe)) - (cons 'e __tmp85907))) - (__tmp85894 - (let ((__tmp85903 - (let ((__tmp85904 |gx[1]#_g85905_|)) + (cons 'e __tmp85904))) + (__tmp85891 + (let ((__tmp85900 + (let ((__tmp85901 |gx[1]#_g85902_|)) (declare (not safe)) - (cons 'id __tmp85904))) - (__tmp85895 - (let ((__tmp85900 - (let ((__tmp85901 |gx[1]#_g85902_|)) + (cons 'id __tmp85901))) + (__tmp85892 + (let ((__tmp85897 + (let ((__tmp85898 |gx[1]#_g85899_|)) (declare (not safe)) - (cons 'key __tmp85901))) - (__tmp85896 - (let ((__tmp85897 - (let ((__tmp85898 |gx[1]#_g85899_|)) + (cons 'key __tmp85898))) + (__tmp85893 + (let ((__tmp85894 + (let ((__tmp85895 |gx[1]#_g85896_|)) (declare (not safe)) - (cons 'phi __tmp85898)))) + (cons 'phi __tmp85895)))) (declare (not safe)) - (cons __tmp85897 '())))) + (cons __tmp85894 '())))) (declare (not safe)) - (cons __tmp85900 __tmp85896)))) + (cons __tmp85897 __tmp85893)))) (declare (not safe)) - (cons __tmp85903 __tmp85895)))) + (cons __tmp85900 __tmp85892)))) (declare (not safe)) - (cons __tmp85906 __tmp85894)))) + (cons __tmp85903 __tmp85891)))) (declare (not safe)) (##unchecked-structure-set! - __obj84766 - __tmp85893 + __obj84763 + __tmp85890 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85909 - (let ((__tmp85922 - (let ((__tmp85923 |gx[1]#_g85924_|)) + (let ((__tmp85906 + (let ((__tmp85919 + (let ((__tmp85920 |gx[1]#_g85921_|)) (declare (not safe)) - (cons 'e __tmp85923))) - (__tmp85910 - (let ((__tmp85919 - (let ((__tmp85920 |gx[1]#_g85921_|)) + (cons 'e __tmp85920))) + (__tmp85907 + (let ((__tmp85916 + (let ((__tmp85917 |gx[1]#_g85918_|)) (declare (not safe)) - (cons 'id __tmp85920))) - (__tmp85911 - (let ((__tmp85916 - (let ((__tmp85917 |gx[1]#_g85918_|)) + (cons 'id __tmp85917))) + (__tmp85908 + (let ((__tmp85913 + (let ((__tmp85914 |gx[1]#_g85915_|)) (declare (not safe)) - (cons 'key __tmp85917))) - (__tmp85912 - (let ((__tmp85913 - (let ((__tmp85914 |gx[1]#_g85915_|)) + (cons 'key __tmp85914))) + (__tmp85909 + (let ((__tmp85910 + (let ((__tmp85911 |gx[1]#_g85912_|)) (declare (not safe)) - (cons 'phi __tmp85914)))) + (cons 'phi __tmp85911)))) (declare (not safe)) - (cons __tmp85913 '())))) + (cons __tmp85910 '())))) (declare (not safe)) - (cons __tmp85916 __tmp85912)))) + (cons __tmp85913 __tmp85909)))) (declare (not safe)) - (cons __tmp85919 __tmp85911)))) + (cons __tmp85916 __tmp85908)))) (declare (not safe)) - (cons __tmp85922 __tmp85910)))) + (cons __tmp85919 __tmp85907)))) (declare (not safe)) (##unchecked-structure-set! - __obj84766 - __tmp85909 + __obj84763 + __tmp85906 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84766)) + __obj84763)) (define |gx[:0:]#import-binding| - (let ((__obj84767 + (let ((__obj84764 (let () (declare (not safe)) (##structure @@ -7343,7 +7343,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84767 + __obj84764 '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! - __obj84767 + __obj84764 'import-binding '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7359,26 +7359,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84767 + __obj84764 '(e context weak?) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85925 - (let ((__tmp85926 |gx[1]#_g85556_|)) + (let ((__tmp85922 + (let ((__tmp85923 |gx[1]#_g85553_|)) (declare (not safe)) - (cons __tmp85926 '())))) + (cons __tmp85923 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84767 - __tmp85925 + __obj84764 + __tmp85922 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84767 + __obj84764 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7386,7 +7386,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84767 + __obj84764 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7394,7 +7394,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84767 + __obj84764 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7402,254 +7402,254 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84767 + __obj84764 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85927 |gx[1]#_g85928_|)) + (let ((__tmp85924 |gx[1]#_g85925_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84767 - __tmp85927 + __obj84764 + __tmp85924 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85929 |gx[1]#_g85930_|)) + (let ((__tmp85926 |gx[1]#_g85927_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84767 - __tmp85929 + __obj84764 + __tmp85926 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85931 |gx[1]#_g85932_|)) + (let ((__tmp85928 |gx[1]#_g85929_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84767 - __tmp85931 + __obj84764 + __tmp85928 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85933 - (let ((__tmp85954 - (let ((__tmp85955 |gx[1]#_g85956_|)) + (let ((__tmp85930 + (let ((__tmp85951 + (let ((__tmp85952 |gx[1]#_g85953_|)) (declare (not safe)) - (cons 'e __tmp85955))) - (__tmp85934 - (let ((__tmp85951 - (let ((__tmp85952 |gx[1]#_g85953_|)) + (cons 'e __tmp85952))) + (__tmp85931 + (let ((__tmp85948 + (let ((__tmp85949 |gx[1]#_g85950_|)) (declare (not safe)) - (cons 'context __tmp85952))) - (__tmp85935 - (let ((__tmp85948 - (let ((__tmp85949 |gx[1]#_g85950_|)) + (cons 'context __tmp85949))) + (__tmp85932 + (let ((__tmp85945 + (let ((__tmp85946 |gx[1]#_g85947_|)) (declare (not safe)) - (cons 'weak? __tmp85949))) - (__tmp85936 - (let ((__tmp85945 - (let ((__tmp85946 |gx[1]#_g85947_|)) + (cons 'weak? __tmp85946))) + (__tmp85933 + (let ((__tmp85942 + (let ((__tmp85943 |gx[1]#_g85944_|)) (declare (not safe)) - (cons 'id __tmp85946))) - (__tmp85937 - (let ((__tmp85942 - (let ((__tmp85943 - |gx[1]#_g85944_|)) + (cons 'id __tmp85943))) + (__tmp85934 + (let ((__tmp85939 + (let ((__tmp85940 + |gx[1]#_g85941_|)) (declare (not safe)) - (cons 'key __tmp85943))) - (__tmp85938 - (let ((__tmp85939 - (let ((__tmp85940 - |gx[1]#_g85941_|)) + (cons 'key __tmp85940))) + (__tmp85935 + (let ((__tmp85936 + (let ((__tmp85937 + |gx[1]#_g85938_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85940)))) + __tmp85937)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85939 '())))) + (cons __tmp85936 '())))) (declare (not safe)) - (cons __tmp85942 __tmp85938)))) + (cons __tmp85939 __tmp85935)))) (declare (not safe)) - (cons __tmp85945 __tmp85937)))) + (cons __tmp85942 __tmp85934)))) (declare (not safe)) - (cons __tmp85948 __tmp85936)))) + (cons __tmp85945 __tmp85933)))) (declare (not safe)) - (cons __tmp85951 __tmp85935)))) + (cons __tmp85948 __tmp85932)))) (declare (not safe)) - (cons __tmp85954 __tmp85934)))) + (cons __tmp85951 __tmp85931)))) (declare (not safe)) (##unchecked-structure-set! - __obj84767 - __tmp85933 + __obj84764 + __tmp85930 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85957 - (let ((__tmp85978 - (let ((__tmp85979 |gx[1]#_g85980_|)) + (let ((__tmp85954 + (let ((__tmp85975 + (let ((__tmp85976 |gx[1]#_g85977_|)) (declare (not safe)) - (cons 'e __tmp85979))) - (__tmp85958 - (let ((__tmp85975 - (let ((__tmp85976 |gx[1]#_g85977_|)) + (cons 'e __tmp85976))) + (__tmp85955 + (let ((__tmp85972 + (let ((__tmp85973 |gx[1]#_g85974_|)) (declare (not safe)) - (cons 'context __tmp85976))) - (__tmp85959 - (let ((__tmp85972 - (let ((__tmp85973 |gx[1]#_g85974_|)) + (cons 'context __tmp85973))) + (__tmp85956 + (let ((__tmp85969 + (let ((__tmp85970 |gx[1]#_g85971_|)) (declare (not safe)) - (cons 'weak? __tmp85973))) - (__tmp85960 - (let ((__tmp85969 - (let ((__tmp85970 |gx[1]#_g85971_|)) + (cons 'weak? __tmp85970))) + (__tmp85957 + (let ((__tmp85966 + (let ((__tmp85967 |gx[1]#_g85968_|)) (declare (not safe)) - (cons 'id __tmp85970))) - (__tmp85961 - (let ((__tmp85966 - (let ((__tmp85967 - |gx[1]#_g85968_|)) + (cons 'id __tmp85967))) + (__tmp85958 + (let ((__tmp85963 + (let ((__tmp85964 + |gx[1]#_g85965_|)) (declare (not safe)) - (cons 'key __tmp85967))) - (__tmp85962 - (let ((__tmp85963 - (let ((__tmp85964 - |gx[1]#_g85965_|)) + (cons 'key __tmp85964))) + (__tmp85959 + (let ((__tmp85960 + (let ((__tmp85961 + |gx[1]#_g85962_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85964)))) + __tmp85961)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85963 '())))) + (cons __tmp85960 '())))) (declare (not safe)) - (cons __tmp85966 __tmp85962)))) + (cons __tmp85963 __tmp85959)))) (declare (not safe)) - (cons __tmp85969 __tmp85961)))) + (cons __tmp85966 __tmp85958)))) (declare (not safe)) - (cons __tmp85972 __tmp85960)))) + (cons __tmp85969 __tmp85957)))) (declare (not safe)) - (cons __tmp85975 __tmp85959)))) + (cons __tmp85972 __tmp85956)))) (declare (not safe)) - (cons __tmp85978 __tmp85958)))) + (cons __tmp85975 __tmp85955)))) (declare (not safe)) (##unchecked-structure-set! - __obj84767 - __tmp85957 + __obj84764 + __tmp85954 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85981 - (let ((__tmp86002 - (let ((__tmp86003 |gx[1]#_g86004_|)) + (let ((__tmp85978 + (let ((__tmp85999 + (let ((__tmp86000 |gx[1]#_g86001_|)) (declare (not safe)) - (cons 'e __tmp86003))) - (__tmp85982 - (let ((__tmp85999 - (let ((__tmp86000 |gx[1]#_g86001_|)) + (cons 'e __tmp86000))) + (__tmp85979 + (let ((__tmp85996 + (let ((__tmp85997 |gx[1]#_g85998_|)) (declare (not safe)) - (cons 'context __tmp86000))) - (__tmp85983 - (let ((__tmp85996 - (let ((__tmp85997 |gx[1]#_g85998_|)) + (cons 'context __tmp85997))) + (__tmp85980 + (let ((__tmp85993 + (let ((__tmp85994 |gx[1]#_g85995_|)) (declare (not safe)) - (cons 'weak? __tmp85997))) - (__tmp85984 - (let ((__tmp85993 - (let ((__tmp85994 |gx[1]#_g85995_|)) + (cons 'weak? __tmp85994))) + (__tmp85981 + (let ((__tmp85990 + (let ((__tmp85991 |gx[1]#_g85992_|)) (declare (not safe)) - (cons 'id __tmp85994))) - (__tmp85985 - (let ((__tmp85990 - (let ((__tmp85991 - |gx[1]#_g85992_|)) + (cons 'id __tmp85991))) + (__tmp85982 + (let ((__tmp85987 + (let ((__tmp85988 + |gx[1]#_g85989_|)) (declare (not safe)) - (cons 'key __tmp85991))) - (__tmp85986 - (let ((__tmp85987 - (let ((__tmp85988 - |gx[1]#_g85989_|)) + (cons 'key __tmp85988))) + (__tmp85983 + (let ((__tmp85984 + (let ((__tmp85985 + |gx[1]#_g85986_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85988)))) + __tmp85985)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85987 '())))) + (cons __tmp85984 '())))) (declare (not safe)) - (cons __tmp85990 __tmp85986)))) + (cons __tmp85987 __tmp85983)))) (declare (not safe)) - (cons __tmp85993 __tmp85985)))) + (cons __tmp85990 __tmp85982)))) (declare (not safe)) - (cons __tmp85996 __tmp85984)))) + (cons __tmp85993 __tmp85981)))) (declare (not safe)) - (cons __tmp85999 __tmp85983)))) + (cons __tmp85996 __tmp85980)))) (declare (not safe)) - (cons __tmp86002 __tmp85982)))) + (cons __tmp85999 __tmp85979)))) (declare (not safe)) (##unchecked-structure-set! - __obj84767 - __tmp85981 + __obj84764 + __tmp85978 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86005 - (let ((__tmp86026 - (let ((__tmp86027 |gx[1]#_g86028_|)) + (let ((__tmp86002 + (let ((__tmp86023 + (let ((__tmp86024 |gx[1]#_g86025_|)) (declare (not safe)) - (cons 'e __tmp86027))) - (__tmp86006 - (let ((__tmp86023 - (let ((__tmp86024 |gx[1]#_g86025_|)) + (cons 'e __tmp86024))) + (__tmp86003 + (let ((__tmp86020 + (let ((__tmp86021 |gx[1]#_g86022_|)) (declare (not safe)) - (cons 'context __tmp86024))) - (__tmp86007 - (let ((__tmp86020 - (let ((__tmp86021 |gx[1]#_g86022_|)) + (cons 'context __tmp86021))) + (__tmp86004 + (let ((__tmp86017 + (let ((__tmp86018 |gx[1]#_g86019_|)) (declare (not safe)) - (cons 'weak? __tmp86021))) - (__tmp86008 - (let ((__tmp86017 - (let ((__tmp86018 |gx[1]#_g86019_|)) + (cons 'weak? __tmp86018))) + (__tmp86005 + (let ((__tmp86014 + (let ((__tmp86015 |gx[1]#_g86016_|)) (declare (not safe)) - (cons 'id __tmp86018))) - (__tmp86009 - (let ((__tmp86014 - (let ((__tmp86015 - |gx[1]#_g86016_|)) + (cons 'id __tmp86015))) + (__tmp86006 + (let ((__tmp86011 + (let ((__tmp86012 + |gx[1]#_g86013_|)) (declare (not safe)) - (cons 'key __tmp86015))) - (__tmp86010 - (let ((__tmp86011 - (let ((__tmp86012 - |gx[1]#_g86013_|)) + (cons 'key __tmp86012))) + (__tmp86007 + (let ((__tmp86008 + (let ((__tmp86009 + |gx[1]#_g86010_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp86012)))) + __tmp86009)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86011 '())))) + (cons __tmp86008 '())))) (declare (not safe)) - (cons __tmp86014 __tmp86010)))) + (cons __tmp86011 __tmp86007)))) (declare (not safe)) - (cons __tmp86017 __tmp86009)))) + (cons __tmp86014 __tmp86006)))) (declare (not safe)) - (cons __tmp86020 __tmp86008)))) + (cons __tmp86017 __tmp86005)))) (declare (not safe)) - (cons __tmp86023 __tmp86007)))) + (cons __tmp86020 __tmp86004)))) (declare (not safe)) - (cons __tmp86026 __tmp86006)))) + (cons __tmp86023 __tmp86003)))) (declare (not safe)) (##unchecked-structure-set! - __obj84767 - __tmp86005 + __obj84764 + __tmp86002 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84767)) + __obj84764)) (define |gx[:0:]#alias-binding| - (let ((__obj84768 + (let ((__obj84765 (let () (declare (not safe)) (##structure @@ -7672,7 +7672,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84768 + __obj84765 '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! - __obj84768 + __obj84765 'alias-binding '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7688,26 +7688,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84768 + __obj84765 '(e) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86029 - (let ((__tmp86030 |gx[1]#_g85556_|)) + (let ((__tmp86026 + (let ((__tmp86027 |gx[1]#_g85553_|)) (declare (not safe)) - (cons __tmp86030 '())))) + (cons __tmp86027 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84768 - __tmp86029 + __obj84765 + __tmp86026 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84768 + __obj84765 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7715,7 +7715,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84768 + __obj84765 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7723,7 +7723,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84768 + __obj84765 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7731,178 +7731,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84768 + __obj84765 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86031 |gx[1]#_g86032_|)) + (let ((__tmp86028 |gx[1]#_g86029_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84768 - __tmp86031 + __obj84765 + __tmp86028 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86033 |gx[1]#_g86034_|)) + (let ((__tmp86030 |gx[1]#_g86031_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84768 - __tmp86033 + __obj84765 + __tmp86030 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86035 |gx[1]#_g86036_|)) + (let ((__tmp86032 |gx[1]#_g86033_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84768 - __tmp86035 + __obj84765 + __tmp86032 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86037 - (let ((__tmp86050 - (let ((__tmp86051 |gx[1]#_g86052_|)) + (let ((__tmp86034 + (let ((__tmp86047 + (let ((__tmp86048 |gx[1]#_g86049_|)) (declare (not safe)) - (cons 'e __tmp86051))) - (__tmp86038 - (let ((__tmp86047 - (let ((__tmp86048 |gx[1]#_g86049_|)) + (cons 'e __tmp86048))) + (__tmp86035 + (let ((__tmp86044 + (let ((__tmp86045 |gx[1]#_g86046_|)) (declare (not safe)) - (cons 'id __tmp86048))) - (__tmp86039 - (let ((__tmp86044 - (let ((__tmp86045 |gx[1]#_g86046_|)) + (cons 'id __tmp86045))) + (__tmp86036 + (let ((__tmp86041 + (let ((__tmp86042 |gx[1]#_g86043_|)) (declare (not safe)) - (cons 'key __tmp86045))) - (__tmp86040 - (let ((__tmp86041 - (let ((__tmp86042 |gx[1]#_g86043_|)) + (cons 'key __tmp86042))) + (__tmp86037 + (let ((__tmp86038 + (let ((__tmp86039 |gx[1]#_g86040_|)) (declare (not safe)) - (cons 'phi __tmp86042)))) + (cons 'phi __tmp86039)))) (declare (not safe)) - (cons __tmp86041 '())))) + (cons __tmp86038 '())))) (declare (not safe)) - (cons __tmp86044 __tmp86040)))) + (cons __tmp86041 __tmp86037)))) (declare (not safe)) - (cons __tmp86047 __tmp86039)))) + (cons __tmp86044 __tmp86036)))) (declare (not safe)) - (cons __tmp86050 __tmp86038)))) + (cons __tmp86047 __tmp86035)))) (declare (not safe)) (##unchecked-structure-set! - __obj84768 - __tmp86037 + __obj84765 + __tmp86034 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86053 - (let ((__tmp86066 - (let ((__tmp86067 |gx[1]#_g86068_|)) + (let ((__tmp86050 + (let ((__tmp86063 + (let ((__tmp86064 |gx[1]#_g86065_|)) (declare (not safe)) - (cons 'e __tmp86067))) - (__tmp86054 - (let ((__tmp86063 - (let ((__tmp86064 |gx[1]#_g86065_|)) + (cons 'e __tmp86064))) + (__tmp86051 + (let ((__tmp86060 + (let ((__tmp86061 |gx[1]#_g86062_|)) (declare (not safe)) - (cons 'id __tmp86064))) - (__tmp86055 - (let ((__tmp86060 - (let ((__tmp86061 |gx[1]#_g86062_|)) + (cons 'id __tmp86061))) + (__tmp86052 + (let ((__tmp86057 + (let ((__tmp86058 |gx[1]#_g86059_|)) (declare (not safe)) - (cons 'key __tmp86061))) - (__tmp86056 - (let ((__tmp86057 - (let ((__tmp86058 |gx[1]#_g86059_|)) + (cons 'key __tmp86058))) + (__tmp86053 + (let ((__tmp86054 + (let ((__tmp86055 |gx[1]#_g86056_|)) (declare (not safe)) - (cons 'phi __tmp86058)))) + (cons 'phi __tmp86055)))) (declare (not safe)) - (cons __tmp86057 '())))) + (cons __tmp86054 '())))) (declare (not safe)) - (cons __tmp86060 __tmp86056)))) + (cons __tmp86057 __tmp86053)))) (declare (not safe)) - (cons __tmp86063 __tmp86055)))) + (cons __tmp86060 __tmp86052)))) (declare (not safe)) - (cons __tmp86066 __tmp86054)))) + (cons __tmp86063 __tmp86051)))) (declare (not safe)) (##unchecked-structure-set! - __obj84768 - __tmp86053 + __obj84765 + __tmp86050 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86069 - (let ((__tmp86082 - (let ((__tmp86083 |gx[1]#_g86084_|)) + (let ((__tmp86066 + (let ((__tmp86079 + (let ((__tmp86080 |gx[1]#_g86081_|)) (declare (not safe)) - (cons 'e __tmp86083))) - (__tmp86070 - (let ((__tmp86079 - (let ((__tmp86080 |gx[1]#_g86081_|)) + (cons 'e __tmp86080))) + (__tmp86067 + (let ((__tmp86076 + (let ((__tmp86077 |gx[1]#_g86078_|)) (declare (not safe)) - (cons 'id __tmp86080))) - (__tmp86071 - (let ((__tmp86076 - (let ((__tmp86077 |gx[1]#_g86078_|)) + (cons 'id __tmp86077))) + (__tmp86068 + (let ((__tmp86073 + (let ((__tmp86074 |gx[1]#_g86075_|)) (declare (not safe)) - (cons 'key __tmp86077))) - (__tmp86072 - (let ((__tmp86073 - (let ((__tmp86074 |gx[1]#_g86075_|)) + (cons 'key __tmp86074))) + (__tmp86069 + (let ((__tmp86070 + (let ((__tmp86071 |gx[1]#_g86072_|)) (declare (not safe)) - (cons 'phi __tmp86074)))) + (cons 'phi __tmp86071)))) (declare (not safe)) - (cons __tmp86073 '())))) + (cons __tmp86070 '())))) (declare (not safe)) - (cons __tmp86076 __tmp86072)))) + (cons __tmp86073 __tmp86069)))) (declare (not safe)) - (cons __tmp86079 __tmp86071)))) + (cons __tmp86076 __tmp86068)))) (declare (not safe)) - (cons __tmp86082 __tmp86070)))) + (cons __tmp86079 __tmp86067)))) (declare (not safe)) (##unchecked-structure-set! - __obj84768 - __tmp86069 + __obj84765 + __tmp86066 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86085 - (let ((__tmp86098 - (let ((__tmp86099 |gx[1]#_g86100_|)) + (let ((__tmp86082 + (let ((__tmp86095 + (let ((__tmp86096 |gx[1]#_g86097_|)) (declare (not safe)) - (cons 'e __tmp86099))) - (__tmp86086 - (let ((__tmp86095 - (let ((__tmp86096 |gx[1]#_g86097_|)) + (cons 'e __tmp86096))) + (__tmp86083 + (let ((__tmp86092 + (let ((__tmp86093 |gx[1]#_g86094_|)) (declare (not safe)) - (cons 'id __tmp86096))) - (__tmp86087 - (let ((__tmp86092 - (let ((__tmp86093 |gx[1]#_g86094_|)) + (cons 'id __tmp86093))) + (__tmp86084 + (let ((__tmp86089 + (let ((__tmp86090 |gx[1]#_g86091_|)) (declare (not safe)) - (cons 'key __tmp86093))) - (__tmp86088 - (let ((__tmp86089 - (let ((__tmp86090 |gx[1]#_g86091_|)) + (cons 'key __tmp86090))) + (__tmp86085 + (let ((__tmp86086 + (let ((__tmp86087 |gx[1]#_g86088_|)) (declare (not safe)) - (cons 'phi __tmp86090)))) + (cons 'phi __tmp86087)))) (declare (not safe)) - (cons __tmp86089 '())))) + (cons __tmp86086 '())))) (declare (not safe)) - (cons __tmp86092 __tmp86088)))) + (cons __tmp86089 __tmp86085)))) (declare (not safe)) - (cons __tmp86095 __tmp86087)))) + (cons __tmp86092 __tmp86084)))) (declare (not safe)) - (cons __tmp86098 __tmp86086)))) + (cons __tmp86095 __tmp86083)))) (declare (not safe)) (##unchecked-structure-set! - __obj84768 - __tmp86085 + __obj84765 + __tmp86082 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84768)) + __obj84765)) (define |gx[:0:]#expander| - (let ((__obj84769 + (let ((__obj84766 (let () (declare (not safe)) (##structure @@ -7925,7 +7925,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84769 + __obj84766 'gx#expander::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7933,7 +7933,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84769 + __obj84766 'expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7941,7 +7941,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84769 + __obj84766 '(e) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7949,7 +7949,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84769 + __obj84766 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7957,7 +7957,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84769 + __obj84766 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7965,7 +7965,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84769 + __obj84766 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7973,7 +7973,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84769 + __obj84766 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7981,94 +7981,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84769 + __obj84766 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86101 |gx[1]#_g86102_|)) + (let ((__tmp86098 |gx[1]#_g86099_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84769 - __tmp86101 + __obj84766 + __tmp86098 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86103 |gx[1]#_g86104_|)) + (let ((__tmp86100 |gx[1]#_g86101_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84769 - __tmp86103 + __obj84766 + __tmp86100 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86105 |gx[1]#_g86106_|)) + (let ((__tmp86102 |gx[1]#_g86103_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84769 - __tmp86105 + __obj84766 + __tmp86102 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86107 - (let ((__tmp86108 - (let ((__tmp86109 |gx[1]#_g86110_|)) + (let ((__tmp86104 + (let ((__tmp86105 + (let ((__tmp86106 |gx[1]#_g86107_|)) (declare (not safe)) - (cons 'e __tmp86109)))) + (cons 'e __tmp86106)))) (declare (not safe)) - (cons __tmp86108 '())))) + (cons __tmp86105 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84769 - __tmp86107 + __obj84766 + __tmp86104 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86111 - (let ((__tmp86112 - (let ((__tmp86113 |gx[1]#_g86114_|)) + (let ((__tmp86108 + (let ((__tmp86109 + (let ((__tmp86110 |gx[1]#_g86111_|)) (declare (not safe)) - (cons 'e __tmp86113)))) + (cons 'e __tmp86110)))) (declare (not safe)) - (cons __tmp86112 '())))) + (cons __tmp86109 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84769 - __tmp86111 + __obj84766 + __tmp86108 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86115 - (let ((__tmp86116 - (let ((__tmp86117 |gx[1]#_g86118_|)) + (let ((__tmp86112 + (let ((__tmp86113 + (let ((__tmp86114 |gx[1]#_g86115_|)) (declare (not safe)) - (cons 'e __tmp86117)))) + (cons 'e __tmp86114)))) (declare (not safe)) - (cons __tmp86116 '())))) + (cons __tmp86113 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84769 - __tmp86115 + __obj84766 + __tmp86112 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86119 - (let ((__tmp86120 - (let ((__tmp86121 |gx[1]#_g86122_|)) + (let ((__tmp86116 + (let ((__tmp86117 + (let ((__tmp86118 |gx[1]#_g86119_|)) (declare (not safe)) - (cons 'e __tmp86121)))) + (cons 'e __tmp86118)))) (declare (not safe)) - (cons __tmp86120 '())))) + (cons __tmp86117 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84769 - __tmp86119 + __obj84766 + __tmp86116 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84769)) + __obj84766)) (define |gx[:0:]#core-expander| - (let ((__obj84770 + (let ((__obj84767 (let () (declare (not safe)) (##structure @@ -8091,7 +8091,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84770 + __obj84767 '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! - __obj84770 + __obj84767 'core-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8107,26 +8107,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84770 + __obj84767 '(id compile-top) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86123 - (let ((__tmp86124 |gx[1]#_g86125_|)) + (let ((__tmp86120 + (let ((__tmp86121 |gx[1]#_g86122_|)) (declare (not safe)) - (cons __tmp86124 '())))) + (cons __tmp86121 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84770 - __tmp86123 + __obj84767 + __tmp86120 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84770 + __obj84767 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8134,7 +8134,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84770 + __obj84767 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8142,7 +8142,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84770 + __obj84767 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8150,150 +8150,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84770 + __obj84767 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86126 |gx[1]#_g86127_|)) + (let ((__tmp86123 |gx[1]#_g86124_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84770 - __tmp86126 + __obj84767 + __tmp86123 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86128 |gx[1]#_g86129_|)) + (let ((__tmp86125 |gx[1]#_g86126_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84770 - __tmp86128 + __obj84767 + __tmp86125 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86130 |gx[1]#_g86131_|)) + (let ((__tmp86127 |gx[1]#_g86128_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84770 - __tmp86130 + __obj84767 + __tmp86127 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86132 - (let ((__tmp86141 - (let ((__tmp86142 |gx[1]#_g86143_|)) + (let ((__tmp86129 + (let ((__tmp86138 + (let ((__tmp86139 |gx[1]#_g86140_|)) (declare (not safe)) - (cons 'id __tmp86142))) - (__tmp86133 - (let ((__tmp86138 - (let ((__tmp86139 |gx[1]#_g86140_|)) + (cons 'id __tmp86139))) + (__tmp86130 + (let ((__tmp86135 + (let ((__tmp86136 |gx[1]#_g86137_|)) (declare (not safe)) - (cons 'compile-top __tmp86139))) - (__tmp86134 - (let ((__tmp86135 - (let ((__tmp86136 |gx[1]#_g86137_|)) + (cons 'compile-top __tmp86136))) + (__tmp86131 + (let ((__tmp86132 + (let ((__tmp86133 |gx[1]#_g86134_|)) (declare (not safe)) - (cons 'e __tmp86136)))) + (cons 'e __tmp86133)))) (declare (not safe)) - (cons __tmp86135 '())))) + (cons __tmp86132 '())))) (declare (not safe)) - (cons __tmp86138 __tmp86134)))) + (cons __tmp86135 __tmp86131)))) (declare (not safe)) - (cons __tmp86141 __tmp86133)))) + (cons __tmp86138 __tmp86130)))) (declare (not safe)) (##unchecked-structure-set! - __obj84770 - __tmp86132 + __obj84767 + __tmp86129 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86144 - (let ((__tmp86153 - (let ((__tmp86154 |gx[1]#_g86155_|)) + (let ((__tmp86141 + (let ((__tmp86150 + (let ((__tmp86151 |gx[1]#_g86152_|)) (declare (not safe)) - (cons 'id __tmp86154))) - (__tmp86145 - (let ((__tmp86150 - (let ((__tmp86151 |gx[1]#_g86152_|)) + (cons 'id __tmp86151))) + (__tmp86142 + (let ((__tmp86147 + (let ((__tmp86148 |gx[1]#_g86149_|)) (declare (not safe)) - (cons 'compile-top __tmp86151))) - (__tmp86146 - (let ((__tmp86147 - (let ((__tmp86148 |gx[1]#_g86149_|)) + (cons 'compile-top __tmp86148))) + (__tmp86143 + (let ((__tmp86144 + (let ((__tmp86145 |gx[1]#_g86146_|)) (declare (not safe)) - (cons 'e __tmp86148)))) + (cons 'e __tmp86145)))) (declare (not safe)) - (cons __tmp86147 '())))) + (cons __tmp86144 '())))) (declare (not safe)) - (cons __tmp86150 __tmp86146)))) + (cons __tmp86147 __tmp86143)))) (declare (not safe)) - (cons __tmp86153 __tmp86145)))) + (cons __tmp86150 __tmp86142)))) (declare (not safe)) (##unchecked-structure-set! - __obj84770 - __tmp86144 + __obj84767 + __tmp86141 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86156 - (let ((__tmp86165 - (let ((__tmp86166 |gx[1]#_g86167_|)) + (let ((__tmp86153 + (let ((__tmp86162 + (let ((__tmp86163 |gx[1]#_g86164_|)) (declare (not safe)) - (cons 'id __tmp86166))) - (__tmp86157 - (let ((__tmp86162 - (let ((__tmp86163 |gx[1]#_g86164_|)) + (cons 'id __tmp86163))) + (__tmp86154 + (let ((__tmp86159 + (let ((__tmp86160 |gx[1]#_g86161_|)) (declare (not safe)) - (cons 'compile-top __tmp86163))) - (__tmp86158 - (let ((__tmp86159 - (let ((__tmp86160 |gx[1]#_g86161_|)) + (cons 'compile-top __tmp86160))) + (__tmp86155 + (let ((__tmp86156 + (let ((__tmp86157 |gx[1]#_g86158_|)) (declare (not safe)) - (cons 'e __tmp86160)))) + (cons 'e __tmp86157)))) (declare (not safe)) - (cons __tmp86159 '())))) + (cons __tmp86156 '())))) (declare (not safe)) - (cons __tmp86162 __tmp86158)))) + (cons __tmp86159 __tmp86155)))) (declare (not safe)) - (cons __tmp86165 __tmp86157)))) + (cons __tmp86162 __tmp86154)))) (declare (not safe)) (##unchecked-structure-set! - __obj84770 - __tmp86156 + __obj84767 + __tmp86153 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86168 - (let ((__tmp86177 - (let ((__tmp86178 |gx[1]#_g86179_|)) + (let ((__tmp86165 + (let ((__tmp86174 + (let ((__tmp86175 |gx[1]#_g86176_|)) (declare (not safe)) - (cons 'id __tmp86178))) - (__tmp86169 - (let ((__tmp86174 - (let ((__tmp86175 |gx[1]#_g86176_|)) + (cons 'id __tmp86175))) + (__tmp86166 + (let ((__tmp86171 + (let ((__tmp86172 |gx[1]#_g86173_|)) (declare (not safe)) - (cons 'compile-top __tmp86175))) - (__tmp86170 - (let ((__tmp86171 - (let ((__tmp86172 |gx[1]#_g86173_|)) + (cons 'compile-top __tmp86172))) + (__tmp86167 + (let ((__tmp86168 + (let ((__tmp86169 |gx[1]#_g86170_|)) (declare (not safe)) - (cons 'e __tmp86172)))) + (cons 'e __tmp86169)))) (declare (not safe)) - (cons __tmp86171 '())))) + (cons __tmp86168 '())))) (declare (not safe)) - (cons __tmp86174 __tmp86170)))) + (cons __tmp86171 __tmp86167)))) (declare (not safe)) - (cons __tmp86177 __tmp86169)))) + (cons __tmp86174 __tmp86166)))) (declare (not safe)) (##unchecked-structure-set! - __obj84770 - __tmp86168 + __obj84767 + __tmp86165 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84770)) + __obj84767)) (define |gx[:0:]#expression-form| - (let ((__obj84771 + (let ((__obj84768 (let () (declare (not safe)) (##structure @@ -8316,7 +8316,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84771 + __obj84768 '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! - __obj84771 + __obj84768 'expression-form '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8332,26 +8332,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84771 + __obj84768 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86180 - (let ((__tmp86181 |gx[1]#_g86182_|)) + (let ((__tmp86177 + (let ((__tmp86178 |gx[1]#_g86179_|)) (declare (not safe)) - (cons __tmp86181 '())))) + (cons __tmp86178 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84771 - __tmp86180 + __obj84768 + __tmp86177 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84771 + __obj84768 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8359,7 +8359,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84771 + __obj84768 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8367,7 +8367,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84771 + __obj84768 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8375,150 +8375,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84771 + __obj84768 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86183 |gx[1]#_g86184_|)) + (let ((__tmp86180 |gx[1]#_g86181_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84771 - __tmp86183 + __obj84768 + __tmp86180 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86185 |gx[1]#_g86186_|)) + (let ((__tmp86182 |gx[1]#_g86183_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84771 - __tmp86185 + __obj84768 + __tmp86182 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86187 |gx[1]#_g86188_|)) + (let ((__tmp86184 |gx[1]#_g86185_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84771 - __tmp86187 + __obj84768 + __tmp86184 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86189 - (let ((__tmp86198 - (let ((__tmp86199 |gx[1]#_g86200_|)) + (let ((__tmp86186 + (let ((__tmp86195 + (let ((__tmp86196 |gx[1]#_g86197_|)) (declare (not safe)) - (cons 'id __tmp86199))) - (__tmp86190 - (let ((__tmp86195 - (let ((__tmp86196 |gx[1]#_g86197_|)) + (cons 'id __tmp86196))) + (__tmp86187 + (let ((__tmp86192 + (let ((__tmp86193 |gx[1]#_g86194_|)) (declare (not safe)) - (cons 'compile-top __tmp86196))) - (__tmp86191 - (let ((__tmp86192 - (let ((__tmp86193 |gx[1]#_g86194_|)) + (cons 'compile-top __tmp86193))) + (__tmp86188 + (let ((__tmp86189 + (let ((__tmp86190 |gx[1]#_g86191_|)) (declare (not safe)) - (cons 'e __tmp86193)))) + (cons 'e __tmp86190)))) (declare (not safe)) - (cons __tmp86192 '())))) + (cons __tmp86189 '())))) (declare (not safe)) - (cons __tmp86195 __tmp86191)))) + (cons __tmp86192 __tmp86188)))) (declare (not safe)) - (cons __tmp86198 __tmp86190)))) + (cons __tmp86195 __tmp86187)))) (declare (not safe)) (##unchecked-structure-set! - __obj84771 - __tmp86189 + __obj84768 + __tmp86186 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86201 - (let ((__tmp86210 - (let ((__tmp86211 |gx[1]#_g86212_|)) + (let ((__tmp86198 + (let ((__tmp86207 + (let ((__tmp86208 |gx[1]#_g86209_|)) (declare (not safe)) - (cons 'id __tmp86211))) - (__tmp86202 - (let ((__tmp86207 - (let ((__tmp86208 |gx[1]#_g86209_|)) + (cons 'id __tmp86208))) + (__tmp86199 + (let ((__tmp86204 + (let ((__tmp86205 |gx[1]#_g86206_|)) (declare (not safe)) - (cons 'compile-top __tmp86208))) - (__tmp86203 - (let ((__tmp86204 - (let ((__tmp86205 |gx[1]#_g86206_|)) + (cons 'compile-top __tmp86205))) + (__tmp86200 + (let ((__tmp86201 + (let ((__tmp86202 |gx[1]#_g86203_|)) (declare (not safe)) - (cons 'e __tmp86205)))) + (cons 'e __tmp86202)))) (declare (not safe)) - (cons __tmp86204 '())))) + (cons __tmp86201 '())))) (declare (not safe)) - (cons __tmp86207 __tmp86203)))) + (cons __tmp86204 __tmp86200)))) (declare (not safe)) - (cons __tmp86210 __tmp86202)))) + (cons __tmp86207 __tmp86199)))) (declare (not safe)) (##unchecked-structure-set! - __obj84771 - __tmp86201 + __obj84768 + __tmp86198 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86213 - (let ((__tmp86222 - (let ((__tmp86223 |gx[1]#_g86224_|)) + (let ((__tmp86210 + (let ((__tmp86219 + (let ((__tmp86220 |gx[1]#_g86221_|)) (declare (not safe)) - (cons 'id __tmp86223))) - (__tmp86214 - (let ((__tmp86219 - (let ((__tmp86220 |gx[1]#_g86221_|)) + (cons 'id __tmp86220))) + (__tmp86211 + (let ((__tmp86216 + (let ((__tmp86217 |gx[1]#_g86218_|)) (declare (not safe)) - (cons 'compile-top __tmp86220))) - (__tmp86215 - (let ((__tmp86216 - (let ((__tmp86217 |gx[1]#_g86218_|)) + (cons 'compile-top __tmp86217))) + (__tmp86212 + (let ((__tmp86213 + (let ((__tmp86214 |gx[1]#_g86215_|)) (declare (not safe)) - (cons 'e __tmp86217)))) + (cons 'e __tmp86214)))) (declare (not safe)) - (cons __tmp86216 '())))) + (cons __tmp86213 '())))) (declare (not safe)) - (cons __tmp86219 __tmp86215)))) + (cons __tmp86216 __tmp86212)))) (declare (not safe)) - (cons __tmp86222 __tmp86214)))) + (cons __tmp86219 __tmp86211)))) (declare (not safe)) (##unchecked-structure-set! - __obj84771 - __tmp86213 + __obj84768 + __tmp86210 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86225 - (let ((__tmp86234 - (let ((__tmp86235 |gx[1]#_g86236_|)) + (let ((__tmp86222 + (let ((__tmp86231 + (let ((__tmp86232 |gx[1]#_g86233_|)) (declare (not safe)) - (cons 'id __tmp86235))) - (__tmp86226 - (let ((__tmp86231 - (let ((__tmp86232 |gx[1]#_g86233_|)) + (cons 'id __tmp86232))) + (__tmp86223 + (let ((__tmp86228 + (let ((__tmp86229 |gx[1]#_g86230_|)) (declare (not safe)) - (cons 'compile-top __tmp86232))) - (__tmp86227 - (let ((__tmp86228 - (let ((__tmp86229 |gx[1]#_g86230_|)) + (cons 'compile-top __tmp86229))) + (__tmp86224 + (let ((__tmp86225 + (let ((__tmp86226 |gx[1]#_g86227_|)) (declare (not safe)) - (cons 'e __tmp86229)))) + (cons 'e __tmp86226)))) (declare (not safe)) - (cons __tmp86228 '())))) + (cons __tmp86225 '())))) (declare (not safe)) - (cons __tmp86231 __tmp86227)))) + (cons __tmp86228 __tmp86224)))) (declare (not safe)) - (cons __tmp86234 __tmp86226)))) + (cons __tmp86231 __tmp86223)))) (declare (not safe)) (##unchecked-structure-set! - __obj84771 - __tmp86225 + __obj84768 + __tmp86222 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84771)) + __obj84768)) (define |gx[:0:]#special-form| - (let ((__obj84772 + (let ((__obj84769 (let () (declare (not safe)) (##structure @@ -8541,7 +8541,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84772 + __obj84769 '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! - __obj84772 + __obj84769 'special-form '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8557,26 +8557,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84772 + __obj84769 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86237 - (let ((__tmp86238 |gx[1]#_g86182_|)) + (let ((__tmp86234 + (let ((__tmp86235 |gx[1]#_g86179_|)) (declare (not safe)) - (cons __tmp86238 '())))) + (cons __tmp86235 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84772 - __tmp86237 + __obj84769 + __tmp86234 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84772 + __obj84769 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8584,7 +8584,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84772 + __obj84769 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8592,7 +8592,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84772 + __obj84769 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8600,150 +8600,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84772 + __obj84769 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86239 |gx[1]#_g86240_|)) + (let ((__tmp86236 |gx[1]#_g86237_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84772 - __tmp86239 + __obj84769 + __tmp86236 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86241 |gx[1]#_g86242_|)) + (let ((__tmp86238 |gx[1]#_g86239_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84772 - __tmp86241 + __obj84769 + __tmp86238 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86243 |gx[1]#_g86244_|)) + (let ((__tmp86240 |gx[1]#_g86241_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84772 - __tmp86243 + __obj84769 + __tmp86240 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86245 - (let ((__tmp86254 - (let ((__tmp86255 |gx[1]#_g86256_|)) + (let ((__tmp86242 + (let ((__tmp86251 + (let ((__tmp86252 |gx[1]#_g86253_|)) (declare (not safe)) - (cons 'id __tmp86255))) - (__tmp86246 - (let ((__tmp86251 - (let ((__tmp86252 |gx[1]#_g86253_|)) + (cons 'id __tmp86252))) + (__tmp86243 + (let ((__tmp86248 + (let ((__tmp86249 |gx[1]#_g86250_|)) (declare (not safe)) - (cons 'compile-top __tmp86252))) - (__tmp86247 - (let ((__tmp86248 - (let ((__tmp86249 |gx[1]#_g86250_|)) + (cons 'compile-top __tmp86249))) + (__tmp86244 + (let ((__tmp86245 + (let ((__tmp86246 |gx[1]#_g86247_|)) (declare (not safe)) - (cons 'e __tmp86249)))) + (cons 'e __tmp86246)))) (declare (not safe)) - (cons __tmp86248 '())))) + (cons __tmp86245 '())))) (declare (not safe)) - (cons __tmp86251 __tmp86247)))) + (cons __tmp86248 __tmp86244)))) (declare (not safe)) - (cons __tmp86254 __tmp86246)))) + (cons __tmp86251 __tmp86243)))) (declare (not safe)) (##unchecked-structure-set! - __obj84772 - __tmp86245 + __obj84769 + __tmp86242 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86257 - (let ((__tmp86266 - (let ((__tmp86267 |gx[1]#_g86268_|)) + (let ((__tmp86254 + (let ((__tmp86263 + (let ((__tmp86264 |gx[1]#_g86265_|)) (declare (not safe)) - (cons 'id __tmp86267))) - (__tmp86258 - (let ((__tmp86263 - (let ((__tmp86264 |gx[1]#_g86265_|)) + (cons 'id __tmp86264))) + (__tmp86255 + (let ((__tmp86260 + (let ((__tmp86261 |gx[1]#_g86262_|)) (declare (not safe)) - (cons 'compile-top __tmp86264))) - (__tmp86259 - (let ((__tmp86260 - (let ((__tmp86261 |gx[1]#_g86262_|)) + (cons 'compile-top __tmp86261))) + (__tmp86256 + (let ((__tmp86257 + (let ((__tmp86258 |gx[1]#_g86259_|)) (declare (not safe)) - (cons 'e __tmp86261)))) + (cons 'e __tmp86258)))) (declare (not safe)) - (cons __tmp86260 '())))) + (cons __tmp86257 '())))) (declare (not safe)) - (cons __tmp86263 __tmp86259)))) + (cons __tmp86260 __tmp86256)))) (declare (not safe)) - (cons __tmp86266 __tmp86258)))) + (cons __tmp86263 __tmp86255)))) (declare (not safe)) (##unchecked-structure-set! - __obj84772 - __tmp86257 + __obj84769 + __tmp86254 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86269 - (let ((__tmp86278 - (let ((__tmp86279 |gx[1]#_g86280_|)) + (let ((__tmp86266 + (let ((__tmp86275 + (let ((__tmp86276 |gx[1]#_g86277_|)) (declare (not safe)) - (cons 'id __tmp86279))) - (__tmp86270 - (let ((__tmp86275 - (let ((__tmp86276 |gx[1]#_g86277_|)) + (cons 'id __tmp86276))) + (__tmp86267 + (let ((__tmp86272 + (let ((__tmp86273 |gx[1]#_g86274_|)) (declare (not safe)) - (cons 'compile-top __tmp86276))) - (__tmp86271 - (let ((__tmp86272 - (let ((__tmp86273 |gx[1]#_g86274_|)) + (cons 'compile-top __tmp86273))) + (__tmp86268 + (let ((__tmp86269 + (let ((__tmp86270 |gx[1]#_g86271_|)) (declare (not safe)) - (cons 'e __tmp86273)))) + (cons 'e __tmp86270)))) (declare (not safe)) - (cons __tmp86272 '())))) + (cons __tmp86269 '())))) (declare (not safe)) - (cons __tmp86275 __tmp86271)))) + (cons __tmp86272 __tmp86268)))) (declare (not safe)) - (cons __tmp86278 __tmp86270)))) + (cons __tmp86275 __tmp86267)))) (declare (not safe)) (##unchecked-structure-set! - __obj84772 - __tmp86269 + __obj84769 + __tmp86266 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86281 - (let ((__tmp86290 - (let ((__tmp86291 |gx[1]#_g86292_|)) + (let ((__tmp86278 + (let ((__tmp86287 + (let ((__tmp86288 |gx[1]#_g86289_|)) (declare (not safe)) - (cons 'id __tmp86291))) - (__tmp86282 - (let ((__tmp86287 - (let ((__tmp86288 |gx[1]#_g86289_|)) + (cons 'id __tmp86288))) + (__tmp86279 + (let ((__tmp86284 + (let ((__tmp86285 |gx[1]#_g86286_|)) (declare (not safe)) - (cons 'compile-top __tmp86288))) - (__tmp86283 - (let ((__tmp86284 - (let ((__tmp86285 |gx[1]#_g86286_|)) + (cons 'compile-top __tmp86285))) + (__tmp86280 + (let ((__tmp86281 + (let ((__tmp86282 |gx[1]#_g86283_|)) (declare (not safe)) - (cons 'e __tmp86285)))) + (cons 'e __tmp86282)))) (declare (not safe)) - (cons __tmp86284 '())))) + (cons __tmp86281 '())))) (declare (not safe)) - (cons __tmp86287 __tmp86283)))) + (cons __tmp86284 __tmp86280)))) (declare (not safe)) - (cons __tmp86290 __tmp86282)))) + (cons __tmp86287 __tmp86279)))) (declare (not safe)) (##unchecked-structure-set! - __obj84772 - __tmp86281 + __obj84769 + __tmp86278 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84772)) + __obj84769)) (define |gx[:0:]#definition-form| - (let ((__obj84773 + (let ((__obj84770 (let () (declare (not safe)) (##structure @@ -8766,7 +8766,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84773 + __obj84770 '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! - __obj84773 + __obj84770 'definition-form '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8782,26 +8782,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84773 + __obj84770 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86293 - (let ((__tmp86294 |gx[1]#_g86295_|)) + (let ((__tmp86290 + (let ((__tmp86291 |gx[1]#_g86292_|)) (declare (not safe)) - (cons __tmp86294 '())))) + (cons __tmp86291 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84773 - __tmp86293 + __obj84770 + __tmp86290 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84773 + __obj84770 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8809,7 +8809,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84773 + __obj84770 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8817,7 +8817,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84773 + __obj84770 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8825,150 +8825,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84773 + __obj84770 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86296 |gx[1]#_g86297_|)) + (let ((__tmp86293 |gx[1]#_g86294_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84773 - __tmp86296 + __obj84770 + __tmp86293 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86298 |gx[1]#_g86299_|)) + (let ((__tmp86295 |gx[1]#_g86296_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84773 - __tmp86298 + __obj84770 + __tmp86295 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86300 |gx[1]#_g86301_|)) + (let ((__tmp86297 |gx[1]#_g86298_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84773 - __tmp86300 + __obj84770 + __tmp86297 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86302 - (let ((__tmp86311 - (let ((__tmp86312 |gx[1]#_g86313_|)) + (let ((__tmp86299 + (let ((__tmp86308 + (let ((__tmp86309 |gx[1]#_g86310_|)) (declare (not safe)) - (cons 'id __tmp86312))) - (__tmp86303 - (let ((__tmp86308 - (let ((__tmp86309 |gx[1]#_g86310_|)) + (cons 'id __tmp86309))) + (__tmp86300 + (let ((__tmp86305 + (let ((__tmp86306 |gx[1]#_g86307_|)) (declare (not safe)) - (cons 'compile-top __tmp86309))) - (__tmp86304 - (let ((__tmp86305 - (let ((__tmp86306 |gx[1]#_g86307_|)) + (cons 'compile-top __tmp86306))) + (__tmp86301 + (let ((__tmp86302 + (let ((__tmp86303 |gx[1]#_g86304_|)) (declare (not safe)) - (cons 'e __tmp86306)))) + (cons 'e __tmp86303)))) (declare (not safe)) - (cons __tmp86305 '())))) + (cons __tmp86302 '())))) (declare (not safe)) - (cons __tmp86308 __tmp86304)))) + (cons __tmp86305 __tmp86301)))) (declare (not safe)) - (cons __tmp86311 __tmp86303)))) + (cons __tmp86308 __tmp86300)))) (declare (not safe)) (##unchecked-structure-set! - __obj84773 - __tmp86302 + __obj84770 + __tmp86299 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86314 - (let ((__tmp86323 - (let ((__tmp86324 |gx[1]#_g86325_|)) + (let ((__tmp86311 + (let ((__tmp86320 + (let ((__tmp86321 |gx[1]#_g86322_|)) (declare (not safe)) - (cons 'id __tmp86324))) - (__tmp86315 - (let ((__tmp86320 - (let ((__tmp86321 |gx[1]#_g86322_|)) + (cons 'id __tmp86321))) + (__tmp86312 + (let ((__tmp86317 + (let ((__tmp86318 |gx[1]#_g86319_|)) (declare (not safe)) - (cons 'compile-top __tmp86321))) - (__tmp86316 - (let ((__tmp86317 - (let ((__tmp86318 |gx[1]#_g86319_|)) + (cons 'compile-top __tmp86318))) + (__tmp86313 + (let ((__tmp86314 + (let ((__tmp86315 |gx[1]#_g86316_|)) (declare (not safe)) - (cons 'e __tmp86318)))) + (cons 'e __tmp86315)))) (declare (not safe)) - (cons __tmp86317 '())))) + (cons __tmp86314 '())))) (declare (not safe)) - (cons __tmp86320 __tmp86316)))) + (cons __tmp86317 __tmp86313)))) (declare (not safe)) - (cons __tmp86323 __tmp86315)))) + (cons __tmp86320 __tmp86312)))) (declare (not safe)) (##unchecked-structure-set! - __obj84773 - __tmp86314 + __obj84770 + __tmp86311 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86326 - (let ((__tmp86335 - (let ((__tmp86336 |gx[1]#_g86337_|)) + (let ((__tmp86323 + (let ((__tmp86332 + (let ((__tmp86333 |gx[1]#_g86334_|)) (declare (not safe)) - (cons 'id __tmp86336))) - (__tmp86327 - (let ((__tmp86332 - (let ((__tmp86333 |gx[1]#_g86334_|)) + (cons 'id __tmp86333))) + (__tmp86324 + (let ((__tmp86329 + (let ((__tmp86330 |gx[1]#_g86331_|)) (declare (not safe)) - (cons 'compile-top __tmp86333))) - (__tmp86328 - (let ((__tmp86329 - (let ((__tmp86330 |gx[1]#_g86331_|)) + (cons 'compile-top __tmp86330))) + (__tmp86325 + (let ((__tmp86326 + (let ((__tmp86327 |gx[1]#_g86328_|)) (declare (not safe)) - (cons 'e __tmp86330)))) + (cons 'e __tmp86327)))) (declare (not safe)) - (cons __tmp86329 '())))) + (cons __tmp86326 '())))) (declare (not safe)) - (cons __tmp86332 __tmp86328)))) + (cons __tmp86329 __tmp86325)))) (declare (not safe)) - (cons __tmp86335 __tmp86327)))) + (cons __tmp86332 __tmp86324)))) (declare (not safe)) (##unchecked-structure-set! - __obj84773 - __tmp86326 + __obj84770 + __tmp86323 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86338 - (let ((__tmp86347 - (let ((__tmp86348 |gx[1]#_g86349_|)) + (let ((__tmp86335 + (let ((__tmp86344 + (let ((__tmp86345 |gx[1]#_g86346_|)) (declare (not safe)) - (cons 'id __tmp86348))) - (__tmp86339 - (let ((__tmp86344 - (let ((__tmp86345 |gx[1]#_g86346_|)) + (cons 'id __tmp86345))) + (__tmp86336 + (let ((__tmp86341 + (let ((__tmp86342 |gx[1]#_g86343_|)) (declare (not safe)) - (cons 'compile-top __tmp86345))) - (__tmp86340 - (let ((__tmp86341 - (let ((__tmp86342 |gx[1]#_g86343_|)) + (cons 'compile-top __tmp86342))) + (__tmp86337 + (let ((__tmp86338 + (let ((__tmp86339 |gx[1]#_g86340_|)) (declare (not safe)) - (cons 'e __tmp86342)))) + (cons 'e __tmp86339)))) (declare (not safe)) - (cons __tmp86341 '())))) + (cons __tmp86338 '())))) (declare (not safe)) - (cons __tmp86344 __tmp86340)))) + (cons __tmp86341 __tmp86337)))) (declare (not safe)) - (cons __tmp86347 __tmp86339)))) + (cons __tmp86344 __tmp86336)))) (declare (not safe)) (##unchecked-structure-set! - __obj84773 - __tmp86338 + __obj84770 + __tmp86335 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84773)) + __obj84770)) (define |gx[:0:]#top-special-form| - (let ((__obj84774 + (let ((__obj84771 (let () (declare (not safe)) (##structure @@ -8991,7 +8991,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84774 + __obj84771 '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! - __obj84774 + __obj84771 'top-special-form '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9007,26 +9007,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84774 + __obj84771 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86350 - (let ((__tmp86351 |gx[1]#_g86295_|)) + (let ((__tmp86347 + (let ((__tmp86348 |gx[1]#_g86292_|)) (declare (not safe)) - (cons __tmp86351 '())))) + (cons __tmp86348 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84774 - __tmp86350 + __obj84771 + __tmp86347 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84774 + __obj84771 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9034,7 +9034,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84774 + __obj84771 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9042,7 +9042,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84774 + __obj84771 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9050,150 +9050,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84774 + __obj84771 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86352 |gx[1]#_g86353_|)) + (let ((__tmp86349 |gx[1]#_g86350_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84774 - __tmp86352 + __obj84771 + __tmp86349 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86354 |gx[1]#_g86355_|)) + (let ((__tmp86351 |gx[1]#_g86352_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84774 - __tmp86354 + __obj84771 + __tmp86351 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86356 |gx[1]#_g86357_|)) + (let ((__tmp86353 |gx[1]#_g86354_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84774 - __tmp86356 + __obj84771 + __tmp86353 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86358 - (let ((__tmp86367 - (let ((__tmp86368 |gx[1]#_g86369_|)) + (let ((__tmp86355 + (let ((__tmp86364 + (let ((__tmp86365 |gx[1]#_g86366_|)) (declare (not safe)) - (cons 'id __tmp86368))) - (__tmp86359 - (let ((__tmp86364 - (let ((__tmp86365 |gx[1]#_g86366_|)) + (cons 'id __tmp86365))) + (__tmp86356 + (let ((__tmp86361 + (let ((__tmp86362 |gx[1]#_g86363_|)) (declare (not safe)) - (cons 'compile-top __tmp86365))) - (__tmp86360 - (let ((__tmp86361 - (let ((__tmp86362 |gx[1]#_g86363_|)) + (cons 'compile-top __tmp86362))) + (__tmp86357 + (let ((__tmp86358 + (let ((__tmp86359 |gx[1]#_g86360_|)) (declare (not safe)) - (cons 'e __tmp86362)))) + (cons 'e __tmp86359)))) (declare (not safe)) - (cons __tmp86361 '())))) + (cons __tmp86358 '())))) (declare (not safe)) - (cons __tmp86364 __tmp86360)))) + (cons __tmp86361 __tmp86357)))) (declare (not safe)) - (cons __tmp86367 __tmp86359)))) + (cons __tmp86364 __tmp86356)))) (declare (not safe)) (##unchecked-structure-set! - __obj84774 - __tmp86358 + __obj84771 + __tmp86355 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86370 - (let ((__tmp86379 - (let ((__tmp86380 |gx[1]#_g86381_|)) + (let ((__tmp86367 + (let ((__tmp86376 + (let ((__tmp86377 |gx[1]#_g86378_|)) (declare (not safe)) - (cons 'id __tmp86380))) - (__tmp86371 - (let ((__tmp86376 - (let ((__tmp86377 |gx[1]#_g86378_|)) + (cons 'id __tmp86377))) + (__tmp86368 + (let ((__tmp86373 + (let ((__tmp86374 |gx[1]#_g86375_|)) (declare (not safe)) - (cons 'compile-top __tmp86377))) - (__tmp86372 - (let ((__tmp86373 - (let ((__tmp86374 |gx[1]#_g86375_|)) + (cons 'compile-top __tmp86374))) + (__tmp86369 + (let ((__tmp86370 + (let ((__tmp86371 |gx[1]#_g86372_|)) (declare (not safe)) - (cons 'e __tmp86374)))) + (cons 'e __tmp86371)))) (declare (not safe)) - (cons __tmp86373 '())))) + (cons __tmp86370 '())))) (declare (not safe)) - (cons __tmp86376 __tmp86372)))) + (cons __tmp86373 __tmp86369)))) (declare (not safe)) - (cons __tmp86379 __tmp86371)))) + (cons __tmp86376 __tmp86368)))) (declare (not safe)) (##unchecked-structure-set! - __obj84774 - __tmp86370 + __obj84771 + __tmp86367 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86382 - (let ((__tmp86391 - (let ((__tmp86392 |gx[1]#_g86393_|)) + (let ((__tmp86379 + (let ((__tmp86388 + (let ((__tmp86389 |gx[1]#_g86390_|)) (declare (not safe)) - (cons 'id __tmp86392))) - (__tmp86383 - (let ((__tmp86388 - (let ((__tmp86389 |gx[1]#_g86390_|)) + (cons 'id __tmp86389))) + (__tmp86380 + (let ((__tmp86385 + (let ((__tmp86386 |gx[1]#_g86387_|)) (declare (not safe)) - (cons 'compile-top __tmp86389))) - (__tmp86384 - (let ((__tmp86385 - (let ((__tmp86386 |gx[1]#_g86387_|)) + (cons 'compile-top __tmp86386))) + (__tmp86381 + (let ((__tmp86382 + (let ((__tmp86383 |gx[1]#_g86384_|)) (declare (not safe)) - (cons 'e __tmp86386)))) + (cons 'e __tmp86383)))) (declare (not safe)) - (cons __tmp86385 '())))) + (cons __tmp86382 '())))) (declare (not safe)) - (cons __tmp86388 __tmp86384)))) + (cons __tmp86385 __tmp86381)))) (declare (not safe)) - (cons __tmp86391 __tmp86383)))) + (cons __tmp86388 __tmp86380)))) (declare (not safe)) (##unchecked-structure-set! - __obj84774 - __tmp86382 + __obj84771 + __tmp86379 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86394 - (let ((__tmp86403 - (let ((__tmp86404 |gx[1]#_g86405_|)) + (let ((__tmp86391 + (let ((__tmp86400 + (let ((__tmp86401 |gx[1]#_g86402_|)) (declare (not safe)) - (cons 'id __tmp86404))) - (__tmp86395 - (let ((__tmp86400 - (let ((__tmp86401 |gx[1]#_g86402_|)) + (cons 'id __tmp86401))) + (__tmp86392 + (let ((__tmp86397 + (let ((__tmp86398 |gx[1]#_g86399_|)) (declare (not safe)) - (cons 'compile-top __tmp86401))) - (__tmp86396 - (let ((__tmp86397 - (let ((__tmp86398 |gx[1]#_g86399_|)) + (cons 'compile-top __tmp86398))) + (__tmp86393 + (let ((__tmp86394 + (let ((__tmp86395 |gx[1]#_g86396_|)) (declare (not safe)) - (cons 'e __tmp86398)))) + (cons 'e __tmp86395)))) (declare (not safe)) - (cons __tmp86397 '())))) + (cons __tmp86394 '())))) (declare (not safe)) - (cons __tmp86400 __tmp86396)))) + (cons __tmp86397 __tmp86393)))) (declare (not safe)) - (cons __tmp86403 __tmp86395)))) + (cons __tmp86400 __tmp86392)))) (declare (not safe)) (##unchecked-structure-set! - __obj84774 - __tmp86394 + __obj84771 + __tmp86391 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84774)) + __obj84771)) (define |gx[:0:]#module-special-form| - (let ((__obj84775 + (let ((__obj84772 (let () (declare (not safe)) (##structure @@ -9216,7 +9216,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84775 + __obj84772 '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! - __obj84775 + __obj84772 'module-special-form '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9232,26 +9232,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84775 + __obj84772 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86406 - (let ((__tmp86407 |gx[1]#_g86408_|)) + (let ((__tmp86403 + (let ((__tmp86404 |gx[1]#_g86405_|)) (declare (not safe)) - (cons __tmp86407 '())))) + (cons __tmp86404 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84775 - __tmp86406 + __obj84772 + __tmp86403 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84775 + __obj84772 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9259,7 +9259,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84775 + __obj84772 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9267,7 +9267,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84775 + __obj84772 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9275,150 +9275,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84775 + __obj84772 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86409 |gx[1]#_g86410_|)) + (let ((__tmp86406 |gx[1]#_g86407_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84775 - __tmp86409 + __obj84772 + __tmp86406 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86411 |gx[1]#_g86412_|)) + (let ((__tmp86408 |gx[1]#_g86409_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84775 - __tmp86411 + __obj84772 + __tmp86408 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86413 |gx[1]#_g86414_|)) + (let ((__tmp86410 |gx[1]#_g86411_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84775 - __tmp86413 + __obj84772 + __tmp86410 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86415 - (let ((__tmp86424 - (let ((__tmp86425 |gx[1]#_g86426_|)) + (let ((__tmp86412 + (let ((__tmp86421 + (let ((__tmp86422 |gx[1]#_g86423_|)) (declare (not safe)) - (cons 'id __tmp86425))) - (__tmp86416 - (let ((__tmp86421 - (let ((__tmp86422 |gx[1]#_g86423_|)) + (cons 'id __tmp86422))) + (__tmp86413 + (let ((__tmp86418 + (let ((__tmp86419 |gx[1]#_g86420_|)) (declare (not safe)) - (cons 'compile-top __tmp86422))) - (__tmp86417 - (let ((__tmp86418 - (let ((__tmp86419 |gx[1]#_g86420_|)) + (cons 'compile-top __tmp86419))) + (__tmp86414 + (let ((__tmp86415 + (let ((__tmp86416 |gx[1]#_g86417_|)) (declare (not safe)) - (cons 'e __tmp86419)))) + (cons 'e __tmp86416)))) (declare (not safe)) - (cons __tmp86418 '())))) + (cons __tmp86415 '())))) (declare (not safe)) - (cons __tmp86421 __tmp86417)))) + (cons __tmp86418 __tmp86414)))) (declare (not safe)) - (cons __tmp86424 __tmp86416)))) + (cons __tmp86421 __tmp86413)))) (declare (not safe)) (##unchecked-structure-set! - __obj84775 - __tmp86415 + __obj84772 + __tmp86412 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86427 - (let ((__tmp86436 - (let ((__tmp86437 |gx[1]#_g86438_|)) + (let ((__tmp86424 + (let ((__tmp86433 + (let ((__tmp86434 |gx[1]#_g86435_|)) (declare (not safe)) - (cons 'id __tmp86437))) - (__tmp86428 - (let ((__tmp86433 - (let ((__tmp86434 |gx[1]#_g86435_|)) + (cons 'id __tmp86434))) + (__tmp86425 + (let ((__tmp86430 + (let ((__tmp86431 |gx[1]#_g86432_|)) (declare (not safe)) - (cons 'compile-top __tmp86434))) - (__tmp86429 - (let ((__tmp86430 - (let ((__tmp86431 |gx[1]#_g86432_|)) + (cons 'compile-top __tmp86431))) + (__tmp86426 + (let ((__tmp86427 + (let ((__tmp86428 |gx[1]#_g86429_|)) (declare (not safe)) - (cons 'e __tmp86431)))) + (cons 'e __tmp86428)))) (declare (not safe)) - (cons __tmp86430 '())))) + (cons __tmp86427 '())))) (declare (not safe)) - (cons __tmp86433 __tmp86429)))) + (cons __tmp86430 __tmp86426)))) (declare (not safe)) - (cons __tmp86436 __tmp86428)))) + (cons __tmp86433 __tmp86425)))) (declare (not safe)) (##unchecked-structure-set! - __obj84775 - __tmp86427 + __obj84772 + __tmp86424 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86439 - (let ((__tmp86448 - (let ((__tmp86449 |gx[1]#_g86450_|)) + (let ((__tmp86436 + (let ((__tmp86445 + (let ((__tmp86446 |gx[1]#_g86447_|)) (declare (not safe)) - (cons 'id __tmp86449))) - (__tmp86440 - (let ((__tmp86445 - (let ((__tmp86446 |gx[1]#_g86447_|)) + (cons 'id __tmp86446))) + (__tmp86437 + (let ((__tmp86442 + (let ((__tmp86443 |gx[1]#_g86444_|)) (declare (not safe)) - (cons 'compile-top __tmp86446))) - (__tmp86441 - (let ((__tmp86442 - (let ((__tmp86443 |gx[1]#_g86444_|)) + (cons 'compile-top __tmp86443))) + (__tmp86438 + (let ((__tmp86439 + (let ((__tmp86440 |gx[1]#_g86441_|)) (declare (not safe)) - (cons 'e __tmp86443)))) + (cons 'e __tmp86440)))) (declare (not safe)) - (cons __tmp86442 '())))) + (cons __tmp86439 '())))) (declare (not safe)) - (cons __tmp86445 __tmp86441)))) + (cons __tmp86442 __tmp86438)))) (declare (not safe)) - (cons __tmp86448 __tmp86440)))) + (cons __tmp86445 __tmp86437)))) (declare (not safe)) (##unchecked-structure-set! - __obj84775 - __tmp86439 + __obj84772 + __tmp86436 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86451 - (let ((__tmp86460 - (let ((__tmp86461 |gx[1]#_g86462_|)) + (let ((__tmp86448 + (let ((__tmp86457 + (let ((__tmp86458 |gx[1]#_g86459_|)) (declare (not safe)) - (cons 'id __tmp86461))) - (__tmp86452 - (let ((__tmp86457 - (let ((__tmp86458 |gx[1]#_g86459_|)) + (cons 'id __tmp86458))) + (__tmp86449 + (let ((__tmp86454 + (let ((__tmp86455 |gx[1]#_g86456_|)) (declare (not safe)) - (cons 'compile-top __tmp86458))) - (__tmp86453 - (let ((__tmp86454 - (let ((__tmp86455 |gx[1]#_g86456_|)) + (cons 'compile-top __tmp86455))) + (__tmp86450 + (let ((__tmp86451 + (let ((__tmp86452 |gx[1]#_g86453_|)) (declare (not safe)) - (cons 'e __tmp86455)))) + (cons 'e __tmp86452)))) (declare (not safe)) - (cons __tmp86454 '())))) + (cons __tmp86451 '())))) (declare (not safe)) - (cons __tmp86457 __tmp86453)))) + (cons __tmp86454 __tmp86450)))) (declare (not safe)) - (cons __tmp86460 __tmp86452)))) + (cons __tmp86457 __tmp86449)))) (declare (not safe)) (##unchecked-structure-set! - __obj84775 - __tmp86451 + __obj84772 + __tmp86448 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84775)) + __obj84772)) (define |gx[:0:]#feature-expander| - (let ((__obj84776 + (let ((__obj84773 (let () (declare (not safe)) (##structure @@ -9441,7 +9441,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84776 + __obj84773 '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! - __obj84776 + __obj84773 'feature-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9457,26 +9457,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84776 + __obj84773 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86463 - (let ((__tmp86464 |gx[1]#_g86125_|)) + (let ((__tmp86460 + (let ((__tmp86461 |gx[1]#_g86122_|)) (declare (not safe)) - (cons __tmp86464 '())))) + (cons __tmp86461 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84776 - __tmp86463 + __obj84773 + __tmp86460 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84776 + __obj84773 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9484,7 +9484,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84776 + __obj84773 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9492,7 +9492,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84776 + __obj84773 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9500,94 +9500,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84776 + __obj84773 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86465 |gx[1]#_g86466_|)) + (let ((__tmp86462 |gx[1]#_g86463_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84776 - __tmp86465 + __obj84773 + __tmp86462 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86467 |gx[1]#_g86468_|)) + (let ((__tmp86464 |gx[1]#_g86465_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84776 - __tmp86467 + __obj84773 + __tmp86464 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86469 |gx[1]#_g86470_|)) + (let ((__tmp86466 |gx[1]#_g86467_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84776 - __tmp86469 + __obj84773 + __tmp86466 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86471 - (let ((__tmp86472 - (let ((__tmp86473 |gx[1]#_g86474_|)) + (let ((__tmp86468 + (let ((__tmp86469 + (let ((__tmp86470 |gx[1]#_g86471_|)) (declare (not safe)) - (cons 'e __tmp86473)))) + (cons 'e __tmp86470)))) (declare (not safe)) - (cons __tmp86472 '())))) + (cons __tmp86469 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84776 - __tmp86471 + __obj84773 + __tmp86468 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86475 - (let ((__tmp86476 - (let ((__tmp86477 |gx[1]#_g86478_|)) + (let ((__tmp86472 + (let ((__tmp86473 + (let ((__tmp86474 |gx[1]#_g86475_|)) (declare (not safe)) - (cons 'e __tmp86477)))) + (cons 'e __tmp86474)))) (declare (not safe)) - (cons __tmp86476 '())))) + (cons __tmp86473 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84776 - __tmp86475 + __obj84773 + __tmp86472 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86479 - (let ((__tmp86480 - (let ((__tmp86481 |gx[1]#_g86482_|)) + (let ((__tmp86476 + (let ((__tmp86477 + (let ((__tmp86478 |gx[1]#_g86479_|)) (declare (not safe)) - (cons 'e __tmp86481)))) + (cons 'e __tmp86478)))) (declare (not safe)) - (cons __tmp86480 '())))) + (cons __tmp86477 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84776 - __tmp86479 + __obj84773 + __tmp86476 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86483 - (let ((__tmp86484 - (let ((__tmp86485 |gx[1]#_g86486_|)) + (let ((__tmp86480 + (let ((__tmp86481 + (let ((__tmp86482 |gx[1]#_g86483_|)) (declare (not safe)) - (cons 'e __tmp86485)))) + (cons 'e __tmp86482)))) (declare (not safe)) - (cons __tmp86484 '())))) + (cons __tmp86481 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84776 - __tmp86483 + __obj84773 + __tmp86480 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84776)) + __obj84773)) (define |gx[:0:]#private-feature-expander| - (let ((__obj84777 + (let ((__obj84774 (let () (declare (not safe)) (##structure @@ -9610,7 +9610,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84777 + __obj84774 '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! - __obj84777 + __obj84774 'private-feature-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9626,26 +9626,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84777 + __obj84774 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86487 - (let ((__tmp86488 |gx[1]#_g86489_|)) + (let ((__tmp86484 + (let ((__tmp86485 |gx[1]#_g86486_|)) (declare (not safe)) - (cons __tmp86488 '())))) + (cons __tmp86485 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84777 - __tmp86487 + __obj84774 + __tmp86484 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84777 + __obj84774 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9653,7 +9653,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84777 + __obj84774 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9661,7 +9661,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84777 + __obj84774 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9669,94 +9669,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84777 + __obj84774 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86490 |gx[1]#_g86491_|)) + (let ((__tmp86487 |gx[1]#_g86488_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84777 - __tmp86490 + __obj84774 + __tmp86487 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86492 |gx[1]#_g86493_|)) + (let ((__tmp86489 |gx[1]#_g86490_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84777 - __tmp86492 + __obj84774 + __tmp86489 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86494 |gx[1]#_g86495_|)) + (let ((__tmp86491 |gx[1]#_g86492_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84777 - __tmp86494 + __obj84774 + __tmp86491 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86496 - (let ((__tmp86497 - (let ((__tmp86498 |gx[1]#_g86499_|)) + (let ((__tmp86493 + (let ((__tmp86494 + (let ((__tmp86495 |gx[1]#_g86496_|)) (declare (not safe)) - (cons 'e __tmp86498)))) + (cons 'e __tmp86495)))) (declare (not safe)) - (cons __tmp86497 '())))) + (cons __tmp86494 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84777 - __tmp86496 + __obj84774 + __tmp86493 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86500 - (let ((__tmp86501 - (let ((__tmp86502 |gx[1]#_g86503_|)) + (let ((__tmp86497 + (let ((__tmp86498 + (let ((__tmp86499 |gx[1]#_g86500_|)) (declare (not safe)) - (cons 'e __tmp86502)))) + (cons 'e __tmp86499)))) (declare (not safe)) - (cons __tmp86501 '())))) + (cons __tmp86498 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84777 - __tmp86500 + __obj84774 + __tmp86497 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86504 - (let ((__tmp86505 - (let ((__tmp86506 |gx[1]#_g86507_|)) + (let ((__tmp86501 + (let ((__tmp86502 + (let ((__tmp86503 |gx[1]#_g86504_|)) (declare (not safe)) - (cons 'e __tmp86506)))) + (cons 'e __tmp86503)))) (declare (not safe)) - (cons __tmp86505 '())))) + (cons __tmp86502 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84777 - __tmp86504 + __obj84774 + __tmp86501 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86508 - (let ((__tmp86509 - (let ((__tmp86510 |gx[1]#_g86511_|)) + (let ((__tmp86505 + (let ((__tmp86506 + (let ((__tmp86507 |gx[1]#_g86508_|)) (declare (not safe)) - (cons 'e __tmp86510)))) + (cons 'e __tmp86507)))) (declare (not safe)) - (cons __tmp86509 '())))) + (cons __tmp86506 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84777 - __tmp86508 + __obj84774 + __tmp86505 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84777)) + __obj84774)) (define |gx[:0:]#reserved-expander| - (let ((__obj84778 + (let ((__obj84775 (let () (declare (not safe)) (##structure @@ -9779,7 +9779,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84778 + __obj84775 '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! - __obj84778 + __obj84775 'reserved-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9795,26 +9795,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84778 + __obj84775 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86512 - (let ((__tmp86513 |gx[1]#_g86125_|)) + (let ((__tmp86509 + (let ((__tmp86510 |gx[1]#_g86122_|)) (declare (not safe)) - (cons __tmp86513 '())))) + (cons __tmp86510 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84778 - __tmp86512 + __obj84775 + __tmp86509 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84778 + __obj84775 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9822,7 +9822,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84778 + __obj84775 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9830,7 +9830,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84778 + __obj84775 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9838,94 +9838,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84778 + __obj84775 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86514 |gx[1]#_g86515_|)) + (let ((__tmp86511 |gx[1]#_g86512_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84778 - __tmp86514 + __obj84775 + __tmp86511 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86516 |gx[1]#_g86517_|)) + (let ((__tmp86513 |gx[1]#_g86514_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84778 - __tmp86516 + __obj84775 + __tmp86513 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86518 |gx[1]#_g86519_|)) + (let ((__tmp86515 |gx[1]#_g86516_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84778 - __tmp86518 + __obj84775 + __tmp86515 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86520 - (let ((__tmp86521 - (let ((__tmp86522 |gx[1]#_g86523_|)) + (let ((__tmp86517 + (let ((__tmp86518 + (let ((__tmp86519 |gx[1]#_g86520_|)) (declare (not safe)) - (cons 'e __tmp86522)))) + (cons 'e __tmp86519)))) (declare (not safe)) - (cons __tmp86521 '())))) + (cons __tmp86518 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84778 - __tmp86520 + __obj84775 + __tmp86517 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86524 - (let ((__tmp86525 - (let ((__tmp86526 |gx[1]#_g86527_|)) + (let ((__tmp86521 + (let ((__tmp86522 + (let ((__tmp86523 |gx[1]#_g86524_|)) (declare (not safe)) - (cons 'e __tmp86526)))) + (cons 'e __tmp86523)))) (declare (not safe)) - (cons __tmp86525 '())))) + (cons __tmp86522 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84778 - __tmp86524 + __obj84775 + __tmp86521 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86528 - (let ((__tmp86529 - (let ((__tmp86530 |gx[1]#_g86531_|)) + (let ((__tmp86525 + (let ((__tmp86526 + (let ((__tmp86527 |gx[1]#_g86528_|)) (declare (not safe)) - (cons 'e __tmp86530)))) + (cons 'e __tmp86527)))) (declare (not safe)) - (cons __tmp86529 '())))) + (cons __tmp86526 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84778 - __tmp86528 + __obj84775 + __tmp86525 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86532 - (let ((__tmp86533 - (let ((__tmp86534 |gx[1]#_g86535_|)) + (let ((__tmp86529 + (let ((__tmp86530 + (let ((__tmp86531 |gx[1]#_g86532_|)) (declare (not safe)) - (cons 'e __tmp86534)))) + (cons 'e __tmp86531)))) (declare (not safe)) - (cons __tmp86533 '())))) + (cons __tmp86530 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84778 - __tmp86532 + __obj84775 + __tmp86529 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84778)) + __obj84775)) (define |gx[:0:]#macro-expander| - (let ((__obj84779 + (let ((__obj84776 (let () (declare (not safe)) (##structure @@ -9948,7 +9948,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84779 + __obj84776 '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! - __obj84779 + __obj84776 'macro-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9964,26 +9964,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84779 + __obj84776 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86536 - (let ((__tmp86537 |gx[1]#_g86125_|)) + (let ((__tmp86533 + (let ((__tmp86534 |gx[1]#_g86122_|)) (declare (not safe)) - (cons __tmp86537 '())))) + (cons __tmp86534 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84779 - __tmp86536 + __obj84776 + __tmp86533 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84779 + __obj84776 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9991,7 +9991,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84779 + __obj84776 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9999,7 +9999,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84779 + __obj84776 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10007,94 +10007,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84779 + __obj84776 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86538 |gx[1]#_g86539_|)) + (let ((__tmp86535 |gx[1]#_g86536_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84779 - __tmp86538 + __obj84776 + __tmp86535 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86540 |gx[1]#_g86541_|)) + (let ((__tmp86537 |gx[1]#_g86538_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84779 - __tmp86540 + __obj84776 + __tmp86537 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86542 |gx[1]#_g86543_|)) + (let ((__tmp86539 |gx[1]#_g86540_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84779 - __tmp86542 + __obj84776 + __tmp86539 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86544 - (let ((__tmp86545 - (let ((__tmp86546 |gx[1]#_g86547_|)) + (let ((__tmp86541 + (let ((__tmp86542 + (let ((__tmp86543 |gx[1]#_g86544_|)) (declare (not safe)) - (cons 'e __tmp86546)))) + (cons 'e __tmp86543)))) (declare (not safe)) - (cons __tmp86545 '())))) + (cons __tmp86542 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84779 - __tmp86544 + __obj84776 + __tmp86541 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86548 - (let ((__tmp86549 - (let ((__tmp86550 |gx[1]#_g86551_|)) + (let ((__tmp86545 + (let ((__tmp86546 + (let ((__tmp86547 |gx[1]#_g86548_|)) (declare (not safe)) - (cons 'e __tmp86550)))) + (cons 'e __tmp86547)))) (declare (not safe)) - (cons __tmp86549 '())))) + (cons __tmp86546 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84779 - __tmp86548 + __obj84776 + __tmp86545 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86552 - (let ((__tmp86553 - (let ((__tmp86554 |gx[1]#_g86555_|)) + (let ((__tmp86549 + (let ((__tmp86550 + (let ((__tmp86551 |gx[1]#_g86552_|)) (declare (not safe)) - (cons 'e __tmp86554)))) + (cons 'e __tmp86551)))) (declare (not safe)) - (cons __tmp86553 '())))) + (cons __tmp86550 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84779 - __tmp86552 + __obj84776 + __tmp86549 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86556 - (let ((__tmp86557 - (let ((__tmp86558 |gx[1]#_g86559_|)) + (let ((__tmp86553 + (let ((__tmp86554 + (let ((__tmp86555 |gx[1]#_g86556_|)) (declare (not safe)) - (cons 'e __tmp86558)))) + (cons 'e __tmp86555)))) (declare (not safe)) - (cons __tmp86557 '())))) + (cons __tmp86554 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84779 - __tmp86556 + __obj84776 + __tmp86553 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84779)) + __obj84776)) (define |gx[:0:]#rename-macro-expander| - (let ((__obj84780 + (let ((__obj84777 (let () (declare (not safe)) (##structure @@ -10117,7 +10117,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84780 + __obj84777 '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! - __obj84780 + __obj84777 'rename-macro-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10133,26 +10133,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84780 + __obj84777 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86560 - (let ((__tmp86561 |gx[1]#_g86562_|)) + (let ((__tmp86557 + (let ((__tmp86558 |gx[1]#_g86559_|)) (declare (not safe)) - (cons __tmp86561 '())))) + (cons __tmp86558 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84780 - __tmp86560 + __obj84777 + __tmp86557 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84780 + __obj84777 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10160,7 +10160,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84780 + __obj84777 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10168,7 +10168,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84780 + __obj84777 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10176,94 +10176,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84780 + __obj84777 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86563 |gx[1]#_g86564_|)) + (let ((__tmp86560 |gx[1]#_g86561_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84780 - __tmp86563 + __obj84777 + __tmp86560 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86565 |gx[1]#_g86566_|)) + (let ((__tmp86562 |gx[1]#_g86563_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84780 - __tmp86565 + __obj84777 + __tmp86562 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86567 |gx[1]#_g86568_|)) + (let ((__tmp86564 |gx[1]#_g86565_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84780 - __tmp86567 + __obj84777 + __tmp86564 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86569 - (let ((__tmp86570 - (let ((__tmp86571 |gx[1]#_g86572_|)) + (let ((__tmp86566 + (let ((__tmp86567 + (let ((__tmp86568 |gx[1]#_g86569_|)) (declare (not safe)) - (cons 'e __tmp86571)))) + (cons 'e __tmp86568)))) (declare (not safe)) - (cons __tmp86570 '())))) + (cons __tmp86567 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84780 - __tmp86569 + __obj84777 + __tmp86566 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86573 - (let ((__tmp86574 - (let ((__tmp86575 |gx[1]#_g86576_|)) + (let ((__tmp86570 + (let ((__tmp86571 + (let ((__tmp86572 |gx[1]#_g86573_|)) (declare (not safe)) - (cons 'e __tmp86575)))) + (cons 'e __tmp86572)))) (declare (not safe)) - (cons __tmp86574 '())))) + (cons __tmp86571 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84780 - __tmp86573 + __obj84777 + __tmp86570 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86577 - (let ((__tmp86578 - (let ((__tmp86579 |gx[1]#_g86580_|)) + (let ((__tmp86574 + (let ((__tmp86575 + (let ((__tmp86576 |gx[1]#_g86577_|)) (declare (not safe)) - (cons 'e __tmp86579)))) + (cons 'e __tmp86576)))) (declare (not safe)) - (cons __tmp86578 '())))) + (cons __tmp86575 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84780 - __tmp86577 + __obj84777 + __tmp86574 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86581 - (let ((__tmp86582 - (let ((__tmp86583 |gx[1]#_g86584_|)) + (let ((__tmp86578 + (let ((__tmp86579 + (let ((__tmp86580 |gx[1]#_g86581_|)) (declare (not safe)) - (cons 'e __tmp86583)))) + (cons 'e __tmp86580)))) (declare (not safe)) - (cons __tmp86582 '())))) + (cons __tmp86579 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84780 - __tmp86581 + __obj84777 + __tmp86578 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84780)) + __obj84777)) (define |gx[:0:]#user-expander| - (let ((__obj84781 + (let ((__obj84778 (let () (declare (not safe)) (##structure @@ -10286,7 +10286,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84781 + __obj84778 '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! - __obj84781 + __obj84778 'user-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10302,26 +10302,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84781 + __obj84778 '(context phi) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86585 - (let ((__tmp86586 |gx[1]#_g86562_|)) + (let ((__tmp86582 + (let ((__tmp86583 |gx[1]#_g86559_|)) (declare (not safe)) - (cons __tmp86586 '())))) + (cons __tmp86583 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84781 - __tmp86585 + __obj84778 + __tmp86582 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84781 + __obj84778 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10329,7 +10329,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84781 + __obj84778 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10337,7 +10337,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84781 + __obj84778 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10345,150 +10345,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84781 + __obj84778 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86587 |gx[1]#_g86588_|)) + (let ((__tmp86584 |gx[1]#_g86585_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84781 - __tmp86587 + __obj84778 + __tmp86584 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86589 |gx[1]#_g86590_|)) + (let ((__tmp86586 |gx[1]#_g86587_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84781 - __tmp86589 + __obj84778 + __tmp86586 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86591 |gx[1]#_g86592_|)) + (let ((__tmp86588 |gx[1]#_g86589_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84781 - __tmp86591 + __obj84778 + __tmp86588 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86593 - (let ((__tmp86602 - (let ((__tmp86603 |gx[1]#_g86604_|)) + (let ((__tmp86590 + (let ((__tmp86599 + (let ((__tmp86600 |gx[1]#_g86601_|)) (declare (not safe)) - (cons 'context __tmp86603))) - (__tmp86594 - (let ((__tmp86599 - (let ((__tmp86600 |gx[1]#_g86601_|)) + (cons 'context __tmp86600))) + (__tmp86591 + (let ((__tmp86596 + (let ((__tmp86597 |gx[1]#_g86598_|)) (declare (not safe)) - (cons 'phi __tmp86600))) - (__tmp86595 - (let ((__tmp86596 - (let ((__tmp86597 |gx[1]#_g86598_|)) + (cons 'phi __tmp86597))) + (__tmp86592 + (let ((__tmp86593 + (let ((__tmp86594 |gx[1]#_g86595_|)) (declare (not safe)) - (cons 'e __tmp86597)))) + (cons 'e __tmp86594)))) (declare (not safe)) - (cons __tmp86596 '())))) + (cons __tmp86593 '())))) (declare (not safe)) - (cons __tmp86599 __tmp86595)))) + (cons __tmp86596 __tmp86592)))) (declare (not safe)) - (cons __tmp86602 __tmp86594)))) + (cons __tmp86599 __tmp86591)))) (declare (not safe)) (##unchecked-structure-set! - __obj84781 - __tmp86593 + __obj84778 + __tmp86590 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86605 - (let ((__tmp86614 - (let ((__tmp86615 |gx[1]#_g86616_|)) + (let ((__tmp86602 + (let ((__tmp86611 + (let ((__tmp86612 |gx[1]#_g86613_|)) (declare (not safe)) - (cons 'context __tmp86615))) - (__tmp86606 - (let ((__tmp86611 - (let ((__tmp86612 |gx[1]#_g86613_|)) + (cons 'context __tmp86612))) + (__tmp86603 + (let ((__tmp86608 + (let ((__tmp86609 |gx[1]#_g86610_|)) (declare (not safe)) - (cons 'phi __tmp86612))) - (__tmp86607 - (let ((__tmp86608 - (let ((__tmp86609 |gx[1]#_g86610_|)) + (cons 'phi __tmp86609))) + (__tmp86604 + (let ((__tmp86605 + (let ((__tmp86606 |gx[1]#_g86607_|)) (declare (not safe)) - (cons 'e __tmp86609)))) + (cons 'e __tmp86606)))) (declare (not safe)) - (cons __tmp86608 '())))) + (cons __tmp86605 '())))) (declare (not safe)) - (cons __tmp86611 __tmp86607)))) + (cons __tmp86608 __tmp86604)))) (declare (not safe)) - (cons __tmp86614 __tmp86606)))) + (cons __tmp86611 __tmp86603)))) (declare (not safe)) (##unchecked-structure-set! - __obj84781 - __tmp86605 + __obj84778 + __tmp86602 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86617 - (let ((__tmp86626 - (let ((__tmp86627 |gx[1]#_g86628_|)) + (let ((__tmp86614 + (let ((__tmp86623 + (let ((__tmp86624 |gx[1]#_g86625_|)) (declare (not safe)) - (cons 'context __tmp86627))) - (__tmp86618 - (let ((__tmp86623 - (let ((__tmp86624 |gx[1]#_g86625_|)) + (cons 'context __tmp86624))) + (__tmp86615 + (let ((__tmp86620 + (let ((__tmp86621 |gx[1]#_g86622_|)) (declare (not safe)) - (cons 'phi __tmp86624))) - (__tmp86619 - (let ((__tmp86620 - (let ((__tmp86621 |gx[1]#_g86622_|)) + (cons 'phi __tmp86621))) + (__tmp86616 + (let ((__tmp86617 + (let ((__tmp86618 |gx[1]#_g86619_|)) (declare (not safe)) - (cons 'e __tmp86621)))) + (cons 'e __tmp86618)))) (declare (not safe)) - (cons __tmp86620 '())))) + (cons __tmp86617 '())))) (declare (not safe)) - (cons __tmp86623 __tmp86619)))) + (cons __tmp86620 __tmp86616)))) (declare (not safe)) - (cons __tmp86626 __tmp86618)))) + (cons __tmp86623 __tmp86615)))) (declare (not safe)) (##unchecked-structure-set! - __obj84781 - __tmp86617 + __obj84778 + __tmp86614 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86629 - (let ((__tmp86638 - (let ((__tmp86639 |gx[1]#_g86640_|)) + (let ((__tmp86626 + (let ((__tmp86635 + (let ((__tmp86636 |gx[1]#_g86637_|)) (declare (not safe)) - (cons 'context __tmp86639))) - (__tmp86630 - (let ((__tmp86635 - (let ((__tmp86636 |gx[1]#_g86637_|)) + (cons 'context __tmp86636))) + (__tmp86627 + (let ((__tmp86632 + (let ((__tmp86633 |gx[1]#_g86634_|)) (declare (not safe)) - (cons 'phi __tmp86636))) - (__tmp86631 - (let ((__tmp86632 - (let ((__tmp86633 |gx[1]#_g86634_|)) + (cons 'phi __tmp86633))) + (__tmp86628 + (let ((__tmp86629 + (let ((__tmp86630 |gx[1]#_g86631_|)) (declare (not safe)) - (cons 'e __tmp86633)))) + (cons 'e __tmp86630)))) (declare (not safe)) - (cons __tmp86632 '())))) + (cons __tmp86629 '())))) (declare (not safe)) - (cons __tmp86635 __tmp86631)))) + (cons __tmp86632 __tmp86628)))) (declare (not safe)) - (cons __tmp86638 __tmp86630)))) + (cons __tmp86635 __tmp86627)))) (declare (not safe)) (##unchecked-structure-set! - __obj84781 - __tmp86629 + __obj84778 + __tmp86626 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84781)) + __obj84778)) (define |gx[:0:]#expander-mark| - (let ((__obj84782 + (let ((__obj84779 (let () (declare (not safe)) (##structure @@ -10511,7 +10511,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84782 + __obj84779 '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! - __obj84782 + __obj84779 'expander-mark '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10527,7 +10527,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84782 + __obj84779 '(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! - __obj84782 + __obj84779 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10543,7 +10543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84782 + __obj84779 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10551,7 +10551,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84782 + __obj84779 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10559,7 +10559,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84782 + __obj84779 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10567,249 +10567,249 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84782 + __obj84779 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86641 |gx[1]#_g86642_|)) + (let ((__tmp86638 |gx[1]#_g86639_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84782 - __tmp86641 + __obj84779 + __tmp86638 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86643 |gx[1]#_g86644_|)) + (let ((__tmp86640 |gx[1]#_g86641_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84782 - __tmp86643 + __obj84779 + __tmp86640 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86645 |gx[1]#_g86646_|)) + (let ((__tmp86642 |gx[1]#_g86643_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84782 - __tmp86645 + __obj84779 + __tmp86642 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86647 - (let ((__tmp86660 - (let ((__tmp86661 |gx[1]#_g86662_|)) + (let ((__tmp86644 + (let ((__tmp86657 + (let ((__tmp86658 |gx[1]#_g86659_|)) (declare (not safe)) - (cons 'subst __tmp86661))) - (__tmp86648 - (let ((__tmp86657 - (let ((__tmp86658 |gx[1]#_g86659_|)) + (cons 'subst __tmp86658))) + (__tmp86645 + (let ((__tmp86654 + (let ((__tmp86655 |gx[1]#_g86656_|)) (declare (not safe)) - (cons 'context __tmp86658))) - (__tmp86649 - (let ((__tmp86654 - (let ((__tmp86655 |gx[1]#_g86656_|)) + (cons 'context __tmp86655))) + (__tmp86646 + (let ((__tmp86651 + (let ((__tmp86652 |gx[1]#_g86653_|)) (declare (not safe)) - (cons 'phi __tmp86655))) - (__tmp86650 - (let ((__tmp86651 - (let ((__tmp86652 |gx[1]#_g86653_|)) + (cons 'phi __tmp86652))) + (__tmp86647 + (let ((__tmp86648 + (let ((__tmp86649 |gx[1]#_g86650_|)) (declare (not safe)) - (cons 'trace __tmp86652)))) + (cons 'trace __tmp86649)))) (declare (not safe)) - (cons __tmp86651 '())))) + (cons __tmp86648 '())))) (declare (not safe)) - (cons __tmp86654 __tmp86650)))) + (cons __tmp86651 __tmp86647)))) (declare (not safe)) - (cons __tmp86657 __tmp86649)))) + (cons __tmp86654 __tmp86646)))) (declare (not safe)) - (cons __tmp86660 __tmp86648)))) + (cons __tmp86657 __tmp86645)))) (declare (not safe)) (##unchecked-structure-set! - __obj84782 - __tmp86647 + __obj84779 + __tmp86644 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86663 - (let ((__tmp86676 - (let ((__tmp86677 |gx[1]#_g86678_|)) + (let ((__tmp86660 + (let ((__tmp86673 + (let ((__tmp86674 |gx[1]#_g86675_|)) (declare (not safe)) - (cons 'subst __tmp86677))) - (__tmp86664 - (let ((__tmp86673 - (let ((__tmp86674 |gx[1]#_g86675_|)) + (cons 'subst __tmp86674))) + (__tmp86661 + (let ((__tmp86670 + (let ((__tmp86671 |gx[1]#_g86672_|)) (declare (not safe)) - (cons 'context __tmp86674))) - (__tmp86665 - (let ((__tmp86670 - (let ((__tmp86671 |gx[1]#_g86672_|)) + (cons 'context __tmp86671))) + (__tmp86662 + (let ((__tmp86667 + (let ((__tmp86668 |gx[1]#_g86669_|)) (declare (not safe)) - (cons 'phi __tmp86671))) - (__tmp86666 - (let ((__tmp86667 - (let ((__tmp86668 |gx[1]#_g86669_|)) + (cons 'phi __tmp86668))) + (__tmp86663 + (let ((__tmp86664 + (let ((__tmp86665 |gx[1]#_g86666_|)) (declare (not safe)) - (cons 'trace __tmp86668)))) + (cons 'trace __tmp86665)))) (declare (not safe)) - (cons __tmp86667 '())))) + (cons __tmp86664 '())))) (declare (not safe)) - (cons __tmp86670 __tmp86666)))) + (cons __tmp86667 __tmp86663)))) (declare (not safe)) - (cons __tmp86673 __tmp86665)))) + (cons __tmp86670 __tmp86662)))) (declare (not safe)) - (cons __tmp86676 __tmp86664)))) + (cons __tmp86673 __tmp86661)))) (declare (not safe)) (##unchecked-structure-set! - __obj84782 - __tmp86663 + __obj84779 + __tmp86660 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86679 - (let ((__tmp86692 - (let ((__tmp86693 |gx[1]#_g86694_|)) + (let ((__tmp86676 + (let ((__tmp86689 + (let ((__tmp86690 |gx[1]#_g86691_|)) (declare (not safe)) - (cons 'subst __tmp86693))) - (__tmp86680 - (let ((__tmp86689 - (let ((__tmp86690 |gx[1]#_g86691_|)) + (cons 'subst __tmp86690))) + (__tmp86677 + (let ((__tmp86686 + (let ((__tmp86687 |gx[1]#_g86688_|)) (declare (not safe)) - (cons 'context __tmp86690))) - (__tmp86681 - (let ((__tmp86686 - (let ((__tmp86687 |gx[1]#_g86688_|)) + (cons 'context __tmp86687))) + (__tmp86678 + (let ((__tmp86683 + (let ((__tmp86684 |gx[1]#_g86685_|)) (declare (not safe)) - (cons 'phi __tmp86687))) - (__tmp86682 - (let ((__tmp86683 - (let ((__tmp86684 |gx[1]#_g86685_|)) + (cons 'phi __tmp86684))) + (__tmp86679 + (let ((__tmp86680 + (let ((__tmp86681 |gx[1]#_g86682_|)) (declare (not safe)) - (cons 'trace __tmp86684)))) + (cons 'trace __tmp86681)))) (declare (not safe)) - (cons __tmp86683 '())))) + (cons __tmp86680 '())))) (declare (not safe)) - (cons __tmp86686 __tmp86682)))) + (cons __tmp86683 __tmp86679)))) (declare (not safe)) - (cons __tmp86689 __tmp86681)))) + (cons __tmp86686 __tmp86678)))) (declare (not safe)) - (cons __tmp86692 __tmp86680)))) + (cons __tmp86689 __tmp86677)))) (declare (not safe)) (##unchecked-structure-set! - __obj84782 - __tmp86679 + __obj84779 + __tmp86676 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86695 - (let ((__tmp86708 - (let ((__tmp86709 |gx[1]#_g86710_|)) + (let ((__tmp86692 + (let ((__tmp86705 + (let ((__tmp86706 |gx[1]#_g86707_|)) (declare (not safe)) - (cons 'subst __tmp86709))) - (__tmp86696 - (let ((__tmp86705 - (let ((__tmp86706 |gx[1]#_g86707_|)) + (cons 'subst __tmp86706))) + (__tmp86693 + (let ((__tmp86702 + (let ((__tmp86703 |gx[1]#_g86704_|)) (declare (not safe)) - (cons 'context __tmp86706))) - (__tmp86697 - (let ((__tmp86702 - (let ((__tmp86703 |gx[1]#_g86704_|)) + (cons 'context __tmp86703))) + (__tmp86694 + (let ((__tmp86699 + (let ((__tmp86700 |gx[1]#_g86701_|)) (declare (not safe)) - (cons 'phi __tmp86703))) - (__tmp86698 - (let ((__tmp86699 - (let ((__tmp86700 |gx[1]#_g86701_|)) + (cons 'phi __tmp86700))) + (__tmp86695 + (let ((__tmp86696 + (let ((__tmp86697 |gx[1]#_g86698_|)) (declare (not safe)) - (cons 'trace __tmp86700)))) + (cons 'trace __tmp86697)))) (declare (not safe)) - (cons __tmp86699 '())))) + (cons __tmp86696 '())))) (declare (not safe)) - (cons __tmp86702 __tmp86698)))) + (cons __tmp86699 __tmp86695)))) (declare (not safe)) - (cons __tmp86705 __tmp86697)))) + (cons __tmp86702 __tmp86694)))) (declare (not safe)) - (cons __tmp86708 __tmp86696)))) + (cons __tmp86705 __tmp86693)))) (declare (not safe)) (##unchecked-structure-set! - __obj84782 - __tmp86695 + __obj84779 + __tmp86692 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84782)) + __obj84779)) (define |gx[:0:]#&phi-context?| - (lambda (_$stx81747_) - (let* ((_g8175181765_ - (lambda (_g8175281761_) + (lambda (_$stx81744_) + (let* ((_g8174881762_ + (lambda (_g8174981758_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8175281761_)))) - (_g8175081807_ - (lambda (_g8175281769_) + _g8174981758_)))) + (_g8174781804_ + (lambda (_g8174981766_) (if (let () (declare (not safe)) - (gx#stx-pair? _g8175281769_)) - (let ((_e8175681772_ + (gx#stx-pair? _g8174981766_)) + (let ((_e8175381769_ (let () (declare (not safe)) - (gx#syntax-e _g8175281769_)))) - (let ((_hd8175581776_ + (gx#syntax-e _g8174981766_)))) + (let ((_hd8175281773_ (let () (declare (not safe)) - (##car _e8175681772_))) - (_tl8175481779_ + (##car _e8175381769_))) + (_tl8175181776_ (let () (declare (not safe)) - (##cdr _e8175681772_)))) + (##cdr _e8175381769_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl8175481779_)) - (let ((_e8175981782_ + (gx#stx-pair? _tl8175181776_)) + (let ((_e8175681779_ (let () (declare (not safe)) - (gx#syntax-e _tl8175481779_)))) - (let ((_hd8175881786_ + (gx#syntax-e _tl8175181776_)))) + (let ((_hd8175581783_ (let () (declare (not safe)) - (##car _e8175981782_))) - (_tl8175781789_ + (##car _e8175681779_))) + (_tl8175481786_ (let () (declare (not safe)) - (##cdr _e8175981782_)))) + (##cdr _e8175681779_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl8175781789_)) - ((lambda (_L81792_) - (let ((__tmp86716 + (gx#stx-null? _tl8175481786_)) + ((lambda (_L81789_) + (let ((__tmp86713 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'fx>))) - (__tmp86711 - (let ((__tmp86713 - (let ((__tmp86715 + (__tmp86708 + (let ((__tmp86710 + (let ((__tmp86712 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '##vector-length))) - (__tmp86714 - (let () (declare (not safe)) (cons _L81792_ '())))) + (__tmp86711 + (let () (declare (not safe)) (cons _L81789_ '())))) (declare (not safe)) - (cons __tmp86715 __tmp86714))) - (__tmp86712 (let () (declare (not safe)) (cons '3 '())))) + (cons __tmp86712 __tmp86711))) + (__tmp86709 (let () (declare (not safe)) (cons '3 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86713 - __tmp86712)))) + (cons __tmp86710 + __tmp86709)))) (declare (not safe)) - (cons __tmp86716 __tmp86711))) - _hd8175881786_) - (_g8175181765_ _g8175281769_)))) - (_g8175181765_ _g8175281769_)))) - (_g8175181765_ _g8175281769_))))) - (_g8175081807_ _$stx81747_)))))) + (cons __tmp86713 __tmp86708))) + _hd8175581783_) + (_g8174881762_ _g8174981766_)))) + (_g8174881762_ _g8174981766_)))) + (_g8174881762_ _g8174981766_))))) + (_g8174781804_ _$stx81744_)))))) diff --git a/src/bootstrap/gerbil/expander/module.ssxi.ss b/src/bootstrap/gerbil/expander/module.ssxi.ss index f0f6d84c..170ad084 100644 --- a/src/bootstrap/gerbil/expander/module.ssxi.ss +++ b/src/bootstrap/gerbil/expander/module.ssxi.ss @@ -197,8 +197,10 @@ package: gerbil/expander #f #f #f - ((apply-import-expander . gx#import-expander::apply-import-expander) - (:init! . gx#import-expander:::init!)))) + ((:init! . gx#import-expander:::init!) + (apply-import-expander + . + gx#import-expander::apply-import-expander)))) (declare-type gx#import-expander? (@predicate gx#import-expander::t)) (declare-type gx#make-import-expander (@constructor gx#import-expander::t)) (declare-type diff --git a/src/bootstrap/gerbil/expander/module__0.scm b/src/bootstrap/gerbil/expander/module__0.scm index fe8e3c85..19f86c30 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 1709128372) + (define gerbil/expander/module::timestamp 1709229970) (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 _$args93198_ - (apply make-instance gx#module-import::t _$args93198_))) + (lambda _$args93195_ + (apply make-instance gx#module-import::t _$args93195_))) (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 _$args93195_ - (apply make-instance gx#module-export::t _$args93195_))) + (lambda _$args93192_ + (apply make-instance gx#module-export::t _$args93192_))) (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 _$args93192_ - (apply make-instance gx#import-set::t _$args93192_))) + (lambda _$args93189_ + (apply make-instance gx#import-set::t _$args93189_))) (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 _$args93189_ - (apply make-instance gx#export-set::t _$args93189_))) + (lambda _$args93186_ + (apply make-instance gx#export-set::t _$args93186_))) (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 _$args93186_ - (apply make-instance gx#import-expander::t _$args93186_))) + (lambda _$args93183_ + (apply make-instance gx#import-expander::t _$args93183_))) (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 _$args93183_ - (apply make-instance gx#export-expander::t _$args93183_))) + (lambda _$args93180_ + (apply make-instance gx#export-expander::t _$args93180_))) (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 _$args93180_ - (apply make-instance gx#import-export-expander::t _$args93180_))) + (lambda _$args93177_ + (apply make-instance gx#import-export-expander::t _$args93177_))) (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 (_path93177_ _fun93178_) + (lambda (_path93174_ _fun93175_) (call-with-input-file - (cons 'path: (cons _path93177_ gx#source-file-settings)) - _fun93178_))) + (cons 'path: (cons _path93174_ gx#source-file-settings)) + _fun93175_))) (define gx#module-context:::init! - (lambda (_self93171_ _id93172_ _super93173_ _ns93174_ _path93175_) - (if (##fx< '11 (##structure-length _self93171_)) + (lambda (_self93168_ _id93169_ _super93170_ _ns93171_ _path93172_) + (if (##fx< '11 (##structure-length _self93168_)) (begin (##unchecked-structure-set! - _self93171_ - _id93172_ + _self93168_ + _id93169_ '1 - (##structure-type _self93171_) + (##structure-type _self93168_) '#f) (##unchecked-structure-set! - _self93171_ + _self93168_ (make-hash-table-eq) '2 - (##structure-type _self93171_) + (##structure-type _self93168_) '#f) (##unchecked-structure-set! - _self93171_ - _super93173_ + _self93168_ + _super93170_ '3 - (##structure-type _self93171_) + (##structure-type _self93168_) '#f) (##unchecked-structure-set! - _self93171_ + _self93168_ '#f '4 - (##structure-type _self93171_) + (##structure-type _self93168_) '#f) (##unchecked-structure-set! - _self93171_ + _self93168_ '#f '5 - (##structure-type _self93171_) + (##structure-type _self93168_) '#f) (##unchecked-structure-set! - _self93171_ - _ns93174_ + _self93168_ + _ns93171_ '6 - (##structure-type _self93171_) + (##structure-type _self93168_) '#f) (##unchecked-structure-set! - _self93171_ - _path93175_ + _self93168_ + _path93172_ '7 - (##structure-type _self93171_) + (##structure-type _self93168_) '#f) (##unchecked-structure-set! - _self93171_ + _self93168_ '() '8 - (##structure-type _self93171_) + (##structure-type _self93168_) '#f) (##unchecked-structure-set! - _self93171_ + _self93168_ '() '9 - (##structure-type _self93171_) + (##structure-type _self93168_) '#f) (##unchecked-structure-set! - _self93171_ + _self93168_ '#f '10 - (##structure-type _self93171_) + (##structure-type _self93168_) '#f) (##unchecked-structure-set! - _self93171_ + _self93168_ '#f '11 - (##structure-type _self93171_) + (##structure-type _self93168_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self93171_ + _self93168_ '11 - (##vector-length _self93171_))))) + (##vector-length _self93168_))))) (bind-method!__% gx#module-context::t ':init! gx#module-context:::init! '#f) (define gx#prelude-context:::init!__% - (lambda (_self93015_ _ctx93016_ _root93017_) - (let ((_super93025_ - (let ((_$e93019_ _root93017_)) - (if _$e93019_ - _$e93019_ - (let ((_$e93022_ (gx#core-context-root__0))) - (if _$e93022_ - _$e93022_ - (let ((__obj93240 + (lambda (_self93012_ _ctx93013_ _root93014_) + (let ((_super93022_ + (let ((_$e93016_ _root93014_)) + (if _$e93016_ + _$e93016_ + (let ((_$e93019_ (gx#core-context-root__0))) + (if _$e93019_ + _$e93019_ + (let ((__obj93237 (##structure gx#root-context::t '#f '#f))) - (let ((__constructor93241 + (let ((__constructor93238 (direct-method-ref gx#root-context::t - __obj93240 + __obj93237 ':init!))) - (if __constructor93241 - (__constructor93241 __obj93240) + (if __constructor93238 + (__constructor93238 __obj93237) (error '"missing constructor method implementation" 'class: gx#root-context::t 'method: ':init!))) - __obj93240))))))) - (if _ctx93016_ - (let ((_id93028_ + __obj93237))))))) + (if _ctx93013_ + (let ((_id93025_ (##structure-ref - _ctx93016_ + _ctx93013_ '1 gx#expander-context::t '#f)) - (_path93029_ - (##structure-ref _ctx93016_ '7 gx#module-context::t '#f)) - (_in93030_ + (_path93026_ + (##structure-ref _ctx93013_ '7 gx#module-context::t '#f)) + (_in93027_ (map gx#core-module-export->import (##structure-ref - _ctx93016_ + _ctx93013_ '9 gx#module-context::t '#f))) - (_e93031_ - (make-promise (lambda () (gx#eval-module _ctx93016_))))) - (if (##fx< '8 (##structure-length _self93015_)) + (_e93028_ + (make-promise (lambda () (gx#eval-module _ctx93013_))))) + (if (##fx< '8 (##structure-length _self93012_)) (begin (##unchecked-structure-set! - _self93015_ - _id93028_ + _self93012_ + _id93025_ '1 - (##structure-type _self93015_) + (##structure-type _self93012_) '#f) (##unchecked-structure-set! - _self93015_ - (make-hash-table-eq 'size: (length _in93030_)) + _self93012_ + (make-hash-table-eq 'size: (length _in93027_)) '2 - (##structure-type _self93015_) + (##structure-type _self93012_) '#f) (##unchecked-structure-set! - _self93015_ - _super93025_ + _self93012_ + _super93022_ '3 - (##structure-type _self93015_) + (##structure-type _self93012_) '#f) (##unchecked-structure-set! - _self93015_ + _self93012_ '#f '4 - (##structure-type _self93015_) + (##structure-type _self93012_) '#f) (##unchecked-structure-set! - _self93015_ + _self93012_ '#f '5 - (##structure-type _self93015_) + (##structure-type _self93012_) '#f) (##unchecked-structure-set! - _self93015_ - _path93029_ + _self93012_ + _path93026_ '6 - (##structure-type _self93015_) + (##structure-type _self93012_) '#f) (##unchecked-structure-set! - _self93015_ - _in93030_ + _self93012_ + _in93027_ '7 - (##structure-type _self93015_) + (##structure-type _self93012_) '#f) (##unchecked-structure-set! - _self93015_ - _e93031_ + _self93012_ + _e93028_ '8 - (##structure-type _self93015_) + (##structure-type _self93012_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self93015_ + _self93012_ '8 - (##vector-length _self93015_))) + (##vector-length _self93012_))) (for-each - (lambda (_g9303293034_) - (gx#core-bind-weak-import!__% _g9303293034_ _self93015_)) - _in93030_)) - (if (##fx< '8 (##structure-length _self93015_)) + (lambda (_g9302993031_) + (gx#core-bind-weak-import!__% _g9302993031_ _self93012_)) + _in93027_)) + (if (##fx< '8 (##structure-length _self93012_)) (begin (##unchecked-structure-set! - _self93015_ + _self93012_ '#f '1 - (##structure-type _self93015_) + (##structure-type _self93012_) '#f) (##unchecked-structure-set! - _self93015_ + _self93012_ (make-hash-table-eq) '2 - (##structure-type _self93015_) + (##structure-type _self93012_) '#f) (##unchecked-structure-set! - _self93015_ - _super93025_ + _self93012_ + _super93022_ '3 - (##structure-type _self93015_) + (##structure-type _self93012_) '#f) (##unchecked-structure-set! - _self93015_ + _self93012_ '#f '4 - (##structure-type _self93015_) + (##structure-type _self93012_) '#f) (##unchecked-structure-set! - _self93015_ + _self93012_ '#f '5 - (##structure-type _self93015_) + (##structure-type _self93012_) '#f) (##unchecked-structure-set! - _self93015_ + _self93012_ '#f '6 - (##structure-type _self93015_) + (##structure-type _self93012_) '#f) (##unchecked-structure-set! - _self93015_ + _self93012_ '() '7 - (##structure-type _self93015_) + (##structure-type _self93012_) '#f) (##unchecked-structure-set! - _self93015_ + _self93012_ '#f '8 - (##structure-type _self93015_) + (##structure-type _self93012_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self93015_ + _self93012_ '8 - (##vector-length _self93015_))))))) + (##vector-length _self93012_))))))) (define gx#prelude-context:::init!__0 - (lambda (_self93040_ _ctx93041_) - (let ((_root93043_ '#f)) - (gx#prelude-context:::init!__% _self93040_ _ctx93041_ _root93043_)))) + (lambda (_self93037_ _ctx93038_) + (let ((_root93040_ '#f)) + (gx#prelude-context:::init!__% _self93037_ _ctx93038_ _root93040_)))) (define gx#prelude-context:::init! - (lambda _g93247_ - (let ((_g93246_ (##length _g93247_))) - (cond ((##fx= _g93246_ 2) - (apply (lambda (_self93040_ _ctx93041_) + (lambda _g93244_ + (let ((_g93243_ (##length _g93244_))) + (cond ((##fx= _g93243_ 2) + (apply (lambda (_self93037_ _ctx93038_) (gx#prelude-context:::init!__0 - _self93040_ - _ctx93041_)) - _g93247_)) - ((##fx= _g93246_ 3) - (apply (lambda (_self93045_ _ctx93046_ _root93047_) + _self93037_ + _ctx93038_)) + _g93244_)) + ((##fx= _g93243_ 3) + (apply (lambda (_self93042_ _ctx93043_ _root93044_) (gx#prelude-context:::init!__% - _self93045_ - _ctx93046_ - _root93047_)) - _g93247_)) + _self93042_ + _ctx93043_ + _root93044_)) + _g93244_)) (else (##raise-wrong-number-of-arguments-exception gx#prelude-context:::init! - _g93247_)))))) + _g93244_)))))) (bind-method!__% gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) (define gx#import-export-expander-init! - (lambda (_self92889_ _e92890_) - (if (##fx< '3 (##structure-length _self92889_)) + (lambda (_self92886_ _e92887_) + (if (##fx< '3 (##structure-length _self92886_)) (begin (##unchecked-structure-set! - _self92889_ - _e92890_ + _self92886_ + _e92887_ '1 - (##structure-type _self92889_) + (##structure-type _self92886_) '#f) (##unchecked-structure-set! - _self92889_ + _self92886_ (gx#current-expander-context) '2 - (##structure-type _self92889_) + (##structure-type _self92886_) '#f) (##unchecked-structure-set! - _self92889_ + _self92886_ (fx- (gx#current-expander-phi) '1) '3 - (##structure-type _self92889_) + (##structure-type _self92886_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self92889_ + _self92886_ '3 - (##vector-length _self92889_))))) + (##vector-length _self92886_))))) (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 (_g9251592518_ _g9251692520_) + (lambda (_g9251292515_ _g9251392517_) (gx#core-apply-user-expander__% - _g9251592518_ - _g9251692520_ + _g9251292515_ + _g9251392517_ '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 (_g9238692389_ _g9238792391_) + (lambda (_g9238392386_ _g9238492388_) (gx#core-apply-user-expander__% - _g9238692389_ - _g9238792391_ + _g9238392386_ + _g9238492388_ '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 (_ctx92257_) - (let* ((_path92259_ - (##structure-ref _ctx92257_ '7 gx#module-context::t '#f)) - (_path92261_ - (if (pair? _path92259_) (last _path92259_) _path92259_))) - (if (string? _path92261_) _path92261_ '#f)))) + (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)))) (define gx#import-module__% - (lambda (_path92233_ _reload?92234_ _eval?92235_) - (let ((_ctx92237_ + (lambda (_path92230_ _reload?92231_ _eval?92232_) + (let ((_ctx92234_ ((gx#current-expander-module-import) - _path92233_ - _reload?92234_))) - (if (and _ctx92237_ _eval?92235_) - (gx#eval-module _ctx92237_) + _path92230_ + _reload?92231_))) + (if (and _ctx92234_ _eval?92232_) + (gx#eval-module _ctx92234_) '#!void) - _ctx92237_))) + _ctx92234_))) (define gx#import-module__0 - (lambda (_path92242_) - (let* ((_reload?92244_ '#f) (_eval?92246_ '#f)) - (gx#import-module__% _path92242_ _reload?92244_ _eval?92246_)))) + (lambda (_path92239_) + (let* ((_reload?92241_ '#f) (_eval?92243_ '#f)) + (gx#import-module__% _path92239_ _reload?92241_ _eval?92243_)))) (define gx#import-module__1 - (lambda (_path92248_ _reload?92249_) - (let ((_eval?92251_ '#f)) - (gx#import-module__% _path92248_ _reload?92249_ _eval?92251_)))) + (lambda (_path92245_ _reload?92246_) + (let ((_eval?92248_ '#f)) + (gx#import-module__% _path92245_ _reload?92246_ _eval?92248_)))) (define gx#import-module - (lambda _g93249_ - (let ((_g93248_ (##length _g93249_))) - (cond ((##fx= _g93248_ 1) - (apply (lambda (_path92242_) - (gx#import-module__0 _path92242_)) - _g93249_)) - ((##fx= _g93248_ 2) - (apply (lambda (_path92248_ _reload?92249_) - (gx#import-module__1 _path92248_ _reload?92249_)) - _g93249_)) - ((##fx= _g93248_ 3) - (apply (lambda (_path92253_ _reload?92254_ _eval?92255_) + (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_) (gx#import-module__% - _path92253_ - _reload?92254_ - _eval?92255_)) - _g93249_)) + _path92250_ + _reload?92251_ + _eval?92252_)) + _g93246_)) (else (##raise-wrong-number-of-arguments-exception gx#import-module - _g93249_)))))) + _g93246_)))))) (define gx#eval-module - (lambda (_mod92230_) ((gx#current-expander-module-eval) _mod92230_))) + (lambda (_mod92227_) ((gx#current-expander-module-eval) _mod92227_))) (define gx#core-eval-module - (lambda (_obj92215_) - (letrec ((_force-e92217_ - (lambda (_getf92226_ _e92227_) + (lambda (_obj92212_) + (letrec ((_force-e92214_ + (lambda (_getf92223_ _e92224_) (call-with-parameters - (lambda () (force (_getf92226_ _e92227_))) + (lambda () (force (_getf92223_ _e92224_))) gx#current-expander-context - _e92227_ + _e92224_ gx#current-expander-phi '0)))) - (let _recur92219_ ((_e92221_ _obj92215_)) - (if (##structure-instance-of? _e92221_ 'gx#module-context::t) + (let _recur92216_ ((_e92218_ _obj92212_)) + (if (##structure-instance-of? _e92218_ 'gx#module-context::t) (begin - (let ((_$e92223_ (gx#core-context-prelude__% _e92221_))) - (if _$e92223_ (_recur92219_ _$e92223_) '#!void)) - (_force-e92217_ gx#module-context-e _e92221_)) - (if (##structure-instance-of? _e92221_ 'gx#prelude-context::t) - (_force-e92217_ gx#prelude-context-e _e92221_) - (if (gx#stx-string? _e92221_) - (_recur92219_ + (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_ (gx#import-module__0 - (gx#core-resolve-module-path__0 _e92221_))) - (if (gx#core-library-module-path? _e92221_) - (_recur92219_ + (gx#core-resolve-module-path__0 _e92218_))) + (if (gx#core-library-module-path? _e92218_) + (_recur92216_ (gx#import-module__0 - (gx#core-resolve-library-module-path _e92221_))) - (error '"Cannot eval module" _obj92215_))))))))) + (gx#core-resolve-library-module-path _e92218_))) + (error '"Cannot eval module" _obj92212_))))))))) (define gx#core-context-prelude__% - (lambda (_ctx92198_) - (let _lp92200_ ((_e92202_ _ctx92198_)) - (if (or (##structure-instance-of? _e92202_ 'gx#module-context::t) - (##structure-instance-of? _e92202_ 'gx#local-context::t)) - (_lp92200_ - (##unchecked-structure-ref _e92202_ '3 gx#phi-context::t '#f)) - (if (##structure-instance-of? _e92202_ 'gx#prelude-context::t) - _e92202_ + (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_ '#f))))) (define gx#core-context-prelude__0 (lambda () - (let ((_ctx92211_ (gx#current-expander-context))) - (gx#core-context-prelude__% _ctx92211_)))) + (let ((_ctx92208_ (gx#current-expander-context))) + (gx#core-context-prelude__% _ctx92208_)))) (define gx#core-context-prelude - (lambda _g93251_ - (let ((_g93250_ (##length _g93251_))) - (cond ((##fx= _g93250_ 0) - (apply (lambda () (gx#core-context-prelude__0)) _g93251_)) - ((##fx= _g93250_ 1) - (apply (lambda (_ctx92213_) - (gx#core-context-prelude__% _ctx92213_)) - _g93251_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-prelude - _g93251_)))))) + _g93248_)))))) (define gx#core-module->prelude-context - (lambda (_ctx92188_) - (let* ((_ht92190_ (gx#current-expander-module-registry)) - (_$e92192_ (hash-get _ht92190_ _ctx92188_))) - (if _$e92192_ - (values _$e92192_) - (let ((_pre92195_ - (let ((__obj93242 + (lambda (_ctx92185_) + (let* ((_ht92187_ (gx#current-expander-module-registry)) + (_$e92189_ (hash-get _ht92187_ _ctx92185_))) + (if _$e92189_ + (values _$e92189_) + (let ((_pre92192_ + (let ((__obj93239 (##structure gx#prelude-context::t '#f @@ -741,51 +741,51 @@ '#f '#f '#f))) - (gx#prelude-context:::init! __obj93242 _ctx92188_) - __obj93242))) - (hash-put! _ht92190_ _ctx92188_ _pre92195_) - _pre92195_))))) + (gx#prelude-context:::init! __obj93239 _ctx92185_) + __obj93239))) + (hash-put! _ht92187_ _ctx92185_ _pre92192_) + _pre92192_))))) (define gx#core-import-module__% - (lambda (_rpath92069_ _reload?92070_) - (letrec ((_import-source92072_ - (lambda (_path92157_) - (if (member _path92157_ (gx#current-expander-path)) - (error '"Cyclic expansion" _path92157_) + (lambda (_rpath92066_ _reload?92067_) + (letrec ((_import-source92069_ + (lambda (_path92154_) + (if (member _path92154_ (gx#current-expander-path)) + (error '"Cyclic expansion" _path92154_) '#!void) (call-with-parameters (lambda () - (let ((_g93252_ (gx#core-read-module _path92157_))) + (let ((_g93249_ (gx#core-read-module _path92154_))) (begin - (let ((_g93253_ - (if (##values? _g93252_) - (##vector-length _g93252_) + (let ((_g93250_ + (if (##values? _g93249_) + (##vector-length _g93249_) 1))) - (if (not (##fx= _g93253_ 4)) - (error "Context expects 4 values" _g93253_))) - (let ((_pre92160_ (##vector-ref _g93252_ 0)) - (_id92161_ (##vector-ref _g93252_ 1)) - (_ns92162_ (##vector-ref _g93252_ 2)) - (_body92163_ (##vector-ref _g93252_ 3))) - (let* ((_prelude92168_ + (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 (##structure-instance-of? - _pre92160_ + _pre92157_ 'gx#prelude-context::t) - _pre92160_ + _pre92157_ (if (##structure-instance-of? - _pre92160_ + _pre92157_ 'gx#module-context::t) (gx#core-module->prelude-context - _pre92160_) - (if (string? _pre92160_) + _pre92157_) + (if (string? _pre92157_) (gx#core-module->prelude-context (gx#core-import-module__0 - _pre92160_)) - (if (not _pre92160_) - (let ((_$e92165_ + _pre92157_)) + (if (not _pre92157_) + (let ((_$e92162_ (gx#current-expander-module-prelude))) - (if _$e92165_ - _$e92165_ - (let ((__obj93243 + (if _$e92162_ + _$e92162_ + (let ((__obj93240 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure gx#prelude-context::t @@ -797,14 +797,14 @@ '#f '#f '#f))) - (gx#prelude-context:::init! __obj93243 '#f) - __obj93243))) + (gx#prelude-context:::init! __obj93240 '#f) + __obj93240))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"Cannot import module; unknown prelude" - _rpath92069_ - _pre92160_)))))) - (_ctx92170_ - (let ((__obj93244 + _rpath92066_ + _pre92157_)))))) + (_ctx92167_ + (let ((__obj93241 (##structure gx#module-context::t '#f @@ -819,44 +819,44 @@ '#f '#f))) (gx#module-context:::init! - __obj93244 - _id92161_ - _prelude92168_ - _ns92162_ - _path92157_) - __obj93244)) - (_body92172_ + __obj93241 + _id92158_ + _prelude92165_ + _ns92159_ + _path92154_) + __obj93241)) + (_body92169_ (gx#core-expand-module-begin - _body92163_ - _ctx92170_)) - (_body92174_ + _body92160_ + _ctx92167_)) + (_body92171_ (gx#core-quote-syntax__% - (gx#core-cons '%#begin _body92172_) - _path92157_ - _ctx92170_ + (gx#core-cons '%#begin _body92169_) + _path92154_ + _ctx92167_ '()))) (##unchecked-structure-set! - _ctx92170_ + _ctx92167_ (make-promise - (lambda () (gx#eval-syntax* _body92174_))) + (lambda () (gx#eval-syntax* _body92171_))) '10 gx#module-context::t '#f) (##unchecked-structure-set! - _ctx92170_ - _body92174_ + _ctx92167_ + _body92171_ '11 gx#module-context::t '#f) (hash-put! (gx#current-expander-module-registry) - _path92157_ - _ctx92170_) + _path92154_ + _ctx92167_) (hash-put! (gx#current-expander-module-registry) - _id92161_ - _ctx92170_) - _ctx92170_))))) + _id92158_ + _ctx92167_) + _ctx92167_))))) 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 _path92157_ (gx#current-expander-path)) + (cons _path92154_ (gx#current-expander-path)) gx#current-import-expander-phi '#f gx#current-export-expander-phi '#f))) - (_import-submodule92073_ - (lambda (_rpath92085_) - (let* ((_rpath9208692093_ _rpath92085_) - (_E9208892097_ + (_import-submodule92070_ + (lambda (_rpath92082_) + (let* ((_rpath9208392090_ _rpath92082_) + (_E9208592094_ (lambda () - (error '"No clause matching" _rpath9208692093_))) - (_K9208992145_ - (lambda (_refs92100_ _origin92101_) - (let ((_ctx92103_ - (if _origin92101_ + (error '"No clause matching" _rpath9208392090_))) + (_K9208692142_ + (lambda (_refs92097_ _origin92098_) + (let ((_ctx92100_ + (if _origin92098_ (gx#core-import-module__% - _origin92101_ - _reload?92070_) + _origin92098_ + _reload?92067_) (gx#current-expander-context)))) - (let _lp92105_ ((_rest92107_ _refs92100_) - (_ctx92108_ _ctx92103_)) - (let* ((_rest9210992117_ _rest92107_) - (_else9211192125_ - (lambda () _ctx92108_)) - (_K9211392133_ - (lambda (_rest92128_ _id92129_) - (let ((_bind92131_ + (let _lp92102_ ((_rest92104_ _refs92097_) + (_ctx92105_ _ctx92100_)) + (let* ((_rest9210692114_ _rest92104_) + (_else9210892122_ + (lambda () _ctx92105_)) + (_K9211092130_ + (lambda (_rest92125_ _id92126_) + (let ((_bind92128_ (gx#resolve-identifier__% - _id92129_ + _id92126_ '0 - _ctx92108_))) + _ctx92105_))) (if (and (##structure-direct-instance-of? - _bind92131_ + _bind92128_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _bind92131_ + _bind92128_ '4 gx#syntax-binding::t '#f) 'gx#module-context::t)) - (_lp92105_ - _rest92128_ + (_lp92102_ + _rest92125_ (##unchecked-structure-ref - _bind92131_ + _bind92128_ '4 gx#syntax-binding::t '#f)) (error '"Cannot import submodule; not bound as a module" - _rpath92085_ - _id92129_ - _bind92131_)))))) - (if (##pair? _rest9210992117_) - (let ((_hd9211492136_ - (##car _rest9210992117_)) - (_tl9211592138_ - (##cdr _rest9210992117_))) - (let* ((_id92141_ _hd9211492136_) - (_rest92143_ _tl9211592138_)) - (_K9211392133_ - _rest92143_ - _id92141_))) - (_else9211192125_)))))))) - (if (##pair? _rpath9208692093_) - (let ((_hd9209092148_ (##car _rpath9208692093_)) - (_tl9209192150_ (##cdr _rpath9208692093_))) - (let* ((_origin92153_ _hd9209092148_) - (_refs92155_ _tl9209192150_)) - (_K9208992145_ _refs92155_ _origin92153_))) - (_E9208892097_)))))) - (let ((_$e92075_ - (if (not _reload?92070_) + _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_) (hash-get (gx#current-expander-module-registry) - _rpath92069_) + _rpath92066_) '#f))) - (if _$e92075_ - (values _$e92075_) - (if (list? _rpath92069_) - (_import-submodule92073_ _rpath92069_) - (if (gx#core-library-module-path? _rpath92069_) - (let ((_ctx92078_ + (if _$e92072_ + (values _$e92072_) + (if (list? _rpath92066_) + (_import-submodule92070_ _rpath92066_) + (if (gx#core-library-module-path? _rpath92066_) + (let ((_ctx92075_ (gx#core-import-module__% (gx#core-resolve-library-module-path - _rpath92069_) - _reload?92070_))) + _rpath92066_) + _reload?92067_))) (hash-put! (gx#current-expander-module-registry) - _rpath92069_ - _ctx92078_) - _ctx92078_) - (let* ((_npath92080_ (path-normalize _rpath92069_)) - (_$e92082_ - (if (not _reload?92070_) + _rpath92066_ + _ctx92075_) + _ctx92075_) + (let* ((_npath92077_ (path-normalize _rpath92066_)) + (_$e92079_ + (if (not _reload?92067_) (hash-get (gx#current-expander-module-registry) - _npath92080_) + _npath92077_) '#f))) - (if _$e92082_ - (values _$e92082_) - (_import-source92072_ _npath92080_)))))))))) + (if _$e92079_ + (values _$e92079_) + (_import-source92069_ _npath92077_)))))))))) (define gx#core-import-module__0 - (lambda (_rpath92181_) - (let ((_reload?92183_ '#f)) - (gx#core-import-module__% _rpath92181_ _reload?92183_)))) + (lambda (_rpath92178_) + (let ((_reload?92180_ '#f)) + (gx#core-import-module__% _rpath92178_ _reload?92180_)))) (define gx#core-import-module - (lambda _g93255_ - (let ((_g93254_ (##length _g93255_))) - (cond ((##fx= _g93254_ 1) - (apply (lambda (_rpath92181_) - (gx#core-import-module__0 _rpath92181_)) - _g93255_)) - ((##fx= _g93254_ 2) - (apply (lambda (_rpath92185_ _reload?92186_) + (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_) (gx#core-import-module__% - _rpath92185_ - _reload?92186_)) - _g93255_)) + _rpath92182_ + _reload?92183_)) + _g93252_)) (else (##raise-wrong-number-of-arguments-exception gx#core-import-module - _g93255_)))))) + _g93252_)))))) (define gx#core-read-module - (lambda (_path92058_) + (lambda (_path92055_) (with-catch - (lambda (_exn92060_) - (if (and (datum-parsing-exception? _exn92060_) - (eq? (datum-parsing-exception-filepos _exn92060_) '0)) - (gx#core-read-module/lang _path92058_) + (lambda (_exn92057_) + (if (and (datum-parsing-exception? _exn92057_) + (eq? (datum-parsing-exception-filepos _exn92057_) '0)) + (gx#core-read-module/lang _path92055_) (gx#raise-syntax-error 'read-module '"error reading module" - _path92058_ + _path92055_ (call-with-parameters (lambda () (call-with-output-string '"" - (lambda (_g9206292064_) - (display-exception _exn92060_ _g9206292064_)))) + (lambda (_g9205992061_) + (display-exception _exn92057_ _g9205992061_)))) dump-stack-trace? '#f)))) - (lambda () (gx#core-read-module/sexp _path92058_))))) + (lambda () (gx#core-read-module/sexp _path92055_))))) (define gx#core-read-module/sexp - (lambda (_path91921_) - (let _lp91923_ ((_body91925_ (read-syntax-from-file _path91921_)) - (_pre91926_ '#f) - (_ns91927_ '#f) - (_pkg91928_ '#f)) - (let* ((_e9192991953_ _body91925_) - (_E9194591975_ + (lambda (_path91918_) + (let _lp91920_ ((_body91922_ (read-syntax-from-file _path91918_)) + (_pre91923_ '#f) + (_ns91924_ '#f) + (_pkg91925_ '#f)) + (let* ((_e9192691950_ _body91922_) + (_E9194291972_ (lambda () - (let ((_g93256_ - (if _pkg91928_ - (values _pre91926_ _ns91927_ _pkg91928_) + (let ((_g93253_ + (if _pkg91925_ + (values _pre91923_ _ns91924_ _pkg91925_) (gx#core-read-module-package - _path91921_ - _pre91926_ - _ns91927_)))) + _path91918_ + _pre91923_ + _ns91924_)))) (begin - (let ((_g93257_ - (if (##values? _g93256_) - (##vector-length _g93256_) + (let ((_g93254_ + (if (##values? _g93253_) + (##vector-length _g93253_) 1))) - (if (not (##fx= _g93257_ 3)) - (error "Context expects 3 values" _g93257_))) - (let ((_pre91957_ (##vector-ref _g93256_ 0)) - (_ns91958_ (##vector-ref _g93256_ 1)) - (_pkg91959_ (##vector-ref _g93256_ 2))) - (let* ((_prelude91961_ + (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 (gx#core-bound-module-prelude? - _pre91957_) - (gx#syntax-local-e__0 _pre91957_) + _pre91954_) + (gx#syntax-local-e__0 _pre91954_) (if (gx#core-library-module-path? - _pre91957_) + _pre91954_) (gx#core-resolve-library-module-path - _pre91957_) - (if (gx#stx-string? _pre91957_) + _pre91954_) + (if (gx#stx-string? _pre91954_) (gx#core-resolve-module-path__% - _pre91957_ - _path91921_) - (gx#stx-e _pre91957_))))) - (_path-id91963_ - (gx#core-module-path->namespace _path91921_)) - (_pkg-id91965_ - (if _pkg91959_ + _pre91954_ + _path91918_) + (gx#stx-e _pre91954_))))) + (_path-id91960_ + (gx#core-module-path->namespace _path91918_)) + (_pkg-id91962_ + (if _pkg91956_ (string-append - _pkg91959_ + _pkg91956_ '"/" - _path-id91963_) - _path-id91963_)) - (_module-id91967_ - (string->symbol _pkg-id91965_)) - (_module-ns91972_ - (if (eq? _ns91958_ '#!void) + _path-id91960_) + _path-id91960_)) + (_module-id91964_ + (string->symbol _pkg-id91962_)) + (_module-ns91969_ + (if (eq? _ns91955_ '#!void) '#f - (let ((_$e91969_ _ns91958_)) - (if _$e91969_ - _$e91969_ - _pkg-id91965_))))) - (values _prelude91961_ - _module-id91967_ - _module-ns91972_ - _body91925_))))))) - (_E9193892004_ + (let ((_$e91966_ _ns91955_)) + (if _$e91966_ + _$e91966_ + _pkg-id91962_))))) + (values _prelude91958_ + _module-id91964_ + _module-ns91969_ + _body91922_))))))) + (_E9193592001_ (lambda () - (if (gx#stx-pair? _e9192991953_) - (let ((_e9194691979_ (gx#syntax-e _e9192991953_))) - (let ((_hd9194791982_ (##car _e9194691979_)) - (_tl9194891984_ (##cdr _e9194691979_))) - (if (eq? (gx#stx-e _hd9194791982_) 'package:) - (if (gx#stx-pair? _tl9194891984_) - (let ((_e9194991987_ - (gx#syntax-e _tl9194891984_))) - (let ((_hd9195091990_ - (##car _e9194991987_)) - (_tl9195191992_ - (##cdr _e9194991987_))) - (let* ((_pkg91995_ _hd9195091990_) - (_rest91997_ _tl9195191992_)) + (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 '#t - (let ((_pkg92002_ + (let ((_pkg91999_ (if (gx#identifier? - _pkg91995_) + _pkg91992_) (symbol->string (gx#stx-e - _pkg91995_)) + _pkg91992_)) (if (or (gx#stx-string? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pkg91995_) - (gx#stx-false? _pkg91995_)) - (gx#stx-e _pkg91995_) + _pkg91992_) + (gx#stx-false? _pkg91992_)) + (gx#stx-e _pkg91992_) (gx#raise-syntax-error 'import '"Bad syntax; Illegal package name" - _pkg91995_))))) + _pkg91992_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp91923_ - _rest91997_ - _pre91926_ - _ns91927_ - _pkg92002_)) - (_E9194591975_))))) - (_E9194591975_)) - (_E9194591975_)))) - (_E9194591975_)))) - (_E9193192030_ + (_lp91920_ + _rest91994_ + _pre91923_ + _ns91924_ + _pkg91999_)) + (_E9194291972_))))) + (_E9194291972_)) + (_E9194291972_)))) + (_E9194291972_)))) + (_E9192892027_ (lambda () - (if (gx#stx-pair? _e9192991953_) - (let ((_e9193992008_ (gx#syntax-e _e9192991953_))) - (let ((_hd9194092011_ (##car _e9193992008_)) - (_tl9194192013_ (##cdr _e9193992008_))) - (if (eq? (gx#stx-e _hd9194092011_) 'namespace:) - (if (gx#stx-pair? _tl9194192013_) - (let ((_e9194292016_ - (gx#syntax-e _tl9194192013_))) - (let ((_hd9194392019_ - (##car _e9194292016_)) - (_tl9194492021_ - (##cdr _e9194292016_))) - (let* ((_ns92024_ _hd9194392019_) - (_rest92026_ _tl9194492021_)) + (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 '#t - (let ((_ns92028_ + (let ((_ns92025_ (if (gx#identifier? - _ns92024_) + _ns92021_) (symbol->string - (gx#stx-e _ns92024_)) + (gx#stx-e _ns92021_)) (if (gx#stx-string? - _ns92024_) + _ns92021_) (gx#stx-e - _ns92024_) + _ns92021_) (if (gx#stx-false? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _ns92024_) + _ns92021_) '#!void (gx#raise-syntax-error 'import '"Bad syntax; illegal namespace" - _ns92024_)))))) + _ns92021_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp91923_ - _rest92026_ - _pre91926_ - _ns92028_ - _pkg91928_)) - (_E9193892004_))))) - (_E9193892004_)) - (_E9193892004_)))) - (_E9193892004_)))) - (_E9193092054_ + (_lp91920_ + _rest92023_ + _pre91923_ + _ns92025_ + _pkg91925_)) + (_E9193592001_))))) + (_E9193592001_)) + (_E9193592001_)))) + (_E9193592001_)))) + (_E9192792051_ (lambda () - (if (gx#stx-pair? _e9192991953_) - (let ((_e9193292034_ (gx#syntax-e _e9192991953_))) - (let ((_hd9193392037_ (##car _e9193292034_)) - (_tl9193492039_ (##cdr _e9193292034_))) - (if (eq? (gx#stx-e _hd9193392037_) 'prelude:) - (if (gx#stx-pair? _tl9193492039_) - (let ((_e9193592042_ - (gx#syntax-e _tl9193492039_))) - (let ((_hd9193692045_ - (##car _e9193592042_)) - (_tl9193792047_ - (##cdr _e9193592042_))) - (let* ((_prelude92050_ _hd9193692045_) - (_rest92052_ _tl9193792047_)) + (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 '#t - (_lp91923_ - _rest92052_ - _prelude92050_ - _ns91927_ - _pkg91928_) - (_E9193192030_))))) - (_E9193192030_)) - (_E9193192030_)))) - (_E9193192030_))))) - (_E9193092054_))))) + (_lp91920_ + _rest92049_ + _prelude92047_ + _ns91924_ + _pkg91925_) + (_E9192892027_))))) + (_E9192892027_)) + (_E9192892027_)))) + (_E9192892027_))))) + (_E9192792051_))))) (define gx#core-read-module/lang - (lambda (_path91748_) - (letrec ((_default-read-module-body91750_ - (lambda (_inp91913_) - (let _lp91915_ ((_body91917_ '())) - (let ((_next91919_ (read-syntax _inp91913_))) - (if (eof-object? _next91919_) - (reverse _body91917_) - (_lp91915_ (cons _next91919_ _body91917_))))))) - (_read-body91751_ - (lambda (_inp91832_ - _pre91833_ - _ns91834_ - _pkg91835_ - _args91836_) - (let ((_g93258_ - (if _pkg91835_ - (values _pre91833_ _ns91834_ _pkg91835_) + (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_) (gx#core-read-module-package - _path91748_ - _pre91833_ - _ns91834_)))) + _path91745_ + _pre91830_ + _ns91831_)))) (begin - (let ((_g93259_ - (if (##values? _g93258_) - (##vector-length _g93258_) + (let ((_g93256_ + (if (##values? _g93255_) + (##vector-length _g93255_) 1))) - (if (not (##fx= _g93259_ 3)) - (error "Context expects 3 values" _g93259_))) - (let ((_pre91838_ (##vector-ref _g93258_ 0)) - (_ns91839_ (##vector-ref _g93258_ 1)) - (_pkg91840_ (##vector-ref _g93258_ 2))) - (let* ((_prelude91842_ - (gx#import-module__0 _pre91838_)) - (_read-module-body91896_ - (let ((_$e91888_ - (find (lambda (_e9184391845_) - (let* ((_g9184791857_ - _e9184391845_) - (_else9184991865_ + (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_ (lambda () '#f)) - (_K9185191869_ + (_K9184891866_ (lambda () '#t))) (if (##structure-direct-instance-of? - _g9184791857_ + _g9184491854_ 'gx#module-export::t) - (let* ((_e9185291872_ + (let* ((_e9184991869_ (##unchecked-structure-ref - _g9184791857_ + _g9184491854_ '1 gx#module-export::t '#f)) - (_e9185391875_ + (_e9185091872_ (##unchecked-structure-ref - _g9184791857_ + _g9184491854_ '2 gx#module-export::t '#f)) - (_e9185491878_ + (_e9185191875_ (##unchecked-structure-ref - _g9184791857_ + _g9184491854_ '3 gx#module-export::t '#f))) - (if (##eq? _e9185491878_ + (if (##eq? _e9185191875_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1) - (let ((_e9185591881_ + (let ((_e9185291878_ (##unchecked-structure-ref - _g9184791857_ + _g9184491854_ '4 gx#module-export::t '#f))) - (if ((lambda (_g9188391885_) - (eq? _g9188391885_ 'read-module-body)) - _e9185591881_) - (_K9185191869_) - (_else9184991865_))) - (_else9184991865_))) - (_else9184991865_)))) + (if ((lambda (_g9188091882_) + (eq? _g9188091882_ 'read-module-body)) + _e9185291878_) + (_K9184891866_) + (_else9184691862_))) + (_else9184691862_))) + (_else9184691862_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (##unchecked-structure-ref - _prelude91842_ + _prelude91839_ '9 gx#module-context::t '#f)))) - (if _$e91888_ - ((lambda (_xport91891_) - (let ((_proc91894_ + (if _$e91885_ + ((lambda (_xport91888_) + (let ((_proc91891_ (with-catch void (lambda () (gx#eval-syntax__0 (##structure-ref (gx#core-resolve-module-export - _xport91891_) + _xport91888_) '1 gx#binding::t '#f)))))) - (if (procedure? _proc91894_) - _proc91894_ + (if (procedure? _proc91891_) + _proc91891_ (gx#raise-syntax-error '#f '"Illegal #lang prelude; read-module-body is not a procedure" - _path91748_ - _pre91838_ - _proc91894_)))) - _$e91888_) - _default-read-module-body91750_))) - (_path-id91898_ - (gx#core-module-path->namespace _path91748_)) - (_pkg-id91900_ - (if _pkg91840_ + _path91745_ + _pre91835_ + _proc91891_)))) + _$e91885_) + _default-read-module-body91747_))) + (_path-id91895_ + (gx#core-module-path->namespace _path91745_)) + (_pkg-id91897_ + (if _pkg91837_ (string-append - _pkg91840_ + _pkg91837_ '"/" - _path-id91898_) - _path-id91898_)) - (_module-id91902_ - (string->symbol _pkg-id91900_)) - (_module-ns91907_ - (let ((_$e91904_ _ns91839_)) - (if _$e91904_ _$e91904_ _pkg-id91900_))) - (_body91910_ + _path-id91895_) + _path-id91895_)) + (_module-id91899_ + (string->symbol _pkg-id91897_)) + (_module-ns91904_ + (let ((_$e91901_ _ns91836_)) + (if _$e91901_ _$e91901_ _pkg-id91897_))) + (_body91907_ (call-with-parameters (lambda () - (_read-module-body91896_ _inp91832_)) + (_read-module-body91893_ _inp91829_)) gx#current-module-reader-path - _path91748_ + _path91745_ gx#current-module-reader-args - _args91836_))) - (values _prelude91842_ - _module-id91902_ - _module-ns91907_ - _body91910_))))))) - (_string-e91752_ - (lambda (_obj91829_ _what91830_) - (if (string? _obj91829_) - _obj91829_ - (if (symbol? _obj91829_) - (symbol->string _obj91829_) + _args91833_))) + (values _prelude91839_ + _module-id91899_ + _module-ns91904_ + _body91907_))))))) + (_string-e91749_ + (lambda (_obj91826_ _what91827_) + (if (string? _obj91826_) + _obj91826_ + (if (symbol? _obj91826_) + (symbol->string _obj91826_) (gx#raise-syntax-error '#f - (string-append '"Illegal module " _what91830_) - _path91748_ - _obj91829_))))) - (_read-lang-args91753_ - (lambda (_inp91784_ _args91785_) - (let* ((_args9178691794_ _args91785_) - (_else9178891802_ + (string-append '"Illegal module " _what91827_) + _path91745_ + _obj91826_))))) + (_read-lang-args91750_ + (lambda (_inp91781_ _args91782_) + (let* ((_args9178391791_ _args91782_) + (_else9178591799_ (lambda () (gx#raise-syntax-error '#f '"Illegal #lang arguments; missing prelude" - _path91748_))) - (_K9179091817_ - (lambda (_args91805_ _prelude91806_) - (let* ((_pkg91808_ - (pgetq__0 'package: _args91805_)) - (_pkg91810_ - (if _pkg91808_ - (_string-e91752_ - _pkg91808_ + _path91745_))) + (_K9178791814_ + (lambda (_args91802_ _prelude91803_) + (let* ((_pkg91805_ + (pgetq__0 'package: _args91802_)) + (_pkg91807_ + (if _pkg91805_ + (_string-e91749_ + _pkg91805_ '"package") '#f)) - (_ns91812_ - (pgetq__0 'namespace: _args91805_)) - (_ns91814_ - (if _ns91812_ - (_string-e91752_ - _ns91812_ + (_ns91809_ + (pgetq__0 'namespace: _args91802_)) + (_ns91811_ + (if _ns91809_ + (_string-e91749_ + _ns91809_ '"namespace") '#f))) - (_read-body91751_ - _inp91784_ - _prelude91806_ - _ns91814_ - _pkg91810_ - _args91805_))))) - (if (##pair? _args9178691794_) - (let ((_hd9179191820_ (##car _args9178691794_)) - (_tl9179291822_ (##cdr _args9178691794_))) - (let* ((_prelude91825_ _hd9179191820_) - (_args91827_ _tl9179291822_)) - (_K9179091817_ _args91827_ _prelude91825_))) - (_else9178891802_))))) - (_read-lang91754_ - (lambda (_inp91759_) - (let* ((_head91761_ (read-line _inp91759_)) - (_$e91763_ (string-index__0 _head91761_ '#\space))) - (if _$e91763_ - ((lambda (_ix91766_) - (let ((_lang91768_ - (substring _head91761_ '0 _ix91766_))) - (if (equal? _lang91768_ '"#lang") - (let* ((_rest91770_ + (_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_ (substring - _head91761_ - (fx+ _ix91766_ '1) - (string-length _head91761_))) - (_args91781_ + _head91758_ + (fx+ _ix91763_ '1) + (string-length _head91758_))) + (_args91778_ (with-catch - (lambda (_g9177191773_) + (lambda (_g9176891770_) (gx#raise-syntax-error '#f '"Illegal #lang arguments" - _path91748_ - _g9177191773_)) + _path91745_ + _g9176891770_)) (lambda () (call-with-input-string - _rest91770_ - (lambda (_g9177691778_) + _rest91767_ + (lambda (_g9177391775_) (read-all - _g9177691778_ + _g9177391775_ read))))))) - (_read-lang-args91753_ - _inp91759_ - _args91781_)) + (_read-lang-args91750_ + _inp91756_ + _args91778_)) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path91748_)))) - _$e91763_) + _path91745_)))) + _$e91760_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path91748_))))) - (_read-e91755_ - (lambda (_inp91757_) - (if (eq? (peek-char _inp91757_) '#\#) - (_read-lang91754_ _inp91757_) + _path91745_))))) + (_read-e91752_ + (lambda (_inp91754_) + (if (eq? (peek-char _inp91754_) '#\#) + (_read-lang91751_ _inp91754_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path91748_))))) - (gx#call-with-input-source-file _path91748_ _read-e91755_)))) + _path91745_))))) + (gx#call-with-input-source-file _path91745_ _read-e91752_)))) (define gx#core-read-module-package - (lambda (_path91702_ _pre91703_ _ns91704_) - (letrec ((_string-e91706_ - (lambda (_e91746_) - (if (symbol? _e91746_) - (symbol->string _e91746_) - (if (string? _e91746_) - _e91746_ + (lambda (_path91699_ _pre91700_ _ns91701_) + (letrec ((_string-e91703_ + (lambda (_e91743_) + (if (symbol? _e91743_) + (symbol->string _e91743_) + (if (string? _e91743_) + _e91743_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _e91746_)))))) - (let _lp91708_ ((_dir91710_ (path-directory _path91702_)) - (_pkg-path91711_ '())) - (let ((_gerbil.pkg91713_ (path-expand '"gerbil.pkg" _dir91710_))) - (if (file-exists? _gerbil.pkg91713_) - (let ((_plist91715_ - (gx#core-library-package-plist__% _dir91710_ '#t))) - (if (null? _plist91715_) - (let ((_pkg91717_ - (if (not (null? _pkg-path91711_)) - (string-join _pkg-path91711_ '"/") + _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_ '"/") '#f))) - (values _pre91703_ _ns91704_ _pkg91717_)) - (if (list? _plist91715_) - (let* ((_root91719_ - (pgetq__0 'package: _plist91715_)) - (_pkg91723_ - (let ((_pkg-path91721_ - (if _root91719_ - (cons (_string-e91706_ - _root91719_) - _pkg-path91711_) - _pkg-path91711_))) - (if (not (null? _pkg-path91721_)) - (string-join _pkg-path91721_ '"/") + (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_ '"/") '#f))) - (_ns91730_ - (let ((_ns91728_ - (let ((_$e91725_ _ns91704_)) - (if _$e91725_ - _$e91725_ + (_ns91727_ + (let ((_ns91725_ + (let ((_$e91722_ _ns91701_)) + (if _$e91722_ + _$e91722_ (pgetq__0 'namespace: - _plist91715_))))) - (if _ns91728_ - (_string-e91706_ _ns91728_) + _plist91712_))))) + (if _ns91725_ + (_string-e91703_ _ns91725_) '#f))) - (_pre91735_ - (let ((_$e91732_ _pre91703_)) - (if _$e91732_ - _$e91732_ - (pgetq__0 'prelude: _plist91715_))))) - (values _pre91735_ _ns91730_ _pkg91723_)) + (_pre91732_ + (let ((_$e91729_ _pre91700_)) + (if _$e91729_ + _$e91729_ + (pgetq__0 'prelude: _plist91712_))))) + (values _pre91732_ _ns91727_ _pkg91720_)) (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _plist91715_)))) - (let ((_dir*91738_ - (path-strip-trailing-directory-separator _dir91710_))) - (if (or (string-empty? _dir*91738_) - (equal? _dir91710_ _dir*91738_)) - (values _pre91703_ _ns91704_ '#f) - (let ((_xpath91743_ (path-strip-directory _dir*91738_)) - (_xdir91744_ (path-directory _dir*91738_))) - (_lp91708_ - _xdir91744_ - (cons _xpath91743_ _pkg-path91711_))))))))))) + _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_))))))))))) (define gx#core-module-path->namespace - (lambda (_path91700_) - (path-strip-extension (path-strip-directory _path91700_)))) + (lambda (_path91697_) + (path-strip-extension (path-strip-directory _path91697_)))) (define gx#core-module-path->id - (lambda (_path91698_) - (string->symbol (gx#core-module-path->namespace _path91698_)))) + (lambda (_path91695_) + (string->symbol (gx#core-module-path->namespace _path91695_)))) (define gx#core-resolve-module-path__% - (lambda (_stx-path91677_ _rel91678_) - (let* ((_path91680_ (gx#stx-e _stx-path91677_)) - (_path91682_ - (if (string-empty? (path-extension _path91680_)) - (string-append _path91680_ '".ss") - _path91680_))) + (lambda (_stx-path91674_ _rel91675_) + (let* ((_path91677_ (gx#stx-e _stx-path91674_)) + (_path91679_ + (if (string-empty? (path-extension _path91677_)) + (string-append _path91677_ '".ss") + _path91677_))) (gx#core-resolve-path__% - _path91682_ - (let ((_$e91685_ (gx#stx-source _stx-path91677_))) - (if _$e91685_ _$e91685_ _rel91678_)))))) + _path91679_ + (let ((_$e91682_ (gx#stx-source _stx-path91674_))) + (if _$e91682_ _$e91682_ _rel91675_)))))) (define gx#core-resolve-module-path__0 - (lambda (_stx-path91691_) - (let ((_rel91693_ '#f)) - (gx#core-resolve-module-path__% _stx-path91691_ _rel91693_)))) + (lambda (_stx-path91688_) + (let ((_rel91690_ '#f)) + (gx#core-resolve-module-path__% _stx-path91688_ _rel91690_)))) (define gx#core-resolve-module-path - (lambda _g93261_ - (let ((_g93260_ (##length _g93261_))) - (cond ((##fx= _g93260_ 1) - (apply (lambda (_stx-path91691_) - (gx#core-resolve-module-path__0 _stx-path91691_)) - _g93261_)) - ((##fx= _g93260_ 2) - (apply (lambda (_stx-path91695_ _rel91696_) + (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_) (gx#core-resolve-module-path__% - _stx-path91695_ - _rel91696_)) - _g93261_)) + _stx-path91692_ + _rel91693_)) + _g93258_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-module-path - _g93261_)))))) + _g93258_)))))) (define gx#core-resolve-library-module-path - (lambda (_libpath91563_) - (let* ((_spath91565_ (symbol->string (gx#stx-e _libpath91563_))) - (_spath91567_ - (substring _spath91565_ '1 (string-length _spath91565_))) - (_ext91569_ (path-extension _spath91567_)) - (_ssi91571_ - (if (string-empty? _ext91569_) - (string-append _spath91567_ '".ssi") + (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") (string-append - (path-strip-extension _spath91567_) + (path-strip-extension _spath91564_) '".ssi"))) - (_srcs91575_ - (if (string-empty? _ext91569_) - (map (lambda (_ext91573_) - (string-append _spath91567_ _ext91573_)) + (_srcs91572_ + (if (string-empty? _ext91566_) + (map (lambda (_ext91570_) + (string-append _spath91564_ _ext91570_)) '(".ss" ".sld" ".scm")) - (cons _spath91567_ '())))) - (let _lp91578_ ((_rest91580_ + (cons _spath91564_ '())))) + (let _lp91575_ ((_rest91577_ (gx#current-expander-module-library-path))) - (let* ((_rest9158191590_ _rest91580_) - (_E9158491594_ + (let* ((_rest9157891587_ _rest91577_) + (_E9158191591_ (lambda () - (error '"No clause matching" _rest9158191590_)))) - (let ((_K9158691664_ - (lambda (_rest91605_ _dir91606_) - (letrec ((_resolve91608_ - (lambda (_ssi91620_ _srcs91621_) - (let ((_compiled-path91623_ - (path-expand _ssi91620_ _dir91606_))) - (if (file-exists? _compiled-path91623_) - (path-normalize _compiled-path91623_) - (let _lpr91625_ ((_rest-src91627_ - _srcs91621_)) - (let* ((_rest-src9162891636_ - _rest-src91627_) - (_else9163091644_ + (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_ (lambda () - (_lp91578_ _rest91605_))) - (_K9163291652_ - (lambda (_rest-src91647_ - _src91648_) - (let ((_src-path91650_ + (_lp91575_ _rest91602_))) + (_K9162991649_ + (lambda (_rest-src91644_ + _src91645_) + (let ((_src-path91647_ (path-expand - _src91648_ - _dir91606_))) + _src91645_ + _dir91603_))) (if (file-exists? - _src-path91650_) + _src-path91647_) (path-normalize - _src-path91650_) - (_lpr91625_ - _rest-src91647_)))))) - (if (##pair? _rest-src9162891636_) - (let ((_hd9163391655_ - (##car _rest-src9162891636_)) - (_tl9163491657_ - (##cdr _rest-src9162891636_))) - (let* ((_src91660_ - _hd9163391655_) - (_rest-src91662_ - _tl9163491657_)) - (_K9163291652_ - _rest-src91662_ - _src91660_))) - (_else9163091644_))))))))) - (let ((_$e91610_ + _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_ (gx#core-library-package-path-prefix - _dir91606_))) - (if _$e91610_ - ((lambda (_prefix91613_) + _dir91603_))) + (if _$e91607_ + ((lambda (_prefix91610_) (if (string-prefix? - _prefix91613_ - _spath91567_) - (let ((_ssi91617_ + _prefix91610_ + _spath91564_) + (let ((_ssi91614_ (substring - _ssi91571_ - (string-length _prefix91613_) - (string-length _ssi91571_))) - (_srcs91618_ - (map (lambda (_src91615_) + _ssi91568_ + (string-length _prefix91610_) + (string-length _ssi91568_))) + (_srcs91615_ + (map (lambda (_src91612_) (substring - _src91615_ + _src91612_ (string-length - _prefix91613_) + _prefix91610_) (string-length - _src91615_))) - _srcs91575_))) - (_resolve91608_ - _ssi91617_ - _srcs91618_)) - (_lp91578_ _rest91605_))) - _$e91610_) - (_resolve91608_ _ssi91571_ _srcs91575_)))))) - (_K9158591599_ + _src91612_))) + _srcs91572_))) + (_resolve91605_ + _ssi91614_ + _srcs91615_)) + (_lp91575_ _rest91602_))) + _$e91607_) + (_resolve91605_ _ssi91568_ _srcs91572_)))))) + (_K9158291596_ (lambda () (gx#raise-syntax-error '#f '"Cannot find library module" - _libpath91563_)))) - (let ((_try-match9158391602_ + _libpath91560_)))) + (let ((_try-match9158091599_ (lambda () - (if (##null? _rest9158191590_) - (_K9158591599_) - (_E9158491594_))))) - (if (##pair? _rest9158191590_) - (let ((_tl9158891669_ (##cdr _rest9158191590_)) - (_hd9158791667_ (##car _rest9158191590_))) - (let ((_dir91672_ _hd9158791667_) - (_rest91674_ _tl9158891669_)) - (_K9158691664_ _rest91674_ _dir91672_))) - (_try-match9158391602_))))))))) + (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_))))))))) (define gx#core-resolve-library-relative-module-path - (lambda (_modpath91536_) - (letrec ((_resolve91538_ - (lambda (_path91555_ _base91556_) - (let ((_$e91558_ (string-rindex__0 _base91556_ '#\/))) - (if _$e91558_ - ((lambda (_idx91561_) + (lambda (_modpath91533_) + (letrec ((_resolve91535_ + (lambda (_path91552_ _base91553_) + (let ((_$e91555_ (string-rindex__0 _base91553_ '#\/))) + (if _$e91555_ + ((lambda (_idx91558_) (gx#core-resolve-library-module-path (string->symbol (string-append '":" - (substring _base91556_ '0 _idx91561_) + (substring _base91553_ '0 _idx91558_) '"/" - _path91555_)))) - _$e91558_) + _path91552_)))) + _$e91555_) (gx#core-resolve-library-module-path (string->symbol - (string-append '":" _path91555_)))))))) - (let ((_spath91540_ (symbol->string (gx#stx-e _modpath91536_))) - (_mod91541_ + (string-append '":" _path91552_)))))))) + (let ((_spath91537_ (symbol->string (gx#stx-e _modpath91533_))) + (_mod91538_ (gx#core-context-top__% (gx#current-expander-context) gx#module-context?))) - (if _mod91541_ + (if _mod91538_ '#!void (gx#raise-syntax-error '#f '"Cannot resolve relative module path; not in module context" - _modpath91536_)) - (let ((_mpath91543_ + _modpath91533_)) + (let ((_mpath91540_ (symbol->string (##structure-ref - _mod91541_ + _mod91538_ '1 gx#expander-context::t '#f)))) - (let _lp91545_ ((_spath91547_ _spath91540_) - (_mpath91548_ _mpath91543_)) - (if (string-prefix? '"../" _spath91547_) - (let ((_$e91550_ (string-rindex__0 _mpath91548_ '#\/))) - (if _$e91550_ - ((lambda (_idx91553_) - (_lp91545_ + (let _lp91542_ ((_spath91544_ _spath91537_) + (_mpath91545_ _mpath91540_)) + (if (string-prefix? '"../" _spath91544_) + (let ((_$e91547_ (string-rindex__0 _mpath91545_ '#\/))) + (if _$e91547_ + ((lambda (_idx91550_) + (_lp91542_ (substring - _spath91547_ + _spath91544_ '3 - (string-length _spath91547_)) - (substring _mpath91548_ '0 _idx91553_))) - _$e91550_) + (string-length _spath91544_)) + (substring _mpath91545_ '0 _idx91550_))) + _$e91547_) (gx#raise-syntax-error '#f '"Cannot resolve relative module path; illegal traversal" - _modpath91536_))) - (if (string-prefix? '"./" _spath91547_) - (_lp91545_ + _modpath91533_))) + (if (string-prefix? '"./" _spath91544_) + (_lp91542_ (substring - _spath91547_ + _spath91544_ '2 - (string-length _spath91547_)) - _mpath91548_) - (_resolve91538_ _spath91547_ _mpath91548_))))))))) + (string-length _spath91544_)) + _mpath91545_) + (_resolve91535_ _spath91544_ _mpath91545_))))))))) (define gx#core-library-package-path-prefix - (lambda (_dir91529_) - (let ((_$e91531_ + (lambda (_dir91526_) + (let ((_$e91528_ (pgetq__0 'package: - (gx#core-library-package-plist__0 _dir91529_)))) - (if _$e91531_ - ((lambda (_pkg91534_) - (string-append (symbol->string _pkg91534_) '"/")) - _$e91531_) + (gx#core-library-package-plist__0 _dir91526_)))) + (if _$e91528_ + ((lambda (_pkg91531_) + (string-append (symbol->string _pkg91531_) '"/")) + _$e91528_) '#f)))) (define gx#core-library-package-plist__% - (lambda (_dir91501_ _exists?91502_) - (let* ((_cache91504_ (gx#core-library-package-cache)) - (_$e91506_ (hash-get _cache91504_ _dir91501_))) - (if _$e91506_ - (values _$e91506_) - (let* ((_gerbil.pkg91509_ (path-expand '"gerbil.pkg" _dir91501_)) - (_plist91516_ - (if (or _exists?91502_ (file-exists? _gerbil.pkg91509_)) - (let ((_e91514_ + (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_ (gx#call-with-input-source-file - _gerbil.pkg91509_ + _gerbil.pkg91506_ read))) - (if (eof-object? _e91514_) + (if (eof-object? _e91511_) '() - (if (list? _e91514_) - _e91514_ + (if (list? _e91511_) + _e91511_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _gerbil.pkg91509_ - _e91514_)))) + _gerbil.pkg91506_ + _e91511_)))) '()))) - (hash-put! _cache91504_ _dir91501_ _plist91516_) - _plist91516_))))) + (hash-put! _cache91501_ _dir91498_ _plist91513_) + _plist91513_))))) (define gx#core-library-package-plist__0 - (lambda (_dir91522_) - (let ((_exists?91524_ '#f)) - (gx#core-library-package-plist__% _dir91522_ _exists?91524_)))) + (lambda (_dir91519_) + (let ((_exists?91521_ '#f)) + (gx#core-library-package-plist__% _dir91519_ _exists?91521_)))) (define gx#core-library-package-plist - (lambda _g93263_ - (let ((_g93262_ (##length _g93263_))) - (cond ((##fx= _g93262_ 1) - (apply (lambda (_dir91522_) - (gx#core-library-package-plist__0 _dir91522_)) - _g93263_)) - ((##fx= _g93262_ 2) - (apply (lambda (_dir91526_ _exists?91527_) + (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_) (gx#core-library-package-plist__% - _dir91526_ - _exists?91527_)) - _g93263_)) + _dir91523_ + _exists?91524_)) + _g93260_)) (else (##raise-wrong-number-of-arguments-exception gx#core-library-package-plist - _g93263_)))))) + _g93260_)))))) (define gx#core-library-package-cache (lambda () - (let ((_$e91495_ (gx#current-expander-module-library-package-cache))) - (if _$e91495_ - (values _$e91495_) - (let ((_cache91498_ (make-hash-table))) - (gx#current-expander-module-library-package-cache _cache91498_) - _cache91498_))))) + (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_))))) (define gx#core-library-module-path? - (lambda (_stx91492_) (gx#core-special-module-path? _stx91492_ '#\:))) + (lambda (_stx91489_) (gx#core-special-module-path? _stx91489_ '#\:))) (define gx#core-library-relative-module-path? - (lambda (_stx91490_) (gx#core-special-module-path? _stx91490_ '#\.))) + (lambda (_stx91487_) (gx#core-special-module-path? _stx91487_ '#\.))) (define gx#core-special-module-path? - (lambda (_stx91485_ _char91486_) - (if (gx#identifier? _stx91485_) - (if (interned-symbol? (gx#stx-e _stx91485_)) - (let ((_str91488_ (symbol->string (gx#stx-e _stx91485_)))) - (if (fx> (string-length _str91488_) '1) - (eq? (string-ref _str91488_ '0) _char91486_) + (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_) '#f)) '#f) '#f))) (define gx#core-bound-prelude? - (lambda (_stx91479_) + (lambda (_stx91476_) (gx#core-bound-identifier?__% - _stx91479_ - (lambda (_g9148091482_) - (gx#expander-binding?__% _g9148091482_ gx#prelude-context?))))) + _stx91476_ + (lambda (_g9147791479_) + (gx#expander-binding?__% _g9147791479_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_stx91473_) + (lambda (_stx91470_) (gx#core-bound-identifier?__% - _stx91473_ - (lambda (_g9147491476_) - (gx#expander-binding?__% _g9147491476_ gx#module-context?))))) + _stx91470_ + (lambda (_g9147191473_) + (gx#expander-binding?__% _g9147191473_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_stx91460_) - (letrec ((_module-prelude?91462_ - (lambda (_e91468_) - (let ((_$e91470_ + (lambda (_stx91457_) + (letrec ((_module-prelude?91459_ + (lambda (_e91465_) + (let ((_$e91467_ (##structure-instance-of? - _e91468_ + _e91465_ 'gx#module-context::t))) - (if _$e91470_ - _$e91470_ + (if _$e91467_ + _$e91467_ (##structure-instance-of? - _e91468_ + _e91465_ 'gx#prelude-context::t)))))) (gx#core-bound-identifier?__% - _stx91460_ - (lambda (_g9146391465_) + _stx91457_ + (lambda (_g9146091462_) (gx#expander-binding?__% - _g9146391465_ - _module-prelude?91462_)))))) + _g9146091462_ + _module-prelude?91459_)))))) (define gx#core-bind-import!__% - (lambda (_in91390_ _ctx91391_ _force-weak?91392_) - (let* ((_in9139391402_ _in91390_) - (_E9139591406_ - (lambda () (error '"No clause matching" _in9139391402_))) - (_K9139691419_ - (lambda (_weak?91409_ _phi91410_ _key91411_ _source91412_) + (lambda (_in91387_ _ctx91388_ _force-weak?91389_) + (let* ((_in9139091399_ _in91387_) + (_E9139291403_ + (lambda () (error '"No clause matching" _in9139091399_))) + (_K9139391416_ + (lambda (_weak?91406_ _phi91407_ _key91408_ _source91409_) (gx#core-bind!__% - _key91411_ - (let ((_e91414_ - (gx#core-resolve-module-export _source91412_))) + _key91408_ + (let ((_e91411_ + (gx#core-resolve-module-export _source91409_))) (##structure gx#import-binding::t - (##unchecked-structure-ref _e91414_ '1 gx#binding::t '#f) - _key91411_ - _phi91410_ - _e91414_ + (##unchecked-structure-ref _e91411_ '1 gx#binding::t '#f) + _key91408_ + _phi91407_ + _e91411_ (##unchecked-structure-ref - _source91412_ + _source91409_ '1 gx#module-export::t '#f) - (let ((_$e91416_ _force-weak?91392_)) - (if _$e91416_ _$e91416_ _weak?91409_)))) + (let ((_$e91413_ _force-weak?91389_)) + (if _$e91413_ _$e91413_ _weak?91406_)))) gx#core-context-rebind? - _phi91410_ - _ctx91391_)))) + _phi91407_ + _ctx91388_)))) (if (##structure-direct-instance-of? - _in9139391402_ + _in9139091399_ 'gx#module-import::t) - (let* ((_e9139791422_ + (let* ((_e9139491419_ (##unchecked-structure-ref - _in9139391402_ + _in9139091399_ '1 gx#module-import::t '#f)) - (_source91425_ _e9139791422_) - (_e9139891427_ + (_source91422_ _e9139491419_) + (_e9139591424_ (##unchecked-structure-ref - _in9139391402_ + _in9139091399_ '2 gx#module-import::t '#f)) - (_key91430_ _e9139891427_) - (_e9139991432_ + (_key91427_ _e9139591424_) + (_e9139691429_ (##unchecked-structure-ref - _in9139391402_ + _in9139091399_ '3 gx#module-import::t '#f)) - (_phi91435_ _e9139991432_) - (_e9140091437_ + (_phi91432_ _e9139691429_) + (_e9139791434_ (##unchecked-structure-ref - _in9139391402_ + _in9139091399_ '4 gx#module-import::t '#f)) - (_weak?91440_ _e9140091437_)) - (_K9139691419_ - _weak?91440_ - _phi91435_ - _key91430_ - _source91425_)) - (_E9139591406_))))) + (_weak?91437_ _e9139791434_)) + (_K9139391416_ + _weak?91437_ + _phi91432_ + _key91427_ + _source91422_)) + (_E9139291403_))))) (define gx#core-bind-import!__0 - (lambda (_in91445_) - (let* ((_ctx91447_ (gx#current-expander-context)) - (_force-weak?91449_ '#f)) - (gx#core-bind-import!__% _in91445_ _ctx91447_ _force-weak?91449_)))) + (lambda (_in91442_) + (let* ((_ctx91444_ (gx#current-expander-context)) + (_force-weak?91446_ '#f)) + (gx#core-bind-import!__% _in91442_ _ctx91444_ _force-weak?91446_)))) (define gx#core-bind-import!__1 - (lambda (_in91451_ _ctx91452_) - (let ((_force-weak?91454_ '#f)) - (gx#core-bind-import!__% _in91451_ _ctx91452_ _force-weak?91454_)))) + (lambda (_in91448_ _ctx91449_) + (let ((_force-weak?91451_ '#f)) + (gx#core-bind-import!__% _in91448_ _ctx91449_ _force-weak?91451_)))) (define gx#core-bind-import! - (lambda _g93265_ - (let ((_g93264_ (##length _g93265_))) - (cond ((##fx= _g93264_ 1) - (apply (lambda (_in91445_) - (gx#core-bind-import!__0 _in91445_)) - _g93265_)) - ((##fx= _g93264_ 2) - (apply (lambda (_in91451_ _ctx91452_) - (gx#core-bind-import!__1 _in91451_ _ctx91452_)) - _g93265_)) - ((##fx= _g93264_ 3) - (apply (lambda (_in91456_ _ctx91457_ _force-weak?91458_) + (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_) (gx#core-bind-import!__% - _in91456_ - _ctx91457_ - _force-weak?91458_)) - _g93265_)) + _in91453_ + _ctx91454_ + _force-weak?91455_)) + _g93262_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-import! - _g93265_)))))) + _g93262_)))))) (define gx#core-bind-weak-import!__% - (lambda (_in91376_ _ctx91377_) - (gx#core-bind-import!__% _in91376_ _ctx91377_ '#t))) + (lambda (_in91373_ _ctx91374_) + (gx#core-bind-import!__% _in91373_ _ctx91374_ '#t))) (define gx#core-bind-weak-import!__0 - (lambda (_in91382_) - (let ((_ctx91384_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__% _in91382_ _ctx91384_)))) + (lambda (_in91379_) + (let ((_ctx91381_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__% _in91379_ _ctx91381_)))) (define gx#core-bind-weak-import! - (lambda _g93267_ - (let ((_g93266_ (##length _g93267_))) - (cond ((##fx= _g93266_ 1) - (apply (lambda (_in91382_) - (gx#core-bind-weak-import!__0 _in91382_)) - _g93267_)) - ((##fx= _g93266_ 2) - (apply (lambda (_in91386_ _ctx91387_) - (gx#core-bind-weak-import!__% _in91386_ _ctx91387_)) - _g93267_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-weak-import! - _g93267_)))))) + _g93264_)))))) (define gx#core-resolve-module-export - (lambda (_out91267_) - (letrec ((_subst91269_ - (lambda (_key91315_) - (let* ((_key9131691324_ _key91315_) - (_else9131891332_ (lambda () _key91315_)) - (_K9132091363_ - (lambda (_mark91335_ _id91336_) - (let* ((_mark9133791343_ _mark91335_) - (_E9133991347_ + (lambda (_out91264_) + (letrec ((_subst91266_ + (lambda (_key91312_) + (let* ((_key9131391321_ _key91312_) + (_else9131591329_ (lambda () _key91312_)) + (_K9131791360_ + (lambda (_mark91332_ _id91333_) + (let* ((_mark9133491340_ _mark91332_) + (_E9133691344_ (lambda () (error '"No clause matching" - _mark9133791343_))) - (_K9134091355_ - (lambda (_subst91350_) - (let ((_$e91352_ - (if _subst91350_ + _mark9133491340_))) + (_K9133791352_ + (lambda (_subst91347_) + (let ((_$e91349_ + (if _subst91347_ (hash-get - _subst91350_ - _id91336_) + _subst91347_ + _id91333_) '#f))) - (if _$e91352_ - _$e91352_ + (if _$e91349_ + _$e91349_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _key91315_)))))) + _key91312_)))))) (if (##structure-instance-of? - _mark9133791343_ + _mark9133491340_ 'gx#expander-mark::t) - (let* ((_e9134191358_ + (let* ((_e9133891355_ (##unchecked-structure-ref - _mark9133791343_ + _mark9133491340_ '1 gx#expander-mark::t '#f)) - (_subst91361_ _e9134191358_)) - (_K9134091355_ _subst91361_)) - (_E9133991347_)))))) - (if (##pair? _key9131691324_) - (let ((_hd9132191366_ (##car _key9131691324_)) - (_tl9132291368_ (##cdr _key9131691324_))) - (let* ((_id91371_ _hd9132191366_) - (_mark91373_ _tl9132291368_)) - (_K9132091363_ _mark91373_ _id91371_))) - (_else9131891332_)))))) - (let* ((_out9127091280_ _out91267_) - (_E9127291284_ - (lambda () (error '"No clause matching" _out9127091280_))) - (_K9127391291_ - (lambda (_phi91287_ _key91288_ _ctx91289_) + (_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_) (gx#core-context-resolve - (gx#core-context-shift _ctx91289_ _phi91287_) - (_subst91269_ _key91288_))))) + (gx#core-context-shift _ctx91286_ _phi91284_) + (_subst91266_ _key91285_))))) (if (##structure-direct-instance-of? - _out9127091280_ + _out9126791277_ 'gx#module-export::t) - (let* ((_e9127491294_ + (let* ((_e9127191291_ (##unchecked-structure-ref - _out9127091280_ + _out9126791277_ '1 gx#module-export::t '#f)) - (_ctx91297_ _e9127491294_) - (_e9127591299_ + (_ctx91294_ _e9127191291_) + (_e9127291296_ (##unchecked-structure-ref - _out9127091280_ + _out9126791277_ '2 gx#module-export::t '#f)) - (_key91302_ _e9127591299_) - (_e9127691304_ + (_key91299_ _e9127291296_) + (_e9127391301_ (##unchecked-structure-ref - _out9127091280_ + _out9126791277_ '3 gx#module-export::t '#f)) - (_phi91307_ _e9127691304_) - (_e9127791309_ + (_phi91304_ _e9127391301_) + (_e9127491306_ (##unchecked-structure-ref - _out9127091280_ + _out9126791277_ '4 gx#module-export::t '#f)) - (_e9127891312_ + (_e9127591309_ (##unchecked-structure-ref - _out9127091280_ + _out9126791277_ '5 gx#module-export::t '#f))) - (_K9127391291_ _phi91307_ _key91302_ _ctx91297_)) - (_E9127291284_)))))) + (_K9127091288_ _phi91304_ _key91299_ _ctx91294_)) + (_E9126991281_)))))) (define gx#core-module-export->import__% - (lambda (_out91192_ _rename91193_ _dphi91194_) - (let* ((_out9119591205_ _out91192_) - (_E9119791209_ - (lambda () (error '"No clause matching" _out9119591205_))) - (_K9119891221_ - (lambda (_weak?91212_ - _name91213_ - _phi91214_ - _key91215_ - _ctx91216_) + (lambda (_out91189_ _rename91190_ _dphi91191_) + (let* ((_out9119291202_ _out91189_) + (_E9119491206_ + (lambda () (error '"No clause matching" _out9119291202_))) + (_K9119591218_ + (lambda (_weak?91209_ + _name91210_ + _phi91211_ + _key91212_ + _ctx91213_) (##structure gx#module-import::t - _out91192_ - (let ((_$e91218_ _rename91193_)) - (if _$e91218_ _$e91218_ _name91213_)) - (fx+ _phi91214_ _dphi91194_) - _weak?91212_)))) + _out91189_ + (let ((_$e91215_ _rename91190_)) + (if _$e91215_ _$e91215_ _name91210_)) + (fx+ _phi91211_ _dphi91191_) + _weak?91209_)))) (if (##structure-direct-instance-of? - _out9119591205_ + _out9119291202_ 'gx#module-export::t) - (let* ((_e9119991224_ + (let* ((_e9119691221_ (##unchecked-structure-ref - _out9119591205_ + _out9119291202_ '1 gx#module-export::t '#f)) - (_ctx91227_ _e9119991224_) - (_e9120091229_ + (_ctx91224_ _e9119691221_) + (_e9119791226_ (##unchecked-structure-ref - _out9119591205_ + _out9119291202_ '2 gx#module-export::t '#f)) - (_key91232_ _e9120091229_) - (_e9120191234_ + (_key91229_ _e9119791226_) + (_e9119891231_ (##unchecked-structure-ref - _out9119591205_ + _out9119291202_ '3 gx#module-export::t '#f)) - (_phi91237_ _e9120191234_) - (_e9120291239_ + (_phi91234_ _e9119891231_) + (_e9119991236_ (##unchecked-structure-ref - _out9119591205_ + _out9119291202_ '4 gx#module-export::t '#f)) - (_name91242_ _e9120291239_) - (_e9120391244_ + (_name91239_ _e9119991236_) + (_e9120091241_ (##unchecked-structure-ref - _out9119591205_ + _out9119291202_ '5 gx#module-export::t '#f)) - (_weak?91247_ _e9120391244_)) - (_K9119891221_ - _weak?91247_ - _name91242_ - _phi91237_ - _key91232_ - _ctx91227_)) - (_E9119791209_))))) + (_weak?91244_ _e9120091241_)) + (_K9119591218_ + _weak?91244_ + _name91239_ + _phi91234_ + _key91229_ + _ctx91224_)) + (_E9119491206_))))) (define gx#core-module-export->import__0 - (lambda (_out91252_) - (let* ((_rename91254_ '#f) (_dphi91256_ '0)) + (lambda (_out91249_) + (let* ((_rename91251_ '#f) (_dphi91253_ '0)) (gx#core-module-export->import__% - _out91252_ - _rename91254_ - _dphi91256_)))) + _out91249_ + _rename91251_ + _dphi91253_)))) (define gx#core-module-export->import__1 - (lambda (_out91258_ _rename91259_) - (let ((_dphi91261_ '0)) + (lambda (_out91255_ _rename91256_) + (let ((_dphi91258_ '0)) (gx#core-module-export->import__% - _out91258_ - _rename91259_ - _dphi91261_)))) + _out91255_ + _rename91256_ + _dphi91258_)))) (define gx#core-module-export->import - (lambda _g93269_ - (let ((_g93268_ (##length _g93269_))) - (cond ((##fx= _g93268_ 1) - (apply (lambda (_out91252_) - (gx#core-module-export->import__0 _out91252_)) - _g93269_)) - ((##fx= _g93268_ 2) - (apply (lambda (_out91258_ _rename91259_) + (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_) (gx#core-module-export->import__1 - _out91258_ - _rename91259_)) - _g93269_)) - ((##fx= _g93268_ 3) - (apply (lambda (_out91263_ _rename91264_ _dphi91265_) + _out91255_ + _rename91256_)) + _g93266_)) + ((##fx= _g93265_ 3) + (apply (lambda (_out91260_ _rename91261_ _dphi91262_) (gx#core-module-export->import__% - _out91263_ - _rename91264_ - _dphi91265_)) - _g93269_)) + _out91260_ + _rename91261_ + _dphi91262_)) + _g93266_)) (else (##raise-wrong-number-of-arguments-exception gx#core-module-export->import - _g93269_)))))) + _g93266_)))))) (define gx#core-expand-module% - (lambda (_stx91120_) - (letrec ((_make-context91122_ - (lambda (_id91173_) - (let* ((_super91175_ (gx#current-expander-context)) - (_bind-id91177_ (gx#stx-e _id91173_)) - (_mod-id91179_ + (lambda (_stx91117_) + (letrec ((_make-context91119_ + (lambda (_id91170_) + (let* ((_super91172_ (gx#current-expander-context)) + (_bind-id91174_ (gx#stx-e _id91170_)) + (_mod-id91176_ (if (##structure-instance-of? - _super91175_ + _super91172_ 'gx#module-context::t) (make-symbol__1 (##structure-ref - _super91175_ + _super91172_ '1 gx#expander-context::t '#f) '"$" - _bind-id91177_) - _bind-id91177_)) - (_ns91181_ (symbol->string _mod-id91179_)) - (_path91188_ + _bind-id91174_) + _bind-id91174_)) + (_ns91178_ (symbol->string _mod-id91176_)) + (_path91185_ (if (##structure-instance-of? - _super91175_ + _super91172_ 'gx#module-context::t) - (let ((_path91183_ + (let ((_path91180_ (##unchecked-structure-ref - _super91175_ + _super91172_ '7 gx#module-context::t '#f))) - (if (or (pair? _path91183_) - (null? _path91183_)) - (cons _bind-id91177_ _path91183_) - (if (not _path91183_) - _bind-id91177_ - (cons _bind-id91177_ - (cons _path91183_ '()))))) - _bind-id91177_))) - (let ((__obj93245 + (if (or (pair? _path91180_) + (null? _path91180_)) + (cons _bind-id91174_ _path91180_) + (if (not _path91180_) + _bind-id91174_ + (cons _bind-id91174_ + (cons _path91180_ '()))))) + _bind-id91174_))) + (let ((__obj93242 (##structure gx#module-context::t '#f @@ -2167,861 +2167,861 @@ '#f '#f))) (gx#module-context:::init! - __obj93245 - _mod-id91179_ - _super91175_ - _ns91181_ - _path91188_) - __obj93245))))) - (let* ((_e9112391133_ _stx91120_) - (_E9112591137_ + __obj93242 + _mod-id91176_ + _super91172_ + _ns91178_ + _path91185_) + __obj93242))))) + (let* ((_e9112091130_ _stx91117_) + (_E9112291134_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9112391133_))) - (_E9112491169_ + _e9112091130_))) + (_E9112191166_ (lambda () - (if (gx#stx-pair? _e9112391133_) - (let ((_e9112691141_ (gx#syntax-e _e9112391133_))) - (let ((_hd9112791144_ (##car _e9112691141_)) - (_tl9112891146_ (##cdr _e9112691141_))) - (if (gx#stx-pair? _tl9112891146_) - (let ((_e9112991149_ - (gx#syntax-e _tl9112891146_))) - (let ((_hd9113091152_ (##car _e9112991149_)) - (_tl9113191154_ (##cdr _e9112991149_))) - (let* ((_id91157_ _hd9113091152_) - (_body91159_ _tl9113191154_)) - (if (and (gx#identifier? _id91157_) - (gx#stx-list? _body91159_)) - (let* ((_ctx91161_ - (_make-context91122_ - _id91157_)) - (_body91163_ + (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_ (gx#core-expand-module-begin - _body91159_ - _ctx91161_)) - (_body91165_ + _body91156_ + _ctx91158_)) + (_body91162_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body91163_) + _body91160_) (gx#stx-source - _stx91120_)))) + _stx91117_)))) (##unchecked-structure-set! - _ctx91161_ + _ctx91158_ (make-promise (lambda () - (gx#eval-syntax* _body91165_))) + (gx#eval-syntax* _body91162_))) '10 gx#module-context::t '#f) (##unchecked-structure-set! - _ctx91161_ - _body91165_ + _ctx91158_ + _body91162_ '11 gx#module-context::t '#f) (gx#core-bind-syntax!__0 - _id91157_ - _ctx91161_) + _id91154_ + _ctx91158_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _id91157_) - _body91165_) - (gx#stx-source _stx91120_))) - (_E9112591137_))))) - (_E9112591137_)))) - (_E9112591137_))))) - (_E9112491169_))))) + _id91154_) + _body91162_) + (gx#stx-source _stx91117_))) + (_E9112291134_))))) + (_E9112291134_)))) + (_E9112291134_))))) + (_E9112191166_))))) (define gx#core-expand-module-begin - (lambda (_body91086_ _ctx91087_) + (lambda (_body91083_ _ctx91084_) (call-with-parameters (lambda () (gx#core-bind-feature!__1 'gerbil-module '#t) - (let* ((_stx91090_ - (gx#core-expand-head (cons '%%begin-module _body91086_))) - (_e9109191098_ _stx91090_) - (_E9109391102_ + (let* ((_stx91087_ + (gx#core-expand-head (cons '%%begin-module _body91083_))) + (_e9108891095_ _stx91087_) + (_E9109091099_ (lambda () (gx#raise-syntax-error '#f '"Illegal module body expansion" - _stx91090_))) - (_E9109291116_ + _stx91087_))) + (_E9108991113_ (lambda () - (if (gx#stx-pair? _e9109191098_) - (let ((_e9109491106_ (gx#syntax-e _e9109191098_))) - (let ((_hd9109591109_ (##car _e9109491106_)) - (_tl9109691111_ (##cdr _e9109491106_))) - (if (and (gx#identifier? _hd9109591109_) + (if (gx#stx-pair? _e9108891095_) + (let ((_e9109191103_ (gx#syntax-e _e9108891095_))) + (let ((_hd9109291106_ (##car _e9109191103_)) + (_tl9109391108_ (##cdr _e9109191103_))) + (if (and (gx#identifier? _hd9109291106_) (gx#core-identifier=? - _hd9109591109_ + _hd9109291106_ '%#begin-module)) - (let ((_body91114_ _tl9109691111_)) + (let ((_body91111_ _tl9109391108_)) (if '#t - (if (gx#sealed-syntax? _stx91090_) - _body91114_ + (if (gx#sealed-syntax? _stx91087_) + _body91111_ (gx#core-expand-module-body - _body91114_)) - (_E9109391102_))) - (_E9109391102_)))) - (_E9109391102_))))) - (_E9109291116_))) + _body91111_)) + (_E9109091099_))) + (_E9109091099_)))) + (_E9109091099_))))) + (_E9108991113_))) gx#current-expander-context - _ctx91087_ + _ctx91084_ gx#current-expander-phi '0))) (define gx#core-expand-module-body - (lambda (_body90882_) - (letrec ((_expand-special90884_ - (lambda (_hd91013_ _K91014_ _rest91015_ _r91016_) - (let* ((_e9101791034_ _hd91013_) - (_E9102991038_ + (lambda (_body90879_) + (letrec ((_expand-special90881_ + (lambda (_hd91010_ _K91011_ _rest91012_ _r91013_) + (let* ((_e9101491031_ _hd91010_) + (_E9102691035_ (lambda () - (_K91014_ - _rest91015_ - (cons (gx#core-expand-top _hd91013_) - _r91016_)))) - (_E9101991050_ + (_K91011_ + _rest91012_ + (cons (gx#core-expand-top _hd91010_) + _r91013_)))) + (_E9101691047_ (lambda () - (if (gx#stx-pair? _e9101791034_) - (let ((_e9103091042_ - (gx#syntax-e _e9101791034_))) - (let ((_hd9103191045_ - (##car _e9103091042_)) - (_tl9103291047_ - (##cdr _e9103091042_))) - (if (and (gx#identifier? _hd9103191045_) + (if (gx#stx-pair? _e9101491031_) + (let ((_e9102791039_ + (gx#syntax-e _e9101491031_))) + (let ((_hd9102891042_ + (##car _e9102791039_)) + (_tl9102991044_ + (##cdr _e9102791039_))) + (if (and (gx#identifier? _hd9102891042_) (gx#core-identifier=? - _hd9103191045_ + _hd9102891042_ '%#export)) (if '#t - (_K91014_ - _rest91015_ - (cons _hd91013_ _r91016_)) - (_E9102991038_)) - (_E9102991038_)))) - (_E9102991038_)))) - (_E9101891082_ + (_K91011_ + _rest91012_ + (cons _hd91010_ _r91013_)) + (_E9102691035_)) + (_E9102691035_)))) + (_E9102691035_)))) + (_E9101591079_ (lambda () - (if (gx#stx-pair? _e9101791034_) - (let ((_e9102091054_ - (gx#syntax-e _e9101791034_))) - (let ((_hd9102191057_ - (##car _e9102091054_)) - (_tl9102291059_ - (##cdr _e9102091054_))) - (if (and (gx#identifier? _hd9102191057_) + (if (gx#stx-pair? _e9101491031_) + (let ((_e9101791051_ + (gx#syntax-e _e9101491031_))) + (let ((_hd9101891054_ + (##car _e9101791051_)) + (_tl9101991056_ + (##cdr _e9101791051_))) + (if (and (gx#identifier? _hd9101891054_) (gx#core-identifier=? - _hd9102191057_ + _hd9101891054_ '%#define-values)) - (if (gx#stx-pair? _tl9102291059_) - (let ((_e9102391062_ + (if (gx#stx-pair? _tl9101991056_) + (let ((_e9102091059_ (gx#syntax-e - _tl9102291059_))) - (let ((_hd9102491065_ - (##car _e9102391062_)) - (_tl9102591067_ - (##cdr _e9102391062_))) - (let ((_hd-bind91070_ - _hd9102491065_)) + _tl9101991056_))) + (let ((_hd9102191062_ + (##car _e9102091059_)) + (_tl9102291064_ + (##cdr _e9102091059_))) + (let ((_hd-bind91067_ + _hd9102191062_)) (if (gx#stx-pair? - _tl9102591067_) - (let ((_e9102691072_ + _tl9102291064_) + (let ((_e9102391069_ (gx#syntax-e - _tl9102591067_))) - (let ((_hd9102791075_ + _tl9102291064_))) + (let ((_hd9102491072_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e9102691072_)) - (_tl9102891077_ (##cdr _e9102691072_))) - (let ((_expr91080_ _hd9102791075_)) - (if (gx#stx-null? _tl9102891077_) - (if (gx#core-bind-values? _hd-bind91070_) + (##car _e9102391069_)) + (_tl9102591074_ (##cdr _e9102391069_))) + (let ((_expr91077_ _hd9102491072_)) + (if (gx#stx-null? _tl9102591074_) + (if (gx#core-bind-values? _hd-bind91067_) (begin - (gx#core-bind-values!__0 _hd-bind91070_) - (_K91014_ - _rest91015_ - (cons _hd91013_ _r91016_))) - (_E9101991050_)) - (_E9101991050_))))) - (_E9101991050_))))) + (gx#core-bind-values!__0 _hd-bind91067_) + (_K91011_ + _rest91012_ + (cons _hd91010_ _r91013_))) + (_E9101691047_)) + (_E9101691047_))))) + (_E9101691047_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9101991050_)) - (_E9101991050_)))) - (_E9101991050_))))) - (_E9101891082_)))) - (_expand-body90885_ - (lambda (_rbody90887_) - (let _lp90889_ ((_rest90891_ _rbody90887_) - (_body90892_ '())) - (let* ((_rest9089390901_ _rest90891_) - (_else9089590909_ (lambda () _body90892_)) - (_K9089791001_ - (lambda (_rest90912_ _hd90913_) - (let* ((_e9091490935_ _hd90913_) - (_E9093090939_ + (_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_ (lambda () - (_lp90889_ - _rest90912_ + (_lp90886_ + _rest90909_ (cons (gx#core-expand-expression - _hd90913_) - _body90892_)))) - (_E9092690953_ + _hd90910_) + _body90889_)))) + (_E9092390950_ (lambda () - (if (gx#stx-pair? _e9091490935_) - (let ((_e9093190943_ + (if (gx#stx-pair? _e9091190932_) + (let ((_e9092890940_ (gx#syntax-e - _e9091490935_))) - (let ((_hd9093290946_ - (##car _e9093190943_)) - (_tl9093390948_ - (##cdr _e9093190943_))) - (let ((_form90951_ - _hd9093290946_)) + _e9091190932_))) + (let ((_hd9092990943_ + (##car _e9092890940_)) + (_tl9093090945_ + (##cdr _e9092890940_))) + (let ((_form90948_ + _hd9092990943_)) (if (gx#core-bound-identifier?__% - _form90951_ + _form90948_ gx#special-form-binding?) - (_lp90889_ - _rest90912_ - (cons _hd90913_ - _body90892_)) - (_E9093090939_))))) - (_E9093090939_)))) - (_E9091690965_ + (_lp90886_ + _rest90909_ + (cons _hd90910_ + _body90889_)) + (_E9092790936_))))) + (_E9092790936_)))) + (_E9091390962_ (lambda () - (if (gx#stx-pair? _e9091490935_) - (let ((_e9092790957_ + (if (gx#stx-pair? _e9091190932_) + (let ((_e9092490954_ (gx#syntax-e - _e9091490935_))) - (let ((_hd9092890960_ - (##car _e9092790957_)) - (_tl9092990962_ - (##cdr _e9092790957_))) + _e9091190932_))) + (let ((_hd9092590957_ + (##car _e9092490954_)) + (_tl9092690959_ + (##cdr _e9092490954_))) (if (and (gx#identifier? - _hd9092890960_) + _hd9092590957_) (gx#core-identifier=? - _hd9092890960_ + _hd9092590957_ '%#export)) (if '#t - (_lp90889_ - _rest90912_ + (_lp90886_ + _rest90909_ (cons (gx#core-expand-export%__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd90913_) - _body90892_)) - (_E9092690953_)) - (_E9092690953_)))) + _hd90910_) + _body90889_)) + (_E9092390950_)) + (_E9092390950_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9092690953_)))) - (_E9091590997_ + (_E9092390950_)))) + (_E9091290994_ (lambda () - (if (gx#stx-pair? _e9091490935_) - (let ((_e9091790969_ + (if (gx#stx-pair? _e9091190932_) + (let ((_e9091490966_ (gx#syntax-e - _e9091490935_))) - (let ((_hd9091890972_ - (##car _e9091790969_)) - (_tl9091990974_ - (##cdr _e9091790969_))) + _e9091190932_))) + (let ((_hd9091590969_ + (##car _e9091490966_)) + (_tl9091690971_ + (##cdr _e9091490966_))) (if (and (gx#identifier? - _hd9091890972_) + _hd9091590969_) (gx#core-identifier=? - _hd9091890972_ + _hd9091590969_ '%#define-values)) (if (gx#stx-pair? - _tl9091990974_) - (let ((_e9092090977_ + _tl9091690971_) + (let ((_e9091790974_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl9091990974_))) - (let ((_hd9092190980_ (##car _e9092090977_)) - (_tl9092290982_ (##cdr _e9092090977_))) - (let ((_hd-bind90985_ _hd9092190980_)) - (if (gx#stx-pair? _tl9092290982_) - (let ((_e9092390987_ (gx#syntax-e _tl9092290982_))) - (let ((_hd9092490990_ (##car _e9092390987_)) - (_tl9092590992_ (##cdr _e9092390987_))) - (let ((_expr90995_ _hd9092490990_)) - (if (gx#stx-null? _tl9092590992_) + (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_) (if '#t - (_lp90889_ - _rest90912_ + (_lp90886_ + _rest90909_ (cons (gx#core-quote-syntax__1 (gx#core-list '%#define-values (gx#core-quote-bind-values - _hd-bind90985_) + _hd-bind90982_) (gx#core-expand-expression - _expr90995_)) - (gx#stx-source _hd90913_)) - _body90892_)) - (_E9091690965_)) - (_E9091690965_))))) - (_E9091690965_))))) - (_E9091690965_)) - (_E9091690965_)))) + _expr90992_)) + (gx#stx-source _hd90910_)) + _body90889_)) + (_E9091390962_)) + (_E9091390962_))))) + (_E9091390962_))))) + (_E9091390962_)) + (_E9091390962_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9091690965_))))) - (_E9091590997_))))) - (if (##pair? _rest9089390901_) - (let ((_hd9089891004_ (##car _rest9089390901_)) - (_tl9089991006_ (##cdr _rest9089390901_))) - (let* ((_hd91009_ _hd9089891004_) - (_rest91011_ _tl9089991006_)) - (_K9089791001_ _rest91011_ _hd91009_))) - (_else9089590909_))))))) - (_expand-body90885_ + (_E9091390962_))))) + (_E9091290994_))))) + (if (##pair? _rest9089090898_) + (let ((_hd9089591001_ (##car _rest9089090898_)) + (_tl9089691003_ (##cdr _rest9089090898_))) + (let* ((_hd91006_ _hd9089591001_) + (_rest91008_ _tl9089691003_)) + (_K9089490998_ _rest91008_ _hd91006_))) + (_else9089290906_))))))) + (_expand-body90882_ (gx#core-expand-block__% - (cons '%#begin-module _body90882_) - _expand-special90884_ + (cons '%#begin-module _body90879_) + _expand-special90881_ '#f values))))) (define gx#core-expand-import/export - (lambda (_stx90725_ - _expanded?90726_ - _method90727_ - _current-phi90728_ - _expand190729_) - (letrec ((_K90731_ - (lambda (_rest90849_ _r90850_) - (let* ((_e9085190858_ _rest90849_) - (_E9085390862_ (lambda () _r90850_)) - (_E9085290878_ + (lambda (_stx90722_ + _expanded?90723_ + _method90724_ + _current-phi90725_ + _expand190726_) + (letrec ((_K90728_ + (lambda (_rest90846_ _r90847_) + (let* ((_e9084890855_ _rest90846_) + (_E9085090859_ (lambda () _r90847_)) + (_E9084990875_ (lambda () - (if (gx#stx-pair? _e9085190858_) - (let ((_e9085490866_ - (gx#syntax-e _e9085190858_))) - (let ((_hd9085590869_ - (##car _e9085490866_)) - (_tl9085690871_ - (##cdr _e9085490866_))) - (let* ((_hd90874_ _hd9085590869_) - (_rest90876_ _tl9085690871_)) + (if (gx#stx-pair? _e9084890855_) + (let ((_e9085190863_ + (gx#syntax-e _e9084890855_))) + (let ((_hd9085290866_ + (##car _e9085190863_)) + (_tl9085390868_ + (##cdr _e9085190863_))) + (let* ((_hd90871_ _hd9085290866_) + (_rest90873_ _tl9085390868_)) (if '#t - (_step90732_ - _hd90874_ - _rest90876_ - _r90850_) - (_E9085390862_))))) - (_E9085390862_))))) - (_E9085290878_)))) - (_step90732_ - (lambda (_hd90763_ _rest90764_ _r90765_) - (let* ((_e9076690784_ _hd90763_) - (_E9077990788_ + (_step90729_ + _hd90871_ + _rest90873_ + _r90847_) + (_E9085090859_))))) + (_E9085090859_))))) + (_E9084990875_)))) + (_step90729_ + (lambda (_hd90760_ _rest90761_ _r90762_) + (let* ((_e9076390781_ _hd90760_) + (_E9077690785_ (lambda () - (if (_expanded?90726_ (gx#stx-e _hd90763_)) - (_K90731_ - _rest90764_ - (cons (gx#stx-e _hd90763_) _r90765_)) - (_expand190729_ - _hd90763_ - _K90731_ - _rest90764_ - _r90765_)))) - (_E9077590804_ + (if (_expanded?90723_ (gx#stx-e _hd90760_)) + (_K90728_ + _rest90761_ + (cons (gx#stx-e _hd90760_) _r90762_)) + (_expand190726_ + _hd90760_ + _K90728_ + _rest90761_ + _r90762_)))) + (_E9077290801_ (lambda () - (if (gx#stx-pair? _e9076690784_) - (let ((_e9078090792_ - (gx#syntax-e _e9076690784_))) - (let ((_hd9078190795_ - (##car _e9078090792_)) - (_tl9078290797_ - (##cdr _e9078090792_))) - (let* ((_macro90800_ _hd9078190795_) - (_body90802_ _tl9078290797_)) + (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#core-bound-identifier?__% - _macro90800_ + _macro90797_ gx#syntax-binding?) - (_K90731_ + (_K90728_ (cons (gx#core-apply-expander__% (gx#syntax-local-e__0 - _macro90800_) - _hd90763_ - _method90727_) - _rest90764_) - _r90765_) - (_E9077990788_))))) - (_E9077990788_)))) - (_E9076890818_ + _macro90797_) + _hd90760_ + _method90724_) + _rest90761_) + _r90762_) + (_E9077690785_))))) + (_E9077690785_)))) + (_E9076590815_ (lambda () - (if (gx#stx-pair? _e9076690784_) - (let ((_e9077690808_ - (gx#syntax-e _e9076690784_))) - (let ((_hd9077790811_ - (##car _e9077690808_)) - (_tl9077890813_ - (##cdr _e9077690808_))) - (if (eq? (gx#stx-e _hd9077790811_) + (if (gx#stx-pair? _e9076390781_) + (let ((_e9077390805_ + (gx#syntax-e _e9076390781_))) + (let ((_hd9077490808_ + (##car _e9077390805_)) + (_tl9077590810_ + (##cdr _e9077390805_))) + (if (eq? (gx#stx-e _hd9077490808_) 'begin:) - (let ((_body90816_ _tl9077890813_)) + (let ((_body90813_ _tl9077590810_)) (if '#t - (_K90731_ + (_K90728_ (gx#stx-foldr cons - _rest90764_ - _body90816_) - _r90765_) - (_E9077590804_))) - (_E9077590804_)))) - (_E9077590804_)))) - (_E9076790845_ + _rest90761_ + _body90813_) + _r90762_) + (_E9077290801_))) + (_E9077290801_)))) + (_E9077290801_)))) + (_E9076490842_ (lambda () - (if (gx#stx-pair? _e9076690784_) - (let ((_e9076990822_ - (gx#syntax-e _e9076690784_))) - (let ((_hd9077090825_ - (##car _e9076990822_)) - (_tl9077190827_ - (##cdr _e9076990822_))) - (if (eq? (gx#stx-e _hd9077090825_) 'phi:) - (if (gx#stx-pair? _tl9077190827_) - (let ((_e9077290830_ + (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_ (gx#syntax-e - _tl9077190827_))) - (let ((_hd9077390833_ - (##car _e9077290830_)) - (_tl9077490835_ - (##cdr _e9077290830_))) - (let* ((_dphi90838_ - _hd9077390833_) - (_body90840_ - _tl9077490835_)) + _tl9076890824_))) + (let ((_hd9077090830_ + (##car _e9076990827_)) + (_tl9077190832_ + (##cdr _e9076990827_))) + (let* ((_dphi90835_ + _hd9077090830_) + (_body90837_ + _tl9077190832_)) (if (gx#stx-fixnum? - _dphi90838_) - (let ((_rbody90843_ + _dphi90835_) + (let ((_rbody90840_ (call-with-parameters (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_K90731_ _body90840_ '())) - _current-phi90728_ - (fx+ (gx#stx-e _dphi90838_) (_current-phi90728_))))) - (_K90731_ _rest90764_ (foldr1 cons _r90765_ _rbody90843_))) - (_E9076890818_))))) + (_K90728_ _body90837_ '())) + _current-phi90725_ + (fx+ (gx#stx-e _dphi90835_) (_current-phi90725_))))) + (_K90728_ _rest90761_ (foldr1 cons _r90762_ _rbody90840_))) + (_E9076590815_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9076890818_)) - (_E9076890818_)))) - (_E9076890818_))))) - (_E9076790845_))))) - (let* ((_e9073390740_ _stx90725_) - (_E9073590744_ + (_E9076590815_)) + (_E9076590815_)))) + (_E9076590815_))))) + (_E9076490842_))))) + (let* ((_e9073090737_ _stx90722_) + (_E9073290741_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9073390740_))) - (_E9073490759_ + _e9073090737_))) + (_E9073190756_ (lambda () - (if (gx#stx-pair? _e9073390740_) - (let ((_e9073690748_ (gx#syntax-e _e9073390740_))) - (let ((_hd9073790751_ (##car _e9073690748_)) - (_tl9073890753_ (##cdr _e9073690748_))) - (let ((_body90756_ _tl9073890753_)) + (if (gx#stx-pair? _e9073090737_) + (let ((_e9073390745_ (gx#syntax-e _e9073090737_))) + (let ((_hd9073490748_ (##car _e9073390745_)) + (_tl9073590750_ (##cdr _e9073390745_))) + (let ((_body90753_ _tl9073590750_)) (if '#t - (if (_current-phi90728_) - (_K90731_ _body90756_ '()) + (if (_current-phi90725_) + (_K90728_ _body90753_ '()) (call-with-parameters - (lambda () (_K90731_ _body90756_ '())) - _current-phi90728_ + (lambda () (_K90728_ _body90753_ '())) + _current-phi90725_ (gx#current-expander-phi))) - (_E9073590744_))))) - (_E9073590744_))))) - (_E9073490759_))))) + (_E9073290741_))))) + (_E9073290741_))))) + (_E9073190756_))))) (define gx#core-expand-import%__% - (lambda (_stx90392_ _internal-expand?90393_) - (letrec ((_expand190395_ - (lambda (_hd90705_ _K90706_ _rest90707_ _r90708_) - (if (gx#core-bound-module? _hd90705_) - (_import190396_ - (gx#syntax-local-e__0 _hd90705_) - _K90706_ - _rest90707_ - _r90708_) - (if (gx#core-library-module-path? _hd90705_) - (_import190396_ + (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_ (gx#import-module__0 - (gx#core-resolve-library-module-path _hd90705_)) - _K90706_ - _rest90707_ - _r90708_) + (gx#core-resolve-library-module-path _hd90702_)) + _K90703_ + _rest90704_ + _r90705_) (if (gx#core-library-relative-module-path? - _hd90705_) - (_import190396_ + _hd90702_) + (_import190393_ (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _hd90705_)) - _K90706_ - _rest90707_ - _r90708_) - (let ((_e90710_ (gx#stx-e _hd90705_))) - (if (pair? _e90710_) - (let ((_$e90712_ - (gx#stx-e (car _e90710_)))) - (if (eq? 'spec: _$e90712_) - (_import-spec90399_ - _hd90705_ - _K90706_ - _rest90707_ - _r90708_) - (if (eq? 'in: _$e90712_) - (_import-submodule90397_ - _hd90705_ - _K90706_ - _rest90707_ - _r90708_) - (if (eq? 'runtime: _$e90712_) - (_import-runtime90398_ - _hd90705_ - _K90706_ - _rest90707_ - _r90708_) + _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_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx90392_ - _hd90705_))))) - (if (string? _e90710_) - (_import190396_ + _stx90389_ + _hd90702_))))) + (if (string? _e90707_) + (_import190393_ (gx#import-module__0 (gx#core-resolve-module-path__% - _hd90705_ - (gx#stx-source _stx90392_))) - _K90706_ - _rest90707_ - _r90708_) + _hd90702_ + (gx#stx-source _stx90389_))) + _K90703_ + _rest90704_ + _r90705_) (if (##structure-instance-of? - _e90710_ + _e90707_ 'gx#module-context::t) - (_K90706_ - _rest90707_ - (cons _e90710_ _r90708_)) + (_K90703_ + _rest90704_ + (cons _e90707_ _r90705_)) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx90392_ - _hd90705_)))))))))) - (_import190396_ - (lambda (_ctx90694_ _K90695_ _rest90696_ _r90697_) - (let ((_dphi90699_ + _stx90389_ + _hd90702_)))))))))) + (_import190393_ + (lambda (_ctx90691_ _K90692_ _rest90693_ _r90694_) + (let ((_dphi90696_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_K90695_ - _rest90696_ + (_K90692_ + _rest90693_ (cons (##structure gx#import-set::t - _ctx90694_ - _dphi90699_ - (map (lambda (_g9070090702_) + _ctx90691_ + _dphi90696_ + (map (lambda (_g9069790699_) (gx#core-module-export->import__% - _g9070090702_ + _g9069790699_ '#f - _dphi90699_)) + _dphi90696_)) (##unchecked-structure-ref - _ctx90694_ + _ctx90691_ '9 gx#module-context::t '#f))) - _r90697_))))) - (_import-submodule90397_ - (lambda (_hd90661_ _K90662_ _rest90663_ _r90664_) - (let* ((_e9066590672_ _hd90661_) - (_E9066790676_ + _r90694_))))) + (_import-submodule90394_ + (lambda (_hd90658_ _K90659_ _rest90660_ _r90661_) + (let* ((_e9066290669_ _hd90658_) + (_E9066490673_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9066590672_))) - (_E9066690690_ + _e9066290669_))) + (_E9066390687_ (lambda () - (if (gx#stx-pair? _e9066590672_) - (let ((_e9066890680_ - (gx#syntax-e _e9066590672_))) - (let ((_hd9066990683_ - (##car _e9066890680_)) - (_tl9067090685_ - (##cdr _e9066890680_))) - (let ((_spath90688_ _tl9067090685_)) + (if (gx#stx-pair? _e9066290669_) + (let ((_e9066590677_ + (gx#syntax-e _e9066290669_))) + (let ((_hd9066690680_ + (##car _e9066590677_)) + (_tl9066790682_ + (##cdr _e9066590677_))) + (let ((_spath90685_ _tl9066790682_)) (if '#t - (_import190396_ - (_import-spec-source90400_ - _spath90688_) - _K90662_ - _rest90663_ - _r90664_) - (_E9066790676_))))) - (_E9066790676_))))) - (_E9066690690_)))) - (_import-runtime90398_ - (lambda (_hd90628_ _K90629_ _rest90630_ _r90631_) - (let* ((_e9063290639_ _hd90628_) - (_E9063490643_ + (_import190393_ + (_import-spec-source90397_ + _spath90685_) + _K90659_ + _rest90660_ + _r90661_) + (_E9066490673_))))) + (_E9066490673_))))) + (_E9066390687_)))) + (_import-runtime90395_ + (lambda (_hd90625_ _K90626_ _rest90627_ _r90628_) + (let* ((_e9062990636_ _hd90625_) + (_E9063190640_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9063290639_))) - (_E9063390657_ + _e9062990636_))) + (_E9063090654_ (lambda () - (if (gx#stx-pair? _e9063290639_) - (let ((_e9063590647_ - (gx#syntax-e _e9063290639_))) - (let ((_hd9063690650_ - (##car _e9063590647_)) - (_tl9063790652_ - (##cdr _e9063590647_))) - (let ((_spath90655_ _tl9063790652_)) + (if (gx#stx-pair? _e9062990636_) + (let ((_e9063290644_ + (gx#syntax-e _e9062990636_))) + (let ((_hd9063390647_ + (##car _e9063290644_)) + (_tl9063490649_ + (##cdr _e9063290644_))) + (let ((_spath90652_ _tl9063490649_)) (if '#t - (_K90629_ - _rest90630_ - (cons (_import-spec-source90400_ - _spath90655_) - _r90631_)) - (_E9063490643_))))) - (_E9063490643_))))) - (_E9063390657_)))) - (_import-spec90399_ - (lambda (_hd90467_ _K90468_ _rest90469_ _r90470_) - (let* ((_e9047190488_ _hd90467_) - (_E9048090492_ + (_K90626_ + _rest90627_ + (cons (_import-spec-source90397_ + _spath90652_) + _r90628_)) + (_E9063190640_))))) + (_E9063190640_))))) + (_E9063090654_)))) + (_import-spec90396_ + (lambda (_hd90464_ _K90465_ _rest90466_ _r90467_) + (let* ((_e9046890485_ _hd90464_) + (_E9047790489_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9047190488_))) - (_E9047390602_ + _e9046890485_))) + (_E9047090599_ (lambda () - (if (gx#stx-pair? _e9047190488_) - (let ((_e9048190496_ - (gx#syntax-e _e9047190488_))) - (let ((_hd9048290499_ - (##car _e9048190496_)) - (_tl9048390501_ - (##cdr _e9048190496_))) - (if (gx#stx-pair? _tl9048390501_) - (let ((_e9048490504_ - (gx#syntax-e _tl9048390501_))) - (let ((_hd9048590507_ - (##car _e9048490504_)) - (_tl9048690509_ - (##cdr _e9048490504_))) - (let* ((_path90512_ - _hd9048590507_) - (_specs90514_ - _tl9048690509_)) + (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 '#t - (let ((_src-ctx90516_ - (_import-spec-source90400_ - _path90512_)) - (_exports90517_ + (let ((_src-ctx90513_ + (_import-spec-source90397_ + _path90509_)) + (_exports90514_ (make-hash-table)) - (_specs90518_ + (_specs90515_ (gx#syntax->list - _specs90514_))) + _specs90511_))) (for-each - (lambda (_out90520_) + (lambda (_out90517_) (hash-put! - _exports90517_ + _exports90514_ (cons (##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _out90520_ + _out90517_ '3 gx#module-export::t '#f) (##unchecked-structure-ref - _out90520_ + _out90517_ '4 gx#module-export::t '#f)) - _out90520_)) + _out90517_)) (##unchecked-structure-ref - _src-ctx90516_ + _src-ctx90513_ '9 gx#module-context::t '#f)) - (_K90468_ - _rest90469_ - (foldl1 (lambda (_spec90522_ _r90523_) - (let* ((_e9052490540_ _spec90522_) - (_E9052690544_ + (_K90465_ + _rest90466_ + (foldl1 (lambda (_spec90519_ _r90520_) + (let* ((_e9052190537_ _spec90519_) + (_E9052390541_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9052490540_))) - (_E9052590598_ + _e9052190537_))) + (_E9052290595_ (lambda () - (if (gx#stx-pair? _e9052490540_) - (let ((_e9052790548_ - (gx#syntax-e _e9052490540_))) - (let ((_hd9052890551_ - (##car _e9052790548_)) - (_tl9052990553_ - (##cdr _e9052790548_))) - (let ((_phi90556_ _hd9052890551_)) - (if (gx#stx-pair? _tl9052990553_) - (let ((_e9053090558_ + (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_ (gx#syntax-e - _tl9052990553_))) - (let ((_hd9053190561_ - (##car _e9053090558_)) - (_tl9053290563_ - (##cdr _e9053090558_))) - (let ((_name90566_ - _hd9053190561_)) + _tl9052690550_))) + (let ((_hd9052890558_ + (##car _e9052790555_)) + (_tl9052990560_ + (##cdr _e9052790555_))) + (let ((_name90563_ + _hd9052890558_)) (if (gx#stx-pair? - _tl9053290563_) - (let ((_e9053390568_ + _tl9052990560_) + (let ((_e9053090565_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl9053290563_))) - (let ((_hd9053490571_ (##car _e9053390568_)) - (_tl9053590573_ (##cdr _e9053390568_))) - (let ((_src-phi90576_ _hd9053490571_)) - (if (gx#stx-pair? _tl9053590573_) - (let ((_e9053690578_ - (gx#syntax-e _tl9053590573_))) - (let ((_hd9053790581_ (##car _e9053690578_)) - (_tl9053890583_ (##cdr _e9053690578_))) - (let ((_src-name90586_ _hd9053790581_)) - (if (gx#stx-null? _tl9053890583_) - (if (and (gx#stx-fixnum? _src-phi90576_) + (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#identifier? - _src-name90586_) - (gx#stx-fixnum? _phi90556_) - (gx#identifier? _name90566_)) - (let ((_src-phi90588_ - (gx#stx-e _src-phi90576_)) - (_src-name90589_ + _src-name90583_) + (gx#stx-fixnum? _phi90553_) + (gx#identifier? _name90563_)) + (let ((_src-phi90585_ + (gx#stx-e _src-phi90573_)) + (_src-name90586_ (gx#core-identifier-key - _src-name90586_)) - (_phi90590_ - (gx#stx-e _phi90556_)) - (_name90591_ + _src-name90583_)) + (_phi90587_ + (gx#stx-e _phi90553_)) + (_name90588_ (gx#core-identifier-key - _name90566_))) - (let ((_$e90593_ + _name90563_))) + (let ((_$e90590_ (hash-get - _exports90517_ - (cons _src-phi90588_ - _src-name90589_)))) - (if _$e90593_ - ((lambda (_out90596_) + _exports90514_ + (cons _src-phi90585_ + _src-name90586_)))) + (if _$e90590_ + ((lambda (_out90593_) (cons (gx#core-module-export->import__% - _out90596_ - _name90591_ - (fx- _phi90590_ + _out90593_ + _name90588_ + (fx- _phi90587_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _src-phi90588_)) - _r90523_)) + _src-phi90585_)) + _r90520_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e90593_) + _$e90590_) (gx#raise-syntax-error '#f '"Bad syntax; no matching export" - _stx90392_ - _hd90467_)))) - (_E9052690544_)) - (_E9052690544_))))) - (_E9052690544_))))) - (_E9052690544_))))) + _stx90389_ + _hd90464_)))) + (_E9052390541_)) + (_E9052390541_))))) + (_E9052390541_))))) + (_E9052390541_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9052690544_))))) - (_E9052690544_))))) - (_E9052590598_))) - _r90470_ - _specs90518_))) + (_E9052390541_))))) + (_E9052390541_))))) + (_E9052290595_))) + _r90467_ + _specs90515_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9048090492_))))) - (_E9048090492_)))) - (_E9048090492_)))) - (_E9047290624_ + (_E9047790489_))))) + (_E9047790489_)))) + (_E9047790489_)))) + (_E9046990621_ (lambda () - (if (gx#stx-pair? _e9047190488_) - (let ((_e9047490606_ - (gx#syntax-e _e9047190488_))) - (let ((_hd9047590609_ - (##car _e9047490606_)) - (_tl9047690611_ - (##cdr _e9047490606_))) - (if (gx#stx-pair? _tl9047690611_) - (let ((_e9047790614_ - (gx#syntax-e _tl9047690611_))) - (let ((_hd9047890617_ - (##car _e9047790614_)) - (_tl9047990619_ - (##cdr _e9047790614_))) - (let ((_path90622_ - _hd9047890617_)) + (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-null? - _tl9047990619_) + _tl9047690616_) (if '#t - (_K90468_ - _rest90469_ - (cons (_import-spec-source90400_ - _path90622_) - _r90470_)) - (_E9047390602_)) - (_E9047390602_))))) - (_E9047390602_)))) - (_E9047390602_))))) - (_E9047290624_)))) - (_import-spec-source90400_ - (lambda (_spath90465_) - (gx#core-import-nested-module _spath90465_ _stx90392_))) - (_import!90401_ - (lambda (_rbody90414_) - (letrec* ((_current-ctx90416_ + (_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_ (gx#current-expander-context)) - (_deps90417_ (make-hash-table-eq)) - (_bind!90418_ - (lambda (_hd90463_) + (_deps90414_ (make-hash-table-eq)) + (_bind!90415_ + (lambda (_hd90460_) (gx#core-bind-import!__1 - _hd90463_ - _current-ctx90416_)))) - (let _lp90420_ ((_rest90422_ _rbody90414_) - (_body90423_ '())) - (let* ((_rest9042490432_ _rest90422_) - (_else9042690442_ + _hd90460_ + _current-ctx90413_)))) + (let _lp90417_ ((_rest90419_ _rbody90411_) + (_body90420_ '())) + (let* ((_rest9042190429_ _rest90419_) + (_else9042390439_ (lambda () (if (##structure-instance-of? - _current-ctx90416_ + _current-ctx90413_ 'gx#module-context::t) (##unchecked-structure-set! - _current-ctx90416_ + _current-ctx90413_ (foldl1 cons (##unchecked-structure-ref - _current-ctx90416_ + _current-ctx90413_ '8 gx#module-context::t '#f) - _body90423_) + _body90420_) '8 gx#module-context::t '#f) '#!void) (hash-for-each - (lambda (_ctx90440_ _g93270_) - (gx#eval-module _ctx90440_)) - _deps90417_) - _body90423_)) - (_K9042890451_ - (lambda (_rest90445_ _hd90446_) + (lambda (_ctx90437_ _g93267_) + (gx#eval-module _ctx90437_)) + _deps90414_) + _body90420_)) + (_K9042590448_ + (lambda (_rest90442_ _hd90443_) (if (##structure-direct-instance-of? - _hd90446_ + _hd90443_ 'gx#module-import::t) (begin - (_bind!90418_ _hd90446_) + (_bind!90415_ _hd90443_) (if (and (fxpositive? (##unchecked-structure-ref - _hd90446_ + _hd90443_ '3 gx#module-import::t '#f)) (fxzero? (##unchecked-structure-ref (##unchecked-structure-ref - _hd90446_ + _hd90443_ '1 gx#module-import::t '#f) @@ -3029,10 +3029,10 @@ gx#module-export::t '#f))) (hash-put! - _deps90417_ + _deps90414_ (##unchecked-structure-ref (##unchecked-structure-ref - _hd90446_ + _hd90443_ '1 gx#module-import::t '#f) @@ -3042,155 +3042,155 @@ '#t) '#!void)) (if (##structure-direct-instance-of? - _hd90446_ + _hd90443_ 'gx#import-set::t) (begin (for-each - _bind!90418_ + _bind!90415_ (##unchecked-structure-ref - _hd90446_ + _hd90443_ '3 gx#import-set::t '#f)) (if (fxpositive? (##unchecked-structure-ref - _hd90446_ + _hd90443_ '2 gx#import-set::t '#f)) (hash-put! - _deps90417_ + _deps90414_ (##unchecked-structure-ref - _hd90446_ + _hd90443_ '1 gx#import-set::t '#f) '#t) '#!void)) - (let ((_$e90448_ + (let ((_$e90445_ (##structure-instance-of? - _hd90446_ + _hd90443_ 'gx#module-context::t))) - (if _$e90448_ - _$e90448_ + (if _$e90445_ + _$e90445_ (gx#raise-syntax-error '#f '"Unexpected import" - _stx90392_ - _hd90446_))))) - (_lp90420_ - _rest90445_ - (cons _hd90446_ _body90423_))))) - (if (##pair? _rest9042490432_) - (let ((_hd9042990454_ (##car _rest9042490432_)) - (_tl9043090456_ (##cdr _rest9042490432_))) - (let* ((_hd90459_ _hd9042990454_) - (_rest90461_ _tl9043090456_)) - (_K9042890451_ _rest90461_ _hd90459_))) - (_else9042690442_))))))) - (_expanded-import?90402_ - (lambda (_e90406_) - (let ((_$e90408_ + _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_ (##structure-direct-instance-of? - _e90406_ + _e90403_ 'gx#import-set::t))) - (if _$e90408_ - _$e90408_ - (let ((_$e90411_ + (if _$e90405_ + _$e90405_ + (let ((_$e90408_ (##structure-direct-instance-of? - _e90406_ + _e90403_ 'gx#module-import::t))) - (if _$e90411_ - _$e90411_ + (if _$e90408_ + _$e90408_ (##structure-instance-of? - _e90406_ + _e90403_ 'gx#module-context::t)))))))) - (let ((_rbody90404_ + (let ((_rbody90401_ (gx#core-expand-import/export - _stx90392_ - _expanded-import?90402_ + _stx90389_ + _expanded-import?90399_ 'apply-import-expander gx#current-import-expander-phi - _expand190395_))) - (if _internal-expand?90393_ - (reverse _rbody90404_) + _expand190392_))) + (if _internal-expand?90390_ + (reverse _rbody90401_) (gx#core-quote-syntax__1 - (gx#core-cons '%#import (_import!90401_ _rbody90404_)) - (gx#stx-source _stx90392_))))))) + (gx#core-cons '%#import (_import!90398_ _rbody90401_)) + (gx#stx-source _stx90389_))))))) (define gx#core-expand-import%__0 - (lambda (_stx90718_) - (let ((_internal-expand?90720_ '#f)) - (gx#core-expand-import%__% _stx90718_ _internal-expand?90720_)))) + (lambda (_stx90715_) + (let ((_internal-expand?90717_ '#f)) + (gx#core-expand-import%__% _stx90715_ _internal-expand?90717_)))) (define gx#core-expand-import% - (lambda _g93272_ - (let ((_g93271_ (##length _g93272_))) - (cond ((##fx= _g93271_ 1) - (apply (lambda (_stx90718_) - (gx#core-expand-import%__0 _stx90718_)) - _g93272_)) - ((##fx= _g93271_ 2) - (apply (lambda (_stx90722_ _internal-expand?90723_) + (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_) (gx#core-expand-import%__% - _stx90722_ - _internal-expand?90723_)) - _g93272_)) + _stx90719_ + _internal-expand?90720_)) + _g93269_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-import% - _g93272_)))))) + _g93269_)))))) (define gx#core-import-nested-module - (lambda (_spath90319_ _where90320_) - (let* ((_e9032190328_ _spath90319_) - (_E9032390332_ + (lambda (_spath90316_ _where90317_) + (let* ((_e9031890325_ _spath90316_) + (_E9032090329_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9032190328_))) - (_E9032290387_ + _e9031890325_))) + (_E9031990384_ (lambda () - (if (gx#stx-pair? _e9032190328_) - (let ((_e9032490336_ (gx#syntax-e _e9032190328_))) - (let ((_hd9032590339_ (##car _e9032490336_)) - (_tl9032690341_ (##cdr _e9032490336_))) - (let* ((_origin90344_ _hd9032590339_) - (_sub90346_ _tl9032690341_)) + (if (gx#stx-pair? _e9031890325_) + (let ((_e9032190333_ (gx#syntax-e _e9031890325_))) + (let ((_hd9032290336_ (##car _e9032190333_)) + (_tl9032390338_ (##cdr _e9032190333_))) + (let* ((_origin90341_ _hd9032290336_) + (_sub90343_ _tl9032390338_)) (if '#t - (let ((_origin-ctx90348_ - (if (gx#stx-false? _origin90344_) + (let ((_origin-ctx90345_ + (if (gx#stx-false? _origin90341_) (gx#current-expander-context) (gx#import-module__0 - _origin90344_)))) - (let _lp90350_ ((_rest90352_ _sub90346_) - (_ctx90353_ - _origin-ctx90348_)) - (let* ((_e9035490361_ _rest90352_) - (_E9035690365_ - (lambda () _ctx90353_)) - (_E9035590383_ + _origin90341_)))) + (let _lp90347_ ((_rest90349_ _sub90343_) + (_ctx90350_ + _origin-ctx90345_)) + (let* ((_e9035190358_ _rest90349_) + (_E9035390362_ + (lambda () _ctx90350_)) + (_E9035290380_ (lambda () - (if (gx#stx-pair? _e9035490361_) - (let ((_e9035790369_ + (if (gx#stx-pair? _e9035190358_) + (let ((_e9035490366_ (gx#syntax-e - _e9035490361_))) - (let ((_hd9035890372_ - (##car _e9035790369_)) - (_tl9035990374_ - (##cdr _e9035790369_))) - (let* ((_id90377_ - _hd9035890372_) - (_rest90379_ - _tl9035990374_)) + _e9035190358_))) + (let ((_hd9035590369_ + (##car _e9035490366_)) + (_tl9035690371_ + (##cdr _e9035490366_))) + (let* ((_id90374_ + _hd9035590369_) + (_rest90376_ + _tl9035690371_)) (if '#t - (let ((_bind90381_ + (let ((_bind90378_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#resolve-identifier__% _id90377_ '0 _ctx90353_))) + (gx#resolve-identifier__% _id90374_ '0 _ctx90350_))) (if (and (##structure-direct-instance-of? - _bind90381_ + _bind90378_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _bind90381_ + _bind90378_ '4 gx#syntax-binding::t '#f) @@ -3199,821 +3199,821 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _where90320_ - _spath90319_ - _id90377_)) - (_lp90350_ - _rest90379_ + _where90317_ + _spath90316_ + _id90374_)) + (_lp90347_ + _rest90376_ (##unchecked-structure-ref - _bind90381_ + _bind90378_ '4 gx#syntax-binding::t '#f))) - (_E9035690365_))))) + (_E9035390362_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9035690365_))))) - (_E9035590383_)))) - (_E9032390332_))))) - (_E9032390332_))))) - (_E9032290387_)))) + (_E9035390362_))))) + (_E9035290380_)))) + (_E9032090329_))))) + (_E9032090329_))))) + (_E9031990384_)))) (define gx#core-expand-import-source - (lambda (_hd90317_) + (lambda (_hd90314_) (gx#core-expand-import%__% - (cons 'import-internal% (cons _hd90317_ '())) + (cons 'import-internal% (cons _hd90314_ '())) '#t))) (define gx#core-expand-export%__% - (lambda (_stx89825_ _internal-expand?89826_) - (letrec* ((_make-export__9320193202_ - (lambda (_bind90265_ _phi90266_ _ctx90267_ _name90268_) - (let* ((_key90270_ + (lambda (_stx89822_ _internal-expand?89823_) + (letrec* ((_make-export__9319893199_ + (lambda (_bind90262_ _phi90263_ _ctx90264_ _name90265_) + (let* ((_key90267_ (##unchecked-structure-ref - _bind90265_ + _bind90262_ '2 gx#binding::t '#f)) - (_export-key90272_ - (if _name90268_ - (gx#core-identifier-key _name90268_) - _key90270_))) + (_export-key90269_ + (if _name90265_ + (gx#core-identifier-key _name90265_) + _key90267_))) (##structure gx#module-export::t - _ctx90267_ - _key90270_ - _phi90266_ - _export-key90272_ - (let ((_$e90275_ + _ctx90264_ + _key90267_ + _phi90263_ + _export-key90269_ + (let ((_$e90272_ (##structure-instance-of? - _bind90265_ + _bind90262_ 'gx#extern-binding::t))) - (if _$e90275_ - _$e90275_ + (if _$e90272_ + _$e90272_ (##structure-direct-instance-of? - _bind90265_ + _bind90262_ 'gx#import-binding::t))))))) - (_make-export__0__9320393206_ - (lambda (_bind90281_) - (let* ((_phi90283_ (gx#current-export-expander-phi)) - (_ctx90285_ (gx#current-expander-context)) - (_name90287_ '#f)) - (_make-export__9320193202_ - _bind90281_ - _phi90283_ - _ctx90285_ - _name90287_)))) - (_make-export__1__9320493207_ - (lambda (_bind90289_ _phi90290_) - (let* ((_ctx90292_ (gx#current-expander-context)) - (_name90294_ '#f)) - (_make-export__9320193202_ - _bind90289_ - _phi90290_ - _ctx90292_ - _name90294_)))) - (_make-export__2__9320593208_ - (lambda (_bind90296_ _phi90297_ _ctx90298_) - (let ((_name90300_ '#f)) - (_make-export__9320193202_ - _bind90296_ - _phi90297_ - _ctx90298_ - _name90300_)))) - (_make-export89828_ - (lambda _g93274_ - (let ((_g93273_ (##length _g93274_))) - (cond ((##fx= _g93273_ 1) - (apply (lambda (_bind90281_) - (_make-export__0__9320393206_ - _bind90281_)) - _g93274_)) - ((##fx= _g93273_ 2) - (apply (lambda (_bind90289_ _phi90290_) - (_make-export__1__9320493207_ - _bind90289_ - _phi90290_)) - _g93274_)) - ((##fx= _g93273_ 3) - (apply (lambda (_bind90296_ - _phi90297_ - _ctx90298_) - (_make-export__2__9320593208_ - _bind90296_ - _phi90297_ - _ctx90298_)) - _g93274_)) - ((##fx= _g93273_ 4) - (apply (lambda (_bind90302_ - _phi90303_ - _ctx90304_ - _name90305_) - (_make-export__9320193202_ - _bind90302_ - _phi90303_ - _ctx90304_ - _name90305_)) - _g93274_)) + (_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_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g93274_)))))) - (_expand189829_ - (lambda (_hd89978_ _K89979_ _rest89980_ _r89981_) - (let* ((_e8998290014_ _hd89978_) - (_E9000990018_ + _g93271_)))))) + (_expand189826_ + (lambda (_hd89975_ _K89976_ _rest89977_ _r89978_) + (let* ((_e8997990011_ _hd89975_) + (_E9000690015_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _stx89825_ - _hd89978_))) - (_E8999990097_ + _stx89822_ + _hd89975_))) + (_E8999690094_ (lambda () - (if (gx#stx-pair? _e8998290014_) - (let ((_e9001090022_ - (gx#syntax-e _e8998290014_))) - (let ((_hd9001190025_ - (##car _e9001090022_)) - (_tl9001290027_ - (##cdr _e9001090022_))) - (if (eq? (gx#stx-e _hd9001190025_) + (if (gx#stx-pair? _e8997990011_) + (let ((_e9000790019_ + (gx#syntax-e _e8997990011_))) + (let ((_hd9000890022_ + (##car _e9000790019_)) + (_tl9000990024_ + (##cdr _e9000790019_))) + (if (eq? (gx#stx-e _hd9000890022_) 'import:) - (let ((_in90030_ _tl9001290027_)) - (if (gx#stx-list? _in90030_) - (let _lp90032_ ((_in-rest90034_ + (let ((_in90027_ _tl9000990024_)) + (if (gx#stx-list? _in90027_) + (let _lp90029_ ((_in-rest90031_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in90030_) - (_r90035_ _r89981_)) + _in90027_) + (_r90032_ _r89978_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_e9003690043_ - _in-rest90034_) - (_E9003890047_ + (let* ((_e9003390040_ + _in-rest90031_) + (_E9003590044_ (lambda () - (_K89979_ - _rest89980_ - _r90035_))) - (_E9003790093_ + (_K89976_ + _rest89977_ + _r90032_))) + (_E9003490090_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e9003690043_) - (let ((_e9003990051_ (gx#syntax-e _e9003690043_))) - (let ((_hd9004090054_ (##car _e9003990051_)) - (_tl9004190056_ (##cdr _e9003990051_))) - (let* ((_hd90059_ _hd9004090054_) - (_in-rest90061_ _tl9004190056_)) + _e9003390040_) + (let ((_e9003690048_ (gx#syntax-e _e9003390040_))) + (let ((_hd9003790051_ (##car _e9003690048_)) + (_tl9003890053_ (##cdr _e9003690048_))) + (let* ((_hd90056_ _hd9003790051_) + (_in-rest90058_ _tl9003890053_)) (if '#t - (let ((_src90091_ - (if (gx#core-bound-module? _hd90059_) - (gx#syntax-local-e__0 _hd90059_) + (let ((_src90088_ + (if (gx#core-bound-module? _hd90056_) + (gx#syntax-local-e__0 _hd90056_) (if (gx#core-library-module-path? - _hd90059_) + _hd90056_) (gx#import-module__0 (gx#core-resolve-library-module-path - _hd90059_)) + _hd90056_)) (if (gx#core-library-relative-module-path? - _hd90059_) + _hd90056_) (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _hd90059_)) + _hd90056_)) (if (gx#stx-string? - _hd90059_) + _hd90056_) (gx#import-module__0 (gx#core-resolve-module-path__% - _hd90059_ + _hd90056_ (gx#stx-source - _stx89825_))) - (let* ((_e9006290069_ + _stx89822_))) + (let* ((_e9005990066_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd90059_) - (_E9006490073_ + _hd90056_) + (_E9006190070_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal re-export" - _stx89825_ - _hd90059_))) - (_E9006390087_ + _stx89822_ + _hd90056_))) + (_E9006090084_ (lambda () - (if (gx#stx-pair? _e9006290069_) - (let ((_e9006590077_ - (gx#syntax-e _e9006290069_))) - (let ((_hd9006690080_ (##car _e9006590077_)) - (_tl9006790082_ (##cdr _e9006590077_))) - (if (eq? (gx#stx-e _hd9006690080_) 'in:) - (let ((_spath90085_ _tl9006790082_)) + (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 '#t (gx#core-import-nested-module - _spath90085_ - _stx89825_) - (_E9006490073_))) - (_E9006490073_)))) - (_E9006490073_))))) - (_E9006390087_)))))))) + _spath90082_ + _stx89822_) + (_E9006190070_))) + (_E9006190070_)))) + (_E9006190070_))))) + (_E9006090084_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp90032_ - _in-rest90061_ - (_export-imports89830_ - _src90091_ - _r90035_))) - (_E9003890047_))))) - (_E9003890047_))))) + (_lp90029_ + _in-rest90058_ + (_export-imports89827_ + _src90088_ + _r90032_))) + (_E9003590044_))))) + (_E9003590044_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9003790093_))) - (_E9000990018_))) - (_E9000990018_)))) - (_E9000990018_)))) - (_E8998690136_ + (_E9003490090_))) + (_E9000690015_))) + (_E9000690015_)))) + (_E9000690015_)))) + (_E8998390133_ (lambda () - (if (gx#stx-pair? _e8998290014_) - (let ((_e9000090101_ - (gx#syntax-e _e8998290014_))) - (let ((_hd9000190104_ - (##car _e9000090101_)) - (_tl9000290106_ - (##cdr _e9000090101_))) - (if (eq? (gx#stx-e _hd9000190104_) + (if (gx#stx-pair? _e8997990011_) + (let ((_e8999790098_ + (gx#syntax-e _e8997990011_))) + (let ((_hd8999890101_ + (##car _e8999790098_)) + (_tl8999990103_ + (##cdr _e8999790098_))) + (if (eq? (gx#stx-e _hd8999890101_) 'rename:) - (if (gx#stx-pair? _tl9000290106_) - (let ((_e9000390109_ + (if (gx#stx-pair? _tl8999990103_) + (let ((_e9000090106_ (gx#syntax-e - _tl9000290106_))) - (let ((_hd9000490112_ - (##car _e9000390109_)) - (_tl9000590114_ - (##cdr _e9000390109_))) - (let ((_id90117_ - _hd9000490112_)) + _tl8999990103_))) + (let ((_hd9000190109_ + (##car _e9000090106_)) + (_tl9000290111_ + (##cdr _e9000090106_))) + (let ((_id90114_ + _hd9000190109_)) (if (gx#stx-pair? - _tl9000590114_) - (let ((_e9000690119_ + _tl9000290111_) + (let ((_e9000390116_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl9000590114_))) - (let ((_hd9000790122_ (##car _e9000690119_)) - (_tl9000890124_ (##cdr _e9000690119_))) - (let ((_name90127_ _hd9000790122_)) - (if (gx#stx-null? _tl9000890124_) + _tl9000290111_))) + (let ((_hd9000490119_ (##car _e9000390116_)) + (_tl9000590121_ (##cdr _e9000390116_))) + (let ((_name90124_ _hd9000490119_)) + (if (gx#stx-null? _tl9000590121_) (if '#t - (let* ((_phi90129_ + (let* ((_phi90126_ (gx#current-export-expander-phi)) - (_$e90131_ + (_$e90128_ (gx#core-resolve-identifier__1 - _id90117_ - _phi90129_))) - (if _$e90131_ - ((lambda (_bind90134_) - (_K89979_ - _rest89980_ - (cons (_make-export__9320193202_ - _bind90134_ - _phi90129_ + _id90114_ + _phi90126_))) + (if _$e90128_ + ((lambda (_bind90131_) + (_K89976_ + _rest89977_ + (cons (_make-export__9319893199_ + _bind90131_ + _phi90126_ (gx#current-expander-context) - _name90127_) - _r89981_))) - _$e90131_) + _name90124_) + _r89978_))) + _$e90128_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx89825_ - _hd89978_ - _id90117_))) - (_E8999990097_)) - (_E8999990097_))))) - (_E8999990097_))))) + _stx89822_ + _hd89975_ + _id90114_))) + (_E8999690094_)) + (_E8999690094_))))) + (_E8999690094_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8999990097_)) - (_E8999990097_)))) - (_E8999990097_)))) - (_E8998590185_ + (_E8999690094_)) + (_E8999690094_)))) + (_E8999690094_)))) + (_E8998290182_ (lambda () - (if (gx#stx-pair? _e8998290014_) - (let ((_e8998790140_ - (gx#syntax-e _e8998290014_))) - (let ((_hd8998890143_ - (##car _e8998790140_)) - (_tl8998990145_ - (##cdr _e8998790140_))) - (if (eq? (gx#stx-e _hd8998890143_) + (if (gx#stx-pair? _e8997990011_) + (let ((_e8998490137_ + (gx#syntax-e _e8997990011_))) + (let ((_hd8998590140_ + (##car _e8998490137_)) + (_tl8998690142_ + (##cdr _e8998490137_))) + (if (eq? (gx#stx-e _hd8998590140_) 'spec:) - (if (gx#stx-pair? _tl8998990145_) - (let ((_e8999090148_ + (if (gx#stx-pair? _tl8998690142_) + (let ((_e8998790145_ (gx#syntax-e - _tl8998990145_))) - (let ((_hd8999190151_ - (##car _e8999090148_)) - (_tl8999290153_ - (##cdr _e8999090148_))) - (let ((_phi90156_ - _hd8999190151_)) + _tl8998690142_))) + (let ((_hd8998890148_ + (##car _e8998790145_)) + (_tl8998990150_ + (##cdr _e8998790145_))) + (let ((_phi90153_ + _hd8998890148_)) (if (gx#stx-pair? - _tl8999290153_) - (let ((_e8999390158_ + _tl8998990150_) + (let ((_e8999090155_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl8999290153_))) - (let ((_hd8999490161_ (##car _e8999390158_)) - (_tl8999590163_ (##cdr _e8999390158_))) - (let ((_id90166_ _hd8999490161_)) - (if (gx#stx-pair? _tl8999590163_) - (let ((_e8999690168_ (gx#syntax-e _tl8999590163_))) - (let ((_hd8999790171_ (##car _e8999690168_)) - (_tl8999890173_ (##cdr _e8999690168_))) - (let ((_name90176_ _hd8999790171_)) - (if (gx#stx-null? _tl8999890173_) - (if (and (gx#stx-fixnum? _phi90156_) - (gx#identifier? _id90166_) - (gx#identifier? _name90176_)) - (let* ((_phi90178_ - (gx#stx-e _phi90156_)) - (_$e90180_ + _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_ (gx#core-resolve-identifier__1 - _id90166_ - _phi90178_))) - (if _$e90180_ - ((lambda (_bind90183_) - (_K89979_ - _rest89980_ - (cons (_make-export__9320193202_ - _bind90183_ - _phi90178_ + _id90163_ + _phi90175_))) + (if _$e90177_ + ((lambda (_bind90180_) + (_K89976_ + _rest89977_ + (cons (_make-export__9319893199_ + _bind90180_ + _phi90175_ (gx#current-expander-context) - _name90176_) - _r89981_))) - _$e90180_) + _name90173_) + _r89978_))) + _$e90177_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx89825_ - _hd89978_ - _id90166_))) - (_E8998690136_)) - (_E8998690136_))))) - (_E8998690136_))))) - (_E8998690136_))))) + _stx89822_ + _hd89975_ + _id90163_))) + (_E8998390133_)) + (_E8998390133_))))) + (_E8998390133_))))) + (_E8998390133_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8998690136_)) - (_E8998690136_)))) - (_E8998690136_)))) - (_E8998490196_ + (_E8998390133_)) + (_E8998390133_)))) + (_E8998390133_)))) + (_E8998190193_ (lambda () - (let ((_id90189_ _e8998290014_)) - (if (gx#identifier? _id90189_) - (let ((_$e90191_ + (let ((_id90186_ _e8997990011_)) + (if (gx#identifier? _id90186_) + (let ((_$e90188_ (gx#core-resolve-identifier__1 - _id90189_ + _id90186_ (gx#current-export-expander-phi)))) - (if _$e90191_ - ((lambda (_bind90194_) - (_K89979_ - _rest89980_ - (cons (_make-export__0__9320393206_ - _bind90194_) - _r89981_))) - _$e90191_) + (if _$e90188_ + ((lambda (_bind90191_) + (_K89976_ + _rest89977_ + (cons (_make-export__0__9320093203_ + _bind90191_) + _r89978_))) + _$e90188_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx89825_ - _hd89978_))) - (_E8998590185_))))) - (_E8998390260_ + _stx89822_ + _hd89975_))) + (_E8998290182_))))) + (_E8998090257_ (lambda () - (if (eq? (gx#stx-e _e8998290014_) '#t) + (if (eq? (gx#stx-e _e8997990011_) '#t) (if '#t - (let* ((_current-ctx90200_ + (let* ((_current-ctx90197_ (gx#current-expander-context)) - (_current-phi90202_ + (_current-phi90199_ (gx#current-export-expander-phi)) - (_phi-ctx90204_ + (_phi-ctx90201_ (gx#core-context-shift - _current-ctx90200_ - _current-phi90202_)) - (_phi-bind90206_ + _current-ctx90197_ + _current-phi90199_)) + (_phi-bind90203_ (hash->list (##unchecked-structure-ref - _phi-ctx90204_ + _phi-ctx90201_ '2 gx#expander-context::t '#f)))) - (let _lp90209_ ((_bind-rest90211_ - _phi-bind90206_) - (_set90212_ '())) - (let* ((_bind-rest9021390223_ - _bind-rest90211_) - (_else9021590231_ + (let _lp90206_ ((_bind-rest90208_ + _phi-bind90203_) + (_set90209_ '())) + (let* ((_bind-rest9021090220_ + _bind-rest90208_) + (_else9021290228_ (lambda () - (_K89979_ - _rest89980_ + (_K89976_ + _rest89977_ (cons (##structure gx#export-set::t '#f - _current-phi90202_ - _set90212_) - _r89981_)))) - (_K9021790241_ - (lambda (_bind-rest90234_ - _bind90235_ - _key90236_) + _current-phi90199_ + _set90209_) + _r89978_)))) + (_K9021490238_ + (lambda (_bind-rest90231_ + _bind90232_ + _key90233_) (if (or (##structure-direct-instance-of? - _bind90235_ + _bind90232_ 'gx#import-binding::t) (gx#private-feature-binding? - _bind90235_)) - (_lp90209_ - _bind-rest90234_ - _set90212_) - (_lp90209_ - _bind-rest90234_ - (cons (_make-export__2__9320593208_ + _bind90232_)) + (_lp90206_ + _bind-rest90231_ + _set90209_) + (_lp90206_ + _bind-rest90231_ + (cons (_make-export__2__9320293205_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind90235_ - _current-phi90202_ - _current-ctx90200_) - _set90212_)))))) + _bind90232_ + _current-phi90199_ + _current-ctx90197_) + _set90209_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _bind-rest9021390223_) - (let ((_hd9021890244_ - (##car _bind-rest9021390223_)) - (_tl9021990246_ - (##cdr _bind-rest9021390223_))) - (if (##pair? _hd9021890244_) - (let ((_hd9022090249_ - (##car _hd9021890244_)) - (_tl9022190251_ - (##cdr _hd9021890244_))) - (let* ((_key90254_ + (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_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd9022090249_) - (_bind90256_ _tl9022190251_) - (_bind-rest90258_ _tl9021990246_)) - (_K9021790241_ _bind-rest90258_ _bind90256_ _key90254_))) - (_else9021590231_))) + _hd9021790246_) + (_bind90253_ _tl9021890248_) + (_bind-rest90255_ _tl9021690243_)) + (_K9021490238_ _bind-rest90255_ _bind90253_ _key90251_))) + (_else9021290228_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else9021590231_))))) - (_E8998490196_)) - (_E8998490196_))))) - (_E8998390260_)))) - (_export-imports89830_ - (lambda (_src89854_ _r89855_) - (letrec* ((_current-ctx89857_ + (_else9021290228_))))) + (_E8998190193_)) + (_E8998190193_))))) + (_E8998090257_)))) + (_export-imports89827_ + (lambda (_src89851_ _r89852_) + (letrec* ((_current-ctx89854_ (gx#current-expander-context)) - (_current-phi89858_ + (_current-phi89855_ (gx#current-export-expander-phi)) - (_import->export89859_ - (lambda (_in89940_) - (let* ((_in8994189949_ _in89940_) - (_E8994389953_ + (_import->export89856_ + (lambda (_in89937_) + (let* ((_in8993889946_ _in89937_) + (_E8994089950_ (lambda () (error '"No clause matching" - _in8994189949_))) - (_K8994489960_ - (lambda (_phi89956_ - _key89957_ - _out89958_) + _in8993889946_))) + (_K8994189957_ + (lambda (_phi89953_ + _key89954_ + _out89955_) (##structure gx#module-export::t - _current-ctx89857_ - _key89957_ - _phi89956_ - _key89957_ + _current-ctx89854_ + _key89954_ + _phi89953_ + _key89954_ '#t)))) (if (##structure-direct-instance-of? - _in8994189949_ + _in8993889946_ 'gx#module-import::t) - (let* ((_e8994589963_ + (let* ((_e8994289960_ (##unchecked-structure-ref - _in8994189949_ + _in8993889946_ '1 gx#module-import::t '#f)) - (_out89966_ _e8994589963_) - (_e8994689968_ + (_out89963_ _e8994289960_) + (_e8994389965_ (##unchecked-structure-ref - _in8994189949_ + _in8993889946_ '2 gx#module-import::t '#f)) - (_key89971_ _e8994689968_) - (_e8994789973_ + (_key89968_ _e8994389965_) + (_e8994489970_ (##unchecked-structure-ref - _in8994189949_ + _in8993889946_ '3 gx#module-import::t '#f)) - (_phi89976_ _e8994789973_)) - (_K8994489960_ - _phi89976_ - _key89971_ - _out89966_)) - (_E8994389953_))))) - (_fold-e89860_ - (lambda (_in89862_ _r89863_) - (let* ((_in8986489878_ _in89862_) - (_else8986789886_ - (lambda () _r89863_))) - (let ((_K8987389922_ - (lambda (_phi89918_ - _key89919_ - _out89920_) - (if (and (fx= _phi89918_ - _current-phi89858_) - (eq? _src89854_ + (_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_ (##unchecked-structure-ref - _out89920_ + _out89917_ '1 gx#module-export::t '#f))) - (cons (_import->export89859_ - _in89862_) - _r89863_) - _r89863_))) - (_K8986989897_ - (lambda (_imports89890_ - _phi89891_ - _ctx89892_) - (if (and (fx= _phi89891_ - _current-phi89858_) - (eq? _src89854_ - _ctx89892_)) - (foldl1 (lambda (_in89894_ + (cons (_import->export89856_ + _in89859_) + _r89860_) + _r89860_))) + (_K8986689894_ + (lambda (_imports89887_ + _phi89888_ + _ctx89889_) + (if (and (fx= _phi89888_ + _current-phi89855_) + (eq? _src89851_ + _ctx89889_)) + (foldl1 (lambda (_in89891_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r89895_) - (cons (_import->export89859_ _in89894_) _r89895_)) - _r89863_ - _imports89890_) + _r89892_) + (cons (_import->export89856_ _in89891_) _r89892_)) + _r89860_ + _imports89887_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r89863_)))) - (let ((_try-match8986689915_ + _r89860_)))) + (let ((_try-match8986389912_ (lambda () (if (##structure-direct-instance-of? - _in8986489878_ + _in8986189875_ 'gx#import-set::t) - (let* ((_e8987089900_ + (let* ((_e8986789897_ (##unchecked-structure-ref - _in8986489878_ + _in8986189875_ '1 gx#import-set::t '#f)) - (_e8987189905_ + (_e8986889902_ (##unchecked-structure-ref - _in8986489878_ + _in8986189875_ '2 gx#import-set::t '#f)) - (_e8987289910_ + (_e8986989907_ (##unchecked-structure-ref - _in8986489878_ + _in8986189875_ '3 gx#import-set::t '#f))) - (let ((_ctx89903_ - _e8987089900_) - (_phi89908_ - _e8987189905_) - (_imports89913_ - _e8987289910_)) - (_K8986989897_ - _imports89913_ - _phi89908_ - _ctx89903_))) - (_else8986789886_))))) + (let ((_ctx89900_ + _e8986789897_) + (_phi89905_ + _e8986889902_) + (_imports89910_ + _e8986989907_)) + (_K8986689894_ + _imports89910_ + _phi89905_ + _ctx89900_))) + (_else8986489883_))))) (if (##structure-direct-instance-of? - _in8986489878_ + _in8986189875_ 'gx#module-import::t) - (let* ((_e8987489925_ + (let* ((_e8987189922_ (##unchecked-structure-ref - _in8986489878_ + _in8986189875_ '1 gx#module-import::t '#f)) - (_e8987589930_ + (_e8987289927_ (##unchecked-structure-ref - _in8986489878_ + _in8986189875_ '2 gx#module-import::t '#f)) - (_e8987689935_ + (_e8987389932_ (##unchecked-structure-ref - _in8986489878_ + _in8986189875_ '3 gx#module-import::t '#f))) - (let ((_out89928_ _e8987489925_) - (_key89933_ _e8987589930_) - (_phi89938_ _e8987689935_)) - (_K8987389922_ - _phi89938_ - _key89933_ - _out89928_))) - (_try-match8986689915_)))))))) + (let ((_out89925_ _e8987189922_) + (_key89930_ _e8987289927_) + (_phi89935_ _e8987389932_)) + (_K8987089919_ + _phi89935_ + _key89930_ + _out89925_))) + (_try-match8986389912_)))))))) (cons (##structure gx#export-set::t - _src89854_ - _current-phi89858_ - (foldl1 _fold-e89860_ + _src89851_ + _current-phi89855_ + (foldl1 _fold-e89857_ '() (##unchecked-structure-ref - _current-ctx89857_ + _current-ctx89854_ '8 gx#module-context::t '#f))) - _r89855_)))) - (_export!89831_ - (lambda (_rbody89844_) - (letrec* ((_current-ctx89846_ + _r89852_)))) + (_export!89828_ + (lambda (_rbody89841_) + (letrec* ((_current-ctx89843_ (gx#current-expander-context)) - (_fold-e89847_ - (lambda (_out89851_ _r89852_) + (_fold-e89844_ + (lambda (_out89848_ _r89849_) (if (##structure-direct-instance-of? - _out89851_ + _out89848_ 'gx#module-export::t) - (cons _out89851_ _r89852_) + (cons _out89848_ _r89849_) (if (##structure-direct-instance-of? - _out89851_ + _out89848_ 'gx#export-set::t) (foldl1 cons - _r89852_ + _r89849_ (##unchecked-structure-ref - _out89851_ + _out89848_ '3 gx#export-set::t '#f)) - _r89852_))))) - (let ((_body89849_ (reverse _rbody89844_))) + _r89849_))))) + (let ((_body89846_ (reverse _rbody89841_))) (##unchecked-structure-set! - _current-ctx89846_ - (foldl1 _fold-e89847_ + _current-ctx89843_ + (foldl1 _fold-e89844_ (##unchecked-structure-ref - _current-ctx89846_ + _current-ctx89843_ '9 gx#module-context::t '#f) - _body89849_) + _body89846_) '9 gx#module-context::t '#f) - _body89849_)))) - (_expanded-export?89832_ - (lambda (_e89839_) - (let ((_$e89841_ + _body89846_)))) + (_expanded-export?89829_ + (lambda (_e89836_) + (let ((_$e89838_ (##structure-direct-instance-of? - _e89839_ + _e89836_ 'gx#module-export::t))) - (if _$e89841_ - _$e89841_ + (if _$e89838_ + _$e89838_ (##structure-direct-instance-of? - _e89839_ + _e89836_ 'gx#export-set::t)))))) (if (or (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - _internal-expand?89826_) - (let ((_rbody89837_ + _internal-expand?89823_) + (let ((_rbody89834_ (gx#core-expand-import/export - _stx89825_ - _expanded-export?89832_ + _stx89822_ + _expanded-export?89829_ 'apply-export-expander gx#current-export-expander-phi - _expand189829_))) - (if _internal-expand?89826_ - (reverse _rbody89837_) + _expand189826_))) + (if _internal-expand?89823_ + (reverse _rbody89834_) (gx#core-quote-syntax__1 - (gx#core-cons '%#export (_export!89831_ _rbody89837_)) - (gx#stx-source _stx89825_)))) + (gx#core-cons '%#export (_export!89828_ _rbody89834_)) + (gx#stx-source _stx89822_)))) (if (##structure-instance-of? (gx#current-expander-context) 'gx#top-context::t) (gx#core-quote-syntax__1 (gx#core-cons '%#begin '()) - (gx#stx-source _stx89825_)) + (gx#stx-source _stx89822_)) (gx#raise-syntax-error '#f '"Illegal context" - _stx89825_)))))) + _stx89822_)))))) (define gx#core-expand-export%__0 - (lambda (_stx90310_) - (let ((_internal-expand?90312_ '#f)) - (gx#core-expand-export%__% _stx90310_ _internal-expand?90312_)))) + (lambda (_stx90307_) + (let ((_internal-expand?90309_ '#f)) + (gx#core-expand-export%__% _stx90307_ _internal-expand?90309_)))) (define gx#core-expand-export% - (lambda _g93276_ - (let ((_g93275_ (##length _g93276_))) - (cond ((##fx= _g93275_ 1) - (apply (lambda (_stx90310_) - (gx#core-expand-export%__0 _stx90310_)) - _g93276_)) - ((##fx= _g93275_ 2) - (apply (lambda (_stx90314_ _internal-expand?90315_) + (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_) (gx#core-expand-export%__% - _stx90314_ - _internal-expand?90315_)) - _g93276_)) + _stx90311_ + _internal-expand?90312_)) + _g93273_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-export% - _g93276_)))))) + _g93273_)))))) (define gx#core-expand-export-source - (lambda (_hd89822_) + (lambda (_hd89819_) (gx#core-expand-export%__% - (cons 'export-macro% (cons _hd89822_ '())) + (cons 'export-macro% (cons _hd89819_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_stx89792_) - (let* ((_e8979389800_ _stx89792_) - (_E8979589804_ + (lambda (_stx89789_) + (let* ((_e8979089797_ _stx89789_) + (_E8979289801_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8979389800_))) - (_E8979489818_ + _e8979089797_))) + (_E8979189815_ (lambda () - (if (gx#stx-pair? _e8979389800_) - (let ((_e8979689808_ (gx#syntax-e _e8979389800_))) - (let ((_hd8979789811_ (##car _e8979689808_)) - (_tl8979889813_ (##cdr _e8979689808_))) - (let ((_body89816_ _tl8979889813_)) - (if (gx#identifier-list? _body89816_) + (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_) (begin (gx#stx-for-each1 gx#core-bind-feature! - _body89816_) + _body89813_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _body89816_)) - (gx#stx-source _stx89792_))) - (_E8979589804_))))) - (_E8979589804_))))) - (_E8979489818_)))) + _body89813_)) + (gx#stx-source _stx89789_))) + (_E8979289801_))))) + (_E8979289801_))))) + (_E8979189815_)))) (define gx#core-bind-feature!__% - (lambda (_id89758_ _private?89759_ _phi89760_ _ctx89761_) + (lambda (_id89755_ _private?89756_ _phi89757_ _ctx89758_) (gx#core-bind-syntax!__% - _id89758_ - ((if _private?89759_ + _id89755_ + ((if _private?89756_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _id89758_)) - _private?89759_ - _phi89760_ - _ctx89761_))) + (gx#stx-e _id89755_)) + _private?89756_ + _phi89757_ + _ctx89758_))) (define gx#core-bind-feature!__0 - (lambda (_id89766_) - (let* ((_private?89768_ '#f) - (_phi89770_ (gx#current-expander-phi)) - (_ctx89772_ (gx#current-expander-context))) + (lambda (_id89763_) + (let* ((_private?89765_ '#f) + (_phi89767_ (gx#current-expander-phi)) + (_ctx89769_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id89766_ - _private?89768_ - _phi89770_ - _ctx89772_)))) + _id89763_ + _private?89765_ + _phi89767_ + _ctx89769_)))) (define gx#core-bind-feature!__1 - (lambda (_id89774_ _private?89775_) - (let* ((_phi89777_ (gx#current-expander-phi)) - (_ctx89779_ (gx#current-expander-context))) + (lambda (_id89771_ _private?89772_) + (let* ((_phi89774_ (gx#current-expander-phi)) + (_ctx89776_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id89774_ - _private?89775_ - _phi89777_ - _ctx89779_)))) + _id89771_ + _private?89772_ + _phi89774_ + _ctx89776_)))) (define gx#core-bind-feature!__2 - (lambda (_id89781_ _private?89782_ _phi89783_) - (let ((_ctx89785_ (gx#current-expander-context))) + (lambda (_id89778_ _private?89779_ _phi89780_) + (let ((_ctx89782_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id89781_ - _private?89782_ - _phi89783_ - _ctx89785_)))) + _id89778_ + _private?89779_ + _phi89780_ + _ctx89782_)))) (define gx#core-bind-feature! - (lambda _g93278_ - (let ((_g93277_ (##length _g93278_))) - (cond ((##fx= _g93277_ 1) - (apply (lambda (_id89766_) - (gx#core-bind-feature!__0 _id89766_)) - _g93278_)) - ((##fx= _g93277_ 2) - (apply (lambda (_id89774_ _private?89775_) - (gx#core-bind-feature!__1 _id89774_ _private?89775_)) - _g93278_)) - ((##fx= _g93277_ 3) - (apply (lambda (_id89781_ _private?89782_ _phi89783_) + (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_) (gx#core-bind-feature!__2 - _id89781_ - _private?89782_ - _phi89783_)) - _g93278_)) - ((##fx= _g93277_ 4) - (apply (lambda (_id89787_ - _private?89788_ - _phi89789_ - _ctx89790_) + _id89778_ + _private?89779_ + _phi89780_)) + _g93275_)) + ((##fx= _g93274_ 4) + (apply (lambda (_id89784_ + _private?89785_ + _phi89786_ + _ctx89787_) (gx#core-bind-feature!__% - _id89787_ - _private?89788_ - _phi89789_ - _ctx89790_)) - _g93278_)) + _id89784_ + _private?89785_ + _phi89786_ + _ctx89787_)) + _g93275_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-feature! - _g93278_)))))))) + _g93275_)))))))) diff --git a/src/bootstrap/gerbil/expander/module__1.scm b/src/bootstrap/gerbil/expander/module__1.scm index e6f80a8d..96e275ff 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]#_g93280_| + (define |gx[1]#_g93277_| (##structure gx#syntax-quote::t 'module-import::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g93282_| + (define |gx[1]#_g93279_| (##structure gx#syntax-quote::t 'make-module-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g93284_| + (define |gx[1]#_g93281_| (##structure gx#syntax-quote::t 'module-import? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93291_| + (define |gx[1]#_g93288_| (##structure gx#syntax-quote::t 'module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93294_| + (define |gx[1]#_g93291_| (##structure gx#syntax-quote::t 'module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93297_| + (define |gx[1]#_g93294_| (##structure gx#syntax-quote::t 'module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g93300_| + (define |gx[1]#_g93297_| (##structure gx#syntax-quote::t 'module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g93307_| + (define |gx[1]#_g93304_| (##structure gx#syntax-quote::t 'module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93310_| + (define |gx[1]#_g93307_| (##structure gx#syntax-quote::t 'module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93313_| + (define |gx[1]#_g93310_| (##structure gx#syntax-quote::t 'module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93316_| + (define |gx[1]#_g93313_| (##structure gx#syntax-quote::t 'module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93323_| + (define |gx[1]#_g93320_| (##structure gx#syntax-quote::t '&module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93326_| + (define |gx[1]#_g93323_| (##structure gx#syntax-quote::t '&module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93329_| + (define |gx[1]#_g93326_| (##structure gx#syntax-quote::t '&module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g93332_| + (define |gx[1]#_g93329_| (##structure gx#syntax-quote::t '&module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g93339_| + (define |gx[1]#_g93336_| (##structure gx#syntax-quote::t '&module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93342_| + (define |gx[1]#_g93339_| (##structure gx#syntax-quote::t '&module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93345_| + (define |gx[1]#_g93342_| (##structure gx#syntax-quote::t '&module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93348_| + (define |gx[1]#_g93345_| (##structure gx#syntax-quote::t '&module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93350_| + (define |gx[1]#_g93347_| (##structure gx#syntax-quote::t 'module-export::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g93352_| + (define |gx[1]#_g93349_| (##structure gx#syntax-quote::t 'make-module-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g93354_| + (define |gx[1]#_g93351_| (##structure gx#syntax-quote::t 'module-export? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93362_| + (define |gx[1]#_g93359_| (##structure gx#syntax-quote::t 'module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93365_| + (define |gx[1]#_g93362_| (##structure gx#syntax-quote::t 'module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g93368_| + (define |gx[1]#_g93365_| (##structure gx#syntax-quote::t 'module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93371_| + (define |gx[1]#_g93368_| (##structure gx#syntax-quote::t 'module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g93374_| + (define |gx[1]#_g93371_| (##structure gx#syntax-quote::t 'module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g93382_| + (define |gx[1]#_g93379_| (##structure gx#syntax-quote::t 'module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93385_| + (define |gx[1]#_g93382_| (##structure gx#syntax-quote::t 'module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93388_| + (define |gx[1]#_g93385_| (##structure gx#syntax-quote::t 'module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93391_| + (define |gx[1]#_g93388_| (##structure gx#syntax-quote::t 'module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93394_| + (define |gx[1]#_g93391_| (##structure gx#syntax-quote::t 'module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93402_| + (define |gx[1]#_g93399_| (##structure gx#syntax-quote::t '&module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93405_| + (define |gx[1]#_g93402_| (##structure gx#syntax-quote::t '&module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g93408_| + (define |gx[1]#_g93405_| (##structure gx#syntax-quote::t '&module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93411_| + (define |gx[1]#_g93408_| (##structure gx#syntax-quote::t '&module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g93414_| + (define |gx[1]#_g93411_| (##structure gx#syntax-quote::t '&module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g93422_| + (define |gx[1]#_g93419_| (##structure gx#syntax-quote::t '&module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93425_| + (define |gx[1]#_g93422_| (##structure gx#syntax-quote::t '&module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93428_| + (define |gx[1]#_g93425_| (##structure gx#syntax-quote::t '&module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93431_| + (define |gx[1]#_g93428_| (##structure gx#syntax-quote::t '&module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93434_| + (define |gx[1]#_g93431_| (##structure gx#syntax-quote::t '&module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93436_| + (define |gx[1]#_g93433_| (##structure gx#syntax-quote::t 'import-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g93438_| + (define |gx[1]#_g93435_| (##structure gx#syntax-quote::t 'make-import-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g93440_| + (define |gx[1]#_g93437_| (##structure gx#syntax-quote::t 'import-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93446_| + (define |gx[1]#_g93443_| (##structure gx#syntax-quote::t 'import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g93449_| + (define |gx[1]#_g93446_| (##structure gx#syntax-quote::t 'import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93452_| + (define |gx[1]#_g93449_| (##structure gx#syntax-quote::t 'import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g93458_| + (define |gx[1]#_g93455_| (##structure gx#syntax-quote::t 'import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93461_| + (define |gx[1]#_g93458_| (##structure gx#syntax-quote::t 'import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93464_| + (define |gx[1]#_g93461_| (##structure gx#syntax-quote::t 'import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93470_| + (define |gx[1]#_g93467_| (##structure gx#syntax-quote::t '&import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g93473_| + (define |gx[1]#_g93470_| (##structure gx#syntax-quote::t '&import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93476_| + (define |gx[1]#_g93473_| (##structure gx#syntax-quote::t '&import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g93482_| + (define |gx[1]#_g93479_| (##structure gx#syntax-quote::t '&import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93485_| + (define |gx[1]#_g93482_| (##structure gx#syntax-quote::t '&import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93488_| + (define |gx[1]#_g93485_| (##structure gx#syntax-quote::t '&import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93490_| + (define |gx[1]#_g93487_| (##structure gx#syntax-quote::t 'export-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g93492_| + (define |gx[1]#_g93489_| (##structure gx#syntax-quote::t 'make-export-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g93494_| + (define |gx[1]#_g93491_| (##structure gx#syntax-quote::t 'export-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93500_| + (define |gx[1]#_g93497_| (##structure gx#syntax-quote::t 'export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g93503_| + (define |gx[1]#_g93500_| (##structure gx#syntax-quote::t 'export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93506_| + (define |gx[1]#_g93503_| (##structure gx#syntax-quote::t 'export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g93512_| + (define |gx[1]#_g93509_| (##structure gx#syntax-quote::t 'export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93515_| + (define |gx[1]#_g93512_| (##structure gx#syntax-quote::t 'export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93518_| + (define |gx[1]#_g93515_| (##structure gx#syntax-quote::t 'export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93524_| + (define |gx[1]#_g93521_| (##structure gx#syntax-quote::t '&export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g93527_| + (define |gx[1]#_g93524_| (##structure gx#syntax-quote::t '&export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93530_| + (define |gx[1]#_g93527_| (##structure gx#syntax-quote::t '&export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g93536_| + (define |gx[1]#_g93533_| (##structure gx#syntax-quote::t '&export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93539_| + (define |gx[1]#_g93536_| (##structure gx#syntax-quote::t '&export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93542_| + (define |gx[1]#_g93539_| (##structure gx#syntax-quote::t '&export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93545_| + (define |gx[1]#_g93542_| (##structure gx#syntax-quote::t 'user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g93547_| + (define |gx[1]#_g93544_| (##structure gx#syntax-quote::t 'import-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g93549_| + (define |gx[1]#_g93546_| (##structure gx#syntax-quote::t 'make-import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g93551_| + (define |gx[1]#_g93548_| (##structure gx#syntax-quote::t 'import-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93557_| + (define |gx[1]#_g93554_| (##structure gx#syntax-quote::t 'import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g93560_| + (define |gx[1]#_g93557_| (##structure gx#syntax-quote::t 'import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93563_| + (define |gx[1]#_g93560_| (##structure gx#syntax-quote::t 'import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g93569_| + (define |gx[1]#_g93566_| (##structure gx#syntax-quote::t 'import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93572_| + (define |gx[1]#_g93569_| (##structure gx#syntax-quote::t 'import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93575_| + (define |gx[1]#_g93572_| (##structure gx#syntax-quote::t 'import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93581_| + (define |gx[1]#_g93578_| (##structure gx#syntax-quote::t '&import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g93584_| + (define |gx[1]#_g93581_| (##structure gx#syntax-quote::t '&import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93587_| + (define |gx[1]#_g93584_| (##structure gx#syntax-quote::t '&import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g93593_| + (define |gx[1]#_g93590_| (##structure gx#syntax-quote::t '&import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93596_| + (define |gx[1]#_g93593_| (##structure gx#syntax-quote::t '&import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93599_| + (define |gx[1]#_g93596_| (##structure gx#syntax-quote::t '&import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93603_| + (define |gx[1]#_g93600_| (##structure gx#syntax-quote::t 'export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g93605_| + (define |gx[1]#_g93602_| (##structure gx#syntax-quote::t 'make-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g93607_| + (define |gx[1]#_g93604_| (##structure gx#syntax-quote::t 'export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93613_| + (define |gx[1]#_g93610_| (##structure gx#syntax-quote::t 'export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g93616_| + (define |gx[1]#_g93613_| (##structure gx#syntax-quote::t 'export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93619_| + (define |gx[1]#_g93616_| (##structure gx#syntax-quote::t 'export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g93625_| + (define |gx[1]#_g93622_| (##structure gx#syntax-quote::t 'export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93628_| + (define |gx[1]#_g93625_| (##structure gx#syntax-quote::t 'export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93631_| + (define |gx[1]#_g93628_| (##structure gx#syntax-quote::t 'export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93637_| + (define |gx[1]#_g93634_| (##structure gx#syntax-quote::t '&export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g93640_| + (define |gx[1]#_g93637_| (##structure gx#syntax-quote::t '&export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93643_| + (define |gx[1]#_g93640_| (##structure gx#syntax-quote::t '&export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g93649_| + (define |gx[1]#_g93646_| (##structure gx#syntax-quote::t '&export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93652_| + (define |gx[1]#_g93649_| (##structure gx#syntax-quote::t '&export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93655_| + (define |gx[1]#_g93652_| (##structure gx#syntax-quote::t '&export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93659_| + (define |gx[1]#_g93656_| (##structure gx#syntax-quote::t 'export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g93661_| + (define |gx[1]#_g93658_| (##structure gx#syntax-quote::t 'import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g93663_| + (define |gx[1]#_g93660_| (##structure gx#syntax-quote::t 'import-export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g93665_| + (define |gx[1]#_g93662_| (##structure gx#syntax-quote::t 'make-import-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g93667_| + (define |gx[1]#_g93664_| (##structure gx#syntax-quote::t 'import-export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93673_| + (define |gx[1]#_g93670_| (##structure gx#syntax-quote::t 'import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g93676_| + (define |gx[1]#_g93673_| (##structure gx#syntax-quote::t 'import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93679_| + (define |gx[1]#_g93676_| (##structure gx#syntax-quote::t 'import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g93685_| + (define |gx[1]#_g93682_| (##structure gx#syntax-quote::t 'import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93688_| + (define |gx[1]#_g93685_| (##structure gx#syntax-quote::t 'import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93691_| + (define |gx[1]#_g93688_| (##structure gx#syntax-quote::t 'import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93697_| + (define |gx[1]#_g93694_| (##structure gx#syntax-quote::t '&import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g93700_| + (define |gx[1]#_g93697_| (##structure gx#syntax-quote::t '&import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93703_| + (define |gx[1]#_g93700_| (##structure gx#syntax-quote::t '&import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g93709_| + (define |gx[1]#_g93706_| (##structure gx#syntax-quote::t '&import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93712_| + (define |gx[1]#_g93709_| (##structure gx#syntax-quote::t '&import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93715_| + (define |gx[1]#_g93712_| (##structure gx#syntax-quote::t '&import-export-expander-context-set! @@ -842,7 +842,7 @@ '())) (begin (define |gx[:0:]#module-import| - (let ((__obj93233 + (let ((__obj93230 (let () (declare (not safe)) (##structure @@ -865,7 +865,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93233 + __obj93230 '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! - __obj93233 + __obj93230 'module-import '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -881,7 +881,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93233 + __obj93230 '(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! - __obj93233 + __obj93230 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -897,7 +897,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93233 + __obj93230 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -905,7 +905,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93233 + __obj93230 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -913,7 +913,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93233 + __obj93230 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -921,178 +921,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93233 + __obj93230 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93279 |gx[1]#_g93280_|)) + (let ((__tmp93276 |gx[1]#_g93277_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93233 - __tmp93279 + __obj93230 + __tmp93276 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93281 |gx[1]#_g93282_|)) + (let ((__tmp93278 |gx[1]#_g93279_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93233 - __tmp93281 + __obj93230 + __tmp93278 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93283 |gx[1]#_g93284_|)) + (let ((__tmp93280 |gx[1]#_g93281_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93233 - __tmp93283 + __obj93230 + __tmp93280 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93285 - (let ((__tmp93298 - (let ((__tmp93299 |gx[1]#_g93300_|)) + (let ((__tmp93282 + (let ((__tmp93295 + (let ((__tmp93296 |gx[1]#_g93297_|)) (declare (not safe)) - (cons 'source __tmp93299))) - (__tmp93286 - (let ((__tmp93295 - (let ((__tmp93296 |gx[1]#_g93297_|)) + (cons 'source __tmp93296))) + (__tmp93283 + (let ((__tmp93292 + (let ((__tmp93293 |gx[1]#_g93294_|)) (declare (not safe)) - (cons 'name __tmp93296))) - (__tmp93287 - (let ((__tmp93292 - (let ((__tmp93293 |gx[1]#_g93294_|)) + (cons 'name __tmp93293))) + (__tmp93284 + (let ((__tmp93289 + (let ((__tmp93290 |gx[1]#_g93291_|)) (declare (not safe)) - (cons 'phi __tmp93293))) - (__tmp93288 - (let ((__tmp93289 - (let ((__tmp93290 |gx[1]#_g93291_|)) + (cons 'phi __tmp93290))) + (__tmp93285 + (let ((__tmp93286 + (let ((__tmp93287 |gx[1]#_g93288_|)) (declare (not safe)) - (cons 'weak? __tmp93290)))) + (cons 'weak? __tmp93287)))) (declare (not safe)) - (cons __tmp93289 '())))) + (cons __tmp93286 '())))) (declare (not safe)) - (cons __tmp93292 __tmp93288)))) + (cons __tmp93289 __tmp93285)))) (declare (not safe)) - (cons __tmp93295 __tmp93287)))) + (cons __tmp93292 __tmp93284)))) (declare (not safe)) - (cons __tmp93298 __tmp93286)))) + (cons __tmp93295 __tmp93283)))) (declare (not safe)) (##unchecked-structure-set! - __obj93233 - __tmp93285 + __obj93230 + __tmp93282 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93301 - (let ((__tmp93314 - (let ((__tmp93315 |gx[1]#_g93316_|)) + (let ((__tmp93298 + (let ((__tmp93311 + (let ((__tmp93312 |gx[1]#_g93313_|)) (declare (not safe)) - (cons 'source __tmp93315))) - (__tmp93302 - (let ((__tmp93311 - (let ((__tmp93312 |gx[1]#_g93313_|)) + (cons 'source __tmp93312))) + (__tmp93299 + (let ((__tmp93308 + (let ((__tmp93309 |gx[1]#_g93310_|)) (declare (not safe)) - (cons 'name __tmp93312))) - (__tmp93303 - (let ((__tmp93308 - (let ((__tmp93309 |gx[1]#_g93310_|)) + (cons 'name __tmp93309))) + (__tmp93300 + (let ((__tmp93305 + (let ((__tmp93306 |gx[1]#_g93307_|)) (declare (not safe)) - (cons 'phi __tmp93309))) - (__tmp93304 - (let ((__tmp93305 - (let ((__tmp93306 |gx[1]#_g93307_|)) + (cons 'phi __tmp93306))) + (__tmp93301 + (let ((__tmp93302 + (let ((__tmp93303 |gx[1]#_g93304_|)) (declare (not safe)) - (cons 'weak? __tmp93306)))) + (cons 'weak? __tmp93303)))) (declare (not safe)) - (cons __tmp93305 '())))) + (cons __tmp93302 '())))) (declare (not safe)) - (cons __tmp93308 __tmp93304)))) + (cons __tmp93305 __tmp93301)))) (declare (not safe)) - (cons __tmp93311 __tmp93303)))) + (cons __tmp93308 __tmp93300)))) (declare (not safe)) - (cons __tmp93314 __tmp93302)))) + (cons __tmp93311 __tmp93299)))) (declare (not safe)) (##unchecked-structure-set! - __obj93233 - __tmp93301 + __obj93230 + __tmp93298 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93317 - (let ((__tmp93330 - (let ((__tmp93331 |gx[1]#_g93332_|)) + (let ((__tmp93314 + (let ((__tmp93327 + (let ((__tmp93328 |gx[1]#_g93329_|)) (declare (not safe)) - (cons 'source __tmp93331))) - (__tmp93318 - (let ((__tmp93327 - (let ((__tmp93328 |gx[1]#_g93329_|)) + (cons 'source __tmp93328))) + (__tmp93315 + (let ((__tmp93324 + (let ((__tmp93325 |gx[1]#_g93326_|)) (declare (not safe)) - (cons 'name __tmp93328))) - (__tmp93319 - (let ((__tmp93324 - (let ((__tmp93325 |gx[1]#_g93326_|)) + (cons 'name __tmp93325))) + (__tmp93316 + (let ((__tmp93321 + (let ((__tmp93322 |gx[1]#_g93323_|)) (declare (not safe)) - (cons 'phi __tmp93325))) - (__tmp93320 - (let ((__tmp93321 - (let ((__tmp93322 |gx[1]#_g93323_|)) + (cons 'phi __tmp93322))) + (__tmp93317 + (let ((__tmp93318 + (let ((__tmp93319 |gx[1]#_g93320_|)) (declare (not safe)) - (cons 'weak? __tmp93322)))) + (cons 'weak? __tmp93319)))) (declare (not safe)) - (cons __tmp93321 '())))) + (cons __tmp93318 '())))) (declare (not safe)) - (cons __tmp93324 __tmp93320)))) + (cons __tmp93321 __tmp93317)))) (declare (not safe)) - (cons __tmp93327 __tmp93319)))) + (cons __tmp93324 __tmp93316)))) (declare (not safe)) - (cons __tmp93330 __tmp93318)))) + (cons __tmp93327 __tmp93315)))) (declare (not safe)) (##unchecked-structure-set! - __obj93233 - __tmp93317 + __obj93230 + __tmp93314 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93333 - (let ((__tmp93346 - (let ((__tmp93347 |gx[1]#_g93348_|)) + (let ((__tmp93330 + (let ((__tmp93343 + (let ((__tmp93344 |gx[1]#_g93345_|)) (declare (not safe)) - (cons 'source __tmp93347))) - (__tmp93334 - (let ((__tmp93343 - (let ((__tmp93344 |gx[1]#_g93345_|)) + (cons 'source __tmp93344))) + (__tmp93331 + (let ((__tmp93340 + (let ((__tmp93341 |gx[1]#_g93342_|)) (declare (not safe)) - (cons 'name __tmp93344))) - (__tmp93335 - (let ((__tmp93340 - (let ((__tmp93341 |gx[1]#_g93342_|)) + (cons 'name __tmp93341))) + (__tmp93332 + (let ((__tmp93337 + (let ((__tmp93338 |gx[1]#_g93339_|)) (declare (not safe)) - (cons 'phi __tmp93341))) - (__tmp93336 - (let ((__tmp93337 - (let ((__tmp93338 |gx[1]#_g93339_|)) + (cons 'phi __tmp93338))) + (__tmp93333 + (let ((__tmp93334 + (let ((__tmp93335 |gx[1]#_g93336_|)) (declare (not safe)) - (cons 'weak? __tmp93338)))) + (cons 'weak? __tmp93335)))) (declare (not safe)) - (cons __tmp93337 '())))) + (cons __tmp93334 '())))) (declare (not safe)) - (cons __tmp93340 __tmp93336)))) + (cons __tmp93337 __tmp93333)))) (declare (not safe)) - (cons __tmp93343 __tmp93335)))) + (cons __tmp93340 __tmp93332)))) (declare (not safe)) - (cons __tmp93346 __tmp93334)))) + (cons __tmp93343 __tmp93331)))) (declare (not safe)) (##unchecked-structure-set! - __obj93233 - __tmp93333 + __obj93230 + __tmp93330 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj93233)) + __obj93230)) (define |gx[:0:]#module-export| - (let ((__obj93234 + (let ((__obj93231 (let () (declare (not safe)) (##structure @@ -1115,7 +1115,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93234 + __obj93231 '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! - __obj93234 + __obj93231 'module-export '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1131,7 +1131,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93234 + __obj93231 '(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! - __obj93234 + __obj93231 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1147,7 +1147,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93234 + __obj93231 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1155,7 +1155,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93234 + __obj93231 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1163,7 +1163,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93234 + __obj93231 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1171,210 +1171,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93234 + __obj93231 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93349 |gx[1]#_g93350_|)) + (let ((__tmp93346 |gx[1]#_g93347_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93234 - __tmp93349 + __obj93231 + __tmp93346 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93351 |gx[1]#_g93352_|)) + (let ((__tmp93348 |gx[1]#_g93349_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93234 - __tmp93351 + __obj93231 + __tmp93348 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93353 |gx[1]#_g93354_|)) + (let ((__tmp93350 |gx[1]#_g93351_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93234 - __tmp93353 + __obj93231 + __tmp93350 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93355 - (let ((__tmp93372 - (let ((__tmp93373 |gx[1]#_g93374_|)) + (let ((__tmp93352 + (let ((__tmp93369 + (let ((__tmp93370 |gx[1]#_g93371_|)) (declare (not safe)) - (cons 'context __tmp93373))) - (__tmp93356 - (let ((__tmp93369 - (let ((__tmp93370 |gx[1]#_g93371_|)) + (cons 'context __tmp93370))) + (__tmp93353 + (let ((__tmp93366 + (let ((__tmp93367 |gx[1]#_g93368_|)) (declare (not safe)) - (cons 'key __tmp93370))) - (__tmp93357 - (let ((__tmp93366 - (let ((__tmp93367 |gx[1]#_g93368_|)) + (cons 'key __tmp93367))) + (__tmp93354 + (let ((__tmp93363 + (let ((__tmp93364 |gx[1]#_g93365_|)) (declare (not safe)) - (cons 'phi __tmp93367))) - (__tmp93358 - (let ((__tmp93363 - (let ((__tmp93364 |gx[1]#_g93365_|)) + (cons 'phi __tmp93364))) + (__tmp93355 + (let ((__tmp93360 + (let ((__tmp93361 |gx[1]#_g93362_|)) (declare (not safe)) - (cons 'name __tmp93364))) - (__tmp93359 - (let ((__tmp93360 - (let ((__tmp93361 - |gx[1]#_g93362_|)) + (cons 'name __tmp93361))) + (__tmp93356 + (let ((__tmp93357 + (let ((__tmp93358 + |gx[1]#_g93359_|)) (declare (not safe)) - (cons 'weak? __tmp93361)))) + (cons 'weak? __tmp93358)))) (declare (not safe)) - (cons __tmp93360 '())))) + (cons __tmp93357 '())))) (declare (not safe)) - (cons __tmp93363 __tmp93359)))) + (cons __tmp93360 __tmp93356)))) (declare (not safe)) - (cons __tmp93366 __tmp93358)))) + (cons __tmp93363 __tmp93355)))) (declare (not safe)) - (cons __tmp93369 __tmp93357)))) + (cons __tmp93366 __tmp93354)))) (declare (not safe)) - (cons __tmp93372 __tmp93356)))) + (cons __tmp93369 __tmp93353)))) (declare (not safe)) (##unchecked-structure-set! - __obj93234 - __tmp93355 + __obj93231 + __tmp93352 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93375 - (let ((__tmp93392 - (let ((__tmp93393 |gx[1]#_g93394_|)) + (let ((__tmp93372 + (let ((__tmp93389 + (let ((__tmp93390 |gx[1]#_g93391_|)) (declare (not safe)) - (cons 'context __tmp93393))) - (__tmp93376 - (let ((__tmp93389 - (let ((__tmp93390 |gx[1]#_g93391_|)) + (cons 'context __tmp93390))) + (__tmp93373 + (let ((__tmp93386 + (let ((__tmp93387 |gx[1]#_g93388_|)) (declare (not safe)) - (cons 'key __tmp93390))) - (__tmp93377 - (let ((__tmp93386 - (let ((__tmp93387 |gx[1]#_g93388_|)) + (cons 'key __tmp93387))) + (__tmp93374 + (let ((__tmp93383 + (let ((__tmp93384 |gx[1]#_g93385_|)) (declare (not safe)) - (cons 'phi __tmp93387))) - (__tmp93378 - (let ((__tmp93383 - (let ((__tmp93384 |gx[1]#_g93385_|)) + (cons 'phi __tmp93384))) + (__tmp93375 + (let ((__tmp93380 + (let ((__tmp93381 |gx[1]#_g93382_|)) (declare (not safe)) - (cons 'name __tmp93384))) - (__tmp93379 - (let ((__tmp93380 - (let ((__tmp93381 - |gx[1]#_g93382_|)) + (cons 'name __tmp93381))) + (__tmp93376 + (let ((__tmp93377 + (let ((__tmp93378 + |gx[1]#_g93379_|)) (declare (not safe)) - (cons 'weak? __tmp93381)))) + (cons 'weak? __tmp93378)))) (declare (not safe)) - (cons __tmp93380 '())))) + (cons __tmp93377 '())))) (declare (not safe)) - (cons __tmp93383 __tmp93379)))) + (cons __tmp93380 __tmp93376)))) (declare (not safe)) - (cons __tmp93386 __tmp93378)))) + (cons __tmp93383 __tmp93375)))) (declare (not safe)) - (cons __tmp93389 __tmp93377)))) + (cons __tmp93386 __tmp93374)))) (declare (not safe)) - (cons __tmp93392 __tmp93376)))) + (cons __tmp93389 __tmp93373)))) (declare (not safe)) (##unchecked-structure-set! - __obj93234 - __tmp93375 + __obj93231 + __tmp93372 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93395 - (let ((__tmp93412 - (let ((__tmp93413 |gx[1]#_g93414_|)) + (let ((__tmp93392 + (let ((__tmp93409 + (let ((__tmp93410 |gx[1]#_g93411_|)) (declare (not safe)) - (cons 'context __tmp93413))) - (__tmp93396 - (let ((__tmp93409 - (let ((__tmp93410 |gx[1]#_g93411_|)) + (cons 'context __tmp93410))) + (__tmp93393 + (let ((__tmp93406 + (let ((__tmp93407 |gx[1]#_g93408_|)) (declare (not safe)) - (cons 'key __tmp93410))) - (__tmp93397 - (let ((__tmp93406 - (let ((__tmp93407 |gx[1]#_g93408_|)) + (cons 'key __tmp93407))) + (__tmp93394 + (let ((__tmp93403 + (let ((__tmp93404 |gx[1]#_g93405_|)) (declare (not safe)) - (cons 'phi __tmp93407))) - (__tmp93398 - (let ((__tmp93403 - (let ((__tmp93404 |gx[1]#_g93405_|)) + (cons 'phi __tmp93404))) + (__tmp93395 + (let ((__tmp93400 + (let ((__tmp93401 |gx[1]#_g93402_|)) (declare (not safe)) - (cons 'name __tmp93404))) - (__tmp93399 - (let ((__tmp93400 - (let ((__tmp93401 - |gx[1]#_g93402_|)) + (cons 'name __tmp93401))) + (__tmp93396 + (let ((__tmp93397 + (let ((__tmp93398 + |gx[1]#_g93399_|)) (declare (not safe)) - (cons 'weak? __tmp93401)))) + (cons 'weak? __tmp93398)))) (declare (not safe)) - (cons __tmp93400 '())))) + (cons __tmp93397 '())))) (declare (not safe)) - (cons __tmp93403 __tmp93399)))) + (cons __tmp93400 __tmp93396)))) (declare (not safe)) - (cons __tmp93406 __tmp93398)))) + (cons __tmp93403 __tmp93395)))) (declare (not safe)) - (cons __tmp93409 __tmp93397)))) + (cons __tmp93406 __tmp93394)))) (declare (not safe)) - (cons __tmp93412 __tmp93396)))) + (cons __tmp93409 __tmp93393)))) (declare (not safe)) (##unchecked-structure-set! - __obj93234 - __tmp93395 + __obj93231 + __tmp93392 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93415 - (let ((__tmp93432 - (let ((__tmp93433 |gx[1]#_g93434_|)) + (let ((__tmp93412 + (let ((__tmp93429 + (let ((__tmp93430 |gx[1]#_g93431_|)) (declare (not safe)) - (cons 'context __tmp93433))) - (__tmp93416 - (let ((__tmp93429 - (let ((__tmp93430 |gx[1]#_g93431_|)) + (cons 'context __tmp93430))) + (__tmp93413 + (let ((__tmp93426 + (let ((__tmp93427 |gx[1]#_g93428_|)) (declare (not safe)) - (cons 'key __tmp93430))) - (__tmp93417 - (let ((__tmp93426 - (let ((__tmp93427 |gx[1]#_g93428_|)) + (cons 'key __tmp93427))) + (__tmp93414 + (let ((__tmp93423 + (let ((__tmp93424 |gx[1]#_g93425_|)) (declare (not safe)) - (cons 'phi __tmp93427))) - (__tmp93418 - (let ((__tmp93423 - (let ((__tmp93424 |gx[1]#_g93425_|)) + (cons 'phi __tmp93424))) + (__tmp93415 + (let ((__tmp93420 + (let ((__tmp93421 |gx[1]#_g93422_|)) (declare (not safe)) - (cons 'name __tmp93424))) - (__tmp93419 - (let ((__tmp93420 - (let ((__tmp93421 - |gx[1]#_g93422_|)) + (cons 'name __tmp93421))) + (__tmp93416 + (let ((__tmp93417 + (let ((__tmp93418 + |gx[1]#_g93419_|)) (declare (not safe)) - (cons 'weak? __tmp93421)))) + (cons 'weak? __tmp93418)))) (declare (not safe)) - (cons __tmp93420 '())))) + (cons __tmp93417 '())))) (declare (not safe)) - (cons __tmp93423 __tmp93419)))) + (cons __tmp93420 __tmp93416)))) (declare (not safe)) - (cons __tmp93426 __tmp93418)))) + (cons __tmp93423 __tmp93415)))) (declare (not safe)) - (cons __tmp93429 __tmp93417)))) + (cons __tmp93426 __tmp93414)))) (declare (not safe)) - (cons __tmp93432 __tmp93416)))) + (cons __tmp93429 __tmp93413)))) (declare (not safe)) (##unchecked-structure-set! - __obj93234 - __tmp93415 + __obj93231 + __tmp93412 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj93234)) + __obj93231)) (define |gx[:0:]#import-set| - (let ((__obj93235 + (let ((__obj93232 (let () (declare (not safe)) (##structure @@ -1397,7 +1397,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93235 + __obj93232 '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! - __obj93235 + __obj93232 'import-set '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1413,7 +1413,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93235 + __obj93232 '(source phi imports) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1421,7 +1421,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93235 + __obj93232 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1429,7 +1429,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93235 + __obj93232 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1437,7 +1437,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93235 + __obj93232 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1445,7 +1445,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93235 + __obj93232 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1453,150 +1453,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93235 + __obj93232 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93435 |gx[1]#_g93436_|)) + (let ((__tmp93432 |gx[1]#_g93433_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93235 - __tmp93435 + __obj93232 + __tmp93432 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93437 |gx[1]#_g93438_|)) + (let ((__tmp93434 |gx[1]#_g93435_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93235 - __tmp93437 + __obj93232 + __tmp93434 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93439 |gx[1]#_g93440_|)) + (let ((__tmp93436 |gx[1]#_g93437_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93235 - __tmp93439 + __obj93232 + __tmp93436 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93441 - (let ((__tmp93450 - (let ((__tmp93451 |gx[1]#_g93452_|)) + (let ((__tmp93438 + (let ((__tmp93447 + (let ((__tmp93448 |gx[1]#_g93449_|)) (declare (not safe)) - (cons 'source __tmp93451))) - (__tmp93442 - (let ((__tmp93447 - (let ((__tmp93448 |gx[1]#_g93449_|)) + (cons 'source __tmp93448))) + (__tmp93439 + (let ((__tmp93444 + (let ((__tmp93445 |gx[1]#_g93446_|)) (declare (not safe)) - (cons 'phi __tmp93448))) - (__tmp93443 - (let ((__tmp93444 - (let ((__tmp93445 |gx[1]#_g93446_|)) + (cons 'phi __tmp93445))) + (__tmp93440 + (let ((__tmp93441 + (let ((__tmp93442 |gx[1]#_g93443_|)) (declare (not safe)) - (cons 'imports __tmp93445)))) + (cons 'imports __tmp93442)))) (declare (not safe)) - (cons __tmp93444 '())))) + (cons __tmp93441 '())))) (declare (not safe)) - (cons __tmp93447 __tmp93443)))) + (cons __tmp93444 __tmp93440)))) (declare (not safe)) - (cons __tmp93450 __tmp93442)))) + (cons __tmp93447 __tmp93439)))) (declare (not safe)) (##unchecked-structure-set! - __obj93235 - __tmp93441 + __obj93232 + __tmp93438 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93453 - (let ((__tmp93462 - (let ((__tmp93463 |gx[1]#_g93464_|)) + (let ((__tmp93450 + (let ((__tmp93459 + (let ((__tmp93460 |gx[1]#_g93461_|)) (declare (not safe)) - (cons 'source __tmp93463))) - (__tmp93454 - (let ((__tmp93459 - (let ((__tmp93460 |gx[1]#_g93461_|)) + (cons 'source __tmp93460))) + (__tmp93451 + (let ((__tmp93456 + (let ((__tmp93457 |gx[1]#_g93458_|)) (declare (not safe)) - (cons 'phi __tmp93460))) - (__tmp93455 - (let ((__tmp93456 - (let ((__tmp93457 |gx[1]#_g93458_|)) + (cons 'phi __tmp93457))) + (__tmp93452 + (let ((__tmp93453 + (let ((__tmp93454 |gx[1]#_g93455_|)) (declare (not safe)) - (cons 'imports __tmp93457)))) + (cons 'imports __tmp93454)))) (declare (not safe)) - (cons __tmp93456 '())))) + (cons __tmp93453 '())))) (declare (not safe)) - (cons __tmp93459 __tmp93455)))) + (cons __tmp93456 __tmp93452)))) (declare (not safe)) - (cons __tmp93462 __tmp93454)))) + (cons __tmp93459 __tmp93451)))) (declare (not safe)) (##unchecked-structure-set! - __obj93235 - __tmp93453 + __obj93232 + __tmp93450 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93465 - (let ((__tmp93474 - (let ((__tmp93475 |gx[1]#_g93476_|)) + (let ((__tmp93462 + (let ((__tmp93471 + (let ((__tmp93472 |gx[1]#_g93473_|)) (declare (not safe)) - (cons 'source __tmp93475))) - (__tmp93466 - (let ((__tmp93471 - (let ((__tmp93472 |gx[1]#_g93473_|)) + (cons 'source __tmp93472))) + (__tmp93463 + (let ((__tmp93468 + (let ((__tmp93469 |gx[1]#_g93470_|)) (declare (not safe)) - (cons 'phi __tmp93472))) - (__tmp93467 - (let ((__tmp93468 - (let ((__tmp93469 |gx[1]#_g93470_|)) + (cons 'phi __tmp93469))) + (__tmp93464 + (let ((__tmp93465 + (let ((__tmp93466 |gx[1]#_g93467_|)) (declare (not safe)) - (cons 'imports __tmp93469)))) + (cons 'imports __tmp93466)))) (declare (not safe)) - (cons __tmp93468 '())))) + (cons __tmp93465 '())))) (declare (not safe)) - (cons __tmp93471 __tmp93467)))) + (cons __tmp93468 __tmp93464)))) (declare (not safe)) - (cons __tmp93474 __tmp93466)))) + (cons __tmp93471 __tmp93463)))) (declare (not safe)) (##unchecked-structure-set! - __obj93235 - __tmp93465 + __obj93232 + __tmp93462 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93477 - (let ((__tmp93486 - (let ((__tmp93487 |gx[1]#_g93488_|)) + (let ((__tmp93474 + (let ((__tmp93483 + (let ((__tmp93484 |gx[1]#_g93485_|)) (declare (not safe)) - (cons 'source __tmp93487))) - (__tmp93478 - (let ((__tmp93483 - (let ((__tmp93484 |gx[1]#_g93485_|)) + (cons 'source __tmp93484))) + (__tmp93475 + (let ((__tmp93480 + (let ((__tmp93481 |gx[1]#_g93482_|)) (declare (not safe)) - (cons 'phi __tmp93484))) - (__tmp93479 - (let ((__tmp93480 - (let ((__tmp93481 |gx[1]#_g93482_|)) + (cons 'phi __tmp93481))) + (__tmp93476 + (let ((__tmp93477 + (let ((__tmp93478 |gx[1]#_g93479_|)) (declare (not safe)) - (cons 'imports __tmp93481)))) + (cons 'imports __tmp93478)))) (declare (not safe)) - (cons __tmp93480 '())))) + (cons __tmp93477 '())))) (declare (not safe)) - (cons __tmp93483 __tmp93479)))) + (cons __tmp93480 __tmp93476)))) (declare (not safe)) - (cons __tmp93486 __tmp93478)))) + (cons __tmp93483 __tmp93475)))) (declare (not safe)) (##unchecked-structure-set! - __obj93235 - __tmp93477 + __obj93232 + __tmp93474 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj93235)) + __obj93232)) (define |gx[:0:]#export-set| - (let ((__obj93236 + (let ((__obj93233 (let () (declare (not safe)) (##structure @@ -1619,7 +1619,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93236 + __obj93233 '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! - __obj93236 + __obj93233 'export-set '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1635,7 +1635,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93236 + __obj93233 '(source phi exports) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1643,7 +1643,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93236 + __obj93233 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1651,7 +1651,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93236 + __obj93233 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1659,7 +1659,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93236 + __obj93233 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1667,7 +1667,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93236 + __obj93233 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1675,150 +1675,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93236 + __obj93233 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93489 |gx[1]#_g93490_|)) + (let ((__tmp93486 |gx[1]#_g93487_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93236 - __tmp93489 + __obj93233 + __tmp93486 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93491 |gx[1]#_g93492_|)) + (let ((__tmp93488 |gx[1]#_g93489_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93236 - __tmp93491 + __obj93233 + __tmp93488 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93493 |gx[1]#_g93494_|)) + (let ((__tmp93490 |gx[1]#_g93491_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93236 - __tmp93493 + __obj93233 + __tmp93490 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93495 - (let ((__tmp93504 - (let ((__tmp93505 |gx[1]#_g93506_|)) + (let ((__tmp93492 + (let ((__tmp93501 + (let ((__tmp93502 |gx[1]#_g93503_|)) (declare (not safe)) - (cons 'source __tmp93505))) - (__tmp93496 - (let ((__tmp93501 - (let ((__tmp93502 |gx[1]#_g93503_|)) + (cons 'source __tmp93502))) + (__tmp93493 + (let ((__tmp93498 + (let ((__tmp93499 |gx[1]#_g93500_|)) (declare (not safe)) - (cons 'phi __tmp93502))) - (__tmp93497 - (let ((__tmp93498 - (let ((__tmp93499 |gx[1]#_g93500_|)) + (cons 'phi __tmp93499))) + (__tmp93494 + (let ((__tmp93495 + (let ((__tmp93496 |gx[1]#_g93497_|)) (declare (not safe)) - (cons 'exports __tmp93499)))) + (cons 'exports __tmp93496)))) (declare (not safe)) - (cons __tmp93498 '())))) + (cons __tmp93495 '())))) (declare (not safe)) - (cons __tmp93501 __tmp93497)))) + (cons __tmp93498 __tmp93494)))) (declare (not safe)) - (cons __tmp93504 __tmp93496)))) + (cons __tmp93501 __tmp93493)))) (declare (not safe)) (##unchecked-structure-set! - __obj93236 - __tmp93495 + __obj93233 + __tmp93492 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93507 - (let ((__tmp93516 - (let ((__tmp93517 |gx[1]#_g93518_|)) + (let ((__tmp93504 + (let ((__tmp93513 + (let ((__tmp93514 |gx[1]#_g93515_|)) (declare (not safe)) - (cons 'source __tmp93517))) - (__tmp93508 - (let ((__tmp93513 - (let ((__tmp93514 |gx[1]#_g93515_|)) + (cons 'source __tmp93514))) + (__tmp93505 + (let ((__tmp93510 + (let ((__tmp93511 |gx[1]#_g93512_|)) (declare (not safe)) - (cons 'phi __tmp93514))) - (__tmp93509 - (let ((__tmp93510 - (let ((__tmp93511 |gx[1]#_g93512_|)) + (cons 'phi __tmp93511))) + (__tmp93506 + (let ((__tmp93507 + (let ((__tmp93508 |gx[1]#_g93509_|)) (declare (not safe)) - (cons 'exports __tmp93511)))) + (cons 'exports __tmp93508)))) (declare (not safe)) - (cons __tmp93510 '())))) + (cons __tmp93507 '())))) (declare (not safe)) - (cons __tmp93513 __tmp93509)))) + (cons __tmp93510 __tmp93506)))) (declare (not safe)) - (cons __tmp93516 __tmp93508)))) + (cons __tmp93513 __tmp93505)))) (declare (not safe)) (##unchecked-structure-set! - __obj93236 - __tmp93507 + __obj93233 + __tmp93504 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93519 - (let ((__tmp93528 - (let ((__tmp93529 |gx[1]#_g93530_|)) + (let ((__tmp93516 + (let ((__tmp93525 + (let ((__tmp93526 |gx[1]#_g93527_|)) (declare (not safe)) - (cons 'source __tmp93529))) - (__tmp93520 - (let ((__tmp93525 - (let ((__tmp93526 |gx[1]#_g93527_|)) + (cons 'source __tmp93526))) + (__tmp93517 + (let ((__tmp93522 + (let ((__tmp93523 |gx[1]#_g93524_|)) (declare (not safe)) - (cons 'phi __tmp93526))) - (__tmp93521 - (let ((__tmp93522 - (let ((__tmp93523 |gx[1]#_g93524_|)) + (cons 'phi __tmp93523))) + (__tmp93518 + (let ((__tmp93519 + (let ((__tmp93520 |gx[1]#_g93521_|)) (declare (not safe)) - (cons 'exports __tmp93523)))) + (cons 'exports __tmp93520)))) (declare (not safe)) - (cons __tmp93522 '())))) + (cons __tmp93519 '())))) (declare (not safe)) - (cons __tmp93525 __tmp93521)))) + (cons __tmp93522 __tmp93518)))) (declare (not safe)) - (cons __tmp93528 __tmp93520)))) + (cons __tmp93525 __tmp93517)))) (declare (not safe)) (##unchecked-structure-set! - __obj93236 - __tmp93519 + __obj93233 + __tmp93516 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93531 - (let ((__tmp93540 - (let ((__tmp93541 |gx[1]#_g93542_|)) + (let ((__tmp93528 + (let ((__tmp93537 + (let ((__tmp93538 |gx[1]#_g93539_|)) (declare (not safe)) - (cons 'source __tmp93541))) - (__tmp93532 - (let ((__tmp93537 - (let ((__tmp93538 |gx[1]#_g93539_|)) + (cons 'source __tmp93538))) + (__tmp93529 + (let ((__tmp93534 + (let ((__tmp93535 |gx[1]#_g93536_|)) (declare (not safe)) - (cons 'phi __tmp93538))) - (__tmp93533 - (let ((__tmp93534 - (let ((__tmp93535 |gx[1]#_g93536_|)) + (cons 'phi __tmp93535))) + (__tmp93530 + (let ((__tmp93531 + (let ((__tmp93532 |gx[1]#_g93533_|)) (declare (not safe)) - (cons 'exports __tmp93535)))) + (cons 'exports __tmp93532)))) (declare (not safe)) - (cons __tmp93534 '())))) + (cons __tmp93531 '())))) (declare (not safe)) - (cons __tmp93537 __tmp93533)))) + (cons __tmp93534 __tmp93530)))) (declare (not safe)) - (cons __tmp93540 __tmp93532)))) + (cons __tmp93537 __tmp93529)))) (declare (not safe)) (##unchecked-structure-set! - __obj93236 - __tmp93531 + __obj93233 + __tmp93528 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj93236)) + __obj93233)) (define |gx[:0:]#import-expander| - (let ((__obj93237 + (let ((__obj93234 (let () (declare (not safe)) (##structure @@ -1841,7 +1841,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93237 + __obj93234 '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! - __obj93237 + __obj93234 'import-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1857,26 +1857,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93237 + __obj93234 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93543 - (let ((__tmp93544 |gx[1]#_g93545_|)) + (let ((__tmp93540 + (let ((__tmp93541 |gx[1]#_g93542_|)) (declare (not safe)) - (cons __tmp93544 '())))) + (cons __tmp93541 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj93237 - __tmp93543 + __obj93234 + __tmp93540 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj93237 + __obj93234 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1884,7 +1884,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93237 + __obj93234 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1892,7 +1892,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93237 + __obj93234 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1900,150 +1900,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93237 + __obj93234 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93546 |gx[1]#_g93547_|)) + (let ((__tmp93543 |gx[1]#_g93544_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93237 - __tmp93546 + __obj93234 + __tmp93543 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93548 |gx[1]#_g93549_|)) + (let ((__tmp93545 |gx[1]#_g93546_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93237 - __tmp93548 + __obj93234 + __tmp93545 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93550 |gx[1]#_g93551_|)) + (let ((__tmp93547 |gx[1]#_g93548_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93237 - __tmp93550 + __obj93234 + __tmp93547 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93552 - (let ((__tmp93561 - (let ((__tmp93562 |gx[1]#_g93563_|)) + (let ((__tmp93549 + (let ((__tmp93558 + (let ((__tmp93559 |gx[1]#_g93560_|)) (declare (not safe)) - (cons 'context __tmp93562))) - (__tmp93553 - (let ((__tmp93558 - (let ((__tmp93559 |gx[1]#_g93560_|)) + (cons 'context __tmp93559))) + (__tmp93550 + (let ((__tmp93555 + (let ((__tmp93556 |gx[1]#_g93557_|)) (declare (not safe)) - (cons 'phi __tmp93559))) - (__tmp93554 - (let ((__tmp93555 - (let ((__tmp93556 |gx[1]#_g93557_|)) + (cons 'phi __tmp93556))) + (__tmp93551 + (let ((__tmp93552 + (let ((__tmp93553 |gx[1]#_g93554_|)) (declare (not safe)) - (cons 'e __tmp93556)))) + (cons 'e __tmp93553)))) (declare (not safe)) - (cons __tmp93555 '())))) + (cons __tmp93552 '())))) (declare (not safe)) - (cons __tmp93558 __tmp93554)))) + (cons __tmp93555 __tmp93551)))) (declare (not safe)) - (cons __tmp93561 __tmp93553)))) + (cons __tmp93558 __tmp93550)))) (declare (not safe)) (##unchecked-structure-set! - __obj93237 - __tmp93552 + __obj93234 + __tmp93549 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93564 - (let ((__tmp93573 - (let ((__tmp93574 |gx[1]#_g93575_|)) + (let ((__tmp93561 + (let ((__tmp93570 + (let ((__tmp93571 |gx[1]#_g93572_|)) (declare (not safe)) - (cons 'context __tmp93574))) - (__tmp93565 - (let ((__tmp93570 - (let ((__tmp93571 |gx[1]#_g93572_|)) + (cons 'context __tmp93571))) + (__tmp93562 + (let ((__tmp93567 + (let ((__tmp93568 |gx[1]#_g93569_|)) (declare (not safe)) - (cons 'phi __tmp93571))) - (__tmp93566 - (let ((__tmp93567 - (let ((__tmp93568 |gx[1]#_g93569_|)) + (cons 'phi __tmp93568))) + (__tmp93563 + (let ((__tmp93564 + (let ((__tmp93565 |gx[1]#_g93566_|)) (declare (not safe)) - (cons 'e __tmp93568)))) + (cons 'e __tmp93565)))) (declare (not safe)) - (cons __tmp93567 '())))) + (cons __tmp93564 '())))) (declare (not safe)) - (cons __tmp93570 __tmp93566)))) + (cons __tmp93567 __tmp93563)))) (declare (not safe)) - (cons __tmp93573 __tmp93565)))) + (cons __tmp93570 __tmp93562)))) (declare (not safe)) (##unchecked-structure-set! - __obj93237 - __tmp93564 + __obj93234 + __tmp93561 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93576 - (let ((__tmp93585 - (let ((__tmp93586 |gx[1]#_g93587_|)) + (let ((__tmp93573 + (let ((__tmp93582 + (let ((__tmp93583 |gx[1]#_g93584_|)) (declare (not safe)) - (cons 'context __tmp93586))) - (__tmp93577 - (let ((__tmp93582 - (let ((__tmp93583 |gx[1]#_g93584_|)) + (cons 'context __tmp93583))) + (__tmp93574 + (let ((__tmp93579 + (let ((__tmp93580 |gx[1]#_g93581_|)) (declare (not safe)) - (cons 'phi __tmp93583))) - (__tmp93578 - (let ((__tmp93579 - (let ((__tmp93580 |gx[1]#_g93581_|)) + (cons 'phi __tmp93580))) + (__tmp93575 + (let ((__tmp93576 + (let ((__tmp93577 |gx[1]#_g93578_|)) (declare (not safe)) - (cons 'e __tmp93580)))) + (cons 'e __tmp93577)))) (declare (not safe)) - (cons __tmp93579 '())))) + (cons __tmp93576 '())))) (declare (not safe)) - (cons __tmp93582 __tmp93578)))) + (cons __tmp93579 __tmp93575)))) (declare (not safe)) - (cons __tmp93585 __tmp93577)))) + (cons __tmp93582 __tmp93574)))) (declare (not safe)) (##unchecked-structure-set! - __obj93237 - __tmp93576 + __obj93234 + __tmp93573 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93588 - (let ((__tmp93597 - (let ((__tmp93598 |gx[1]#_g93599_|)) + (let ((__tmp93585 + (let ((__tmp93594 + (let ((__tmp93595 |gx[1]#_g93596_|)) (declare (not safe)) - (cons 'context __tmp93598))) - (__tmp93589 - (let ((__tmp93594 - (let ((__tmp93595 |gx[1]#_g93596_|)) + (cons 'context __tmp93595))) + (__tmp93586 + (let ((__tmp93591 + (let ((__tmp93592 |gx[1]#_g93593_|)) (declare (not safe)) - (cons 'phi __tmp93595))) - (__tmp93590 - (let ((__tmp93591 - (let ((__tmp93592 |gx[1]#_g93593_|)) + (cons 'phi __tmp93592))) + (__tmp93587 + (let ((__tmp93588 + (let ((__tmp93589 |gx[1]#_g93590_|)) (declare (not safe)) - (cons 'e __tmp93592)))) + (cons 'e __tmp93589)))) (declare (not safe)) - (cons __tmp93591 '())))) + (cons __tmp93588 '())))) (declare (not safe)) - (cons __tmp93594 __tmp93590)))) + (cons __tmp93591 __tmp93587)))) (declare (not safe)) - (cons __tmp93597 __tmp93589)))) + (cons __tmp93594 __tmp93586)))) (declare (not safe)) (##unchecked-structure-set! - __obj93237 - __tmp93588 + __obj93234 + __tmp93585 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj93237)) + __obj93234)) (define |gx[:0:]#export-expander| - (let ((__obj93238 + (let ((__obj93235 (let () (declare (not safe)) (##structure @@ -2066,7 +2066,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93238 + __obj93235 '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! - __obj93238 + __obj93235 'export-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2082,26 +2082,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93238 + __obj93235 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93600 - (let ((__tmp93601 |gx[1]#_g93545_|)) + (let ((__tmp93597 + (let ((__tmp93598 |gx[1]#_g93542_|)) (declare (not safe)) - (cons __tmp93601 '())))) + (cons __tmp93598 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj93238 - __tmp93600 + __obj93235 + __tmp93597 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj93238 + __obj93235 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2109,7 +2109,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93238 + __obj93235 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2117,7 +2117,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93238 + __obj93235 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2125,150 +2125,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93238 + __obj93235 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93602 |gx[1]#_g93603_|)) + (let ((__tmp93599 |gx[1]#_g93600_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93238 - __tmp93602 + __obj93235 + __tmp93599 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93604 |gx[1]#_g93605_|)) + (let ((__tmp93601 |gx[1]#_g93602_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93238 - __tmp93604 + __obj93235 + __tmp93601 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93606 |gx[1]#_g93607_|)) + (let ((__tmp93603 |gx[1]#_g93604_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93238 - __tmp93606 + __obj93235 + __tmp93603 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93608 - (let ((__tmp93617 - (let ((__tmp93618 |gx[1]#_g93619_|)) + (let ((__tmp93605 + (let ((__tmp93614 + (let ((__tmp93615 |gx[1]#_g93616_|)) (declare (not safe)) - (cons 'context __tmp93618))) - (__tmp93609 - (let ((__tmp93614 - (let ((__tmp93615 |gx[1]#_g93616_|)) + (cons 'context __tmp93615))) + (__tmp93606 + (let ((__tmp93611 + (let ((__tmp93612 |gx[1]#_g93613_|)) (declare (not safe)) - (cons 'phi __tmp93615))) - (__tmp93610 - (let ((__tmp93611 - (let ((__tmp93612 |gx[1]#_g93613_|)) + (cons 'phi __tmp93612))) + (__tmp93607 + (let ((__tmp93608 + (let ((__tmp93609 |gx[1]#_g93610_|)) (declare (not safe)) - (cons 'e __tmp93612)))) + (cons 'e __tmp93609)))) (declare (not safe)) - (cons __tmp93611 '())))) + (cons __tmp93608 '())))) (declare (not safe)) - (cons __tmp93614 __tmp93610)))) + (cons __tmp93611 __tmp93607)))) (declare (not safe)) - (cons __tmp93617 __tmp93609)))) + (cons __tmp93614 __tmp93606)))) (declare (not safe)) (##unchecked-structure-set! - __obj93238 - __tmp93608 + __obj93235 + __tmp93605 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93620 - (let ((__tmp93629 - (let ((__tmp93630 |gx[1]#_g93631_|)) + (let ((__tmp93617 + (let ((__tmp93626 + (let ((__tmp93627 |gx[1]#_g93628_|)) (declare (not safe)) - (cons 'context __tmp93630))) - (__tmp93621 - (let ((__tmp93626 - (let ((__tmp93627 |gx[1]#_g93628_|)) + (cons 'context __tmp93627))) + (__tmp93618 + (let ((__tmp93623 + (let ((__tmp93624 |gx[1]#_g93625_|)) (declare (not safe)) - (cons 'phi __tmp93627))) - (__tmp93622 - (let ((__tmp93623 - (let ((__tmp93624 |gx[1]#_g93625_|)) + (cons 'phi __tmp93624))) + (__tmp93619 + (let ((__tmp93620 + (let ((__tmp93621 |gx[1]#_g93622_|)) (declare (not safe)) - (cons 'e __tmp93624)))) + (cons 'e __tmp93621)))) (declare (not safe)) - (cons __tmp93623 '())))) + (cons __tmp93620 '())))) (declare (not safe)) - (cons __tmp93626 __tmp93622)))) + (cons __tmp93623 __tmp93619)))) (declare (not safe)) - (cons __tmp93629 __tmp93621)))) + (cons __tmp93626 __tmp93618)))) (declare (not safe)) (##unchecked-structure-set! - __obj93238 - __tmp93620 + __obj93235 + __tmp93617 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93632 - (let ((__tmp93641 - (let ((__tmp93642 |gx[1]#_g93643_|)) + (let ((__tmp93629 + (let ((__tmp93638 + (let ((__tmp93639 |gx[1]#_g93640_|)) (declare (not safe)) - (cons 'context __tmp93642))) - (__tmp93633 - (let ((__tmp93638 - (let ((__tmp93639 |gx[1]#_g93640_|)) + (cons 'context __tmp93639))) + (__tmp93630 + (let ((__tmp93635 + (let ((__tmp93636 |gx[1]#_g93637_|)) (declare (not safe)) - (cons 'phi __tmp93639))) - (__tmp93634 - (let ((__tmp93635 - (let ((__tmp93636 |gx[1]#_g93637_|)) + (cons 'phi __tmp93636))) + (__tmp93631 + (let ((__tmp93632 + (let ((__tmp93633 |gx[1]#_g93634_|)) (declare (not safe)) - (cons 'e __tmp93636)))) + (cons 'e __tmp93633)))) (declare (not safe)) - (cons __tmp93635 '())))) + (cons __tmp93632 '())))) (declare (not safe)) - (cons __tmp93638 __tmp93634)))) + (cons __tmp93635 __tmp93631)))) (declare (not safe)) - (cons __tmp93641 __tmp93633)))) + (cons __tmp93638 __tmp93630)))) (declare (not safe)) (##unchecked-structure-set! - __obj93238 - __tmp93632 + __obj93235 + __tmp93629 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93644 - (let ((__tmp93653 - (let ((__tmp93654 |gx[1]#_g93655_|)) + (let ((__tmp93641 + (let ((__tmp93650 + (let ((__tmp93651 |gx[1]#_g93652_|)) (declare (not safe)) - (cons 'context __tmp93654))) - (__tmp93645 - (let ((__tmp93650 - (let ((__tmp93651 |gx[1]#_g93652_|)) + (cons 'context __tmp93651))) + (__tmp93642 + (let ((__tmp93647 + (let ((__tmp93648 |gx[1]#_g93649_|)) (declare (not safe)) - (cons 'phi __tmp93651))) - (__tmp93646 - (let ((__tmp93647 - (let ((__tmp93648 |gx[1]#_g93649_|)) + (cons 'phi __tmp93648))) + (__tmp93643 + (let ((__tmp93644 + (let ((__tmp93645 |gx[1]#_g93646_|)) (declare (not safe)) - (cons 'e __tmp93648)))) + (cons 'e __tmp93645)))) (declare (not safe)) - (cons __tmp93647 '())))) + (cons __tmp93644 '())))) (declare (not safe)) - (cons __tmp93650 __tmp93646)))) + (cons __tmp93647 __tmp93643)))) (declare (not safe)) - (cons __tmp93653 __tmp93645)))) + (cons __tmp93650 __tmp93642)))) (declare (not safe)) (##unchecked-structure-set! - __obj93238 - __tmp93644 + __obj93235 + __tmp93641 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj93238)) + __obj93235)) (define |gx[:0:]#import-export-expander| - (let ((__obj93239 + (let ((__obj93236 (let () (declare (not safe)) (##structure @@ -2291,7 +2291,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93239 + __obj93236 '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! - __obj93239 + __obj93236 'import-export-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2307,30 +2307,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93239 + __obj93236 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93656 - (let ((__tmp93660 |gx[1]#_g93661_|) - (__tmp93657 - (let ((__tmp93658 |gx[1]#_g93659_|)) + (let ((__tmp93653 + (let ((__tmp93657 |gx[1]#_g93658_|) + (__tmp93654 + (let ((__tmp93655 |gx[1]#_g93656_|)) (declare (not safe)) - (cons __tmp93658 '())))) + (cons __tmp93655 '())))) (declare (not safe)) - (cons __tmp93660 __tmp93657)))) + (cons __tmp93657 __tmp93654)))) (declare (not safe)) (##unchecked-structure-set! - __obj93239 - __tmp93656 + __obj93236 + __tmp93653 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj93239 + __obj93236 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2338,7 +2338,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93239 + __obj93236 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2346,7 +2346,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93239 + __obj93236 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2354,145 +2354,145 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93239 + __obj93236 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93662 |gx[1]#_g93663_|)) + (let ((__tmp93659 |gx[1]#_g93660_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93239 - __tmp93662 + __obj93236 + __tmp93659 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93664 |gx[1]#_g93665_|)) + (let ((__tmp93661 |gx[1]#_g93662_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93239 - __tmp93664 + __obj93236 + __tmp93661 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93666 |gx[1]#_g93667_|)) + (let ((__tmp93663 |gx[1]#_g93664_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93239 - __tmp93666 + __obj93236 + __tmp93663 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93668 - (let ((__tmp93677 - (let ((__tmp93678 |gx[1]#_g93679_|)) + (let ((__tmp93665 + (let ((__tmp93674 + (let ((__tmp93675 |gx[1]#_g93676_|)) (declare (not safe)) - (cons 'context __tmp93678))) - (__tmp93669 - (let ((__tmp93674 - (let ((__tmp93675 |gx[1]#_g93676_|)) + (cons 'context __tmp93675))) + (__tmp93666 + (let ((__tmp93671 + (let ((__tmp93672 |gx[1]#_g93673_|)) (declare (not safe)) - (cons 'phi __tmp93675))) - (__tmp93670 - (let ((__tmp93671 - (let ((__tmp93672 |gx[1]#_g93673_|)) + (cons 'phi __tmp93672))) + (__tmp93667 + (let ((__tmp93668 + (let ((__tmp93669 |gx[1]#_g93670_|)) (declare (not safe)) - (cons 'e __tmp93672)))) + (cons 'e __tmp93669)))) (declare (not safe)) - (cons __tmp93671 '())))) + (cons __tmp93668 '())))) (declare (not safe)) - (cons __tmp93674 __tmp93670)))) + (cons __tmp93671 __tmp93667)))) (declare (not safe)) - (cons __tmp93677 __tmp93669)))) + (cons __tmp93674 __tmp93666)))) (declare (not safe)) (##unchecked-structure-set! - __obj93239 - __tmp93668 + __obj93236 + __tmp93665 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93680 - (let ((__tmp93689 - (let ((__tmp93690 |gx[1]#_g93691_|)) + (let ((__tmp93677 + (let ((__tmp93686 + (let ((__tmp93687 |gx[1]#_g93688_|)) (declare (not safe)) - (cons 'context __tmp93690))) - (__tmp93681 - (let ((__tmp93686 - (let ((__tmp93687 |gx[1]#_g93688_|)) + (cons 'context __tmp93687))) + (__tmp93678 + (let ((__tmp93683 + (let ((__tmp93684 |gx[1]#_g93685_|)) (declare (not safe)) - (cons 'phi __tmp93687))) - (__tmp93682 - (let ((__tmp93683 - (let ((__tmp93684 |gx[1]#_g93685_|)) + (cons 'phi __tmp93684))) + (__tmp93679 + (let ((__tmp93680 + (let ((__tmp93681 |gx[1]#_g93682_|)) (declare (not safe)) - (cons 'e __tmp93684)))) + (cons 'e __tmp93681)))) (declare (not safe)) - (cons __tmp93683 '())))) + (cons __tmp93680 '())))) (declare (not safe)) - (cons __tmp93686 __tmp93682)))) + (cons __tmp93683 __tmp93679)))) (declare (not safe)) - (cons __tmp93689 __tmp93681)))) + (cons __tmp93686 __tmp93678)))) (declare (not safe)) (##unchecked-structure-set! - __obj93239 - __tmp93680 + __obj93236 + __tmp93677 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93692 - (let ((__tmp93701 - (let ((__tmp93702 |gx[1]#_g93703_|)) + (let ((__tmp93689 + (let ((__tmp93698 + (let ((__tmp93699 |gx[1]#_g93700_|)) (declare (not safe)) - (cons 'context __tmp93702))) - (__tmp93693 - (let ((__tmp93698 - (let ((__tmp93699 |gx[1]#_g93700_|)) + (cons 'context __tmp93699))) + (__tmp93690 + (let ((__tmp93695 + (let ((__tmp93696 |gx[1]#_g93697_|)) (declare (not safe)) - (cons 'phi __tmp93699))) - (__tmp93694 - (let ((__tmp93695 - (let ((__tmp93696 |gx[1]#_g93697_|)) + (cons 'phi __tmp93696))) + (__tmp93691 + (let ((__tmp93692 + (let ((__tmp93693 |gx[1]#_g93694_|)) (declare (not safe)) - (cons 'e __tmp93696)))) + (cons 'e __tmp93693)))) (declare (not safe)) - (cons __tmp93695 '())))) + (cons __tmp93692 '())))) (declare (not safe)) - (cons __tmp93698 __tmp93694)))) + (cons __tmp93695 __tmp93691)))) (declare (not safe)) - (cons __tmp93701 __tmp93693)))) + (cons __tmp93698 __tmp93690)))) (declare (not safe)) (##unchecked-structure-set! - __obj93239 - __tmp93692 + __obj93236 + __tmp93689 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93704 - (let ((__tmp93713 - (let ((__tmp93714 |gx[1]#_g93715_|)) + (let ((__tmp93701 + (let ((__tmp93710 + (let ((__tmp93711 |gx[1]#_g93712_|)) (declare (not safe)) - (cons 'context __tmp93714))) - (__tmp93705 - (let ((__tmp93710 - (let ((__tmp93711 |gx[1]#_g93712_|)) + (cons 'context __tmp93711))) + (__tmp93702 + (let ((__tmp93707 + (let ((__tmp93708 |gx[1]#_g93709_|)) (declare (not safe)) - (cons 'phi __tmp93711))) - (__tmp93706 - (let ((__tmp93707 - (let ((__tmp93708 |gx[1]#_g93709_|)) + (cons 'phi __tmp93708))) + (__tmp93703 + (let ((__tmp93704 + (let ((__tmp93705 |gx[1]#_g93706_|)) (declare (not safe)) - (cons 'e __tmp93708)))) + (cons 'e __tmp93705)))) (declare (not safe)) - (cons __tmp93707 '())))) + (cons __tmp93704 '())))) (declare (not safe)) - (cons __tmp93710 __tmp93706)))) + (cons __tmp93707 __tmp93703)))) (declare (not safe)) - (cons __tmp93713 __tmp93705)))) + (cons __tmp93710 __tmp93702)))) (declare (not safe)) (##unchecked-structure-set! - __obj93239 - __tmp93704 + __obj93236 + __tmp93701 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj93239)))) + __obj93236)))) diff --git a/src/bootstrap/gerbil/expander/root__0.scm b/src/bootstrap/gerbil/expander/root__0.scm index bad1fd30..d90d9086 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 1709128372) + (define gerbil/expander/root::timestamp 1709229970) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -262,582 +262,582 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (define gx#root-context:::init!__% - (lambda (_self95912_ _bind?95913_) - (if (##fx< '2 (##structure-length _self95912_)) + (lambda (_self95909_ _bind?95910_) + (if (##fx< '2 (##structure-length _self95909_)) (begin (##unchecked-structure-set! - _self95912_ + _self95909_ 'root '1 - (##structure-type _self95912_) + (##structure-type _self95909_) '#f) (##unchecked-structure-set! - _self95912_ + _self95909_ (make-hash-table-eq) '2 - (##structure-type _self95912_) + (##structure-type _self95909_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self95912_ + _self95909_ '2 - (##vector-length _self95912_))) - (if _bind?95913_ + (##vector-length _self95909_))) + (if _bind?95910_ (begin - (let ((__method95964 - (method-ref _self95912_ 'bind-core-syntax-expanders!))) - (if __method95964 - (__method95964 _self95912_) + (let ((__method95961 + (method-ref _self95909_ 'bind-core-syntax-expanders!))) + (if __method95961 + (__method95961 _self95909_) (error '"Missing method" - _self95912_ + _self95909_ 'bind-core-syntax-expanders!))) - (let ((__method95965 - (method-ref _self95912_ 'bind-core-macro-expanders!))) - (if __method95965 - (__method95965 _self95912_) + (let ((__method95962 + (method-ref _self95909_ 'bind-core-macro-expanders!))) + (if __method95962 + (__method95962 _self95909_) (error '"Missing method" - _self95912_ + _self95909_ 'bind-core-macro-expanders!))) - (let ((__method95966 - (method-ref _self95912_ 'bind-core-features!))) - (if __method95966 - (__method95966 _self95912_) + (let ((__method95963 + (method-ref _self95909_ 'bind-core-features!))) + (if __method95963 + (__method95963 _self95909_) (error '"Missing method" - _self95912_ + _self95909_ 'bind-core-features!)))) '#!void))) (define gx#root-context:::init!__0 - (lambda (_self95918_) - (let ((_bind?95920_ '#t)) - (gx#root-context:::init!__% _self95918_ _bind?95920_)))) + (lambda (_self95915_) + (let ((_bind?95917_ '#t)) + (gx#root-context:::init!__% _self95915_ _bind?95917_)))) (define gx#root-context:::init! - (lambda _g95969_ - (let ((_g95968_ (##length _g95969_))) - (cond ((##fx= _g95968_ 1) - (apply (lambda (_self95918_) - (gx#root-context:::init!__0 _self95918_)) - _g95969_)) - ((##fx= _g95968_ 2) - (apply (lambda (_self95922_ _bind?95923_) + (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_) (gx#root-context:::init!__% - _self95922_ - _bind?95923_)) - _g95969_)) + _self95919_ + _bind?95920_)) + _g95966_)) (else (##raise-wrong-number-of-arguments-exception gx#root-context:::init! - _g95969_)))))) + _g95966_)))))) (define gx#root-context:::init!::specialize - (lambda (__klass95924 __method-table95925) - (let ((__bind-core-syntax-expanders!95926 + (lambda (__klass95921 __method-table95922) + (let ((__bind-core-features!95923 (make-promise (lambda () - (let ((__method95929 + (let ((__method95926 (symbolic-table-ref - __method-table95925 - 'bind-core-syntax-expanders! + __method-table95922 + 'bind-core-features! '#f))) - (if __method95929 - __method95929 - (error '"Missing method" - 'bind-core-syntax-expanders!)))))) - (__bind-core-macro-expanders!95927 + (if __method95926 + __method95926 + (error '"Missing method" 'bind-core-features!)))))) + (__bind-core-macro-expanders!95924 (make-promise (lambda () - (let ((__method95930 + (let ((__method95927 (symbolic-table-ref - __method-table95925 + __method-table95922 'bind-core-macro-expanders! '#f))) - (if __method95930 - __method95930 + (if __method95927 + __method95927 (error '"Missing method" 'bind-core-macro-expanders!)))))) - (__bind-core-features!95928 + (__bind-core-syntax-expanders!95925 (make-promise (lambda () - (let ((__method95931 + (let ((__method95928 (symbolic-table-ref - __method-table95925 - 'bind-core-features! + __method-table95922 + 'bind-core-syntax-expanders! '#f))) - (if __method95931 - __method95931 - (error '"Missing method" 'bind-core-features!))))))) - (let ((_opt-lambda9591095915_ - (lambda (_self95912_ _bind?95913_) - (if (##fx< '2 (##structure-length _self95912_)) + (if __method95928 + __method95928 + (error '"Missing method" + 'bind-core-syntax-expanders!))))))) + (let ((_opt-lambda9590795912_ + (lambda (_self95909_ _bind?95910_) + (if (##fx< '2 (##structure-length _self95909_)) (begin (##unchecked-structure-set! - _self95912_ + _self95909_ 'root '1 - (##structure-type _self95912_) + (##structure-type _self95909_) '#f) (##unchecked-structure-set! - _self95912_ + _self95909_ (make-hash-table-eq) '2 - (##structure-type _self95912_) + (##structure-type _self95909_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self95912_ + _self95909_ '2 - (##vector-length _self95912_))) - (if _bind?95913_ + (##vector-length _self95909_))) + (if _bind?95910_ (begin - ((force __bind-core-syntax-expanders!95926) - _self95912_) - ((force __bind-core-macro-expanders!95927) - _self95912_) - ((force __bind-core-features!95928) _self95912_)) + ((force __bind-core-syntax-expanders!95925) + _self95909_) + ((force __bind-core-macro-expanders!95924) + _self95909_) + ((force __bind-core-features!95923) _self95909_)) '#!void)))) - (lambda _g95971_ - (let ((_g95970_ (##length _g95971_))) - (cond ((##fx= _g95970_ 1) - (apply (lambda (_self95918_) - (let ((_bind?95920_ '#t)) - (_opt-lambda9591095915_ - _self95918_ - _bind?95920_))) - _g95971_)) - ((##fx= _g95970_ 2) - (apply (lambda (_self95922_ _bind?95923_) - (_opt-lambda9591095915_ - _self95922_ - _bind?95923_)) - _g95971_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g95971_))))))))) + _g95968_))))))))) (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 (_self95768_ _super95769_) - (let ((_super95777_ - (let ((_$e95771_ _super95769_)) - (if _$e95771_ - _$e95771_ - (let ((_$e95774_ (gx#core-context-root__0))) - (if _$e95774_ - _$e95774_ - (let ((__obj95967 + (lambda (_self95765_ _super95766_) + (let ((_super95774_ + (let ((_$e95768_ _super95766_)) + (if _$e95768_ + _$e95768_ + (let ((_$e95771_ (gx#core-context-root__0))) + (if _$e95771_ + _$e95771_ + (let ((__obj95964 (##structure gx#root-context::t '#f '#f))) - (gx#root-context:::init! __obj95967) - __obj95967))))))) - (if (##fx< '5 (##structure-length _self95768_)) + (gx#root-context:::init! __obj95964) + __obj95964))))))) + (if (##fx< '5 (##structure-length _self95765_)) (begin (##unchecked-structure-set! - _self95768_ + _self95765_ 'top '1 - (##structure-type _self95768_) + (##structure-type _self95765_) '#f) (##unchecked-structure-set! - _self95768_ + _self95765_ (make-hash-table-eq) '2 - (##structure-type _self95768_) + (##structure-type _self95765_) '#f) (##unchecked-structure-set! - _self95768_ - _super95777_ + _self95765_ + _super95774_ '3 - (##structure-type _self95768_) + (##structure-type _self95765_) '#f) (##unchecked-structure-set! - _self95768_ + _self95765_ '#f '4 - (##structure-type _self95768_) + (##structure-type _self95765_) '#f) (##unchecked-structure-set! - _self95768_ + _self95765_ '#f '5 - (##structure-type _self95768_) + (##structure-type _self95765_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self95768_ + _self95765_ '5 - (##vector-length _self95768_)))))) + (##vector-length _self95765_)))))) (define gx#top-context:::init!__0 - (lambda (_self95782_) - (let ((_super95784_ '#f)) - (gx#top-context:::init!__% _self95782_ _super95784_)))) + (lambda (_self95779_) + (let ((_super95781_ '#f)) + (gx#top-context:::init!__% _self95779_ _super95781_)))) (define gx#top-context:::init! - (lambda _g95973_ - (let ((_g95972_ (##length _g95973_))) - (cond ((##fx= _g95972_ 1) - (apply (lambda (_self95782_) - (gx#top-context:::init!__0 _self95782_)) - _g95973_)) - ((##fx= _g95972_ 2) - (apply (lambda (_self95786_ _super95787_) - (gx#top-context:::init!__% _self95786_ _super95787_)) - _g95973_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#top-context:::init! - _g95973_)))))) + _g95970_)))))) (bind-method!__% gx#top-context::t ':init! gx#top-context:::init! '#f) (define gx#expander-context::bind-core-syntax-expanders!__% - (lambda (_self95499_ _bindings95500_) + (lambda (_self95496_ _bindings95497_) (for-each - (lambda (_bind95502_) - (let* ((_bind9550395510_ _bind95502_) - (_E9550595514_ - (lambda () (error '"No clause matching" _bind9550395510_))) - (_K9550695623_ - (lambda (_rest95517_ _id95518_) + (lambda (_bind95499_) + (let* ((_bind9550095507_ _bind95499_) + (_E9550295511_ + (lambda () (error '"No clause matching" _bind9550095507_))) + (_K9550395620_ + (lambda (_rest95514_ _id95515_) (gx#core-context-put! - _self95499_ - _id95518_ + _self95496_ + _id95515_ (##structure gx#syntax-binding::t - _id95518_ - _id95518_ + _id95515_ + _id95515_ '#f - (let* ((_rest9551995530_ _rest95517_) - (_E9552195534_ + (let* ((_rest9551695527_ _rest95514_) + (_E9551895531_ (lambda () (error '"No clause matching" - _rest9551995530_))) - (_K9552295599_ - (lambda (_compiler95537_ - _expander95538_ - _key95539_) - ((let* ((_key9554095553_ _key95539_) - (_E9554695557_ + _rest9551695527_))) + (_K9551995596_ + (lambda (_compiler95534_ + _expander95535_ + _key95536_) + ((let* ((_key9553795550_ _key95536_) + (_E9554395554_ (lambda () (error '"No clause matching" - _key9554095553_)))) - (let ((_K9555195593_ + _key9553795550_)))) + (let ((_K9554895590_ (lambda () gx#make-top-special-form)) - (_K9555095586_ + (_K9554795583_ (lambda () gx#make-module-special-form)) - (_K9554995578_ + (_K9554695575_ (lambda () gx#make-definition-form)) - (_K9554895570_ + (_K9554595567_ (lambda () gx#make-special-form)) - (_K9554795562_ + (_K9554495559_ (lambda () gx#make-expression-form))) - (let* ((_try-match9554595565_ + (let* ((_try-match9554295562_ (lambda () - (if (##eq? _key9554095553_ + (if (##eq? _key9553795550_ 'expr:) - (_K9554795562_) - (_E9554695557_)))) - (_try-match9554495573_ + (_K9554495559_) + (_E9554395554_)))) + (_try-match9554195570_ (lambda () - (if (##eq? _key9554095553_ + (if (##eq? _key9553795550_ 'special:) - (_K9554895570_) - (_try-match9554595565_)))) - (_try-match9554395581_ + (_K9554595567_) + (_try-match9554295562_)))) + (_try-match9554095578_ (lambda () - (if (##eq? _key9554095553_ + (if (##eq? _key9553795550_ 'define:) - (_K9554995578_) - (_try-match9554495573_)))) - (_try-match9554295589_ + (_K9554695575_) + (_try-match9554195570_)))) + (_try-match9553995586_ (lambda () - (if (##eq? _key9554095553_ + (if (##eq? _key9553795550_ 'module:) - (_K9555095586_) - (_try-match9554395581_))))) - (if (##eq? _key9554095553_ 'top:) - (_K9555195593_) - (_try-match9554295589_))))) - _expander95538_ - _id95518_ - (let ((_$e95596_ _compiler95537_)) - (if _$e95596_ - _$e95596_ + (_K9554795583_) + (_try-match9554095578_))))) + (if (##eq? _key9553795550_ 'top:) + (_K9554895590_) + (_try-match9553995586_))))) + _expander95535_ + _id95515_ + (let ((_$e95593_ _compiler95534_)) + (if _$e95593_ + _$e95593_ gx#core-compile-top-error)))))) - (if (##pair? _rest9551995530_) - (let ((_hd9552395602_ (##car _rest9551995530_)) - (_tl9552495604_ (##cdr _rest9551995530_))) - (let ((_key95607_ _hd9552395602_)) - (if (##pair? _tl9552495604_) - (let ((_hd9552595609_ - (##car _tl9552495604_)) - (_tl9552695611_ - (##cdr _tl9552495604_))) - (let ((_expander95614_ _hd9552595609_)) - (if (##pair? _tl9552695611_) - (let ((_hd9552795616_ - (##car _tl9552695611_)) - (_tl9552895618_ - (##cdr _tl9552695611_))) - (let ((_compiler95621_ - _hd9552795616_)) - (if (##null? _tl9552895618_) - (_K9552295599_ - _compiler95621_ - _expander95614_ - _key95607_) - (_E9552195534_)))) - (_E9552195534_)))) - (_E9552195534_)))) - (_E9552195534_)))))))) - (if (##pair? _bind9550395510_) - (let ((_hd9550795626_ (##car _bind9550395510_)) - (_tl9550895628_ (##cdr _bind9550395510_))) - (let* ((_id95631_ _hd9550795626_) - (_rest95633_ _tl9550895628_)) - (_K9550695623_ _rest95633_ _id95631_))) - (_E9550595514_)))) - _bindings95500_))) + (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_))) (define gx#expander-context::bind-core-syntax-expanders!__0 - (lambda (_self95638_) - (let ((_bindings95640_ gx#*core-syntax-expanders*)) + (lambda (_self95635_) + (let ((_bindings95637_ gx#*core-syntax-expanders*)) (gx#expander-context::bind-core-syntax-expanders!__% - _self95638_ - _bindings95640_)))) + _self95635_ + _bindings95637_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g95975_ - (let ((_g95974_ (##length _g95975_))) - (cond ((##fx= _g95974_ 1) - (apply (lambda (_self95638_) + (lambda _g95972_ + (let ((_g95971_ (##length _g95972_))) + (cond ((##fx= _g95971_ 1) + (apply (lambda (_self95635_) (gx#expander-context::bind-core-syntax-expanders!__0 - _self95638_)) - _g95975_)) - ((##fx= _g95974_ 2) - (apply (lambda (_self95642_ _bindings95643_) + _self95635_)) + _g95972_)) + ((##fx= _g95971_ 2) + (apply (lambda (_self95639_ _bindings95640_) (gx#expander-context::bind-core-syntax-expanders!__% - _self95642_ - _bindings95643_)) - _g95975_)) + _self95639_ + _bindings95640_)) + _g95972_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-syntax-expanders! - _g95975_)))))) + _g95972_)))))) (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 (_self95271_ _bindings95272_) + (lambda (_self95268_ _bindings95269_) (for-each - (lambda (_bind95274_) - (let* ((_bind9527595282_ _bind95274_) - (_E9527795286_ - (lambda () (error '"No clause matching" _bind9527595282_))) - (_K9527895354_ - (lambda (_rest95289_ _id95290_) + (lambda (_bind95271_) + (let* ((_bind9527295279_ _bind95271_) + (_E9527495283_ + (lambda () (error '"No clause matching" _bind9527295279_))) + (_K9527595351_ + (lambda (_rest95286_ _id95287_) (gx#core-context-put! - _self95271_ - _id95290_ + _self95268_ + _id95287_ (##structure gx#syntax-binding::t - _id95290_ - _id95290_ + _id95287_ + _id95287_ '#f - (let* ((_rest9529195306_ _rest95289_) - (_E9529595310_ + (let* ((_rest9528895303_ _rest95286_) + (_E9529295307_ (lambda () (error '"No clause matching" - _rest9529195306_)))) - (let ((_K9530095339_ - (lambda (_core-id95337_) + _rest9528895303_)))) + (let ((_K9529795336_ + (lambda (_core-id95334_) (##structure gx#rename-macro-expander::t - _core-id95337_))) - (_K9529795324_ - (lambda (_proc95322_) + _core-id95334_))) + (_K9529495321_ + (lambda (_proc95319_) (##structure gx#macro-expander::t - _proc95322_))) - (_K9529695315_ + _proc95319_))) + (_K9529395312_ (lambda () (##structure gx#reserved-expander::t - _id95290_)))) - (let ((_try-match9529495318_ + _id95287_)))) + (let ((_try-match9529195315_ (lambda () - (if (##null? _rest9529195306_) - (_K9529695315_) - (_E9529595310_))))) - (if (##pair? _rest9529195306_) - (let ((_tl9530295344_ - (##cdr _rest9529195306_)) - (_hd9530195342_ - (##car _rest9529195306_))) - (if (##eq? _hd9530195342_ '=>) - (if (##pair? _tl9530295344_) - (let ((_tl9530495349_ - (##cdr _tl9530295344_)) - (_hd9530395347_ - (##car _tl9530295344_))) - (if (##null? _tl9530495349_) - (let ((_core-id95352_ - _hd9530395347_)) + (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_)) (##structure gx#rename-macro-expander::t - _core-id95352_)) - (_E9529595310_))) - (if (##null? _tl9530295344_) - (let ((_proc95332_ - _hd9530195342_)) + _core-id95349_)) + (_E9529295307_))) + (if (##null? _tl9529995341_) + (let ((_proc95329_ + _hd9529895339_)) (##structure gx#macro-expander::t - _proc95332_)) - (_E9529595310_))) - (if (##null? _tl9530295344_) - (let ((_proc95332_ _hd9530195342_)) + _proc95329_)) + (_E9529295307_))) + (if (##null? _tl9529995341_) + (let ((_proc95329_ _hd9529895339_)) (##structure gx#macro-expander::t - _proc95332_)) - (_E9529595310_)))) - (_try-match9529495318_)))))))))) - (if (##pair? _bind9527595282_) - (let ((_hd9527995357_ (##car _bind9527595282_)) - (_tl9528095359_ (##cdr _bind9527595282_))) - (let* ((_id95362_ _hd9527995357_) - (_rest95364_ _tl9528095359_)) - (_K9527895354_ _rest95364_ _id95362_))) - (_E9527795286_)))) - _bindings95272_))) + _proc95329_)) + (_E9529295307_)))) + (_try-match9529195315_)))))))))) + (if (##pair? _bind9527295279_) + (let ((_hd9527695354_ (##car _bind9527295279_)) + (_tl9527795356_ (##cdr _bind9527295279_))) + (let* ((_id95359_ _hd9527695354_) + (_rest95361_ _tl9527795356_)) + (_K9527595351_ _rest95361_ _id95359_))) + (_E9527495283_)))) + _bindings95269_))) (define gx#expander-context::bind-core-macro-expanders!__0 - (lambda (_self95369_) - (let ((_bindings95371_ gx#*core-macro-expanders*)) + (lambda (_self95366_) + (let ((_bindings95368_ gx#*core-macro-expanders*)) (gx#expander-context::bind-core-macro-expanders!__% - _self95369_ - _bindings95371_)))) + _self95366_ + _bindings95368_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g95977_ - (let ((_g95976_ (##length _g95977_))) - (cond ((##fx= _g95976_ 1) - (apply (lambda (_self95369_) + (lambda _g95974_ + (let ((_g95973_ (##length _g95974_))) + (cond ((##fx= _g95973_ 1) + (apply (lambda (_self95366_) (gx#expander-context::bind-core-macro-expanders!__0 - _self95369_)) - _g95977_)) - ((##fx= _g95976_ 2) - (apply (lambda (_self95373_ _bindings95374_) + _self95366_)) + _g95974_)) + ((##fx= _g95973_ 2) + (apply (lambda (_self95370_ _bindings95371_) (gx#expander-context::bind-core-macro-expanders!__% - _self95373_ - _bindings95374_)) - _g95977_)) + _self95370_ + _bindings95371_)) + _g95974_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-macro-expanders! - _g95977_)))))) + _g95974_)))))) (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 (_self95015_) - (letrec ((_linux-variant?95017_ - (lambda (_sys-type95116_) - (let* ((_g9511795125_ + (lambda (_self95012_) + (letrec ((_linux-variant?95014_ + (lambda (_sys-type95113_) + (let* ((_g9511495122_ (string-split - (symbol->string _sys-type95116_) + (symbol->string _sys-type95113_) '#\-)) - (_else9511995133_ (lambda () '#f)) - (_K9512195138_ - (lambda (_rest95136_) (not (null? _rest95136_))))) - (if (##pair? _g9511795125_) - (let ((_hd9512295141_ (##car _g9511795125_)) - (_tl9512395143_ (##cdr _g9511795125_))) - (if (equal? _hd9512295141_ '"linux") - (let ((_rest95146_ _tl9512395143_)) - (_K9512195138_ _rest95146_)) - (_else9511995133_))) - (_else9511995133_))))) - (_bsd-variant95018_ - (lambda (_sys-type95075_) - (let ((_sys-type-str95077_ - (symbol->string _sys-type95075_))) - (let _lp95079_ ((_rest95081_ + (_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_ '("openbsd" "netbsd" "freebsd" "darwin"))) - (let* ((_rest9508295090_ _rest95081_) - (_else9508495098_ (lambda () '#f)) - (_K9508695104_ - (lambda (_rest95101_ _sys95102_) + (let* ((_rest9507995087_ _rest95078_) + (_else9508195095_ (lambda () '#f)) + (_K9508395101_ + (lambda (_rest95098_ _sys95099_) (if (string-prefix? - _sys95102_ - _sys-type-str95077_) - _sys95102_ - (_lp95079_ _rest95101_))))) - (if (##pair? _rest9508295090_) - (let ((_hd9508795107_ (##car _rest9508295090_)) - (_tl9508895109_ (##cdr _rest9508295090_))) - (let* ((_sys95112_ _hd9508795107_) - (_rest95114_ _tl9508895109_)) - (_K9508695104_ _rest95114_ _sys95112_))) - (_else9508495098_)))))))) - (gx#core-bind-feature!__% 'gerbil '#f '0 _self95015_) - (gx#core-bind-feature!__% (gerbil-system) '#f '0 _self95015_) - (let* ((_g9501995031_ (system-type)) - (_else9502195039_ (lambda () '#!void)) - (_K9502395051_ - (lambda (_sys-type95042_ _sys-vendor95043_ _sys-cpu95044_) + _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_) (gx#core-bind-feature!__% - _sys-cpu95044_ + _sys-cpu95041_ '#f '0 - _self95015_) + _self95012_) (gx#core-bind-feature!__% - _sys-type95042_ + _sys-type95039_ '#f '0 - _self95015_) - (if (_linux-variant?95017_ _sys-type95042_) + _self95012_) + (if (_linux-variant?95014_ _sys-type95039_) (gx#core-bind-feature!__% (string->symbol '"linux") '#f '0 - _self95015_) - (let ((_$e95046_ (_bsd-variant95018_ _sys-type95042_))) - (if _$e95046_ - ((lambda (_sys-prefix95049_) + _self95012_) + (let ((_$e95043_ (_bsd-variant95015_ _sys-type95039_))) + (if _$e95043_ + ((lambda (_sys-prefix95046_) (gx#core-bind-feature!__% (string->symbol '"bsd") '#f '0 - _self95015_) + _self95012_) (gx#core-bind-feature!__% - (string->symbol _sys-prefix95049_) + (string->symbol _sys-prefix95046_) '#f '0 - _self95015_)) - _$e95046_) + _self95012_)) + _$e95043_) '#!void)))))) - (if (##pair? _g9501995031_) - (let ((_hd9502495054_ (##car _g9501995031_)) - (_tl9502595056_ (##cdr _g9501995031_))) - (let ((_sys-cpu95059_ _hd9502495054_)) - (if (##pair? _tl9502595056_) - (let ((_hd9502695061_ (##car _tl9502595056_)) - (_tl9502795063_ (##cdr _tl9502595056_))) - (let ((_sys-vendor95066_ _hd9502695061_)) - (if (##pair? _tl9502795063_) - (let ((_hd9502895068_ (##car _tl9502795063_)) - (_tl9502995070_ (##cdr _tl9502795063_))) - (let ((_sys-type95073_ _hd9502895068_)) - (if (##null? _tl9502995070_) - (_K9502395051_ - _sys-type95073_ - _sys-vendor95066_ - _sys-cpu95059_) + (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_) '#!void))) '#!void))) '#!void))) '#!void)) (if (gerbil-runtime-smp?) - (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _self95015_) + (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _self95012_) '#!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 93a5354b..635548b1 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 1709128371) + (define gerbil/expander/stx::timestamp 1709229970) (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 _$args81466_ - (apply make-instance gx#identifier-wrap::t _$args81466_))) + (lambda _$args81463_ + (apply make-instance gx#identifier-wrap::t _$args81463_))) (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 _$args81463_ - (apply make-instance gx#syntax-wrap::t _$args81463_))) + (lambda _$args81460_ + (apply make-instance gx#syntax-wrap::t _$args81460_))) (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 _$args81460_ - (apply make-instance gx#syntax-quote::t _$args81460_))) + (lambda _$args81457_ + (apply make-instance gx#syntax-quote::t _$args81457_))) (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 (_stx81458_) (symbol? (gx#stx-e _stx81458_)))) + (lambda (_stx81455_) (symbol? (gx#stx-e _stx81455_)))) (define gx#identifier-quote? - (lambda (_stx81456_) - (if (##structure-direct-instance-of? _stx81456_ 'gx#syntax-quote::t) - (symbol? (##unchecked-structure-ref _stx81456_ '1 gx#AST::t '#f)) + (lambda (_stx81453_) + (if (##structure-direct-instance-of? _stx81453_ 'gx#syntax-quote::t) + (symbol? (##unchecked-structure-ref _stx81453_ '1 gx#AST::t '#f)) '#f))) (define gx#sealed-syntax? - (lambda (_stx81454_) - (if (##structure-direct-instance-of? _stx81454_ 'gx#syntax-quote::t) + (lambda (_stx81451_) + (if (##structure-direct-instance-of? _stx81451_ 'gx#syntax-quote::t) '#t - (if (##structure-direct-instance-of? _stx81454_ 'gx#syntax-wrap::t) + (if (##structure-direct-instance-of? _stx81451_ 'gx#syntax-wrap::t) (gx#sealed-syntax? - (##unchecked-structure-ref _stx81454_ '1 gx#AST::t '#f)) + (##unchecked-structure-ref _stx81451_ '1 gx#AST::t '#f)) '#f)))) (define gx#sealed-syntax-unwrap - (lambda (_stx81452_) - (if (##structure-direct-instance-of? _stx81452_ 'gx#syntax-quote::t) - _stx81452_ - (if (##structure-direct-instance-of? _stx81452_ 'gx#syntax-wrap::t) + (lambda (_stx81449_) + (if (##structure-direct-instance-of? _stx81449_ 'gx#syntax-quote::t) + _stx81449_ + (if (##structure-direct-instance-of? _stx81449_ 'gx#syntax-wrap::t) (gx#sealed-syntax-unwrap - (##unchecked-structure-ref _stx81452_ '1 gx#AST::t '#f)) + (##unchecked-structure-ref _stx81449_ '1 gx#AST::t '#f)) '#f)))) (define gx#syntax-e - (lambda (_stx81435_) - (if (##structure-direct-instance-of? _stx81435_ 'gx#syntax-wrap::t) - (let _lp81437_ ((_e81439_ + (lambda (_stx81432_) + (if (##structure-direct-instance-of? _stx81432_ 'gx#syntax-wrap::t) + (let _lp81434_ ((_e81436_ (##unchecked-structure-ref - _stx81435_ + _stx81432_ '1 gx#AST::t '#f)) - (_marks81440_ + (_marks81437_ (cons (##unchecked-structure-ref - _stx81435_ + _stx81432_ '3 gx#syntax-wrap::t '#f) '()))) - (if (##structure? _e81439_) - (let ((_$e81442_ (##type-id (##structure-type _e81439_)))) - (if (eq? 'gx#syntax-wrap::t _$e81442_) - (_lp81437_ - (##unchecked-structure-ref _e81439_ '1 gx#AST::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) (gx#apply-mark (##unchecked-structure-ref - _e81439_ + _e81436_ '3 gx#syntax-wrap::t '#f) - _marks81440_)) - (if (or (eq? 'gx#syntax-quote::t _$e81442_) - (eq? 'gx#identifier-wrap::t _$e81442_)) + _marks81437_)) + (if (or (eq? 'gx#syntax-quote::t _$e81439_) + (eq? 'gx#identifier-wrap::t _$e81439_)) (##unchecked-structure-ref - _e81439_ + _e81436_ '1 gx#AST::t '#f) - (if (eq? 'gerbil#AST::t _$e81442_) - (_lp81437_ + (if (eq? 'gerbil#AST::t _$e81439_) + (_lp81434_ (##unchecked-structure-ref - _e81439_ + _e81436_ '1 gx#AST::t '#f) - _marks81440_) - _e81439_)))) - (if (null? _marks81440_) - _e81439_ - (if (pair? _e81439_) - (cons (gx#stx-wrap (car _e81439_) _marks81440_) - (gx#stx-wrap (cdr _e81439_) _marks81440_)) - (if (vector? _e81439_) + _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_) (vector-map - (lambda (_g8144781449_) - (gx#stx-wrap _g8144781449_ _marks81440_)) - _e81439_) - (if (box? _e81439_) + (lambda (_g8144481446_) + (gx#stx-wrap _g8144481446_ _marks81437_)) + _e81436_) + (if (box? _e81436_) (box (gx#stx-wrap - (unbox _e81439_) - _marks81440_)) - _e81439_)))))) - (if (##structure-instance-of? _stx81435_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx81435_ '1 gx#AST::t '#f) - _stx81435_)))) + (unbox _e81436_) + _marks81437_)) + _e81436_)))))) + (if (##structure-instance-of? _stx81432_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx81432_ '1 gx#AST::t '#f) + _stx81432_)))) (define gx#syntax->datum - (lambda (_stx81433_) - (if (##structure-instance-of? _stx81433_ 'gerbil#AST::t) + (lambda (_stx81430_) + (if (##structure-instance-of? _stx81430_ 'gerbil#AST::t) (gx#syntax->datum - (##unchecked-structure-ref _stx81433_ '1 gx#AST::t '#f)) - (if (pair? _stx81433_) - (cons (gx#syntax->datum (car _stx81433_)) - (gx#syntax->datum (cdr _stx81433_))) - (if (vector? _stx81433_) - (vector-map gx#syntax->datum _stx81433_) - (if (box? _stx81433_) - (box (gx#syntax->datum (unbox _stx81433_))) - _stx81433_)))))) + (##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_)))))) (define gx#datum->syntax__% - (lambda (_stx81376_ _datum81377_ _src81378_ _quote?81379_) - (letrec ((_wrap-datum81381_ - (lambda (_e81405_ _marks81406_) - (_wrap-inner81383_ - _e81405_ - (lambda (_g8140781409_) + (lambda (_stx81373_ _datum81374_ _src81375_ _quote?81376_) + (letrec ((_wrap-datum81378_ + (lambda (_e81402_ _marks81403_) + (_wrap-inner81380_ + _e81402_ + (lambda (_g8140481406_) (##structure gx#identifier-wrap::t - _g8140781409_ - _src81378_ - _marks81406_))))) - (_wrap-quote81382_ - (lambda (_e81397_ _ctx81398_ _marks81399_) - (_wrap-inner81383_ - _e81397_ - (lambda (_g8140081402_) + _g8140481406_ + _src81375_ + _marks81403_))))) + (_wrap-quote81379_ + (lambda (_e81394_ _ctx81395_ _marks81396_) + (_wrap-inner81380_ + _e81394_ + (lambda (_g8139781399_) (##structure gx#syntax-quote::t - _g8140081402_ - _src81378_ - _ctx81398_ - _marks81399_))))) - (_wrap-inner81383_ - (lambda (_e81390_ _wrap-e81391_) - (let _recur81393_ ((_e81395_ _e81390_)) - (if (symbol? _e81395_) - (_wrap-e81391_ _e81395_) - (if (pair? _e81395_) - (cons (_recur81393_ (car _e81395_)) - (_recur81393_ (cdr _e81395_))) - (if (vector? _e81395_) - (vector-map _recur81393_ _e81395_) - (if (box? _e81395_) - (box (_recur81393_ (unbox _e81395_))) - _e81395_))))))) - (_wrap-outer81384_ - (lambda (_e81388_) - (if (##structure-instance-of? _e81388_ 'gerbil#AST::t) - _e81388_ - (##structure gx#AST::t _e81388_ _src81378_))))) - (if (##structure-instance-of? _datum81377_ 'gerbil#AST::t) - _datum81377_ - (if (not _stx81376_) - (##structure gx#AST::t _datum81377_ _src81378_) - (if (gx#identifier? _stx81376_) - (let ((_stx81386_ (gx#stx-unwrap__0 _stx81376_))) - (_wrap-outer81384_ + _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_ (if (##structure-direct-instance-of? - _stx81386_ + _stx81383_ 'gx#syntax-quote::t) - (if _quote?81379_ - (_wrap-quote81382_ - _datum81377_ + (if _quote?81376_ + (_wrap-quote81379_ + _datum81374_ (##unchecked-structure-ref - _stx81386_ + _stx81383_ '3 gx#syntax-quote::t '#f) (##unchecked-structure-ref - _stx81386_ + _stx81383_ '4 gx#syntax-quote::t '#f)) - (_wrap-datum81381_ - _datum81377_ + (_wrap-datum81378_ + _datum81374_ (##unchecked-structure-ref - _stx81386_ + _stx81383_ '4 gx#syntax-quote::t '#f))) - (_wrap-datum81381_ - _datum81377_ + (_wrap-datum81378_ + _datum81374_ (##unchecked-structure-ref - _stx81386_ + _stx81383_ '3 gx#identifier-wrap::t '#f))))) (error '"Bad template syntax; expected identifier" - _stx81376_))))))) + _stx81373_))))))) (define gx#datum->syntax__0 - (lambda (_stx81415_ _datum81416_) - (let* ((_src81418_ '#f) (_quote?81420_ '#t)) + (lambda (_stx81412_ _datum81413_) + (let* ((_src81415_ '#f) (_quote?81417_ '#t)) (gx#datum->syntax__% - _stx81415_ - _datum81416_ - _src81418_ - _quote?81420_)))) + _stx81412_ + _datum81413_ + _src81415_ + _quote?81417_)))) (define gx#datum->syntax__1 - (lambda (_stx81422_ _datum81423_ _src81424_) - (let ((_quote?81426_ '#t)) + (lambda (_stx81419_ _datum81420_ _src81421_) + (let ((_quote?81423_ '#t)) (gx#datum->syntax__% - _stx81422_ - _datum81423_ - _src81424_ - _quote?81426_)))) + _stx81419_ + _datum81420_ + _src81421_ + _quote?81423_)))) (define gx#datum->syntax - (lambda _g81547_ - (let ((_g81546_ (##length _g81547_))) - (cond ((##fx= _g81546_ 2) - (apply (lambda (_stx81415_ _datum81416_) - (gx#datum->syntax__0 _stx81415_ _datum81416_)) - _g81547_)) - ((##fx= _g81546_ 3) - (apply (lambda (_stx81422_ _datum81423_ _src81424_) + (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_) (gx#datum->syntax__1 - _stx81422_ - _datum81423_ - _src81424_)) - _g81547_)) - ((##fx= _g81546_ 4) - (apply (lambda (_stx81428_ - _datum81429_ - _src81430_ - _quote?81431_) + _stx81419_ + _datum81420_ + _src81421_)) + _g81544_)) + ((##fx= _g81543_ 4) + (apply (lambda (_stx81425_ + _datum81426_ + _src81427_ + _quote?81428_) (gx#datum->syntax__% - _stx81428_ - _datum81429_ - _src81430_ - _quote?81431_)) - _g81547_)) + _stx81425_ + _datum81426_ + _src81427_ + _quote?81428_)) + _g81544_)) (else (##raise-wrong-number-of-arguments-exception gx#datum->syntax - _g81547_)))))) + _g81544_)))))) (define gx#stx-unwrap__% - (lambda (_stx81352_ _marks81353_) - (let _lp81355_ ((_e81357_ _stx81352_) - (_marks81358_ _marks81353_) - (_src81359_ (gx#stx-source _stx81352_))) - (if (##structure-direct-instance-of? _e81357_ 'gx#syntax-wrap::t) - (_lp81355_ - (##unchecked-structure-ref _e81357_ '1 gx#AST::t '#f) + (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) (gx#apply-mark - (##unchecked-structure-ref _e81357_ '3 gx#syntax-wrap::t '#f) - _marks81358_) - (##unchecked-structure-ref _e81357_ '2 gx#AST::t '#f)) + (##unchecked-structure-ref _e81354_ '3 gx#syntax-wrap::t '#f) + _marks81355_) + (##unchecked-structure-ref _e81354_ '2 gx#AST::t '#f)) (if (##structure-direct-instance-of? - _e81357_ + _e81354_ 'gx#identifier-wrap::t) - (if (null? _marks81358_) - _e81357_ + (if (null? _marks81355_) + _e81354_ (##structure gx#identifier-wrap::t - (##unchecked-structure-ref _e81357_ '1 gx#AST::t '#f) - (##unchecked-structure-ref _e81357_ '2 gx#AST::t '#f) + (##unchecked-structure-ref _e81354_ '1 gx#AST::t '#f) + (##unchecked-structure-ref _e81354_ '2 gx#AST::t '#f) (foldl1 gx#apply-mark (##unchecked-structure-ref - _e81357_ + _e81354_ '3 gx#identifier-wrap::t '#f) - _marks81358_))) + _marks81355_))) (if (##structure-direct-instance-of? - _e81357_ + _e81354_ 'gx#syntax-quote::t) - _e81357_ - (if (##structure-instance-of? _e81357_ 'gerbil#AST::t) - (_lp81355_ + _e81354_ + (if (##structure-instance-of? _e81354_ 'gerbil#AST::t) + (_lp81352_ (##unchecked-structure-ref - _e81357_ + _e81354_ '1 gx#AST::t '#f) - _marks81358_ + _marks81355_ (##unchecked-structure-ref - _e81357_ + _e81354_ '2 gx#AST::t '#f)) - (if (symbol? _e81357_) + (if (symbol? _e81354_) (##structure gx#identifier-wrap::t - _e81357_ - _src81359_ - (reverse _marks81358_)) - (if (null? _marks81358_) - _e81357_ - (if (pair? _e81357_) + _e81354_ + _src81356_ + (reverse _marks81355_)) + (if (null? _marks81355_) + _e81354_ + (if (pair? _e81354_) (cons (gx#stx-wrap - (car _e81357_) - _marks81358_) + (car _e81354_) + _marks81355_) (gx#stx-wrap - (cdr _e81357_) - _marks81358_)) - (if (vector? _e81357_) + (cdr _e81354_) + _marks81355_)) + (if (vector? _e81354_) (vector-map - (lambda (_g8136081362_) + (lambda (_g8135781359_) (gx#stx-wrap - _g8136081362_ - _marks81358_)) - _e81357_) - (if (box? _e81357_) + _g8135781359_ + _marks81355_)) + _e81354_) + (if (box? _e81354_) (box (gx#stx-wrap - (unbox _e81357_) - _marks81358_)) - _e81357_)))))))))))) + (unbox _e81354_) + _marks81355_)) + _e81354_)))))))))))) (define gx#stx-unwrap__0 - (lambda (_stx81368_) - (let ((_marks81370_ '())) (gx#stx-unwrap__% _stx81368_ _marks81370_)))) + (lambda (_stx81365_) + (let ((_marks81367_ '())) (gx#stx-unwrap__% _stx81365_ _marks81367_)))) (define gx#stx-unwrap - (lambda _g81549_ - (let ((_g81548_ (##length _g81549_))) - (cond ((##fx= _g81548_ 1) - (apply (lambda (_stx81368_) (gx#stx-unwrap__0 _stx81368_)) - _g81549_)) - ((##fx= _g81548_ 2) - (apply (lambda (_stx81372_ _marks81373_) - (gx#stx-unwrap__% _stx81372_ _marks81373_)) - _g81549_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-unwrap - _g81549_)))))) + _g81546_)))))) (define gx#stx-wrap - (lambda (_stx81345_ _marks81346_) - (foldl1 (lambda (_mark81348_ _stx81349_) - (gx#stx-apply-mark _stx81349_ _mark81348_)) - _stx81345_ - _marks81346_))) + (lambda (_stx81342_ _marks81343_) + (foldl1 (lambda (_mark81345_ _stx81346_) + (gx#stx-apply-mark _stx81346_ _mark81345_)) + _stx81342_ + _marks81343_))) (define gx#stx-rewrap - (lambda (_stx81339_ _marks81340_) - (foldr1 (lambda (_mark81342_ _stx81343_) - (gx#stx-apply-mark _stx81343_ _mark81342_)) - _stx81339_ - _marks81340_))) + (lambda (_stx81336_ _marks81337_) + (foldr1 (lambda (_mark81339_ _stx81340_) + (gx#stx-apply-mark _stx81340_ _mark81339_)) + _stx81336_ + _marks81337_))) (define gx#stx-apply-mark - (lambda (_stx81336_ _mark81337_) - (if (##structure-direct-instance-of? _stx81336_ 'gx#syntax-quote::t) - _stx81336_ + (lambda (_stx81333_ _mark81334_) + (if (##structure-direct-instance-of? _stx81333_ 'gx#syntax-quote::t) + _stx81333_ (if (and (##structure-direct-instance-of? - _stx81336_ + _stx81333_ 'gx#syntax-wrap::t) - (eq? _mark81337_ + (eq? _mark81334_ (##unchecked-structure-ref - _stx81336_ + _stx81333_ '3 gx#syntax-wrap::t '#f))) - (##unchecked-structure-ref _stx81336_ '1 gx#AST::t '#f) + (##unchecked-structure-ref _stx81333_ '1 gx#AST::t '#f) (##structure gx#syntax-wrap::t - _stx81336_ - (gx#stx-source _stx81336_) - _mark81337_))))) + _stx81333_ + (gx#stx-source _stx81333_) + _mark81334_))))) (define gx#apply-mark - (lambda (_mark81300_ _marks81301_) - (let* ((_marks8130281310_ _marks81301_) - (_else8130481318_ (lambda () (cons _mark81300_ _marks81301_))) - (_K8130681324_ - (lambda (_rest81321_ _hd81322_) - (if (eq? _mark81300_ _hd81322_) - _rest81321_ - (cons _mark81300_ _marks81301_))))) - (if (##pair? _marks8130281310_) - (let ((_hd8130781327_ (##car _marks8130281310_)) - (_tl8130881329_ (##cdr _marks8130281310_))) - (let* ((_hd81332_ _hd8130781327_) (_rest81334_ _tl8130881329_)) - (_K8130681324_ _rest81334_ _hd81332_))) - (_else8130481318_))))) + (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_))))) (define gx#stx-e - (lambda (_stx81298_) - (if (##structure-direct-instance-of? _stx81298_ 'gx#syntax-wrap::t) - (gx#stx-e (##unchecked-structure-ref _stx81298_ '1 gx#AST::t '#f)) - (if (##structure-instance-of? _stx81298_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx81298_ '1 gx#AST::t '#f) - _stx81298_)))) + (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_)))) (define gx#stx-source - (lambda (_stx81296_) - (if (##structure-instance-of? _stx81296_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx81296_ '2 gx#AST::t '#f) + (lambda (_stx81293_) + (if (##structure-instance-of? _stx81293_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx81293_ '2 gx#AST::t '#f) '#f))) (define gx#stx-wrap-source - (lambda (_stx81290_ _src81291_) - (if (or (##structure-instance-of? _stx81290_ 'gerbil#AST::t) - (not _src81291_)) - _stx81290_ - (##structure gx#AST::t _stx81290_ _src81291_)))) + (lambda (_stx81287_ _src81288_) + (if (or (##structure-instance-of? _stx81287_ 'gerbil#AST::t) + (not _src81288_)) + _stx81287_ + (##structure gx#AST::t _stx81287_ _src81288_)))) (define gx#stx-datum? - (lambda (_stx81288_) (gx#self-quoting? (gx#stx-e _stx81288_)))) + (lambda (_stx81285_) (gx#self-quoting? (gx#stx-e _stx81285_)))) (define gx#self-quoting? - (lambda (_x81271_) - (let ((_$e81273_ (immediate? _x81271_))) - (if _$e81273_ - _$e81273_ - (let ((_$e81276_ (number? _x81271_))) - (if _$e81276_ - _$e81276_ - (let ((_$e81279_ (keyword? _x81271_))) - (if _$e81279_ - _$e81279_ - (let ((_$e81282_ (string? _x81271_))) - (if _$e81282_ - _$e81282_ - (let ((_$e81285_ (vector? _x81271_))) - (if _$e81285_ - _$e81285_ - (u8vector? _x81271_))))))))))))) - (define gx#stx-boolean? (lambda (_e81269_) (boolean? (gx#stx-e _e81269_)))) - (define gx#stx-keyword? (lambda (_e81267_) (keyword? (gx#stx-e _e81267_)))) - (define gx#stx-char? (lambda (_e81265_) (char? (gx#stx-e _e81265_)))) - (define gx#stx-number? (lambda (_e81263_) (number? (gx#stx-e _e81263_)))) - (define gx#stx-fixnum? (lambda (_e81261_) (fixnum? (gx#stx-e _e81261_)))) - (define gx#stx-string? (lambda (_e81259_) (string? (gx#stx-e _e81259_)))) - (define gx#stx-null? (lambda (_e81257_) (null? (gx#stx-e _e81257_)))) - (define gx#stx-pair? (lambda (_e81255_) (pair? (gx#stx-e _e81255_)))) + (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_)))) (define gx#stx-list? - (lambda (_e81217_) - (let* ((_g8121881227_ (gx#stx-e _e81217_)) - (_E8122181231_ - (lambda () (error '"No clause matching" _g8121881227_)))) - (let ((_K8122381247_ - (lambda (_rest81245_) (gx#stx-list? _rest81245_))) - (_K8122281237_ (lambda (_tail81235_) (null? _tail81235_)))) - (if (##pair? _g8121881227_) - (let* ((_tl8122581250_ (##cdr _g8121881227_)) - (_rest81253_ _tl8122581250_)) - (gx#stx-list? _rest81253_)) - (let ((_tail81240_ _g8121881227_)) (null? _tail81240_))))))) + (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_))))))) (define gx#stx-pair/null? - (lambda (_e81210_) - (let* ((_e81212_ (gx#stx-e _e81210_)) (_$e81214_ (pair? _e81212_))) - (if _$e81214_ _$e81214_ (null? _e81212_))))) - (define gx#stx-vector? (lambda (_e81208_) (vector? (gx#stx-e _e81208_)))) - (define gx#stx-box? (lambda (_e81206_) (box? (gx#stx-e _e81206_)))) + (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_)))) (define gx#stx-eq? - (lambda (_x81203_ _y81204_) - (eq? (gx#stx-e _x81203_) (gx#stx-e _y81204_)))) - (define gx#stx-eqv? (lambda (_x81200_ _y81201_) - (eqv? (gx#stx-e _x81200_) (gx#stx-e _y81201_)))) - (define gx#stx-equal? + (eq? (gx#stx-e _x81200_) (gx#stx-e _y81201_)))) + (define gx#stx-eqv? (lambda (_x81197_ _y81198_) - (equal? (gx#stx-e _x81197_) (gx#stx-e _y81198_)))) - (define gx#stx-false? (lambda (_x81195_) (not (gx#stx-e _x81195_)))) + (eqv? (gx#stx-e _x81197_) (gx#stx-e _y81198_)))) + (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_)))) (define gx#stx-identifier - (lambda (_template81192_ . _args81193_) + (lambda (_template81189_ . _args81190_) (gx#datum->syntax__1 - _template81192_ - (apply make-symbol (gx#syntax->datum _args81193_)) - (gx#stx-source _template81192_)))) + _template81189_ + (apply make-symbol (gx#syntax->datum _args81190_)) + (gx#stx-source _template81189_)))) (define gx#stx-identifier-marks - (lambda (_stx81190_) - (gx#stx-identifier-marks* (gx#stx-unwrap__0 _stx81190_)))) + (lambda (_stx81187_) + (gx#stx-identifier-marks* (gx#stx-unwrap__0 _stx81187_)))) (define gx#stx-identifier-marks* - (lambda (_stx81188_) - (if (##structure-direct-instance-of? _stx81188_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _stx81188_ '3 gx#identifier-wrap::t '#f) + (lambda (_stx81185_) + (if (##structure-direct-instance-of? _stx81185_ 'gx#identifier-wrap::t) + (##unchecked-structure-ref _stx81185_ '3 gx#identifier-wrap::t '#f) (if (##structure-direct-instance-of? - _stx81188_ + _stx81185_ 'gx#syntax-quote::t) (##unchecked-structure-ref - _stx81188_ + _stx81185_ '4 gx#syntax-quote::t '#f) (error '"Bad wrap; expected unwrapped identifier" - _stx81188_))))) + _stx81185_))))) (define gx#stx-identifier-context - (lambda (_stx81184_) - (let ((_stx81186_ (gx#stx-unwrap__0 _stx81184_))) - (if (gx#identifier-quote? _stx81186_) - (##unchecked-structure-ref _stx81186_ '3 gx#syntax-quote::t '#f) + (lambda (_stx81181_) + (let ((_stx81183_ (gx#stx-unwrap__0 _stx81181_))) + (if (gx#identifier-quote? _stx81183_) + (##unchecked-structure-ref _stx81183_ '3 gx#syntax-quote::t '#f) '#f)))) (define gx#identifier-list? - (lambda (_stx81139_) - (let* ((_g8114081150_ (gx#stx-e _stx81139_)) - (_else8114381158_ (lambda () '#f))) - (let ((_K8114681172_ - (lambda (_rest81169_ _hd81170_) - (if (gx#identifier? _hd81170_) - (gx#identifier-list? _rest81169_) + (lambda (_stx81136_) + (let* ((_g8113781147_ (gx#stx-e _stx81136_)) + (_else8114081155_ (lambda () '#f))) + (let ((_K8114381169_ + (lambda (_rest81166_ _hd81167_) + (if (gx#identifier? _hd81167_) + (gx#identifier-list? _rest81166_) '#f))) - (_K8114581163_ (lambda () '#t))) - (let ((_try-match8114281166_ + (_K8114281160_ (lambda () '#t))) + (let ((_try-match8113981163_ (lambda () - (if (##null? _g8114081150_) - (_K8114581163_) - (_else8114381158_))))) - (if (##pair? _g8114081150_) - (let ((_tl8114881177_ (##cdr _g8114081150_)) - (_hd8114781175_ (##car _g8114081150_))) - (let ((_hd81180_ _hd8114781175_) - (_rest81182_ _tl8114881177_)) - (_K8114681172_ _rest81182_ _hd81180_))) - (_try-match8114281166_))))))) + (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_))))))) (define gx#genident__% - (lambda (_e81116_ _src81117_) + (lambda (_e81113_ _src81114_) (gx#stx-wrap-source - (gensym (let ((_e81119_ (gx#stx-e _e81116_))) - (if (interned-symbol? _e81119_) _e81119_ 'g))) - (let ((_$e81121_ (gx#stx-source _e81116_))) - (if _$e81121_ _$e81121_ _src81117_))))) + (gensym (let ((_e81116_ (gx#stx-e _e81113_))) + (if (interned-symbol? _e81116_) _e81116_ 'g))) + (let ((_$e81118_ (gx#stx-source _e81113_))) + (if _$e81118_ _$e81118_ _src81114_))))) (define gx#genident__0 (lambda () - (let* ((_e81128_ 'g) (_src81130_ '#f)) - (gx#genident__% _e81128_ _src81130_)))) + (let* ((_e81125_ 'g) (_src81127_ '#f)) + (gx#genident__% _e81125_ _src81127_)))) (define gx#genident__1 - (lambda (_e81132_) - (let ((_src81134_ '#f)) (gx#genident__% _e81132_ _src81134_)))) + (lambda (_e81129_) + (let ((_src81131_ '#f)) (gx#genident__% _e81129_ _src81131_)))) (define gx#genident - (lambda _g81551_ - (let ((_g81550_ (##length _g81551_))) - (cond ((##fx= _g81550_ 0) - (apply (lambda () (gx#genident__0)) _g81551_)) - ((##fx= _g81550_ 1) - (apply (lambda (_e81132_) (gx#genident__1 _e81132_)) - _g81551_)) - ((##fx= _g81550_ 2) - (apply (lambda (_e81136_ _src81137_) - (gx#genident__% _e81136_ _src81137_)) - _g81551_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#genident - _g81551_)))))) + _g81548_)))))) (define gx#gentemps - (lambda (_stx-lst81113_) (gx#stx-map1 gx#genident _stx-lst81113_))) + (lambda (_stx-lst81110_) (gx#stx-map1 gx#genident _stx-lst81110_))) (define gx#syntax->list - (lambda (_stx81111_) (gx#stx-map1 values _stx81111_))) + (lambda (_stx81108_) (gx#stx-map1 values _stx81108_))) (define gx#stx-car - (lambda (_stx81108_) + (lambda (_stx81105_) (declare (safe)) - (car (let () (declare (not safe)) (gx#syntax-e _stx81108_))))) + (car (let () (declare (not safe)) (gx#syntax-e _stx81105_))))) (define gx#stx-cdr - (lambda (_stx81105_) + (lambda (_stx81102_) (declare (safe)) - (cdr (let () (declare (not safe)) (gx#syntax-e _stx81105_))))) + (cdr (let () (declare (not safe)) (gx#syntax-e _stx81102_))))) (define gx#stx-length - (lambda (_stx81070_) - (let _lp81072_ ((_rest81074_ _stx81070_) (_n81075_ '0)) - (let* ((_g8107681084_ (gx#stx-e _rest81074_)) - (_else8107881092_ (lambda () _n81075_)) - (_K8108081097_ - (lambda (_rest81095_) - (_lp81072_ _rest81095_ (fx+ _n81075_ '1))))) - (if (##pair? _g8107681084_) - (let* ((_tl8108281100_ (##cdr _g8107681084_)) - (_rest81103_ _tl8108281100_)) - (_K8108081097_ _rest81103_)) - (_else8107881092_)))))) + (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_)))))) (define gx#stx-for-each - (lambda _g81553_ - (let ((_g81552_ (##length _g81553_))) - (cond ((##fx= _g81552_ 2) - (apply (lambda (_f81063_ _stx81064_) - (gx#stx-for-each1 _f81063_ _stx81064_)) - _g81553_)) - ((##fx= _g81552_ 3) - (apply (lambda (_f81066_ _xstx81067_ _ystx81068_) - (gx#stx-for-each2 _f81066_ _xstx81067_ _ystx81068_)) - _g81553_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-for-each - _g81553_)))))) + _g81550_)))))) (define gx#stx-for-each1 - (lambda (_f81013_ _stx81014_) - (if (procedure? _f81013_) + (lambda (_f81010_ _stx81011_) + (if (procedure? _f81010_) '#!void - (error '"expected procedure" _f81013_)) - (let _lp81016_ ((_rest81018_ _stx81014_)) - (let* ((_g8101981029_ (gx#syntax-e _rest81018_)) - (_else8102281037_ (lambda () (_f81013_ _rest81018_)))) - (let ((_K8102581051_ - (lambda (_rest81048_ _hd81049_) - (_f81013_ _hd81049_) - (_lp81016_ _rest81048_))) - (_K8102481042_ (lambda () '#!void))) - (let ((_try-match8102181045_ + (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_ (lambda () - (if (##null? _g8101981029_) - (_K8102481042_) - (_else8102281037_))))) - (if (##pair? _g8101981029_) - (let ((_tl8102781056_ (##cdr _g8101981029_)) - (_hd8102681054_ (##car _g8101981029_))) - (let ((_hd81059_ _hd8102681054_) - (_rest81061_ _tl8102781056_)) - (_K8102581051_ _rest81061_ _hd81059_))) - (_try-match8102181045_)))))))) + (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_)))))))) (define gx#stx-for-each2 - (lambda (_f80918_ _xstx80919_ _ystx80920_) - (if (procedure? _f80918_) + (lambda (_f80915_ _xstx80916_ _ystx80917_) + (if (procedure? _f80915_) '#!void - (error '"expected procedure" _f80918_)) - (let _lp80922_ ((_xrest80924_ _xstx80919_) (_yrest80925_ _ystx80920_)) - (let* ((_g8092680936_ (gx#syntax-e _xrest80924_)) - (_else8092980944_ (lambda () '#!void))) - (let ((_K8093281001_ - (lambda (_xrest80970_ _xhd80971_) - (let* ((_g8097280979_ (gx#syntax-e _yrest80925_)) - (_E8097480983_ + (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_ (lambda () - (error '"No clause matching" _g8097280979_))) - (_K8097580989_ - (lambda (_yrest80986_ _yhd80987_) - (_f80918_ _xhd80971_ _yhd80987_) - (_lp80922_ _xrest80970_ _yrest80986_)))) - (if (##pair? _g8097280979_) - (let ((_hd8097680992_ (##car _g8097280979_)) - (_tl8097780994_ (##cdr _g8097280979_))) - (let* ((_yhd80997_ _hd8097680992_) - (_yrest80999_ _tl8097780994_)) - (_K8097580989_ _yrest80999_ _yhd80997_))) - (_E8097480983_))))) - (_K8093180964_ + (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_ (lambda () - (let* ((_yrest8094880953_ _yrest80925_) - (_E8095080957_ + (let* ((_yrest8094580950_ _yrest80922_) + (_E8094780954_ (lambda () (error '"No clause matching" - _yrest8094880953_))) - (_K8095180961_ - (lambda () (_f80918_ _xrest80924_ _yrest80925_)))) - (if (not (gx#stx-null? _yrest8094880953_)) - (_K8095180961_) - (_E8095080957_)))))) - (let ((_try-match8092880967_ + _yrest8094580950_))) + (_K8094880958_ + (lambda () (_f80915_ _xrest80921_ _yrest80922_)))) + (if (not (gx#stx-null? _yrest8094580950_)) + (_K8094880958_) + (_E8094780954_)))))) + (let ((_try-match8092580964_ (lambda () - (if (not (null? _g8092680936_)) - (_K8093180964_) - (_else8092980944_))))) - (if (##pair? _g8092680936_) - (let ((_tl8093481006_ (##cdr _g8092680936_)) - (_hd8093381004_ (##car _g8092680936_))) - (let ((_xhd81009_ _hd8093381004_) - (_xrest81011_ _tl8093481006_)) - (_K8093281001_ _xrest81011_ _xhd81009_))) - (_try-match8092880967_)))))))) + (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_)))))))) (define gx#stx-map - (lambda _g81555_ - (let ((_g81554_ (##length _g81555_))) - (cond ((##fx= _g81554_ 2) - (apply (lambda (_f80911_ _stx80912_) - (gx#stx-map1 _f80911_ _stx80912_)) - _g81555_)) - ((##fx= _g81554_ 3) - (apply (lambda (_f80914_ _xstx80915_ _ystx80916_) - (gx#stx-map2 _f80914_ _xstx80915_ _ystx80916_)) - _g81555_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-map - _g81555_)))))) + _g81552_)))))) (define gx#stx-map1 - (lambda (_f80861_ _stx80862_) - (if (procedure? _f80861_) + (lambda (_f80858_ _stx80859_) + (if (procedure? _f80858_) '#!void - (error '"expected procedure" _f80861_)) - (let _recur80864_ ((_rest80866_ _stx80862_)) - (let* ((_g8086780877_ (gx#syntax-e _rest80866_)) - (_else8087080885_ (lambda () (_f80861_ _rest80866_)))) - (let ((_K8087380899_ - (lambda (_rest80896_ _hd80897_) - (cons (_f80861_ _hd80897_) (_recur80864_ _rest80896_)))) - (_K8087280890_ (lambda () '()))) - (let ((_try-match8086980893_ + (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_ (lambda () - (if (##null? _g8086780877_) - (_K8087280890_) - (_else8087080885_))))) - (if (##pair? _g8086780877_) - (let ((_tl8087580904_ (##cdr _g8086780877_)) - (_hd8087480902_ (##car _g8086780877_))) - (let ((_hd80907_ _hd8087480902_) - (_rest80909_ _tl8087580904_)) - (_K8087380899_ _rest80909_ _hd80907_))) - (_try-match8086980893_)))))))) + (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_)))))))) (define gx#stx-map2 - (lambda (_f80766_ _xstx80767_ _ystx80768_) - (if (procedure? _f80766_) + (lambda (_f80763_ _xstx80764_ _ystx80765_) + (if (procedure? _f80763_) '#!void - (error '"expected procedure" _f80766_)) - (let _recur80770_ ((_xrest80772_ _xstx80767_) - (_yrest80773_ _ystx80768_)) - (let* ((_g8077480784_ (gx#syntax-e _xrest80772_)) - (_else8077780792_ (lambda () '()))) - (let ((_K8078080849_ - (lambda (_xrest80818_ _xhd80819_) - (let* ((_g8082080827_ (gx#syntax-e _yrest80773_)) - (_E8082280831_ + (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_ (lambda () - (error '"No clause matching" _g8082080827_))) - (_K8082380837_ - (lambda (_yrest80834_ _yhd80835_) - (cons (_f80766_ _xhd80819_ _yhd80835_) - (_recur80770_ - _xrest80818_ - _yrest80834_))))) - (if (##pair? _g8082080827_) - (let ((_hd8082480840_ (##car _g8082080827_)) - (_tl8082580842_ (##cdr _g8082080827_))) - (let* ((_yhd80845_ _hd8082480840_) - (_yrest80847_ _tl8082580842_)) - (_K8082380837_ _yrest80847_ _yhd80845_))) - (_E8082280831_))))) - (_K8077980812_ + (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_ (lambda () - (let* ((_yrest8079680801_ _yrest80773_) - (_E8079880805_ + (let* ((_yrest8079380798_ _yrest80770_) + (_E8079580802_ (lambda () (error '"No clause matching" - _yrest8079680801_))) - (_K8079980809_ - (lambda () (_f80766_ _xrest80772_ _yrest80773_)))) - (if (not (gx#stx-null? _yrest8079680801_)) - (_K8079980809_) - (_E8079880805_)))))) - (let ((_try-match8077680815_ + _yrest8079380798_))) + (_K8079680806_ + (lambda () (_f80763_ _xrest80769_ _yrest80770_)))) + (if (not (gx#stx-null? _yrest8079380798_)) + (_K8079680806_) + (_E8079580802_)))))) + (let ((_try-match8077380812_ (lambda () - (if (not (null? _g8077480784_)) - (_K8077980812_) - (_else8077780792_))))) - (if (##pair? _g8077480784_) - (let ((_tl8078280854_ (##cdr _g8077480784_)) - (_hd8078180852_ (##car _g8077480784_))) - (let ((_xhd80857_ _hd8078180852_) - (_xrest80859_ _tl8078280854_)) - (_K8078080849_ _xrest80859_ _xhd80857_))) - (_try-match8077680815_)))))))) + (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_)))))))) (define gx#stx-andmap - (lambda (_f80716_ _stx80717_) - (if (procedure? _f80716_) + (lambda (_f80713_ _stx80714_) + (if (procedure? _f80713_) '#!void - (error '"expected procedure" _f80716_)) - (let _lp80719_ ((_rest80721_ _stx80717_)) - (let* ((_g8072280732_ (gx#syntax-e _rest80721_)) - (_else8072580740_ (lambda () (_f80716_ _rest80721_)))) - (let ((_K8072880754_ - (lambda (_rest80751_ _hd80752_) - (if (_f80716_ _hd80752_) (_lp80719_ _rest80751_) '#f))) - (_K8072780745_ (lambda () '#t))) - (let ((_try-match8072480748_ + (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_ (lambda () - (if (##null? _g8072280732_) - (_K8072780745_) - (_else8072580740_))))) - (if (##pair? _g8072280732_) - (let ((_tl8073080759_ (##cdr _g8072280732_)) - (_hd8072980757_ (##car _g8072280732_))) - (let ((_hd80762_ _hd8072980757_) - (_rest80764_ _tl8073080759_)) - (_K8072880754_ _rest80764_ _hd80762_))) - (_try-match8072480748_)))))))) + (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_)))))))) (define gx#stx-ormap - (lambda (_f80663_ _stx80664_) - (if (procedure? _f80663_) + (lambda (_f80660_ _stx80661_) + (if (procedure? _f80660_) '#!void - (error '"expected procedure" _f80663_)) - (let _lp80666_ ((_rest80668_ _stx80664_)) - (let* ((_g8066980679_ (gx#syntax-e _rest80668_)) - (_else8067280687_ (lambda () (_f80663_ _rest80668_)))) - (let ((_K8067580704_ - (lambda (_rest80698_ _hd80699_) - (let ((_$e80701_ (_f80663_ _hd80699_))) - (if _$e80701_ _$e80701_ (_lp80666_ _rest80698_))))) - (_K8067480692_ (lambda () '#f))) - (let ((_try-match8067180695_ + (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_ (lambda () - (if (##null? _g8066980679_) - (_K8067480692_) - (_else8067280687_))))) - (if (##pair? _g8066980679_) - (let ((_tl8067780709_ (##cdr _g8066980679_)) - (_hd8067680707_ (##car _g8066980679_))) - (let ((_hd80712_ _hd8067680707_) - (_rest80714_ _tl8067780709_)) - (_K8067580704_ _rest80714_ _hd80712_))) - (_try-match8067180695_)))))))) + (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_)))))))) (define gx#stx-foldl - (lambda (_f80611_ _iv80612_ _stx80613_) - (if (procedure? _f80611_) + (lambda (_f80608_ _iv80609_ _stx80610_) + (if (procedure? _f80608_) '#!void - (error '"expected procedure" _f80611_)) - (let _lp80615_ ((_r80617_ _iv80612_) (_rest80618_ _stx80613_)) - (let* ((_g8061980629_ (gx#syntax-e _rest80618_)) - (_else8062280637_ - (lambda () (_f80611_ _rest80618_ _r80617_)))) - (let ((_K8062580651_ - (lambda (_rest80648_ _hd80649_) - (_lp80615_ (_f80611_ _hd80649_ _r80617_) _rest80648_))) - (_K8062480642_ (lambda () _r80617_))) - (let ((_try-match8062180645_ + (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_ (lambda () - (if (##null? _g8061980629_) - (_K8062480642_) - (_else8062280637_))))) - (if (##pair? _g8061980629_) - (let ((_tl8062780656_ (##cdr _g8061980629_)) - (_hd8062680654_ (##car _g8061980629_))) - (let ((_hd80659_ _hd8062680654_) - (_rest80661_ _tl8062780656_)) - (_K8062580651_ _rest80661_ _hd80659_))) - (_try-match8062180645_)))))))) + (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_)))))))) (define gx#stx-foldr - (lambda (_f80560_ _iv80561_ _stx80562_) - (if (procedure? _f80560_) + (lambda (_f80557_ _iv80558_ _stx80559_) + (if (procedure? _f80557_) '#!void - (error '"expected procedure" _f80560_)) - (let _recur80564_ ((_rest80566_ _stx80562_)) - (let* ((_g8056780577_ (gx#syntax-e _rest80566_)) - (_else8057080585_ - (lambda () (_f80560_ _rest80566_ _iv80561_)))) - (let ((_K8057380599_ - (lambda (_rest80596_ _hd80597_) - (_f80560_ _hd80597_ (_recur80564_ _rest80596_)))) - (_K8057280590_ (lambda () _iv80561_))) - (let ((_try-match8056980593_ + (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_ (lambda () - (if (##null? _g8056780577_) - (_K8057280590_) - (_else8057080585_))))) - (if (##pair? _g8056780577_) - (let ((_tl8057580604_ (##cdr _g8056780577_)) - (_hd8057480602_ (##car _g8056780577_))) - (let ((_hd80607_ _hd8057480602_) - (_rest80609_ _tl8057580604_)) - (_K8057380599_ _rest80609_ _hd80607_))) - (_try-match8056980593_)))))))) + (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_)))))))) (define gx#stx-reverse - (lambda (_stx80558_) (gx#stx-foldl cons '() _stx80558_))) + (lambda (_stx80555_) (gx#stx-foldl cons '() _stx80555_))) (define gx#stx-last - (lambda (_stx80519_) - (let _lp80521_ ((_rest80523_ _stx80519_)) - (let* ((_g8052480532_ (gx#syntax-e _rest80523_)) - (_else8052680540_ (lambda () _rest80523_)) - (_K8052880546_ - (lambda (_rest80543_ _hd80544_) - (if (gx#stx-null? _rest80543_) - _hd80544_ - (_lp80521_ _rest80543_))))) - (if (##pair? _g8052480532_) - (let ((_hd8052980549_ (##car _g8052480532_)) - (_tl8053080551_ (##cdr _g8052480532_))) - (let* ((_hd80554_ _hd8052980549_) - (_rest80556_ _tl8053080551_)) - (_K8052880546_ _rest80556_ _hd80554_))) - (_else8052680540_)))))) + (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_)))))) (define gx#stx-last-pair - (lambda (_stx80490_) - (let _lp80492_ ((_hd80494_ _stx80490_)) - (let* ((_g8049580502_ (gx#syntax-e _hd80494_)) - (_E8049780506_ - (lambda () (error '"No clause matching" _g8049580502_))) - (_K8049880511_ - (lambda (_rest80509_) - (if (gx#stx-pair? _rest80509_) - (_lp80492_ _rest80509_) - _hd80494_)))) - (if (##pair? _g8049580502_) - (let* ((_tl8050080514_ (##cdr _g8049580502_)) - (_rest80517_ _tl8050080514_)) - (_K8049880511_ _rest80517_)) - (_E8049780506_)))))) + (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_)))))) (define gx#stx-list-tail - (lambda (_stx80459_ _k80460_) - (let _lp80462_ ((_rest80464_ _stx80459_) (_k80465_ _k80460_)) - (if (fxpositive? _k80465_) - (let* ((_g8046680473_ (gx#syntax-e _rest80464_)) - (_E8046880477_ - (lambda () (error '"No clause matching" _g8046680473_))) - (_K8046980482_ - (lambda (_rest80480_) - (_lp80462_ _rest80480_ (fx- _k80465_ '1))))) - (if (##pair? _g8046680473_) - (let* ((_tl8047180485_ (##cdr _g8046680473_)) - (_rest80488_ _tl8047180485_)) - (_K8046980482_ _rest80488_)) - (_E8046880477_))) - _rest80464_)))) - (define gx#stx-list-ref (lambda (_stx80456_ _k80457_) - (gx#stx-car (gx#stx-list-tail _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_)))) + (define gx#stx-list-ref + (lambda (_stx80453_ _k80454_) + (gx#stx-car (gx#stx-list-tail _stx80453_ _k80454_)))) (define gx#stx-plist?__% - (lambda (_stx80368_ _key?80369_) - (if (procedure? _key?80369_) + (lambda (_stx80365_ _key?80366_) + (if (procedure? _key?80366_) '#!void - (error '"expected procedure" _key?80369_)) - (let _lp80371_ ((_rest80373_ _stx80368_)) - (let* ((_g8037480384_ (gx#stx-e _rest80373_)) - (_else8037780392_ (lambda () '#f))) - (let ((_K8038080434_ - (lambda (_rest80403_ _hd80404_) - (if (_key?80369_ _hd80404_) - (let* ((_g8040580413_ (gx#stx-e _rest80403_)) - (_else8040780421_ (lambda () '#f)) - (_K8040980426_ - (lambda (_rest80424_) - (_lp80371_ _rest80424_)))) - (if (##pair? _g8040580413_) - (let* ((_tl8041180429_ (##cdr _g8040580413_)) - (_rest80432_ _tl8041180429_)) - (_lp80371_ _rest80432_)) - (_else8040780421_))) + (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_))) '#f))) - (_K8037980397_ (lambda () '#t))) - (let ((_try-match8037680400_ + (_K8037680394_ (lambda () '#t))) + (let ((_try-match8037380397_ (lambda () - (if (##null? _g8037480384_) - (_K8037980397_) - (_else8037780392_))))) - (if (##pair? _g8037480384_) - (let ((_tl8038280439_ (##cdr _g8037480384_)) - (_hd8038180437_ (##car _g8037480384_))) - (let ((_hd80442_ _hd8038180437_) - (_rest80444_ _tl8038280439_)) - (_K8038080434_ _rest80444_ _hd80442_))) - (_try-match8037680400_)))))))) + (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_)))))))) (define gx#stx-plist?__0 - (lambda (_stx80449_) - (let ((_key?80451_ gx#stx-keyword?)) - (gx#stx-plist?__% _stx80449_ _key?80451_)))) + (lambda (_stx80446_) + (let ((_key?80448_ gx#stx-keyword?)) + (gx#stx-plist?__% _stx80446_ _key?80448_)))) (define gx#stx-plist? - (lambda _g81557_ - (let ((_g81556_ (##length _g81557_))) - (cond ((##fx= _g81556_ 1) - (apply (lambda (_stx80449_) (gx#stx-plist?__0 _stx80449_)) - _g81557_)) - ((##fx= _g81556_ 2) - (apply (lambda (_stx80453_ _key?80454_) - (gx#stx-plist?__% _stx80453_ _key?80454_)) - _g81557_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-plist? - _g81557_)))))) + _g81554_)))))) (define gx#stx-getq__% - (lambda (_key80286_ _stx80287_ _key=?80288_) - (if (procedure? _key=?80288_) + (lambda (_key80283_ _stx80284_ _key=?80285_) + (if (procedure? _key=?80285_) '#!void - (error '"expected procedure" _key=?80288_)) - (let _lp80290_ ((_rest80292_ _stx80287_)) - (let* ((_g8029380301_ (gx#syntax-e _rest80292_)) - (_else8029580309_ (lambda () '#f)) - (_K8029780343_ - (lambda (_rest80312_ _hd80313_) - (let* ((_g8031480321_ (gx#syntax-e _rest80312_)) - (_E8031680325_ + (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_ (lambda () - (error '"No clause matching" _g8031480321_))) - (_K8031780331_ - (lambda (_rest80328_ _val80329_) - (if (_key=?80288_ _hd80313_ _key80286_) - _val80329_ - (_lp80290_ _rest80328_))))) - (if (##pair? _g8031480321_) - (let ((_hd8031880334_ (##car _g8031480321_)) - (_tl8031980336_ (##cdr _g8031480321_))) - (let* ((_val80339_ _hd8031880334_) - (_rest80341_ _tl8031980336_)) - (_K8031780331_ _rest80341_ _val80339_))) - (_E8031680325_)))))) - (if (##pair? _g8029380301_) - (let ((_hd8029880346_ (##car _g8029380301_)) - (_tl8029980348_ (##cdr _g8029380301_))) - (let* ((_hd80351_ _hd8029880346_) - (_rest80353_ _tl8029980348_)) - (_K8029780343_ _rest80353_ _hd80351_))) - (_else8029580309_)))))) + (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_)))))) (define gx#stx-getq__0 - (lambda (_key80358_ _stx80359_) - (let ((_key=?80361_ gx#stx-eq?)) - (gx#stx-getq__% _key80358_ _stx80359_ _key=?80361_)))) + (lambda (_key80355_ _stx80356_) + (let ((_key=?80358_ gx#stx-eq?)) + (gx#stx-getq__% _key80355_ _stx80356_ _key=?80358_)))) (define gx#stx-getq - (lambda _g81559_ - (let ((_g81558_ (##length _g81559_))) - (cond ((##fx= _g81558_ 2) - (apply (lambda (_key80358_ _stx80359_) - (gx#stx-getq__0 _key80358_ _stx80359_)) - _g81559_)) - ((##fx= _g81558_ 3) - (apply (lambda (_key80363_ _stx80364_ _key=?80365_) - (gx#stx-getq__% _key80363_ _stx80364_ _key=?80365_)) - _g81559_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-getq - _g81559_)))))))) + _g81556_)))))))) diff --git a/src/bootstrap/gerbil/expander/stx__1.scm b/src/bootstrap/gerbil/expander/stx__1.scm index 3a2445d9..0154db4b 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]#_g81562_| + (define |gx[1]#_g81559_| (##structure gx#syntax-quote::t 'AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g81564_| + (define |gx[1]#_g81561_| (##structure gx#syntax-quote::t 'identifier-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g81566_| + (define |gx[1]#_g81563_| (##structure gx#syntax-quote::t 'make-identifier-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g81568_| + (define |gx[1]#_g81565_| (##structure gx#syntax-quote::t 'identifier-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g81574_| + (define |gx[1]#_g81571_| (##structure gx#syntax-quote::t 'identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g81577_| + (define |gx[1]#_g81574_| (##structure gx#syntax-quote::t 'identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g81580_| + (define |gx[1]#_g81577_| (##structure gx#syntax-quote::t 'identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g81586_| + (define |gx[1]#_g81583_| (##structure gx#syntax-quote::t 'identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81589_| + (define |gx[1]#_g81586_| (##structure gx#syntax-quote::t 'identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81592_| + (define |gx[1]#_g81589_| (##structure gx#syntax-quote::t 'identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81598_| + (define |gx[1]#_g81595_| (##structure gx#syntax-quote::t '&identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g81601_| + (define |gx[1]#_g81598_| (##structure gx#syntax-quote::t '&identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g81604_| + (define |gx[1]#_g81601_| (##structure gx#syntax-quote::t '&identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g81610_| + (define |gx[1]#_g81607_| (##structure gx#syntax-quote::t '&identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81613_| + (define |gx[1]#_g81610_| (##structure gx#syntax-quote::t '&identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81616_| + (define |gx[1]#_g81613_| (##structure gx#syntax-quote::t '&identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81620_| + (define |gx[1]#_g81617_| (##structure gx#syntax-quote::t 'syntax-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g81622_| + (define |gx[1]#_g81619_| (##structure gx#syntax-quote::t 'make-syntax-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g81624_| + (define |gx[1]#_g81621_| (##structure gx#syntax-quote::t 'syntax-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g81630_| + (define |gx[1]#_g81627_| (##structure gx#syntax-quote::t 'syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g81633_| + (define |gx[1]#_g81630_| (##structure gx#syntax-quote::t 'syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g81636_| + (define |gx[1]#_g81633_| (##structure gx#syntax-quote::t 'syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g81642_| + (define |gx[1]#_g81639_| (##structure gx#syntax-quote::t 'syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81645_| + (define |gx[1]#_g81642_| (##structure gx#syntax-quote::t 'syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81648_| + (define |gx[1]#_g81645_| (##structure gx#syntax-quote::t 'syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81654_| + (define |gx[1]#_g81651_| (##structure gx#syntax-quote::t '&syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g81657_| + (define |gx[1]#_g81654_| (##structure gx#syntax-quote::t '&syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g81660_| + (define |gx[1]#_g81657_| (##structure gx#syntax-quote::t '&syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g81666_| + (define |gx[1]#_g81663_| (##structure gx#syntax-quote::t '&syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81669_| + (define |gx[1]#_g81666_| (##structure gx#syntax-quote::t '&syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81672_| + (define |gx[1]#_g81669_| (##structure gx#syntax-quote::t '&syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81676_| + (define |gx[1]#_g81673_| (##structure gx#syntax-quote::t 'syntax-quote::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g81678_| + (define |gx[1]#_g81675_| (##structure gx#syntax-quote::t 'make-syntax-quote #f (gx#current-expander-context) '())) - (define |gx[1]#_g81680_| + (define |gx[1]#_g81677_| (##structure gx#syntax-quote::t 'syntax-quote? #f (gx#current-expander-context) '())) - (define |gx[1]#_g81687_| + (define |gx[1]#_g81684_| (##structure gx#syntax-quote::t 'syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g81690_| + (define |gx[1]#_g81687_| (##structure gx#syntax-quote::t 'syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g81693_| + (define |gx[1]#_g81690_| (##structure gx#syntax-quote::t 'syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g81696_| + (define |gx[1]#_g81693_| (##structure gx#syntax-quote::t 'syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g81703_| + (define |gx[1]#_g81700_| (##structure gx#syntax-quote::t 'syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81706_| + (define |gx[1]#_g81703_| (##structure gx#syntax-quote::t 'syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81709_| + (define |gx[1]#_g81706_| (##structure gx#syntax-quote::t 'syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81712_| + (define |gx[1]#_g81709_| (##structure gx#syntax-quote::t 'syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81719_| + (define |gx[1]#_g81716_| (##structure gx#syntax-quote::t '&syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g81722_| + (define |gx[1]#_g81719_| (##structure gx#syntax-quote::t '&syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g81725_| + (define |gx[1]#_g81722_| (##structure gx#syntax-quote::t '&syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g81728_| + (define |gx[1]#_g81725_| (##structure gx#syntax-quote::t '&syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g81735_| + (define |gx[1]#_g81732_| (##structure gx#syntax-quote::t '&syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81738_| + (define |gx[1]#_g81735_| (##structure gx#syntax-quote::t '&syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81741_| + (define |gx[1]#_g81738_| (##structure gx#syntax-quote::t '&syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81744_| + (define |gx[1]#_g81741_| (##structure gx#syntax-quote::t '&syntax-quote-context-set! @@ -347,7 +347,7 @@ '())) (begin (define |gx[:0:]#identifier-wrap| - (let ((__obj81543 + (let ((__obj81540 (let () (declare (not safe)) (##structure @@ -370,7 +370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81543 + __obj81540 '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! - __obj81543 + __obj81540 'syntax '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -386,26 +386,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81543 + __obj81540 '(marks) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81560 - (let ((__tmp81561 |gx[1]#_g81562_|)) + (let ((__tmp81557 + (let ((__tmp81558 |gx[1]#_g81559_|)) (declare (not safe)) - (cons __tmp81561 '())))) + (cons __tmp81558 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj81543 - __tmp81560 + __obj81540 + __tmp81557 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj81543 + __obj81540 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -413,7 +413,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81543 + __obj81540 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -421,7 +421,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81543 + __obj81540 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -429,150 +429,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81543 + __obj81540 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81563 |gx[1]#_g81564_|)) + (let ((__tmp81560 |gx[1]#_g81561_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81543 - __tmp81563 + __obj81540 + __tmp81560 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81565 |gx[1]#_g81566_|)) + (let ((__tmp81562 |gx[1]#_g81563_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81543 - __tmp81565 + __obj81540 + __tmp81562 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81567 |gx[1]#_g81568_|)) + (let ((__tmp81564 |gx[1]#_g81565_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81543 - __tmp81567 + __obj81540 + __tmp81564 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81569 - (let ((__tmp81578 - (let ((__tmp81579 |gx[1]#_g81580_|)) + (let ((__tmp81566 + (let ((__tmp81575 + (let ((__tmp81576 |gx[1]#_g81577_|)) (declare (not safe)) - (cons 'marks __tmp81579))) - (__tmp81570 - (let ((__tmp81575 - (let ((__tmp81576 |gx[1]#_g81577_|)) + (cons 'marks __tmp81576))) + (__tmp81567 + (let ((__tmp81572 + (let ((__tmp81573 |gx[1]#_g81574_|)) (declare (not safe)) - (cons 'e __tmp81576))) - (__tmp81571 - (let ((__tmp81572 - (let ((__tmp81573 |gx[1]#_g81574_|)) + (cons 'e __tmp81573))) + (__tmp81568 + (let ((__tmp81569 + (let ((__tmp81570 |gx[1]#_g81571_|)) (declare (not safe)) - (cons 'source __tmp81573)))) + (cons 'source __tmp81570)))) (declare (not safe)) - (cons __tmp81572 '())))) + (cons __tmp81569 '())))) (declare (not safe)) - (cons __tmp81575 __tmp81571)))) + (cons __tmp81572 __tmp81568)))) (declare (not safe)) - (cons __tmp81578 __tmp81570)))) + (cons __tmp81575 __tmp81567)))) (declare (not safe)) (##unchecked-structure-set! - __obj81543 - __tmp81569 + __obj81540 + __tmp81566 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81581 - (let ((__tmp81590 - (let ((__tmp81591 |gx[1]#_g81592_|)) + (let ((__tmp81578 + (let ((__tmp81587 + (let ((__tmp81588 |gx[1]#_g81589_|)) (declare (not safe)) - (cons 'marks __tmp81591))) - (__tmp81582 - (let ((__tmp81587 - (let ((__tmp81588 |gx[1]#_g81589_|)) + (cons 'marks __tmp81588))) + (__tmp81579 + (let ((__tmp81584 + (let ((__tmp81585 |gx[1]#_g81586_|)) (declare (not safe)) - (cons 'e __tmp81588))) - (__tmp81583 - (let ((__tmp81584 - (let ((__tmp81585 |gx[1]#_g81586_|)) + (cons 'e __tmp81585))) + (__tmp81580 + (let ((__tmp81581 + (let ((__tmp81582 |gx[1]#_g81583_|)) (declare (not safe)) - (cons 'source __tmp81585)))) + (cons 'source __tmp81582)))) (declare (not safe)) - (cons __tmp81584 '())))) + (cons __tmp81581 '())))) (declare (not safe)) - (cons __tmp81587 __tmp81583)))) + (cons __tmp81584 __tmp81580)))) (declare (not safe)) - (cons __tmp81590 __tmp81582)))) + (cons __tmp81587 __tmp81579)))) (declare (not safe)) (##unchecked-structure-set! - __obj81543 - __tmp81581 + __obj81540 + __tmp81578 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81593 - (let ((__tmp81602 - (let ((__tmp81603 |gx[1]#_g81604_|)) + (let ((__tmp81590 + (let ((__tmp81599 + (let ((__tmp81600 |gx[1]#_g81601_|)) (declare (not safe)) - (cons 'marks __tmp81603))) - (__tmp81594 - (let ((__tmp81599 - (let ((__tmp81600 |gx[1]#_g81601_|)) + (cons 'marks __tmp81600))) + (__tmp81591 + (let ((__tmp81596 + (let ((__tmp81597 |gx[1]#_g81598_|)) (declare (not safe)) - (cons 'e __tmp81600))) - (__tmp81595 - (let ((__tmp81596 - (let ((__tmp81597 |gx[1]#_g81598_|)) + (cons 'e __tmp81597))) + (__tmp81592 + (let ((__tmp81593 + (let ((__tmp81594 |gx[1]#_g81595_|)) (declare (not safe)) - (cons 'source __tmp81597)))) + (cons 'source __tmp81594)))) (declare (not safe)) - (cons __tmp81596 '())))) + (cons __tmp81593 '())))) (declare (not safe)) - (cons __tmp81599 __tmp81595)))) + (cons __tmp81596 __tmp81592)))) (declare (not safe)) - (cons __tmp81602 __tmp81594)))) + (cons __tmp81599 __tmp81591)))) (declare (not safe)) (##unchecked-structure-set! - __obj81543 - __tmp81593 + __obj81540 + __tmp81590 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81605 - (let ((__tmp81614 - (let ((__tmp81615 |gx[1]#_g81616_|)) + (let ((__tmp81602 + (let ((__tmp81611 + (let ((__tmp81612 |gx[1]#_g81613_|)) (declare (not safe)) - (cons 'marks __tmp81615))) - (__tmp81606 - (let ((__tmp81611 - (let ((__tmp81612 |gx[1]#_g81613_|)) + (cons 'marks __tmp81612))) + (__tmp81603 + (let ((__tmp81608 + (let ((__tmp81609 |gx[1]#_g81610_|)) (declare (not safe)) - (cons 'e __tmp81612))) - (__tmp81607 - (let ((__tmp81608 - (let ((__tmp81609 |gx[1]#_g81610_|)) + (cons 'e __tmp81609))) + (__tmp81604 + (let ((__tmp81605 + (let ((__tmp81606 |gx[1]#_g81607_|)) (declare (not safe)) - (cons 'source __tmp81609)))) + (cons 'source __tmp81606)))) (declare (not safe)) - (cons __tmp81608 '())))) + (cons __tmp81605 '())))) (declare (not safe)) - (cons __tmp81611 __tmp81607)))) + (cons __tmp81608 __tmp81604)))) (declare (not safe)) - (cons __tmp81614 __tmp81606)))) + (cons __tmp81611 __tmp81603)))) (declare (not safe)) (##unchecked-structure-set! - __obj81543 - __tmp81605 + __obj81540 + __tmp81602 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj81543)) + __obj81540)) (define |gx[:0:]#syntax-wrap| - (let ((__obj81544 + (let ((__obj81541 (let () (declare (not safe)) (##structure @@ -595,7 +595,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81544 + __obj81541 '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! - __obj81544 + __obj81541 'syntax '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -611,26 +611,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81544 + __obj81541 '(mark) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81617 - (let ((__tmp81618 |gx[1]#_g81562_|)) + (let ((__tmp81614 + (let ((__tmp81615 |gx[1]#_g81559_|)) (declare (not safe)) - (cons __tmp81618 '())))) + (cons __tmp81615 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj81544 - __tmp81617 + __obj81541 + __tmp81614 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj81544 + __obj81541 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -638,7 +638,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81544 + __obj81541 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -646,7 +646,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81544 + __obj81541 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -654,150 +654,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81544 + __obj81541 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81619 |gx[1]#_g81620_|)) + (let ((__tmp81616 |gx[1]#_g81617_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81544 - __tmp81619 + __obj81541 + __tmp81616 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81621 |gx[1]#_g81622_|)) + (let ((__tmp81618 |gx[1]#_g81619_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81544 - __tmp81621 + __obj81541 + __tmp81618 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81623 |gx[1]#_g81624_|)) + (let ((__tmp81620 |gx[1]#_g81621_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81544 - __tmp81623 + __obj81541 + __tmp81620 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81625 - (let ((__tmp81634 - (let ((__tmp81635 |gx[1]#_g81636_|)) + (let ((__tmp81622 + (let ((__tmp81631 + (let ((__tmp81632 |gx[1]#_g81633_|)) (declare (not safe)) - (cons 'mark __tmp81635))) - (__tmp81626 - (let ((__tmp81631 - (let ((__tmp81632 |gx[1]#_g81633_|)) + (cons 'mark __tmp81632))) + (__tmp81623 + (let ((__tmp81628 + (let ((__tmp81629 |gx[1]#_g81630_|)) (declare (not safe)) - (cons 'e __tmp81632))) - (__tmp81627 - (let ((__tmp81628 - (let ((__tmp81629 |gx[1]#_g81630_|)) + (cons 'e __tmp81629))) + (__tmp81624 + (let ((__tmp81625 + (let ((__tmp81626 |gx[1]#_g81627_|)) (declare (not safe)) - (cons 'source __tmp81629)))) + (cons 'source __tmp81626)))) (declare (not safe)) - (cons __tmp81628 '())))) + (cons __tmp81625 '())))) (declare (not safe)) - (cons __tmp81631 __tmp81627)))) + (cons __tmp81628 __tmp81624)))) (declare (not safe)) - (cons __tmp81634 __tmp81626)))) + (cons __tmp81631 __tmp81623)))) (declare (not safe)) (##unchecked-structure-set! - __obj81544 - __tmp81625 + __obj81541 + __tmp81622 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81637 - (let ((__tmp81646 - (let ((__tmp81647 |gx[1]#_g81648_|)) + (let ((__tmp81634 + (let ((__tmp81643 + (let ((__tmp81644 |gx[1]#_g81645_|)) (declare (not safe)) - (cons 'mark __tmp81647))) - (__tmp81638 - (let ((__tmp81643 - (let ((__tmp81644 |gx[1]#_g81645_|)) + (cons 'mark __tmp81644))) + (__tmp81635 + (let ((__tmp81640 + (let ((__tmp81641 |gx[1]#_g81642_|)) (declare (not safe)) - (cons 'e __tmp81644))) - (__tmp81639 - (let ((__tmp81640 - (let ((__tmp81641 |gx[1]#_g81642_|)) + (cons 'e __tmp81641))) + (__tmp81636 + (let ((__tmp81637 + (let ((__tmp81638 |gx[1]#_g81639_|)) (declare (not safe)) - (cons 'source __tmp81641)))) + (cons 'source __tmp81638)))) (declare (not safe)) - (cons __tmp81640 '())))) + (cons __tmp81637 '())))) (declare (not safe)) - (cons __tmp81643 __tmp81639)))) + (cons __tmp81640 __tmp81636)))) (declare (not safe)) - (cons __tmp81646 __tmp81638)))) + (cons __tmp81643 __tmp81635)))) (declare (not safe)) (##unchecked-structure-set! - __obj81544 - __tmp81637 + __obj81541 + __tmp81634 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81649 - (let ((__tmp81658 - (let ((__tmp81659 |gx[1]#_g81660_|)) + (let ((__tmp81646 + (let ((__tmp81655 + (let ((__tmp81656 |gx[1]#_g81657_|)) (declare (not safe)) - (cons 'mark __tmp81659))) - (__tmp81650 - (let ((__tmp81655 - (let ((__tmp81656 |gx[1]#_g81657_|)) + (cons 'mark __tmp81656))) + (__tmp81647 + (let ((__tmp81652 + (let ((__tmp81653 |gx[1]#_g81654_|)) (declare (not safe)) - (cons 'e __tmp81656))) - (__tmp81651 - (let ((__tmp81652 - (let ((__tmp81653 |gx[1]#_g81654_|)) + (cons 'e __tmp81653))) + (__tmp81648 + (let ((__tmp81649 + (let ((__tmp81650 |gx[1]#_g81651_|)) (declare (not safe)) - (cons 'source __tmp81653)))) + (cons 'source __tmp81650)))) (declare (not safe)) - (cons __tmp81652 '())))) + (cons __tmp81649 '())))) (declare (not safe)) - (cons __tmp81655 __tmp81651)))) + (cons __tmp81652 __tmp81648)))) (declare (not safe)) - (cons __tmp81658 __tmp81650)))) + (cons __tmp81655 __tmp81647)))) (declare (not safe)) (##unchecked-structure-set! - __obj81544 - __tmp81649 + __obj81541 + __tmp81646 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81661 - (let ((__tmp81670 - (let ((__tmp81671 |gx[1]#_g81672_|)) + (let ((__tmp81658 + (let ((__tmp81667 + (let ((__tmp81668 |gx[1]#_g81669_|)) (declare (not safe)) - (cons 'mark __tmp81671))) - (__tmp81662 - (let ((__tmp81667 - (let ((__tmp81668 |gx[1]#_g81669_|)) + (cons 'mark __tmp81668))) + (__tmp81659 + (let ((__tmp81664 + (let ((__tmp81665 |gx[1]#_g81666_|)) (declare (not safe)) - (cons 'e __tmp81668))) - (__tmp81663 - (let ((__tmp81664 - (let ((__tmp81665 |gx[1]#_g81666_|)) + (cons 'e __tmp81665))) + (__tmp81660 + (let ((__tmp81661 + (let ((__tmp81662 |gx[1]#_g81663_|)) (declare (not safe)) - (cons 'source __tmp81665)))) + (cons 'source __tmp81662)))) (declare (not safe)) - (cons __tmp81664 '())))) + (cons __tmp81661 '())))) (declare (not safe)) - (cons __tmp81667 __tmp81663)))) + (cons __tmp81664 __tmp81660)))) (declare (not safe)) - (cons __tmp81670 __tmp81662)))) + (cons __tmp81667 __tmp81659)))) (declare (not safe)) (##unchecked-structure-set! - __obj81544 - __tmp81661 + __obj81541 + __tmp81658 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj81544)) + __obj81541)) (define |gx[:0:]#syntax-quote| - (let ((__obj81545 + (let ((__obj81542 (let () (declare (not safe)) (##structure @@ -820,7 +820,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81545 + __obj81542 '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! - __obj81545 + __obj81542 'syntax '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -836,26 +836,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81545 + __obj81542 '(context marks) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81673 - (let ((__tmp81674 |gx[1]#_g81562_|)) + (let ((__tmp81670 + (let ((__tmp81671 |gx[1]#_g81559_|)) (declare (not safe)) - (cons __tmp81674 '())))) + (cons __tmp81671 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj81545 - __tmp81673 + __obj81542 + __tmp81670 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj81545 + __obj81542 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -863,7 +863,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81545 + __obj81542 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -871,7 +871,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81545 + __obj81542 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -879,173 +879,173 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81545 + __obj81542 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81675 |gx[1]#_g81676_|)) + (let ((__tmp81672 |gx[1]#_g81673_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81545 - __tmp81675 + __obj81542 + __tmp81672 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81677 |gx[1]#_g81678_|)) + (let ((__tmp81674 |gx[1]#_g81675_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81545 - __tmp81677 + __obj81542 + __tmp81674 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81679 |gx[1]#_g81680_|)) + (let ((__tmp81676 |gx[1]#_g81677_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81545 - __tmp81679 + __obj81542 + __tmp81676 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81681 - (let ((__tmp81694 - (let ((__tmp81695 |gx[1]#_g81696_|)) + (let ((__tmp81678 + (let ((__tmp81691 + (let ((__tmp81692 |gx[1]#_g81693_|)) (declare (not safe)) - (cons 'context __tmp81695))) - (__tmp81682 - (let ((__tmp81691 - (let ((__tmp81692 |gx[1]#_g81693_|)) + (cons 'context __tmp81692))) + (__tmp81679 + (let ((__tmp81688 + (let ((__tmp81689 |gx[1]#_g81690_|)) (declare (not safe)) - (cons 'marks __tmp81692))) - (__tmp81683 - (let ((__tmp81688 - (let ((__tmp81689 |gx[1]#_g81690_|)) + (cons 'marks __tmp81689))) + (__tmp81680 + (let ((__tmp81685 + (let ((__tmp81686 |gx[1]#_g81687_|)) (declare (not safe)) - (cons 'e __tmp81689))) - (__tmp81684 - (let ((__tmp81685 - (let ((__tmp81686 |gx[1]#_g81687_|)) + (cons 'e __tmp81686))) + (__tmp81681 + (let ((__tmp81682 + (let ((__tmp81683 |gx[1]#_g81684_|)) (declare (not safe)) - (cons 'source __tmp81686)))) + (cons 'source __tmp81683)))) (declare (not safe)) - (cons __tmp81685 '())))) + (cons __tmp81682 '())))) (declare (not safe)) - (cons __tmp81688 __tmp81684)))) + (cons __tmp81685 __tmp81681)))) (declare (not safe)) - (cons __tmp81691 __tmp81683)))) + (cons __tmp81688 __tmp81680)))) (declare (not safe)) - (cons __tmp81694 __tmp81682)))) + (cons __tmp81691 __tmp81679)))) (declare (not safe)) (##unchecked-structure-set! - __obj81545 - __tmp81681 + __obj81542 + __tmp81678 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81697 - (let ((__tmp81710 - (let ((__tmp81711 |gx[1]#_g81712_|)) + (let ((__tmp81694 + (let ((__tmp81707 + (let ((__tmp81708 |gx[1]#_g81709_|)) (declare (not safe)) - (cons 'context __tmp81711))) - (__tmp81698 - (let ((__tmp81707 - (let ((__tmp81708 |gx[1]#_g81709_|)) + (cons 'context __tmp81708))) + (__tmp81695 + (let ((__tmp81704 + (let ((__tmp81705 |gx[1]#_g81706_|)) (declare (not safe)) - (cons 'marks __tmp81708))) - (__tmp81699 - (let ((__tmp81704 - (let ((__tmp81705 |gx[1]#_g81706_|)) + (cons 'marks __tmp81705))) + (__tmp81696 + (let ((__tmp81701 + (let ((__tmp81702 |gx[1]#_g81703_|)) (declare (not safe)) - (cons 'e __tmp81705))) - (__tmp81700 - (let ((__tmp81701 - (let ((__tmp81702 |gx[1]#_g81703_|)) + (cons 'e __tmp81702))) + (__tmp81697 + (let ((__tmp81698 + (let ((__tmp81699 |gx[1]#_g81700_|)) (declare (not safe)) - (cons 'source __tmp81702)))) + (cons 'source __tmp81699)))) (declare (not safe)) - (cons __tmp81701 '())))) + (cons __tmp81698 '())))) (declare (not safe)) - (cons __tmp81704 __tmp81700)))) + (cons __tmp81701 __tmp81697)))) (declare (not safe)) - (cons __tmp81707 __tmp81699)))) + (cons __tmp81704 __tmp81696)))) (declare (not safe)) - (cons __tmp81710 __tmp81698)))) + (cons __tmp81707 __tmp81695)))) (declare (not safe)) (##unchecked-structure-set! - __obj81545 - __tmp81697 + __obj81542 + __tmp81694 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81713 - (let ((__tmp81726 - (let ((__tmp81727 |gx[1]#_g81728_|)) + (let ((__tmp81710 + (let ((__tmp81723 + (let ((__tmp81724 |gx[1]#_g81725_|)) (declare (not safe)) - (cons 'context __tmp81727))) - (__tmp81714 - (let ((__tmp81723 - (let ((__tmp81724 |gx[1]#_g81725_|)) + (cons 'context __tmp81724))) + (__tmp81711 + (let ((__tmp81720 + (let ((__tmp81721 |gx[1]#_g81722_|)) (declare (not safe)) - (cons 'marks __tmp81724))) - (__tmp81715 - (let ((__tmp81720 - (let ((__tmp81721 |gx[1]#_g81722_|)) + (cons 'marks __tmp81721))) + (__tmp81712 + (let ((__tmp81717 + (let ((__tmp81718 |gx[1]#_g81719_|)) (declare (not safe)) - (cons 'e __tmp81721))) - (__tmp81716 - (let ((__tmp81717 - (let ((__tmp81718 |gx[1]#_g81719_|)) + (cons 'e __tmp81718))) + (__tmp81713 + (let ((__tmp81714 + (let ((__tmp81715 |gx[1]#_g81716_|)) (declare (not safe)) - (cons 'source __tmp81718)))) + (cons 'source __tmp81715)))) (declare (not safe)) - (cons __tmp81717 '())))) + (cons __tmp81714 '())))) (declare (not safe)) - (cons __tmp81720 __tmp81716)))) + (cons __tmp81717 __tmp81713)))) (declare (not safe)) - (cons __tmp81723 __tmp81715)))) + (cons __tmp81720 __tmp81712)))) (declare (not safe)) - (cons __tmp81726 __tmp81714)))) + (cons __tmp81723 __tmp81711)))) (declare (not safe)) (##unchecked-structure-set! - __obj81545 - __tmp81713 + __obj81542 + __tmp81710 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81729 - (let ((__tmp81742 - (let ((__tmp81743 |gx[1]#_g81744_|)) + (let ((__tmp81726 + (let ((__tmp81739 + (let ((__tmp81740 |gx[1]#_g81741_|)) (declare (not safe)) - (cons 'context __tmp81743))) - (__tmp81730 - (let ((__tmp81739 - (let ((__tmp81740 |gx[1]#_g81741_|)) + (cons 'context __tmp81740))) + (__tmp81727 + (let ((__tmp81736 + (let ((__tmp81737 |gx[1]#_g81738_|)) (declare (not safe)) - (cons 'marks __tmp81740))) - (__tmp81731 - (let ((__tmp81736 - (let ((__tmp81737 |gx[1]#_g81738_|)) + (cons 'marks __tmp81737))) + (__tmp81728 + (let ((__tmp81733 + (let ((__tmp81734 |gx[1]#_g81735_|)) (declare (not safe)) - (cons 'e __tmp81737))) - (__tmp81732 - (let ((__tmp81733 - (let ((__tmp81734 |gx[1]#_g81735_|)) + (cons 'e __tmp81734))) + (__tmp81729 + (let ((__tmp81730 + (let ((__tmp81731 |gx[1]#_g81732_|)) (declare (not safe)) - (cons 'source __tmp81734)))) + (cons 'source __tmp81731)))) (declare (not safe)) - (cons __tmp81733 '())))) + (cons __tmp81730 '())))) (declare (not safe)) - (cons __tmp81736 __tmp81732)))) + (cons __tmp81733 __tmp81729)))) (declare (not safe)) - (cons __tmp81739 __tmp81731)))) + (cons __tmp81736 __tmp81728)))) (declare (not safe)) - (cons __tmp81742 __tmp81730)))) + (cons __tmp81739 __tmp81727)))) (declare (not safe)) (##unchecked-structure-set! - __obj81545 - __tmp81729 + __obj81542 + __tmp81726 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj81545)))) + __obj81542)))) diff --git a/src/bootstrap/gerbil/expander/stxcase__0.scm b/src/bootstrap/gerbil/expander/stxcase__0.scm index 4ce03e8b..d10a470a 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 1709128372) + (define gerbil/expander/stxcase::timestamp 1709229970) (begin (define gx#syntax-pattern::t - (let ((__tmp97329 (list gx#expander::t)) - (__tmp97327 - (let ((__tmp97328 + (let ((__tmp97326 (list gx#expander::t)) + (__tmp97324 + (let ((__tmp97325 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp97328 '())))) + (cons __tmp97325 '())))) (declare (not safe)) (make-class-type 'gx#syntax-pattern::t 'syntax-pattern - __tmp97329 + __tmp97326 '(id depth) - __tmp97327 + __tmp97324 '#f))) (define gx#syntax-pattern? (let () (declare (not safe)) (make-class-predicate gx#syntax-pattern::t))) (define gx#make-syntax-pattern - (lambda _$args97324_ - (apply make-instance gx#syntax-pattern::t _$args97324_))) + (lambda _$args97321_ + (apply make-instance gx#syntax-pattern::t _$args97321_))) (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 (_self97321_ _stx97322_) + (lambda (_self97318_ _stx97319_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Identifier used out of context" - _stx97322_)))) + _stx97319_)))) (let () (declare (not safe)) (bind-method!__% @@ -88,699 +88,699 @@ gx#syntax-pattern::apply-macro-expander '#f)) (define gx#macro-expand-syntax - (lambda (_stx96803_) - (letrec ((_generate96805_ - (lambda (_e97032_) - (letrec ((_BUG97034_ - (lambda (_q97196_) + (lambda (_stx96800_) + (letrec ((_generate96802_ + (lambda (_e97029_) + (letrec ((_BUG97031_ + (lambda (_q97193_) (let () (declare (not safe)) (error '"BUG: syntax; generate" - _stx96803_ - _e97032_ - _q97196_)))) - (_local-pattern-e97035_ - (lambda (_pat97194_) - (let ((__tmp97330 + _stx96800_ + _e97029_ + _q97193_)))) + (_local-pattern-e97032_ + (lambda (_pat97191_) + (let ((__tmp97327 (##structure-ref - _pat97194_ + _pat97191_ '2 gx#syntax-pattern::t '#f))) (declare (not safe)) - (gx#syntax-local-rewrap __tmp97330)))) - (_getvar97036_ - (lambda (_q97191_ _vars97192_) + (gx#syntax-local-rewrap __tmp97327)))) + (_getvar97033_ + (lambda (_q97188_ _vars97189_) (let () (declare (not safe)) (assgetq__% - _q97191_ - _vars97192_ - _BUG97034_)))) - (_getarg97037_ - (lambda (_arg97157_ _vars97158_) - (let* ((_arg9715997166_ _arg97157_) - (_E9716197170_ + _q97188_ + _vars97189_ + _BUG97031_)))) + (_getarg97034_ + (lambda (_arg97154_ _vars97155_) + (let* ((_arg9715697163_ _arg97154_) + (_E9715897167_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _arg9715997166_)))) - (_K9716297179_ - (lambda (_e97173_ _tag97174_) - (let ((_$e97176_ _tag97174_)) + _arg9715697163_)))) + (_K9715997176_ + (lambda (_e97170_ _tag97171_) + (let ((_$e97173_ _tag97171_)) (if (let () (declare (not safe)) - (eq? 'ref _$e97176_)) + (eq? 'ref _$e97173_)) (let () (declare (not safe)) - (_getvar97036_ - _e97173_ - _vars97158_)) + (_getvar97033_ + _e97170_ + _vars97155_)) (if (let () (declare (not safe)) - (eq? 'pattern _$e97176_)) + (eq? 'pattern _$e97173_)) (let () (declare (not safe)) - (_local-pattern-e97035_ - _e97173_)) + (_local-pattern-e97032_ + _e97170_)) (let () (declare (not safe)) - (_BUG97034_ - _arg97157_)))))))) + (_BUG97031_ + _arg97154_)))))))) (if (let () (declare (not safe)) - (##pair? _arg9715997166_)) - (let ((_hd9716397182_ + (##pair? _arg9715697163_)) + (let ((_hd9716097179_ (let () (declare (not safe)) - (##car _arg9715997166_))) - (_tl9716497184_ + (##car _arg9715697163_))) + (_tl9716197181_ (let () (declare (not safe)) - (##cdr _arg9715997166_)))) - (let* ((_tag97187_ _hd9716397182_) - (_e97189_ _tl9716497184_)) + (##cdr _arg9715697163_)))) + (let* ((_tag97184_ _hd9716097179_) + (_e97186_ _tl9716197181_)) (declare (not safe)) - (_K9716297179_ _e97189_ _tag97187_))) + (_K9715997176_ _e97186_ _tag97184_))) (let () (declare (not safe)) - (_E9716197170_))))))) - (let _recur97039_ ((_e97041_ _e97032_) (_vars97042_ '())) - (let* ((_e9704397050_ _e97041_) - (_E9704597054_ + (_E9715897167_))))))) + (let _recur97036_ ((_e97038_ _e97029_) (_vars97039_ '())) + (let* ((_e9704097047_ _e97038_) + (_E9704297051_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _e9704397050_)))) - (_K9704697145_ - (lambda (_body97057_ _tag97058_) - (let ((_$e97060_ _tag97058_)) + _e9704097047_)))) + (_K9704397142_ + (lambda (_body97054_ _tag97055_) + (let ((_$e97057_ _tag97055_)) (if (let () (declare (not safe)) - (eq? 'datum _$e97060_)) + (eq? 'datum _$e97057_)) (let () (declare (not safe)) - (gx#core-list 'quote _body97057_)) + (gx#core-list 'quote _body97054_)) (if (let () (declare (not safe)) - (eq? 'term _$e97060_)) - (let ((_id97063_ + (eq? 'term _$e97057_)) + (let ((_id97060_ (let () (declare (not safe)) (gx#syntax-local-unwrap - _body97057_)))) + _body97054_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id97063_ + _id97060_ 'gx#identifier-wrap::t)) - (let ((_marks97065_ + (let ((_marks97062_ (let () (declare (not safe)) (##unchecked-structure-ref - _id97063_ + _id97060_ '3 gx#identifier-wrap::t '#f)))) (if (let () (declare (not safe)) - (null? _marks97065_)) - (let ((__tmp97358 + (null? _marks97062_)) + (let ((__tmp97355 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#core-list 'quote _body97057_)))) + (gx#core-list 'quote _body97054_)))) (declare (not safe)) - (gx#core-list 'datum->syntax '#f __tmp97358)) - (let ((__tmp97357 + (gx#core-list 'datum->syntax '#f __tmp97355)) + (let ((__tmp97354 (let () (declare (not safe)) - (gx#core-list 'quote-syntax _body97057_))) - (__tmp97356 + (gx#core-list 'quote-syntax _body97054_))) + (__tmp97353 (let () (declare (not safe)) - (gx#core-list 'quote _body97057_)))) + (gx#core-list 'quote _body97054_)))) (declare (not safe)) (gx#core-list 'datum->syntax - __tmp97357 - __tmp97356 + __tmp97354 + __tmp97353 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id97063_ + _id97060_ 'gx#syntax-quote::t)) (let () (declare (not safe)) (gx#core-list 'quote-syntax - _body97057_)) + _body97054_)) (let () (declare (not safe)) - (_BUG97034_ - _e97041_))))) + (_BUG97031_ + _e97038_))))) (if (let () (declare (not safe)) - (eq? 'pattern _$e97060_)) + (eq? 'pattern _$e97057_)) (let () (declare (not safe)) - (_local-pattern-e97035_ - _body97057_)) + (_local-pattern-e97032_ + _body97054_)) (if (let () (declare (not safe)) - (eq? 'ref _$e97060_)) + (eq? 'ref _$e97057_)) (let () (declare (not safe)) - (_getvar97036_ - _body97057_ - _vars97042_)) + (_getvar97033_ + _body97054_ + _vars97039_)) (if (let () (declare (not safe)) (eq? 'cons - _$e97060_)) - (let ((__tmp97354 - (let ((__tmp97355 + _$e97057_)) + (let ((__tmp97351 + (let ((__tmp97352 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _body97057_))) + (car _body97054_))) (declare (not safe)) - (_recur97039_ __tmp97355 _vars97042_))) - (__tmp97352 - (let ((__tmp97353 (cdr _body97057_))) + (_recur97036_ __tmp97352 _vars97039_))) + (__tmp97349 + (let ((__tmp97350 (cdr _body97054_))) (declare (not safe)) - (_recur97039_ __tmp97353 _vars97042_)))) + (_recur97036_ __tmp97350 _vars97039_)))) (declare (not safe)) - (gx#core-list 'cons __tmp97354 __tmp97352)) - (if (let () (declare (not safe)) (eq? 'vector _$e97060_)) - (let ((__tmp97351 + (gx#core-list 'cons __tmp97351 __tmp97349)) + (if (let () (declare (not safe)) (eq? 'vector _$e97057_)) + (let ((__tmp97348 (let () (declare (not safe)) - (_recur97039_ _body97057_ _vars97042_)))) + (_recur97036_ _body97054_ _vars97039_)))) (declare (not safe)) - (gx#core-list 'list->vector __tmp97351)) - (if (let () (declare (not safe)) (eq? 'box _$e97060_)) - (let ((__tmp97350 + (gx#core-list 'list->vector __tmp97348)) + (if (let () (declare (not safe)) (eq? 'box _$e97057_)) + (let ((__tmp97347 (let () (declare (not safe)) - (_recur97039_ _body97057_ _vars97042_)))) + (_recur97036_ _body97054_ _vars97039_)))) (declare (not safe)) - (gx#core-list 'box __tmp97350)) + (gx#core-list 'box __tmp97347)) (if (let () (declare (not safe)) - (eq? 'splice _$e97060_)) - (let* ((_body9706697077_ _body97057_) - (_E9706897081_ + (eq? 'splice _$e97057_)) + (let* ((_body9706397074_ _body97054_) + (_E9706597078_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _body9706697077_)))) - (_K9706997119_ - (lambda (_args97084_ - _iv97085_ - _hd97086_ - _depth97087_) - (let* ((_targets97093_ - (map (lambda (_g9708897090_) + _body9706397074_)))) + (_K9706697116_ + (lambda (_args97081_ + _iv97082_ + _hd97083_ + _depth97084_) + (let* ((_targets97090_ + (map (lambda (_g9708597087_) (let () (declare (not safe)) - (_getarg97037_ - _g9708897090_ - _vars97042_))) - _args97084_)) - (_fold-in97095_ + (_getarg97034_ + _g9708597087_ + _vars97039_))) + _args97081_)) + (_fold-in97092_ (let () (declare (not safe)) - (gx#gentemps _args97084_))) - (_fold-out97097_ + (gx#gentemps _args97081_))) + (_fold-out97094_ (let () (declare (not safe)) (gx#genident__0))) - (_lambda-args97099_ - (let ((__tmp97331 + (_lambda-args97096_ + (let ((__tmp97328 (let () (declare (not safe)) - (cons _fold-out97097_ + (cons _fold-out97094_ '())))) (declare (not safe)) (foldr1 cons - __tmp97331 - _fold-in97095_))) - (_lambda-body97116_ - (if (fx> _depth97087_ '1) - (let ((_r-args97107_ - (map (lambda (_arg97101_) - (let ((__tmp97336 + __tmp97328 + _fold-in97092_))) + (_lambda-body97113_ + (if (fx> _depth97084_ '1) + (let ((_r-args97104_ + (map (lambda (_arg97098_) + (let ((__tmp97333 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _arg97101_))) + (cdr _arg97098_))) (declare (not safe)) - (cons 'ref __tmp97336))) - _args97084_)) - (_r-vars97108_ - (let ((__tmp97337 - (lambda (_arg97103_ _var97104_ _r97105_) - (let ((__tmp97338 - (let ((__tmp97339 (cdr _arg97103_))) + (cons 'ref __tmp97333))) + _args97081_)) + (_r-vars97105_ + (let ((__tmp97334 + (lambda (_arg97100_ _var97101_ _r97102_) + (let ((__tmp97335 + (let ((__tmp97336 (cdr _arg97100_))) (declare (not safe)) - (cons __tmp97339 _var97104_)))) + (cons __tmp97336 _var97101_)))) (declare (not safe)) - (cons __tmp97338 _r97105_))))) + (cons __tmp97335 _r97102_))))) (declare (not safe)) - (foldr2 __tmp97337 - _vars97042_ - _args97084_ - _fold-in97095_)))) + (foldr2 __tmp97334 + _vars97039_ + _args97081_ + _fold-in97092_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp97340 - (let ((__tmp97341 + (let ((__tmp97337 + (let ((__tmp97338 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp97345 + (let ((__tmp97342 (let () (declare (not safe)) - (fx- _depth97087_ '1))) - (__tmp97342 - (let ((__tmp97343 - (let ((__tmp97344 + (fx- _depth97084_ '1))) + (__tmp97339 + (let ((__tmp97340 + (let ((__tmp97341 (let () (declare (not safe)) - (cons 'var _fold-out97097_)))) + (cons 'var _fold-out97094_)))) (declare (not safe)) - (cons __tmp97344 _r-args97107_)))) + (cons __tmp97341 _r-args97104_)))) (declare (not safe)) - (cons _hd97086_ __tmp97343)))) + (cons _hd97083_ __tmp97340)))) (declare (not safe)) - (cons __tmp97345 __tmp97342)))) + (cons __tmp97342 __tmp97339)))) (declare (not safe)) - (cons 'splice __tmp97341)))) + (cons 'splice __tmp97338)))) (declare (not safe)) - (_recur97039_ __tmp97340 _r-vars97108_))) + (_recur97036_ __tmp97337 _r-vars97105_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_hd-vars97114_ - (let ((__tmp97332 + (let* ((_hd-vars97111_ + (let ((__tmp97329 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_arg97110_ _var97111_ _r97112_) - (let ((__tmp97333 - (let ((__tmp97334 (cdr _arg97110_))) + (lambda (_arg97107_ _var97108_ _r97109_) + (let ((__tmp97330 + (let ((__tmp97331 (cdr _arg97107_))) (declare (not safe)) - (cons __tmp97334 _var97111_)))) + (cons __tmp97331 _var97108_)))) (declare (not safe)) - (cons __tmp97333 _r97112_))))) + (cons __tmp97330 _r97109_))))) (declare (not safe)) - (foldr2 __tmp97332 - _vars97042_ - _args97084_ - _fold-in97095_))) - (__tmp97335 + (foldr2 __tmp97329 + _vars97039_ + _args97081_ + _fold-in97092_))) + (__tmp97332 (let () (declare (not safe)) - (_recur97039_ _hd97086_ _hd-vars97114_)))) + (_recur97036_ _hd97083_ _hd-vars97111_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'cons - __tmp97335 - _fold-out97097_))))) - (let ((__tmp97349 - (if (fx> (length _targets97093_) + __tmp97332 + _fold-out97094_))))) + (let ((__tmp97346 + (if (fx> (length _targets97090_) '1) (let () (declare (not safe)) (gx#core-cons* 'syntax-check-splice-targets - _targets97093_)) + _targets97090_)) '#!void)) - (__tmp97346 - (let ((__tmp97348 + (__tmp97343 + (let ((__tmp97345 (let () (declare (not safe)) (gx#core-list 'lambda% - _lambda-args97099_ - _lambda-body97116_))) - (__tmp97347 + _lambda-args97096_ + _lambda-body97113_))) + (__tmp97344 (let () (declare (not safe)) - (_recur97039_ - _iv97085_ - _vars97042_)))) + (_recur97036_ + _iv97082_ + _vars97039_)))) (declare (not safe)) (gx#core-cons* 'foldr - __tmp97348 - __tmp97347 - _targets97093_)))) + __tmp97345 + __tmp97344 + _targets97090_)))) (declare (not safe)) (gx#core-list 'begin - __tmp97349 - __tmp97346)))))) + __tmp97346 + __tmp97343)))))) (if (let () (declare (not safe)) - (##pair? _body9706697077_)) - (let ((_hd9707097122_ + (##pair? _body9706397074_)) + (let ((_hd9706797119_ (let () (declare (not safe)) - (##car _body9706697077_))) - (_tl9707197124_ + (##car _body9706397074_))) + (_tl9706897121_ (let () (declare (not safe)) - (##cdr _body9706697077_)))) - (let ((_depth97127_ _hd9707097122_)) + (##cdr _body9706397074_)))) + (let ((_depth97124_ _hd9706797119_)) (if (let () (declare (not safe)) - (##pair? _tl9707197124_)) - (let ((_hd9707297129_ + (##pair? _tl9706897121_)) + (let ((_hd9706997126_ (let () (declare (not safe)) - (##car _tl9707197124_))) - (_tl9707397131_ + (##car _tl9706897121_))) + (_tl9707097128_ (let () (declare (not safe)) - (##cdr _tl9707197124_)))) - (let ((_hd97134_ _hd9707297129_)) + (##cdr _tl9706897121_)))) + (let ((_hd97131_ _hd9706997126_)) (if (let () (declare (not safe)) - (##pair? _tl9707397131_)) - (let ((_hd9707497136_ + (##pair? _tl9707097128_)) + (let ((_hd9707197133_ (let () (declare (not safe)) - (##car _tl9707397131_))) - (_tl9707597138_ + (##car _tl9707097128_))) + (_tl9707297135_ (let () (declare (not safe)) - (##cdr _tl9707397131_)))) - (let* ((_iv97141_ - _hd9707497136_) - (_args97143_ - _tl9707597138_)) + (##cdr _tl9707097128_)))) + (let* ((_iv97138_ + _hd9707197133_) + (_args97140_ + _tl9707297135_)) (declare (not safe)) - (_K9706997119_ - _args97143_ - _iv97141_ - _hd97134_ - _depth97127_))) + (_K9706697116_ + _args97140_ + _iv97138_ + _hd97131_ + _depth97124_))) (let () (declare (not safe)) - (_E9706897081_))))) + (_E9706597078_))))) (let () (declare (not safe)) - (_E9706897081_))))) + (_E9706597078_))))) (let () (declare (not safe)) - (_E9706897081_)))) + (_E9706597078_)))) (if (let () (declare (not safe)) - (eq? 'var _$e97060_)) - _body97057_ + (eq? 'var _$e97057_)) + _body97054_ (let () (declare (not safe)) - (_BUG97034_ _e97041_))))))))))))))) + (_BUG97031_ _e97038_))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e9704397050_)) - (let ((_hd9704797148_ + (##pair? _e9704097047_)) + (let ((_hd9704497145_ (let () (declare (not safe)) - (##car _e9704397050_))) - (_tl9704897150_ + (##car _e9704097047_))) + (_tl9704597147_ (let () (declare (not safe)) - (##cdr _e9704397050_)))) - (let* ((_tag97153_ _hd9704797148_) - (_body97155_ _tl9704897150_)) + (##cdr _e9704097047_)))) + (let* ((_tag97150_ _hd9704497145_) + (_body97152_ _tl9704597147_)) (declare (not safe)) - (_K9704697145_ _body97155_ _tag97153_))) + (_K9704397142_ _body97152_ _tag97150_))) (let () (declare (not safe)) - (_E9704597054_)))))))) - (_parse96806_ - (lambda (_e96847_) - (letrec ((_make-cons96849_ - (lambda (_hd97024_ _tl97025_) - (let ((_g97359_ _hd97024_) - (_g97361_ _tl97025_)) + (_E9704297051_)))))))) + (_parse96803_ + (lambda (_e96844_) + (letrec ((_make-cons96846_ + (lambda (_hd97021_ _tl97022_) + (let ((_g97356_ _hd97021_) + (_g97358_ _tl97022_)) (begin - (let ((_g97360_ + (let ((_g97357_ (let () (declare (not safe)) - (if (##values? _g97359_) - (##vector-length _g97359_) + (if (##values? _g97356_) + (##vector-length _g97356_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97360_ 2))) + (##fx= _g97357_ 2))) (error "Context expects 2 values" - _g97360_))) - (let ((_g97362_ + _g97357_))) + (let ((_g97359_ (let () (declare (not safe)) - (if (##values? _g97361_) - (##vector-length _g97361_) + (if (##values? _g97358_) + (##vector-length _g97358_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97362_ 2))) + (##fx= _g97359_ 2))) (error "Context expects 2 values" - _g97362_))) - (let ((_hd-e97027_ + _g97359_))) + (let ((_hd-e97024_ (let () (declare (not safe)) - (##vector-ref _g97359_ 0))) - (_hd-vars97028_ + (##vector-ref _g97356_ 0))) + (_hd-vars97025_ (let () (declare (not safe)) - (##vector-ref _g97359_ 1)))) - (let ((_tl-e97029_ + (##vector-ref _g97356_ 1)))) + (let ((_tl-e97026_ (let () (declare (not safe)) - (##vector-ref _g97361_ 0))) - (_tl-vars97030_ + (##vector-ref _g97358_ 0))) + (_tl-vars97027_ (let () (declare (not safe)) - (##vector-ref _g97361_ 1)))) - (values (let ((__tmp97363 + (##vector-ref _g97358_ 1)))) + (values (let ((__tmp97360 (let () (declare (not safe)) - (cons _hd-e97027_ - _tl-e97029_)))) + (cons _hd-e97024_ + _tl-e97026_)))) (declare (not safe)) - (cons 'cons __tmp97363)) - (append _hd-vars97028_ - _tl-vars97030_)))))))) - (_make-splice96850_ - (lambda (_where96963_ - _depth96964_ - _hd96965_ - _tl96966_) - (let ((_g97364_ _hd96965_) - (_g97366_ _tl96966_)) + (cons 'cons __tmp97360)) + (append _hd-vars97025_ + _tl-vars97027_)))))))) + (_make-splice96847_ + (lambda (_where96960_ + _depth96961_ + _hd96962_ + _tl96963_) + (let ((_g97361_ _hd96962_) + (_g97363_ _tl96963_)) (begin - (let ((_g97365_ + (let ((_g97362_ (let () (declare (not safe)) - (if (##values? _g97364_) - (##vector-length _g97364_) + (if (##values? _g97361_) + (##vector-length _g97361_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97365_ 2))) + (##fx= _g97362_ 2))) (error "Context expects 2 values" - _g97365_))) - (let ((_g97367_ + _g97362_))) + (let ((_g97364_ (let () (declare (not safe)) - (if (##values? _g97366_) - (##vector-length _g97366_) + (if (##values? _g97363_) + (##vector-length _g97363_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97367_ 2))) + (##fx= _g97364_ 2))) (error "Context expects 2 values" - _g97367_))) - (let ((_hd-e96968_ + _g97364_))) + (let ((_hd-e96965_ (let () (declare (not safe)) - (##vector-ref _g97364_ 0))) - (_hd-vars96969_ + (##vector-ref _g97361_ 0))) + (_hd-vars96966_ (let () (declare (not safe)) - (##vector-ref _g97364_ 1)))) - (let ((_tl-e96970_ + (##vector-ref _g97361_ 1)))) + (let ((_tl-e96967_ (let () (declare (not safe)) - (##vector-ref _g97366_ 0))) - (_tl-vars96971_ + (##vector-ref _g97363_ 0))) + (_tl-vars96968_ (let () (declare (not safe)) - (##vector-ref _g97366_ 1)))) - (let _lp96973_ ((_rest96975_ - _hd-vars96969_) - (_targets96976_ '()) - (_vars96977_ - _tl-vars96971_)) - (let* ((_rest9697896988_ _rest96975_) - (_else9698096996_ + (##vector-ref _g97363_ 1)))) + (let _lp96970_ ((_rest96972_ + _hd-vars96966_) + (_targets96973_ '()) + (_vars96974_ + _tl-vars96968_)) + (let* ((_rest9697596985_ _rest96972_) + (_else9697796993_ (lambda () (if (let () (declare (not safe)) - (null? _targets96976_)) + (null? _targets96973_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _stx96803_ - _where96963_)) - (values (let ((__tmp97368 + _stx96800_ + _where96960_)) + (values (let ((__tmp97365 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp97369 - (let ((__tmp97370 + (let ((__tmp97366 + (let ((__tmp97367 (let () (declare (not safe)) - (cons _tl-e96970_ - _targets96976_)))) + (cons _tl-e96967_ + _targets96973_)))) (declare (not safe)) - (cons _hd-e96968_ __tmp97370)))) + (cons _hd-e96965_ __tmp97367)))) (declare (not safe)) - (cons _depth96964_ __tmp97369)))) + (cons _depth96961_ __tmp97366)))) (declare (not safe)) - (cons 'splice __tmp97368)) - _vars96977_)))) + (cons 'splice __tmp97365)) + _vars96974_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K9698297005_ - (lambda (_rest96999_ - _hd-pat97000_ - _hd-depth*97001_) - (let ((_hd-depth97003_ - (fx- _hd-depth*97001_ - _depth96964_))) + (_K9697997002_ + (lambda (_rest96996_ + _hd-pat96997_ + _hd-depth*96998_) + (let ((_hd-depth97000_ + (fx- _hd-depth*96998_ + _depth96961_))) (if (fxpositive? - _hd-depth97003_) - (let ((__tmp97375 + _hd-depth97000_) + (let ((__tmp97372 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp97376 + (let ((__tmp97373 (let () (declare (not safe)) - (cons 'ref _hd-pat97000_)))) + (cons 'ref _hd-pat96997_)))) (declare (not safe)) - (cons __tmp97376 _targets96976_))) - (__tmp97373 - (let ((__tmp97374 + (cons __tmp97373 _targets96973_))) + (__tmp97370 + (let ((__tmp97371 (let () (declare (not safe)) - (cons _hd-depth97003_ _hd-pat97000_)))) + (cons _hd-depth97000_ _hd-pat96997_)))) (declare (not safe)) - (cons __tmp97374 _vars96977_)))) + (cons __tmp97371 _vars96974_)))) (declare (not safe)) - (_lp96973_ _rest96999_ __tmp97375 __tmp97373)) - (if (let () (declare (not safe)) (fxzero? _hd-depth97003_)) - (let ((__tmp97371 - (let ((__tmp97372 + (_lp96970_ _rest96996_ __tmp97372 __tmp97370)) + (if (let () (declare (not safe)) (fxzero? _hd-depth97000_)) + (let ((__tmp97368 + (let ((__tmp97369 (let () (declare (not safe)) - (cons 'pattern _hd-pat97000_)))) + (cons 'pattern _hd-pat96997_)))) (declare (not safe)) - (cons __tmp97372 _targets96976_)))) + (cons __tmp97369 _targets96973_)))) (declare (not safe)) - (_lp96973_ _rest96999_ __tmp97371 _vars96977_)) + (_lp96970_ _rest96996_ __tmp97368 _vars96974_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Too many ellipses" - _stx96803_ - _where96963_)))))))) + _stx96800_ + _where96960_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest9697896988_)) - (let ((_hd9698397008_ + (##pair? _rest9697596985_)) + (let ((_hd9698097005_ (let () (declare (not safe)) - (##car _rest9697896988_))) - (_tl9698497010_ + (##car _rest9697596985_))) + (_tl9698197007_ (let () (declare (not safe)) - (##cdr _rest9697896988_)))) + (##cdr _rest9697596985_)))) (if (let () (declare (not safe)) - (##pair? _hd9698397008_)) - (let ((_hd9698597013_ + (##pair? _hd9698097005_)) + (let ((_hd9698297010_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd9698397008_))) - (_tl9698697015_ - (let () (declare (not safe)) (##cdr _hd9698397008_)))) - (let* ((_hd-depth*97018_ _hd9698597013_) - (_hd-pat97020_ _tl9698697015_) - (_rest97022_ _tl9698497010_)) + (##car _hd9698097005_))) + (_tl9698397012_ + (let () (declare (not safe)) (##cdr _hd9698097005_)))) + (let* ((_hd-depth*97015_ _hd9698297010_) + (_hd-pat97017_ _tl9698397012_) + (_rest97019_ _tl9698197007_)) (declare (not safe)) - (_K9698297005_ _rest97022_ _hd-pat97020_ _hd-depth*97018_))) - (let () (declare (not safe)) (_else9698096996_)))) + (_K9697997002_ _rest97019_ _hd-pat97017_ _hd-depth*97015_))) + (let () (declare (not safe)) (_else9697796993_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else9698096996_))))))))))) - (_recur96851_ - (lambda (_e96856_ _is-e?96857_) - (if (_is-e?96857_ _e96856_) + (_else9697796993_))))))))))) + (_recur96848_ + (lambda (_e96853_ _is-e?96854_) + (if (_is-e?96854_ _e96853_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Mislpaced ellipsis" - _stx96803_)) + _stx96800_)) (if (let () (declare (not safe)) - (gx#syntax-local-pattern? _e96856_)) - (let* ((_pat96859_ + (gx#syntax-local-pattern? _e96853_)) + (let* ((_pat96856_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _e96856_))) - (_depth96861_ + _e96853_))) + (_depth96858_ (##structure-ref - _pat96859_ + _pat96856_ '3 gx#syntax-pattern::t '#f))) - (if (fxpositive? _depth96861_) + (if (fxpositive? _depth96858_) (values (let () (declare (not safe)) - (cons 'ref _pat96859_)) - (let ((__tmp97392 + (cons 'ref _pat96856_)) + (let ((__tmp97389 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _depth96861_ _pat96859_)))) + (cons _depth96858_ _pat96856_)))) (declare (not safe)) - (cons __tmp97392 '()))) + (cons __tmp97389 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (values (let () (declare (not safe)) (cons 'pattern - _pat96859_)) + _pat96856_)) '()))) (if (let () (declare (not safe)) - (gx#identifier? _e96856_)) + (gx#identifier? _e96853_)) (values (let () (declare (not safe)) - (cons 'term _e96856_)) + (cons 'term _e96853_)) '()) (if (let () (declare (not safe)) - (gx#stx-pair? _e96856_)) - (let* ((_e9686396870_ _e96856_) - (_E9686596874_ + (gx#stx-pair? _e96853_)) + (let* ((_e9686096867_ _e96853_) + (_E9686296871_ (lambda () (let () (declare @@ -788,2429 +788,2429 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9686396870_)))) - (_E9686496953_ + _e9686096867_)))) + (_E9686196950_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _e9686396870_)) - (let ((_e9686696878_ + (gx#stx-pair? _e9686096867_)) + (let ((_e9686396875_ (let () (declare (not safe)) - (gx#syntax-e _e9686396870_)))) - (let ((_hd9686796881_ + (gx#syntax-e _e9686096867_)))) + (let ((_hd9686496878_ (let () (declare (not safe)) - (##car _e9686696878_))) - (_tl9686896883_ + (##car _e9686396875_))) + (_tl9686596880_ (let () (declare (not safe)) - (##cdr _e9686696878_)))) - (let* ((_hd96886_ _hd9686796881_) - (_rest96888_ _tl9686896883_)) + (##cdr _e9686396875_)))) + (let* ((_hd96883_ _hd9686496878_) + (_rest96885_ _tl9686596880_)) (if '#t - (if (_is-e?96857_ _hd96886_) - (let* ((_e9688996896_ _rest96888_) - (_E9689196900_ + (if (_is-e?96854_ _hd96883_) + (let* ((_e9688696893_ _rest96885_) + (_E9688896897_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad ellipsis syntax" - _stx96803_ - _e96856_)))) - (_E9689096914_ + _stx96800_ + _e96853_)))) + (_E9688796911_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _e9688996896_)) - (let ((_e9689296904_ + _e9688696893_)) + (let ((_e9688996901_ (let () (declare (not safe)) (gx#syntax-e - _e9688996896_)))) - (let ((_hd9689396907_ + _e9688696893_)))) + (let ((_hd9689096904_ (let () (declare (not safe)) - (##car _e9689296904_))) - (_tl9689496909_ + (##car _e9688996901_))) + (_tl9689196906_ (let () (declare (not safe)) - (##cdr _e9689296904_)))) - (let ((_rest96912_ - _hd9689396907_)) + (##cdr _e9688996901_)))) + (let ((_rest96909_ + _hd9689096904_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl9689496909_)) + _tl9689196906_)) (if '#t (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_recur96851_ _rest96912_ false)) - (let () (declare (not safe)) (_E9689196900_))) - (let () (declare (not safe)) (_E9689196900_)))))) + (_recur96848_ _rest96909_ false)) + (let () (declare (not safe)) (_E9688896897_))) + (let () (declare (not safe)) (_E9688896897_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9689196900_)))))) + (_E9688896897_)))))) (let () (declare (not safe)) - (_E9689096914_))) - (let _lp96918_ ((_rest96920_ _rest96888_) - (_depth96921_ '0)) - (let* ((_e9692296929_ _rest96920_) - (_E9692496933_ + (_E9688796911_))) + (let _lp96915_ ((_rest96917_ _rest96885_) + (_depth96918_ '0)) + (let* ((_e9691996926_ _rest96917_) + (_E9692196930_ (lambda () - (if (fxpositive? _depth96921_) - (let ((__tmp97386 + (if (fxpositive? _depth96918_) + (let ((__tmp97383 (let () (declare (not safe)) - (_recur96851_ - _hd96886_ - _is-e?96857_))) - (__tmp97385 + (_recur96848_ + _hd96883_ + _is-e?96854_))) + (__tmp97382 (let () (declare (not safe)) - (_recur96851_ - _rest96920_ - _is-e?96857_)))) + (_recur96848_ + _rest96917_ + _is-e?96854_)))) (declare (not safe)) - (_make-splice96850_ - _e96856_ - _depth96921_ - __tmp97386 - __tmp97385)) - (let ((__tmp97384 + (_make-splice96847_ + _e96853_ + _depth96918_ + __tmp97383 + __tmp97382)) + (let ((__tmp97381 (let () (declare (not safe)) - (_recur96851_ - _hd96886_ - _is-e?96857_))) - (__tmp97383 + (_recur96848_ + _hd96883_ + _is-e?96854_))) + (__tmp97380 (let () (declare (not safe)) - (_recur96851_ - _rest96920_ - _is-e?96857_)))) + (_recur96848_ + _rest96917_ + _is-e?96854_)))) (declare (not safe)) - (_make-cons96849_ - __tmp97384 - __tmp97383))))) - (_E9692396949_ + (_make-cons96846_ + __tmp97381 + __tmp97380))))) + (_E9692096946_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _e9692296929_)) - (let ((_e9692596937_ + _e9691996926_)) + (let ((_e9692296934_ (let () (declare (not safe)) (gx#syntax-e - _e9692296929_)))) - (let ((_hd9692696940_ + _e9691996926_)))) + (let ((_hd9692396937_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e9692596937_))) - (_tl9692796942_ - (let () (declare (not safe)) (##cdr _e9692596937_)))) - (let* ((_rest-hd96945_ _hd9692696940_) - (_rest-tl96947_ _tl9692796942_)) + (##car _e9692296934_))) + (_tl9692496939_ + (let () (declare (not safe)) (##cdr _e9692296934_)))) + (let* ((_rest-hd96942_ _hd9692396937_) + (_rest-tl96944_ _tl9692496939_)) (if '#t - (if (_is-e?96857_ _rest-hd96945_) - (let ((__tmp97391 + (if (_is-e?96854_ _rest-hd96942_) + (let ((__tmp97388 (let () (declare (not safe)) - (fx+ _depth96921_ '1)))) + (fx+ _depth96918_ '1)))) (declare (not safe)) - (_lp96918_ _rest-tl96947_ __tmp97391)) - (if (fxpositive? _depth96921_) - (let ((__tmp97390 + (_lp96915_ _rest-tl96944_ __tmp97388)) + (if (fxpositive? _depth96918_) + (let ((__tmp97387 (let () (declare (not safe)) - (_recur96851_ _hd96886_ _is-e?96857_))) - (__tmp97389 + (_recur96848_ _hd96883_ _is-e?96854_))) + (__tmp97386 (let () (declare (not safe)) - (_recur96851_ - _rest96920_ - _is-e?96857_)))) + (_recur96848_ + _rest96917_ + _is-e?96854_)))) (declare (not safe)) - (_make-splice96850_ - _e96856_ - _depth96921_ - __tmp97390 - __tmp97389)) - (let ((__tmp97388 + (_make-splice96847_ + _e96853_ + _depth96918_ + __tmp97387 + __tmp97386)) + (let ((__tmp97385 (let () (declare (not safe)) - (_recur96851_ _hd96886_ _is-e?96857_))) - (__tmp97387 + (_recur96848_ _hd96883_ _is-e?96854_))) + (__tmp97384 (let () (declare (not safe)) - (_recur96851_ - _rest96920_ - _is-e?96857_)))) + (_recur96848_ + _rest96917_ + _is-e?96854_)))) (declare (not safe)) - (_make-cons96849_ __tmp97388 __tmp97387)))) - (let () (declare (not safe)) (_E9692496933_)))))) + (_make-cons96846_ __tmp97385 __tmp97384)))) + (let () (declare (not safe)) (_E9692196930_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9692496933_)))))) + (_E9692196930_)))))) (let () (declare (not safe)) - (_E9692396949_))))) + (_E9692096946_))))) (let () (declare (not safe)) - (_E9686596874_)))))) - (let () (declare (not safe)) (_E9686596874_)))))) + (_E9686296871_)))))) + (let () (declare (not safe)) (_E9686296871_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9686496953_))) + (_E9686196950_))) (if (let () (declare (not safe)) (gx#stx-vector? - _e96856_)) - (let ((_g97380_ - (let ((__tmp97382 + _e96853_)) + (let ((_g97377_ + (let ((__tmp97379 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (vector->list (let () (declare (not safe)) - (gx#stx-unwrap__0 _e96856_))))) + (gx#stx-unwrap__0 _e96853_))))) (declare (not safe)) - (_recur96851_ __tmp97382 _is-e?96857_)))) + (_recur96848_ __tmp97379 _is-e?96854_)))) (begin - (let ((_g97381_ + (let ((_g97378_ (let () (declare (not safe)) - (if (##values? _g97380_) - (##vector-length _g97380_) + (if (##values? _g97377_) + (##vector-length _g97377_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g97381_ 2))) - (error "Context expects 2 values" _g97381_))) - (let ((_e96957_ - (let () (declare (not safe)) (##vector-ref _g97380_ 0))) - (_vars96958_ + (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_ (let () (declare (not safe)) - (##vector-ref _g97380_ 1)))) - (values (let () (declare (not safe)) (cons 'vector _e96957_)) - _vars96958_)))) + (##vector-ref _g97377_ 1)))) + (values (let () (declare (not safe)) (cons 'vector _e96954_)) + _vars96955_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-box? - _e96856_)) - (let ((_g97377_ - (let ((__tmp97379 + _e96853_)) + (let ((_g97374_ + (let ((__tmp97376 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (unbox (let () (declare (not safe)) - (gx#stx-unwrap__0 _e96856_))))) + (gx#stx-unwrap__0 _e96853_))))) (declare (not safe)) - (_recur96851_ __tmp97379 _is-e?96857_)))) + (_recur96848_ __tmp97376 _is-e?96854_)))) (begin - (let ((_g97378_ + (let ((_g97375_ (let () (declare (not safe)) - (if (##values? _g97377_) - (##vector-length _g97377_) + (if (##values? _g97374_) + (##vector-length _g97374_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97378_ 2))) - (error "Context expects 2 values" _g97378_))) - (let ((_e96960_ + (##fx= _g97375_ 2))) + (error "Context expects 2 values" _g97375_))) + (let ((_e96957_ (let () (declare (not safe)) - (##vector-ref _g97377_ 0))) - (_vars96961_ + (##vector-ref _g97374_ 0))) + (_vars96958_ (let () (declare (not safe)) - (##vector-ref _g97377_ 1)))) + (##vector-ref _g97374_ 1)))) (values (let () (declare (not safe)) - (cons 'box _e96960_)) - _vars96961_)))) - (values (let () (declare (not safe)) (cons 'datum _e96856_)) + (cons 'box _e96957_)) + _vars96958_)))) + (values (let () (declare (not safe)) (cons 'datum _e96853_)) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g97393_ + (let ((_g97390_ (let () (declare (not safe)) - (_recur96851_ _e96847_ gx#ellipsis?)))) + (_recur96848_ _e96844_ gx#ellipsis?)))) (begin - (let ((_g97394_ + (let ((_g97391_ (let () (declare (not safe)) - (if (##values? _g97393_) - (##vector-length _g97393_) + (if (##values? _g97390_) + (##vector-length _g97390_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97394_ 2))) - (error "Context expects 2 values" _g97394_))) - (let ((_tree96853_ + (##fx= _g97391_ 2))) + (error "Context expects 2 values" _g97391_))) + (let ((_tree96850_ (let () (declare (not safe)) - (##vector-ref _g97393_ 0))) - (_vars96854_ + (##vector-ref _g97390_ 0))) + (_vars96851_ (let () (declare (not safe)) - (##vector-ref _g97393_ 1)))) + (##vector-ref _g97390_ 1)))) (if (let () (declare (not safe)) - (null? _vars96854_)) - _tree96853_ + (null? _vars96851_)) + _tree96850_ (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Missing ellipsis" - _stx96803_ - _vars96854_)))))))))) - (let* ((_e9680796817_ _stx96803_) - (_E9680996821_ + _stx96800_ + _vars96851_)))))))))) + (let* ((_e9680496814_ _stx96800_) + (_E9680696818_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; expand-syntax expects a single argument" - _stx96803_)))) - (_E9680896843_ + _stx96800_)))) + (_E9680596840_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9680796817_)) - (let ((_e9681096825_ + (gx#stx-pair? _e9680496814_)) + (let ((_e9680796822_ (let () (declare (not safe)) - (gx#syntax-e _e9680796817_)))) - (let ((_hd9681196828_ + (gx#syntax-e _e9680496814_)))) + (let ((_hd9680896825_ (let () (declare (not safe)) - (##car _e9681096825_))) - (_tl9681296830_ + (##car _e9680796822_))) + (_tl9680996827_ (let () (declare (not safe)) - (##cdr _e9681096825_)))) + (##cdr _e9680796822_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9681296830_)) - (let ((_e9681396833_ + (gx#stx-pair? _tl9680996827_)) + (let ((_e9681096830_ (let () (declare (not safe)) - (gx#syntax-e _tl9681296830_)))) - (let ((_hd9681496836_ + (gx#syntax-e _tl9680996827_)))) + (let ((_hd9681196833_ (let () (declare (not safe)) - (##car _e9681396833_))) - (_tl9681596838_ + (##car _e9681096830_))) + (_tl9681296835_ (let () (declare (not safe)) - (##cdr _e9681396833_)))) - (let ((_form96841_ _hd9681496836_)) + (##cdr _e9681096830_)))) + (let ((_form96838_ _hd9681196833_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl9681596838_)) + (gx#stx-null? _tl9681296835_)) (if '#t - (let ((__tmp97396 - (let ((__tmp97397 + (let ((__tmp97393 + (let ((__tmp97394 (let () (declare (not safe)) - (_parse96806_ - _form96841_)))) + (_parse96803_ + _form96838_)))) (declare (not safe)) - (_generate96805_ - __tmp97397))) - (__tmp97395 + (_generate96802_ + __tmp97394))) + (__tmp97392 (let () (declare (not safe)) (gx#stx-source - _stx96803_)))) + _stx96800_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp97396 - __tmp97395)) + __tmp97393 + __tmp97392)) (let () (declare (not safe)) - (_E9680996821_))) + (_E9680696818_))) (let () (declare (not safe)) - (_E9680996821_)))))) + (_E9680696818_)))))) (let () (declare (not safe)) - (_E9680996821_))))) - (let () (declare (not safe)) (_E9680996821_)))))) - (let () (declare (not safe)) (_E9680896843_)))))) + (_E9680696818_))))) + (let () (declare (not safe)) (_E9680696818_)))))) + (let () (declare (not safe)) (_E9680596840_)))))) (define gx#macro-expand-syntax-case__% - (lambda (_stx96067_ _identifier=?96068_ _unwrap-e96069_ _wrap-e96070_) - (letrec ((_generate-bindings96072_ - (lambda (_target96667_ - _ids96668_ - _clauses96669_ - _clause-ids96670_ - _E96671_) - (letrec ((_generate196673_ - (lambda (_clause96770_ _clause-id96771_ _E96772_) - (let ((__tmp97402 + (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 (let () (declare (not safe)) - (cons _clause-id96771_ '()))) - (__tmp97398 - (let ((__tmp97399 - (let ((__tmp97401 + (cons _clause-id96768_ '()))) + (__tmp97395 + (let ((__tmp97396 + (let ((__tmp97398 (let () (declare (not safe)) - (cons _target96667_ + (cons _target96664_ '()))) - (__tmp97400 + (__tmp97397 (let () (declare (not safe)) - (_generate-clause96074_ - _target96667_ - _ids96668_ - _clause96770_ - _E96772_)))) + (_generate-clause96071_ + _target96664_ + _ids96665_ + _clause96767_ + _E96769_)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp97401 - __tmp97400)))) + __tmp97398 + __tmp97397)))) (declare (not safe)) - (cons __tmp97399 '())))) + (cons __tmp97396 '())))) (declare (not safe)) - (cons __tmp97402 __tmp97398))))) - (let _lp96675_ ((_rest96677_ _clauses96669_) - (_rest-ids96678_ _clause-ids96670_) - (_bindings96679_ '())) - (let* ((_rest9668096688_ _rest96677_) - (_else9668296696_ (lambda () _bindings96679_)) - (_K9668496758_ - (lambda (_rest96699_ _clause96700_) - (let* ((_rest-ids9670196708_ _rest-ids96678_) - (_E9670396712_ + (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_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _rest-ids9670196708_)))) - (_K9670496746_ - (lambda (_rest-ids96715_ - _clause-id96716_) - (let* ((_rest-ids9671796725_ - _rest-ids96715_) - (_else9671996733_ + _rest-ids9669896705_)))) + (_K9670196743_ + (lambda (_rest-ids96712_ + _clause-id96713_) + (let* ((_rest-ids9671496722_ + _rest-ids96712_) + (_else9671696730_ (lambda () - (let ((__tmp97403 + (let ((__tmp97400 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_generate196673_ - _clause96700_ - _clause-id96716_ - _E96671_)))) + (_generate196670_ + _clause96697_ + _clause-id96713_ + _E96668_)))) (declare (not safe)) - (cons __tmp97403 _bindings96679_)))) + (cons __tmp97400 _bindings96676_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K9672196738_ - (lambda (_next-clause-id96736_) - (let ((__tmp97404 - (let ((__tmp97405 + (_K9671896735_ + (lambda (_next-clause-id96733_) + (let ((__tmp97401 + (let ((__tmp97402 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_generate196673_ - _clause96700_ - _clause-id96716_ - _next-clause-id96736_)))) + (_generate196670_ + _clause96697_ + _clause-id96713_ + _next-clause-id96733_)))) (declare (not safe)) - (cons __tmp97405 _bindings96679_)))) + (cons __tmp97402 _bindings96676_)))) (declare (not safe)) - (_lp96675_ _rest96699_ _rest-ids96715_ __tmp97404))))) + (_lp96672_ _rest96696_ _rest-ids96712_ __tmp97401))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest-ids9671796725_)) - (let* ((_hd9672296741_ + (##pair? _rest-ids9671496722_)) + (let* ((_hd9671996738_ (let () (declare (not safe)) - (##car _rest-ids9671796725_))) - (_next-clause-id96744_ - _hd9672296741_)) + (##car _rest-ids9671496722_))) + (_next-clause-id96741_ + _hd9671996738_)) (declare (not safe)) - (_K9672196738_ - _next-clause-id96744_)) + (_K9671896735_ + _next-clause-id96741_)) (let () (declare (not safe)) - (_else9671996733_))))))) + (_else9671696730_))))))) (if (let () (declare (not safe)) - (##pair? _rest-ids9670196708_)) - (let ((_hd9670596749_ + (##pair? _rest-ids9669896705_)) + (let ((_hd9670296746_ (let () (declare (not safe)) - (##car _rest-ids9670196708_))) - (_tl9670696751_ + (##car _rest-ids9669896705_))) + (_tl9670396748_ (let () (declare (not safe)) - (##cdr _rest-ids9670196708_)))) - (let* ((_clause-id96754_ - _hd9670596749_) - (_rest-ids96756_ - _tl9670696751_)) + (##cdr _rest-ids9669896705_)))) + (let* ((_clause-id96751_ + _hd9670296746_) + (_rest-ids96753_ + _tl9670396748_)) (declare (not safe)) - (_K9670496746_ - _rest-ids96756_ - _clause-id96754_))) + (_K9670196743_ + _rest-ids96753_ + _clause-id96751_))) (let () (declare (not safe)) - (_E9670396712_))))))) + (_E9670096709_))))))) (if (let () (declare (not safe)) - (##pair? _rest9668096688_)) - (let ((_hd9668596761_ + (##pair? _rest9667796685_)) + (let ((_hd9668296758_ (let () (declare (not safe)) - (##car _rest9668096688_))) - (_tl9668696763_ + (##car _rest9667796685_))) + (_tl9668396760_ (let () (declare (not safe)) - (##cdr _rest9668096688_)))) - (let* ((_clause96766_ _hd9668596761_) - (_rest96768_ _tl9668696763_)) + (##cdr _rest9667796685_)))) + (let* ((_clause96763_ _hd9668296758_) + (_rest96765_ _tl9668396760_)) (declare (not safe)) - (_K9668496758_ _rest96768_ _clause96766_))) + (_K9668196755_ _rest96765_ _clause96763_))) (let () (declare (not safe)) - (_else9668296696_)))))))) - (_generate-body96073_ - (lambda (_bindings96627_ _body96628_) - (let _recur96630_ ((_rest96632_ _bindings96627_)) - (let* ((_rest9663396641_ _rest96632_) - (_else9663596649_ (lambda () _body96628_)) - (_K9663796655_ - (lambda (_rest96652_ _hd96653_) - (let ((__tmp97407 + (_else9667996693_)))))))) + (_generate-body96070_ + (lambda (_bindings96624_ _body96625_) + (let _recur96627_ ((_rest96629_ _bindings96624_)) + (let* ((_rest9663096638_ _rest96629_) + (_else9663296646_ (lambda () _body96625_)) + (_K9663496652_ + (lambda (_rest96649_ _hd96650_) + (let ((__tmp97404 (let () (declare (not safe)) - (cons _hd96653_ '()))) - (__tmp97406 + (cons _hd96650_ '()))) + (__tmp97403 (let () (declare (not safe)) - (_recur96630_ _rest96652_)))) + (_recur96627_ _rest96649_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp97407 - __tmp97406))))) + __tmp97404 + __tmp97403))))) (if (let () (declare (not safe)) - (##pair? _rest9663396641_)) - (let ((_hd9663896658_ + (##pair? _rest9663096638_)) + (let ((_hd9663596655_ (let () (declare (not safe)) - (##car _rest9663396641_))) - (_tl9663996660_ + (##car _rest9663096638_))) + (_tl9663696657_ (let () (declare (not safe)) - (##cdr _rest9663396641_)))) - (let* ((_hd96663_ _hd9663896658_) - (_rest96665_ _tl9663996660_)) + (##cdr _rest9663096638_)))) + (let* ((_hd96660_ _hd9663596655_) + (_rest96662_ _tl9663696657_)) (declare (not safe)) - (_K9663796655_ _rest96665_ _hd96663_))) + (_K9663496652_ _rest96662_ _hd96660_))) (let () (declare (not safe)) - (_else9663596649_))))))) - (_generate-clause96074_ - (lambda (_target96490_ _ids96491_ _clause96492_ _E96493_) - (letrec ((_generate196495_ - (lambda (_hd96582_ _fender96583_ _body96584_) - (let ((_g97408_ + (_else9663296646_))))))) + (_generate-clause96071_ + (lambda (_target96487_ _ids96488_ _clause96489_ _E96490_) + (letrec ((_generate196492_ + (lambda (_hd96579_ _fender96580_ _body96581_) + (let ((_g97405_ (let () (declare (not safe)) - (_parse-clause96076_ - _hd96582_ - _ids96491_)))) + (_parse-clause96073_ + _hd96579_ + _ids96488_)))) (begin - (let ((_g97409_ + (let ((_g97406_ (let () (declare (not safe)) - (if (##values? _g97408_) - (##vector-length _g97408_) + (if (##values? _g97405_) + (##vector-length _g97405_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97409_ 2))) + (##fx= _g97406_ 2))) (error "Context expects 2 values" - _g97409_))) - (let ((_e96586_ + _g97406_))) + (let ((_e96583_ (let () (declare (not safe)) - (##vector-ref _g97408_ 0))) - (_mvars96587_ + (##vector-ref _g97405_ 0))) + (_mvars96584_ (let () (declare (not safe)) - (##vector-ref _g97408_ 1)))) - (let* ((_pvars96589_ + (##vector-ref _g97405_ 1)))) + (let* ((_pvars96586_ (map gx#syntax-local-rewrap (let () (declare (not safe)) (gx#gentemps - _mvars96587_)))) - (_E96591_ - (let ((__tmp97410 + _mvars96584_)))) + (_E96588_ + (let ((__tmp97407 (let () (declare (not safe)) - (cons _target96490_ + (cons _target96487_ '())))) (declare (not safe)) - (cons _E96493_ __tmp97410))) - (_K96624_ - (let ((__tmp97411 - (let ((__tmp97413 - (map (lambda (_mvar96593_ + (cons _E96490_ __tmp97407))) + (_K96621_ + (let ((__tmp97408 + (let ((__tmp97410 + (map (lambda (_mvar96590_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pvar96594_) - (let* ((_mvar9659596602_ _mvar96593_) - (_E9659796606_ + _pvar96591_) + (let* ((_mvar9659296599_ _mvar96590_) + (_E9659496603_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _mvar9659596602_)))) - (_K9659896612_ - (lambda (_depth96609_ _id96610_) - (let ((__tmp97414 - (let ((__tmp97415 - (let ((__tmp97417 + _mvar9659296599_)))) + (_K9659596609_ + (lambda (_depth96606_ _id96607_) + (let ((__tmp97411 + (let ((__tmp97412 + (let ((__tmp97414 (let () (declare (not safe)) (gx#core-list 'quote - _id96610_))) - (__tmp97416 + _id96607_))) + (__tmp97413 (let () (declare (not safe)) (gx#core-list 'quote - _pvar96594_)))) + _pvar96591_)))) (declare (not safe)) (gx#core-list 'make-syntax-pattern - __tmp97417 - __tmp97416 - _depth96609_)))) + __tmp97414 + __tmp97413 + _depth96606_)))) (declare (not safe)) - (cons __tmp97415 '())))) + (cons __tmp97412 '())))) (declare (not safe)) - (cons _id96610_ __tmp97414))))) + (cons _id96607_ __tmp97411))))) (if (let () (declare (not safe)) - (##pair? _mvar9659596602_)) - (let ((_hd9659996615_ + (##pair? _mvar9659296599_)) + (let ((_hd9659696612_ (let () (declare (not safe)) - (##car _mvar9659596602_))) - (_tl9660096617_ + (##car _mvar9659296599_))) + (_tl9659796614_ (let () (declare (not safe)) - (##cdr _mvar9659596602_)))) - (let* ((_id96620_ _hd9659996615_) - (_depth96622_ _tl9660096617_)) + (##cdr _mvar9659296599_)))) + (let* ((_id96617_ _hd9659696612_) + (_depth96619_ _tl9659796614_)) (declare (not safe)) - (_K9659896612_ _depth96622_ _id96620_))) + (_K9659596609_ _depth96619_ _id96617_))) (let () (declare (not safe)) - (_E9659796606_))))) - _mvars96587_ - _pvars96589_)) - (__tmp97412 - (if (let () (declare (not safe)) (eq? _fender96583_ '#t)) - _body96584_ + (_E9659496603_))))) + _mvars96584_ + _pvars96586_)) + (__tmp97409 + (if (let () (declare (not safe)) (eq? _fender96580_ '#t)) + _body96581_ (let () (declare (not safe)) (gx#core-list 'if - _fender96583_ - _body96584_ - _E96591_))))) + _fender96580_ + _body96581_ + _E96588_))))) (declare (not safe)) - (gx#core-list 'let-syntax __tmp97413 __tmp97412)))) + (gx#core-list 'let-syntax __tmp97410 __tmp97409)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'lambda% - _pvars96589_ - __tmp97411)))) + _pvars96586_ + __tmp97408)))) (let () (declare (not safe)) - (_generate-match96075_ - _hd96582_ - _target96490_ - _e96586_ - _mvars96587_ - _K96624_ - _E96591_))))))))) - (let* ((_e9649696516_ _clause96492_) - (_E9650596520_ + (_generate-match96072_ + _hd96579_ + _target96487_ + _e96583_ + _mvars96584_ + _K96621_ + _E96588_))))))))) + (let* ((_e9649396513_ _clause96489_) + (_E9650296517_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9649696516_)))) - (_E9649896554_ + _e9649396513_)))) + (_E9649596551_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9649696516_)) - (let ((_e9650696524_ + (gx#stx-pair? _e9649396513_)) + (let ((_e9650396521_ (let () (declare (not safe)) - (gx#syntax-e _e9649696516_)))) - (let ((_hd9650796527_ + (gx#syntax-e _e9649396513_)))) + (let ((_hd9650496524_ (let () (declare (not safe)) - (##car _e9650696524_))) - (_tl9650896529_ + (##car _e9650396521_))) + (_tl9650596526_ (let () (declare (not safe)) - (##cdr _e9650696524_)))) - (let ((_hd96532_ _hd9650796527_)) + (##cdr _e9650396521_)))) + (let ((_hd96529_ _hd9650496524_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9650896529_)) - (let ((_e9650996534_ + (gx#stx-pair? _tl9650596526_)) + (let ((_e9650696531_ (let () (declare (not safe)) (gx#syntax-e - _tl9650896529_)))) - (let ((_hd9651096537_ + _tl9650596526_)))) + (let ((_hd9650796534_ (let () (declare (not safe)) - (##car _e9650996534_))) - (_tl9651196539_ + (##car _e9650696531_))) + (_tl9650896536_ (let () (declare (not safe)) - (##cdr _e9650996534_)))) - (let ((_fender96542_ - _hd9651096537_)) + (##cdr _e9650696531_)))) + (let ((_fender96539_ + _hd9650796534_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl9651196539_)) - (let ((_e9651296544_ + _tl9650896536_)) + (let ((_e9650996541_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl9651196539_)))) - (let ((_hd9651396547_ - (let () (declare (not safe)) (##car _e9651296544_))) - (_tl9651496549_ - (let () (declare (not safe)) (##cdr _e9651296544_)))) - (let ((_body96552_ _hd9651396547_)) + (gx#syntax-e _tl9650896536_)))) + (let ((_hd9651096544_ + (let () (declare (not safe)) (##car _e9650996541_))) + (_tl9651196546_ + (let () (declare (not safe)) (##cdr _e9650996541_)))) + (let ((_body96549_ _hd9651096544_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl9651496549_)) + (gx#stx-null? _tl9651196546_)) (if '#t (let () (declare (not safe)) - (_generate196495_ - _hd96532_ - _fender96542_ - _body96552_)) - (let () (declare (not safe)) (_E9650596520_))) - (let () (declare (not safe)) (_E9650596520_)))))) - (let () (declare (not safe)) (_E9650596520_)))))) + (_generate196492_ + _hd96529_ + _fender96539_ + _body96549_)) + (let () (declare (not safe)) (_E9650296517_))) + (let () (declare (not safe)) (_E9650296517_)))))) + (let () (declare (not safe)) (_E9650296517_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9650596520_)))))) + (_E9650296517_)))))) (let () (declare (not safe)) - (_E9650596520_))))) - (_E9649796578_ + (_E9650296517_))))) + (_E9649496575_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9649696516_)) - (let ((_e9649996558_ + (gx#stx-pair? _e9649396513_)) + (let ((_e9649696555_ (let () (declare (not safe)) - (gx#syntax-e _e9649696516_)))) - (let ((_hd9650096561_ + (gx#syntax-e _e9649396513_)))) + (let ((_hd9649796558_ (let () (declare (not safe)) - (##car _e9649996558_))) - (_tl9650196563_ + (##car _e9649696555_))) + (_tl9649896560_ (let () (declare (not safe)) - (##cdr _e9649996558_)))) - (let ((_hd96566_ _hd9650096561_)) + (##cdr _e9649696555_)))) + (let ((_hd96563_ _hd9649796558_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9650196563_)) - (let ((_e9650296568_ + (gx#stx-pair? _tl9649896560_)) + (let ((_e9649996565_ (let () (declare (not safe)) (gx#syntax-e - _tl9650196563_)))) - (let ((_hd9650396571_ + _tl9649896560_)))) + (let ((_hd9650096568_ (let () (declare (not safe)) - (##car _e9650296568_))) - (_tl9650496573_ + (##car _e9649996565_))) + (_tl9650196570_ (let () (declare (not safe)) - (##cdr _e9650296568_)))) - (let ((_body96576_ - _hd9650396571_)) + (##cdr _e9649996565_)))) + (let ((_body96573_ + _hd9650096568_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl9650496573_)) + _tl9650196570_)) (if '#t (let () (declare (not safe)) - (_generate196495_ - _hd96566_ + (_generate196492_ + _hd96563_ '#t - _body96576_)) + _body96573_)) (let () (declare (not safe)) - (_E9649896554_))) + (_E9649596551_))) (let () (declare (not safe)) - (_E9649896554_)))))) + (_E9649596551_)))))) (let () (declare (not safe)) - (_E9649896554_)))))) + (_E9649596551_)))))) (let () (declare (not safe)) - (_E9649896554_)))))) - (let () (declare (not safe)) (_E9649796578_)))))) - (_generate-match96075_ - (lambda (_where96239_ - _target96240_ - _hd96241_ - _mvars96242_ - _K96243_ - _E96244_) - (letrec ((_BUG96246_ - (lambda (_q96488_) + (_E9649596551_)))))) + (let () (declare (not safe)) (_E9649496575_)))))) + (_generate-match96072_ + (lambda (_where96236_ + _target96237_ + _hd96238_ + _mvars96239_ + _K96240_ + _E96241_) + (letrec ((_BUG96243_ + (lambda (_q96485_) (let () (declare (not safe)) (error '"BUG: syntax-case; generate" - _stx96067_ - _hd96241_ - _q96488_)))) - (_recur96247_ - (lambda (_e96338_ - _vars96339_ - _target96340_ - _E96341_ - _k96342_) - (let* ((_e9634396350_ _e96338_) - (_E9634596354_ + _stx96064_ + _hd96238_ + _q96485_)))) + (_recur96244_ + (lambda (_e96335_ + _vars96336_ + _target96337_ + _E96338_ + _k96339_) + (let* ((_e9634096347_ _e96335_) + (_E9634296351_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _e9634396350_)))) - (_K9634696476_ - (lambda (_body96357_ _tag96358_) - (let ((_$e96360_ _tag96358_)) + _e9634096347_)))) + (_K9634396473_ + (lambda (_body96354_ _tag96355_) + (let ((_$e96357_ _tag96355_)) (if (let () (declare (not safe)) - (eq? 'any _$e96360_)) - (_k96342_ _vars96339_) + (eq? 'any _$e96357_)) + (_k96339_ _vars96336_) (if (let () (declare (not safe)) - (eq? 'id _$e96360_)) - (let ((__tmp97524 + (eq? 'id _$e96357_)) + (let ((__tmp97521 (let () (declare (not safe)) (gx#core-list 'identifier? - _target96340_))) - (__tmp97520 - (let ((__tmp97522 + _target96337_))) + (__tmp97517 + (let ((__tmp97519 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp97523 + (let ((__tmp97520 (let () (declare (not safe)) - (gx#core-list _wrap-e96070_ _body96357_)))) + (gx#core-list _wrap-e96067_ _body96354_)))) (declare (not safe)) (gx#core-list - _identifier=?96068_ - __tmp97523 - _target96340_))) - (__tmp97521 (_k96342_ _vars96339_))) + _identifier=?96065_ + __tmp97520 + _target96337_))) + (__tmp97518 (_k96339_ _vars96336_))) (declare (not safe)) - (gx#core-list 'if __tmp97522 __tmp97521 _E96341_)))) + (gx#core-list 'if __tmp97519 __tmp97518 _E96338_)))) (declare (not safe)) - (gx#core-list 'if __tmp97524 __tmp97520 _E96341_)) + (gx#core-list 'if __tmp97521 __tmp97517 _E96338_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (eq? 'var _$e96360_)) - (_k96342_ - (let ((__tmp97519 + (eq? 'var _$e96357_)) + (_k96339_ + (let ((__tmp97516 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body96357_ _target96340_)))) + (cons _body96354_ _target96337_)))) (declare (not safe)) - (cons __tmp97519 _vars96339_))) - (if (let () (declare (not safe)) (eq? 'cons _$e96360_)) - (let ((_$e96363_ + (cons __tmp97516 _vars96336_))) + (if (let () (declare (not safe)) (eq? 'cons _$e96357_)) + (let ((_$e96360_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_$hd96364_ + (_$hd96361_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_$tl96365_ + (_$tl96362_ (let () (declare (not safe)) (gx#genident__1 'tl)))) - (let ((__tmp97518 + (let ((__tmp97515 (let () (declare (not safe)) - (gx#core-list 'stx-pair? _target96340_))) - (__tmp97499 - (let ((__tmp97513 - (let ((__tmp97514 - (let ((__tmp97517 + (gx#core-list 'stx-pair? _target96337_))) + (__tmp97496 + (let ((__tmp97510 + (let ((__tmp97511 + (let ((__tmp97514 (let () (declare (not safe)) - (cons _$e96363_ '()))) - (__tmp97515 - (let ((__tmp97516 + (cons _$e96360_ '()))) + (__tmp97512 + (let ((__tmp97513 (let () (declare (not safe)) (gx#core-list - _unwrap-e96069_ - _target96340_)))) + _unwrap-e96066_ + _target96337_)))) (declare (not safe)) - (cons __tmp97516 '())))) + (cons __tmp97513 '())))) (declare (not safe)) - (cons __tmp97517 __tmp97515)))) + (cons __tmp97514 __tmp97512)))) (declare (not safe)) - (cons __tmp97514 '()))) - (__tmp97500 - (let ((__tmp97503 - (let ((__tmp97509 - (let ((__tmp97512 + (cons __tmp97511 '()))) + (__tmp97497 + (let ((__tmp97500 + (let ((__tmp97506 + (let ((__tmp97509 (let () (declare (not safe)) - (cons _$hd96364_ + (cons _$hd96361_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp97510 - (let ((__tmp97511 + (__tmp97507 + (let ((__tmp97508 (let () (declare (not safe)) - (gx#core-list '##car _$e96363_)))) + (gx#core-list '##car _$e96360_)))) (declare (not safe)) - (cons __tmp97511 '())))) + (cons __tmp97508 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97512 - __tmp97510))) - (__tmp97504 - (let ((__tmp97505 - (let ((__tmp97508 + (cons __tmp97509 + __tmp97507))) + (__tmp97501 + (let ((__tmp97502 + (let ((__tmp97505 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$tl96365_ '()))) - (__tmp97506 - (let ((__tmp97507 + (cons _$tl96362_ '()))) + (__tmp97503 + (let ((__tmp97504 (let () (declare (not safe)) - (gx#core-list '##cdr _$e96363_)))) + (gx#core-list '##cdr _$e96360_)))) (declare (not safe)) - (cons __tmp97507 '())))) + (cons __tmp97504 '())))) (declare (not safe)) - (cons __tmp97508 __tmp97506)))) + (cons __tmp97505 __tmp97503)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97505 '())))) + (cons __tmp97502 '())))) (declare (not safe)) - (cons __tmp97509 __tmp97504))) - (__tmp97501 - (let* ((_body9636696373_ - _body96357_) - (_E9636896377_ + (cons __tmp97506 __tmp97501))) + (__tmp97498 + (let* ((_body9636396370_ + _body96354_) + (_E9636596374_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _body9636696373_)))) - (_K9636996385_ - (lambda (_tl96380_ - _hd96381_) - (let ((__tmp97502 - (lambda (_vars96383_) + _body9636396370_)))) + (_K9636696382_ + (lambda (_tl96377_ + _hd96378_) + (let ((__tmp97499 + (lambda (_vars96380_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_recur96247_ - _tl96380_ - _vars96383_ - _$tl96365_ - _E96341_ - _k96342_))))) + (_recur96244_ + _tl96377_ + _vars96380_ + _$tl96362_ + _E96338_ + _k96339_))))) (declare (not safe)) - (_recur96247_ - _hd96381_ - _vars96339_ - _$hd96364_ - _E96341_ - __tmp97502))))) + (_recur96244_ + _hd96378_ + _vars96336_ + _$hd96361_ + _E96338_ + __tmp97499))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _body9636696373_)) - (let ((_hd9637096388_ + (##pair? _body9636396370_)) + (let ((_hd9636796385_ (let () (declare (not safe)) - (##car _body9636696373_))) - (_tl9637196390_ + (##car _body9636396370_))) + (_tl9636896387_ (let () (declare (not safe)) - (##cdr _body9636696373_)))) - (let* ((_hd96393_ - _hd9637096388_) - (_tl96395_ - _tl9637196390_)) + (##cdr _body9636396370_)))) + (let* ((_hd96390_ + _hd9636796385_) + (_tl96392_ + _tl9636896387_)) (declare (not safe)) - (_K9636996385_ - _tl96395_ - _hd96393_))) + (_K9636696382_ + _tl96392_ + _hd96390_))) (let () (declare (not safe)) - (_E9636896377_)))))) + (_E9636596374_)))))) (declare (not safe)) (gx#core-list 'let-values - __tmp97503 - __tmp97501)))) + __tmp97500 + __tmp97498)))) (declare (not safe)) (gx#core-list 'let-values - __tmp97513 - __tmp97500)))) + __tmp97510 + __tmp97497)))) (declare (not safe)) - (gx#core-list 'if __tmp97518 __tmp97499 _E96341_))) - (if (let () (declare (not safe)) (eq? 'splice _$e96360_)) - (let* ((_body9639696403_ _body96357_) - (_E9639896407_ + (gx#core-list 'if __tmp97515 __tmp97496 _E96338_))) + (if (let () (declare (not safe)) (eq? 'splice _$e96357_)) + (let* ((_body9639396400_ _body96354_) + (_E9639596404_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _body9639696403_)))) - (_K9639996458_ - (lambda (_tl96410_ _hd96411_) - (let* ((_rlen96413_ + _body9639396400_)))) + (_K9639696455_ + (lambda (_tl96407_ _hd96408_) + (let* ((_rlen96410_ (let () (declare (not safe)) - (_splice-rlen96248_ _tl96410_))) - (_$target96415_ + (_splice-rlen96245_ _tl96407_))) + (_$target96412_ (let () (declare (not safe)) (gx#genident__1 'target))) - (_$hd96417_ + (_$hd96414_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_$tl96419_ + (_$tl96416_ (let () (declare (not safe)) (gx#genident__1 'tl))) - (_$lp96421_ + (_$lp96418_ (let () (declare (not safe)) (gx#genident__1 'loop))) - (_$lp-e96423_ + (_$lp-e96420_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_$lp-hd96425_ + (_$lp-hd96422_ (let () (declare (not safe)) (gx#genident__1 'lp-hd))) - (_$lp-tl96427_ + (_$lp-tl96424_ (let () (declare (not safe)) (gx#genident__1 'lp-tl))) - (_svars96429_ + (_svars96426_ (let () (declare (not safe)) - (_splice-vars96249_ _hd96411_))) - (_lvars96431_ + (_splice-vars96246_ _hd96408_))) + (_lvars96428_ (let () (declare (not safe)) - (gx#gentemps _svars96429_))) - (_tlvars96433_ + (gx#gentemps _svars96426_))) + (_tlvars96430_ (let () (declare (not safe)) - (gx#gentemps _svars96429_))) - (_linit96437_ - (map (lambda (_var96435_) + (gx#gentemps _svars96426_))) + (_linit96434_ + (map (lambda (_var96432_) (let () (declare (not safe)) (gx#core-list 'quote '()))) - _lvars96431_))) - (letrec ((_make-loop96440_ - (lambda (_vars96444_) - (let ((__tmp97450 - (let ((__tmp97451 - (let ((__tmp97487 + _lvars96428_))) + (letrec ((_make-loop96437_ + (lambda (_vars96441_) + (let ((__tmp97447 + (let ((__tmp97448 + (let ((__tmp97484 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$lp96421_ '()))) - (__tmp97452 - (let ((__tmp97453 - (let ((__tmp97486 + (cons _$lp96418_ '()))) + (__tmp97449 + (let ((__tmp97450 + (let ((__tmp97483 (let () (declare (not safe)) - (cons _$hd96417_ _lvars96431_))) - (__tmp97454 - (let ((__tmp97485 + (cons _$hd96414_ _lvars96428_))) + (__tmp97451 + (let ((__tmp97482 (let () (declare (not safe)) (gx#core-list 'stx-pair? - _$hd96417_))) - (__tmp97463 - (let ((__tmp97480 - (let ((__tmp97481 - (let ((__tmp97484 + _$hd96414_))) + (__tmp97460 + (let ((__tmp97477 + (let ((__tmp97478 + (let ((__tmp97481 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$lp-e96423_ '()))) - (__tmp97482 - (let ((__tmp97483 + (cons _$lp-e96420_ '()))) + (__tmp97479 + (let ((__tmp97480 (let () (declare (not safe)) (gx#core-list - _unwrap-e96069_ - _$hd96417_)))) + _unwrap-e96066_ + _$hd96414_)))) (declare (not safe)) - (cons __tmp97483 '())))) + (cons __tmp97480 '())))) (declare (not safe)) - (cons __tmp97484 __tmp97482)))) + (cons __tmp97481 __tmp97479)))) (declare (not safe)) - (cons __tmp97481 '()))) - (__tmp97464 - (let ((__tmp97470 - (let ((__tmp97476 - (let ((__tmp97479 + (cons __tmp97478 '()))) + (__tmp97461 + (let ((__tmp97467 + (let ((__tmp97473 + (let ((__tmp97476 (let () (declare (not safe)) - (cons _$lp-hd96425_ '()))) - (__tmp97477 - (let ((__tmp97478 + (cons _$lp-hd96422_ '()))) + (__tmp97474 + (let ((__tmp97475 (let () (declare (not safe)) (gx#core-list '##car - _$lp-e96423_)))) + _$lp-e96420_)))) (declare (not safe)) - (cons __tmp97478 '())))) + (cons __tmp97475 '())))) (declare (not safe)) - (cons __tmp97479 __tmp97477))) - (__tmp97471 - (let ((__tmp97472 - (let ((__tmp97475 + (cons __tmp97476 __tmp97474))) + (__tmp97468 + (let ((__tmp97469 + (let ((__tmp97472 (let () (declare (not safe)) - (cons _$lp-tl96427_ '()))) - (__tmp97473 - (let ((__tmp97474 + (cons _$lp-tl96424_ '()))) + (__tmp97470 + (let ((__tmp97471 (let () (declare (not safe)) (gx#core-list '##cdr - _$lp-e96423_)))) + _$lp-e96420_)))) (declare (not safe)) - (cons __tmp97474 '())))) + (cons __tmp97471 '())))) (declare (not safe)) - (cons __tmp97475 __tmp97473)))) + (cons __tmp97472 __tmp97470)))) (declare (not safe)) - (cons __tmp97472 '())))) + (cons __tmp97469 '())))) (declare (not safe)) - (cons __tmp97476 __tmp97471))) - (__tmp97465 - (let ((__tmp97466 - (lambda (_hdvars96446_) - (let ((__tmp97467 - (let ((__tmp97468 - (map (lambda (_svar96448_ - _lvar96449_) - (let ((__tmp97469 + (cons __tmp97473 __tmp97468))) + (__tmp97462 + (let ((__tmp97463 + (lambda (_hdvars96443_) + (let ((__tmp97464 + (let ((__tmp97465 + (map (lambda (_svar96445_ + _lvar96446_) + (let ((__tmp97466 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq__% _svar96448_ _hdvars96446_ _BUG96246_)))) + (assgetq__% _svar96445_ _hdvars96443_ _BUG96243_)))) (declare (not safe)) - (gx#core-list 'cons __tmp97469 _lvar96449_))) + (gx#core-list 'cons __tmp97466 _lvar96446_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _svars96429_ - _lvars96431_))) + _svars96426_ + _lvars96428_))) (declare (not safe)) - (cons _$lp-tl96427_ __tmp97468)))) + (cons _$lp-tl96424_ __tmp97465)))) (declare (not safe)) - (cons _$lp96421_ __tmp97467))))) + (cons _$lp96418_ __tmp97464))))) (declare (not safe)) - (_recur96247_ - _hd96411_ + (_recur96244_ + _hd96408_ '() - _$lp-hd96425_ - _E96341_ - __tmp97466)))) + _$lp-hd96422_ + _E96338_ + __tmp97463)))) (declare (not safe)) - (gx#core-list 'let-values __tmp97470 __tmp97465)))) + (gx#core-list 'let-values __tmp97467 __tmp97462)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp97480 - __tmp97464))) - (__tmp97455 - (let ((__tmp97459 - (map (lambda (_lvar96451_ + __tmp97477 + __tmp97461))) + (__tmp97452 + (let ((__tmp97456 + (map (lambda (_lvar96448_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tlvar96452_) - (let ((__tmp97462 + _tlvar96449_) + (let ((__tmp97459 (let () (declare (not safe)) - (cons _tlvar96452_ '()))) - (__tmp97460 - (let ((__tmp97461 + (cons _tlvar96449_ '()))) + (__tmp97457 + (let ((__tmp97458 (let () (declare (not safe)) - (gx#core-list 'reverse _lvar96451_)))) + (gx#core-list 'reverse _lvar96448_)))) (declare (not safe)) - (cons __tmp97461 '())))) + (cons __tmp97458 '())))) (declare (not safe)) - (cons __tmp97462 __tmp97460))) - _lvars96431_ - _tlvars96433_)) - (__tmp97456 - (_k96342_ - (let ((__tmp97457 - (lambda (_svar96454_ _tlvar96455_ _r96456_) - (let ((__tmp97458 + (cons __tmp97459 __tmp97457))) + _lvars96428_ + _tlvars96430_)) + (__tmp97453 + (_k96339_ + (let ((__tmp97454 + (lambda (_svar96451_ _tlvar96452_ _r96453_) + (let ((__tmp97455 (let () (declare (not safe)) - (cons _svar96454_ _tlvar96455_)))) + (cons _svar96451_ _tlvar96452_)))) (declare (not safe)) - (cons __tmp97458 _r96456_))))) + (cons __tmp97455 _r96453_))))) (declare (not safe)) - (foldl2 __tmp97457 - _vars96444_ - _svars96429_ - _tlvars96433_))))) + (foldl2 __tmp97454 + _vars96441_ + _svars96426_ + _tlvars96430_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp97459 - __tmp97456)))) + __tmp97456 + __tmp97453)))) (declare (not safe)) (gx#core-list 'if - __tmp97485 - __tmp97463 - __tmp97455)))) + __tmp97482 + __tmp97460 + __tmp97452)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp97486 - __tmp97454)))) + __tmp97483 + __tmp97451)))) (declare (not safe)) - (cons __tmp97453 '())))) + (cons __tmp97450 '())))) (declare (not safe)) - (cons __tmp97487 __tmp97452)))) + (cons __tmp97484 __tmp97449)))) (declare (not safe)) - (cons __tmp97451 '()))) - (__tmp97448 - (let ((__tmp97449 + (cons __tmp97448 '()))) + (__tmp97445 + (let ((__tmp97446 (let () (declare (not safe)) - (cons _$target96415_ _linit96437_)))) + (cons _$target96412_ _linit96434_)))) (declare (not safe)) - (cons _$lp96421_ __tmp97449)))) + (cons _$lp96418_ __tmp97446)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'letrec-values - __tmp97450 - __tmp97448))))) - (let ((_body96442_ - (let ((__tmp97489 - (let ((__tmp97490 - (let ((__tmp97493 + __tmp97447 + __tmp97445))))) + (let ((_body96439_ + (let ((__tmp97486 + (let ((__tmp97487 + (let ((__tmp97490 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp97494 + (let ((__tmp97491 (let () (declare (not safe)) - (cons _$tl96419_ '())))) + (cons _$tl96416_ '())))) (declare (not safe)) - (cons _$target96415_ __tmp97494))) - (__tmp97491 - (let ((__tmp97492 + (cons _$target96412_ __tmp97491))) + (__tmp97488 + (let ((__tmp97489 (let () (declare (not safe)) (gx#core-list 'syntax-split-splice - _target96340_ - _rlen96413_)))) + _target96337_ + _rlen96410_)))) (declare (not safe)) - (cons __tmp97492 '())))) + (cons __tmp97489 '())))) (declare (not safe)) - (cons __tmp97493 __tmp97491)))) + (cons __tmp97490 __tmp97488)))) (declare (not safe)) - (cons __tmp97490 '()))) + (cons __tmp97487 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp97488 + (__tmp97485 (let () (declare (not safe)) - (_recur96247_ - _tl96410_ - _vars96339_ - _$tl96419_ - _E96341_ - _make-loop96440_)))) + (_recur96244_ + _tl96407_ + _vars96336_ + _$tl96416_ + _E96338_ + _make-loop96437_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp97489 - __tmp97488)))) - (let ((__tmp97498 + __tmp97486 + __tmp97485)))) + (let ((__tmp97495 (let () (declare (not safe)) (gx#core-list 'stx-pair/null? - _target96340_))) - (__tmp97495 + _target96337_))) + (__tmp97492 (if (let () (declare (not safe)) - (zero? _rlen96413_)) - _body96442_ - (let ((__tmp97496 - (let ((__tmp97497 + (zero? _rlen96410_)) + _body96439_ + (let ((__tmp97493 + (let ((__tmp97494 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#core-list 'stx-length _target96340_)))) + (gx#core-list 'stx-length _target96337_)))) (declare (not safe)) - (gx#core-list 'fx>= __tmp97497 _rlen96413_)))) + (gx#core-list 'fx>= __tmp97494 _rlen96410_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'if - __tmp97496 - _body96442_ - _E96341_))))) + __tmp97493 + _body96439_ + _E96338_))))) (declare (not safe)) (gx#core-list 'if - __tmp97498 __tmp97495 - _E96341_)))))))) + __tmp97492 + _E96338_)))))))) (if (let () (declare (not safe)) - (##pair? _body9639696403_)) - (let ((_hd9640096461_ + (##pair? _body9639396400_)) + (let ((_hd9639796458_ (let () (declare (not safe)) - (##car _body9639696403_))) - (_tl9640196463_ + (##car _body9639396400_))) + (_tl9639896460_ (let () (declare (not safe)) - (##cdr _body9639696403_)))) - (let* ((_hd96466_ _hd9640096461_) - (_tl96468_ _tl9640196463_)) + (##cdr _body9639396400_)))) + (let* ((_hd96463_ _hd9639796458_) + (_tl96465_ _tl9639896460_)) (declare (not safe)) - (_K9639996458_ _tl96468_ _hd96466_))) - (let () (declare (not safe)) (_E9639896407_)))) - (if (let () (declare (not safe)) (eq? 'null _$e96360_)) - (let ((__tmp97447 + (_K9639696455_ _tl96465_ _hd96463_))) + (let () (declare (not safe)) (_E9639596404_)))) + (if (let () (declare (not safe)) (eq? 'null _$e96357_)) + (let ((__tmp97444 (let () (declare (not safe)) - (gx#core-list 'stx-null? _target96340_))) - (__tmp97446 (_k96342_ _vars96339_))) + (gx#core-list 'stx-null? _target96337_))) + (__tmp97443 (_k96339_ _vars96336_))) (declare (not safe)) (gx#core-list 'if - __tmp97447 - __tmp97446 - _E96341_)) + __tmp97444 + __tmp97443 + _E96338_)) (if (let () (declare (not safe)) - (eq? 'vector _$e96360_)) - (let ((_$e96470_ + (eq? 'vector _$e96357_)) + (let ((_$e96467_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp97445 + (let ((__tmp97442 (let () (declare (not safe)) (gx#core-list 'stx-vector? - _target96340_))) - (__tmp97437 - (let ((__tmp97439 - (let ((__tmp97440 - (let ((__tmp97444 + _target96337_))) + (__tmp97434 + (let ((__tmp97436 + (let ((__tmp97437 + (let ((__tmp97441 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$e96470_ '()))) - (__tmp97441 - (let ((__tmp97442 - (let ((__tmp97443 + (cons _$e96467_ '()))) + (__tmp97438 + (let ((__tmp97439 + (let ((__tmp97440 (let () (declare (not safe)) (gx#core-list - _unwrap-e96069_ - _target96340_)))) + _unwrap-e96066_ + _target96337_)))) (declare (not safe)) - (gx#core-list 'vector->list __tmp97443)))) + (gx#core-list 'vector->list __tmp97440)))) (declare (not safe)) - (cons __tmp97442 '())))) + (cons __tmp97439 '())))) (declare (not safe)) - (cons __tmp97444 __tmp97441)))) + (cons __tmp97441 __tmp97438)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97440 '()))) - (__tmp97438 + (cons __tmp97437 '()))) + (__tmp97435 (let () (declare (not safe)) - (_recur96247_ - _body96357_ - _vars96339_ - _$e96470_ - _E96341_ - _k96342_)))) + (_recur96244_ + _body96354_ + _vars96336_ + _$e96467_ + _E96338_ + _k96339_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp97439 - __tmp97438)))) + __tmp97436 + __tmp97435)))) (declare (not safe)) (gx#core-list 'if - __tmp97445 - __tmp97437 - _E96341_))) + __tmp97442 + __tmp97434 + _E96338_))) (if (let () (declare (not safe)) - (eq? 'box _$e96360_)) - (let ((_$e96472_ + (eq? 'box _$e96357_)) + (let ((_$e96469_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp97436 + (let ((__tmp97433 (let () (declare (not safe)) (gx#core-list 'stx-box? - _target96340_))) - (__tmp97428 - (let ((__tmp97430 - (let ((__tmp97431 - (let ((__tmp97435 + _target96337_))) + (__tmp97425 + (let ((__tmp97427 + (let ((__tmp97428 + (let ((__tmp97432 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _$e96472_ '()))) - (__tmp97432 - (let ((__tmp97433 - (let ((__tmp97434 + (let () (declare (not safe)) (cons _$e96469_ '()))) + (__tmp97429 + (let ((__tmp97430 + (let ((__tmp97431 (let () (declare (not safe)) (gx#core-list - _unwrap-e96069_ - _target96340_)))) + _unwrap-e96066_ + _target96337_)))) (declare (not safe)) - (gx#core-list 'unbox __tmp97434)))) + (gx#core-list 'unbox __tmp97431)))) (declare (not safe)) - (cons __tmp97433 '())))) + (cons __tmp97430 '())))) (declare (not safe)) - (cons __tmp97435 __tmp97432)))) + (cons __tmp97432 __tmp97429)))) (declare (not safe)) - (cons __tmp97431 '()))) + (cons __tmp97428 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp97429 + (__tmp97426 (let () (declare (not safe)) - (_recur96247_ - _body96357_ - _vars96339_ - _$e96472_ - _E96341_ - _k96342_)))) + (_recur96244_ + _body96354_ + _vars96336_ + _$e96469_ + _E96338_ + _k96339_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp97430 - __tmp97429)))) + __tmp97427 + __tmp97426)))) (declare (not safe)) (gx#core-list 'if - __tmp97436 - __tmp97428 - _E96341_))) + __tmp97433 + __tmp97425 + _E96338_))) (if (let () (declare (not safe)) - (eq? 'datum _$e96360_)) - (let ((_$e96474_ + (eq? 'datum _$e96357_)) + (let ((_$e96471_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp97427 + (let ((__tmp97424 (let () (declare (not safe)) (gx#core-list 'stx-datum? - _target96340_))) - (__tmp97418 - (let ((__tmp97422 - (let ((__tmp97423 - (let ((__tmp97426 + _target96337_))) + (__tmp97415 + (let ((__tmp97419 + (let ((__tmp97420 + (let ((__tmp97423 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$e96474_ '()))) - (__tmp97424 - (let ((__tmp97425 + (cons _$e96471_ '()))) + (__tmp97421 + (let ((__tmp97422 (let () (declare (not safe)) - (gx#core-list 'stx-e _target96340_)))) + (gx#core-list 'stx-e _target96337_)))) (declare (not safe)) - (cons __tmp97425 '())))) + (cons __tmp97422 '())))) (declare (not safe)) - (cons __tmp97426 __tmp97424)))) + (cons __tmp97423 __tmp97421)))) (declare (not safe)) - (cons __tmp97423 '()))) - (__tmp97419 - (let ((__tmp97421 + (cons __tmp97420 '()))) + (__tmp97416 + (let ((__tmp97418 (let () (declare (not safe)) - (gx#core-list 'equal? _$e96474_ _body96357_))) - (__tmp97420 (_k96342_ _vars96339_))) + (gx#core-list 'equal? _$e96471_ _body96354_))) + (__tmp97417 (_k96339_ _vars96336_))) (declare (not safe)) - (gx#core-list 'if __tmp97421 __tmp97420 _E96341_)))) + (gx#core-list 'if __tmp97418 __tmp97417 _E96338_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp97422 - __tmp97419)))) + __tmp97419 + __tmp97416)))) (declare (not safe)) (gx#core-list 'if - __tmp97427 - __tmp97418 - _E96341_))) + __tmp97424 + __tmp97415 + _E96338_))) (let () (declare (not safe)) - (_BUG96246_ _e96338_))))))))))))))) + (_BUG96243_ _e96335_))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e9634396350_)) - (let ((_hd9634796479_ + (##pair? _e9634096347_)) + (let ((_hd9634496476_ (let () (declare (not safe)) - (##car _e9634396350_))) - (_tl9634896481_ + (##car _e9634096347_))) + (_tl9634596478_ (let () (declare (not safe)) - (##cdr _e9634396350_)))) - (let* ((_tag96484_ _hd9634796479_) - (_body96486_ _tl9634896481_)) + (##cdr _e9634096347_)))) + (let* ((_tag96481_ _hd9634496476_) + (_body96483_ _tl9634596478_)) (declare (not safe)) - (_K9634696476_ - _body96486_ - _tag96484_))) + (_K9634396473_ + _body96483_ + _tag96481_))) (let () (declare (not safe)) - (_E9634596354_)))))) - (_splice-rlen96248_ - (lambda (_e96300_) - (let _lp96302_ ((_e96304_ _e96300_) - (_n96305_ '0)) - (let* ((_e9630696313_ _e96304_) - (_E9630896317_ + (_E9634296351_)))))) + (_splice-rlen96245_ + (lambda (_e96297_) + (let _lp96299_ ((_e96301_ _e96297_) + (_n96302_ '0)) + (let* ((_e9630396310_ _e96301_) + (_E9630596314_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _e9630696313_)))) - (_K9630996326_ - (lambda (_body96320_ _tag96321_) - (let ((_$e96323_ _tag96321_)) + _e9630396310_)))) + (_K9630696323_ + (lambda (_body96317_ _tag96318_) + (let ((_$e96320_ _tag96318_)) (if (let () (declare (not safe)) - (eq? 'splice _$e96323_)) + (eq? 'splice _$e96320_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Ambiguous pattern" - _stx96067_ - _where96239_)) + _stx96064_ + _where96236_)) (if (let () (declare (not safe)) - (eq? 'cons _$e96323_)) - (let ((__tmp97526 - (cdr _body96320_)) - (__tmp97525 + (eq? 'cons _$e96320_)) + (let ((__tmp97523 + (cdr _body96317_)) + (__tmp97522 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (fx+ _n96305_ '1)))) + (fx+ _n96302_ '1)))) (declare (not safe)) - (_lp96302_ __tmp97526 __tmp97525)) - _n96305_)))))) + (_lp96299_ __tmp97523 __tmp97522)) + _n96302_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e9630696313_)) - (let ((_hd9631096329_ + (##pair? _e9630396310_)) + (let ((_hd9630796326_ (let () (declare (not safe)) - (##car _e9630696313_))) - (_tl9631196331_ + (##car _e9630396310_))) + (_tl9630896328_ (let () (declare (not safe)) - (##cdr _e9630696313_)))) - (let* ((_tag96334_ _hd9631096329_) - (_body96336_ _tl9631196331_)) + (##cdr _e9630396310_)))) + (let* ((_tag96331_ _hd9630796326_) + (_body96333_ _tl9630896328_)) (declare (not safe)) - (_K9630996326_ - _body96336_ - _tag96334_))) + (_K9630696323_ + _body96333_ + _tag96331_))) (let () (declare (not safe)) - (_E9630896317_))))))) - (_splice-vars96249_ - (lambda (_e96256_) - (let _recur96258_ ((_e96260_ _e96256_) - (_vars96261_ '())) - (let* ((_e9626296269_ _e96260_) - (_E9626496273_ + (_E9630596314_))))))) + (_splice-vars96246_ + (lambda (_e96253_) + (let _recur96255_ ((_e96257_ _e96253_) + (_vars96258_ '())) + (let* ((_e9625996266_ _e96257_) + (_E9626196270_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _e9626296269_)))) - (_K9626596288_ - (lambda (_body96276_ _tag96277_) - (let ((_$e96279_ _tag96277_)) + _e9625996266_)))) + (_K9626296285_ + (lambda (_body96273_ _tag96274_) + (let ((_$e96276_ _tag96274_)) (if (let () (declare (not safe)) - (eq? 'var _$e96279_)) + (eq? 'var _$e96276_)) (let () (declare (not safe)) - (cons _body96276_ - _vars96261_)) + (cons _body96273_ + _vars96258_)) (if (or (let () (declare (not safe)) (eq? 'cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e96279_)) - (let () (declare (not safe)) (eq? 'splice _$e96279_))) - (let ((__tmp97529 (cdr _body96276_)) - (__tmp97527 - (let ((__tmp97528 (car _body96276_))) + _$e96276_)) + (let () (declare (not safe)) (eq? 'splice _$e96276_))) + (let ((__tmp97526 (cdr _body96273_)) + (__tmp97524 + (let ((__tmp97525 (car _body96273_))) (declare (not safe)) - (_recur96258_ __tmp97528 _vars96261_)))) + (_recur96255_ __tmp97525 _vars96258_)))) (declare (not safe)) - (_recur96258_ __tmp97529 __tmp97527)) - (if (or (let () (declare (not safe)) (eq? 'vector _$e96279_)) - (let () (declare (not safe)) (eq? 'box _$e96279_))) + (_recur96255_ __tmp97526 __tmp97524)) + (if (or (let () (declare (not safe)) (eq? 'vector _$e96276_)) + (let () (declare (not safe)) (eq? 'box _$e96276_))) (let () (declare (not safe)) - (_recur96258_ _body96276_ _vars96261_)) - _vars96261_))))))) + (_recur96255_ _body96273_ _vars96258_)) + _vars96258_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e9626296269_)) - (let ((_hd9626696291_ + (##pair? _e9625996266_)) + (let ((_hd9626396288_ (let () (declare (not safe)) - (##car _e9626296269_))) - (_tl9626796293_ + (##car _e9625996266_))) + (_tl9626496290_ (let () (declare (not safe)) - (##cdr _e9626296269_)))) - (let* ((_tag96296_ _hd9626696291_) - (_body96298_ _tl9626796293_)) + (##cdr _e9625996266_)))) + (let* ((_tag96293_ _hd9626396288_) + (_body96295_ _tl9626496290_)) (declare (not safe)) - (_K9626596288_ - _body96298_ - _tag96296_))) + (_K9626296285_ + _body96295_ + _tag96293_))) (let () (declare (not safe)) - (_E9626496273_))))))) - (_make-body96250_ - (lambda (_vars96252_) - (let ((__tmp97530 - (map (lambda (_mvar96254_) - (let ((__tmp97531 - (car _mvar96254_))) + (_E9626196270_))))))) + (_make-body96247_ + (lambda (_vars96249_) + (let ((__tmp97527 + (map (lambda (_mvar96251_) + (let ((__tmp97528 + (car _mvar96251_))) (declare (not safe)) (assgetq__% - __tmp97531 - _vars96252_ - _BUG96246_))) - _mvars96242_))) + __tmp97528 + _vars96249_ + _BUG96243_))) + _mvars96239_))) (declare (not safe)) - (cons _K96243_ __tmp97530))))) + (cons _K96240_ __tmp97527))))) (let () (declare (not safe)) - (_recur96247_ - _hd96241_ + (_recur96244_ + _hd96238_ '() - _target96240_ - _E96244_ - _make-body96250_))))) - (_parse-clause96076_ - (lambda (_hd96145_ _ids96146_) - (let _recur96148_ ((_e96150_ _hd96145_) - (_vars96151_ '()) - (_depth96152_ '0)) + _target96237_ + _E96241_ + _make-body96247_))))) + (_parse-clause96073_ + (lambda (_hd96142_ _ids96143_) + (let _recur96145_ ((_e96147_ _hd96142_) + (_vars96148_ '()) + (_depth96149_ '0)) (if (let () (declare (not safe)) - (gx#identifier? _e96150_)) + (gx#identifier? _e96147_)) (if (let () (declare (not safe)) - (gx#underscore? _e96150_)) - (values '(any) _vars96151_) + (gx#underscore? _e96147_)) + (values '(any) _vars96148_) (if (let () (declare (not safe)) - (gx#ellipsis? _e96150_)) + (gx#ellipsis? _e96147_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _stx96067_ - _hd96145_)) - (if (let ((__tmp97547 - (lambda (_id96154_) + _stx96064_ + _hd96142_)) + (if (let ((__tmp97544 + (lambda (_id96151_) (let () (declare (not safe)) (gx#bound-identifier=? - _e96150_ - _id96154_))))) + _e96147_ + _id96151_))))) (declare (not safe)) - (find __tmp97547 _ids96146_)) + (find __tmp97544 _ids96143_)) (values (let () (declare (not safe)) - (cons 'id _e96150_)) - _vars96151_) - (if (let ((__tmp97545 - (lambda (_var96156_) - (let ((__tmp97546 - (car _var96156_))) + (cons 'id _e96147_)) + _vars96148_) + (if (let ((__tmp97542 + (lambda (_var96153_) + (let ((__tmp97543 + (car _var96153_))) (declare (not safe)) (gx#bound-identifier=? - _e96150_ - __tmp97546))))) + _e96147_ + __tmp97543))))) (declare (not safe)) - (find __tmp97545 _vars96151_)) + (find __tmp97542 _vars96148_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Duplicate pattern variable" - _stx96067_ - _e96150_)) + _stx96064_ + _e96147_)) (values (let () (declare (not safe)) - (cons 'var _e96150_)) - (let ((__tmp97544 + (cons 'var _e96147_)) + (let ((__tmp97541 (let () (declare (not safe)) - (cons _e96150_ + (cons _e96147_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _depth96152_)))) + _depth96149_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97544 - _vars96151_))))))) + (cons __tmp97541 + _vars96148_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _e96150_)) - (let* ((_e9615796164_ _e96150_) - (_E9615996168_ + (gx#stx-pair? _e96147_)) + (let* ((_e9615496161_ _e96147_) + (_E9615696165_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9615796164_)))) - (_E9615896229_ + _e9615496161_)))) + (_E9615596226_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9615796164_)) - (let ((_e9616096172_ + (gx#stx-pair? _e9615496161_)) + (let ((_e9615796169_ (let () (declare (not safe)) (gx#syntax-e - _e9615796164_)))) - (let ((_hd9616196175_ + _e9615496161_)))) + (let ((_hd9615896172_ (let () (declare (not safe)) - (##car _e9616096172_))) - (_tl9616296177_ + (##car _e9615796169_))) + (_tl9615996174_ (let () (declare (not safe)) - (##cdr _e9616096172_)))) - (let* ((_hd96180_ - _hd9616196175_) - (_rest96182_ - _tl9616296177_)) + (##cdr _e9615796169_)))) + (let* ((_hd96177_ + _hd9615896172_) + (_rest96179_ + _tl9615996174_)) (if '#t - (let* ((_make-pair96197_ - (lambda (_tag96184_ + (let* ((_make-pair96194_ + (lambda (_tag96181_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd96185_ - _tl96186_) - (let* ((_hd-depth96188_ + _hd96182_ + _tl96183_) + (let* ((_hd-depth96185_ (if (let () (declare (not safe)) - (eq? _tag96184_ 'splice)) + (eq? _tag96181_ 'splice)) (let () (declare (not safe)) - (fx+ _depth96152_ '1)) - _depth96152_)) - (_g97539_ + (fx+ _depth96149_ '1)) + _depth96149_)) + (_g97536_ (let () (declare (not safe)) - (_recur96148_ - _hd96185_ - _vars96151_ - _hd-depth96188_)))) + (_recur96145_ + _hd96182_ + _vars96148_ + _hd-depth96185_)))) (begin - (let ((_g97540_ + (let ((_g97537_ (let () (declare (not safe)) - (if (##values? _g97539_) - (##vector-length _g97539_) + (if (##values? _g97536_) + (##vector-length _g97536_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97540_ 2))) - (error "Context expects 2 values" _g97540_))) - (let ((_hd96190_ + (##fx= _g97537_ 2))) + (error "Context expects 2 values" _g97537_))) + (let ((_hd96187_ (let () (declare (not safe)) - (##vector-ref _g97539_ 0))) - (_vars96191_ + (##vector-ref _g97536_ 0))) + (_vars96188_ (let () (declare (not safe)) - (##vector-ref _g97539_ 1)))) - (let ((_g97541_ + (##vector-ref _g97536_ 1)))) + (let ((_g97538_ (let () (declare (not safe)) - (_recur96148_ - _tl96186_ - _vars96191_ - _depth96152_)))) + (_recur96145_ + _tl96183_ + _vars96188_ + _depth96149_)))) (begin - (let ((_g97542_ + (let ((_g97539_ (let () (declare (not safe)) - (if (##values? _g97541_) - (##vector-length _g97541_) + (if (##values? _g97538_) + (##vector-length _g97538_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97542_ 2))) + (##fx= _g97539_ 2))) (error "Context expects 2 values" - _g97542_))) - (let ((_tl96193_ + _g97539_))) + (let ((_tl96190_ (let () (declare (not safe)) - (##vector-ref _g97541_ 0))) - (_vars96194_ + (##vector-ref _g97538_ 0))) + (_vars96191_ (let () (declare (not safe)) - (##vector-ref _g97541_ 1)))) + (##vector-ref _g97538_ 1)))) (let () - (values (let ((__tmp97543 + (values (let ((__tmp97540 (let () (declare (not safe)) - (cons _hd96190_ - _tl96193_)))) + (cons _hd96187_ + _tl96190_)))) (declare (not safe)) - (cons _tag96184_ __tmp97543)) - _vars96194_)))))))))) - (_e9619896205_ _rest96182_) - (_E9620096209_ + (cons _tag96181_ __tmp97540)) + _vars96191_)))))))))) + (_e9619596202_ _rest96179_) + (_E9619796206_ (lambda () (let () (declare (not safe)) - (_make-pair96197_ 'cons _hd96180_ _rest96182_)))) - (_E9619996225_ + (_make-pair96194_ 'cons _hd96177_ _rest96179_)))) + (_E9619696222_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9619896205_)) - (let ((_e9620196213_ + (gx#stx-pair? _e9619596202_)) + (let ((_e9619896210_ (let () (declare (not safe)) - (gx#syntax-e _e9619896205_)))) - (let ((_hd9620296216_ + (gx#syntax-e _e9619596202_)))) + (let ((_hd9619996213_ (let () (declare (not safe)) - (##car _e9620196213_))) - (_tl9620396218_ + (##car _e9619896210_))) + (_tl9620096215_ (let () (declare (not safe)) - (##cdr _e9620196213_)))) - (let* ((_rest-hd96221_ _hd9620296216_) - (_rest-tl96223_ _tl9620396218_)) + (##cdr _e9619896210_)))) + (let* ((_rest-hd96218_ _hd9619996213_) + (_rest-tl96220_ _tl9620096215_)) (if '#t (if (let () (declare (not safe)) - (gx#ellipsis? _rest-hd96221_)) + (gx#ellipsis? _rest-hd96218_)) (let () (declare (not safe)) - (_make-pair96197_ + (_make-pair96194_ 'splice - _hd96180_ - _rest-tl96223_)) + _hd96177_ + _rest-tl96220_)) (let () (declare (not safe)) - (_make-pair96197_ + (_make-pair96194_ 'cons - _hd96180_ - _rest96182_))) + _hd96177_ + _rest96179_))) (let () (declare (not safe)) - (_E9620096209_)))))) - (let () (declare (not safe)) (_E9620096209_)))))) - (let () (declare (not safe)) (_E9619996225_))) - (let () (declare (not safe)) (_E9615996168_)))))) + (_E9619796206_)))))) + (let () (declare (not safe)) (_E9619796206_)))))) + (let () (declare (not safe)) (_E9619696222_))) + (let () (declare (not safe)) (_E9615696165_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9615996168_)))))) - (let () (declare (not safe)) (_E9615896229_))) + (_E9615696165_)))))) + (let () (declare (not safe)) (_E9615596226_))) (if (let () (declare (not safe)) - (gx#stx-null? _e96150_)) - (values '(null) _vars96151_) + (gx#stx-null? _e96147_)) + (values '(null) _vars96148_) (if (let () (declare (not safe)) - (gx#stx-vector? _e96150_)) - (let ((_g97536_ - (let ((__tmp97538 + (gx#stx-vector? _e96147_)) + (let ((_g97533_ + (let ((__tmp97535 (vector->list (let () (declare (not safe)) (gx#syntax-e - _e96150_))))) + _e96147_))))) (declare (not safe)) - (_recur96148_ - __tmp97538 - _vars96151_ - _depth96152_)))) + (_recur96145_ + __tmp97535 + _vars96148_ + _depth96149_)))) (begin - (let ((_g97537_ + (let ((_g97534_ (let () (declare (not safe)) - (if (##values? _g97536_) + (if (##values? _g97533_) (##vector-length - _g97536_) + _g97533_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97537_ 2))) + (##fx= _g97534_ 2))) (error "Context expects 2 values" - _g97537_))) - (let ((_e96233_ + _g97534_))) + (let ((_e96230_ (let () (declare (not safe)) - (##vector-ref _g97536_ 0))) - (_vars96234_ + (##vector-ref _g97533_ 0))) + (_vars96231_ (let () (declare (not safe)) - (##vector-ref _g97536_ 1)))) + (##vector-ref _g97533_ 1)))) (values (let () (declare (not safe)) - (cons 'vector _e96233_)) - _vars96234_)))) + (cons 'vector _e96230_)) + _vars96231_)))) (if (let () (declare (not safe)) - (gx#stx-box? _e96150_)) - (let ((_g97533_ - (let ((__tmp97535 + (gx#stx-box? _e96147_)) + (let ((_g97530_ + (let ((__tmp97532 (unbox (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _e96150_))))) + (gx#syntax-e _e96147_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_recur96148_ - __tmp97535 - _vars96151_ - _depth96152_)))) + (_recur96145_ + __tmp97532 + _vars96148_ + _depth96149_)))) (begin - (let ((_g97534_ + (let ((_g97531_ (let () (declare (not safe)) - (if (##values? _g97533_) + (if (##values? _g97530_) (##vector-length - _g97533_) + _g97530_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97534_ 2))) + (##fx= _g97531_ 2))) (error "Context expects 2 values" - _g97534_))) - (let ((_e96236_ + _g97531_))) + (let ((_e96233_ (let () (declare (not safe)) (##vector-ref - _g97533_ + _g97530_ 0))) - (_vars96237_ + (_vars96234_ (let () (declare (not safe)) (##vector-ref - _g97533_ + _g97530_ 1)))) (values (let () (declare (not safe)) - (cons 'box _e96236_)) - _vars96237_)))) + (cons 'box _e96233_)) + _vars96234_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _e96150_)) - (values (let ((__tmp97532 + (gx#stx-datum? _e96147_)) + (values (let ((__tmp97529 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _e96150_)))) + (gx#stx-e _e96147_)))) (declare (not safe)) - (cons 'datum __tmp97532)) - _vars96151_) + (cons 'datum __tmp97529)) + _vars96148_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad pattern" - _stx96067_ - _e96150_)))))))))))) - (let* ((_e9607796090_ _stx96067_) - (_E9607996094_ + _stx96064_ + _e96147_)))))))))))) + (let* ((_e9607496087_ _stx96064_) + (_E9607696091_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9607796090_)))) - (_E9607896141_ + _e9607496087_)))) + (_E9607596138_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9607796090_)) - (let ((_e9608096098_ + (gx#stx-pair? _e9607496087_)) + (let ((_e9607796095_ (let () (declare (not safe)) - (gx#syntax-e _e9607796090_)))) - (let ((_hd9608196101_ + (gx#syntax-e _e9607496087_)))) + (let ((_hd9607896098_ (let () (declare (not safe)) - (##car _e9608096098_))) - (_tl9608296103_ + (##car _e9607796095_))) + (_tl9607996100_ (let () (declare (not safe)) - (##cdr _e9608096098_)))) + (##cdr _e9607796095_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9608296103_)) - (let ((_e9608396106_ + (gx#stx-pair? _tl9607996100_)) + (let ((_e9608096103_ (let () (declare (not safe)) - (gx#syntax-e _tl9608296103_)))) - (let ((_hd9608496109_ + (gx#syntax-e _tl9607996100_)))) + (let ((_hd9608196106_ (let () (declare (not safe)) - (##car _e9608396106_))) - (_tl9608596111_ + (##car _e9608096103_))) + (_tl9608296108_ (let () (declare (not safe)) - (##cdr _e9608396106_)))) - (let ((_expr96114_ _hd9608496109_)) + (##cdr _e9608096103_)))) + (let ((_expr96111_ _hd9608196106_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9608596111_)) - (let ((_e9608696116_ + (gx#stx-pair? _tl9608296108_)) + (let ((_e9608396113_ (let () (declare (not safe)) (gx#syntax-e - _tl9608596111_)))) - (let ((_hd9608796119_ + _tl9608296108_)))) + (let ((_hd9608496116_ (let () (declare (not safe)) - (##car _e9608696116_))) - (_tl9608896121_ + (##car _e9608396113_))) + (_tl9608596118_ (let () (declare (not safe)) - (##cdr _e9608696116_)))) - (let* ((_ids96124_ - _hd9608796119_) - (_clauses96126_ - _tl9608896121_)) + (##cdr _e9608396113_)))) + (let* ((_ids96121_ + _hd9608496116_) + (_clauses96123_ + _tl9608596118_)) (if '#t - (if (let ((__tmp97565 + (if (let ((__tmp97562 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier-list? _ids96124_)))) + (gx#identifier-list? _ids96121_)))) (declare (not safe)) - (not __tmp97565)) + (not __tmp97562)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad template identifier list" - _stx96067_ - _ids96124_)) - (if (let ((__tmp97564 + _stx96064_ + _ids96121_)) + (if (let ((__tmp97561 (let () (declare (not safe)) - (gx#stx-list? _clauses96126_)))) + (gx#stx-list? _clauses96123_)))) (declare (not safe)) - (not __tmp97564)) + (not __tmp97561)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; clauses expected" - _stx96067_)) - (let* ((_ids96128_ + _stx96064_)) + (let* ((_ids96125_ (let () (declare (not safe)) - (gx#syntax->list _ids96124_))) - (_clauses96130_ + (gx#syntax->list _ids96121_))) + (_clauses96127_ (let () (declare (not safe)) - (gx#syntax->list _clauses96126_))) - (_clause-ids96132_ + (gx#syntax->list _clauses96123_))) + (_clause-ids96129_ (let () (declare (not safe)) - (gx#gentemps _clauses96130_))) - (_E96134_ + (gx#gentemps _clauses96127_))) + (_E96131_ (let () (declare (not safe)) (gx#genident__0))) - (_target96136_ + (_target96133_ (let () (declare (not safe)) (gx#genident__0))) - (_first96138_ + (_first96135_ (if (let () (declare (not safe)) - (null? _clauses96130_)) - _E96134_ - (car _clause-ids96132_)))) - (let ((__tmp97549 - (let ((__tmp97550 - (let ((__tmp97552 - (let ((__tmp97557 - (let ((__tmp97558 - (let ((__tmp97563 + (null? _clauses96127_)) + _E96131_ + (car _clause-ids96129_)))) + (let ((__tmp97546 + (let ((__tmp97547 + (let ((__tmp97549 + (let ((__tmp97554 + (let ((__tmp97555 + (let ((__tmp97560 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _E96134_ '()))) - (__tmp97559 - (let ((__tmp97560 - (let ((__tmp97562 + (cons _E96131_ '()))) + (__tmp97556 + (let ((__tmp97557 + (let ((__tmp97559 (let () (declare (not safe)) - (cons _target96136_ '()))) - (__tmp97561 + (cons _target96133_ '()))) + (__tmp97558 (let () (declare (not safe)) (gx#core-list 'raise-syntax-error '#f '"Bad syntax; invalid match target" - _target96136_)))) + _target96133_)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp97562 - __tmp97561)))) + __tmp97559 + __tmp97558)))) (declare (not safe)) - (cons __tmp97560 '())))) + (cons __tmp97557 '())))) (declare (not safe)) - (cons __tmp97563 __tmp97559)))) + (cons __tmp97560 __tmp97556)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97558 '()))) - (__tmp97553 - (let ((__tmp97556 + (cons __tmp97555 '()))) + (__tmp97550 + (let ((__tmp97553 (let () (declare (not safe)) - (_generate-bindings96072_ - _target96136_ - _ids96128_ - _clauses96130_ - _clause-ids96132_ - _E96134_))) - (__tmp97554 - (let ((__tmp97555 + (_generate-bindings96069_ + _target96133_ + _ids96125_ + _clauses96127_ + _clause-ids96129_ + _E96131_))) + (__tmp97551 + (let ((__tmp97552 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr96114_ '())))) + (cons _expr96111_ '())))) (declare (not safe)) - (cons _first96138_ __tmp97555)))) + (cons _first96135_ __tmp97552)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_generate-body96073_ - __tmp97556 - __tmp97554)))) + (_generate-body96070_ + __tmp97553 + __tmp97551)))) (declare (not safe)) (gx#core-list 'let-values - __tmp97557 - __tmp97553))) - (__tmp97551 + __tmp97554 + __tmp97550))) + (__tmp97548 (let () (declare (not safe)) - (gx#stx-source _stx96067_)))) + (gx#stx-source _stx96064_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp97552 - __tmp97551)))) + __tmp97549 + __tmp97548)))) (declare (not safe)) (gx#core-list 'begin-annotation '@syntax-case - __tmp97550))) - (__tmp97548 + __tmp97547))) + (__tmp97545 (let () (declare (not safe)) - (gx#stx-source _stx96067_)))) + (gx#stx-source _stx96064_)))) (declare (not safe)) - (gx#stx-wrap-source __tmp97549 __tmp97548))))) + (gx#stx-wrap-source __tmp97546 __tmp97545))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9607996094_)))))) + (_E9607696091_)))))) (let () (declare (not safe)) - (_E9607996094_)))))) + (_E9607696091_)))))) (let () (declare (not safe)) - (_E9607996094_))))) - (let () (declare (not safe)) (_E9607996094_)))))) - (let () (declare (not safe)) (_E9607896141_)))))) + (_E9607696091_))))) + (let () (declare (not safe)) (_E9607696091_)))))) + (let () (declare (not safe)) (_E9607596138_)))))) (define gx#macro-expand-syntax-case__0 - (lambda (_stx96777_) - (let* ((_identifier=?96779_ 'free-identifier=?) - (_unwrap-e96781_ 'syntax-e) - (_wrap-e96783_ 'quote-syntax)) + (lambda (_stx96774_) + (let* ((_identifier=?96776_ 'free-identifier=?) + (_unwrap-e96778_ 'syntax-e) + (_wrap-e96780_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx96777_ - _identifier=?96779_ - _unwrap-e96781_ - _wrap-e96783_)))) + _stx96774_ + _identifier=?96776_ + _unwrap-e96778_ + _wrap-e96780_)))) (define gx#macro-expand-syntax-case__1 - (lambda (_stx96785_ _identifier=?96786_) - (let* ((_unwrap-e96788_ 'syntax-e) (_wrap-e96790_ 'quote-syntax)) + (lambda (_stx96782_ _identifier=?96783_) + (let* ((_unwrap-e96785_ 'syntax-e) (_wrap-e96787_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx96785_ - _identifier=?96786_ - _unwrap-e96788_ - _wrap-e96790_)))) + _stx96782_ + _identifier=?96783_ + _unwrap-e96785_ + _wrap-e96787_)))) (define gx#macro-expand-syntax-case__2 - (lambda (_stx96792_ _identifier=?96793_ _unwrap-e96794_) - (let ((_wrap-e96796_ 'quote-syntax)) + (lambda (_stx96789_ _identifier=?96790_ _unwrap-e96791_) + (let ((_wrap-e96793_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx96792_ - _identifier=?96793_ - _unwrap-e96794_ - _wrap-e96796_)))) + _stx96789_ + _identifier=?96790_ + _unwrap-e96791_ + _wrap-e96793_)))) (define gx#macro-expand-syntax-case - (lambda _g97567_ - (let ((_g97566_ (let () (declare (not safe)) (##length _g97567_)))) - (cond ((let () (declare (not safe)) (##fx= _g97566_ 1)) - (apply (lambda (_stx96777_) + (lambda _g97564_ + (let ((_g97563_ (let () (declare (not safe)) (##length _g97564_)))) + (cond ((let () (declare (not safe)) (##fx= _g97563_ 1)) + (apply (lambda (_stx96774_) (let () (declare (not safe)) - (gx#macro-expand-syntax-case__0 _stx96777_))) - _g97567_)) - ((let () (declare (not safe)) (##fx= _g97566_ 2)) - (apply (lambda (_stx96785_ _identifier=?96786_) + (gx#macro-expand-syntax-case__0 _stx96774_))) + _g97564_)) + ((let () (declare (not safe)) (##fx= _g97563_ 2)) + (apply (lambda (_stx96782_ _identifier=?96783_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__1 - _stx96785_ - _identifier=?96786_))) - _g97567_)) - ((let () (declare (not safe)) (##fx= _g97566_ 3)) - (apply (lambda (_stx96792_ - _identifier=?96793_ - _unwrap-e96794_) + _stx96782_ + _identifier=?96783_))) + _g97564_)) + ((let () (declare (not safe)) (##fx= _g97563_ 3)) + (apply (lambda (_stx96789_ + _identifier=?96790_ + _unwrap-e96791_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__2 - _stx96792_ - _identifier=?96793_ - _unwrap-e96794_))) - _g97567_)) - ((let () (declare (not safe)) (##fx= _g97566_ 4)) - (apply (lambda (_stx96798_ - _identifier=?96799_ - _unwrap-e96800_ - _wrap-e96801_) + _stx96789_ + _identifier=?96790_ + _unwrap-e96791_))) + _g97564_)) + ((let () (declare (not safe)) (##fx= _g97563_ 4)) + (apply (lambda (_stx96795_ + _identifier=?96796_ + _unwrap-e96797_ + _wrap-e96798_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx96798_ - _identifier=?96799_ - _unwrap-e96800_ - _wrap-e96801_))) - _g97567_)) + _stx96795_ + _identifier=?96796_ + _unwrap-e96797_ + _wrap-e96798_))) + _g97564_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-syntax-case - _g97567_)))))) + _g97564_)))))) (define gx#syntax-local-pattern? - (lambda (_stx96064_) - (if (let () (declare (not safe)) (gx#identifier? _stx96064_)) - (let ((__tmp97568 + (lambda (_stx96061_) + (if (let () (declare (not safe)) (gx#identifier? _stx96061_)) + (let ((__tmp97565 (let () (declare (not safe)) - (gx#syntax-local-e__% _stx96064_ false)))) + (gx#syntax-local-e__% _stx96061_ false)))) (declare (not safe)) - (##structure-instance-of? __tmp97568 'gx#syntax-pattern::t)) + (##structure-instance-of? __tmp97565 'gx#syntax-pattern::t)) '#f))) (define gx#syntax-check-splice-targets - (lambda (_hd96022_ . _rest96023_) - (let ((_len96025_ (length _hd96022_))) - (let _lp96027_ ((_rest96029_ _rest96023_)) - (let* ((_rest9603096038_ _rest96029_) - (_else9603296046_ (lambda () '#!void)) - (_K9603496052_ - (lambda (_rest96049_ _hd96050_) - (if (fx= _len96025_ (length _hd96050_)) - (let () (declare (not safe)) (_lp96027_ _rest96049_)) + (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_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Splice length mismatch" - _hd96050_)))))) - (if (let () (declare (not safe)) (##pair? _rest9603096038_)) - (let ((_hd9603596055_ + _hd96047_)))))) + (if (let () (declare (not safe)) (##pair? _rest9602796035_)) + (let ((_hd9603296052_ (let () (declare (not safe)) - (##car _rest9603096038_))) - (_tl9603696057_ + (##car _rest9602796035_))) + (_tl9603396054_ (let () (declare (not safe)) - (##cdr _rest9603096038_)))) - (let* ((_hd96060_ _hd9603596055_) - (_rest96062_ _tl9603696057_)) + (##cdr _rest9602796035_)))) + (let* ((_hd96057_ _hd9603296052_) + (_rest96059_ _tl9603396054_)) (declare (not safe)) - (_K9603496052_ _rest96062_ _hd96060_))) + (_K9603196049_ _rest96059_ _hd96057_))) '#!void)))))) (define gx#syntax-split-splice - (lambda (_stx95980_ _n95981_) - (let _lp95983_ ((_rest95985_ _stx95980_) (_r95986_ '())) - (if (let () (declare (not safe)) (gx#stx-pair? _rest95985_)) - (let* ((_g9598795994_ - (let () (declare (not safe)) (gx#syntax-e _rest95985_))) - (_E9598995998_ + (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 () (let () (declare (not safe)) - (error '"No clause matching" _g9598795994_)))) - (_K9599096004_ - (lambda (_rest96001_ _hd96002_) - (let ((__tmp97573 + (error '"No clause matching" _g9598495991_)))) + (_K9598796001_ + (lambda (_rest95998_ _hd95999_) + (let ((__tmp97570 (let () (declare (not safe)) - (cons _hd96002_ _r95986_)))) + (cons _hd95999_ _r95983_)))) (declare (not safe)) - (_lp95983_ _rest96001_ __tmp97573))))) - (if (let () (declare (not safe)) (##pair? _g9598795994_)) - (let ((_hd9599196007_ - (let () (declare (not safe)) (##car _g9598795994_))) - (_tl9599296009_ + (_lp95980_ _rest95998_ __tmp97570))))) + (if (let () (declare (not safe)) (##pair? _g9598495991_)) + (let ((_hd9598896004_ + (let () (declare (not safe)) (##car _g9598495991_))) + (_tl9598996006_ (let () (declare (not safe)) - (##cdr _g9598795994_)))) - (let* ((_hd96012_ _hd9599196007_) - (_rest96014_ _tl9599296009_)) + (##cdr _g9598495991_)))) + (let* ((_hd96009_ _hd9598896004_) + (_rest96011_ _tl9598996006_)) (declare (not safe)) - (_K9599096004_ _rest96014_ _hd96012_))) - (let () (declare (not safe)) (_E9598995998_)))) - (let _lp96016_ ((_n96018_ _n95981_) - (_l96019_ _r95986_) - (_r96020_ _rest95985_)) - (if (let () (declare (not safe)) (null? _l96019_)) - (values _l96019_ _r96020_) - (if (fxpositive? _n96018_) - (let ((__tmp97572 - (let () (declare (not safe)) (fx- _n96018_ '1))) - (__tmp97571 (cdr _l96019_)) - (__tmp97569 - (let ((__tmp97570 (car _l96019_))) + (_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_))) (declare (not safe)) - (cons __tmp97570 _r96020_)))) + (cons __tmp97567 _r96017_)))) (declare (not safe)) - (_lp96016_ __tmp97572 __tmp97571 __tmp97569)) - (values (reverse _l96019_) _r96020_)))))))))) + (_lp96013_ __tmp97569 __tmp97568 __tmp97566)) + (values (reverse _l96016_) _r96017_)))))))))) diff --git a/src/bootstrap/gerbil/expander/stxcase__1.scm b/src/bootstrap/gerbil/expander/stxcase__1.scm index a9dfd366..7c62fb2a 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]#_g97576_| + (define |gx[1]#_g97573_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g97578_| + (define |gx[1]#_g97575_| (##structure gx#syntax-quote::t 'syntax-pattern::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g97580_| + (define |gx[1]#_g97577_| (##structure gx#syntax-quote::t 'make-syntax-pattern #f (gx#current-expander-context) '())) - (define |gx[1]#_g97582_| + (define |gx[1]#_g97579_| (##structure gx#syntax-quote::t 'syntax-pattern? #f (gx#current-expander-context) '())) - (define |gx[1]#_g97588_| + (define |gx[1]#_g97585_| (##structure gx#syntax-quote::t 'syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g97591_| + (define |gx[1]#_g97588_| (##structure gx#syntax-quote::t 'syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g97594_| + (define |gx[1]#_g97591_| (##structure gx#syntax-quote::t 'syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g97600_| + (define |gx[1]#_g97597_| (##structure gx#syntax-quote::t 'syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g97603_| + (define |gx[1]#_g97600_| (##structure gx#syntax-quote::t 'syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g97606_| + (define |gx[1]#_g97603_| (##structure gx#syntax-quote::t 'syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g97612_| + (define |gx[1]#_g97609_| (##structure gx#syntax-quote::t '&syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g97615_| + (define |gx[1]#_g97612_| (##structure gx#syntax-quote::t '&syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g97618_| + (define |gx[1]#_g97615_| (##structure gx#syntax-quote::t '&syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g97624_| + (define |gx[1]#_g97621_| (##structure gx#syntax-quote::t '&syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g97627_| + (define |gx[1]#_g97624_| (##structure gx#syntax-quote::t '&syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g97630_| + (define |gx[1]#_g97627_| (##structure gx#syntax-quote::t '&syntax-pattern-id-set! @@ -113,7 +113,7 @@ (gx#current-expander-context) '())) (define |gx[:0:]#syntax-pattern| - (let ((__obj97326 + (let ((__obj97323 (let () (declare (not safe)) (##structure @@ -136,7 +136,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97326 + __obj97323 '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! - __obj97326 + __obj97323 'syntax-pattern '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -152,26 +152,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97326 + __obj97323 '(id depth) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp97574 - (let ((__tmp97575 |gx[1]#_g97576_|)) + (let ((__tmp97571 + (let ((__tmp97572 |gx[1]#_g97573_|)) (declare (not safe)) - (cons __tmp97575 '())))) + (cons __tmp97572 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj97326 - __tmp97574 + __obj97323 + __tmp97571 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj97326 + __obj97323 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -179,7 +179,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97326 + __obj97323 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -187,7 +187,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97326 + __obj97323 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -195,145 +195,145 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97326 + __obj97323 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp97577 |gx[1]#_g97578_|)) + (let ((__tmp97574 |gx[1]#_g97575_|)) (declare (not safe)) (##unchecked-structure-set! - __obj97326 - __tmp97577 + __obj97323 + __tmp97574 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp97579 |gx[1]#_g97580_|)) + (let ((__tmp97576 |gx[1]#_g97577_|)) (declare (not safe)) (##unchecked-structure-set! - __obj97326 - __tmp97579 + __obj97323 + __tmp97576 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp97581 |gx[1]#_g97582_|)) + (let ((__tmp97578 |gx[1]#_g97579_|)) (declare (not safe)) (##unchecked-structure-set! - __obj97326 - __tmp97581 + __obj97323 + __tmp97578 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp97583 - (let ((__tmp97592 - (let ((__tmp97593 |gx[1]#_g97594_|)) + (let ((__tmp97580 + (let ((__tmp97589 + (let ((__tmp97590 |gx[1]#_g97591_|)) (declare (not safe)) - (cons 'id __tmp97593))) - (__tmp97584 - (let ((__tmp97589 - (let ((__tmp97590 |gx[1]#_g97591_|)) + (cons 'id __tmp97590))) + (__tmp97581 + (let ((__tmp97586 + (let ((__tmp97587 |gx[1]#_g97588_|)) (declare (not safe)) - (cons 'depth __tmp97590))) - (__tmp97585 - (let ((__tmp97586 - (let ((__tmp97587 |gx[1]#_g97588_|)) + (cons 'depth __tmp97587))) + (__tmp97582 + (let ((__tmp97583 + (let ((__tmp97584 |gx[1]#_g97585_|)) (declare (not safe)) - (cons 'e __tmp97587)))) + (cons 'e __tmp97584)))) (declare (not safe)) - (cons __tmp97586 '())))) + (cons __tmp97583 '())))) (declare (not safe)) - (cons __tmp97589 __tmp97585)))) + (cons __tmp97586 __tmp97582)))) (declare (not safe)) - (cons __tmp97592 __tmp97584)))) + (cons __tmp97589 __tmp97581)))) (declare (not safe)) (##unchecked-structure-set! - __obj97326 - __tmp97583 + __obj97323 + __tmp97580 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp97595 - (let ((__tmp97604 - (let ((__tmp97605 |gx[1]#_g97606_|)) + (let ((__tmp97592 + (let ((__tmp97601 + (let ((__tmp97602 |gx[1]#_g97603_|)) (declare (not safe)) - (cons 'id __tmp97605))) - (__tmp97596 - (let ((__tmp97601 - (let ((__tmp97602 |gx[1]#_g97603_|)) + (cons 'id __tmp97602))) + (__tmp97593 + (let ((__tmp97598 + (let ((__tmp97599 |gx[1]#_g97600_|)) (declare (not safe)) - (cons 'depth __tmp97602))) - (__tmp97597 - (let ((__tmp97598 - (let ((__tmp97599 |gx[1]#_g97600_|)) + (cons 'depth __tmp97599))) + (__tmp97594 + (let ((__tmp97595 + (let ((__tmp97596 |gx[1]#_g97597_|)) (declare (not safe)) - (cons 'e __tmp97599)))) + (cons 'e __tmp97596)))) (declare (not safe)) - (cons __tmp97598 '())))) + (cons __tmp97595 '())))) (declare (not safe)) - (cons __tmp97601 __tmp97597)))) + (cons __tmp97598 __tmp97594)))) (declare (not safe)) - (cons __tmp97604 __tmp97596)))) + (cons __tmp97601 __tmp97593)))) (declare (not safe)) (##unchecked-structure-set! - __obj97326 - __tmp97595 + __obj97323 + __tmp97592 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp97607 - (let ((__tmp97616 - (let ((__tmp97617 |gx[1]#_g97618_|)) + (let ((__tmp97604 + (let ((__tmp97613 + (let ((__tmp97614 |gx[1]#_g97615_|)) (declare (not safe)) - (cons 'id __tmp97617))) - (__tmp97608 - (let ((__tmp97613 - (let ((__tmp97614 |gx[1]#_g97615_|)) + (cons 'id __tmp97614))) + (__tmp97605 + (let ((__tmp97610 + (let ((__tmp97611 |gx[1]#_g97612_|)) (declare (not safe)) - (cons 'depth __tmp97614))) - (__tmp97609 - (let ((__tmp97610 - (let ((__tmp97611 |gx[1]#_g97612_|)) + (cons 'depth __tmp97611))) + (__tmp97606 + (let ((__tmp97607 + (let ((__tmp97608 |gx[1]#_g97609_|)) (declare (not safe)) - (cons 'e __tmp97611)))) + (cons 'e __tmp97608)))) (declare (not safe)) - (cons __tmp97610 '())))) + (cons __tmp97607 '())))) (declare (not safe)) - (cons __tmp97613 __tmp97609)))) + (cons __tmp97610 __tmp97606)))) (declare (not safe)) - (cons __tmp97616 __tmp97608)))) + (cons __tmp97613 __tmp97605)))) (declare (not safe)) (##unchecked-structure-set! - __obj97326 - __tmp97607 + __obj97323 + __tmp97604 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp97619 - (let ((__tmp97628 - (let ((__tmp97629 |gx[1]#_g97630_|)) + (let ((__tmp97616 + (let ((__tmp97625 + (let ((__tmp97626 |gx[1]#_g97627_|)) (declare (not safe)) - (cons 'id __tmp97629))) - (__tmp97620 - (let ((__tmp97625 - (let ((__tmp97626 |gx[1]#_g97627_|)) + (cons 'id __tmp97626))) + (__tmp97617 + (let ((__tmp97622 + (let ((__tmp97623 |gx[1]#_g97624_|)) (declare (not safe)) - (cons 'depth __tmp97626))) - (__tmp97621 - (let ((__tmp97622 - (let ((__tmp97623 |gx[1]#_g97624_|)) + (cons 'depth __tmp97623))) + (__tmp97618 + (let ((__tmp97619 + (let ((__tmp97620 |gx[1]#_g97621_|)) (declare (not safe)) - (cons 'e __tmp97623)))) + (cons 'e __tmp97620)))) (declare (not safe)) - (cons __tmp97622 '())))) + (cons __tmp97619 '())))) (declare (not safe)) - (cons __tmp97625 __tmp97621)))) + (cons __tmp97622 __tmp97618)))) (declare (not safe)) - (cons __tmp97628 __tmp97620)))) + (cons __tmp97625 __tmp97617)))) (declare (not safe)) (##unchecked-structure-set! - __obj97326 - __tmp97619 + __obj97323 + __tmp97616 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj97326))) + __obj97323))) diff --git a/src/bootstrap/gerbil/expander/top__0.scm b/src/bootstrap/gerbil/expander/top__0.scm index d3ef5dfe..3bf05c81 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 1709128372) + (define gerbil/expander/top::timestamp 1709229970) (begin (declare (not safe)) (define gx#core-expand-begin% - (lambda (_stx89700_) - (letrec ((_expand-special89702_ - (lambda (_hd89704_ _K89705_ _rest89706_ _r89707_) - (_K89705_ - _rest89706_ - (cons (gx#core-expand-top _hd89704_) _r89707_))))) - (gx#core-expand-block__0 _stx89700_ _expand-special89702_)))) + (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_)))) (define gx#core-expand-begin-syntax% - (lambda (_stx89453_) - (letrec ((_expand-special89455_ - (lambda (_hd89575_ _K89576_ _rest89577_ _r89578_) - (let* ((_K89582_ - (lambda (_e89580_) - (_K89576_ _rest89577_ (cons _e89580_ _r89578_)))) - (_e8958389612_ _hd89575_) - (_E8960789616_ + (lambda (_stx89450_) + (letrec ((_expand-special89452_ + (lambda (_hd89572_ _K89573_ _rest89574_ _r89575_) + (let* ((_K89579_ + (lambda (_e89577_) + (_K89573_ _rest89574_ (cons _e89577_ _r89575_)))) + (_e8958089609_ _hd89572_) + (_E8960489613_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8958389612_))) - (_E8960389628_ + _e8958089609_))) + (_E8960089625_ (lambda () - (if (gx#stx-pair? _e8958389612_) - (let ((_e8960889620_ - (gx#syntax-e _e8958389612_))) - (let ((_hd8960989623_ - (##car _e8960889620_)) - (_tl8961089625_ - (##cdr _e8960889620_))) - (if (and (gx#identifier? _hd8960989623_) + (if (gx#stx-pair? _e8958089609_) + (let ((_e8960589617_ + (gx#syntax-e _e8958089609_))) + (let ((_hd8960689620_ + (##car _e8960589617_)) + (_tl8960789622_ + (##cdr _e8960589617_))) + (if (and (gx#identifier? _hd8960689620_) (gx#core-identifier=? - _hd8960989623_ + _hd8960689620_ '%#define-runtime)) (if '#t - (_K89582_ + (_K89579_ (gx#core-expand-define-runtime% - _hd89575_)) - (_E8960789616_)) - (_E8960789616_)))) - (_E8960789616_)))) - (_E8959989640_ + _hd89572_)) + (_E8960489613_)) + (_E8960489613_)))) + (_E8960489613_)))) + (_E8959689637_ (lambda () - (if (gx#stx-pair? _e8958389612_) - (let ((_e8960489632_ - (gx#syntax-e _e8958389612_))) - (let ((_hd8960589635_ - (##car _e8960489632_)) - (_tl8960689637_ - (##cdr _e8960489632_))) - (if (and (gx#identifier? _hd8960589635_) + (if (gx#stx-pair? _e8958089609_) + (let ((_e8960189629_ + (gx#syntax-e _e8958089609_))) + (let ((_hd8960289632_ + (##car _e8960189629_)) + (_tl8960389634_ + (##cdr _e8960189629_))) + (if (and (gx#identifier? _hd8960289632_) (gx#core-identifier=? - _hd8960589635_ + _hd8960289632_ '%#define-alias)) (if '#t - (_K89582_ + (_K89579_ (gx#core-expand-define-alias% - _hd89575_)) - (_E8960389628_)) - (_E8960389628_)))) - (_E8960389628_)))) - (_E8958989652_ + _hd89572_)) + (_E8960089625_)) + (_E8960089625_)))) + (_E8960089625_)))) + (_E8958689649_ (lambda () - (if (gx#stx-pair? _e8958389612_) - (let ((_e8960089644_ - (gx#syntax-e _e8958389612_))) - (let ((_hd8960189647_ - (##car _e8960089644_)) - (_tl8960289649_ - (##cdr _e8960089644_))) - (if (and (gx#identifier? _hd8960189647_) + (if (gx#stx-pair? _e8958089609_) + (let ((_e8959789641_ + (gx#syntax-e _e8958089609_))) + (let ((_hd8959889644_ + (##car _e8959789641_)) + (_tl8959989646_ + (##cdr _e8959789641_))) + (if (and (gx#identifier? _hd8959889644_) (gx#core-identifier=? - _hd8960189647_ + _hd8959889644_ '%#define-syntax)) (if '#t - (_K89582_ + (_K89579_ (gx#core-expand-define-syntax% - _hd89575_)) - (_E8959989640_)) - (_E8959989640_)))) - (_E8959989640_)))) - (_E8958589684_ + _hd89572_)) + (_E8959689637_)) + (_E8959689637_)))) + (_E8959689637_)))) + (_E8958289681_ (lambda () - (if (gx#stx-pair? _e8958389612_) - (let ((_e8959089656_ - (gx#syntax-e _e8958389612_))) - (let ((_hd8959189659_ - (##car _e8959089656_)) - (_tl8959289661_ - (##cdr _e8959089656_))) - (if (and (gx#identifier? _hd8959189659_) + (if (gx#stx-pair? _e8958089609_) + (let ((_e8958789653_ + (gx#syntax-e _e8958089609_))) + (let ((_hd8958889656_ + (##car _e8958789653_)) + (_tl8958989658_ + (##cdr _e8958789653_))) + (if (and (gx#identifier? _hd8958889656_) (gx#core-identifier=? - _hd8959189659_ + _hd8958889656_ '%#define-values)) - (if (gx#stx-pair? _tl8959289661_) - (let ((_e8959389664_ + (if (gx#stx-pair? _tl8958989658_) + (let ((_e8959089661_ (gx#syntax-e - _tl8959289661_))) - (let ((_hd8959489667_ - (##car _e8959389664_)) - (_tl8959589669_ - (##cdr _e8959389664_))) - (let ((_hd-bind89672_ - _hd8959489667_)) + _tl8958989658_))) + (let ((_hd8959189664_ + (##car _e8959089661_)) + (_tl8959289666_ + (##cdr _e8959089661_))) + (let ((_hd-bind89669_ + _hd8959189664_)) (if (gx#stx-pair? - _tl8959589669_) - (let ((_e8959689674_ + _tl8959289666_) + (let ((_e8959389671_ (gx#syntax-e - _tl8959589669_))) - (let ((_hd8959789677_ + _tl8959289666_))) + (let ((_hd8959489674_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e8959689674_)) - (_tl8959889679_ (##cdr _e8959689674_))) - (let ((_expr89682_ _hd8959789677_)) - (if (gx#stx-null? _tl8959889679_) - (if (gx#core-bind-values? _hd-bind89672_) + (##car _e8959389671_)) + (_tl8959589676_ (##cdr _e8959389671_))) + (let ((_expr89679_ _hd8959489674_)) + (if (gx#stx-null? _tl8959589676_) + (if (gx#core-bind-values? _hd-bind89669_) (begin - (gx#core-bind-values!__0 _hd-bind89672_) - (_K89582_ _hd89575_)) - (_E8958989652_)) - (_E8958989652_))))) - (_E8958989652_))))) + (gx#core-bind-values!__0 _hd-bind89669_) + (_K89579_ _hd89572_)) + (_E8958689649_)) + (_E8958689649_))))) + (_E8958689649_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8958989652_)) - (_E8958989652_)))) - (_E8958989652_)))) - (_E8958489696_ + (_E8958689649_)) + (_E8958689649_)))) + (_E8958689649_)))) + (_E8958189693_ (lambda () - (if (gx#stx-pair? _e8958389612_) - (let ((_e8958689688_ - (gx#syntax-e _e8958389612_))) - (let ((_hd8958789691_ - (##car _e8958689688_)) - (_tl8958889693_ - (##cdr _e8958689688_))) - (if (and (gx#identifier? _hd8958789691_) + (if (gx#stx-pair? _e8958089609_) + (let ((_e8958389685_ + (gx#syntax-e _e8958089609_))) + (let ((_hd8958489688_ + (##car _e8958389685_)) + (_tl8958589690_ + (##cdr _e8958389685_))) + (if (and (gx#identifier? _hd8958489688_) (gx#core-identifier=? - _hd8958789691_ + _hd8958489688_ '%#begin-syntax)) (if '#t - (_K89582_ + (_K89579_ (gx#core-expand-begin-syntax% - _hd89575_)) - (_E8958589684_)) - (_E8958589684_)))) - (_E8958589684_))))) - (_E8958489696_)))) - (_eval-body89456_ - (lambda (_rbody89464_) - (let _lp89466_ ((_rest89468_ _rbody89464_) - (_body89469_ '()) - (_ebody89470_ '())) - (let* ((_rest8947189479_ _rest89468_) - (_else8947389487_ + _hd89572_)) + (_E8958289681_)) + (_E8958289681_)))) + (_E8958289681_))))) + (_E8958189693_)))) + (_eval-body89453_ + (lambda (_rbody89461_) + (let _lp89463_ ((_rest89465_ _rbody89461_) + (_body89466_ '()) + (_ebody89467_ '())) + (let* ((_rest8946889476_ _rest89465_) + (_else8947089484_ (lambda () - (values _body89469_ + (values _body89466_ (gx#eval-syntax* (gx#core-quote-syntax__1 - (gx#core-cons '%#begin _ebody89470_) - (gx#stx-source _stx89453_)))))) - (_K8947589563_ - (lambda (_rest89490_ _hd89491_) - (let* ((_e8949289509_ _hd89491_) - (_E8950489513_ + (gx#core-cons '%#begin _ebody89467_) + (gx#stx-source _stx89450_)))))) + (_K8947289560_ + (lambda (_rest89487_ _hd89488_) + (let* ((_e8948989506_ _hd89488_) + (_E8950189510_ (lambda () - (_lp89466_ - _rest89490_ - (cons _hd89491_ _body89469_) - (cons _hd89491_ _ebody89470_)))) - (_E8949489525_ + (_lp89463_ + _rest89487_ + (cons _hd89488_ _body89466_) + (cons _hd89488_ _ebody89467_)))) + (_E8949189522_ (lambda () - (if (gx#stx-pair? _e8949289509_) - (let ((_e8950589517_ + (if (gx#stx-pair? _e8948989506_) + (let ((_e8950289514_ (gx#syntax-e - _e8949289509_))) - (let ((_hd8950689520_ - (##car _e8950589517_)) - (_tl8950789522_ - (##cdr _e8950589517_))) + _e8948989506_))) + (let ((_hd8950389517_ + (##car _e8950289514_)) + (_tl8950489519_ + (##cdr _e8950289514_))) (if (and (gx#identifier? - _hd8950689520_) + _hd8950389517_) (gx#core-identifier=? - _hd8950689520_ + _hd8950389517_ '%#begin-syntax)) (if '#t - (_lp89466_ - _rest89490_ - (cons _hd89491_ + (_lp89463_ + _rest89487_ + (cons _hd89488_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body89469_) - _ebody89470_) - (_E8950489513_)) - (_E8950489513_)))) + _body89466_) + _ebody89467_) + (_E8950189510_)) + (_E8950189510_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8950489513_)))) - (_E8949389559_ + (_E8950189510_)))) + (_E8949089556_ (lambda () - (if (gx#stx-pair? _e8949289509_) - (let ((_e8949589529_ + (if (gx#stx-pair? _e8948989506_) + (let ((_e8949289526_ (gx#syntax-e - _e8949289509_))) - (let ((_hd8949689532_ - (##car _e8949589529_)) - (_tl8949789534_ - (##cdr _e8949589529_))) + _e8948989506_))) + (let ((_hd8949389529_ + (##car _e8949289526_)) + (_tl8949489531_ + (##cdr _e8949289526_))) (if (and (gx#identifier? - _hd8949689532_) + _hd8949389529_) (gx#core-identifier=? - _hd8949689532_ + _hd8949389529_ '%#define-values)) (if (gx#stx-pair? - _tl8949789534_) - (let ((_e8949889537_ + _tl8949489531_) + (let ((_e8949589534_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl8949789534_))) - (let ((_hd8949989540_ (##car _e8949889537_)) - (_tl8950089542_ (##cdr _e8949889537_))) - (let ((_hd-bind89545_ _hd8949989540_)) - (if (gx#stx-pair? _tl8950089542_) - (let ((_e8950189547_ (gx#syntax-e _tl8950089542_))) - (let ((_hd8950289550_ (##car _e8950189547_)) - (_tl8950389552_ (##cdr _e8950189547_))) - (let ((_expr89555_ _hd8950289550_)) - (if (gx#stx-null? _tl8950389552_) + (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_) (if '#t - (let ((_ehd89557_ + (let ((_ehd89554_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values - _hd-bind89545_) + _hd-bind89542_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr89555_) + _expr89552_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _hd89491_)))) - (_lp89466_ - _rest89490_ - (cons _ehd89557_ _body89469_) - (cons _ehd89557_ _ebody89470_))) - (_E8949489525_)) - (_E8949489525_))))) - (_E8949489525_))))) - (_E8949489525_)) - (_E8949489525_)))) + (gx#stx-source _hd89488_)))) + (_lp89463_ + _rest89487_ + (cons _ehd89554_ _body89466_) + (cons _ehd89554_ _ebody89467_))) + (_E8949189522_)) + (_E8949189522_))))) + (_E8949189522_))))) + (_E8949189522_)) + (_E8949189522_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8949489525_))))) - (_E8949389559_))))) - (if (##pair? _rest8947189479_) - (let ((_hd8947689566_ (##car _rest8947189479_)) - (_tl8947789568_ (##cdr _rest8947189479_))) - (let* ((_hd89571_ _hd8947689566_) - (_rest89573_ _tl8947789568_)) - (_K8947589563_ _rest89573_ _hd89571_))) - (_else8947389487_))))))) + (_E8949189522_))))) + (_E8949089556_))))) + (if (##pair? _rest8946889476_) + (let ((_hd8947389563_ (##car _rest8946889476_)) + (_tl8947489565_ (##cdr _rest8946889476_))) + (let* ((_hd89568_ _hd8947389563_) + (_rest89570_ _tl8947489565_)) + (_K8947289560_ _rest89570_ _hd89568_))) + (_else8947089484_))))))) (call-with-parameters (lambda () - (let* ((_rbody89459_ + (let* ((_rbody89456_ (gx#core-expand-block__1 - _stx89453_ - _expand-special89455_ + _stx89450_ + _expand-special89452_ '#f)) - (_g89723_ (_eval-body89456_ _rbody89459_))) + (_g89720_ (_eval-body89453_ _rbody89456_))) (begin - (let ((_g89724_ - (if (##values? _g89723_) - (##vector-length _g89723_) + (let ((_g89721_ + (if (##values? _g89720_) + (##vector-length _g89720_) 1))) - (if (not (##fx= _g89724_ 2)) - (error "Context expects 2 values" _g89724_))) - (let ((_expanded-body89461_ (##vector-ref _g89723_ 0)) - (_value89462_ (##vector-ref _g89723_ 1))) + (if (not (##fx= _g89721_ 2)) + (error "Context expects 2 values" _g89721_))) + (let ((_expanded-body89458_ (##vector-ref _g89720_ 0)) + (_value89459_ (##vector-ref _g89720_ 1))) (gx#core-quote-syntax__1 (if (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - (gx#core-cons '%#begin-syntax _expanded-body89461_) + (gx#core-cons '%#begin-syntax _expanded-body89458_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _value89462_ '()))) - (gx#stx-source _stx89453_)))))) + (cons _value89459_ '()))) + (gx#stx-source _stx89450_)))))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))))) (define gx#core-expand-begin-foreign% - (lambda (_stx89423_) - (let* ((_e8942489431_ _stx89423_) - (_E8942689435_ + (lambda (_stx89420_) + (let* ((_e8942189428_ _stx89420_) + (_E8942389432_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8942489431_))) - (_E8942589449_ + _e8942189428_))) + (_E8942289446_ (lambda () - (if (gx#stx-pair? _e8942489431_) - (let ((_e8942789439_ (gx#syntax-e _e8942489431_))) - (let ((_hd8942889442_ (##car _e8942789439_)) - (_tl8942989444_ (##cdr _e8942789439_))) - (let ((_body89447_ _tl8942989444_)) - (if (gx#stx-list? _body89447_) + (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_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin-foreign _body89447_) - (gx#stx-source _stx89423_)) - (_E8942689435_))))) - (_E8942689435_))))) - (_E8942589449_)))) + (gx#core-cons '%#begin-foreign _body89444_) + (gx#stx-source _stx89420_)) + (_E8942389432_))))) + (_E8942389432_))))) + (_E8942289446_)))) (define gx#core-expand-begin-module% - (lambda (_stx89421_) - (gx#raise-syntax-error '#f '"Illegal expansion" _stx89421_))) + (lambda (_stx89418_) + (gx#raise-syntax-error '#f '"Illegal expansion" _stx89418_))) (define gx#core-expand-begin-annotation% - (lambda (_stx89367_) - (let* ((_e8936889381_ _stx89367_) - (_E8937089385_ + (lambda (_stx89364_) + (let* ((_e8936589378_ _stx89364_) + (_E8936789382_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8936889381_))) - (_E8936989417_ + _e8936589378_))) + (_E8936689414_ (lambda () - (if (gx#stx-pair? _e8936889381_) - (let ((_e8937189389_ (gx#syntax-e _e8936889381_))) - (let ((_hd8937289392_ (##car _e8937189389_)) - (_tl8937389394_ (##cdr _e8937189389_))) - (if (gx#stx-pair? _tl8937389394_) - (let ((_e8937489397_ - (gx#syntax-e _tl8937389394_))) - (let ((_hd8937589400_ (##car _e8937489397_)) - (_tl8937689402_ (##cdr _e8937489397_))) - (let ((_ann89405_ _hd8937589400_)) - (if (gx#stx-pair? _tl8937689402_) - (let ((_e8937789407_ - (gx#syntax-e _tl8937689402_))) - (let ((_hd8937889410_ - (##car _e8937789407_)) - (_tl8937989412_ - (##cdr _e8937789407_))) - (let ((_expr89415_ _hd8937889410_)) - (if (gx#stx-null? _tl8937989412_) + (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 '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _ann89405_ + (cons _ann89402_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-expand-expression _expr89415_) '()))) - (gx#stx-source _stx89367_)) - (_E8937089385_)) + (cons (gx#core-expand-expression _expr89412_) '()))) + (gx#stx-source _stx89364_)) + (_E8936789382_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8937089385_))))) - (_E8937089385_))))) - (_E8937089385_)))) - (_E8937089385_))))) - (_E8936989417_)))) + (_E8936789382_))))) + (_E8936789382_))))) + (_E8936789382_)))) + (_E8936789382_))))) + (_E8936689414_)))) (define gx#core-expand-local-block - (lambda (_stx89091_ _body89092_) - (letrec ((_expand-special89094_ - (lambda (_hd89362_ _K89363_ _rest89364_ _r89365_) - (_K89363_ + (lambda (_stx89088_ _body89089_) + (letrec ((_expand-special89091_ + (lambda (_hd89359_ _K89360_ _rest89361_ _r89362_) + (_K89360_ '() - (cons (_expand-internal89095_ _hd89362_ _rest89364_) - _r89365_)))) - (_expand-internal89095_ - (lambda (_hd89358_ _rest89359_) + (cons (_expand-internal89092_ _hd89359_ _rest89361_) + _r89362_)))) + (_expand-internal89092_ + (lambda (_hd89355_ _rest89356_) (call-with-parameters (lambda () - (_wrap-internal89097_ + (_wrap-internal89094_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons '%#begin (cons _hd89358_ _rest89359_)) - (gx#stx-source _stx89091_)) - _expand-internal-special89096_ + (cons '%#begin (cons _hd89355_ _rest89356_)) + (gx#stx-source _stx89088_)) + _expand-internal-special89093_ '#f))) gx#current-expander-context - (let ((__obj89717 + (let ((__obj89714 (##structure gx#local-context::t '#f @@ -386,717 +386,717 @@ '#f '#f '#f))) - (gx#local-context:::init! __obj89717) - __obj89717)))) - (_expand-internal-special89096_ - (lambda (_hd89253_ _K89254_ _rest89255_ _r89256_) - (let* ((_e8925789282_ _hd89253_) - (_E8927789286_ + (gx#local-context:::init! __obj89714) + __obj89714)))) + (_expand-internal-special89093_ + (lambda (_hd89250_ _K89251_ _rest89252_ _r89253_) + (let* ((_e8925489279_ _hd89250_) + (_E8927489283_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8925789282_))) - (_E8927389298_ + _e8925489279_))) + (_E8927089295_ (lambda () - (if (gx#stx-pair? _e8925789282_) - (let ((_e8927889290_ - (gx#syntax-e _e8925789282_))) - (let ((_hd8927989293_ - (##car _e8927889290_)) - (_tl8928089295_ - (##cdr _e8927889290_))) - (if (and (gx#identifier? _hd8927989293_) + (if (gx#stx-pair? _e8925489279_) + (let ((_e8927589287_ + (gx#syntax-e _e8925489279_))) + (let ((_hd8927689290_ + (##car _e8927589287_)) + (_tl8927789292_ + (##cdr _e8927589287_))) + (if (and (gx#identifier? _hd8927689290_) (gx#core-identifier=? - _hd8927989293_ + _hd8927689290_ '%#declare)) (if '#t - (_K89254_ - _rest89255_ + (_K89251_ + _rest89252_ (cons (gx#core-expand-declare% - _hd89253_) - _r89256_)) - (_E8927789286_)) - (_E8927789286_)))) - (_E8927789286_)))) - (_E8926989310_ + _hd89250_) + _r89253_)) + (_E8927489283_)) + (_E8927489283_)))) + (_E8927489283_)))) + (_E8926689307_ (lambda () - (if (gx#stx-pair? _e8925789282_) - (let ((_e8927489302_ - (gx#syntax-e _e8925789282_))) - (let ((_hd8927589305_ - (##car _e8927489302_)) - (_tl8927689307_ - (##cdr _e8927489302_))) - (if (and (gx#identifier? _hd8927589305_) + (if (gx#stx-pair? _e8925489279_) + (let ((_e8927189299_ + (gx#syntax-e _e8925489279_))) + (let ((_hd8927289302_ + (##car _e8927189299_)) + (_tl8927389304_ + (##cdr _e8927189299_))) + (if (and (gx#identifier? _hd8927289302_) (gx#core-identifier=? - _hd8927589305_ + _hd8927289302_ '%#define-alias)) (if '#t (begin (gx#core-expand-define-alias% - _hd89253_) - (_K89254_ - _rest89255_ - _r89256_)) - (_E8927389298_)) - (_E8927389298_)))) - (_E8927389298_)))) - (_E8925989322_ + _hd89250_) + (_K89251_ + _rest89252_ + _r89253_)) + (_E8927089295_)) + (_E8927089295_)))) + (_E8927089295_)))) + (_E8925689319_ (lambda () - (if (gx#stx-pair? _e8925789282_) - (let ((_e8927089314_ - (gx#syntax-e _e8925789282_))) - (let ((_hd8927189317_ - (##car _e8927089314_)) - (_tl8927289319_ - (##cdr _e8927089314_))) - (if (and (gx#identifier? _hd8927189317_) + (if (gx#stx-pair? _e8925489279_) + (let ((_e8926789311_ + (gx#syntax-e _e8925489279_))) + (let ((_hd8926889314_ + (##car _e8926789311_)) + (_tl8926989316_ + (##cdr _e8926789311_))) + (if (and (gx#identifier? _hd8926889314_) (gx#core-identifier=? - _hd8927189317_ + _hd8926889314_ '%#define-syntax)) (if '#t (begin (gx#core-expand-define-syntax% - _hd89253_) - (_K89254_ - _rest89255_ - _r89256_)) - (_E8926989310_)) - (_E8926989310_)))) - (_E8926989310_)))) - (_E8925889354_ + _hd89250_) + (_K89251_ + _rest89252_ + _r89253_)) + (_E8926689307_)) + (_E8926689307_)))) + (_E8926689307_)))) + (_E8925589351_ (lambda () - (if (gx#stx-pair? _e8925789282_) - (let ((_e8926089326_ - (gx#syntax-e _e8925789282_))) - (let ((_hd8926189329_ - (##car _e8926089326_)) - (_tl8926289331_ - (##cdr _e8926089326_))) - (if (and (gx#identifier? _hd8926189329_) + (if (gx#stx-pair? _e8925489279_) + (let ((_e8925789323_ + (gx#syntax-e _e8925489279_))) + (let ((_hd8925889326_ + (##car _e8925789323_)) + (_tl8925989328_ + (##cdr _e8925789323_))) + (if (and (gx#identifier? _hd8925889326_) (gx#core-identifier=? - _hd8926189329_ + _hd8925889326_ '%#define-values)) - (if (gx#stx-pair? _tl8926289331_) - (let ((_e8926389334_ + (if (gx#stx-pair? _tl8925989328_) + (let ((_e8926089331_ (gx#syntax-e - _tl8926289331_))) - (let ((_hd8926489337_ - (##car _e8926389334_)) - (_tl8926589339_ - (##cdr _e8926389334_))) - (let ((_hd-bind89342_ - _hd8926489337_)) + _tl8925989328_))) + (let ((_hd8926189334_ + (##car _e8926089331_)) + (_tl8926289336_ + (##cdr _e8926089331_))) + (let ((_hd-bind89339_ + _hd8926189334_)) (if (gx#stx-pair? - _tl8926589339_) - (let ((_e8926689344_ + _tl8926289336_) + (let ((_e8926389341_ (gx#syntax-e - _tl8926589339_))) - (let ((_hd8926789347_ + _tl8926289336_))) + (let ((_hd8926489344_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e8926689344_)) - (_tl8926889349_ (##cdr _e8926689344_))) - (let ((_expr89352_ _hd8926789347_)) - (if (gx#stx-null? _tl8926889349_) - (if (gx#core-bind-values? _hd-bind89342_) + (##car _e8926389341_)) + (_tl8926589346_ (##cdr _e8926389341_))) + (let ((_expr89349_ _hd8926489344_)) + (if (gx#stx-null? _tl8926589346_) + (if (gx#core-bind-values? _hd-bind89339_) (begin - (gx#core-bind-values!__0 _hd-bind89342_) - (_K89254_ - _rest89255_ - (cons _hd89253_ _r89256_))) - (_E8925989322_)) - (_E8925989322_))))) - (_E8925989322_))))) + (gx#core-bind-values!__0 _hd-bind89339_) + (_K89251_ + _rest89252_ + (cons _hd89250_ _r89253_))) + (_E8925689319_)) + (_E8925689319_))))) + (_E8925689319_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8925989322_)) - (_E8925989322_)))) - (_E8925989322_))))) - (_E8925889354_)))) - (_wrap-internal89097_ - (lambda (_rbody89099_) - (let _lp89101_ ((_rest89103_ _rbody89099_) - (_decls89104_ '()) - (_bind89105_ '()) - (_body89106_ '())) - (let* ((_e8910789114_ _rest89103_) - (_E8910989163_ + (_E8925689319_)) + (_E8925689319_)))) + (_E8925689319_))))) + (_E8925589351_)))) + (_wrap-internal89094_ + (lambda (_rbody89096_) + (let _lp89098_ ((_rest89100_ _rbody89096_) + (_decls89101_ '()) + (_bind89102_ '()) + (_body89103_ '())) + (let* ((_e8910489111_ _rest89100_) + (_E8910689160_ (lambda () - (let* ((_body89158_ - (let* ((_body8911789127_ _body89106_) - (_else8912089135_ + (let* ((_body89155_ + (let* ((_body8911489124_ _body89103_) + (_else8911789132_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body89106_) + _body89103_) (gx#stx-source - _stx89091_))))) - (let ((_K8912589155_ + _stx89088_))))) + (let ((_K8912289152_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty body" - _stx89091_))) - (_K8912289141_ - (lambda (_expr89139_) - _expr89139_))) - (let ((_try-match8911989151_ + _stx89088_))) + (_K8911989138_ + (lambda (_expr89136_) + _expr89136_))) + (let ((_try-match8911689148_ (lambda () - (if (##pair? _body8911789127_) - (let ((_tl8912489146_ - (##cdr _body8911789127_)) - (_hd8912389144_ - (##car _body8911789127_))) - (if (##null? _tl8912489146_) - (let ((_expr89149_ + (if (##pair? _body8911489124_) + (let ((_tl8912189143_ + (##cdr _body8911489124_)) + (_hd8912089141_ + (##car _body8911489124_))) + (if (##null? _tl8912189143_) + (let ((_expr89146_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd8912389144_)) - (_K8912289141_ _expr89149_)) - (_else8912089135_))) - (_else8912089135_))))) + _hd8912089141_)) + (_K8911989138_ _expr89146_)) + (_else8911789132_))) + (_else8911789132_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##null? _body8911789127_) - (_K8912589155_) - (_try-match8911989151_)))))) - (_body89160_ - (if (null? _bind89105_) - _body89158_ + (if (##null? _body8911489124_) + (_K8912289152_) + (_try-match8911689148_)))))) + (_body89157_ + (if (null? _bind89102_) + _body89155_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#letrec*-values) - (cons _bind89105_ - (cons _body89158_ + (cons _bind89102_ + (cons _body89155_ '()))) - (gx#stx-source _stx89091_))))) - (if (null? _decls89104_) - _body89160_ + (gx#stx-source _stx89088_))))) + (if (null? _decls89101_) + _body89157_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _decls89104_ - (cons _body89160_ '()))) - (gx#stx-source _stx89091_)))))) - (_E8910889249_ + (cons _decls89101_ + (cons _body89157_ '()))) + (gx#stx-source _stx89088_)))))) + (_E8910589246_ (lambda () - (if (gx#stx-pair? _e8910789114_) - (let ((_e8911089167_ - (gx#syntax-e _e8910789114_))) - (let ((_hd8911189170_ - (##car _e8911089167_)) - (_tl8911289172_ - (##cdr _e8911089167_))) - (let* ((_hd89175_ _hd8911189170_) - (_rest89177_ _tl8911289172_)) + (if (gx#stx-pair? _e8910489111_) + (let ((_e8910789164_ + (gx#syntax-e _e8910489111_))) + (let ((_hd8910889167_ + (##car _e8910789164_)) + (_tl8910989169_ + (##cdr _e8910789164_))) + (let* ((_hd89172_ _hd8910889167_) + (_rest89174_ _tl8910989169_)) (if '#t - (let* ((_e8917889195_ _hd89175_) - (_E8919089199_ + (let* ((_e8917589192_ _hd89172_) + (_E8918789196_ (lambda () - (if (null? _bind89105_) - (_lp89101_ - _rest89177_ - _decls89104_ - _bind89105_ - (cons _hd89175_ + (if (null? _bind89102_) + (_lp89098_ + _rest89174_ + _decls89101_ + _bind89102_ + (cons _hd89172_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body89106_)) - (_lp89101_ - _rest89177_ - _decls89104_ - (cons (cons '#f (cons _hd89175_ '())) _bind89105_) - _body89106_)))) + _body89103_)) + (_lp89098_ + _rest89174_ + _decls89101_ + (cons (cons '#f (cons _hd89172_ '())) _bind89102_) + _body89103_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8918089213_ + (_E8917789210_ (lambda () (if (gx#stx-pair? - _e8917889195_) - (let ((_e8919189203_ + _e8917589192_) + (let ((_e8918889200_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e8917889195_))) - (let ((_hd8919289206_ (##car _e8919189203_)) - (_tl8919389208_ (##cdr _e8919189203_))) - (if (and (gx#identifier? _hd8919289206_) + (gx#syntax-e _e8917589192_))) + (let ((_hd8918989203_ (##car _e8918889200_)) + (_tl8919089205_ (##cdr _e8918889200_))) + (if (and (gx#identifier? _hd8918989203_) (gx#core-identifier=? - _hd8919289206_ + _hd8918989203_ '%#declare)) - (let ((_xdecls89211_ _tl8919389208_)) + (let ((_xdecls89208_ _tl8919089205_)) (if '#t - (_lp89101_ - _rest89177_ + (_lp89098_ + _rest89174_ (gx#stx-foldr cons - _decls89104_ - _xdecls89211_) - _bind89105_ - _body89106_) - (_E8919089199_))) - (_E8919089199_)))) - (_E8919089199_)))) + _decls89101_ + _xdecls89208_) + _bind89102_ + _body89103_) + (_E8918789196_))) + (_E8918789196_)))) + (_E8918789196_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8917989245_ + (_E8917689242_ (lambda () (if (gx#stx-pair? - _e8917889195_) - (let ((_e8918189217_ + _e8917589192_) + (let ((_e8917889214_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e8917889195_))) - (let ((_hd8918289220_ (##car _e8918189217_)) - (_tl8918389222_ (##cdr _e8918189217_))) - (if (and (gx#identifier? _hd8918289220_) + (gx#syntax-e _e8917589192_))) + (let ((_hd8917989217_ (##car _e8917889214_)) + (_tl8918089219_ (##cdr _e8917889214_))) + (if (and (gx#identifier? _hd8917989217_) (gx#core-identifier=? - _hd8918289220_ + _hd8917989217_ '%#define-values)) - (if (gx#stx-pair? _tl8918389222_) - (let ((_e8918489225_ - (gx#syntax-e _tl8918389222_))) - (let ((_hd8918589228_ (##car _e8918489225_)) - (_tl8918689230_ (##cdr _e8918489225_))) - (let ((_hd-bind89233_ _hd8918589228_)) - (if (gx#stx-pair? _tl8918689230_) - (let ((_e8918789235_ - (gx#syntax-e _tl8918689230_))) - (let ((_hd8918889238_ - (##car _e8918789235_)) - (_tl8918989240_ - (##cdr _e8918789235_))) - (let ((_expr89243_ - _hd8918889238_)) + (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-null? - _tl8918989240_) + _tl8918689237_) (if '#t - (_lp89101_ - _rest89177_ - _decls89104_ + (_lp89098_ + _rest89174_ + _decls89101_ (cons (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-bind89233_) - (cons (gx#core-expand-expression _expr89243_) + _hd-bind89230_) + (cons (gx#core-expand-expression _expr89240_) '())) - _bind89105_) - _body89106_) - (_E8918089213_)) + _bind89102_) + _body89103_) + (_E8917789210_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8918089213_))))) - (_E8918089213_))))) - (_E8918089213_)) - (_E8918089213_)))) - (_E8918089213_))))) + (_E8917789210_))))) + (_E8917789210_))))) + (_E8917789210_)) + (_E8917789210_)))) + (_E8917789210_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8917989245_)) - (_E8910989163_))))) - (_E8910989163_))))) - (_E8910889249_)))))) + (_E8917689242_)) + (_E8910689160_))))) + (_E8910689160_))))) + (_E8910589246_)))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _body89092_) - (gx#stx-source _stx89091_)) - _expand-special89094_)))) + (cons '%#begin _body89089_) + (gx#stx-source _stx89088_)) + _expand-special89091_)))) (define gx#core-expand-declare% - (lambda (_stx89029_) - (let* ((_e8903089037_ _stx89029_) - (_E8903289041_ + (lambda (_stx89026_) + (let* ((_e8902789034_ _stx89026_) + (_E8902989038_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8903089037_))) - (_E8903189087_ + _e8902789034_))) + (_E8902889084_ (lambda () - (if (gx#stx-pair? _e8903089037_) - (let ((_e8903389045_ (gx#syntax-e _e8903089037_))) - (let ((_hd8903489048_ (##car _e8903389045_)) - (_tl8903589050_ (##cdr _e8903389045_))) - (let ((_body89053_ _tl8903589050_)) - (if (gx#stx-list? _body89053_) + (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_) (gx#core-quote-syntax__1 (gx#core-cons '%#declare (gx#stx-map1 - (lambda (_decl89055_) - (let* ((_e8905689063_ _decl89055_) - (_E8905889067_ + (lambda (_decl89052_) + (let* ((_e8905389060_ _decl89052_) + (_E8905589064_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8905689063_))) - (_E8905789083_ + _e8905389060_))) + (_E8905489080_ (lambda () - (if (gx#stx-pair? _e8905689063_) - (let ((_e8905989071_ + (if (gx#stx-pair? _e8905389060_) + (let ((_e8905689068_ (gx#syntax-e - _e8905689063_))) - (let ((_hd8906089074_ - (##car _e8905989071_)) - (_tl8906189076_ - (##cdr _e8905989071_))) - (let* ((_head89079_ - _hd8906089074_) - (_args89081_ - _tl8906189076_)) + _e8905389060_))) + (let ((_hd8905789071_ + (##car _e8905689068_)) + (_tl8905889073_ + (##cdr _e8905689068_))) + (let* ((_head89076_ + _hd8905789071_) + (_args89078_ + _tl8905889073_)) (if (gx#stx-list? - _args89081_) + _args89078_) (gx#stx-map1 gx#core-quote-syntax - _decl89055_) - (_E8905889067_))))) - (_E8905889067_))))) - (_E8905789083_))) - _body89053_)) - (gx#stx-source _stx89029_)) - (_E8903289041_))))) - (_E8903289041_))))) - (_E8903189087_)))) + _decl89052_) + (_E8905589064_))))) + (_E8905589064_))))) + (_E8905489080_))) + _body89050_)) + (gx#stx-source _stx89026_)) + (_E8902989038_))))) + (_E8902989038_))))) + (_E8902889084_)))) (define gx#core-expand-extern% - (lambda (_stx88933_) - (let* ((_e8893488941_ _stx88933_) - (_E8893688945_ + (lambda (_stx88930_) + (let* ((_e8893188938_ _stx88930_) + (_E8893388942_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8893488941_))) - (_E8893589025_ + _e8893188938_))) + (_E8893289022_ (lambda () - (if (gx#stx-pair? _e8893488941_) - (let ((_e8893788949_ (gx#syntax-e _e8893488941_))) - (let ((_hd8893888952_ (##car _e8893788949_)) - (_tl8893988954_ (##cdr _e8893788949_))) - (let ((_body88957_ _tl8893988954_)) + (if (gx#stx-pair? _e8893188938_) + (let ((_e8893488946_ (gx#syntax-e _e8893188938_))) + (let ((_hd8893588949_ (##car _e8893488946_)) + (_tl8893688951_ (##cdr _e8893488946_))) + (let ((_body88954_ _tl8893688951_)) (if '#t - (let _lp88959_ ((_rest88961_ _body88957_) - (_r88962_ '())) - (let* ((_e8896388977_ _rest88961_) - (_E8897588981_ + (let _lp88956_ ((_rest88958_ _body88954_) + (_r88959_ '())) + (let* ((_e8896088974_ _rest88958_) + (_E8897288978_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; %#extern expects list of (internal external) identifier lists" - _stx88933_))) - (_E8896588985_ + _stx88930_))) + (_E8896288982_ (lambda () - (if (gx#stx-null? _e8896388977_) + (if (gx#stx-null? _e8896088974_) (if '#t (gx#core-quote-syntax__1 (gx#core-cons '%#extern - (reverse _r88962_)) + (reverse _r88959_)) (gx#stx-source - _stx88933_)) - (_E8897588981_)) - (_E8897588981_)))) - (_E8896489021_ + _stx88930_)) + (_E8897288978_)) + (_E8897288978_)))) + (_E8896189018_ (lambda () - (if (gx#stx-pair? _e8896388977_) - (let ((_e8896688989_ + (if (gx#stx-pair? _e8896088974_) + (let ((_e8896388986_ (gx#syntax-e - _e8896388977_))) - (let ((_hd8896788992_ - (##car _e8896688989_)) - (_tl8896888994_ - (##cdr _e8896688989_))) + _e8896088974_))) + (let ((_hd8896488989_ + (##car _e8896388986_)) + (_tl8896588991_ + (##cdr _e8896388986_))) (if (gx#stx-pair? - _hd8896788992_) - (let ((_e8896988997_ + _hd8896488989_) + (let ((_e8896688994_ (gx#syntax-e - _hd8896788992_))) - (let ((_hd8897089000_ + _hd8896488989_))) + (let ((_hd8896788997_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e8896988997_)) - (_tl8897189002_ (##cdr _e8896988997_))) - (let ((_id89005_ _hd8897089000_)) - (if (gx#stx-pair? _tl8897189002_) - (let ((_e8897289007_ (gx#syntax-e _tl8897189002_))) - (let ((_hd8897389010_ (##car _e8897289007_)) - (_tl8897489012_ (##cdr _e8897289007_))) - (let ((_eid89015_ _hd8897389010_)) - (if (gx#stx-null? _tl8897489012_) - (let ((_rest89017_ _tl8896888994_)) - (if (and (gx#identifier? _id89005_) - (gx#identifier? _eid89015_)) - (let ((_eid89019_ - (gx#stx-e _eid89015_))) + (##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_))) (gx#core-bind-extern!__0 - _id89005_ - _eid89019_) - (_lp88959_ - _rest89017_ + _id89002_ + _eid89016_) + (_lp88956_ + _rest89014_ (cons (cons (gx#core-quote-syntax__0 - _id89005_) - (cons _eid89019_ '())) - _r88962_))) - (_E8896588985_))) - (_E8896588985_))))) - (_E8896588985_))))) - (_E8896588985_)))) + _id89002_) + (cons _eid89016_ '())) + _r88959_))) + (_E8896288982_))) + (_E8896288982_))))) + (_E8896288982_))))) + (_E8896288982_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8896588985_))))) - (_E8896489021_))) - (_E8893688945_))))) - (_E8893688945_))))) - (_E8893589025_)))) + (_E8896288982_))))) + (_E8896189018_))) + (_E8893388942_))))) + (_E8893388942_))))) + (_E8893289022_)))) (define gx#core-expand-define-values% - (lambda (_stx88879_) - (let* ((_e8888088893_ _stx88879_) - (_E8888288897_ + (lambda (_stx88876_) + (let* ((_e8887788890_ _stx88876_) + (_E8887988894_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8888088893_))) - (_E8888188929_ + _e8887788890_))) + (_E8887888926_ (lambda () - (if (gx#stx-pair? _e8888088893_) - (let ((_e8888388901_ (gx#syntax-e _e8888088893_))) - (let ((_hd8888488904_ (##car _e8888388901_)) - (_tl8888588906_ (##cdr _e8888388901_))) - (if (gx#stx-pair? _tl8888588906_) - (let ((_e8888688909_ - (gx#syntax-e _tl8888588906_))) - (let ((_hd8888788912_ (##car _e8888688909_)) - (_tl8888888914_ (##cdr _e8888688909_))) - (let ((_hd88917_ _hd8888788912_)) - (if (gx#stx-pair? _tl8888888914_) - (let ((_e8888988919_ - (gx#syntax-e _tl8888888914_))) - (let ((_hd8889088922_ - (##car _e8888988919_)) - (_tl8889188924_ - (##cdr _e8888988919_))) - (let ((_expr88927_ _hd8889088922_)) - (if (gx#stx-null? _tl8889188924_) + (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#core-bind-values? - _hd88917_) + _hd88914_) (begin (gx#core-bind-values!__0 - _hd88917_) + _hd88914_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd88917_) - (cons (gx#core-expand-expression _expr88927_) + _hd88914_) + (cons (gx#core-expand-expression _expr88924_) '()))) - (gx#stx-source _stx88879_))) - (_E8888288897_)) + (gx#stx-source _stx88876_))) + (_E8887988894_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8888288897_))))) - (_E8888288897_))))) - (_E8888288897_)))) - (_E8888288897_))))) - (_E8888188929_)))) + (_E8887988894_))))) + (_E8887988894_))))) + (_E8887988894_)))) + (_E8887988894_))))) + (_E8887888926_)))) (define gx#core-expand-define-runtime% - (lambda (_stx88823_) - (let* ((_e8882488837_ _stx88823_) - (_E8882688841_ + (lambda (_stx88820_) + (let* ((_e8882188834_ _stx88820_) + (_E8882388838_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8882488837_))) - (_E8882588875_ + _e8882188834_))) + (_E8882288872_ (lambda () - (if (gx#stx-pair? _e8882488837_) - (let ((_e8882788845_ (gx#syntax-e _e8882488837_))) - (let ((_hd8882888848_ (##car _e8882788845_)) - (_tl8882988850_ (##cdr _e8882788845_))) - (if (gx#stx-pair? _tl8882988850_) - (let ((_e8883088853_ - (gx#syntax-e _tl8882988850_))) - (let ((_hd8883188856_ (##car _e8883088853_)) - (_tl8883288858_ (##cdr _e8883088853_))) - (let ((_id88861_ _hd8883188856_)) - (if (gx#stx-pair? _tl8883288858_) - (let ((_e8883388863_ - (gx#syntax-e _tl8883288858_))) - (let ((_hd8883488866_ - (##car _e8883388863_)) - (_tl8883588868_ - (##cdr _e8883388863_))) - (let ((_binding-id88871_ - _hd8883488866_)) - (if (gx#stx-null? _tl8883588868_) + (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 (and (gx#identifier? - _id88861_) + _id88858_) (gx#identifier? - _binding-id88871_)) - (let ((_eid88873_ + _binding-id88868_)) + (let ((_eid88870_ (gx#stx-e - _binding-id88871_))) + _binding-id88868_))) (gx#core-bind-runtime-reference!__0 - _id88861_ - _eid88873_) + _id88858_ + _eid88870_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-runtime) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id88861_) - (cons _eid88873_ '()))))) - (_E8882688841_)) + _id88858_) + (cons _eid88870_ '()))))) + (_E8882388838_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8882688841_))))) - (_E8882688841_))))) - (_E8882688841_)))) - (_E8882688841_))))) - (_E8882588875_)))) + (_E8882388838_))))) + (_E8882388838_))))) + (_E8882388838_)))) + (_E8882388838_))))) + (_E8882288872_)))) (define gx#core-expand-define-syntax% - (lambda (_stx88766_) - (let* ((_e8876788780_ _stx88766_) - (_E8876988784_ + (lambda (_stx88763_) + (let* ((_e8876488777_ _stx88763_) + (_E8876688781_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8876788780_))) - (_E8876888819_ + _e8876488777_))) + (_E8876588816_ (lambda () - (if (gx#stx-pair? _e8876788780_) - (let ((_e8877088788_ (gx#syntax-e _e8876788780_))) - (let ((_hd8877188791_ (##car _e8877088788_)) - (_tl8877288793_ (##cdr _e8877088788_))) - (if (gx#stx-pair? _tl8877288793_) - (let ((_e8877388796_ - (gx#syntax-e _tl8877288793_))) - (let ((_hd8877488799_ (##car _e8877388796_)) - (_tl8877588801_ (##cdr _e8877388796_))) - (let ((_id88804_ _hd8877488799_)) - (if (gx#stx-pair? _tl8877588801_) - (let ((_e8877688806_ - (gx#syntax-e _tl8877588801_))) - (let ((_hd8877788809_ - (##car _e8877688806_)) - (_tl8877888811_ - (##cdr _e8877688806_))) - (let ((_expr88814_ _hd8877788809_)) - (if (gx#stx-null? _tl8877888811_) + (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#identifier? - _id88804_) - (let ((_g89725_ + _id88801_) + (let ((_g89722_ (gx#core-expand-expression+1 - _expr88814_))) + _expr88811_))) (begin - (let ((_g89726_ + (let ((_g89723_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (##values? _g89725_) - (##vector-length _g89725_) + (if (##values? _g89722_) + (##vector-length _g89722_) 1))) - (if (not (##fx= _g89726_ 2)) - (error "Context expects 2 values" _g89726_))) - (let ((_e-stx88816_ (##vector-ref _g89725_ 0)) - (_e88817_ (##vector-ref _g89725_ 1))) + (if (not (##fx= _g89723_ 2)) + (error "Context expects 2 values" _g89723_))) + (let ((_e-stx88813_ (##vector-ref _g89722_ 0)) + (_e88814_ (##vector-ref _g89722_ 1))) (begin - (gx#core-bind-syntax!__0 _id88804_ _e88817_) + (gx#core-bind-syntax!__0 _id88801_ _e88814_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons (gx#core-quote-syntax__0 _id88804_) - (cons _e-stx88816_ '()))) - (gx#stx-source _stx88766_)))))) - (_E8876988784_)) + (cons (gx#core-quote-syntax__0 _id88801_) + (cons _e-stx88813_ '()))) + (gx#stx-source _stx88763_)))))) + (_E8876688781_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8876988784_))))) - (_E8876988784_))))) - (_E8876988784_)))) - (_E8876988784_))))) - (_E8876888819_)))) + (_E8876688781_))))) + (_E8876688781_))))) + (_E8876688781_)))) + (_E8876688781_))))) + (_E8876588816_)))) (define gx#core-expand-define-alias% - (lambda (_stx88710_) - (let* ((_e8871188724_ _stx88710_) - (_E8871388728_ + (lambda (_stx88707_) + (let* ((_e8870888721_ _stx88707_) + (_E8871088725_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8871188724_))) - (_E8871288762_ + _e8870888721_))) + (_E8870988759_ (lambda () - (if (gx#stx-pair? _e8871188724_) - (let ((_e8871488732_ (gx#syntax-e _e8871188724_))) - (let ((_hd8871588735_ (##car _e8871488732_)) - (_tl8871688737_ (##cdr _e8871488732_))) - (if (gx#stx-pair? _tl8871688737_) - (let ((_e8871788740_ - (gx#syntax-e _tl8871688737_))) - (let ((_hd8871888743_ (##car _e8871788740_)) - (_tl8871988745_ (##cdr _e8871788740_))) - (let ((_id88748_ _hd8871888743_)) - (if (gx#stx-pair? _tl8871988745_) - (let ((_e8872088750_ - (gx#syntax-e _tl8871988745_))) - (let ((_hd8872188753_ - (##car _e8872088750_)) - (_tl8872288755_ - (##cdr _e8872088750_))) - (let ((_alias-id88758_ - _hd8872188753_)) - (if (gx#stx-null? _tl8872288755_) + (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 (and (gx#identifier? - _id88748_) + _id88745_) (gx#identifier? - _alias-id88758_)) - (let ((_alias-id88760_ + _alias-id88755_)) + (let ((_alias-id88757_ (gx#core-quote-syntax__0 - _alias-id88758_))) + _alias-id88755_))) (gx#core-bind-alias!__0 - _id88748_ - _alias-id88760_) + _id88745_ + _alias-id88757_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-alias) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id88748_) - (cons _alias-id88760_ '()))))) - (_E8871388728_)) + _id88745_) + (cons _alias-id88757_ '()))))) + (_E8871088725_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8871388728_))))) - (_E8871388728_))))) - (_E8871388728_)))) - (_E8871388728_))))) - (_E8871288762_)))) + (_E8871088725_))))) + (_E8871088725_))))) + (_E8871088725_)))) + (_E8871088725_))))) + (_E8870988759_)))) (define gx#core-expand-lambda%__% - (lambda (_stx88653_ _wrap?88654_) - (let* ((_e8865588665_ _stx88653_) - (_E8865788669_ + (lambda (_stx88650_ _wrap?88651_) + (let* ((_e8865288662_ _stx88650_) + (_E8865488666_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8865588665_))) - (_E8865688696_ + _e8865288662_))) + (_E8865388693_ (lambda () - (if (gx#stx-pair? _e8865588665_) - (let ((_e8865888673_ (gx#syntax-e _e8865588665_))) - (let ((_hd8865988676_ (##car _e8865888673_)) - (_tl8866088678_ (##cdr _e8865888673_))) - (if (gx#stx-pair? _tl8866088678_) - (let ((_e8866188681_ - (gx#syntax-e _tl8866088678_))) - (let ((_hd8866288684_ (##car _e8866188681_)) - (_tl8866388686_ (##cdr _e8866188681_))) - (let* ((_hd88689_ _hd8866288684_) - (_body88691_ _tl8866388686_)) - (if (gx#core-bind-values? _hd88689_) + (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_) (call-with-parameters (lambda () - (gx#core-bind-values!__0 _hd88689_) - (let ((_body88694_ + (gx#core-bind-values!__0 _hd88686_) + (let ((_body88691_ (cons (gx#core-quote-bind-values - _hd88689_) + _hd88686_) (cons (gx#core-expand-local-block - _stx88653_ - _body88691_) + _stx88650_ + _body88688_) '())))) - (if _wrap?88654_ + (if _wrap?88651_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _body88694_) - (gx#stx-source _stx88653_)) - _body88694_))) + _body88691_) + (gx#stx-source _stx88650_)) + _body88691_))) gx#current-expander-context - (let ((__obj89718 + (let ((__obj89715 (##structure gx#local-context::t '#f @@ -1105,116 +1105,116 @@ '#f '#f))) (gx#local-context:::init! - __obj89718) - __obj89718)) - (_E8865788669_))))) - (_E8865788669_)))) - (_E8865788669_))))) - (_E8865688696_)))) + __obj89715) + __obj89715)) + (_E8865488666_))))) + (_E8865488666_)))) + (_E8865488666_))))) + (_E8865388693_)))) (define gx#core-expand-lambda%__0 - (lambda (_stx88703_) - (let ((_wrap?88705_ '#t)) - (gx#core-expand-lambda%__% _stx88703_ _wrap?88705_)))) + (lambda (_stx88700_) + (let ((_wrap?88702_ '#t)) + (gx#core-expand-lambda%__% _stx88700_ _wrap?88702_)))) (define gx#core-expand-lambda% - (lambda _g89728_ - (let ((_g89727_ (##length _g89728_))) - (cond ((##fx= _g89727_ 1) - (apply (lambda (_stx88703_) - (gx#core-expand-lambda%__0 _stx88703_)) - _g89728_)) - ((##fx= _g89727_ 2) - (apply (lambda (_stx88707_ _wrap?88708_) - (gx#core-expand-lambda%__% _stx88707_ _wrap?88708_)) - _g89728_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-lambda% - _g89728_)))))) + _g89725_)))))) (define gx#core-expand-case-lambda% - (lambda (_stx88617_) - (let* ((_e8861888625_ _stx88617_) - (_E8862088629_ + (lambda (_stx88614_) + (let* ((_e8861588622_ _stx88614_) + (_E8861788626_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8861888625_))) - (_E8861988648_ + _e8861588622_))) + (_E8861688645_ (lambda () - (if (gx#stx-pair? _e8861888625_) - (let ((_e8862188633_ (gx#syntax-e _e8861888625_))) - (let ((_hd8862288636_ (##car _e8862188633_)) - (_tl8862388638_ (##cdr _e8862188633_))) - (let ((_clauses88641_ _tl8862388638_)) - (if (gx#stx-list? _clauses88641_) + (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_) (gx#core-quote-syntax__1 (gx#core-cons '%#case-lambda (gx#stx-map1 - (lambda (_clause88643_) + (lambda (_clause88640_) (gx#core-expand-lambda%__% (gx#stx-wrap-source (cons '%#case-lambda-clause - _clause88643_) - (let ((_$e88645_ - (gx#stx-source _clause88643_))) - (if _$e88645_ - _$e88645_ - (gx#stx-source _stx88617_)))) + _clause88640_) + (let ((_$e88642_ + (gx#stx-source _clause88640_))) + (if _$e88642_ + _$e88642_ + (gx#stx-source _stx88614_)))) '#f)) - _clauses88641_)) - (gx#stx-source _stx88617_)) - (_E8862088629_))))) - (_E8862088629_))))) - (_E8861988648_)))) + _clauses88638_)) + (gx#stx-source _stx88614_)) + (_E8861788626_))))) + (_E8861788626_))))) + (_E8861688645_)))) (define gx#core-expand-let-values% - (lambda (_stx88571_) - (let* ((_e8857288582_ _stx88571_) - (_E8857488586_ + (lambda (_stx88568_) + (let* ((_e8856988579_ _stx88568_) + (_E8857188583_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8857288582_))) - (_E8857388613_ + _e8856988579_))) + (_E8857088610_ (lambda () - (if (gx#stx-pair? _e8857288582_) - (let ((_e8857588590_ (gx#syntax-e _e8857288582_))) - (let ((_hd8857688593_ (##car _e8857588590_)) - (_tl8857788595_ (##cdr _e8857588590_))) - (if (gx#stx-pair? _tl8857788595_) - (let ((_e8857888598_ - (gx#syntax-e _tl8857788595_))) - (let ((_hd8857988601_ (##car _e8857888598_)) - (_tl8858088603_ (##cdr _e8857888598_))) - (let* ((_hd88606_ _hd8857988601_) - (_body88608_ _tl8858088603_)) - (if (gx#core-expand-let-bind? _hd88606_) - (let ((_expressions88610_ + (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_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd88606_))) + _hd88603_))) (call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd88606_) + _hd88603_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd88606_ - _expressions88610_) + _hd88603_ + _expressions88607_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _stx88571_ - _body88608_) + _stx88568_ + _body88605_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _stx88571_))) + (gx#stx-source _stx88568_))) gx#current-expander-context - (let ((__obj89719 + (let ((__obj89716 (##structure gx#local-context::t '#f @@ -1223,56 +1223,56 @@ '#f '#f))) (gx#local-context:::init! - __obj89719) - __obj89719))) - (_E8857488586_))))) - (_E8857488586_)))) - (_E8857488586_))))) - (_E8857388613_)))) + __obj89716) + __obj89716))) + (_E8857188583_))))) + (_E8857188583_)))) + (_E8857188583_))))) + (_E8857088610_)))) (define gx#core-expand-letrec-values%__% - (lambda (_stx88516_ _form88517_) - (let* ((_e8851888528_ _stx88516_) - (_E8852088532_ + (lambda (_stx88513_ _form88514_) + (let* ((_e8851588525_ _stx88513_) + (_E8851788529_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8851888528_))) - (_E8851988557_ + _e8851588525_))) + (_E8851688554_ (lambda () - (if (gx#stx-pair? _e8851888528_) - (let ((_e8852188536_ (gx#syntax-e _e8851888528_))) - (let ((_hd8852288539_ (##car _e8852188536_)) - (_tl8852388541_ (##cdr _e8852188536_))) - (if (gx#stx-pair? _tl8852388541_) - (let ((_e8852488544_ - (gx#syntax-e _tl8852388541_))) - (let ((_hd8852588547_ (##car _e8852488544_)) - (_tl8852688549_ (##cdr _e8852488544_))) - (let* ((_hd88552_ _hd8852588547_) - (_body88554_ _tl8852688549_)) - (if (gx#core-expand-let-bind? _hd88552_) + (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_) (call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd88552_) + _hd88549_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _form88517_) + _form88514_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd88552_ + _hd88549_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd88552_)) + _hd88549_)) (cons (gx#core-expand-local-block - _stx88516_ - _body88554_) + _stx88513_ + _body88551_) '()))) - (gx#stx-source _stx88516_))) + (gx#stx-source _stx88513_))) gx#current-expander-context - (let ((__obj89720 + (let ((__obj89717 (##structure gx#local-context::t '#f @@ -1281,197 +1281,197 @@ '#f '#f))) (gx#local-context:::init! - __obj89720) - __obj89720)) - (_E8852088532_))))) - (_E8852088532_)))) - (_E8852088532_))))) - (_E8851988557_)))) + __obj89717) + __obj89717)) + (_E8851788529_))))) + (_E8851788529_)))) + (_E8851788529_))))) + (_E8851688554_)))) (define gx#core-expand-letrec-values%__0 - (lambda (_stx88564_) - (let ((_form88566_ '%#letrec-values)) - (gx#core-expand-letrec-values%__% _stx88564_ _form88566_)))) + (lambda (_stx88561_) + (let ((_form88563_ '%#letrec-values)) + (gx#core-expand-letrec-values%__% _stx88561_ _form88563_)))) (define gx#core-expand-letrec-values% - (lambda _g89730_ - (let ((_g89729_ (##length _g89730_))) - (cond ((##fx= _g89729_ 1) - (apply (lambda (_stx88564_) - (gx#core-expand-letrec-values%__0 _stx88564_)) - _g89730_)) - ((##fx= _g89729_ 2) - (apply (lambda (_stx88568_ _form88569_) + (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_) (gx#core-expand-letrec-values%__% - _stx88568_ - _form88569_)) - _g89730_)) + _stx88565_ + _form88566_)) + _g89727_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-letrec-values% - _g89730_)))))) + _g89727_)))))) (define gx#core-expand-letrec*-values% - (lambda (_stx88513_) - (gx#core-expand-letrec-values%__% _stx88513_ '%#letrec*-values))) + (lambda (_stx88510_) + (gx#core-expand-letrec-values%__% _stx88510_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_stx88470_) - (if (gx#stx-list? _stx88470_) + (lambda (_stx88467_) + (if (gx#stx-list? _stx88467_) (gx#stx-andmap - (lambda (_bind88472_) - (let* ((_e8847388483_ _bind88472_) - (_E8847588487_ (lambda () '#f)) - (_E8847488509_ + (lambda (_bind88469_) + (let* ((_e8847088480_ _bind88469_) + (_E8847288484_ (lambda () '#f)) + (_E8847188506_ (lambda () - (if (gx#stx-pair? _e8847388483_) - (let ((_e8847688491_ (gx#syntax-e _e8847388483_))) - (let ((_hd8847788494_ (##car _e8847688491_)) - (_tl8847888496_ (##cdr _e8847688491_))) - (let ((_hd88499_ _hd8847788494_)) - (if (gx#stx-pair? _tl8847888496_) - (let ((_e8847988501_ - (gx#syntax-e _tl8847888496_))) - (let ((_hd8848088504_ - (##car _e8847988501_)) - (_tl8848188506_ - (##cdr _e8847988501_))) - (if (gx#stx-null? _tl8848188506_) + (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 '#t (gx#core-bind-values? - _hd88499_) - (_E8847588487_)) - (_E8847588487_)))) - (_E8847588487_))))) - (_E8847588487_))))) - (_E8847488509_))) - _stx88470_) + _hd88496_) + (_E8847288484_)) + (_E8847288484_)))) + (_E8847288484_))))) + (_E8847288484_))))) + (_E8847188506_))) + _stx88467_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_bind88429_) - (let* ((_e8843088440_ _bind88429_) - (_E8843288444_ + (lambda (_bind88426_) + (let* ((_e8842788437_ _bind88426_) + (_E8842988441_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8843088440_))) - (_E8843188466_ + _e8842788437_))) + (_E8842888463_ (lambda () - (if (gx#stx-pair? _e8843088440_) - (let ((_e8843388448_ (gx#syntax-e _e8843088440_))) - (let ((_hd8843488451_ (##car _e8843388448_)) - (_tl8843588453_ (##cdr _e8843388448_))) - (if (gx#stx-pair? _tl8843588453_) - (let ((_e8843688456_ - (gx#syntax-e _tl8843588453_))) - (let ((_hd8843788459_ (##car _e8843688456_)) - (_tl8843888461_ (##cdr _e8843688456_))) - (let ((_expr88464_ _hd8843788459_)) - (if (gx#stx-null? _tl8843888461_) + (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 '#t (gx#core-expand-expression - _expr88464_) - (_E8843288444_)) - (_E8843288444_))))) - (_E8843288444_)))) - (_E8843288444_))))) - (_E8843188466_)))) + _expr88461_) + (_E8842988441_)) + (_E8842988441_))))) + (_E8842988441_)))) + (_E8842988441_))))) + (_E8842888463_)))) (define gx#core-expand-let-bind-values! - (lambda (_bind88388_) - (let* ((_e8838988399_ _bind88388_) - (_E8839188403_ + (lambda (_bind88385_) + (let* ((_e8838688396_ _bind88385_) + (_E8838888400_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8838988399_))) - (_E8839088425_ + _e8838688396_))) + (_E8838788422_ (lambda () - (if (gx#stx-pair? _e8838988399_) - (let ((_e8839288407_ (gx#syntax-e _e8838988399_))) - (let ((_hd8839388410_ (##car _e8839288407_)) - (_tl8839488412_ (##cdr _e8839288407_))) - (let ((_hd88415_ _hd8839388410_)) - (if (gx#stx-pair? _tl8839488412_) - (let ((_e8839588417_ - (gx#syntax-e _tl8839488412_))) - (let ((_hd8839688420_ (##car _e8839588417_)) - (_tl8839788422_ (##cdr _e8839588417_))) - (if (gx#stx-null? _tl8839788422_) + (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 '#t - (gx#core-bind-values!__0 _hd88415_) - (_E8839188403_)) - (_E8839188403_)))) - (_E8839188403_))))) - (_E8839188403_))))) - (_E8839088425_)))) + (gx#core-bind-values!__0 _hd88412_) + (_E8838888400_)) + (_E8838888400_)))) + (_E8838888400_))))) + (_E8838888400_))))) + (_E8838788422_)))) (define gx#core-expand-let-bind-quote - (lambda (_bind88346_ _expr88347_) - (let* ((_e8834888358_ _bind88346_) - (_E8835088362_ + (lambda (_bind88343_ _expr88344_) + (let* ((_e8834588355_ _bind88343_) + (_E8834788359_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8834888358_))) - (_E8834988384_ + _e8834588355_))) + (_E8834688381_ (lambda () - (if (gx#stx-pair? _e8834888358_) - (let ((_e8835188366_ (gx#syntax-e _e8834888358_))) - (let ((_hd8835288369_ (##car _e8835188366_)) - (_tl8835388371_ (##cdr _e8835188366_))) - (let ((_hd88374_ _hd8835288369_)) - (if (gx#stx-pair? _tl8835388371_) - (let ((_e8835488376_ - (gx#syntax-e _tl8835388371_))) - (let ((_hd8835588379_ (##car _e8835488376_)) - (_tl8835688381_ (##cdr _e8835488376_))) - (if (gx#stx-null? _tl8835688381_) + (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 '#t (cons (gx#core-quote-bind-values - _hd88374_) - (cons _expr88347_ '())) - (_E8835088362_)) - (_E8835088362_)))) - (_E8835088362_))))) - (_E8835088362_))))) - (_E8834988384_)))) + _hd88371_) + (cons _expr88344_ '())) + (_E8834788359_)) + (_E8834788359_)))) + (_E8834788359_))))) + (_E8834788359_))))) + (_E8834688381_)))) (define gx#core-expand-let-syntax% - (lambda (_stx88300_) - (let* ((_e8830188311_ _stx88300_) - (_E8830388315_ + (lambda (_stx88297_) + (let* ((_e8829888308_ _stx88297_) + (_E8830088312_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8830188311_))) - (_E8830288342_ + _e8829888308_))) + (_E8829988339_ (lambda () - (if (gx#stx-pair? _e8830188311_) - (let ((_e8830488319_ (gx#syntax-e _e8830188311_))) - (let ((_hd8830588322_ (##car _e8830488319_)) - (_tl8830688324_ (##cdr _e8830488319_))) - (if (gx#stx-pair? _tl8830688324_) - (let ((_e8830788327_ - (gx#syntax-e _tl8830688324_))) - (let ((_hd8830888330_ (##car _e8830788327_)) - (_tl8830988332_ (##cdr _e8830788327_))) - (let* ((_hd88335_ _hd8830888330_) - (_body88337_ _tl8830988332_)) + (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#core-expand-let-bind-syntax? - _hd88335_) - (let ((_expanders88339_ + _hd88332_) + (let ((_expanders88336_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd88335_))) + _hd88332_))) (call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd88335_ - _expanders88339_) + _hd88332_ + _expanders88336_) (gx#core-expand-local-block - _stx88300_ - _body88337_)) + _stx88297_ + _body88334_)) gx#current-expander-context - (let ((__obj89721 + (let ((__obj89718 (##structure gx#local-context::t '#f @@ -1480,60 +1480,60 @@ '#f '#f))) (gx#local-context:::init! - __obj89721) - __obj89721))) - (_E8830388315_))))) - (_E8830388315_)))) - (_E8830388315_))))) - (_E8830288342_)))) + __obj89718) + __obj89718))) + (_E8830088312_))))) + (_E8830088312_)))) + (_E8830088312_))))) + (_E8829988339_)))) (define gx#core-expand-letrec-syntax% - (lambda (_stx88249_) - (let* ((_e8825088260_ _stx88249_) - (_E8825288264_ + (lambda (_stx88246_) + (let* ((_e8824788257_ _stx88246_) + (_E8824988261_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8825088260_))) - (_E8825188296_ + _e8824788257_))) + (_E8824888293_ (lambda () - (if (gx#stx-pair? _e8825088260_) - (let ((_e8825388268_ (gx#syntax-e _e8825088260_))) - (let ((_hd8825488271_ (##car _e8825388268_)) - (_tl8825588273_ (##cdr _e8825388268_))) - (if (gx#stx-pair? _tl8825588273_) - (let ((_e8825688276_ - (gx#syntax-e _tl8825588273_))) - (let ((_hd8825788279_ (##car _e8825688276_)) - (_tl8825888281_ (##cdr _e8825688276_))) - (let* ((_hd88284_ _hd8825788279_) - (_body88286_ _tl8825888281_)) + (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#core-expand-let-bind-syntax? - _hd88284_) + _hd88281_) (call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd88284_ + _hd88281_ (make-list__% - (gx#stx-length _hd88284_) + (gx#stx-length _hd88281_) '#!void)) (gx#stx-for-each2 - (lambda (_g8828888291_ - _g8828988293_) + (lambda (_g8828588288_ + _g8828688290_) (gx#core-expand-let-bind-syntax!__% - _g8828888291_ - _g8828988293_ + _g8828588288_ + _g8828688290_ '#t)) - _hd88284_ + _hd88281_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd88284_)) + _hd88281_)) (gx#core-expand-local-block - _stx88249_ - _body88286_)) + _stx88246_ + _body88283_)) gx#current-expander-context - (let ((__obj89722 + (let ((__obj89719 (##structure gx#local-context::t '#f @@ -1542,1851 +1542,1851 @@ '#f '#f))) (gx#local-context:::init! - __obj89722) - __obj89722)) - (_E8825288264_))))) - (_E8825288264_)))) - (_E8825288264_))))) - (_E8825188296_)))) + __obj89719) + __obj89719)) + (_E8824988261_))))) + (_E8824988261_)))) + (_E8824988261_))))) + (_E8824888293_)))) (define gx#core-expand-let-bind-syntax? - (lambda (_stx88206_) - (if (gx#stx-list? _stx88206_) + (lambda (_stx88203_) + (if (gx#stx-list? _stx88203_) (gx#stx-andmap - (lambda (_bind88208_) - (let* ((_e8820988219_ _bind88208_) - (_E8821188223_ (lambda () '#f)) - (_E8821088245_ + (lambda (_bind88205_) + (let* ((_e8820688216_ _bind88205_) + (_E8820888220_ (lambda () '#f)) + (_E8820788242_ (lambda () - (if (gx#stx-pair? _e8820988219_) - (let ((_e8821288227_ (gx#syntax-e _e8820988219_))) - (let ((_hd8821388230_ (##car _e8821288227_)) - (_tl8821488232_ (##cdr _e8821288227_))) - (let ((_hd88235_ _hd8821388230_)) - (if (gx#stx-pair? _tl8821488232_) - (let ((_e8821588237_ - (gx#syntax-e _tl8821488232_))) - (let ((_hd8821688240_ - (##car _e8821588237_)) - (_tl8821788242_ - (##cdr _e8821588237_))) - (if (gx#stx-null? _tl8821788242_) + (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 '#t - (gx#identifier? _hd88235_) - (_E8821188223_)) - (_E8821188223_)))) - (_E8821188223_))))) - (_E8821188223_))))) - (_E8821088245_))) - _stx88206_) + (gx#identifier? _hd88232_) + (_E8820888220_)) + (_E8820888220_)))) + (_E8820888220_))))) + (_E8820888220_))))) + (_E8820788242_))) + _stx88203_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_bind88163_) - (let* ((_e8816488174_ _bind88163_) - (_E8816688178_ + (lambda (_bind88160_) + (let* ((_e8816188171_ _bind88160_) + (_E8816388175_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8816488174_))) - (_E8816588202_ + _e8816188171_))) + (_E8816288199_ (lambda () - (if (gx#stx-pair? _e8816488174_) - (let ((_e8816788182_ (gx#syntax-e _e8816488174_))) - (let ((_hd8816888185_ (##car _e8816788182_)) - (_tl8816988187_ (##cdr _e8816788182_))) - (if (gx#stx-pair? _tl8816988187_) - (let ((_e8817088190_ - (gx#syntax-e _tl8816988187_))) - (let ((_hd8817188193_ (##car _e8817088190_)) - (_tl8817288195_ (##cdr _e8817088190_))) - (let ((_expr88198_ _hd8817188193_)) - (if (gx#stx-null? _tl8817288195_) + (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 '#t - (let ((_g89731_ + (let ((_g89728_ (gx#core-expand-expression+1 - _expr88198_))) + _expr88195_))) (begin - (let ((_g89732_ - (if (##values? _g89731_) + (let ((_g89729_ + (if (##values? _g89728_) (##vector-length - _g89731_) + _g89728_) 1))) - (if (not (##fx= _g89732_ 2)) + (if (not (##fx= _g89729_ 2)) (error "Context expects 2 values" - _g89732_))) - (let ((_e88200_ + _g89729_))) + (let ((_e88197_ (##vector-ref - _g89731_ + _g89728_ 1))) - _e88200_))) - (_E8816688178_)) - (_E8816688178_))))) - (_E8816688178_)))) - (_E8816688178_))))) - (_E8816588202_)))) + _e88197_))) + (_E8816388175_)) + (_E8816388175_))))) + (_E8816388175_)))) + (_E8816388175_))))) + (_E8816288199_)))) (define gx#core-expand-let-bind-syntax!__% - (lambda (_bind88108_ _e88109_ _rebind?88110_) - (let* ((_e8811188121_ _bind88108_) - (_E8811388125_ + (lambda (_bind88105_ _e88106_ _rebind?88107_) + (let* ((_e8810888118_ _bind88105_) + (_E8811088122_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8811188121_))) - (_E8811288147_ + _e8810888118_))) + (_E8810988144_ (lambda () - (if (gx#stx-pair? _e8811188121_) - (let ((_e8811488129_ (gx#syntax-e _e8811188121_))) - (let ((_hd8811588132_ (##car _e8811488129_)) - (_tl8811688134_ (##cdr _e8811488129_))) - (let ((_id88137_ _hd8811588132_)) - (if (gx#stx-pair? _tl8811688134_) - (let ((_e8811788139_ - (gx#syntax-e _tl8811688134_))) - (let ((_hd8811888142_ (##car _e8811788139_)) - (_tl8811988144_ (##cdr _e8811788139_))) - (if (gx#stx-null? _tl8811988144_) + (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 '#t (gx#core-bind-syntax!__1 - _id88137_ - _e88109_ - _rebind?88110_) - (_E8811388125_)) - (_E8811388125_)))) - (_E8811388125_))))) - (_E8811388125_))))) - (_E8811288147_)))) + _id88134_ + _e88106_ + _rebind?88107_) + (_E8811088122_)) + (_E8811088122_)))) + (_E8811088122_))))) + (_E8811088122_))))) + (_E8810988144_)))) (define gx#core-expand-let-bind-syntax!__0 - (lambda (_bind88154_ _e88155_) - (let ((_rebind?88157_ '#f)) + (lambda (_bind88151_ _e88152_) + (let ((_rebind?88154_ '#f)) (gx#core-expand-let-bind-syntax!__% - _bind88154_ - _e88155_ - _rebind?88157_)))) + _bind88151_ + _e88152_ + _rebind?88154_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g89734_ - (let ((_g89733_ (##length _g89734_))) - (cond ((##fx= _g89733_ 2) - (apply (lambda (_bind88154_ _e88155_) + (lambda _g89731_ + (let ((_g89730_ (##length _g89731_))) + (cond ((##fx= _g89730_ 2) + (apply (lambda (_bind88151_ _e88152_) (gx#core-expand-let-bind-syntax!__0 - _bind88154_ - _e88155_)) - _g89734_)) - ((##fx= _g89733_ 3) - (apply (lambda (_bind88159_ _e88160_ _rebind?88161_) + _bind88151_ + _e88152_)) + _g89731_)) + ((##fx= _g89730_ 3) + (apply (lambda (_bind88156_ _e88157_ _rebind?88158_) (gx#core-expand-let-bind-syntax!__% - _bind88159_ - _e88160_ - _rebind?88161_)) - _g89734_)) + _bind88156_ + _e88157_ + _rebind?88158_)) + _g89731_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-let-bind-syntax! - _g89734_)))))) + _g89731_)))))) (define gx#core-expand-expression% - (lambda (_stx88066_) - (let* ((_e8806788077_ _stx88066_) - (_E8806988081_ + (lambda (_stx88063_) + (let* ((_e8806488074_ _stx88063_) + (_E8806688078_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8806788077_))) - (_E8806888103_ + _e8806488074_))) + (_E8806588100_ (lambda () - (if (gx#stx-pair? _e8806788077_) - (let ((_e8807088085_ (gx#syntax-e _e8806788077_))) - (let ((_hd8807188088_ (##car _e8807088085_)) - (_tl8807288090_ (##cdr _e8807088085_))) - (if (gx#stx-pair? _tl8807288090_) - (let ((_e8807388093_ - (gx#syntax-e _tl8807288090_))) - (let ((_hd8807488096_ (##car _e8807388093_)) - (_tl8807588098_ (##cdr _e8807388093_))) - (let ((_expr88101_ _hd8807488096_)) - (if (gx#stx-null? _tl8807588098_) + (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 '#t (gx#core-expand-expression - _expr88101_) - (_E8806988081_)) - (_E8806988081_))))) - (_E8806988081_)))) - (_E8806988081_))))) - (_E8806888103_)))) + _expr88098_) + (_E8806688078_)) + (_E8806688078_))))) + (_E8806688078_)))) + (_E8806688078_))))) + (_E8806588100_)))) (define gx#core-expand-quote% - (lambda (_stx88025_) - (let* ((_e8802688036_ _stx88025_) - (_E8802888040_ + (lambda (_stx88022_) + (let* ((_e8802388033_ _stx88022_) + (_E8802588037_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8802688036_))) - (_E8802788062_ + _e8802388033_))) + (_E8802488059_ (lambda () - (if (gx#stx-pair? _e8802688036_) - (let ((_e8802988044_ (gx#syntax-e _e8802688036_))) - (let ((_hd8803088047_ (##car _e8802988044_)) - (_tl8803188049_ (##cdr _e8802988044_))) - (if (gx#stx-pair? _tl8803188049_) - (let ((_e8803288052_ - (gx#syntax-e _tl8803188049_))) - (let ((_hd8803388055_ (##car _e8803288052_)) - (_tl8803488057_ (##cdr _e8803288052_))) - (let ((_e88060_ _hd8803388055_)) - (if (gx#stx-null? _tl8803488057_) + (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 '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote) (cons (gx#syntax->datum - _e88060_) + _e88057_) '())) - (gx#stx-source _stx88025_)) - (_E8802888040_)) - (_E8802888040_))))) - (_E8802888040_)))) - (_E8802888040_))))) - (_E8802788062_)))) + (gx#stx-source _stx88022_)) + (_E8802588037_)) + (_E8802588037_))))) + (_E8802588037_)))) + (_E8802588037_))))) + (_E8802488059_)))) (define gx#core-expand-quote-syntax% - (lambda (_stx87984_) - (let* ((_e8798587995_ _stx87984_) - (_E8798787999_ + (lambda (_stx87981_) + (let* ((_e8798287992_ _stx87981_) + (_E8798487996_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8798587995_))) - (_E8798688021_ + _e8798287992_))) + (_E8798388018_ (lambda () - (if (gx#stx-pair? _e8798587995_) - (let ((_e8798888003_ (gx#syntax-e _e8798587995_))) - (let ((_hd8798988006_ (##car _e8798888003_)) - (_tl8799088008_ (##cdr _e8798888003_))) - (if (gx#stx-pair? _tl8799088008_) - (let ((_e8799188011_ - (gx#syntax-e _tl8799088008_))) - (let ((_hd8799288014_ (##car _e8799188011_)) - (_tl8799388016_ (##cdr _e8799188011_))) - (let ((_e88019_ _hd8799288014_)) - (if (gx#stx-null? _tl8799388016_) + (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 '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote-syntax) (cons (gx#core-quote-syntax__0 - _e88019_) + _e88016_) '())) - (gx#stx-source _stx87984_)) - (_E8798787999_)) - (_E8798787999_))))) - (_E8798787999_)))) - (_E8798787999_))))) - (_E8798688021_)))) + (gx#stx-source _stx87981_)) + (_E8798487996_)) + (_E8798487996_))))) + (_E8798487996_)))) + (_E8798487996_))))) + (_E8798388018_)))) (define gx#core-expand-call% - (lambda (_stx87941_) - (let* ((_e8794287952_ _stx87941_) - (_E8794487956_ + (lambda (_stx87938_) + (let* ((_e8793987949_ _stx87938_) + (_E8794187953_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8794287952_))) - (_E8794387980_ + _e8793987949_))) + (_E8794087977_ (lambda () - (if (gx#stx-pair? _e8794287952_) - (let ((_e8794587960_ (gx#syntax-e _e8794287952_))) - (let ((_hd8794687963_ (##car _e8794587960_)) - (_tl8794787965_ (##cdr _e8794587960_))) - (if (gx#stx-pair? _tl8794787965_) - (let ((_e8794887968_ - (gx#syntax-e _tl8794787965_))) - (let ((_hd8794987971_ (##car _e8794887968_)) - (_tl8795087973_ (##cdr _e8794887968_))) - (let* ((_rator87976_ _hd8794987971_) - (_args87978_ _tl8795087973_)) - (if (gx#stx-list? _args87978_) + (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_) (gx#core-quote-syntax__1 (gx#core-cons* '%#call (gx#core-expand-expression - _rator87976_) + _rator87973_) (gx#stx-map1 gx#core-expand-expression - _args87978_)) - (gx#stx-source _stx87941_)) - (_E8794487956_))))) - (_E8794487956_)))) - (_E8794487956_))))) - (_E8794387980_)))) + _args87975_)) + (gx#stx-source _stx87938_)) + (_E8794187953_))))) + (_E8794187953_)))) + (_E8794187953_))))) + (_E8794087977_)))) (define gx#core-expand-if% - (lambda (_stx87874_) - (let* ((_e8787587891_ _stx87874_) - (_E8787787895_ + (lambda (_stx87871_) + (let* ((_e8787287888_ _stx87871_) + (_E8787487892_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8787587891_))) - (_E8787687937_ + _e8787287888_))) + (_E8787387934_ (lambda () - (if (gx#stx-pair? _e8787587891_) - (let ((_e8787887899_ (gx#syntax-e _e8787587891_))) - (let ((_hd8787987902_ (##car _e8787887899_)) - (_tl8788087904_ (##cdr _e8787887899_))) - (if (gx#stx-pair? _tl8788087904_) - (let ((_e8788187907_ - (gx#syntax-e _tl8788087904_))) - (let ((_hd8788287910_ (##car _e8788187907_)) - (_tl8788387912_ (##cdr _e8788187907_))) - (let ((_test87915_ _hd8788287910_)) - (if (gx#stx-pair? _tl8788387912_) - (let ((_e8788487917_ - (gx#syntax-e _tl8788387912_))) - (let ((_hd8788587920_ - (##car _e8788487917_)) - (_tl8788687922_ - (##cdr _e8788487917_))) - (let ((_K87925_ _hd8788587920_)) - (if (gx#stx-pair? _tl8788687922_) - (let ((_e8788787927_ + (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_ (gx#syntax-e - _tl8788687922_))) - (let ((_hd8788887930_ - (##car _e8788787927_)) - (_tl8788987932_ - (##cdr _e8788787927_))) - (let ((_E87935_ - _hd8788887930_)) + _tl8788387919_))) + (let ((_hd8788587927_ + (##car _e8788487924_)) + (_tl8788687929_ + (##cdr _e8788487924_))) + (let ((_E87932_ + _hd8788587927_)) (if (gx#stx-null? - _tl8788987932_) + _tl8788687929_) (if '#t (gx#core-quote-syntax__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#core-quote-syntax__0 '%#if) - (cons (gx#core-expand-expression _test87915_) - (cons (gx#core-expand-expression _K87925_) + (cons (gx#core-expand-expression _test87912_) + (cons (gx#core-expand-expression _K87922_) (cons (gx#core-expand-expression - _E87935_) + _E87932_) '())))) - (gx#stx-source _stx87874_)) - (_E8787787895_)) - (_E8787787895_))))) + (gx#stx-source _stx87871_)) + (_E8787487892_)) + (_E8787487892_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8787787895_))))) - (_E8787787895_))))) - (_E8787787895_)))) - (_E8787787895_))))) - (_E8787687937_)))) + (_E8787487892_))))) + (_E8787487892_))))) + (_E8787487892_)))) + (_E8787487892_))))) + (_E8787387934_)))) (define gx#core-expand-ref% - (lambda (_stx87833_) - (let* ((_e8783487844_ _stx87833_) - (_E8783687848_ + (lambda (_stx87830_) + (let* ((_e8783187841_ _stx87830_) + (_E8783387845_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8783487844_))) - (_E8783587870_ + _e8783187841_))) + (_E8783287867_ (lambda () - (if (gx#stx-pair? _e8783487844_) - (let ((_e8783787852_ (gx#syntax-e _e8783487844_))) - (let ((_hd8783887855_ (##car _e8783787852_)) - (_tl8783987857_ (##cdr _e8783787852_))) - (if (gx#stx-pair? _tl8783987857_) - (let ((_e8784087860_ - (gx#syntax-e _tl8783987857_))) - (let ((_hd8784187863_ (##car _e8784087860_)) - (_tl8784287865_ (##cdr _e8784087860_))) - (let ((_id87868_ _hd8784187863_)) - (if (gx#stx-null? _tl8784287865_) - (if (gx#identifier? _id87868_) + (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_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#ref) (cons (gx#core-quote-runtime-ref - _id87868_ - _stx87833_) + _id87865_ + _stx87830_) '())) - (gx#stx-source _stx87833_)) - (_E8783687848_)) - (_E8783687848_))))) - (_E8783687848_)))) - (_E8783687848_))))) - (_E8783587870_)))) + (gx#stx-source _stx87830_)) + (_E8783387845_)) + (_E8783387845_))))) + (_E8783387845_)))) + (_E8783387845_))))) + (_E8783287867_)))) (define gx#core-expand-setq% - (lambda (_stx87779_) - (let* ((_e8778087793_ _stx87779_) - (_E8778287797_ + (lambda (_stx87776_) + (let* ((_e8777787790_ _stx87776_) + (_E8777987794_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8778087793_))) - (_E8778187829_ + _e8777787790_))) + (_E8777887826_ (lambda () - (if (gx#stx-pair? _e8778087793_) - (let ((_e8778387801_ (gx#syntax-e _e8778087793_))) - (let ((_hd8778487804_ (##car _e8778387801_)) - (_tl8778587806_ (##cdr _e8778387801_))) - (if (gx#stx-pair? _tl8778587806_) - (let ((_e8778687809_ - (gx#syntax-e _tl8778587806_))) - (let ((_hd8778787812_ (##car _e8778687809_)) - (_tl8778887814_ (##cdr _e8778687809_))) - (let ((_id87817_ _hd8778787812_)) - (if (gx#stx-pair? _tl8778887814_) - (let ((_e8778987819_ - (gx#syntax-e _tl8778887814_))) - (let ((_hd8779087822_ - (##car _e8778987819_)) - (_tl8779187824_ - (##cdr _e8778987819_))) - (let ((_expr87827_ _hd8779087822_)) - (if (gx#stx-null? _tl8779187824_) + (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#identifier? - _id87817_) + _id87814_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id87817_ - _stx87779_) - (cons (gx#core-expand-expression _expr87827_) '()))) - (gx#stx-source _stx87779_)) - (_E8778287797_)) + _id87814_ + _stx87776_) + (cons (gx#core-expand-expression _expr87824_) '()))) + (gx#stx-source _stx87776_)) + (_E8777987794_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8778287797_))))) - (_E8778287797_))))) - (_E8778287797_)))) - (_E8778287797_))))) - (_E8778187829_)))) + (_E8777987794_))))) + (_E8777987794_))))) + (_E8777987794_)))) + (_E8777987794_))))) + (_E8777887826_)))) (define gx#macro-expand-extern - (lambda (_stx87627_) - (letrec ((_generate87629_ - (lambda (_body87659_) - (let _lp87661_ ((_rest87663_ _body87659_) - (_ns87664_ (gx#core-context-namespace__0)) - (_r87665_ '())) - (let* ((_e8766687681_ _rest87663_) - (_E8767987685_ + (lambda (_stx87624_) + (letrec ((_generate87626_ + (lambda (_body87656_) + (let _lp87658_ ((_rest87660_ _body87656_) + (_ns87661_ (gx#core-context-namespace__0)) + (_r87662_ '())) + (let* ((_e8766387678_ _rest87660_) + (_E8767687682_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8766687681_))) - (_E8767587689_ + _e8766387678_))) + (_E8767287686_ (lambda () - (if (gx#stx-null? _e8766687681_) - (if '#t (reverse _r87665_) (_E8767987685_)) - (_E8767987685_)))) - (_E8766887746_ + (if (gx#stx-null? _e8766387678_) + (if '#t (reverse _r87662_) (_E8767687682_)) + (_E8767687682_)))) + (_E8766587743_ (lambda () - (if (gx#stx-pair? _e8766687681_) - (let ((_e8767687693_ - (gx#syntax-e _e8766687681_))) - (let ((_hd8767787696_ - (##car _e8767687693_)) - (_tl8767887698_ - (##cdr _e8767687693_))) - (let* ((_hd87701_ _hd8767787696_) - (_rest87703_ _tl8767887698_)) + (if (gx#stx-pair? _e8766387678_) + (let ((_e8767387690_ + (gx#syntax-e _e8766387678_))) + (let ((_hd8767487693_ + (##car _e8767387690_)) + (_tl8767587695_ + (##cdr _e8767387690_))) + (let* ((_hd87698_ _hd8767487693_) + (_rest87700_ _tl8767587695_)) (if '#t - (if (gx#identifier? _hd87701_) - (_lp87661_ - _rest87703_ - _ns87664_ - (cons (cons _hd87701_ - (cons (if _ns87664_ + (if (gx#identifier? _hd87698_) + (_lp87658_ + _rest87700_ + _ns87661_ + (cons (cons _hd87698_ + (cons (if _ns87661_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-identifier - _hd87701_ - _ns87664_ + _hd87698_ + _ns87661_ '"#" - _hd87701_) - _hd87701_) + _hd87698_) + _hd87698_) '())) - _r87665_)) + _r87662_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_e8770487714_ - _hd87701_) - (_E8770687718_ + (let* ((_e8770187711_ + _hd87698_) + (_E8770387715_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8770487714_))) - (_E8770587742_ + _e8770187711_))) + (_E8770287739_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e8770487714_) - (let ((_e8770787722_ (gx#syntax-e _e8770487714_))) - (let ((_hd8770887725_ (##car _e8770787722_)) - (_tl8770987727_ (##cdr _e8770787722_))) - (let ((_id87730_ _hd8770887725_)) - (if (gx#stx-pair? _tl8770987727_) - (let ((_e8771087732_ - (gx#syntax-e _tl8770987727_))) - (let ((_hd8771187735_ - (##car _e8771087732_)) - (_tl8771287737_ - (##cdr _e8771087732_))) - (let ((_eid87740_ _hd8771187735_)) - (if (gx#stx-null? _tl8771287737_) - (if (and (gx#identifier? _id87730_) + _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_) (gx#identifier? - _eid87740_)) - (_lp87661_ - _rest87703_ - _ns87664_ - (cons (cons _id87730_ - (cons _eid87740_ + _eid87737_)) + (_lp87658_ + _rest87700_ + _ns87661_ + (cons (cons _id87727_ + (cons _eid87737_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _r87665_)) + _r87662_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8770687718_)) - (_E8770687718_))))) - (_E8770687718_))))) - (_E8770687718_))))) + (_E8770387715_)) + (_E8770387715_))))) + (_E8770387715_))))) + (_E8770387715_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8770587742_))) - (_E8767587689_))))) - (_E8767587689_)))) - (_E8766787775_ + (_E8770287739_))) + (_E8767287686_))))) + (_E8767287686_)))) + (_E8766487772_ (lambda () - (if (gx#stx-pair? _e8766687681_) - (let ((_e8766987750_ - (gx#syntax-e _e8766687681_))) - (let ((_hd8767087753_ - (##car _e8766987750_)) - (_tl8767187755_ - (##cdr _e8766987750_))) - (if (eq? (gx#stx-e _hd8767087753_) + (if (gx#stx-pair? _e8766387678_) + (let ((_e8766687747_ + (gx#syntax-e _e8766387678_))) + (let ((_hd8766787750_ + (##car _e8766687747_)) + (_tl8766887752_ + (##cdr _e8766687747_))) + (if (eq? (gx#stx-e _hd8766787750_) 'namespace:) - (if (gx#stx-pair? _tl8767187755_) - (let ((_e8767287758_ + (if (gx#stx-pair? _tl8766887752_) + (let ((_e8766987755_ (gx#syntax-e - _tl8767187755_))) - (let ((_hd8767387761_ - (##car _e8767287758_)) - (_tl8767487763_ - (##cdr _e8767287758_))) - (let* ((_ns87766_ - _hd8767387761_) - (_rest87768_ - _tl8767487763_)) + _tl8766887752_))) + (let ((_hd8767087758_ + (##car _e8766987755_)) + (_tl8767187760_ + (##cdr _e8766987755_))) + (let* ((_ns87763_ + _hd8767087758_) + (_rest87765_ + _tl8767187760_)) (if '#t - (let ((_ns87773_ + (let ((_ns87770_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (gx#identifier? _ns87766_) - (symbol->string (gx#stx-e _ns87766_)) - (if (or (gx#stx-string? _ns87766_) - (gx#stx-false? _ns87766_)) - (gx#stx-e _ns87766_) + (if (gx#identifier? _ns87763_) + (symbol->string (gx#stx-e _ns87763_)) + (if (or (gx#stx-string? _ns87763_) + (gx#stx-false? _ns87763_)) + (gx#stx-e _ns87763_) (gx#raise-syntax-error '#f '"Bad syntax; extern expects namespace identifier" - _stx87627_ - _ns87766_))))) - (_lp87661_ _rest87768_ _ns87773_ _r87665_)) - (_E8766887746_))))) + _stx87624_ + _ns87763_))))) + (_lp87658_ _rest87765_ _ns87770_ _r87662_)) + (_E8766587743_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8766887746_)) - (_E8766887746_)))) - (_E8766887746_))))) - (_E8766787775_)))))) - (let* ((_e8763087637_ _stx87627_) - (_E8763287641_ + (_E8766587743_)) + (_E8766587743_)))) + (_E8766587743_))))) + (_E8766487772_)))))) + (let* ((_e8762787634_ _stx87624_) + (_E8762987638_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8763087637_))) - (_E8763187655_ + _e8762787634_))) + (_E8762887652_ (lambda () - (if (gx#stx-pair? _e8763087637_) - (let ((_e8763387645_ (gx#syntax-e _e8763087637_))) - (let ((_hd8763487648_ (##car _e8763387645_)) - (_tl8763587650_ (##cdr _e8763387645_))) - (let ((_body87653_ _tl8763587650_)) - (if (gx#stx-list? _body87653_) + (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_) (gx#core-cons '%#extern - (_generate87629_ _body87653_)) - (_E8763287641_))))) - (_E8763287641_))))) - (_E8763187655_))))) + (_generate87626_ _body87650_)) + (_E8762987638_))))) + (_E8762987638_))))) + (_E8762887652_))))) (define gx#macro-expand-define-values - (lambda (_stx87573_) - (let* ((_e8757487587_ _stx87573_) - (_E8757687591_ + (lambda (_stx87570_) + (let* ((_e8757187584_ _stx87570_) + (_E8757387588_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8757487587_))) - (_E8757587623_ + _e8757187584_))) + (_E8757287620_ (lambda () - (if (gx#stx-pair? _e8757487587_) - (let ((_e8757787595_ (gx#syntax-e _e8757487587_))) - (let ((_hd8757887598_ (##car _e8757787595_)) - (_tl8757987600_ (##cdr _e8757787595_))) - (if (gx#stx-pair? _tl8757987600_) - (let ((_e8758087603_ - (gx#syntax-e _tl8757987600_))) - (let ((_hd8758187606_ (##car _e8758087603_)) - (_tl8758287608_ (##cdr _e8758087603_))) - (let ((_hd87611_ _hd8758187606_)) - (if (gx#stx-pair? _tl8758287608_) - (let ((_e8758387613_ - (gx#syntax-e _tl8758287608_))) - (let ((_hd8758487616_ - (##car _e8758387613_)) - (_tl8758587618_ - (##cdr _e8758387613_))) - (let ((_expr87621_ _hd8758487616_)) - (if (gx#stx-null? _tl8758587618_) + (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-andmap gx#identifier? - _hd87611_) + _hd87608_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _hd87611_) - (cons _expr87621_ '()))) - (_E8757687591_)) + _hd87608_) + (cons _expr87618_ '()))) + (_E8757387588_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8757687591_))))) - (_E8757687591_))))) - (_E8757687591_)))) - (_E8757687591_))))) - (_E8757587623_)))) + (_E8757387588_))))) + (_E8757387588_))))) + (_E8757387588_)))) + (_E8757387588_))))) + (_E8757287620_)))) (define gx#macro-expand-define-syntax - (lambda (_stx87519_) - (let* ((_e8752087533_ _stx87519_) - (_E8752287537_ + (lambda (_stx87516_) + (let* ((_e8751787530_ _stx87516_) + (_E8751987534_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8752087533_))) - (_E8752187569_ + _e8751787530_))) + (_E8751887566_ (lambda () - (if (gx#stx-pair? _e8752087533_) - (let ((_e8752387541_ (gx#syntax-e _e8752087533_))) - (let ((_hd8752487544_ (##car _e8752387541_)) - (_tl8752587546_ (##cdr _e8752387541_))) - (if (gx#stx-pair? _tl8752587546_) - (let ((_e8752687549_ - (gx#syntax-e _tl8752587546_))) - (let ((_hd8752787552_ (##car _e8752687549_)) - (_tl8752887554_ (##cdr _e8752687549_))) - (let ((_hd87557_ _hd8752787552_)) - (if (gx#stx-pair? _tl8752887554_) - (let ((_e8752987559_ - (gx#syntax-e _tl8752887554_))) - (let ((_hd8753087562_ - (##car _e8752987559_)) - (_tl8753187564_ - (##cdr _e8752987559_))) - (let ((_expr87567_ _hd8753087562_)) - (if (gx#stx-null? _tl8753187564_) + (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#identifier? - _hd87557_) + _hd87554_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _hd87557_ + (cons _hd87554_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _expr87567_ '()))) - (_E8752287537_)) + (cons _expr87564_ '()))) + (_E8751987534_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8752287537_))))) - (_E8752287537_))))) - (_E8752287537_)))) - (_E8752287537_))))) - (_E8752187569_)))) + (_E8751987534_))))) + (_E8751987534_))))) + (_E8751987534_)))) + (_E8751987534_))))) + (_E8751887566_)))) (define gx#macro-expand-define-alias - (lambda (_stx87465_) - (let* ((_e8746687479_ _stx87465_) - (_E8746887483_ + (lambda (_stx87462_) + (let* ((_e8746387476_ _stx87462_) + (_E8746587480_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8746687479_))) - (_E8746787515_ + _e8746387476_))) + (_E8746487512_ (lambda () - (if (gx#stx-pair? _e8746687479_) - (let ((_e8746987487_ (gx#syntax-e _e8746687479_))) - (let ((_hd8747087490_ (##car _e8746987487_)) - (_tl8747187492_ (##cdr _e8746987487_))) - (if (gx#stx-pair? _tl8747187492_) - (let ((_e8747287495_ - (gx#syntax-e _tl8747187492_))) - (let ((_hd8747387498_ (##car _e8747287495_)) - (_tl8747487500_ (##cdr _e8747287495_))) - (let ((_id87503_ _hd8747387498_)) - (if (gx#stx-pair? _tl8747487500_) - (let ((_e8747587505_ - (gx#syntax-e _tl8747487500_))) - (let ((_hd8747687508_ - (##car _e8747587505_)) - (_tl8747787510_ - (##cdr _e8747587505_))) - (let ((_alias-id87513_ - _hd8747687508_)) - (if (gx#stx-null? _tl8747787510_) + (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 (and (gx#identifier? - _id87503_) + _id87500_) (gx#identifier? - _alias-id87513_)) + _alias-id87510_)) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _id87503_ + (cons _id87500_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _alias-id87513_ '()))) - (_E8746887483_)) + (cons _alias-id87510_ '()))) + (_E8746587480_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8746887483_))))) - (_E8746887483_))))) - (_E8746887483_)))) - (_E8746887483_))))) - (_E8746787515_)))) + (_E8746587480_))))) + (_E8746587480_))))) + (_E8746587480_)))) + (_E8746587480_))))) + (_E8746487512_)))) (define gx#macro-expand-lambda% - (lambda (_stx87422_) - (let* ((_e8742387433_ _stx87422_) - (_E8742587437_ + (lambda (_stx87419_) + (let* ((_e8742087430_ _stx87419_) + (_E8742287434_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8742387433_))) - (_E8742487461_ + _e8742087430_))) + (_E8742187458_ (lambda () - (if (gx#stx-pair? _e8742387433_) - (let ((_e8742687441_ (gx#syntax-e _e8742387433_))) - (let ((_hd8742787444_ (##car _e8742687441_)) - (_tl8742887446_ (##cdr _e8742687441_))) - (if (gx#stx-pair? _tl8742887446_) - (let ((_e8742987449_ - (gx#syntax-e _tl8742887446_))) - (let ((_hd8743087452_ (##car _e8742987449_)) - (_tl8743187454_ (##cdr _e8742987449_))) - (let* ((_hd87457_ _hd8743087452_) - (_body87459_ _tl8743187454_)) + (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 (and (gx#stx-andmap gx#identifier? - _hd87457_) - (gx#stx-list? _body87459_) - (not (gx#stx-null? _body87459_))) + _hd87454_) + (gx#stx-list? _body87456_) + (not (gx#stx-null? _body87456_))) (gx#core-cons* '%#lambda (gx#stx-map1 gx#user-binding-identifier - _hd87457_) - _body87459_) - (_E8742587437_))))) - (_E8742587437_)))) - (_E8742587437_))))) - (_E8742487461_)))) + _hd87454_) + _body87456_) + (_E8742287434_))))) + (_E8742287434_)))) + (_E8742287434_))))) + (_E8742187458_)))) (define gx#macro-expand-case-lambda - (lambda (_stx87358_) - (letrec ((_generate87360_ - (lambda (_clause87390_) - (let* ((_e8739187398_ _clause87390_) - (_E8739387402_ + (lambda (_stx87355_) + (letrec ((_generate87357_ + (lambda (_clause87387_) + (let* ((_e8738887395_ _clause87387_) + (_E8739087399_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _stx87358_ - _clause87390_))) - (_E8739287418_ + _stx87355_ + _clause87387_))) + (_E8738987415_ (lambda () - (if (gx#stx-pair? _e8739187398_) - (let ((_e8739487406_ - (gx#syntax-e _e8739187398_))) - (let ((_hd8739587409_ - (##car _e8739487406_)) - (_tl8739687411_ - (##cdr _e8739487406_))) - (let* ((_hd87414_ _hd8739587409_) - (_body87416_ _tl8739687411_)) + (if (gx#stx-pair? _e8738887395_) + (let ((_e8739187403_ + (gx#syntax-e _e8738887395_))) + (let ((_hd8739287406_ + (##car _e8739187403_)) + (_tl8739387408_ + (##cdr _e8739187403_))) + (let* ((_hd87411_ _hd8739287406_) + (_body87413_ _tl8739387408_)) (if (and (gx#stx-andmap gx#identifier? - _hd87414_) - (gx#stx-list? _body87416_) + _hd87411_) + (gx#stx-list? _body87413_) (not (gx#stx-null? - _body87416_))) + _body87413_))) (gx#stx-wrap-source (cons (gx#stx-map1 gx#user-binding-identifier - _hd87414_) - _body87416_) - (gx#stx-source _clause87390_)) - (_E8739387402_))))) - (_E8739387402_))))) - (_E8739287418_))))) - (let* ((_e8736187368_ _stx87358_) - (_E8736387372_ + _hd87411_) + _body87413_) + (gx#stx-source _clause87387_)) + (_E8739087399_))))) + (_E8739087399_))))) + (_E8738987415_))))) + (let* ((_e8735887365_ _stx87355_) + (_E8736087369_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8736187368_))) - (_E8736287386_ + _e8735887365_))) + (_E8735987383_ (lambda () - (if (gx#stx-pair? _e8736187368_) - (let ((_e8736487376_ (gx#syntax-e _e8736187368_))) - (let ((_hd8736587379_ (##car _e8736487376_)) - (_tl8736687381_ (##cdr _e8736487376_))) - (let ((_clauses87384_ _tl8736687381_)) - (if (gx#stx-list? _clauses87384_) + (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_) (gx#core-cons '%#case-lambda (gx#stx-map1 - _generate87360_ - _clauses87384_)) - (_E8736387372_))))) - (_E8736387372_))))) - (_E8736287386_))))) + _generate87357_ + _clauses87381_)) + (_E8736087369_))))) + (_E8736087369_))))) + (_E8735987383_))))) (define gx#macro-expand-let-values__% - (lambda (_stx87259_ _form87260_) - (letrec ((_generate87262_ - (lambda (_bind87305_) - (let* ((_e8730687316_ _bind87305_) - (_E8730887320_ + (lambda (_stx87256_ _form87257_) + (letrec ((_generate87259_ + (lambda (_bind87302_) + (let* ((_e8730387313_ _bind87302_) + (_E8730587317_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _stx87259_ - _bind87305_))) - (_E8730787344_ + _stx87256_ + _bind87302_))) + (_E8730487341_ (lambda () - (if (gx#stx-pair? _e8730687316_) - (let ((_e8730987324_ - (gx#syntax-e _e8730687316_))) - (let ((_hd8731087327_ - (##car _e8730987324_)) - (_tl8731187329_ - (##cdr _e8730987324_))) - (let ((_ids87332_ _hd8731087327_)) - (if (gx#stx-pair? _tl8731187329_) - (let ((_e8731287334_ + (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_ (gx#syntax-e - _tl8731187329_))) - (let ((_hd8731387337_ - (##car _e8731287334_)) - (_tl8731487339_ - (##cdr _e8731287334_))) - (let ((_expr87342_ - _hd8731387337_)) + _tl8730887326_))) + (let ((_hd8731087334_ + (##car _e8730987331_)) + (_tl8731187336_ + (##cdr _e8730987331_))) + (let ((_expr87339_ + _hd8731087334_)) (if (gx#stx-null? - _tl8731487339_) + _tl8731187336_) (if (gx#stx-andmap gx#identifier? - _ids87332_) + _ids87329_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _ids87332_) - (cons _expr87342_ '())) - (_E8730887320_)) - (_E8730887320_))))) + _ids87329_) + (cons _expr87339_ '())) + (_E8730587317_)) + (_E8730587317_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8730887320_))))) - (_E8730887320_))))) - (_E8730787344_))))) - (let* ((_e8726387273_ _stx87259_) - (_E8726587277_ + (_E8730587317_))))) + (_E8730587317_))))) + (_E8730487341_))))) + (let* ((_e8726087270_ _stx87256_) + (_E8726287274_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8726387273_))) - (_E8726487301_ + _e8726087270_))) + (_E8726187298_ (lambda () - (if (gx#stx-pair? _e8726387273_) - (let ((_e8726687281_ (gx#syntax-e _e8726387273_))) - (let ((_hd8726787284_ (##car _e8726687281_)) - (_tl8726887286_ (##cdr _e8726687281_))) - (if (gx#stx-pair? _tl8726887286_) - (let ((_e8726987289_ - (gx#syntax-e _tl8726887286_))) - (let ((_hd8727087292_ (##car _e8726987289_)) - (_tl8727187294_ (##cdr _e8726987289_))) - (let* ((_hd87297_ _hd8727087292_) - (_body87299_ _tl8727187294_)) - (if (and (gx#stx-list? _hd87297_) - (gx#stx-list? _body87299_) + (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_) (not (gx#stx-null? - _body87299_))) + _body87296_))) (gx#core-cons* - _form87260_ + _form87257_ (gx#stx-map1 - _generate87262_ - _hd87297_) - _body87299_) - (_E8726587277_))))) - (_E8726587277_)))) - (_E8726587277_))))) - (_E8726487301_))))) + _generate87259_ + _hd87294_) + _body87296_) + (_E8726287274_))))) + (_E8726287274_)))) + (_E8726287274_))))) + (_E8726187298_))))) (define gx#macro-expand-let-values__0 - (lambda (_stx87351_) - (let ((_form87353_ '%#let-values)) - (gx#macro-expand-let-values__% _stx87351_ _form87353_)))) + (lambda (_stx87348_) + (let ((_form87350_ '%#let-values)) + (gx#macro-expand-let-values__% _stx87348_ _form87350_)))) (define gx#macro-expand-let-values - (lambda _g89736_ - (let ((_g89735_ (##length _g89736_))) - (cond ((##fx= _g89735_ 1) - (apply (lambda (_stx87351_) - (gx#macro-expand-let-values__0 _stx87351_)) - _g89736_)) - ((##fx= _g89735_ 2) - (apply (lambda (_stx87355_ _form87356_) + (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_) (gx#macro-expand-let-values__% - _stx87355_ - _form87356_)) - _g89736_)) + _stx87352_ + _form87353_)) + _g89733_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-let-values - _g89736_)))))) + _g89733_)))))) (define gx#macro-expand-letrec-values - (lambda (_stx87256_) - (gx#macro-expand-let-values__% _stx87256_ '%#letrec-values))) + (lambda (_stx87253_) + (gx#macro-expand-let-values__% _stx87253_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_stx87254_) - (gx#macro-expand-let-values__% _stx87254_ '%#letrec*-values))) + (lambda (_stx87251_) + (gx#macro-expand-let-values__% _stx87251_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_stx87145_) - (let* ((_e8714687172_ _stx87145_) - (_E8715887176_ + (lambda (_stx87142_) + (let* ((_e8714387169_ _stx87142_) + (_E8715587173_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8714687172_))) - (_E8714887218_ + _e8714387169_))) + (_E8714587215_ (lambda () - (if (gx#stx-pair? _e8714687172_) - (let ((_e8715987180_ (gx#syntax-e _e8714687172_))) - (let ((_hd8716087183_ (##car _e8715987180_)) - (_tl8716187185_ (##cdr _e8715987180_))) - (if (gx#stx-pair? _tl8716187185_) - (let ((_e8716287188_ - (gx#syntax-e _tl8716187185_))) - (let ((_hd8716387191_ (##car _e8716287188_)) - (_tl8716487193_ (##cdr _e8716287188_))) - (let ((_test87196_ _hd8716387191_)) - (if (gx#stx-pair? _tl8716487193_) - (let ((_e8716587198_ - (gx#syntax-e _tl8716487193_))) - (let ((_hd8716687201_ - (##car _e8716587198_)) - (_tl8716787203_ - (##cdr _e8716587198_))) - (let ((_K87206_ _hd8716687201_)) - (if (gx#stx-pair? _tl8716787203_) - (let ((_e8716887208_ + (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_ (gx#syntax-e - _tl8716787203_))) - (let ((_hd8716987211_ - (##car _e8716887208_)) - (_tl8717087213_ - (##cdr _e8716887208_))) - (let ((_E87216_ - _hd8716987211_)) + _tl8716487200_))) + (let ((_hd8716687208_ + (##car _e8716587205_)) + (_tl8716787210_ + (##cdr _e8716587205_))) + (let ((_E87213_ + _hd8716687208_)) (if (gx#stx-null? - _tl8717087213_) + _tl8716787210_) (if '#t (gx#core-list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#if - _test87196_ - _K87206_ - _E87216_) - (_E8715887176_)) - (_E8715887176_))))) + _test87193_ + _K87203_ + _E87213_) + (_E8715587173_)) + (_E8715587173_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8715887176_))))) - (_E8715887176_))))) - (_E8715887176_)))) - (_E8715887176_)))) - (_E8714787250_ + (_E8715587173_))))) + (_E8715587173_))))) + (_E8715587173_)))) + (_E8715587173_)))) + (_E8714487247_ (lambda () - (if (gx#stx-pair? _e8714687172_) - (let ((_e8714987222_ (gx#syntax-e _e8714687172_))) - (let ((_hd8715087225_ (##car _e8714987222_)) - (_tl8715187227_ (##cdr _e8714987222_))) - (if (gx#stx-pair? _tl8715187227_) - (let ((_e8715287230_ - (gx#syntax-e _tl8715187227_))) - (let ((_hd8715387233_ (##car _e8715287230_)) - (_tl8715487235_ (##cdr _e8715287230_))) - (let ((_test87238_ _hd8715387233_)) - (if (gx#stx-pair? _tl8715487235_) - (let ((_e8715587240_ - (gx#syntax-e _tl8715487235_))) - (let ((_hd8715687243_ - (##car _e8715587240_)) - (_tl8715787245_ - (##cdr _e8715587240_))) - (let ((_K87248_ _hd8715687243_)) - (if (gx#stx-null? _tl8715787245_) + (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 '#t (gx#core-list '%#if - _test87238_ - _K87248_ + _test87235_ + _K87245_ '#!void) - (_E8714887218_)) - (_E8714887218_))))) - (_E8714887218_))))) - (_E8714887218_)))) - (_E8714887218_))))) - (_E8714787250_)))) + (_E8714587215_)) + (_E8714587215_))))) + (_E8714587215_))))) + (_E8714587215_)))) + (_E8714587215_))))) + (_E8714487247_)))) (define gx#free-identifier=? - (lambda (_xid87133_ _yid87134_) - (let ((_xe87136_ (gx#resolve-identifier__0 _xid87133_)) - (_ye87137_ (gx#resolve-identifier__0 _yid87134_))) - (if (and _xe87136_ _ye87137_) - (let ((_$e87139_ (eq? _xe87136_ _ye87137_))) - (if _$e87139_ - _$e87139_ - (if (##structure-instance-of? _xe87136_ 'gx#binding::t) - (if (##structure-instance-of? _ye87137_ 'gx#binding::t) + (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) (eq? (##unchecked-structure-ref - _xe87136_ + _xe87133_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _ye87137_ + _ye87134_ '1 gx#binding::t '#f)) '#f) '#f))) - (if (or _xe87136_ _ye87137_) + (if (or _xe87133_ _ye87134_) '#f - (gx#stx-eq? _xid87133_ _yid87134_)))))) + (gx#stx-eq? _xid87130_ _yid87131_)))))) (define gx#bound-identifier=? - (lambda (_xid87117_ _yid87118_) - (letrec ((_context87120_ - (lambda (_e87131_) + (lambda (_xid87114_ _yid87115_) + (letrec ((_context87117_ + (lambda (_e87128_) (if (##structure-direct-instance-of? - _e87131_ + _e87128_ 'gx#syntax-quote::t) (##unchecked-structure-ref - _e87131_ + _e87128_ '3 gx#syntax-quote::t '#f) (gx#current-expander-context)))) - (_marks87121_ - (lambda (_e87129_) - (if (symbol? _e87129_) + (_marks87118_ + (lambda (_e87126_) + (if (symbol? _e87126_) '() (if (##structure-direct-instance-of? - _e87129_ + _e87126_ 'gx#identifier-wrap::t) (##unchecked-structure-ref - _e87129_ + _e87126_ '3 gx#identifier-wrap::t '#f) (##unchecked-structure-ref - _e87129_ + _e87126_ '4 gx#syntax-quote::t '#f))))) - (_unwrap87122_ - (lambda (_e87127_) - (if (symbol? _e87127_) - _e87127_ - (gx#syntax-local-unwrap _e87127_))))) - (let ((_x87124_ (_unwrap87122_ _xid87117_)) - (_y87125_ (_unwrap87122_ _yid87118_))) - (if (gx#stx-eq? _x87124_ _y87125_) - (if (eq? (_context87120_ _x87124_) (_context87120_ _y87125_)) - (equal? (_marks87121_ _x87124_) (_marks87121_ _y87125_)) + (_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_)) '#f) '#f))))) (define gx#underscore? - (lambda (_stx87115_) - (if (gx#identifier? _stx87115_) - (gx#core-identifier=? _stx87115_ '_) + (lambda (_stx87112_) + (if (gx#identifier? _stx87112_) + (gx#core-identifier=? _stx87112_ '_) '#f))) (define gx#ellipsis? - (lambda (_stx87113_) - (if (gx#identifier? _stx87113_) - (gx#core-identifier=? _stx87113_ '...) + (lambda (_stx87110_) + (if (gx#identifier? _stx87110_) + (gx#core-identifier=? _stx87110_ '...) '#f))) (define gx#user-binding-identifier - (lambda (_x87111_) - (if (gx#identifier? _x87111_) - (if (not (gx#underscore? _x87111_)) _x87111_ '#f) + (lambda (_x87108_) + (if (gx#identifier? _x87108_) + (if (not (gx#underscore? _x87108_)) _x87108_ '#f) '#f))) (define gx#check-duplicate-identifiers__% - (lambda (_stx87057_ _where87058_) - (let _lp87060_ ((_rest87062_ (gx#syntax->list _stx87057_))) - (let* ((_rest8706387071_ _rest87062_) - (_else8706587079_ (lambda () '#t)) - (_K8706787089_ - (lambda (_rest87082_ _hd87083_) - (if (not (gx#identifier? _hd87083_)) + (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_)) (gx#raise-syntax-error '#f '"Bad identifier" - _where87058_ - _hd87083_) - (if (find (lambda (_g8708487086_) + _where87055_ + _hd87080_) + (if (find (lambda (_g8708187083_) (gx#bound-identifier=? - _g8708487086_ - _hd87083_)) - _rest87082_) + _g8708187083_ + _hd87080_)) + _rest87079_) (gx#raise-syntax-error '#f '"Duplicate identifier" - _where87058_ - _hd87083_) - (_lp87060_ _rest87082_)))))) - (if (##pair? _rest8706387071_) - (let ((_hd8706887092_ (##car _rest8706387071_)) - (_tl8706987094_ (##cdr _rest8706387071_))) - (let* ((_hd87097_ _hd8706887092_) - (_rest87099_ _tl8706987094_)) - (_K8706787089_ _rest87099_ _hd87097_))) - (_else8706587079_)))))) + _where87055_ + _hd87080_) + (_lp87057_ _rest87079_)))))) + (if (##pair? _rest8706087068_) + (let ((_hd8706587089_ (##car _rest8706087068_)) + (_tl8706687091_ (##cdr _rest8706087068_))) + (let* ((_hd87094_ _hd8706587089_) + (_rest87096_ _tl8706687091_)) + (_K8706487086_ _rest87096_ _hd87094_))) + (_else8706287076_)))))) (define gx#check-duplicate-identifiers__0 - (lambda (_stx87104_) - (let ((_where87106_ _stx87104_)) - (gx#check-duplicate-identifiers__% _stx87104_ _where87106_)))) + (lambda (_stx87101_) + (let ((_where87103_ _stx87101_)) + (gx#check-duplicate-identifiers__% _stx87101_ _where87103_)))) (define gx#check-duplicate-identifiers - (lambda _g89738_ - (let ((_g89737_ (##length _g89738_))) - (cond ((##fx= _g89737_ 1) - (apply (lambda (_stx87104_) - (gx#check-duplicate-identifiers__0 _stx87104_)) - _g89738_)) - ((##fx= _g89737_ 2) - (apply (lambda (_stx87108_ _where87109_) + (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_) (gx#check-duplicate-identifiers__% - _stx87108_ - _where87109_)) - _g89738_)) + _stx87105_ + _where87106_)) + _g89735_)) (else (##raise-wrong-number-of-arguments-exception gx#check-duplicate-identifiers - _g89738_)))))) + _g89735_)))))) (define gx#core-bind-values? - (lambda (_stx87049_) + (lambda (_stx87046_) (gx#stx-andmap - (lambda (_x87051_) - (let ((_$e87053_ (gx#identifier? _x87051_))) - (if _$e87053_ _$e87053_ (gx#stx-false? _x87051_)))) - _stx87049_))) + (lambda (_x87048_) + (let ((_$e87050_ (gx#identifier? _x87048_))) + (if _$e87050_ _$e87050_ (gx#stx-false? _x87048_)))) + _stx87046_))) (define gx#core-bind-values!__% - (lambda (_stx87013_ _rebind?87014_ _phi87015_ _ctx87016_) + (lambda (_stx87010_ _rebind?87011_ _phi87012_ _ctx87013_) (gx#stx-for-each1 - (lambda (_id87018_) - (if (gx#identifier? _id87018_) + (lambda (_id87015_) + (if (gx#identifier? _id87015_) (gx#core-bind-runtime!__% - _id87018_ - _rebind?87014_ - _phi87015_ - _ctx87016_) + _id87015_ + _rebind?87011_ + _phi87012_ + _ctx87013_) '#!void)) - _stx87013_))) + _stx87010_))) (define gx#core-bind-values!__0 - (lambda (_stx87023_) - (let* ((_rebind?87025_ '#f) - (_phi87027_ (gx#current-expander-phi)) - (_ctx87029_ (gx#current-expander-context))) + (lambda (_stx87020_) + (let* ((_rebind?87022_ '#f) + (_phi87024_ (gx#current-expander-phi)) + (_ctx87026_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx87023_ - _rebind?87025_ - _phi87027_ - _ctx87029_)))) + _stx87020_ + _rebind?87022_ + _phi87024_ + _ctx87026_)))) (define gx#core-bind-values!__1 - (lambda (_stx87031_ _rebind?87032_) - (let* ((_phi87034_ (gx#current-expander-phi)) - (_ctx87036_ (gx#current-expander-context))) + (lambda (_stx87028_ _rebind?87029_) + (let* ((_phi87031_ (gx#current-expander-phi)) + (_ctx87033_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx87031_ - _rebind?87032_ - _phi87034_ - _ctx87036_)))) + _stx87028_ + _rebind?87029_ + _phi87031_ + _ctx87033_)))) (define gx#core-bind-values!__2 - (lambda (_stx87038_ _rebind?87039_ _phi87040_) - (let ((_ctx87042_ (gx#current-expander-context))) + (lambda (_stx87035_ _rebind?87036_ _phi87037_) + (let ((_ctx87039_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx87038_ - _rebind?87039_ - _phi87040_ - _ctx87042_)))) + _stx87035_ + _rebind?87036_ + _phi87037_ + _ctx87039_)))) (define gx#core-bind-values! - (lambda _g89740_ - (let ((_g89739_ (##length _g89740_))) - (cond ((##fx= _g89739_ 1) - (apply (lambda (_stx87023_) - (gx#core-bind-values!__0 _stx87023_)) - _g89740_)) - ((##fx= _g89739_ 2) - (apply (lambda (_stx87031_ _rebind?87032_) - (gx#core-bind-values!__1 _stx87031_ _rebind?87032_)) - _g89740_)) - ((##fx= _g89739_ 3) - (apply (lambda (_stx87038_ _rebind?87039_ _phi87040_) + (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_) (gx#core-bind-values!__2 - _stx87038_ - _rebind?87039_ - _phi87040_)) - _g89740_)) - ((##fx= _g89739_ 4) - (apply (lambda (_stx87044_ - _rebind?87045_ - _phi87046_ - _ctx87047_) + _stx87035_ + _rebind?87036_ + _phi87037_)) + _g89737_)) + ((##fx= _g89736_ 4) + (apply (lambda (_stx87041_ + _rebind?87042_ + _phi87043_ + _ctx87044_) (gx#core-bind-values!__% - _stx87044_ - _rebind?87045_ - _phi87046_ - _ctx87047_)) - _g89740_)) + _stx87041_ + _rebind?87042_ + _phi87043_ + _ctx87044_)) + _g89737_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-values! - _g89740_)))))) + _g89737_)))))) (define gx#core-quote-bind-values - (lambda (_stx87008_) + (lambda (_stx87005_) (gx#stx-map1 - (lambda (_x87010_) - (if (gx#identifier? _x87010_) - (gx#core-quote-syntax__0 _x87010_) + (lambda (_x87007_) + (if (gx#identifier? _x87007_) + (gx#core-quote-syntax__0 _x87007_) '#f)) - _stx87008_))) + _stx87005_))) (define gx#core-runtime-ref? - (lambda (_stx87001_) - (if (gx#identifier? _stx87001_) - (let* ((_bind87003_ (gx#resolve-identifier__0 _stx87001_)) - (_$e87005_ (not _bind87003_))) - (if _$e87005_ - _$e87005_ + (lambda (_stx86998_) + (if (gx#identifier? _stx86998_) + (let* ((_bind87000_ (gx#resolve-identifier__0 _stx86998_)) + (_$e87002_ (not _bind87000_))) + (if _$e87002_ + _$e87002_ (##structure-instance-of? - _bind87003_ + _bind87000_ 'gx#runtime-binding::t))) '#f))) (define gx#core-quote-runtime-ref - (lambda (_id86993_ _form86994_) - (let ((_bind86996_ (gx#resolve-identifier__0 _id86993_))) - (if (##structure-instance-of? _bind86996_ 'gx#runtime-binding::t) - (gx#core-quote-syntax__0 _id86993_) - (if (not _bind86996_) + (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_) (if (or (gx#core-context-rebind?__% (gx#core-context-top__0)) - (gx#core-extern-symbol? (gx#stx-e _id86993_))) - (gx#core-quote-syntax__0 _id86993_) + (gx#core-extern-symbol? (gx#stx-e _id86990_))) + (gx#core-quote-syntax__0 _id86990_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _form86994_ - _id86993_)) + _form86991_ + _id86990_)) (gx#raise-syntax-error '#f '"Bad syntax; not a runtime binding" - _form86994_ - _id86993_)))))) + _form86991_ + _id86990_)))))) (define gx#core-bind-runtime!__% - (lambda (_id86952_ _rebind?86953_ _phi86954_ _ctx86955_) - (let* ((_key86957_ (gx#core-identifier-key _id86952_)) - (_eid86959_ - (gx#make-binding-id__% _key86957_ '#f _phi86954_ _ctx86955_)) - (_bind86961_ - (if (##structure-instance-of? _ctx86955_ 'gx#module-context::t) + (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) (##structure gx#module-binding::t - _eid86959_ - _key86957_ - _phi86954_ - _ctx86955_) + _eid86956_ + _key86954_ + _phi86951_ + _ctx86952_) (if (##structure-instance-of? - _ctx86955_ + _ctx86952_ 'gx#top-context::t) (##structure gx#top-binding::t - _eid86959_ - _key86957_ - _phi86954_) + _eid86956_ + _key86954_ + _phi86951_) (if (##structure-instance-of? - _ctx86955_ + _ctx86952_ 'gx#local-context::t) (##structure gx#local-binding::t - _eid86959_ - _key86957_ - _phi86954_) + _eid86956_ + _key86954_ + _phi86951_) (##structure gx#runtime-binding::t - _eid86959_ - _key86957_ - _phi86954_)))))) + _eid86956_ + _key86954_ + _phi86951_)))))) (gx#bind-identifier!__% - _id86952_ - _bind86961_ - _rebind?86953_ - _phi86954_ - _ctx86955_)))) + _id86949_ + _bind86958_ + _rebind?86950_ + _phi86951_ + _ctx86952_)))) (define gx#core-bind-runtime!__0 - (lambda (_id86967_) - (let* ((_rebind?86969_ '#f) - (_phi86971_ (gx#current-expander-phi)) - (_ctx86973_ (gx#current-expander-context))) + (lambda (_id86964_) + (let* ((_rebind?86966_ '#f) + (_phi86968_ (gx#current-expander-phi)) + (_ctx86970_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id86967_ - _rebind?86969_ - _phi86971_ - _ctx86973_)))) + _id86964_ + _rebind?86966_ + _phi86968_ + _ctx86970_)))) (define gx#core-bind-runtime!__1 - (lambda (_id86975_ _rebind?86976_) - (let* ((_phi86978_ (gx#current-expander-phi)) - (_ctx86980_ (gx#current-expander-context))) + (lambda (_id86972_ _rebind?86973_) + (let* ((_phi86975_ (gx#current-expander-phi)) + (_ctx86977_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id86975_ - _rebind?86976_ - _phi86978_ - _ctx86980_)))) + _id86972_ + _rebind?86973_ + _phi86975_ + _ctx86977_)))) (define gx#core-bind-runtime!__2 - (lambda (_id86982_ _rebind?86983_ _phi86984_) - (let ((_ctx86986_ (gx#current-expander-context))) + (lambda (_id86979_ _rebind?86980_ _phi86981_) + (let ((_ctx86983_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id86982_ - _rebind?86983_ - _phi86984_ - _ctx86986_)))) + _id86979_ + _rebind?86980_ + _phi86981_ + _ctx86983_)))) (define gx#core-bind-runtime! - (lambda _g89742_ - (let ((_g89741_ (##length _g89742_))) - (cond ((##fx= _g89741_ 1) - (apply (lambda (_id86967_) - (gx#core-bind-runtime!__0 _id86967_)) - _g89742_)) - ((##fx= _g89741_ 2) - (apply (lambda (_id86975_ _rebind?86976_) - (gx#core-bind-runtime!__1 _id86975_ _rebind?86976_)) - _g89742_)) - ((##fx= _g89741_ 3) - (apply (lambda (_id86982_ _rebind?86983_ _phi86984_) + (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_) (gx#core-bind-runtime!__2 - _id86982_ - _rebind?86983_ - _phi86984_)) - _g89742_)) - ((##fx= _g89741_ 4) - (apply (lambda (_id86988_ - _rebind?86989_ - _phi86990_ - _ctx86991_) + _id86979_ + _rebind?86980_ + _phi86981_)) + _g89739_)) + ((##fx= _g89738_ 4) + (apply (lambda (_id86985_ + _rebind?86986_ + _phi86987_ + _ctx86988_) (gx#core-bind-runtime!__% - _id86988_ - _rebind?86989_ - _phi86990_ - _ctx86991_)) - _g89742_)) + _id86985_ + _rebind?86986_ + _phi86987_ + _ctx86988_)) + _g89739_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime! - _g89742_)))))) + _g89739_)))))) (define gx#core-bind-runtime-reference!__% - (lambda (_id86907_ _eid86908_ _rebind?86909_ _phi86910_ _ctx86911_) - (let* ((_key86913_ (gx#core-identifier-key _id86907_)) - (_bind86915_ - (if (##structure-instance-of? _ctx86911_ 'gx#module-context::t) + (lambda (_id86904_ _eid86905_ _rebind?86906_ _phi86907_ _ctx86908_) + (let* ((_key86910_ (gx#core-identifier-key _id86904_)) + (_bind86912_ + (if (##structure-instance-of? _ctx86908_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid86908_ - _key86913_ - _phi86910_ - _ctx86911_) + _eid86905_ + _key86910_ + _phi86907_ + _ctx86908_) (if (##structure-instance-of? - _ctx86911_ + _ctx86908_ 'gx#top-context::t) (##structure gx#top-binding::t - _eid86908_ - _key86913_ - _phi86910_) + _eid86905_ + _key86910_ + _phi86907_) (##structure gx#runtime-binding::t - _eid86908_ - _key86913_ - _phi86910_))))) + _eid86905_ + _key86910_ + _phi86907_))))) (gx#bind-identifier!__% - _id86907_ - _bind86915_ - _rebind?86909_ - _phi86910_ - _ctx86911_)))) + _id86904_ + _bind86912_ + _rebind?86906_ + _phi86907_ + _ctx86908_)))) (define gx#core-bind-runtime-reference!__0 - (lambda (_id86921_ _eid86922_) - (let* ((_rebind?86924_ '#f) - (_phi86926_ (gx#current-expander-phi)) - (_ctx86928_ (gx#current-expander-context))) + (lambda (_id86918_ _eid86919_) + (let* ((_rebind?86921_ '#f) + (_phi86923_ (gx#current-expander-phi)) + (_ctx86925_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id86921_ - _eid86922_ - _rebind?86924_ - _phi86926_ - _ctx86928_)))) + _id86918_ + _eid86919_ + _rebind?86921_ + _phi86923_ + _ctx86925_)))) (define gx#core-bind-runtime-reference!__1 - (lambda (_id86930_ _eid86931_ _rebind?86932_) - (let* ((_phi86934_ (gx#current-expander-phi)) - (_ctx86936_ (gx#current-expander-context))) + (lambda (_id86927_ _eid86928_ _rebind?86929_) + (let* ((_phi86931_ (gx#current-expander-phi)) + (_ctx86933_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id86930_ - _eid86931_ - _rebind?86932_ - _phi86934_ - _ctx86936_)))) + _id86927_ + _eid86928_ + _rebind?86929_ + _phi86931_ + _ctx86933_)))) (define gx#core-bind-runtime-reference!__2 - (lambda (_id86938_ _eid86939_ _rebind?86940_ _phi86941_) - (let ((_ctx86943_ (gx#current-expander-context))) + (lambda (_id86935_ _eid86936_ _rebind?86937_ _phi86938_) + (let ((_ctx86940_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id86938_ - _eid86939_ - _rebind?86940_ - _phi86941_ - _ctx86943_)))) + _id86935_ + _eid86936_ + _rebind?86937_ + _phi86938_ + _ctx86940_)))) (define gx#core-bind-runtime-reference! - (lambda _g89744_ - (let ((_g89743_ (##length _g89744_))) - (cond ((##fx= _g89743_ 2) - (apply (lambda (_id86921_ _eid86922_) + (lambda _g89741_ + (let ((_g89740_ (##length _g89741_))) + (cond ((##fx= _g89740_ 2) + (apply (lambda (_id86918_ _eid86919_) (gx#core-bind-runtime-reference!__0 - _id86921_ - _eid86922_)) - _g89744_)) - ((##fx= _g89743_ 3) - (apply (lambda (_id86930_ _eid86931_ _rebind?86932_) + _id86918_ + _eid86919_)) + _g89741_)) + ((##fx= _g89740_ 3) + (apply (lambda (_id86927_ _eid86928_ _rebind?86929_) (gx#core-bind-runtime-reference!__1 - _id86930_ - _eid86931_ - _rebind?86932_)) - _g89744_)) - ((##fx= _g89743_ 4) - (apply (lambda (_id86938_ - _eid86939_ - _rebind?86940_ - _phi86941_) + _id86927_ + _eid86928_ + _rebind?86929_)) + _g89741_)) + ((##fx= _g89740_ 4) + (apply (lambda (_id86935_ + _eid86936_ + _rebind?86937_ + _phi86938_) (gx#core-bind-runtime-reference!__2 - _id86938_ - _eid86939_ - _rebind?86940_ - _phi86941_)) - _g89744_)) - ((##fx= _g89743_ 5) - (apply (lambda (_id86945_ - _eid86946_ - _rebind?86947_ - _phi86948_ - _ctx86949_) + _id86935_ + _eid86936_ + _rebind?86937_ + _phi86938_)) + _g89741_)) + ((##fx= _g89740_ 5) + (apply (lambda (_id86942_ + _eid86943_ + _rebind?86944_ + _phi86945_ + _ctx86946_) (gx#core-bind-runtime-reference!__% - _id86945_ - _eid86946_ - _rebind?86947_ - _phi86948_ - _ctx86949_)) - _g89744_)) + _id86942_ + _eid86943_ + _rebind?86944_ + _phi86945_ + _ctx86946_)) + _g89741_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime-reference! - _g89744_)))))) + _g89741_)))))) (define gx#core-bind-extern!__% - (lambda (_id86867_ _eid86868_ _rebind?86869_ _phi86870_ _ctx86871_) + (lambda (_id86864_ _eid86865_ _rebind?86866_ _phi86867_ _ctx86868_) (gx#bind-identifier!__% - _id86867_ + _id86864_ (##structure gx#extern-binding::t - _eid86868_ - (gx#core-identifier-key _id86867_) - _phi86870_) - _rebind?86869_ - _phi86870_ - _ctx86871_))) + _eid86865_ + (gx#core-identifier-key _id86864_) + _phi86867_) + _rebind?86866_ + _phi86867_ + _ctx86868_))) (define gx#core-bind-extern!__0 - (lambda (_id86876_ _eid86877_) - (let* ((_rebind?86879_ '#f) - (_phi86881_ (gx#current-expander-phi)) - (_ctx86883_ (gx#current-expander-context))) + (lambda (_id86873_ _eid86874_) + (let* ((_rebind?86876_ '#f) + (_phi86878_ (gx#current-expander-phi)) + (_ctx86880_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id86876_ - _eid86877_ - _rebind?86879_ - _phi86881_ - _ctx86883_)))) + _id86873_ + _eid86874_ + _rebind?86876_ + _phi86878_ + _ctx86880_)))) (define gx#core-bind-extern!__1 - (lambda (_id86885_ _eid86886_ _rebind?86887_) - (let* ((_phi86889_ (gx#current-expander-phi)) - (_ctx86891_ (gx#current-expander-context))) + (lambda (_id86882_ _eid86883_ _rebind?86884_) + (let* ((_phi86886_ (gx#current-expander-phi)) + (_ctx86888_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id86885_ - _eid86886_ - _rebind?86887_ - _phi86889_ - _ctx86891_)))) + _id86882_ + _eid86883_ + _rebind?86884_ + _phi86886_ + _ctx86888_)))) (define gx#core-bind-extern!__2 - (lambda (_id86893_ _eid86894_ _rebind?86895_ _phi86896_) - (let ((_ctx86898_ (gx#current-expander-context))) + (lambda (_id86890_ _eid86891_ _rebind?86892_ _phi86893_) + (let ((_ctx86895_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id86893_ - _eid86894_ - _rebind?86895_ - _phi86896_ - _ctx86898_)))) + _id86890_ + _eid86891_ + _rebind?86892_ + _phi86893_ + _ctx86895_)))) (define gx#core-bind-extern! - (lambda _g89746_ - (let ((_g89745_ (##length _g89746_))) - (cond ((##fx= _g89745_ 2) - (apply (lambda (_id86876_ _eid86877_) - (gx#core-bind-extern!__0 _id86876_ _eid86877_)) - _g89746_)) - ((##fx= _g89745_ 3) - (apply (lambda (_id86885_ _eid86886_ _rebind?86887_) + (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_) (gx#core-bind-extern!__1 - _id86885_ - _eid86886_ - _rebind?86887_)) - _g89746_)) - ((##fx= _g89745_ 4) - (apply (lambda (_id86893_ - _eid86894_ - _rebind?86895_ - _phi86896_) + _id86882_ + _eid86883_ + _rebind?86884_)) + _g89743_)) + ((##fx= _g89742_ 4) + (apply (lambda (_id86890_ + _eid86891_ + _rebind?86892_ + _phi86893_) (gx#core-bind-extern!__2 - _id86893_ - _eid86894_ - _rebind?86895_ - _phi86896_)) - _g89746_)) - ((##fx= _g89745_ 5) - (apply (lambda (_id86900_ - _eid86901_ - _rebind?86902_ - _phi86903_ - _ctx86904_) + _id86890_ + _eid86891_ + _rebind?86892_ + _phi86893_)) + _g89743_)) + ((##fx= _g89742_ 5) + (apply (lambda (_id86897_ + _eid86898_ + _rebind?86899_ + _phi86900_ + _ctx86901_) (gx#core-bind-extern!__% - _id86900_ - _eid86901_ - _rebind?86902_ - _phi86903_ - _ctx86904_)) - _g89746_)) + _id86897_ + _eid86898_ + _rebind?86899_ + _phi86900_ + _ctx86901_)) + _g89743_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-extern! - _g89746_)))))) + _g89743_)))))) (define gx#core-bind-syntax!__% - (lambda (_id86821_ _e86822_ _rebind?86823_ _phi86824_ _ctx86825_) + (lambda (_id86818_ _e86819_ _rebind?86820_ _phi86821_ _ctx86822_) (gx#bind-identifier!__% - _id86821_ - (let ((_key86830_ (gx#core-identifier-key _id86821_)) - (_e86831_ - (if (or (##structure-instance-of? _e86822_ 'gx#expander::t) + _id86818_ + (let ((_key86827_ (gx#core-identifier-key _id86818_)) + (_e86828_ + (if (or (##structure-instance-of? _e86819_ 'gx#expander::t) (##structure-instance-of? - _e86822_ + _e86819_ 'gx#expander-context::t)) - _e86822_ + _e86819_ (##structure gx#user-expander::t - _e86822_ - _ctx86825_ - _phi86824_)))) + _e86819_ + _ctx86822_ + _phi86821_)))) (##structure gx#syntax-binding::t - (gx#make-binding-id__% _key86830_ '#t _phi86824_ _ctx86825_) - _key86830_ - _phi86824_ - _e86831_)) - _rebind?86823_ - _phi86824_ - _ctx86825_))) + (gx#make-binding-id__% _key86827_ '#t _phi86821_ _ctx86822_) + _key86827_ + _phi86821_ + _e86828_)) + _rebind?86820_ + _phi86821_ + _ctx86822_))) (define gx#core-bind-syntax!__0 - (lambda (_id86836_ _e86837_) - (let* ((_rebind?86839_ '#f) - (_phi86841_ (gx#current-expander-phi)) - (_ctx86843_ (gx#current-expander-context))) + (lambda (_id86833_ _e86834_) + (let* ((_rebind?86836_ '#f) + (_phi86838_ (gx#current-expander-phi)) + (_ctx86840_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id86836_ - _e86837_ - _rebind?86839_ - _phi86841_ - _ctx86843_)))) + _id86833_ + _e86834_ + _rebind?86836_ + _phi86838_ + _ctx86840_)))) (define gx#core-bind-syntax!__1 - (lambda (_id86845_ _e86846_ _rebind?86847_) - (let* ((_phi86849_ (gx#current-expander-phi)) - (_ctx86851_ (gx#current-expander-context))) + (lambda (_id86842_ _e86843_ _rebind?86844_) + (let* ((_phi86846_ (gx#current-expander-phi)) + (_ctx86848_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id86845_ - _e86846_ - _rebind?86847_ - _phi86849_ - _ctx86851_)))) + _id86842_ + _e86843_ + _rebind?86844_ + _phi86846_ + _ctx86848_)))) (define gx#core-bind-syntax!__2 - (lambda (_id86853_ _e86854_ _rebind?86855_ _phi86856_) - (let ((_ctx86858_ (gx#current-expander-context))) + (lambda (_id86850_ _e86851_ _rebind?86852_ _phi86853_) + (let ((_ctx86855_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id86853_ - _e86854_ - _rebind?86855_ - _phi86856_ - _ctx86858_)))) + _id86850_ + _e86851_ + _rebind?86852_ + _phi86853_ + _ctx86855_)))) (define gx#core-bind-syntax! - (lambda _g89748_ - (let ((_g89747_ (##length _g89748_))) - (cond ((##fx= _g89747_ 2) - (apply (lambda (_id86836_ _e86837_) - (gx#core-bind-syntax!__0 _id86836_ _e86837_)) - _g89748_)) - ((##fx= _g89747_ 3) - (apply (lambda (_id86845_ _e86846_ _rebind?86847_) + (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_) (gx#core-bind-syntax!__1 - _id86845_ - _e86846_ - _rebind?86847_)) - _g89748_)) - ((##fx= _g89747_ 4) - (apply (lambda (_id86853_ _e86854_ _rebind?86855_ _phi86856_) + _id86842_ + _e86843_ + _rebind?86844_)) + _g89745_)) + ((##fx= _g89744_ 4) + (apply (lambda (_id86850_ _e86851_ _rebind?86852_ _phi86853_) (gx#core-bind-syntax!__2 - _id86853_ - _e86854_ - _rebind?86855_ - _phi86856_)) - _g89748_)) - ((##fx= _g89747_ 5) - (apply (lambda (_id86860_ - _e86861_ - _rebind?86862_ - _phi86863_ - _ctx86864_) + _id86850_ + _e86851_ + _rebind?86852_ + _phi86853_)) + _g89745_)) + ((##fx= _g89744_ 5) + (apply (lambda (_id86857_ + _e86858_ + _rebind?86859_ + _phi86860_ + _ctx86861_) (gx#core-bind-syntax!__% - _id86860_ - _e86861_ - _rebind?86862_ - _phi86863_ - _ctx86864_)) - _g89748_)) + _id86857_ + _e86858_ + _rebind?86859_ + _phi86860_ + _ctx86861_)) + _g89745_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-syntax! - _g89748_)))))) + _g89745_)))))) (define gx#core-bind-root-syntax!__% - (lambda (_id86804_ _e86805_ _rebind?86806_) + (lambda (_id86801_ _e86802_ _rebind?86803_) (gx#core-bind-syntax!__% - _id86804_ - _e86805_ - _rebind?86806_ + _id86801_ + _e86802_ + _rebind?86803_ '0 (gx#core-context-root__0)))) (define gx#core-bind-root-syntax!__0 - (lambda (_id86811_ _e86812_) - (let ((_rebind?86814_ '#f)) - (gx#core-bind-root-syntax!__% _id86811_ _e86812_ _rebind?86814_)))) + (lambda (_id86808_ _e86809_) + (let ((_rebind?86811_ '#f)) + (gx#core-bind-root-syntax!__% _id86808_ _e86809_ _rebind?86811_)))) (define gx#core-bind-root-syntax! - (lambda _g89750_ - (let ((_g89749_ (##length _g89750_))) - (cond ((##fx= _g89749_ 2) - (apply (lambda (_id86811_ _e86812_) - (gx#core-bind-root-syntax!__0 _id86811_ _e86812_)) - _g89750_)) - ((##fx= _g89749_ 3) - (apply (lambda (_id86816_ _e86817_ _rebind?86818_) + (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_) (gx#core-bind-root-syntax!__% - _id86816_ - _e86817_ - _rebind?86818_)) - _g89750_)) + _id86813_ + _e86814_ + _rebind?86815_)) + _g89747_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-root-syntax! - _g89750_)))))) + _g89747_)))))) (define gx#core-bind-alias!__% - (lambda (_id86762_ _alias-id86763_ _rebind?86764_ _phi86765_ _ctx86766_) + (lambda (_id86759_ _alias-id86760_ _rebind?86761_ _phi86762_ _ctx86763_) (gx#bind-identifier!__% - _id86762_ - (let ((_key86768_ (gx#core-identifier-key _id86762_))) + _id86759_ + (let ((_key86765_ (gx#core-identifier-key _id86759_))) (##structure gx#alias-binding::t - (gx#make-binding-id__% _key86768_ '#t _phi86765_ _ctx86766_) - _key86768_ - _phi86765_ - _alias-id86763_)) - _rebind?86764_ - _phi86765_ - _ctx86766_))) + (gx#make-binding-id__% _key86765_ '#t _phi86762_ _ctx86763_) + _key86765_ + _phi86762_ + _alias-id86760_)) + _rebind?86761_ + _phi86762_ + _ctx86763_))) (define gx#core-bind-alias!__0 - (lambda (_id86773_ _alias-id86774_) - (let* ((_rebind?86776_ '#f) - (_phi86778_ (gx#current-expander-phi)) - (_ctx86780_ (gx#current-expander-context))) + (lambda (_id86770_ _alias-id86771_) + (let* ((_rebind?86773_ '#f) + (_phi86775_ (gx#current-expander-phi)) + (_ctx86777_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id86773_ - _alias-id86774_ - _rebind?86776_ - _phi86778_ - _ctx86780_)))) + _id86770_ + _alias-id86771_ + _rebind?86773_ + _phi86775_ + _ctx86777_)))) (define gx#core-bind-alias!__1 - (lambda (_id86782_ _alias-id86783_ _rebind?86784_) - (let* ((_phi86786_ (gx#current-expander-phi)) - (_ctx86788_ (gx#current-expander-context))) + (lambda (_id86779_ _alias-id86780_ _rebind?86781_) + (let* ((_phi86783_ (gx#current-expander-phi)) + (_ctx86785_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id86782_ - _alias-id86783_ - _rebind?86784_ - _phi86786_ - _ctx86788_)))) + _id86779_ + _alias-id86780_ + _rebind?86781_ + _phi86783_ + _ctx86785_)))) (define gx#core-bind-alias!__2 - (lambda (_id86790_ _alias-id86791_ _rebind?86792_ _phi86793_) - (let ((_ctx86795_ (gx#current-expander-context))) + (lambda (_id86787_ _alias-id86788_ _rebind?86789_ _phi86790_) + (let ((_ctx86792_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id86790_ - _alias-id86791_ - _rebind?86792_ - _phi86793_ - _ctx86795_)))) + _id86787_ + _alias-id86788_ + _rebind?86789_ + _phi86790_ + _ctx86792_)))) (define gx#core-bind-alias! - (lambda _g89752_ - (let ((_g89751_ (##length _g89752_))) - (cond ((##fx= _g89751_ 2) - (apply (lambda (_id86773_ _alias-id86774_) - (gx#core-bind-alias!__0 _id86773_ _alias-id86774_)) - _g89752_)) - ((##fx= _g89751_ 3) - (apply (lambda (_id86782_ _alias-id86783_ _rebind?86784_) + (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_) (gx#core-bind-alias!__1 - _id86782_ - _alias-id86783_ - _rebind?86784_)) - _g89752_)) - ((##fx= _g89751_ 4) - (apply (lambda (_id86790_ - _alias-id86791_ - _rebind?86792_ - _phi86793_) + _id86779_ + _alias-id86780_ + _rebind?86781_)) + _g89749_)) + ((##fx= _g89748_ 4) + (apply (lambda (_id86787_ + _alias-id86788_ + _rebind?86789_ + _phi86790_) (gx#core-bind-alias!__2 - _id86790_ - _alias-id86791_ - _rebind?86792_ - _phi86793_)) - _g89752_)) - ((##fx= _g89751_ 5) - (apply (lambda (_id86797_ - _alias-id86798_ - _rebind?86799_ - _phi86800_ - _ctx86801_) + _id86787_ + _alias-id86788_ + _rebind?86789_ + _phi86790_)) + _g89749_)) + ((##fx= _g89748_ 5) + (apply (lambda (_id86794_ + _alias-id86795_ + _rebind?86796_ + _phi86797_ + _ctx86798_) (gx#core-bind-alias!__% - _id86797_ - _alias-id86798_ - _rebind?86799_ - _phi86800_ - _ctx86801_)) - _g89752_)) + _id86794_ + _alias-id86795_ + _rebind?86796_ + _phi86797_ + _ctx86798_)) + _g89749_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-alias! - _g89752_)))))) + _g89749_)))))) (define gx#make-binding-id__% - (lambda (_key86719_ _syntax?86720_ _phi86721_ _ctx86722_) - (if (uninterned-symbol? _key86719_) + (lambda (_key86716_ _syntax?86717_ _phi86718_ _ctx86719_) + (if (uninterned-symbol? _key86716_) (gensym 'L) - (if (pair? _key86719_) - (gensym (car _key86719_)) - (if (##structure-instance-of? _ctx86722_ 'gx#top-context::t) - (let ((_ns86724_ - (gx#core-context-namespace__% _ctx86722_))) - (if (and (fxzero? _phi86721_) (not _syntax?86720_)) - (if _ns86724_ - (make-symbol__1 _ns86724_ '"#" _key86719_) - _key86719_) - (if _syntax?86720_ + (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_ (make-symbol__1 - (let ((_$e86726_ _ns86724_)) - (if _$e86726_ _$e86726_ '"")) + (let ((_$e86723_ _ns86721_)) + (if _$e86723_ _$e86723_ '"")) '"[:" - (number->string _phi86721_) + (number->string _phi86718_) '":]#" - _key86719_) + _key86716_) (make-symbol__1 - (let ((_$e86729_ _ns86724_)) - (if _$e86729_ _$e86729_ '"")) + (let ((_$e86726_ _ns86721_)) + (if _$e86726_ _$e86726_ '"")) '"[" - (number->string _phi86721_) + (number->string _phi86718_) '"]#" - _key86719_)))) - (gensym _key86719_)))))) + _key86716_)))) + (gensym _key86716_)))))) (define gx#make-binding-id__0 - (lambda (_key86735_) - (let* ((_syntax?86737_ '#f) - (_phi86739_ (gx#current-expander-phi)) - (_ctx86741_ (gx#current-expander-context))) + (lambda (_key86732_) + (let* ((_syntax?86734_ '#f) + (_phi86736_ (gx#current-expander-phi)) + (_ctx86738_ (gx#current-expander-context))) (gx#make-binding-id__% - _key86735_ - _syntax?86737_ - _phi86739_ - _ctx86741_)))) + _key86732_ + _syntax?86734_ + _phi86736_ + _ctx86738_)))) (define gx#make-binding-id__1 - (lambda (_key86743_ _syntax?86744_) - (let* ((_phi86746_ (gx#current-expander-phi)) - (_ctx86748_ (gx#current-expander-context))) + (lambda (_key86740_ _syntax?86741_) + (let* ((_phi86743_ (gx#current-expander-phi)) + (_ctx86745_ (gx#current-expander-context))) (gx#make-binding-id__% - _key86743_ - _syntax?86744_ - _phi86746_ - _ctx86748_)))) + _key86740_ + _syntax?86741_ + _phi86743_ + _ctx86745_)))) (define gx#make-binding-id__2 - (lambda (_key86750_ _syntax?86751_ _phi86752_) - (let ((_ctx86754_ (gx#current-expander-context))) + (lambda (_key86747_ _syntax?86748_ _phi86749_) + (let ((_ctx86751_ (gx#current-expander-context))) (gx#make-binding-id__% - _key86750_ - _syntax?86751_ - _phi86752_ - _ctx86754_)))) + _key86747_ + _syntax?86748_ + _phi86749_ + _ctx86751_)))) (define gx#make-binding-id - (lambda _g89754_ - (let ((_g89753_ (##length _g89754_))) - (cond ((##fx= _g89753_ 1) - (apply (lambda (_key86735_) - (gx#make-binding-id__0 _key86735_)) - _g89754_)) - ((##fx= _g89753_ 2) - (apply (lambda (_key86743_ _syntax?86744_) - (gx#make-binding-id__1 _key86743_ _syntax?86744_)) - _g89754_)) - ((##fx= _g89753_ 3) - (apply (lambda (_key86750_ _syntax?86751_ _phi86752_) + (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_) (gx#make-binding-id__2 - _key86750_ - _syntax?86751_ - _phi86752_)) - _g89754_)) - ((##fx= _g89753_ 4) - (apply (lambda (_key86756_ - _syntax?86757_ - _phi86758_ - _ctx86759_) + _key86747_ + _syntax?86748_ + _phi86749_)) + _g89751_)) + ((##fx= _g89750_ 4) + (apply (lambda (_key86753_ + _syntax?86754_ + _phi86755_ + _ctx86756_) (gx#make-binding-id__% - _key86756_ - _syntax?86757_ - _phi86758_ - _ctx86759_)) - _g89754_)) + _key86753_ + _syntax?86754_ + _phi86755_ + _ctx86756_)) + _g89751_)) (else (##raise-wrong-number-of-arguments-exception gx#make-binding-id - _g89754_)))))))) + _g89751_)))))))) diff --git a/src/bootstrap/gerbil/runtime/c3__0.scm b/src/bootstrap/gerbil/runtime/c3__0.scm index af058e43..d75478cb 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 1709128371) + (define gerbil/runtime/c3::timestamp 1709229969) (begin (define c4-linearize__% - (lambda (_g61894_ - _get-precedence-list6156161567_ - _struct?6156261569_ - _eq6156361571_ - _get-name6156461573_ - _rhead61575_ - _supers61576_) - (let* ((_get-precedence-list61578_ + (lambda (_g61891_ + _get-precedence-list6155861564_ + _struct?6155961566_ + _eq6156061568_ + _get-name6156161570_ + _rhead61572_ + _supers61573_) + (let* ((_get-precedence-list61575_ (if (let () (declare (not safe)) - (eq? _get-precedence-list6156161567_ absent-value)) + (eq? _get-precedence-list6155861564_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'get-precedence-list:)) - _get-precedence-list6156161567_)) - (_struct?61580_ + _get-precedence-list6155861564_)) + (_struct?61577_ (if (let () (declare (not safe)) - (eq? _struct?6156261569_ absent-value)) + (eq? _struct?6155961566_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'struct:)) - _struct?6156261569_)) - (_eq61582_ + _struct?6155961566_)) + (_eq61579_ (if (let () (declare (not safe)) - (eq? _eq6156361571_ absent-value)) + (eq? _eq6156061568_ absent-value)) eq? - _eq6156361571_)) - (_get-name61584_ + _eq6156061568_)) + (_get-name61581_ (if (let () (declare (not safe)) - (eq? _get-name6156461573_ absent-value)) + (eq? _get-name6156161570_ absent-value)) identity - _get-name6156461573_))) - (letrec* ((_pls61586_ (map _get-precedence-list61578_ _supers61576_)) - (_sit61587_ '()) - (_get-names61588_ - (lambda (_lst61852_) (map _get-name61584_ _lst61852_))) - (_err61589_ - (lambda _a61850_ + _get-name6156161570_))) + (letrec* ((_pls61583_ (map _get-precedence-list61575_ _supers61573_)) + (_sit61584_ '()) + (_get-names61585_ + (lambda (_lst61849_) (map _get-name61581_ _lst61849_))) + (_err61586_ + (lambda _a61847_ (apply error '"Inconsistent precedence graph" 'head: - (let ((__tmp61895 (reverse _rhead61575_))) + (let ((__tmp61892 (reverse _rhead61572_))) (declare (not safe)) - (_get-names61588_ __tmp61895)) + (_get-names61585_ __tmp61892)) 'precedence-lists: - (map _get-names61588_ _pls61586_) + (map _get-names61585_ _pls61583_) 'single-inheritance-tail: (let () (declare (not safe)) - (_get-names61588_ _sit61587_)) - _a61850_))) - (_merge-sit!61590_ - (lambda (_sit261840_) - (if (let () (declare (not safe)) (null? _sit261840_)) + (_get-names61585_ _sit61584_)) + _a61847_))) + (_merge-sit!61587_ + (lambda (_sit261837_) + (if (let () (declare (not safe)) (null? _sit261837_)) '#!void - (if (let () (declare (not safe)) (null? _sit61587_)) - (set! _sit61587_ _sit261840_) - (let _loop61842_ ((_t161844_ _sit61587_) - (_t261845_ _sit261840_)) + (if (let () (declare (not safe)) (null? _sit61584_)) + (set! _sit61584_ _sit261837_) + (let _loop61839_ ((_t161841_ _sit61584_) + (_t261842_ _sit261837_)) (if (let () (declare (not safe)) - (equal? _t161844_ _sit261840_)) + (equal? _t161841_ _sit261837_)) '#!void (if (let () (declare (not safe)) - (equal? _t261845_ _sit61587_)) - (set! _sit61587_ _sit261840_) + (equal? _t261842_ _sit61584_)) + (set! _sit61584_ _sit261837_) (if (or (let () (declare (not safe)) - (null? _t161844_)) + (null? _t161841_)) (let () (declare (not safe)) - (null? _t261845_))) - (let ((__tmp61898 - (let ((__tmp61901 + (null? _t261842_))) + (let ((__tmp61895 + (let ((__tmp61898 (let () (declare (not safe)) - (_get-names61588_ - _sit61587_))) - (__tmp61899 - (let ((__tmp61900 + (_get-names61585_ + _sit61584_))) + (__tmp61896 + (let ((__tmp61897 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_get-names61588_ _sit261840_)))) + (_get-names61585_ _sit261837_)))) (declare (not safe)) - (cons __tmp61900 '())))) + (cons __tmp61897 '())))) (declare (not safe)) - (cons __tmp61901 __tmp61899)))) + (cons __tmp61898 __tmp61896)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_err61589_ + (_err61586_ 'single-inheritance-incompatibility: - __tmp61898)) - (let ((__tmp61897 (cdr _t161844_)) - (__tmp61896 - (cdr _t261845_))) + __tmp61895)) + (let ((__tmp61894 (cdr _t161841_)) + (__tmp61893 + (cdr _t261842_))) (declare (not safe)) - (_loop61842_ - __tmp61897 - __tmp61896)))))))))) - (_rpls61591_ - (map (lambda (_pl61835_) - (let ((_g61902_ + (_loop61839_ + __tmp61894 + __tmp61893)))))))))) + (_rpls61588_ + (map (lambda (_pl61832_) + (let ((_g61899_ (let () (declare (not safe)) (append-reverse-until - _struct?61580_ - _pl61835_ + _struct?61577_ + _pl61832_ '())))) (begin - (let ((_g61903_ + (let ((_g61900_ (let () (declare (not safe)) - (if (##values? _g61902_) - (##vector-length _g61902_) + (if (##values? _g61899_) + (##vector-length _g61899_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g61903_ 2))) + (##fx= _g61900_ 2))) (error "Context expects 2 values" - _g61903_))) - (let ((_tl61837_ + _g61900_))) + (let ((_tl61834_ (let () (declare (not safe)) - (##vector-ref _g61902_ 0))) - (_rh61838_ + (##vector-ref _g61899_ 0))) + (_rh61835_ (let () (declare (not safe)) - (##vector-ref _g61902_ 1)))) + (##vector-ref _g61899_ 1)))) (begin (let () (declare (not safe)) - (_merge-sit!61590_ _tl61837_)) - _rh61838_))))) - _pls61586_)) - (_unsitr-rpl61592_ - (lambda (_rpl61781_) - (let _u61783_ ((_pl-rhead61785_ _rpl61781_) - (_pl-tail61786_ '()) - (_sit-rhead61787_ (reverse _sit61587_)) - (_sit-tail61788_ '())) - (let* ((_pl-rhead6178961798_ _pl-rhead61785_) - (_E6179261802_ + (_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_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _pl-rhead6178961798_))))) - (let ((_K6179661832_ (lambda () _pl-tail61786_)) - (_K6179361816_ - (lambda (_plrh61806_ _c61807_) - (if (member _c61807_ - _sit-tail61788_ - _eq61582_) - (let ((__tmp61914 - (let ((__tmp61915 - (reverse _pl-rhead61785_))) - (declare (not safe)) - (_get-names61588_ - __tmp61915))) - (__tmp61913 - (let () - (declare (not safe)) - (_get-names61588_ - _pl-tail61786_))) - (__tmp61911 + _pl-rhead6178661795_))))) + (let ((_K6179361829_ (lambda () _pl-tail61783_)) + (_K6179061813_ + (lambda (_plrh61803_ _c61804_) + (if (member _c61804_ + _sit-tail61785_ + _eq61579_) + (let ((__tmp61911 (let ((__tmp61912 - (reverse _sit-rhead61787_))) + (reverse _pl-rhead61782_))) (declare (not safe)) - (_get-names61588_ + (_get-names61585_ __tmp61912))) (__tmp61910 (let () (declare (not safe)) - (_get-names61588_ - _sit-tail61788_))) - (__tmp61909 - (_get-name61584_ _c61807_))) + (_get-names61585_ + _pl-tail61783_))) + (__tmp61908 + (let ((__tmp61909 + (reverse _sit-rhead61784_))) + (declare (not safe)) + (_get-names61585_ + __tmp61909))) + (__tmp61907 + (let () + (declare (not safe)) + (_get-names61585_ + _sit-tail61785_))) + (__tmp61906 + (_get-name61581_ _c61804_))) (declare (not safe)) - (_err61589_ + (_err61586_ 'precedence-list-head: - __tmp61914 + __tmp61911 'precedence-list-tail: - __tmp61913 + __tmp61910 'single-inheritance-head: - __tmp61911 + __tmp61908 'single-inheritance-tail: - __tmp61910 + __tmp61907 'super-out-of-order-vs-single-inheritance-tail: - __tmp61909)) - (let ((_g61904_ - (let ((__tmp61906 - (lambda (_g6180861810_) - (_eq61582_ - _c61807_ - _g6180861810_)))) + __tmp61906)) + (let ((_g61901_ + (let ((__tmp61903 + (lambda (_g6180561807_) + (_eq61579_ + _c61804_ + _g6180561807_)))) (declare (not safe)) (append-reverse-until - __tmp61906 - _sit-rhead61787_ - _sit-tail61788_)))) + __tmp61903 + _sit-rhead61784_ + _sit-tail61785_)))) (begin - (let ((_g61905_ + (let ((_g61902_ (let () (declare (not safe)) - (if (##values? _g61904_) + (if (##values? _g61901_) (##vector-length - _g61904_) + _g61901_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g61905_ 2))) + (##fx= _g61902_ 2))) (error "Context expects 2 values" - _g61905_))) - (let ((_sit-rh261813_ + _g61902_))) + (let ((_sit-rh261810_ (let () (declare (not safe)) (##vector-ref - _g61904_ + _g61901_ 0))) - (_sit-tl261814_ + (_sit-tl261811_ (let () (declare (not safe)) (##vector-ref - _g61904_ + _g61901_ 1)))) (if (let () (declare (not safe)) - (null? _sit-rh261813_)) - (let ((__tmp61908 + (null? _sit-rh261810_)) + (let ((__tmp61905 (let () (declare (not safe)) - (cons _c61807_ + (cons _c61804_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pl-tail61786_)))) + _pl-tail61783_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_u61783_ - _plrh61806_ - __tmp61908 + (_u61780_ + _plrh61803_ + __tmp61905 '() - _sit-tl261814_)) - (let ((__tmp61907 - (cdr _sit-rh261813_))) + _sit-tl261811_)) + (let ((__tmp61904 + (cdr _sit-rh261810_))) (declare (not safe)) - (_u61783_ - _plrh61806_ - _pl-tail61786_ - __tmp61907 - _sit-tl261814_)))))))))) - (let ((_try-match6179161828_ + (_u61780_ + _plrh61803_ + _pl-tail61783_ + __tmp61904 + _sit-tl261811_)))))))))) + (let ((_try-match6178861825_ (lambda () (if (let () (declare (not safe)) - (##pair? _pl-rhead6178961798_)) - (let ((_tl6179561821_ + (##pair? _pl-rhead6178661795_)) + (let ((_tl6179261818_ (let () (declare (not safe)) - (##cdr _pl-rhead6178961798_))) - (_hd6179461819_ + (##cdr _pl-rhead6178661795_))) + (_hd6179161816_ (let () (declare (not safe)) - (##car _pl-rhead6178961798_)))) - (let ((_c61824_ _hd6179461819_) - (_plrh61826_ _tl6179561821_)) + (##car _pl-rhead6178661795_)))) + (let ((_c61821_ _hd6179161816_) + (_plrh61823_ _tl6179261818_)) (let () (declare (not safe)) - (_K6179361816_ - _plrh61826_ - _c61824_)))) + (_K6179061813_ + _plrh61823_ + _c61821_)))) (let () (declare (not safe)) - (_E6179261802_)))))) + (_E6178961799_)))))) (if (let () (declare (not safe)) - (##null? _pl-rhead6178961798_)) + (##null? _pl-rhead6178661795_)) (let () (declare (not safe)) - (_K6179661832_)) + (_K6179361829_)) (let () (declare (not safe)) - (_try-match6179161828_))))))))) - (_g61916_ - (let ((_g61917_ - (let ((__tmp61919 (reverse _supers61576_))) + (_try-match6178861825_))))))))) + (_g61913_ + (let ((_g61914_ + (let ((__tmp61916 (reverse _supers61573_))) (declare (not safe)) - (append1! _rpls61591_ __tmp61919)))) + (append1! _rpls61588_ __tmp61916)))) #!void - _g61917_)) - (_g61920_ - (let ((_g61921_ - (set! _pls61586_ - (map _unsitr-rpl61592_ _rpls61591_)))) + _g61914_)) + (_g61917_ + (let ((_g61918_ + (set! _pls61583_ + (map _unsitr-rpl61589_ _rpls61588_)))) #!void - _g61921_)) - (_c3-select-next61593_ - (lambda (_tails61731_) - (let ((_candidate?61737_ - (lambda (_c61733_) - (let ((__tmp61923 - (lambda (_tail61735_) - (let ((__tmp61924 - (member _c61733_ - (cdr _tail61735_) - _eq61582_))) + _g61918_)) + (_c3-select-next61590_ + (lambda (_tails61728_) + (let ((_candidate?61734_ + (lambda (_c61730_) + (let ((__tmp61920 + (lambda (_tail61732_) + (let ((__tmp61921 + (member _c61730_ + (cdr _tail61732_) + _eq61579_))) (declare (not safe)) - (not __tmp61924))))) + (not __tmp61921))))) (declare (not safe)) - (andmap1 __tmp61923 _tails61731_))))) - (let _loop61739_ ((_ts61741_ _tails61731_)) - (let* ((_ts6174261752_ _ts61741_) - (_else6174461760_ + (andmap1 __tmp61920 _tails61728_))))) + (let _loop61736_ ((_ts61738_ _tails61728_)) + (let* ((_ts6173961749_ _ts61738_) + (_else6174161757_ (lambda () (let () (declare (not safe)) - (_err61589_)))) - (_K6174661766_ - (lambda (_rts61763_ _c61764_) + (_err61586_)))) + (_K6174361763_ + (lambda (_rts61760_ _c61761_) (if (let () (declare (not safe)) - (_candidate?61737_ _c61764_)) - _c61764_ + (_candidate?61734_ _c61761_)) + _c61761_ (let () (declare (not safe)) - (_loop61739_ _rts61763_)))))) + (_loop61736_ _rts61760_)))))) (if (let () (declare (not safe)) - (##pair? _ts6174261752_)) - (let ((_hd6174761769_ + (##pair? _ts6173961749_)) + (let ((_hd6174461766_ (let () (declare (not safe)) - (##car _ts6174261752_))) - (_tl6174861771_ + (##car _ts6173961749_))) + (_tl6174561768_ (let () (declare (not safe)) - (##cdr _ts6174261752_)))) + (##cdr _ts6173961749_)))) (if (let () (declare (not safe)) - (##pair? _hd6174761769_)) - (let* ((_hd6174961774_ + (##pair? _hd6174461766_)) + (let* ((_hd6174661771_ (let () (declare (not safe)) - (##car _hd6174761769_))) - (_c61777_ _hd6174961774_) - (_rts61779_ _tl6174861771_)) + (##car _hd6174461766_))) + (_c61774_ _hd6174661771_) + (_rts61776_ _tl6174561768_)) (declare (not safe)) - (_K6174661766_ _rts61779_ _c61777_)) + (_K6174361763_ _rts61776_ _c61774_)) (let () (declare (not safe)) - (_err61589_)))) + (_err61586_)))) (let () (declare (not safe)) - (_err61589_)))))))) - (_remove-next!61594_ - (lambda (_next61676_ _tails61677_) - (let _loop61679_ ((_t61681_ _tails61677_)) - (let* ((_t6168261693_ _t61681_) - (_E6168561697_ + (_err61586_)))))))) + (_remove-next!61591_ + (lambda (_next61673_ _tails61674_) + (let _loop61676_ ((_t61678_ _tails61674_)) + (let* ((_t6167961690_ _t61678_) + (_E6168261694_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _t6168261693_))))) - (let ((_K6169161728_ (lambda () _tails61677_)) - (_K6168661705_ - (lambda (_more61701_ _tail61702_ _head61703_) - (if (_eq61582_ _head61703_ _next61676_) - (set-car! _t61681_ _tail61702_) + _t6167961690_))))) + (let ((_K6168861725_ (lambda () _tails61674_)) + (_K6168361702_ + (lambda (_more61698_ _tail61699_ _head61700_) + (if (_eq61579_ _head61700_ _next61673_) + (set-car! _t61678_ _tail61699_) '#!void) (let () (declare (not safe)) - (_loop61679_ _more61701_))))) - (let ((_try-match6168461724_ + (_loop61676_ _more61698_))))) + (let ((_try-match6168161721_ (lambda () (if (let () (declare (not safe)) - (##pair? _t6168261693_)) - (let ((_tl6168861710_ + (##pair? _t6167961690_)) + (let ((_tl6168561707_ (let () (declare (not safe)) - (##cdr _t6168261693_))) - (_hd6168761708_ + (##cdr _t6167961690_))) + (_hd6168461705_ (let () (declare (not safe)) - (##car _t6168261693_)))) + (##car _t6167961690_)))) (if (let () (declare (not safe)) - (##pair? _hd6168761708_)) - (let ((_tl6169061715_ + (##pair? _hd6168461705_)) + (let ((_tl6168761712_ (let () (declare (not safe)) - (##cdr _hd6168761708_))) - (_hd6168961713_ + (##cdr _hd6168461705_))) + (_hd6168661710_ (let () (declare (not safe)) - (##car _hd6168761708_)))) - (let ((_head61718_ - _hd6168961713_) - (_tail61720_ - _tl6169061715_) - (_more61722_ - _tl6168861710_)) + (##car _hd6168461705_)))) + (let ((_head61715_ + _hd6168661710_) + (_tail61717_ + _tl6168761712_) + (_more61719_ + _tl6168561707_)) (let () (declare (not safe)) - (_K6168661705_ - _more61722_ - _tail61720_ - _head61718_)))) + (_K6168361702_ + _more61719_ + _tail61717_ + _head61715_)))) (let () (declare (not safe)) - (_E6168561697_)))) + (_E6168261694_)))) (let () (declare (not safe)) - (_E6168561697_)))))) + (_E6168261694_)))))) (if (let () (declare (not safe)) - (##null? _t6168261693_)) + (##null? _t6167961690_)) (let () (declare (not safe)) - (_K6169161728_)) + (_K6168861725_)) (let () (declare (not safe)) - (_try-match6168461724_))))))))) - (_precedence-list61595_ - (let _c3loop61626_ ((_rhead61628_ _rhead61575_) - (_tails61629_ _pls61586_)) - (let* ((_tails61631_ + (_try-match6168161721_))))))))) + (_precedence-list61592_ + (let _c3loop61623_ ((_rhead61625_ _rhead61572_) + (_tails61626_ _pls61583_)) + (let* ((_tails61628_ (let () (declare (not safe)) - (remove-nulls! _tails61629_))) - (_tails6163261642_ _tails61631_) - (_else6163561653_ + (remove-nulls! _tails61626_))) + (_tails6162961639_ _tails61628_) + (_else6163261650_ (lambda () - (let ((_next61650_ + (let ((_next61647_ (let () (declare (not safe)) - (_c3-select-next61593_ - _tails61631_)))) - (let ((__tmp61926 + (_c3-select-next61590_ + _tails61628_)))) + (let ((__tmp61923 (let () (declare (not safe)) - (cons _next61650_ _rhead61628_))) - (__tmp61925 + (cons _next61647_ _rhead61625_))) + (__tmp61922 (let () (declare (not safe)) - (_remove-next!61594_ - _next61650_ - _tails61631_)))) + (_remove-next!61591_ + _next61647_ + _tails61628_)))) (declare (not safe)) - (_c3loop61626_ __tmp61926 __tmp61925)))))) - (let ((_K6164061673_ + (_c3loop61623_ __tmp61923 __tmp61922)))))) + (let ((_K6163761670_ (lambda () (let () (declare (not safe)) - (append-reverse _rhead61628_ _sit61587_)))) - (_K6163761659_ - (lambda (_tail61657_) - (let ((__tmp61927 - (append _tail61657_ _sit61587_))) + (append-reverse _rhead61625_ _sit61584_)))) + (_K6163461656_ + (lambda (_tail61654_) + (let ((__tmp61924 + (append _tail61654_ _sit61584_))) (declare (not safe)) (append-reverse - _rhead61628_ - __tmp61927))))) - (let ((_try-match6163461669_ + _rhead61625_ + __tmp61924))))) + (let ((_try-match6163161666_ (lambda () (if (let () (declare (not safe)) - (##pair? _tails6163261642_)) - (let ((_tl6163961664_ + (##pair? _tails6162961639_)) + (let ((_tl6163661661_ (let () (declare (not safe)) - (##cdr _tails6163261642_))) - (_hd6163861662_ + (##cdr _tails6162961639_))) + (_hd6163561659_ (let () (declare (not safe)) - (##car _tails6163261642_)))) + (##car _tails6162961639_)))) (if (let () (declare (not safe)) - (##null? _tl6163961664_)) - (let ((_tail61667_ - _hd6163861662_)) + (##null? _tl6163661661_)) + (let ((_tail61664_ + _hd6163561659_)) (declare (not safe)) - (_K6163761659_ _tail61667_)) + (_K6163461656_ _tail61664_)) (let () (declare (not safe)) - (_else6163561653_)))) + (_else6163261650_)))) (let () (declare (not safe)) - (_else6163561653_)))))) + (_else6163261650_)))))) (if (let () (declare (not safe)) - (##null? _tails6163261642_)) - (let () (declare (not safe)) (_K6164061673_)) + (##null? _tails6162961639_)) + (let () (declare (not safe)) (_K6163761670_)) (let () (declare (not safe)) - (_try-match6163461669_)))))))) - (_super-struct61596_ - (let* ((_sit6159761605_ _sit61587_) - (_else6159961613_ (lambda () '#f)) - (_K6160161618_ (lambda (_s61616_) _s61616_))) + (_try-match6163161666_)))))))) + (_super-struct61593_ + (let* ((_sit6159461602_ _sit61584_) + (_else6159661610_ (lambda () '#f)) + (_K6159861615_ (lambda (_s61613_) _s61613_))) (if (let () (declare (not safe)) - (##pair? _sit6159761605_)) - (let* ((_hd6160261621_ + (##pair? _sit6159461602_)) + (let* ((_hd6159961618_ (let () (declare (not safe)) - (##car _sit6159761605_))) - (_s61624_ _hd6160261621_)) + (##car _sit6159461602_))) + (_s61621_ _hd6159961618_)) (declare (not safe)) - (_K6160161618_ _s61624_)) - (let () (declare (not safe)) (_else6159961613_)))))) - (values _precedence-list61595_ _super-struct61596_))))) + (_K6159861615_ _s61621_)) + (let () (declare (not safe)) (_else6159661610_)))))) + (values _precedence-list61592_ _super-struct61593_))))) (define c4-linearize__@ - (lambda (_keys6156061857_ . _args61859_) + (lambda (_keys6155761854_ . _args61856_) (apply c4-linearize__% - _keys6156061857_ + _keys6155761854_ (let () (declare (not safe)) (symbolic-table-ref - _keys6156061857_ + _keys6155761854_ 'get-precedence-list: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys6156061857_ 'struct: absent-value)) + (symbolic-table-ref _keys6155761854_ 'struct: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys6156061857_ 'eq: absent-value)) + (symbolic-table-ref _keys6155761854_ 'eq: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys6156061857_ 'get-name: absent-value)) - _args61859_))) + (symbolic-table-ref _keys6155761854_ 'get-name: absent-value)) + _args61856_))) (define c4-linearize - (lambda _args6156561865_ + (lambda _args6156261862_ (apply keyword-dispatch '#(#f get-name: struct: get-precedence-list: #f eq:) c4-linearize__@ - _args6156561865_))))) + _args6156261862_))))) diff --git a/src/bootstrap/gerbil/runtime/control__0.scm b/src/bootstrap/gerbil/runtime/control__0.scm index 202ece63..41b26151 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 1709128371) + (define gerbil/runtime/control::timestamp 1709229969) (begin (define make-promise - (lambda (_thunk61438_) - (let () (declare (not safe)) (##make-delay-promise _thunk61438_)))) + (lambda (_thunk61435_) + (let () (declare (not safe)) (##make-delay-promise _thunk61435_)))) (define call-with-parameters - (lambda (_thunk61386_ . _rest61387_) - (let* ((_rest6138861399_ _rest61387_) - (_E6139161403_ + (lambda (_thunk61383_ . _rest61384_) + (let* ((_rest6138561396_ _rest61384_) + (_E6138861400_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _rest6138861399_))))) - (let ((_K6139361419_ - (lambda (_rest61414_ _val61415_ _param61416_) - (let ((__tmp61450 - (if (let () (declare (not safe)) (null? _rest61414_)) - _thunk61386_ + (error '"No clause matching" _rest6138561396_))))) + (let ((_K6139061416_ + (lambda (_rest61411_ _val61412_ _param61413_) + (let ((__tmp61447 + (if (let () (declare (not safe)) (null? _rest61411_)) + _thunk61383_ (lambda () (apply call-with-parameters - _thunk61386_ - _rest61414_))))) + _thunk61383_ + _rest61411_))))) (declare (not safe)) - (##parameterize1 _param61416_ _val61415_ __tmp61450)))) - (_K6139261408_ (lambda () (_thunk61386_)))) - (let ((_try-match6139061411_ + (##parameterize1 _param61413_ _val61412_ __tmp61447)))) + (_K6138961405_ (lambda () (_thunk61383_)))) + (let ((_try-match6138761408_ (lambda () (if (let () (declare (not safe)) - (##null? _rest6138861399_)) - (let () (declare (not safe)) (_thunk61386_)) - (let () (declare (not safe)) (_E6139161403_)))))) - (if (let () (declare (not safe)) (##pair? _rest6138861399_)) - (let ((_tl6139561424_ + (##null? _rest6138561396_)) + (let () (declare (not safe)) (_thunk61383_)) + (let () (declare (not safe)) (_E6138861400_)))))) + (if (let () (declare (not safe)) (##pair? _rest6138561396_)) + (let ((_tl6139261421_ (let () (declare (not safe)) - (##cdr _rest6138861399_))) - (_hd6139461422_ + (##cdr _rest6138561396_))) + (_hd6139161419_ (let () (declare (not safe)) - (##car _rest6138861399_)))) - (if (let () (declare (not safe)) (##pair? _tl6139561424_)) - (let ((_tl6139761431_ + (##car _rest6138561396_)))) + (if (let () (declare (not safe)) (##pair? _tl6139261421_)) + (let ((_tl6139461428_ (let () (declare (not safe)) - (##cdr _tl6139561424_))) - (_hd6139661429_ + (##cdr _tl6139261421_))) + (_hd6139361426_ (let () (declare (not safe)) - (##car _tl6139561424_)))) - (let ((_param61427_ _hd6139461422_) - (_val61434_ _hd6139661429_) - (_rest61436_ _tl6139761431_)) + (##car _tl6139261421_)))) + (let ((_param61424_ _hd6139161419_) + (_val61431_ _hd6139361426_) + (_rest61433_ _tl6139461428_)) (let () (declare (not safe)) - (_K6139361419_ - _rest61436_ - _val61434_ - _param61427_)))) - (let () (declare (not safe)) (_E6139161403_)))) - (let () (declare (not safe)) (_try-match6139061411_)))))))) + (_K6139061416_ + _rest61433_ + _val61431_ + _param61424_)))) + (let () (declare (not safe)) (_E6138861400_)))) + (let () (declare (not safe)) (_try-match6138761408_)))))))) (define with-unwind-protect - (lambda (_K61379_ _fini61380_) - (let ((_once61382_ '#f)) + (lambda (_K61376_ _fini61377_) + (let ((_once61379_ '#f)) (dynamic-wind (lambda () (declare (not interrupts-enabled)) - (if _once61382_ + (if _once61379_ (let () (declare (not safe)) (error '"Cannot re-enter unwind protected block")) - (set! _once61382_ '#t))) - _K61379_ - _fini61380_)))) + (set! _once61379_ '#t))) + _K61376_ + _fini61377_)))) (define keyword-dispatch - (lambda (_kwt61276_ _K61277_ . _all-args61278_) - (if _kwt61276_ - (if (let () (declare (not safe)) (vector? _kwt61276_)) + (lambda (_kwt61273_ _K61274_ . _all-args61275_) + (if _kwt61273_ + (if (let () (declare (not safe)) (vector? _kwt61273_)) '#!void (let () (declare (not safe)) - (error '"expected vector" _kwt61276_))) + (error '"expected vector" _kwt61273_))) '#!void) - (if (let () (declare (not safe)) (procedure? _K61277_)) + (if (let () (declare (not safe)) (procedure? _K61274_)) '#!void (let () (declare (not safe)) - (error '"expected procedure" _K61277_))) - (let ((_keys61280_ + (error '"expected procedure" _K61274_))) + (let ((_keys61277_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _lp61282_ ((_rest61284_ _all-args61278_) - (_args61285_ '#f) - (_tail61286_ '#f)) - (let* ((_rest6128761295_ _rest61284_) - (_else6128961303_ + (let _lp61279_ ((_rest61281_ _all-args61275_) + (_args61282_ '#f) + (_tail61283_ '#f)) + (let* ((_rest6128461292_ _rest61281_) + (_else6128661300_ (lambda () - (if _args61285_ + (if _args61282_ (begin (let () (declare (not safe)) - (##set-cdr! _tail61286_ '())) - (let ((__tmp61451 + (##set-cdr! _tail61283_ '())) + (let ((__tmp61448 (let () (declare (not safe)) - (cons _keys61280_ _args61285_)))) + (cons _keys61277_ _args61282_)))) (declare (not safe)) - (##apply _K61277_ __tmp61451))) - (_K61277_ _keys61280_)))) - (_K6129161367_ - (lambda (_hd-rest61306_ _hd61307_) - (if (keyword? _hd61307_) - (let* ((_hd-rest6130861315_ _hd-rest61306_) - (_E6131061319_ + (##apply _K61274_ __tmp61448))) + (_K61274_ _keys61277_)))) + (_K6128861364_ + (lambda (_hd-rest61303_ _hd61304_) + (if (keyword? _hd61304_) + (let* ((_hd-rest6130561312_ _hd-rest61303_) + (_E6130761316_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _hd-rest6130861315_)))) - (_K6131161327_ - (lambda (_rest61322_ _val61323_) - (if _kwt61276_ - (let ((_pos61325_ - (let ((__tmp61455 - (keyword-hash _hd61307_)) - (__tmp61454 + _hd-rest6130561312_)))) + (_K6130861324_ + (lambda (_rest61319_ _val61320_) + (if _kwt61273_ + (let ((_pos61322_ + (let ((__tmp61452 + (keyword-hash _hd61304_)) + (__tmp61451 (let () (declare (not safe)) (##vector-length - _kwt61276_)))) + _kwt61273_)))) (declare (not safe)) (##fxmodulo - __tmp61455 - __tmp61454)))) - (if (let ((__tmp61456 + __tmp61452 + __tmp61451)))) + (if (let ((__tmp61453 (let () (declare (not safe)) (##vector-ref - _kwt61276_ - _pos61325_)))) + _kwt61273_ + _pos61322_)))) (declare (not safe)) - (eq? _hd61307_ __tmp61456)) + (eq? _hd61304_ __tmp61453)) '#!void (let () (declare (not safe)) (error '"Unexpected keyword argument" - _K61277_ - _hd61307_)))) + _K61274_ + _hd61304_)))) '#!void) - (if (let ((__tmp61457 + (if (let ((__tmp61454 (let () (declare (not safe)) (symbolic-table-ref - _keys61280_ - _hd61307_ + _keys61277_ + _hd61304_ absent-value)))) (declare (not safe)) - (eq? __tmp61457 absent-value)) + (eq? __tmp61454 absent-value)) '#!void (let () (declare (not safe)) (error '"Duplicate keyword argument" - _K61277_ - _hd61307_))) + _K61274_ + _hd61304_))) (let () (declare (not safe)) (symbolic-table-set! - _keys61280_ - _hd61307_ - _val61323_)) + _keys61277_ + _hd61304_ + _val61320_)) (let () (declare (not safe)) - (_lp61282_ - _rest61322_ - _args61285_ - _tail61286_))))) + (_lp61279_ + _rest61319_ + _args61282_ + _tail61283_))))) (if (let () (declare (not safe)) - (##pair? _hd-rest6130861315_)) - (let ((_hd6131261330_ + (##pair? _hd-rest6130561312_)) + (let ((_hd6130961327_ (let () (declare (not safe)) - (##car _hd-rest6130861315_))) - (_tl6131361332_ + (##car _hd-rest6130561312_))) + (_tl6131061329_ (let () (declare (not safe)) - (##cdr _hd-rest6130861315_)))) - (let* ((_val61335_ _hd6131261330_) - (_rest61337_ _tl6131361332_)) + (##cdr _hd-rest6130561312_)))) + (let* ((_val61332_ _hd6130961327_) + (_rest61334_ _tl6131061329_)) (declare (not safe)) - (_K6131161327_ _rest61337_ _val61335_))) - (let () (declare (not safe)) (_E6131061319_)))) + (_K6130861324_ _rest61334_ _val61332_))) + (let () (declare (not safe)) (_E6130761316_)))) (if (let () (declare (not safe)) - (eq? _hd61307_ '#!key)) - (let* ((_hd-rest6133861345_ _hd-rest61306_) - (_E6134061349_ + (eq? _hd61304_ '#!key)) + (let* ((_hd-rest6133561342_ _hd-rest61303_) + (_E6133761346_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _hd-rest6133861345_)))) - (_K6134161355_ - (lambda (_rest61352_ _val61353_) - (if _args61285_ + _hd-rest6133561342_)))) + (_K6133861352_ + (lambda (_rest61349_ _val61350_) + (if _args61282_ (begin (let () (declare (not safe)) (##set-cdr! - _tail61286_ - _hd-rest61306_)) + _tail61283_ + _hd-rest61303_)) (let () (declare (not safe)) - (_lp61282_ - _rest61352_ - _args61285_ - _hd-rest61306_))) + (_lp61279_ + _rest61349_ + _args61282_ + _hd-rest61303_))) (let () (declare (not safe)) - (_lp61282_ - _rest61352_ - _hd-rest61306_ - _hd-rest61306_)))))) + (_lp61279_ + _rest61349_ + _hd-rest61303_ + _hd-rest61303_)))))) (if (let () (declare (not safe)) - (##pair? _hd-rest6133861345_)) - (let ((_hd6134261358_ + (##pair? _hd-rest6133561342_)) + (let ((_hd6133961355_ (let () (declare (not safe)) - (##car _hd-rest6133861345_))) - (_tl6134361360_ + (##car _hd-rest6133561342_))) + (_tl6134061357_ (let () (declare (not safe)) - (##cdr _hd-rest6133861345_)))) - (let* ((_val61363_ _hd6134261358_) - (_rest61365_ _tl6134361360_)) + (##cdr _hd-rest6133561342_)))) + (let* ((_val61360_ _hd6133961355_) + (_rest61362_ _tl6134061357_)) (declare (not safe)) - (_K6134161355_ - _rest61365_ - _val61363_))) + (_K6133861352_ + _rest61362_ + _val61360_))) (let () (declare (not safe)) - (_E6134061349_)))) + (_E6133761346_)))) (if (let () (declare (not safe)) - (eq? _hd61307_ '#!rest)) - (if _args61285_ + (eq? _hd61304_ '#!rest)) + (if _args61282_ (begin (let () (declare (not safe)) (##set-cdr! - _tail61286_ - _hd-rest61306_)) - (let ((__tmp61453 + _tail61283_ + _hd-rest61303_)) + (let ((__tmp61450 (let () (declare (not safe)) - (cons _keys61280_ - _args61285_)))) + (cons _keys61277_ + _args61282_)))) (declare (not safe)) - (##apply _K61277_ __tmp61453))) - (let ((__tmp61452 + (##apply _K61274_ __tmp61450))) + (let ((__tmp61449 (let () (declare (not safe)) - (cons _keys61280_ - _hd-rest61306_)))) + (cons _keys61277_ + _hd-rest61303_)))) (declare (not safe)) - (##apply _K61277_ __tmp61452))) - (if _args61285_ + (##apply _K61274_ __tmp61449))) + (if _args61282_ (begin (let () (declare (not safe)) - (##set-cdr! _tail61286_ _rest61284_)) + (##set-cdr! _tail61283_ _rest61281_)) (let () (declare (not safe)) - (_lp61282_ - _hd-rest61306_ - _args61285_ - _rest61284_))) + (_lp61279_ + _hd-rest61303_ + _args61282_ + _rest61281_))) (let () (declare (not safe)) - (_lp61282_ - _hd-rest61306_ - _rest61284_ - _rest61284_))))))))) - (if (let () (declare (not safe)) (##pair? _rest6128761295_)) - (let ((_hd6129261370_ + (_lp61279_ + _hd-rest61303_ + _rest61281_ + _rest61281_))))))))) + (if (let () (declare (not safe)) (##pair? _rest6128461292_)) + (let ((_hd6128961367_ (let () (declare (not safe)) - (##car _rest6128761295_))) - (_tl6129361372_ + (##car _rest6128461292_))) + (_tl6129061369_ (let () (declare (not safe)) - (##cdr _rest6128761295_)))) - (let* ((_hd61375_ _hd6129261370_) - (_hd-rest61377_ _tl6129361372_)) + (##cdr _rest6128461292_)))) + (let* ((_hd61372_ _hd6128961367_) + (_hd-rest61374_ _tl6129061369_)) (declare (not safe)) - (_K6129161367_ _hd-rest61377_ _hd61375_))) - (let () (declare (not safe)) (_else6128961303_)))))))) + (_K6128861364_ _hd-rest61374_ _hd61372_))) + (let () (declare (not safe)) (_else6128661300_)))))))) (define keyword-rest - (lambda (_kwt61268_ . _drop61269_) - (let ((_rest61271_ '())) - (let ((__tmp61458 - (lambda (_k61273_ _v61274_) - (if (memq _k61273_ _drop61269_) + (lambda (_kwt61265_ . _drop61266_) + (let ((_rest61268_ '())) + (let ((__tmp61455 + (lambda (_k61270_ _v61271_) + (if (memq _k61270_ _drop61266_) '#!void - (set! _rest61271_ - (let ((__tmp61459 + (set! _rest61268_ + (let ((__tmp61456 (let () (declare (not safe)) - (cons _v61274_ _rest61271_)))) + (cons _v61271_ _rest61268_)))) (declare (not safe)) - (cons _k61273_ __tmp61459))))))) + (cons _k61270_ __tmp61456))))))) (declare (not safe)) - (raw-table-for-each _kwt61268_ __tmp61458)) - _rest61271_))))) + (raw-table-for-each _kwt61265_ __tmp61455)) + _rest61268_))))) diff --git a/src/bootstrap/gerbil/runtime/error.ssxi.ss b/src/bootstrap/gerbil/runtime/error.ssxi.ss index a5d429fc..45c5e1b3 100644 --- a/src/bootstrap/gerbil/runtime/error.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/error.ssxi.ss @@ -44,8 +44,8 @@ package: gerbil/runtime #f #f #f - ((display-exception . Error::display-exception) - (:init! . Error:::init!)))) + ((:init! . Error:::init!) + (display-exception . Error::display-exception)))) (declare-type Error? (@predicate Error::t)) (declare-type make-Error (@constructor Error::t)) (declare-type Error-message (@accessor Error::t message #t)) diff --git a/src/bootstrap/gerbil/runtime/error__0.scm b/src/bootstrap/gerbil/runtime/error__0.scm index da92708d..02b738f3 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 1709128371) + (define gerbil/runtime/error::timestamp 1709229969) (begin (define Exception::t - (let ((__tmp66688 (list))) + (let ((__tmp66685 (list))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#Exception::t 'Exception - __tmp66688 + __tmp66685 '() '() '#f))) (define Exception? (let () (declare (not safe)) (make-class-predicate Exception::t))) (define make-Exception - (lambda _$args66656_ (apply make-instance Exception::t _$args66656_))) + (lambda _$args66653_ (apply make-instance Exception::t _$args66653_))) (define StackTrace::t - (let ((__tmp66689 (list))) + (let ((__tmp66686 (list))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#StackTrace::t 'StackTrace - __tmp66689 + __tmp66686 '(continuation) '() '#f))) (define StackTrace? (let () (declare (not safe)) (make-class-predicate StackTrace::t))) (define make-StackTrace - (lambda _$args66653_ (apply make-instance StackTrace::t _$args66653_))) + (lambda _$args66650_ (apply make-instance StackTrace::t _$args66650_))) (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 ((__tmp66690 (list StackTrace::t Exception::t))) + (let ((__tmp66687 (list StackTrace::t Exception::t))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#Error::t 'Error - __tmp66690 + __tmp66687 '(message irritants where) '((transparent: . #t)) ':init!))) (define Error? (let () (declare (not safe)) (make-class-predicate Error::t))) (define make-Error - (lambda _$args66650_ (apply make-instance Error::t _$args66650_))) + (lambda _$args66647_ (apply make-instance Error::t _$args66647_))) (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 ((__tmp66691 (list StackTrace::t Exception::t))) + (let ((__tmp66688 (list StackTrace::t Exception::t))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#RuntimeException::t 'RuntimeException - __tmp66691 + __tmp66688 '(exception) '((transparent: . #t)) '#f))) (define RuntimeException? (let () (declare (not safe)) (make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _$args66647_ - (apply make-instance RuntimeException::t _$args66647_))) + (lambda _$args66644_ + (apply make-instance RuntimeException::t _$args66644_))) (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 (_exn66642_ _continue66643_) - (let ((_exn66645_ + (lambda (_exn66639_ _continue66640_) + (let ((_exn66642_ (let () (declare (not safe)) - (wrap-runtime-exception _exn66642_)))) + (wrap-runtime-exception _exn66639_)))) (declare (not safe)) - (##repl-exception-handler-hook _exn66645_ _continue66643_)))) + (##repl-exception-handler-hook _exn66642_ _continue66640_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_exn66638_) + (lambda (_exn66635_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn66638_)) + (class-instance? StackTrace::t _exn66635_)) (if (let () (declare (not safe)) - (unchecked-slot-ref _exn66638_ 'continuation)) + (unchecked-slot-ref _exn66635_ 'continuation)) '#!void - (let ((__tmp66692 - (lambda (_cont66640_) + (let ((__tmp66689 + (lambda (_cont66637_) (let () (declare (not safe)) (unchecked-slot-set! - _exn66638_ + _exn66635_ 'continuation - _cont66640_))))) + _cont66637_))))) (declare (not safe)) - (##continuation-capture __tmp66692))) + (##continuation-capture __tmp66689))) '#!void) - (let () (declare (not safe)) (##raise _exn66638_)))) + (let () (declare (not safe)) (##raise _exn66635_)))) (define error - (lambda (_message66635_ . _irritants66636_) - (raise (let ((__obj66682 + (lambda (_message66632_ . _irritants66633_) + (raise (let ((__obj66679 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj66682 - _message66635_ + __obj66679 + _message66632_ 'irritants: - _irritants66636_) - __obj66682)))) + _irritants66633_) + __obj66679)))) (define with-exception-handler - (lambda (_handler66628_ _thunk66629_) - (if (let () (declare (not safe)) (procedure? _handler66628_)) + (lambda (_handler66625_ _thunk66626_) + (if (let () (declare (not safe)) (procedure? _handler66625_)) '#!void - (raise (let ((__obj66683 + (raise (let ((__obj66680 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj66683 + __obj66680 '"expected procedure" 'where: 'with-exception-handler 'irritants: - (let () (declare (not safe)) (cons _handler66628_ '()))) - __obj66683))) - (if (let () (declare (not safe)) (procedure? _thunk66629_)) + (let () (declare (not safe)) (cons _handler66625_ '()))) + __obj66680))) + (if (let () (declare (not safe)) (procedure? _thunk66626_)) '#!void - (raise (let ((__obj66684 + (raise (let ((__obj66681 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj66684 + __obj66681 '"expected procedure" 'where: 'with-exception-hander 'irritants: - (let () (declare (not safe)) (cons _thunk66629_ '()))) - __obj66684))) - (let ((__tmp66693 - (lambda (_exn66631_) - (let ((_exn66633_ + (let () (declare (not safe)) (cons _thunk66626_ '()))) + __obj66681))) + (let ((__tmp66690 + (lambda (_exn66628_) + (let ((_exn66630_ (let () (declare (not safe)) - (wrap-runtime-exception _exn66631_)))) - (_handler66628_ _exn66633_))))) + (wrap-runtime-exception _exn66628_)))) + (_handler66625_ _exn66630_))))) (declare (not safe)) - (##with-exception-handler __tmp66693 _thunk66629_)))) + (##with-exception-handler __tmp66690 _thunk66626_)))) (define with-catch - (lambda (_handler66621_ _thunk66622_) - (if (let () (declare (not safe)) (procedure? _handler66621_)) + (lambda (_handler66618_ _thunk66619_) + (if (let () (declare (not safe)) (procedure? _handler66618_)) '#!void - (raise (let ((__obj66685 + (raise (let ((__obj66682 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj66685 + __obj66682 '"expected procedure" 'where: 'with-exception-handler 'irritants: - (let () (declare (not safe)) (cons _handler66621_ '()))) - __obj66685))) - (if (let () (declare (not safe)) (procedure? _thunk66622_)) + (let () (declare (not safe)) (cons _handler66618_ '()))) + __obj66682))) + (if (let () (declare (not safe)) (procedure? _thunk66619_)) '#!void - (raise (let ((__obj66686 + (raise (let ((__obj66683 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj66686 + __obj66683 '"expected procedure" 'where: 'with-exception-hander 'irritants: - (let () (declare (not safe)) (cons _thunk66622_ '()))) - __obj66686))) - (let ((__tmp66694 - (lambda (_cont66624_) + (let () (declare (not safe)) (cons _thunk66619_ '()))) + __obj66683))) + (let ((__tmp66691 + (lambda (_cont66621_) (with-exception-handler - (lambda (_exn66626_) + (lambda (_exn66623_) (let () (declare (not safe)) (##continuation-graft - _cont66624_ - _handler66621_ - _exn66626_))) - _thunk66622_)))) + _cont66621_ + _handler66618_ + _exn66623_))) + _thunk66619_)))) (declare (not safe)) - (##continuation-capture __tmp66694)))) + (##continuation-capture __tmp66691)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_exn66612_) + (lambda (_exn66609_) (if (or (let () (declare (not safe)) - (heap-overflow-exception? _exn66612_)) + (heap-overflow-exception? _exn66609_)) (let () (declare (not safe)) - (stack-overflow-exception? _exn66612_))) - _exn66612_ + (stack-overflow-exception? _exn66609_))) + _exn66609_ (if (let () (declare (not safe)) - (class-instance? Exception::t _exn66612_)) - _exn66612_ - (if (macro-exception? _exn66612_) - (let ((_rte66617_ - (let ((__obj66687 + (class-instance? Exception::t _exn66609_)) + _exn66609_ + (if (macro-exception? _exn66609_) + (let ((_rte66614_ + (let ((__obj66684 (let () (declare (not safe)) (##structure @@ -321,147 +321,147 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66687 - _exn66612_ + __obj66684 + _exn66609_ '2 RuntimeException::t '#f)) - __obj66687))) - (let ((__tmp66695 - (lambda (_cont66619_) - (let ((__tmp66696 + __obj66684))) + (let ((__tmp66692 + (lambda (_cont66616_) + (let ((__tmp66693 (let () (declare (not safe)) - (##continuation-next _cont66619_)))) + (##continuation-next _cont66616_)))) (declare (not safe)) (unchecked-slot-set! - _rte66617_ + _rte66614_ 'continuation - __tmp66696))))) + __tmp66693))))) (declare (not safe)) - (##continuation-capture __tmp66695)) - _rte66617_) - _exn66612_))))) + (##continuation-capture __tmp66692)) + _rte66614_) + _exn66609_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_obj66607_) - (let ((_$e66609_ + (lambda (_obj66604_) + (let ((_$e66606_ (let () (declare (not safe)) - (class-instance? Error::t _obj66607_)))) - (if _$e66609_ - _$e66609_ - (let () (declare (not safe)) (error-exception? _obj66607_)))))) + (class-instance? Error::t _obj66604_)))) + (if _$e66606_ + _$e66606_ + (let () (declare (not safe)) (error-exception? _obj66604_)))))) (define error-message - (lambda (_obj66605_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj66605_)) + (lambda (_obj66602_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj66602_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj66605_ 'message)) - (if (let () (declare (not safe)) (error-exception? _obj66605_)) + (unchecked-slot-ref _obj66602_ 'message)) + (if (let () (declare (not safe)) (error-exception? _obj66602_)) (let () (declare (not safe)) - (error-exception-message _obj66605_)) + (error-exception-message _obj66602_)) '#f)))) (define error-irritants - (lambda (_obj66603_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj66603_)) + (lambda (_obj66600_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj66600_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj66603_ 'irritants)) - (if (let () (declare (not safe)) (error-exception? _obj66603_)) + (unchecked-slot-ref _obj66600_ 'irritants)) + (if (let () (declare (not safe)) (error-exception? _obj66600_)) (let () (declare (not safe)) - (error-exception-parameters _obj66603_)) + (error-exception-parameters _obj66600_)) '#f)))) (define error-trace - (lambda (_obj66601_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj66601_)) + (lambda (_obj66598_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj66598_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj66601_ 'where)) + (unchecked-slot-ref _obj66598_ 'where)) '#f))) (define display-exception__% - (lambda (_e66583_ _port66584_) - (let ((_$e66586_ + (lambda (_e66580_ _port66581_) + (let ((_$e66583_ (let () (declare (not safe)) - (method-ref _e66583_ 'display-exception)))) - (if _$e66586_ - ((lambda (_f66589_) (_f66589_ _e66583_ _port66584_)) _$e66586_) + (method-ref _e66580_ 'display-exception)))) + (if _$e66583_ + ((lambda (_f66586_) (_f66586_ _e66580_ _port66581_)) _$e66583_) (let () (declare (not safe)) - (##default-display-exception _e66583_ _port66584_)))))) + (##default-display-exception _e66580_ _port66581_)))))) (define display-exception__0 - (lambda (_e66594_) - (let ((_port66596_ (current-error-port))) + (lambda (_e66591_) + (let ((_port66593_ (current-error-port))) (declare (not safe)) - (display-exception__% _e66594_ _port66596_)))) + (display-exception__% _e66591_ _port66593_)))) (define display-exception - (lambda _g66698_ - (let ((_g66697_ (let () (declare (not safe)) (##length _g66698_)))) - (cond ((let () (declare (not safe)) (##fx= _g66697_ 1)) - (apply (lambda (_e66594_) + (lambda _g66695_ + (let ((_g66694_ (let () (declare (not safe)) (##length _g66695_)))) + (cond ((let () (declare (not safe)) (##fx= _g66694_ 1)) + (apply (lambda (_e66591_) (let () (declare (not safe)) - (display-exception__0 _e66594_))) - _g66698_)) - ((let () (declare (not safe)) (##fx= _g66697_ 2)) - (apply (lambda (_e66598_ _port66599_) + (display-exception__0 _e66591_))) + _g66695_)) + ((let () (declare (not safe)) (##fx= _g66694_ 2)) + (apply (lambda (_e66595_ _port66596_) (let () (declare (not safe)) - (display-exception__% _e66598_ _port66599_))) - _g66698_)) + (display-exception__% _e66595_ _port66596_))) + _g66695_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g66698_)))))) + _g66695_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_self66572_ _message66573_ . _rest66574_) - (let ((_message66580_ - (if (let () (declare (not safe)) (string? _message66573_)) - _message66573_ + (lambda (_self66569_ _message66570_ . _rest66571_) + (let ((_message66577_ + (if (let () (declare (not safe)) (string? _message66570_)) + _message66570_ (call-with-output-string '"" - (lambda (_g6657566577_) - (display _message66573_ _g6657566577_)))))) + (lambda (_g6657266574_) + (display _message66570_ _g6657266574_)))))) (let () (declare (not safe)) - (unchecked-slot-set! _self66572_ 'message _message66580_)) - (apply class-instance-init! _self66572_ _rest66574_)))) + (unchecked-slot-set! _self66569_ 'message _message66577_)) + (apply class-instance-init! _self66569_ _rest66571_)))) (define Error:::init!::specialize - (lambda (__klass66658 __method-table66659) - (let ((__message66660 - (let ((__slot66661 + (lambda (__klass66655 __method-table66656) + (let ((__message66657 + (let ((__slot66658 (let () (declare (not safe)) - (class-slot-offset __klass66658 'message)))) - (if __slot66661 - __slot66661 + (class-slot-offset __klass66655 'message)))) + (if __slot66658 + __slot66658 (let () (declare (not safe)) (error '"Unknown slot" 'message)))))) - (lambda (_self66572_ _message66573_ . _rest66574_) - (let ((_message66580_ - (if (let () (declare (not safe)) (string? _message66573_)) - _message66573_ + (lambda (_self66569_ _message66570_ . _rest66571_) + (let ((_message66577_ + (if (let () (declare (not safe)) (string? _message66570_)) + _message66570_ (call-with-output-string '"" - (lambda (_g6657566577_) - (display _message66573_ _g6657566577_)))))) + (lambda (_g6657266574_) + (display _message66570_ _g6657266574_)))))) (let () (declare (not safe)) (##unchecked-structure-set! - _self66572_ - _message66580_ - __message66660 - __klass66658 + _self66569_ + _message66577_ + __message66657 + __klass66655 '#f)) - (apply class-instance-init! _self66572_ _rest66574_)))))) + (apply class-instance-init! _self66569_ _rest66571_)))))) (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 (_self66430_ _port66431_) - (let ((_tmp-port66433_ (open-output-string)) - (_display-error-newline66434_ - (> (output-port-column _port66431_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port66433_)) - (let ((__tmp66699 + (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 () - (if _display-error-newline66434_ (newline) '#!void) + (if _display-error-newline66431_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e66437_ + (let ((_$e66434_ (let () (declare (not safe)) - (unchecked-slot-ref _self66430_ 'where)))) - (if _$e66437_ (display _$e66437_) (display '"?"))) - (let ((__tmp66700 - (let ((__tmp66701 (object-type _self66430_))) + (unchecked-slot-ref _self66427_ 'where)))) + (if _$e66434_ (display _$e66434_) (display '"?"))) + (let ((__tmp66697 + (let ((__tmp66698 (object-type _self66427_))) (declare (not safe)) - (##type-name __tmp66701)))) + (##type-name __tmp66698)))) (declare (not safe)) - (display* '" [" __tmp66700 '"]: ")) - (let ((__tmp66702 + (display* '" [" __tmp66697 '"]: ")) + (let ((__tmp66699 (let () (declare (not safe)) - (unchecked-slot-ref _self66430_ 'message)))) + (unchecked-slot-ref _self66427_ 'message)))) (declare (not safe)) - (displayln __tmp66702)) - (let ((_irritants66440_ + (displayln __tmp66699)) + (let ((_irritants66437_ (let () (declare (not safe)) - (unchecked-slot-ref _self66430_ 'irritants)))) - (if (let () (declare (not safe)) (null? _irritants66440_)) + (unchecked-slot-ref _self66427_ 'irritants)))) + (if (let () (declare (not safe)) (null? _irritants66437_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj66442_) - (write _obj66442_) + (lambda (_obj66439_) + (write _obj66439_) (write-char '#\space)) - _irritants66440_) + _irritants66437_) (newline)))) (if (and (let () (declare (not safe)) - (class-instance? StackTrace::t _self66430_)) + (class-instance? StackTrace::t _self66427_)) (dump-stack-trace?)) - (let ((_cont6644366445_ + (let ((_cont6644066442_ (let () (declare (not safe)) (unchecked-slot-ref - _self66430_ + _self66427_ 'continuation)))) - (if _cont6644366445_ - (let ((_cont66448_ _cont6644366445_)) + (if _cont6644066442_ + (let ((_cont66445_ _cont6644066442_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) - (display-continuation-backtrace _cont66448_)) + (display-continuation-backtrace _cont66445_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp66699 + __tmp66696 current-output-port - _tmp-port66433_)) - (let ((__tmp66703 (get-output-string _tmp-port66433_))) + _tmp-port66430_)) + (let ((__tmp66700 (get-output-string _tmp-port66430_))) (declare (not safe)) - (##write-string __tmp66703 _port66431_))))) + (##write-string __tmp66700 _port66428_))))) (define Error::display-exception::specialize - (lambda (__klass66662 __method-table66663) - (let ((__where66664 - (let ((__slot66668 + (lambda (__klass66659 __method-table66660) + (let ((__irritants66661 + (let ((__slot66665 (let () (declare (not safe)) - (class-slot-offset __klass66662 'where)))) - (if __slot66668 - __slot66668 + (class-slot-offset __klass66659 'irritants)))) + (if __slot66665 + __slot66665 (let () (declare (not safe)) - (error '"Unknown slot" 'where))))) - (__continuation66665 - (let ((__slot66669 + (error '"Unknown slot" 'irritants))))) + (__continuation66662 + (let ((__slot66666 (let () (declare (not safe)) - (class-slot-offset __klass66662 'continuation)))) - (if __slot66669 - __slot66669 + (class-slot-offset __klass66659 'continuation)))) + (if __slot66666 + __slot66666 (let () (declare (not safe)) (error '"Unknown slot" 'continuation))))) - (__message66666 - (let ((__slot66670 + (__where66663 + (let ((__slot66667 (let () (declare (not safe)) - (class-slot-offset __klass66662 'message)))) - (if __slot66670 - __slot66670 + (class-slot-offset __klass66659 'where)))) + (if __slot66667 + __slot66667 (let () (declare (not safe)) - (error '"Unknown slot" 'message))))) - (__irritants66667 - (let ((__slot66671 + (error '"Unknown slot" 'where))))) + (__message66664 + (let ((__slot66668 (let () (declare (not safe)) - (class-slot-offset __klass66662 'irritants)))) - (if __slot66671 - __slot66671 + (class-slot-offset __klass66659 'message)))) + (if __slot66668 + __slot66668 (let () (declare (not safe)) - (error '"Unknown slot" 'irritants)))))) - (lambda (_self66430_ _port66431_) - (let ((_tmp-port66433_ (open-output-string)) - (_display-error-newline66434_ - (> (output-port-column _port66431_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port66433_)) - (let ((__tmp66704 + (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 (lambda () - (if _display-error-newline66434_ (newline) '#!void) + (if _display-error-newline66431_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e66437_ + (let ((_$e66434_ (let () (declare (not safe)) (##unchecked-structure-ref - _self66430_ - __where66664 - __klass66662 + _self66427_ + __where66663 + __klass66659 '#f)))) - (if _$e66437_ (display _$e66437_) (display '"?"))) - (let ((__tmp66705 - (let ((__tmp66706 (object-type _self66430_))) + (if _$e66434_ (display _$e66434_) (display '"?"))) + (let ((__tmp66702 + (let ((__tmp66703 (object-type _self66427_))) (declare (not safe)) - (##type-name __tmp66706)))) + (##type-name __tmp66703)))) (declare (not safe)) - (display* '" [" __tmp66705 '"]: ")) - (let ((__tmp66707 + (display* '" [" __tmp66702 '"]: ")) + (let ((__tmp66704 (let () (declare (not safe)) (##unchecked-structure-ref - _self66430_ - __message66666 - __klass66662 + _self66427_ + __message66664 + __klass66659 '#f)))) (declare (not safe)) - (displayln __tmp66707)) - (let ((_irritants66440_ + (displayln __tmp66704)) + (let ((_irritants66437_ (let () (declare (not safe)) (##unchecked-structure-ref - _self66430_ - __irritants66667 - __klass66662 + _self66427_ + __irritants66661 + __klass66659 '#f)))) (if (let () (declare (not safe)) - (null? _irritants66440_)) + (null? _irritants66437_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj66442_) - (write _obj66442_) + (lambda (_obj66439_) + (write _obj66439_) (write-char '#\space)) - _irritants66440_) + _irritants66437_) (newline)))) (if (and (let () (declare (not safe)) - (class-instance? StackTrace::t _self66430_)) + (class-instance? StackTrace::t _self66427_)) (dump-stack-trace?)) - (let ((_cont6644366445_ + (let ((_cont6644066442_ (let () (declare (not safe)) (##unchecked-structure-ref - _self66430_ - __continuation66665 - __klass66662 + _self66427_ + __continuation66662 + __klass66659 '#f)))) - (if _cont6644366445_ - (let ((_cont66448_ _cont6644366445_)) + (if _cont6644066442_ + (let ((_cont66445_ _cont6644066442_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _cont66448_)) + _cont66445_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp66704 + __tmp66701 current-output-port - _tmp-port66433_)) - (let ((__tmp66708 (get-output-string _tmp-port66433_))) + _tmp-port66430_)) + (let ((__tmp66705 (get-output-string _tmp-port66430_))) (declare (not safe)) - (##write-string __tmp66708 _port66431_))))))) + (##write-string __tmp66705 _port66428_))))))) (let () (declare (not safe)) (bind-specializer! @@ -675,89 +675,89 @@ Error::display-exception '#t)) (define RuntimeException::display-exception - (lambda (_self66297_ _port66298_) - (let ((_tmp-port66300_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port66300_)) - (let ((__tmp66709 + (lambda (_self66294_ _port66295_) + (let ((_tmp-port66297_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port66297_)) + (let ((__tmp66706 (let () (declare (not safe)) - (unchecked-slot-ref _self66297_ 'exception)))) + (unchecked-slot-ref _self66294_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp66709 _tmp-port66300_)) + (##default-display-exception __tmp66706 _tmp-port66297_)) (if (dump-stack-trace?) - (let ((_cont6630166303_ + (let ((_cont6629866300_ (let () (declare (not safe)) - (unchecked-slot-ref _self66297_ 'continuation)))) - (if _cont6630166303_ - (let ((_cont66306_ _cont6630166303_)) - (display '"--- continuation backtrace:" _tmp-port66300_) - (newline _tmp-port66300_) + (unchecked-slot-ref _self66294_ 'continuation)))) + (if _cont6629866300_ + (let ((_cont66303_ _cont6629866300_)) + (display '"--- continuation backtrace:" _tmp-port66297_) + (newline _tmp-port66297_) (display-continuation-backtrace - _cont66306_ - _tmp-port66300_)) + _cont66303_ + _tmp-port66297_)) '#f)) '#!void) - (let ((__tmp66710 (get-output-string _tmp-port66300_))) + (let ((__tmp66707 (get-output-string _tmp-port66297_))) (declare (not safe)) - (##write-string __tmp66710 _port66298_))))) + (##write-string __tmp66707 _port66295_))))) (define RuntimeException::display-exception::specialize - (lambda (__klass66672 __method-table66673) - (let ((__exception66674 - (let ((__slot66676 + (lambda (__klass66669 __method-table66670) + (let ((__exception66671 + (let ((__slot66673 (let () (declare (not safe)) - (class-slot-offset __klass66672 'exception)))) - (if __slot66676 - __slot66676 + (class-slot-offset __klass66669 'exception)))) + (if __slot66673 + __slot66673 (let () (declare (not safe)) (error '"Unknown slot" 'exception))))) - (__continuation66675 - (let ((__slot66677 + (__continuation66672 + (let ((__slot66674 (let () (declare (not safe)) - (class-slot-offset __klass66672 'continuation)))) - (if __slot66677 - __slot66677 + (class-slot-offset __klass66669 'continuation)))) + (if __slot66674 + __slot66674 (let () (declare (not safe)) (error '"Unknown slot" 'continuation)))))) - (lambda (_self66297_ _port66298_) - (let ((_tmp-port66300_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port66300_)) - (let ((__tmp66711 + (lambda (_self66294_ _port66295_) + (let ((_tmp-port66297_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port66297_)) + (let ((__tmp66708 (let () (declare (not safe)) (##unchecked-structure-ref - _self66297_ - __exception66674 - __klass66672 + _self66294_ + __exception66671 + __klass66669 '#f)))) (declare (not safe)) - (##default-display-exception __tmp66711 _tmp-port66300_)) + (##default-display-exception __tmp66708 _tmp-port66297_)) (if (dump-stack-trace?) - (let ((_cont6630166303_ + (let ((_cont6629866300_ (let () (declare (not safe)) (##unchecked-structure-ref - _self66297_ - __continuation66675 - __klass66672 + _self66294_ + __continuation66672 + __klass66669 '#f)))) - (if _cont6630166303_ - (let ((_cont66306_ _cont6630166303_)) + (if _cont6629866300_ + (let ((_cont66303_ _cont6629866300_)) (display '"--- continuation backtrace:" - _tmp-port66300_) - (newline _tmp-port66300_) + _tmp-port66297_) + (newline _tmp-port66297_) (display-continuation-backtrace - _cont66306_ - _tmp-port66300_)) + _cont66303_ + _tmp-port66297_)) '#f)) '#!void) - (let ((__tmp66712 (get-output-string _tmp-port66300_))) + (let ((__tmp66709 (get-output-string _tmp-port66297_))) (declare (not safe)) - (##write-string __tmp66712 _port66298_))))))) + (##write-string __tmp66709 _port66295_))))))) (let () (declare (not safe)) (bind-specializer! @@ -771,4092 +771,4092 @@ RuntimeException::display-exception '#f)) (define fix-port-width! - (lambda (_port66169_) - (if (macro-character-port? _port66169_) - (let ((_old-width66171_ - (macro-character-port-output-width _port66169_))) + (lambda (_port66166_) + (if (macro-character-port? _port66166_) + (let ((_old-width66168_ + (macro-character-port-output-width _port66166_))) (macro-character-port-output-width-set! - _port66169_ - (lambda (_port66173_) '256)) - _old-width66171_) + _port66166_ + (lambda (_port66170_) '256)) + _old-width66168_) '#!void))) (define reset-port-width! - (lambda (_port66166_ _old-width66167_) - (if (macro-character-port? _port66166_) + (lambda (_port66163_ _old-width66164_) + (if (macro-character-port? _port66163_) (macro-character-port-output-width-set! - _port66166_ - _old-width66167_) + _port66163_ + _old-width66164_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_e66164_) + (lambda (_e66161_) (macro-readenv-filepos (let () (declare (not safe)) - (datum-parsing-exception-readenv _e66164_))))) + (datum-parsing-exception-readenv _e66161_))))) (define abandoned-mutex-exception? - (lambda (_exn66158_) + (lambda (_exn66155_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66158_)) - (let ((_e66161_ + (class-instance? RuntimeException::t _exn66155_)) + (let ((_e66158_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66158_ 'exception)))) - (macro-abandoned-mutex-exception? _e66161_)) - (macro-abandoned-mutex-exception? _exn66158_)))) + (unchecked-slot-ref _exn66155_ 'exception)))) + (macro-abandoned-mutex-exception? _e66158_)) + (macro-abandoned-mutex-exception? _exn66155_)))) (define cfun-conversion-exception? - (lambda (_exn66154_) + (lambda (_exn66151_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66154_)) - (let ((_e66156_ + (class-instance? RuntimeException::t _exn66151_)) + (let ((_e66153_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66154_ 'exception)))) - (macro-cfun-conversion-exception? _e66156_)) - (macro-cfun-conversion-exception? _exn66154_)))) + (unchecked-slot-ref _exn66151_ 'exception)))) + (macro-cfun-conversion-exception? _e66153_)) + (macro-cfun-conversion-exception? _exn66151_)))) (define cfun-conversion-exception-arguments - (lambda (_exn66150_) + (lambda (_exn66147_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66150_)) - (let ((_e66152_ + (class-instance? RuntimeException::t _exn66147_)) + (let ((_e66149_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66150_ 'exception)))) - (if (macro-cfun-conversion-exception? _e66152_) - (macro-cfun-conversion-exception-arguments _e66152_) - (let ((__tmp66715 - (let ((__tmp66716 + (unchecked-slot-ref _exn66147_ 'exception)))) + (if (macro-cfun-conversion-exception? _e66149_) + (macro-cfun-conversion-exception-arguments _e66149_) + (let ((__tmp66712 + (let ((__tmp66713 (let () (declare (not safe)) - (cons _e66152_ '())))) + (cons _e66149_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp66716)))) + __tmp66713)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp66715)))) - (if (macro-cfun-conversion-exception? _exn66150_) - (macro-cfun-conversion-exception-arguments _exn66150_) - (let ((__tmp66713 - (let ((__tmp66714 + __tmp66712)))) + (if (macro-cfun-conversion-exception? _exn66147_) + (macro-cfun-conversion-exception-arguments _exn66147_) + (let ((__tmp66710 + (let ((__tmp66711 (let () (declare (not safe)) - (cons _exn66150_ '())))) + (cons _exn66147_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp66714)))) + __tmp66711)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp66713)))))) + __tmp66710)))))) (define cfun-conversion-exception-code - (lambda (_exn66146_) + (lambda (_exn66143_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66146_)) - (let ((_e66148_ + (class-instance? RuntimeException::t _exn66143_)) + (let ((_e66145_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66146_ 'exception)))) - (if (macro-cfun-conversion-exception? _e66148_) - (macro-cfun-conversion-exception-code _e66148_) - (let ((__tmp66719 - (let ((__tmp66720 + (unchecked-slot-ref _exn66143_ 'exception)))) + (if (macro-cfun-conversion-exception? _e66145_) + (macro-cfun-conversion-exception-code _e66145_) + (let ((__tmp66716 + (let ((__tmp66717 (let () (declare (not safe)) - (cons _e66148_ '())))) + (cons _e66145_ '())))) (declare (not safe)) - (cons 'cfun-conversion-exception-code __tmp66720)))) + (cons 'cfun-conversion-exception-code __tmp66717)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp66719)))) - (if (macro-cfun-conversion-exception? _exn66146_) - (macro-cfun-conversion-exception-code _exn66146_) - (let ((__tmp66717 - (let ((__tmp66718 + __tmp66716)))) + (if (macro-cfun-conversion-exception? _exn66143_) + (macro-cfun-conversion-exception-code _exn66143_) + (let ((__tmp66714 + (let ((__tmp66715 (let () (declare (not safe)) - (cons _exn66146_ '())))) + (cons _exn66143_ '())))) (declare (not safe)) - (cons 'cfun-conversion-exception-code __tmp66718)))) + (cons 'cfun-conversion-exception-code __tmp66715)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp66717)))))) + __tmp66714)))))) (define cfun-conversion-exception-message - (lambda (_exn66142_) + (lambda (_exn66139_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66142_)) - (let ((_e66144_ + (class-instance? RuntimeException::t _exn66139_)) + (let ((_e66141_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66142_ 'exception)))) - (if (macro-cfun-conversion-exception? _e66144_) - (macro-cfun-conversion-exception-message _e66144_) - (let ((__tmp66723 - (let ((__tmp66724 + (unchecked-slot-ref _exn66139_ 'exception)))) + (if (macro-cfun-conversion-exception? _e66141_) + (macro-cfun-conversion-exception-message _e66141_) + (let ((__tmp66720 + (let ((__tmp66721 (let () (declare (not safe)) - (cons _e66144_ '())))) + (cons _e66141_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp66724)))) + __tmp66721)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp66723)))) - (if (macro-cfun-conversion-exception? _exn66142_) - (macro-cfun-conversion-exception-message _exn66142_) - (let ((__tmp66721 - (let ((__tmp66722 + __tmp66720)))) + (if (macro-cfun-conversion-exception? _exn66139_) + (macro-cfun-conversion-exception-message _exn66139_) + (let ((__tmp66718 + (let ((__tmp66719 (let () (declare (not safe)) - (cons _exn66142_ '())))) + (cons _exn66139_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp66722)))) + __tmp66719)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp66721)))))) + __tmp66718)))))) (define cfun-conversion-exception-procedure - (lambda (_exn66136_) + (lambda (_exn66133_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66136_)) - (let ((_e66139_ + (class-instance? RuntimeException::t _exn66133_)) + (let ((_e66136_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66136_ 'exception)))) - (if (macro-cfun-conversion-exception? _e66139_) - (macro-cfun-conversion-exception-procedure _e66139_) - (let ((__tmp66727 - (let ((__tmp66728 + (unchecked-slot-ref _exn66133_ 'exception)))) + (if (macro-cfun-conversion-exception? _e66136_) + (macro-cfun-conversion-exception-procedure _e66136_) + (let ((__tmp66724 + (let ((__tmp66725 (let () (declare (not safe)) - (cons _e66139_ '())))) + (cons _e66136_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp66728)))) + __tmp66725)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp66727)))) - (if (macro-cfun-conversion-exception? _exn66136_) - (macro-cfun-conversion-exception-procedure _exn66136_) - (let ((__tmp66725 - (let ((__tmp66726 + __tmp66724)))) + (if (macro-cfun-conversion-exception? _exn66133_) + (macro-cfun-conversion-exception-procedure _exn66133_) + (let ((__tmp66722 + (let ((__tmp66723 (let () (declare (not safe)) - (cons _exn66136_ '())))) + (cons _exn66133_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp66726)))) + __tmp66723)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp66725)))))) + __tmp66722)))))) (define datum-parsing-exception? - (lambda (_exn66132_) + (lambda (_exn66129_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66132_)) - (let ((_e66134_ + (class-instance? RuntimeException::t _exn66129_)) + (let ((_e66131_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66132_ 'exception)))) - (macro-datum-parsing-exception? _e66134_)) - (macro-datum-parsing-exception? _exn66132_)))) + (unchecked-slot-ref _exn66129_ 'exception)))) + (macro-datum-parsing-exception? _e66131_)) + (macro-datum-parsing-exception? _exn66129_)))) (define datum-parsing-exception-kind - (lambda (_exn66128_) + (lambda (_exn66125_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66128_)) - (let ((_e66130_ + (class-instance? RuntimeException::t _exn66125_)) + (let ((_e66127_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66128_ 'exception)))) - (if (macro-datum-parsing-exception? _e66130_) - (macro-datum-parsing-exception-kind _e66130_) - (let ((__tmp66731 - (let ((__tmp66732 + (unchecked-slot-ref _exn66125_ 'exception)))) + (if (macro-datum-parsing-exception? _e66127_) + (macro-datum-parsing-exception-kind _e66127_) + (let ((__tmp66728 + (let ((__tmp66729 (let () (declare (not safe)) - (cons _e66130_ '())))) + (cons _e66127_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp66732)))) + (cons 'datum-parsing-exception-kind __tmp66729)))) (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - __tmp66731)))) - (if (macro-datum-parsing-exception? _exn66128_) - (macro-datum-parsing-exception-kind _exn66128_) - (let ((__tmp66729 - (let ((__tmp66730 + __tmp66728)))) + (if (macro-datum-parsing-exception? _exn66125_) + (macro-datum-parsing-exception-kind _exn66125_) + (let ((__tmp66726 + (let ((__tmp66727 (let () (declare (not safe)) - (cons _exn66128_ '())))) + (cons _exn66125_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp66730)))) + (cons 'datum-parsing-exception-kind __tmp66727)))) (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - __tmp66729)))))) + __tmp66726)))))) (define datum-parsing-exception-parameters - (lambda (_exn66124_) + (lambda (_exn66121_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66124_)) - (let ((_e66126_ + (class-instance? RuntimeException::t _exn66121_)) + (let ((_e66123_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66124_ 'exception)))) - (if (macro-datum-parsing-exception? _e66126_) - (macro-datum-parsing-exception-parameters _e66126_) - (let ((__tmp66735 - (let ((__tmp66736 + (unchecked-slot-ref _exn66121_ 'exception)))) + (if (macro-datum-parsing-exception? _e66123_) + (macro-datum-parsing-exception-parameters _e66123_) + (let ((__tmp66732 + (let ((__tmp66733 (let () (declare (not safe)) - (cons _e66126_ '())))) + (cons _e66123_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp66736)))) + __tmp66733)))) (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - __tmp66735)))) - (if (macro-datum-parsing-exception? _exn66124_) - (macro-datum-parsing-exception-parameters _exn66124_) - (let ((__tmp66733 - (let ((__tmp66734 + __tmp66732)))) + (if (macro-datum-parsing-exception? _exn66121_) + (macro-datum-parsing-exception-parameters _exn66121_) + (let ((__tmp66730 + (let ((__tmp66731 (let () (declare (not safe)) - (cons _exn66124_ '())))) + (cons _exn66121_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp66734)))) + __tmp66731)))) (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - __tmp66733)))))) + __tmp66730)))))) (define datum-parsing-exception-readenv - (lambda (_exn66118_) + (lambda (_exn66115_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66118_)) - (let ((_e66121_ + (class-instance? RuntimeException::t _exn66115_)) + (let ((_e66118_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66118_ 'exception)))) - (if (macro-datum-parsing-exception? _e66121_) - (macro-datum-parsing-exception-readenv _e66121_) - (let ((__tmp66739 - (let ((__tmp66740 + (unchecked-slot-ref _exn66115_ 'exception)))) + (if (macro-datum-parsing-exception? _e66118_) + (macro-datum-parsing-exception-readenv _e66118_) + (let ((__tmp66736 + (let ((__tmp66737 (let () (declare (not safe)) - (cons _e66121_ '())))) + (cons _e66118_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-readenv - __tmp66740)))) + __tmp66737)))) (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - __tmp66739)))) - (if (macro-datum-parsing-exception? _exn66118_) - (macro-datum-parsing-exception-readenv _exn66118_) - (let ((__tmp66737 - (let ((__tmp66738 + __tmp66736)))) + (if (macro-datum-parsing-exception? _exn66115_) + (macro-datum-parsing-exception-readenv _exn66115_) + (let ((__tmp66734 + (let ((__tmp66735 (let () (declare (not safe)) - (cons _exn66118_ '())))) + (cons _exn66115_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-readenv __tmp66738)))) + (cons 'datum-parsing-exception-readenv __tmp66735)))) (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - __tmp66737)))))) + __tmp66734)))))) (define deadlock-exception? - (lambda (_exn66112_) + (lambda (_exn66109_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66112_)) - (let ((_e66115_ + (class-instance? RuntimeException::t _exn66109_)) + (let ((_e66112_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66112_ 'exception)))) - (macro-deadlock-exception? _e66115_)) - (macro-deadlock-exception? _exn66112_)))) + (unchecked-slot-ref _exn66109_ 'exception)))) + (macro-deadlock-exception? _e66112_)) + (macro-deadlock-exception? _exn66109_)))) (define divide-by-zero-exception? - (lambda (_exn66108_) + (lambda (_exn66105_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66108_)) - (let ((_e66110_ + (class-instance? RuntimeException::t _exn66105_)) + (let ((_e66107_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66108_ 'exception)))) - (macro-divide-by-zero-exception? _e66110_)) - (macro-divide-by-zero-exception? _exn66108_)))) + (unchecked-slot-ref _exn66105_ 'exception)))) + (macro-divide-by-zero-exception? _e66107_)) + (macro-divide-by-zero-exception? _exn66105_)))) (define divide-by-zero-exception-arguments - (lambda (_exn66104_) + (lambda (_exn66101_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66104_)) - (let ((_e66106_ + (class-instance? RuntimeException::t _exn66101_)) + (let ((_e66103_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66104_ 'exception)))) - (if (macro-divide-by-zero-exception? _e66106_) - (macro-divide-by-zero-exception-arguments _e66106_) - (let ((__tmp66743 - (let ((__tmp66744 + (unchecked-slot-ref _exn66101_ 'exception)))) + (if (macro-divide-by-zero-exception? _e66103_) + (macro-divide-by-zero-exception-arguments _e66103_) + (let ((__tmp66740 + (let ((__tmp66741 (let () (declare (not safe)) - (cons _e66106_ '())))) + (cons _e66103_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp66744)))) + __tmp66741)))) (declare (not safe)) (error '"not an instance" 'divide-by-zero-exception? - __tmp66743)))) - (if (macro-divide-by-zero-exception? _exn66104_) - (macro-divide-by-zero-exception-arguments _exn66104_) - (let ((__tmp66741 - (let ((__tmp66742 + __tmp66740)))) + (if (macro-divide-by-zero-exception? _exn66101_) + (macro-divide-by-zero-exception-arguments _exn66101_) + (let ((__tmp66738 + (let ((__tmp66739 (let () (declare (not safe)) - (cons _exn66104_ '())))) + (cons _exn66101_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp66742)))) + __tmp66739)))) (declare (not safe)) (error '"not an instance" 'divide-by-zero-exception? - __tmp66741)))))) + __tmp66738)))))) (define divide-by-zero-exception-procedure - (lambda (_exn66098_) + (lambda (_exn66095_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66098_)) - (let ((_e66101_ + (class-instance? RuntimeException::t _exn66095_)) + (let ((_e66098_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66098_ 'exception)))) - (if (macro-divide-by-zero-exception? _e66101_) - (macro-divide-by-zero-exception-procedure _e66101_) - (let ((__tmp66747 - (let ((__tmp66748 + (unchecked-slot-ref _exn66095_ 'exception)))) + (if (macro-divide-by-zero-exception? _e66098_) + (macro-divide-by-zero-exception-procedure _e66098_) + (let ((__tmp66744 + (let ((__tmp66745 (let () (declare (not safe)) - (cons _e66101_ '())))) + (cons _e66098_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp66748)))) + __tmp66745)))) (declare (not safe)) (error '"not an instance" 'divide-by-zero-exception? - __tmp66747)))) - (if (macro-divide-by-zero-exception? _exn66098_) - (macro-divide-by-zero-exception-procedure _exn66098_) - (let ((__tmp66745 - (let ((__tmp66746 + __tmp66744)))) + (if (macro-divide-by-zero-exception? _exn66095_) + (macro-divide-by-zero-exception-procedure _exn66095_) + (let ((__tmp66742 + (let ((__tmp66743 (let () (declare (not safe)) - (cons _exn66098_ '())))) + (cons _exn66095_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp66746)))) + __tmp66743)))) (declare (not safe)) (error '"not an instance" 'divide-by-zero-exception? - __tmp66745)))))) + __tmp66742)))))) (define error-exception? - (lambda (_exn66094_) + (lambda (_exn66091_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66094_)) - (let ((_e66096_ + (class-instance? RuntimeException::t _exn66091_)) + (let ((_e66093_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66094_ 'exception)))) - (macro-error-exception? _e66096_)) - (macro-error-exception? _exn66094_)))) + (unchecked-slot-ref _exn66091_ 'exception)))) + (macro-error-exception? _e66093_)) + (macro-error-exception? _exn66091_)))) (define error-exception-message - (lambda (_exn66090_) + (lambda (_exn66087_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66090_)) - (let ((_e66092_ + (class-instance? RuntimeException::t _exn66087_)) + (let ((_e66089_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66090_ 'exception)))) - (if (macro-error-exception? _e66092_) - (macro-error-exception-message _e66092_) - (let ((__tmp66751 - (let ((__tmp66752 + (unchecked-slot-ref _exn66087_ 'exception)))) + (if (macro-error-exception? _e66089_) + (macro-error-exception-message _e66089_) + (let ((__tmp66748 + (let ((__tmp66749 (let () (declare (not safe)) - (cons _e66092_ '())))) + (cons _e66089_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp66752)))) + (cons 'error-exception-message __tmp66749)))) (declare (not safe)) - (error '"not an instance" 'error-exception? __tmp66751)))) - (if (macro-error-exception? _exn66090_) - (macro-error-exception-message _exn66090_) - (let ((__tmp66749 - (let ((__tmp66750 + (error '"not an instance" 'error-exception? __tmp66748)))) + (if (macro-error-exception? _exn66087_) + (macro-error-exception-message _exn66087_) + (let ((__tmp66746 + (let ((__tmp66747 (let () (declare (not safe)) - (cons _exn66090_ '())))) + (cons _exn66087_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp66750)))) + (cons 'error-exception-message __tmp66747)))) (declare (not safe)) - (error '"not an instance" 'error-exception? __tmp66749)))))) + (error '"not an instance" 'error-exception? __tmp66746)))))) (define error-exception-parameters - (lambda (_exn66084_) + (lambda (_exn66081_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66084_)) - (let ((_e66087_ + (class-instance? RuntimeException::t _exn66081_)) + (let ((_e66084_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66084_ 'exception)))) - (if (macro-error-exception? _e66087_) - (macro-error-exception-parameters _e66087_) - (let ((__tmp66755 - (let ((__tmp66756 + (unchecked-slot-ref _exn66081_ 'exception)))) + (if (macro-error-exception? _e66084_) + (macro-error-exception-parameters _e66084_) + (let ((__tmp66752 + (let ((__tmp66753 (let () (declare (not safe)) - (cons _e66087_ '())))) + (cons _e66084_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp66756)))) + (cons 'error-exception-parameters __tmp66753)))) (declare (not safe)) - (error '"not an instance" 'error-exception? __tmp66755)))) - (if (macro-error-exception? _exn66084_) - (macro-error-exception-parameters _exn66084_) - (let ((__tmp66753 - (let ((__tmp66754 + (error '"not an instance" 'error-exception? __tmp66752)))) + (if (macro-error-exception? _exn66081_) + (macro-error-exception-parameters _exn66081_) + (let ((__tmp66750 + (let ((__tmp66751 (let () (declare (not safe)) - (cons _exn66084_ '())))) + (cons _exn66081_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp66754)))) + (cons 'error-exception-parameters __tmp66751)))) (declare (not safe)) - (error '"not an instance" 'error-exception? __tmp66753)))))) + (error '"not an instance" 'error-exception? __tmp66750)))))) (define expression-parsing-exception? - (lambda (_exn66080_) + (lambda (_exn66077_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66080_)) - (let ((_e66082_ + (class-instance? RuntimeException::t _exn66077_)) + (let ((_e66079_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66080_ 'exception)))) - (macro-expression-parsing-exception? _e66082_)) - (macro-expression-parsing-exception? _exn66080_)))) + (unchecked-slot-ref _exn66077_ 'exception)))) + (macro-expression-parsing-exception? _e66079_)) + (macro-expression-parsing-exception? _exn66077_)))) (define expression-parsing-exception-kind - (lambda (_exn66076_) + (lambda (_exn66073_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66076_)) - (let ((_e66078_ + (class-instance? RuntimeException::t _exn66073_)) + (let ((_e66075_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66076_ 'exception)))) - (if (macro-expression-parsing-exception? _e66078_) - (macro-expression-parsing-exception-kind _e66078_) - (let ((__tmp66759 - (let ((__tmp66760 + (unchecked-slot-ref _exn66073_ 'exception)))) + (if (macro-expression-parsing-exception? _e66075_) + (macro-expression-parsing-exception-kind _e66075_) + (let ((__tmp66756 + (let ((__tmp66757 (let () (declare (not safe)) - (cons _e66078_ '())))) + (cons _e66075_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp66760)))) + __tmp66757)))) (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - __tmp66759)))) - (if (macro-expression-parsing-exception? _exn66076_) - (macro-expression-parsing-exception-kind _exn66076_) - (let ((__tmp66757 - (let ((__tmp66758 + __tmp66756)))) + (if (macro-expression-parsing-exception? _exn66073_) + (macro-expression-parsing-exception-kind _exn66073_) + (let ((__tmp66754 + (let ((__tmp66755 (let () (declare (not safe)) - (cons _exn66076_ '())))) + (cons _exn66073_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp66758)))) + __tmp66755)))) (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - __tmp66757)))))) + __tmp66754)))))) (define expression-parsing-exception-parameters - (lambda (_exn66072_) + (lambda (_exn66069_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66072_)) - (let ((_e66074_ + (class-instance? RuntimeException::t _exn66069_)) + (let ((_e66071_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66072_ 'exception)))) - (if (macro-expression-parsing-exception? _e66074_) - (macro-expression-parsing-exception-parameters _e66074_) - (let ((__tmp66763 - (let ((__tmp66764 + (unchecked-slot-ref _exn66069_ 'exception)))) + (if (macro-expression-parsing-exception? _e66071_) + (macro-expression-parsing-exception-parameters _e66071_) + (let ((__tmp66760 + (let ((__tmp66761 (let () (declare (not safe)) - (cons _e66074_ '())))) + (cons _e66071_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp66764)))) + __tmp66761)))) (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - __tmp66763)))) - (if (macro-expression-parsing-exception? _exn66072_) - (macro-expression-parsing-exception-parameters _exn66072_) - (let ((__tmp66761 - (let ((__tmp66762 + __tmp66760)))) + (if (macro-expression-parsing-exception? _exn66069_) + (macro-expression-parsing-exception-parameters _exn66069_) + (let ((__tmp66758 + (let ((__tmp66759 (let () (declare (not safe)) - (cons _exn66072_ '())))) + (cons _exn66069_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp66762)))) + __tmp66759)))) (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - __tmp66761)))))) + __tmp66758)))))) (define expression-parsing-exception-source - (lambda (_exn66066_) + (lambda (_exn66063_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66066_)) - (let ((_e66069_ + (class-instance? RuntimeException::t _exn66063_)) + (let ((_e66066_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66066_ 'exception)))) - (if (macro-expression-parsing-exception? _e66069_) - (macro-expression-parsing-exception-source _e66069_) - (let ((__tmp66767 - (let ((__tmp66768 + (unchecked-slot-ref _exn66063_ 'exception)))) + (if (macro-expression-parsing-exception? _e66066_) + (macro-expression-parsing-exception-source _e66066_) + (let ((__tmp66764 + (let ((__tmp66765 (let () (declare (not safe)) - (cons _e66069_ '())))) + (cons _e66066_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp66768)))) + __tmp66765)))) (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - __tmp66767)))) - (if (macro-expression-parsing-exception? _exn66066_) - (macro-expression-parsing-exception-source _exn66066_) - (let ((__tmp66765 - (let ((__tmp66766 + __tmp66764)))) + (if (macro-expression-parsing-exception? _exn66063_) + (macro-expression-parsing-exception-source _exn66063_) + (let ((__tmp66762 + (let ((__tmp66763 (let () (declare (not safe)) - (cons _exn66066_ '())))) + (cons _exn66063_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp66766)))) + __tmp66763)))) (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - __tmp66765)))))) + __tmp66762)))))) (define file-exists-exception? - (lambda (_exn66062_) + (lambda (_exn66059_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66062_)) - (let ((_e66064_ + (class-instance? RuntimeException::t _exn66059_)) + (let ((_e66061_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66062_ 'exception)))) - (macro-file-exists-exception? _e66064_)) - (macro-file-exists-exception? _exn66062_)))) + (unchecked-slot-ref _exn66059_ 'exception)))) + (macro-file-exists-exception? _e66061_)) + (macro-file-exists-exception? _exn66059_)))) (define file-exists-exception-arguments - (lambda (_exn66058_) + (lambda (_exn66055_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66058_)) - (let ((_e66060_ + (class-instance? RuntimeException::t _exn66055_)) + (let ((_e66057_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66058_ 'exception)))) - (if (macro-file-exists-exception? _e66060_) - (macro-file-exists-exception-arguments _e66060_) - (let ((__tmp66771 - (let ((__tmp66772 + (unchecked-slot-ref _exn66055_ 'exception)))) + (if (macro-file-exists-exception? _e66057_) + (macro-file-exists-exception-arguments _e66057_) + (let ((__tmp66768 + (let ((__tmp66769 (let () (declare (not safe)) - (cons _e66060_ '())))) + (cons _e66057_ '())))) (declare (not safe)) (cons 'file-exists-exception-arguments - __tmp66772)))) + __tmp66769)))) (declare (not safe)) (error '"not an instance" 'file-exists-exception? - __tmp66771)))) - (if (macro-file-exists-exception? _exn66058_) - (macro-file-exists-exception-arguments _exn66058_) - (let ((__tmp66769 - (let ((__tmp66770 + __tmp66768)))) + (if (macro-file-exists-exception? _exn66055_) + (macro-file-exists-exception-arguments _exn66055_) + (let ((__tmp66766 + (let ((__tmp66767 (let () (declare (not safe)) - (cons _exn66058_ '())))) + (cons _exn66055_ '())))) (declare (not safe)) - (cons 'file-exists-exception-arguments __tmp66770)))) + (cons 'file-exists-exception-arguments __tmp66767)))) (declare (not safe)) (error '"not an instance" 'file-exists-exception? - __tmp66769)))))) + __tmp66766)))))) (define file-exists-exception-procedure - (lambda (_exn66052_) + (lambda (_exn66049_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66052_)) - (let ((_e66055_ + (class-instance? RuntimeException::t _exn66049_)) + (let ((_e66052_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66052_ 'exception)))) - (if (macro-file-exists-exception? _e66055_) - (macro-file-exists-exception-procedure _e66055_) - (let ((__tmp66775 - (let ((__tmp66776 + (unchecked-slot-ref _exn66049_ 'exception)))) + (if (macro-file-exists-exception? _e66052_) + (macro-file-exists-exception-procedure _e66052_) + (let ((__tmp66772 + (let ((__tmp66773 (let () (declare (not safe)) - (cons _e66055_ '())))) + (cons _e66052_ '())))) (declare (not safe)) (cons 'file-exists-exception-procedure - __tmp66776)))) + __tmp66773)))) (declare (not safe)) (error '"not an instance" 'file-exists-exception? - __tmp66775)))) - (if (macro-file-exists-exception? _exn66052_) - (macro-file-exists-exception-procedure _exn66052_) - (let ((__tmp66773 - (let ((__tmp66774 + __tmp66772)))) + (if (macro-file-exists-exception? _exn66049_) + (macro-file-exists-exception-procedure _exn66049_) + (let ((__tmp66770 + (let ((__tmp66771 (let () (declare (not safe)) - (cons _exn66052_ '())))) + (cons _exn66049_ '())))) (declare (not safe)) - (cons 'file-exists-exception-procedure __tmp66774)))) + (cons 'file-exists-exception-procedure __tmp66771)))) (declare (not safe)) (error '"not an instance" 'file-exists-exception? - __tmp66773)))))) + __tmp66770)))))) (define fixnum-overflow-exception? - (lambda (_exn66048_) + (lambda (_exn66045_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66048_)) - (let ((_e66050_ + (class-instance? RuntimeException::t _exn66045_)) + (let ((_e66047_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66048_ 'exception)))) - (macro-fixnum-overflow-exception? _e66050_)) - (macro-fixnum-overflow-exception? _exn66048_)))) + (unchecked-slot-ref _exn66045_ 'exception)))) + (macro-fixnum-overflow-exception? _e66047_)) + (macro-fixnum-overflow-exception? _exn66045_)))) (define fixnum-overflow-exception-arguments - (lambda (_exn66044_) + (lambda (_exn66041_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66044_)) - (let ((_e66046_ + (class-instance? RuntimeException::t _exn66041_)) + (let ((_e66043_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66044_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e66046_) - (macro-fixnum-overflow-exception-arguments _e66046_) - (let ((__tmp66779 - (let ((__tmp66780 + (unchecked-slot-ref _exn66041_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e66043_) + (macro-fixnum-overflow-exception-arguments _e66043_) + (let ((__tmp66776 + (let ((__tmp66777 (let () (declare (not safe)) - (cons _e66046_ '())))) + (cons _e66043_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp66780)))) + __tmp66777)))) (declare (not safe)) (error '"not an instance" 'fixnum-overflow-exception? - __tmp66779)))) - (if (macro-fixnum-overflow-exception? _exn66044_) - (macro-fixnum-overflow-exception-arguments _exn66044_) - (let ((__tmp66777 - (let ((__tmp66778 + __tmp66776)))) + (if (macro-fixnum-overflow-exception? _exn66041_) + (macro-fixnum-overflow-exception-arguments _exn66041_) + (let ((__tmp66774 + (let ((__tmp66775 (let () (declare (not safe)) - (cons _exn66044_ '())))) + (cons _exn66041_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp66778)))) + __tmp66775)))) (declare (not safe)) (error '"not an instance" 'fixnum-overflow-exception? - __tmp66777)))))) + __tmp66774)))))) (define fixnum-overflow-exception-procedure - (lambda (_exn66038_) + (lambda (_exn66035_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66038_)) - (let ((_e66041_ + (class-instance? RuntimeException::t _exn66035_)) + (let ((_e66038_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66038_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e66041_) - (macro-fixnum-overflow-exception-procedure _e66041_) - (let ((__tmp66783 - (let ((__tmp66784 + (unchecked-slot-ref _exn66035_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e66038_) + (macro-fixnum-overflow-exception-procedure _e66038_) + (let ((__tmp66780 + (let ((__tmp66781 (let () (declare (not safe)) - (cons _e66041_ '())))) + (cons _e66038_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp66784)))) + __tmp66781)))) (declare (not safe)) (error '"not an instance" 'fixnum-overflow-exception? - __tmp66783)))) - (if (macro-fixnum-overflow-exception? _exn66038_) - (macro-fixnum-overflow-exception-procedure _exn66038_) - (let ((__tmp66781 - (let ((__tmp66782 + __tmp66780)))) + (if (macro-fixnum-overflow-exception? _exn66035_) + (macro-fixnum-overflow-exception-procedure _exn66035_) + (let ((__tmp66778 + (let ((__tmp66779 (let () (declare (not safe)) - (cons _exn66038_ '())))) + (cons _exn66035_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp66782)))) + __tmp66779)))) (declare (not safe)) (error '"not an instance" 'fixnum-overflow-exception? - __tmp66781)))))) + __tmp66778)))))) (define heap-overflow-exception? - (lambda (_exn66032_) + (lambda (_exn66029_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66032_)) - (let ((_e66035_ + (class-instance? RuntimeException::t _exn66029_)) + (let ((_e66032_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66032_ 'exception)))) - (macro-heap-overflow-exception? _e66035_)) - (macro-heap-overflow-exception? _exn66032_)))) + (unchecked-slot-ref _exn66029_ 'exception)))) + (macro-heap-overflow-exception? _e66032_)) + (macro-heap-overflow-exception? _exn66029_)))) (define inactive-thread-exception? - (lambda (_exn66028_) + (lambda (_exn66025_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66028_)) - (let ((_e66030_ + (class-instance? RuntimeException::t _exn66025_)) + (let ((_e66027_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66028_ 'exception)))) - (macro-inactive-thread-exception? _e66030_)) - (macro-inactive-thread-exception? _exn66028_)))) + (unchecked-slot-ref _exn66025_ 'exception)))) + (macro-inactive-thread-exception? _e66027_)) + (macro-inactive-thread-exception? _exn66025_)))) (define inactive-thread-exception-arguments - (lambda (_exn66024_) + (lambda (_exn66021_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66024_)) - (let ((_e66026_ + (class-instance? RuntimeException::t _exn66021_)) + (let ((_e66023_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66024_ 'exception)))) - (if (macro-inactive-thread-exception? _e66026_) - (macro-inactive-thread-exception-arguments _e66026_) - (let ((__tmp66787 - (let ((__tmp66788 + (unchecked-slot-ref _exn66021_ 'exception)))) + (if (macro-inactive-thread-exception? _e66023_) + (macro-inactive-thread-exception-arguments _e66023_) + (let ((__tmp66784 + (let ((__tmp66785 (let () (declare (not safe)) - (cons _e66026_ '())))) + (cons _e66023_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp66788)))) + __tmp66785)))) (declare (not safe)) (error '"not an instance" 'inactive-thread-exception? - __tmp66787)))) - (if (macro-inactive-thread-exception? _exn66024_) - (macro-inactive-thread-exception-arguments _exn66024_) - (let ((__tmp66785 - (let ((__tmp66786 + __tmp66784)))) + (if (macro-inactive-thread-exception? _exn66021_) + (macro-inactive-thread-exception-arguments _exn66021_) + (let ((__tmp66782 + (let ((__tmp66783 (let () (declare (not safe)) - (cons _exn66024_ '())))) + (cons _exn66021_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp66786)))) + __tmp66783)))) (declare (not safe)) (error '"not an instance" 'inactive-thread-exception? - __tmp66785)))))) + __tmp66782)))))) (define inactive-thread-exception-procedure - (lambda (_exn66018_) + (lambda (_exn66015_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66018_)) - (let ((_e66021_ + (class-instance? RuntimeException::t _exn66015_)) + (let ((_e66018_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66018_ 'exception)))) - (if (macro-inactive-thread-exception? _e66021_) - (macro-inactive-thread-exception-procedure _e66021_) - (let ((__tmp66791 - (let ((__tmp66792 + (unchecked-slot-ref _exn66015_ 'exception)))) + (if (macro-inactive-thread-exception? _e66018_) + (macro-inactive-thread-exception-procedure _e66018_) + (let ((__tmp66788 + (let ((__tmp66789 (let () (declare (not safe)) - (cons _e66021_ '())))) + (cons _e66018_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp66792)))) + __tmp66789)))) (declare (not safe)) (error '"not an instance" 'inactive-thread-exception? - __tmp66791)))) - (if (macro-inactive-thread-exception? _exn66018_) - (macro-inactive-thread-exception-procedure _exn66018_) - (let ((__tmp66789 - (let ((__tmp66790 + __tmp66788)))) + (if (macro-inactive-thread-exception? _exn66015_) + (macro-inactive-thread-exception-procedure _exn66015_) + (let ((__tmp66786 + (let ((__tmp66787 (let () (declare (not safe)) - (cons _exn66018_ '())))) + (cons _exn66015_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp66790)))) + __tmp66787)))) (declare (not safe)) (error '"not an instance" 'inactive-thread-exception? - __tmp66789)))))) + __tmp66786)))))) (define initialized-thread-exception? - (lambda (_exn66014_) + (lambda (_exn66011_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66014_)) - (let ((_e66016_ + (class-instance? RuntimeException::t _exn66011_)) + (let ((_e66013_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66014_ 'exception)))) - (macro-initialized-thread-exception? _e66016_)) - (macro-initialized-thread-exception? _exn66014_)))) + (unchecked-slot-ref _exn66011_ 'exception)))) + (macro-initialized-thread-exception? _e66013_)) + (macro-initialized-thread-exception? _exn66011_)))) (define initialized-thread-exception-arguments - (lambda (_exn66010_) + (lambda (_exn66007_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66010_)) - (let ((_e66012_ + (class-instance? RuntimeException::t _exn66007_)) + (let ((_e66009_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66010_ 'exception)))) - (if (macro-initialized-thread-exception? _e66012_) - (macro-initialized-thread-exception-arguments _e66012_) - (let ((__tmp66795 - (let ((__tmp66796 + (unchecked-slot-ref _exn66007_ 'exception)))) + (if (macro-initialized-thread-exception? _e66009_) + (macro-initialized-thread-exception-arguments _e66009_) + (let ((__tmp66792 + (let ((__tmp66793 (let () (declare (not safe)) - (cons _e66012_ '())))) + (cons _e66009_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp66796)))) + __tmp66793)))) (declare (not safe)) (error '"not an instance" 'initialized-thread-exception? - __tmp66795)))) - (if (macro-initialized-thread-exception? _exn66010_) - (macro-initialized-thread-exception-arguments _exn66010_) - (let ((__tmp66793 - (let ((__tmp66794 + __tmp66792)))) + (if (macro-initialized-thread-exception? _exn66007_) + (macro-initialized-thread-exception-arguments _exn66007_) + (let ((__tmp66790 + (let ((__tmp66791 (let () (declare (not safe)) - (cons _exn66010_ '())))) + (cons _exn66007_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp66794)))) + __tmp66791)))) (declare (not safe)) (error '"not an instance" 'initialized-thread-exception? - __tmp66793)))))) + __tmp66790)))))) (define initialized-thread-exception-procedure - (lambda (_exn66004_) + (lambda (_exn66001_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66004_)) - (let ((_e66007_ + (class-instance? RuntimeException::t _exn66001_)) + (let ((_e66004_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66004_ 'exception)))) - (if (macro-initialized-thread-exception? _e66007_) - (macro-initialized-thread-exception-procedure _e66007_) - (let ((__tmp66799 - (let ((__tmp66800 + (unchecked-slot-ref _exn66001_ 'exception)))) + (if (macro-initialized-thread-exception? _e66004_) + (macro-initialized-thread-exception-procedure _e66004_) + (let ((__tmp66796 + (let ((__tmp66797 (let () (declare (not safe)) - (cons _e66007_ '())))) + (cons _e66004_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp66800)))) + __tmp66797)))) (declare (not safe)) (error '"not an instance" 'initialized-thread-exception? - __tmp66799)))) - (if (macro-initialized-thread-exception? _exn66004_) - (macro-initialized-thread-exception-procedure _exn66004_) - (let ((__tmp66797 - (let ((__tmp66798 + __tmp66796)))) + (if (macro-initialized-thread-exception? _exn66001_) + (macro-initialized-thread-exception-procedure _exn66001_) + (let ((__tmp66794 + (let ((__tmp66795 (let () (declare (not safe)) - (cons _exn66004_ '())))) + (cons _exn66001_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp66798)))) + __tmp66795)))) (declare (not safe)) (error '"not an instance" 'initialized-thread-exception? - __tmp66797)))))) + __tmp66794)))))) (define invalid-hash-number-exception? - (lambda (_exn66000_) + (lambda (_exn65997_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66000_)) - (let ((_e66002_ + (class-instance? RuntimeException::t _exn65997_)) + (let ((_e65999_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66000_ 'exception)))) - (macro-invalid-hash-number-exception? _e66002_)) - (macro-invalid-hash-number-exception? _exn66000_)))) + (unchecked-slot-ref _exn65997_ 'exception)))) + (macro-invalid-hash-number-exception? _e65999_)) + (macro-invalid-hash-number-exception? _exn65997_)))) (define invalid-hash-number-exception-arguments - (lambda (_exn65996_) + (lambda (_exn65993_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65996_)) - (let ((_e65998_ + (class-instance? RuntimeException::t _exn65993_)) + (let ((_e65995_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65996_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e65998_) - (macro-invalid-hash-number-exception-arguments _e65998_) - (let ((__tmp66803 - (let ((__tmp66804 + (unchecked-slot-ref _exn65993_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e65995_) + (macro-invalid-hash-number-exception-arguments _e65995_) + (let ((__tmp66800 + (let ((__tmp66801 (let () (declare (not safe)) - (cons _e65998_ '())))) + (cons _e65995_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp66804)))) + __tmp66801)))) (declare (not safe)) (error '"not an instance" 'invalid-hash-number-exception? - __tmp66803)))) - (if (macro-invalid-hash-number-exception? _exn65996_) - (macro-invalid-hash-number-exception-arguments _exn65996_) - (let ((__tmp66801 - (let ((__tmp66802 + __tmp66800)))) + (if (macro-invalid-hash-number-exception? _exn65993_) + (macro-invalid-hash-number-exception-arguments _exn65993_) + (let ((__tmp66798 + (let ((__tmp66799 (let () (declare (not safe)) - (cons _exn65996_ '())))) + (cons _exn65993_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp66802)))) + __tmp66799)))) (declare (not safe)) (error '"not an instance" 'invalid-hash-number-exception? - __tmp66801)))))) + __tmp66798)))))) (define invalid-hash-number-exception-procedure - (lambda (_exn65990_) + (lambda (_exn65987_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65990_)) - (let ((_e65993_ + (class-instance? RuntimeException::t _exn65987_)) + (let ((_e65990_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65990_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e65993_) - (macro-invalid-hash-number-exception-procedure _e65993_) - (let ((__tmp66807 - (let ((__tmp66808 + (unchecked-slot-ref _exn65987_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e65990_) + (macro-invalid-hash-number-exception-procedure _e65990_) + (let ((__tmp66804 + (let ((__tmp66805 (let () (declare (not safe)) - (cons _e65993_ '())))) + (cons _e65990_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp66808)))) + __tmp66805)))) (declare (not safe)) (error '"not an instance" 'invalid-hash-number-exception? - __tmp66807)))) - (if (macro-invalid-hash-number-exception? _exn65990_) - (macro-invalid-hash-number-exception-procedure _exn65990_) - (let ((__tmp66805 - (let ((__tmp66806 + __tmp66804)))) + (if (macro-invalid-hash-number-exception? _exn65987_) + (macro-invalid-hash-number-exception-procedure _exn65987_) + (let ((__tmp66802 + (let ((__tmp66803 (let () (declare (not safe)) - (cons _exn65990_ '())))) + (cons _exn65987_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp66806)))) + __tmp66803)))) (declare (not safe)) (error '"not an instance" 'invalid-hash-number-exception? - __tmp66805)))))) + __tmp66802)))))) (define invalid-utf8-encoding-exception? - (lambda (_exn65986_) + (lambda (_exn65983_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65986_)) - (let ((_e65988_ + (class-instance? RuntimeException::t _exn65983_)) + (let ((_e65985_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65986_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _e65988_)) - (macro-invalid-utf8-encoding-exception? _exn65986_)))) + (unchecked-slot-ref _exn65983_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _e65985_)) + (macro-invalid-utf8-encoding-exception? _exn65983_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_exn65982_) + (lambda (_exn65979_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65982_)) - (let ((_e65984_ + (class-instance? RuntimeException::t _exn65979_)) + (let ((_e65981_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65982_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e65984_) - (macro-invalid-utf8-encoding-exception-arguments _e65984_) - (let ((__tmp66811 - (let ((__tmp66812 + (unchecked-slot-ref _exn65979_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e65981_) + (macro-invalid-utf8-encoding-exception-arguments _e65981_) + (let ((__tmp66808 + (let ((__tmp66809 (let () (declare (not safe)) - (cons _e65984_ '())))) + (cons _e65981_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp66812)))) + __tmp66809)))) (declare (not safe)) (error '"not an instance" 'invalid-utf8-encoding-exception? - __tmp66811)))) - (if (macro-invalid-utf8-encoding-exception? _exn65982_) - (macro-invalid-utf8-encoding-exception-arguments _exn65982_) - (let ((__tmp66809 - (let ((__tmp66810 + __tmp66808)))) + (if (macro-invalid-utf8-encoding-exception? _exn65979_) + (macro-invalid-utf8-encoding-exception-arguments _exn65979_) + (let ((__tmp66806 + (let ((__tmp66807 (let () (declare (not safe)) - (cons _exn65982_ '())))) + (cons _exn65979_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp66810)))) + __tmp66807)))) (declare (not safe)) (error '"not an instance" 'invalid-utf8-encoding-exception? - __tmp66809)))))) + __tmp66806)))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_exn65976_) + (lambda (_exn65973_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65976_)) - (let ((_e65979_ + (class-instance? RuntimeException::t _exn65973_)) + (let ((_e65976_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65976_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e65979_) - (macro-invalid-utf8-encoding-exception-procedure _e65979_) - (let ((__tmp66815 - (let ((__tmp66816 + (unchecked-slot-ref _exn65973_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e65976_) + (macro-invalid-utf8-encoding-exception-procedure _e65976_) + (let ((__tmp66812 + (let ((__tmp66813 (let () (declare (not safe)) - (cons _e65979_ '())))) + (cons _e65976_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp66816)))) + __tmp66813)))) (declare (not safe)) (error '"not an instance" 'invalid-utf8-encoding-exception? - __tmp66815)))) - (if (macro-invalid-utf8-encoding-exception? _exn65976_) - (macro-invalid-utf8-encoding-exception-procedure _exn65976_) - (let ((__tmp66813 - (let ((__tmp66814 + __tmp66812)))) + (if (macro-invalid-utf8-encoding-exception? _exn65973_) + (macro-invalid-utf8-encoding-exception-procedure _exn65973_) + (let ((__tmp66810 + (let ((__tmp66811 (let () (declare (not safe)) - (cons _exn65976_ '())))) + (cons _exn65973_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp66814)))) + __tmp66811)))) (declare (not safe)) (error '"not an instance" 'invalid-utf8-encoding-exception? - __tmp66813)))))) + __tmp66810)))))) (define join-timeout-exception? - (lambda (_exn65972_) + (lambda (_exn65969_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65972_)) - (let ((_e65974_ + (class-instance? RuntimeException::t _exn65969_)) + (let ((_e65971_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65972_ 'exception)))) - (macro-join-timeout-exception? _e65974_)) - (macro-join-timeout-exception? _exn65972_)))) + (unchecked-slot-ref _exn65969_ 'exception)))) + (macro-join-timeout-exception? _e65971_)) + (macro-join-timeout-exception? _exn65969_)))) (define join-timeout-exception-arguments - (lambda (_exn65968_) + (lambda (_exn65965_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65968_)) - (let ((_e65970_ + (class-instance? RuntimeException::t _exn65965_)) + (let ((_e65967_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65968_ 'exception)))) - (if (macro-join-timeout-exception? _e65970_) - (macro-join-timeout-exception-arguments _e65970_) - (let ((__tmp66819 - (let ((__tmp66820 + (unchecked-slot-ref _exn65965_ 'exception)))) + (if (macro-join-timeout-exception? _e65967_) + (macro-join-timeout-exception-arguments _e65967_) + (let ((__tmp66816 + (let ((__tmp66817 (let () (declare (not safe)) - (cons _e65970_ '())))) + (cons _e65967_ '())))) (declare (not safe)) (cons 'join-timeout-exception-arguments - __tmp66820)))) + __tmp66817)))) (declare (not safe)) (error '"not an instance" 'join-timeout-exception? - __tmp66819)))) - (if (macro-join-timeout-exception? _exn65968_) - (macro-join-timeout-exception-arguments _exn65968_) - (let ((__tmp66817 - (let ((__tmp66818 + __tmp66816)))) + (if (macro-join-timeout-exception? _exn65965_) + (macro-join-timeout-exception-arguments _exn65965_) + (let ((__tmp66814 + (let ((__tmp66815 (let () (declare (not safe)) - (cons _exn65968_ '())))) + (cons _exn65965_ '())))) (declare (not safe)) - (cons 'join-timeout-exception-arguments __tmp66818)))) + (cons 'join-timeout-exception-arguments __tmp66815)))) (declare (not safe)) (error '"not an instance" 'join-timeout-exception? - __tmp66817)))))) + __tmp66814)))))) (define join-timeout-exception-procedure - (lambda (_exn65962_) + (lambda (_exn65959_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65962_)) - (let ((_e65965_ + (class-instance? RuntimeException::t _exn65959_)) + (let ((_e65962_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65962_ 'exception)))) - (if (macro-join-timeout-exception? _e65965_) - (macro-join-timeout-exception-procedure _e65965_) - (let ((__tmp66823 - (let ((__tmp66824 + (unchecked-slot-ref _exn65959_ 'exception)))) + (if (macro-join-timeout-exception? _e65962_) + (macro-join-timeout-exception-procedure _e65962_) + (let ((__tmp66820 + (let ((__tmp66821 (let () (declare (not safe)) - (cons _e65965_ '())))) + (cons _e65962_ '())))) (declare (not safe)) (cons 'join-timeout-exception-procedure - __tmp66824)))) + __tmp66821)))) (declare (not safe)) (error '"not an instance" 'join-timeout-exception? - __tmp66823)))) - (if (macro-join-timeout-exception? _exn65962_) - (macro-join-timeout-exception-procedure _exn65962_) - (let ((__tmp66821 - (let ((__tmp66822 + __tmp66820)))) + (if (macro-join-timeout-exception? _exn65959_) + (macro-join-timeout-exception-procedure _exn65959_) + (let ((__tmp66818 + (let ((__tmp66819 (let () (declare (not safe)) - (cons _exn65962_ '())))) + (cons _exn65959_ '())))) (declare (not safe)) - (cons 'join-timeout-exception-procedure __tmp66822)))) + (cons 'join-timeout-exception-procedure __tmp66819)))) (declare (not safe)) (error '"not an instance" 'join-timeout-exception? - __tmp66821)))))) + __tmp66818)))))) (define keyword-expected-exception? - (lambda (_exn65958_) + (lambda (_exn65955_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65958_)) - (let ((_e65960_ + (class-instance? RuntimeException::t _exn65955_)) + (let ((_e65957_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65958_ 'exception)))) - (macro-keyword-expected-exception? _e65960_)) - (macro-keyword-expected-exception? _exn65958_)))) + (unchecked-slot-ref _exn65955_ 'exception)))) + (macro-keyword-expected-exception? _e65957_)) + (macro-keyword-expected-exception? _exn65955_)))) (define keyword-expected-exception-arguments - (lambda (_exn65954_) + (lambda (_exn65951_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65954_)) - (let ((_e65956_ + (class-instance? RuntimeException::t _exn65951_)) + (let ((_e65953_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65954_ 'exception)))) - (if (macro-keyword-expected-exception? _e65956_) - (macro-keyword-expected-exception-arguments _e65956_) - (let ((__tmp66827 - (let ((__tmp66828 + (unchecked-slot-ref _exn65951_ 'exception)))) + (if (macro-keyword-expected-exception? _e65953_) + (macro-keyword-expected-exception-arguments _e65953_) + (let ((__tmp66824 + (let ((__tmp66825 (let () (declare (not safe)) - (cons _e65956_ '())))) + (cons _e65953_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp66828)))) + __tmp66825)))) (declare (not safe)) (error '"not an instance" 'keyword-expected-exception? - __tmp66827)))) - (if (macro-keyword-expected-exception? _exn65954_) - (macro-keyword-expected-exception-arguments _exn65954_) - (let ((__tmp66825 - (let ((__tmp66826 + __tmp66824)))) + (if (macro-keyword-expected-exception? _exn65951_) + (macro-keyword-expected-exception-arguments _exn65951_) + (let ((__tmp66822 + (let ((__tmp66823 (let () (declare (not safe)) - (cons _exn65954_ '())))) + (cons _exn65951_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp66826)))) + __tmp66823)))) (declare (not safe)) (error '"not an instance" 'keyword-expected-exception? - __tmp66825)))))) + __tmp66822)))))) (define keyword-expected-exception-procedure - (lambda (_exn65948_) + (lambda (_exn65945_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65948_)) - (let ((_e65951_ + (class-instance? RuntimeException::t _exn65945_)) + (let ((_e65948_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65948_ 'exception)))) - (if (macro-keyword-expected-exception? _e65951_) - (macro-keyword-expected-exception-procedure _e65951_) - (let ((__tmp66831 - (let ((__tmp66832 + (unchecked-slot-ref _exn65945_ 'exception)))) + (if (macro-keyword-expected-exception? _e65948_) + (macro-keyword-expected-exception-procedure _e65948_) + (let ((__tmp66828 + (let ((__tmp66829 (let () (declare (not safe)) - (cons _e65951_ '())))) + (cons _e65948_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp66832)))) + __tmp66829)))) (declare (not safe)) (error '"not an instance" 'keyword-expected-exception? - __tmp66831)))) - (if (macro-keyword-expected-exception? _exn65948_) - (macro-keyword-expected-exception-procedure _exn65948_) - (let ((__tmp66829 - (let ((__tmp66830 + __tmp66828)))) + (if (macro-keyword-expected-exception? _exn65945_) + (macro-keyword-expected-exception-procedure _exn65945_) + (let ((__tmp66826 + (let ((__tmp66827 (let () (declare (not safe)) - (cons _exn65948_ '())))) + (cons _exn65945_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp66830)))) + __tmp66827)))) (declare (not safe)) (error '"not an instance" 'keyword-expected-exception? - __tmp66829)))))) + __tmp66826)))))) (define length-mismatch-exception? - (lambda (_exn65944_) + (lambda (_exn65941_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65944_)) - (let ((_e65946_ + (class-instance? RuntimeException::t _exn65941_)) + (let ((_e65943_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65944_ 'exception)))) - (macro-length-mismatch-exception? _e65946_)) - (macro-length-mismatch-exception? _exn65944_)))) + (unchecked-slot-ref _exn65941_ 'exception)))) + (macro-length-mismatch-exception? _e65943_)) + (macro-length-mismatch-exception? _exn65941_)))) (define length-mismatch-exception-arg-id - (lambda (_exn65940_) + (lambda (_exn65937_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65940_)) - (let ((_e65942_ + (class-instance? RuntimeException::t _exn65937_)) + (let ((_e65939_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65940_ 'exception)))) - (if (macro-length-mismatch-exception? _e65942_) - (macro-length-mismatch-exception-arg-id _e65942_) - (let ((__tmp66835 - (let ((__tmp66836 + (unchecked-slot-ref _exn65937_ 'exception)))) + (if (macro-length-mismatch-exception? _e65939_) + (macro-length-mismatch-exception-arg-id _e65939_) + (let ((__tmp66832 + (let ((__tmp66833 (let () (declare (not safe)) - (cons _e65942_ '())))) + (cons _e65939_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arg-id - __tmp66836)))) + __tmp66833)))) (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - __tmp66835)))) - (if (macro-length-mismatch-exception? _exn65940_) - (macro-length-mismatch-exception-arg-id _exn65940_) - (let ((__tmp66833 - (let ((__tmp66834 + __tmp66832)))) + (if (macro-length-mismatch-exception? _exn65937_) + (macro-length-mismatch-exception-arg-id _exn65937_) + (let ((__tmp66830 + (let ((__tmp66831 (let () (declare (not safe)) - (cons _exn65940_ '())))) + (cons _exn65937_ '())))) (declare (not safe)) - (cons 'length-mismatch-exception-arg-id __tmp66834)))) + (cons 'length-mismatch-exception-arg-id __tmp66831)))) (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - __tmp66833)))))) + __tmp66830)))))) (define length-mismatch-exception-arguments - (lambda (_exn65936_) + (lambda (_exn65933_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65936_)) - (let ((_e65938_ + (class-instance? RuntimeException::t _exn65933_)) + (let ((_e65935_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65936_ 'exception)))) - (if (macro-length-mismatch-exception? _e65938_) - (macro-length-mismatch-exception-arguments _e65938_) - (let ((__tmp66839 - (let ((__tmp66840 + (unchecked-slot-ref _exn65933_ 'exception)))) + (if (macro-length-mismatch-exception? _e65935_) + (macro-length-mismatch-exception-arguments _e65935_) + (let ((__tmp66836 + (let ((__tmp66837 (let () (declare (not safe)) - (cons _e65938_ '())))) + (cons _e65935_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp66840)))) + __tmp66837)))) (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - __tmp66839)))) - (if (macro-length-mismatch-exception? _exn65936_) - (macro-length-mismatch-exception-arguments _exn65936_) - (let ((__tmp66837 - (let ((__tmp66838 + __tmp66836)))) + (if (macro-length-mismatch-exception? _exn65933_) + (macro-length-mismatch-exception-arguments _exn65933_) + (let ((__tmp66834 + (let ((__tmp66835 (let () (declare (not safe)) - (cons _exn65936_ '())))) + (cons _exn65933_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp66838)))) + __tmp66835)))) (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - __tmp66837)))))) + __tmp66834)))))) (define length-mismatch-exception-procedure - (lambda (_exn65930_) + (lambda (_exn65927_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65930_)) - (let ((_e65933_ + (class-instance? RuntimeException::t _exn65927_)) + (let ((_e65930_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65930_ 'exception)))) - (if (macro-length-mismatch-exception? _e65933_) - (macro-length-mismatch-exception-procedure _e65933_) - (let ((__tmp66843 - (let ((__tmp66844 + (unchecked-slot-ref _exn65927_ 'exception)))) + (if (macro-length-mismatch-exception? _e65930_) + (macro-length-mismatch-exception-procedure _e65930_) + (let ((__tmp66840 + (let ((__tmp66841 (let () (declare (not safe)) - (cons _e65933_ '())))) + (cons _e65930_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp66844)))) + __tmp66841)))) (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - __tmp66843)))) - (if (macro-length-mismatch-exception? _exn65930_) - (macro-length-mismatch-exception-procedure _exn65930_) - (let ((__tmp66841 - (let ((__tmp66842 + __tmp66840)))) + (if (macro-length-mismatch-exception? _exn65927_) + (macro-length-mismatch-exception-procedure _exn65927_) + (let ((__tmp66838 + (let ((__tmp66839 (let () (declare (not safe)) - (cons _exn65930_ '())))) + (cons _exn65927_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp66842)))) + __tmp66839)))) (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - __tmp66841)))))) + __tmp66838)))))) (define mailbox-receive-timeout-exception? - (lambda (_exn65926_) + (lambda (_exn65923_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65926_)) - (let ((_e65928_ + (class-instance? RuntimeException::t _exn65923_)) + (let ((_e65925_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65926_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _e65928_)) - (macro-mailbox-receive-timeout-exception? _exn65926_)))) + (unchecked-slot-ref _exn65923_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _e65925_)) + (macro-mailbox-receive-timeout-exception? _exn65923_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_exn65922_) + (lambda (_exn65919_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65922_)) - (let ((_e65924_ + (class-instance? RuntimeException::t _exn65919_)) + (let ((_e65921_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65922_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e65924_) - (macro-mailbox-receive-timeout-exception-arguments _e65924_) - (let ((__tmp66847 - (let ((__tmp66848 + (unchecked-slot-ref _exn65919_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e65921_) + (macro-mailbox-receive-timeout-exception-arguments _e65921_) + (let ((__tmp66844 + (let ((__tmp66845 (let () (declare (not safe)) - (cons _e65924_ '())))) + (cons _e65921_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp66848)))) + __tmp66845)))) (declare (not safe)) (error '"not an instance" 'mailbox-receive-timeout-exception? - __tmp66847)))) - (if (macro-mailbox-receive-timeout-exception? _exn65922_) - (macro-mailbox-receive-timeout-exception-arguments _exn65922_) - (let ((__tmp66845 - (let ((__tmp66846 + __tmp66844)))) + (if (macro-mailbox-receive-timeout-exception? _exn65919_) + (macro-mailbox-receive-timeout-exception-arguments _exn65919_) + (let ((__tmp66842 + (let ((__tmp66843 (let () (declare (not safe)) - (cons _exn65922_ '())))) + (cons _exn65919_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp66846)))) + __tmp66843)))) (declare (not safe)) (error '"not an instance" 'mailbox-receive-timeout-exception? - __tmp66845)))))) + __tmp66842)))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_exn65916_) + (lambda (_exn65913_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65916_)) - (let ((_e65919_ + (class-instance? RuntimeException::t _exn65913_)) + (let ((_e65916_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65916_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e65919_) - (macro-mailbox-receive-timeout-exception-procedure _e65919_) - (let ((__tmp66851 - (let ((__tmp66852 + (unchecked-slot-ref _exn65913_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e65916_) + (macro-mailbox-receive-timeout-exception-procedure _e65916_) + (let ((__tmp66848 + (let ((__tmp66849 (let () (declare (not safe)) - (cons _e65919_ '())))) + (cons _e65916_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp66852)))) + __tmp66849)))) (declare (not safe)) (error '"not an instance" 'mailbox-receive-timeout-exception? - __tmp66851)))) - (if (macro-mailbox-receive-timeout-exception? _exn65916_) - (macro-mailbox-receive-timeout-exception-procedure _exn65916_) - (let ((__tmp66849 - (let ((__tmp66850 + __tmp66848)))) + (if (macro-mailbox-receive-timeout-exception? _exn65913_) + (macro-mailbox-receive-timeout-exception-procedure _exn65913_) + (let ((__tmp66846 + (let ((__tmp66847 (let () (declare (not safe)) - (cons _exn65916_ '())))) + (cons _exn65913_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp66850)))) + __tmp66847)))) (declare (not safe)) (error '"not an instance" 'mailbox-receive-timeout-exception? - __tmp66849)))))) + __tmp66846)))))) (define module-not-found-exception? - (lambda (_exn65912_) + (lambda (_exn65909_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65912_)) - (let ((_e65914_ + (class-instance? RuntimeException::t _exn65909_)) + (let ((_e65911_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65912_ 'exception)))) - (macro-module-not-found-exception? _e65914_)) - (macro-module-not-found-exception? _exn65912_)))) + (unchecked-slot-ref _exn65909_ 'exception)))) + (macro-module-not-found-exception? _e65911_)) + (macro-module-not-found-exception? _exn65909_)))) (define module-not-found-exception-arguments - (lambda (_exn65908_) + (lambda (_exn65905_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65908_)) - (let ((_e65910_ + (class-instance? RuntimeException::t _exn65905_)) + (let ((_e65907_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65908_ 'exception)))) - (if (macro-module-not-found-exception? _e65910_) - (macro-module-not-found-exception-arguments _e65910_) - (let ((__tmp66855 - (let ((__tmp66856 + (unchecked-slot-ref _exn65905_ 'exception)))) + (if (macro-module-not-found-exception? _e65907_) + (macro-module-not-found-exception-arguments _e65907_) + (let ((__tmp66852 + (let ((__tmp66853 (let () (declare (not safe)) - (cons _e65910_ '())))) + (cons _e65907_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp66856)))) + __tmp66853)))) (declare (not safe)) (error '"not an instance" 'module-not-found-exception? - __tmp66855)))) - (if (macro-module-not-found-exception? _exn65908_) - (macro-module-not-found-exception-arguments _exn65908_) - (let ((__tmp66853 - (let ((__tmp66854 + __tmp66852)))) + (if (macro-module-not-found-exception? _exn65905_) + (macro-module-not-found-exception-arguments _exn65905_) + (let ((__tmp66850 + (let ((__tmp66851 (let () (declare (not safe)) - (cons _exn65908_ '())))) + (cons _exn65905_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp66854)))) + __tmp66851)))) (declare (not safe)) (error '"not an instance" 'module-not-found-exception? - __tmp66853)))))) + __tmp66850)))))) (define module-not-found-exception-procedure - (lambda (_exn65902_) + (lambda (_exn65899_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65902_)) - (let ((_e65905_ + (class-instance? RuntimeException::t _exn65899_)) + (let ((_e65902_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65902_ 'exception)))) - (if (macro-module-not-found-exception? _e65905_) - (macro-module-not-found-exception-procedure _e65905_) - (let ((__tmp66859 - (let ((__tmp66860 + (unchecked-slot-ref _exn65899_ 'exception)))) + (if (macro-module-not-found-exception? _e65902_) + (macro-module-not-found-exception-procedure _e65902_) + (let ((__tmp66856 + (let ((__tmp66857 (let () (declare (not safe)) - (cons _e65905_ '())))) + (cons _e65902_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp66860)))) + __tmp66857)))) (declare (not safe)) (error '"not an instance" 'module-not-found-exception? - __tmp66859)))) - (if (macro-module-not-found-exception? _exn65902_) - (macro-module-not-found-exception-procedure _exn65902_) - (let ((__tmp66857 - (let ((__tmp66858 + __tmp66856)))) + (if (macro-module-not-found-exception? _exn65899_) + (macro-module-not-found-exception-procedure _exn65899_) + (let ((__tmp66854 + (let ((__tmp66855 (let () (declare (not safe)) - (cons _exn65902_ '())))) + (cons _exn65899_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp66858)))) + __tmp66855)))) (declare (not safe)) (error '"not an instance" 'module-not-found-exception? - __tmp66857)))))) + __tmp66854)))))) (define multiple-c-return-exception? - (lambda (_exn65896_) + (lambda (_exn65893_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65896_)) - (let ((_e65899_ + (class-instance? RuntimeException::t _exn65893_)) + (let ((_e65896_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65896_ 'exception)))) - (macro-multiple-c-return-exception? _e65899_)) - (macro-multiple-c-return-exception? _exn65896_)))) + (unchecked-slot-ref _exn65893_ 'exception)))) + (macro-multiple-c-return-exception? _e65896_)) + (macro-multiple-c-return-exception? _exn65893_)))) (define no-such-file-or-directory-exception? - (lambda (_exn65892_) + (lambda (_exn65889_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65892_)) - (let ((_e65894_ + (class-instance? RuntimeException::t _exn65889_)) + (let ((_e65891_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65892_ 'exception)))) - (macro-no-such-file-or-directory-exception? _e65894_)) - (macro-no-such-file-or-directory-exception? _exn65892_)))) + (unchecked-slot-ref _exn65889_ 'exception)))) + (macro-no-such-file-or-directory-exception? _e65891_)) + (macro-no-such-file-or-directory-exception? _exn65889_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_exn65888_) + (lambda (_exn65885_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65888_)) - (let ((_e65890_ + (class-instance? RuntimeException::t _exn65885_)) + (let ((_e65887_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65888_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e65890_) + (unchecked-slot-ref _exn65885_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e65887_) (macro-no-such-file-or-directory-exception-arguments - _e65890_) - (let ((__tmp66863 - (let ((__tmp66864 + _e65887_) + (let ((__tmp66860 + (let ((__tmp66861 (let () (declare (not safe)) - (cons _e65890_ '())))) + (cons _e65887_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp66864)))) + __tmp66861)))) (declare (not safe)) (error '"not an instance" 'no-such-file-or-directory-exception? - __tmp66863)))) - (if (macro-no-such-file-or-directory-exception? _exn65888_) + __tmp66860)))) + (if (macro-no-such-file-or-directory-exception? _exn65885_) (macro-no-such-file-or-directory-exception-arguments - _exn65888_) - (let ((__tmp66861 - (let ((__tmp66862 + _exn65885_) + (let ((__tmp66858 + (let ((__tmp66859 (let () (declare (not safe)) - (cons _exn65888_ '())))) + (cons _exn65885_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp66862)))) + __tmp66859)))) (declare (not safe)) (error '"not an instance" 'no-such-file-or-directory-exception? - __tmp66861)))))) + __tmp66858)))))) (define no-such-file-or-directory-exception-procedure - (lambda (_exn65882_) + (lambda (_exn65879_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65882_)) - (let ((_e65885_ + (class-instance? RuntimeException::t _exn65879_)) + (let ((_e65882_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65882_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e65885_) + (unchecked-slot-ref _exn65879_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e65882_) (macro-no-such-file-or-directory-exception-procedure - _e65885_) - (let ((__tmp66867 - (let ((__tmp66868 + _e65882_) + (let ((__tmp66864 + (let ((__tmp66865 (let () (declare (not safe)) - (cons _e65885_ '())))) + (cons _e65882_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp66868)))) + __tmp66865)))) (declare (not safe)) (error '"not an instance" 'no-such-file-or-directory-exception? - __tmp66867)))) - (if (macro-no-such-file-or-directory-exception? _exn65882_) + __tmp66864)))) + (if (macro-no-such-file-or-directory-exception? _exn65879_) (macro-no-such-file-or-directory-exception-procedure - _exn65882_) - (let ((__tmp66865 - (let ((__tmp66866 + _exn65879_) + (let ((__tmp66862 + (let ((__tmp66863 (let () (declare (not safe)) - (cons _exn65882_ '())))) + (cons _exn65879_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp66866)))) + __tmp66863)))) (declare (not safe)) (error '"not an instance" 'no-such-file-or-directory-exception? - __tmp66865)))))) + __tmp66862)))))) (define noncontinuable-exception? - (lambda (_exn65878_) + (lambda (_exn65875_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65878_)) - (let ((_e65880_ + (class-instance? RuntimeException::t _exn65875_)) + (let ((_e65877_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65878_ 'exception)))) - (macro-noncontinuable-exception? _e65880_)) - (macro-noncontinuable-exception? _exn65878_)))) + (unchecked-slot-ref _exn65875_ 'exception)))) + (macro-noncontinuable-exception? _e65877_)) + (macro-noncontinuable-exception? _exn65875_)))) (define noncontinuable-exception-reason - (lambda (_exn65872_) + (lambda (_exn65869_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65872_)) - (let ((_e65875_ + (class-instance? RuntimeException::t _exn65869_)) + (let ((_e65872_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65872_ 'exception)))) - (if (macro-noncontinuable-exception? _e65875_) - (macro-noncontinuable-exception-reason _e65875_) - (let ((__tmp66871 - (let ((__tmp66872 + (unchecked-slot-ref _exn65869_ 'exception)))) + (if (macro-noncontinuable-exception? _e65872_) + (macro-noncontinuable-exception-reason _e65872_) + (let ((__tmp66868 + (let ((__tmp66869 (let () (declare (not safe)) - (cons _e65875_ '())))) + (cons _e65872_ '())))) (declare (not safe)) (cons 'noncontinuable-exception-reason - __tmp66872)))) + __tmp66869)))) (declare (not safe)) (error '"not an instance" 'noncontinuable-exception? - __tmp66871)))) - (if (macro-noncontinuable-exception? _exn65872_) - (macro-noncontinuable-exception-reason _exn65872_) - (let ((__tmp66869 - (let ((__tmp66870 + __tmp66868)))) + (if (macro-noncontinuable-exception? _exn65869_) + (macro-noncontinuable-exception-reason _exn65869_) + (let ((__tmp66866 + (let ((__tmp66867 (let () (declare (not safe)) - (cons _exn65872_ '())))) + (cons _exn65869_ '())))) (declare (not safe)) - (cons 'noncontinuable-exception-reason __tmp66870)))) + (cons 'noncontinuable-exception-reason __tmp66867)))) (declare (not safe)) (error '"not an instance" 'noncontinuable-exception? - __tmp66869)))))) + __tmp66866)))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_exn65868_) + (lambda (_exn65865_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65868_)) - (let ((_e65870_ + (class-instance? RuntimeException::t _exn65865_)) + (let ((_e65867_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65868_ 'exception)))) - (macro-nonempty-input-port-character-buffer-exception? _e65870_)) + (unchecked-slot-ref _exn65865_ 'exception)))) + (macro-nonempty-input-port-character-buffer-exception? _e65867_)) (macro-nonempty-input-port-character-buffer-exception? - _exn65868_)))) + _exn65865_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_exn65864_) + (lambda (_exn65861_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65864_)) - (let ((_e65866_ + (class-instance? RuntimeException::t _exn65861_)) + (let ((_e65863_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65864_ 'exception)))) + (unchecked-slot-ref _exn65861_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e65866_) + _e65863_) (macro-nonempty-input-port-character-buffer-exception-arguments - _e65866_) - (let ((__tmp66875 - (let ((__tmp66876 + _e65863_) + (let ((__tmp66872 + (let ((__tmp66873 (let () (declare (not safe)) - (cons _e65866_ '())))) + (cons _e65863_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp66876)))) + __tmp66873)))) (declare (not safe)) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - __tmp66875)))) + __tmp66872)))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn65864_) + _exn65861_) (macro-nonempty-input-port-character-buffer-exception-arguments - _exn65864_) - (let ((__tmp66873 - (let ((__tmp66874 + _exn65861_) + (let ((__tmp66870 + (let ((__tmp66871 (let () (declare (not safe)) - (cons _exn65864_ '())))) + (cons _exn65861_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp66874)))) + __tmp66871)))) (declare (not safe)) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - __tmp66873)))))) + __tmp66870)))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_exn65858_) + (lambda (_exn65855_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65858_)) - (let ((_e65861_ + (class-instance? RuntimeException::t _exn65855_)) + (let ((_e65858_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65858_ 'exception)))) + (unchecked-slot-ref _exn65855_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e65861_) + _e65858_) (macro-nonempty-input-port-character-buffer-exception-procedure - _e65861_) - (let ((__tmp66879 - (let ((__tmp66880 + _e65858_) + (let ((__tmp66876 + (let ((__tmp66877 (let () (declare (not safe)) - (cons _e65861_ '())))) + (cons _e65858_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp66880)))) + __tmp66877)))) (declare (not safe)) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - __tmp66879)))) + __tmp66876)))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn65858_) + _exn65855_) (macro-nonempty-input-port-character-buffer-exception-procedure - _exn65858_) - (let ((__tmp66877 - (let ((__tmp66878 + _exn65855_) + (let ((__tmp66874 + (let ((__tmp66875 (let () (declare (not safe)) - (cons _exn65858_ '())))) + (cons _exn65855_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp66878)))) + __tmp66875)))) (declare (not safe)) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - __tmp66877)))))) + __tmp66874)))))) (define nonprocedure-operator-exception? - (lambda (_exn65854_) + (lambda (_exn65851_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65854_)) - (let ((_e65856_ + (class-instance? RuntimeException::t _exn65851_)) + (let ((_e65853_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65854_ 'exception)))) - (macro-nonprocedure-operator-exception? _e65856_)) - (macro-nonprocedure-operator-exception? _exn65854_)))) + (unchecked-slot-ref _exn65851_ 'exception)))) + (macro-nonprocedure-operator-exception? _e65853_)) + (macro-nonprocedure-operator-exception? _exn65851_)))) (define nonprocedure-operator-exception-arguments - (lambda (_exn65850_) + (lambda (_exn65847_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65850_)) - (let ((_e65852_ + (class-instance? RuntimeException::t _exn65847_)) + (let ((_e65849_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65850_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e65852_) - (macro-nonprocedure-operator-exception-arguments _e65852_) - (let ((__tmp66883 - (let ((__tmp66884 + (unchecked-slot-ref _exn65847_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e65849_) + (macro-nonprocedure-operator-exception-arguments _e65849_) + (let ((__tmp66880 + (let ((__tmp66881 (let () (declare (not safe)) - (cons _e65852_ '())))) + (cons _e65849_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp66884)))) + __tmp66881)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp66883)))) - (if (macro-nonprocedure-operator-exception? _exn65850_) - (macro-nonprocedure-operator-exception-arguments _exn65850_) - (let ((__tmp66881 - (let ((__tmp66882 + __tmp66880)))) + (if (macro-nonprocedure-operator-exception? _exn65847_) + (macro-nonprocedure-operator-exception-arguments _exn65847_) + (let ((__tmp66878 + (let ((__tmp66879 (let () (declare (not safe)) - (cons _exn65850_ '())))) + (cons _exn65847_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp66882)))) + __tmp66879)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp66881)))))) + __tmp66878)))))) (define nonprocedure-operator-exception-code - (lambda (_exn65846_) + (lambda (_exn65843_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65846_)) - (let ((_e65848_ + (class-instance? RuntimeException::t _exn65843_)) + (let ((_e65845_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65846_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e65848_) - (macro-nonprocedure-operator-exception-code _e65848_) - (let ((__tmp66887 - (let ((__tmp66888 + (unchecked-slot-ref _exn65843_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e65845_) + (macro-nonprocedure-operator-exception-code _e65845_) + (let ((__tmp66884 + (let ((__tmp66885 (let () (declare (not safe)) - (cons _e65848_ '())))) + (cons _e65845_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp66888)))) + __tmp66885)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp66887)))) - (if (macro-nonprocedure-operator-exception? _exn65846_) - (macro-nonprocedure-operator-exception-code _exn65846_) - (let ((__tmp66885 - (let ((__tmp66886 + __tmp66884)))) + (if (macro-nonprocedure-operator-exception? _exn65843_) + (macro-nonprocedure-operator-exception-code _exn65843_) + (let ((__tmp66882 + (let ((__tmp66883 (let () (declare (not safe)) - (cons _exn65846_ '())))) + (cons _exn65843_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp66886)))) + __tmp66883)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp66885)))))) + __tmp66882)))))) (define nonprocedure-operator-exception-operator - (lambda (_exn65842_) + (lambda (_exn65839_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65842_)) - (let ((_e65844_ + (class-instance? RuntimeException::t _exn65839_)) + (let ((_e65841_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65842_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e65844_) - (macro-nonprocedure-operator-exception-operator _e65844_) - (let ((__tmp66891 - (let ((__tmp66892 + (unchecked-slot-ref _exn65839_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e65841_) + (macro-nonprocedure-operator-exception-operator _e65841_) + (let ((__tmp66888 + (let ((__tmp66889 (let () (declare (not safe)) - (cons _e65844_ '())))) + (cons _e65841_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp66892)))) + __tmp66889)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp66891)))) - (if (macro-nonprocedure-operator-exception? _exn65842_) - (macro-nonprocedure-operator-exception-operator _exn65842_) - (let ((__tmp66889 - (let ((__tmp66890 + __tmp66888)))) + (if (macro-nonprocedure-operator-exception? _exn65839_) + (macro-nonprocedure-operator-exception-operator _exn65839_) + (let ((__tmp66886 + (let ((__tmp66887 (let () (declare (not safe)) - (cons _exn65842_ '())))) + (cons _exn65839_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp66890)))) + __tmp66887)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp66889)))))) + __tmp66886)))))) (define nonprocedure-operator-exception-rte - (lambda (_exn65836_) + (lambda (_exn65833_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65836_)) - (let ((_e65839_ + (class-instance? RuntimeException::t _exn65833_)) + (let ((_e65836_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65836_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e65839_) - (macro-nonprocedure-operator-exception-rte _e65839_) - (let ((__tmp66895 - (let ((__tmp66896 + (unchecked-slot-ref _exn65833_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e65836_) + (macro-nonprocedure-operator-exception-rte _e65836_) + (let ((__tmp66892 + (let ((__tmp66893 (let () (declare (not safe)) - (cons _e65839_ '())))) + (cons _e65836_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp66896)))) + __tmp66893)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp66895)))) - (if (macro-nonprocedure-operator-exception? _exn65836_) - (macro-nonprocedure-operator-exception-rte _exn65836_) - (let ((__tmp66893 - (let ((__tmp66894 + __tmp66892)))) + (if (macro-nonprocedure-operator-exception? _exn65833_) + (macro-nonprocedure-operator-exception-rte _exn65833_) + (let ((__tmp66890 + (let ((__tmp66891 (let () (declare (not safe)) - (cons _exn65836_ '())))) + (cons _exn65833_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp66894)))) + __tmp66891)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp66893)))))) + __tmp66890)))))) (define not-in-compilation-context-exception? - (lambda (_exn65832_) + (lambda (_exn65829_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65832_)) - (let ((_e65834_ + (class-instance? RuntimeException::t _exn65829_)) + (let ((_e65831_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65832_ 'exception)))) - (macro-not-in-compilation-context-exception? _e65834_)) - (macro-not-in-compilation-context-exception? _exn65832_)))) + (unchecked-slot-ref _exn65829_ 'exception)))) + (macro-not-in-compilation-context-exception? _e65831_)) + (macro-not-in-compilation-context-exception? _exn65829_)))) (define not-in-compilation-context-exception-arguments - (lambda (_exn65828_) + (lambda (_exn65825_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65828_)) - (let ((_e65830_ + (class-instance? RuntimeException::t _exn65825_)) + (let ((_e65827_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65828_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e65830_) + (unchecked-slot-ref _exn65825_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e65827_) (macro-not-in-compilation-context-exception-arguments - _e65830_) - (let ((__tmp66899 - (let ((__tmp66900 + _e65827_) + (let ((__tmp66896 + (let ((__tmp66897 (let () (declare (not safe)) - (cons _e65830_ '())))) + (cons _e65827_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp66900)))) + __tmp66897)))) (declare (not safe)) (error '"not an instance" 'not-in-compilation-context-exception? - __tmp66899)))) - (if (macro-not-in-compilation-context-exception? _exn65828_) + __tmp66896)))) + (if (macro-not-in-compilation-context-exception? _exn65825_) (macro-not-in-compilation-context-exception-arguments - _exn65828_) - (let ((__tmp66897 - (let ((__tmp66898 + _exn65825_) + (let ((__tmp66894 + (let ((__tmp66895 (let () (declare (not safe)) - (cons _exn65828_ '())))) + (cons _exn65825_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp66898)))) + __tmp66895)))) (declare (not safe)) (error '"not an instance" 'not-in-compilation-context-exception? - __tmp66897)))))) + __tmp66894)))))) (define not-in-compilation-context-exception-procedure - (lambda (_exn65822_) + (lambda (_exn65819_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65822_)) - (let ((_e65825_ + (class-instance? RuntimeException::t _exn65819_)) + (let ((_e65822_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65822_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e65825_) + (unchecked-slot-ref _exn65819_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e65822_) (macro-not-in-compilation-context-exception-procedure - _e65825_) - (let ((__tmp66903 - (let ((__tmp66904 + _e65822_) + (let ((__tmp66900 + (let ((__tmp66901 (let () (declare (not safe)) - (cons _e65825_ '())))) + (cons _e65822_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp66904)))) + __tmp66901)))) (declare (not safe)) (error '"not an instance" 'not-in-compilation-context-exception? - __tmp66903)))) - (if (macro-not-in-compilation-context-exception? _exn65822_) + __tmp66900)))) + (if (macro-not-in-compilation-context-exception? _exn65819_) (macro-not-in-compilation-context-exception-procedure - _exn65822_) - (let ((__tmp66901 - (let ((__tmp66902 + _exn65819_) + (let ((__tmp66898 + (let ((__tmp66899 (let () (declare (not safe)) - (cons _exn65822_ '())))) + (cons _exn65819_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp66902)))) + __tmp66899)))) (declare (not safe)) (error '"not an instance" 'not-in-compilation-context-exception? - __tmp66901)))))) + __tmp66898)))))) (define number-of-arguments-limit-exception? - (lambda (_exn65818_) + (lambda (_exn65815_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65818_)) - (let ((_e65820_ + (class-instance? RuntimeException::t _exn65815_)) + (let ((_e65817_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65818_ 'exception)))) - (macro-number-of-arguments-limit-exception? _e65820_)) - (macro-number-of-arguments-limit-exception? _exn65818_)))) + (unchecked-slot-ref _exn65815_ 'exception)))) + (macro-number-of-arguments-limit-exception? _e65817_)) + (macro-number-of-arguments-limit-exception? _exn65815_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_exn65814_) + (lambda (_exn65811_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65814_)) - (let ((_e65816_ + (class-instance? RuntimeException::t _exn65811_)) + (let ((_e65813_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65814_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e65816_) + (unchecked-slot-ref _exn65811_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e65813_) (macro-number-of-arguments-limit-exception-arguments - _e65816_) - (let ((__tmp66907 - (let ((__tmp66908 + _e65813_) + (let ((__tmp66904 + (let ((__tmp66905 (let () (declare (not safe)) - (cons _e65816_ '())))) + (cons _e65813_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp66908)))) + __tmp66905)))) (declare (not safe)) (error '"not an instance" 'number-of-arguments-limit-exception? - __tmp66907)))) - (if (macro-number-of-arguments-limit-exception? _exn65814_) + __tmp66904)))) + (if (macro-number-of-arguments-limit-exception? _exn65811_) (macro-number-of-arguments-limit-exception-arguments - _exn65814_) - (let ((__tmp66905 - (let ((__tmp66906 + _exn65811_) + (let ((__tmp66902 + (let ((__tmp66903 (let () (declare (not safe)) - (cons _exn65814_ '())))) + (cons _exn65811_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp66906)))) + __tmp66903)))) (declare (not safe)) (error '"not an instance" 'number-of-arguments-limit-exception? - __tmp66905)))))) + __tmp66902)))))) (define number-of-arguments-limit-exception-procedure - (lambda (_exn65808_) + (lambda (_exn65805_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65808_)) - (let ((_e65811_ + (class-instance? RuntimeException::t _exn65805_)) + (let ((_e65808_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65808_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e65811_) + (unchecked-slot-ref _exn65805_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e65808_) (macro-number-of-arguments-limit-exception-procedure - _e65811_) - (let ((__tmp66911 - (let ((__tmp66912 + _e65808_) + (let ((__tmp66908 + (let ((__tmp66909 (let () (declare (not safe)) - (cons _e65811_ '())))) + (cons _e65808_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp66912)))) + __tmp66909)))) (declare (not safe)) (error '"not an instance" 'number-of-arguments-limit-exception? - __tmp66911)))) - (if (macro-number-of-arguments-limit-exception? _exn65808_) + __tmp66908)))) + (if (macro-number-of-arguments-limit-exception? _exn65805_) (macro-number-of-arguments-limit-exception-procedure - _exn65808_) - (let ((__tmp66909 - (let ((__tmp66910 + _exn65805_) + (let ((__tmp66906 + (let ((__tmp66907 (let () (declare (not safe)) - (cons _exn65808_ '())))) + (cons _exn65805_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp66910)))) + __tmp66907)))) (declare (not safe)) (error '"not an instance" 'number-of-arguments-limit-exception? - __tmp66909)))))) + __tmp66906)))))) (define os-exception? - (lambda (_exn65804_) + (lambda (_exn65801_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65804_)) - (let ((_e65806_ + (class-instance? RuntimeException::t _exn65801_)) + (let ((_e65803_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65804_ 'exception)))) - (macro-os-exception? _e65806_)) - (macro-os-exception? _exn65804_)))) + (unchecked-slot-ref _exn65801_ 'exception)))) + (macro-os-exception? _e65803_)) + (macro-os-exception? _exn65801_)))) (define os-exception-arguments - (lambda (_exn65800_) + (lambda (_exn65797_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65800_)) - (let ((_e65802_ + (class-instance? RuntimeException::t _exn65797_)) + (let ((_e65799_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65800_ 'exception)))) - (if (macro-os-exception? _e65802_) - (macro-os-exception-arguments _e65802_) - (let ((__tmp66915 - (let ((__tmp66916 + (unchecked-slot-ref _exn65797_ 'exception)))) + (if (macro-os-exception? _e65799_) + (macro-os-exception-arguments _e65799_) + (let ((__tmp66912 + (let ((__tmp66913 (let () (declare (not safe)) - (cons _e65802_ '())))) + (cons _e65799_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp66916)))) + (cons 'os-exception-arguments __tmp66913)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp66915)))) - (if (macro-os-exception? _exn65800_) - (macro-os-exception-arguments _exn65800_) - (let ((__tmp66913 - (let ((__tmp66914 + (error '"not an instance" 'os-exception? __tmp66912)))) + (if (macro-os-exception? _exn65797_) + (macro-os-exception-arguments _exn65797_) + (let ((__tmp66910 + (let ((__tmp66911 (let () (declare (not safe)) - (cons _exn65800_ '())))) + (cons _exn65797_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp66914)))) + (cons 'os-exception-arguments __tmp66911)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp66913)))))) + (error '"not an instance" 'os-exception? __tmp66910)))))) (define os-exception-code - (lambda (_exn65796_) + (lambda (_exn65793_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65796_)) - (let ((_e65798_ + (class-instance? RuntimeException::t _exn65793_)) + (let ((_e65795_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65796_ 'exception)))) - (if (macro-os-exception? _e65798_) - (macro-os-exception-code _e65798_) - (let ((__tmp66919 - (let ((__tmp66920 + (unchecked-slot-ref _exn65793_ 'exception)))) + (if (macro-os-exception? _e65795_) + (macro-os-exception-code _e65795_) + (let ((__tmp66916 + (let ((__tmp66917 (let () (declare (not safe)) - (cons _e65798_ '())))) + (cons _e65795_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp66920)))) + (cons 'os-exception-code __tmp66917)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp66919)))) - (if (macro-os-exception? _exn65796_) - (macro-os-exception-code _exn65796_) - (let ((__tmp66917 - (let ((__tmp66918 + (error '"not an instance" 'os-exception? __tmp66916)))) + (if (macro-os-exception? _exn65793_) + (macro-os-exception-code _exn65793_) + (let ((__tmp66914 + (let ((__tmp66915 (let () (declare (not safe)) - (cons _exn65796_ '())))) + (cons _exn65793_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp66918)))) + (cons 'os-exception-code __tmp66915)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp66917)))))) + (error '"not an instance" 'os-exception? __tmp66914)))))) (define os-exception-message - (lambda (_exn65792_) + (lambda (_exn65789_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65792_)) - (let ((_e65794_ + (class-instance? RuntimeException::t _exn65789_)) + (let ((_e65791_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65792_ 'exception)))) - (if (macro-os-exception? _e65794_) - (macro-os-exception-message _e65794_) - (let ((__tmp66923 - (let ((__tmp66924 + (unchecked-slot-ref _exn65789_ 'exception)))) + (if (macro-os-exception? _e65791_) + (macro-os-exception-message _e65791_) + (let ((__tmp66920 + (let ((__tmp66921 (let () (declare (not safe)) - (cons _e65794_ '())))) + (cons _e65791_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp66924)))) + (cons 'os-exception-message __tmp66921)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp66923)))) - (if (macro-os-exception? _exn65792_) - (macro-os-exception-message _exn65792_) - (let ((__tmp66921 - (let ((__tmp66922 + (error '"not an instance" 'os-exception? __tmp66920)))) + (if (macro-os-exception? _exn65789_) + (macro-os-exception-message _exn65789_) + (let ((__tmp66918 + (let ((__tmp66919 (let () (declare (not safe)) - (cons _exn65792_ '())))) + (cons _exn65789_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp66922)))) + (cons 'os-exception-message __tmp66919)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp66921)))))) + (error '"not an instance" 'os-exception? __tmp66918)))))) (define os-exception-procedure - (lambda (_exn65786_) + (lambda (_exn65783_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65786_)) - (let ((_e65789_ + (class-instance? RuntimeException::t _exn65783_)) + (let ((_e65786_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65786_ 'exception)))) - (if (macro-os-exception? _e65789_) - (macro-os-exception-procedure _e65789_) - (let ((__tmp66927 - (let ((__tmp66928 + (unchecked-slot-ref _exn65783_ 'exception)))) + (if (macro-os-exception? _e65786_) + (macro-os-exception-procedure _e65786_) + (let ((__tmp66924 + (let ((__tmp66925 (let () (declare (not safe)) - (cons _e65789_ '())))) + (cons _e65786_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp66928)))) + (cons 'os-exception-procedure __tmp66925)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp66927)))) - (if (macro-os-exception? _exn65786_) - (macro-os-exception-procedure _exn65786_) - (let ((__tmp66925 - (let ((__tmp66926 + (error '"not an instance" 'os-exception? __tmp66924)))) + (if (macro-os-exception? _exn65783_) + (macro-os-exception-procedure _exn65783_) + (let ((__tmp66922 + (let ((__tmp66923 (let () (declare (not safe)) - (cons _exn65786_ '())))) + (cons _exn65783_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp66926)))) + (cons 'os-exception-procedure __tmp66923)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp66925)))))) + (error '"not an instance" 'os-exception? __tmp66922)))))) (define permission-denied-exception? - (lambda (_exn65782_) + (lambda (_exn65779_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65782_)) - (let ((_e65784_ + (class-instance? RuntimeException::t _exn65779_)) + (let ((_e65781_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65782_ 'exception)))) - (macro-permission-denied-exception? _e65784_)) - (macro-permission-denied-exception? _exn65782_)))) + (unchecked-slot-ref _exn65779_ 'exception)))) + (macro-permission-denied-exception? _e65781_)) + (macro-permission-denied-exception? _exn65779_)))) (define permission-denied-exception-arguments - (lambda (_exn65778_) + (lambda (_exn65775_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65778_)) - (let ((_e65780_ + (class-instance? RuntimeException::t _exn65775_)) + (let ((_e65777_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65778_ 'exception)))) - (if (macro-permission-denied-exception? _e65780_) - (macro-permission-denied-exception-arguments _e65780_) - (let ((__tmp66931 - (let ((__tmp66932 + (unchecked-slot-ref _exn65775_ 'exception)))) + (if (macro-permission-denied-exception? _e65777_) + (macro-permission-denied-exception-arguments _e65777_) + (let ((__tmp66928 + (let ((__tmp66929 (let () (declare (not safe)) - (cons _e65780_ '())))) + (cons _e65777_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp66932)))) + __tmp66929)))) (declare (not safe)) (error '"not an instance" 'permission-denied-exception? - __tmp66931)))) - (if (macro-permission-denied-exception? _exn65778_) - (macro-permission-denied-exception-arguments _exn65778_) - (let ((__tmp66929 - (let ((__tmp66930 + __tmp66928)))) + (if (macro-permission-denied-exception? _exn65775_) + (macro-permission-denied-exception-arguments _exn65775_) + (let ((__tmp66926 + (let ((__tmp66927 (let () (declare (not safe)) - (cons _exn65778_ '())))) + (cons _exn65775_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp66930)))) + __tmp66927)))) (declare (not safe)) (error '"not an instance" 'permission-denied-exception? - __tmp66929)))))) + __tmp66926)))))) (define permission-denied-exception-procedure - (lambda (_exn65772_) + (lambda (_exn65769_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65772_)) - (let ((_e65775_ + (class-instance? RuntimeException::t _exn65769_)) + (let ((_e65772_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65772_ 'exception)))) - (if (macro-permission-denied-exception? _e65775_) - (macro-permission-denied-exception-procedure _e65775_) - (let ((__tmp66935 - (let ((__tmp66936 + (unchecked-slot-ref _exn65769_ 'exception)))) + (if (macro-permission-denied-exception? _e65772_) + (macro-permission-denied-exception-procedure _e65772_) + (let ((__tmp66932 + (let ((__tmp66933 (let () (declare (not safe)) - (cons _e65775_ '())))) + (cons _e65772_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp66936)))) + __tmp66933)))) (declare (not safe)) (error '"not an instance" 'permission-denied-exception? - __tmp66935)))) - (if (macro-permission-denied-exception? _exn65772_) - (macro-permission-denied-exception-procedure _exn65772_) - (let ((__tmp66933 - (let ((__tmp66934 + __tmp66932)))) + (if (macro-permission-denied-exception? _exn65769_) + (macro-permission-denied-exception-procedure _exn65769_) + (let ((__tmp66930 + (let ((__tmp66931 (let () (declare (not safe)) - (cons _exn65772_ '())))) + (cons _exn65769_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp66934)))) + __tmp66931)))) (declare (not safe)) (error '"not an instance" 'permission-denied-exception? - __tmp66933)))))) + __tmp66930)))))) (define range-exception? - (lambda (_exn65768_) + (lambda (_exn65765_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65768_)) - (let ((_e65770_ + (class-instance? RuntimeException::t _exn65765_)) + (let ((_e65767_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65768_ 'exception)))) - (macro-range-exception? _e65770_)) - (macro-range-exception? _exn65768_)))) + (unchecked-slot-ref _exn65765_ 'exception)))) + (macro-range-exception? _e65767_)) + (macro-range-exception? _exn65765_)))) (define range-exception-arg-id - (lambda (_exn65764_) + (lambda (_exn65761_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65764_)) - (let ((_e65766_ + (class-instance? RuntimeException::t _exn65761_)) + (let ((_e65763_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65764_ 'exception)))) - (if (macro-range-exception? _e65766_) - (macro-range-exception-arg-id _e65766_) - (let ((__tmp66939 - (let ((__tmp66940 + (unchecked-slot-ref _exn65761_ 'exception)))) + (if (macro-range-exception? _e65763_) + (macro-range-exception-arg-id _e65763_) + (let ((__tmp66936 + (let ((__tmp66937 (let () (declare (not safe)) - (cons _e65766_ '())))) + (cons _e65763_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp66940)))) + (cons 'range-exception-arg-id __tmp66937)))) (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp66939)))) - (if (macro-range-exception? _exn65764_) - (macro-range-exception-arg-id _exn65764_) - (let ((__tmp66937 - (let ((__tmp66938 + (error '"not an instance" 'range-exception? __tmp66936)))) + (if (macro-range-exception? _exn65761_) + (macro-range-exception-arg-id _exn65761_) + (let ((__tmp66934 + (let ((__tmp66935 (let () (declare (not safe)) - (cons _exn65764_ '())))) + (cons _exn65761_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp66938)))) + (cons 'range-exception-arg-id __tmp66935)))) (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp66937)))))) + (error '"not an instance" 'range-exception? __tmp66934)))))) (define range-exception-arguments - (lambda (_exn65760_) + (lambda (_exn65757_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65760_)) - (let ((_e65762_ + (class-instance? RuntimeException::t _exn65757_)) + (let ((_e65759_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65760_ 'exception)))) - (if (macro-range-exception? _e65762_) - (macro-range-exception-arguments _e65762_) - (let ((__tmp66943 - (let ((__tmp66944 + (unchecked-slot-ref _exn65757_ 'exception)))) + (if (macro-range-exception? _e65759_) + (macro-range-exception-arguments _e65759_) + (let ((__tmp66940 + (let ((__tmp66941 (let () (declare (not safe)) - (cons _e65762_ '())))) + (cons _e65759_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp66944)))) + (cons 'range-exception-arguments __tmp66941)))) (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp66943)))) - (if (macro-range-exception? _exn65760_) - (macro-range-exception-arguments _exn65760_) - (let ((__tmp66941 - (let ((__tmp66942 + (error '"not an instance" 'range-exception? __tmp66940)))) + (if (macro-range-exception? _exn65757_) + (macro-range-exception-arguments _exn65757_) + (let ((__tmp66938 + (let ((__tmp66939 (let () (declare (not safe)) - (cons _exn65760_ '())))) + (cons _exn65757_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp66942)))) + (cons 'range-exception-arguments __tmp66939)))) (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp66941)))))) + (error '"not an instance" 'range-exception? __tmp66938)))))) (define range-exception-procedure - (lambda (_exn65754_) + (lambda (_exn65751_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65754_)) - (let ((_e65757_ + (class-instance? RuntimeException::t _exn65751_)) + (let ((_e65754_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65754_ 'exception)))) - (if (macro-range-exception? _e65757_) - (macro-range-exception-procedure _e65757_) - (let ((__tmp66947 - (let ((__tmp66948 + (unchecked-slot-ref _exn65751_ 'exception)))) + (if (macro-range-exception? _e65754_) + (macro-range-exception-procedure _e65754_) + (let ((__tmp66944 + (let ((__tmp66945 (let () (declare (not safe)) - (cons _e65757_ '())))) + (cons _e65754_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp66948)))) + (cons 'range-exception-procedure __tmp66945)))) (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp66947)))) - (if (macro-range-exception? _exn65754_) - (macro-range-exception-procedure _exn65754_) - (let ((__tmp66945 - (let ((__tmp66946 + (error '"not an instance" 'range-exception? __tmp66944)))) + (if (macro-range-exception? _exn65751_) + (macro-range-exception-procedure _exn65751_) + (let ((__tmp66942 + (let ((__tmp66943 (let () (declare (not safe)) - (cons _exn65754_ '())))) + (cons _exn65751_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp66946)))) + (cons 'range-exception-procedure __tmp66943)))) (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp66945)))))) + (error '"not an instance" 'range-exception? __tmp66942)))))) (define rpc-remote-error-exception? - (lambda (_exn65750_) + (lambda (_exn65747_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65750_)) - (let ((_e65752_ + (class-instance? RuntimeException::t _exn65747_)) + (let ((_e65749_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65750_ 'exception)))) - (macro-rpc-remote-error-exception? _e65752_)) - (macro-rpc-remote-error-exception? _exn65750_)))) + (unchecked-slot-ref _exn65747_ 'exception)))) + (macro-rpc-remote-error-exception? _e65749_)) + (macro-rpc-remote-error-exception? _exn65747_)))) (define rpc-remote-error-exception-arguments - (lambda (_exn65746_) + (lambda (_exn65743_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65746_)) - (let ((_e65748_ + (class-instance? RuntimeException::t _exn65743_)) + (let ((_e65745_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65746_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e65748_) - (macro-rpc-remote-error-exception-arguments _e65748_) - (let ((__tmp66951 - (let ((__tmp66952 + (unchecked-slot-ref _exn65743_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e65745_) + (macro-rpc-remote-error-exception-arguments _e65745_) + (let ((__tmp66948 + (let ((__tmp66949 (let () (declare (not safe)) - (cons _e65748_ '())))) + (cons _e65745_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp66952)))) + __tmp66949)))) (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - __tmp66951)))) - (if (macro-rpc-remote-error-exception? _exn65746_) - (macro-rpc-remote-error-exception-arguments _exn65746_) - (let ((__tmp66949 - (let ((__tmp66950 + __tmp66948)))) + (if (macro-rpc-remote-error-exception? _exn65743_) + (macro-rpc-remote-error-exception-arguments _exn65743_) + (let ((__tmp66946 + (let ((__tmp66947 (let () (declare (not safe)) - (cons _exn65746_ '())))) + (cons _exn65743_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp66950)))) + __tmp66947)))) (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - __tmp66949)))))) + __tmp66946)))))) (define rpc-remote-error-exception-message - (lambda (_exn65742_) + (lambda (_exn65739_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65742_)) - (let ((_e65744_ + (class-instance? RuntimeException::t _exn65739_)) + (let ((_e65741_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65742_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e65744_) - (macro-rpc-remote-error-exception-message _e65744_) - (let ((__tmp66955 - (let ((__tmp66956 + (unchecked-slot-ref _exn65739_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e65741_) + (macro-rpc-remote-error-exception-message _e65741_) + (let ((__tmp66952 + (let ((__tmp66953 (let () (declare (not safe)) - (cons _e65744_ '())))) + (cons _e65741_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp66956)))) + __tmp66953)))) (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - __tmp66955)))) - (if (macro-rpc-remote-error-exception? _exn65742_) - (macro-rpc-remote-error-exception-message _exn65742_) - (let ((__tmp66953 - (let ((__tmp66954 + __tmp66952)))) + (if (macro-rpc-remote-error-exception? _exn65739_) + (macro-rpc-remote-error-exception-message _exn65739_) + (let ((__tmp66950 + (let ((__tmp66951 (let () (declare (not safe)) - (cons _exn65742_ '())))) + (cons _exn65739_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp66954)))) + __tmp66951)))) (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - __tmp66953)))))) + __tmp66950)))))) (define rpc-remote-error-exception-procedure - (lambda (_exn65736_) + (lambda (_exn65733_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65736_)) - (let ((_e65739_ + (class-instance? RuntimeException::t _exn65733_)) + (let ((_e65736_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65736_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e65739_) - (macro-rpc-remote-error-exception-procedure _e65739_) - (let ((__tmp66959 - (let ((__tmp66960 + (unchecked-slot-ref _exn65733_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e65736_) + (macro-rpc-remote-error-exception-procedure _e65736_) + (let ((__tmp66956 + (let ((__tmp66957 (let () (declare (not safe)) - (cons _e65739_ '())))) + (cons _e65736_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp66960)))) + __tmp66957)))) (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - __tmp66959)))) - (if (macro-rpc-remote-error-exception? _exn65736_) - (macro-rpc-remote-error-exception-procedure _exn65736_) - (let ((__tmp66957 - (let ((__tmp66958 + __tmp66956)))) + (if (macro-rpc-remote-error-exception? _exn65733_) + (macro-rpc-remote-error-exception-procedure _exn65733_) + (let ((__tmp66954 + (let ((__tmp66955 (let () (declare (not safe)) - (cons _exn65736_ '())))) + (cons _exn65733_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp66958)))) + __tmp66955)))) (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - __tmp66957)))))) + __tmp66954)))))) (define scheduler-exception? - (lambda (_exn65732_) + (lambda (_exn65729_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65732_)) - (let ((_e65734_ + (class-instance? RuntimeException::t _exn65729_)) + (let ((_e65731_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65732_ 'exception)))) - (macro-scheduler-exception? _e65734_)) - (macro-scheduler-exception? _exn65732_)))) + (unchecked-slot-ref _exn65729_ 'exception)))) + (macro-scheduler-exception? _e65731_)) + (macro-scheduler-exception? _exn65729_)))) (define scheduler-exception-reason - (lambda (_exn65726_) + (lambda (_exn65723_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65726_)) - (let ((_e65729_ + (class-instance? RuntimeException::t _exn65723_)) + (let ((_e65726_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65726_ 'exception)))) - (if (macro-scheduler-exception? _e65729_) - (macro-scheduler-exception-reason _e65729_) - (let ((__tmp66963 - (let ((__tmp66964 + (unchecked-slot-ref _exn65723_ 'exception)))) + (if (macro-scheduler-exception? _e65726_) + (macro-scheduler-exception-reason _e65726_) + (let ((__tmp66960 + (let ((__tmp66961 (let () (declare (not safe)) - (cons _e65729_ '())))) + (cons _e65726_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp66964)))) + (cons 'scheduler-exception-reason __tmp66961)))) (declare (not safe)) (error '"not an instance" 'scheduler-exception? - __tmp66963)))) - (if (macro-scheduler-exception? _exn65726_) - (macro-scheduler-exception-reason _exn65726_) - (let ((__tmp66961 - (let ((__tmp66962 + __tmp66960)))) + (if (macro-scheduler-exception? _exn65723_) + (macro-scheduler-exception-reason _exn65723_) + (let ((__tmp66958 + (let ((__tmp66959 (let () (declare (not safe)) - (cons _exn65726_ '())))) + (cons _exn65723_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp66962)))) + (cons 'scheduler-exception-reason __tmp66959)))) (declare (not safe)) (error '"not an instance" 'scheduler-exception? - __tmp66961)))))) + __tmp66958)))))) (define sfun-conversion-exception? - (lambda (_exn65722_) + (lambda (_exn65719_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65722_)) - (let ((_e65724_ + (class-instance? RuntimeException::t _exn65719_)) + (let ((_e65721_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65722_ 'exception)))) - (macro-sfun-conversion-exception? _e65724_)) - (macro-sfun-conversion-exception? _exn65722_)))) + (unchecked-slot-ref _exn65719_ 'exception)))) + (macro-sfun-conversion-exception? _e65721_)) + (macro-sfun-conversion-exception? _exn65719_)))) (define sfun-conversion-exception-arguments - (lambda (_exn65718_) + (lambda (_exn65715_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65718_)) - (let ((_e65720_ + (class-instance? RuntimeException::t _exn65715_)) + (let ((_e65717_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65718_ 'exception)))) - (if (macro-sfun-conversion-exception? _e65720_) - (macro-sfun-conversion-exception-arguments _e65720_) - (let ((__tmp66967 - (let ((__tmp66968 + (unchecked-slot-ref _exn65715_ 'exception)))) + (if (macro-sfun-conversion-exception? _e65717_) + (macro-sfun-conversion-exception-arguments _e65717_) + (let ((__tmp66964 + (let ((__tmp66965 (let () (declare (not safe)) - (cons _e65720_ '())))) + (cons _e65717_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp66968)))) + __tmp66965)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp66967)))) - (if (macro-sfun-conversion-exception? _exn65718_) - (macro-sfun-conversion-exception-arguments _exn65718_) - (let ((__tmp66965 - (let ((__tmp66966 + __tmp66964)))) + (if (macro-sfun-conversion-exception? _exn65715_) + (macro-sfun-conversion-exception-arguments _exn65715_) + (let ((__tmp66962 + (let ((__tmp66963 (let () (declare (not safe)) - (cons _exn65718_ '())))) + (cons _exn65715_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp66966)))) + __tmp66963)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp66965)))))) + __tmp66962)))))) (define sfun-conversion-exception-code - (lambda (_exn65714_) + (lambda (_exn65711_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65714_)) - (let ((_e65716_ + (class-instance? RuntimeException::t _exn65711_)) + (let ((_e65713_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65714_ 'exception)))) - (if (macro-sfun-conversion-exception? _e65716_) - (macro-sfun-conversion-exception-code _e65716_) - (let ((__tmp66971 - (let ((__tmp66972 + (unchecked-slot-ref _exn65711_ 'exception)))) + (if (macro-sfun-conversion-exception? _e65713_) + (macro-sfun-conversion-exception-code _e65713_) + (let ((__tmp66968 + (let ((__tmp66969 (let () (declare (not safe)) - (cons _e65716_ '())))) + (cons _e65713_ '())))) (declare (not safe)) - (cons 'sfun-conversion-exception-code __tmp66972)))) + (cons 'sfun-conversion-exception-code __tmp66969)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp66971)))) - (if (macro-sfun-conversion-exception? _exn65714_) - (macro-sfun-conversion-exception-code _exn65714_) - (let ((__tmp66969 - (let ((__tmp66970 + __tmp66968)))) + (if (macro-sfun-conversion-exception? _exn65711_) + (macro-sfun-conversion-exception-code _exn65711_) + (let ((__tmp66966 + (let ((__tmp66967 (let () (declare (not safe)) - (cons _exn65714_ '())))) + (cons _exn65711_ '())))) (declare (not safe)) - (cons 'sfun-conversion-exception-code __tmp66970)))) + (cons 'sfun-conversion-exception-code __tmp66967)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp66969)))))) + __tmp66966)))))) (define sfun-conversion-exception-message - (lambda (_exn65710_) + (lambda (_exn65707_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65710_)) - (let ((_e65712_ + (class-instance? RuntimeException::t _exn65707_)) + (let ((_e65709_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65710_ 'exception)))) - (if (macro-sfun-conversion-exception? _e65712_) - (macro-sfun-conversion-exception-message _e65712_) - (let ((__tmp66975 - (let ((__tmp66976 + (unchecked-slot-ref _exn65707_ 'exception)))) + (if (macro-sfun-conversion-exception? _e65709_) + (macro-sfun-conversion-exception-message _e65709_) + (let ((__tmp66972 + (let ((__tmp66973 (let () (declare (not safe)) - (cons _e65712_ '())))) + (cons _e65709_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp66976)))) + __tmp66973)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp66975)))) - (if (macro-sfun-conversion-exception? _exn65710_) - (macro-sfun-conversion-exception-message _exn65710_) - (let ((__tmp66973 - (let ((__tmp66974 + __tmp66972)))) + (if (macro-sfun-conversion-exception? _exn65707_) + (macro-sfun-conversion-exception-message _exn65707_) + (let ((__tmp66970 + (let ((__tmp66971 (let () (declare (not safe)) - (cons _exn65710_ '())))) + (cons _exn65707_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp66974)))) + __tmp66971)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp66973)))))) + __tmp66970)))))) (define sfun-conversion-exception-procedure - (lambda (_exn65704_) + (lambda (_exn65701_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65704_)) - (let ((_e65707_ + (class-instance? RuntimeException::t _exn65701_)) + (let ((_e65704_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65704_ 'exception)))) - (if (macro-sfun-conversion-exception? _e65707_) - (macro-sfun-conversion-exception-procedure _e65707_) - (let ((__tmp66979 - (let ((__tmp66980 + (unchecked-slot-ref _exn65701_ 'exception)))) + (if (macro-sfun-conversion-exception? _e65704_) + (macro-sfun-conversion-exception-procedure _e65704_) + (let ((__tmp66976 + (let ((__tmp66977 (let () (declare (not safe)) - (cons _e65707_ '())))) + (cons _e65704_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp66980)))) + __tmp66977)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp66979)))) - (if (macro-sfun-conversion-exception? _exn65704_) - (macro-sfun-conversion-exception-procedure _exn65704_) - (let ((__tmp66977 - (let ((__tmp66978 + __tmp66976)))) + (if (macro-sfun-conversion-exception? _exn65701_) + (macro-sfun-conversion-exception-procedure _exn65701_) + (let ((__tmp66974 + (let ((__tmp66975 (let () (declare (not safe)) - (cons _exn65704_ '())))) + (cons _exn65701_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp66978)))) + __tmp66975)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp66977)))))) + __tmp66974)))))) (define stack-overflow-exception? - (lambda (_exn65698_) + (lambda (_exn65695_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65698_)) - (let ((_e65701_ + (class-instance? RuntimeException::t _exn65695_)) + (let ((_e65698_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65698_ 'exception)))) - (macro-stack-overflow-exception? _e65701_)) - (macro-stack-overflow-exception? _exn65698_)))) + (unchecked-slot-ref _exn65695_ 'exception)))) + (macro-stack-overflow-exception? _e65698_)) + (macro-stack-overflow-exception? _exn65695_)))) (define started-thread-exception? - (lambda (_exn65694_) + (lambda (_exn65691_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65694_)) - (let ((_e65696_ + (class-instance? RuntimeException::t _exn65691_)) + (let ((_e65693_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65694_ 'exception)))) - (macro-started-thread-exception? _e65696_)) - (macro-started-thread-exception? _exn65694_)))) + (unchecked-slot-ref _exn65691_ 'exception)))) + (macro-started-thread-exception? _e65693_)) + (macro-started-thread-exception? _exn65691_)))) (define started-thread-exception-arguments - (lambda (_exn65690_) + (lambda (_exn65687_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65690_)) - (let ((_e65692_ + (class-instance? RuntimeException::t _exn65687_)) + (let ((_e65689_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65690_ 'exception)))) - (if (macro-started-thread-exception? _e65692_) - (macro-started-thread-exception-arguments _e65692_) - (let ((__tmp66983 - (let ((__tmp66984 + (unchecked-slot-ref _exn65687_ 'exception)))) + (if (macro-started-thread-exception? _e65689_) + (macro-started-thread-exception-arguments _e65689_) + (let ((__tmp66980 + (let ((__tmp66981 (let () (declare (not safe)) - (cons _e65692_ '())))) + (cons _e65689_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp66984)))) + __tmp66981)))) (declare (not safe)) (error '"not an instance" 'started-thread-exception? - __tmp66983)))) - (if (macro-started-thread-exception? _exn65690_) - (macro-started-thread-exception-arguments _exn65690_) - (let ((__tmp66981 - (let ((__tmp66982 + __tmp66980)))) + (if (macro-started-thread-exception? _exn65687_) + (macro-started-thread-exception-arguments _exn65687_) + (let ((__tmp66978 + (let ((__tmp66979 (let () (declare (not safe)) - (cons _exn65690_ '())))) + (cons _exn65687_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp66982)))) + __tmp66979)))) (declare (not safe)) (error '"not an instance" 'started-thread-exception? - __tmp66981)))))) + __tmp66978)))))) (define started-thread-exception-procedure - (lambda (_exn65684_) + (lambda (_exn65681_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65684_)) - (let ((_e65687_ + (class-instance? RuntimeException::t _exn65681_)) + (let ((_e65684_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65684_ 'exception)))) - (if (macro-started-thread-exception? _e65687_) - (macro-started-thread-exception-procedure _e65687_) - (let ((__tmp66987 - (let ((__tmp66988 + (unchecked-slot-ref _exn65681_ 'exception)))) + (if (macro-started-thread-exception? _e65684_) + (macro-started-thread-exception-procedure _e65684_) + (let ((__tmp66984 + (let ((__tmp66985 (let () (declare (not safe)) - (cons _e65687_ '())))) + (cons _e65684_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp66988)))) + __tmp66985)))) (declare (not safe)) (error '"not an instance" 'started-thread-exception? - __tmp66987)))) - (if (macro-started-thread-exception? _exn65684_) - (macro-started-thread-exception-procedure _exn65684_) - (let ((__tmp66985 - (let ((__tmp66986 + __tmp66984)))) + (if (macro-started-thread-exception? _exn65681_) + (macro-started-thread-exception-procedure _exn65681_) + (let ((__tmp66982 + (let ((__tmp66983 (let () (declare (not safe)) - (cons _exn65684_ '())))) + (cons _exn65681_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp66986)))) + __tmp66983)))) (declare (not safe)) (error '"not an instance" 'started-thread-exception? - __tmp66985)))))) + __tmp66982)))))) (define terminated-thread-exception? - (lambda (_exn65680_) + (lambda (_exn65677_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65680_)) - (let ((_e65682_ + (class-instance? RuntimeException::t _exn65677_)) + (let ((_e65679_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65680_ 'exception)))) - (macro-terminated-thread-exception? _e65682_)) - (macro-terminated-thread-exception? _exn65680_)))) + (unchecked-slot-ref _exn65677_ 'exception)))) + (macro-terminated-thread-exception? _e65679_)) + (macro-terminated-thread-exception? _exn65677_)))) (define terminated-thread-exception-arguments - (lambda (_exn65676_) + (lambda (_exn65673_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65676_)) - (let ((_e65678_ + (class-instance? RuntimeException::t _exn65673_)) + (let ((_e65675_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65676_ 'exception)))) - (if (macro-terminated-thread-exception? _e65678_) - (macro-terminated-thread-exception-arguments _e65678_) - (let ((__tmp66991 - (let ((__tmp66992 + (unchecked-slot-ref _exn65673_ 'exception)))) + (if (macro-terminated-thread-exception? _e65675_) + (macro-terminated-thread-exception-arguments _e65675_) + (let ((__tmp66988 + (let ((__tmp66989 (let () (declare (not safe)) - (cons _e65678_ '())))) + (cons _e65675_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp66992)))) + __tmp66989)))) (declare (not safe)) (error '"not an instance" 'terminated-thread-exception? - __tmp66991)))) - (if (macro-terminated-thread-exception? _exn65676_) - (macro-terminated-thread-exception-arguments _exn65676_) - (let ((__tmp66989 - (let ((__tmp66990 + __tmp66988)))) + (if (macro-terminated-thread-exception? _exn65673_) + (macro-terminated-thread-exception-arguments _exn65673_) + (let ((__tmp66986 + (let ((__tmp66987 (let () (declare (not safe)) - (cons _exn65676_ '())))) + (cons _exn65673_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp66990)))) + __tmp66987)))) (declare (not safe)) (error '"not an instance" 'terminated-thread-exception? - __tmp66989)))))) + __tmp66986)))))) (define terminated-thread-exception-procedure - (lambda (_exn65670_) + (lambda (_exn65667_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65670_)) - (let ((_e65673_ + (class-instance? RuntimeException::t _exn65667_)) + (let ((_e65670_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65670_ 'exception)))) - (if (macro-terminated-thread-exception? _e65673_) - (macro-terminated-thread-exception-procedure _e65673_) - (let ((__tmp66995 - (let ((__tmp66996 + (unchecked-slot-ref _exn65667_ 'exception)))) + (if (macro-terminated-thread-exception? _e65670_) + (macro-terminated-thread-exception-procedure _e65670_) + (let ((__tmp66992 + (let ((__tmp66993 (let () (declare (not safe)) - (cons _e65673_ '())))) + (cons _e65670_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp66996)))) + __tmp66993)))) (declare (not safe)) (error '"not an instance" 'terminated-thread-exception? - __tmp66995)))) - (if (macro-terminated-thread-exception? _exn65670_) - (macro-terminated-thread-exception-procedure _exn65670_) - (let ((__tmp66993 - (let ((__tmp66994 + __tmp66992)))) + (if (macro-terminated-thread-exception? _exn65667_) + (macro-terminated-thread-exception-procedure _exn65667_) + (let ((__tmp66990 + (let ((__tmp66991 (let () (declare (not safe)) - (cons _exn65670_ '())))) + (cons _exn65667_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp66994)))) + __tmp66991)))) (declare (not safe)) (error '"not an instance" 'terminated-thread-exception? - __tmp66993)))))) + __tmp66990)))))) (define type-exception? - (lambda (_exn65666_) + (lambda (_exn65663_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65666_)) - (let ((_e65668_ + (class-instance? RuntimeException::t _exn65663_)) + (let ((_e65665_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65666_ 'exception)))) - (macro-type-exception? _e65668_)) - (macro-type-exception? _exn65666_)))) + (unchecked-slot-ref _exn65663_ 'exception)))) + (macro-type-exception? _e65665_)) + (macro-type-exception? _exn65663_)))) (define type-exception-arg-id - (lambda (_exn65662_) + (lambda (_exn65659_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65662_)) - (let ((_e65664_ + (class-instance? RuntimeException::t _exn65659_)) + (let ((_e65661_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65662_ 'exception)))) - (if (macro-type-exception? _e65664_) - (macro-type-exception-arg-id _e65664_) - (let ((__tmp66999 - (let ((__tmp67000 + (unchecked-slot-ref _exn65659_ 'exception)))) + (if (macro-type-exception? _e65661_) + (macro-type-exception-arg-id _e65661_) + (let ((__tmp66996 + (let ((__tmp66997 (let () (declare (not safe)) - (cons _e65664_ '())))) + (cons _e65661_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp67000)))) + (cons 'type-exception-arg-id __tmp66997)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp66999)))) - (if (macro-type-exception? _exn65662_) - (macro-type-exception-arg-id _exn65662_) - (let ((__tmp66997 - (let ((__tmp66998 + (error '"not an instance" 'type-exception? __tmp66996)))) + (if (macro-type-exception? _exn65659_) + (macro-type-exception-arg-id _exn65659_) + (let ((__tmp66994 + (let ((__tmp66995 (let () (declare (not safe)) - (cons _exn65662_ '())))) + (cons _exn65659_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp66998)))) + (cons 'type-exception-arg-id __tmp66995)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp66997)))))) + (error '"not an instance" 'type-exception? __tmp66994)))))) (define type-exception-arguments - (lambda (_exn65658_) + (lambda (_exn65655_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65658_)) - (let ((_e65660_ + (class-instance? RuntimeException::t _exn65655_)) + (let ((_e65657_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65658_ 'exception)))) - (if (macro-type-exception? _e65660_) - (macro-type-exception-arguments _e65660_) - (let ((__tmp67003 - (let ((__tmp67004 + (unchecked-slot-ref _exn65655_ 'exception)))) + (if (macro-type-exception? _e65657_) + (macro-type-exception-arguments _e65657_) + (let ((__tmp67000 + (let ((__tmp67001 (let () (declare (not safe)) - (cons _e65660_ '())))) + (cons _e65657_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp67004)))) + (cons 'type-exception-arguments __tmp67001)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp67003)))) - (if (macro-type-exception? _exn65658_) - (macro-type-exception-arguments _exn65658_) - (let ((__tmp67001 - (let ((__tmp67002 + (error '"not an instance" 'type-exception? __tmp67000)))) + (if (macro-type-exception? _exn65655_) + (macro-type-exception-arguments _exn65655_) + (let ((__tmp66998 + (let ((__tmp66999 (let () (declare (not safe)) - (cons _exn65658_ '())))) + (cons _exn65655_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp67002)))) + (cons 'type-exception-arguments __tmp66999)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp67001)))))) + (error '"not an instance" 'type-exception? __tmp66998)))))) (define type-exception-procedure - (lambda (_exn65654_) + (lambda (_exn65651_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65654_)) - (let ((_e65656_ + (class-instance? RuntimeException::t _exn65651_)) + (let ((_e65653_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65654_ 'exception)))) - (if (macro-type-exception? _e65656_) - (macro-type-exception-procedure _e65656_) - (let ((__tmp67007 - (let ((__tmp67008 + (unchecked-slot-ref _exn65651_ 'exception)))) + (if (macro-type-exception? _e65653_) + (macro-type-exception-procedure _e65653_) + (let ((__tmp67004 + (let ((__tmp67005 (let () (declare (not safe)) - (cons _e65656_ '())))) + (cons _e65653_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp67008)))) + (cons 'type-exception-procedure __tmp67005)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp67007)))) - (if (macro-type-exception? _exn65654_) - (macro-type-exception-procedure _exn65654_) - (let ((__tmp67005 - (let ((__tmp67006 + (error '"not an instance" 'type-exception? __tmp67004)))) + (if (macro-type-exception? _exn65651_) + (macro-type-exception-procedure _exn65651_) + (let ((__tmp67002 + (let ((__tmp67003 (let () (declare (not safe)) - (cons _exn65654_ '())))) + (cons _exn65651_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp67006)))) + (cons 'type-exception-procedure __tmp67003)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp67005)))))) + (error '"not an instance" 'type-exception? __tmp67002)))))) (define type-exception-type-id - (lambda (_exn65648_) + (lambda (_exn65645_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65648_)) - (let ((_e65651_ + (class-instance? RuntimeException::t _exn65645_)) + (let ((_e65648_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65648_ 'exception)))) - (if (macro-type-exception? _e65651_) - (macro-type-exception-type-id _e65651_) - (let ((__tmp67011 - (let ((__tmp67012 + (unchecked-slot-ref _exn65645_ 'exception)))) + (if (macro-type-exception? _e65648_) + (macro-type-exception-type-id _e65648_) + (let ((__tmp67008 + (let ((__tmp67009 (let () (declare (not safe)) - (cons _e65651_ '())))) + (cons _e65648_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp67012)))) + (cons 'type-exception-type-id __tmp67009)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp67011)))) - (if (macro-type-exception? _exn65648_) - (macro-type-exception-type-id _exn65648_) - (let ((__tmp67009 - (let ((__tmp67010 + (error '"not an instance" 'type-exception? __tmp67008)))) + (if (macro-type-exception? _exn65645_) + (macro-type-exception-type-id _exn65645_) + (let ((__tmp67006 + (let ((__tmp67007 (let () (declare (not safe)) - (cons _exn65648_ '())))) + (cons _exn65645_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp67010)))) + (cons 'type-exception-type-id __tmp67007)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp67009)))))) + (error '"not an instance" 'type-exception? __tmp67006)))))) (define unbound-global-exception? - (lambda (_exn65644_) + (lambda (_exn65641_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65644_)) - (let ((_e65646_ + (class-instance? RuntimeException::t _exn65641_)) + (let ((_e65643_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65644_ 'exception)))) - (macro-unbound-global-exception? _e65646_)) - (macro-unbound-global-exception? _exn65644_)))) + (unchecked-slot-ref _exn65641_ 'exception)))) + (macro-unbound-global-exception? _e65643_)) + (macro-unbound-global-exception? _exn65641_)))) (define unbound-global-exception-code - (lambda (_exn65640_) + (lambda (_exn65637_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65640_)) - (let ((_e65642_ + (class-instance? RuntimeException::t _exn65637_)) + (let ((_e65639_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65640_ 'exception)))) - (if (macro-unbound-global-exception? _e65642_) - (macro-unbound-global-exception-code _e65642_) - (let ((__tmp67015 - (let ((__tmp67016 + (unchecked-slot-ref _exn65637_ 'exception)))) + (if (macro-unbound-global-exception? _e65639_) + (macro-unbound-global-exception-code _e65639_) + (let ((__tmp67012 + (let ((__tmp67013 (let () (declare (not safe)) - (cons _e65642_ '())))) + (cons _e65639_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp67016)))) + (cons 'unbound-global-exception-code __tmp67013)))) (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - __tmp67015)))) - (if (macro-unbound-global-exception? _exn65640_) - (macro-unbound-global-exception-code _exn65640_) - (let ((__tmp67013 - (let ((__tmp67014 + __tmp67012)))) + (if (macro-unbound-global-exception? _exn65637_) + (macro-unbound-global-exception-code _exn65637_) + (let ((__tmp67010 + (let ((__tmp67011 (let () (declare (not safe)) - (cons _exn65640_ '())))) + (cons _exn65637_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp67014)))) + (cons 'unbound-global-exception-code __tmp67011)))) (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - __tmp67013)))))) + __tmp67010)))))) (define unbound-global-exception-rte - (lambda (_exn65636_) + (lambda (_exn65633_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65636_)) - (let ((_e65638_ + (class-instance? RuntimeException::t _exn65633_)) + (let ((_e65635_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65636_ 'exception)))) - (if (macro-unbound-global-exception? _e65638_) - (macro-unbound-global-exception-rte _e65638_) - (let ((__tmp67019 - (let ((__tmp67020 + (unchecked-slot-ref _exn65633_ 'exception)))) + (if (macro-unbound-global-exception? _e65635_) + (macro-unbound-global-exception-rte _e65635_) + (let ((__tmp67016 + (let ((__tmp67017 (let () (declare (not safe)) - (cons _e65638_ '())))) + (cons _e65635_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp67020)))) + (cons 'unbound-global-exception-rte __tmp67017)))) (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - __tmp67019)))) - (if (macro-unbound-global-exception? _exn65636_) - (macro-unbound-global-exception-rte _exn65636_) - (let ((__tmp67017 - (let ((__tmp67018 + __tmp67016)))) + (if (macro-unbound-global-exception? _exn65633_) + (macro-unbound-global-exception-rte _exn65633_) + (let ((__tmp67014 + (let ((__tmp67015 (let () (declare (not safe)) - (cons _exn65636_ '())))) + (cons _exn65633_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp67018)))) + (cons 'unbound-global-exception-rte __tmp67015)))) (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - __tmp67017)))))) + __tmp67014)))))) (define unbound-global-exception-variable - (lambda (_exn65630_) + (lambda (_exn65627_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65630_)) - (let ((_e65633_ + (class-instance? RuntimeException::t _exn65627_)) + (let ((_e65630_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65630_ 'exception)))) - (if (macro-unbound-global-exception? _e65633_) - (macro-unbound-global-exception-variable _e65633_) - (let ((__tmp67023 - (let ((__tmp67024 + (unchecked-slot-ref _exn65627_ 'exception)))) + (if (macro-unbound-global-exception? _e65630_) + (macro-unbound-global-exception-variable _e65630_) + (let ((__tmp67020 + (let ((__tmp67021 (let () (declare (not safe)) - (cons _e65633_ '())))) + (cons _e65630_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp67024)))) + __tmp67021)))) (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - __tmp67023)))) - (if (macro-unbound-global-exception? _exn65630_) - (macro-unbound-global-exception-variable _exn65630_) - (let ((__tmp67021 - (let ((__tmp67022 + __tmp67020)))) + (if (macro-unbound-global-exception? _exn65627_) + (macro-unbound-global-exception-variable _exn65627_) + (let ((__tmp67018 + (let ((__tmp67019 (let () (declare (not safe)) - (cons _exn65630_ '())))) + (cons _exn65627_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp67022)))) + __tmp67019)))) (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - __tmp67021)))))) + __tmp67018)))))) (define unbound-key-exception? - (lambda (_exn65626_) + (lambda (_exn65623_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65626_)) - (let ((_e65628_ + (class-instance? RuntimeException::t _exn65623_)) + (let ((_e65625_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65626_ 'exception)))) - (macro-unbound-key-exception? _e65628_)) - (macro-unbound-key-exception? _exn65626_)))) + (unchecked-slot-ref _exn65623_ 'exception)))) + (macro-unbound-key-exception? _e65625_)) + (macro-unbound-key-exception? _exn65623_)))) (define unbound-key-exception-arguments - (lambda (_exn65622_) + (lambda (_exn65619_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65622_)) - (let ((_e65624_ + (class-instance? RuntimeException::t _exn65619_)) + (let ((_e65621_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65622_ 'exception)))) - (if (macro-unbound-key-exception? _e65624_) - (macro-unbound-key-exception-arguments _e65624_) - (let ((__tmp67027 - (let ((__tmp67028 + (unchecked-slot-ref _exn65619_ 'exception)))) + (if (macro-unbound-key-exception? _e65621_) + (macro-unbound-key-exception-arguments _e65621_) + (let ((__tmp67024 + (let ((__tmp67025 (let () (declare (not safe)) - (cons _e65624_ '())))) + (cons _e65621_ '())))) (declare (not safe)) (cons 'unbound-key-exception-arguments - __tmp67028)))) + __tmp67025)))) (declare (not safe)) (error '"not an instance" 'unbound-key-exception? - __tmp67027)))) - (if (macro-unbound-key-exception? _exn65622_) - (macro-unbound-key-exception-arguments _exn65622_) - (let ((__tmp67025 - (let ((__tmp67026 + __tmp67024)))) + (if (macro-unbound-key-exception? _exn65619_) + (macro-unbound-key-exception-arguments _exn65619_) + (let ((__tmp67022 + (let ((__tmp67023 (let () (declare (not safe)) - (cons _exn65622_ '())))) + (cons _exn65619_ '())))) (declare (not safe)) - (cons 'unbound-key-exception-arguments __tmp67026)))) + (cons 'unbound-key-exception-arguments __tmp67023)))) (declare (not safe)) (error '"not an instance" 'unbound-key-exception? - __tmp67025)))))) + __tmp67022)))))) (define unbound-key-exception-procedure - (lambda (_exn65616_) + (lambda (_exn65613_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65616_)) - (let ((_e65619_ + (class-instance? RuntimeException::t _exn65613_)) + (let ((_e65616_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65616_ 'exception)))) - (if (macro-unbound-key-exception? _e65619_) - (macro-unbound-key-exception-procedure _e65619_) - (let ((__tmp67031 - (let ((__tmp67032 + (unchecked-slot-ref _exn65613_ 'exception)))) + (if (macro-unbound-key-exception? _e65616_) + (macro-unbound-key-exception-procedure _e65616_) + (let ((__tmp67028 + (let ((__tmp67029 (let () (declare (not safe)) - (cons _e65619_ '())))) + (cons _e65616_ '())))) (declare (not safe)) (cons 'unbound-key-exception-procedure - __tmp67032)))) + __tmp67029)))) (declare (not safe)) (error '"not an instance" 'unbound-key-exception? - __tmp67031)))) - (if (macro-unbound-key-exception? _exn65616_) - (macro-unbound-key-exception-procedure _exn65616_) - (let ((__tmp67029 - (let ((__tmp67030 + __tmp67028)))) + (if (macro-unbound-key-exception? _exn65613_) + (macro-unbound-key-exception-procedure _exn65613_) + (let ((__tmp67026 + (let ((__tmp67027 (let () (declare (not safe)) - (cons _exn65616_ '())))) + (cons _exn65613_ '())))) (declare (not safe)) - (cons 'unbound-key-exception-procedure __tmp67030)))) + (cons 'unbound-key-exception-procedure __tmp67027)))) (declare (not safe)) (error '"not an instance" 'unbound-key-exception? - __tmp67029)))))) + __tmp67026)))))) (define unbound-os-environment-variable-exception? - (lambda (_exn65612_) + (lambda (_exn65609_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65612_)) - (let ((_e65614_ + (class-instance? RuntimeException::t _exn65609_)) + (let ((_e65611_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65612_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _e65614_)) - (macro-unbound-os-environment-variable-exception? _exn65612_)))) + (unchecked-slot-ref _exn65609_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _e65611_)) + (macro-unbound-os-environment-variable-exception? _exn65609_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_exn65608_) + (lambda (_exn65605_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65608_)) - (let ((_e65610_ + (class-instance? RuntimeException::t _exn65605_)) + (let ((_e65607_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65608_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e65610_) + (unchecked-slot-ref _exn65605_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e65607_) (macro-unbound-os-environment-variable-exception-arguments - _e65610_) - (let ((__tmp67035 - (let ((__tmp67036 + _e65607_) + (let ((__tmp67032 + (let ((__tmp67033 (let () (declare (not safe)) - (cons _e65610_ '())))) + (cons _e65607_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp67036)))) + __tmp67033)))) (declare (not safe)) (error '"not an instance" 'unbound-os-environment-variable-exception? - __tmp67035)))) - (if (macro-unbound-os-environment-variable-exception? _exn65608_) + __tmp67032)))) + (if (macro-unbound-os-environment-variable-exception? _exn65605_) (macro-unbound-os-environment-variable-exception-arguments - _exn65608_) - (let ((__tmp67033 - (let ((__tmp67034 + _exn65605_) + (let ((__tmp67030 + (let ((__tmp67031 (let () (declare (not safe)) - (cons _exn65608_ '())))) + (cons _exn65605_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp67034)))) + __tmp67031)))) (declare (not safe)) (error '"not an instance" 'unbound-os-environment-variable-exception? - __tmp67033)))))) + __tmp67030)))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_exn65602_) + (lambda (_exn65599_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65602_)) - (let ((_e65605_ + (class-instance? RuntimeException::t _exn65599_)) + (let ((_e65602_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65602_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e65605_) + (unchecked-slot-ref _exn65599_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e65602_) (macro-unbound-os-environment-variable-exception-procedure - _e65605_) - (let ((__tmp67039 - (let ((__tmp67040 + _e65602_) + (let ((__tmp67036 + (let ((__tmp67037 (let () (declare (not safe)) - (cons _e65605_ '())))) + (cons _e65602_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp67040)))) + __tmp67037)))) (declare (not safe)) (error '"not an instance" 'unbound-os-environment-variable-exception? - __tmp67039)))) - (if (macro-unbound-os-environment-variable-exception? _exn65602_) + __tmp67036)))) + (if (macro-unbound-os-environment-variable-exception? _exn65599_) (macro-unbound-os-environment-variable-exception-procedure - _exn65602_) - (let ((__tmp67037 - (let ((__tmp67038 + _exn65599_) + (let ((__tmp67034 + (let ((__tmp67035 (let () (declare (not safe)) - (cons _exn65602_ '())))) + (cons _exn65599_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp67038)))) + __tmp67035)))) (declare (not safe)) (error '"not an instance" 'unbound-os-environment-variable-exception? - __tmp67037)))))) + __tmp67034)))))) (define unbound-serial-number-exception? - (lambda (_exn65598_) + (lambda (_exn65595_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65598_)) - (let ((_e65600_ + (class-instance? RuntimeException::t _exn65595_)) + (let ((_e65597_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65598_ 'exception)))) - (macro-unbound-serial-number-exception? _e65600_)) - (macro-unbound-serial-number-exception? _exn65598_)))) + (unchecked-slot-ref _exn65595_ 'exception)))) + (macro-unbound-serial-number-exception? _e65597_)) + (macro-unbound-serial-number-exception? _exn65595_)))) (define unbound-serial-number-exception-arguments - (lambda (_exn65594_) + (lambda (_exn65591_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65594_)) - (let ((_e65596_ + (class-instance? RuntimeException::t _exn65591_)) + (let ((_e65593_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65594_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e65596_) - (macro-unbound-serial-number-exception-arguments _e65596_) - (let ((__tmp67043 - (let ((__tmp67044 + (unchecked-slot-ref _exn65591_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e65593_) + (macro-unbound-serial-number-exception-arguments _e65593_) + (let ((__tmp67040 + (let ((__tmp67041 (let () (declare (not safe)) - (cons _e65596_ '())))) + (cons _e65593_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp67044)))) + __tmp67041)))) (declare (not safe)) (error '"not an instance" 'unbound-serial-number-exception? - __tmp67043)))) - (if (macro-unbound-serial-number-exception? _exn65594_) - (macro-unbound-serial-number-exception-arguments _exn65594_) - (let ((__tmp67041 - (let ((__tmp67042 + __tmp67040)))) + (if (macro-unbound-serial-number-exception? _exn65591_) + (macro-unbound-serial-number-exception-arguments _exn65591_) + (let ((__tmp67038 + (let ((__tmp67039 (let () (declare (not safe)) - (cons _exn65594_ '())))) + (cons _exn65591_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp67042)))) + __tmp67039)))) (declare (not safe)) (error '"not an instance" 'unbound-serial-number-exception? - __tmp67041)))))) + __tmp67038)))))) (define unbound-serial-number-exception-procedure - (lambda (_exn65588_) + (lambda (_exn65585_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65588_)) - (let ((_e65591_ + (class-instance? RuntimeException::t _exn65585_)) + (let ((_e65588_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65588_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e65591_) - (macro-unbound-serial-number-exception-procedure _e65591_) - (let ((__tmp67047 - (let ((__tmp67048 + (unchecked-slot-ref _exn65585_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e65588_) + (macro-unbound-serial-number-exception-procedure _e65588_) + (let ((__tmp67044 + (let ((__tmp67045 (let () (declare (not safe)) - (cons _e65591_ '())))) + (cons _e65588_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp67048)))) + __tmp67045)))) (declare (not safe)) (error '"not an instance" 'unbound-serial-number-exception? - __tmp67047)))) - (if (macro-unbound-serial-number-exception? _exn65588_) - (macro-unbound-serial-number-exception-procedure _exn65588_) - (let ((__tmp67045 - (let ((__tmp67046 + __tmp67044)))) + (if (macro-unbound-serial-number-exception? _exn65585_) + (macro-unbound-serial-number-exception-procedure _exn65585_) + (let ((__tmp67042 + (let ((__tmp67043 (let () (declare (not safe)) - (cons _exn65588_ '())))) + (cons _exn65585_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp67046)))) + __tmp67043)))) (declare (not safe)) (error '"not an instance" 'unbound-serial-number-exception? - __tmp67045)))))) + __tmp67042)))))) (define uncaught-exception? - (lambda (_exn65584_) + (lambda (_exn65581_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65584_)) - (let ((_e65586_ + (class-instance? RuntimeException::t _exn65581_)) + (let ((_e65583_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65584_ 'exception)))) - (macro-uncaught-exception? _e65586_)) - (macro-uncaught-exception? _exn65584_)))) + (unchecked-slot-ref _exn65581_ 'exception)))) + (macro-uncaught-exception? _e65583_)) + (macro-uncaught-exception? _exn65581_)))) (define uncaught-exception-arguments - (lambda (_exn65580_) + (lambda (_exn65577_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65580_)) - (let ((_e65582_ + (class-instance? RuntimeException::t _exn65577_)) + (let ((_e65579_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65580_ 'exception)))) - (if (macro-uncaught-exception? _e65582_) - (macro-uncaught-exception-arguments _e65582_) - (let ((__tmp67051 - (let ((__tmp67052 + (unchecked-slot-ref _exn65577_ 'exception)))) + (if (macro-uncaught-exception? _e65579_) + (macro-uncaught-exception-arguments _e65579_) + (let ((__tmp67048 + (let ((__tmp67049 (let () (declare (not safe)) - (cons _e65582_ '())))) + (cons _e65579_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp67052)))) + (cons 'uncaught-exception-arguments __tmp67049)))) (declare (not safe)) (error '"not an instance" 'uncaught-exception? - __tmp67051)))) - (if (macro-uncaught-exception? _exn65580_) - (macro-uncaught-exception-arguments _exn65580_) - (let ((__tmp67049 - (let ((__tmp67050 + __tmp67048)))) + (if (macro-uncaught-exception? _exn65577_) + (macro-uncaught-exception-arguments _exn65577_) + (let ((__tmp67046 + (let ((__tmp67047 (let () (declare (not safe)) - (cons _exn65580_ '())))) + (cons _exn65577_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp67050)))) + (cons 'uncaught-exception-arguments __tmp67047)))) (declare (not safe)) (error '"not an instance" 'uncaught-exception? - __tmp67049)))))) + __tmp67046)))))) (define uncaught-exception-procedure - (lambda (_exn65576_) + (lambda (_exn65573_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65576_)) - (let ((_e65578_ + (class-instance? RuntimeException::t _exn65573_)) + (let ((_e65575_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65576_ 'exception)))) - (if (macro-uncaught-exception? _e65578_) - (macro-uncaught-exception-procedure _e65578_) - (let ((__tmp67055 - (let ((__tmp67056 + (unchecked-slot-ref _exn65573_ 'exception)))) + (if (macro-uncaught-exception? _e65575_) + (macro-uncaught-exception-procedure _e65575_) + (let ((__tmp67052 + (let ((__tmp67053 (let () (declare (not safe)) - (cons _e65578_ '())))) + (cons _e65575_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp67056)))) + (cons 'uncaught-exception-procedure __tmp67053)))) (declare (not safe)) (error '"not an instance" 'uncaught-exception? - __tmp67055)))) - (if (macro-uncaught-exception? _exn65576_) - (macro-uncaught-exception-procedure _exn65576_) - (let ((__tmp67053 - (let ((__tmp67054 + __tmp67052)))) + (if (macro-uncaught-exception? _exn65573_) + (macro-uncaught-exception-procedure _exn65573_) + (let ((__tmp67050 + (let ((__tmp67051 (let () (declare (not safe)) - (cons _exn65576_ '())))) + (cons _exn65573_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp67054)))) + (cons 'uncaught-exception-procedure __tmp67051)))) (declare (not safe)) (error '"not an instance" 'uncaught-exception? - __tmp67053)))))) + __tmp67050)))))) (define uncaught-exception-reason - (lambda (_exn65570_) + (lambda (_exn65567_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65570_)) - (let ((_e65573_ + (class-instance? RuntimeException::t _exn65567_)) + (let ((_e65570_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65570_ 'exception)))) - (if (macro-uncaught-exception? _e65573_) - (macro-uncaught-exception-reason _e65573_) - (let ((__tmp67059 - (let ((__tmp67060 + (unchecked-slot-ref _exn65567_ 'exception)))) + (if (macro-uncaught-exception? _e65570_) + (macro-uncaught-exception-reason _e65570_) + (let ((__tmp67056 + (let ((__tmp67057 (let () (declare (not safe)) - (cons _e65573_ '())))) + (cons _e65570_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp67060)))) + (cons 'uncaught-exception-reason __tmp67057)))) (declare (not safe)) (error '"not an instance" 'uncaught-exception? - __tmp67059)))) - (if (macro-uncaught-exception? _exn65570_) - (macro-uncaught-exception-reason _exn65570_) - (let ((__tmp67057 - (let ((__tmp67058 + __tmp67056)))) + (if (macro-uncaught-exception? _exn65567_) + (macro-uncaught-exception-reason _exn65567_) + (let ((__tmp67054 + (let ((__tmp67055 (let () (declare (not safe)) - (cons _exn65570_ '())))) + (cons _exn65567_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp67058)))) + (cons 'uncaught-exception-reason __tmp67055)))) (declare (not safe)) (error '"not an instance" 'uncaught-exception? - __tmp67057)))))) + __tmp67054)))))) (define uninitialized-thread-exception? - (lambda (_exn65566_) + (lambda (_exn65563_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65566_)) - (let ((_e65568_ + (class-instance? RuntimeException::t _exn65563_)) + (let ((_e65565_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65566_ 'exception)))) - (macro-uninitialized-thread-exception? _e65568_)) - (macro-uninitialized-thread-exception? _exn65566_)))) + (unchecked-slot-ref _exn65563_ 'exception)))) + (macro-uninitialized-thread-exception? _e65565_)) + (macro-uninitialized-thread-exception? _exn65563_)))) (define uninitialized-thread-exception-arguments - (lambda (_exn65562_) + (lambda (_exn65559_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65562_)) - (let ((_e65564_ + (class-instance? RuntimeException::t _exn65559_)) + (let ((_e65561_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65562_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e65564_) - (macro-uninitialized-thread-exception-arguments _e65564_) - (let ((__tmp67063 - (let ((__tmp67064 + (unchecked-slot-ref _exn65559_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e65561_) + (macro-uninitialized-thread-exception-arguments _e65561_) + (let ((__tmp67060 + (let ((__tmp67061 (let () (declare (not safe)) - (cons _e65564_ '())))) + (cons _e65561_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp67064)))) + __tmp67061)))) (declare (not safe)) (error '"not an instance" 'uninitialized-thread-exception? - __tmp67063)))) - (if (macro-uninitialized-thread-exception? _exn65562_) - (macro-uninitialized-thread-exception-arguments _exn65562_) - (let ((__tmp67061 - (let ((__tmp67062 + __tmp67060)))) + (if (macro-uninitialized-thread-exception? _exn65559_) + (macro-uninitialized-thread-exception-arguments _exn65559_) + (let ((__tmp67058 + (let ((__tmp67059 (let () (declare (not safe)) - (cons _exn65562_ '())))) + (cons _exn65559_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp67062)))) + __tmp67059)))) (declare (not safe)) (error '"not an instance" 'uninitialized-thread-exception? - __tmp67061)))))) + __tmp67058)))))) (define uninitialized-thread-exception-procedure - (lambda (_exn65556_) + (lambda (_exn65553_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65556_)) - (let ((_e65559_ + (class-instance? RuntimeException::t _exn65553_)) + (let ((_e65556_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65556_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e65559_) - (macro-uninitialized-thread-exception-procedure _e65559_) - (let ((__tmp67067 - (let ((__tmp67068 + (unchecked-slot-ref _exn65553_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e65556_) + (macro-uninitialized-thread-exception-procedure _e65556_) + (let ((__tmp67064 + (let ((__tmp67065 (let () (declare (not safe)) - (cons _e65559_ '())))) + (cons _e65556_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp67068)))) + __tmp67065)))) (declare (not safe)) (error '"not an instance" 'uninitialized-thread-exception? - __tmp67067)))) - (if (macro-uninitialized-thread-exception? _exn65556_) - (macro-uninitialized-thread-exception-procedure _exn65556_) - (let ((__tmp67065 - (let ((__tmp67066 + __tmp67064)))) + (if (macro-uninitialized-thread-exception? _exn65553_) + (macro-uninitialized-thread-exception-procedure _exn65553_) + (let ((__tmp67062 + (let ((__tmp67063 (let () (declare (not safe)) - (cons _exn65556_ '())))) + (cons _exn65553_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp67066)))) + __tmp67063)))) (declare (not safe)) (error '"not an instance" 'uninitialized-thread-exception? - __tmp67065)))))) + __tmp67062)))))) (define unknown-keyword-argument-exception? - (lambda (_exn65552_) + (lambda (_exn65549_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65552_)) - (let ((_e65554_ + (class-instance? RuntimeException::t _exn65549_)) + (let ((_e65551_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65552_ 'exception)))) - (macro-unknown-keyword-argument-exception? _e65554_)) - (macro-unknown-keyword-argument-exception? _exn65552_)))) + (unchecked-slot-ref _exn65549_ 'exception)))) + (macro-unknown-keyword-argument-exception? _e65551_)) + (macro-unknown-keyword-argument-exception? _exn65549_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_exn65548_) + (lambda (_exn65545_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65548_)) - (let ((_e65550_ + (class-instance? RuntimeException::t _exn65545_)) + (let ((_e65547_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65548_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e65550_) - (macro-unknown-keyword-argument-exception-arguments _e65550_) - (let ((__tmp67071 - (let ((__tmp67072 + (unchecked-slot-ref _exn65545_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e65547_) + (macro-unknown-keyword-argument-exception-arguments _e65547_) + (let ((__tmp67068 + (let ((__tmp67069 (let () (declare (not safe)) - (cons _e65550_ '())))) + (cons _e65547_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp67072)))) + __tmp67069)))) (declare (not safe)) (error '"not an instance" 'unknown-keyword-argument-exception? - __tmp67071)))) - (if (macro-unknown-keyword-argument-exception? _exn65548_) - (macro-unknown-keyword-argument-exception-arguments _exn65548_) - (let ((__tmp67069 - (let ((__tmp67070 + __tmp67068)))) + (if (macro-unknown-keyword-argument-exception? _exn65545_) + (macro-unknown-keyword-argument-exception-arguments _exn65545_) + (let ((__tmp67066 + (let ((__tmp67067 (let () (declare (not safe)) - (cons _exn65548_ '())))) + (cons _exn65545_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp67070)))) + __tmp67067)))) (declare (not safe)) (error '"not an instance" 'unknown-keyword-argument-exception? - __tmp67069)))))) + __tmp67066)))))) (define unknown-keyword-argument-exception-procedure - (lambda (_exn65542_) + (lambda (_exn65539_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65542_)) - (let ((_e65545_ + (class-instance? RuntimeException::t _exn65539_)) + (let ((_e65542_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65542_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e65545_) - (macro-unknown-keyword-argument-exception-procedure _e65545_) - (let ((__tmp67075 - (let ((__tmp67076 + (unchecked-slot-ref _exn65539_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e65542_) + (macro-unknown-keyword-argument-exception-procedure _e65542_) + (let ((__tmp67072 + (let ((__tmp67073 (let () (declare (not safe)) - (cons _e65545_ '())))) + (cons _e65542_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp67076)))) + __tmp67073)))) (declare (not safe)) (error '"not an instance" 'unknown-keyword-argument-exception? - __tmp67075)))) - (if (macro-unknown-keyword-argument-exception? _exn65542_) - (macro-unknown-keyword-argument-exception-procedure _exn65542_) - (let ((__tmp67073 - (let ((__tmp67074 + __tmp67072)))) + (if (macro-unknown-keyword-argument-exception? _exn65539_) + (macro-unknown-keyword-argument-exception-procedure _exn65539_) + (let ((__tmp67070 + (let ((__tmp67071 (let () (declare (not safe)) - (cons _exn65542_ '())))) + (cons _exn65539_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp67074)))) + __tmp67071)))) (declare (not safe)) (error '"not an instance" 'unknown-keyword-argument-exception? - __tmp67073)))))) + __tmp67070)))))) (define unterminated-process-exception? - (lambda (_exn65538_) + (lambda (_exn65535_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65538_)) - (let ((_e65540_ + (class-instance? RuntimeException::t _exn65535_)) + (let ((_e65537_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65538_ 'exception)))) - (macro-unterminated-process-exception? _e65540_)) - (macro-unterminated-process-exception? _exn65538_)))) + (unchecked-slot-ref _exn65535_ 'exception)))) + (macro-unterminated-process-exception? _e65537_)) + (macro-unterminated-process-exception? _exn65535_)))) (define unterminated-process-exception-arguments - (lambda (_exn65534_) + (lambda (_exn65531_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65534_)) - (let ((_e65536_ + (class-instance? RuntimeException::t _exn65531_)) + (let ((_e65533_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65534_ 'exception)))) - (if (macro-unterminated-process-exception? _e65536_) - (macro-unterminated-process-exception-arguments _e65536_) - (let ((__tmp67079 - (let ((__tmp67080 + (unchecked-slot-ref _exn65531_ 'exception)))) + (if (macro-unterminated-process-exception? _e65533_) + (macro-unterminated-process-exception-arguments _e65533_) + (let ((__tmp67076 + (let ((__tmp67077 (let () (declare (not safe)) - (cons _e65536_ '())))) + (cons _e65533_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp67080)))) + __tmp67077)))) (declare (not safe)) (error '"not an instance" 'unterminated-process-exception? - __tmp67079)))) - (if (macro-unterminated-process-exception? _exn65534_) - (macro-unterminated-process-exception-arguments _exn65534_) - (let ((__tmp67077 - (let ((__tmp67078 + __tmp67076)))) + (if (macro-unterminated-process-exception? _exn65531_) + (macro-unterminated-process-exception-arguments _exn65531_) + (let ((__tmp67074 + (let ((__tmp67075 (let () (declare (not safe)) - (cons _exn65534_ '())))) + (cons _exn65531_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp67078)))) + __tmp67075)))) (declare (not safe)) (error '"not an instance" 'unterminated-process-exception? - __tmp67077)))))) + __tmp67074)))))) (define unterminated-process-exception-procedure - (lambda (_exn65528_) + (lambda (_exn65525_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65528_)) - (let ((_e65531_ + (class-instance? RuntimeException::t _exn65525_)) + (let ((_e65528_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65528_ 'exception)))) - (if (macro-unterminated-process-exception? _e65531_) - (macro-unterminated-process-exception-procedure _e65531_) - (let ((__tmp67083 - (let ((__tmp67084 + (unchecked-slot-ref _exn65525_ 'exception)))) + (if (macro-unterminated-process-exception? _e65528_) + (macro-unterminated-process-exception-procedure _e65528_) + (let ((__tmp67080 + (let ((__tmp67081 (let () (declare (not safe)) - (cons _e65531_ '())))) + (cons _e65528_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp67084)))) + __tmp67081)))) (declare (not safe)) (error '"not an instance" 'unterminated-process-exception? - __tmp67083)))) - (if (macro-unterminated-process-exception? _exn65528_) - (macro-unterminated-process-exception-procedure _exn65528_) - (let ((__tmp67081 - (let ((__tmp67082 + __tmp67080)))) + (if (macro-unterminated-process-exception? _exn65525_) + (macro-unterminated-process-exception-procedure _exn65525_) + (let ((__tmp67078 + (let ((__tmp67079 (let () (declare (not safe)) - (cons _exn65528_ '())))) + (cons _exn65525_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp67082)))) + __tmp67079)))) (declare (not safe)) (error '"not an instance" 'unterminated-process-exception? - __tmp67081)))))) + __tmp67078)))))) (define wrong-number-of-arguments-exception? - (lambda (_exn65524_) + (lambda (_exn65521_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65524_)) - (let ((_e65526_ + (class-instance? RuntimeException::t _exn65521_)) + (let ((_e65523_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65524_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _e65526_)) - (macro-wrong-number-of-arguments-exception? _exn65524_)))) + (unchecked-slot-ref _exn65521_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _e65523_)) + (macro-wrong-number-of-arguments-exception? _exn65521_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_exn65520_) + (lambda (_exn65517_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65520_)) - (let ((_e65522_ + (class-instance? RuntimeException::t _exn65517_)) + (let ((_e65519_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65520_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e65522_) + (unchecked-slot-ref _exn65517_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e65519_) (macro-wrong-number-of-arguments-exception-arguments - _e65522_) - (let ((__tmp67087 - (let ((__tmp67088 + _e65519_) + (let ((__tmp67084 + (let ((__tmp67085 (let () (declare (not safe)) - (cons _e65522_ '())))) + (cons _e65519_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp67088)))) + __tmp67085)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-arguments-exception? - __tmp67087)))) - (if (macro-wrong-number-of-arguments-exception? _exn65520_) + __tmp67084)))) + (if (macro-wrong-number-of-arguments-exception? _exn65517_) (macro-wrong-number-of-arguments-exception-arguments - _exn65520_) - (let ((__tmp67085 - (let ((__tmp67086 + _exn65517_) + (let ((__tmp67082 + (let ((__tmp67083 (let () (declare (not safe)) - (cons _exn65520_ '())))) + (cons _exn65517_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp67086)))) + __tmp67083)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-arguments-exception? - __tmp67085)))))) + __tmp67082)))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_exn65514_) + (lambda (_exn65511_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65514_)) - (let ((_e65517_ + (class-instance? RuntimeException::t _exn65511_)) + (let ((_e65514_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65514_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e65517_) + (unchecked-slot-ref _exn65511_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e65514_) (macro-wrong-number-of-arguments-exception-procedure - _e65517_) - (let ((__tmp67091 - (let ((__tmp67092 + _e65514_) + (let ((__tmp67088 + (let ((__tmp67089 (let () (declare (not safe)) - (cons _e65517_ '())))) + (cons _e65514_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp67092)))) + __tmp67089)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-arguments-exception? - __tmp67091)))) - (if (macro-wrong-number-of-arguments-exception? _exn65514_) + __tmp67088)))) + (if (macro-wrong-number-of-arguments-exception? _exn65511_) (macro-wrong-number-of-arguments-exception-procedure - _exn65514_) - (let ((__tmp67089 - (let ((__tmp67090 + _exn65511_) + (let ((__tmp67086 + (let ((__tmp67087 (let () (declare (not safe)) - (cons _exn65514_ '())))) + (cons _exn65511_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp67090)))) + __tmp67087)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-arguments-exception? - __tmp67089)))))) + __tmp67086)))))) (define wrong-number-of-values-exception? - (lambda (_exn65510_) + (lambda (_exn65507_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65510_)) - (let ((_e65512_ + (class-instance? RuntimeException::t _exn65507_)) + (let ((_e65509_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65510_ 'exception)))) - (macro-wrong-number-of-values-exception? _e65512_)) - (macro-wrong-number-of-values-exception? _exn65510_)))) + (unchecked-slot-ref _exn65507_ 'exception)))) + (macro-wrong-number-of-values-exception? _e65509_)) + (macro-wrong-number-of-values-exception? _exn65507_)))) (define wrong-number-of-values-exception-code - (lambda (_exn65506_) + (lambda (_exn65503_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65506_)) - (let ((_e65508_ + (class-instance? RuntimeException::t _exn65503_)) + (let ((_e65505_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65506_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e65508_) - (macro-wrong-number-of-values-exception-code _e65508_) - (let ((__tmp67095 - (let ((__tmp67096 + (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 (let () (declare (not safe)) - (cons _e65508_ '())))) + (cons _e65505_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp67096)))) + __tmp67093)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp67095)))) - (if (macro-wrong-number-of-values-exception? _exn65506_) - (macro-wrong-number-of-values-exception-code _exn65506_) - (let ((__tmp67093 - (let ((__tmp67094 + __tmp67092)))) + (if (macro-wrong-number-of-values-exception? _exn65503_) + (macro-wrong-number-of-values-exception-code _exn65503_) + (let ((__tmp67090 + (let ((__tmp67091 (let () (declare (not safe)) - (cons _exn65506_ '())))) + (cons _exn65503_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp67094)))) + __tmp67091)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp67093)))))) + __tmp67090)))))) (define wrong-number-of-values-exception-rte - (lambda (_exn65502_) + (lambda (_exn65499_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65502_)) - (let ((_e65504_ + (class-instance? RuntimeException::t _exn65499_)) + (let ((_e65501_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65502_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e65504_) - (macro-wrong-number-of-values-exception-rte _e65504_) - (let ((__tmp67099 - (let ((__tmp67100 + (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 (let () (declare (not safe)) - (cons _e65504_ '())))) + (cons _e65501_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp67100)))) + __tmp67097)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp67099)))) - (if (macro-wrong-number-of-values-exception? _exn65502_) - (macro-wrong-number-of-values-exception-rte _exn65502_) - (let ((__tmp67097 - (let ((__tmp67098 + __tmp67096)))) + (if (macro-wrong-number-of-values-exception? _exn65499_) + (macro-wrong-number-of-values-exception-rte _exn65499_) + (let ((__tmp67094 + (let ((__tmp67095 (let () (declare (not safe)) - (cons _exn65502_ '())))) + (cons _exn65499_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp67098)))) + __tmp67095)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp67097)))))) + __tmp67094)))))) (define wrong-number-of-values-exception-vals - (lambda (_exn65496_) + (lambda (_exn65493_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65496_)) - (let ((_e65499_ + (class-instance? RuntimeException::t _exn65493_)) + (let ((_e65496_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65496_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e65499_) - (macro-wrong-number-of-values-exception-vals _e65499_) - (let ((__tmp67103 - (let ((__tmp67104 + (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 (let () (declare (not safe)) - (cons _e65499_ '())))) + (cons _e65496_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp67104)))) + __tmp67101)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp67103)))) - (if (macro-wrong-number-of-values-exception? _exn65496_) - (macro-wrong-number-of-values-exception-vals _exn65496_) - (let ((__tmp67101 - (let ((__tmp67102 + __tmp67100)))) + (if (macro-wrong-number-of-values-exception? _exn65493_) + (macro-wrong-number-of-values-exception-vals _exn65493_) + (let ((__tmp67098 + (let ((__tmp67099 (let () (declare (not safe)) - (cons _exn65496_ '())))) + (cons _exn65493_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp67102)))) + __tmp67099)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp67101)))))) + __tmp67098)))))) (define wrong-processor-c-return-exception? - (lambda (_exn65490_) + (lambda (_exn65487_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65490_)) - (let ((_e65493_ + (class-instance? RuntimeException::t _exn65487_)) + (let ((_e65490_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65490_ 'exception)))) - (macro-wrong-processor-c-return-exception? _e65493_)) - (macro-wrong-processor-c-return-exception? _exn65490_)))))) + (unchecked-slot-ref _exn65487_ 'exception)))) + (macro-wrong-processor-c-return-exception? _e65490_)) + (macro-wrong-processor-c-return-exception? _exn65487_)))))) diff --git a/src/bootstrap/gerbil/runtime/error__1.scm b/src/bootstrap/gerbil/runtime/error__1.scm index a68d02be..2ac6b06a 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]#_g67106_| + (define |[1]#_g67103_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g67108_| + (define |[1]#_g67105_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g67110_| + (define |[1]#_g67107_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g67112_| + (define |[1]#_g67109_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g67114_| + (define |[1]#_g67111_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g67116_| + (define |[1]#_g67113_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g67120_| + (define |[1]#_g67117_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g67124_| + (define |[1]#_g67121_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67128_| + (define |[1]#_g67125_| (##structure gx#syntax-quote::t '&StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g67132_| + (define |[1]#_g67129_| (##structure gx#syntax-quote::t '&StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67136_| + (define |[1]#_g67133_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g67138_| + (define |[1]#_g67135_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g67140_| + (define |[1]#_g67137_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g67142_| + (define |[1]#_g67139_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g67144_| + (define |[1]#_g67141_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g67151_| + (define |[1]#_g67148_| (##structure gx#syntax-quote::t 'Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g67154_| + (define |[1]#_g67151_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g67157_| + (define |[1]#_g67154_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g67160_| + (define |[1]#_g67157_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g67167_| + (define |[1]#_g67164_| (##structure gx#syntax-quote::t 'Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67170_| + (define |[1]#_g67167_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67173_| + (define |[1]#_g67170_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67176_| + (define |[1]#_g67173_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67183_| + (define |[1]#_g67180_| (##structure gx#syntax-quote::t '&Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g67186_| + (define |[1]#_g67183_| (##structure gx#syntax-quote::t '&Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g67189_| + (define |[1]#_g67186_| (##structure gx#syntax-quote::t '&Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g67192_| + (define |[1]#_g67189_| (##structure gx#syntax-quote::t '&Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g67199_| + (define |[1]#_g67196_| (##structure gx#syntax-quote::t '&Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67202_| + (define |[1]#_g67199_| (##structure gx#syntax-quote::t '&Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67205_| + (define |[1]#_g67202_| (##structure gx#syntax-quote::t '&Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67208_| + (define |[1]#_g67205_| (##structure gx#syntax-quote::t '&Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67214_| + (define |[1]#_g67211_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g67216_| + (define |[1]#_g67213_| (##structure gx#syntax-quote::t 'make-RuntimeException #f (gx#current-expander-context) '())) - (define |[1]#_g67218_| + (define |[1]#_g67215_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g67223_| + (define |[1]#_g67220_| (##structure gx#syntax-quote::t 'RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g67226_| + (define |[1]#_g67223_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g67231_| + (define |[1]#_g67228_| (##structure gx#syntax-quote::t 'RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67234_| + (define |[1]#_g67231_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67239_| + (define |[1]#_g67236_| (##structure gx#syntax-quote::t '&RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g67242_| + (define |[1]#_g67239_| (##structure gx#syntax-quote::t '&RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g67247_| + (define |[1]#_g67244_| (##structure gx#syntax-quote::t '&RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67250_| + (define |[1]#_g67247_| (##structure gx#syntax-quote::t '&RuntimeException-exception-set! @@ -296,7 +296,7 @@ '())) (begin (define |[:0:]#Exception| - (let ((__obj66678 + (let ((__obj66675 (let () (declare (not safe)) (##structure @@ -319,7 +319,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66678 + __obj66675 '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! - __obj66678 + __obj66675 'Exception '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -335,7 +335,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66678 + __obj66675 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -343,7 +343,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66678 + __obj66675 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -351,7 +351,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66678 + __obj66675 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -359,7 +359,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66678 + __obj66675 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -367,7 +367,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66678 + __obj66675 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -375,39 +375,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66678 + __obj66675 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67105 |[1]#_g67106_|)) + (let ((__tmp67102 |[1]#_g67103_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66678 - __tmp67105 + __obj66675 + __tmp67102 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67107 |[1]#_g67108_|)) + (let ((__tmp67104 |[1]#_g67105_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66678 - __tmp67107 + __obj66675 + __tmp67104 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67109 |[1]#_g67110_|)) + (let ((__tmp67106 |[1]#_g67107_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66678 - __tmp67109 + __obj66675 + __tmp67106 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj66678 + __obj66675 '() '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -415,7 +415,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66678 + __obj66675 '() '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -423,7 +423,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66678 + __obj66675 '() '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -431,14 +431,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66678 + __obj66675 '() '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj66678)) + __obj66675)) (define |[:0:]#StackTrace| - (let ((__obj66679 + (let ((__obj66676 (let () (declare (not safe)) (##structure @@ -461,7 +461,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66679 + __obj66676 '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! - __obj66679 + __obj66676 'StackTrace '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -477,7 +477,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66679 + __obj66676 '(continuation) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -485,7 +485,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66679 + __obj66676 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -493,7 +493,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66679 + __obj66676 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -501,7 +501,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66679 + __obj66676 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -509,7 +509,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66679 + __obj66676 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -517,94 +517,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66679 + __obj66676 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67111 |[1]#_g67112_|)) + (let ((__tmp67108 |[1]#_g67109_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66679 - __tmp67111 + __obj66676 + __tmp67108 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67113 |[1]#_g67114_|)) + (let ((__tmp67110 |[1]#_g67111_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66679 - __tmp67113 + __obj66676 + __tmp67110 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67115 |[1]#_g67116_|)) + (let ((__tmp67112 |[1]#_g67113_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66679 - __tmp67115 + __obj66676 + __tmp67112 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67117 - (let ((__tmp67118 - (let ((__tmp67119 |[1]#_g67120_|)) + (let ((__tmp67114 + (let ((__tmp67115 + (let ((__tmp67116 |[1]#_g67117_|)) (declare (not safe)) - (cons 'continuation __tmp67119)))) + (cons 'continuation __tmp67116)))) (declare (not safe)) - (cons __tmp67118 '())))) + (cons __tmp67115 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj66679 - __tmp67117 + __obj66676 + __tmp67114 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67121 - (let ((__tmp67122 - (let ((__tmp67123 |[1]#_g67124_|)) + (let ((__tmp67118 + (let ((__tmp67119 + (let ((__tmp67120 |[1]#_g67121_|)) (declare (not safe)) - (cons 'continuation __tmp67123)))) + (cons 'continuation __tmp67120)))) (declare (not safe)) - (cons __tmp67122 '())))) + (cons __tmp67119 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj66679 - __tmp67121 + __obj66676 + __tmp67118 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67125 - (let ((__tmp67126 - (let ((__tmp67127 |[1]#_g67128_|)) + (let ((__tmp67122 + (let ((__tmp67123 + (let ((__tmp67124 |[1]#_g67125_|)) (declare (not safe)) - (cons 'continuation __tmp67127)))) + (cons 'continuation __tmp67124)))) (declare (not safe)) - (cons __tmp67126 '())))) + (cons __tmp67123 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj66679 - __tmp67125 + __obj66676 + __tmp67122 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67129 - (let ((__tmp67130 - (let ((__tmp67131 |[1]#_g67132_|)) + (let ((__tmp67126 + (let ((__tmp67127 + (let ((__tmp67128 |[1]#_g67129_|)) (declare (not safe)) - (cons 'continuation __tmp67131)))) + (cons 'continuation __tmp67128)))) (declare (not safe)) - (cons __tmp67130 '())))) + (cons __tmp67127 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj66679 - __tmp67129 + __obj66676 + __tmp67126 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj66679)) + __obj66676)) (define |[:0:]#Error| - (let ((__obj66680 + (let ((__obj66677 (let () (declare (not safe)) (##structure @@ -627,7 +627,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66680 + __obj66677 '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! - __obj66680 + __obj66677 'Error '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -643,30 +643,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66680 + __obj66677 '(message irritants where) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67133 - (let ((__tmp67137 |[1]#_g67138_|) - (__tmp67134 - (let ((__tmp67135 |[1]#_g67136_|)) + (let ((__tmp67130 + (let ((__tmp67134 |[1]#_g67135_|) + (__tmp67131 + (let ((__tmp67132 |[1]#_g67133_|)) (declare (not safe)) - (cons __tmp67135 '())))) + (cons __tmp67132 '())))) (declare (not safe)) - (cons __tmp67137 __tmp67134)))) + (cons __tmp67134 __tmp67131)))) (declare (not safe)) (##unchecked-structure-set! - __obj66680 - __tmp67133 + __obj66677 + __tmp67130 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj66680 + __obj66677 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -674,7 +674,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66680 + __obj66677 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -682,7 +682,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66680 + __obj66677 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -690,178 +690,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66680 + __obj66677 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67139 |[1]#_g67140_|)) + (let ((__tmp67136 |[1]#_g67137_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66680 - __tmp67139 + __obj66677 + __tmp67136 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67141 |[1]#_g67142_|)) + (let ((__tmp67138 |[1]#_g67139_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66680 - __tmp67141 + __obj66677 + __tmp67138 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67143 |[1]#_g67144_|)) + (let ((__tmp67140 |[1]#_g67141_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66680 - __tmp67143 + __obj66677 + __tmp67140 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67145 - (let ((__tmp67158 - (let ((__tmp67159 |[1]#_g67160_|)) + (let ((__tmp67142 + (let ((__tmp67155 + (let ((__tmp67156 |[1]#_g67157_|)) (declare (not safe)) - (cons 'message __tmp67159))) - (__tmp67146 - (let ((__tmp67155 - (let ((__tmp67156 |[1]#_g67157_|)) + (cons 'message __tmp67156))) + (__tmp67143 + (let ((__tmp67152 + (let ((__tmp67153 |[1]#_g67154_|)) (declare (not safe)) - (cons 'irritants __tmp67156))) - (__tmp67147 - (let ((__tmp67152 - (let ((__tmp67153 |[1]#_g67154_|)) + (cons 'irritants __tmp67153))) + (__tmp67144 + (let ((__tmp67149 + (let ((__tmp67150 |[1]#_g67151_|)) (declare (not safe)) - (cons 'where __tmp67153))) - (__tmp67148 - (let ((__tmp67149 - (let ((__tmp67150 |[1]#_g67151_|)) + (cons 'where __tmp67150))) + (__tmp67145 + (let ((__tmp67146 + (let ((__tmp67147 |[1]#_g67148_|)) (declare (not safe)) - (cons 'continuation __tmp67150)))) + (cons 'continuation __tmp67147)))) (declare (not safe)) - (cons __tmp67149 '())))) + (cons __tmp67146 '())))) (declare (not safe)) - (cons __tmp67152 __tmp67148)))) + (cons __tmp67149 __tmp67145)))) (declare (not safe)) - (cons __tmp67155 __tmp67147)))) + (cons __tmp67152 __tmp67144)))) (declare (not safe)) - (cons __tmp67158 __tmp67146)))) + (cons __tmp67155 __tmp67143)))) (declare (not safe)) (##unchecked-structure-set! - __obj66680 - __tmp67145 + __obj66677 + __tmp67142 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67161 - (let ((__tmp67174 - (let ((__tmp67175 |[1]#_g67176_|)) + (let ((__tmp67158 + (let ((__tmp67171 + (let ((__tmp67172 |[1]#_g67173_|)) (declare (not safe)) - (cons 'message __tmp67175))) - (__tmp67162 - (let ((__tmp67171 - (let ((__tmp67172 |[1]#_g67173_|)) + (cons 'message __tmp67172))) + (__tmp67159 + (let ((__tmp67168 + (let ((__tmp67169 |[1]#_g67170_|)) (declare (not safe)) - (cons 'irritants __tmp67172))) - (__tmp67163 - (let ((__tmp67168 - (let ((__tmp67169 |[1]#_g67170_|)) + (cons 'irritants __tmp67169))) + (__tmp67160 + (let ((__tmp67165 + (let ((__tmp67166 |[1]#_g67167_|)) (declare (not safe)) - (cons 'where __tmp67169))) - (__tmp67164 - (let ((__tmp67165 - (let ((__tmp67166 |[1]#_g67167_|)) + (cons 'where __tmp67166))) + (__tmp67161 + (let ((__tmp67162 + (let ((__tmp67163 |[1]#_g67164_|)) (declare (not safe)) - (cons 'continuation __tmp67166)))) + (cons 'continuation __tmp67163)))) (declare (not safe)) - (cons __tmp67165 '())))) + (cons __tmp67162 '())))) (declare (not safe)) - (cons __tmp67168 __tmp67164)))) + (cons __tmp67165 __tmp67161)))) (declare (not safe)) - (cons __tmp67171 __tmp67163)))) + (cons __tmp67168 __tmp67160)))) (declare (not safe)) - (cons __tmp67174 __tmp67162)))) + (cons __tmp67171 __tmp67159)))) (declare (not safe)) (##unchecked-structure-set! - __obj66680 - __tmp67161 + __obj66677 + __tmp67158 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67177 - (let ((__tmp67190 - (let ((__tmp67191 |[1]#_g67192_|)) + (let ((__tmp67174 + (let ((__tmp67187 + (let ((__tmp67188 |[1]#_g67189_|)) (declare (not safe)) - (cons 'message __tmp67191))) - (__tmp67178 - (let ((__tmp67187 - (let ((__tmp67188 |[1]#_g67189_|)) + (cons 'message __tmp67188))) + (__tmp67175 + (let ((__tmp67184 + (let ((__tmp67185 |[1]#_g67186_|)) (declare (not safe)) - (cons 'irritants __tmp67188))) - (__tmp67179 - (let ((__tmp67184 - (let ((__tmp67185 |[1]#_g67186_|)) + (cons 'irritants __tmp67185))) + (__tmp67176 + (let ((__tmp67181 + (let ((__tmp67182 |[1]#_g67183_|)) (declare (not safe)) - (cons 'where __tmp67185))) - (__tmp67180 - (let ((__tmp67181 - (let ((__tmp67182 |[1]#_g67183_|)) + (cons 'where __tmp67182))) + (__tmp67177 + (let ((__tmp67178 + (let ((__tmp67179 |[1]#_g67180_|)) (declare (not safe)) - (cons 'continuation __tmp67182)))) + (cons 'continuation __tmp67179)))) (declare (not safe)) - (cons __tmp67181 '())))) + (cons __tmp67178 '())))) (declare (not safe)) - (cons __tmp67184 __tmp67180)))) + (cons __tmp67181 __tmp67177)))) (declare (not safe)) - (cons __tmp67187 __tmp67179)))) + (cons __tmp67184 __tmp67176)))) (declare (not safe)) - (cons __tmp67190 __tmp67178)))) + (cons __tmp67187 __tmp67175)))) (declare (not safe)) (##unchecked-structure-set! - __obj66680 - __tmp67177 + __obj66677 + __tmp67174 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67193 - (let ((__tmp67206 - (let ((__tmp67207 |[1]#_g67208_|)) + (let ((__tmp67190 + (let ((__tmp67203 + (let ((__tmp67204 |[1]#_g67205_|)) (declare (not safe)) - (cons 'message __tmp67207))) - (__tmp67194 - (let ((__tmp67203 - (let ((__tmp67204 |[1]#_g67205_|)) + (cons 'message __tmp67204))) + (__tmp67191 + (let ((__tmp67200 + (let ((__tmp67201 |[1]#_g67202_|)) (declare (not safe)) - (cons 'irritants __tmp67204))) - (__tmp67195 - (let ((__tmp67200 - (let ((__tmp67201 |[1]#_g67202_|)) + (cons 'irritants __tmp67201))) + (__tmp67192 + (let ((__tmp67197 + (let ((__tmp67198 |[1]#_g67199_|)) (declare (not safe)) - (cons 'where __tmp67201))) - (__tmp67196 - (let ((__tmp67197 - (let ((__tmp67198 |[1]#_g67199_|)) + (cons 'where __tmp67198))) + (__tmp67193 + (let ((__tmp67194 + (let ((__tmp67195 |[1]#_g67196_|)) (declare (not safe)) - (cons 'continuation __tmp67198)))) + (cons 'continuation __tmp67195)))) (declare (not safe)) - (cons __tmp67197 '())))) + (cons __tmp67194 '())))) (declare (not safe)) - (cons __tmp67200 __tmp67196)))) + (cons __tmp67197 __tmp67193)))) (declare (not safe)) - (cons __tmp67203 __tmp67195)))) + (cons __tmp67200 __tmp67192)))) (declare (not safe)) - (cons __tmp67206 __tmp67194)))) + (cons __tmp67203 __tmp67191)))) (declare (not safe)) (##unchecked-structure-set! - __obj66680 - __tmp67193 + __obj66677 + __tmp67190 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj66680)) + __obj66677)) (define |[:0:]#RuntimeException| - (let ((__obj66681 + (let ((__obj66678 (let () (declare (not safe)) (##structure @@ -884,7 +884,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66681 + __obj66678 '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! - __obj66681 + __obj66678 'RuntimeException '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -900,30 +900,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66681 + __obj66678 '(exception) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67209 - (let ((__tmp67212 |[1]#_g67138_|) - (__tmp67210 - (let ((__tmp67211 |[1]#_g67136_|)) + (let ((__tmp67206 + (let ((__tmp67209 |[1]#_g67135_|) + (__tmp67207 + (let ((__tmp67208 |[1]#_g67133_|)) (declare (not safe)) - (cons __tmp67211 '())))) + (cons __tmp67208 '())))) (declare (not safe)) - (cons __tmp67212 __tmp67210)))) + (cons __tmp67209 __tmp67207)))) (declare (not safe)) (##unchecked-structure-set! - __obj66681 - __tmp67209 + __obj66678 + __tmp67206 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj66681 + __obj66678 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -931,7 +931,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66681 + __obj66678 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -939,7 +939,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66681 + __obj66678 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -947,971 +947,971 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66681 + __obj66678 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67213 |[1]#_g67214_|)) + (let ((__tmp67210 |[1]#_g67211_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66681 - __tmp67213 + __obj66678 + __tmp67210 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67215 |[1]#_g67216_|)) + (let ((__tmp67212 |[1]#_g67213_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66681 - __tmp67215 + __obj66678 + __tmp67212 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67217 |[1]#_g67218_|)) + (let ((__tmp67214 |[1]#_g67215_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66681 - __tmp67217 + __obj66678 + __tmp67214 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67219 - (let ((__tmp67224 - (let ((__tmp67225 |[1]#_g67226_|)) + (let ((__tmp67216 + (let ((__tmp67221 + (let ((__tmp67222 |[1]#_g67223_|)) (declare (not safe)) - (cons 'exception __tmp67225))) - (__tmp67220 - (let ((__tmp67221 - (let ((__tmp67222 |[1]#_g67223_|)) + (cons 'exception __tmp67222))) + (__tmp67217 + (let ((__tmp67218 + (let ((__tmp67219 |[1]#_g67220_|)) (declare (not safe)) - (cons 'continuation __tmp67222)))) + (cons 'continuation __tmp67219)))) (declare (not safe)) - (cons __tmp67221 '())))) + (cons __tmp67218 '())))) (declare (not safe)) - (cons __tmp67224 __tmp67220)))) + (cons __tmp67221 __tmp67217)))) (declare (not safe)) (##unchecked-structure-set! - __obj66681 - __tmp67219 + __obj66678 + __tmp67216 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67227 - (let ((__tmp67232 - (let ((__tmp67233 |[1]#_g67234_|)) + (let ((__tmp67224 + (let ((__tmp67229 + (let ((__tmp67230 |[1]#_g67231_|)) (declare (not safe)) - (cons 'exception __tmp67233))) - (__tmp67228 - (let ((__tmp67229 - (let ((__tmp67230 |[1]#_g67231_|)) + (cons 'exception __tmp67230))) + (__tmp67225 + (let ((__tmp67226 + (let ((__tmp67227 |[1]#_g67228_|)) (declare (not safe)) - (cons 'continuation __tmp67230)))) + (cons 'continuation __tmp67227)))) (declare (not safe)) - (cons __tmp67229 '())))) + (cons __tmp67226 '())))) (declare (not safe)) - (cons __tmp67232 __tmp67228)))) + (cons __tmp67229 __tmp67225)))) (declare (not safe)) (##unchecked-structure-set! - __obj66681 - __tmp67227 + __obj66678 + __tmp67224 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67235 - (let ((__tmp67240 - (let ((__tmp67241 |[1]#_g67242_|)) + (let ((__tmp67232 + (let ((__tmp67237 + (let ((__tmp67238 |[1]#_g67239_|)) (declare (not safe)) - (cons 'exception __tmp67241))) - (__tmp67236 - (let ((__tmp67237 - (let ((__tmp67238 |[1]#_g67239_|)) + (cons 'exception __tmp67238))) + (__tmp67233 + (let ((__tmp67234 + (let ((__tmp67235 |[1]#_g67236_|)) (declare (not safe)) - (cons 'continuation __tmp67238)))) + (cons 'continuation __tmp67235)))) (declare (not safe)) - (cons __tmp67237 '())))) + (cons __tmp67234 '())))) (declare (not safe)) - (cons __tmp67240 __tmp67236)))) + (cons __tmp67237 __tmp67233)))) (declare (not safe)) (##unchecked-structure-set! - __obj66681 - __tmp67235 + __obj66678 + __tmp67232 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67243 - (let ((__tmp67248 - (let ((__tmp67249 |[1]#_g67250_|)) + (let ((__tmp67240 + (let ((__tmp67245 + (let ((__tmp67246 |[1]#_g67247_|)) (declare (not safe)) - (cons 'exception __tmp67249))) - (__tmp67244 - (let ((__tmp67245 - (let ((__tmp67246 |[1]#_g67247_|)) + (cons 'exception __tmp67246))) + (__tmp67241 + (let ((__tmp67242 + (let ((__tmp67243 |[1]#_g67244_|)) (declare (not safe)) - (cons 'continuation __tmp67246)))) + (cons 'continuation __tmp67243)))) (declare (not safe)) - (cons __tmp67245 '())))) + (cons __tmp67242 '())))) (declare (not safe)) - (cons __tmp67248 __tmp67244)))) + (cons __tmp67245 __tmp67241)))) (declare (not safe)) (##unchecked-structure-set! - __obj66681 - __tmp67243 + __obj66678 + __tmp67240 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj66681)) + __obj66678)) (define |[:0:]#check-procedure| - (lambda (_$stx65037_) - (let* ((_g6504165059_ - (lambda (_g6504265055_) + (lambda (_$stx65034_) + (let* ((_g6503865056_ + (lambda (_g6503965052_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6504265055_))) - (_g6504065115_ - (lambda (_g6504265063_) - (if (gx#stx-pair? _g6504265063_) - (let ((_e6504765066_ (gx#syntax-e _g6504265063_))) - (let ((_hd6504665070_ + _g6503965052_))) + (_g6503765112_ + (lambda (_g6503965060_) + (if (gx#stx-pair? _g6503965060_) + (let ((_e6504465063_ (gx#syntax-e _g6503965060_))) + (let ((_hd6504365067_ (let () (declare (not safe)) - (##car _e6504765066_))) - (_tl6504565073_ + (##car _e6504465063_))) + (_tl6504265070_ (let () (declare (not safe)) - (##cdr _e6504765066_)))) - (if (gx#stx-pair? _tl6504565073_) - (let ((_e6505065076_ - (gx#syntax-e _tl6504565073_))) - (let ((_hd6504965080_ + (##cdr _e6504465063_)))) + (if (gx#stx-pair? _tl6504265070_) + (let ((_e6504765073_ + (gx#syntax-e _tl6504265070_))) + (let ((_hd6504665077_ (let () (declare (not safe)) - (##car _e6505065076_))) - (_tl6504865083_ + (##car _e6504765073_))) + (_tl6504565080_ (let () (declare (not safe)) - (##cdr _e6505065076_)))) - (if (gx#stx-pair? _tl6504865083_) - (let ((_e6505365086_ - (gx#syntax-e _tl6504865083_))) - (let ((_hd6505265090_ + (##cdr _e6504765073_)))) + (if (gx#stx-pair? _tl6504565080_) + (let ((_e6505065083_ + (gx#syntax-e _tl6504565080_))) + (let ((_hd6504965087_ (let () (declare (not safe)) - (##car _e6505365086_))) - (_tl6505165093_ + (##car _e6505065083_))) + (_tl6504865090_ (let () (declare (not safe)) - (##cdr _e6505365086_)))) - (if (gx#stx-null? _tl6505165093_) - ((lambda (_L65096_ _L65098_) - (let ((__tmp67272 + (##cdr _e6505065083_)))) + (if (gx#stx-null? _tl6504865090_) + ((lambda (_L65093_ _L65095_) + (let ((__tmp67269 (gx#datum->syntax '#f 'unless)) - (__tmp67251 - (let ((__tmp67269 - (let ((__tmp67271 + (__tmp67248 + (let ((__tmp67266 + (let ((__tmp67268 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'procedure?)) - (__tmp67270 + (__tmp67267 (let () (declare (not safe)) - (cons _L65098_ '())))) + (cons _L65095_ '())))) (declare (not safe)) - (cons __tmp67271 __tmp67270))) - (__tmp67252 - (let ((__tmp67253 - (let ((__tmp67268 (gx#datum->syntax '#f 'raise)) - (__tmp67254 - (let ((__tmp67255 - (let ((__tmp67267 + (cons __tmp67268 __tmp67267))) + (__tmp67249 + (let ((__tmp67250 + (let ((__tmp67265 (gx#datum->syntax '#f 'raise)) + (__tmp67251 + (let ((__tmp67252 + (let ((__tmp67264 (gx#datum->syntax '#f 'Error)) - (__tmp67256 - (let ((__tmp67257 - (let ((__tmp67258 + (__tmp67253 + (let ((__tmp67254 + (let ((__tmp67255 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp67264 - (let ((__tmp67266 + (let ((__tmp67261 + (let ((__tmp67263 (gx#datum->syntax '#f 'quote)) - (__tmp67265 + (__tmp67262 (let () (declare (not safe)) - (cons _L65096_ '())))) + (cons _L65093_ '())))) (declare (not safe)) - (cons __tmp67266 __tmp67265))) - (__tmp67259 - (let ((__tmp67260 - (let ((__tmp67261 - (let ((__tmp67263 + (cons __tmp67263 __tmp67262))) + (__tmp67256 + (let ((__tmp67257 + (let ((__tmp67258 + (let ((__tmp67260 (gx#datum->syntax '#f '@list)) - (__tmp67262 + (__tmp67259 (let () (declare (not safe)) - (cons _L65098_ '())))) + (cons _L65095_ '())))) (declare (not safe)) - (cons __tmp67263 __tmp67262)))) + (cons __tmp67260 __tmp67259)))) (declare (not safe)) - (cons __tmp67261 '())))) + (cons __tmp67258 '())))) (declare (not safe)) - (cons 'irritants: __tmp67260)))) + (cons 'irritants: __tmp67257)))) (declare (not safe)) - (cons __tmp67264 __tmp67259)))) + (cons __tmp67261 __tmp67256)))) (declare (not safe)) - (cons 'where: __tmp67258)))) + (cons 'where: __tmp67255)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"expected procedure" - __tmp67257)))) + __tmp67254)))) (declare (not safe)) - (cons __tmp67267 __tmp67256)))) + (cons __tmp67264 __tmp67253)))) (declare (not safe)) - (cons __tmp67255 '())))) + (cons __tmp67252 '())))) (declare (not safe)) - (cons __tmp67268 __tmp67254)))) + (cons __tmp67265 __tmp67251)))) (declare (not safe)) - (cons __tmp67253 '())))) + (cons __tmp67250 '())))) (declare (not safe)) - (cons __tmp67269 __tmp67252)))) + (cons __tmp67266 __tmp67249)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp67272 - __tmp67251))) - _hd6505265090_ - _hd6504965080_) - (_g6504165059_ _g6504265063_)))) - (_g6504165059_ _g6504265063_)))) - (_g6504165059_ _g6504265063_)))) - (_g6504165059_ _g6504265063_))))) - (_g6504065115_ _$stx65037_)))) + (cons __tmp67269 + __tmp67248))) + _hd6504965087_ + _hd6504665077_) + (_g6503865056_ _g6503965060_)))) + (_g6503865056_ _g6503965060_)))) + (_g6503865056_ _g6503965060_)))) + (_g6503865056_ _g6503965060_))))) + (_g6503765112_ _$stx65034_)))) (define |[:0:]#defruntime-exception| - (lambda (_stx65119_) - (let* ((_g6512265149_ - (lambda (_g6512365145_) + (lambda (_stx65116_) + (let* ((_g6511965146_ + (lambda (_g6512065142_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6512365145_))) - (_g6512165384_ - (lambda (_g6512365153_) - (if (gx#stx-pair? _g6512365153_) - (let ((_e6512865156_ (gx#syntax-e _g6512365153_))) - (let ((_hd6512765160_ + _g6512065142_))) + (_g6511865381_ + (lambda (_g6512065150_) + (if (gx#stx-pair? _g6512065150_) + (let ((_e6512565153_ (gx#syntax-e _g6512065150_))) + (let ((_hd6512465157_ (let () (declare (not safe)) - (##car _e6512865156_))) - (_tl6512665163_ + (##car _e6512565153_))) + (_tl6512365160_ (let () (declare (not safe)) - (##cdr _e6512865156_)))) - (if (gx#stx-pair? _tl6512665163_) - (let ((_e6513165166_ - (gx#syntax-e _tl6512665163_))) - (let ((_hd6513065170_ + (##cdr _e6512565153_)))) + (if (gx#stx-pair? _tl6512365160_) + (let ((_e6512865163_ + (gx#syntax-e _tl6512365160_))) + (let ((_hd6512765167_ (let () (declare (not safe)) - (##car _e6513165166_))) - (_tl6512965173_ + (##car _e6512865163_))) + (_tl6512665170_ (let () (declare (not safe)) - (##cdr _e6513165166_)))) - (if (gx#stx-pair? _hd6513065170_) - (let ((_e6513465176_ - (gx#syntax-e _hd6513065170_))) - (let ((_hd6513365180_ + (##cdr _e6512865163_)))) + (if (gx#stx-pair? _hd6512765167_) + (let ((_e6513165173_ + (gx#syntax-e _hd6512765167_))) + (let ((_hd6513065177_ (let () (declare (not safe)) - (##car _e6513465176_))) - (_tl6513265183_ + (##car _e6513165173_))) + (_tl6512965180_ (let () (declare (not safe)) - (##cdr _e6513465176_)))) + (##cdr _e6513165173_)))) (if (gx#stx-pair/null? - _tl6513265183_) - (let ((_g67273_ + _tl6512965180_) + (let ((_g67270_ (gx#syntax-split-splice - _tl6513265183_ + _tl6512965180_ '0))) (begin - (let ((_g67274_ + (let ((_g67271_ (let () (declare (not safe)) (if (##values? - _g67273_) + _g67270_) (##vector-length - _g67273_) + _g67270_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g67274_ 2))) - (error "Context expects 2 values" _g67274_))) + (##fx= _g67271_ 2))) + (error "Context expects 2 values" _g67271_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target6513565186_ + (let ((_target6513265183_ (let () (declare (not safe)) (##vector-ref - _g67273_ + _g67270_ 0))) - (_tl6513765189_ + (_tl6513465186_ (let () (declare (not safe)) (##vector-ref - _g67273_ + _g67270_ 1)))) (if (gx#stx-null? - _tl6513765189_) - (letrec ((_loop6513865192_ + _tl6513465186_) + (letrec ((_loop6513565189_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd6513665196_ _getf6514265199_) - (if (gx#stx-pair? _hd6513665196_) - (let ((_e6513965202_ - (gx#syntax-e _hd6513665196_))) - (let ((_lp-hd6514065206_ + (lambda (_hd6513365193_ _getf6513965196_) + (if (gx#stx-pair? _hd6513365193_) + (let ((_e6513665199_ + (gx#syntax-e _hd6513365193_))) + (let ((_lp-hd6513765203_ (let () (declare (not safe)) - (##car _e6513965202_))) - (_lp-tl6514165209_ + (##car _e6513665199_))) + (_lp-tl6513865206_ (let () (declare (not safe)) - (##cdr _e6513965202_)))) - (_loop6513865192_ - _lp-tl6514165209_ + (##cdr _e6513665199_)))) + (_loop6513565189_ + _lp-tl6513865206_ (let () (declare (not safe)) - (cons _lp-hd6514065206_ - _getf6514265199_))))) - (let ((_getf6514365212_ - (reverse _getf6514265199_))) - (if (gx#stx-null? _tl6512965173_) - ((lambda (_L65216_ _L65218_) - (let* ((_g6523865262_ - (lambda (_g6523965258_) + (cons _lp-hd6513765203_ + _getf6513965196_))))) + (let ((_getf6514065209_ + (reverse _getf6513965196_))) + (if (gx#stx-null? _tl6512665170_) + ((lambda (_L65213_ _L65215_) + (let* ((_g6523565259_ + (lambda (_g6523665255_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6523965258_))) - (_g6523765369_ - (lambda (_g6523965266_) + _g6523665255_))) + (_g6523465366_ + (lambda (_g6523665263_) (if (gx#stx-pair? - _g6523965266_) - (let ((_e6524465269_ + _g6523665263_) + (let ((_e6524165266_ (gx#syntax-e - _g6523965266_))) - (let ((_hd6524365273_ + _g6523665263_))) + (let ((_hd6524065270_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e6524465269_))) - (_tl6524265276_ - (let () (declare (not safe)) (##cdr _e6524465269_)))) - (if (gx#stx-pair? _tl6524265276_) - (let ((_e6524765279_ (gx#syntax-e _tl6524265276_))) - (let ((_hd6524665283_ + (##car _e6524165266_))) + (_tl6523965273_ + (let () (declare (not safe)) (##cdr _e6524165266_)))) + (if (gx#stx-pair? _tl6523965273_) + (let ((_e6524465276_ (gx#syntax-e _tl6523965273_))) + (let ((_hd6524365280_ (let () (declare (not safe)) - (##car _e6524765279_))) - (_tl6524565286_ + (##car _e6524465276_))) + (_tl6524265283_ (let () (declare (not safe)) - (##cdr _e6524765279_)))) - (if (gx#stx-pair/null? _hd6524665283_) - (let ((_g67275_ + (##cdr _e6524465276_)))) + (if (gx#stx-pair/null? _hd6524365280_) + (let ((_g67272_ (gx#syntax-split-splice - _hd6524665283_ + _hd6524365280_ '0))) (begin - (let ((_g67276_ + (let ((_g67273_ (let () (declare (not safe)) - (if (##values? _g67275_) - (##vector-length _g67275_) + (if (##values? _g67272_) + (##vector-length _g67272_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g67276_ 2))) + (##fx= _g67273_ 2))) (error "Context expects 2 values" - _g67276_))) - (let ((_target6524865289_ + _g67273_))) + (let ((_target6524565286_ (let () (declare (not safe)) - (##vector-ref _g67275_ 0))) - (_tl6525065292_ + (##vector-ref _g67272_ 0))) + (_tl6524765289_ (let () (declare (not safe)) - (##vector-ref _g67275_ 1)))) - (if (gx#stx-null? _tl6525065292_) - (letrec ((_loop6525165295_ - (lambda (_hd6524965299_ - _macro-getf6525565302_) + (##vector-ref _g67272_ 1)))) + (if (gx#stx-null? _tl6524765289_) + (letrec ((_loop6524865292_ + (lambda (_hd6524665296_ + _macro-getf6525265299_) (if (gx#stx-pair? - _hd6524965299_) - (let ((_e6525265305_ + _hd6524665296_) + (let ((_e6524965302_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd6524965299_))) - (let ((_lp-hd6525365309_ - (let () (declare (not safe)) (##car _e6525265305_))) - (_lp-tl6525465312_ - (let () (declare (not safe)) (##cdr _e6525265305_)))) - (_loop6525165295_ - _lp-tl6525465312_ + _hd6524665296_))) + (let ((_lp-hd6525065306_ + (let () (declare (not safe)) (##car _e6524965302_))) + (_lp-tl6525165309_ + (let () (declare (not safe)) (##cdr _e6524965302_)))) + (_loop6524865292_ + _lp-tl6525165309_ (let () (declare (not safe)) - (cons _lp-hd6525365309_ _macro-getf6525565302_))))) - (let ((_macro-getf6525665315_ - (reverse _macro-getf6525565302_))) - (if (gx#stx-null? _tl6524565286_) - ((lambda (_L65319_ _L65321_) + (cons _lp-hd6525065306_ _macro-getf6525265299_))))) + (let ((_macro-getf6525365312_ + (reverse _macro-getf6525265299_))) + (if (gx#stx-null? _tl6524265283_) + ((lambda (_L65316_ _L65318_) (let () - (let ((__tmp67400 (gx#datum->syntax '#f 'begin)) - (__tmp67277 - (let ((__tmp67395 - (let ((__tmp67399 + (let ((__tmp67397 (gx#datum->syntax '#f 'begin)) + (__tmp67274 + (let ((__tmp67392 + (let ((__tmp67396 (gx#datum->syntax '#f 'extern)) - (__tmp67396 - (let ((__tmp67397 - (let ((__tmp67398 - (lambda (_g6534665349_ + (__tmp67393 + (let ((__tmp67394 + (let ((__tmp67395 + (lambda (_g6534365346_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g6534765352_) + _g6534465349_) (let () (declare (not safe)) - (cons _g6534665349_ _g6534765352_))))) + (cons _g6534365346_ _g6534465349_))))) (declare (not safe)) - (foldr1 __tmp67398 '() _L65319_)))) + (foldr1 __tmp67395 '() _L65316_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L65321_ - __tmp67397)))) + (cons _L65318_ + __tmp67394)))) (declare (not safe)) - (cons __tmp67399 __tmp67396))) - (__tmp67278 - (let ((__tmp67362 - (let ((__tmp67394 + (cons __tmp67396 __tmp67393))) + (__tmp67275 + (let ((__tmp67359 + (let ((__tmp67391 (gx#datum->syntax '#f 'def)) - (__tmp67363 - (let ((__tmp67391 - (let ((__tmp67392 + (__tmp67360 + (let ((__tmp67388 + (let ((__tmp67389 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp67393 (gx#datum->syntax '#f 'exn))) + (let ((__tmp67390 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp67393 '())))) + (cons __tmp67390 '())))) (declare (not safe)) - (cons _L65218_ __tmp67392))) - (__tmp67364 - (let ((__tmp67365 - (let ((__tmp67390 (gx#datum->syntax '#f 'if)) - (__tmp67366 - (let ((__tmp67386 - (let ((__tmp67389 + (cons _L65215_ __tmp67389))) + (__tmp67361 + (let ((__tmp67362 + (let ((__tmp67387 (gx#datum->syntax '#f 'if)) + (__tmp67363 + (let ((__tmp67383 + (let ((__tmp67386 (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp67387 - (let ((__tmp67388 + (__tmp67384 + (let ((__tmp67385 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp67388 '())))) + (cons __tmp67385 '())))) (declare (not safe)) - (cons __tmp67389 __tmp67387))) - (__tmp67367 - (let ((__tmp67372 - (let ((__tmp67385 + (cons __tmp67386 __tmp67384))) + (__tmp67364 + (let ((__tmp67369 + (let ((__tmp67382 (gx#datum->syntax '#f 'let)) - (__tmp67373 - (let ((__tmp67378 + (__tmp67370 + (let ((__tmp67375 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp67384 (gx#datum->syntax '#f 'e)) - (__tmp67379 - (let ((__tmp67380 - (let ((__tmp67383 + (let ((__tmp67381 (gx#datum->syntax '#f 'e)) + (__tmp67376 + (let ((__tmp67377 + (let ((__tmp67380 (gx#datum->syntax '#f '&RuntimeException-exception)) - (__tmp67381 - (let ((__tmp67382 + (__tmp67378 + (let ((__tmp67379 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp67382 '())))) + (cons __tmp67379 '())))) (declare (not safe)) - (cons __tmp67383 __tmp67381)))) + (cons __tmp67380 __tmp67378)))) (declare (not safe)) - (cons __tmp67380 '())))) + (cons __tmp67377 '())))) (declare (not safe)) - (cons __tmp67384 __tmp67379))) - (__tmp67374 - (let ((__tmp67375 - (let ((__tmp67376 - (let ((__tmp67377 + (cons __tmp67381 __tmp67376))) + (__tmp67371 + (let ((__tmp67372 + (let ((__tmp67373 + (let ((__tmp67374 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp67377 '())))) + (cons __tmp67374 '())))) (declare (not safe)) - (cons _L65321_ __tmp67376)))) + (cons _L65318_ __tmp67373)))) (declare (not safe)) - (cons __tmp67375 '())))) + (cons __tmp67372 '())))) (declare (not safe)) - (cons __tmp67378 __tmp67374)))) + (cons __tmp67375 __tmp67371)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp67385 - __tmp67373))) - (__tmp67368 - (let ((__tmp67369 - (let ((__tmp67370 + (cons __tmp67382 + __tmp67370))) + (__tmp67365 + (let ((__tmp67366 + (let ((__tmp67367 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp67371 (gx#datum->syntax '#f 'exn))) + (let ((__tmp67368 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp67371 '())))) + (cons __tmp67368 '())))) (declare (not safe)) - (cons _L65321_ __tmp67370)))) + (cons _L65318_ __tmp67367)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp67369 '())))) + (cons __tmp67366 '())))) (declare (not safe)) - (cons __tmp67372 __tmp67368)))) + (cons __tmp67369 __tmp67365)))) (declare (not safe)) - (cons __tmp67386 __tmp67367)))) + (cons __tmp67383 __tmp67364)))) (declare (not safe)) - (cons __tmp67390 __tmp67366)))) + (cons __tmp67387 __tmp67363)))) (declare (not safe)) - (cons __tmp67365 '())))) + (cons __tmp67362 '())))) (declare (not safe)) - (cons __tmp67391 __tmp67364)))) + (cons __tmp67388 __tmp67361)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp67394 - __tmp67363))) - (__tmp67279 + (cons __tmp67391 + __tmp67360))) + (__tmp67276 (begin (gx#syntax-check-splice-targets - _L65216_ - _L65319_ - _L65216_ - _L65319_ - _L65216_) - (let ((__tmp67280 - (lambda (_g6534065355_ + _L65213_ + _L65316_ + _L65213_ + _L65316_ + _L65213_) + (let ((__tmp67277 + (lambda (_g6533765352_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g6534165358_ - _g6534265360_ - _g6534365362_ - _g6534465364_ - _g6534565366_) - (let ((__tmp67281 - (let ((__tmp67361 (gx#datum->syntax '#f 'def)) - (__tmp67282 - (let ((__tmp67358 - (let ((__tmp67359 - (let ((__tmp67360 + _g6533865355_ + _g6533965357_ + _g6534065359_ + _g6534165361_ + _g6534265363_) + (let ((__tmp67278 + (let ((__tmp67358 (gx#datum->syntax '#f 'def)) + (__tmp67279 + (let ((__tmp67355 + (let ((__tmp67356 + (let ((__tmp67357 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp67360 '())))) + (cons __tmp67357 '())))) (declare (not safe)) - (cons _g6534065355_ __tmp67359))) - (__tmp67283 - (let ((__tmp67284 - (let ((__tmp67357 + (cons _g6533765352_ __tmp67356))) + (__tmp67280 + (let ((__tmp67281 + (let ((__tmp67354 (gx#datum->syntax '#f 'if)) - (__tmp67285 - (let ((__tmp67353 - (let ((__tmp67356 + (__tmp67282 + (let ((__tmp67350 + (let ((__tmp67353 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp67354 - (let ((__tmp67355 (gx#datum->syntax '#f 'exn))) + (__tmp67351 + (let ((__tmp67352 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp67355 '())))) + (cons __tmp67352 '())))) (declare (not safe)) - (cons __tmp67356 __tmp67354))) - (__tmp67286 - (let ((__tmp67315 - (let ((__tmp67352 (gx#datum->syntax '#f 'let)) - (__tmp67316 - (let ((__tmp67345 - (let ((__tmp67351 + (cons __tmp67353 __tmp67351))) + (__tmp67283 + (let ((__tmp67312 + (let ((__tmp67349 (gx#datum->syntax '#f 'let)) + (__tmp67313 + (let ((__tmp67342 + (let ((__tmp67348 (gx#datum->syntax '#f 'e)) - (__tmp67346 - (let ((__tmp67347 - (let ((__tmp67350 + (__tmp67343 + (let ((__tmp67344 + (let ((__tmp67347 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '&RuntimeException-exception)) - (__tmp67348 - (let ((__tmp67349 (gx#datum->syntax '#f 'exn))) + (__tmp67345 + (let ((__tmp67346 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp67349 '())))) + (cons __tmp67346 '())))) (declare (not safe)) - (cons __tmp67350 __tmp67348)))) + (cons __tmp67347 __tmp67345)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp67347 '())))) + (cons __tmp67344 '())))) (declare (not safe)) - (cons __tmp67351 __tmp67346))) - (__tmp67317 - (let ((__tmp67318 - (let ((__tmp67344 + (cons __tmp67348 __tmp67343))) + (__tmp67314 + (let ((__tmp67315 + (let ((__tmp67341 (gx#datum->syntax '#f 'if)) - (__tmp67319 - (let ((__tmp67341 - (let ((__tmp67342 + (__tmp67316 + (let ((__tmp67338 + (let ((__tmp67339 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp67343 (gx#datum->syntax '#f 'e))) + (let ((__tmp67340 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp67343 '())))) + (cons __tmp67340 '())))) (declare (not safe)) - (cons _L65321_ __tmp67342))) - (__tmp67320 - (let ((__tmp67338 - (let ((__tmp67339 - (let ((__tmp67340 + (cons _L65318_ __tmp67339))) + (__tmp67317 + (let ((__tmp67335 + (let ((__tmp67336 + (let ((__tmp67337 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp67340 '())))) + (cons __tmp67337 '())))) (declare (not safe)) - (cons _g6534165358_ __tmp67339))) - (__tmp67321 - (let ((__tmp67322 - (let ((__tmp67337 + (cons _g6533865355_ __tmp67336))) + (__tmp67318 + (let ((__tmp67319 + (let ((__tmp67334 (gx#datum->syntax '#f 'error)) - (__tmp67323 - (let ((__tmp67324 - (let ((__tmp67334 - (let ((__tmp67336 + (__tmp67320 + (let ((__tmp67321 + (let ((__tmp67331 + (let ((__tmp67333 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp67335 - (let () (declare (not safe)) (cons _L65218_ '())))) + (__tmp67332 + (let () (declare (not safe)) (cons _L65215_ '())))) (declare (not safe)) - (cons __tmp67336 __tmp67335))) - (__tmp67325 - (let ((__tmp67326 - (let ((__tmp67333 (gx#datum->syntax '#f '@list)) - (__tmp67327 - (let ((__tmp67330 - (let ((__tmp67332 + (cons __tmp67333 __tmp67332))) + (__tmp67322 + (let ((__tmp67323 + (let ((__tmp67330 (gx#datum->syntax '#f '@list)) + (__tmp67324 + (let ((__tmp67327 + (let ((__tmp67329 (gx#datum->syntax '#f 'quote)) - (__tmp67331 + (__tmp67328 (let () (declare (not safe)) - (cons _g6534065355_ '())))) + (cons _g6533765352_ '())))) (declare (not safe)) - (cons __tmp67332 __tmp67331))) - (__tmp67328 - (let ((__tmp67329 + (cons __tmp67329 __tmp67328))) + (__tmp67325 + (let ((__tmp67326 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp67329 '())))) + (cons __tmp67326 '())))) (declare (not safe)) - (cons __tmp67330 __tmp67328)))) + (cons __tmp67327 __tmp67325)))) (declare (not safe)) - (cons __tmp67333 __tmp67327)))) + (cons __tmp67330 __tmp67324)))) (declare (not safe)) - (cons __tmp67326 '())))) + (cons __tmp67323 '())))) (declare (not safe)) - (cons __tmp67334 __tmp67325)))) + (cons __tmp67331 __tmp67322)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"not an instance" - __tmp67324)))) + __tmp67321)))) (declare (not safe)) - (cons __tmp67337 __tmp67323)))) + (cons __tmp67334 __tmp67320)))) (declare (not safe)) - (cons __tmp67322 '())))) + (cons __tmp67319 '())))) (declare (not safe)) - (cons __tmp67338 __tmp67321)))) + (cons __tmp67335 __tmp67318)))) (declare (not safe)) - (cons __tmp67341 __tmp67320)))) + (cons __tmp67338 __tmp67317)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp67344 - __tmp67319)))) + (cons __tmp67341 + __tmp67316)))) (declare (not safe)) - (cons __tmp67318 '())))) + (cons __tmp67315 '())))) (declare (not safe)) - (cons __tmp67345 __tmp67317)))) + (cons __tmp67342 __tmp67314)))) (declare (not safe)) - (cons __tmp67352 __tmp67316))) - (__tmp67287 - (let ((__tmp67288 - (let ((__tmp67314 + (cons __tmp67349 __tmp67313))) + (__tmp67284 + (let ((__tmp67285 + (let ((__tmp67311 (gx#datum->syntax '#f 'if)) - (__tmp67289 - (let ((__tmp67311 - (let ((__tmp67312 - (let ((__tmp67313 + (__tmp67286 + (let ((__tmp67308 + (let ((__tmp67309 + (let ((__tmp67310 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'exn))) (declare (not safe)) - (cons __tmp67313 '())))) + (cons __tmp67310 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L65321_ - __tmp67312))) - (__tmp67290 - (let ((__tmp67308 - (let ((__tmp67309 - (let ((__tmp67310 + (cons _L65318_ + __tmp67309))) + (__tmp67287 + (let ((__tmp67305 + (let ((__tmp67306 + (let ((__tmp67307 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp67310 '())))) + (cons __tmp67307 '())))) (declare (not safe)) - (cons _g6534165358_ __tmp67309))) - (__tmp67291 - (let ((__tmp67292 - (let ((__tmp67307 (gx#datum->syntax '#f 'error)) - (__tmp67293 - (let ((__tmp67294 - (let ((__tmp67304 - (let ((__tmp67306 + (cons _g6533865355_ __tmp67306))) + (__tmp67288 + (let ((__tmp67289 + (let ((__tmp67304 (gx#datum->syntax '#f 'error)) + (__tmp67290 + (let ((__tmp67291 + (let ((__tmp67301 + (let ((__tmp67303 (gx#datum->syntax '#f 'quote)) - (__tmp67305 + (__tmp67302 (let () (declare (not safe)) - (cons _L65218_ '())))) + (cons _L65215_ '())))) (declare (not safe)) - (cons __tmp67306 __tmp67305))) - (__tmp67295 - (let ((__tmp67296 - (let ((__tmp67303 + (cons __tmp67303 __tmp67302))) + (__tmp67292 + (let ((__tmp67293 + (let ((__tmp67300 (gx#datum->syntax '#f '@list)) - (__tmp67297 - (let ((__tmp67300 + (__tmp67294 + (let ((__tmp67297 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp67302 (gx#datum->syntax '#f 'quote)) - (__tmp67301 + (let ((__tmp67299 (gx#datum->syntax '#f 'quote)) + (__tmp67298 (let () (declare (not safe)) - (cons _g6534065355_ '())))) + (cons _g6533765352_ '())))) (declare (not safe)) - (cons __tmp67302 __tmp67301))) - (__tmp67298 - (let ((__tmp67299 (gx#datum->syntax '#f 'exn))) + (cons __tmp67299 __tmp67298))) + (__tmp67295 + (let ((__tmp67296 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp67299 '())))) + (cons __tmp67296 '())))) (declare (not safe)) - (cons __tmp67300 __tmp67298)))) + (cons __tmp67297 __tmp67295)))) (declare (not safe)) - (cons __tmp67303 __tmp67297)))) + (cons __tmp67300 __tmp67294)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp67296 '())))) + (cons __tmp67293 '())))) (declare (not safe)) - (cons __tmp67304 __tmp67295)))) + (cons __tmp67301 __tmp67292)))) (declare (not safe)) - (cons '"not an instance" __tmp67294)))) + (cons '"not an instance" __tmp67291)))) (declare (not safe)) - (cons __tmp67307 __tmp67293)))) + (cons __tmp67304 __tmp67290)))) (declare (not safe)) - (cons __tmp67292 '())))) + (cons __tmp67289 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp67308 - __tmp67291)))) + (cons __tmp67305 + __tmp67288)))) (declare (not safe)) - (cons __tmp67311 __tmp67290)))) + (cons __tmp67308 __tmp67287)))) (declare (not safe)) - (cons __tmp67314 __tmp67289)))) + (cons __tmp67311 __tmp67286)))) (declare (not safe)) - (cons __tmp67288 '())))) + (cons __tmp67285 '())))) (declare (not safe)) - (cons __tmp67315 __tmp67287)))) + (cons __tmp67312 __tmp67284)))) (declare (not safe)) - (cons __tmp67353 __tmp67286)))) + (cons __tmp67350 __tmp67283)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp67357 - __tmp67285)))) + (cons __tmp67354 + __tmp67282)))) (declare (not safe)) - (cons __tmp67284 '())))) + (cons __tmp67281 '())))) (declare (not safe)) - (cons __tmp67358 __tmp67283)))) + (cons __tmp67355 __tmp67280)))) (declare (not safe)) - (cons __tmp67361 __tmp67282)))) + (cons __tmp67358 __tmp67279)))) (declare (not safe)) - (cons __tmp67281 _g6534565366_))))) + (cons __tmp67278 _g6534265363_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr* __tmp67280 + (foldr* __tmp67277 '() - _L65216_ - _L65319_ - _L65216_ - _L65319_ - _L65216_))))) + _L65213_ + _L65316_ + _L65213_ + _L65316_ + _L65213_))))) (declare (not safe)) - (cons __tmp67362 __tmp67279)))) + (cons __tmp67359 __tmp67276)))) (declare (not safe)) - (cons __tmp67395 __tmp67278)))) + (cons __tmp67392 __tmp67275)))) (declare (not safe)) - (cons __tmp67400 __tmp67277)))) - _macro-getf6525665315_ - _hd6524365273_) - (_g6523865262_ _g6523965266_))))))) + (cons __tmp67397 __tmp67274)))) + _macro-getf6525365312_ + _hd6524065270_) + (_g6523565259_ _g6523665263_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop6525165295_ - _target6524865289_ + (_loop6524865292_ + _target6524565286_ '())) - (_g6523865262_ _g6523965266_))))) - (_g6523865262_ _g6523965266_)))) - (_g6523865262_ _g6523965266_)))) - (_g6523865262_ _g6523965266_))))) + (_g6523565259_ _g6523665263_))))) + (_g6523565259_ _g6523665263_)))) + (_g6523565259_ _g6523665263_)))) + (_g6523565259_ _g6523665263_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6523765369_ + (_g6523465366_ (list (gx#stx-identifier - _L65218_ + _L65215_ '"macro-" - _L65218_) - (map (lambda (_f65373_) + _L65215_) + (map (lambda (_f65370_) (gx#stx-identifier - _f65373_ + _f65370_ '"macro-" - _f65373_)) - (let ((__tmp67401 - (lambda (_g6537565378_ + _f65370_)) + (let ((__tmp67398 + (lambda (_g6537265375_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g6537665381_) + _g6537365378_) (let () (declare (not safe)) - (cons _g6537565378_ _g6537665381_))))) + (cons _g6537265375_ _g6537365378_))))) (declare (not safe)) - (foldr1 __tmp67401 '() _L65216_))))))) + (foldr1 __tmp67398 '() _L65213_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _getf6514365212_ - _hd6513365180_) - (_g6512265149_ _g6512365153_))))))) - (_loop6513865192_ _target6513565186_ '())) - (_g6512265149_ _g6512365153_))))) + _getf6514065209_ + _hd6513065177_) + (_g6511965146_ _g6512065150_))))))) + (_loop6513565189_ _target6513265183_ '())) + (_g6511965146_ _g6512065150_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6512265149_ _g6512365153_)))) - (_g6512265149_ _g6512365153_)))) - (_g6512265149_ _g6512365153_)))) - (_g6512265149_ _g6512365153_))))) - (_g6512165384_ _stx65119_)))) + (_g6511965146_ _g6512065150_)))) + (_g6511965146_ _g6512065150_)))) + (_g6511965146_ _g6512065150_)))) + (_g6511965146_ _g6512065150_))))) + (_g6511865381_ _stx65116_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_$stx65390_) - (let* ((_g6539465414_ - (lambda (_g6539565410_) + (lambda (_$stx65387_) + (let* ((_g6539165411_ + (lambda (_g6539265407_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6539565410_))) - (_g6539365485_ - (lambda (_g6539565418_) - (if (gx#stx-pair? _g6539565418_) - (let ((_e6539965421_ (gx#syntax-e _g6539565418_))) - (let ((_hd6539865425_ + _g6539265407_))) + (_g6539065482_ + (lambda (_g6539265415_) + (if (gx#stx-pair? _g6539265415_) + (let ((_e6539665418_ (gx#syntax-e _g6539265415_))) + (let ((_hd6539565422_ (let () (declare (not safe)) - (##car _e6539965421_))) - (_tl6539765428_ + (##car _e6539665418_))) + (_tl6539465425_ (let () (declare (not safe)) - (##cdr _e6539965421_)))) - (if (gx#stx-pair/null? _tl6539765428_) - (let ((_g67402_ + (##cdr _e6539665418_)))) + (if (gx#stx-pair/null? _tl6539465425_) + (let ((_g67399_ (gx#syntax-split-splice - _tl6539765428_ + _tl6539465425_ '0))) (begin - (let ((_g67403_ + (let ((_g67400_ (let () (declare (not safe)) - (if (##values? _g67402_) - (##vector-length _g67402_) + (if (##values? _g67399_) + (##vector-length _g67399_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g67403_ 2))) + (##fx= _g67400_ 2))) (error "Context expects 2 values" - _g67403_))) - (let ((_target6540065431_ + _g67400_))) + (let ((_target6539765428_ (let () (declare (not safe)) - (##vector-ref _g67402_ 0))) - (_tl6540265434_ + (##vector-ref _g67399_ 0))) + (_tl6539965431_ (let () (declare (not safe)) - (##vector-ref _g67402_ 1)))) - (if (gx#stx-null? _tl6540265434_) - (letrec ((_loop6540365437_ - (lambda (_hd6540165441_ - _defexn6540765444_) + (##vector-ref _g67399_ 1)))) + (if (gx#stx-null? _tl6539965431_) + (letrec ((_loop6540065434_ + (lambda (_hd6539865438_ + _defexn6540465441_) (if (gx#stx-pair? - _hd6540165441_) - (let ((_e6540465447_ + _hd6539865438_) + (let ((_e6540165444_ (gx#syntax-e - _hd6540165441_))) - (let ((_lp-hd6540565451_ + _hd6539865438_))) + (let ((_lp-hd6540265448_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e6540465447_))) - (_lp-tl6540665454_ - (let () (declare (not safe)) (##cdr _e6540465447_)))) - (_loop6540365437_ - _lp-tl6540665454_ + (let () (declare (not safe)) (##car _e6540165444_))) + (_lp-tl6540365451_ + (let () (declare (not safe)) (##cdr _e6540165444_)))) + (_loop6540065434_ + _lp-tl6540365451_ (let () (declare (not safe)) - (cons _lp-hd6540565451_ _defexn6540765444_))))) - (let ((_defexn6540865457_ (reverse _defexn6540765444_))) - ((lambda (_L65461_) - (let ((__tmp67409 (gx#datum->syntax '#f 'begin)) - (__tmp67404 - (let ((__tmp67405 - (lambda (_g6547665479_ _g6547765482_) - (let ((__tmp67406 - (let ((__tmp67408 + (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 (gx#datum->syntax '#f 'defruntime-exception)) - (__tmp67407 + (__tmp67404 (let () (declare (not safe)) - (cons _g6547665479_ + (cons _g6547365476_ '())))) (declare (not safe)) - (cons __tmp67408 __tmp67407)))) + (cons __tmp67405 __tmp67404)))) (declare (not safe)) - (cons __tmp67406 _g6547765482_))))) + (cons __tmp67403 _g6547465479_))))) (declare (not safe)) - (foldr1 __tmp67405 '() _L65461_)))) + (foldr1 __tmp67402 '() _L65458_)))) (declare (not safe)) - (cons __tmp67409 __tmp67404))) - _defexn6540865457_)))))) + (cons __tmp67406 __tmp67401))) + _defexn6540565454_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop6540365437_ - _target6540065431_ + (_loop6540065434_ + _target6539765428_ '())) - (_g6539465414_ _g6539565418_))))) - (_g6539465414_ _g6539565418_)))) - (_g6539465414_ _g6539565418_))))) - (_g6539365485_ _$stx65390_)))))) + (_g6539165411_ _g6539265415_))))) + (_g6539165411_ _g6539265415_)))) + (_g6539165411_ _g6539265415_))))) + (_g6539065482_ _$stx65387_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval__0.scm b/src/bootstrap/gerbil/runtime/eval__0.scm index 15b100de..64f13b5e 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 1709128371) + (define gerbil/runtime/eval::timestamp 1709229970) (begin (define __syntax::t - (let ((__tmp77845 (list)) - (__tmp77843 - (let ((__tmp77844 + (let ((__tmp77842 (list)) + (__tmp77840 + (let ((__tmp77841 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp77844 '())))) + (cons __tmp77841 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__syntax::t '__syntax - __tmp77845 + __tmp77842 '(e id) - __tmp77843 + __tmp77840 '#f))) (define __syntax? (let () (declare (not safe)) (make-class-predicate __syntax::t))) (define make-__syntax - (lambda _$args77654_ (apply make-instance __syntax::t _$args77654_))) + (lambda _$args77651_ (apply make-instance __syntax::t _$args77651_))) (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 ((__tmp77848 (list __syntax::t)) - (__tmp77846 - (let ((__tmp77847 + (let ((__tmp77845 (list __syntax::t)) + (__tmp77843 + (let ((__tmp77844 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp77847 '())))) + (cons __tmp77844 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__core-form::t '__core-form - __tmp77848 + __tmp77845 '() - __tmp77846 + __tmp77843 '#f))) (define __core-form? (let () (declare (not safe)) (make-class-predicate __core-form::t))) (define make-__core-form - (lambda _$args77651_ (apply make-instance __core-form::t _$args77651_))) + (lambda _$args77648_ (apply make-instance __core-form::t _$args77648_))) (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 ((__tmp77851 (list __core-form::t)) - (__tmp77849 - (let ((__tmp77850 + (let ((__tmp77848 (list __core-form::t)) + (__tmp77846 + (let ((__tmp77847 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp77850 '())))) + (cons __tmp77847 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__core-expression::t '__core-expression - __tmp77851 + __tmp77848 '() - __tmp77849 + __tmp77846 '#f))) (define __core-expression? (let () (declare (not safe)) (make-class-predicate __core-expression::t))) (define make-__core-expression - (lambda _$args77648_ - (apply make-instance __core-expression::t _$args77648_))) + (lambda _$args77645_ + (apply make-instance __core-expression::t _$args77645_))) (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 ((__tmp77854 (list __core-form::t)) - (__tmp77852 - (let ((__tmp77853 + (let ((__tmp77851 (list __core-form::t)) + (__tmp77849 + (let ((__tmp77850 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp77853 '())))) + (cons __tmp77850 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__core-special-form::t '__core-special-form - __tmp77854 + __tmp77851 '() - __tmp77852 + __tmp77849 '#f))) (define __core-special-form? (let () (declare (not safe)) (make-class-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _$args77645_ - (apply make-instance __core-special-form::t _$args77645_))) + (lambda _$args77642_ + (apply make-instance __core-special-form::t _$args77642_))) (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 (_id77643_) - (let ((__tmp77855 (let () (declare (not safe)) (__AST-e _id77643_)))) + (lambda (_id77640_) + (let ((__tmp77852 (let () (declare (not safe)) (__AST-e _id77640_)))) (declare (not safe)) - (hash-get __core __tmp77855)))) + (hash-get __core __tmp77852)))) (define __core-bound-id?__% - (lambda (_id77627_ _is?77628_) - (let ((_$e77630_ - (let () (declare (not safe)) (__core-resolve _id77627_)))) - (if _$e77630_ (_is?77628_ _$e77630_) '#f)))) + (lambda (_id77624_ _is?77625_) + (let ((_$e77627_ + (let () (declare (not safe)) (__core-resolve _id77624_)))) + (if _$e77627_ (_is?77625_ _$e77627_) '#f)))) (define __core-bound-id?__0 - (lambda (_id77636_) - (let ((_is?77638_ true)) + (lambda (_id77633_) + (let ((_is?77635_ true)) (declare (not safe)) - (__core-bound-id?__% _id77636_ _is?77638_)))) + (__core-bound-id?__% _id77633_ _is?77635_)))) (define __core-bound-id? - (lambda _g77857_ - (let ((_g77856_ (let () (declare (not safe)) (##length _g77857_)))) - (cond ((let () (declare (not safe)) (##fx= _g77856_ 1)) - (apply (lambda (_id77636_) + (lambda _g77854_ + (let ((_g77853_ (let () (declare (not safe)) (##length _g77854_)))) + (cond ((let () (declare (not safe)) (##fx= _g77853_ 1)) + (apply (lambda (_id77633_) (let () (declare (not safe)) - (__core-bound-id?__0 _id77636_))) - _g77857_)) - ((let () (declare (not safe)) (##fx= _g77856_ 2)) - (apply (lambda (_id77640_ _is?77641_) + (__core-bound-id?__0 _id77633_))) + _g77854_)) + ((let () (declare (not safe)) (##fx= _g77853_ 2)) + (apply (lambda (_id77637_ _is?77638_) (let () (declare (not safe)) - (__core-bound-id?__% _id77640_ _is?77641_))) - _g77857_)) + (__core-bound-id?__% _id77637_ _is?77638_))) + _g77854_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g77857_)))))) + _g77854_)))))) (define __core-bind-syntax!__% - (lambda (_id77610_ _e77611_ _make77612_) - (let ((__tmp77858 + (lambda (_id77607_ _e77608_ _make77609_) + (let ((__tmp77855 (if (let () (declare (not safe)) (##structure-instance-of? - _e77611_ + _e77608_ 'gerbil/runtime/eval#__syntax::t)) - _e77611_ - (_make77612_ _e77611_ _id77610_)))) + _e77608_ + (_make77609_ _e77608_ _id77607_)))) (declare (not safe)) - (hash-put! __core _id77610_ __tmp77858)))) + (hash-put! __core _id77607_ __tmp77855)))) (define __core-bind-syntax!__0 - (lambda (_id77617_ _e77618_) - (let ((_make77620_ make-__syntax)) + (lambda (_id77614_ _e77615_) + (let ((_make77617_ make-__syntax)) (declare (not safe)) - (__core-bind-syntax!__% _id77617_ _e77618_ _make77620_)))) + (__core-bind-syntax!__% _id77614_ _e77615_ _make77617_)))) (define __core-bind-syntax! - (lambda _g77860_ - (let ((_g77859_ (let () (declare (not safe)) (##length _g77860_)))) - (cond ((let () (declare (not safe)) (##fx= _g77859_ 2)) - (apply (lambda (_id77617_ _e77618_) + (lambda _g77857_ + (let ((_g77856_ (let () (declare (not safe)) (##length _g77857_)))) + (cond ((let () (declare (not safe)) (##fx= _g77856_ 2)) + (apply (lambda (_id77614_ _e77615_) (let () (declare (not safe)) - (__core-bind-syntax!__0 _id77617_ _e77618_))) - _g77860_)) - ((let () (declare (not safe)) (##fx= _g77859_ 3)) - (apply (lambda (_id77622_ _e77623_ _make77624_) + (__core-bind-syntax!__0 _id77614_ _e77615_))) + _g77857_)) + ((let () (declare (not safe)) (##fx= _g77856_ 3)) + (apply (lambda (_id77619_ _e77620_ _make77621_) (let () (declare (not safe)) (__core-bind-syntax!__% - _id77622_ - _e77623_ - _make77624_))) - _g77860_)) + _id77619_ + _e77620_ + _make77621_))) + _g77857_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g77860_)))))) + _g77857_)))))) (define __SRC__% - (lambda (_e77593_ _src-stx77594_) - (if (or (let () (declare (not safe)) (pair? _e77593_)) - (let () (declare (not safe)) (symbol? _e77593_))) - (let ((__tmp77864 + (lambda (_e77590_ _src-stx77591_) + (if (or (let () (declare (not safe)) (pair? _e77590_)) + (let () (declare (not safe)) (symbol? _e77590_))) + (let ((__tmp77861 (if (let () (declare (not safe)) (##structure-instance-of? - _src-stx77594_ + _src-stx77591_ 'gerbil#AST::t)) - (let ((__tmp77865 + (let ((__tmp77862 (let () (declare (not safe)) - (__AST-source _src-stx77594_)))) + (__AST-source _src-stx77591_)))) (declare (not safe)) - (__locat __tmp77865)) + (__locat __tmp77862)) '#f))) (declare (not safe)) - (##make-source _e77593_ __tmp77864)) + (##make-source _e77590_ __tmp77861)) (if (let () (declare (not safe)) - (##structure-instance-of? _e77593_ 'gerbil#AST::t)) - (let ((__tmp77863 + (##structure-instance-of? _e77590_ 'gerbil#AST::t)) + (let ((__tmp77860 (let () (declare (not safe)) - (##unchecked-structure-ref _e77593_ '1 AST::t '#f))) - (__tmp77861 - (let ((__tmp77862 + (##unchecked-structure-ref _e77590_ '1 AST::t '#f))) + (__tmp77858 + (let ((__tmp77859 (let () (declare (not safe)) - (__AST-source _e77593_)))) + (__AST-source _e77590_)))) (declare (not safe)) - (__locat __tmp77862)))) + (__locat __tmp77859)))) (declare (not safe)) - (##make-source __tmp77863 __tmp77861)) + (##make-source __tmp77860 __tmp77858)) (let () (declare (not safe)) - (error '"BUG! Cannot sourcify object" _e77593_)))))) + (error '"BUG! Cannot sourcify object" _e77590_)))))) (define __SRC__0 - (lambda (_e77602_) - (let ((_src-stx77604_ '#f)) + (lambda (_e77599_) + (let ((_src-stx77601_ '#f)) (declare (not safe)) - (__SRC__% _e77602_ _src-stx77604_)))) + (__SRC__% _e77599_ _src-stx77601_)))) (define __SRC - (lambda _g77867_ - (let ((_g77866_ (let () (declare (not safe)) (##length _g77867_)))) - (cond ((let () (declare (not safe)) (##fx= _g77866_ 1)) - (apply (lambda (_e77602_) - (let () (declare (not safe)) (__SRC__0 _e77602_))) - _g77867_)) - ((let () (declare (not safe)) (##fx= _g77866_ 2)) - (apply (lambda (_e77606_ _src-stx77607_) + (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_) (let () (declare (not safe)) - (__SRC__% _e77606_ _src-stx77607_))) - _g77867_)) + (__SRC__% _e77603_ _src-stx77604_))) + _g77864_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g77867_)))))) + _g77864_)))))) (define __locat - (lambda (_loc77590_) - (if (let () (declare (not safe)) (##locat? _loc77590_)) - _loc77590_ + (lambda (_loc77587_) + (if (let () (declare (not safe)) (##locat? _loc77587_)) + _loc77587_ '#f))) (define __check-values - (lambda (_obj77585_ _k77586_) - (let ((_count77588_ - (if (let () (declare (not safe)) (##values? _obj77585_)) - (let () (declare (not safe)) (##vector-length _obj77585_)) + (lambda (_obj77582_ _k77583_) + (let ((_count77585_ + (if (let () (declare (not safe)) (##values? _obj77582_)) + (let () (declare (not safe)) (##vector-length _obj77582_)) '1))) - (if (fx= _count77588_ _k77586_) + (if (fx= _count77585_ _k77583_) '#!void - (let ((__tmp77869 - (if (fx< _count77588_ _k77586_) + (let ((__tmp77866 + (if (fx< _count77585_ _k77583_) '"Too few values for context" '"Too many values for context")) - (__tmp77868 - (if (let () (declare (not safe)) (##values? _obj77585_)) + (__tmp77865 + (if (let () (declare (not safe)) (##values? _obj77582_)) (let () (declare (not safe)) - (##vector->list _obj77585_)) - _obj77585_))) + (##vector->list _obj77582_)) + _obj77582_))) (declare (not safe)) - (error __tmp77869 __tmp77868 _k77586_)))))) + (error __tmp77866 __tmp77865 _k77583_)))))) (define __compile - (lambda (_stx77555_) - (let* ((_$e77557_ _stx77555_) - (_$E7755977565_ + (lambda (_stx77552_) + (let* ((_$e77554_ _stx77552_) + (_$E7755677562_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77557_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77557_)) - (let* ((_$tgt7756077568_ - (let () (declare (not safe)) (__AST-e _$e77557_))) - (_$hd7756177571_ - (let () (declare (not safe)) (##car _$tgt7756077568_))) - (_$tl7756277574_ - (let () (declare (not safe)) (##cdr _$tgt7756077568_)))) - (let* ((_form77578_ _$hd7756177571_) - (_$e77580_ + _$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_ (let () (declare (not safe)) - (__core-resolve _form77578_)))) - (if _$e77580_ - ((lambda (_bind77583_) - ((##structure-ref _bind77583_ '1 __syntax::t '#f) - _stx77555_)) - _$e77580_) + (__core-resolve _form77575_)))) + (if _$e77577_ + ((lambda (_bind77580_) + ((##structure-ref _bind77580_ '1 __syntax::t '#f) + _stx77552_)) + _$e77577_) (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; cannot resolve form" - _stx77555_ - _form77578_))))) - (let () (declare (not safe)) (_$E7755977565_)))))) + _stx77552_ + _form77575_))))) + (let () (declare (not safe)) (_$E7755677562_)))))) (define __compile-error__% - (lambda (_stx77542_ _detail77543_) + (lambda (_stx77539_ _detail77540_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _stx77542_ - _detail77543_)))) + _stx77539_ + _detail77540_)))) (define __compile-error__0 - (lambda (_stx77548_) - (let ((_detail77550_ '#f)) + (lambda (_stx77545_) + (let ((_detail77547_ '#f)) (declare (not safe)) - (__compile-error__% _stx77548_ _detail77550_)))) + (__compile-error__% _stx77545_ _detail77547_)))) (define __compile-error - (lambda _g77871_ - (let ((_g77870_ (let () (declare (not safe)) (##length _g77871_)))) - (cond ((let () (declare (not safe)) (##fx= _g77870_ 1)) - (apply (lambda (_stx77548_) + (lambda _g77868_ + (let ((_g77867_ (let () (declare (not safe)) (##length _g77868_)))) + (cond ((let () (declare (not safe)) (##fx= _g77867_ 1)) + (apply (lambda (_stx77545_) (let () (declare (not safe)) - (__compile-error__0 _stx77548_))) - _g77871_)) - ((let () (declare (not safe)) (##fx= _g77870_ 2)) - (apply (lambda (_stx77552_ _detail77553_) + (__compile-error__0 _stx77545_))) + _g77868_)) + ((let () (declare (not safe)) (##fx= _g77867_ 2)) + (apply (lambda (_stx77549_ _detail77550_) (let () (declare (not safe)) - (__compile-error__% _stx77552_ _detail77553_))) - _g77871_)) + (__compile-error__% _stx77549_ _detail77550_))) + _g77868_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g77871_)))))) + _g77868_)))))) (define __compile-ignore% - (lambda (_stx77539_) - (let () (declare (not safe)) (__SRC__% ''#!void _stx77539_)))) + (lambda (_stx77536_) + (let () (declare (not safe)) (__SRC__% ''#!void _stx77536_)))) (define __compile-begin% - (lambda (_stx77514_) - (let* ((_$e77516_ _stx77514_) - (_$E7751877524_ + (lambda (_stx77511_) + (let* ((_$e77513_ _stx77511_) + (_$E7751577521_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77516_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77516_)) - (let* ((_$tgt7751977527_ - (let () (declare (not safe)) (__AST-e _$e77516_))) - (_$hd7752077530_ - (let () (declare (not safe)) (##car _$tgt7751977527_))) - (_$tl7752177533_ - (let () (declare (not safe)) (##cdr _$tgt7751977527_)))) - (let* ((_body77537_ _$tl7752177533_) - (__tmp77872 - (let ((__tmp77873 (map __compile _body77537_))) + _$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_))) (declare (not safe)) - (cons 'begin __tmp77873)))) + (cons 'begin __tmp77870)))) (declare (not safe)) - (__SRC__% __tmp77872 _stx77514_))) - (let () (declare (not safe)) (_$E7751877524_)))))) + (__SRC__% __tmp77869 _stx77511_))) + (let () (declare (not safe)) (_$E7751577521_)))))) (define __compile-begin-foreign% - (lambda (_stx77489_) - (let* ((_$e77491_ _stx77489_) - (_$E7749377499_ + (lambda (_stx77486_) + (let* ((_$e77488_ _stx77486_) + (_$E7749077496_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77491_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77491_)) - (let* ((_$tgt7749477502_ - (let () (declare (not safe)) (__AST-e _$e77491_))) - (_$hd7749577505_ - (let () (declare (not safe)) (##car _$tgt7749477502_))) - (_$tl7749677508_ - (let () (declare (not safe)) (##cdr _$tgt7749477502_)))) - (let* ((_body77512_ _$tl7749677508_) - (__tmp77874 - (let ((__tmp77875 + _$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 (let () (declare (not safe)) - (__AST->datum _body77512_)))) + (__AST->datum _body77509_)))) (declare (not safe)) - (cons 'begin __tmp77875)))) + (cons 'begin __tmp77872)))) (declare (not safe)) - (__SRC__% __tmp77874 _stx77489_))) - (let () (declare (not safe)) (_$E7749377499_)))))) + (__SRC__% __tmp77871 _stx77486_))) + (let () (declare (not safe)) (_$E7749077496_)))))) (define __compile-import% - (lambda (_stx77464_) - (let* ((_$e77466_ _stx77464_) - (_$E7746877474_ + (lambda (_stx77461_) + (let* ((_$e77463_ _stx77461_) + (_$E7746577471_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77466_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77466_)) - (let* ((_$tgt7746977477_ - (let () (declare (not safe)) (__AST-e _$e77466_))) - (_$hd7747077480_ - (let () (declare (not safe)) (##car _$tgt7746977477_))) - (_$tl7747177483_ - (let () (declare (not safe)) (##cdr _$tgt7746977477_)))) - (let* ((_body77487_ _$tl7747177483_) - (__tmp77876 - (let ((__tmp77877 - (let ((__tmp77878 - (let ((__tmp77879 + _$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 (let () (declare (not safe)) - (cons _body77487_ '())))) + (cons _body77484_ '())))) (declare (not safe)) - (cons 'quote __tmp77879)))) + (cons 'quote __tmp77876)))) (declare (not safe)) - (cons __tmp77878 '())))) + (cons __tmp77875 '())))) (declare (not safe)) - (cons '__eval-import __tmp77877)))) + (cons '__eval-import __tmp77874)))) (declare (not safe)) - (__SRC__% __tmp77876 _stx77464_))) - (let () (declare (not safe)) (_$E7746877474_)))))) + (__SRC__% __tmp77873 _stx77461_))) + (let () (declare (not safe)) (_$E7746577471_)))))) (define __compile-begin-annotation% - (lambda (_stx77411_) - (let* ((_$e77413_ _stx77411_) - (_$E7741577427_ + (lambda (_stx77408_) + (let* ((_$e77410_ _stx77408_) + (_$E7741277424_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77413_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77413_)) - (let* ((_$tgt7741677430_ - (let () (declare (not safe)) (__AST-e _$e77413_))) - (_$hd7741777433_ - (let () (declare (not safe)) (##car _$tgt7741677430_))) - (_$tl7741877436_ - (let () (declare (not safe)) (##cdr _$tgt7741677430_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7741877436_)) - (let* ((_$tgt7741977440_ + _$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_ (let () (declare (not safe)) - (__AST-e _$tl7741877436_))) - (_$hd7742077443_ + (__AST-e _$tl7741577433_))) + (_$hd7741777440_ (let () (declare (not safe)) - (##car _$tgt7741977440_))) - (_$tl7742177446_ + (##car _$tgt7741677437_))) + (_$tl7741877443_ (let () (declare (not safe)) - (##cdr _$tgt7741977440_)))) - (let ((_ann77450_ _$hd7742077443_)) + (##cdr _$tgt7741677437_)))) + (let ((_ann77447_ _$hd7741777440_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7742177446_)) - (let* ((_$tgt7742277452_ + (__AST-pair? _$tl7741877443_)) + (let* ((_$tgt7741977449_ (let () (declare (not safe)) - (__AST-e _$tl7742177446_))) - (_$hd7742377455_ + (__AST-e _$tl7741877443_))) + (_$hd7742077452_ (let () (declare (not safe)) - (##car _$tgt7742277452_))) - (_$tl7742477458_ + (##car _$tgt7741977449_))) + (_$tl7742177455_ (let () (declare (not safe)) - (##cdr _$tgt7742277452_)))) - (let ((_expr77462_ _$hd7742377455_)) - (if (let ((__tmp77880 + (##cdr _$tgt7741977449_)))) + (let ((_expr77459_ _$hd7742077452_)) + (if (let ((__tmp77877 (let () (declare (not safe)) - (__AST-e _$tl7742477458_)))) + (__AST-e _$tl7742177455_)))) (declare (not safe)) - (equal? __tmp77880 '())) + (equal? __tmp77877 '())) (let () (declare (not safe)) - (__compile _expr77462_)) + (__compile _expr77459_)) (let () (declare (not safe)) - (_$E7741577427_))))) - (let () (declare (not safe)) (_$E7741577427_))))) - (let () (declare (not safe)) (_$E7741577427_)))) - (let () (declare (not safe)) (_$E7741577427_)))))) + (_$E7741277424_))))) + (let () (declare (not safe)) (_$E7741277424_))))) + (let () (declare (not safe)) (_$E7741277424_)))) + (let () (declare (not safe)) (_$E7741277424_)))))) (define __compile-define-values% - (lambda (_stx77302_) - (let* ((_$e77304_ _stx77302_) - (_$E7730677318_ + (lambda (_stx77299_) + (let* ((_$e77301_ _stx77299_) + (_$E7730377315_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77304_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77304_)) - (let* ((_$tgt7730777321_ - (let () (declare (not safe)) (__AST-e _$e77304_))) - (_$hd7730877324_ - (let () (declare (not safe)) (##car _$tgt7730777321_))) - (_$tl7730977327_ - (let () (declare (not safe)) (##cdr _$tgt7730777321_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7730977327_)) - (let* ((_$tgt7731077331_ + _$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_ (let () (declare (not safe)) - (__AST-e _$tl7730977327_))) - (_$hd7731177334_ + (__AST-e _$tl7730677324_))) + (_$hd7730877331_ (let () (declare (not safe)) - (##car _$tgt7731077331_))) - (_$tl7731277337_ + (##car _$tgt7730777328_))) + (_$tl7730977334_ (let () (declare (not safe)) - (##cdr _$tgt7731077331_)))) - (let ((_hd77341_ _$hd7731177334_)) + (##cdr _$tgt7730777328_)))) + (let ((_hd77338_ _$hd7730877331_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7731277337_)) - (let* ((_$tgt7731377343_ + (__AST-pair? _$tl7730977334_)) + (let* ((_$tgt7731077340_ (let () (declare (not safe)) - (__AST-e _$tl7731277337_))) - (_$hd7731477346_ + (__AST-e _$tl7730977334_))) + (_$hd7731177343_ (let () (declare (not safe)) - (##car _$tgt7731377343_))) - (_$tl7731577349_ + (##car _$tgt7731077340_))) + (_$tl7731277346_ (let () (declare (not safe)) - (##cdr _$tgt7731377343_)))) - (let ((_expr77353_ _$hd7731477346_)) - (if (let ((__tmp77913 + (##cdr _$tgt7731077340_)))) + (let ((_expr77350_ _$hd7731177343_)) + (if (let ((__tmp77910 (let () (declare (not safe)) - (__AST-e _$tl7731577349_)))) + (__AST-e _$tl7731277346_)))) (declare (not safe)) - (equal? __tmp77913 '())) - (let* ((_$e77355_ _hd77341_) - (_$E7735777398_ + (equal? __tmp77910 '())) + (let* ((_$e77352_ _hd77338_) + (_$E7735477395_ (lambda () - (let ((_$E7735877383_ + (let ((_$E7735577380_ (lambda () - (let* ((_$E7735977370_ + (let* ((_$E7735677367_ (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () @@ -658,2901 +658,2901 @@ (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77355_)))) - (_ids77373_ _hd77341_) - (_len77375_ (length _ids77373_)) - (_tmp77377_ - (let ((__tmp77881 (gensym))) + _$e77352_)))) + (_ids77370_ _hd77338_) + (_len77372_ (length _ids77370_)) + (_tmp77374_ + (let ((__tmp77878 (gensym))) (declare (not safe)) - (__SRC__0 __tmp77881)))) - (let ((__tmp77882 - (let ((__tmp77883 - (let ((__tmp77900 - (let ((__tmp77901 - (let ((__tmp77902 - (let ((__tmp77903 - (let ((__tmp77904 + (__SRC__0 __tmp77878)))) + (let ((__tmp77879 + (let ((__tmp77880 + (let ((__tmp77897 + (let ((__tmp77898 + (let ((__tmp77899 + (let ((__tmp77900 + (let ((__tmp77901 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__compile _expr77353_)))) + (__compile _expr77350_)))) (declare (not safe)) - (cons __tmp77904 '())))) + (cons __tmp77901 '())))) (declare (not safe)) - (cons _tmp77377_ __tmp77903)))) + (cons _tmp77374_ __tmp77900)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'define __tmp77902)))) + (cons 'define __tmp77899)))) (declare (not safe)) - (__SRC__% __tmp77901 _stx77302_))) - (__tmp77884 - (let ((__tmp77896 - (let ((__tmp77897 - (let ((__tmp77898 - (let ((__tmp77899 + (__SRC__% __tmp77898 _stx77299_))) + (__tmp77881 + (let ((__tmp77893 + (let ((__tmp77894 + (let ((__tmp77895 + (let ((__tmp77896 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _len77375_ '())))) + (let () (declare (not safe)) (cons _len77372_ '())))) (declare (not safe)) - (cons _tmp77377_ __tmp77899)))) + (cons _tmp77374_ __tmp77896)))) (declare (not safe)) - (cons '__check-values __tmp77898)))) + (cons '__check-values __tmp77895)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp77897 - _stx77302_))) - (__tmp77885 - (let ((__tmp77886 - (let ((__tmp77888 - (lambda (_id77380_ + __tmp77894 + _stx77299_))) + (__tmp77882 + (let ((__tmp77883 + (let ((__tmp77885 + (lambda (_id77377_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _k77381_) - (if (let () (declare (not safe)) (__AST-e _id77380_)) - (let ((__tmp77889 - (let ((__tmp77890 - (let ((__tmp77895 + _k77378_) + (if (let () (declare (not safe)) (__AST-e _id77377_)) + (let ((__tmp77886 + (let ((__tmp77887 + (let ((__tmp77892 (let () (declare (not safe)) - (__SRC__0 _id77380_))) - (__tmp77891 - (let ((__tmp77892 - (let ((__tmp77893 - (let ((__tmp77894 + (__SRC__0 _id77377_))) + (__tmp77888 + (let ((__tmp77889 + (let ((__tmp77890 + (let ((__tmp77891 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _k77381_ '())))) + (let () (declare (not safe)) (cons _k77378_ '())))) (declare (not safe)) - (cons _tmp77377_ __tmp77894)))) + (cons _tmp77374_ __tmp77891)))) (declare (not safe)) - (cons '##vector-ref __tmp77893)))) + (cons '##vector-ref __tmp77890)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp77892 '())))) + (cons __tmp77889 '())))) (declare (not safe)) - (cons __tmp77895 __tmp77891)))) + (cons __tmp77892 __tmp77888)))) (declare (not safe)) - (cons 'define __tmp77890)))) + (cons 'define __tmp77887)))) (declare (not safe)) - (__SRC__% __tmp77889 _stx77302_)) + (__SRC__% __tmp77886 _stx77299_)) '#f))) - (__tmp77887 - (let () (declare (not safe)) (iota__0 _len77375_)))) + (__tmp77884 + (let () (declare (not safe)) (iota__0 _len77372_)))) (declare (not safe)) - (filter-map2 __tmp77888 _ids77373_ __tmp77887)))) + (filter-map2 __tmp77885 _ids77370_ __tmp77884)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 cons '() __tmp77886)))) + (foldr1 cons '() __tmp77883)))) (declare (not safe)) - (cons __tmp77896 __tmp77885)))) + (cons __tmp77893 __tmp77882)))) (declare (not safe)) - (cons __tmp77900 __tmp77884)))) + (cons __tmp77897 __tmp77881)))) (declare (not safe)) - (cons 'begin __tmp77883)))) + (cons 'begin __tmp77880)))) (declare (not safe)) - (__SRC__% __tmp77882 _stx77302_)))))) + (__SRC__% __tmp77879 _stx77299_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _$e77355_)) - (let* ((_$tgt7736077386_ + (__AST-pair? _$e77352_)) + (let* ((_$tgt7735777383_ (let () (declare (not safe)) - (__AST-e _$e77355_))) - (_$hd7736177389_ + (__AST-e _$e77352_))) + (_$hd7735877386_ (let () (declare (not safe)) - (##car _$tgt7736077386_))) - (_$tl7736277392_ + (##car _$tgt7735777383_))) + (_$tl7735977389_ (let () (declare (not safe)) - (##cdr _$tgt7736077386_)))) - (let ((_id77396_ - _$hd7736177389_)) - (if (let ((__tmp77910 + (##cdr _$tgt7735777383_)))) + (let ((_id77393_ + _$hd7735877386_)) + (if (let ((__tmp77907 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__AST-e _$tl7736277392_)))) + (__AST-e _$tl7735977389_)))) (declare (not safe)) - (equal? __tmp77910 '())) - (let ((__tmp77905 - (let ((__tmp77906 - (let ((__tmp77909 + (equal? __tmp77907 '())) + (let ((__tmp77902 + (let ((__tmp77903 + (let ((__tmp77906 (let () (declare (not safe)) - (__SRC__0 _id77396_))) - (__tmp77907 - (let ((__tmp77908 + (__SRC__0 _id77393_))) + (__tmp77904 + (let ((__tmp77905 (let () (declare (not safe)) - (__compile _expr77353_)))) + (__compile _expr77350_)))) (declare (not safe)) - (cons __tmp77908 '())))) + (cons __tmp77905 '())))) (declare (not safe)) - (cons __tmp77909 __tmp77907)))) + (cons __tmp77906 __tmp77904)))) (declare (not safe)) - (cons 'define __tmp77906)))) + (cons 'define __tmp77903)))) (declare (not safe)) - (__SRC__% __tmp77905 _stx77302_)) - (let () (declare (not safe)) (_$E7735877383_))))) + (__SRC__% __tmp77902 _stx77299_)) + (let () (declare (not safe)) (_$E7735577380_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E7735877383_))))))) + (_$E7735577380_))))))) (if (let () (declare (not safe)) - (__AST-pair? _$e77355_)) - (let* ((_$tgt7736377401_ + (__AST-pair? _$e77352_)) + (let* ((_$tgt7736077398_ (let () (declare (not safe)) - (__AST-e _$e77355_))) - (_$hd7736477404_ + (__AST-e _$e77352_))) + (_$hd7736177401_ (let () (declare (not safe)) - (##car _$tgt7736377401_))) - (_$tl7736577407_ + (##car _$tgt7736077398_))) + (_$tl7736277404_ (let () (declare (not safe)) - (##cdr _$tgt7736377401_)))) - (if (let ((__tmp77912 + (##cdr _$tgt7736077398_)))) + (if (let ((__tmp77909 (let () (declare (not safe)) - (__AST-e _$hd7736477404_)))) + (__AST-e _$hd7736177401_)))) (declare (not safe)) - (equal? __tmp77912 '#f)) - (if (let ((__tmp77911 + (equal? __tmp77909 '#f)) + (if (let ((__tmp77908 (let () (declare (not safe)) - (__AST-e _$tl7736577407_)))) + (__AST-e _$tl7736277404_)))) (declare (not safe)) - (equal? __tmp77911 '())) + (equal? __tmp77908 '())) (let () (declare (not safe)) - (__compile _expr77353_)) + (__compile _expr77350_)) (let () (declare (not safe)) - (_$E7735777398_))) + (_$E7735477395_))) (let () (declare (not safe)) - (_$E7735777398_)))) + (_$E7735477395_)))) (let () (declare (not safe)) - (_$E7735777398_)))) + (_$E7735477395_)))) (let () (declare (not safe)) - (_$E7730677318_))))) - (let () (declare (not safe)) (_$E7730677318_))))) - (let () (declare (not safe)) (_$E7730677318_)))) - (let () (declare (not safe)) (_$E7730677318_)))))) + (_$E7730377315_))))) + (let () (declare (not safe)) (_$E7730377315_))))) + (let () (declare (not safe)) (_$E7730377315_)))) + (let () (declare (not safe)) (_$E7730377315_)))))) (define __compile-head-id - (lambda (_e77300_) - (let ((__tmp77914 - (if (let () (declare (not safe)) (__AST-e _e77300_)) - _e77300_ + (lambda (_e77297_) + (let ((__tmp77911 + (if (let () (declare (not safe)) (__AST-e _e77297_)) + _e77297_ (gensym)))) (declare (not safe)) - (__SRC__0 __tmp77914)))) + (__SRC__0 __tmp77911)))) (define __compile-lambda-head - (lambda (_hd77257_) - (let _recur77259_ ((_rest77261_ _hd77257_)) - (let* ((_$e77263_ _rest77261_) - (_$E7726577283_ + (lambda (_hd77254_) + (let _recur77256_ ((_rest77258_ _hd77254_)) + (let* ((_$e77260_ _rest77258_) + (_$E7726277280_ (lambda () - (let ((_$E7726677280_ + (let ((_$E7726377277_ (lambda () - (let* ((_$E7726777275_ + (let* ((_$E7726477272_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77263_)))) - (_tail77278_ _$e77263_)) + _$e77260_)))) + (_tail77275_ _$e77260_)) (declare (not safe)) - (__compile-head-id _tail77278_))))) - (if (let ((__tmp77915 + (__compile-head-id _tail77275_))))) + (if (let ((__tmp77912 (let () (declare (not safe)) - (__AST-e _$e77263_)))) + (__AST-e _$e77260_)))) (declare (not safe)) - (equal? __tmp77915 '())) + (equal? __tmp77912 '())) '() - (let () (declare (not safe)) (_$E7726677280_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77263_)) - (let* ((_$tgt7726877286_ - (let () (declare (not safe)) (__AST-e _$e77263_))) - (_$hd7726977289_ - (let () (declare (not safe)) (##car _$tgt7726877286_))) - (_$tl7727077292_ + (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)) - (##cdr _$tgt7726877286_)))) - (let* ((_hd77296_ _$hd7726977289_) - (_rest77298_ _$tl7727077292_)) - (let ((__tmp77917 + (##cdr _$tgt7726577283_)))) + (let* ((_hd77293_ _$hd7726677286_) + (_rest77295_ _$tl7726777289_)) + (let ((__tmp77914 (let () (declare (not safe)) - (__compile-head-id _hd77296_))) - (__tmp77916 + (__compile-head-id _hd77293_))) + (__tmp77913 (let () (declare (not safe)) - (_recur77259_ _rest77298_)))) + (_recur77256_ _rest77295_)))) (declare (not safe)) - (cons __tmp77917 __tmp77916)))) - (let () (declare (not safe)) (_$E7726577283_))))))) + (cons __tmp77914 __tmp77913)))) + (let () (declare (not safe)) (_$E7726277280_))))))) (define __compile-lambda% - (lambda (_stx77204_) - (let* ((_$e77206_ _stx77204_) - (_$E7720877220_ + (lambda (_stx77201_) + (let* ((_$e77203_ _stx77201_) + (_$E7720577217_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77206_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77206_)) - (let* ((_$tgt7720977223_ - (let () (declare (not safe)) (__AST-e _$e77206_))) - (_$hd7721077226_ - (let () (declare (not safe)) (##car _$tgt7720977223_))) - (_$tl7721177229_ - (let () (declare (not safe)) (##cdr _$tgt7720977223_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7721177229_)) - (let* ((_$tgt7721277233_ + _$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_ (let () (declare (not safe)) - (__AST-e _$tl7721177229_))) - (_$hd7721377236_ + (__AST-e _$tl7720877226_))) + (_$hd7721077233_ (let () (declare (not safe)) - (##car _$tgt7721277233_))) - (_$tl7721477239_ + (##car _$tgt7720977230_))) + (_$tl7721177236_ (let () (declare (not safe)) - (##cdr _$tgt7721277233_)))) - (let ((_hd77243_ _$hd7721377236_)) + (##cdr _$tgt7720977230_)))) + (let ((_hd77240_ _$hd7721077233_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7721477239_)) - (let* ((_$tgt7721577245_ + (__AST-pair? _$tl7721177236_)) + (let* ((_$tgt7721277242_ (let () (declare (not safe)) - (__AST-e _$tl7721477239_))) - (_$hd7721677248_ + (__AST-e _$tl7721177236_))) + (_$hd7721377245_ (let () (declare (not safe)) - (##car _$tgt7721577245_))) - (_$tl7721777251_ + (##car _$tgt7721277242_))) + (_$tl7721477248_ (let () (declare (not safe)) - (##cdr _$tgt7721577245_)))) - (let ((_body77255_ _$hd7721677248_)) - (if (let ((__tmp77923 + (##cdr _$tgt7721277242_)))) + (let ((_body77252_ _$hd7721377245_)) + (if (let ((__tmp77920 (let () (declare (not safe)) - (__AST-e _$tl7721777251_)))) + (__AST-e _$tl7721477248_)))) (declare (not safe)) - (equal? __tmp77923 '())) - (let ((__tmp77918 - (let ((__tmp77919 - (let ((__tmp77922 + (equal? __tmp77920 '())) + (let ((__tmp77915 + (let ((__tmp77916 + (let ((__tmp77919 (let () (declare (not safe)) (__compile-lambda-head - _hd77243_))) - (__tmp77920 - (let ((__tmp77921 + _hd77240_))) + (__tmp77917 + (let ((__tmp77918 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _body77255_)))) + (__compile _body77252_)))) (declare (not safe)) - (cons __tmp77921 '())))) + (cons __tmp77918 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp77922 - __tmp77920)))) + (cons __tmp77919 + __tmp77917)))) (declare (not safe)) - (cons 'lambda __tmp77919)))) + (cons 'lambda __tmp77916)))) (declare (not safe)) - (__SRC__% __tmp77918 _stx77204_)) + (__SRC__% __tmp77915 _stx77201_)) (let () (declare (not safe)) - (_$E7720877220_))))) - (let () (declare (not safe)) (_$E7720877220_))))) - (let () (declare (not safe)) (_$E7720877220_)))) - (let () (declare (not safe)) (_$E7720877220_)))))) + (_$E7720577217_))))) + (let () (declare (not safe)) (_$E7720577217_))))) + (let () (declare (not safe)) (_$E7720577217_)))) + (let () (declare (not safe)) (_$E7720577217_)))))) (define __compile-case-lambda% - (lambda (_stx76996_) - (letrec ((_variadic?76998_ - (lambda (_hd77169_) - (let* ((_$e77171_ _hd77169_) - (_$E7717377189_ + (lambda (_stx76993_) + (letrec ((_variadic?76995_ + (lambda (_hd77166_) + (let* ((_$e77168_ _hd77166_) + (_$E7717077186_ (lambda () - (let ((_$E7717477186_ + (let ((_$E7717177183_ (lambda () - (let ((_$E7717577183_ + (let ((_$E7717277180_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77171_))))) + _$e77168_))))) '#t)))) - (if (let ((__tmp77924 + (if (let ((__tmp77921 (let () (declare (not safe)) - (__AST-e _$e77171_)))) + (__AST-e _$e77168_)))) (declare (not safe)) - (equal? __tmp77924 '())) + (equal? __tmp77921 '())) '#f (let () (declare (not safe)) - (_$E7717477186_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77171_)) - (let* ((_$tgt7717677192_ + (_$E7717177183_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77168_)) + (let* ((_$tgt7717377189_ (let () (declare (not safe)) - (__AST-e _$e77171_))) - (_$hd7717777195_ + (__AST-e _$e77168_))) + (_$hd7717477192_ (let () (declare (not safe)) - (##car _$tgt7717677192_))) - (_$tl7717877198_ + (##car _$tgt7717377189_))) + (_$tl7717577195_ (let () (declare (not safe)) - (##cdr _$tgt7717677192_)))) - (let ((_rest77202_ _$tl7717877198_)) + (##cdr _$tgt7717377189_)))) + (let ((_rest77199_ _$tl7717577195_)) (declare (not safe)) - (_variadic?76998_ _rest77202_))) - (let () (declare (not safe)) (_$E7717377189_)))))) - (_arity76999_ - (lambda (_hd77134_) - (let _lp77136_ ((_rest77138_ _hd77134_) (_k77139_ '0)) - (let* ((_$e77141_ _rest77138_) - (_$E7714377154_ + (_variadic?76995_ _rest77199_))) + (let () (declare (not safe)) (_$E7717077186_)))))) + (_arity76996_ + (lambda (_hd77131_) + (let _lp77133_ ((_rest77135_ _hd77131_) (_k77136_ '0)) + (let* ((_$e77138_ _rest77135_) + (_$E7714077151_ (lambda () - (let ((_$E7714477151_ + (let ((_$E7714177148_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77141_))))) - _k77139_)))) + _$e77138_))))) + _k77136_)))) (if (let () (declare (not safe)) - (__AST-pair? _$e77141_)) - (let* ((_$tgt7714577157_ + (__AST-pair? _$e77138_)) + (let* ((_$tgt7714277154_ (let () (declare (not safe)) - (__AST-e _$e77141_))) - (_$hd7714677160_ + (__AST-e _$e77138_))) + (_$hd7714377157_ (let () (declare (not safe)) - (##car _$tgt7714577157_))) - (_$tl7714777163_ + (##car _$tgt7714277154_))) + (_$tl7714477160_ (let () (declare (not safe)) - (##cdr _$tgt7714577157_)))) - (let* ((_rest77167_ _$tl7714777163_) - (__tmp77925 + (##cdr _$tgt7714277154_)))) + (let* ((_rest77164_ _$tl7714477160_) + (__tmp77922 (let () (declare (not safe)) - (fx+ _k77139_ '1)))) + (fx+ _k77136_ '1)))) (declare (not safe)) - (_lp77136_ _rest77167_ __tmp77925))) - (let () (declare (not safe)) (_$E7714377154_))))))) - (_generate77000_ - (lambda (_rest77061_ _args77062_ _len77063_) - (let* ((_$e77065_ _rest77061_) - (_$E7706777078_ + (_lp77133_ _rest77164_ __tmp77922))) + (let () (declare (not safe)) (_$E7714077151_))))))) + (_generate76997_ + (lambda (_rest77058_ _args77059_ _len77060_) + (let* ((_$e77062_ _rest77058_) + (_$E7706477075_ (lambda () - (let* ((_$E7706877075_ + (let* ((_$E7706577072_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77065_)))) - (__tmp77926 - (let ((__tmp77927 - (let ((__tmp77928 + _$e77062_)))) + (__tmp77923 + (let ((__tmp77924 + (let ((__tmp77925 (let () (declare (not safe)) - (cons _args77062_ '())))) + (cons _args77059_ '())))) (declare (not safe)) (cons '"No clause matching arguments" - __tmp77928)))) + __tmp77925)))) (declare (not safe)) - (cons 'error __tmp77927)))) + (cons 'error __tmp77924)))) (declare (not safe)) - (__SRC__% __tmp77926 _stx76996_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77065_)) - (let* ((_$tgt7706977081_ + (__SRC__% __tmp77923 _stx76993_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77062_)) + (let* ((_$tgt7706677078_ (let () (declare (not safe)) - (__AST-e _$e77065_))) - (_$hd7707077084_ + (__AST-e _$e77062_))) + (_$hd7706777081_ (let () (declare (not safe)) - (##car _$tgt7706977081_))) - (_$tl7707177087_ + (##car _$tgt7706677078_))) + (_$tl7706877084_ (let () (declare (not safe)) - (##cdr _$tgt7706977081_)))) - (let* ((_clause77091_ _$hd7707077084_) - (_rest77093_ _$tl7707177087_) - (_$e77095_ _clause77091_) - (_$E7709777106_ + (##cdr _$tgt7706677078_)))) + (let* ((_clause77088_ _$hd7706777081_) + (_rest77090_ _$tl7706877084_) + (_$e77092_ _clause77088_) + (_$E7709477103_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77095_))))) + _$e77092_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e77095_)) - (let* ((_$tgt7709877109_ + (__AST-pair? _$e77092_)) + (let* ((_$tgt7709577106_ (let () (declare (not safe)) - (__AST-e _$e77095_))) - (_$hd7709977112_ + (__AST-e _$e77092_))) + (_$hd7709677109_ (let () (declare (not safe)) - (##car _$tgt7709877109_))) - (_$tl7710077115_ + (##car _$tgt7709577106_))) + (_$tl7709777112_ (let () (declare (not safe)) - (##cdr _$tgt7709877109_)))) - (let ((_hd77119_ _$hd7709977112_)) + (##cdr _$tgt7709577106_)))) + (let ((_hd77116_ _$hd7709677109_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7710077115_)) - (let* ((_$tgt7710177121_ + (__AST-pair? _$tl7709777112_)) + (let* ((_$tgt7709877118_ (let () (declare (not safe)) - (__AST-e _$tl7710077115_))) - (_$hd7710277124_ + (__AST-e _$tl7709777112_))) + (_$hd7709977121_ (let () (declare (not safe)) - (##car _$tgt7710177121_))) - (_$tl7710377127_ + (##car _$tgt7709877118_))) + (_$tl7710077124_ (let () (declare (not safe)) - (##cdr _$tgt7710177121_)))) - (if (let ((__tmp77943 + (##cdr _$tgt7709877118_)))) + (if (let ((__tmp77940 (let () (declare (not safe)) - (__AST-e _$tl7710377127_)))) + (__AST-e _$tl7710077124_)))) (declare (not safe)) - (equal? __tmp77943 '())) - (let ((_clen77131_ + (equal? __tmp77940 '())) + (let ((_clen77128_ (let () (declare (not safe)) - (_arity76999_ - _hd77119_))) - (_cmp77132_ + (_arity76996_ + _hd77116_))) + (_cmp77129_ (if (let () (declare (not safe)) - (_variadic?76998_ - _hd77119_)) + (_variadic?76995_ + _hd77116_)) 'fx>= 'fx=))) - (let ((__tmp77929 - (let ((__tmp77930 - (let ((__tmp77940 + (let ((__tmp77926 + (let ((__tmp77927 + (let ((__tmp77937 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp77941 - (let ((__tmp77942 + (let ((__tmp77938 + (let ((__tmp77939 (let () (declare (not safe)) - (cons _clen77131_ '())))) + (cons _clen77128_ '())))) (declare (not safe)) - (cons _len77063_ __tmp77942)))) + (cons _len77060_ __tmp77939)))) (declare (not safe)) - (cons _cmp77132_ __tmp77941))) - (__tmp77931 - (let ((__tmp77934 - (let ((__tmp77935 - (let ((__tmp77936 - (let ((__tmp77938 - (let ((__tmp77939 + (cons _cmp77129_ __tmp77938))) + (__tmp77928 + (let ((__tmp77931 + (let ((__tmp77932 + (let ((__tmp77933 + (let ((__tmp77935 + (let ((__tmp77936 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons '%#lambda _clause77091_)))) + (cons '%#lambda _clause77088_)))) (declare (not safe)) - (__compile-lambda% __tmp77939))) - (__tmp77937 - (let () (declare (not safe)) (cons _args77062_ '())))) + (__compile-lambda% __tmp77936))) + (__tmp77934 + (let () (declare (not safe)) (cons _args77059_ '())))) (declare (not safe)) - (cons __tmp77938 __tmp77937)))) + (cons __tmp77935 __tmp77934)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '##apply __tmp77936)))) + (cons '##apply __tmp77933)))) (declare (not safe)) - (__SRC__% __tmp77935 _stx76996_))) - (__tmp77932 - (let ((__tmp77933 + (__SRC__% __tmp77932 _stx76993_))) + (__tmp77929 + (let ((__tmp77930 (let () (declare (not safe)) - (_generate77000_ - _rest77093_ - _args77062_ - _len77063_)))) + (_generate76997_ + _rest77090_ + _args77059_ + _len77060_)))) (declare (not safe)) - (cons __tmp77933 '())))) + (cons __tmp77930 '())))) (declare (not safe)) - (cons __tmp77934 __tmp77932)))) + (cons __tmp77931 __tmp77929)))) (declare (not safe)) - (cons __tmp77940 __tmp77931)))) + (cons __tmp77937 __tmp77928)))) (declare (not safe)) - (cons 'if __tmp77930)))) + (cons 'if __tmp77927)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp77929 - _stx76996_))) + __tmp77926 + _stx76993_))) (let () (declare (not safe)) - (_$E7709777106_)))) + (_$E7709477103_)))) (let () (declare (not safe)) - (_$E7709777106_))))) + (_$E7709477103_))))) (let () (declare (not safe)) - (_$E7709777106_))))) - (let () (declare (not safe)) (_$E7706777078_))))))) - (let* ((_$e77002_ _stx76996_) - (_$E7700477036_ + (_$E7709477103_))))) + (let () (declare (not safe)) (_$E7706477075_))))))) + (let* ((_$e76999_ _stx76993_) + (_$E7700177033_ (lambda () - (let ((_$E7700577018_ + (let ((_$E7700277015_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77002_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77002_)) - (let* ((_$tgt7700677021_ + _$e76999_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e76999_)) + (let* ((_$tgt7700377018_ (let () (declare (not safe)) - (__AST-e _$e77002_))) - (_$hd7700777024_ + (__AST-e _$e76999_))) + (_$hd7700477021_ (let () (declare (not safe)) - (##car _$tgt7700677021_))) - (_$tl7700877027_ + (##car _$tgt7700377018_))) + (_$tl7700577024_ (let () (declare (not safe)) - (##cdr _$tgt7700677021_)))) - (let ((_clauses77031_ _$tl7700877027_)) - (let ((_args77033_ - (let ((__tmp77944 (gensym))) + (##cdr _$tgt7700377018_)))) + (let ((_clauses77028_ _$tl7700577024_)) + (let ((_args77030_ + (let ((__tmp77941 (gensym))) (declare (not safe)) - (__SRC__% __tmp77944 _stx76996_))) - (_len77034_ - (let ((__tmp77945 (gensym))) + (__SRC__% __tmp77941 _stx76993_))) + (_len77031_ + (let ((__tmp77942 (gensym))) (declare (not safe)) - (__SRC__% __tmp77945 _stx76996_)))) - (let ((__tmp77946 - (let ((__tmp77947 - (let ((__tmp77948 - (let ((__tmp77949 - (let ((__tmp77950 + (__SRC__% __tmp77942 _stx76993_)))) + (let ((__tmp77943 + (let ((__tmp77944 + (let ((__tmp77945 + (let ((__tmp77946 + (let ((__tmp77947 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp77951 - (let ((__tmp77954 - (let ((__tmp77955 - (let ((__tmp77956 - (let ((__tmp77957 - (let ((__tmp77958 + (let ((__tmp77948 + (let ((__tmp77951 + (let ((__tmp77952 + (let ((__tmp77953 + (let ((__tmp77954 + (let ((__tmp77955 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp77959 + (let ((__tmp77956 (let () (declare (not safe)) - (cons _args77033_ '())))) + (cons _args77030_ '())))) (declare (not safe)) - (cons '##length __tmp77959)))) + (cons '##length __tmp77956)))) (declare (not safe)) - (__SRC__% __tmp77958 _stx76996_)))) + (__SRC__% __tmp77955 _stx76993_)))) (declare (not safe)) - (cons __tmp77957 '())))) + (cons __tmp77954 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _len77034_ - __tmp77956)))) + (cons _len77031_ + __tmp77953)))) (declare (not safe)) - (cons __tmp77955 '()))) - (__tmp77952 - (let ((__tmp77953 + (cons __tmp77952 '()))) + (__tmp77949 + (let ((__tmp77950 (let () (declare (not safe)) - (_generate77000_ - _clauses77031_ - _args77033_ - _len77034_)))) + (_generate76997_ + _clauses77028_ + _args77030_ + _len77031_)))) (declare (not safe)) - (cons __tmp77953 '())))) + (cons __tmp77950 '())))) (declare (not safe)) - (cons __tmp77954 __tmp77952)))) + (cons __tmp77951 __tmp77949)))) (declare (not safe)) - (cons 'let __tmp77951)))) + (cons 'let __tmp77948)))) (declare (not safe)) - (__SRC__% __tmp77950 _stx76996_)))) + (__SRC__% __tmp77947 _stx76993_)))) (declare (not safe)) - (cons __tmp77949 '())))) + (cons __tmp77946 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _args77033_ - __tmp77948)))) + (cons _args77030_ + __tmp77945)))) (declare (not safe)) - (cons 'lambda __tmp77947)))) + (cons 'lambda __tmp77944)))) (declare (not safe)) - (__SRC__% __tmp77946 _stx76996_))))) - (let () (declare (not safe)) (_$E7700577018_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77002_)) - (let* ((_$tgt7700977039_ - (let () (declare (not safe)) (__AST-e _$e77002_))) - (_$hd7701077042_ - (let () (declare (not safe)) (##car _$tgt7700977039_))) - (_$tl7701177045_ + (__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_ (let () (declare (not safe)) - (##cdr _$tgt7700977039_)))) + (##cdr _$tgt7700677036_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl7701177045_)) - (let* ((_$tgt7701277049_ + (__AST-pair? _$tl7700877042_)) + (let* ((_$tgt7700977046_ (let () (declare (not safe)) - (__AST-e _$tl7701177045_))) - (_$hd7701377052_ + (__AST-e _$tl7700877042_))) + (_$hd7701077049_ (let () (declare (not safe)) - (##car _$tgt7701277049_))) - (_$tl7701477055_ + (##car _$tgt7700977046_))) + (_$tl7701177052_ (let () (declare (not safe)) - (##cdr _$tgt7701277049_)))) - (let ((_clause77059_ _$hd7701377052_)) - (if (let ((__tmp77961 + (##cdr _$tgt7700977046_)))) + (let ((_clause77056_ _$hd7701077049_)) + (if (let ((__tmp77958 (let () (declare (not safe)) - (__AST-e _$tl7701477055_)))) + (__AST-e _$tl7701177052_)))) (declare (not safe)) - (equal? __tmp77961 '())) - (let ((__tmp77960 + (equal? __tmp77958 '())) + (let ((__tmp77957 (let () (declare (not safe)) - (cons '%#lambda _clause77059_)))) + (cons '%#lambda _clause77056_)))) (declare (not safe)) - (__compile-lambda% __tmp77960)) - (let () (declare (not safe)) (_$E7700477036_))))) - (let () (declare (not safe)) (_$E7700477036_)))) - (let () (declare (not safe)) (_$E7700477036_))))))) + (__compile-lambda% __tmp77957)) + (let () (declare (not safe)) (_$E7700177033_))))) + (let () (declare (not safe)) (_$E7700177033_)))) + (let () (declare (not safe)) (_$E7700177033_))))))) (define __compile-let-form - (lambda (_stx76765_ _compile-simple76766_ _compile-values76767_) - (letrec ((_simple-bind?76769_ - (lambda (_hd76954_) - (let* ((_hd7695576965_ _hd76954_) - (_else7695876973_ (lambda () '#f))) - (let ((_K7696176986_ (lambda (_id76984_) '#t)) - (_K7696076978_ (lambda () '#t))) - (let ((_try-match7695776981_ + (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 () (if (let () (declare (not safe)) - (##eq? _hd7695576965_ '#f)) + (##eq? _hd7695276962_ '#f)) (let () (declare (not safe)) - (_K7696076978_)) + (_K7695776975_)) (let () (declare (not safe)) - (_else7695876973_)))))) + (_else7695576970_)))))) (if (let () (declare (not safe)) - (##pair? _hd7695576965_)) - (let ((_tl7696376991_ + (##pair? _hd7695276962_)) + (let ((_tl7696076988_ (let () (declare (not safe)) - (##cdr _hd7695576965_))) - (_hd7696276989_ + (##cdr _hd7695276962_))) + (_hd7695976986_ (let () (declare (not safe)) - (##car _hd7695576965_)))) + (##car _hd7695276962_)))) (if (let () (declare (not safe)) - (##null? _tl7696376991_)) - (let ((_id76994_ _hd7696276989_)) + (##null? _tl7696076988_)) + (let ((_id76991_ _hd7695976986_)) (declare (not safe)) - (_K7696176986_ _id76994_)) + (_K7695876983_ _id76991_)) (let () (declare (not safe)) - (_try-match7695776981_)))) + (_try-match7695476978_)))) (let () (declare (not safe)) - (_try-match7695776981_)))))))) - (_car-e76770_ - (lambda (_hd76952_) - (if (let () (declare (not safe)) (pair? _hd76952_)) - (car _hd76952_) - _hd76952_)))) - (let* ((_$e76772_ _stx76765_) - (_$E7677476917_ + (_try-match7695476978_)))))))) + (_car-e76767_ + (lambda (_hd76949_) + (if (let () (declare (not safe)) (pair? _hd76949_)) + (car _hd76949_) + _hd76949_)))) + (let* ((_$e76769_ _stx76762_) + (_$E7677176914_ (lambda () - (let ((_$E7677576797_ + (let ((_$E7677276794_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e76772_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e76772_)) - (let* ((_$tgt7677676800_ + _$e76769_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e76769_)) + (let* ((_$tgt7677376797_ (let () (declare (not safe)) - (__AST-e _$e76772_))) - (_$hd7677776803_ + (__AST-e _$e76769_))) + (_$hd7677476800_ (let () (declare (not safe)) - (##car _$tgt7677676800_))) - (_$tl7677876806_ + (##car _$tgt7677376797_))) + (_$tl7677576803_ (let () (declare (not safe)) - (##cdr _$tgt7677676800_)))) + (##cdr _$tgt7677376797_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl7677876806_)) - (let* ((_$tgt7677976810_ + (__AST-pair? _$tl7677576803_)) + (let* ((_$tgt7677676807_ (let () (declare (not safe)) - (__AST-e _$tl7677876806_))) - (_$hd7678076813_ + (__AST-e _$tl7677576803_))) + (_$hd7677776810_ (let () (declare (not safe)) - (##car _$tgt7677976810_))) - (_$tl7678176816_ + (##car _$tgt7677676807_))) + (_$tl7677876813_ (let () (declare (not safe)) - (##cdr _$tgt7677976810_)))) - (let ((_hd76820_ _$hd7678076813_)) + (##cdr _$tgt7677676807_)))) + (let ((_hd76817_ _$hd7677776810_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7678176816_)) - (let* ((_$tgt7678276822_ + (__AST-pair? _$tl7677876813_)) + (let* ((_$tgt7677976819_ (let () (declare (not safe)) - (__AST-e _$tl7678176816_))) - (_$hd7678376825_ + (__AST-e _$tl7677876813_))) + (_$hd7678076822_ (let () (declare (not safe)) - (##car _$tgt7678276822_))) - (_$tl7678476828_ + (##car _$tgt7677976819_))) + (_$tl7678176825_ (let () (declare (not safe)) - (##cdr _$tgt7678276822_)))) - (let ((_body76832_ _$hd7678376825_)) - (if (let ((__tmp77964 + (##cdr _$tgt7677976819_)))) + (let ((_body76829_ _$hd7678076822_)) + (if (let ((__tmp77961 (let () (declare (not safe)) - (__AST-e _$tl7678476828_)))) + (__AST-e _$tl7678176825_)))) (declare (not safe)) - (equal? __tmp77964 '())) - (let* ((_hd-ids76872_ - (map (lambda (_bind76834_) - (let* ((_$e76836_ + (equal? __tmp77961 '())) + (let* ((_hd-ids76869_ + (map (lambda (_bind76831_) + (let* ((_$e76833_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind76834_) - (_$E7683876847_ + _bind76831_) + (_$E7683576844_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e76836_))))) + _$e76833_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e76836_)) - (let* ((_$tgt7683976850_ + (__AST-pair? _$e76833_)) + (let* ((_$tgt7683676847_ (let () (declare (not safe)) - (__AST-e _$e76836_))) - (_$hd7684076853_ + (__AST-e _$e76833_))) + (_$hd7683776850_ (let () (declare (not safe)) - (##car _$tgt7683976850_))) - (_$tl7684176856_ + (##car _$tgt7683676847_))) + (_$tl7683876853_ (let () (declare (not safe)) - (##cdr _$tgt7683976850_)))) - (let ((_ids76860_ _$hd7684076853_)) + (##cdr _$tgt7683676847_)))) + (let ((_ids76857_ _$hd7683776850_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7684176856_)) - (let* ((_$tgt7684276862_ + (__AST-pair? _$tl7683876853_)) + (let* ((_$tgt7683976859_ (let () (declare (not safe)) - (__AST-e _$tl7684176856_))) - (_$hd7684376865_ + (__AST-e _$tl7683876853_))) + (_$hd7684076862_ (let () (declare (not safe)) - (##car _$tgt7684276862_))) - (_$tl7684476868_ + (##car _$tgt7683976859_))) + (_$tl7684176865_ (let () (declare (not safe)) - (##cdr _$tgt7684276862_)))) - (if (let ((__tmp77962 + (##cdr _$tgt7683976859_)))) + (if (let ((__tmp77959 (let () (declare (not safe)) - (__AST-e _$tl7684476868_)))) + (__AST-e _$tl7684176865_)))) (declare (not safe)) - (equal? __tmp77962 '())) - _ids76860_ + (equal? __tmp77959 '())) + _ids76857_ (let () (declare (not safe)) - (_$E7683876847_)))) + (_$E7683576844_)))) (let () (declare (not safe)) - (_$E7683876847_))))) - (let () (declare (not safe)) (_$E7683876847_))))) - _hd76820_)) - (_exprs76912_ - (map (lambda (_bind76874_) - (let* ((_$e76876_ _bind76874_) - (_$E7687876887_ + (_$E7683576844_))))) + (let () (declare (not safe)) (_$E7683576844_))))) + _hd76817_)) + (_exprs76909_ + (map (lambda (_bind76871_) + (let* ((_$e76873_ _bind76871_) + (_$E7687576884_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e76876_))))) + _$e76873_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e76876_)) - (let* ((_$tgt7687976890_ + (__AST-pair? _$e76873_)) + (let* ((_$tgt7687676887_ (let () (declare (not safe)) - (__AST-e _$e76876_))) - (_$hd7688076893_ + (__AST-e _$e76873_))) + (_$hd7687776890_ (let () (declare (not safe)) - (##car _$tgt7687976890_))) - (_$tl7688176896_ + (##car _$tgt7687676887_))) + (_$tl7687876893_ (let () (declare (not safe)) - (##cdr _$tgt7687976890_)))) + (##cdr _$tgt7687676887_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl7688176896_)) - (let* ((_$tgt7688276900_ + (__AST-pair? _$tl7687876893_)) + (let* ((_$tgt7687976897_ (let () (declare (not safe)) - (__AST-e _$tl7688176896_))) - (_$hd7688376903_ + (__AST-e _$tl7687876893_))) + (_$hd7688076900_ (let () (declare (not safe)) - (##car _$tgt7688276900_))) - (_$tl7688476906_ + (##car _$tgt7687976897_))) + (_$tl7688176903_ (let () (declare (not safe)) - (##cdr _$tgt7688276900_)))) - (let ((_expr76910_ _$hd7688376903_)) - (if (let ((__tmp77963 + (##cdr _$tgt7687976897_)))) + (let ((_expr76907_ _$hd7688076900_)) + (if (let ((__tmp77960 (let () (declare (not safe)) - (__AST-e _$tl7688476906_)))) + (__AST-e _$tl7688176903_)))) (declare (not safe)) - (equal? __tmp77963 '())) + (equal? __tmp77960 '())) (let () (declare (not safe)) - (__compile _expr76910_)) + (__compile _expr76907_)) (let () (declare (not safe)) - (_$E7687876887_))))) + (_$E7687576884_))))) (let () (declare (not safe)) - (_$E7687876887_)))) - (let () (declare (not safe)) (_$E7687876887_))))) - _hd76820_)) - (_body76914_ - (let () (declare (not safe)) (__compile _body76832_)))) + (_$E7687576884_)))) + (let () (declare (not safe)) (_$E7687576884_))))) + _hd76817_)) + (_body76911_ + (let () (declare (not safe)) (__compile _body76829_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (andmap1 _simple-bind?76769_ + (andmap1 _simple-bind?76766_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-ids76872_)) - (_compile-simple76766_ - (map _car-e76770_ _hd-ids76872_) - _exprs76912_ - _body76914_) - (_compile-values76767_ _hd-ids76872_ _exprs76912_ _body76914_))) + _hd-ids76869_)) + (_compile-simple76763_ + (map _car-e76767_ _hd-ids76869_) + _exprs76909_ + _body76911_) + (_compile-values76764_ _hd-ids76869_ _exprs76909_ _body76911_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E7677576797_))))) + (_$E7677276794_))))) (let () (declare (not safe)) - (_$E7677576797_))))) + (_$E7677276794_))))) (let () (declare (not safe)) - (_$E7677576797_)))) - (let () (declare (not safe)) (_$E7677576797_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e76772_)) - (let* ((_$tgt7678576920_ - (let () (declare (not safe)) (__AST-e _$e76772_))) - (_$hd7678676923_ - (let () (declare (not safe)) (##car _$tgt7678576920_))) - (_$tl7678776926_ + (_$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_ (let () (declare (not safe)) - (##cdr _$tgt7678576920_)))) + (##cdr _$tgt7678276917_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl7678776926_)) - (let* ((_$tgt7678876930_ + (__AST-pair? _$tl7678476923_)) + (let* ((_$tgt7678576927_ (let () (declare (not safe)) - (__AST-e _$tl7678776926_))) - (_$hd7678976933_ + (__AST-e _$tl7678476923_))) + (_$hd7678676930_ (let () (declare (not safe)) - (##car _$tgt7678876930_))) - (_$tl7679076936_ + (##car _$tgt7678576927_))) + (_$tl7678776933_ (let () (declare (not safe)) - (##cdr _$tgt7678876930_)))) - (if (let ((__tmp77966 + (##cdr _$tgt7678576927_)))) + (if (let ((__tmp77963 (let () (declare (not safe)) - (__AST-e _$hd7678976933_)))) + (__AST-e _$hd7678676930_)))) (declare (not safe)) - (equal? __tmp77966 '())) + (equal? __tmp77963 '())) (if (let () (declare (not safe)) - (__AST-pair? _$tl7679076936_)) - (let* ((_$tgt7679176940_ + (__AST-pair? _$tl7678776933_)) + (let* ((_$tgt7678876937_ (let () (declare (not safe)) - (__AST-e _$tl7679076936_))) - (_$hd7679276943_ + (__AST-e _$tl7678776933_))) + (_$hd7678976940_ (let () (declare (not safe)) - (##car _$tgt7679176940_))) - (_$tl7679376946_ + (##car _$tgt7678876937_))) + (_$tl7679076943_ (let () (declare (not safe)) - (##cdr _$tgt7679176940_)))) - (let ((_body76950_ _$hd7679276943_)) - (if (let ((__tmp77965 + (##cdr _$tgt7678876937_)))) + (let ((_body76947_ _$hd7678976940_)) + (if (let ((__tmp77962 (let () (declare (not safe)) - (__AST-e _$tl7679376946_)))) + (__AST-e _$tl7679076943_)))) (declare (not safe)) - (equal? __tmp77965 '())) + (equal? __tmp77962 '())) (let () (declare (not safe)) - (__compile _body76950_)) + (__compile _body76947_)) (let () (declare (not safe)) - (_$E7677476917_))))) - (let () (declare (not safe)) (_$E7677476917_))) - (let () (declare (not safe)) (_$E7677476917_)))) - (let () (declare (not safe)) (_$E7677476917_)))) - (let () (declare (not safe)) (_$E7677476917_))))))) + (_$E7677176914_))))) + (let () (declare (not safe)) (_$E7677176914_))) + (let () (declare (not safe)) (_$E7677176914_)))) + (let () (declare (not safe)) (_$E7677176914_)))) + (let () (declare (not safe)) (_$E7677176914_))))))) (define __compile-let-values% - (lambda (_stx76580_) - (letrec ((_compile-simple76582_ - (lambda (_hd-ids76761_ _exprs76762_ _body76763_) - (let ((__tmp77967 - (let ((__tmp77968 - (let ((__tmp77970 + (lambda (_stx76577_) + (letrec ((_compile-simple76579_ + (lambda (_hd-ids76758_ _exprs76759_ _body76760_) + (let ((__tmp77964 + (let ((__tmp77965 + (let ((__tmp77967 (map list (map __compile-head-id - _hd-ids76761_) - _exprs76762_)) - (__tmp77969 + _hd-ids76758_) + _exprs76759_)) + (__tmp77966 (let () (declare (not safe)) - (cons _body76763_ '())))) + (cons _body76760_ '())))) (declare (not safe)) - (cons __tmp77970 __tmp77969)))) + (cons __tmp77967 __tmp77966)))) (declare (not safe)) - (cons 'let __tmp77968)))) + (cons 'let __tmp77965)))) (declare (not safe)) - (__SRC__% __tmp77967 _stx76580_)))) - (_compile-values76583_ - (lambda (_hd-ids76679_ _exprs76680_ _body76681_) - (let _lp76683_ ((_rest76685_ _hd-ids76679_) - (_exprs76686_ _exprs76680_) - (_bind76687_ '()) - (_post76688_ '())) - (let* ((_rest7668976703_ _rest76685_) - (_else7669276711_ + (__SRC__% __tmp77964 _stx76577_)))) + (_compile-values76580_ + (lambda (_hd-ids76676_ _exprs76677_ _body76678_) + (let _lp76680_ ((_rest76682_ _hd-ids76676_) + (_exprs76683_ _exprs76677_) + (_bind76684_ '()) + (_post76685_ '())) + (let* ((_rest7668676700_ _rest76682_) + (_else7668976708_ (lambda () - (let ((__tmp77971 - (let ((__tmp77972 - (let ((__tmp77975 - (reverse _bind76687_)) - (__tmp77973 - (let ((__tmp77974 + (let ((__tmp77968 + (let ((__tmp77969 + (let ((__tmp77972 + (reverse _bind76684_)) + (__tmp77970 + (let ((__tmp77971 (let () (declare (not safe)) - (_compile-post76584_ - _post76688_ - _body76681_)))) + (_compile-post76581_ + _post76685_ + _body76678_)))) (declare (not safe)) - (cons __tmp77974 '())))) + (cons __tmp77971 '())))) (declare (not safe)) - (cons __tmp77975 __tmp77973)))) + (cons __tmp77972 __tmp77970)))) (declare (not safe)) - (cons 'let __tmp77972)))) + (cons 'let __tmp77969)))) (declare (not safe)) - (__SRC__% __tmp77971 _stx76580_))))) - (let ((_K7669776744_ - (lambda (_rest76741_ _id76742_) - (let ((__tmp77981 (cdr _exprs76686_)) - (__tmp77976 - (let ((__tmp77977 - (let ((__tmp77980 + (__SRC__% __tmp77968 _stx76577_))))) + (let ((_K7669476741_ + (lambda (_rest76738_ _id76739_) + (let ((__tmp77978 (cdr _exprs76683_)) + (__tmp77973 + (let ((__tmp77974 + (let ((__tmp77977 (let () (declare (not safe)) (__compile-head-id - _id76742_))) - (__tmp77978 - (let ((__tmp77979 - (car _exprs76686_))) + _id76739_))) + (__tmp77975 + (let ((__tmp77976 + (car _exprs76683_))) (declare (not safe)) - (cons __tmp77979 + (cons __tmp77976 '())))) (declare (not safe)) - (cons __tmp77980 - __tmp77978)))) + (cons __tmp77977 + __tmp77975)))) (declare (not safe)) - (cons __tmp77977 _bind76687_)))) + (cons __tmp77974 _bind76684_)))) (declare (not safe)) - (_lp76683_ - _rest76741_ - __tmp77981 - __tmp77976 - _post76688_)))) - (_K7669476726_ - (lambda (_rest76715_ _hd76716_) + (_lp76680_ + _rest76738_ + __tmp77978 + __tmp77973 + _post76685_)))) + (_K7669176723_ + (lambda (_rest76712_ _hd76713_) (if (let () (declare (not safe)) - (__AST-id? _hd76716_)) - (let ((__tmp78002 (cdr _exprs76686_)) - (__tmp77995 - (let ((__tmp77996 - (let ((__tmp78001 + (__AST-id? _hd76713_)) + (let ((__tmp77999 (cdr _exprs76683_)) + (__tmp77992 + (let ((__tmp77993 + (let ((__tmp77998 (let () (declare (not safe)) (__compile-head-id - _hd76716_))) - (__tmp77997 - (let ((__tmp77998 + _hd76713_))) + (__tmp77994 + (let ((__tmp77995 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp77999 - (let ((__tmp78000 (car _exprs76686_))) + (let ((__tmp77996 + (let ((__tmp77997 (car _exprs76683_))) (declare (not safe)) - (cons __tmp78000 '())))) + (cons __tmp77997 '())))) (declare (not safe)) - (cons 'values->list __tmp77999)))) + (cons 'values->list __tmp77996)))) (declare (not safe)) - (cons __tmp77998 '())))) + (cons __tmp77995 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78001 - __tmp77997)))) + (cons __tmp77998 + __tmp77994)))) (declare (not safe)) - (cons __tmp77996 _bind76687_)))) + (cons __tmp77993 _bind76684_)))) (declare (not safe)) - (_lp76683_ - _rest76715_ - __tmp78002 - __tmp77995 - _post76688_)) + (_lp76680_ + _rest76712_ + __tmp77999 + __tmp77992 + _post76685_)) (if (let () (declare (not safe)) - (list? _hd76716_)) - (let* ((_len76718_ (length _hd76716_)) - (_tmp76720_ - (let ((__tmp77982 (gensym))) + (list? _hd76713_)) + (let* ((_len76715_ (length _hd76713_)) + (_tmp76717_ + (let ((__tmp77979 (gensym))) (declare (not safe)) - (__SRC__0 __tmp77982)))) - (let ((__tmp77994 - (cdr _exprs76686_)) - (__tmp77990 - (let ((__tmp77991 - (let ((__tmp77992 - (let ((__tmp77993 + (__SRC__0 __tmp77979)))) + (let ((__tmp77991 + (cdr _exprs76683_)) + (__tmp77987 + (let ((__tmp77988 + (let ((__tmp77989 + (let ((__tmp77990 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs76686_))) + (car _exprs76683_))) (declare (not safe)) - (cons __tmp77993 '())))) + (cons __tmp77990 '())))) (declare (not safe)) - (cons _tmp76720_ __tmp77992)))) + (cons _tmp76717_ __tmp77989)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp77991 - _bind76687_))) - (__tmp77983 - (let ((__tmp77984 - (let ((__tmp77985 - (let ((__tmp77986 + (cons __tmp77988 + _bind76684_))) + (__tmp77980 + (let ((__tmp77981 + (let ((__tmp77982 + (let ((__tmp77983 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp77988 - (lambda (_id76723_ _k76724_) + (let ((__tmp77985 + (lambda (_id76720_ _k76721_) (if (let () (declare (not safe)) - (__AST-e _id76723_)) - (let ((__tmp77989 + (__AST-e _id76720_)) + (let ((__tmp77986 (let () (declare (not safe)) - (__SRC__0 _id76723_)))) + (__SRC__0 _id76720_)))) (declare (not safe)) - (cons __tmp77989 _k76724_)) + (cons __tmp77986 _k76721_)) '#f))) - (__tmp77987 + (__tmp77984 (let () (declare (not safe)) - (iota__0 _len76718_)))) + (iota__0 _len76715_)))) (declare (not safe)) (filter-map2 - __tmp77988 - _hd76716_ - __tmp77987)))) + __tmp77985 + _hd76713_ + __tmp77984)))) (declare (not safe)) - (cons _len76718_ __tmp77986)))) + (cons _len76715_ __tmp77983)))) (declare (not safe)) - (cons _tmp76720_ __tmp77985)))) + (cons _tmp76717_ __tmp77982)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp77984 - _post76688_)))) + (cons __tmp77981 + _post76685_)))) (declare (not safe)) - (_lp76683_ - _rest76715_ - __tmp77994 - __tmp77990 - __tmp77983))) + (_lp76680_ + _rest76712_ + __tmp77991 + __tmp77987 + __tmp77980))) (let () (declare (not safe)) (__compile-error__% - _stx76580_ - _hd76716_))))))) + _stx76577_ + _hd76713_))))))) (if (let () (declare (not safe)) - (##pair? _rest7668976703_)) - (let ((_tl7669976749_ + (##pair? _rest7668676700_)) + (let ((_tl7669676746_ (let () (declare (not safe)) - (##cdr _rest7668976703_))) - (_hd7669876747_ + (##cdr _rest7668676700_))) + (_hd7669576744_ (let () (declare (not safe)) - (##car _rest7668976703_)))) + (##car _rest7668676700_)))) (if (let () (declare (not safe)) - (##pair? _hd7669876747_)) - (let ((_tl7670176754_ + (##pair? _hd7669576744_)) + (let ((_tl7669876751_ (let () (declare (not safe)) - (##cdr _hd7669876747_))) - (_hd7670076752_ + (##cdr _hd7669576744_))) + (_hd7669776749_ (let () (declare (not safe)) - (##car _hd7669876747_)))) + (##car _hd7669576744_)))) (if (let () (declare (not safe)) - (##null? _tl7670176754_)) - (let ((_id76757_ _hd7670076752_) - (_rest76759_ _tl7669976749_)) + (##null? _tl7669876751_)) + (let ((_id76754_ _hd7669776749_) + (_rest76756_ _tl7669676746_)) (let () (declare (not safe)) - (_K7669776744_ - _rest76759_ - _id76757_))) - (let ((_hd76734_ _hd7669876747_) - (_rest76736_ _tl7669976749_)) + (_K7669476741_ + _rest76756_ + _id76754_))) + (let ((_hd76731_ _hd7669576744_) + (_rest76733_ _tl7669676746_)) (let () (declare (not safe)) - (_K7669476726_ - _rest76736_ - _hd76734_))))) - (let ((_hd76734_ _hd7669876747_) - (_rest76736_ _tl7669976749_)) + (_K7669176723_ + _rest76733_ + _hd76731_))))) + (let ((_hd76731_ _hd7669576744_) + (_rest76733_ _tl7669676746_)) (let () (declare (not safe)) - (_K7669476726_ - _rest76736_ - _hd76734_))))) + (_K7669176723_ + _rest76733_ + _hd76731_))))) (let () (declare (not safe)) - (_else7669276711_)))))))) - (_compile-post76584_ - (lambda (_post76586_ _body76587_) - (let _lp76589_ ((_rest76591_ _post76586_) - (_check76592_ '()) - (_bind76593_ '())) - (let* ((_rest7659476606_ _rest76591_) - (_else7659676614_ + (_else7668976708_)))))))) + (_compile-post76581_ + (lambda (_post76583_ _body76584_) + (let _lp76586_ ((_rest76588_ _post76583_) + (_check76589_ '()) + (_bind76590_ '())) + (let* ((_rest7659176603_ _rest76588_) + (_else7659376611_ (lambda () - (let ((__tmp78003 - (let ((__tmp78004 - (let ((__tmp78005 - (let ((__tmp78006 - (let ((__tmp78007 + (let ((__tmp78000 + (let ((__tmp78001 + (let ((__tmp78002 + (let ((__tmp78003 + (let ((__tmp78004 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp78008 - (let ((__tmp78009 + (let ((__tmp78005 + (let ((__tmp78006 (let () (declare (not safe)) - (cons _body76587_ '())))) + (cons _body76584_ '())))) (declare (not safe)) - (cons _bind76593_ __tmp78009)))) + (cons _bind76590_ __tmp78006)))) (declare (not safe)) - (cons 'let __tmp78008)))) + (cons 'let __tmp78005)))) (declare (not safe)) - (__SRC__% __tmp78007 _stx76580_)))) + (__SRC__% __tmp78004 _stx76577_)))) (declare (not safe)) - (cons __tmp78006 '())))) + (cons __tmp78003 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp78005 - _check76592_)))) + __tmp78002 + _check76589_)))) (declare (not safe)) - (cons 'begin __tmp78004)))) + (cons 'begin __tmp78001)))) (declare (not safe)) - (__SRC__% __tmp78003 _stx76580_)))) - (_K7659876653_ - (lambda (_rest76617_ - _init76618_ - _len76619_ - _tmp76620_) - (let ((__tmp78017 - (let ((__tmp78018 - (let ((__tmp78019 - (let ((__tmp78020 - (let ((__tmp78021 + (__SRC__% __tmp78000 _stx76577_)))) + (_K7659576650_ + (lambda (_rest76614_ + _init76615_ + _len76616_ + _tmp76617_) + (let ((__tmp78014 + (let ((__tmp78015 + (let ((__tmp78016 + (let ((__tmp78017 + (let ((__tmp78018 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len76619_ '())))) + (cons _len76616_ '())))) (declare (not safe)) - (cons _tmp76620_ __tmp78021)))) + (cons _tmp76617_ __tmp78018)))) (declare (not safe)) - (cons '__check-values __tmp78020)))) + (cons '__check-values __tmp78017)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp78019 - _stx76580_)))) + __tmp78016 + _stx76577_)))) (declare (not safe)) - (cons __tmp78018 _check76592_))) - (__tmp78010 - (let ((__tmp78011 - (lambda (_hd76622_ _r76623_) - (let* ((_hd7662476631_ - _hd76622_) - (_E7662676635_ + (cons __tmp78015 _check76589_))) + (__tmp78007 + (let ((__tmp78008 + (lambda (_hd76619_ _r76620_) + (let* ((_hd7662176628_ + _hd76619_) + (_E7662376632_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd7662476631_)))) - (_K7662776641_ - (lambda (_k76638_ _id76639_) - (let ((__tmp78012 - (let ((__tmp78013 - (let ((__tmp78014 - (let ((__tmp78015 - (let ((__tmp78016 + _hd7662176628_)))) + (_K7662476638_ + (lambda (_k76635_ _id76636_) + (let ((__tmp78009 + (let ((__tmp78010 + (let ((__tmp78011 + (let ((__tmp78012 + (let ((__tmp78013 (let () (declare (not safe)) - (cons _k76638_ '())))) + (cons _k76635_ '())))) (declare (not safe)) - (cons _tmp76620_ __tmp78016)))) + (cons _tmp76617_ __tmp78013)))) (declare (not safe)) - (cons '##vector-ref __tmp78015)))) + (cons '##vector-ref __tmp78012)))) (declare (not safe)) - (cons __tmp78014 '())))) + (cons __tmp78011 '())))) (declare (not safe)) - (cons _id76639_ __tmp78013)))) + (cons _id76636_ __tmp78010)))) (declare (not safe)) - (cons __tmp78012 _r76623_))))) + (cons __tmp78009 _r76620_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd7662476631_)) - (let ((_hd7662876644_ + (##pair? _hd7662176628_)) + (let ((_hd7662576641_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd7662476631_))) - (_tl7662976646_ - (let () (declare (not safe)) (##cdr _hd7662476631_)))) - (let* ((_id76649_ _hd7662876644_) (_k76651_ _tl7662976646_)) + (##car _hd7662176628_))) + (_tl7662676643_ + (let () (declare (not safe)) (##cdr _hd7662176628_)))) + (let* ((_id76646_ _hd7662576641_) (_k76648_ _tl7662676643_)) (declare (not safe)) - (_K7662776641_ _k76651_ _id76649_))) - (let () (declare (not safe)) (_E7662676635_))))))) + (_K7662476638_ _k76648_ _id76646_))) + (let () (declare (not safe)) (_E7662376632_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp78011 - _bind76593_ - _init76618_)))) + (foldr1 __tmp78008 + _bind76590_ + _init76615_)))) (declare (not safe)) - (_lp76589_ - _rest76617_ - __tmp78017 - __tmp78010))))) + (_lp76586_ + _rest76614_ + __tmp78014 + __tmp78007))))) (if (let () (declare (not safe)) - (##pair? _rest7659476606_)) - (let ((_hd7659976656_ + (##pair? _rest7659176603_)) + (let ((_hd7659676653_ (let () (declare (not safe)) - (##car _rest7659476606_))) - (_tl7660076658_ + (##car _rest7659176603_))) + (_tl7659776655_ (let () (declare (not safe)) - (##cdr _rest7659476606_)))) + (##cdr _rest7659176603_)))) (if (let () (declare (not safe)) - (##pair? _hd7659976656_)) - (let ((_hd7660176661_ + (##pair? _hd7659676653_)) + (let ((_hd7659876658_ (let () (declare (not safe)) - (##car _hd7659976656_))) - (_tl7660276663_ + (##car _hd7659676653_))) + (_tl7659976660_ (let () (declare (not safe)) - (##cdr _hd7659976656_)))) - (let ((_tmp76666_ _hd7660176661_)) + (##cdr _hd7659676653_)))) + (let ((_tmp76663_ _hd7659876658_)) (if (let () (declare (not safe)) - (##pair? _tl7660276663_)) - (let ((_hd7660376668_ + (##pair? _tl7659976660_)) + (let ((_hd7660076665_ (let () (declare (not safe)) - (##car _tl7660276663_))) - (_tl7660476670_ + (##car _tl7659976660_))) + (_tl7660176667_ (let () (declare (not safe)) - (##cdr _tl7660276663_)))) - (let* ((_len76673_ _hd7660376668_) - (_init76675_ _tl7660476670_) - (_rest76677_ - _tl7660076658_)) + (##cdr _tl7659976660_)))) + (let* ((_len76670_ _hd7660076665_) + (_init76672_ _tl7660176667_) + (_rest76674_ + _tl7659776655_)) (declare (not safe)) - (_K7659876653_ - _rest76677_ - _init76675_ - _len76673_ - _tmp76666_))) + (_K7659576650_ + _rest76674_ + _init76672_ + _len76670_ + _tmp76663_))) (let () (declare (not safe)) - (_else7659676614_))))) + (_else7659376611_))))) (let () (declare (not safe)) - (_else7659676614_)))) + (_else7659376611_)))) (let () (declare (not safe)) - (_else7659676614_)))))))) + (_else7659376611_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx76580_ - _compile-simple76582_ - _compile-values76583_))))) + _stx76577_ + _compile-simple76579_ + _compile-values76580_))))) (define __compile-letrec-values% - (lambda (_stx76380_) - (letrec ((_compile-simple76382_ - (lambda (_hd-ids76576_ _exprs76577_ _body76578_) - (let ((__tmp78022 - (let ((__tmp78023 - (let ((__tmp78025 + (lambda (_stx76377_) + (letrec ((_compile-simple76379_ + (lambda (_hd-ids76573_ _exprs76574_ _body76575_) + (let ((__tmp78019 + (let ((__tmp78020 + (let ((__tmp78022 (map list (map __compile-head-id - _hd-ids76576_) - _exprs76577_)) - (__tmp78024 + _hd-ids76573_) + _exprs76574_)) + (__tmp78021 (let () (declare (not safe)) - (cons _body76578_ '())))) + (cons _body76575_ '())))) (declare (not safe)) - (cons __tmp78025 __tmp78024)))) + (cons __tmp78022 __tmp78021)))) (declare (not safe)) - (cons 'letrec __tmp78023)))) + (cons 'letrec __tmp78020)))) (declare (not safe)) - (__SRC__% __tmp78022 _stx76380_)))) - (_compile-values76383_ - (lambda (_hd-ids76490_ _exprs76491_ _body76492_) - (let _lp76494_ ((_rest76496_ _hd-ids76490_) - (_exprs76497_ _exprs76491_) - (_pre76498_ '()) - (_bind76499_ '()) - (_post76500_ '())) - (let* ((_rest7650176515_ _rest76496_) - (_else7650476523_ + (__SRC__% __tmp78019 _stx76377_)))) + (_compile-values76380_ + (lambda (_hd-ids76487_ _exprs76488_ _body76489_) + (let _lp76491_ ((_rest76493_ _hd-ids76487_) + (_exprs76494_ _exprs76488_) + (_pre76495_ '()) + (_bind76496_ '()) + (_post76497_ '())) + (let* ((_rest7649876512_ _rest76493_) + (_else7650176520_ (lambda () (let () (declare (not safe)) - (_compile-inner76384_ - _pre76498_ - _bind76499_ - _post76500_ - _body76492_))))) - (let ((_K7650976559_ - (lambda (_rest76556_ _id76557_) - (let ((__tmp78031 (cdr _exprs76497_)) - (__tmp78026 - (let ((__tmp78027 - (let ((__tmp78030 + (_compile-inner76381_ + _pre76495_ + _bind76496_ + _post76497_ + _body76489_))))) + (let ((_K7650676556_ + (lambda (_rest76553_ _id76554_) + (let ((__tmp78028 (cdr _exprs76494_)) + (__tmp78023 + (let ((__tmp78024 + (let ((__tmp78027 (let () (declare (not safe)) (__compile-head-id - _id76557_))) - (__tmp78028 - (let ((__tmp78029 - (car _exprs76497_))) + _id76554_))) + (__tmp78025 + (let ((__tmp78026 + (car _exprs76494_))) (declare (not safe)) - (cons __tmp78029 + (cons __tmp78026 '())))) (declare (not safe)) - (cons __tmp78030 - __tmp78028)))) + (cons __tmp78027 + __tmp78025)))) (declare (not safe)) - (cons __tmp78027 _bind76499_)))) + (cons __tmp78024 _bind76496_)))) (declare (not safe)) - (_lp76494_ - _rest76556_ - __tmp78031 - _pre76498_ - __tmp78026 - _post76500_)))) - (_K7650676541_ - (lambda (_rest76527_ _hd76528_) + (_lp76491_ + _rest76553_ + __tmp78028 + _pre76495_ + __tmp78023 + _post76497_)))) + (_K7650376538_ + (lambda (_rest76524_ _hd76525_) (if (let () (declare (not safe)) - (__AST-id? _hd76528_)) - (let ((__tmp78059 (cdr _exprs76497_)) - (__tmp78052 - (let ((__tmp78053 - (let ((__tmp78058 + (__AST-id? _hd76525_)) + (let ((__tmp78056 (cdr _exprs76494_)) + (__tmp78049 + (let ((__tmp78050 + (let ((__tmp78055 (let () (declare (not safe)) (__compile-head-id - _hd76528_))) - (__tmp78054 - (let ((__tmp78055 + _hd76525_))) + (__tmp78051 + (let ((__tmp78052 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp78056 - (let ((__tmp78057 (car _exprs76497_))) + (let ((__tmp78053 + (let ((__tmp78054 (car _exprs76494_))) (declare (not safe)) - (cons __tmp78057 '())))) + (cons __tmp78054 '())))) (declare (not safe)) - (cons 'values->list __tmp78056)))) + (cons 'values->list __tmp78053)))) (declare (not safe)) - (cons __tmp78055 '())))) + (cons __tmp78052 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78058 - __tmp78054)))) + (cons __tmp78055 + __tmp78051)))) (declare (not safe)) - (cons __tmp78053 _bind76499_)))) + (cons __tmp78050 _bind76496_)))) (declare (not safe)) - (_lp76494_ - _rest76527_ - __tmp78059 - _pre76498_ - __tmp78052 - _post76500_)) + (_lp76491_ + _rest76524_ + __tmp78056 + _pre76495_ + __tmp78049 + _post76497_)) (if (let () (declare (not safe)) - (list? _hd76528_)) - (let* ((_len76530_ (length _hd76528_)) - (_tmp76532_ - (let ((__tmp78032 (gensym))) + (list? _hd76525_)) + (let* ((_len76527_ (length _hd76525_)) + (_tmp76529_ + (let ((__tmp78029 (gensym))) (declare (not safe)) - (__SRC__0 __tmp78032)))) - (let ((__tmp78051 - (cdr _exprs76497_)) - (__tmp78044 - (let ((__tmp78045 - (lambda (_id76535_ + (__SRC__0 __tmp78029)))) + (let ((__tmp78048 + (cdr _exprs76494_)) + (__tmp78041 + (let ((__tmp78042 + (lambda (_id76532_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r76536_) - (if (let () (declare (not safe)) (__AST-e _id76535_)) - (let ((__tmp78046 - (let ((__tmp78050 + _r76533_) + (if (let () (declare (not safe)) (__AST-e _id76532_)) + (let ((__tmp78043 + (let ((__tmp78047 (let () (declare (not safe)) - (__SRC__0 _id76535_))) - (__tmp78047 - (let ((__tmp78048 - (let ((__tmp78049 + (__SRC__0 _id76532_))) + (__tmp78044 + (let ((__tmp78045 + (let ((__tmp78046 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp78049)))) + (cons 'quote __tmp78046)))) (declare (not safe)) - (cons __tmp78048 '())))) + (cons __tmp78045 '())))) (declare (not safe)) - (cons __tmp78050 __tmp78047)))) + (cons __tmp78047 __tmp78044)))) (declare (not safe)) - (cons __tmp78046 _r76536_)) - _r76536_)))) + (cons __tmp78043 _r76533_)) + _r76533_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp78045 - _pre76498_ - _hd76528_))) - (__tmp78040 - (let ((__tmp78041 - (let ((__tmp78042 - (let ((__tmp78043 + (foldl1 __tmp78042 + _pre76495_ + _hd76525_))) + (__tmp78037 + (let ((__tmp78038 + (let ((__tmp78039 + (let ((__tmp78040 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs76497_))) + (car _exprs76494_))) (declare (not safe)) - (cons __tmp78043 '())))) + (cons __tmp78040 '())))) (declare (not safe)) - (cons _tmp76532_ __tmp78042)))) + (cons _tmp76529_ __tmp78039)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78041 - _bind76499_))) - (__tmp78033 - (let ((__tmp78034 - (let ((__tmp78035 - (let ((__tmp78036 + (cons __tmp78038 + _bind76496_))) + (__tmp78030 + (let ((__tmp78031 + (let ((__tmp78032 + (let ((__tmp78033 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp78038 - (lambda (_id76538_ _k76539_) + (let ((__tmp78035 + (lambda (_id76535_ _k76536_) (if (let () (declare (not safe)) - (__AST-e _id76538_)) - (let ((__tmp78039 + (__AST-e _id76535_)) + (let ((__tmp78036 (let () (declare (not safe)) - (__SRC__0 _id76538_)))) + (__SRC__0 _id76535_)))) (declare (not safe)) - (cons __tmp78039 _k76539_)) + (cons __tmp78036 _k76536_)) '#f))) - (__tmp78037 + (__tmp78034 (let () (declare (not safe)) - (iota__0 _len76530_)))) + (iota__0 _len76527_)))) (declare (not safe)) (filter-map2 - __tmp78038 - _hd76528_ - __tmp78037)))) + __tmp78035 + _hd76525_ + __tmp78034)))) (declare (not safe)) - (cons _len76530_ __tmp78036)))) + (cons _len76527_ __tmp78033)))) (declare (not safe)) - (cons _tmp76532_ __tmp78035)))) + (cons _tmp76529_ __tmp78032)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78034 - _post76500_)))) + (cons __tmp78031 + _post76497_)))) (declare (not safe)) - (_lp76494_ - _rest76527_ - __tmp78051 - __tmp78044 - __tmp78040 - __tmp78033))) + (_lp76491_ + _rest76524_ + __tmp78048 + __tmp78041 + __tmp78037 + __tmp78030))) (let () (declare (not safe)) (__compile-error__% - _stx76380_ - _hd76528_))))))) + _stx76377_ + _hd76525_))))))) (if (let () (declare (not safe)) - (##pair? _rest7650176515_)) - (let ((_tl7651176564_ + (##pair? _rest7649876512_)) + (let ((_tl7650876561_ (let () (declare (not safe)) - (##cdr _rest7650176515_))) - (_hd7651076562_ + (##cdr _rest7649876512_))) + (_hd7650776559_ (let () (declare (not safe)) - (##car _rest7650176515_)))) + (##car _rest7649876512_)))) (if (let () (declare (not safe)) - (##pair? _hd7651076562_)) - (let ((_tl7651376569_ + (##pair? _hd7650776559_)) + (let ((_tl7651076566_ (let () (declare (not safe)) - (##cdr _hd7651076562_))) - (_hd7651276567_ + (##cdr _hd7650776559_))) + (_hd7650976564_ (let () (declare (not safe)) - (##car _hd7651076562_)))) + (##car _hd7650776559_)))) (if (let () (declare (not safe)) - (##null? _tl7651376569_)) - (let ((_id76572_ _hd7651276567_) - (_rest76574_ _tl7651176564_)) + (##null? _tl7651076566_)) + (let ((_id76569_ _hd7650976564_) + (_rest76571_ _tl7650876561_)) (let () (declare (not safe)) - (_K7650976559_ - _rest76574_ - _id76572_))) - (let ((_hd76549_ _hd7651076562_) - (_rest76551_ _tl7651176564_)) + (_K7650676556_ + _rest76571_ + _id76569_))) + (let ((_hd76546_ _hd7650776559_) + (_rest76548_ _tl7650876561_)) (let () (declare (not safe)) - (_K7650676541_ - _rest76551_ - _hd76549_))))) - (let ((_hd76549_ _hd7651076562_) - (_rest76551_ _tl7651176564_)) + (_K7650376538_ + _rest76548_ + _hd76546_))))) + (let ((_hd76546_ _hd7650776559_) + (_rest76548_ _tl7650876561_)) (let () (declare (not safe)) - (_K7650676541_ - _rest76551_ - _hd76549_))))) + (_K7650376538_ + _rest76548_ + _hd76546_))))) (let () (declare (not safe)) - (_else7650476523_)))))))) - (_compile-inner76384_ - (lambda (_pre76485_ _bind76486_ _post76487_ _body76488_) - (if (let () (declare (not safe)) (null? _pre76485_)) + (_else7650176520_)))))))) + (_compile-inner76381_ + (lambda (_pre76482_ _bind76483_ _post76484_ _body76485_) + (if (let () (declare (not safe)) (null? _pre76482_)) (let () (declare (not safe)) - (_compile-bind76385_ - _bind76486_ - _post76487_ - _body76488_)) - (let ((__tmp78060 - (let ((__tmp78061 - (let ((__tmp78064 (reverse _pre76485_)) - (__tmp78062 - (let ((__tmp78063 + (_compile-bind76382_ + _bind76483_ + _post76484_ + _body76485_)) + (let ((__tmp78057 + (let ((__tmp78058 + (let ((__tmp78061 (reverse _pre76482_)) + (__tmp78059 + (let ((__tmp78060 (let () (declare (not safe)) - (_compile-bind76385_ - _bind76486_ - _post76487_ - _body76488_)))) + (_compile-bind76382_ + _bind76483_ + _post76484_ + _body76485_)))) (declare (not safe)) - (cons __tmp78063 '())))) + (cons __tmp78060 '())))) (declare (not safe)) - (cons __tmp78064 __tmp78062)))) + (cons __tmp78061 __tmp78059)))) (declare (not safe)) - (cons 'let __tmp78061)))) + (cons 'let __tmp78058)))) (declare (not safe)) - (__SRC__% __tmp78060 _stx76380_))))) - (_compile-bind76385_ - (lambda (_bind76481_ _post76482_ _body76483_) - (let ((__tmp78065 - (let ((__tmp78066 - (let ((__tmp78069 (reverse _bind76481_)) - (__tmp78067 - (let ((__tmp78068 + (__SRC__% __tmp78057 _stx76377_))))) + (_compile-bind76382_ + (lambda (_bind76478_ _post76479_ _body76480_) + (let ((__tmp78062 + (let ((__tmp78063 + (let ((__tmp78066 (reverse _bind76478_)) + (__tmp78064 + (let ((__tmp78065 (let () (declare (not safe)) - (_compile-post76386_ - _post76482_ - _body76483_)))) + (_compile-post76383_ + _post76479_ + _body76480_)))) (declare (not safe)) - (cons __tmp78068 '())))) + (cons __tmp78065 '())))) (declare (not safe)) - (cons __tmp78069 __tmp78067)))) + (cons __tmp78066 __tmp78064)))) (declare (not safe)) - (cons 'letrec __tmp78066)))) + (cons 'letrec __tmp78063)))) (declare (not safe)) - (__SRC__% __tmp78065 _stx76380_)))) - (_compile-post76386_ - (lambda (_post76388_ _body76389_) - (let _lp76391_ ((_rest76393_ _post76388_) - (_check76394_ '()) - (_bind76395_ '())) - (let* ((_rest7639676408_ _rest76393_) - (_else7639876416_ + (__SRC__% __tmp78062 _stx76377_)))) + (_compile-post76383_ + (lambda (_post76385_ _body76386_) + (let _lp76388_ ((_rest76390_ _post76385_) + (_check76391_ '()) + (_bind76392_ '())) + (let* ((_rest7639376405_ _rest76390_) + (_else7639576413_ (lambda () - (let ((__tmp78070 - (let ((__tmp78071 - (let ((__tmp78072 - (let ((__tmp78073 + (let ((__tmp78067 + (let ((__tmp78068 + (let ((__tmp78069 + (let ((__tmp78070 (let () (declare (not safe)) - (cons _body76389_ + (cons _body76386_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (foldr1 cons __tmp78073 _bind76395_)))) + (foldr1 cons __tmp78070 _bind76392_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp78072 - _check76394_)))) + __tmp78069 + _check76391_)))) (declare (not safe)) - (cons 'begin __tmp78071)))) + (cons 'begin __tmp78068)))) (declare (not safe)) - (__SRC__% __tmp78070 _stx76380_)))) - (_K7640076455_ - (lambda (_rest76419_ - _init76420_ - _len76421_ - _tmp76422_) - (let ((__tmp78082 - (let ((__tmp78083 - (let ((__tmp78084 - (let ((__tmp78085 - (let ((__tmp78086 + (__SRC__% __tmp78067 _stx76377_)))) + (_K7639776452_ + (lambda (_rest76416_ + _init76417_ + _len76418_ + _tmp76419_) + (let ((__tmp78079 + (let ((__tmp78080 + (let ((__tmp78081 + (let ((__tmp78082 + (let ((__tmp78083 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len76421_ '())))) + (cons _len76418_ '())))) (declare (not safe)) - (cons _tmp76422_ __tmp78086)))) + (cons _tmp76419_ __tmp78083)))) (declare (not safe)) - (cons '__check-values __tmp78085)))) + (cons '__check-values __tmp78082)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp78084 - _stx76380_)))) + __tmp78081 + _stx76377_)))) (declare (not safe)) - (cons __tmp78083 _check76394_))) - (__tmp78074 - (let ((__tmp78075 - (lambda (_hd76424_ _r76425_) - (let* ((_hd7642676433_ - _hd76424_) - (_E7642876437_ + (cons __tmp78080 _check76391_))) + (__tmp78071 + (let ((__tmp78072 + (lambda (_hd76421_ _r76422_) + (let* ((_hd7642376430_ + _hd76421_) + (_E7642576434_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd7642676433_)))) - (_K7642976443_ - (lambda (_k76440_ _id76441_) - (let ((__tmp78076 - (let ((__tmp78077 - (let ((__tmp78078 - (let ((__tmp78079 - (let ((__tmp78080 - (let ((__tmp78081 + _hd7642376430_)))) + (_K7642676440_ + (lambda (_k76437_ _id76438_) + (let ((__tmp78073 + (let ((__tmp78074 + (let ((__tmp78075 + (let ((__tmp78076 + (let ((__tmp78077 + (let ((__tmp78078 (let () (declare (not safe)) - (cons _k76440_ + (cons _k76437_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _tmp76422_ __tmp78081)))) + (cons _tmp76419_ __tmp78078)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##vector-ref - __tmp78080)))) + __tmp78077)))) (declare (not safe)) - (cons __tmp78079 '())))) + (cons __tmp78076 '())))) (declare (not safe)) - (cons _id76441_ __tmp78078)))) + (cons _id76438_ __tmp78075)))) (declare (not safe)) - (cons 'set! __tmp78077)))) + (cons 'set! __tmp78074)))) (declare (not safe)) - (cons __tmp78076 _r76425_))))) + (cons __tmp78073 _r76422_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd7642676433_)) - (let ((_hd7643076446_ + (##pair? _hd7642376430_)) + (let ((_hd7642776443_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd7642676433_))) - (_tl7643176448_ - (let () (declare (not safe)) (##cdr _hd7642676433_)))) - (let* ((_id76451_ _hd7643076446_) (_k76453_ _tl7643176448_)) + (##car _hd7642376430_))) + (_tl7642876445_ + (let () (declare (not safe)) (##cdr _hd7642376430_)))) + (let* ((_id76448_ _hd7642776443_) (_k76450_ _tl7642876445_)) (declare (not safe)) - (_K7642976443_ _k76453_ _id76451_))) - (let () (declare (not safe)) (_E7642876437_))))))) + (_K7642676440_ _k76450_ _id76448_))) + (let () (declare (not safe)) (_E7642576434_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp78075 - _bind76395_ - _init76420_)))) + (foldr1 __tmp78072 + _bind76392_ + _init76417_)))) (declare (not safe)) - (_lp76391_ - _rest76419_ - __tmp78082 - __tmp78074))))) + (_lp76388_ + _rest76416_ + __tmp78079 + __tmp78071))))) (if (let () (declare (not safe)) - (##pair? _rest7639676408_)) - (let ((_hd7640176458_ + (##pair? _rest7639376405_)) + (let ((_hd7639876455_ (let () (declare (not safe)) - (##car _rest7639676408_))) - (_tl7640276460_ + (##car _rest7639376405_))) + (_tl7639976457_ (let () (declare (not safe)) - (##cdr _rest7639676408_)))) + (##cdr _rest7639376405_)))) (if (let () (declare (not safe)) - (##pair? _hd7640176458_)) - (let ((_hd7640376463_ + (##pair? _hd7639876455_)) + (let ((_hd7640076460_ (let () (declare (not safe)) - (##car _hd7640176458_))) - (_tl7640476465_ + (##car _hd7639876455_))) + (_tl7640176462_ (let () (declare (not safe)) - (##cdr _hd7640176458_)))) - (let ((_tmp76468_ _hd7640376463_)) + (##cdr _hd7639876455_)))) + (let ((_tmp76465_ _hd7640076460_)) (if (let () (declare (not safe)) - (##pair? _tl7640476465_)) - (let ((_hd7640576470_ + (##pair? _tl7640176462_)) + (let ((_hd7640276467_ (let () (declare (not safe)) - (##car _tl7640476465_))) - (_tl7640676472_ + (##car _tl7640176462_))) + (_tl7640376469_ (let () (declare (not safe)) - (##cdr _tl7640476465_)))) - (let* ((_len76475_ _hd7640576470_) - (_init76477_ _tl7640676472_) - (_rest76479_ - _tl7640276460_)) + (##cdr _tl7640176462_)))) + (let* ((_len76472_ _hd7640276467_) + (_init76474_ _tl7640376469_) + (_rest76476_ + _tl7639976457_)) (declare (not safe)) - (_K7640076455_ - _rest76479_ - _init76477_ - _len76475_ - _tmp76468_))) + (_K7639776452_ + _rest76476_ + _init76474_ + _len76472_ + _tmp76465_))) (let () (declare (not safe)) - (_else7639876416_))))) + (_else7639576413_))))) (let () (declare (not safe)) - (_else7639876416_)))) + (_else7639576413_)))) (let () (declare (not safe)) - (_else7639876416_)))))))) + (_else7639576413_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx76380_ - _compile-simple76382_ - _compile-values76383_))))) + _stx76377_ + _compile-simple76379_ + _compile-values76380_))))) (define __compile-letrec*-values% - (lambda (_stx76135_) - (letrec ((_compile-simple76137_ - (lambda (_hd-ids76376_ _exprs76377_ _body76378_) - (let ((__tmp78087 - (let ((__tmp78088 - (let ((__tmp78090 + (lambda (_stx76132_) + (letrec ((_compile-simple76134_ + (lambda (_hd-ids76373_ _exprs76374_ _body76375_) + (let ((__tmp78084 + (let ((__tmp78085 + (let ((__tmp78087 (map list (map __compile-head-id - _hd-ids76376_) - _exprs76377_)) - (__tmp78089 + _hd-ids76373_) + _exprs76374_)) + (__tmp78086 (let () (declare (not safe)) - (cons _body76378_ '())))) + (cons _body76375_ '())))) (declare (not safe)) - (cons __tmp78090 __tmp78089)))) + (cons __tmp78087 __tmp78086)))) (declare (not safe)) - (cons 'letrec* __tmp78088)))) + (cons 'letrec* __tmp78085)))) (declare (not safe)) - (__SRC__% __tmp78087 _stx76135_)))) - (_compile-values76138_ - (lambda (_hd-ids76287_ _exprs76288_ _body76289_) - (let _lp76291_ ((_rest76293_ _hd-ids76287_) - (_exprs76294_ _exprs76288_) - (_bind76295_ '()) - (_post76296_ '())) - (let* ((_rest7629776311_ _rest76293_) - (_else7630076319_ + (__SRC__% __tmp78084 _stx76132_)))) + (_compile-values76135_ + (lambda (_hd-ids76284_ _exprs76285_ _body76286_) + (let _lp76288_ ((_rest76290_ _hd-ids76284_) + (_exprs76291_ _exprs76285_) + (_bind76292_ '()) + (_post76293_ '())) + (let* ((_rest7629476308_ _rest76290_) + (_else7629776316_ (lambda () (let () (declare (not safe)) - (_compile-bind76139_ - _bind76295_ - _post76296_ - _body76289_))))) - (let ((_K7630576359_ - (lambda (_rest76354_ _hd76355_) + (_compile-bind76136_ + _bind76292_ + _post76293_ + _body76286_))))) + (let ((_K7630276356_ + (lambda (_rest76351_ _hd76352_) (if (let () (declare (not safe)) - (__AST-id? _hd76355_)) - (let ((_id76357_ + (__AST-id? _hd76352_)) + (let ((_id76354_ (let () (declare (not safe)) - (__SRC__0 _hd76355_)))) - (let ((__tmp78105 (cdr _exprs76294_)) - (__tmp78100 - (let ((__tmp78101 - (let ((__tmp78102 - (let ((__tmp78103 + (__SRC__0 _hd76352_)))) + (let ((__tmp78102 (cdr _exprs76291_)) + (__tmp78097 + (let ((__tmp78098 + (let ((__tmp78099 + (let ((__tmp78100 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp78104 + (let ((__tmp78101 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp78104)))) + (cons 'quote __tmp78101)))) (declare (not safe)) - (cons __tmp78103 '())))) + (cons __tmp78100 '())))) (declare (not safe)) - (cons _id76357_ __tmp78102)))) + (cons _id76354_ __tmp78099)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78101 _bind76295_))) - (__tmp78096 - (let ((__tmp78097 - (let ((__tmp78098 - (let ((__tmp78099 + (cons __tmp78098 _bind76292_))) + (__tmp78093 + (let ((__tmp78094 + (let ((__tmp78095 + (let ((__tmp78096 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs76294_))) + (car _exprs76291_))) (declare (not safe)) - (cons __tmp78099 '())))) + (cons __tmp78096 '())))) (declare (not safe)) - (cons _id76357_ __tmp78098)))) + (cons _id76354_ __tmp78095)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78097 - _post76296_)))) + (cons __tmp78094 + _post76293_)))) (declare (not safe)) - (_lp76291_ - _rest76354_ - __tmp78105 - __tmp78100 - __tmp78096))) - (let ((__tmp78095 (cdr _exprs76294_)) - (__tmp78091 - (let ((__tmp78092 - (let ((__tmp78093 - (let ((__tmp78094 + (_lp76288_ + _rest76351_ + __tmp78102 + __tmp78097 + __tmp78093))) + (let ((__tmp78092 (cdr _exprs76291_)) + (__tmp78088 + (let ((__tmp78089 + (let ((__tmp78090 + (let ((__tmp78091 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs76294_))) + (car _exprs76291_))) (declare (not safe)) - (cons __tmp78094 '())))) + (cons __tmp78091 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '#f __tmp78093)))) + (cons '#f __tmp78090)))) (declare (not safe)) - (cons __tmp78092 _post76296_)))) + (cons __tmp78089 _post76293_)))) (declare (not safe)) - (_lp76291_ - _rest76354_ - __tmp78095 - _bind76295_ - __tmp78091))))) - (_K7630276339_ - (lambda (_rest76323_ _hd76324_) + (_lp76288_ + _rest76351_ + __tmp78092 + _bind76292_ + __tmp78088))))) + (_K7629976336_ + (lambda (_rest76320_ _hd76321_) (if (let () (declare (not safe)) - (__AST-id? _hd76324_)) - (let ((_id76326_ + (__AST-id? _hd76321_)) + (let ((_id76323_ (let () (declare (not safe)) - (__SRC__0 _hd76324_)))) - (let ((__tmp78141 (cdr _exprs76294_)) - (__tmp78136 - (let ((__tmp78137 - (let ((__tmp78138 - (let ((__tmp78139 + (__SRC__0 _hd76321_)))) + (let ((__tmp78138 (cdr _exprs76291_)) + (__tmp78133 + (let ((__tmp78134 + (let ((__tmp78135 + (let ((__tmp78136 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp78140 + (let ((__tmp78137 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp78140)))) + (cons 'quote __tmp78137)))) (declare (not safe)) - (cons __tmp78139 '())))) + (cons __tmp78136 '())))) (declare (not safe)) - (cons _id76326_ __tmp78138)))) + (cons _id76323_ __tmp78135)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78137 _bind76295_))) - (__tmp78130 - (let ((__tmp78131 - (let ((__tmp78132 - (let ((__tmp78133 + (cons __tmp78134 _bind76292_))) + (__tmp78127 + (let ((__tmp78128 + (let ((__tmp78129 + (let ((__tmp78130 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp78134 - (let ((__tmp78135 (car _exprs76294_))) + (let ((__tmp78131 + (let ((__tmp78132 (car _exprs76291_))) (declare (not safe)) - (cons __tmp78135 '())))) + (cons __tmp78132 '())))) (declare (not safe)) - (cons 'values->list __tmp78134)))) + (cons 'values->list __tmp78131)))) (declare (not safe)) - (cons __tmp78133 '())))) + (cons __tmp78130 '())))) (declare (not safe)) - (cons _id76326_ __tmp78132)))) + (cons _id76323_ __tmp78129)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78131 - _post76296_)))) + (cons __tmp78128 + _post76293_)))) (declare (not safe)) - (_lp76291_ - _rest76323_ - __tmp78141 - __tmp78136 - __tmp78130))) - (if (let ((__tmp78129 + (_lp76288_ + _rest76320_ + __tmp78138 + __tmp78133 + __tmp78127))) + (if (let ((__tmp78126 (let () (declare (not safe)) - (__AST-e _hd76324_)))) + (__AST-e _hd76321_)))) (declare (not safe)) - (not __tmp78129)) - (let ((__tmp78128 (cdr _exprs76294_)) - (__tmp78124 - (let ((__tmp78125 - (let ((__tmp78126 - (let ((__tmp78127 + (not __tmp78126)) + (let ((__tmp78125 (cdr _exprs76291_)) + (__tmp78121 + (let ((__tmp78122 + (let ((__tmp78123 + (let ((__tmp78124 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs76294_))) + (car _exprs76291_))) (declare (not safe)) - (cons __tmp78127 '())))) + (cons __tmp78124 '())))) (declare (not safe)) - (cons '#f __tmp78126)))) + (cons '#f __tmp78123)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78125 - _post76296_)))) + (cons __tmp78122 + _post76293_)))) (declare (not safe)) - (_lp76291_ - _rest76323_ - __tmp78128 - _bind76295_ - __tmp78124)) + (_lp76288_ + _rest76320_ + __tmp78125 + _bind76292_ + __tmp78121)) (if (let () (declare (not safe)) - (list? _hd76324_)) - (let* ((_len76328_ - (length _hd76324_)) - (_tmp76330_ - (let ((__tmp78106 + (list? _hd76321_)) + (let* ((_len76325_ + (length _hd76321_)) + (_tmp76327_ + (let ((__tmp78103 (gensym))) (declare (not safe)) - (__SRC__0 __tmp78106)))) - (let ((__tmp78123 - (cdr _exprs76294_)) - (__tmp78116 - (let ((__tmp78117 - (lambda (_id76333_ + (__SRC__0 __tmp78103)))) + (let ((__tmp78120 + (cdr _exprs76291_)) + (__tmp78113 + (let ((__tmp78114 + (lambda (_id76330_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r76334_) - (if (let () (declare (not safe)) (__AST-e _id76333_)) - (let ((__tmp78118 - (let ((__tmp78122 + _r76331_) + (if (let () (declare (not safe)) (__AST-e _id76330_)) + (let ((__tmp78115 + (let ((__tmp78119 (let () (declare (not safe)) - (__SRC__0 _id76333_))) - (__tmp78119 - (let ((__tmp78120 - (let ((__tmp78121 + (__SRC__0 _id76330_))) + (__tmp78116 + (let ((__tmp78117 + (let ((__tmp78118 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp78121)))) + (cons 'quote __tmp78118)))) (declare (not safe)) - (cons __tmp78120 '())))) + (cons __tmp78117 '())))) (declare (not safe)) - (cons __tmp78122 __tmp78119)))) + (cons __tmp78119 __tmp78116)))) (declare (not safe)) - (cons __tmp78118 _r76334_)) - _r76334_)))) + (cons __tmp78115 _r76331_)) + _r76331_)))) (declare (not safe)) - (foldl1 __tmp78117 _bind76295_ _hd76324_))) + (foldl1 __tmp78114 _bind76292_ _hd76321_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp78107 - (let ((__tmp78108 - (let ((__tmp78109 + (__tmp78104 + (let ((__tmp78105 + (let ((__tmp78106 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp78115 (car _exprs76294_)) - (__tmp78110 - (let ((__tmp78111 - (let ((__tmp78113 - (lambda (_id76336_ _k76337_) + (let ((__tmp78112 (car _exprs76291_)) + (__tmp78107 + (let ((__tmp78108 + (let ((__tmp78110 + (lambda (_id76333_ _k76334_) (if (let () (declare (not safe)) - (__AST-e _id76336_)) - (let ((__tmp78114 + (__AST-e _id76333_)) + (let ((__tmp78111 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__SRC__0 _id76336_)))) + (__SRC__0 _id76333_)))) (declare (not safe)) - (cons __tmp78114 _k76337_)) + (cons __tmp78111 _k76334_)) '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp78112 + (__tmp78109 (let () (declare (not safe)) - (iota__0 _len76328_)))) + (iota__0 _len76325_)))) (declare (not safe)) (filter-map2 - __tmp78113 - _hd76324_ - __tmp78112)))) + __tmp78110 + _hd76321_ + __tmp78109)))) (declare (not safe)) - (cons _len76328_ __tmp78111)))) + (cons _len76325_ __tmp78108)))) (declare (not safe)) - (cons __tmp78115 __tmp78110)))) + (cons __tmp78112 __tmp78107)))) (declare (not safe)) - (cons _tmp76330_ __tmp78109)))) + (cons _tmp76327_ __tmp78106)))) (declare (not safe)) - (cons __tmp78108 _post76296_)))) + (cons __tmp78105 _post76293_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp76291_ - _rest76323_ - __tmp78123 - __tmp78116 - __tmp78107))) + (_lp76288_ + _rest76320_ + __tmp78120 + __tmp78113 + __tmp78104))) (let () (declare (not safe)) (__compile-error__% - _stx76135_ - _hd76324_)))))))) + _stx76132_ + _hd76321_)))))))) (if (let () (declare (not safe)) - (##pair? _rest7629776311_)) - (let ((_tl7630776364_ + (##pair? _rest7629476308_)) + (let ((_tl7630476361_ (let () (declare (not safe)) - (##cdr _rest7629776311_))) - (_hd7630676362_ + (##cdr _rest7629476308_))) + (_hd7630376359_ (let () (declare (not safe)) - (##car _rest7629776311_)))) + (##car _rest7629476308_)))) (if (let () (declare (not safe)) - (##pair? _hd7630676362_)) - (let ((_tl7630976369_ + (##pair? _hd7630376359_)) + (let ((_tl7630676366_ (let () (declare (not safe)) - (##cdr _hd7630676362_))) - (_hd7630876367_ + (##cdr _hd7630376359_))) + (_hd7630576364_ (let () (declare (not safe)) - (##car _hd7630676362_)))) + (##car _hd7630376359_)))) (if (let () (declare (not safe)) - (##null? _tl7630976369_)) - (let ((_hd76372_ _hd7630876367_) - (_rest76374_ _tl7630776364_)) + (##null? _tl7630676366_)) + (let ((_hd76369_ _hd7630576364_) + (_rest76371_ _tl7630476361_)) (let () (declare (not safe)) - (_K7630576359_ - _rest76374_ - _hd76372_))) - (let ((_hd76347_ _hd7630676362_) - (_rest76349_ _tl7630776364_)) + (_K7630276356_ + _rest76371_ + _hd76369_))) + (let ((_hd76344_ _hd7630376359_) + (_rest76346_ _tl7630476361_)) (let () (declare (not safe)) - (_K7630276339_ - _rest76349_ - _hd76347_))))) - (let ((_hd76347_ _hd7630676362_) - (_rest76349_ _tl7630776364_)) + (_K7629976336_ + _rest76346_ + _hd76344_))))) + (let ((_hd76344_ _hd7630376359_) + (_rest76346_ _tl7630476361_)) (let () (declare (not safe)) - (_K7630276339_ - _rest76349_ - _hd76347_))))) + (_K7629976336_ + _rest76346_ + _hd76344_))))) (let () (declare (not safe)) - (_else7630076319_)))))))) - (_compile-bind76139_ - (lambda (_bind76283_ _post76284_ _body76285_) - (let ((__tmp78142 - (let ((__tmp78143 - (let ((__tmp78146 (reverse _bind76283_)) - (__tmp78144 - (let ((__tmp78145 + (_else7629776316_)))))))) + (_compile-bind76136_ + (lambda (_bind76280_ _post76281_ _body76282_) + (let ((__tmp78139 + (let ((__tmp78140 + (let ((__tmp78143 (reverse _bind76280_)) + (__tmp78141 + (let ((__tmp78142 (let () (declare (not safe)) - (_compile-post76140_ - _post76284_ - _body76285_)))) + (_compile-post76137_ + _post76281_ + _body76282_)))) (declare (not safe)) - (cons __tmp78145 '())))) + (cons __tmp78142 '())))) (declare (not safe)) - (cons __tmp78146 __tmp78144)))) + (cons __tmp78143 __tmp78141)))) (declare (not safe)) - (cons 'let __tmp78143)))) + (cons 'let __tmp78140)))) (declare (not safe)) - (__SRC__% __tmp78142 _stx76135_)))) - (_compile-post76140_ - (lambda (_post76142_ _body76143_) - (let ((__tmp78147 - (let ((__tmp78148 - (let ((__tmp78149 - (let ((__tmp78151 - (lambda (_hd76145_ _r76146_) - (let* ((_hd7614776170_ - _hd76145_) - (_E7615176174_ + (__SRC__% __tmp78139 _stx76132_)))) + (_compile-post76137_ + (lambda (_post76139_ _body76140_) + (let ((__tmp78144 + (let ((__tmp78145 + (let ((__tmp78146 + (let ((__tmp78148 + (lambda (_hd76142_ _r76143_) + (let* ((_hd7614476167_ + _hd76142_) + (_E7614876171_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd7614776170_))))) + _hd7614476167_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_K7616476268_ - (lambda (_expr76266_) + (let ((_K7616176265_ + (lambda (_expr76263_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr76266_ _r76146_)))) - (_K7615976246_ - (lambda (_expr76243_ _id76244_) - (let ((__tmp78152 - (let ((__tmp78153 - (let ((__tmp78154 - (let ((__tmp78155 + (cons _expr76263_ _r76143_)))) + (_K7615676243_ + (lambda (_expr76240_ _id76241_) + (let ((__tmp78149 + (let ((__tmp78150 + (let ((__tmp78151 + (let ((__tmp78152 (let () (declare (not safe)) - (cons _expr76243_ '())))) + (cons _expr76240_ '())))) (declare (not safe)) - (cons _id76244_ __tmp78155)))) + (cons _id76241_ __tmp78152)))) (declare (not safe)) - (cons 'set! __tmp78154)))) + (cons 'set! __tmp78151)))) (declare (not safe)) - (__SRC__% __tmp78153 _stx76135_)))) + (__SRC__% __tmp78150 _stx76132_)))) (declare (not safe)) - (cons __tmp78152 _r76146_)))) - (_K7615276213_ - (lambda (_init76178_ _len76179_ _expr76180_ _tmp76181_) - (let ((__tmp78156 - (let ((__tmp78157 - (let ((__tmp78158 - (let ((__tmp78172 - (let ((__tmp78173 - (let ((__tmp78174 + (cons __tmp78149 _r76143_)))) + (_K7614976210_ + (lambda (_init76175_ _len76176_ _expr76177_ _tmp76178_) + (let ((__tmp78153 + (let ((__tmp78154 + (let ((__tmp78155 + (let ((__tmp78169 + (let ((__tmp78170 + (let ((__tmp78171 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr76180_ '())))) + (cons _expr76177_ '())))) (declare (not safe)) - (cons _tmp76181_ __tmp78174)))) + (cons _tmp76178_ __tmp78171)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78173 '()))) - (__tmp78159 - (let ((__tmp78168 - (let ((__tmp78169 - (let ((__tmp78170 + (cons __tmp78170 '()))) + (__tmp78156 + (let ((__tmp78165 + (let ((__tmp78166 + (let ((__tmp78167 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp78171 + (let ((__tmp78168 (let () (declare (not safe)) - (cons _len76179_ '())))) + (cons _len76176_ '())))) (declare (not safe)) - (cons _tmp76181_ __tmp78171)))) + (cons _tmp76178_ __tmp78168)))) (declare (not safe)) - (cons '__check-values __tmp78170)))) + (cons '__check-values __tmp78167)))) (declare (not safe)) - (__SRC__% __tmp78169 _stx76135_))) - (__tmp78160 - (let ((__tmp78161 - (map (lambda (_hd76183_) - (let* ((_hd7618476191_ _hd76183_) - (_E7618676195_ + (__SRC__% __tmp78166 _stx76132_))) + (__tmp78157 + (let ((__tmp78158 + (map (lambda (_hd76180_) + (let* ((_hd7618176188_ _hd76180_) + (_E7618376192_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _hd7618476191_)))) - (_K7618776201_ - (lambda (_k76198_ _id76199_) - (let ((__tmp78162 - (let ((__tmp78163 - (let ((__tmp78164 - (let ((__tmp78165 + _hd7618176188_)))) + (_K7618476198_ + (lambda (_k76195_ _id76196_) + (let ((__tmp78159 + (let ((__tmp78160 + (let ((__tmp78161 + (let ((__tmp78162 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp78166 - (let ((__tmp78167 + (let ((__tmp78163 + (let ((__tmp78164 (let () (declare (not safe)) - (cons _k76198_ '())))) + (cons _k76195_ '())))) (declare (not safe)) - (cons _tmp76181_ __tmp78167)))) + (cons _tmp76178_ __tmp78164)))) (declare (not safe)) - (cons '##vector-ref __tmp78166)))) + (cons '##vector-ref __tmp78163)))) (declare (not safe)) - (cons __tmp78165 '())))) + (cons __tmp78162 '())))) (declare (not safe)) - (cons _id76199_ __tmp78164)))) + (cons _id76196_ __tmp78161)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp78163)))) + (cons 'set! __tmp78160)))) (declare (not safe)) - (__SRC__% __tmp78162 _stx76135_))))) + (__SRC__% __tmp78159 _stx76132_))))) (if (let () (declare (not safe)) - (##pair? _hd7618476191_)) - (let ((_hd7618876204_ + (##pair? _hd7618176188_)) + (let ((_hd7618576201_ (let () (declare (not safe)) - (##car _hd7618476191_))) - (_tl7618976206_ + (##car _hd7618176188_))) + (_tl7618676203_ (let () (declare (not safe)) - (##cdr _hd7618476191_)))) - (let* ((_id76209_ _hd7618876204_) - (_k76211_ _tl7618976206_)) + (##cdr _hd7618176188_)))) + (let* ((_id76206_ _hd7618576201_) + (_k76208_ _tl7618676203_)) (declare (not safe)) - (_K7618776201_ _k76211_ _id76209_))) + (_K7618476198_ _k76208_ _id76206_))) (let () (declare (not safe)) - (_E7618676195_))))) - _init76178_))) + (_E7618376192_))))) + _init76175_))) (declare (not safe)) - (foldr1 cons '() __tmp78161)))) + (foldr1 cons '() __tmp78158)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78168 - __tmp78160)))) + (cons __tmp78165 + __tmp78157)))) (declare (not safe)) - (cons __tmp78172 __tmp78159)))) + (cons __tmp78169 __tmp78156)))) (declare (not safe)) - (cons 'let __tmp78158)))) + (cons 'let __tmp78155)))) (declare (not safe)) - (__SRC__% __tmp78157 _stx76135_)))) + (__SRC__% __tmp78154 _stx76132_)))) (declare (not safe)) - (cons __tmp78156 _r76146_))))) - (if (let () (declare (not safe)) (##pair? _hd7614776170_)) - (let ((_tl7616676273_ - (let () (declare (not safe)) (##cdr _hd7614776170_))) - (_hd7616576271_ - (let () (declare (not safe)) (##car _hd7614776170_)))) + (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_)))) (if (let () (declare (not safe)) - (##eq? _hd7616576271_ '#f)) + (##eq? _hd7616276268_ '#f)) (if (let () (declare (not safe)) - (##pair? _tl7616676273_)) - (let ((_tl7616876278_ + (##pair? _tl7616376270_)) + (let ((_tl7616576275_ (let () (declare (not safe)) - (##cdr _tl7616676273_))) - (_hd7616776276_ + (##cdr _tl7616376270_))) + (_hd7616476273_ (let () (declare (not safe)) - (##car _tl7616676273_)))) + (##car _tl7616376270_)))) (if (let () (declare (not safe)) - (##null? _tl7616876278_)) - (let ((_expr76281_ _hd7616776276_)) + (##null? _tl7616576275_)) + (let ((_expr76278_ _hd7616476273_)) (declare (not safe)) - (_K7616476268_ _expr76281_)) + (_K7616176265_ _expr76278_)) (if (let () (declare (not safe)) - (##pair? _tl7616876278_)) - (let ((_tl7615876232_ + (##pair? _tl7616576275_)) + (let ((_tl7615576229_ (let () (declare (not safe)) - (##cdr _tl7616876278_))) - (_hd7615776230_ + (##cdr _tl7616576275_))) + (_hd7615476227_ (let () (declare (not safe)) - (##car _tl7616876278_)))) - (let ((_tmp76221_ _hd7616576271_) - (_expr76228_ _hd7616776276_) - (_len76235_ _hd7615776230_) - (_init76237_ _tl7615876232_)) + (##car _tl7616576275_)))) + (let ((_tmp76218_ _hd7616276268_) + (_expr76225_ _hd7616476273_) + (_len76232_ _hd7615476227_) + (_init76234_ _tl7615576229_)) (let () (declare (not safe)) - (_K7615276213_ - _init76237_ - _len76235_ - _expr76228_ - _tmp76221_)))) + (_K7614976210_ + _init76234_ + _len76232_ + _expr76225_ + _tmp76218_)))) (let () (declare (not safe)) - (_E7615176174_))))) - (let () (declare (not safe)) (_E7615176174_))) + (_E7614876171_))))) + (let () (declare (not safe)) (_E7614876171_))) (if (let () (declare (not safe)) - (##pair? _tl7616676273_)) - (let ((_tl7616376258_ + (##pair? _tl7616376270_)) + (let ((_tl7616076255_ (let () (declare (not safe)) - (##cdr _tl7616676273_))) - (_hd7616276256_ + (##cdr _tl7616376270_))) + (_hd7615976253_ (let () (declare (not safe)) - (##car _tl7616676273_)))) + (##car _tl7616376270_)))) (if (let () (declare (not safe)) - (##null? _tl7616376258_)) - (let ((_id76254_ _hd7616576271_) - (_expr76261_ _hd7616276256_)) + (##null? _tl7616076255_)) + (let ((_id76251_ _hd7616276268_) + (_expr76258_ _hd7615976253_)) (let () (declare (not safe)) - (_K7615976246_ _expr76261_ _id76254_))) + (_K7615676243_ _expr76258_ _id76251_))) (if (let () (declare (not safe)) - (##pair? _tl7616376258_)) - (let ((_tl7615876232_ + (##pair? _tl7616076255_)) + (let ((_tl7615576229_ (let () (declare (not safe)) - (##cdr _tl7616376258_))) - (_hd7615776230_ + (##cdr _tl7616076255_))) + (_hd7615476227_ (let () (declare (not safe)) - (##car _tl7616376258_)))) - (let ((_tmp76221_ _hd7616576271_) - (_expr76228_ _hd7616276256_) - (_len76235_ _hd7615776230_) - (_init76237_ _tl7615876232_)) + (##car _tl7616076255_)))) + (let ((_tmp76218_ _hd7616276268_) + (_expr76225_ _hd7615976253_) + (_len76232_ _hd7615476227_) + (_init76234_ _tl7615576229_)) (let () (declare (not safe)) - (_K7615276213_ - _init76237_ - _len76235_ - _expr76228_ - _tmp76221_)))) + (_K7614976210_ + _init76234_ + _len76232_ + _expr76225_ + _tmp76218_)))) (let () (declare (not safe)) - (_E7615176174_))))) - (let () (declare (not safe)) (_E7615176174_))))) - (let () (declare (not safe)) (_E7615176174_))))))) + (_E7614876171_))))) + (let () (declare (not safe)) (_E7614876171_))))) + (let () (declare (not safe)) (_E7614876171_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp78150 (list _body76143_))) + (__tmp78147 (list _body76140_))) (declare (not safe)) - (foldl1 __tmp78151 - __tmp78150 - _post76142_)))) + (foldl1 __tmp78148 + __tmp78147 + _post76139_)))) (declare (not safe)) - (foldr1 cons '() __tmp78149)))) + (foldr1 cons '() __tmp78146)))) (declare (not safe)) - (cons 'begin __tmp78148)))) + (cons 'begin __tmp78145)))) (declare (not safe)) - (__SRC__% __tmp78147 _stx76135_))))) + (__SRC__% __tmp78144 _stx76132_))))) (let () (declare (not safe)) (__compile-let-form - _stx76135_ - _compile-simple76137_ - _compile-values76138_))))) + _stx76132_ + _compile-simple76134_ + _compile-values76135_))))) (define __compile-call% - (lambda (_stx76095_) - (let* ((_$e76097_ _stx76095_) - (_$E7609976108_ + (lambda (_stx76092_) + (let* ((_$e76094_ _stx76092_) + (_$E7609676105_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e76097_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e76097_)) - (let* ((_$tgt7610076111_ - (let () (declare (not safe)) (__AST-e _$e76097_))) - (_$hd7610176114_ - (let () (declare (not safe)) (##car _$tgt7610076111_))) - (_$tl7610276117_ - (let () (declare (not safe)) (##cdr _$tgt7610076111_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7610276117_)) - (let* ((_$tgt7610376121_ + _$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_ (let () (declare (not safe)) - (__AST-e _$tl7610276117_))) - (_$hd7610476124_ + (__AST-e _$tl7609976114_))) + (_$hd7610176121_ (let () (declare (not safe)) - (##car _$tgt7610376121_))) - (_$tl7610576127_ + (##car _$tgt7610076118_))) + (_$tl7610276124_ (let () (declare (not safe)) - (##cdr _$tgt7610376121_)))) - (let* ((_rator76131_ _$hd7610476124_) - (_rands76133_ _$tl7610576127_) - (__tmp78175 - (let ((__tmp78177 + (##cdr _$tgt7610076118_)))) + (let* ((_rator76128_ _$hd7610176121_) + (_rands76130_ _$tl7610276124_) + (__tmp78172 + (let ((__tmp78174 (let () (declare (not safe)) - (__compile _rator76131_))) - (__tmp78176 (map __compile _rands76133_))) + (__compile _rator76128_))) + (__tmp78173 (map __compile _rands76130_))) (declare (not safe)) - (cons __tmp78177 __tmp78176)))) + (cons __tmp78174 __tmp78173)))) (declare (not safe)) - (__SRC__% __tmp78175 _stx76095_))) - (let () (declare (not safe)) (_$E7609976108_)))) - (let () (declare (not safe)) (_$E7609976108_)))))) + (__SRC__% __tmp78172 _stx76092_))) + (let () (declare (not safe)) (_$E7609676105_)))) + (let () (declare (not safe)) (_$E7609676105_)))))) (define __compile-ref% - (lambda (_stx76057_) - (let* ((_$e76059_ _stx76057_) - (_$E7606176070_ + (lambda (_stx76054_) + (let* ((_$e76056_ _stx76054_) + (_$E7605876067_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e76059_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e76059_)) - (let* ((_$tgt7606276073_ - (let () (declare (not safe)) (__AST-e _$e76059_))) - (_$hd7606376076_ - (let () (declare (not safe)) (##car _$tgt7606276073_))) - (_$tl7606476079_ - (let () (declare (not safe)) (##cdr _$tgt7606276073_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7606476079_)) - (let* ((_$tgt7606576083_ + _$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_ (let () (declare (not safe)) - (__AST-e _$tl7606476079_))) - (_$hd7606676086_ + (__AST-e _$tl7606176076_))) + (_$hd7606376083_ (let () (declare (not safe)) - (##car _$tgt7606576083_))) - (_$tl7606776089_ + (##car _$tgt7606276080_))) + (_$tl7606476086_ (let () (declare (not safe)) - (##cdr _$tgt7606576083_)))) - (let ((_id76093_ _$hd7606676086_)) - (if (let ((__tmp78178 + (##cdr _$tgt7606276080_)))) + (let ((_id76090_ _$hd7606376083_)) + (if (let ((__tmp78175 (let () (declare (not safe)) - (__AST-e _$tl7606776089_)))) + (__AST-e _$tl7606476086_)))) (declare (not safe)) - (equal? __tmp78178 '())) + (equal? __tmp78175 '())) (let () (declare (not safe)) - (__SRC__% _id76093_ _stx76057_)) - (let () (declare (not safe)) (_$E7606176070_))))) - (let () (declare (not safe)) (_$E7606176070_)))) - (let () (declare (not safe)) (_$E7606176070_)))))) + (__SRC__% _id76090_ _stx76054_)) + (let () (declare (not safe)) (_$E7605876067_))))) + (let () (declare (not safe)) (_$E7605876067_)))) + (let () (declare (not safe)) (_$E7605876067_)))))) (define __compile-setq% - (lambda (_stx76004_) - (let* ((_$e76006_ _stx76004_) - (_$E7600876020_ + (lambda (_stx76001_) + (let* ((_$e76003_ _stx76001_) + (_$E7600576017_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e76006_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e76006_)) - (let* ((_$tgt7600976023_ - (let () (declare (not safe)) (__AST-e _$e76006_))) - (_$hd7601076026_ - (let () (declare (not safe)) (##car _$tgt7600976023_))) - (_$tl7601176029_ - (let () (declare (not safe)) (##cdr _$tgt7600976023_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7601176029_)) - (let* ((_$tgt7601276033_ + _$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_ (let () (declare (not safe)) - (__AST-e _$tl7601176029_))) - (_$hd7601376036_ + (__AST-e _$tl7600876026_))) + (_$hd7601076033_ (let () (declare (not safe)) - (##car _$tgt7601276033_))) - (_$tl7601476039_ + (##car _$tgt7600976030_))) + (_$tl7601176036_ (let () (declare (not safe)) - (##cdr _$tgt7601276033_)))) - (let ((_id76043_ _$hd7601376036_)) + (##cdr _$tgt7600976030_)))) + (let ((_id76040_ _$hd7601076033_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7601476039_)) - (let* ((_$tgt7601576045_ + (__AST-pair? _$tl7601176036_)) + (let* ((_$tgt7601276042_ (let () (declare (not safe)) - (__AST-e _$tl7601476039_))) - (_$hd7601676048_ + (__AST-e _$tl7601176036_))) + (_$hd7601376045_ (let () (declare (not safe)) - (##car _$tgt7601576045_))) - (_$tl7601776051_ + (##car _$tgt7601276042_))) + (_$tl7601476048_ (let () (declare (not safe)) - (##cdr _$tgt7601576045_)))) - (let ((_expr76055_ _$hd7601676048_)) - (if (let ((__tmp78184 + (##cdr _$tgt7601276042_)))) + (let ((_expr76052_ _$hd7601376045_)) + (if (let ((__tmp78181 (let () (declare (not safe)) - (__AST-e _$tl7601776051_)))) + (__AST-e _$tl7601476048_)))) (declare (not safe)) - (equal? __tmp78184 '())) - (let ((__tmp78179 - (let ((__tmp78180 - (let ((__tmp78183 + (equal? __tmp78181 '())) + (let ((__tmp78176 + (let ((__tmp78177 + (let ((__tmp78180 (let () (declare (not safe)) (__SRC__% - _id76043_ - _stx76004_))) - (__tmp78181 - (let ((__tmp78182 + _id76040_ + _stx76001_))) + (__tmp78178 + (let ((__tmp78179 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _expr76055_)))) + (__compile _expr76052_)))) (declare (not safe)) - (cons __tmp78182 '())))) + (cons __tmp78179 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78183 - __tmp78181)))) + (cons __tmp78180 + __tmp78178)))) (declare (not safe)) - (cons 'set! __tmp78180)))) + (cons 'set! __tmp78177)))) (declare (not safe)) - (__SRC__% __tmp78179 _stx76004_)) + (__SRC__% __tmp78176 _stx76001_)) (let () (declare (not safe)) - (_$E7600876020_))))) - (let () (declare (not safe)) (_$E7600876020_))))) - (let () (declare (not safe)) (_$E7600876020_)))) - (let () (declare (not safe)) (_$E7600876020_)))))) + (_$E7600576017_))))) + (let () (declare (not safe)) (_$E7600576017_))))) + (let () (declare (not safe)) (_$E7600576017_)))) + (let () (declare (not safe)) (_$E7600576017_)))))) (define __compile-if% - (lambda (_stx75936_) - (let* ((_$e75938_ _stx75936_) - (_$E7594075955_ + (lambda (_stx75933_) + (let* ((_$e75935_ _stx75933_) + (_$E7593775952_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e75938_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e75938_)) - (let* ((_$tgt7594175958_ - (let () (declare (not safe)) (__AST-e _$e75938_))) - (_$hd7594275961_ - (let () (declare (not safe)) (##car _$tgt7594175958_))) - (_$tl7594375964_ - (let () (declare (not safe)) (##cdr _$tgt7594175958_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7594375964_)) - (let* ((_$tgt7594475968_ + _$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_ (let () (declare (not safe)) - (__AST-e _$tl7594375964_))) - (_$hd7594575971_ + (__AST-e _$tl7594075961_))) + (_$hd7594275968_ (let () (declare (not safe)) - (##car _$tgt7594475968_))) - (_$tl7594675974_ + (##car _$tgt7594175965_))) + (_$tl7594375971_ (let () (declare (not safe)) - (##cdr _$tgt7594475968_)))) - (let ((_p75978_ _$hd7594575971_)) + (##cdr _$tgt7594175965_)))) + (let ((_p75975_ _$hd7594275968_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7594675974_)) - (let* ((_$tgt7594775980_ + (__AST-pair? _$tl7594375971_)) + (let* ((_$tgt7594475977_ (let () (declare (not safe)) - (__AST-e _$tl7594675974_))) - (_$hd7594875983_ + (__AST-e _$tl7594375971_))) + (_$hd7594575980_ (let () (declare (not safe)) - (##car _$tgt7594775980_))) - (_$tl7594975986_ + (##car _$tgt7594475977_))) + (_$tl7594675983_ (let () (declare (not safe)) - (##cdr _$tgt7594775980_)))) - (let ((_t75990_ _$hd7594875983_)) + (##cdr _$tgt7594475977_)))) + (let ((_t75987_ _$hd7594575980_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7594975986_)) - (let* ((_$tgt7595075992_ + (__AST-pair? _$tl7594675983_)) + (let* ((_$tgt7594775989_ (let () (declare (not safe)) - (__AST-e _$tl7594975986_))) - (_$hd7595175995_ + (__AST-e _$tl7594675983_))) + (_$hd7594875992_ (let () (declare (not safe)) - (##car _$tgt7595075992_))) - (_$tl7595275998_ + (##car _$tgt7594775989_))) + (_$tl7594975995_ (let () (declare (not safe)) - (##cdr _$tgt7595075992_)))) - (let ((_f76002_ _$hd7595175995_)) - (if (let ((__tmp78192 + (##cdr _$tgt7594775989_)))) + (let ((_f75999_ _$hd7594875992_)) + (if (let ((__tmp78189 (let () (declare (not safe)) - (__AST-e _$tl7595275998_)))) + (__AST-e _$tl7594975995_)))) (declare (not safe)) - (equal? __tmp78192 '())) - (let ((__tmp78185 - (let ((__tmp78186 - (let ((__tmp78191 + (equal? __tmp78189 '())) + (let ((__tmp78182 + (let ((__tmp78183 + (let ((__tmp78188 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (__compile _p75978_))) - (__tmp78187 - (let ((__tmp78190 + (let () (declare (not safe)) (__compile _p75975_))) + (__tmp78184 + (let ((__tmp78187 (let () (declare (not safe)) - (__compile _t75990_))) - (__tmp78188 - (let ((__tmp78189 + (__compile _t75987_))) + (__tmp78185 + (let ((__tmp78186 (let () (declare (not safe)) - (__compile _f76002_)))) + (__compile _f75999_)))) (declare (not safe)) - (cons __tmp78189 '())))) + (cons __tmp78186 '())))) (declare (not safe)) - (cons __tmp78190 __tmp78188)))) + (cons __tmp78187 __tmp78185)))) (declare (not safe)) - (cons __tmp78191 __tmp78187)))) + (cons __tmp78188 __tmp78184)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp78186)))) + (cons 'if __tmp78183)))) (declare (not safe)) - (__SRC__% __tmp78185 _stx75936_)) + (__SRC__% __tmp78182 _stx75933_)) (let () (declare (not safe)) - (_$E7594075955_))))) + (_$E7593775952_))))) (let () (declare (not safe)) - (_$E7594075955_))))) - (let () (declare (not safe)) (_$E7594075955_))))) - (let () (declare (not safe)) (_$E7594075955_)))) - (let () (declare (not safe)) (_$E7594075955_)))))) + (_$E7593775952_))))) + (let () (declare (not safe)) (_$E7593775952_))))) + (let () (declare (not safe)) (_$E7593775952_)))) + (let () (declare (not safe)) (_$E7593775952_)))))) (define __compile-quote% - (lambda (_stx75898_) - (let* ((_$e75900_ _stx75898_) - (_$E7590275911_ + (lambda (_stx75895_) + (let* ((_$e75897_ _stx75895_) + (_$E7589975908_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e75900_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e75900_)) - (let* ((_$tgt7590375914_ - (let () (declare (not safe)) (__AST-e _$e75900_))) - (_$hd7590475917_ - (let () (declare (not safe)) (##car _$tgt7590375914_))) - (_$tl7590575920_ - (let () (declare (not safe)) (##cdr _$tgt7590375914_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7590575920_)) - (let* ((_$tgt7590675924_ + _$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_ (let () (declare (not safe)) - (__AST-e _$tl7590575920_))) - (_$hd7590775927_ + (__AST-e _$tl7590275917_))) + (_$hd7590475924_ (let () (declare (not safe)) - (##car _$tgt7590675924_))) - (_$tl7590875930_ + (##car _$tgt7590375921_))) + (_$tl7590575927_ (let () (declare (not safe)) - (##cdr _$tgt7590675924_)))) - (let ((_e75934_ _$hd7590775927_)) - (if (let ((__tmp78196 + (##cdr _$tgt7590375921_)))) + (let ((_e75931_ _$hd7590475924_)) + (if (let ((__tmp78193 (let () (declare (not safe)) - (__AST-e _$tl7590875930_)))) + (__AST-e _$tl7590575927_)))) (declare (not safe)) - (equal? __tmp78196 '())) - (let ((__tmp78193 - (let ((__tmp78194 - (let ((__tmp78195 + (equal? __tmp78193 '())) + (let ((__tmp78190 + (let ((__tmp78191 + (let ((__tmp78192 (let () (declare (not safe)) - (__AST->datum _e75934_)))) + (__AST->datum _e75931_)))) (declare (not safe)) - (cons __tmp78195 '())))) + (cons __tmp78192 '())))) (declare (not safe)) - (cons 'quote __tmp78194)))) + (cons 'quote __tmp78191)))) (declare (not safe)) - (__SRC__% __tmp78193 _stx75898_)) - (let () (declare (not safe)) (_$E7590275911_))))) - (let () (declare (not safe)) (_$E7590275911_)))) - (let () (declare (not safe)) (_$E7590275911_)))))) + (__SRC__% __tmp78190 _stx75895_)) + (let () (declare (not safe)) (_$E7589975908_))))) + (let () (declare (not safe)) (_$E7589975908_)))) + (let () (declare (not safe)) (_$E7589975908_)))))) (define __compile-quote-syntax% - (lambda (_stx75860_) - (let* ((_$e75862_ _stx75860_) - (_$E7586475873_ + (lambda (_stx75857_) + (let* ((_$e75859_ _stx75857_) + (_$E7586175870_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e75862_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e75862_)) - (let* ((_$tgt7586575876_ - (let () (declare (not safe)) (__AST-e _$e75862_))) - (_$hd7586675879_ - (let () (declare (not safe)) (##car _$tgt7586575876_))) - (_$tl7586775882_ - (let () (declare (not safe)) (##cdr _$tgt7586575876_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7586775882_)) - (let* ((_$tgt7586875886_ + _$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_ (let () (declare (not safe)) - (__AST-e _$tl7586775882_))) - (_$hd7586975889_ + (__AST-e _$tl7586475879_))) + (_$hd7586675886_ (let () (declare (not safe)) - (##car _$tgt7586875886_))) - (_$tl7587075892_ + (##car _$tgt7586575883_))) + (_$tl7586775889_ (let () (declare (not safe)) - (##cdr _$tgt7586875886_)))) - (let ((_e75896_ _$hd7586975889_)) - (if (let ((__tmp78199 + (##cdr _$tgt7586575883_)))) + (let ((_e75893_ _$hd7586675886_)) + (if (let ((__tmp78196 (let () (declare (not safe)) - (__AST-e _$tl7587075892_)))) + (__AST-e _$tl7586775889_)))) (declare (not safe)) - (equal? __tmp78199 '())) - (let ((__tmp78197 - (let ((__tmp78198 + (equal? __tmp78196 '())) + (let ((__tmp78194 + (let ((__tmp78195 (let () (declare (not safe)) - (cons _e75896_ '())))) + (cons _e75893_ '())))) (declare (not safe)) - (cons 'quote __tmp78198)))) + (cons 'quote __tmp78195)))) (declare (not safe)) - (__SRC__% __tmp78197 _stx75860_)) - (let () (declare (not safe)) (_$E7586475873_))))) - (let () (declare (not safe)) (_$E7586475873_)))) - (let () (declare (not safe)) (_$E7586475873_)))))) + (__SRC__% __tmp78194 _stx75857_)) + (let () (declare (not safe)) (_$E7586175870_))))) + (let () (declare (not safe)) (_$E7586175870_)))) + (let () (declare (not safe)) (_$E7586175870_)))))) (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 fdbb253c..5c10f577 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]#_g78201_| + (define |[1]#_g78198_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g78203_| + (define |[1]#_g78200_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g78205_| + (define |[1]#_g78202_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g78210_| + (define |[1]#_g78207_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g78213_| + (define |[1]#_g78210_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g78218_| + (define |[1]#_g78215_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78221_| + (define |[1]#_g78218_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78226_| + (define |[1]#_g78223_| (##structure gx#syntax-quote::t '&__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g78229_| + (define |[1]#_g78226_| (##structure gx#syntax-quote::t '&__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g78234_| + (define |[1]#_g78231_| (##structure gx#syntax-quote::t '&__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78237_| + (define |[1]#_g78234_| (##structure gx#syntax-quote::t '&__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78240_| + (define |[1]#_g78237_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g78242_| + (define |[1]#_g78239_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g78244_| + (define |[1]#_g78241_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g78246_| + (define |[1]#_g78243_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g78251_| + (define |[1]#_g78248_| (##structure gx#syntax-quote::t '__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g78254_| + (define |[1]#_g78251_| (##structure gx#syntax-quote::t '__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g78259_| + (define |[1]#_g78256_| (##structure gx#syntax-quote::t '__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78262_| + (define |[1]#_g78259_| (##structure gx#syntax-quote::t '__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78267_| + (define |[1]#_g78264_| (##structure gx#syntax-quote::t '&__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g78270_| + (define |[1]#_g78267_| (##structure gx#syntax-quote::t '&__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g78275_| + (define |[1]#_g78272_| (##structure gx#syntax-quote::t '&__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78278_| + (define |[1]#_g78275_| (##structure gx#syntax-quote::t '&__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78281_| + (define |[1]#_g78278_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g78283_| + (define |[1]#_g78280_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g78285_| + (define |[1]#_g78282_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g78287_| + (define |[1]#_g78284_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g78292_| + (define |[1]#_g78289_| (##structure gx#syntax-quote::t '__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g78295_| + (define |[1]#_g78292_| (##structure gx#syntax-quote::t '__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g78300_| + (define |[1]#_g78297_| (##structure gx#syntax-quote::t '__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78303_| + (define |[1]#_g78300_| (##structure gx#syntax-quote::t '__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78308_| + (define |[1]#_g78305_| (##structure gx#syntax-quote::t '&__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g78311_| + (define |[1]#_g78308_| (##structure gx#syntax-quote::t '&__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g78316_| + (define |[1]#_g78313_| (##structure gx#syntax-quote::t '&__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78319_| + (define |[1]#_g78316_| (##structure gx#syntax-quote::t '&__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78323_| + (define |[1]#_g78320_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g78325_| + (define |[1]#_g78322_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g78327_| + (define |[1]#_g78324_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g78332_| + (define |[1]#_g78329_| (##structure gx#syntax-quote::t '__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g78335_| + (define |[1]#_g78332_| (##structure gx#syntax-quote::t '__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g78340_| + (define |[1]#_g78337_| (##structure gx#syntax-quote::t '__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78343_| + (define |[1]#_g78340_| (##structure gx#syntax-quote::t '__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78348_| + (define |[1]#_g78345_| (##structure gx#syntax-quote::t '&__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g78351_| + (define |[1]#_g78348_| (##structure gx#syntax-quote::t '&__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g78356_| + (define |[1]#_g78353_| (##structure gx#syntax-quote::t '&__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78359_| + (define |[1]#_g78356_| (##structure gx#syntax-quote::t '&__core-special-form-e-set! @@ -324,7 +324,7 @@ '())) (begin (define |[:0:]#__syntax| - (let ((__obj77839 + (let ((__obj77836 (let () (declare (not safe)) (##structure @@ -347,7 +347,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77839 + __obj77836 '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! - __obj77839 + __obj77836 '__syntax '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -363,7 +363,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77839 + __obj77836 '(e id) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -371,7 +371,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77839 + __obj77836 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -379,7 +379,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77839 + __obj77836 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -387,7 +387,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77839 + __obj77836 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -395,7 +395,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77839 + __obj77836 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -403,122 +403,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77839 + __obj77836 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78200 |[1]#_g78201_|)) + (let ((__tmp78197 |[1]#_g78198_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77839 - __tmp78200 + __obj77836 + __tmp78197 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78202 |[1]#_g78203_|)) + (let ((__tmp78199 |[1]#_g78200_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77839 - __tmp78202 + __obj77836 + __tmp78199 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78204 |[1]#_g78205_|)) + (let ((__tmp78201 |[1]#_g78202_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77839 - __tmp78204 + __obj77836 + __tmp78201 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78206 - (let ((__tmp78211 - (let ((__tmp78212 |[1]#_g78213_|)) + (let ((__tmp78203 + (let ((__tmp78208 + (let ((__tmp78209 |[1]#_g78210_|)) (declare (not safe)) - (cons 'e __tmp78212))) - (__tmp78207 - (let ((__tmp78208 - (let ((__tmp78209 |[1]#_g78210_|)) + (cons 'e __tmp78209))) + (__tmp78204 + (let ((__tmp78205 + (let ((__tmp78206 |[1]#_g78207_|)) (declare (not safe)) - (cons 'id __tmp78209)))) + (cons 'id __tmp78206)))) (declare (not safe)) - (cons __tmp78208 '())))) + (cons __tmp78205 '())))) (declare (not safe)) - (cons __tmp78211 __tmp78207)))) + (cons __tmp78208 __tmp78204)))) (declare (not safe)) (##unchecked-structure-set! - __obj77839 - __tmp78206 + __obj77836 + __tmp78203 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78214 - (let ((__tmp78219 - (let ((__tmp78220 |[1]#_g78221_|)) + (let ((__tmp78211 + (let ((__tmp78216 + (let ((__tmp78217 |[1]#_g78218_|)) (declare (not safe)) - (cons 'e __tmp78220))) - (__tmp78215 - (let ((__tmp78216 - (let ((__tmp78217 |[1]#_g78218_|)) + (cons 'e __tmp78217))) + (__tmp78212 + (let ((__tmp78213 + (let ((__tmp78214 |[1]#_g78215_|)) (declare (not safe)) - (cons 'id __tmp78217)))) + (cons 'id __tmp78214)))) (declare (not safe)) - (cons __tmp78216 '())))) + (cons __tmp78213 '())))) (declare (not safe)) - (cons __tmp78219 __tmp78215)))) + (cons __tmp78216 __tmp78212)))) (declare (not safe)) (##unchecked-structure-set! - __obj77839 - __tmp78214 + __obj77836 + __tmp78211 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78222 - (let ((__tmp78227 - (let ((__tmp78228 |[1]#_g78229_|)) + (let ((__tmp78219 + (let ((__tmp78224 + (let ((__tmp78225 |[1]#_g78226_|)) (declare (not safe)) - (cons 'e __tmp78228))) - (__tmp78223 - (let ((__tmp78224 - (let ((__tmp78225 |[1]#_g78226_|)) + (cons 'e __tmp78225))) + (__tmp78220 + (let ((__tmp78221 + (let ((__tmp78222 |[1]#_g78223_|)) (declare (not safe)) - (cons 'id __tmp78225)))) + (cons 'id __tmp78222)))) (declare (not safe)) - (cons __tmp78224 '())))) + (cons __tmp78221 '())))) (declare (not safe)) - (cons __tmp78227 __tmp78223)))) + (cons __tmp78224 __tmp78220)))) (declare (not safe)) (##unchecked-structure-set! - __obj77839 - __tmp78222 + __obj77836 + __tmp78219 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78230 - (let ((__tmp78235 - (let ((__tmp78236 |[1]#_g78237_|)) + (let ((__tmp78227 + (let ((__tmp78232 + (let ((__tmp78233 |[1]#_g78234_|)) (declare (not safe)) - (cons 'e __tmp78236))) - (__tmp78231 - (let ((__tmp78232 - (let ((__tmp78233 |[1]#_g78234_|)) + (cons 'e __tmp78233))) + (__tmp78228 + (let ((__tmp78229 + (let ((__tmp78230 |[1]#_g78231_|)) (declare (not safe)) - (cons 'id __tmp78233)))) + (cons 'id __tmp78230)))) (declare (not safe)) - (cons __tmp78232 '())))) + (cons __tmp78229 '())))) (declare (not safe)) - (cons __tmp78235 __tmp78231)))) + (cons __tmp78232 __tmp78228)))) (declare (not safe)) (##unchecked-structure-set! - __obj77839 - __tmp78230 + __obj77836 + __tmp78227 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj77839)) + __obj77836)) (define |[:0:]#__core-form| - (let ((__obj77840 + (let ((__obj77837 (let () (declare (not safe)) (##structure @@ -541,7 +541,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77840 + __obj77837 '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! - __obj77840 + __obj77837 '__core-form '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -557,26 +557,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77840 + __obj77837 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78238 - (let ((__tmp78239 |[1]#_g78240_|)) + (let ((__tmp78235 + (let ((__tmp78236 |[1]#_g78237_|)) (declare (not safe)) - (cons __tmp78239 '())))) + (cons __tmp78236 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj77840 - __tmp78238 + __obj77837 + __tmp78235 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj77840 + __obj77837 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -584,7 +584,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77840 + __obj77837 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -592,7 +592,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77840 + __obj77837 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -600,122 +600,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77840 + __obj77837 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78241 |[1]#_g78242_|)) + (let ((__tmp78238 |[1]#_g78239_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77840 - __tmp78241 + __obj77837 + __tmp78238 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78243 |[1]#_g78244_|)) + (let ((__tmp78240 |[1]#_g78241_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77840 - __tmp78243 + __obj77837 + __tmp78240 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78245 |[1]#_g78246_|)) + (let ((__tmp78242 |[1]#_g78243_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77840 - __tmp78245 + __obj77837 + __tmp78242 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78247 - (let ((__tmp78252 - (let ((__tmp78253 |[1]#_g78254_|)) + (let ((__tmp78244 + (let ((__tmp78249 + (let ((__tmp78250 |[1]#_g78251_|)) (declare (not safe)) - (cons 'e __tmp78253))) - (__tmp78248 - (let ((__tmp78249 - (let ((__tmp78250 |[1]#_g78251_|)) + (cons 'e __tmp78250))) + (__tmp78245 + (let ((__tmp78246 + (let ((__tmp78247 |[1]#_g78248_|)) (declare (not safe)) - (cons 'id __tmp78250)))) + (cons 'id __tmp78247)))) (declare (not safe)) - (cons __tmp78249 '())))) + (cons __tmp78246 '())))) (declare (not safe)) - (cons __tmp78252 __tmp78248)))) + (cons __tmp78249 __tmp78245)))) (declare (not safe)) (##unchecked-structure-set! - __obj77840 - __tmp78247 + __obj77837 + __tmp78244 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78255 - (let ((__tmp78260 - (let ((__tmp78261 |[1]#_g78262_|)) + (let ((__tmp78252 + (let ((__tmp78257 + (let ((__tmp78258 |[1]#_g78259_|)) (declare (not safe)) - (cons 'e __tmp78261))) - (__tmp78256 - (let ((__tmp78257 - (let ((__tmp78258 |[1]#_g78259_|)) + (cons 'e __tmp78258))) + (__tmp78253 + (let ((__tmp78254 + (let ((__tmp78255 |[1]#_g78256_|)) (declare (not safe)) - (cons 'id __tmp78258)))) + (cons 'id __tmp78255)))) (declare (not safe)) - (cons __tmp78257 '())))) + (cons __tmp78254 '())))) (declare (not safe)) - (cons __tmp78260 __tmp78256)))) + (cons __tmp78257 __tmp78253)))) (declare (not safe)) (##unchecked-structure-set! - __obj77840 - __tmp78255 + __obj77837 + __tmp78252 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78263 - (let ((__tmp78268 - (let ((__tmp78269 |[1]#_g78270_|)) + (let ((__tmp78260 + (let ((__tmp78265 + (let ((__tmp78266 |[1]#_g78267_|)) (declare (not safe)) - (cons 'e __tmp78269))) - (__tmp78264 - (let ((__tmp78265 - (let ((__tmp78266 |[1]#_g78267_|)) + (cons 'e __tmp78266))) + (__tmp78261 + (let ((__tmp78262 + (let ((__tmp78263 |[1]#_g78264_|)) (declare (not safe)) - (cons 'id __tmp78266)))) + (cons 'id __tmp78263)))) (declare (not safe)) - (cons __tmp78265 '())))) + (cons __tmp78262 '())))) (declare (not safe)) - (cons __tmp78268 __tmp78264)))) + (cons __tmp78265 __tmp78261)))) (declare (not safe)) (##unchecked-structure-set! - __obj77840 - __tmp78263 + __obj77837 + __tmp78260 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78271 - (let ((__tmp78276 - (let ((__tmp78277 |[1]#_g78278_|)) + (let ((__tmp78268 + (let ((__tmp78273 + (let ((__tmp78274 |[1]#_g78275_|)) (declare (not safe)) - (cons 'e __tmp78277))) - (__tmp78272 - (let ((__tmp78273 - (let ((__tmp78274 |[1]#_g78275_|)) + (cons 'e __tmp78274))) + (__tmp78269 + (let ((__tmp78270 + (let ((__tmp78271 |[1]#_g78272_|)) (declare (not safe)) - (cons 'id __tmp78274)))) + (cons 'id __tmp78271)))) (declare (not safe)) - (cons __tmp78273 '())))) + (cons __tmp78270 '())))) (declare (not safe)) - (cons __tmp78276 __tmp78272)))) + (cons __tmp78273 __tmp78269)))) (declare (not safe)) (##unchecked-structure-set! - __obj77840 - __tmp78271 + __obj77837 + __tmp78268 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj77840)) + __obj77837)) (define |[:0:]#__core-expression| - (let ((__obj77841 + (let ((__obj77838 (let () (declare (not safe)) (##structure @@ -738,7 +738,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77841 + __obj77838 '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! - __obj77841 + __obj77838 '__core-expression '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -754,26 +754,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77841 + __obj77838 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78279 - (let ((__tmp78280 |[1]#_g78281_|)) + (let ((__tmp78276 + (let ((__tmp78277 |[1]#_g78278_|)) (declare (not safe)) - (cons __tmp78280 '())))) + (cons __tmp78277 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj77841 - __tmp78279 + __obj77838 + __tmp78276 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj77841 + __obj77838 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -781,7 +781,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77841 + __obj77838 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -789,7 +789,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77841 + __obj77838 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -797,122 +797,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77841 + __obj77838 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78282 |[1]#_g78283_|)) + (let ((__tmp78279 |[1]#_g78280_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77841 - __tmp78282 + __obj77838 + __tmp78279 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78284 |[1]#_g78285_|)) + (let ((__tmp78281 |[1]#_g78282_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77841 - __tmp78284 + __obj77838 + __tmp78281 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78286 |[1]#_g78287_|)) + (let ((__tmp78283 |[1]#_g78284_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77841 - __tmp78286 + __obj77838 + __tmp78283 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78288 - (let ((__tmp78293 - (let ((__tmp78294 |[1]#_g78295_|)) + (let ((__tmp78285 + (let ((__tmp78290 + (let ((__tmp78291 |[1]#_g78292_|)) (declare (not safe)) - (cons 'e __tmp78294))) - (__tmp78289 - (let ((__tmp78290 - (let ((__tmp78291 |[1]#_g78292_|)) + (cons 'e __tmp78291))) + (__tmp78286 + (let ((__tmp78287 + (let ((__tmp78288 |[1]#_g78289_|)) (declare (not safe)) - (cons 'id __tmp78291)))) + (cons 'id __tmp78288)))) (declare (not safe)) - (cons __tmp78290 '())))) + (cons __tmp78287 '())))) (declare (not safe)) - (cons __tmp78293 __tmp78289)))) + (cons __tmp78290 __tmp78286)))) (declare (not safe)) (##unchecked-structure-set! - __obj77841 - __tmp78288 + __obj77838 + __tmp78285 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78296 - (let ((__tmp78301 - (let ((__tmp78302 |[1]#_g78303_|)) + (let ((__tmp78293 + (let ((__tmp78298 + (let ((__tmp78299 |[1]#_g78300_|)) (declare (not safe)) - (cons 'e __tmp78302))) - (__tmp78297 - (let ((__tmp78298 - (let ((__tmp78299 |[1]#_g78300_|)) + (cons 'e __tmp78299))) + (__tmp78294 + (let ((__tmp78295 + (let ((__tmp78296 |[1]#_g78297_|)) (declare (not safe)) - (cons 'id __tmp78299)))) + (cons 'id __tmp78296)))) (declare (not safe)) - (cons __tmp78298 '())))) + (cons __tmp78295 '())))) (declare (not safe)) - (cons __tmp78301 __tmp78297)))) + (cons __tmp78298 __tmp78294)))) (declare (not safe)) (##unchecked-structure-set! - __obj77841 - __tmp78296 + __obj77838 + __tmp78293 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78304 - (let ((__tmp78309 - (let ((__tmp78310 |[1]#_g78311_|)) + (let ((__tmp78301 + (let ((__tmp78306 + (let ((__tmp78307 |[1]#_g78308_|)) (declare (not safe)) - (cons 'e __tmp78310))) - (__tmp78305 - (let ((__tmp78306 - (let ((__tmp78307 |[1]#_g78308_|)) + (cons 'e __tmp78307))) + (__tmp78302 + (let ((__tmp78303 + (let ((__tmp78304 |[1]#_g78305_|)) (declare (not safe)) - (cons 'id __tmp78307)))) + (cons 'id __tmp78304)))) (declare (not safe)) - (cons __tmp78306 '())))) + (cons __tmp78303 '())))) (declare (not safe)) - (cons __tmp78309 __tmp78305)))) + (cons __tmp78306 __tmp78302)))) (declare (not safe)) (##unchecked-structure-set! - __obj77841 - __tmp78304 + __obj77838 + __tmp78301 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78312 - (let ((__tmp78317 - (let ((__tmp78318 |[1]#_g78319_|)) + (let ((__tmp78309 + (let ((__tmp78314 + (let ((__tmp78315 |[1]#_g78316_|)) (declare (not safe)) - (cons 'e __tmp78318))) - (__tmp78313 - (let ((__tmp78314 - (let ((__tmp78315 |[1]#_g78316_|)) + (cons 'e __tmp78315))) + (__tmp78310 + (let ((__tmp78311 + (let ((__tmp78312 |[1]#_g78313_|)) (declare (not safe)) - (cons 'id __tmp78315)))) + (cons 'id __tmp78312)))) (declare (not safe)) - (cons __tmp78314 '())))) + (cons __tmp78311 '())))) (declare (not safe)) - (cons __tmp78317 __tmp78313)))) + (cons __tmp78314 __tmp78310)))) (declare (not safe)) (##unchecked-structure-set! - __obj77841 - __tmp78312 + __obj77838 + __tmp78309 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj77841)) + __obj77838)) (define |[:0:]#__core-special-form| - (let ((__obj77842 + (let ((__obj77839 (let () (declare (not safe)) (##structure @@ -935,7 +935,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77842 + __obj77839 '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! - __obj77842 + __obj77839 '__core-special-form '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -951,26 +951,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77842 + __obj77839 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78320 - (let ((__tmp78321 |[1]#_g78281_|)) + (let ((__tmp78317 + (let ((__tmp78318 |[1]#_g78278_|)) (declare (not safe)) - (cons __tmp78321 '())))) + (cons __tmp78318 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj77842 - __tmp78320 + __obj77839 + __tmp78317 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj77842 + __obj77839 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -978,7 +978,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77842 + __obj77839 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -986,7 +986,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77842 + __obj77839 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -994,327 +994,327 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77842 + __obj77839 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78322 |[1]#_g78323_|)) + (let ((__tmp78319 |[1]#_g78320_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77842 - __tmp78322 + __obj77839 + __tmp78319 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78324 |[1]#_g78325_|)) + (let ((__tmp78321 |[1]#_g78322_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77842 - __tmp78324 + __obj77839 + __tmp78321 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78326 |[1]#_g78327_|)) + (let ((__tmp78323 |[1]#_g78324_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77842 - __tmp78326 + __obj77839 + __tmp78323 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78328 - (let ((__tmp78333 - (let ((__tmp78334 |[1]#_g78335_|)) + (let ((__tmp78325 + (let ((__tmp78330 + (let ((__tmp78331 |[1]#_g78332_|)) (declare (not safe)) - (cons 'e __tmp78334))) - (__tmp78329 - (let ((__tmp78330 - (let ((__tmp78331 |[1]#_g78332_|)) + (cons 'e __tmp78331))) + (__tmp78326 + (let ((__tmp78327 + (let ((__tmp78328 |[1]#_g78329_|)) (declare (not safe)) - (cons 'id __tmp78331)))) + (cons 'id __tmp78328)))) (declare (not safe)) - (cons __tmp78330 '())))) + (cons __tmp78327 '())))) (declare (not safe)) - (cons __tmp78333 __tmp78329)))) + (cons __tmp78330 __tmp78326)))) (declare (not safe)) (##unchecked-structure-set! - __obj77842 - __tmp78328 + __obj77839 + __tmp78325 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78336 - (let ((__tmp78341 - (let ((__tmp78342 |[1]#_g78343_|)) + (let ((__tmp78333 + (let ((__tmp78338 + (let ((__tmp78339 |[1]#_g78340_|)) (declare (not safe)) - (cons 'e __tmp78342))) - (__tmp78337 - (let ((__tmp78338 - (let ((__tmp78339 |[1]#_g78340_|)) + (cons 'e __tmp78339))) + (__tmp78334 + (let ((__tmp78335 + (let ((__tmp78336 |[1]#_g78337_|)) (declare (not safe)) - (cons 'id __tmp78339)))) + (cons 'id __tmp78336)))) (declare (not safe)) - (cons __tmp78338 '())))) + (cons __tmp78335 '())))) (declare (not safe)) - (cons __tmp78341 __tmp78337)))) + (cons __tmp78338 __tmp78334)))) (declare (not safe)) (##unchecked-structure-set! - __obj77842 - __tmp78336 + __obj77839 + __tmp78333 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78344 - (let ((__tmp78349 - (let ((__tmp78350 |[1]#_g78351_|)) + (let ((__tmp78341 + (let ((__tmp78346 + (let ((__tmp78347 |[1]#_g78348_|)) (declare (not safe)) - (cons 'e __tmp78350))) - (__tmp78345 - (let ((__tmp78346 - (let ((__tmp78347 |[1]#_g78348_|)) + (cons 'e __tmp78347))) + (__tmp78342 + (let ((__tmp78343 + (let ((__tmp78344 |[1]#_g78345_|)) (declare (not safe)) - (cons 'id __tmp78347)))) + (cons 'id __tmp78344)))) (declare (not safe)) - (cons __tmp78346 '())))) + (cons __tmp78343 '())))) (declare (not safe)) - (cons __tmp78349 __tmp78345)))) + (cons __tmp78346 __tmp78342)))) (declare (not safe)) (##unchecked-structure-set! - __obj77842 - __tmp78344 + __obj77839 + __tmp78341 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78352 - (let ((__tmp78357 - (let ((__tmp78358 |[1]#_g78359_|)) + (let ((__tmp78349 + (let ((__tmp78354 + (let ((__tmp78355 |[1]#_g78356_|)) (declare (not safe)) - (cons 'e __tmp78358))) - (__tmp78353 - (let ((__tmp78354 - (let ((__tmp78355 |[1]#_g78356_|)) + (cons 'e __tmp78355))) + (__tmp78350 + (let ((__tmp78351 + (let ((__tmp78352 |[1]#_g78353_|)) (declare (not safe)) - (cons 'id __tmp78355)))) + (cons 'id __tmp78352)))) (declare (not safe)) - (cons __tmp78354 '())))) + (cons __tmp78351 '())))) (declare (not safe)) - (cons __tmp78357 __tmp78353)))) + (cons __tmp78354 __tmp78350)))) (declare (not safe)) (##unchecked-structure-set! - __obj77842 - __tmp78352 + __obj77839 + __tmp78349 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj77842)) + __obj77839)) (define |[:0:]#defcore-forms| - (lambda (_stx75405_) - (letrec ((_generate75408_ - (lambda (_id75772_ _compile75774_ _make75775_) - (let* ((_g7577775796_ - (lambda (_g7577875792_) + (lambda (_stx75402_) + (letrec ((_generate75405_ + (lambda (_id75769_ _compile75771_ _make75772_) + (let* ((_g7577475793_ + (lambda (_g7577575789_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7577875792_))) - (_g7577675855_ - (lambda (_g7577875800_) - (if (gx#stx-pair? _g7577875800_) - (let ((_e7578475803_ - (gx#syntax-e _g7577875800_))) - (let ((_hd7578375807_ + _g7577575789_))) + (_g7577375852_ + (lambda (_g7577575797_) + (if (gx#stx-pair? _g7577575797_) + (let ((_e7578175800_ + (gx#syntax-e _g7577575797_))) + (let ((_hd7578075804_ (let () (declare (not safe)) - (##car _e7578475803_))) - (_tl7578275810_ + (##car _e7578175800_))) + (_tl7577975807_ (let () (declare (not safe)) - (##cdr _e7578475803_)))) - (if (gx#stx-pair? _tl7578275810_) - (let ((_e7578775813_ - (gx#syntax-e _tl7578275810_))) - (let ((_hd7578675817_ + (##cdr _e7578175800_)))) + (if (gx#stx-pair? _tl7577975807_) + (let ((_e7578475810_ + (gx#syntax-e _tl7577975807_))) + (let ((_hd7578375814_ (let () (declare (not safe)) - (##car _e7578775813_))) - (_tl7578575820_ + (##car _e7578475810_))) + (_tl7578275817_ (let () (declare (not safe)) - (##cdr _e7578775813_)))) - (if (gx#stx-pair? _tl7578575820_) - (let ((_e7579075823_ + (##cdr _e7578475810_)))) + (if (gx#stx-pair? _tl7578275817_) + (let ((_e7578775820_ (gx#syntax-e - _tl7578575820_))) - (let ((_hd7578975827_ + _tl7578275817_))) + (let ((_hd7578675824_ (let () (declare (not safe)) - (##car _e7579075823_))) - (_tl7578875830_ + (##car _e7578775820_))) + (_tl7578575827_ (let () (declare (not safe)) - (##cdr _e7579075823_)))) + (##cdr _e7578775820_)))) (if (gx#stx-null? - _tl7578875830_) - ((lambda (_L75833_ + _tl7578575827_) + ((lambda (_L75830_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L75835_ - _L75836_) + _L75832_ + _L75833_) (let () - (let ((__tmp78366 + (let ((__tmp78363 (gx#datum->syntax '#f '__core-bind-syntax!)) - (__tmp78360 - (let ((__tmp78363 - (let ((__tmp78365 + (__tmp78357 + (let ((__tmp78360 + (let ((__tmp78362 (gx#datum->syntax '#f 'quote)) - (__tmp78364 + (__tmp78361 (let () (declare (not safe)) - (cons _L75836_ '())))) + (cons _L75833_ '())))) (declare (not safe)) - (cons __tmp78365 __tmp78364))) - (__tmp78361 - (let ((__tmp78362 + (cons __tmp78362 __tmp78361))) + (__tmp78358 + (let ((__tmp78359 (let () (declare (not safe)) - (cons _L75833_ '())))) + (cons _L75830_ '())))) (declare (not safe)) - (cons _L75835_ __tmp78362)))) + (cons _L75832_ __tmp78359)))) (declare (not safe)) - (cons __tmp78363 __tmp78361)))) + (cons __tmp78360 __tmp78358)))) (declare (not safe)) - (cons __tmp78366 __tmp78360)))) - _hd7578975827_ - _hd7578675817_ - _hd7578375807_) - (_g7577775796_ _g7577875800_)))) + (cons __tmp78363 __tmp78357)))) + _hd7578675824_ + _hd7578375814_ + _hd7578075804_) + (_g7577475793_ _g7577575797_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7577775796_ - _g7577875800_)))) - (_g7577775796_ _g7577875800_)))) - (_g7577775796_ _g7577875800_))))) - (_g7577675855_ - (list _id75772_ - (gx#stx-identifier _id75772_ '"__" _compile75774_) - _make75775_)))))) - (let* ((_g7541175431_ - (lambda (_g7541275427_) + (_g7577475793_ + _g7577575797_)))) + (_g7577475793_ _g7577575797_)))) + (_g7577475793_ _g7577575797_))))) + (_g7577375852_ + (list _id75769_ + (gx#stx-identifier _id75769_ '"__" _compile75771_) + _make75772_)))))) + (let* ((_g7540875428_ + (lambda (_g7540975424_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7541275427_))) - (_g7541075768_ - (lambda (_g7541275435_) - (if (gx#stx-pair? _g7541275435_) - (let ((_e7541675438_ (gx#syntax-e _g7541275435_))) - (let ((_hd7541575442_ + _g7540975424_))) + (_g7540775765_ + (lambda (_g7540975432_) + (if (gx#stx-pair? _g7540975432_) + (let ((_e7541375435_ (gx#syntax-e _g7540975432_))) + (let ((_hd7541275439_ (let () (declare (not safe)) - (##car _e7541675438_))) - (_tl7541475445_ + (##car _e7541375435_))) + (_tl7541175442_ (let () (declare (not safe)) - (##cdr _e7541675438_)))) - (if (gx#stx-pair/null? _tl7541475445_) - (let ((_g78367_ + (##cdr _e7541375435_)))) + (if (gx#stx-pair/null? _tl7541175442_) + (let ((_g78364_ (gx#syntax-split-splice - _tl7541475445_ + _tl7541175442_ '0))) (begin - (let ((_g78368_ + (let ((_g78365_ (let () (declare (not safe)) - (if (##values? _g78367_) - (##vector-length _g78367_) + (if (##values? _g78364_) + (##vector-length _g78364_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g78368_ 2))) + (##fx= _g78365_ 2))) (error "Context expects 2 values" - _g78368_))) - (let ((_target7541775448_ + _g78365_))) + (let ((_target7541475445_ (let () (declare (not safe)) - (##vector-ref _g78367_ 0))) - (_tl7541975451_ + (##vector-ref _g78364_ 0))) + (_tl7541675448_ (let () (declare (not safe)) - (##vector-ref _g78367_ 1)))) - (if (gx#stx-null? _tl7541975451_) - (letrec ((_loop7542075454_ - (lambda (_hd7541875458_ - _form7542475461_) + (##vector-ref _g78364_ 1)))) + (if (gx#stx-null? _tl7541675448_) + (letrec ((_loop7541775451_ + (lambda (_hd7541575455_ + _form7542175458_) (if (gx#stx-pair? - _hd7541875458_) - (let ((_e7542175464_ + _hd7541575455_) + (let ((_e7541875461_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd7541875458_))) - (let ((_lp-hd7542275468_ - (let () (declare (not safe)) (##car _e7542175464_))) - (_lp-tl7542375471_ + (gx#syntax-e _hd7541575455_))) + (let ((_lp-hd7541975465_ + (let () (declare (not safe)) (##car _e7541875461_))) + (_lp-tl7542075468_ (let () (declare (not safe)) - (##cdr _e7542175464_)))) - (_loop7542075454_ - _lp-tl7542375471_ + (##cdr _e7541875461_)))) + (_loop7541775451_ + _lp-tl7542075468_ (let () (declare (not safe)) - (cons _lp-hd7542275468_ _form7542475461_))))) - (let ((_form7542575474_ (reverse _form7542475461_))) - ((lambda (_L75478_) - (let _lp75496_ ((_rest75499_ - (let ((__tmp78373 - (lambda (_g7575975762_ - _g7576075765_) + (cons _lp-hd7541975465_ _form7542175458_))))) + (let ((_form7542275471_ (reverse _form7542175458_))) + ((lambda (_L75475_) + (let _lp75493_ ((_rest75496_ + (let ((__tmp78370 + (lambda (_g7575675759_ + _g7575775762_) (let () (declare (not safe)) - (cons _g7575975762_ - _g7576075765_))))) + (cons _g7575675759_ + _g7575775762_))))) (declare (not safe)) - (foldr1 __tmp78373 '() _L75478_))) - (_body75501_ '())) - (let* ((___stx7774677747_ _rest75499_) - (_g7550675553_ + (foldr1 __tmp78370 '() _L75475_))) + (_body75498_ '())) + (let* ((___stx7774377744_ _rest75496_) + (_g7550375550_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx7774677747_)))) - (let ((___kont7774977750_ - (lambda (_L75734_ _L75736_ _L75737_) - (_lp75496_ - _L75734_ - (let ((__tmp78369 - (_generate75408_ - _L75737_ - _L75736_ + ___stx7774377744_)))) + (let ((___kont7774677747_ + (lambda (_L75731_ _L75733_ _L75734_) + (_lp75493_ + _L75731_ + (let ((__tmp78366 + (_generate75405_ + _L75734_ + _L75733_ (gx#datum->syntax '#f 'make-__core-expression)))) (declare (not safe)) - (cons __tmp78369 _body75501_))))) - (___kont7775177752_ - (lambda (_L75661_ _L75663_ _L75664_) - (_lp75496_ - _L75661_ - (let ((__tmp78370 - (_generate75408_ - _L75664_ - _L75663_ + (cons __tmp78366 _body75498_))))) + (___kont7774877749_ + (lambda (_L75658_ _L75660_ _L75661_) + (_lp75493_ + _L75658_ + (let ((__tmp78367 + (_generate75405_ + _L75661_ + _L75660_ (gx#datum->syntax '#f 'make-__core-special-form)))) (declare (not safe)) - (cons __tmp78370 _body75501_))))) - (___kont7775377754_ - (lambda (_L75591_ _L75593_) - (_lp75496_ - _L75591_ - (let ((__tmp78371 - (_generate75408_ - _L75593_ + (cons __tmp78367 _body75498_))))) + (___kont7775077751_ + (lambda (_L75588_ _L75590_) + (_lp75493_ + _L75588_ + (let ((__tmp78368 + (_generate75405_ + _L75590_ (gx#datum->syntax '#f 'compile-error) @@ -1322,131 +1322,131 @@ '#f 'make-__core-form)))) (declare (not safe)) - (cons __tmp78371 _body75501_))))) - (___kont7775577756_ + (cons __tmp78368 _body75498_))))) + (___kont7775277753_ (lambda () - (let ((__tmp78372 (reverse _body75501_))) + (let ((__tmp78369 (reverse _body75498_))) (declare (not safe)) - (cons 'begin __tmp78372))))) - (let ((_g7550575564_ + (cons 'begin __tmp78369))))) + (let ((_g7550275561_ (lambda () - (if (gx#stx-null? ___stx7774677747_) - (___kont7775577756_) + (if (gx#stx-null? ___stx7774377744_) + (___kont7775277753_) (let () (declare (not safe)) - (_g7550675553_)))))) - (if (gx#stx-pair? ___stx7774677747_) - (let ((_e7551375690_ - (gx#syntax-e ___stx7774677747_))) - (let ((_tl7551175697_ + (_g7550375550_)))))) + (if (gx#stx-pair? ___stx7774377744_) + (let ((_e7551075687_ + (gx#syntax-e ___stx7774377744_))) + (let ((_tl7550875694_ (let () (declare (not safe)) - (##cdr _e7551375690_))) - (_hd7551275694_ + (##cdr _e7551075687_))) + (_hd7550975691_ (let () (declare (not safe)) - (##car _e7551375690_)))) - (if (gx#stx-pair? _hd7551275694_) - (let ((_e7551675700_ + (##car _e7551075687_)))) + (if (gx#stx-pair? _hd7550975691_) + (let ((_e7551375697_ (gx#syntax-e - _hd7551275694_))) - (let ((_tl7551475707_ + _hd7550975691_))) + (let ((_tl7551175704_ (let () (declare (not safe)) - (##cdr _e7551675700_))) - (_hd7551575704_ + (##cdr _e7551375697_))) + (_hd7551275701_ (let () (declare (not safe)) - (##car _e7551675700_)))) + (##car _e7551375697_)))) (if (gx#stx-pair? - _tl7551475707_) - (let ((_e7551975710_ + _tl7551175704_) + (let ((_e7551675707_ (gx#syntax-e - _tl7551475707_))) - (let ((_tl7551775717_ + _tl7551175704_))) + (let ((_tl7551475714_ (let () (declare (not safe)) - (##cdr _e7551975710_))) - (_hd7551875714_ + (##cdr _e7551675707_))) + (_hd7551575711_ (let () (declare (not safe)) - (##car _e7551975710_)))) + (##car _e7551675707_)))) (if (gx#stx-datum? - _hd7551875714_) - (let ((_e7552075720_ + _hd7551575711_) + (let ((_e7551775717_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd7551875714_))) + (gx#stx-e _hd7551575711_))) (if (let () (declare (not safe)) - (equal? _e7552075720_ 'expr:)) - (if (gx#stx-pair? _tl7551775717_) - (let ((_e7552375724_ - (gx#syntax-e _tl7551775717_))) - (let ((_tl7552175731_ + (equal? _e7551775717_ 'expr:)) + (if (gx#stx-pair? _tl7551475714_) + (let ((_e7552075721_ + (gx#syntax-e _tl7551475714_))) + (let ((_tl7551875728_ (let () (declare (not safe)) - (##cdr _e7552375724_))) - (_hd7552275728_ + (##cdr _e7552075721_))) + (_hd7551975725_ (let () (declare (not safe)) - (##car _e7552375724_)))) - (if (gx#stx-null? _tl7552175731_) - (___kont7774977750_ - _tl7551175697_ - _hd7552275728_ - _hd7551575704_) + (##car _e7552075721_)))) + (if (gx#stx-null? _tl7551875728_) + (___kont7774677747_ + _tl7550875694_ + _hd7551975725_ + _hd7551275701_) (let () (declare (not safe)) - (_g7550675553_))))) - (let () (declare (not safe)) (_g7550675553_))) + (_g7550375550_))))) + (let () (declare (not safe)) (_g7550375550_))) (if (let () (declare (not safe)) - (equal? _e7552075720_ 'special:)) - (if (gx#stx-pair? _tl7551775717_) - (let ((_e7553975651_ - (gx#syntax-e _tl7551775717_))) - (let ((_tl7553775658_ + (equal? _e7551775717_ 'special:)) + (if (gx#stx-pair? _tl7551475714_) + (let ((_e7553675648_ + (gx#syntax-e _tl7551475714_))) + (let ((_tl7553475655_ (let () (declare (not safe)) - (##cdr _e7553975651_))) - (_hd7553875655_ + (##cdr _e7553675648_))) + (_hd7553575652_ (let () (declare (not safe)) - (##car _e7553975651_)))) - (if (gx#stx-null? _tl7553775658_) - (___kont7775177752_ - _tl7551175697_ - _hd7553875655_ - _hd7551575704_) + (##car _e7553675648_)))) + (if (gx#stx-null? _tl7553475655_) + (___kont7774877749_ + _tl7550875694_ + _hd7553575652_ + _hd7551275701_) (let () (declare (not safe)) - (_g7550675553_))))) - (let () (declare (not safe)) (_g7550675553_))) - (let () (declare (not safe)) (_g7550675553_))))) - (let () (declare (not safe)) (_g7550675553_))))) + (_g7550375550_))))) + (let () (declare (not safe)) (_g7550375550_))) + (let () (declare (not safe)) (_g7550375550_))))) + (let () (declare (not safe)) (_g7550375550_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl7551475707_) - (___kont7775377754_ - _tl7551175697_ - _hd7551575704_) + _tl7551175704_) + (___kont7775077751_ + _tl7550875694_ + _hd7551275701_) (let () (declare (not safe)) - (_g7550675553_)))))) + (_g7550375550_)))))) (let () (declare (not safe)) - (_g7550675553_))))) + (_g7550375550_))))) (let () (declare (not safe)) - (_g7550575564_)))))))) - _form7542575474_)))))) + (_g7550275561_)))))))) + _form7542275471_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop7542075454_ - _target7541775448_ + (_loop7541775451_ + _target7541475445_ '())) - (_g7541175431_ _g7541275435_))))) - (_g7541175431_ _g7541275435_)))) - (_g7541175431_ _g7541275435_))))) - (_g7541075768_ _stx75405_))))))) + (_g7540875428_ _g7540975432_))))) + (_g7540875428_ _g7540975432_)))) + (_g7540875428_ _g7540975432_))))) + (_g7540775765_ _stx75402_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit__0.scm b/src/bootstrap/gerbil/runtime/gambit__0.scm index 7470d84c..419147e1 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 1709128370) '#!void) +(begin (define gerbil/runtime/gambit::timestamp 1709229969) '#!void) diff --git a/src/bootstrap/gerbil/runtime/hash.ssi b/src/bootstrap/gerbil/runtime/hash.ssi index 61768395..00e2ff74 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::ref69557_ - _locked-hash-table::ref69556_) + _locked-hash-table::ref69554_ + _locked-hash-table::ref69553_) (%#define-runtime - _locked-hash-table::set!69559_ - _locked-hash-table::set!69558_) + _locked-hash-table::set!69556_ + _locked-hash-table::set!69555_) (%#define-runtime - _locked-hash-table::update!69561_ - _locked-hash-table::update!69560_) + _locked-hash-table::update!69558_ + _locked-hash-table::update!69557_) (%#define-runtime - _locked-hash-table::delete!69563_ - _locked-hash-table::delete!69562_) + _locked-hash-table::delete!69560_ + _locked-hash-table::delete!69559_) (%#define-runtime - _locked-hash-table::for-each69565_ - _locked-hash-table::for-each69564_) + _locked-hash-table::for-each69562_ + _locked-hash-table::for-each69561_) (%#define-runtime - _locked-hash-table::length69567_ - _locked-hash-table::length69566_) + _locked-hash-table::length69564_ + _locked-hash-table::length69563_) (%#define-runtime - _locked-hash-table::copy69569_ - _locked-hash-table::copy69568_) + _locked-hash-table::copy69566_ + _locked-hash-table::copy69565_) (%#define-runtime - _locked-hash-table::clear!69571_ - _locked-hash-table::clear!69570_) + _locked-hash-table::clear!69568_ + _locked-hash-table::clear!69567_) (%#define-syntax defchecked-hash-method |[:0:]#defchecked-hash-method|) (%#define-syntax check-hash-arg |[:0:]#check-hash-arg|) (%#define-runtime - _checked-hash-table::ref69849_ - _checked-hash-table::ref69848_) + _checked-hash-table::ref69846_ + _checked-hash-table::ref69845_) (%#define-runtime - _checked-hash-table::set!69851_ - _checked-hash-table::set!69850_) + _checked-hash-table::set!69848_ + _checked-hash-table::set!69847_) (%#define-runtime - _checked-hash-table::update!69853_ - _checked-hash-table::update!69852_) + _checked-hash-table::update!69850_ + _checked-hash-table::update!69849_) (%#define-runtime - _checked-hash-table::delete!69855_ - _checked-hash-table::delete!69854_) + _checked-hash-table::delete!69852_ + _checked-hash-table::delete!69851_) (%#define-runtime - _checked-hash-table::for-each69857_ - _checked-hash-table::for-each69856_) + _checked-hash-table::for-each69854_ + _checked-hash-table::for-each69853_) (%#define-runtime - _checked-hash-table::length69859_ - _checked-hash-table::length69858_) + _checked-hash-table::length69856_ + _checked-hash-table::length69855_) (%#define-runtime - _checked-hash-table::copy69861_ - _checked-hash-table::copy69860_) + _checked-hash-table::copy69858_ + _checked-hash-table::copy69857_) (%#define-runtime - _checked-hash-table::clear!69863_ - _checked-hash-table::clear!69862_) + _checked-hash-table::clear!69860_ + _checked-hash-table::clear!69859_) (%#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 c7803bfb..e6e81010 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 - ((clear! . _locked-hash-table::clear!69570_) - (update! . _locked-hash-table::update!69560_) - (for-each . _locked-hash-table::for-each69564_) - (delete! . _locked-hash-table::delete!69562_) - (ref . _locked-hash-table::ref69556_) - (length . _locked-hash-table::length69566_) - (copy . _locked-hash-table::copy69568_) - (set! . _locked-hash-table::set!69558_)))) + ((set! . _locked-hash-table::set!69555_) + (copy . _locked-hash-table::copy69565_) + (clear! . _locked-hash-table::clear!69567_) + (length . _locked-hash-table::length69563_) + (delete! . _locked-hash-table::delete!69559_) + (ref . _locked-hash-table::ref69553_) + (for-each . _locked-hash-table::for-each69561_) + (update! . _locked-hash-table::update!69557_)))) (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 - ((update! . _checked-hash-table::update!69852_) - (for-each . _checked-hash-table::for-each69856_) - (clear! . _checked-hash-table::clear!69862_) - (length . _checked-hash-table::length69858_) - (copy . _checked-hash-table::copy69860_) - (set! . _checked-hash-table::set!69850_) - (delete! . _checked-hash-table::delete!69854_) - (ref . _checked-hash-table::ref69848_)))) + ((set! . _checked-hash-table::set!69847_) + (copy . _checked-hash-table::copy69857_) + (clear! . _checked-hash-table::clear!69859_) + (length . _checked-hash-table::length69855_) + (delete! . _checked-hash-table::delete!69851_) + (ref . _checked-hash-table::ref69845_) + (for-each . _checked-hash-table::for-each69853_) + (update! . _checked-hash-table::update!69849_)))) (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::ref69556_ (@lambda 3 #f)) - (declare-type _locked-hash-table::set!69558_ (@lambda 3 #f)) - (declare-type _locked-hash-table::update!69560_ (@lambda 4 #f)) - (declare-type _locked-hash-table::delete!69562_ (@lambda 2 #f)) - (declare-type _locked-hash-table::for-each69564_ (@lambda 2 #f)) - (declare-type _locked-hash-table::length69566_ (@lambda 1 #f)) - (declare-type _locked-hash-table::copy69568_ (@lambda 1 #f)) - (declare-type _locked-hash-table::clear!69570_ (@lambda 1 #f)) - (declare-type _checked-hash-table::ref69848_ (@lambda 3 #f)) - (declare-type _checked-hash-table::set!69850_ (@lambda 3 #f)) - (declare-type _checked-hash-table::update!69852_ (@lambda 4 #f)) - (declare-type _checked-hash-table::delete!69854_ (@lambda 2 #f)) - (declare-type _checked-hash-table::for-each69856_ (@lambda 2 #f)) - (declare-type _checked-hash-table::length69858_ (@lambda 1 #f)) - (declare-type _checked-hash-table::copy69860_ (@lambda 1 #f)) - (declare-type _checked-hash-table::clear!69862_ (@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 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 fb129046..2897795d 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 1709128371) + (define gerbil/runtime/hash::timestamp 1709229969) (begin (define UnboundKeyError::t - (let ((__tmp72842 (list Error::t))) + (let ((__tmp72839 (list Error::t))) (declare (not safe)) (make-class-type 'gerbil/runtime/hash#UnboundKeyError::t 'UnboundKeyError - __tmp72842 + __tmp72839 '() '() ':init!))) (define UnboundKeyError? (let () (declare (not safe)) (make-class-predicate UnboundKeyError::t))) (define make-UnboundKeyError - (lambda _$args72825_ - (apply make-instance UnboundKeyError::t _$args72825_))) + (lambda _$args72822_ + (apply make-instance UnboundKeyError::t _$args72822_))) (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 (_where72699_ _message72700_ . _irritants72701_) - (raise (let ((__obj72839 + (lambda (_where72696_ _message72697_ . _irritants72698_) + (raise (let ((__obj72836 (let () (declare (not safe)) (##structure UnboundKeyError::t '#f '#f '#f '#f)))) (UnboundKeyError:::init! - __obj72839 - _message72700_ + __obj72836 + _message72697_ 'where: - _where72699_ + _where72696_ 'irritants: - _irritants72701_) - __obj72839)))) + _irritants72698_) + __obj72836)))) (define unbound-key-error? UnboundKeyError?) (define HashTable::t - (let ((__tmp72847 (list interface-instance::t)) - (__tmp72843 - (let ((__tmp72846 + (let ((__tmp72844 (list interface-instance::t)) + (__tmp72840 + (let ((__tmp72843 (let () (declare (not safe)) (cons 'struct: '#t))) - (__tmp72844 - (let ((__tmp72845 + (__tmp72841 + (let ((__tmp72842 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp72845 '())))) + (cons __tmp72842 '())))) (declare (not safe)) - (cons __tmp72846 __tmp72844)))) + (cons __tmp72843 __tmp72841)))) (declare (not safe)) (make-class-type 'gerbil#HashTable::t 'HashTable - __tmp72847 + __tmp72844 '(ref set! update! delete! for-each length copy clear) - __tmp72843 + __tmp72840 '#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 ((__tmp72852 (list interface-instance::t)) - (__tmp72848 - (let ((__tmp72851 + (let ((__tmp72849 (list interface-instance::t)) + (__tmp72845 + (let ((__tmp72848 (let () (declare (not safe)) (cons 'struct: '#t))) - (__tmp72849 - (let ((__tmp72850 + (__tmp72846 + (let ((__tmp72847 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp72850 '())))) + (cons __tmp72847 '())))) (declare (not safe)) - (cons __tmp72851 __tmp72849)))) + (cons __tmp72848 __tmp72846)))) (declare (not safe)) (make-class-type 'gerbil#HashTableLock::t 'HashTableLock - __tmp72852 + __tmp72849 '(begin-read! end-read! begin-write! end-write!) - __tmp72848 + __tmp72845 '#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 (_table72692_ _key72693_ _update72694_ _default72695_) - (let ((_result72697_ - (table-ref _table72692_ _key72693_ _default72695_))) + (lambda (_table72689_ _key72690_ _update72691_ _default72692_) + (let ((_result72694_ + (table-ref _table72689_ _key72690_ _default72692_))) (table-set! - _table72692_ - _key72693_ - (_update72694_ _default72695_))))) + _table72689_ + _key72690_ + (_update72691_ _default72692_))))) (define gambit-table-for-each - (lambda (_table72689_ _proc72690_) - (table-for-each _proc72690_ _table72689_))) + (lambda (_table72686_ _proc72687_) + (table-for-each _proc72687_ _table72686_))) (define gambit-table-clear! - (lambda (_table72687_) + (lambda (_table72684_) (let () (declare (not safe)) - (##unchecked-structure-set! _table72687_ '0 '5 '#f '#f)))) + (##unchecked-structure-set! _table72684_ '0 '5 '#f '#f)))) + (let ((__tmp72850 (macro-type-table))) + (declare (not safe)) + (bind-method!__0 __tmp72850 'ref table-ref)) + (let ((__tmp72851 (macro-type-table))) + (declare (not safe)) + (bind-method!__0 __tmp72851 'set! table-set!)) + (let ((__tmp72852 (macro-type-table))) + (declare (not safe)) + (bind-method!__0 __tmp72852 'update! gambit-table-update!)) (let ((__tmp72853 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp72853 'ref table-ref)) + (bind-method!__0 __tmp72853 'delete! table-set!)) (let ((__tmp72854 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp72854 'set! table-set!)) + (bind-method!__0 __tmp72854 'for-each gambit-table-for-each)) (let ((__tmp72855 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp72855 'update! gambit-table-update!)) + (bind-method!__0 __tmp72855 'length table-length)) (let ((__tmp72856 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp72856 'delete! table-set!)) + (bind-method!__0 __tmp72856 'copy table-copy)) (let ((__tmp72857 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp72857 'for-each gambit-table-for-each)) - (let ((__tmp72858 (macro-type-table))) - (declare (not safe)) - (bind-method!__0 __tmp72858 'length table-length)) - (let ((__tmp72859 (macro-type-table))) - (declare (not safe)) - (bind-method!__0 __tmp72859 'copy table-copy)) - (let ((__tmp72860 (macro-type-table))) - (declare (not safe)) - (bind-method!__0 __tmp72860 'clear! gambit-table-clear!)) + (bind-method!__0 __tmp72857 'clear! gambit-table-clear!)) (define hash-table::t - (let* ((_slots72669_ '(table count free hash test seed)) - (_slot-vector72671_ + (let* ((_slots72666_ '(table count free hash test seed)) + (_slot-vector72668_ (list->vector - (let () (declare (not safe)) (cons '#f _slots72669_)))) - (_slot-table72678_ - (let ((_slot-table72673_ + (let () (declare (not safe)) (cons '#f _slots72666_)))) + (_slot-table72675_ + (let ((_slot-table72670_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (for-each - (lambda (_slot72675_ _field72676_) + (lambda (_slot72672_ _field72673_) (let () (declare (not safe)) (symbolic-table-set! - _slot-table72673_ - _slot72675_ - _field72676_)) - (let ((__tmp72861 (symbol->keyword _slot72675_))) + _slot-table72670_ + _slot72672_ + _field72673_)) + (let ((__tmp72858 (symbol->keyword _slot72672_))) (declare (not safe)) (symbolic-table-set! - _slot-table72673_ - __tmp72861 - _field72676_))) - _slots72669_ - (let ((__tmp72862 (length _slots72669_))) + _slot-table72670_ + __tmp72858 + _field72673_))) + _slots72666_ + (let ((__tmp72859 (length _slots72666_))) (declare (not safe)) - (iota__1 __tmp72862 '1))) - _slot-table72673_)) - (_flags72680_ + (iota__1 __tmp72859 '1))) + _slot-table72670_)) + (_flags72677_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_fields72682_ '#()) - (_properties72684_ - (let ((__tmp72865 - (let ((__tmp72866 + (_fields72679_ '#()) + (_properties72681_ + (let ((__tmp72862 + (let ((__tmp72863 (let () (declare (not safe)) - (foldr1 cons '() _slots72669_)))) + (foldr1 cons '() _slots72666_)))) (declare (not safe)) - (cons 'direct-slots: __tmp72866))) - (__tmp72863 - (let ((__tmp72864 + (cons 'direct-slots: __tmp72863))) + (__tmp72860 + (let ((__tmp72861 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp72864 '())))) + (cons __tmp72861 '())))) (declare (not safe)) - (cons __tmp72865 __tmp72863)))) + (cons __tmp72862 __tmp72860)))) (let () (declare (not safe)) (##structure class::t 'gerbil#hash-table::t 'hash-table - _flags72680_ + _flags72677_ __table::t - _fields72682_ + _fields72679_ '() - _slot-vector72671_ - _slot-table72678_ - _properties72684_ + _slot-vector72668_ + _slot-table72675_ + _properties72681_ '#f '#f)))) (define gc-hash-table::t - (let* ((_slots72651_ '(gcht immediaste)) - (_slot-vector72653_ + (let* ((_slots72648_ '(gcht immediate)) + (_slot-vector72650_ (list->vector - (let () (declare (not safe)) (cons '#f _slots72651_)))) - (_slot-table72660_ - (let ((_slot-table72655_ + (let () (declare (not safe)) (cons '#f _slots72648_)))) + (_slot-table72657_ + (let ((_slot-table72652_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (for-each - (lambda (_slot72657_ _field72658_) + (lambda (_slot72654_ _field72655_) (let () (declare (not safe)) (symbolic-table-set! - _slot-table72655_ - _slot72657_ - _field72658_)) - (let ((__tmp72867 (symbol->keyword _slot72657_))) + _slot-table72652_ + _slot72654_ + _field72655_)) + (let ((__tmp72864 (symbol->keyword _slot72654_))) (declare (not safe)) (symbolic-table-set! - _slot-table72655_ - __tmp72867 - _field72658_))) - _slots72651_ - (let ((__tmp72868 (length _slots72651_))) + _slot-table72652_ + __tmp72864 + _field72655_))) + _slots72648_ + (let ((__tmp72865 (length _slots72648_))) (declare (not safe)) - (iota__1 __tmp72868 '1))) - _slot-table72655_)) - (_flags72662_ + (iota__1 __tmp72865 '1))) + _slot-table72652_)) + (_flags72659_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_fields72664_ '#()) - (_properties72666_ - (let ((__tmp72871 - (let ((__tmp72872 + (_fields72661_ '#()) + (_properties72663_ + (let ((__tmp72868 + (let ((__tmp72869 (let () (declare (not safe)) - (foldr1 cons '() _slots72651_)))) + (foldr1 cons '() _slots72648_)))) (declare (not safe)) - (cons 'direct-slots: __tmp72872))) - (__tmp72869 - (let ((__tmp72870 + (cons 'direct-slots: __tmp72869))) + (__tmp72866 + (let ((__tmp72867 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp72870 '())))) + (cons __tmp72867 '())))) (declare (not safe)) - (cons __tmp72871 __tmp72869)))) + (cons __tmp72868 __tmp72866)))) (let () (declare (not safe)) (##structure class::t 'gerbil#gc-hash-table::t 'gc-hash-table - _flags72662_ + _flags72659_ __gc-table::t - _fields72664_ + _fields72661_ '() - _slot-vector72653_ - _slot-table72660_ - _properties72666_ + _slot-vector72650_ + _slot-table72657_ + _properties72663_ '#f '#f)))) (define locked-hash-table::t - (let ((__tmp72877 (list)) - (__tmp72873 - (let ((__tmp72876 + (let ((__tmp72874 (list)) + (__tmp72870 + (let ((__tmp72873 (let () (declare (not safe)) (cons 'struct: '#t))) - (__tmp72874 - (let ((__tmp72875 + (__tmp72871 + (let ((__tmp72872 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp72875 '())))) + (cons __tmp72872 '())))) (declare (not safe)) - (cons __tmp72876 __tmp72874)))) + (cons __tmp72873 __tmp72871)))) (declare (not safe)) (make-class-type 'gerbil/runtime/hash#locked-hash-table::t 'locked-hash-table - __tmp72877 + __tmp72874 '(table lock) - __tmp72873 + __tmp72870 '#f))) (define locked-hash-table? (let () (declare (not safe)) (make-class-predicate locked-hash-table::t))) (define make-locked-hash-table - (lambda _$args72648_ - (apply make-instance locked-hash-table::t _$args72648_))) + (lambda _$args72645_ + (apply make-instance locked-hash-table::t _$args72645_))) (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 ((__tmp72882 (list)) - (__tmp72878 - (let ((__tmp72881 + (let ((__tmp72879 (list)) + (__tmp72875 + (let ((__tmp72878 (let () (declare (not safe)) (cons 'struct: '#t))) - (__tmp72879 - (let ((__tmp72880 + (__tmp72876 + (let ((__tmp72877 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp72880 '())))) + (cons __tmp72877 '())))) (declare (not safe)) - (cons __tmp72881 __tmp72879)))) + (cons __tmp72878 __tmp72876)))) (declare (not safe)) (make-class-type 'gerbil/runtime/hash#checked-hash-table::t 'checked-hash-table - __tmp72882 + __tmp72879 '(table key-check) - __tmp72878 + __tmp72875 '#f))) (define checked-hash-table? (let () (declare (not safe)) (make-class-predicate checked-hash-table::t))) (define make-checked-hash-table - (lambda _$args72645_ - (apply make-instance checked-hash-table::t _$args72645_))) + (lambda _$args72642_ + (apply make-instance checked-hash-table::t _$args72642_))) (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 ((__tmp72885 (list hash-table::t)) - (__tmp72883 - (let ((__tmp72884 + (let ((__tmp72882 (list hash-table::t)) + (__tmp72880 + (let ((__tmp72881 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp72884 '())))) + (cons __tmp72881 '())))) (declare (not safe)) (make-class-type 'gerbil#eq-hash-table 'hash-table - __tmp72885 + __tmp72882 '() - __tmp72883 + __tmp72880 '#f))) (define eq-hash-table? (let () (declare (not safe)) (make-class-predicate eq-hash-table::t))) (define make-eq-hash-table - (lambda _$args72642_ - (apply make-instance eq-hash-table::t _$args72642_))) + (lambda _$args72639_ + (apply make-instance eq-hash-table::t _$args72639_))) (define eqv-hash-table::t - (let ((__tmp72888 (list hash-table::t)) - (__tmp72886 - (let ((__tmp72887 + (let ((__tmp72885 (list hash-table::t)) + (__tmp72883 + (let ((__tmp72884 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp72887 '())))) + (cons __tmp72884 '())))) (declare (not safe)) (make-class-type 'gerbil#eqv-hash-table 'hash-table - __tmp72888 + __tmp72885 '() - __tmp72886 + __tmp72883 '#f))) (define eqv-hash-table? (let () (declare (not safe)) (make-class-predicate eqv-hash-table::t))) (define make-eqv-hash-table - (lambda _$args72639_ - (apply make-instance eqv-hash-table::t _$args72639_))) + (lambda _$args72636_ + (apply make-instance eqv-hash-table::t _$args72636_))) (define symbol-hash-table::t - (let ((__tmp72891 (list hash-table::t)) - (__tmp72889 - (let ((__tmp72890 + (let ((__tmp72888 (list hash-table::t)) + (__tmp72886 + (let ((__tmp72887 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp72890 '())))) + (cons __tmp72887 '())))) (declare (not safe)) (make-class-type 'gerbil#symbol-hash-table 'hash-table - __tmp72891 + __tmp72888 '() - __tmp72889 + __tmp72886 '#f))) (define symbol-hash-table? (let () (declare (not safe)) (make-class-predicate symbol-hash-table::t))) (define make-symbol-hash-table - (lambda _$args72636_ - (apply make-instance symbol-hash-table::t _$args72636_))) + (lambda _$args72633_ + (apply make-instance symbol-hash-table::t _$args72633_))) (define string-hash-table::t - (let ((__tmp72894 (list hash-table::t)) - (__tmp72892 - (let ((__tmp72893 + (let ((__tmp72891 (list hash-table::t)) + (__tmp72889 + (let ((__tmp72890 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp72893 '())))) + (cons __tmp72890 '())))) (declare (not safe)) (make-class-type 'gerbil#string-hash-table 'hash-table - __tmp72894 + __tmp72891 '() - __tmp72892 + __tmp72889 '#f))) (define string-hash-table? (let () (declare (not safe)) (make-class-predicate string-hash-table::t))) (define make-string-hash-table - (lambda _$args72633_ - (apply make-instance string-hash-table::t _$args72633_))) + (lambda _$args72630_ + (apply make-instance string-hash-table::t _$args72630_))) (define immediate-hash-table::t - (let ((__tmp72897 (list hash-table::t)) - (__tmp72895 - (let ((__tmp72896 + (let ((__tmp72894 (list hash-table::t)) + (__tmp72892 + (let ((__tmp72893 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp72896 '())))) + (cons __tmp72893 '())))) (declare (not safe)) (make-class-type 'gerbil#immediate-hash-table 'hash-table - __tmp72897 + __tmp72894 '() - __tmp72895 + __tmp72892 '#f))) (define immediate-hash-table? (let () (declare (not safe)) (make-class-predicate immediate-hash-table::t))) (define make-immediate-hash-table - (lambda _$args72630_ - (apply make-instance immediate-hash-table::t _$args72630_))) + (lambda _$args72627_ + (apply make-instance immediate-hash-table::t _$args72627_))) (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 (_obj72628_) - (if (let () (declare (not safe)) (##structure? _obj72628_)) - (let ((__tmp72898 + (lambda (_obj72625_) + (if (let () (declare (not safe)) (##structure? _obj72625_)) + (let ((__tmp72895 (let () (declare (not safe)) - (##structure-type _obj72628_)))) + (##structure-type _obj72625_)))) (declare (not safe)) - (eq? __tmp72898 HashTable::t)) + (eq? __tmp72895 HashTable::t)) '#f))) (define is-hash-table? - (lambda (_obj72623_) - (let ((_$e72625_ - (if (let () (declare (not safe)) (##structure? _obj72623_)) - (let ((__tmp72899 + (lambda (_obj72620_) + (let ((_$e72622_ + (if (let () (declare (not safe)) (##structure? _obj72620_)) + (let ((__tmp72896 (let () (declare (not safe)) - (##structure-type _obj72623_)))) + (##structure-type _obj72620_)))) (declare (not safe)) - (eq? __tmp72899 HashTable::t)) + (eq? __tmp72896 HashTable::t)) '#f))) - (if _$e72625_ - _$e72625_ + (if _$e72622_ + _$e72622_ (let () (declare (not safe)) - (satisfies? HashTable::interface _obj72623_)))))) + (satisfies? HashTable::interface _obj72620_)))))) (define HashTable-ref - (lambda (_h72617_ _key72618_ _default72619_) - (let ((_h72621_ - (if (and (let () (declare (not safe)) (##structure? _h72617_)) - (let ((__tmp72900 + (lambda (_h72614_ _key72615_ _default72616_) + (let ((_h72618_ + (if (and (let () (declare (not safe)) (##structure? _h72614_)) + (let ((__tmp72897 (let () (declare (not safe)) - (##structure-type _h72617_)))) + (##structure-type _h72614_)))) (declare (not safe)) - (eq? __tmp72900 HashTable::t))) - _h72617_ + (eq? __tmp72897 HashTable::t))) + _h72614_ (let () (declare (not safe)) - (cast HashTable::interface _h72617_))))) + (cast HashTable::interface _h72614_))))) (declare (not safe)) - (&HashTable-ref _h72621_ _key72618_ _default72619_)))) + (&HashTable-ref _h72618_ _key72615_ _default72616_)))) (define &HashTable-ref - (lambda (_h72612_ _key72613_ _default72614_) + (lambda (_h72609_ _key72610_ _default72611_) (declare (not safe)) - ((##unchecked-structure-ref _h72612_ '2 HashTable::t '#f) - (##unchecked-structure-ref _h72612_ '1 interface-instance::t '#f) - _key72613_ - _default72614_))) + ((##unchecked-structure-ref _h72609_ '2 HashTable::t '#f) + (##unchecked-structure-ref _h72609_ '1 interface-instance::t '#f) + _key72610_ + _default72611_))) (define HashTable-set! - (lambda (_h72606_ _key72607_ _value72608_) - (let ((_h72610_ - (if (and (let () (declare (not safe)) (##structure? _h72606_)) - (let ((__tmp72901 + (lambda (_h72603_ _key72604_ _value72605_) + (let ((_h72607_ + (if (and (let () (declare (not safe)) (##structure? _h72603_)) + (let ((__tmp72898 (let () (declare (not safe)) - (##structure-type _h72606_)))) + (##structure-type _h72603_)))) (declare (not safe)) - (eq? __tmp72901 HashTable::t))) - _h72606_ + (eq? __tmp72898 HashTable::t))) + _h72603_ (let () (declare (not safe)) - (cast HashTable::interface _h72606_))))) + (cast HashTable::interface _h72603_))))) (declare (not safe)) - (&HashTable-set! _h72610_ _key72607_ _value72608_)))) + (&HashTable-set! _h72607_ _key72604_ _value72605_)))) (define &HashTable-set! - (lambda (_h72601_ _key72602_ _value72603_) + (lambda (_h72598_ _key72599_ _value72600_) (declare (not safe)) (begin - ((##unchecked-structure-ref _h72601_ '3 HashTable::t '#f) - (##unchecked-structure-ref _h72601_ '1 interface-instance::t '#f) - _key72602_ - _value72603_) + ((##unchecked-structure-ref _h72598_ '3 HashTable::t '#f) + (##unchecked-structure-ref _h72598_ '1 interface-instance::t '#f) + _key72599_ + _value72600_) '#!void))) (define HashTable-update! - (lambda (_h72594_ _key72595_ _update72596_ _default72597_) - (let ((_h72599_ - (if (and (let () (declare (not safe)) (##structure? _h72594_)) - (let ((__tmp72902 + (lambda (_h72591_ _key72592_ _update72593_ _default72594_) + (let ((_h72596_ + (if (and (let () (declare (not safe)) (##structure? _h72591_)) + (let ((__tmp72899 (let () (declare (not safe)) - (##structure-type _h72594_)))) + (##structure-type _h72591_)))) (declare (not safe)) - (eq? __tmp72902 HashTable::t))) - _h72594_ + (eq? __tmp72899 HashTable::t))) + _h72591_ (let () (declare (not safe)) - (cast HashTable::interface _h72594_))))) + (cast HashTable::interface _h72591_))))) (declare (not safe)) (&HashTable-update! - _h72599_ - _key72595_ - _update72596_ - _default72597_)))) + _h72596_ + _key72592_ + _update72593_ + _default72594_)))) (define &HashTable-update! - (lambda (_h72588_ _key72589_ _update72590_ _default72591_) + (lambda (_h72585_ _key72586_ _update72587_ _default72588_) (declare (not safe)) (begin - ((##unchecked-structure-ref _h72588_ '4 HashTable::t '#f) - (##unchecked-structure-ref _h72588_ '1 interface-instance::t '#f) - _key72589_ - _update72590_ - _default72591_) + ((##unchecked-structure-ref _h72585_ '4 HashTable::t '#f) + (##unchecked-structure-ref _h72585_ '1 interface-instance::t '#f) + _key72586_ + _update72587_ + _default72588_) '#!void))) (define HashTable-delete! - (lambda (_h72583_ _key72584_) - (let ((_h72586_ - (if (and (let () (declare (not safe)) (##structure? _h72583_)) - (let ((__tmp72903 + (lambda (_h72580_ _key72581_) + (let ((_h72583_ + (if (and (let () (declare (not safe)) (##structure? _h72580_)) + (let ((__tmp72900 (let () (declare (not safe)) - (##structure-type _h72583_)))) + (##structure-type _h72580_)))) (declare (not safe)) - (eq? __tmp72903 HashTable::t))) - _h72583_ + (eq? __tmp72900 HashTable::t))) + _h72580_ (let () (declare (not safe)) - (cast HashTable::interface _h72583_))))) + (cast HashTable::interface _h72580_))))) (declare (not safe)) - (&HashTable-delete! _h72586_ _key72584_)))) + (&HashTable-delete! _h72583_ _key72581_)))) (define &HashTable-delete! - (lambda (_h72579_ _key72580_) + (lambda (_h72576_ _key72577_) (declare (not safe)) (begin - ((##unchecked-structure-ref _h72579_ '5 HashTable::t '#f) - (##unchecked-structure-ref _h72579_ '1 interface-instance::t '#f) - _key72580_) + ((##unchecked-structure-ref _h72576_ '5 HashTable::t '#f) + (##unchecked-structure-ref _h72576_ '1 interface-instance::t '#f) + _key72577_) '#!void))) (define HashTable-for-each - (lambda (_h72574_ _proc72575_) - (let ((_h72577_ - (if (and (let () (declare (not safe)) (##structure? _h72574_)) - (let ((__tmp72904 + (lambda (_h72571_ _proc72572_) + (let ((_h72574_ + (if (and (let () (declare (not safe)) (##structure? _h72571_)) + (let ((__tmp72901 (let () (declare (not safe)) - (##structure-type _h72574_)))) + (##structure-type _h72571_)))) (declare (not safe)) - (eq? __tmp72904 HashTable::t))) - _h72574_ + (eq? __tmp72901 HashTable::t))) + _h72571_ (let () (declare (not safe)) - (cast HashTable::interface _h72574_))))) + (cast HashTable::interface _h72571_))))) (declare (not safe)) - (&HashTable-for-each _h72577_ _proc72575_)))) + (&HashTable-for-each _h72574_ _proc72572_)))) (define &HashTable-for-each - (lambda (_h72570_ _proc72571_) + (lambda (_h72567_ _proc72568_) (declare (not safe)) (begin - ((##unchecked-structure-ref _h72570_ '6 HashTable::t '#f) - (##unchecked-structure-ref _h72570_ '1 interface-instance::t '#f) - _proc72571_) + ((##unchecked-structure-ref _h72567_ '6 HashTable::t '#f) + (##unchecked-structure-ref _h72567_ '1 interface-instance::t '#f) + _proc72568_) '#!void))) (define HashTable-length - (lambda (_h72566_) - (let ((_h72568_ - (if (and (let () (declare (not safe)) (##structure? _h72566_)) - (let ((__tmp72905 + (lambda (_h72563_) + (let ((_h72565_ + (if (and (let () (declare (not safe)) (##structure? _h72563_)) + (let ((__tmp72902 (let () (declare (not safe)) - (##structure-type _h72566_)))) + (##structure-type _h72563_)))) (declare (not safe)) - (eq? __tmp72905 HashTable::t))) - _h72566_ + (eq? __tmp72902 HashTable::t))) + _h72563_ (let () (declare (not safe)) - (cast HashTable::interface _h72566_))))) + (cast HashTable::interface _h72563_))))) (declare (not safe)) - (&HashTable-length _h72568_)))) + (&HashTable-length _h72565_)))) (define &HashTable-length - (lambda (_h72563_) + (lambda (_h72560_) (declare (not safe)) - ((##unchecked-structure-ref _h72563_ '7 HashTable::t '#f) - (##unchecked-structure-ref _h72563_ '1 interface-instance::t '#f)))) + ((##unchecked-structure-ref _h72560_ '7 HashTable::t '#f) + (##unchecked-structure-ref _h72560_ '1 interface-instance::t '#f)))) (define HashTable-copy - (lambda (_h72559_) - (let ((_h72561_ - (if (and (let () (declare (not safe)) (##structure? _h72559_)) - (let ((__tmp72906 + (lambda (_h72556_) + (let ((_h72558_ + (if (and (let () (declare (not safe)) (##structure? _h72556_)) + (let ((__tmp72903 (let () (declare (not safe)) - (##structure-type _h72559_)))) + (##structure-type _h72556_)))) (declare (not safe)) - (eq? __tmp72906 HashTable::t))) - _h72559_ + (eq? __tmp72903 HashTable::t))) + _h72556_ (let () (declare (not safe)) - (cast HashTable::interface _h72559_))))) + (cast HashTable::interface _h72556_))))) (declare (not safe)) - (&HashTable-copy _h72561_)))) + (&HashTable-copy _h72558_)))) (define &HashTable-copy - (lambda (_h72556_) + (lambda (_h72553_) (declare (not safe)) (cast HashTable::interface - ((##unchecked-structure-ref _h72556_ '8 HashTable::t '#f) + ((##unchecked-structure-ref _h72553_ '8 HashTable::t '#f) (##unchecked-structure-ref - _h72556_ + _h72553_ '1 interface-instance::t '#f))))) (define HashTable-clear! - (lambda (_h72552_) - (let ((_h72554_ - (if (and (let () (declare (not safe)) (##structure? _h72552_)) - (let ((__tmp72907 + (lambda (_h72549_) + (let ((_h72551_ + (if (and (let () (declare (not safe)) (##structure? _h72549_)) + (let ((__tmp72904 (let () (declare (not safe)) - (##structure-type _h72552_)))) + (##structure-type _h72549_)))) (declare (not safe)) - (eq? __tmp72907 HashTable::t))) - _h72552_ + (eq? __tmp72904 HashTable::t))) + _h72549_ (let () (declare (not safe)) - (cast HashTable::interface _h72552_))))) + (cast HashTable::interface _h72549_))))) (declare (not safe)) - (&HashTable-clear! _h72554_)))) + (&HashTable-clear! _h72551_)))) (define &HashTable-clear! - (lambda (_h72549_) + (lambda (_h72546_) (declare (not safe)) (begin - ((##unchecked-structure-ref _h72549_ '9 HashTable::t '#f) - (##unchecked-structure-ref _h72549_ '1 interface-instance::t '#f)) + ((##unchecked-structure-ref _h72546_ '9 HashTable::t '#f) + (##unchecked-structure-ref _h72546_ '1 interface-instance::t '#f)) '#!void))) (define &HashTableLock-begin-read! - (lambda (_hl72546_) - (declare (not safe)) - ((##unchecked-structure-ref _hl72546_ '2 HashTableLock::t '#f) - (##unchecked-structure-ref _hl72546_ '1 interface-instance::t '#f)))) - (define &HashTableLock-end-read! (lambda (_hl72543_) (declare (not safe)) - ((##unchecked-structure-ref _hl72543_ '3 HashTableLock::t '#f) + ((##unchecked-structure-ref _hl72543_ '2 HashTableLock::t '#f) (##unchecked-structure-ref _hl72543_ '1 interface-instance::t '#f)))) - (define &HashTableLock-begin-write! + (define &HashTableLock-end-read! (lambda (_hl72540_) (declare (not safe)) - ((##unchecked-structure-ref _hl72540_ '4 HashTableLock::t '#f) + ((##unchecked-structure-ref _hl72540_ '3 HashTableLock::t '#f) (##unchecked-structure-ref _hl72540_ '1 interface-instance::t '#f)))) - (define &HashTableLock-end-write! + (define &HashTableLock-begin-write! (lambda (_hl72537_) (declare (not safe)) - ((##unchecked-structure-ref _hl72537_ '5 HashTableLock::t '#f) + ((##unchecked-structure-ref _hl72537_ '4 HashTableLock::t '#f) (##unchecked-structure-ref _hl72537_ '1 interface-instance::t '#f)))) - (define _locked-hash-table::ref69556_ - (lambda (_self72524_ _key72526_ _default72527_) - (let ((_h72529_ + (define &HashTableLock-end-write! + (lambda (_hl72534_) + (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_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72524_ + _self72521_ '1 locked-hash-table::t '#f))) - (_l72531_ + (_l72528_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72524_ + _self72521_ '2 locked-hash-table::t '#f)))) @@ -1174,37 +1174,37 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-read! _l72531_))) + (&HashTableLock-begin-read! _l72528_))) (lambda () (let () (declare (not safe)) - (&HashTable-ref _h72529_ _key72526_ _default72527_))) + (&HashTable-ref _h72526_ _key72523_ _default72524_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-read! _l72531_))))))) + (&HashTableLock-end-read! _l72528_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'ref - _locked-hash-table::ref69556_ + _locked-hash-table::ref69553_ '#f)) - (define _locked-hash-table::set!69558_ - (lambda (_self72388_ _key72390_ _value72391_) - (let ((_h72393_ + (define _locked-hash-table::set!69555_ + (lambda (_self72385_ _key72387_ _value72388_) + (let ((_h72390_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72388_ + _self72385_ '1 locked-hash-table::t '#f))) - (_l72395_ + (_l72392_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72388_ + _self72385_ '2 locked-hash-table::t '#f)))) @@ -1212,37 +1212,37 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-write! _l72395_))) + (&HashTableLock-begin-write! _l72392_))) (lambda () (let () (declare (not safe)) - (&HashTable-set! _h72393_ _key72390_ _value72391_))) + (&HashTable-set! _h72390_ _key72387_ _value72388_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-write! _l72395_))))))) + (&HashTableLock-end-write! _l72392_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'set! - _locked-hash-table::set!69558_ + _locked-hash-table::set!69555_ '#f)) - (define _locked-hash-table::update!69560_ - (lambda (_self72251_ _key72253_ _update72254_ _default72255_) - (let ((_h72257_ + (define _locked-hash-table::update!69557_ + (lambda (_self72248_ _key72250_ _update72251_ _default72252_) + (let ((_h72254_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72251_ + _self72248_ '1 locked-hash-table::t '#f))) - (_l72259_ + (_l72256_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72251_ + _self72248_ '2 locked-hash-table::t '#f)))) @@ -1250,41 +1250,41 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-write! _l72259_))) + (&HashTableLock-begin-write! _l72256_))) (lambda () (let () (declare (not safe)) (&HashTable-update! - _h72257_ - _key72253_ - _update72254_ - _default72255_))) + _h72254_ + _key72250_ + _update72251_ + _default72252_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-write! _l72259_))))))) + (&HashTableLock-end-write! _l72256_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'update! - _locked-hash-table::update!69560_ + _locked-hash-table::update!69557_ '#f)) - (define _locked-hash-table::delete!69562_ - (lambda (_self72116_ _key72118_) - (let ((_h72120_ + (define _locked-hash-table::delete!69559_ + (lambda (_self72113_ _key72115_) + (let ((_h72117_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72116_ + _self72113_ '1 locked-hash-table::t '#f))) - (_l72122_ + (_l72119_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72116_ + _self72113_ '2 locked-hash-table::t '#f)))) @@ -1292,37 +1292,37 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-write! _l72122_))) + (&HashTableLock-begin-write! _l72119_))) (lambda () (let () (declare (not safe)) - (&HashTable-delete! _h72120_ _key72118_))) + (&HashTable-delete! _h72117_ _key72115_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-write! _l72122_))))))) + (&HashTableLock-end-write! _l72119_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'delete! - _locked-hash-table::delete!69562_ + _locked-hash-table::delete!69559_ '#f)) - (define _locked-hash-table::for-each69564_ - (lambda (_self71981_ _proc71983_) - (let ((_h71985_ + (define _locked-hash-table::for-each69561_ + (lambda (_self71978_ _proc71980_) + (let ((_h71982_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71981_ + _self71978_ '1 locked-hash-table::t '#f))) - (_l71987_ + (_l71984_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71981_ + _self71978_ '2 locked-hash-table::t '#f)))) @@ -1330,37 +1330,37 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-read! _l71987_))) + (&HashTableLock-begin-read! _l71984_))) (lambda () (let () (declare (not safe)) - (&HashTable-for-each _h71985_ _proc71983_))) + (&HashTable-for-each _h71982_ _proc71980_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-read! _l71987_))))))) + (&HashTableLock-end-read! _l71984_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'for-each - _locked-hash-table::for-each69564_ + _locked-hash-table::for-each69561_ '#f)) - (define _locked-hash-table::length69566_ - (lambda (_self71847_) - (let ((_h71850_ + (define _locked-hash-table::length69563_ + (lambda (_self71844_) + (let ((_h71847_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71847_ + _self71844_ '1 locked-hash-table::t '#f))) - (_l71852_ + (_l71849_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71847_ + _self71844_ '2 locked-hash-table::t '#f)))) @@ -1368,35 +1368,35 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-read! _l71852_))) + (&HashTableLock-begin-read! _l71849_))) (lambda () - (let () (declare (not safe)) (&HashTable-length _h71850_))) + (let () (declare (not safe)) (&HashTable-length _h71847_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-read! _l71852_))))))) + (&HashTableLock-end-read! _l71849_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'length - _locked-hash-table::length69566_ + _locked-hash-table::length69563_ '#f)) - (define _locked-hash-table::copy69568_ - (lambda (_self71713_) - (let ((_h71716_ + (define _locked-hash-table::copy69565_ + (lambda (_self71710_) + (let ((_h71713_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71713_ + _self71710_ '1 locked-hash-table::t '#f))) - (_l71718_ + (_l71715_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71713_ + _self71710_ '2 locked-hash-table::t '#f)))) @@ -1404,34 +1404,34 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-read! _l71718_))) - (lambda () (let () (declare (not safe)) (&HashTable-copy _h71716_))) + (&HashTableLock-begin-read! _l71715_))) + (lambda () (let () (declare (not safe)) (&HashTable-copy _h71713_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-read! _l71718_))))))) + (&HashTableLock-end-read! _l71715_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'copy - _locked-hash-table::copy69568_ + _locked-hash-table::copy69565_ '#f)) - (define _locked-hash-table::clear!69570_ - (lambda (_self71579_) - (let ((_h71582_ + (define _locked-hash-table::clear!69567_ + (lambda (_self71576_) + (let ((_h71579_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71579_ + _self71576_ '1 locked-hash-table::t '#f))) - (_l71584_ + (_l71581_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71579_ + _self71576_ '2 locked-hash-table::t '#f)))) @@ -1439,695 +1439,695 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-write! _l71584_))) + (&HashTableLock-begin-write! _l71581_))) (lambda () - (let () (declare (not safe)) (&HashTable-clear! _h71582_))) + (let () (declare (not safe)) (&HashTable-clear! _h71579_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-write! _l71584_))))))) + (&HashTableLock-end-write! _l71581_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'clear! - _locked-hash-table::clear!69570_ + _locked-hash-table::clear!69567_ '#f)) - (let ((__tmp72908 (macro-type-mutex))) + (let ((__tmp72905 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp72908 'begin-read! mutex-lock!)) - (let ((__tmp72909 (macro-type-mutex))) + (bind-method!__0 __tmp72905 'begin-read! mutex-lock!)) + (let ((__tmp72906 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp72909 'end-read! mutex-unlock!)) - (let ((__tmp72910 (macro-type-mutex))) + (bind-method!__0 __tmp72906 'end-read! mutex-unlock!)) + (let ((__tmp72907 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp72910 'begin-write! mutex-lock!)) - (let ((__tmp72911 (macro-type-mutex))) + (bind-method!__0 __tmp72907 'begin-write! mutex-lock!)) + (let ((__tmp72908 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp72911 'end-write! mutex-unlock!)) - (define _checked-hash-table::ref69848_ - (lambda (_self71443_ _key71444_ _default71445_) - (let ((_h71447_ + (bind-method!__0 __tmp72908 'end-write! mutex-unlock!)) + (define _checked-hash-table::ref69845_ + (lambda (_self71440_ _key71441_ _default71442_) + (let ((_h71444_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71443_ + _self71440_ '1 checked-hash-table::t '#f))) - (_key?71449_ + (_key?71446_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71443_ + _self71440_ '2 checked-hash-table::t '#f)))) - ((lambda (_g7145171453_) - (if (_g7145171453_ _key71444_) + ((lambda (_g7144871450_) + (if (_g7144871450_ _key71441_) '#!void (let () (declare (not safe)) - (error '"invalid argument" _key71444_)))) - _key?71449_) + (error '"invalid argument" _key71441_)))) + _key?71446_) (let () (declare (not safe)) - (&HashTable-ref _h71447_ _key71444_ _default71445_))))) + (&HashTable-ref _h71444_ _key71441_ _default71442_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'ref - _checked-hash-table::ref69848_ + _checked-hash-table::ref69845_ '#f)) - (define _checked-hash-table::set!69850_ - (lambda (_self71307_ _key71308_ _value71309_) - (let ((_h71311_ + (define _checked-hash-table::set!69847_ + (lambda (_self71304_ _key71305_ _value71306_) + (let ((_h71308_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71307_ + _self71304_ '1 checked-hash-table::t '#f))) - (_key?71313_ + (_key?71310_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71307_ + _self71304_ '2 checked-hash-table::t '#f)))) - ((lambda (_g7131571317_) - (if (_g7131571317_ _key71308_) + ((lambda (_g7131271314_) + (if (_g7131271314_ _key71305_) '#!void (let () (declare (not safe)) - (error '"invalid argument" _key71308_)))) - _key?71313_) + (error '"invalid argument" _key71305_)))) + _key?71310_) (let () (declare (not safe)) - (&HashTable-set! _h71311_ _key71308_ _value71309_))))) + (&HashTable-set! _h71308_ _key71305_ _value71306_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'set! - _checked-hash-table::set!69850_ + _checked-hash-table::set!69847_ '#f)) - (define _checked-hash-table::update!69852_ - (lambda (_self71172_ _key71173_ _update71174_ _default71175_) - (let ((_h71177_ + (define _checked-hash-table::update!69849_ + (lambda (_self71169_ _key71170_ _update71171_ _default71172_) + (let ((_h71174_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71172_ + _self71169_ '1 checked-hash-table::t '#f))) - (_key?71179_ + (_key?71176_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71172_ + _self71169_ '2 checked-hash-table::t '#f)))) - ((lambda (_key?71182_) - (if (_key?71182_ _key71173_) + ((lambda (_key?71179_) + (if (_key?71179_ _key71170_) '#!void (let () (declare (not safe)) - (error '"invalid argument" _key71173_))) - (if (let () (declare (not safe)) (procedure? _update71174_)) + (error '"invalid argument" _key71170_))) + (if (let () (declare (not safe)) (procedure? _update71171_)) '#!void (let () (declare (not safe)) - (error '"invalid argument" _update71174_)))) - _key?71179_) + (error '"invalid argument" _update71171_)))) + _key?71176_) (let () (declare (not safe)) (&HashTable-update! - _h71177_ - _key71173_ - _update71174_ - _default71175_))))) + _h71174_ + _key71170_ + _update71171_ + _default71172_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'update! - _checked-hash-table::update!69852_ + _checked-hash-table::update!69849_ '#f)) - (define _checked-hash-table::delete!69854_ - (lambda (_self71037_ _key71038_) - (let ((_h71040_ + (define _checked-hash-table::delete!69851_ + (lambda (_self71034_ _key71035_) + (let ((_h71037_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71037_ + _self71034_ '1 checked-hash-table::t '#f))) - (_key?71042_ + (_key?71039_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71037_ + _self71034_ '2 checked-hash-table::t '#f)))) - ((lambda (_g7104471046_) - (if (_g7104471046_ _key71038_) + ((lambda (_g7104171043_) + (if (_g7104171043_ _key71035_) '#!void (let () (declare (not safe)) - (error '"invalid argument" _key71038_)))) - _key?71042_) + (error '"invalid argument" _key71035_)))) + _key?71039_) (let () (declare (not safe)) - (&HashTable-delete! _h71040_ _key71038_))))) + (&HashTable-delete! _h71037_ _key71035_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'delete! - _checked-hash-table::delete!69854_ + _checked-hash-table::delete!69851_ '#f)) - (define _checked-hash-table::for-each69856_ - (lambda (_self70905_ _proc70906_) - (let ((_h70908_ + (define _checked-hash-table::for-each69853_ + (lambda (_self70902_ _proc70903_) + (let ((_h70905_ (let () (declare (not safe)) (##unchecked-structure-ref - _self70905_ + _self70902_ '1 checked-hash-table::t '#f))) - (_key?70910_ + (_key?70907_ (let () (declare (not safe)) (##unchecked-structure-ref - _self70905_ + _self70902_ '2 checked-hash-table::t '#f)))) - ((lambda (_g72912_) - (if (let () (declare (not safe)) (procedure? _proc70906_)) + ((lambda (_g72909_) + (if (let () (declare (not safe)) (procedure? _proc70903_)) '#!void (let () (declare (not safe)) - (error '"invalid argument" _proc70906_)))) - _key?70910_) + (error '"invalid argument" _proc70903_)))) + _key?70907_) (let () (declare (not safe)) - (&HashTable-for-each _h70908_ _proc70906_))))) + (&HashTable-for-each _h70905_ _proc70903_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'for-each - _checked-hash-table::for-each69856_ + _checked-hash-table::for-each69853_ '#f)) - (define _checked-hash-table::length69858_ - (lambda (_self70775_) - (let ((_h70777_ + (define _checked-hash-table::length69855_ + (lambda (_self70772_) + (let ((_h70774_ (let () (declare (not safe)) (##unchecked-structure-ref - _self70775_ + _self70772_ '1 checked-hash-table::t '#f))) - (_key?70779_ + (_key?70776_ (let () (declare (not safe)) (##unchecked-structure-ref - _self70775_ + _self70772_ '2 checked-hash-table::t '#f)))) - (let () (declare (not safe)) (&HashTable-length _h70777_))))) + (let () (declare (not safe)) (&HashTable-length _h70774_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'length - _checked-hash-table::length69858_ + _checked-hash-table::length69855_ '#f)) - (define _checked-hash-table::copy69860_ - (lambda (_self70645_) - (let ((_h70647_ + (define _checked-hash-table::copy69857_ + (lambda (_self70642_) + (let ((_h70644_ (let () (declare (not safe)) (##unchecked-structure-ref - _self70645_ + _self70642_ '1 checked-hash-table::t '#f))) - (_key?70649_ + (_key?70646_ (let () (declare (not safe)) (##unchecked-structure-ref - _self70645_ + _self70642_ '2 checked-hash-table::t '#f)))) - (let () (declare (not safe)) (&HashTable-copy _h70647_))))) + (let () (declare (not safe)) (&HashTable-copy _h70644_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'copy - _checked-hash-table::copy69860_ + _checked-hash-table::copy69857_ '#f)) - (define _checked-hash-table::clear!69862_ - (lambda (_self70515_) - (let ((_h70517_ + (define _checked-hash-table::clear!69859_ + (lambda (_self70512_) + (let ((_h70514_ (let () (declare (not safe)) (##unchecked-structure-ref - _self70515_ + _self70512_ '1 checked-hash-table::t '#f))) - (_key?70519_ + (_key?70516_ (let () (declare (not safe)) (##unchecked-structure-ref - _self70515_ + _self70512_ '2 checked-hash-table::t '#f)))) - (let () (declare (not safe)) (&HashTable-clear! _h70517_))))) + (let () (declare (not safe)) (&HashTable-clear! _h70514_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'clear! - _checked-hash-table::clear!69862_ + _checked-hash-table::clear!69859_ '#f)) (define make-generic-hash-table - (lambda (_table70385_ - _count70386_ - _free70387_ - _hash70388_ - _test70389_ - _seed70390_) + (lambda (_table70382_ + _count70383_ + _free70384_ + _hash70385_ + _test70386_ + _seed70387_) (let () (declare (not safe)) (##structure hash-table::t - _table70385_ - _count70386_ - _free70387_ - _hash70388_ - _test70389_ - _seed70390_)))) + _table70382_ + _count70383_ + _free70384_ + _hash70385_ + _test70386_ + _seed70387_)))) (define make-hash-table__% - (lambda (_g72913_ - _size-hint7023070240_ - _seed7023170242_ - _test7023270244_ - _hash7023370246_ - _lock7023470248_ - _check7023570250_ - _weak-keys7023670252_ - _weak-values7023770254_) - (let* ((_size-hint70257_ + (lambda (_g72910_ + _size-hint7022770237_ + _seed7022870239_ + _test7022970241_ + _hash7023070243_ + _lock7023170245_ + _check7023270247_ + _weak-keys7023370249_ + _weak-values7023470251_) + (let* ((_size-hint70254_ (if (let () (declare (not safe)) - (eq? _size-hint7023070240_ absent-value)) + (eq? _size-hint7022770237_ absent-value)) '#f - _size-hint7023070240_)) - (_seed70259_ + _size-hint7022770237_)) + (_seed70256_ (if (let () (declare (not safe)) - (eq? _seed7023170242_ absent-value)) + (eq? _seed7022870239_ absent-value)) '#f - _seed7023170242_)) - (_test70261_ + _seed7022870239_)) + (_test70258_ (if (let () (declare (not safe)) - (eq? _test7023270244_ absent-value)) + (eq? _test7022970241_ absent-value)) equal? - _test7023270244_)) - (_hash70263_ + _test7022970241_)) + (_hash70260_ (if (let () (declare (not safe)) - (eq? _hash7023370246_ absent-value)) + (eq? _hash7023070243_ absent-value)) '#f - _hash7023370246_)) - (_lock70265_ + _hash7023070243_)) + (_lock70262_ (if (let () (declare (not safe)) - (eq? _lock7023470248_ absent-value)) + (eq? _lock7023170245_ absent-value)) '#f - _lock7023470248_)) - (_check70267_ + _lock7023170245_)) + (_check70264_ (if (let () (declare (not safe)) - (eq? _check7023570250_ absent-value)) + (eq? _check7023270247_ absent-value)) '#f - _check7023570250_)) - (_weak-keys70269_ + _check7023270247_)) + (_weak-keys70266_ (if (let () (declare (not safe)) - (eq? _weak-keys7023670252_ absent-value)) + (eq? _weak-keys7023370249_ absent-value)) '#f - _weak-keys7023670252_)) - (_weak-values70271_ + _weak-keys7023370249_)) + (_weak-values70268_ (if (let () (declare (not safe)) - (eq? _weak-values7023770254_ absent-value)) + (eq? _weak-values7023470251_ absent-value)) '#f - _weak-values7023770254_))) - (letrec ((_table-seed70273_ + _weak-values7023470251_))) + (letrec ((_table-seed70270_ (lambda () - (if (let () (declare (not safe)) (fixnum? _seed70259_)) - _seed70259_ + (if (let () (declare (not safe)) (fixnum? _seed70256_)) + _seed70256_ (random-integer (macro-max-fixnum32))))) - (_wrap-lock70274_ - (lambda (_ht70368_) - (if _lock70265_ - (let ((__tmp72914 - (let ((__tmp72915 + (_wrap-lock70271_ + (lambda (_ht70365_) + (if _lock70262_ + (let ((__tmp72911 + (let ((__tmp72912 (let () (declare (not safe)) (cast HashTableLock::interface - _lock70265_)))) + _lock70262_)))) (declare (not safe)) (##structure locked-hash-table::t - _ht70368_ - __tmp72915)))) + _ht70365_ + __tmp72912)))) (declare (not safe)) - (cast HashTable::interface __tmp72914)) - _ht70368_))) - (_wrap-checked70275_ - (lambda (_ht70365_ _implicit70366_) - (if _check70267_ - (let ((__tmp72916 - (let ((__tmp72917 + (cast HashTable::interface __tmp72911)) + _ht70365_))) + (_wrap-checked70272_ + (lambda (_ht70362_ _implicit70363_) + (if _check70264_ + (let ((__tmp72913 + (let ((__tmp72914 (if (let () (declare (not safe)) - (procedure? _check70267_)) - _check70267_ - _implicit70366_))) + (procedure? _check70264_)) + _check70264_ + _implicit70363_))) (declare (not safe)) (##structure checked-hash-table::t - _ht70365_ - __tmp72917)))) + _ht70362_ + __tmp72914)))) (declare (not safe)) - (cast HashTable::interface __tmp72916)) - _ht70365_))) - (_make70276_ - (lambda (_kons70353_ _key?70354_ _hash70355_ _test70356_) - (let* ((_size70358_ + (cast HashTable::interface __tmp72913)) + _ht70362_))) + (_make70273_ + (lambda (_kons70350_ _key?70351_ _hash70352_ _test70353_) + (let* ((_size70355_ (let () (declare (not safe)) - (raw-table-size-hint->size _size-hint70257_))) - (_table70360_ - (make-vector _size70358_ (macro-unused-obj))) - (_ht70362_ - (let ((__tmp72918 - (_kons70353_ - _table70360_ + (raw-table-size-hint->size _size-hint70254_))) + (_table70357_ + (make-vector _size70355_ (macro-unused-obj))) + (_ht70359_ + (let ((__tmp72915 + (_kons70350_ + _table70357_ '0 - (fxquotient _size70358_ '2) - _hash70355_ - _test70356_ + (fxquotient _size70355_ '2) + _hash70352_ + _test70353_ (let () (declare (not safe)) - (_table-seed70273_))))) + (_table-seed70270_))))) (declare (not safe)) - (cast HashTable::interface __tmp72918)))) - (let ((__tmp72919 + (cast HashTable::interface __tmp72915)))) + (let ((__tmp72916 (let () (declare (not safe)) - (_wrap-lock70274_ _ht70362_)))) + (_wrap-lock70271_ _ht70359_)))) (declare (not safe)) - (_wrap-checked70275_ __tmp72919 _key?70354_))))) - (_make-gc-hash-table70277_ + (_wrap-checked70272_ __tmp72916 _key?70351_))))) + (_make-gc-hash-table70274_ (lambda () - (let* ((_ht70351_ - (let ((__tmp72920 + (let* ((_ht70348_ + (let ((__tmp72917 (let () (declare (not safe)) (make-gc-table__1 - _size-hint70257_ + _size-hint70254_ gc-hash-table::t)))) (declare (not safe)) - (cast HashTable::interface __tmp72920))) - (__tmp72921 + (cast HashTable::interface __tmp72917))) + (__tmp72918 (let () (declare (not safe)) - (_wrap-lock70274_ _ht70351_)))) + (_wrap-lock70271_ _ht70348_)))) (declare (not safe)) - (_wrap-checked70275_ __tmp72921 true)))) - (_make-gambit-table70278_ + (_wrap-checked70272_ __tmp72918 true)))) + (_make-gambit-table70275_ (lambda () - (let* ((_size70335_ - (let ((_$e70332_ _size-hint70257_)) - (if _$e70332_ _$e70332_ (macro-absent-obj)))) - (_test70340_ - (let ((_$e70337_ _test70261_)) - (if _$e70337_ _$e70337_ equal?))) - (_hash70345_ - (let ((_$e70342_ _hash70263_)) - (if _$e70342_ - _$e70342_ + (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_ (if (let () (declare (not safe)) - (eq? _test70340_ eq?)) + (eq? _test70337_ eq?)) eq?-hash (if (let () (declare (not safe)) - (eq? _test70340_ eqv?)) + (eq? _test70337_ eqv?)) eqv?-hash equal?-hash))))) - (_ht70347_ - (let ((__tmp72922 + (_ht70344_ + (let ((__tmp72919 (make-table 'size: - _size70335_ + _size70332_ 'test: - _test70340_ + _test70337_ 'hash: - _hash70345_ + _hash70342_ 'weak-keys: - _weak-keys70269_ + _weak-keys70266_ 'weak-values: - _weak-values70271_))) + _weak-values70268_))) (declare (not safe)) - (cast HashTable::interface __tmp72922)))) - (let ((__tmp72923 + (cast HashTable::interface __tmp72919)))) + (let ((__tmp72920 (let () (declare (not safe)) - (_wrap-lock70274_ _ht70347_)))) + (_wrap-lock70271_ _ht70344_)))) (declare (not safe)) - (_wrap-checked70275_ __tmp72923 true)))))) - (if (or _weak-keys70269_ _weak-values70271_) - (let () (declare (not safe)) (_make-gambit-table70278_)) + (_wrap-checked70272_ __tmp72920 true)))))) + (if (or _weak-keys70266_ _weak-values70268_) + (let () (declare (not safe)) (_make-gambit-table70275_)) (if (and (or (let () (declare (not safe)) - (eq? _test70261_ eq?)) + (eq? _test70258_ eq?)) (let () (declare (not safe)) - (eq? _test70261_ ##eq?))) - (or (let () (declare (not safe)) (not _hash70263_)) + (eq? _test70258_ ##eq?))) + (or (let () (declare (not safe)) (not _hash70260_)) (let () (declare (not safe)) - (eq? _hash70263_ eq?-hash)) + (eq? _hash70260_ eq?-hash)) (let () (declare (not safe)) - (eq? _hash70263_ eq-hash))) - (let () (declare (not safe)) (not _seed70259_))) - (let () (declare (not safe)) (_make-gc-hash-table70277_)) + (eq? _hash70260_ eq-hash))) + (let () (declare (not safe)) (not _seed70256_))) + (let () (declare (not safe)) (_make-gc-hash-table70274_)) (if (and (or (let () (declare (not safe)) - (eq? _test70261_ eq?)) + (eq? _test70258_ eq?)) (let () (declare (not safe)) - (eq? _test70261_ ##eq?))) + (eq? _test70258_ ##eq?))) (or (let () (declare (not safe)) - (not _hash70263_)) + (not _hash70260_)) (let () (declare (not safe)) - (eq? _hash70263_ eq?-hash)) + (eq? _hash70260_ eq?-hash)) (let () (declare (not safe)) - (eq? _hash70263_ eq-hash)))) + (eq? _hash70260_ eq-hash)))) (let () (declare (not safe)) - (_make70276_ make-eq-hash-table true eq-hash eq?)) + (_make70273_ make-eq-hash-table true eq-hash eq?)) (if (and (or (let () (declare (not safe)) - (eq? _test70261_ eqv?)) + (eq? _test70258_ eqv?)) (let () (declare (not safe)) - (eq? _test70261_ ##eqv?))) + (eq? _test70258_ ##eqv?))) (or (let () (declare (not safe)) - (not _hash70263_)) + (not _hash70260_)) (let () (declare (not safe)) - (eq? _hash70263_ eqv?-hash)) + (eq? _hash70260_ eqv?-hash)) (let () (declare (not safe)) - (eq? _hash70263_ eqv-hash)))) + (eq? _hash70260_ eqv-hash)))) (let () (declare (not safe)) - (_make70276_ + (_make70273_ make-eqv-hash-table true eqv-hash eqv?)) (if (and (or (let () (declare (not safe)) - (eq? _test70261_ eq?)) + (eq? _test70258_ eq?)) (let () (declare (not safe)) - (eq? _test70261_ ##eq?))) + (eq? _test70258_ ##eq?))) (or (let () (declare (not safe)) - (eq? _hash70263_ symbolic-hash)) + (eq? _hash70260_ symbolic-hash)) (let () (declare (not safe)) - (eq? _hash70263_ ##symbol-hash)))) + (eq? _hash70260_ ##symbol-hash)))) (let () (declare (not safe)) - (_make70276_ + (_make70273_ make-symbol-hash-table symbolic? symbolic-hash eq?)) (if (and (or (let () (declare (not safe)) - (eq? _test70261_ eq?)) + (eq? _test70258_ eq?)) (let () (declare (not safe)) - (eq? _test70261_ ##eq?))) + (eq? _test70258_ ##eq?))) (let () (declare (not safe)) - (eq? _hash70263_ immediate-hash))) + (eq? _hash70260_ immediate-hash))) (let () (declare (not safe)) - (_make70276_ + (_make70273_ make-immediate-hash-table immediate? immediate-hash eq?)) (if (and (or (let () (declare (not safe)) - (eq? _test70261_ equal?)) + (eq? _test70258_ equal?)) (let () (declare (not safe)) - (eq? _test70261_ ##equal?)) + (eq? _test70258_ ##equal?)) (let () (declare (not safe)) - (eq? _test70261_ string=?)) + (eq? _test70258_ string=?)) (let () (declare (not safe)) - (eq? _test70261_ + (eq? _test70258_ ##string=?))) (or (let () (declare (not safe)) - (eq? _hash70263_ + (eq? _hash70260_ string-hash)) (let () (declare (not safe)) - (eq? _hash70263_ + (eq? _hash70260_ ##string=?-hash)))) (let () (declare (not safe)) - (_make70276_ + (_make70273_ make-string-hash-table string? string-hash ##string=?)) (if (and (let () (declare (not safe)) - (eq? _test70261_ equal?)) + (eq? _test70258_ equal?)) (let () (declare (not safe)) - (not _hash70263_))) + (not _hash70260_))) (let () (declare (not safe)) - (_make70276_ + (_make70273_ make-generic-hash-table true equal?-hash equal?)) - (if (let ((__tmp72925 + (if (let ((__tmp72922 (let () (declare (not safe)) (procedure? - _test70261_)))) + _test70258_)))) (declare (not safe)) - (not __tmp72925)) + (not __tmp72922)) (let () (declare (not safe)) (error '"bad hash table test function; expected procedure" - _test70261_)) - (if (let ((__tmp72924 + _test70258_)) + (if (let ((__tmp72921 (let () (declare (not safe)) (procedure? - _hash70263_)))) + _hash70260_)))) (declare (not safe)) - (not __tmp72924)) + (not __tmp72921)) (let () (declare (not safe)) (error '"bad hash table hash function; expected procedure" - _hash70263_)) + _hash70260_)) (let () (declare (not safe)) - (_make70276_ + (_make70273_ make-generic-hash-table true - _hash70263_ - _test70261_)))))))))))))))) + _hash70260_ + _test70258_)))))))))))))))) (define make-hash-table__@ - (lambda (_keys7022970374_ . _args70376_) + (lambda (_keys7022670371_ . _args70373_) (apply make-hash-table__% - _keys7022970374_ + _keys7022670371_ (let () (declare (not safe)) - (symbolic-table-ref _keys7022970374_ 'size: absent-value)) + (symbolic-table-ref _keys7022670371_ 'size: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys7022970374_ 'seed: absent-value)) + (symbolic-table-ref _keys7022670371_ 'seed: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys7022970374_ 'test: absent-value)) + (symbolic-table-ref _keys7022670371_ 'test: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys7022970374_ 'hash: absent-value)) + (symbolic-table-ref _keys7022670371_ 'hash: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys7022970374_ 'lock: absent-value)) + (symbolic-table-ref _keys7022670371_ 'lock: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys7022970374_ 'check: absent-value)) + (symbolic-table-ref _keys7022670371_ 'check: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _keys7022970374_ + _keys7022670371_ 'weak-keys: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _keys7022970374_ + _keys7022670371_ 'weak-values: absent-value)) - _args70376_))) + _args70373_))) (define make-hash-table - (lambda _args7023870382_ + (lambda _args7023570379_ (apply keyword-dispatch '#(#f #f @@ -2170,710 +2170,710 @@ #f #f) make-hash-table__@ - _args7023870382_))) + _args7023570379_))) (define make-hash-table-eq - (lambda _args70226_ (apply make-hash-table 'test: eq? _args70226_))) + (lambda _args70223_ (apply make-hash-table 'test: eq? _args70223_))) (define make-hash-table-eqv - (lambda _args70224_ (apply make-hash-table 'test: eqv? _args70224_))) + (lambda _args70221_ (apply make-hash-table 'test: eqv? _args70221_))) (define make-hash-table-symbolic - (lambda _args70222_ - (apply make-hash-table 'test: eq? 'hash: symbolic-hash _args70222_))) + (lambda _args70219_ + (apply make-hash-table 'test: eq? 'hash: symbolic-hash _args70219_))) (define make-hash-table-string - (lambda _args70220_ + (lambda _args70217_ (apply make-hash-table 'test: string=? 'hash: string-hash - _args70220_))) + _args70217_))) (define make-hash-table-immediate - (lambda _args70218_ - (apply make-hash-table 'test: eq? 'hash: immediate-hash _args70218_))) + (lambda _args70215_ + (apply make-hash-table 'test: eq? 'hash: immediate-hash _args70215_))) (define list->hash-table - (lambda (_lst70215_ . _args70216_) - (let ((__tmp72926 - (apply make-hash-table 'size: (length _lst70215_) _args70216_))) - (declare (not safe)) - (list->hash-table! _lst70215_ __tmp72926)))) - (define list->hash-table-eq (lambda (_lst70212_ . _args70213_) - (let ((__tmp72927 - (apply make-hash-table-eq - 'size: - (length _lst70212_) - _args70213_))) + (let ((__tmp72923 + (apply make-hash-table 'size: (length _lst70212_) _args70213_))) (declare (not safe)) - (list->hash-table! _lst70212_ __tmp72927)))) - (define list->hash-table-eqv + (list->hash-table! _lst70212_ __tmp72923)))) + (define list->hash-table-eq (lambda (_lst70209_ . _args70210_) - (let ((__tmp72928 - (apply make-hash-table-eqv + (let ((__tmp72924 + (apply make-hash-table-eq 'size: (length _lst70209_) _args70210_))) (declare (not safe)) - (list->hash-table! _lst70209_ __tmp72928)))) - (define list->hash-table-symbolic + (list->hash-table! _lst70209_ __tmp72924)))) + (define list->hash-table-eqv (lambda (_lst70206_ . _args70207_) - (let ((__tmp72929 - (apply make-hash-table-symbolic + (let ((__tmp72925 + (apply make-hash-table-eqv 'size: (length _lst70206_) _args70207_))) (declare (not safe)) - (list->hash-table! _lst70206_ __tmp72929)))) - (define list->hash-table-string + (list->hash-table! _lst70206_ __tmp72925)))) + (define list->hash-table-symbolic (lambda (_lst70203_ . _args70204_) - (let ((__tmp72930 - (apply make-hash-table-string + (let ((__tmp72926 + (apply make-hash-table-symbolic 'size: (length _lst70203_) _args70204_))) (declare (not safe)) - (list->hash-table! _lst70203_ __tmp72930)))) + (list->hash-table! _lst70203_ __tmp72926)))) + (define list->hash-table-string + (lambda (_lst70200_ . _args70201_) + (let ((__tmp72927 + (apply make-hash-table-string + 'size: + (length _lst70200_) + _args70201_))) + (declare (not safe)) + (list->hash-table! _lst70200_ __tmp72927)))) (define list->hash-table! - (lambda (_lst70170_ _h70171_) + (lambda (_lst70167_ _h70168_) (for-each - (lambda (_el70173_) - (let* ((_el7017470181_ _el70173_) - (_E7017670185_ + (lambda (_el70170_) + (let* ((_el7017170178_ _el70170_) + (_E7017370182_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _el7017470181_)))) - (_K7017770191_ - (lambda (_v70188_ _k70189_) + (error '"No clause matching" _el7017170178_)))) + (_K7017470188_ + (lambda (_v70185_ _k70186_) (let () (declare (not safe)) - (&HashTable-set! _h70171_ _k70189_ _v70188_))))) - (if (let () (declare (not safe)) (##pair? _el7017470181_)) - (let ((_hd7017870194_ - (let () (declare (not safe)) (##car _el7017470181_))) - (_tl7017970196_ - (let () (declare (not safe)) (##cdr _el7017470181_)))) - (let* ((_k70199_ _hd7017870194_) (_v70201_ _tl7017970196_)) + (&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_)) (declare (not safe)) - (_K7017770191_ _v70201_ _k70199_))) - (let () (declare (not safe)) (_E7017670185_))))) - _lst70170_) - _h70171_)) + (_K7017470188_ _v70198_ _k70196_))) + (let () (declare (not safe)) (_E7017370182_))))) + _lst70167_) + _h70168_)) (define plist->hash-table - (lambda (_lst70167_ . _args70168_) - (let ((__tmp72931 - (apply make-hash-table 'size: (length _lst70167_) _args70168_))) - (declare (not safe)) - (plist->hash-table! _lst70167_ __tmp72931)))) - (define plist->hash-table-eq (lambda (_lst70164_ . _args70165_) - (let ((__tmp72932 - (apply make-hash-table-eq - 'size: - (length _lst70164_) - _args70165_))) + (let ((__tmp72928 + (apply make-hash-table 'size: (length _lst70164_) _args70165_))) (declare (not safe)) - (plist->hash-table! _lst70164_ __tmp72932)))) - (define plist->hash-table-eqv + (plist->hash-table! _lst70164_ __tmp72928)))) + (define plist->hash-table-eq (lambda (_lst70161_ . _args70162_) - (let ((__tmp72933 - (apply make-hash-table-eqv + (let ((__tmp72929 + (apply make-hash-table-eq 'size: (length _lst70161_) _args70162_))) (declare (not safe)) - (plist->hash-table! _lst70161_ __tmp72933)))) - (define plist->hash-table-symbolic + (plist->hash-table! _lst70161_ __tmp72929)))) + (define plist->hash-table-eqv (lambda (_lst70158_ . _args70159_) - (let ((__tmp72934 - (apply make-hash-table-symbolic + (let ((__tmp72930 + (apply make-hash-table-eqv 'size: (length _lst70158_) _args70159_))) (declare (not safe)) - (plist->hash-table! _lst70158_ __tmp72934)))) - (define plist->hash-table-string + (plist->hash-table! _lst70158_ __tmp72930)))) + (define plist->hash-table-symbolic (lambda (_lst70155_ . _args70156_) - (let ((__tmp72935 - (apply make-hash-table-string + (let ((__tmp72931 + (apply make-hash-table-symbolic 'size: (length _lst70155_) _args70156_))) (declare (not safe)) - (plist->hash-table! _lst70155_ __tmp72935)))) + (plist->hash-table! _lst70155_ __tmp72931)))) + (define plist->hash-table-string + (lambda (_lst70152_ . _args70153_) + (let ((__tmp72932 + (apply make-hash-table-string + 'size: + (length _lst70152_) + _args70153_))) + (declare (not safe)) + (plist->hash-table! _lst70152_ __tmp72932)))) (define plist->hash-table! - (lambda (_lst70095_ _h70096_) - (let _loop70098_ ((_rest70100_ _lst70095_)) - (let* ((_rest7010170113_ _rest70100_) - (_else7010470121_ + (lambda (_lst70092_ _h70093_) + (let _loop70095_ ((_rest70097_ _lst70092_)) + (let* ((_rest7009870110_ _rest70097_) + (_else7010170118_ (lambda () (let () (declare (not safe)) (error '"bad property list -- uneven list" - _lst70095_))))) - (let ((_K7010770136_ - (lambda (_rest70132_ _val70133_ _key70134_) + _lst70092_))))) + (let ((_K7010470133_ + (lambda (_rest70129_ _val70130_ _key70131_) (let () (declare (not safe)) - (&HashTable-set! _h70096_ _key70134_ _val70133_)) - (let () (declare (not safe)) (_loop70098_ _rest70132_)))) - (_K7010670126_ (lambda () _h70096_))) - (let ((_try-match7010370129_ + (&HashTable-set! _h70093_ _key70131_ _val70130_)) + (let () (declare (not safe)) (_loop70095_ _rest70129_)))) + (_K7010370123_ (lambda () _h70093_))) + (let ((_try-match7010070126_ (lambda () (if (let () (declare (not safe)) - (##null? _rest7010170113_)) - (let () (declare (not safe)) (_K7010670126_)) - (let () (declare (not safe)) (_else7010470121_)))))) - (if (let () (declare (not safe)) (##pair? _rest7010170113_)) - (let ((_tl7010970141_ + (##null? _rest7009870110_)) + (let () (declare (not safe)) (_K7010370123_)) + (let () (declare (not safe)) (_else7010170118_)))))) + (if (let () (declare (not safe)) (##pair? _rest7009870110_)) + (let ((_tl7010670138_ (let () (declare (not safe)) - (##cdr _rest7010170113_))) - (_hd7010870139_ + (##cdr _rest7009870110_))) + (_hd7010570136_ (let () (declare (not safe)) - (##car _rest7010170113_)))) + (##car _rest7009870110_)))) (if (let () (declare (not safe)) - (##pair? _tl7010970141_)) - (let ((_tl7011170148_ + (##pair? _tl7010670138_)) + (let ((_tl7010870145_ (let () (declare (not safe)) - (##cdr _tl7010970141_))) - (_hd7011070146_ + (##cdr _tl7010670138_))) + (_hd7010770143_ (let () (declare (not safe)) - (##car _tl7010970141_)))) - (let ((_key70144_ _hd7010870139_) - (_val70151_ _hd7011070146_) - (_rest70153_ _tl7011170148_)) + (##car _tl7010670138_)))) + (let ((_key70141_ _hd7010570136_) + (_val70148_ _hd7010770143_) + (_rest70150_ _tl7010870145_)) (let () (declare (not safe)) - (_K7010770136_ - _rest70153_ - _val70151_ - _key70144_)))) - (let () (declare (not safe)) (_else7010470121_)))) + (_K7010470133_ + _rest70150_ + _val70148_ + _key70141_)))) + (let () (declare (not safe)) (_else7010170118_)))) (let () (declare (not safe)) - (_try-match7010370129_))))))))) + (_try-match7010070126_))))))))) (define hash-length - (lambda (_h70091_) - (let ((_h70093_ - (if (and (let () (declare (not safe)) (##structure? _h70091_)) - (let ((__tmp72936 + (lambda (_h70088_) + (let ((_h70090_ + (if (and (let () (declare (not safe)) (##structure? _h70088_)) + (let ((__tmp72933 (let () (declare (not safe)) - (##structure-type _h70091_)))) + (##structure-type _h70088_)))) (declare (not safe)) - (eq? __tmp72936 HashTable::t))) - _h70091_ + (eq? __tmp72933 HashTable::t))) + _h70088_ (let () (declare (not safe)) - (cast HashTable::interface _h70091_))))) + (cast HashTable::interface _h70088_))))) (declare (not safe)) - (&HashTable-length _h70093_)))) + (&HashTable-length _h70090_)))) (define &hash-length - (lambda (_h70089_) - (let () (declare (not safe)) (&HashTable-length _h70089_)))) + (lambda (_h70086_) + (let () (declare (not safe)) (&HashTable-length _h70086_)))) (define hash-ref__% - (lambda (_h70071_ _key70072_ _default70073_) - (let ((_h70075_ - (if (and (let () (declare (not safe)) (##structure? _h70071_)) - (let ((__tmp72937 + (lambda (_h70068_ _key70069_ _default70070_) + (let ((_h70072_ + (if (and (let () (declare (not safe)) (##structure? _h70068_)) + (let ((__tmp72934 (let () (declare (not safe)) - (##structure-type _h70071_)))) + (##structure-type _h70068_)))) (declare (not safe)) - (eq? __tmp72937 HashTable::t))) - _h70071_ + (eq? __tmp72934 HashTable::t))) + _h70068_ (let () (declare (not safe)) - (cast HashTable::interface _h70071_))))) + (cast HashTable::interface _h70068_))))) (declare (not safe)) - (&hash-ref__% _h70075_ _key70072_ _default70073_)))) + (&hash-ref__% _h70072_ _key70069_ _default70070_)))) (define hash-ref__0 - (lambda (_h70080_ _key70081_) - (let ((_default70083_ (macro-absent-obj))) + (lambda (_h70077_ _key70078_) + (let ((_default70080_ (macro-absent-obj))) (declare (not safe)) - (hash-ref__% _h70080_ _key70081_ _default70083_)))) + (hash-ref__% _h70077_ _key70078_ _default70080_)))) (define hash-ref - (lambda _g72939_ - (let ((_g72938_ (let () (declare (not safe)) (##length _g72939_)))) - (cond ((let () (declare (not safe)) (##fx= _g72938_ 2)) - (apply (lambda (_h70080_ _key70081_) + (lambda _g72936_ + (let ((_g72935_ (let () (declare (not safe)) (##length _g72936_)))) + (cond ((let () (declare (not safe)) (##fx= _g72935_ 2)) + (apply (lambda (_h70077_ _key70078_) (let () (declare (not safe)) - (hash-ref__0 _h70080_ _key70081_))) - _g72939_)) - ((let () (declare (not safe)) (##fx= _g72938_ 3)) - (apply (lambda (_h70085_ _key70086_ _default70087_) + (hash-ref__0 _h70077_ _key70078_))) + _g72936_)) + ((let () (declare (not safe)) (##fx= _g72935_ 3)) + (apply (lambda (_h70082_ _key70083_ _default70084_) (let () (declare (not safe)) - (hash-ref__% _h70085_ _key70086_ _default70087_))) - _g72939_)) + (hash-ref__% _h70082_ _key70083_ _default70084_))) + _g72936_)) (else (##raise-wrong-number-of-arguments-exception hash-ref - _g72939_)))))) + _g72936_)))))) (define &hash-ref__% - (lambda (_h70052_ _key70053_ _default70054_) - (let ((_result70056_ + (lambda (_h70049_ _key70050_ _default70051_) + (let ((_result70053_ (let () (declare (not safe)) - (&HashTable-ref _h70052_ _key70053_ _default70054_)))) - (if (let ((__tmp72940 (macro-absent-obj))) + (&HashTable-ref _h70049_ _key70050_ _default70051_)))) + (if (let ((__tmp72937 (macro-absent-obj))) (declare (not safe)) - (eq? _result70056_ __tmp72940)) + (eq? _result70053_ __tmp72937)) (let () (declare (not safe)) (raise-unbound-key-error 'hash-ref '"unknown hash key" 'hash: - _h70052_ + _h70049_ 'key: - _key70053_)) - _result70056_)))) + _key70050_)) + _result70053_)))) (define &hash-ref__0 - (lambda (_h70061_ _key70062_) - (let ((_default70064_ (macro-absent-obj))) + (lambda (_h70058_ _key70059_) + (let ((_default70061_ (macro-absent-obj))) (declare (not safe)) - (&hash-ref__% _h70061_ _key70062_ _default70064_)))) + (&hash-ref__% _h70058_ _key70059_ _default70061_)))) (define &hash-ref - (lambda _g72942_ - (let ((_g72941_ (let () (declare (not safe)) (##length _g72942_)))) - (cond ((let () (declare (not safe)) (##fx= _g72941_ 2)) - (apply (lambda (_h70061_ _key70062_) + (lambda _g72939_ + (let ((_g72938_ (let () (declare (not safe)) (##length _g72939_)))) + (cond ((let () (declare (not safe)) (##fx= _g72938_ 2)) + (apply (lambda (_h70058_ _key70059_) (let () (declare (not safe)) - (&hash-ref__0 _h70061_ _key70062_))) - _g72942_)) - ((let () (declare (not safe)) (##fx= _g72941_ 3)) - (apply (lambda (_h70066_ _key70067_ _default70068_) + (&hash-ref__0 _h70058_ _key70059_))) + _g72939_)) + ((let () (declare (not safe)) (##fx= _g72938_ 3)) + (apply (lambda (_h70063_ _key70064_ _default70065_) (let () (declare (not safe)) - (&hash-ref__% _h70066_ _key70067_ _default70068_))) - _g72942_)) + (&hash-ref__% _h70063_ _key70064_ _default70065_))) + _g72939_)) (else (##raise-wrong-number-of-arguments-exception &hash-ref - _g72942_)))))) + _g72939_)))))) (define hash-get - (lambda (_h70046_ _key70047_) - (let ((_h70049_ - (if (and (let () (declare (not safe)) (##structure? _h70046_)) - (let ((__tmp72943 + (lambda (_h70043_ _key70044_) + (let ((_h70046_ + (if (and (let () (declare (not safe)) (##structure? _h70043_)) + (let ((__tmp72940 (let () (declare (not safe)) - (##structure-type _h70046_)))) + (##structure-type _h70043_)))) (declare (not safe)) - (eq? __tmp72943 HashTable::t))) - _h70046_ + (eq? __tmp72940 HashTable::t))) + _h70043_ (let () (declare (not safe)) - (cast HashTable::interface _h70046_))))) + (cast HashTable::interface _h70043_))))) (declare (not safe)) - (&hash-get _h70049_ _key70047_)))) + (&hash-get _h70046_ _key70044_)))) (define &hash-get - (lambda (_h70043_ _key70044_) + (lambda (_h70040_ _key70041_) (let () (declare (not safe)) - (&HashTable-ref _h70043_ _key70044_ '#f)))) + (&HashTable-ref _h70040_ _key70041_ '#f)))) (define hash-put! - (lambda (_h70037_ _key70038_ _value70039_) - (let ((_h70041_ - (if (and (let () (declare (not safe)) (##structure? _h70037_)) - (let ((__tmp72944 + (lambda (_h70034_ _key70035_ _value70036_) + (let ((_h70038_ + (if (and (let () (declare (not safe)) (##structure? _h70034_)) + (let ((__tmp72941 (let () (declare (not safe)) - (##structure-type _h70037_)))) + (##structure-type _h70034_)))) (declare (not safe)) - (eq? __tmp72944 HashTable::t))) - _h70037_ + (eq? __tmp72941 HashTable::t))) + _h70034_ (let () (declare (not safe)) - (cast HashTable::interface _h70037_))))) + (cast HashTable::interface _h70034_))))) (declare (not safe)) - (&HashTable-set! _h70041_ _key70038_ _value70039_)))) + (&HashTable-set! _h70038_ _key70035_ _value70036_)))) (define &hash-put! - (lambda (_h70033_ _key70034_ _value70035_) + (lambda (_h70030_ _key70031_ _value70032_) (let () (declare (not safe)) - (&HashTable-set! _h70033_ _key70034_ _value70035_)))) + (&HashTable-set! _h70030_ _key70031_ _value70032_)))) (define hash-update!__% - (lambda (_h70012_ _key70013_ _update70014_ _default70015_) - (let ((_h70017_ - (if (and (let () (declare (not safe)) (##structure? _h70012_)) - (let ((__tmp72945 + (lambda (_h70009_ _key70010_ _update70011_ _default70012_) + (let ((_h70014_ + (if (and (let () (declare (not safe)) (##structure? _h70009_)) + (let ((__tmp72942 (let () (declare (not safe)) - (##structure-type _h70012_)))) + (##structure-type _h70009_)))) (declare (not safe)) - (eq? __tmp72945 HashTable::t))) - _h70012_ + (eq? __tmp72942 HashTable::t))) + _h70009_ (let () (declare (not safe)) - (cast HashTable::interface _h70012_))))) + (cast HashTable::interface _h70009_))))) (declare (not safe)) (&HashTable-update! - _h70017_ - _key70013_ - _update70014_ - _default70015_)))) + _h70014_ + _key70010_ + _update70011_ + _default70012_)))) (define hash-update!__0 - (lambda (_h70022_ _key70023_ _update70024_) - (let ((_default70026_ '#!void)) + (lambda (_h70019_ _key70020_ _update70021_) + (let ((_default70023_ '#!void)) (declare (not safe)) - (hash-update!__% _h70022_ _key70023_ _update70024_ _default70026_)))) + (hash-update!__% _h70019_ _key70020_ _update70021_ _default70023_)))) (define hash-update! - (lambda _g72947_ - (let ((_g72946_ (let () (declare (not safe)) (##length _g72947_)))) - (cond ((let () (declare (not safe)) (##fx= _g72946_ 3)) - (apply (lambda (_h70022_ _key70023_ _update70024_) + (lambda _g72944_ + (let ((_g72943_ (let () (declare (not safe)) (##length _g72944_)))) + (cond ((let () (declare (not safe)) (##fx= _g72943_ 3)) + (apply (lambda (_h70019_ _key70020_ _update70021_) (let () (declare (not safe)) (hash-update!__0 - _h70022_ - _key70023_ - _update70024_))) - _g72947_)) - ((let () (declare (not safe)) (##fx= _g72946_ 4)) - (apply (lambda (_h70028_ - _key70029_ - _update70030_ - _default70031_) + _h70019_ + _key70020_ + _update70021_))) + _g72944_)) + ((let () (declare (not safe)) (##fx= _g72943_ 4)) + (apply (lambda (_h70025_ + _key70026_ + _update70027_ + _default70028_) (let () (declare (not safe)) (hash-update!__% - _h70028_ - _key70029_ - _update70030_ - _default70031_))) - _g72947_)) + _h70025_ + _key70026_ + _update70027_ + _default70028_))) + _g72944_)) (else (##raise-wrong-number-of-arguments-exception hash-update! - _g72947_)))))) + _g72944_)))))) (define &hash-update!__% - (lambda (_h69992_ _key69993_ _update69994_ _default69995_) + (lambda (_h69989_ _key69990_ _update69991_ _default69992_) (let () (declare (not safe)) (&HashTable-update! - _h69992_ - _key69993_ - _update69994_ - _default69995_)))) + _h69989_ + _key69990_ + _update69991_ + _default69992_)))) (define &hash-update!__0 - (lambda (_h70000_ _key70001_ _update70002_) - (let ((_default70004_ '#!void)) + (lambda (_h69997_ _key69998_ _update69999_) + (let ((_default70001_ '#!void)) (declare (not safe)) (&HashTable-update! - _h70000_ - _key70001_ - _update70002_ - _default70004_)))) + _h69997_ + _key69998_ + _update69999_ + _default70001_)))) (define &hash-update! - (lambda _g72949_ - (let ((_g72948_ (let () (declare (not safe)) (##length _g72949_)))) - (cond ((let () (declare (not safe)) (##fx= _g72948_ 3)) - (apply (lambda (_h70000_ _key70001_ _update70002_) + (lambda _g72946_ + (let ((_g72945_ (let () (declare (not safe)) (##length _g72946_)))) + (cond ((let () (declare (not safe)) (##fx= _g72945_ 3)) + (apply (lambda (_h69997_ _key69998_ _update69999_) (let () (declare (not safe)) (&hash-update!__0 - _h70000_ - _key70001_ - _update70002_))) - _g72949_)) - ((let () (declare (not safe)) (##fx= _g72948_ 4)) - (apply (lambda (_h70006_ - _key70007_ - _update70008_ - _default70009_) + _h69997_ + _key69998_ + _update69999_))) + _g72946_)) + ((let () (declare (not safe)) (##fx= _g72945_ 4)) + (apply (lambda (_h70003_ + _key70004_ + _update70005_ + _default70006_) (let () (declare (not safe)) (&HashTable-update! - _h70006_ - _key70007_ - _update70008_ - _default70009_))) - _g72949_)) + _h70003_ + _key70004_ + _update70005_ + _default70006_))) + _g72946_)) (else (##raise-wrong-number-of-arguments-exception &hash-update! - _g72949_)))))) + _g72946_)))))) (define hash-remove! - (lambda (_h69986_ _key69987_) - (let ((_h69989_ - (if (and (let () (declare (not safe)) (##structure? _h69986_)) - (let ((__tmp72950 + (lambda (_h69983_ _key69984_) + (let ((_h69986_ + (if (and (let () (declare (not safe)) (##structure? _h69983_)) + (let ((__tmp72947 (let () (declare (not safe)) - (##structure-type _h69986_)))) + (##structure-type _h69983_)))) (declare (not safe)) - (eq? __tmp72950 HashTable::t))) - _h69986_ + (eq? __tmp72947 HashTable::t))) + _h69983_ (let () (declare (not safe)) - (cast HashTable::interface _h69986_))))) + (cast HashTable::interface _h69983_))))) (declare (not safe)) - (&HashTable-delete! _h69989_ _key69987_)))) + (&HashTable-delete! _h69986_ _key69984_)))) (define &hash-remove! - (lambda (_h69983_ _key69984_) + (lambda (_h69980_ _key69981_) (let () (declare (not safe)) - (&HashTable-delete! _h69983_ _key69984_)))) + (&HashTable-delete! _h69980_ _key69981_)))) (define hash-key? - (lambda (_h69978_ _k69979_) - (let ((_h69981_ - (if (and (let () (declare (not safe)) (##structure? _h69978_)) - (let ((__tmp72951 + (lambda (_h69975_ _k69976_) + (let ((_h69978_ + (if (and (let () (declare (not safe)) (##structure? _h69975_)) + (let ((__tmp72948 (let () (declare (not safe)) - (##structure-type _h69978_)))) + (##structure-type _h69975_)))) (declare (not safe)) - (eq? __tmp72951 HashTable::t))) - _h69978_ + (eq? __tmp72948 HashTable::t))) + _h69975_ (let () (declare (not safe)) - (cast HashTable::interface _h69978_))))) + (cast HashTable::interface _h69975_))))) (declare (not safe)) - (&hash-key? _h69981_ _k69979_)))) + (&hash-key? _h69978_ _k69976_)))) (define &hash-key? - (lambda (_h69975_ _k69976_) - (let ((__tmp72952 - (let ((__tmp72953 + (lambda (_h69972_ _k69973_) + (let ((__tmp72949 + (let ((__tmp72950 (let () (declare (not safe)) - (&HashTable-ref _h69975_ _k69976_ absent-value)))) + (&HashTable-ref _h69972_ _k69973_ absent-value)))) (declare (not safe)) - (eq? __tmp72953 absent-value)))) + (eq? __tmp72950 absent-value)))) (declare (not safe)) - (not __tmp72952)))) + (not __tmp72949)))) (define hash->list - (lambda (_h69971_) - (let ((_h69973_ - (if (and (let () (declare (not safe)) (##structure? _h69971_)) - (let ((__tmp72954 + (lambda (_h69968_) + (let ((_h69970_ + (if (and (let () (declare (not safe)) (##structure? _h69968_)) + (let ((__tmp72951 (let () (declare (not safe)) - (##structure-type _h69971_)))) + (##structure-type _h69968_)))) (declare (not safe)) - (eq? __tmp72954 HashTable::t))) - _h69971_ + (eq? __tmp72951 HashTable::t))) + _h69968_ (let () (declare (not safe)) - (cast HashTable::interface _h69971_))))) + (cast HashTable::interface _h69968_))))) (declare (not safe)) - (&hash->list _h69973_)))) + (&hash->list _h69970_)))) (define &hash->list - (lambda (_h69964_) - (let ((_lst69966_ '())) - (let ((__tmp72955 - (lambda (_k69968_ _v69969_) - (set! _lst69966_ - (let ((__tmp72956 + (lambda (_h69961_) + (let ((_lst69963_ '())) + (let ((__tmp72952 + (lambda (_k69965_ _v69966_) + (set! _lst69963_ + (let ((__tmp72953 (let () (declare (not safe)) - (cons _k69968_ _v69969_)))) + (cons _k69965_ _v69966_)))) (declare (not safe)) - (cons __tmp72956 _lst69966_)))))) + (cons __tmp72953 _lst69963_)))))) (declare (not safe)) - (&HashTable-for-each _h69964_ __tmp72955)) - _lst69966_))) + (&HashTable-for-each _h69961_ __tmp72952)) + _lst69963_))) (define hash->plist - (lambda (_h69960_) - (let ((_h69962_ - (if (and (let () (declare (not safe)) (##structure? _h69960_)) - (let ((__tmp72957 + (lambda (_h69957_) + (let ((_h69959_ + (if (and (let () (declare (not safe)) (##structure? _h69957_)) + (let ((__tmp72954 (let () (declare (not safe)) - (##structure-type _h69960_)))) + (##structure-type _h69957_)))) (declare (not safe)) - (eq? __tmp72957 HashTable::t))) - _h69960_ + (eq? __tmp72954 HashTable::t))) + _h69957_ (let () (declare (not safe)) - (cast HashTable::interface _h69960_))))) + (cast HashTable::interface _h69957_))))) (declare (not safe)) - (&hash->plist _h69962_)))) + (&hash->plist _h69959_)))) (define &hash->plist - (lambda (_h69953_) - (let ((_lst69955_ '())) - (let ((__tmp72958 - (lambda (_k69957_ _v69958_) - (set! _lst69955_ - (let ((__tmp72959 + (lambda (_h69950_) + (let ((_lst69952_ '())) + (let ((__tmp72955 + (lambda (_k69954_ _v69955_) + (set! _lst69952_ + (let ((__tmp72956 (let () (declare (not safe)) - (cons _v69958_ _lst69955_)))) + (cons _v69955_ _lst69952_)))) (declare (not safe)) - (cons _k69957_ __tmp72959)))))) + (cons _k69954_ __tmp72956)))))) (declare (not safe)) - (&HashTable-for-each _h69953_ __tmp72958)) - _lst69955_))) + (&HashTable-for-each _h69950_ __tmp72955)) + _lst69952_))) (define hash-for-each - (lambda (_proc69950_ _h69951_) + (lambda (_proc69947_ _h69948_) (let () (declare (not safe)) - (HashTable-for-each _h69951_ _proc69950_)))) + (HashTable-for-each _h69948_ _proc69947_)))) (define hash-map - (lambda (_proc69942_ _h69943_) - (let ((_result69945_ '())) - (let ((__tmp72960 - (lambda (_k69947_ _v69948_) - (set! _result69945_ - (let ((__tmp72961 (_proc69942_ _k69947_ _v69948_))) + (lambda (_proc69939_ _h69940_) + (let ((_result69942_ '())) + (let ((__tmp72957 + (lambda (_k69944_ _v69945_) + (set! _result69942_ + (let ((__tmp72958 (_proc69939_ _k69944_ _v69945_))) (declare (not safe)) - (cons __tmp72961 _result69945_)))))) + (cons __tmp72958 _result69942_)))))) (declare (not safe)) - (HashTable-for-each _h69943_ __tmp72960)) - _result69945_))) + (HashTable-for-each _h69940_ __tmp72957)) + _result69942_))) (define hash-fold - (lambda (_proc69933_ _iv69934_ _h69935_) - (let ((_result69937_ _iv69934_)) - (let ((__tmp72962 - (lambda (_k69939_ _v69940_) - (set! _result69937_ - (_proc69933_ _k69939_ _v69940_ _result69937_))))) + (lambda (_proc69930_ _iv69931_ _h69932_) + (let ((_result69934_ _iv69931_)) + (let ((__tmp72959 + (lambda (_k69936_ _v69937_) + (set! _result69934_ + (_proc69930_ _k69936_ _v69937_ _result69934_))))) (declare (not safe)) - (HashTable-for-each _h69935_ __tmp72962)) - _result69937_))) + (HashTable-for-each _h69932_ __tmp72959)) + _result69934_))) (define hash-find__% - (lambda (_proc69909_ _h69910_ _default-value69911_) + (lambda (_proc69906_ _h69907_ _default-value69908_) (call-with-current-continuation - (lambda (_return69913_) - (let ((__tmp72963 - (lambda (_k69915_ _v69916_) - (let ((_$e69918_ (_proc69909_ _k69915_ _v69916_))) - (if _$e69918_ (_return69913_ _$e69918_) '#!void))))) + (lambda (_return69910_) + (let ((__tmp72960 + (lambda (_k69912_ _v69913_) + (let ((_$e69915_ (_proc69906_ _k69912_ _v69913_))) + (if _$e69915_ (_return69910_ _$e69915_) '#!void))))) (declare (not safe)) - (HashTable-for-each _h69910_ __tmp72963)) - _default-value69911_)))) + (HashTable-for-each _h69907_ __tmp72960)) + _default-value69908_)))) (define hash-find__0 - (lambda (_proc69924_ _h69925_) - (let ((_default-value69927_ '#f)) + (lambda (_proc69921_ _h69922_) + (let ((_default-value69924_ '#f)) (declare (not safe)) - (hash-find__% _proc69924_ _h69925_ _default-value69927_)))) + (hash-find__% _proc69921_ _h69922_ _default-value69924_)))) (define hash-find - (lambda _g72965_ - (let ((_g72964_ (let () (declare (not safe)) (##length _g72965_)))) - (cond ((let () (declare (not safe)) (##fx= _g72964_ 2)) - (apply (lambda (_proc69924_ _h69925_) + (lambda _g72962_ + (let ((_g72961_ (let () (declare (not safe)) (##length _g72962_)))) + (cond ((let () (declare (not safe)) (##fx= _g72961_ 2)) + (apply (lambda (_proc69921_ _h69922_) (let () (declare (not safe)) - (hash-find__0 _proc69924_ _h69925_))) - _g72965_)) - ((let () (declare (not safe)) (##fx= _g72964_ 3)) - (apply (lambda (_proc69929_ _h69930_ _default-value69931_) + (hash-find__0 _proc69921_ _h69922_))) + _g72962_)) + ((let () (declare (not safe)) (##fx= _g72961_ 3)) + (apply (lambda (_proc69926_ _h69927_ _default-value69928_) (let () (declare (not safe)) (hash-find__% - _proc69929_ - _h69930_ - _default-value69931_))) - _g72965_)) + _proc69926_ + _h69927_ + _default-value69928_))) + _g72962_)) (else (##raise-wrong-number-of-arguments-exception hash-find - _g72965_)))))) + _g72962_)))))) (define hash-keys - (lambda (_h69904_) - (let ((_h69906_ - (if (and (let () (declare (not safe)) (##structure? _h69904_)) - (let ((__tmp72966 + (lambda (_h69901_) + (let ((_h69903_ + (if (and (let () (declare (not safe)) (##structure? _h69901_)) + (let ((__tmp72963 (let () (declare (not safe)) - (##structure-type _h69904_)))) + (##structure-type _h69901_)))) (declare (not safe)) - (eq? __tmp72966 HashTable::t))) - _h69904_ + (eq? __tmp72963 HashTable::t))) + _h69901_ (let () (declare (not safe)) - (cast HashTable::interface _h69904_))))) + (cast HashTable::interface _h69901_))))) (declare (not safe)) - (&hash-keys _h69906_)))) + (&hash-keys _h69903_)))) (define &hash-keys - (lambda (_h69897_) - (let ((_result69899_ '())) - (let ((__tmp72967 - (lambda (_k69901_ _v69902_) - (set! _result69899_ + (lambda (_h69894_) + (let ((_result69896_ '())) + (let ((__tmp72964 + (lambda (_k69898_ _v69899_) + (set! _result69896_ (let () (declare (not safe)) - (cons _k69901_ _result69899_)))))) + (cons _k69898_ _result69896_)))))) (declare (not safe)) - (&HashTable-for-each _h69897_ __tmp72967)) - _result69899_))) + (&HashTable-for-each _h69894_ __tmp72964)) + _result69896_))) (define hash-values - (lambda (_h69893_) - (let ((_h69895_ - (if (and (let () (declare (not safe)) (##structure? _h69893_)) - (let ((__tmp72968 + (lambda (_h69890_) + (let ((_h69892_ + (if (and (let () (declare (not safe)) (##structure? _h69890_)) + (let ((__tmp72965 (let () (declare (not safe)) - (##structure-type _h69893_)))) + (##structure-type _h69890_)))) (declare (not safe)) - (eq? __tmp72968 HashTable::t))) - _h69893_ + (eq? __tmp72965 HashTable::t))) + _h69890_ (let () (declare (not safe)) - (cast HashTable::interface _h69893_))))) + (cast HashTable::interface _h69890_))))) (declare (not safe)) - (&hash-values _h69895_)))) + (&hash-values _h69892_)))) (define &hash-values - (lambda (_h69886_) - (let ((_result69888_ '())) - (let ((__tmp72969 - (lambda (_k69890_ _v69891_) - (set! _result69888_ + (lambda (_h69883_) + (let ((_result69885_ '())) + (let ((__tmp72966 + (lambda (_k69887_ _v69888_) + (set! _result69885_ (let () (declare (not safe)) - (cons _v69891_ _result69888_)))))) + (cons _v69888_ _result69885_)))))) (declare (not safe)) - (&HashTable-for-each _h69886_ __tmp72969)) - _result69888_))) + (&HashTable-for-each _h69883_ __tmp72966)) + _result69885_))) (define hash-copy - (lambda (_h69882_) - (let ((_h69884_ - (if (and (let () (declare (not safe)) (##structure? _h69882_)) - (let ((__tmp72970 + (lambda (_h69879_) + (let ((_h69881_ + (if (and (let () (declare (not safe)) (##structure? _h69879_)) + (let ((__tmp72967 (let () (declare (not safe)) - (##structure-type _h69882_)))) + (##structure-type _h69879_)))) (declare (not safe)) - (eq? __tmp72970 HashTable::t))) - _h69882_ + (eq? __tmp72967 HashTable::t))) + _h69879_ (let () (declare (not safe)) - (cast HashTable::interface _h69882_))))) + (cast HashTable::interface _h69879_))))) (declare (not safe)) - (&HashTable-copy _h69884_)))) + (&HashTable-copy _h69881_)))) (define &hash-copy - (lambda (_h69880_) - (let () (declare (not safe)) (&HashTable-copy _h69880_)))) + (lambda (_h69877_) + (let () (declare (not safe)) (&HashTable-copy _h69877_)))) (define hash-merge - (lambda (_h69875_ . _rest69876_) - (let ((_copy69878_ (let () (declare (not safe)) (hash-copy _h69875_)))) - (apply hash-merge! _copy69878_ _rest69876_) - _copy69878_))) + (lambda (_h69872_ . _rest69873_) + (let ((_copy69875_ (let () (declare (not safe)) (hash-copy _h69872_)))) + (apply hash-merge! _copy69875_ _rest69873_) + _copy69875_))) (define hash-merge! - (lambda (_h69865_ . _rest69866_) - (let ((_h69868_ + (lambda (_h69862_ . _rest69863_) + (let ((_h69865_ (let () (declare (not safe)) - (cast HashTable::interface _h69865_)))) + (cast HashTable::interface _h69862_)))) (for-each - (lambda (_hr69870_) - (let ((__tmp72971 - (lambda (_k69872_ _v69873_) + (lambda (_hr69867_) + (let ((__tmp72968 + (lambda (_k69869_ _v69870_) (if (let () (declare (not safe)) - (&hash-key? _h69868_ _k69872_)) + (&hash-key? _h69865_ _k69869_)) '#!void (let () (declare (not safe)) - (&HashTable-set! _h69868_ _k69872_ _v69873_)))))) + (&HashTable-set! _h69865_ _k69869_ _v69870_)))))) (declare (not safe)) - (hash-for-each __tmp72971 _hr69870_))) - _rest69866_) - _h69868_))))) + (hash-for-each __tmp72968 _hr69867_))) + _rest69863_) + _h69865_))))) diff --git a/src/bootstrap/gerbil/runtime/hash__1.scm b/src/bootstrap/gerbil/runtime/hash__1.scm index 0d9058b7..c62b075c 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]#_g72974_| + (define |[1]#_g72971_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g72976_| + (define |[1]#_g72973_| (##structure gx#syntax-quote::t 'UnboundKeyError::t #f (gx#current-expander-context) '())) - (define |[1]#_g72978_| + (define |[1]#_g72975_| (##structure gx#syntax-quote::t 'make-UnboundKeyError #f (gx#current-expander-context) '())) - (define |[1]#_g72980_| + (define |[1]#_g72977_| (##structure gx#syntax-quote::t 'UnboundKeyError? #f (gx#current-expander-context) '())) - (define |[1]#_g72987_| + (define |[1]#_g72984_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g72990_| + (define |[1]#_g72987_| (##structure gx#syntax-quote::t 'UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g72993_| + (define |[1]#_g72990_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g72996_| + (define |[1]#_g72993_| (##structure gx#syntax-quote::t 'UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g73003_| + (define |[1]#_g73000_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73006_| + (define |[1]#_g73003_| (##structure gx#syntax-quote::t 'UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73009_| + (define |[1]#_g73006_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73012_| + (define |[1]#_g73009_| (##structure gx#syntax-quote::t 'UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73019_| + (define |[1]#_g73016_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g73022_| + (define |[1]#_g73019_| (##structure gx#syntax-quote::t '&UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g73025_| + (define |[1]#_g73022_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g73028_| + (define |[1]#_g73025_| (##structure gx#syntax-quote::t '&UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g73035_| + (define |[1]#_g73032_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73038_| + (define |[1]#_g73035_| (##structure gx#syntax-quote::t '&UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73041_| + (define |[1]#_g73038_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73044_| + (define |[1]#_g73041_| (##structure gx#syntax-quote::t '&UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73046_| + (define |[1]#_g73043_| (##structure gx#syntax-quote::t 'locked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g73048_| + (define |[1]#_g73045_| (##structure gx#syntax-quote::t 'make-locked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g73050_| + (define |[1]#_g73047_| (##structure gx#syntax-quote::t 'locked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g73055_| + (define |[1]#_g73052_| (##structure gx#syntax-quote::t 'locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g73058_| + (define |[1]#_g73055_| (##structure gx#syntax-quote::t 'locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g73063_| + (define |[1]#_g73060_| (##structure gx#syntax-quote::t 'locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73066_| + (define |[1]#_g73063_| (##structure gx#syntax-quote::t 'locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73071_| + (define |[1]#_g73068_| (##structure gx#syntax-quote::t '&locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g73074_| + (define |[1]#_g73071_| (##structure gx#syntax-quote::t '&locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g73079_| + (define |[1]#_g73076_| (##structure gx#syntax-quote::t '&locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73082_| + (define |[1]#_g73079_| (##structure gx#syntax-quote::t '&locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73084_| + (define |[1]#_g73081_| (##structure gx#syntax-quote::t 'checked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g73086_| + (define |[1]#_g73083_| (##structure gx#syntax-quote::t 'make-checked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g73088_| + (define |[1]#_g73085_| (##structure gx#syntax-quote::t 'checked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g73093_| + (define |[1]#_g73090_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g73096_| + (define |[1]#_g73093_| (##structure gx#syntax-quote::t 'checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g73101_| + (define |[1]#_g73098_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73104_| + (define |[1]#_g73101_| (##structure gx#syntax-quote::t 'checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73109_| + (define |[1]#_g73106_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g73112_| + (define |[1]#_g73109_| (##structure gx#syntax-quote::t '&checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g73117_| + (define |[1]#_g73114_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73120_| + (define |[1]#_g73117_| (##structure gx#syntax-quote::t '&checked-hash-table-table-set! @@ -296,7 +296,7 @@ '())) (begin (define |[:0:]#UnboundKeyError| - (let ((__obj72838 + (let ((__obj72835 (let () (declare (not safe)) (##structure @@ -319,7 +319,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72838 + __obj72835 '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! - __obj72838 + __obj72835 'UnboundKeyError '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -335,26 +335,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72838 + __obj72835 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp72972 - (let ((__tmp72973 |[1]#_g72974_|)) + (let ((__tmp72969 + (let ((__tmp72970 |[1]#_g72971_|)) (declare (not safe)) - (cons __tmp72973 '())))) + (cons __tmp72970 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj72838 - __tmp72972 + __obj72835 + __tmp72969 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj72838 + __obj72835 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -362,7 +362,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72838 + __obj72835 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -370,7 +370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72838 + __obj72835 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -378,178 +378,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72838 + __obj72835 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp72975 |[1]#_g72976_|)) + (let ((__tmp72972 |[1]#_g72973_|)) (declare (not safe)) (##unchecked-structure-set! - __obj72838 - __tmp72975 + __obj72835 + __tmp72972 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp72977 |[1]#_g72978_|)) + (let ((__tmp72974 |[1]#_g72975_|)) (declare (not safe)) (##unchecked-structure-set! - __obj72838 - __tmp72977 + __obj72835 + __tmp72974 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp72979 |[1]#_g72980_|)) + (let ((__tmp72976 |[1]#_g72977_|)) (declare (not safe)) (##unchecked-structure-set! - __obj72838 - __tmp72979 + __obj72835 + __tmp72976 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp72981 - (let ((__tmp72994 - (let ((__tmp72995 |[1]#_g72996_|)) + (let ((__tmp72978 + (let ((__tmp72991 + (let ((__tmp72992 |[1]#_g72993_|)) (declare (not safe)) - (cons 'message __tmp72995))) - (__tmp72982 - (let ((__tmp72991 - (let ((__tmp72992 |[1]#_g72993_|)) + (cons 'message __tmp72992))) + (__tmp72979 + (let ((__tmp72988 + (let ((__tmp72989 |[1]#_g72990_|)) (declare (not safe)) - (cons 'irritants __tmp72992))) - (__tmp72983 - (let ((__tmp72988 - (let ((__tmp72989 |[1]#_g72990_|)) + (cons 'irritants __tmp72989))) + (__tmp72980 + (let ((__tmp72985 + (let ((__tmp72986 |[1]#_g72987_|)) (declare (not safe)) - (cons 'where __tmp72989))) - (__tmp72984 - (let ((__tmp72985 - (let ((__tmp72986 |[1]#_g72987_|)) + (cons 'where __tmp72986))) + (__tmp72981 + (let ((__tmp72982 + (let ((__tmp72983 |[1]#_g72984_|)) (declare (not safe)) - (cons 'continuation __tmp72986)))) + (cons 'continuation __tmp72983)))) (declare (not safe)) - (cons __tmp72985 '())))) + (cons __tmp72982 '())))) (declare (not safe)) - (cons __tmp72988 __tmp72984)))) + (cons __tmp72985 __tmp72981)))) (declare (not safe)) - (cons __tmp72991 __tmp72983)))) + (cons __tmp72988 __tmp72980)))) (declare (not safe)) - (cons __tmp72994 __tmp72982)))) + (cons __tmp72991 __tmp72979)))) (declare (not safe)) (##unchecked-structure-set! - __obj72838 - __tmp72981 + __obj72835 + __tmp72978 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp72997 - (let ((__tmp73010 - (let ((__tmp73011 |[1]#_g73012_|)) + (let ((__tmp72994 + (let ((__tmp73007 + (let ((__tmp73008 |[1]#_g73009_|)) (declare (not safe)) - (cons 'message __tmp73011))) - (__tmp72998 - (let ((__tmp73007 - (let ((__tmp73008 |[1]#_g73009_|)) + (cons 'message __tmp73008))) + (__tmp72995 + (let ((__tmp73004 + (let ((__tmp73005 |[1]#_g73006_|)) (declare (not safe)) - (cons 'irritants __tmp73008))) - (__tmp72999 - (let ((__tmp73004 - (let ((__tmp73005 |[1]#_g73006_|)) + (cons 'irritants __tmp73005))) + (__tmp72996 + (let ((__tmp73001 + (let ((__tmp73002 |[1]#_g73003_|)) (declare (not safe)) - (cons 'where __tmp73005))) - (__tmp73000 - (let ((__tmp73001 - (let ((__tmp73002 |[1]#_g73003_|)) + (cons 'where __tmp73002))) + (__tmp72997 + (let ((__tmp72998 + (let ((__tmp72999 |[1]#_g73000_|)) (declare (not safe)) - (cons 'continuation __tmp73002)))) + (cons 'continuation __tmp72999)))) (declare (not safe)) - (cons __tmp73001 '())))) + (cons __tmp72998 '())))) (declare (not safe)) - (cons __tmp73004 __tmp73000)))) + (cons __tmp73001 __tmp72997)))) (declare (not safe)) - (cons __tmp73007 __tmp72999)))) + (cons __tmp73004 __tmp72996)))) (declare (not safe)) - (cons __tmp73010 __tmp72998)))) + (cons __tmp73007 __tmp72995)))) (declare (not safe)) (##unchecked-structure-set! - __obj72838 - __tmp72997 + __obj72835 + __tmp72994 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73013 - (let ((__tmp73026 - (let ((__tmp73027 |[1]#_g73028_|)) + (let ((__tmp73010 + (let ((__tmp73023 + (let ((__tmp73024 |[1]#_g73025_|)) (declare (not safe)) - (cons 'message __tmp73027))) - (__tmp73014 - (let ((__tmp73023 - (let ((__tmp73024 |[1]#_g73025_|)) + (cons 'message __tmp73024))) + (__tmp73011 + (let ((__tmp73020 + (let ((__tmp73021 |[1]#_g73022_|)) (declare (not safe)) - (cons 'irritants __tmp73024))) - (__tmp73015 - (let ((__tmp73020 - (let ((__tmp73021 |[1]#_g73022_|)) + (cons 'irritants __tmp73021))) + (__tmp73012 + (let ((__tmp73017 + (let ((__tmp73018 |[1]#_g73019_|)) (declare (not safe)) - (cons 'where __tmp73021))) - (__tmp73016 - (let ((__tmp73017 - (let ((__tmp73018 |[1]#_g73019_|)) + (cons 'where __tmp73018))) + (__tmp73013 + (let ((__tmp73014 + (let ((__tmp73015 |[1]#_g73016_|)) (declare (not safe)) - (cons 'continuation __tmp73018)))) + (cons 'continuation __tmp73015)))) (declare (not safe)) - (cons __tmp73017 '())))) + (cons __tmp73014 '())))) (declare (not safe)) - (cons __tmp73020 __tmp73016)))) + (cons __tmp73017 __tmp73013)))) (declare (not safe)) - (cons __tmp73023 __tmp73015)))) + (cons __tmp73020 __tmp73012)))) (declare (not safe)) - (cons __tmp73026 __tmp73014)))) + (cons __tmp73023 __tmp73011)))) (declare (not safe)) (##unchecked-structure-set! - __obj72838 - __tmp73013 + __obj72835 + __tmp73010 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73029 - (let ((__tmp73042 - (let ((__tmp73043 |[1]#_g73044_|)) + (let ((__tmp73026 + (let ((__tmp73039 + (let ((__tmp73040 |[1]#_g73041_|)) (declare (not safe)) - (cons 'message __tmp73043))) - (__tmp73030 - (let ((__tmp73039 - (let ((__tmp73040 |[1]#_g73041_|)) + (cons 'message __tmp73040))) + (__tmp73027 + (let ((__tmp73036 + (let ((__tmp73037 |[1]#_g73038_|)) (declare (not safe)) - (cons 'irritants __tmp73040))) - (__tmp73031 - (let ((__tmp73036 - (let ((__tmp73037 |[1]#_g73038_|)) + (cons 'irritants __tmp73037))) + (__tmp73028 + (let ((__tmp73033 + (let ((__tmp73034 |[1]#_g73035_|)) (declare (not safe)) - (cons 'where __tmp73037))) - (__tmp73032 - (let ((__tmp73033 - (let ((__tmp73034 |[1]#_g73035_|)) + (cons 'where __tmp73034))) + (__tmp73029 + (let ((__tmp73030 + (let ((__tmp73031 |[1]#_g73032_|)) (declare (not safe)) - (cons 'continuation __tmp73034)))) + (cons 'continuation __tmp73031)))) (declare (not safe)) - (cons __tmp73033 '())))) + (cons __tmp73030 '())))) (declare (not safe)) - (cons __tmp73036 __tmp73032)))) + (cons __tmp73033 __tmp73029)))) (declare (not safe)) - (cons __tmp73039 __tmp73031)))) + (cons __tmp73036 __tmp73028)))) (declare (not safe)) - (cons __tmp73042 __tmp73030)))) + (cons __tmp73039 __tmp73027)))) (declare (not safe)) (##unchecked-structure-set! - __obj72838 - __tmp73029 + __obj72835 + __tmp73026 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj72838)) + __obj72835)) (define |[:0:]#locked-hash-table| - (let ((__obj72840 + (let ((__obj72837 (let () (declare (not safe)) (##structure @@ -572,7 +572,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72840 + __obj72837 '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! - __obj72840 + __obj72837 'locked-hash-table '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -588,7 +588,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72840 + __obj72837 '(table lock) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -596,7 +596,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72840 + __obj72837 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -604,7 +604,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72840 + __obj72837 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -612,7 +612,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72840 + __obj72837 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -620,7 +620,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72840 + __obj72837 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -628,122 +628,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72840 + __obj72837 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73045 |[1]#_g73046_|)) + (let ((__tmp73042 |[1]#_g73043_|)) (declare (not safe)) (##unchecked-structure-set! - __obj72840 - __tmp73045 + __obj72837 + __tmp73042 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73047 |[1]#_g73048_|)) + (let ((__tmp73044 |[1]#_g73045_|)) (declare (not safe)) (##unchecked-structure-set! - __obj72840 - __tmp73047 + __obj72837 + __tmp73044 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73049 |[1]#_g73050_|)) + (let ((__tmp73046 |[1]#_g73047_|)) (declare (not safe)) (##unchecked-structure-set! - __obj72840 - __tmp73049 + __obj72837 + __tmp73046 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73051 - (let ((__tmp73056 - (let ((__tmp73057 |[1]#_g73058_|)) + (let ((__tmp73048 + (let ((__tmp73053 + (let ((__tmp73054 |[1]#_g73055_|)) (declare (not safe)) - (cons 'table __tmp73057))) - (__tmp73052 - (let ((__tmp73053 - (let ((__tmp73054 |[1]#_g73055_|)) + (cons 'table __tmp73054))) + (__tmp73049 + (let ((__tmp73050 + (let ((__tmp73051 |[1]#_g73052_|)) (declare (not safe)) - (cons 'lock __tmp73054)))) + (cons 'lock __tmp73051)))) (declare (not safe)) - (cons __tmp73053 '())))) + (cons __tmp73050 '())))) (declare (not safe)) - (cons __tmp73056 __tmp73052)))) + (cons __tmp73053 __tmp73049)))) (declare (not safe)) (##unchecked-structure-set! - __obj72840 - __tmp73051 + __obj72837 + __tmp73048 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73059 - (let ((__tmp73064 - (let ((__tmp73065 |[1]#_g73066_|)) + (let ((__tmp73056 + (let ((__tmp73061 + (let ((__tmp73062 |[1]#_g73063_|)) (declare (not safe)) - (cons 'table __tmp73065))) - (__tmp73060 - (let ((__tmp73061 - (let ((__tmp73062 |[1]#_g73063_|)) + (cons 'table __tmp73062))) + (__tmp73057 + (let ((__tmp73058 + (let ((__tmp73059 |[1]#_g73060_|)) (declare (not safe)) - (cons 'lock __tmp73062)))) + (cons 'lock __tmp73059)))) (declare (not safe)) - (cons __tmp73061 '())))) + (cons __tmp73058 '())))) (declare (not safe)) - (cons __tmp73064 __tmp73060)))) + (cons __tmp73061 __tmp73057)))) (declare (not safe)) (##unchecked-structure-set! - __obj72840 - __tmp73059 + __obj72837 + __tmp73056 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73067 - (let ((__tmp73072 - (let ((__tmp73073 |[1]#_g73074_|)) + (let ((__tmp73064 + (let ((__tmp73069 + (let ((__tmp73070 |[1]#_g73071_|)) (declare (not safe)) - (cons 'table __tmp73073))) - (__tmp73068 - (let ((__tmp73069 - (let ((__tmp73070 |[1]#_g73071_|)) + (cons 'table __tmp73070))) + (__tmp73065 + (let ((__tmp73066 + (let ((__tmp73067 |[1]#_g73068_|)) (declare (not safe)) - (cons 'lock __tmp73070)))) + (cons 'lock __tmp73067)))) (declare (not safe)) - (cons __tmp73069 '())))) + (cons __tmp73066 '())))) (declare (not safe)) - (cons __tmp73072 __tmp73068)))) + (cons __tmp73069 __tmp73065)))) (declare (not safe)) (##unchecked-structure-set! - __obj72840 - __tmp73067 + __obj72837 + __tmp73064 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73075 - (let ((__tmp73080 - (let ((__tmp73081 |[1]#_g73082_|)) + (let ((__tmp73072 + (let ((__tmp73077 + (let ((__tmp73078 |[1]#_g73079_|)) (declare (not safe)) - (cons 'table __tmp73081))) - (__tmp73076 - (let ((__tmp73077 - (let ((__tmp73078 |[1]#_g73079_|)) + (cons 'table __tmp73078))) + (__tmp73073 + (let ((__tmp73074 + (let ((__tmp73075 |[1]#_g73076_|)) (declare (not safe)) - (cons 'lock __tmp73078)))) + (cons 'lock __tmp73075)))) (declare (not safe)) - (cons __tmp73077 '())))) + (cons __tmp73074 '())))) (declare (not safe)) - (cons __tmp73080 __tmp73076)))) + (cons __tmp73077 __tmp73073)))) (declare (not safe)) (##unchecked-structure-set! - __obj72840 - __tmp73075 + __obj72837 + __tmp73072 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj72840)) + __obj72837)) (define |[:0:]#checked-hash-table| - (let ((__obj72841 + (let ((__obj72838 (let () (declare (not safe)) (##structure @@ -766,7 +766,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72841 + __obj72838 '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! - __obj72841 + __obj72838 'checked-hash-table '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -782,7 +782,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72841 + __obj72838 '(table key-check) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -790,7 +790,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72841 + __obj72838 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -798,7 +798,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72841 + __obj72838 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -806,7 +806,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72841 + __obj72838 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -814,7 +814,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72841 + __obj72838 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -822,1290 +822,1290 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72841 + __obj72838 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73083 |[1]#_g73084_|)) + (let ((__tmp73080 |[1]#_g73081_|)) (declare (not safe)) (##unchecked-structure-set! - __obj72841 - __tmp73083 + __obj72838 + __tmp73080 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73085 |[1]#_g73086_|)) + (let ((__tmp73082 |[1]#_g73083_|)) (declare (not safe)) (##unchecked-structure-set! - __obj72841 - __tmp73085 + __obj72838 + __tmp73082 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73087 |[1]#_g73088_|)) + (let ((__tmp73084 |[1]#_g73085_|)) (declare (not safe)) (##unchecked-structure-set! - __obj72841 - __tmp73087 + __obj72838 + __tmp73084 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73089 - (let ((__tmp73094 - (let ((__tmp73095 |[1]#_g73096_|)) + (let ((__tmp73086 + (let ((__tmp73091 + (let ((__tmp73092 |[1]#_g73093_|)) (declare (not safe)) - (cons 'table __tmp73095))) - (__tmp73090 - (let ((__tmp73091 - (let ((__tmp73092 |[1]#_g73093_|)) + (cons 'table __tmp73092))) + (__tmp73087 + (let ((__tmp73088 + (let ((__tmp73089 |[1]#_g73090_|)) (declare (not safe)) - (cons 'key-check __tmp73092)))) + (cons 'key-check __tmp73089)))) (declare (not safe)) - (cons __tmp73091 '())))) + (cons __tmp73088 '())))) (declare (not safe)) - (cons __tmp73094 __tmp73090)))) + (cons __tmp73091 __tmp73087)))) (declare (not safe)) (##unchecked-structure-set! - __obj72841 - __tmp73089 + __obj72838 + __tmp73086 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73097 - (let ((__tmp73102 - (let ((__tmp73103 |[1]#_g73104_|)) + (let ((__tmp73094 + (let ((__tmp73099 + (let ((__tmp73100 |[1]#_g73101_|)) (declare (not safe)) - (cons 'table __tmp73103))) - (__tmp73098 - (let ((__tmp73099 - (let ((__tmp73100 |[1]#_g73101_|)) + (cons 'table __tmp73100))) + (__tmp73095 + (let ((__tmp73096 + (let ((__tmp73097 |[1]#_g73098_|)) (declare (not safe)) - (cons 'key-check __tmp73100)))) + (cons 'key-check __tmp73097)))) (declare (not safe)) - (cons __tmp73099 '())))) + (cons __tmp73096 '())))) (declare (not safe)) - (cons __tmp73102 __tmp73098)))) + (cons __tmp73099 __tmp73095)))) (declare (not safe)) (##unchecked-structure-set! - __obj72841 - __tmp73097 + __obj72838 + __tmp73094 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73105 - (let ((__tmp73110 - (let ((__tmp73111 |[1]#_g73112_|)) + (let ((__tmp73102 + (let ((__tmp73107 + (let ((__tmp73108 |[1]#_g73109_|)) (declare (not safe)) - (cons 'table __tmp73111))) - (__tmp73106 - (let ((__tmp73107 - (let ((__tmp73108 |[1]#_g73109_|)) + (cons 'table __tmp73108))) + (__tmp73103 + (let ((__tmp73104 + (let ((__tmp73105 |[1]#_g73106_|)) (declare (not safe)) - (cons 'key-check __tmp73108)))) + (cons 'key-check __tmp73105)))) (declare (not safe)) - (cons __tmp73107 '())))) + (cons __tmp73104 '())))) (declare (not safe)) - (cons __tmp73110 __tmp73106)))) + (cons __tmp73107 __tmp73103)))) (declare (not safe)) (##unchecked-structure-set! - __obj72841 - __tmp73105 + __obj72838 + __tmp73102 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73113 - (let ((__tmp73118 - (let ((__tmp73119 |[1]#_g73120_|)) + (let ((__tmp73110 + (let ((__tmp73115 + (let ((__tmp73116 |[1]#_g73117_|)) (declare (not safe)) - (cons 'table __tmp73119))) - (__tmp73114 - (let ((__tmp73115 - (let ((__tmp73116 |[1]#_g73117_|)) + (cons 'table __tmp73116))) + (__tmp73111 + (let ((__tmp73112 + (let ((__tmp73113 |[1]#_g73114_|)) (declare (not safe)) - (cons 'key-check __tmp73116)))) + (cons 'key-check __tmp73113)))) (declare (not safe)) - (cons __tmp73115 '())))) + (cons __tmp73112 '())))) (declare (not safe)) - (cons __tmp73118 __tmp73114)))) + (cons __tmp73115 __tmp73111)))) (declare (not safe)) (##unchecked-structure-set! - __obj72841 - __tmp73113 + __obj72838 + __tmp73110 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj72841)) + __obj72838)) (define |[:0:]#defhash-method| - (lambda (_stx69021_) - (let* ((_g6902469065_ - (lambda (_g6902569061_) + (lambda (_stx69018_) + (let* ((_g6902169062_ + (lambda (_g6902269058_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6902569061_))) - (_g6902369355_ - (lambda (_g6902569069_) - (if (gx#stx-pair? _g6902569069_) - (let ((_e6903269072_ (gx#syntax-e _g6902569069_))) - (let ((_hd6903169076_ + _g6902269058_))) + (_g6902069352_ + (lambda (_g6902269066_) + (if (gx#stx-pair? _g6902269066_) + (let ((_e6902969069_ (gx#syntax-e _g6902269066_))) + (let ((_hd6902869073_ (let () (declare (not safe)) - (##car _e6903269072_))) - (_tl6903069079_ + (##car _e6902969069_))) + (_tl6902769076_ (let () (declare (not safe)) - (##cdr _e6903269072_)))) - (if (gx#stx-pair? _tl6903069079_) - (let ((_e6903569082_ - (gx#syntax-e _tl6903069079_))) - (let ((_hd6903469086_ + (##cdr _e6902969069_)))) + (if (gx#stx-pair? _tl6902769076_) + (let ((_e6903269079_ + (gx#syntax-e _tl6902769076_))) + (let ((_hd6903169083_ (let () (declare (not safe)) - (##car _e6903569082_))) - (_tl6903369089_ + (##car _e6903269079_))) + (_tl6903069086_ (let () (declare (not safe)) - (##cdr _e6903569082_)))) - (if (gx#stx-pair? _hd6903469086_) - (let ((_e6903869092_ - (gx#syntax-e _hd6903469086_))) - (let ((_hd6903769096_ + (##cdr _e6903269079_)))) + (if (gx#stx-pair? _hd6903169083_) + (let ((_e6903569089_ + (gx#syntax-e _hd6903169083_))) + (let ((_hd6903469093_ (let () (declare (not safe)) - (##car _e6903869092_))) - (_tl6903669099_ + (##car _e6903569089_))) + (_tl6903369096_ (let () (declare (not safe)) - (##cdr _e6903869092_)))) - (if (gx#stx-pair? _tl6903669099_) - (let ((_e6904169102_ + (##cdr _e6903569089_)))) + (if (gx#stx-pair? _tl6903369096_) + (let ((_e6903869099_ (gx#syntax-e - _tl6903669099_))) - (let ((_hd6904069106_ + _tl6903369096_))) + (let ((_hd6903769103_ (let () (declare (not safe)) - (##car _e6904169102_))) - (_tl6903969109_ + (##car _e6903869099_))) + (_tl6903669106_ (let () (declare (not safe)) - (##cdr _e6904169102_)))) + (##cdr _e6903869099_)))) (if (gx#stx-pair/null? - _tl6903969109_) - (let ((_g73121_ + _tl6903669106_) + (let ((_g73118_ (gx#syntax-split-splice - _tl6903969109_ + _tl6903669106_ '0))) (begin - (let ((_g73122_ + (let ((_g73119_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g73121_) - (##vector-length _g73121_) + (if (##values? _g73118_) + (##vector-length _g73118_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g73122_ 2))) - (error "Context expects 2 values" _g73122_))) - (let ((_target6904269112_ + (if (not (let () (declare (not safe)) (##fx= _g73119_ 2))) + (error "Context expects 2 values" _g73119_))) + (let ((_target6903969109_ (let () (declare (not safe)) - (##vector-ref _g73121_ 0))) - (_tl6904469115_ + (##vector-ref _g73118_ 0))) + (_tl6904169112_ (let () (declare (not safe)) - (##vector-ref _g73121_ 1)))) - (if (gx#stx-null? _tl6904469115_) - (letrec ((_loop6904569118_ - (lambda (_hd6904369122_ _arg6904969125_) - (if (gx#stx-pair? _hd6904369122_) - (let ((_e6904669128_ - (gx#syntax-e _hd6904369122_))) - (let ((_lp-hd6904769132_ + (##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_ (let () (declare (not safe)) - (##car _e6904669128_))) - (_lp-tl6904869135_ + (##car _e6904369125_))) + (_lp-tl6904569132_ (let () (declare (not safe)) - (##cdr _e6904669128_)))) - (_loop6904569118_ - _lp-tl6904869135_ + (##cdr _e6904369125_)))) + (_loop6904269115_ + _lp-tl6904569132_ (let () (declare (not safe)) - (cons _lp-hd6904769132_ - _arg6904969125_))))) - (let ((_arg6905069138_ - (reverse _arg6904969125_))) + (cons _lp-hd6904469129_ + _arg6904669122_))))) + (let ((_arg6904769135_ + (reverse _arg6904669122_))) (if (gx#stx-pair/null? - _tl6903369089_) - (let ((_g73123_ + _tl6903069086_) + (let ((_g73120_ (gx#syntax-split-splice - _tl6903369089_ + _tl6903069086_ '0))) (begin - (let ((_g73124_ + (let ((_g73121_ (let () (declare (not safe)) (if (##values? - _g73123_) + _g73120_) (##vector-length - _g73123_) + _g73120_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g73124_ 2))) - (error "Context expects 2 values" _g73124_))) + (##fx= _g73121_ 2))) + (error "Context expects 2 values" _g73121_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target6905169142_ + (let ((_target6904869139_ (let () (declare (not safe)) (##vector-ref - _g73123_ + _g73120_ 0))) - (_tl6905369145_ + (_tl6905069142_ (let () (declare (not safe)) (##vector-ref - _g73123_ + _g73120_ 1)))) (if (gx#stx-null? - _tl6905369145_) - (letrec ((_loop6905469148_ + _tl6905069142_) + (letrec ((_loop6905169145_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd6905269152_ _body6905869155_) - (if (gx#stx-pair? _hd6905269152_) - (let ((_e6905569158_ - (gx#syntax-e _hd6905269152_))) - (let ((_lp-hd6905669162_ + (lambda (_hd6904969149_ _body6905569152_) + (if (gx#stx-pair? _hd6904969149_) + (let ((_e6905269155_ + (gx#syntax-e _hd6904969149_))) + (let ((_lp-hd6905369159_ (let () (declare (not safe)) - (##car _e6905569158_))) - (_lp-tl6905769165_ + (##car _e6905269155_))) + (_lp-tl6905469162_ (let () (declare (not safe)) - (##cdr _e6905569158_)))) - (_loop6905469148_ - _lp-tl6905769165_ + (##cdr _e6905269155_)))) + (_loop6905169145_ + _lp-tl6905469162_ (let () (declare (not safe)) - (cons _lp-hd6905669162_ - _body6905869155_))))) - (let ((_body6905969168_ - (reverse _body6905869155_))) - ((lambda (_L69172_ - _L69174_ - _L69175_ - _L69176_) - (let* ((_g6920569229_ - (lambda (_g6920669225_) + (cons _lp-hd6905369159_ + _body6905569152_))))) + (let ((_body6905669165_ + (reverse _body6905569152_))) + ((lambda (_L69169_ + _L69171_ + _L69172_ + _L69173_) + (let* ((_g6920269226_ + (lambda (_g6920369222_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6920669225_))) - (_g6920469340_ - (lambda (_g6920669233_) - (if (gx#stx-pair? _g6920669233_) - (let ((_e6921169236_ + _g6920369222_))) + (_g6920169337_ + (lambda (_g6920369230_) + (if (gx#stx-pair? _g6920369230_) + (let ((_e6920869233_ (gx#syntax-e - _g6920669233_))) - (let ((_hd6921069240_ + _g6920369230_))) + (let ((_hd6920769237_ (let () (declare (not safe)) - (##car _e6921169236_))) - (_tl6920969243_ + (##car _e6920869233_))) + (_tl6920669240_ (let () (declare (not safe)) - (##cdr _e6921169236_)))) + (##cdr _e6920869233_)))) (if (gx#stx-pair? - _tl6920969243_) - (let ((_e6921469246_ + _tl6920669240_) + (let ((_e6921169243_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl6920969243_))) - (let ((_hd6921369250_ + (gx#syntax-e _tl6920669240_))) + (let ((_hd6921069247_ (let () (declare (not safe)) - (##car _e6921469246_))) - (_tl6921269253_ + (##car _e6921169243_))) + (_tl6920969250_ (let () (declare (not safe)) - (##cdr _e6921469246_)))) - (if (gx#stx-pair/null? _hd6921369250_) - (let ((_g73125_ - (gx#syntax-split-splice _hd6921369250_ '0))) + (##cdr _e6921169243_)))) + (if (gx#stx-pair/null? _hd6921069247_) + (let ((_g73122_ + (gx#syntax-split-splice _hd6921069247_ '0))) (begin - (let ((_g73126_ + (let ((_g73123_ (let () (declare (not safe)) - (if (##values? _g73125_) - (##vector-length _g73125_) + (if (##values? _g73122_) + (##vector-length _g73122_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g73126_ 2))) + (##fx= _g73123_ 2))) (error "Context expects 2 values" - _g73126_))) - (let ((_target6921569256_ + _g73123_))) + (let ((_target6921269253_ (let () (declare (not safe)) - (##vector-ref _g73125_ 0))) - (_tl6921769259_ + (##vector-ref _g73122_ 0))) + (_tl6921469256_ (let () (declare (not safe)) - (##vector-ref _g73125_ 1)))) - (if (gx#stx-null? _tl6921769259_) - (letrec ((_loop6921869262_ - (lambda (_hd6921669266_ - _arg-val6922269269_) + (##vector-ref _g73122_ 1)))) + (if (gx#stx-null? _tl6921469256_) + (letrec ((_loop6921569259_ + (lambda (_hd6921369263_ + _arg-val6921969266_) (if (gx#stx-pair? - _hd6921669266_) - (let ((_e6921969272_ + _hd6921369263_) + (let ((_e6921669269_ (gx#syntax-e - _hd6921669266_))) - (let ((_lp-hd6922069276_ + _hd6921369263_))) + (let ((_lp-hd6921769273_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e6921969272_))) - (_lp-tl6922169279_ - (let () (declare (not safe)) (##cdr _e6921969272_)))) - (_loop6921869262_ - _lp-tl6922169279_ + (##car _e6921669269_))) + (_lp-tl6921869276_ + (let () (declare (not safe)) (##cdr _e6921669269_)))) + (_loop6921569259_ + _lp-tl6921869276_ (let () (declare (not safe)) - (cons _lp-hd6922069276_ _arg-val6922269269_))))) + (cons _lp-hd6921769273_ _arg-val6921969266_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg-val6922369282_ - (reverse _arg-val6922269269_))) + (let ((_arg-val6922069279_ + (reverse _arg-val6921969266_))) (if (gx#stx-null? - _tl6921269253_) - ((lambda (_L69286_ + _tl6920969250_) + ((lambda (_L69283_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L69288_) + _L69285_) (let () - (let ((__tmp73171 (gx#datum->syntax '#f 'begin)) - (__tmp73127 - (let ((__tmp73138 - (let ((__tmp73170 + (let ((__tmp73168 (gx#datum->syntax '#f 'begin)) + (__tmp73124 + (let ((__tmp73135 + (let ((__tmp73167 (gx#datum->syntax '#f 'def)) - (__tmp73139 - (let ((__tmp73166 - (let ((__tmp73167 - (let ((__tmp73168 + (__tmp73136 + (let ((__tmp73163 + (let ((__tmp73164 + (let ((__tmp73165 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp73169 - (lambda (_g6931369316_ _g6931469319_) + (let ((__tmp73166 + (lambda (_g6931069313_ _g6931169316_) (let () (declare (not safe)) - (cons _g6931369316_ _g6931469319_))))) + (cons _g6931069313_ _g6931169316_))))) (declare (not safe)) - (foldr1 __tmp73169 '() _L69174_)))) + (foldr1 __tmp73166 '() _L69171_)))) (declare (not safe)) - (cons _L69175_ __tmp73168)))) + (cons _L69172_ __tmp73165)))) (declare (not safe)) - (cons _L69176_ __tmp73167))) + (cons _L69173_ __tmp73164))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp73140 - (let ((__tmp73141 - (let ((__tmp73165 + (__tmp73137 + (let ((__tmp73138 + (let ((__tmp73162 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp73142 - (let ((__tmp73148 - (let ((__tmp73149 - (let ((__tmp73150 - (let ((__tmp73164 + (__tmp73139 + (let ((__tmp73145 + (let ((__tmp73146 + (let ((__tmp73147 + (let ((__tmp73161 (gx#datum->syntax '#f 'if)) - (__tmp73151 - (let ((__tmp73159 - (let ((__tmp73163 + (__tmp73148 + (let ((__tmp73156 + (let ((__tmp73160 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'immediate-instance-of?)) - (__tmp73160 - (let ((__tmp73162 + (__tmp73157 + (let ((__tmp73159 (gx#datum->syntax '#f 'HashTable::t)) - (__tmp73161 + (__tmp73158 (let () (declare (not safe)) - (cons _L69175_ '())))) + (cons _L69172_ '())))) (declare (not safe)) - (cons __tmp73162 __tmp73161)))) + (cons __tmp73159 __tmp73158)))) (declare (not safe)) - (cons __tmp73163 __tmp73160))) - (__tmp73152 - (let ((__tmp73153 - (let ((__tmp73154 - (let ((__tmp73158 + (cons __tmp73160 __tmp73157))) + (__tmp73149 + (let ((__tmp73150 + (let ((__tmp73151 + (let ((__tmp73155 (gx#datum->syntax '#f 'cast)) - (__tmp73155 - (let ((__tmp73157 + (__tmp73152 + (let ((__tmp73154 (gx#datum->syntax '#f 'HashTable::interface)) - (__tmp73156 + (__tmp73153 (let () (declare (not safe)) - (cons _L69175_ '())))) + (cons _L69172_ '())))) (declare (not safe)) - (cons __tmp73157 __tmp73156)))) + (cons __tmp73154 __tmp73153)))) (declare (not safe)) - (cons __tmp73158 __tmp73155)))) + (cons __tmp73155 __tmp73152)))) (declare (not safe)) - (cons __tmp73154 '())))) + (cons __tmp73151 '())))) (declare (not safe)) - (cons _L69175_ __tmp73153)))) + (cons _L69172_ __tmp73150)))) (declare (not safe)) - (cons __tmp73159 __tmp73152)))) + (cons __tmp73156 __tmp73149)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73164 - __tmp73151)))) + (cons __tmp73161 + __tmp73148)))) (declare (not safe)) - (cons __tmp73150 '())))) + (cons __tmp73147 '())))) (declare (not safe)) - (cons _L69175_ __tmp73149))) - (__tmp73143 - (let ((__tmp73144 - (let ((__tmp73145 - (let ((__tmp73146 - (let ((__tmp73147 - (lambda (_g6931169322_ + (cons _L69172_ __tmp73146))) + (__tmp73140 + (let ((__tmp73141 + (let ((__tmp73142 + (let ((__tmp73143 + (let ((__tmp73144 + (lambda (_g6930869319_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g6931269325_) + _g6930969322_) (let () (declare (not safe)) - (cons _g6931169322_ _g6931269325_))))) + (cons _g6930869319_ _g6930969322_))))) (declare (not safe)) - (foldr1 __tmp73147 '() _L69286_)))) + (foldr1 __tmp73144 '() _L69283_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L69175_ __tmp73146)))) + (cons _L69172_ __tmp73143)))) (declare (not safe)) - (cons _L69288_ __tmp73145)))) + (cons _L69285_ __tmp73142)))) (declare (not safe)) - (cons __tmp73144 '())))) + (cons __tmp73141 '())))) (declare (not safe)) - (cons __tmp73148 __tmp73143)))) + (cons __tmp73145 __tmp73140)))) (declare (not safe)) - (cons __tmp73165 __tmp73142)))) + (cons __tmp73162 __tmp73139)))) (declare (not safe)) - (cons __tmp73141 '())))) + (cons __tmp73138 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73166 __tmp73140)))) + (cons __tmp73163 __tmp73137)))) (declare (not safe)) - (cons __tmp73170 __tmp73139))) - (__tmp73128 - (let ((__tmp73129 - (let ((__tmp73137 + (cons __tmp73167 __tmp73136))) + (__tmp73125 + (let ((__tmp73126 + (let ((__tmp73134 (gx#datum->syntax '#f 'def)) - (__tmp73130 - (let ((__tmp73133 - (let ((__tmp73134 + (__tmp73127 + (let ((__tmp73130 + (let ((__tmp73131 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp73135 - (let ((__tmp73136 - (lambda (_g6930969328_ _g6931069331_) + (let ((__tmp73132 + (let ((__tmp73133 + (lambda (_g6930669325_ _g6930769328_) (let () (declare (not safe)) - (cons _g6930969328_ - _g6931069331_))))) + (cons _g6930669325_ + _g6930769328_))))) (declare (not safe)) - (foldr1 __tmp73136 '() _L69174_)))) + (foldr1 __tmp73133 '() _L69171_)))) (declare (not safe)) - (cons _L69175_ __tmp73135)))) + (cons _L69172_ __tmp73132)))) (declare (not safe)) - (cons _L69288_ __tmp73134))) - (__tmp73131 - (let ((__tmp73132 - (lambda (_g6930769334_ _g6930869337_) + (cons _L69285_ __tmp73131))) + (__tmp73128 + (let ((__tmp73129 + (lambda (_g6930469331_ _g6930569334_) (let () (declare (not safe)) - (cons _g6930769334_ _g6930869337_))))) + (cons _g6930469331_ _g6930569334_))))) (declare (not safe)) - (foldr1 __tmp73132 '() _L69172_)))) + (foldr1 __tmp73129 '() _L69169_)))) (declare (not safe)) - (cons __tmp73133 __tmp73131)))) + (cons __tmp73130 __tmp73128)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73137 __tmp73130)))) + (cons __tmp73134 __tmp73127)))) (declare (not safe)) - (cons __tmp73129 '())))) + (cons __tmp73126 '())))) (declare (not safe)) - (cons __tmp73138 __tmp73128)))) + (cons __tmp73135 __tmp73125)))) (declare (not safe)) - (cons __tmp73171 __tmp73127)))) - _arg-val6922369282_ - _hd6921069240_) - (_g6920569229_ _g6920669233_))))))) + (cons __tmp73168 __tmp73124)))) + _arg-val6922069279_ + _hd6920769237_) + (_g6920269226_ _g6920369230_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop6921869262_ - _target6921569256_ + (_loop6921569259_ + _target6921269253_ '())) - (_g6920569229_ _g6920669233_))))) - (_g6920569229_ _g6920669233_)))) - (_g6920569229_ _g6920669233_)))) + (_g6920269226_ _g6920369230_))))) + (_g6920269226_ _g6920369230_)))) + (_g6920269226_ _g6920369230_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6920569229_ - _g6920669233_))))) - (_g6920469340_ + (_g6920269226_ + _g6920369230_))))) + (_g6920169337_ (list (gx#stx-identifier - _L69176_ + _L69173_ '"&" - _L69176_) + _L69173_) (gx#stx-map - (lambda (_arg69344_) + (lambda (_arg69341_) (if (gx#identifier? - _arg69344_) - _arg69344_ - (gx#stx-car _arg69344_))) - (let ((__tmp73172 - (lambda (_g6934669349_ - _g6934769352_) + _arg69341_) + _arg69341_ + (gx#stx-car _arg69341_))) + (let ((__tmp73169 + (lambda (_g6934369346_ + _g6934469349_) (let () (declare (not safe)) - (cons _g6934669349_ - _g6934769352_))))) + (cons _g6934369346_ + _g6934469349_))))) (declare (not safe)) - (foldr1 __tmp73172 + (foldr1 __tmp73169 '() - _L69174_))))))) - _body6905969168_ - _arg6905069138_ - _hd6904069106_ - _hd6903769096_)))))) - (_loop6905469148_ _target6905169142_ '())) - (_g6902469065_ _g6902569069_))))) + _L69171_))))))) + _body6905669165_ + _arg6904769135_ + _hd6903769103_ + _hd6903469093_)))))) + (_loop6905169145_ _target6904869139_ '())) + (_g6902169062_ _g6902269066_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6902469065_ - _g6902569069_))))))) - (_loop6904569118_ _target6904269112_ '())) - (_g6902469065_ _g6902569069_))))) - (_g6902469065_ _g6902569069_)))) + (_g6902169062_ + _g6902269066_))))))) + (_loop6904269115_ _target6903969109_ '())) + (_g6902169062_ _g6902269066_))))) + (_g6902169062_ _g6902269066_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6902469065_ _g6902569069_)))) - (_g6902469065_ _g6902569069_)))) - (_g6902469065_ _g6902569069_)))) - (_g6902469065_ _g6902569069_))))) - (_g6902369355_ _stx69021_)))) + (_g6902169062_ _g6902269066_)))) + (_g6902169062_ _g6902269066_)))) + (_g6902169062_ _g6902269066_)))) + (_g6902169062_ _g6902269066_))))) + (_g6902069352_ _stx69018_)))) (define |[:0:]#deflocked-hash-method| - (lambda (_$stx69362_) - (let* ((_g6936669405_ - (lambda (_g6936769401_) + (lambda (_$stx69359_) + (let* ((_g6936369402_ + (lambda (_g6936469398_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6936769401_))) - (_g6936569552_ - (lambda (_g6936769409_) - (if (gx#stx-pair? _g6936769409_) - (let ((_e6937569412_ (gx#syntax-e _g6936769409_))) - (let ((_hd6937469416_ + _g6936469398_))) + (_g6936269549_ + (lambda (_g6936469406_) + (if (gx#stx-pair? _g6936469406_) + (let ((_e6937269409_ (gx#syntax-e _g6936469406_))) + (let ((_hd6937169413_ (let () (declare (not safe)) - (##car _e6937569412_))) - (_tl6937369419_ + (##car _e6937269409_))) + (_tl6937069416_ (let () (declare (not safe)) - (##cdr _e6937569412_)))) - (if (gx#stx-pair? _tl6937369419_) - (let ((_e6937869422_ - (gx#syntax-e _tl6937369419_))) - (let ((_hd6937769426_ + (##cdr _e6937269409_)))) + (if (gx#stx-pair? _tl6937069416_) + (let ((_e6937569419_ + (gx#syntax-e _tl6937069416_))) + (let ((_hd6937469423_ (let () (declare (not safe)) - (##car _e6937869422_))) - (_tl6937669429_ + (##car _e6937569419_))) + (_tl6937369426_ (let () (declare (not safe)) - (##cdr _e6937869422_)))) - (if (gx#stx-pair? _hd6937769426_) - (let ((_e6938169432_ - (gx#syntax-e _hd6937769426_))) - (let ((_hd6938069436_ + (##cdr _e6937569419_)))) + (if (gx#stx-pair? _hd6937469423_) + (let ((_e6937869429_ + (gx#syntax-e _hd6937469423_))) + (let ((_hd6937769433_ (let () (declare (not safe)) - (##car _e6938169432_))) - (_tl6937969439_ + (##car _e6937869429_))) + (_tl6937669436_ (let () (declare (not safe)) - (##cdr _e6938169432_)))) + (##cdr _e6937869429_)))) (if (gx#stx-pair/null? - _tl6937969439_) - (let ((_g73173_ + _tl6937669436_) + (let ((_g73170_ (gx#syntax-split-splice - _tl6937969439_ + _tl6937669436_ '0))) (begin - (let ((_g73174_ + (let ((_g73171_ (let () (declare (not safe)) (if (##values? - _g73173_) + _g73170_) (##vector-length - _g73173_) + _g73170_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g73174_ 2))) - (error "Context expects 2 values" _g73174_))) + (##fx= _g73171_ 2))) + (error "Context expects 2 values" _g73171_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target6938269442_ + (let ((_target6937969439_ (let () (declare (not safe)) (##vector-ref - _g73173_ + _g73170_ 0))) - (_tl6938469445_ + (_tl6938169442_ (let () (declare (not safe)) (##vector-ref - _g73173_ + _g73170_ 1)))) (if (gx#stx-null? - _tl6938469445_) - (letrec ((_loop6938569448_ + _tl6938169442_) + (letrec ((_loop6938269445_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd6938369452_ _arg6938969455_) - (if (gx#stx-pair? _hd6938369452_) - (let ((_e6938669458_ - (gx#syntax-e _hd6938369452_))) - (let ((_lp-hd6938769462_ + (lambda (_hd6938069449_ _arg6938669452_) + (if (gx#stx-pair? _hd6938069449_) + (let ((_e6938369455_ + (gx#syntax-e _hd6938069449_))) + (let ((_lp-hd6938469459_ (let () (declare (not safe)) - (##car _e6938669458_))) - (_lp-tl6938869465_ + (##car _e6938369455_))) + (_lp-tl6938569462_ (let () (declare (not safe)) - (##cdr _e6938669458_)))) - (_loop6938569448_ - _lp-tl6938869465_ + (##cdr _e6938369455_)))) + (_loop6938269445_ + _lp-tl6938569462_ (let () (declare (not safe)) - (cons _lp-hd6938769462_ - _arg6938969455_))))) - (let ((_arg6939069468_ - (reverse _arg6938969455_))) - (if (gx#stx-pair? _tl6937669429_) - (let ((_e6939369472_ - (gx#syntax-e _tl6937669429_))) - (let ((_hd6939269476_ + (cons _lp-hd6938469459_ + _arg6938669452_))))) + (let ((_arg6938769465_ + (reverse _arg6938669452_))) + (if (gx#stx-pair? _tl6937369426_) + (let ((_e6939069469_ + (gx#syntax-e _tl6937369426_))) + (let ((_hd6938969473_ (let () (declare (not safe)) - (##car _e6939369472_))) - (_tl6939169479_ + (##car _e6939069469_))) + (_tl6938869476_ (let () (declare (not safe)) - (##cdr _e6939369472_)))) - (if (gx#stx-pair? _tl6939169479_) - (let ((_e6939669482_ + (##cdr _e6939069469_)))) + (if (gx#stx-pair? _tl6938869476_) + (let ((_e6939369479_ (gx#syntax-e - _tl6939169479_))) - (let ((_hd6939569486_ + _tl6938869476_))) + (let ((_hd6939269483_ (let () (declare (not safe)) - (##car _e6939669482_))) - (_tl6939469489_ + (##car _e6939369479_))) + (_tl6939169486_ (let () (declare (not safe)) - (##cdr _e6939669482_)))) + (##cdr _e6939369479_)))) (if (gx#stx-pair? - _tl6939469489_) - (let ((_e6939969492_ + _tl6939169486_) + (let ((_e6939669489_ (gx#syntax-e - _tl6939469489_))) - (let ((_hd6939869496_ + _tl6939169486_))) + (let ((_hd6939569493_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e6939969492_))) - (_tl6939769499_ - (let () (declare (not safe)) (##cdr _e6939969492_)))) - (if (gx#stx-null? _tl6939769499_) - ((lambda (_L69502_ _L69504_ _L69505_ _L69506_ _L69507_) - (let ((__tmp73232 (gx#datum->syntax '#f 'defmethod)) - (__tmp73175 - (let ((__tmp73227 - (let ((__tmp73231 + (##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 (gx#datum->syntax '#f '@method)) - (__tmp73228 - (let ((__tmp73229 - (let ((__tmp73230 + (__tmp73225 + (let ((__tmp73226 + (let ((__tmp73227 (gx#datum->syntax '#f 'locked-hash-table))) (declare (not safe)) - (cons __tmp73230 '())))) + (cons __tmp73227 '())))) (declare (not safe)) - (cons _L69507_ __tmp73229)))) + (cons _L69504_ __tmp73226)))) (declare (not safe)) - (cons __tmp73231 __tmp73228))) - (__tmp73176 - (let ((__tmp73177 - (let ((__tmp73226 + (cons __tmp73228 __tmp73225))) + (__tmp73173 + (let ((__tmp73174 + (let ((__tmp73223 (gx#datum->syntax '#f 'lambda)) - (__tmp73178 - (let ((__tmp73222 - (let ((__tmp73225 + (__tmp73175 + (let ((__tmp73219 + (let ((__tmp73222 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'self)) - (__tmp73223 - (let ((__tmp73224 - (lambda (_g6953769540_ _g6953869543_) + (__tmp73220 + (let ((__tmp73221 + (lambda (_g6953469537_ _g6953569540_) (let () (declare (not safe)) - (cons _g6953769540_ _g6953869543_))))) + (cons _g6953469537_ _g6953569540_))))) (declare (not safe)) - (foldr1 __tmp73224 '() _L69506_)))) + (foldr1 __tmp73221 '() _L69503_)))) (declare (not safe)) - (cons __tmp73225 __tmp73223))) - (__tmp73179 - (let ((__tmp73180 - (let ((__tmp73221 (gx#datum->syntax '#f 'let)) - (__tmp73181 - (let ((__tmp73205 - (let ((__tmp73214 - (let ((__tmp73220 + (cons __tmp73222 __tmp73220))) + (__tmp73176 + (let ((__tmp73177 + (let ((__tmp73218 (gx#datum->syntax '#f 'let)) + (__tmp73178 + (let ((__tmp73202 + (let ((__tmp73211 + (let ((__tmp73217 (gx#datum->syntax '#f 'h)) - (__tmp73215 - (let ((__tmp73216 - (let ((__tmp73219 + (__tmp73212 + (let ((__tmp73213 + (let ((__tmp73216 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&locked-hash-table-table)) - (__tmp73217 - (let ((__tmp73218 (gx#datum->syntax '#f 'self))) + (__tmp73214 + (let ((__tmp73215 (gx#datum->syntax '#f 'self))) (declare (not safe)) - (cons __tmp73218 '())))) + (cons __tmp73215 '())))) (declare (not safe)) - (cons __tmp73219 __tmp73217)))) + (cons __tmp73216 __tmp73214)))) (declare (not safe)) - (cons __tmp73216 '())))) + (cons __tmp73213 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73220 - __tmp73215))) - (__tmp73206 - (let ((__tmp73207 - (let ((__tmp73213 + (cons __tmp73217 + __tmp73212))) + (__tmp73203 + (let ((__tmp73204 + (let ((__tmp73210 (gx#datum->syntax '#f 'l)) - (__tmp73208 - (let ((__tmp73209 + (__tmp73205 + (let ((__tmp73206 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp73212 + (let ((__tmp73209 (gx#datum->syntax '#f '&locked-hash-table-lock)) - (__tmp73210 - (let ((__tmp73211 + (__tmp73207 + (let ((__tmp73208 (gx#datum->syntax '#f 'self))) (declare (not safe)) - (cons __tmp73211 '())))) + (cons __tmp73208 '())))) (declare (not safe)) - (cons __tmp73212 __tmp73210)))) + (cons __tmp73209 __tmp73207)))) (declare (not safe)) - (cons __tmp73209 '())))) + (cons __tmp73206 '())))) (declare (not safe)) - (cons __tmp73213 __tmp73208)))) + (cons __tmp73210 __tmp73205)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73207 '())))) + (cons __tmp73204 '())))) (declare (not safe)) - (cons __tmp73214 __tmp73206))) - (__tmp73182 - (let ((__tmp73183 - (let ((__tmp73204 + (cons __tmp73211 __tmp73203))) + (__tmp73179 + (let ((__tmp73180 + (let ((__tmp73201 (gx#datum->syntax '#f 'dynamic-wind)) - (__tmp73184 - (let ((__tmp73199 - (let ((__tmp73203 + (__tmp73181 + (let ((__tmp73196 + (let ((__tmp73200 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cut)) - (__tmp73200 - (let ((__tmp73201 - (let ((__tmp73202 + (__tmp73197 + (let ((__tmp73198 + (let ((__tmp73199 (gx#datum->syntax '#f 'l))) (declare (not safe)) - (cons __tmp73202 '())))) + (cons __tmp73199 '())))) (declare (not safe)) - (cons _L69505_ __tmp73201)))) + (cons _L69502_ __tmp73198)))) (declare (not safe)) - (cons __tmp73203 __tmp73200))) - (__tmp73185 - (let ((__tmp73192 - (let ((__tmp73198 (gx#datum->syntax '#f 'cut)) - (__tmp73193 - (let ((__tmp73194 - (let ((__tmp73197 + (cons __tmp73200 __tmp73197))) + (__tmp73182 + (let ((__tmp73189 + (let ((__tmp73195 (gx#datum->syntax '#f 'cut)) + (__tmp73190 + (let ((__tmp73191 + (let ((__tmp73194 (gx#datum->syntax '#f 'h)) - (__tmp73195 - (let ((__tmp73196 - (lambda (_g6953569546_ + (__tmp73192 + (let ((__tmp73193 + (lambda (_g6953269543_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g6953669549_) + _g6953369546_) (let () (declare (not safe)) - (cons _g6953569546_ _g6953669549_))))) + (cons _g6953269543_ _g6953369546_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp73196 + (foldr1 __tmp73193 '() - _L69506_)))) + _L69503_)))) (declare (not safe)) - (cons __tmp73197 __tmp73195)))) + (cons __tmp73194 __tmp73192)))) (declare (not safe)) - (cons _L69504_ __tmp73194)))) + (cons _L69501_ __tmp73191)))) (declare (not safe)) - (cons __tmp73198 __tmp73193))) - (__tmp73186 - (let ((__tmp73187 - (let ((__tmp73191 + (cons __tmp73195 __tmp73190))) + (__tmp73183 + (let ((__tmp73184 + (let ((__tmp73188 (gx#datum->syntax '#f 'cut)) - (__tmp73188 - (let ((__tmp73189 - (let ((__tmp73190 + (__tmp73185 + (let ((__tmp73186 + (let ((__tmp73187 (gx#datum->syntax '#f 'l))) (declare (not safe)) - (cons __tmp73190 '())))) + (cons __tmp73187 '())))) (declare (not safe)) - (cons _L69502_ __tmp73189)))) + (cons _L69499_ __tmp73186)))) (declare (not safe)) - (cons __tmp73191 __tmp73188)))) + (cons __tmp73188 __tmp73185)))) (declare (not safe)) - (cons __tmp73187 '())))) + (cons __tmp73184 '())))) (declare (not safe)) - (cons __tmp73192 __tmp73186)))) + (cons __tmp73189 __tmp73183)))) (declare (not safe)) - (cons __tmp73199 __tmp73185)))) + (cons __tmp73196 __tmp73182)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73204 - __tmp73184)))) + (cons __tmp73201 + __tmp73181)))) (declare (not safe)) - (cons __tmp73183 '())))) + (cons __tmp73180 '())))) (declare (not safe)) - (cons __tmp73205 __tmp73182)))) + (cons __tmp73202 __tmp73179)))) (declare (not safe)) - (cons __tmp73221 __tmp73181)))) + (cons __tmp73218 __tmp73178)))) (declare (not safe)) - (cons __tmp73180 '())))) + (cons __tmp73177 '())))) (declare (not safe)) - (cons __tmp73222 __tmp73179)))) + (cons __tmp73219 __tmp73176)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73226 __tmp73178)))) + (cons __tmp73223 __tmp73175)))) (declare (not safe)) - (cons __tmp73177 '())))) + (cons __tmp73174 '())))) (declare (not safe)) - (cons __tmp73227 __tmp73176)))) + (cons __tmp73224 __tmp73173)))) (declare (not safe)) - (cons __tmp73232 __tmp73175))) - _hd6939869496_ - _hd6939569486_ - _hd6939269476_ - _arg6939069468_ - _hd6938069436_) - (_g6936669405_ _g6936769409_)))) - (_g6936669405_ _g6936769409_)))) + (cons __tmp73229 __tmp73172))) + _hd6939569493_ + _hd6939269483_ + _hd6938969473_ + _arg6938769465_ + _hd6937769433_) + (_g6936369402_ _g6936469406_)))) + (_g6936369402_ _g6936469406_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6936669405_ _g6936769409_)))) - (_g6936669405_ _g6936769409_))))))) - (_loop6938569448_ _target6938269442_ '())) - (_g6936669405_ _g6936769409_))))) + (_g6936369402_ _g6936469406_)))) + (_g6936369402_ _g6936469406_))))))) + (_loop6938269445_ _target6937969439_ '())) + (_g6936369402_ _g6936469406_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6936669405_ _g6936769409_)))) - (_g6936669405_ _g6936769409_)))) - (_g6936669405_ _g6936769409_)))) - (_g6936669405_ _g6936769409_))))) - (_g6936569552_ _$stx69362_)))) + (_g6936369402_ _g6936469406_)))) + (_g6936369402_ _g6936469406_)))) + (_g6936369402_ _g6936469406_)))) + (_g6936369402_ _g6936469406_))))) + (_g6936269549_ _$stx69359_)))) (define |[:0:]#defchecked-hash-method| - (lambda (_$stx69573_) - (let* ((_g6957769616_ - (lambda (_g6957869612_) + (lambda (_$stx69570_) + (let* ((_g6957469613_ + (lambda (_g6957569609_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6957869612_))) - (_g6957669763_ - (lambda (_g6957869620_) - (if (gx#stx-pair? _g6957869620_) - (let ((_e6958669623_ (gx#syntax-e _g6957869620_))) - (let ((_hd6958569627_ + _g6957569609_))) + (_g6957369760_ + (lambda (_g6957569617_) + (if (gx#stx-pair? _g6957569617_) + (let ((_e6958369620_ (gx#syntax-e _g6957569617_))) + (let ((_hd6958269624_ (let () (declare (not safe)) - (##car _e6958669623_))) - (_tl6958469630_ + (##car _e6958369620_))) + (_tl6958169627_ (let () (declare (not safe)) - (##cdr _e6958669623_)))) - (if (gx#stx-pair? _tl6958469630_) - (let ((_e6958969633_ - (gx#syntax-e _tl6958469630_))) - (let ((_hd6958869637_ + (##cdr _e6958369620_)))) + (if (gx#stx-pair? _tl6958169627_) + (let ((_e6958669630_ + (gx#syntax-e _tl6958169627_))) + (let ((_hd6958569634_ (let () (declare (not safe)) - (##car _e6958969633_))) - (_tl6958769640_ + (##car _e6958669630_))) + (_tl6958469637_ (let () (declare (not safe)) - (##cdr _e6958969633_)))) - (if (gx#stx-pair? _hd6958869637_) - (let ((_e6959269643_ - (gx#syntax-e _hd6958869637_))) - (let ((_hd6959169647_ + (##cdr _e6958669630_)))) + (if (gx#stx-pair? _hd6958569634_) + (let ((_e6958969640_ + (gx#syntax-e _hd6958569634_))) + (let ((_hd6958869644_ (let () (declare (not safe)) - (##car _e6959269643_))) - (_tl6959069650_ + (##car _e6958969640_))) + (_tl6958769647_ (let () (declare (not safe)) - (##cdr _e6959269643_)))) - (if (gx#stx-pair? _tl6959069650_) - (let ((_e6959569653_ + (##cdr _e6958969640_)))) + (if (gx#stx-pair? _tl6958769647_) + (let ((_e6959269650_ (gx#syntax-e - _tl6959069650_))) - (let ((_hd6959469657_ + _tl6958769647_))) + (let ((_hd6959169654_ (let () (declare (not safe)) - (##car _e6959569653_))) - (_tl6959369660_ + (##car _e6959269650_))) + (_tl6959069657_ (let () (declare (not safe)) - (##cdr _e6959569653_)))) + (##cdr _e6959269650_)))) (if (gx#stx-pair/null? - _tl6959369660_) - (let ((_g73233_ + _tl6959069657_) + (let ((_g73230_ (gx#syntax-split-splice - _tl6959369660_ + _tl6959069657_ '0))) (begin - (let ((_g73234_ + (let ((_g73231_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g73233_) - (##vector-length _g73233_) + (if (##values? _g73230_) + (##vector-length _g73230_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g73234_ 2))) - (error "Context expects 2 values" _g73234_))) - (let ((_target6959669663_ + (if (not (let () (declare (not safe)) (##fx= _g73231_ 2))) + (error "Context expects 2 values" _g73231_))) + (let ((_target6959369660_ (let () (declare (not safe)) - (##vector-ref _g73233_ 0))) - (_tl6959869666_ + (##vector-ref _g73230_ 0))) + (_tl6959569663_ (let () (declare (not safe)) - (##vector-ref _g73233_ 1)))) - (if (gx#stx-null? _tl6959869666_) - (letrec ((_loop6959969669_ - (lambda (_hd6959769673_ _arg6960369676_) - (if (gx#stx-pair? _hd6959769673_) - (let ((_e6960069679_ - (gx#syntax-e _hd6959769673_))) - (let ((_lp-hd6960169683_ + (##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_ (let () (declare (not safe)) - (##car _e6960069679_))) - (_lp-tl6960269686_ + (##car _e6959769676_))) + (_lp-tl6959969683_ (let () (declare (not safe)) - (##cdr _e6960069679_)))) - (_loop6959969669_ - _lp-tl6960269686_ + (##cdr _e6959769676_)))) + (_loop6959669666_ + _lp-tl6959969683_ (let () (declare (not safe)) - (cons _lp-hd6960169683_ - _arg6960369676_))))) - (let ((_arg6960469689_ - (reverse _arg6960369676_))) - (if (gx#stx-pair? _tl6958769640_) - (let ((_e6960769693_ + (cons _lp-hd6959869680_ + _arg6960069673_))))) + (let ((_arg6960169686_ + (reverse _arg6960069673_))) + (if (gx#stx-pair? _tl6958469637_) + (let ((_e6960469690_ (gx#syntax-e - _tl6958769640_))) - (let ((_hd6960669697_ + _tl6958469637_))) + (let ((_hd6960369694_ (let () (declare (not safe)) - (##car _e6960769693_))) - (_tl6960569700_ + (##car _e6960469690_))) + (_tl6960269697_ (let () (declare (not safe)) - (##cdr _e6960769693_)))) + (##cdr _e6960469690_)))) (if (gx#stx-pair? - _tl6960569700_) - (let ((_e6961069703_ + _tl6960269697_) + (let ((_e6960769700_ (gx#syntax-e - _tl6960569700_))) - (let ((_hd6960969707_ + _tl6960269697_))) + (let ((_hd6960669704_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e6961069703_))) - (_tl6960869710_ - (let () (declare (not safe)) (##cdr _e6961069703_)))) - (if (gx#stx-null? _tl6960869710_) - ((lambda (_L69713_ _L69715_ _L69716_ _L69717_ _L69718_) - (let ((__tmp73276 (gx#datum->syntax '#f 'defmethod)) - (__tmp73235 - (let ((__tmp73271 - (let ((__tmp73275 + (##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 (gx#datum->syntax '#f '@method)) - (__tmp73272 - (let ((__tmp73273 - (let ((__tmp73274 + (__tmp73269 + (let ((__tmp73270 + (let ((__tmp73271 (gx#datum->syntax '#f 'checked-hash-table))) (declare (not safe)) - (cons __tmp73274 '())))) + (cons __tmp73271 '())))) (declare (not safe)) - (cons _L69718_ __tmp73273)))) + (cons _L69715_ __tmp73270)))) (declare (not safe)) - (cons __tmp73275 __tmp73272))) - (__tmp73236 - (let ((__tmp73237 - (let ((__tmp73270 + (cons __tmp73272 __tmp73269))) + (__tmp73233 + (let ((__tmp73234 + (let ((__tmp73267 (gx#datum->syntax '#f 'lambda)) - (__tmp73238 - (let ((__tmp73267 - (let ((__tmp73268 + (__tmp73235 + (let ((__tmp73264 + (let ((__tmp73265 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp73269 - (lambda (_g6974869751_ _g6974969754_) + (let ((__tmp73266 + (lambda (_g6974569748_ _g6974669751_) (let () (declare (not safe)) - (cons _g6974869751_ _g6974969754_))))) + (cons _g6974569748_ _g6974669751_))))) (declare (not safe)) - (foldr1 __tmp73269 '() _L69716_)))) + (foldr1 __tmp73266 '() _L69713_)))) (declare (not safe)) - (cons _L69717_ __tmp73268))) - (__tmp73239 - (let ((__tmp73240 - (let ((__tmp73266 (gx#datum->syntax '#f 'let)) - (__tmp73241 - (let ((__tmp73252 - (let ((__tmp73260 - (let ((__tmp73265 + (cons _L69714_ __tmp73265))) + (__tmp73236 + (let ((__tmp73237 + (let ((__tmp73263 (gx#datum->syntax '#f 'let)) + (__tmp73238 + (let ((__tmp73249 + (let ((__tmp73257 + (let ((__tmp73262 (gx#datum->syntax '#f 'h)) - (__tmp73261 - (let ((__tmp73262 - (let ((__tmp73264 + (__tmp73258 + (let ((__tmp73259 + (let ((__tmp73261 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&checked-hash-table-table)) - (__tmp73263 + (__tmp73260 (let () (declare (not safe)) - (cons _L69717_ '())))) + (cons _L69714_ '())))) (declare (not safe)) - (cons __tmp73264 __tmp73263)))) + (cons __tmp73261 __tmp73260)))) (declare (not safe)) - (cons __tmp73262 '())))) + (cons __tmp73259 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73265 - __tmp73261))) - (__tmp73253 - (let ((__tmp73254 - (let ((__tmp73259 + (cons __tmp73262 + __tmp73258))) + (__tmp73250 + (let ((__tmp73251 + (let ((__tmp73256 (gx#datum->syntax '#f 'key?)) - (__tmp73255 - (let ((__tmp73256 + (__tmp73252 + (let ((__tmp73253 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp73258 + (let ((__tmp73255 (gx#datum->syntax '#f '&checked-hash-table-key-check)) - (__tmp73257 + (__tmp73254 (let () (declare (not safe)) - (cons _L69717_ '())))) + (cons _L69714_ '())))) (declare (not safe)) - (cons __tmp73258 __tmp73257)))) + (cons __tmp73255 __tmp73254)))) (declare (not safe)) - (cons __tmp73256 '())))) + (cons __tmp73253 '())))) (declare (not safe)) - (cons __tmp73259 __tmp73255)))) + (cons __tmp73256 __tmp73252)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73254 '())))) + (cons __tmp73251 '())))) (declare (not safe)) - (cons __tmp73260 __tmp73253))) - (__tmp73242 - (let ((__tmp73249 - (let ((__tmp73250 - (let ((__tmp73251 + (cons __tmp73257 __tmp73250))) + (__tmp73239 + (let ((__tmp73246 + (let ((__tmp73247 + (let ((__tmp73248 (gx#datum->syntax '#f 'key?))) (declare (not safe)) - (cons __tmp73251 + (cons __tmp73248 '())))) (declare (not safe)) - (cons _L69715_ __tmp73250))) - (__tmp73243 - (let ((__tmp73244 - (let ((__tmp73245 - (let ((__tmp73248 + (cons _L69712_ __tmp73247))) + (__tmp73240 + (let ((__tmp73241 + (let ((__tmp73242 + (let ((__tmp73245 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp73246 - (let ((__tmp73247 - (lambda (_g6974669757_ _g6974769760_) + (__tmp73243 + (let ((__tmp73244 + (lambda (_g6974369754_ _g6974469757_) (let () (declare (not safe)) - (cons _g6974669757_ _g6974769760_))))) + (cons _g6974369754_ _g6974469757_))))) (declare (not safe)) - (foldr1 __tmp73247 '() _L69716_)))) + (foldr1 __tmp73244 '() _L69713_)))) (declare (not safe)) - (cons __tmp73248 __tmp73246)))) + (cons __tmp73245 __tmp73243)))) (declare (not safe)) - (cons _L69713_ __tmp73245)))) + (cons _L69710_ __tmp73242)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73244 '())))) + (cons __tmp73241 '())))) (declare (not safe)) - (cons __tmp73249 __tmp73243)))) + (cons __tmp73246 __tmp73240)))) (declare (not safe)) - (cons __tmp73252 __tmp73242)))) + (cons __tmp73249 __tmp73239)))) (declare (not safe)) - (cons __tmp73266 __tmp73241)))) + (cons __tmp73263 __tmp73238)))) (declare (not safe)) - (cons __tmp73240 '())))) + (cons __tmp73237 '())))) (declare (not safe)) - (cons __tmp73267 __tmp73239)))) + (cons __tmp73264 __tmp73236)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73270 __tmp73238)))) + (cons __tmp73267 __tmp73235)))) (declare (not safe)) - (cons __tmp73237 '())))) + (cons __tmp73234 '())))) (declare (not safe)) - (cons __tmp73271 __tmp73236)))) + (cons __tmp73268 __tmp73233)))) (declare (not safe)) - (cons __tmp73276 __tmp73235))) - _hd6960969707_ - _hd6960669697_ - _arg6960469689_ - _hd6959469657_ - _hd6959169647_) - (_g6957769616_ _g6957869620_)))) - (_g6957769616_ _g6957869620_)))) + (cons __tmp73273 __tmp73232))) + _hd6960669704_ + _hd6960369694_ + _arg6960169686_ + _hd6959169654_ + _hd6958869644_) + (_g6957469613_ _g6957569617_)))) + (_g6957469613_ _g6957569617_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6957769616_ - _g6957869620_))))))) - (_loop6959969669_ _target6959669663_ '())) - (_g6957769616_ _g6957869620_))))) - (_g6957769616_ _g6957869620_)))) + (_g6957469613_ + _g6957569617_))))))) + (_loop6959669666_ _target6959369660_ '())) + (_g6957469613_ _g6957569617_))))) + (_g6957469613_ _g6957569617_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6957769616_ _g6957869620_)))) - (_g6957769616_ _g6957869620_)))) - (_g6957769616_ _g6957869620_)))) - (_g6957769616_ _g6957869620_))))) - (_g6957669763_ _$stx69573_)))) + (_g6957469613_ _g6957569617_)))) + (_g6957469613_ _g6957569617_)))) + (_g6957469613_ _g6957569617_)))) + (_g6957469613_ _g6957569617_))))) + (_g6957369760_ _$stx69570_)))) (define |[:0:]#check-hash-arg| - (lambda (_$stx69768_) - (let* ((_g6977269790_ - (lambda (_g6977369786_) + (lambda (_$stx69765_) + (let* ((_g6976969787_ + (lambda (_g6977069783_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6977369786_))) - (_g6977169845_ - (lambda (_g6977369794_) - (if (gx#stx-pair? _g6977369794_) - (let ((_e6977869797_ (gx#syntax-e _g6977369794_))) - (let ((_hd6977769801_ + _g6977069783_))) + (_g6976869842_ + (lambda (_g6977069791_) + (if (gx#stx-pair? _g6977069791_) + (let ((_e6977569794_ (gx#syntax-e _g6977069791_))) + (let ((_hd6977469798_ (let () (declare (not safe)) - (##car _e6977869797_))) - (_tl6977669804_ + (##car _e6977569794_))) + (_tl6977369801_ (let () (declare (not safe)) - (##cdr _e6977869797_)))) - (if (gx#stx-pair? _tl6977669804_) - (let ((_e6978169807_ - (gx#syntax-e _tl6977669804_))) - (let ((_hd6978069811_ + (##cdr _e6977569794_)))) + (if (gx#stx-pair? _tl6977369801_) + (let ((_e6977869804_ + (gx#syntax-e _tl6977369801_))) + (let ((_hd6977769808_ (let () (declare (not safe)) - (##car _e6978169807_))) - (_tl6977969814_ + (##car _e6977869804_))) + (_tl6977669811_ (let () (declare (not safe)) - (##cdr _e6978169807_)))) - (if (gx#stx-pair? _tl6977969814_) - (let ((_e6978469817_ - (gx#syntax-e _tl6977969814_))) - (let ((_hd6978369821_ + (##cdr _e6977869804_)))) + (if (gx#stx-pair? _tl6977669811_) + (let ((_e6978169814_ + (gx#syntax-e _tl6977669811_))) + (let ((_hd6978069818_ (let () (declare (not safe)) - (##car _e6978469817_))) - (_tl6978269824_ + (##car _e6978169814_))) + (_tl6977969821_ (let () (declare (not safe)) - (##cdr _e6978469817_)))) - (if (gx#stx-null? _tl6978269824_) - ((lambda (_L69827_ _L69829_) - (let ((__tmp73285 + (##cdr _e6978169814_)))) + (if (gx#stx-null? _tl6977969821_) + ((lambda (_L69824_ _L69826_) + (let ((__tmp73282 (gx#datum->syntax '#f 'unless)) - (__tmp73277 - (let ((__tmp73283 - (let ((__tmp73284 + (__tmp73274 + (let ((__tmp73280 + (let ((__tmp73281 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L69827_ '())))) + (cons _L69824_ '())))) (declare (not safe)) - (cons _L69829_ __tmp73284))) - (__tmp73278 - (let ((__tmp73279 - (let ((__tmp73282 (gx#datum->syntax '#f 'error)) - (__tmp73280 - (let ((__tmp73281 + (cons _L69826_ __tmp73281))) + (__tmp73275 + (let ((__tmp73276 + (let ((__tmp73279 (gx#datum->syntax '#f 'error)) + (__tmp73277 + (let ((__tmp73278 (let () (declare (not safe)) - (cons _L69827_ '())))) + (cons _L69824_ '())))) (declare (not safe)) - (cons '"invalid argument" __tmp73281)))) + (cons '"invalid argument" __tmp73278)))) (declare (not safe)) - (cons __tmp73282 __tmp73280)))) + (cons __tmp73279 __tmp73277)))) (declare (not safe)) - (cons __tmp73279 '())))) + (cons __tmp73276 '())))) (declare (not safe)) - (cons __tmp73283 __tmp73278)))) + (cons __tmp73280 __tmp73275)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73285 - __tmp73277))) - _hd6978369821_ - _hd6978069811_) - (_g6977269790_ _g6977369794_)))) - (_g6977269790_ _g6977369794_)))) - (_g6977269790_ _g6977369794_)))) - (_g6977269790_ _g6977369794_))))) - (_g6977169845_ _$stx69768_)))))) + (cons __tmp73282 + __tmp73274))) + _hd6978069818_ + _hd6977769808_) + (_g6976969787_ _g6977069791_)))) + (_g6976969787_ _g6977069791_)))) + (_g6976969787_ _g6977069791_)))) + (_g6976969787_ _g6977069791_))))) + (_g6976869842_ _$stx69765_)))))) diff --git a/src/bootstrap/gerbil/runtime/init__0.scm b/src/bootstrap/gerbil/runtime/init__0.scm index 1472b9af..35f33f36 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 1709128371) + (define gerbil/runtime/init::timestamp 1709229970) (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+78674_ __*readtable*)) + (letrec* ((_+readtable+78671_ __*readtable*)) (let () (declare (not safe)) (__init-gx!)) - (let* ((_core78676_ (gx#import-module ':gerbil/core)) - (_pre78678_ (gx#make-prelude-context _core78676_))) - (gx#current-expander-module-prelude _pre78678_) - (gx#core-bind-root-syntax! ':<core> _pre78678_ '#t) + (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) (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 (_port78681_) - (input-port-readtable-set! _port78681_ _+readtable+78674_)) + (lambda (_port78678_) + (input-port-readtable-set! _port78678_ _+readtable+78671_)) (list ##stdin-port ##console-port)) (for-each - (lambda (_port78683_) + (lambda (_port78680_) (output-port-readtable-set! - _port78683_ + _port78680_ (readtable-sharing-allowed?-set - (output-port-readtable _port78683_) + (output-port-readtable _port78680_) '#t))) (list ##stdout-port ##console-port))))) - (define __gxi-init-interactive! (lambda (_cmdline78671_) '#!void)) + (define __gxi-init-interactive! (lambda (_cmdline78668_) '#!void)) (define load-scheme - (lambda (_path78666_) - (let ((__tmp78685 + (lambda (_path78663_) + (let ((__tmp78682 (lambda () - (let ((__tmp78686 (lambda _args78669_ '#f))) + (let ((__tmp78683 (lambda _args78666_ '#f))) (declare (not safe)) - (##load _path78666_ __tmp78686 '#t '#t '#f))))) + (##load _path78663_ __tmp78683 '#t '#t '#f))))) (declare (not safe)) (call-with-parameters - __tmp78685 + __tmp78682 __loading-scheme-source - _path78666_)))) + _path78663_)))) (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 _paths78661_ - (apply add-library-load-path _paths78661_) - (apply add-expander-load-path _paths78661_))) + (lambda _paths78658_ + (apply add-library-load-path _paths78658_) + (apply add-expander-load-path _paths78658_))) (define add-library-load-path - (lambda _paths78650_ - (let* ((_current78652_ (current-module-library-path)) - (_paths78654_ (map path-expand _paths78650_)) - (_paths78658_ - (let ((__tmp78687 - (lambda (_x78656_) - (let ((__tmp78688 (member _x78656_ _current78652_))) + (lambda _paths78647_ + (let* ((_current78649_ (current-module-library-path)) + (_paths78651_ (map path-expand _paths78647_)) + (_paths78655_ + (let ((__tmp78684 + (lambda (_x78653_) + (let ((__tmp78685 (member _x78653_ _current78649_))) (declare (not safe)) - (not __tmp78688))))) + (not __tmp78685))))) (declare (not safe)) - (filter __tmp78687 _paths78654_)))) - (current-module-library-path (append _current78652_ _paths78658_))))) + (filter __tmp78684 _paths78651_)))) + (current-module-library-path (append _current78649_ _paths78655_))))) (define add-expander-load-path - (lambda _paths78639_ - (let* ((_current78641_ (gx#current-expander-module-library-path)) - (_paths78643_ (map path-expand _paths78639_)) - (_paths78647_ - (let ((__tmp78689 - (lambda (_x78645_) - (let ((__tmp78690 (member _x78645_ _current78641_))) + (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_))) (declare (not safe)) - (not __tmp78690))))) + (not __tmp78687))))) (declare (not safe)) - (filter __tmp78689 _paths78643_)))) + (filter __tmp78686 _paths78640_)))) (gx#current-expander-module-library-path - (append _current78641_ _paths78647_))))) + (append _current78638_ _paths78644_))))) (define cons-load-path - (lambda _paths78637_ - (apply cons-library-load-path _paths78637_) - (apply cons-expander-load-path _paths78637_))) + (lambda _paths78634_ + (apply cons-library-load-path _paths78634_) + (apply cons-expander-load-path _paths78634_))) (define cons-library-load-path - (lambda _paths78632_ - (let ((_current78634_ (current-module-library-path)) - (_paths78635_ (map path-expand _paths78632_))) - (current-module-library-path (append _paths78635_ _current78634_))))) + (lambda _paths78629_ + (let ((_current78631_ (current-module-library-path)) + (_paths78632_ (map path-expand _paths78629_))) + (current-module-library-path (append _paths78632_ _current78631_))))) (define cons-expander-load-path - (lambda _paths78627_ - (let ((_current78629_ (gx#current-expander-module-library-path)) - (_paths78630_ (map path-expand _paths78627_))) + (lambda _paths78624_ + (let ((_current78626_ (gx#current-expander-module-library-path)) + (_paths78627_ (map path-expand _paths78624_))) (gx#current-expander-module-library-path - (append _paths78630_ _current78629_))))) + (append _paths78627_ _current78626_))))) (define with-cons-load-path - (lambda (_thunk78623_ . _paths78624_) + (lambda (_thunk78620_ . _paths78621_) (apply with-cons-library-load-path (lambda () (apply with-cons-expander-load-path - _thunk78623_ - _paths78624_)) - _paths78624_))) + _thunk78620_ + _paths78621_)) + _paths78621_))) (define with-cons-library-load-path - (lambda (_thunk78616_ . _paths78617_) - (let ((_current78619_ (current-module-library-path)) - (_paths78620_ (map path-expand _paths78617_))) - (let ((__tmp78692 (lambda () (_thunk78616_))) - (__tmp78691 (append _paths78620_ _current78619_))) + (lambda (_thunk78613_ . _paths78614_) + (let ((_current78616_ (current-module-library-path)) + (_paths78617_ (map path-expand _paths78614_))) + (let ((__tmp78689 (lambda () (_thunk78613_))) + (__tmp78688 (append _paths78617_ _current78616_))) (declare (not safe)) (call-with-parameters - __tmp78692 + __tmp78689 current-module-library-path - __tmp78691))))) + __tmp78688))))) (define with-cons-expander-load-path - (lambda (_thunk78609_ . _paths78610_) - (let ((_current78612_ (gx#current-expander-module-library-path)) - (_paths78613_ (map path-expand _paths78610_))) - (let ((__tmp78694 (lambda () (_thunk78609_))) - (__tmp78693 (append _paths78613_ _current78612_))) + (lambda (_thunk78606_ . _paths78607_) + (let ((_current78609_ (gx#current-expander-module-library-path)) + (_paths78610_ (map path-expand _paths78607_))) + (let ((__tmp78691 (lambda () (_thunk78606_))) + (__tmp78690 (append _paths78610_ _current78609_))) (declare (not safe)) (call-with-parameters - __tmp78694 + __tmp78691 gx#current-expander-module-library-path - __tmp78693))))) + __tmp78690))))) (define __expand-source - (lambda (_src78595_) - (letrec ((_expand78597_ - (lambda (_src78607_) - (let ((__tmp78695 + (lambda (_src78592_) + (letrec ((_expand78594_ + (lambda (_src78604_) + (let ((__tmp78692 (gx#core-expand (let () (declare (not safe)) - (__source->syntax _src78607_))))) + (__source->syntax _src78604_))))) (declare (not safe)) - (__compile-top __tmp78695)))) - (_no-expand78598_ - (lambda (_src78603_) + (__compile-top __tmp78692)))) + (_no-expand78595_ + (lambda (_src78600_) (if (__loading-scheme-source) - _src78603_ + _src78600_ (if (let () (declare (not safe)) - (##source? _src78603_)) - (let ((_code78605_ + (##source? _src78600_)) + (let ((_code78602_ (let () (declare (not safe)) - (##source-code _src78603_)))) + (##source-code _src78600_)))) (if (let () (declare (not safe)) - (pair? _code78605_)) - (if (let ((__tmp78696 + (pair? _code78602_)) + (if (let ((__tmp78693 (let () (declare (not safe)) - (##car _code78605_)))) + (##car _code78602_)))) (declare (not safe)) - (eq? '__noexpand: __tmp78696)) + (eq? '__noexpand: __tmp78693)) (let () (declare (not safe)) - (##cdr _code78605_)) + (##cdr _code78602_)) '#f) '#f)) '#f))))) - (let ((_$e78600_ - (let () (declare (not safe)) (_no-expand78598_ _src78595_)))) - (if _$e78600_ - _$e78600_ - (let () (declare (not safe)) (_expand78597_ _src78595_))))))) + (let ((_$e78597_ + (let () (declare (not safe)) (_no-expand78595_ _src78592_)))) + (if _$e78597_ + _$e78597_ + (let () (declare (not safe)) (_expand78594_ _src78592_))))))) (define __macro-descr - (lambda (_src78581_ _def-syntax?78582_) - (letrec ((_fail!78584_ + (lambda (_src78578_ _def-syntax?78579_) + (letrec ((_fail!78581_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _src78581_)))) - (_make-descr78585_ - (lambda (_size78589_) - (let ((_expander78592_ - (let ((__tmp78697 + _src78578_)))) + (_make-descr78582_ + (lambda (_size78586_) + (let ((_expander78589_ + (let ((__tmp78694 (lambda () (let () (declare (not safe)) (##eval-top - _src78581_ + _src78578_ ##interaction-cte))))) (declare (not safe)) (call-with-parameters - __tmp78697 + __tmp78694 __loading-scheme-source 'macro)))) (if (let () (declare (not safe)) - (procedure? _expander78592_)) + (procedure? _expander78589_)) (let () (declare (not safe)) (##make-macro-descr - _def-syntax?78582_ - _size78589_ - _expander78592_ - _src78581_)) - (let () (declare (not safe)) (_fail!78584_))))))) - (if _def-syntax?78582_ - (let () (declare (not safe)) (_make-descr78585_ '-1)) - (let ((_code78587_ - (let () (declare (not safe)) (##source-code _src78581_)))) - (if (and (let () (declare (not safe)) (##pair? _code78587_)) - (let ((__tmp78701 - (let ((__tmp78702 - (let ((__tmp78703 + _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 (let () (declare (not safe)) - (##car _code78587_)))) + (##car _code78584_)))) (declare (not safe)) - (##sourcify __tmp78703 _src78581_)))) + (##sourcify __tmp78700 _src78578_)))) (declare (not safe)) - (##source-code __tmp78702)))) + (##source-code __tmp78699)))) (declare (not safe)) - (##memq __tmp78701 '(##lambda lambda)))) + (##memq __tmp78698 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _src78581_ _src78581_ '-3)) - (let ((__tmp78698 - (let ((__tmp78699 - (let ((__tmp78700 + (##shape _src78578_ _src78578_ '-3)) + (let ((__tmp78695 + (let ((__tmp78696 + (let ((__tmp78697 (let () (declare (not safe)) - (##cadr _code78587_)))) + (##cadr _code78584_)))) (declare (not safe)) - (##sourcify __tmp78700 _src78581_)))) + (##sourcify __tmp78697 _src78578_)))) (declare (not safe)) - (##form-size __tmp78699)))) + (##form-size __tmp78696)))) (declare (not safe)) - (_make-descr78585_ __tmp78698))) - (let () (declare (not safe)) (_fail!78584_)))))))) + (_make-descr78582_ __tmp78695))) + (let () (declare (not safe)) (_fail!78581_)))))))) (define __source->syntax - (lambda (_src78575_) - (let _recur78577_ ((_e78579_ _src78575_)) - (if (let () (declare (not safe)) (##source? _e78579_)) - (let ((__tmp78711 - (let ((__tmp78712 + (lambda (_src78572_) + (let _recur78574_ ((_e78576_ _src78572_)) + (if (let () (declare (not safe)) (##source? _e78576_)) + (let ((__tmp78708 + (let ((__tmp78709 (let () (declare (not safe)) - (##source-code _e78579_)))) + (##source-code _e78576_)))) (declare (not safe)) - (_recur78577_ __tmp78712))) - (__tmp78710 - (let () (declare (not safe)) (##source-locat _e78579_)))) + (_recur78574_ __tmp78709))) + (__tmp78707 + (let () (declare (not safe)) (##source-locat _e78576_)))) (declare (not safe)) - (##structure AST::t __tmp78711 __tmp78710)) - (if (let () (declare (not safe)) (pair? _e78579_)) - (let ((__tmp78708 - (let ((__tmp78709 + (##structure AST::t __tmp78708 __tmp78707)) + (if (let () (declare (not safe)) (pair? _e78576_)) + (let ((__tmp78705 + (let ((__tmp78706 (let () (declare (not safe)) - (##car _e78579_)))) + (##car _e78576_)))) (declare (not safe)) - (_recur78577_ __tmp78709))) - (__tmp78706 - (let ((__tmp78707 + (_recur78574_ __tmp78706))) + (__tmp78703 + (let ((__tmp78704 (let () (declare (not safe)) - (##cdr _e78579_)))) + (##cdr _e78576_)))) (declare (not safe)) - (_recur78577_ __tmp78707)))) + (_recur78574_ __tmp78704)))) (declare (not safe)) - (cons __tmp78708 __tmp78706)) - (if (let () (declare (not safe)) (vector? _e78579_)) - (vector-map _recur78577_ _e78579_) - (if (let () (declare (not safe)) (box? _e78579_)) - (let ((__tmp78704 - (let ((__tmp78705 (unbox _e78579_))) + (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_))) (declare (not safe)) - (_recur78577_ __tmp78705)))) + (_recur78574_ __tmp78702)))) (declare (not safe)) - (box __tmp78704)) - _e78579_))))))) + (box __tmp78701)) + _e78576_))))))) (define __compile-top-source - (lambda (_stx78573_) - (let ((__tmp78713 - (let () (declare (not safe)) (__compile-top _stx78573_)))) + (lambda (_stx78570_) + (let ((__tmp78710 + (let () (declare (not safe)) (__compile-top _stx78570_)))) (declare (not safe)) - (cons '__noexpand: __tmp78713)))) + (cons '__noexpand: __tmp78710)))) (define __compile-top - (lambda (_stx78571_) - (let ((__tmp78714 (gx#core-compile-top-syntax _stx78571_))) + (lambda (_stx78568_) + (let ((__tmp78711 (gx#core-compile-top-syntax _stx78568_))) (declare (not safe)) - (__compile __tmp78714)))) + (__compile __tmp78711)))) (define __eval-import - (lambda (_in78552_) - (letrec* ((_mods78554_ + (lambda (_in78549_) + (letrec* ((_mods78551_ (let () (declare (not safe)) (make-hash-table-eq))) - (_import178555_ - (lambda (_in78562_ _phi78563_) - (if (gx#module-import? _in78562_) - (let ((_iphi78565_ - (fx+ _phi78563_ - (gx#module-import-phi _in78562_)))) + (_import178552_ + (lambda (_in78559_ _phi78560_) + (if (gx#module-import? _in78559_) + (let ((_iphi78562_ + (fx+ _phi78560_ + (gx#module-import-phi _in78559_)))) (if (let () (declare (not safe)) - (fxzero? _iphi78565_)) - (let ((__tmp78716 + (fxzero? _iphi78562_)) + (let ((__tmp78713 (gx#module-export-context - (gx#module-import-source _in78562_)))) + (gx#module-import-source _in78559_)))) (declare (not safe)) - (_eval178556_ __tmp78716)) + (_eval178553_ __tmp78713)) '#!void)) - (if (gx#module-context? _in78562_) + (if (gx#module-context? _in78559_) (if (let () (declare (not safe)) - (fxzero? _phi78563_)) + (fxzero? _phi78560_)) (let () (declare (not safe)) - (_eval178556_ _in78562_)) + (_eval178553_ _in78559_)) '#!void) - (if (gx#import-set? _in78562_) - (let ((_iphi78567_ - (fx+ _phi78563_ - (gx#import-set-phi _in78562_)))) + (if (gx#import-set? _in78559_) + (let ((_iphi78564_ + (fx+ _phi78560_ + (gx#import-set-phi _in78559_)))) (if (let () (declare (not safe)) - (fxzero? _iphi78567_)) - (let ((__tmp78715 + (fxzero? _iphi78564_)) + (let ((__tmp78712 (gx#import-set-source - _in78562_))) + _in78559_))) (declare (not safe)) - (_eval178556_ __tmp78715)) - (if (fxpositive? _iphi78567_) + (_eval178553_ __tmp78712)) + (if (fxpositive? _iphi78564_) (for-each - (lambda (_in78569_) + (lambda (_in78566_) (let () (declare (not safe)) - (_import178555_ - _in78569_ - _iphi78567_))) + (_import178552_ + _in78566_ + _iphi78564_))) (gx#module-context-import - (gx#import-set-source _in78562_))) + (gx#import-set-source _in78559_))) '#!void))) (let () (declare (not safe)) - (error '"Unexpected import" _in78562_))))))) - (_eval178556_ - (lambda (_ctx78560_) + (error '"Unexpected import" _in78559_))))))) + (_eval178553_ + (lambda (_ctx78557_) (if (let () (declare (not safe)) - (hash-get _mods78554_ _ctx78560_)) + (hash-get _mods78551_ _ctx78557_)) '#!void (begin (let () (declare (not safe)) - (hash-put! _mods78554_ _ctx78560_ '#t)) - (__eval-module _ctx78560_)))))) - (if (let () (declare (not safe)) (pair? _in78552_)) + (hash-put! _mods78551_ _ctx78557_ '#t)) + (__eval-module _ctx78557_)))))) + (if (let () (declare (not safe)) (pair? _in78549_)) (for-each - (lambda (_in78558_) - (let () (declare (not safe)) (_import178555_ _in78558_ '0))) - _in78552_) - (let () (declare (not safe)) (_import178555_ _in78552_ '0)))))) + (lambda (_in78555_) + (let () (declare (not safe)) (_import178552_ _in78555_ '0))) + _in78549_) + (let () (declare (not safe)) (_import178552_ _in78549_ '0)))))) (define __eval-module - (lambda (_obj78550_) (gx#core-eval-module _obj78550_))) + (lambda (_obj78547_) (gx#core-eval-module _obj78547_))) (define gerbil-runtime-init! - (lambda (_builtin-modules78485_) + (lambda (_builtin-modules78482_) (if __runtime-initialized '#!void (begin - (let* ((_home78487_ (let () (declare (not safe)) (gerbil-home))) - (_libdir78489_ (path-expand '"lib" _home78487_)) - (_userpath78491_ + (let* ((_home78484_ (let () (declare (not safe)) (gerbil-home))) + (_libdir78486_ (path-expand '"lib" _home78484_)) + (_userpath78488_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_loadpath78493_ + (_loadpath78490_ (if (getenv '"GERBIL_BUILD_PREFIX" '#f) (let () (declare (not safe)) - (cons _libdir78489_ '())) - (let ((__tmp78717 + (cons _libdir78486_ '())) + (let ((__tmp78714 (let () (declare (not safe)) - (cons _libdir78489_ '())))) + (cons _libdir78486_ '())))) (declare (not safe)) - (cons _userpath78491_ __tmp78717)))) - (_loadpath78502_ - (let ((_$e78495_ (getenv '"GERBIL_LOADPATH" '#f))) - (if _$e78495_ - ((lambda (_envvar78498_) - (append (let ((__tmp78719 - (lambda (_x78500_) - (let ((__tmp78720 + (cons _userpath78488_ __tmp78714)))) + (_loadpath78499_ + (let ((_$e78492_ (getenv '"GERBIL_LOADPATH" '#f))) + (if _$e78492_ + ((lambda (_envvar78495_) + (append (let ((__tmp78716 + (lambda (_x78497_) + (let ((__tmp78717 (let () (declare (not safe)) (string-empty? - _x78500_)))) + _x78497_)))) (declare (not safe)) - (not __tmp78720)))) - (__tmp78718 + (not __tmp78717)))) + (__tmp78715 (let () (declare (not safe)) (string-split - _envvar78498_ + _envvar78495_ '#\:)))) (declare (not safe)) - (filter __tmp78719 __tmp78718)) - _loadpath78493_)) - _$e78495_) - _loadpath78493_)))) - (current-module-library-path _loadpath78502_)) - (let* ((_registry-entry78507_ - (lambda (_m78505_) + (filter __tmp78716 __tmp78715)) + _loadpath78490_)) + _$e78492_) + _loadpath78490_)))) + (current-module-library-path _loadpath78499_)) + (let* ((_registry-entry78504_ + (lambda (_m78502_) (let () (declare (not safe)) - (cons _m78505_ 'builtin)))) - (_module-registry78547_ - (let _lp78509_ ((_rest78511_ _builtin-modules78485_) - (_registry78512_ '())) - (let* ((_rest7851378521_ _rest78511_) - (_else7851578529_ + (cons _m78502_ 'builtin)))) + (_module-registry78544_ + (let _lp78506_ ((_rest78508_ _builtin-modules78482_) + (_registry78509_ '())) + (let* ((_rest7851078518_ _rest78508_) + (_else7851278526_ (lambda () (let () (declare (not safe)) - (list->hash-table _registry78512_)))) - (_K7851778535_ - (lambda (_rest78532_ _mod78533_) - (let ((__tmp78721 - (let ((__tmp78725 - (let ((__tmp78726 + (list->hash-table _registry78509_)))) + (_K7851478532_ + (lambda (_rest78529_ _mod78530_) + (let ((__tmp78718 + (let ((__tmp78722 + (let ((__tmp78723 (string-append - _mod78533_ + _mod78530_ '"__0"))) (declare (not safe)) - (_registry-entry78507_ - __tmp78726))) - (__tmp78722 - (let ((__tmp78723 - (let ((__tmp78724 + (_registry-entry78504_ + __tmp78723))) + (__tmp78719 + (let ((__tmp78720 + (let ((__tmp78721 (string-append - _mod78533_ + _mod78530_ '"__rt"))) (declare (not safe)) - (_registry-entry78507_ - __tmp78724)))) + (_registry-entry78504_ + __tmp78721)))) (declare (not safe)) - (cons __tmp78723 - _registry78512_)))) + (cons __tmp78720 + _registry78509_)))) (declare (not safe)) - (cons __tmp78725 __tmp78722)))) + (cons __tmp78722 __tmp78719)))) (declare (not safe)) - (_lp78509_ _rest78532_ __tmp78721))))) + (_lp78506_ _rest78529_ __tmp78718))))) (if (let () (declare (not safe)) - (##pair? _rest7851378521_)) - (let ((_hd7851878538_ + (##pair? _rest7851078518_)) + (let ((_hd7851578535_ (let () (declare (not safe)) - (##car _rest7851378521_))) - (_tl7851978540_ + (##car _rest7851078518_))) + (_tl7851678537_ (let () (declare (not safe)) - (##cdr _rest7851378521_)))) - (let* ((_mod78543_ _hd7851878538_) - (_rest78545_ _tl7851978540_)) + (##cdr _rest7851078518_)))) + (let* ((_mod78540_ _hd7851578535_) + (_rest78542_ _tl7851678537_)) (declare (not safe)) - (_K7851778535_ _rest78545_ _mod78543_))) + (_K7851478532_ _rest78542_ _mod78540_))) (let () (declare (not safe)) - (_else7851578529_))))))) - (current-module-registry _module-registry78547_)) + (_else7851278526_))))))) + (current-module-registry _module-registry78544_)) (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 01417cc9..7a9560ac 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 1709128371) + (define gerbil/runtime/interface::timestamp 1709229969) (begin (define CastError::t - (let ((__tmp68445 (list Error::t))) + (let ((__tmp68442 (list Error::t))) (declare (not safe)) (make-class-type 'gerbil/runtime/interface#CastError::t 'CastError - __tmp68445 + __tmp68442 '() '() ':init!))) (define CastError? (let () (declare (not safe)) (make-class-predicate CastError::t))) (define make-CastError - (lambda _$args68438_ (apply make-instance CastError::t _$args68438_))) + (lambda _$args68435_ (apply make-instance CastError::t _$args68435_))) (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 (_where68312_ _message68313_ . _irritants68314_) - (raise (let ((__obj68441 + (lambda (_where68309_ _message68310_ . _irritants68311_) + (raise (let ((__obj68438 (let () (declare (not safe)) (##structure CastError::t '#f '#f '#f '#f)))) (CastError:::init! - __obj68441 - _message68313_ + __obj68438 + _message68310_ 'where: - _where68312_ + _where68309_ 'irritants: - _irritants68314_) - __obj68441)))) + _irritants68311_) + __obj68438)))) (define interface-cast-error? CastError?) (define interface-instance::t - (let ((__tmp68448 (list)) - (__tmp68446 - (let ((__tmp68447 + (let ((__tmp68445 (list)) + (__tmp68443 + (let ((__tmp68444 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp68447 '())))) + (cons __tmp68444 '())))) (declare (not safe)) (make-class-type 'gerbil#interface-instance::t 'interface-instance - __tmp68448 + __tmp68445 '(__object) - __tmp68446 + __tmp68443 '#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 ((__tmp68453 (list)) - (__tmp68449 - (let ((__tmp68452 + (let ((__tmp68450 (list)) + (__tmp68446 + (let ((__tmp68449 (let () (declare (not safe)) (cons 'struct: '#t))) - (__tmp68450 - (let ((__tmp68451 + (__tmp68447 + (let ((__tmp68448 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp68451 '())))) + (cons __tmp68448 '())))) (declare (not safe)) - (cons __tmp68452 __tmp68450)))) + (cons __tmp68449 __tmp68447)))) (declare (not safe)) (make-class-type 'gerbil/runtime/interface#interface-descriptor::t 'interface-descriptor - __tmp68453 + __tmp68450 '(type methods) - __tmp68449 + __tmp68446 '#f))) (define interface-descriptor? (let () (declare (not safe)) (make-class-predicate interface-descriptor::t))) (define make-interface-descriptor - (lambda _$args68309_ - (apply make-instance interface-descriptor::t _$args68309_))) + (lambda _$args68306_ + (apply make-instance interface-descriptor::t _$args68306_))) (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 (_key68307_) - (let ((__tmp68455 + (lambda (_key68304_) + (let ((__tmp68452 (macro-slot '1 - (let () (declare (not safe)) (##car _key68307_)))) - (__tmp68454 + (let () (declare (not safe)) (##car _key68304_)))) + (__tmp68451 (macro-slot '1 - (let () (declare (not safe)) (##cdr _key68307_))))) + (let () (declare (not safe)) (##cdr _key68304_))))) (declare (not safe)) - (##fxxor __tmp68455 __tmp68454)))) + (##fxxor __tmp68452 __tmp68451)))) (define __interface-test-key - (lambda (_a68304_ _b68305_) - (if (let ((__tmp68459 (let () (declare (not safe)) (##car _a68304_))) - (__tmp68458 (let () (declare (not safe)) (##car _b68305_)))) + (lambda (_a68301_ _b68302_) + (if (let ((__tmp68456 (let () (declare (not safe)) (##car _a68301_))) + (__tmp68455 (let () (declare (not safe)) (##car _b68302_)))) (declare (not safe)) - (##eq? __tmp68459 __tmp68458)) - (let ((__tmp68457 (let () (declare (not safe)) (##cdr _a68304_))) - (__tmp68456 (let () (declare (not safe)) (##cdr _b68305_)))) + (##eq? __tmp68456 __tmp68455)) + (let ((__tmp68454 (let () (declare (not safe)) (##cdr _a68301_))) + (__tmp68453 (let () (declare (not safe)) (##cdr _b68302_)))) (declare (not safe)) - (##eq? __tmp68457 __tmp68456)) + (##eq? __tmp68454 __tmp68453)) '#f))) (define make-prototype-table__% - (lambda (_size-hint68285_ _seed68287_) + (lambda (_size-hint68282_ _seed68284_) (let () (declare (not safe)) (make-raw-table__% - _size-hint68285_ + _size-hint68282_ __interface-hash-key __interface-test-key - _seed68287_)))) + _seed68284_)))) (define make-prototype-table__0 (lambda () - (let* ((_size-hint68293_ '#f) (_seed68295_ '0)) + (let* ((_size-hint68290_ '#f) (_seed68292_ '0)) (declare (not safe)) - (make-prototype-table__% _size-hint68293_ _seed68295_)))) + (make-prototype-table__% _size-hint68290_ _seed68292_)))) (define make-prototype-table__1 - (lambda (_size-hint68297_) - (let ((_seed68299_ '0)) + (lambda (_size-hint68294_) + (let ((_seed68296_ '0)) (declare (not safe)) - (make-prototype-table__% _size-hint68297_ _seed68299_)))) + (make-prototype-table__% _size-hint68294_ _seed68296_)))) (define make-prototype-table - (lambda _g68461_ - (let ((_g68460_ (let () (declare (not safe)) (##length _g68461_)))) - (cond ((let () (declare (not safe)) (##fx= _g68460_ 0)) + (lambda _g68458_ + (let ((_g68457_ (let () (declare (not safe)) (##length _g68458_)))) + (cond ((let () (declare (not safe)) (##fx= _g68457_ 0)) (apply (lambda () (let () (declare (not safe)) (make-prototype-table__0))) - _g68461_)) - ((let () (declare (not safe)) (##fx= _g68460_ 1)) - (apply (lambda (_size-hint68297_) + _g68458_)) + ((let () (declare (not safe)) (##fx= _g68457_ 1)) + (apply (lambda (_size-hint68294_) (let () (declare (not safe)) - (make-prototype-table__1 _size-hint68297_))) - _g68461_)) - ((let () (declare (not safe)) (##fx= _g68460_ 2)) - (apply (lambda (_size-hint68301_ _seed68302_) + (make-prototype-table__1 _size-hint68294_))) + _g68458_)) + ((let () (declare (not safe)) (##fx= _g68457_ 2)) + (apply (lambda (_size-hint68298_ _seed68299_) (let () (declare (not safe)) (make-prototype-table__% - _size-hint68301_ - _seed68302_))) - _g68461_)) + _size-hint68298_ + _seed68299_))) + _g68458_)) (else (##raise-wrong-number-of-arguments-exception make-prototype-table - _g68461_)))))) + _g68458_)))))) (define prototype-table-ref - (lambda (_tab68242_ _key68243_ _default68244_) - (let ((_table68246_ - (let () (declare (not safe)) (&raw-table-table _tab68242_))) - (_seed68247_ - (let () (declare (not safe)) (&raw-table-seed _tab68242_)))) - (let* ((_h68249_ + (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_ (fxxor (let () (declare (not safe)) - (__interface-hash-key _key68243_)) - _seed68247_)) - (_size68252_ (vector-length _table68246_)) - (_entries68255_ (fxquotient _size68252_ '2)) - (_start68258_ + (__interface-hash-key _key68240_)) + _seed68244_)) + (_size68249_ (vector-length _table68243_)) + (_entries68252_ (fxquotient _size68249_ '2)) + (_start68255_ (fxarithmetic-shift-left - (fxmodulo _h68249_ _entries68255_) + (fxmodulo _h68246_ _entries68252_) '1))) - (let _loop68262_ ((_probe68265_ _start68258_) - (_i68267_ '1) - (_deleted68269_ '#f)) - (let ((_k68272_ (vector-ref _table68246_ _probe68265_))) - (if (let ((__tmp68468 (macro-unused-obj))) + (let _loop68259_ ((_probe68262_ _start68255_) + (_i68264_ '1) + (_deleted68266_ '#f)) + (let ((_k68269_ (vector-ref _table68243_ _probe68262_))) + (if (let ((__tmp68465 (macro-unused-obj))) (declare (not safe)) - (eq? _k68272_ __tmp68468)) - _default68244_ - (if (let ((__tmp68467 (macro-deleted-obj))) + (eq? _k68269_ __tmp68465)) + _default68241_ + (if (let ((__tmp68464 (macro-deleted-obj))) (declare (not safe)) - (eq? _k68272_ __tmp68467)) - (let ((__tmp68466 - (let ((_next-probe68275_ - (fx+ _start68258_ - _i68267_ - (fx* _i68267_ _i68267_)))) - (fxmodulo _next-probe68275_ _size68252_))) - (__tmp68465 (fx+ _i68267_ '1)) - (__tmp68464 - (let ((_$e68278_ _deleted68269_)) - (if _$e68278_ _$e68278_ _probe68265_)))) + (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_)))) (declare (not safe)) - (_loop68262_ __tmp68466 __tmp68465 __tmp68464)) + (_loop68259_ __tmp68463 __tmp68462 __tmp68461)) (if (let () (declare (not safe)) - (__interface-test-key _key68243_ _k68272_)) - (vector-ref _table68246_ (fx+ _probe68265_ '1)) - (let ((__tmp68463 - (let ((_next-probe68281_ - (fx+ _start68258_ - _i68267_ - (fx* _i68267_ _i68267_)))) - (fxmodulo _next-probe68281_ _size68252_))) - (__tmp68462 (fx+ _i68267_ '1))) + (__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))) (declare (not safe)) - (_loop68262_ - __tmp68463 - __tmp68462 - _deleted68269_))))))))))) + (_loop68259_ + __tmp68460 + __tmp68459 + _deleted68266_))))))))))) (define prototype-table-set! - (lambda (_tab68238_ _key68239_ _value68240_) - (if (fx< (let () (declare (not safe)) (&raw-table-free _tab68238_)) + (lambda (_tab68235_ _key68236_ _value68237_) + (if (fx< (let () (declare (not safe)) (&raw-table-free _tab68235_)) (fxquotient (vector-length - (let () (declare (not safe)) (&raw-table-table _tab68238_))) + (let () (declare (not safe)) (&raw-table-table _tab68235_))) '4)) - (let () (declare (not safe)) (__raw-table-rehash! _tab68238_)) + (let () (declare (not safe)) (__raw-table-rehash! _tab68235_)) '#!void) (let () (declare (not safe)) - (__prototype-table-set! _tab68238_ _key68239_ _value68240_)))) + (__prototype-table-set! _tab68235_ _key68236_ _value68237_)))) (define __prototype-table-set! - (lambda (_tab68193_ _key68194_ _value68195_) - (let ((_table68198_ - (let () (declare (not safe)) (&raw-table-table _tab68193_))) - (_seed68199_ - (let () (declare (not safe)) (&raw-table-seed _tab68193_)))) - (let* ((_h68201_ + (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_ (fxxor (let () (declare (not safe)) - (__interface-hash-key _key68194_)) - _seed68199_)) - (_size68204_ (vector-length _table68198_)) - (_entries68207_ (fxquotient _size68204_ '2)) - (_start68210_ + (__interface-hash-key _key68191_)) + _seed68196_)) + (_size68201_ (vector-length _table68195_)) + (_entries68204_ (fxquotient _size68201_ '2)) + (_start68207_ (fxarithmetic-shift-left - (fxmodulo _h68201_ _entries68207_) + (fxmodulo _h68198_ _entries68204_) '1))) - (let _loop68214_ ((_probe68217_ _start68210_) - (_i68219_ '1) - (_deleted68221_ '#f)) - (let ((_k68224_ (vector-ref _table68198_ _probe68217_))) - (if (let ((__tmp68478 (macro-unused-obj))) + (let _loop68211_ ((_probe68214_ _start68207_) + (_i68216_ '1) + (_deleted68218_ '#f)) + (let ((_k68221_ (vector-ref _table68195_ _probe68214_))) + (if (let ((__tmp68475 (macro-unused-obj))) (declare (not safe)) - (eq? _k68224_ __tmp68478)) - (if _deleted68221_ + (eq? _k68221_ __tmp68475)) + (if _deleted68218_ (begin - (vector-set! _table68198_ _deleted68221_ _key68194_) + (vector-set! _table68195_ _deleted68218_ _key68191_) (vector-set! - _table68198_ - (fx+ _deleted68221_ '1) - _value68195_) + _table68195_ + (fx+ _deleted68218_ '1) + _value68192_) ((lambda () - (let ((__tmp68477 + (let ((__tmp68474 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab68193_)) + (&raw-table-count _tab68190_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab68193_ - __tmp68477))))) + _tab68190_ + __tmp68474))))) (begin - (vector-set! _table68198_ _probe68217_ _key68194_) + (vector-set! _table68195_ _probe68214_ _key68191_) (vector-set! - _table68198_ - (fx+ _probe68217_ '1) - _value68195_) + _table68195_ + (fx+ _probe68214_ '1) + _value68192_) ((lambda () - (let ((__tmp68475 + (let ((__tmp68472 (fx- (let () (declare (not safe)) - (&raw-table-free _tab68193_)) + (&raw-table-free _tab68190_)) '1))) (declare (not safe)) - (&raw-table-free-set! _tab68193_ __tmp68475)) - (let ((__tmp68476 + (&raw-table-free-set! _tab68190_ __tmp68472)) + (let ((__tmp68473 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab68193_)) + (&raw-table-count _tab68190_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab68193_ - __tmp68476)))))) - (if (let ((__tmp68474 (macro-deleted-obj))) + _tab68190_ + __tmp68473)))))) + (if (let ((__tmp68471 (macro-deleted-obj))) (declare (not safe)) - (eq? _k68224_ __tmp68474)) - (let ((__tmp68473 - (let ((_next-probe68229_ - (fx+ _start68210_ - _i68219_ - (fx* _i68219_ _i68219_)))) - (fxmodulo _next-probe68229_ _size68204_))) - (__tmp68472 (fx+ _i68219_ '1)) - (__tmp68471 - (let ((_$e68232_ _deleted68221_)) - (if _$e68232_ _$e68232_ _probe68217_)))) + (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_)))) (declare (not safe)) - (_loop68214_ __tmp68473 __tmp68472 __tmp68471)) + (_loop68211_ __tmp68470 __tmp68469 __tmp68468)) (if (let () (declare (not safe)) - (__interface-test-key _key68194_ _k68224_)) + (__interface-test-key _key68191_ _k68221_)) (begin (vector-set! - _table68198_ - _probe68217_ - _key68194_) + _table68195_ + _probe68214_ + _key68191_) (vector-set! - _table68198_ - (fx+ _probe68217_ '1) - _value68195_)) - (let ((__tmp68470 - (let ((_next-probe68235_ - (fx+ _start68210_ - _i68219_ - (fx* _i68219_ _i68219_)))) - (fxmodulo _next-probe68235_ _size68204_))) - (__tmp68469 (fx+ _i68219_ '1))) + _table68195_ + (fx+ _probe68214_ '1) + _value68192_)) + (let ((__tmp68467 + (let ((_next-probe68232_ + (fx+ _start68207_ + _i68216_ + (fx* _i68216_ _i68216_)))) + (fxmodulo _next-probe68232_ _size68201_))) + (__tmp68466 (fx+ _i68216_ '1))) (declare (not safe)) - (_loop68214_ - __tmp68470 - __tmp68469 - _deleted68221_))))))))))) + (_loop68211_ + __tmp68467 + __tmp68466 + _deleted68218_))))))))))) (define prototype-table-update! - (lambda (_tab68188_ - _key68189_ - _prototype-table-update!68190_ - _default68191_) - (if (fx< (let () (declare (not safe)) (&raw-table-free _tab68188_)) + (lambda (_tab68185_ + _key68186_ + _prototype-table-update!68187_ + _default68188_) + (if (fx< (let () (declare (not safe)) (&raw-table-free _tab68185_)) (fxquotient (vector-length - (let () (declare (not safe)) (&raw-table-table _tab68188_))) + (let () (declare (not safe)) (&raw-table-table _tab68185_))) '4)) - (let () (declare (not safe)) (__raw-table-rehash! _tab68188_)) + (let () (declare (not safe)) (__raw-table-rehash! _tab68185_)) '#!void) (let () (declare (not safe)) (__prototype-table-update! - _tab68188_ - _key68189_ - _prototype-table-update!68190_ - _default68191_)))) + _tab68185_ + _key68186_ + _prototype-table-update!68187_ + _default68188_)))) (define __prototype-table-update! - (lambda (_tab68142_ - _key68143_ - _prototype-table-update!68144_ - _default68145_) - (let ((_table68148_ - (let () (declare (not safe)) (&raw-table-table _tab68142_))) - (_seed68149_ - (let () (declare (not safe)) (&raw-table-seed _tab68142_)))) - (let* ((_h68151_ + (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_ (fxxor (let () (declare (not safe)) - (__interface-hash-key _key68143_)) - _seed68149_)) - (_size68154_ (vector-length _table68148_)) - (_entries68157_ (fxquotient _size68154_ '2)) - (_start68160_ + (__interface-hash-key _key68140_)) + _seed68146_)) + (_size68151_ (vector-length _table68145_)) + (_entries68154_ (fxquotient _size68151_ '2)) + (_start68157_ (fxarithmetic-shift-left - (fxmodulo _h68151_ _entries68157_) + (fxmodulo _h68148_ _entries68154_) '1))) - (let _loop68164_ ((_probe68167_ _start68160_) - (_i68169_ '1) - (_deleted68171_ '#f)) - (let ((_k68174_ (vector-ref _table68148_ _probe68167_))) - (if (let ((__tmp68488 (macro-unused-obj))) + (let _loop68161_ ((_probe68164_ _start68157_) + (_i68166_ '1) + (_deleted68168_ '#f)) + (let ((_k68171_ (vector-ref _table68145_ _probe68164_))) + (if (let ((__tmp68485 (macro-unused-obj))) (declare (not safe)) - (eq? _k68174_ __tmp68488)) - (if _deleted68171_ + (eq? _k68171_ __tmp68485)) + (if _deleted68168_ (begin - (vector-set! _table68148_ _deleted68171_ _key68143_) + (vector-set! _table68145_ _deleted68168_ _key68140_) (vector-set! - _table68148_ - (fx+ _deleted68171_ '1) - (_prototype-table-update!68144_ _default68145_)) + _table68145_ + (fx+ _deleted68168_ '1) + (_prototype-table-update!68141_ _default68142_)) ((lambda () - (let ((__tmp68487 + (let ((__tmp68484 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab68142_)) + (&raw-table-count _tab68139_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab68142_ - __tmp68487))))) + _tab68139_ + __tmp68484))))) (begin - (vector-set! _table68148_ _probe68167_ _key68143_) + (vector-set! _table68145_ _probe68164_ _key68140_) (vector-set! - _table68148_ - (fx+ _probe68167_ '1) - (_prototype-table-update!68144_ _default68145_)) + _table68145_ + (fx+ _probe68164_ '1) + (_prototype-table-update!68141_ _default68142_)) ((lambda () - (let ((__tmp68485 + (let ((__tmp68482 (fx- (let () (declare (not safe)) - (&raw-table-free _tab68142_)) + (&raw-table-free _tab68139_)) '1))) (declare (not safe)) - (&raw-table-free-set! _tab68142_ __tmp68485)) - (let ((__tmp68486 + (&raw-table-free-set! _tab68139_ __tmp68482)) + (let ((__tmp68483 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab68142_)) + (&raw-table-count _tab68139_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab68142_ - __tmp68486)))))) - (if (let ((__tmp68484 (macro-deleted-obj))) + _tab68139_ + __tmp68483)))))) + (if (let ((__tmp68481 (macro-deleted-obj))) (declare (not safe)) - (eq? _k68174_ __tmp68484)) - (let ((__tmp68483 - (let ((_next-probe68179_ - (fx+ _start68160_ - _i68169_ - (fx* _i68169_ _i68169_)))) - (fxmodulo _next-probe68179_ _size68154_))) - (__tmp68482 (fx+ _i68169_ '1)) - (__tmp68481 - (let ((_$e68182_ _deleted68171_)) - (if _$e68182_ _$e68182_ _probe68167_)))) + (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_)))) (declare (not safe)) - (_loop68164_ __tmp68483 __tmp68482 __tmp68481)) + (_loop68161_ __tmp68480 __tmp68479 __tmp68478)) (if (let () (declare (not safe)) - (__interface-test-key _key68143_ _k68174_)) + (__interface-test-key _key68140_ _k68171_)) (begin (vector-set! - _table68148_ - _probe68167_ - _key68143_) + _table68145_ + _probe68164_ + _key68140_) (vector-set! - _table68148_ - (fx+ _probe68167_ '1) - (_prototype-table-update!68144_ + _table68145_ + (fx+ _probe68164_ '1) + (_prototype-table-update!68141_ (vector-ref - _table68148_ - (fx+ _probe68167_ '1))))) - (let ((__tmp68480 - (let ((_next-probe68185_ - (fx+ _start68160_ - _i68169_ - (fx* _i68169_ _i68169_)))) - (fxmodulo _next-probe68185_ _size68154_))) - (__tmp68479 (fx+ _i68169_ '1))) + _table68145_ + (fx+ _probe68164_ '1))))) + (let ((__tmp68477 + (let ((_next-probe68182_ + (fx+ _start68157_ + _i68166_ + (fx* _i68166_ _i68166_)))) + (fxmodulo _next-probe68182_ _size68151_))) + (__tmp68476 (fx+ _i68166_ '1))) (declare (not safe)) - (_loop68164_ - __tmp68480 - __tmp68479 - _deleted68171_))))))))))) + (_loop68161_ + __tmp68477 + __tmp68476 + _deleted68168_))))))))))) (define prototype-trable-delete! - (lambda (_tab68101_ _key68103_) - (let ((_table68106_ - (let () (declare (not safe)) (&raw-table-table _tab68101_))) - (_seed68108_ - (let () (declare (not safe)) (&raw-table-seed _tab68101_)))) - (let* ((_h68111_ + (lambda (_tab68098_ _key68100_) + (let ((_table68103_ + (let () (declare (not safe)) (&raw-table-table _tab68098_))) + (_seed68105_ + (let () (declare (not safe)) (&raw-table-seed _tab68098_)))) + (let* ((_h68108_ (fxxor (let () (declare (not safe)) - (__interface-hash-key _key68103_)) - _seed68108_)) - (_size68114_ (vector-length _table68106_)) - (_entries68117_ (fxquotient _size68114_ '2)) - (_start68120_ + (__interface-hash-key _key68100_)) + _seed68105_)) + (_size68111_ (vector-length _table68103_)) + (_entries68114_ (fxquotient _size68111_ '2)) + (_start68117_ (fxarithmetic-shift-left - (fxmodulo _h68111_ _entries68117_) + (fxmodulo _h68108_ _entries68114_) '1))) - (let _loop68124_ ((_probe68127_ _start68120_) (_i68129_ '1)) - (let ((_k68132_ (vector-ref _table68106_ _probe68127_))) - (if (let ((__tmp68495 (macro-unused-obj))) + (let _loop68121_ ((_probe68124_ _start68117_) (_i68126_ '1)) + (let ((_k68129_ (vector-ref _table68103_ _probe68124_))) + (if (let ((__tmp68492 (macro-unused-obj))) (declare (not safe)) - (eq? _k68132_ __tmp68495)) + (eq? _k68129_ __tmp68492)) '#!void - (if (let ((__tmp68494 (macro-deleted-obj))) + (if (let ((__tmp68491 (macro-deleted-obj))) (declare (not safe)) - (eq? _k68132_ __tmp68494)) - (let ((__tmp68493 - (let ((_next-probe68135_ - (fx+ _start68120_ - _i68129_ - (fx* _i68129_ _i68129_)))) - (fxmodulo _next-probe68135_ _size68114_))) - (__tmp68492 (fx+ _i68129_ '1))) + (eq? _k68129_ __tmp68491)) + (let ((__tmp68490 + (let ((_next-probe68132_ + (fx+ _start68117_ + _i68126_ + (fx* _i68126_ _i68126_)))) + (fxmodulo _next-probe68132_ _size68111_))) + (__tmp68489 (fx+ _i68126_ '1))) (declare (not safe)) - (_loop68124_ __tmp68493 __tmp68492)) + (_loop68121_ __tmp68490 __tmp68489)) (if (let () (declare (not safe)) - (__interface-test-key _key68103_ _k68132_)) + (__interface-test-key _key68100_ _k68129_)) (begin (vector-set! - _table68106_ - _probe68127_ + _table68103_ + _probe68124_ (macro-deleted-obj)) (vector-set! - _table68106_ - (fx+ _probe68127_ '1) + _table68103_ + (fx+ _probe68124_ '1) (macro-absent-obj)) ((lambda () - (let ((__tmp68491 + (let ((__tmp68488 (fx- (let () (declare (not safe)) - (&raw-table-count _tab68101_)) + (&raw-table-count _tab68098_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab68101_ - __tmp68491))))) - (let ((__tmp68490 - (let ((_next-probe68139_ - (fx+ _start68120_ - _i68129_ - (fx* _i68129_ _i68129_)))) - (fxmodulo _next-probe68139_ _size68114_))) - (__tmp68489 (fx+ _i68129_ '1))) + _tab68098_ + __tmp68488))))) + (let ((__tmp68487 + (let ((_next-probe68136_ + (fx+ _start68117_ + _i68126_ + (fx* _i68126_ _i68126_)))) + (fxmodulo _next-probe68136_ _size68111_))) + (__tmp68486 (fx+ _i68126_ '1))) (declare (not safe)) - (_loop68124_ __tmp68490 __tmp68489))))))))))) + (_loop68121_ __tmp68487 __tmp68486))))))))))) (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 (_klass68093_) - (let ((_super6809468096_ - (let () (declare (not safe)) (##type-super _klass68093_)))) - (if _super6809468096_ - (let ((_super68099_ _super6809468096_)) - (let ((__tmp68497 - (let () (declare (not safe)) (##type-id _super68099_))) - (__tmp68496 + (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 (let () (declare (not safe)) (##type-id interface-instance::t)))) (declare (not safe)) - (eq? __tmp68497 __tmp68496))) + (eq? __tmp68494 __tmp68493))) '#f)))) (define create-prototype - (lambda (_descriptor67980_ _klass67981_ _obj-klass67982_) - (let ((_method-table67984_ + (lambda (_descriptor67977_ _klass67978_ _obj-klass67979_) + (let ((_method-table67981_ (let () (declare (not safe)) - (specialize-class _obj-klass67982_)))) - (let _loop67987_ ((_rest67990_ + (specialize-class _obj-klass67979_)))) + (let _loop67984_ ((_rest67987_ (let () (declare (not safe)) (##unchecked-structure-ref - _descriptor67980_ + _descriptor67977_ '2 interface-descriptor::t '#f))) - (_count67992_ '0) - (_methods67994_ '())) - (let* ((_rest6799668004_ _rest67990_) - (_else6799868066_ + (_count67989_ '0) + (_methods67991_ '())) + (let* ((_rest6799368001_ _rest67987_) + (_else6799568063_ (lambda () - (let ((_prototype68012_ - (let ((__obj68443 - (let ((__tmp68498 + (let ((_prototype68009_ + (let ((__obj68440 + (let ((__tmp68495 (let () (declare (not safe)) - (##fx+ _count67992_ '2)))) + (##fx+ _count67989_ '2)))) (declare (not safe)) (##make-structure - _klass67981_ - __tmp68498)))) + _klass67978_ + __tmp68495)))) (let () (declare (not safe)) - (object-fill! __obj68443 '#f)) - __obj68443))) - (let _loop68015_ ((_rest68017_ _methods67994_) - (_off68018_ + (object-fill! __obj68440 '#f)) + __obj68440))) + (let _loop68012_ ((_rest68014_ _methods67991_) + (_off68015_ (let () (declare (not safe)) - (##fx+ _count67992_ '1)))) - (let* ((_rest6802068028_ _rest68017_) - (_else6802268047_ + (##fx+ _count67989_ '1)))) + (let* ((_rest6801768025_ _rest68014_) + (_else6801968044_ (lambda () - (let ((_prototype-key68036_ - (let ((__tmp68500 + (let ((_prototype-key68033_ + (let ((__tmp68497 (let () (declare (not safe)) - (##type-id _klass67981_))) - (__tmp68499 + (##type-id _klass67978_))) + (__tmp68496 (let () (declare (not safe)) (##type-id - _obj-klass67982_)))) + _obj-klass67979_)))) (declare (not safe)) - (cons __tmp68500 __tmp68499)))) + (cons __tmp68497 __tmp68496)))) (let () (declare (not interrupts-enabled)) - (let _again68041_ () - (if (let ((__tmp68501 + (let _again68038_ () + (if (let ((__tmp68498 (let () (declare (not safe)) (##vector-cas! @@ -712,7 +712,7 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp68501 '0)) + (##fx= __tmp68498 '0)) '#!void (begin (let () @@ -720,13 +720,13 @@ (##thread-yield!)) (let () (declare (not safe)) - (_again68041_)))))) + (_again68038_)))))) (let () (declare (not safe)) (prototype-table-set! __interface-prototypes - _prototype-key68036_ - _prototype68012_)) + _prototype-key68033_ + _prototype68009_)) (let () (declare (not safe)) (##vector-cas! @@ -734,151 +734,151 @@ '0 '0 '1)) - ((lambda (_prototype68045_) - _prototype68045_) - _prototype68012_)))) - (_K6802468054_ - (lambda (_rest68050_ _method68051_) + ((lambda (_prototype68042_) + _prototype68042_) + _prototype68009_)))) + (_K6802168051_ + (lambda (_rest68047_ _method68048_) (let () (declare (not safe)) (##unchecked-structure-set! - _prototype68012_ - _method68051_ - _off68018_ - _klass67981_ + _prototype68009_ + _method68048_ + _off68015_ + _klass67978_ '#f)) - (let ((__tmp68502 + (let ((__tmp68499 (let () (declare (not safe)) - (##fx- _off68018_ '1)))) + (##fx- _off68015_ '1)))) (declare (not safe)) - (_loop68015_ _rest68050_ __tmp68502))))) + (_loop68012_ _rest68047_ __tmp68499))))) (if (let () (declare (not safe)) - (##pair? _rest6802068028_)) - (let ((_hd6802568057_ + (##pair? _rest6801768025_)) + (let ((_hd6802268054_ (let () (declare (not safe)) - (##car _rest6802068028_))) - (_tl6802668059_ + (##car _rest6801768025_))) + (_tl6802368056_ (let () (declare (not safe)) - (##cdr _rest6802068028_)))) - (let* ((_method68062_ _hd6802568057_) - (_rest68064_ _tl6802668059_)) + (##cdr _rest6801768025_)))) + (let* ((_method68059_ _hd6802268054_) + (_rest68061_ _tl6802368056_)) (declare (not safe)) - (_K6802468054_ _rest68064_ _method68062_))) + (_K6802168051_ _rest68061_ _method68059_))) (let () (declare (not safe)) - (_else6802268047_)))))))) - (_K6800068081_ - (lambda (_rest68069_ _method-name68070_) - (let ((_$e68073_ + (_else6801968044_)))))))) + (_K6799768078_ + (lambda (_rest68066_ _method-name68067_) + (let ((_$e68070_ (let () (declare (not safe)) (symbolic-table-ref - _method-table67984_ - _method-name68070_ + _method-table67981_ + _method-name68067_ '#f)))) - (if _$e68073_ - ((lambda (_method68076_) - (let ((__tmp68504 + (if _$e68070_ + ((lambda (_method68073_) + (let ((__tmp68501 (let () (declare (not safe)) - (##fx+ _count67992_ '1))) - (__tmp68503 + (##fx+ _count67989_ '1))) + (__tmp68500 (let () (declare (not safe)) - (cons _method68076_ _methods67994_)))) + (cons _method68073_ _methods67991_)))) (declare (not safe)) - (_loop67987_ - _rest68069_ - __tmp68504 - __tmp68503))) - _$e68073_) - ((lambda (_klass68078_ _method-name68079_) + (_loop67984_ + _rest68066_ + __tmp68501 + __tmp68500))) + _$e68070_) + ((lambda (_klass68075_ _method-name68076_) (let () (declare (not safe)) (raise-cast-error 'create-prototype '"cannot create interface instance; missing method" 'class: - _klass68078_ + _klass68075_ 'method: - _method-name68079_))) - _klass67981_ - _method-name68070_)))))) - (if (let () (declare (not safe)) (##pair? _rest6799668004_)) - (let ((_hd6800168084_ + _method-name68076_))) + _klass67978_ + _method-name68067_)))))) + (if (let () (declare (not safe)) (##pair? _rest6799368001_)) + (let ((_hd6799868081_ (let () (declare (not safe)) - (##car _rest6799668004_))) - (_tl6800268086_ + (##car _rest6799368001_))) + (_tl6799968083_ (let () (declare (not safe)) - (##cdr _rest6799668004_)))) - (let* ((_method-name68089_ _hd6800168084_) - (_rest68091_ _tl6800268086_)) + (##cdr _rest6799368001_)))) + (let* ((_method-name68086_ _hd6799868081_) + (_rest68088_ _tl6799968083_)) (declare (not safe)) - (_K6800068081_ _rest68091_ _method-name68089_))) - (let () (declare (not safe)) (_else6799868066_)))))))) + (_K6799768078_ _rest68088_ _method-name68086_))) + (let () (declare (not safe)) (_else6799568063_)))))))) (define try-create-prototype - (lambda (_descriptor67867_ _klass67868_ _obj-klass67869_) - (let ((_method-table67871_ + (lambda (_descriptor67864_ _klass67865_ _obj-klass67866_) + (let ((_method-table67868_ (let () (declare (not safe)) - (specialize-class _obj-klass67869_)))) - (let _loop67874_ ((_rest67877_ + (specialize-class _obj-klass67866_)))) + (let _loop67871_ ((_rest67874_ (let () (declare (not safe)) (##unchecked-structure-ref - _descriptor67867_ + _descriptor67864_ '2 interface-descriptor::t '#f))) - (_count67879_ '0) - (_methods67881_ '())) - (let* ((_rest6788367891_ _rest67877_) - (_else6788567953_ + (_count67876_ '0) + (_methods67878_ '())) + (let* ((_rest6788067888_ _rest67874_) + (_else6788267950_ (lambda () - (let ((_prototype67899_ - (let ((__obj68444 - (let ((__tmp68505 + (let ((_prototype67896_ + (let ((__obj68441 + (let ((__tmp68502 (let () (declare (not safe)) - (##fx+ _count67879_ '2)))) + (##fx+ _count67876_ '2)))) (declare (not safe)) (##make-structure - _klass67868_ - __tmp68505)))) + _klass67865_ + __tmp68502)))) (let () (declare (not safe)) - (object-fill! __obj68444 '#f)) - __obj68444))) - (let _loop67902_ ((_rest67904_ _methods67881_) - (_off67905_ + (object-fill! __obj68441 '#f)) + __obj68441))) + (let _loop67899_ ((_rest67901_ _methods67878_) + (_off67902_ (let () (declare (not safe)) - (##fx+ _count67879_ '1)))) - (let* ((_rest6790767915_ _rest67904_) - (_else6790967934_ + (##fx+ _count67876_ '1)))) + (let* ((_rest6790467912_ _rest67901_) + (_else6790667931_ (lambda () - (let ((_prototype-key67923_ - (let ((__tmp68507 + (let ((_prototype-key67920_ + (let ((__tmp68504 (let () (declare (not safe)) - (##type-id _klass67868_))) - (__tmp68506 + (##type-id _klass67865_))) + (__tmp68503 (let () (declare (not safe)) (##type-id - _obj-klass67869_)))) + _obj-klass67866_)))) (declare (not safe)) - (cons __tmp68507 __tmp68506)))) + (cons __tmp68504 __tmp68503)))) (let () (declare (not interrupts-enabled)) - (let _again67928_ () - (if (let ((__tmp68508 + (let _again67925_ () + (if (let ((__tmp68505 (let () (declare (not safe)) (##vector-cas! @@ -887,7 +887,7 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp68508 '0)) + (##fx= __tmp68505 '0)) '#!void (begin (let () @@ -895,13 +895,13 @@ (##thread-yield!)) (let () (declare (not safe)) - (_again67928_)))))) + (_again67925_)))))) (let () (declare (not safe)) (prototype-table-set! __interface-prototypes - _prototype-key67923_ - _prototype67899_)) + _prototype-key67920_ + _prototype67896_)) (let () (declare (not safe)) (##vector-cas! @@ -909,130 +909,130 @@ '0 '0 '1)) - ((lambda (_prototype67932_) - _prototype67932_) - _prototype67899_)))) - (_K6791167941_ - (lambda (_rest67937_ _method67938_) + ((lambda (_prototype67929_) + _prototype67929_) + _prototype67896_)))) + (_K6790867938_ + (lambda (_rest67934_ _method67935_) (let () (declare (not safe)) (##unchecked-structure-set! - _prototype67899_ - _method67938_ - _off67905_ - _klass67868_ + _prototype67896_ + _method67935_ + _off67902_ + _klass67865_ '#f)) - (let ((__tmp68509 + (let ((__tmp68506 (let () (declare (not safe)) - (##fx- _off67905_ '1)))) + (##fx- _off67902_ '1)))) (declare (not safe)) - (_loop67902_ _rest67937_ __tmp68509))))) + (_loop67899_ _rest67934_ __tmp68506))))) (if (let () (declare (not safe)) - (##pair? _rest6790767915_)) - (let ((_hd6791267944_ + (##pair? _rest6790467912_)) + (let ((_hd6790967941_ (let () (declare (not safe)) - (##car _rest6790767915_))) - (_tl6791367946_ + (##car _rest6790467912_))) + (_tl6791067943_ (let () (declare (not safe)) - (##cdr _rest6790767915_)))) - (let* ((_method67949_ _hd6791267944_) - (_rest67951_ _tl6791367946_)) + (##cdr _rest6790467912_)))) + (let* ((_method67946_ _hd6790967941_) + (_rest67948_ _tl6791067943_)) (declare (not safe)) - (_K6791167941_ _rest67951_ _method67949_))) + (_K6790867938_ _rest67948_ _method67946_))) (let () (declare (not safe)) - (_else6790967934_)))))))) - (_K6788767968_ - (lambda (_rest67956_ _method-name67957_) - (let ((_$e67960_ + (_else6790667931_)))))))) + (_K6788467965_ + (lambda (_rest67953_ _method-name67954_) + (let ((_$e67957_ (let () (declare (not safe)) (symbolic-table-ref - _method-table67871_ - _method-name67957_ + _method-table67868_ + _method-name67954_ '#f)))) - (if _$e67960_ - ((lambda (_method67963_) - (let ((__tmp68511 + (if _$e67957_ + ((lambda (_method67960_) + (let ((__tmp68508 (let () (declare (not safe)) - (##fx+ _count67879_ '1))) - (__tmp68510 + (##fx+ _count67876_ '1))) + (__tmp68507 (let () (declare (not safe)) - (cons _method67963_ _methods67881_)))) + (cons _method67960_ _methods67878_)))) (declare (not safe)) - (_loop67874_ - _rest67956_ - __tmp68511 - __tmp68510))) - _$e67960_) - ((lambda (_klass67965_ _method-name67966_) '#f) - _klass67868_ - _method-name67957_)))))) - (if (let () (declare (not safe)) (##pair? _rest6788367891_)) - (let ((_hd6788867971_ + (_loop67871_ + _rest67953_ + __tmp68508 + __tmp68507))) + _$e67957_) + ((lambda (_klass67962_ _method-name67963_) '#f) + _klass67865_ + _method-name67954_)))))) + (if (let () (declare (not safe)) (##pair? _rest6788067888_)) + (let ((_hd6788567968_ (let () (declare (not safe)) - (##car _rest6788367891_))) - (_tl6788967973_ + (##car _rest6788067888_))) + (_tl6788667970_ (let () (declare (not safe)) - (##cdr _rest6788367891_)))) - (let* ((_method-name67976_ _hd6788867971_) - (_rest67978_ _tl6788967973_)) + (##cdr _rest6788067888_)))) + (let* ((_method-name67973_ _hd6788567968_) + (_rest67975_ _tl6788667970_)) (declare (not safe)) - (_K6788767968_ _rest67978_ _method-name67976_))) - (let () (declare (not safe)) (_else6788567953_)))))))) + (_K6788467965_ _rest67975_ _method-name67973_))) + (let () (declare (not safe)) (_else6788267950_)))))))) (define cast - (lambda (_descriptor67826_ _obj67828_) - (if (let () (declare (not safe)) (##structure? _obj67828_)) + (lambda (_descriptor67823_ _obj67825_) + (if (let () (declare (not safe)) (##structure? _obj67825_)) (let () (declare (not interrupts-enabled)) - (let* ((_klass67833_ + (let* ((_klass67830_ (let () (declare (not safe)) (##unchecked-structure-ref - _descriptor67826_ + _descriptor67823_ '1 interface-descriptor::t '#f))) - (_klass-id67836_ - (let () (declare (not safe)) (##type-id _klass67833_))) - (_obj-klass67839_ + (_klass-id67833_ + (let () (declare (not safe)) (##type-id _klass67830_))) + (_obj-klass67836_ (let () (declare (not safe)) - (##structure-type _obj67828_))) - (_obj-klass-id67842_ + (##structure-type _obj67825_))) + (_obj-klass-id67839_ (let () (declare (not safe)) - (##type-id _obj-klass67839_)))) + (##type-id _obj-klass67836_)))) (if (let () (declare (not safe)) - (##eq? _klass-id67836_ _obj-klass-id67842_)) - _obj67828_ + (##eq? _klass-id67833_ _obj-klass-id67839_)) + _obj67825_ (if (let () (declare (not safe)) - (interface-subclass? _obj-klass67839_)) - (let ((__tmp68513 + (interface-subclass? _obj-klass67836_)) + (let ((__tmp68510 (let () (declare (not safe)) (##unchecked-structure-ref - _obj67828_ + _obj67825_ '1 interface-instance::t '#f)))) (declare (not safe)) - (cast _descriptor67826_ __tmp68513)) + (cast _descriptor67823_ __tmp68510)) (begin (let () (declare (not interrupts-enabled)) - (let _again67848_ () - (if (let ((__tmp68512 + (let _again67845_ () + (if (let ((__tmp68509 (let () (declare (not safe)) (##vector-cas! @@ -1041,7 +1041,7 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp68512 '0)) + (##fx= __tmp68509 '0)) '#!void (begin (let () @@ -1049,27 +1049,27 @@ (##thread-yield!)) (let () (declare (not safe)) - (_again67848_)))))) + (_again67845_)))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _klass-id67836_)) + _klass-id67833_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _obj-klass-id67842_)) - (let ((_prototype67858_ - (let ((_$e67852_ + _obj-klass-id67839_)) + (let ((_prototype67855_ + (let ((_$e67849_ (let () (declare (not safe)) (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f)))) - (if _$e67852_ - ((lambda (_prototype67855_) + (if _$e67849_ + ((lambda (_prototype67852_) (let () (declare (not safe)) (##vector-cas! @@ -1077,8 +1077,8 @@ '0 '0 '1)) - _prototype67855_) - _$e67852_) + _prototype67852_) + _$e67849_) (begin (let () (declare (not safe)) @@ -1090,78 +1090,78 @@ (let () (declare (not safe)) (create-prototype - _descriptor67826_ - _klass67833_ - _obj-klass67839_))))))) - ((lambda (_prototype67860_ _obj67861_) - (let ((_instance67863_ + _descriptor67823_ + _klass67830_ + _obj-klass67836_))))))) + ((lambda (_prototype67857_ _obj67858_) + (let ((_instance67860_ (let () (declare (not safe)) - (##structure-copy _prototype67860_)))) + (##structure-copy _prototype67857_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _instance67863_ - _obj67861_ + _instance67860_ + _obj67858_ '1 '#f 'cast)) - _instance67863_)) - _prototype67858_ - _obj67828_))))))) - ((lambda (_obj67865_) + _instance67860_)) + _prototype67855_ + _obj67825_))))))) + ((lambda (_obj67862_) (let () (declare (not safe)) (raise-cast-error 'cast '"cannot cast non-object to interface instance" - _obj67865_))) - _obj67828_)))) + _obj67862_))) + _obj67825_)))) (define try-cast - (lambda (_descriptor67785_ _obj67787_) - (if (let () (declare (not safe)) (##structure? _obj67787_)) + (lambda (_descriptor67782_ _obj67784_) + (if (let () (declare (not safe)) (##structure? _obj67784_)) (let () (declare (not interrupts-enabled)) - (let* ((_klass67792_ + (let* ((_klass67789_ (let () (declare (not safe)) (##unchecked-structure-ref - _descriptor67785_ + _descriptor67782_ '1 interface-descriptor::t '#f))) - (_klass-id67795_ - (let () (declare (not safe)) (##type-id _klass67792_))) - (_obj-klass67798_ + (_klass-id67792_ + (let () (declare (not safe)) (##type-id _klass67789_))) + (_obj-klass67795_ (let () (declare (not safe)) - (##structure-type _obj67787_))) - (_obj-klass-id67801_ + (##structure-type _obj67784_))) + (_obj-klass-id67798_ (let () (declare (not safe)) - (##type-id _obj-klass67798_)))) + (##type-id _obj-klass67795_)))) (if (let () (declare (not safe)) - (##eq? _klass-id67795_ _obj-klass-id67801_)) - _obj67787_ + (##eq? _klass-id67792_ _obj-klass-id67798_)) + _obj67784_ (if (let () (declare (not safe)) - (interface-subclass? _obj-klass67798_)) - (let ((__tmp68515 + (interface-subclass? _obj-klass67795_)) + (let ((__tmp68512 (let () (declare (not safe)) (##unchecked-structure-ref - _obj67787_ + _obj67784_ '1 interface-instance::t '#f)))) (declare (not safe)) - (try-cast _descriptor67785_ __tmp68515)) + (try-cast _descriptor67782_ __tmp68512)) (begin (let () (declare (not interrupts-enabled)) - (let _again67807_ () - (if (let ((__tmp68514 + (let _again67804_ () + (if (let ((__tmp68511 (let () (declare (not safe)) (##vector-cas! @@ -1170,7 +1170,7 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp68514 '0)) + (##fx= __tmp68511 '0)) '#!void (begin (let () @@ -1178,27 +1178,27 @@ (##thread-yield!)) (let () (declare (not safe)) - (_again67807_)))))) + (_again67804_)))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _klass-id67795_)) + _klass-id67792_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _obj-klass-id67801_)) - (let ((_prototype67817_ - (let ((_$e67811_ + _obj-klass-id67798_)) + (let ((_prototype67814_ + (let ((_$e67808_ (let () (declare (not safe)) (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f)))) - (if _$e67811_ - ((lambda (_prototype67814_) + (if _$e67808_ + ((lambda (_prototype67811_) (let () (declare (not safe)) (##vector-cas! @@ -1206,8 +1206,8 @@ '0 '0 '1)) - _prototype67814_) - _$e67811_) + _prototype67811_) + _$e67808_) (begin (let () (declare (not safe)) @@ -1219,74 +1219,74 @@ (let () (declare (not safe)) (try-create-prototype - _descriptor67785_ - _klass67792_ - _obj-klass67798_))))))) - ((lambda (_prototype67819_ _obj67820_) - (if _prototype67819_ - (let ((_instance67822_ + _descriptor67782_ + _klass67789_ + _obj-klass67795_))))))) + ((lambda (_prototype67816_ _obj67817_) + (if _prototype67816_ + (let ((_instance67819_ (let () (declare (not safe)) (##structure-copy - _prototype67819_)))) + _prototype67816_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _instance67822_ - _obj67820_ + _instance67819_ + _obj67817_ '1 '#f 'cast)) - _instance67822_) + _instance67819_) '#f)) - _prototype67817_ - _obj67787_))))))) - ((lambda (_obj67824_) '#f) _obj67787_)))) + _prototype67814_ + _obj67784_))))))) + ((lambda (_obj67821_) '#f) _obj67784_)))) (define satisfies? - (lambda (_descriptor67746_ _obj67748_) - (if (let () (declare (not safe)) (##structure? _obj67748_)) + (lambda (_descriptor67743_ _obj67745_) + (if (let () (declare (not safe)) (##structure? _obj67745_)) (let () (declare (not interrupts-enabled)) - (let* ((_klass67753_ + (let* ((_klass67750_ (let () (declare (not safe)) (##unchecked-structure-ref - _descriptor67746_ + _descriptor67743_ '1 interface-descriptor::t '#f))) - (_klass-id67756_ - (let () (declare (not safe)) (##type-id _klass67753_))) - (_obj-klass67759_ + (_klass-id67753_ + (let () (declare (not safe)) (##type-id _klass67750_))) + (_obj-klass67756_ (let () (declare (not safe)) - (##structure-type _obj67748_))) - (_obj-klass-id67762_ + (##structure-type _obj67745_))) + (_obj-klass-id67759_ (let () (declare (not safe)) - (##type-id _obj-klass67759_)))) + (##type-id _obj-klass67756_)))) (if (let () (declare (not safe)) - (##eq? _klass-id67756_ _obj-klass-id67762_)) - _obj67748_ + (##eq? _klass-id67753_ _obj-klass-id67759_)) + _obj67745_ (if (let () (declare (not safe)) - (interface-subclass? _obj-klass67759_)) - (let ((__tmp68517 + (interface-subclass? _obj-klass67756_)) + (let ((__tmp68514 (let () (declare (not safe)) (##unchecked-structure-ref - _obj67748_ + _obj67745_ '1 interface-instance::t '#f)))) (declare (not safe)) - (satisfies? _descriptor67746_ __tmp68517)) + (satisfies? _descriptor67743_ __tmp68514)) (begin (let () (declare (not interrupts-enabled)) - (let _again67768_ () - (if (let ((__tmp68516 + (let _again67765_ () + (if (let ((__tmp68513 (let () (declare (not safe)) (##vector-cas! @@ -1295,7 +1295,7 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp68516 '0)) + (##fx= __tmp68513 '0)) '#!void (begin (let () @@ -1303,27 +1303,27 @@ (##thread-yield!)) (let () (declare (not safe)) - (_again67768_)))))) + (_again67765_)))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _klass-id67756_)) + _klass-id67753_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _obj-klass-id67762_)) - (let ((_prototype67778_ - (let ((_$e67772_ + _obj-klass-id67759_)) + (let ((_prototype67775_ + (let ((_$e67769_ (let () (declare (not safe)) (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f)))) - (if _$e67772_ - ((lambda (_prototype67775_) + (if _$e67769_ + ((lambda (_prototype67772_) (let () (declare (not safe)) (##vector-cas! @@ -1331,8 +1331,8 @@ '0 '0 '1)) - _prototype67775_) - _$e67772_) + _prototype67772_) + _$e67769_) (begin (let () (declare (not safe)) @@ -1344,11 +1344,11 @@ (let () (declare (not safe)) (try-create-prototype - _descriptor67746_ - _klass67753_ - _obj-klass67759_))))))) - ((lambda (_prototype67780_ _obj67781_) - (if _prototype67780_ '#t '#f)) - _prototype67778_ - _obj67748_))))))) - ((lambda (_obj67783_) '#f) _obj67748_)))))) + _descriptor67743_ + _klass67750_ + _obj-klass67756_))))))) + ((lambda (_prototype67777_ _obj67778_) + (if _prototype67777_ '#t '#f)) + _prototype67775_ + _obj67745_))))))) + ((lambda (_obj67780_) '#f) _obj67745_)))))) diff --git a/src/bootstrap/gerbil/runtime/interface__1.scm b/src/bootstrap/gerbil/runtime/interface__1.scm index c3fb9a8c..f6c7fbf0 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]#_g68520_| + (define |[1]#_g68517_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g68522_| + (define |[1]#_g68519_| (##structure gx#syntax-quote::t 'CastError::t #f (gx#current-expander-context) '())) - (define |[1]#_g68524_| + (define |[1]#_g68521_| (##structure gx#syntax-quote::t 'make-CastError #f (gx#current-expander-context) '())) - (define |[1]#_g68526_| + (define |[1]#_g68523_| (##structure gx#syntax-quote::t 'CastError? #f (gx#current-expander-context) '())) - (define |[1]#_g68533_| + (define |[1]#_g68530_| (##structure gx#syntax-quote::t 'CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g68536_| + (define |[1]#_g68533_| (##structure gx#syntax-quote::t 'CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g68539_| + (define |[1]#_g68536_| (##structure gx#syntax-quote::t 'CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g68542_| + (define |[1]#_g68539_| (##structure gx#syntax-quote::t 'CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g68549_| + (define |[1]#_g68546_| (##structure gx#syntax-quote::t 'CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68552_| + (define |[1]#_g68549_| (##structure gx#syntax-quote::t 'CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68555_| + (define |[1]#_g68552_| (##structure gx#syntax-quote::t 'CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68558_| + (define |[1]#_g68555_| (##structure gx#syntax-quote::t 'CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68565_| + (define |[1]#_g68562_| (##structure gx#syntax-quote::t '&CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g68568_| + (define |[1]#_g68565_| (##structure gx#syntax-quote::t '&CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g68571_| + (define |[1]#_g68568_| (##structure gx#syntax-quote::t '&CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g68574_| + (define |[1]#_g68571_| (##structure gx#syntax-quote::t '&CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g68581_| + (define |[1]#_g68578_| (##structure gx#syntax-quote::t '&CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68584_| + (define |[1]#_g68581_| (##structure gx#syntax-quote::t '&CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68587_| + (define |[1]#_g68584_| (##structure gx#syntax-quote::t '&CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68590_| + (define |[1]#_g68587_| (##structure gx#syntax-quote::t '&CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68592_| + (define |[1]#_g68589_| (##structure gx#syntax-quote::t 'interface-descriptor::t #f (gx#current-expander-context) '())) - (define |[1]#_g68594_| + (define |[1]#_g68591_| (##structure gx#syntax-quote::t 'make-interface-descriptor #f (gx#current-expander-context) '())) - (define |[1]#_g68596_| + (define |[1]#_g68593_| (##structure gx#syntax-quote::t 'interface-descriptor? #f (gx#current-expander-context) '())) - (define |[1]#_g68601_| + (define |[1]#_g68598_| (##structure gx#syntax-quote::t 'interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g68604_| + (define |[1]#_g68601_| (##structure gx#syntax-quote::t 'interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g68609_| + (define |[1]#_g68606_| (##structure gx#syntax-quote::t 'interface-descriptor-methods-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68612_| + (define |[1]#_g68609_| (##structure gx#syntax-quote::t 'interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68617_| + (define |[1]#_g68614_| (##structure gx#syntax-quote::t '&interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g68620_| + (define |[1]#_g68617_| (##structure gx#syntax-quote::t '&interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g68625_| + (define |[1]#_g68622_| (##structure gx#syntax-quote::t '&interface-descriptor-methods-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68628_| + (define |[1]#_g68625_| (##structure gx#syntax-quote::t '&interface-descriptor-type-set! @@ -219,7 +219,7 @@ '())) (begin (define |[:0:]#CastError| - (let ((__obj68440 + (let ((__obj68437 (let () (declare (not safe)) (##structure @@ -242,7 +242,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68440 + __obj68437 '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! - __obj68440 + __obj68437 'CastError '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -258,26 +258,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68440 + __obj68437 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68518 - (let ((__tmp68519 |[1]#_g68520_|)) + (let ((__tmp68515 + (let ((__tmp68516 |[1]#_g68517_|)) (declare (not safe)) - (cons __tmp68519 '())))) + (cons __tmp68516 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj68440 - __tmp68518 + __obj68437 + __tmp68515 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj68440 + __obj68437 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -285,7 +285,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68440 + __obj68437 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -293,7 +293,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68440 + __obj68437 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -301,178 +301,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68440 + __obj68437 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68521 |[1]#_g68522_|)) + (let ((__tmp68518 |[1]#_g68519_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68440 - __tmp68521 + __obj68437 + __tmp68518 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68523 |[1]#_g68524_|)) + (let ((__tmp68520 |[1]#_g68521_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68440 - __tmp68523 + __obj68437 + __tmp68520 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68525 |[1]#_g68526_|)) + (let ((__tmp68522 |[1]#_g68523_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68440 - __tmp68525 + __obj68437 + __tmp68522 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68527 - (let ((__tmp68540 - (let ((__tmp68541 |[1]#_g68542_|)) + (let ((__tmp68524 + (let ((__tmp68537 + (let ((__tmp68538 |[1]#_g68539_|)) (declare (not safe)) - (cons 'message __tmp68541))) - (__tmp68528 - (let ((__tmp68537 - (let ((__tmp68538 |[1]#_g68539_|)) + (cons 'message __tmp68538))) + (__tmp68525 + (let ((__tmp68534 + (let ((__tmp68535 |[1]#_g68536_|)) (declare (not safe)) - (cons 'irritants __tmp68538))) - (__tmp68529 - (let ((__tmp68534 - (let ((__tmp68535 |[1]#_g68536_|)) + (cons 'irritants __tmp68535))) + (__tmp68526 + (let ((__tmp68531 + (let ((__tmp68532 |[1]#_g68533_|)) (declare (not safe)) - (cons 'where __tmp68535))) - (__tmp68530 - (let ((__tmp68531 - (let ((__tmp68532 |[1]#_g68533_|)) + (cons 'where __tmp68532))) + (__tmp68527 + (let ((__tmp68528 + (let ((__tmp68529 |[1]#_g68530_|)) (declare (not safe)) - (cons 'continuation __tmp68532)))) + (cons 'continuation __tmp68529)))) (declare (not safe)) - (cons __tmp68531 '())))) + (cons __tmp68528 '())))) (declare (not safe)) - (cons __tmp68534 __tmp68530)))) + (cons __tmp68531 __tmp68527)))) (declare (not safe)) - (cons __tmp68537 __tmp68529)))) + (cons __tmp68534 __tmp68526)))) (declare (not safe)) - (cons __tmp68540 __tmp68528)))) + (cons __tmp68537 __tmp68525)))) (declare (not safe)) (##unchecked-structure-set! - __obj68440 - __tmp68527 + __obj68437 + __tmp68524 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68543 - (let ((__tmp68556 - (let ((__tmp68557 |[1]#_g68558_|)) + (let ((__tmp68540 + (let ((__tmp68553 + (let ((__tmp68554 |[1]#_g68555_|)) (declare (not safe)) - (cons 'message __tmp68557))) - (__tmp68544 - (let ((__tmp68553 - (let ((__tmp68554 |[1]#_g68555_|)) + (cons 'message __tmp68554))) + (__tmp68541 + (let ((__tmp68550 + (let ((__tmp68551 |[1]#_g68552_|)) (declare (not safe)) - (cons 'irritants __tmp68554))) - (__tmp68545 - (let ((__tmp68550 - (let ((__tmp68551 |[1]#_g68552_|)) + (cons 'irritants __tmp68551))) + (__tmp68542 + (let ((__tmp68547 + (let ((__tmp68548 |[1]#_g68549_|)) (declare (not safe)) - (cons 'where __tmp68551))) - (__tmp68546 - (let ((__tmp68547 - (let ((__tmp68548 |[1]#_g68549_|)) + (cons 'where __tmp68548))) + (__tmp68543 + (let ((__tmp68544 + (let ((__tmp68545 |[1]#_g68546_|)) (declare (not safe)) - (cons 'continuation __tmp68548)))) + (cons 'continuation __tmp68545)))) (declare (not safe)) - (cons __tmp68547 '())))) + (cons __tmp68544 '())))) (declare (not safe)) - (cons __tmp68550 __tmp68546)))) + (cons __tmp68547 __tmp68543)))) (declare (not safe)) - (cons __tmp68553 __tmp68545)))) + (cons __tmp68550 __tmp68542)))) (declare (not safe)) - (cons __tmp68556 __tmp68544)))) + (cons __tmp68553 __tmp68541)))) (declare (not safe)) (##unchecked-structure-set! - __obj68440 - __tmp68543 + __obj68437 + __tmp68540 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68559 - (let ((__tmp68572 - (let ((__tmp68573 |[1]#_g68574_|)) + (let ((__tmp68556 + (let ((__tmp68569 + (let ((__tmp68570 |[1]#_g68571_|)) (declare (not safe)) - (cons 'message __tmp68573))) - (__tmp68560 - (let ((__tmp68569 - (let ((__tmp68570 |[1]#_g68571_|)) + (cons 'message __tmp68570))) + (__tmp68557 + (let ((__tmp68566 + (let ((__tmp68567 |[1]#_g68568_|)) (declare (not safe)) - (cons 'irritants __tmp68570))) - (__tmp68561 - (let ((__tmp68566 - (let ((__tmp68567 |[1]#_g68568_|)) + (cons 'irritants __tmp68567))) + (__tmp68558 + (let ((__tmp68563 + (let ((__tmp68564 |[1]#_g68565_|)) (declare (not safe)) - (cons 'where __tmp68567))) - (__tmp68562 - (let ((__tmp68563 - (let ((__tmp68564 |[1]#_g68565_|)) + (cons 'where __tmp68564))) + (__tmp68559 + (let ((__tmp68560 + (let ((__tmp68561 |[1]#_g68562_|)) (declare (not safe)) - (cons 'continuation __tmp68564)))) + (cons 'continuation __tmp68561)))) (declare (not safe)) - (cons __tmp68563 '())))) + (cons __tmp68560 '())))) (declare (not safe)) - (cons __tmp68566 __tmp68562)))) + (cons __tmp68563 __tmp68559)))) (declare (not safe)) - (cons __tmp68569 __tmp68561)))) + (cons __tmp68566 __tmp68558)))) (declare (not safe)) - (cons __tmp68572 __tmp68560)))) + (cons __tmp68569 __tmp68557)))) (declare (not safe)) (##unchecked-structure-set! - __obj68440 - __tmp68559 + __obj68437 + __tmp68556 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68575 - (let ((__tmp68588 - (let ((__tmp68589 |[1]#_g68590_|)) + (let ((__tmp68572 + (let ((__tmp68585 + (let ((__tmp68586 |[1]#_g68587_|)) (declare (not safe)) - (cons 'message __tmp68589))) - (__tmp68576 - (let ((__tmp68585 - (let ((__tmp68586 |[1]#_g68587_|)) + (cons 'message __tmp68586))) + (__tmp68573 + (let ((__tmp68582 + (let ((__tmp68583 |[1]#_g68584_|)) (declare (not safe)) - (cons 'irritants __tmp68586))) - (__tmp68577 - (let ((__tmp68582 - (let ((__tmp68583 |[1]#_g68584_|)) + (cons 'irritants __tmp68583))) + (__tmp68574 + (let ((__tmp68579 + (let ((__tmp68580 |[1]#_g68581_|)) (declare (not safe)) - (cons 'where __tmp68583))) - (__tmp68578 - (let ((__tmp68579 - (let ((__tmp68580 |[1]#_g68581_|)) + (cons 'where __tmp68580))) + (__tmp68575 + (let ((__tmp68576 + (let ((__tmp68577 |[1]#_g68578_|)) (declare (not safe)) - (cons 'continuation __tmp68580)))) + (cons 'continuation __tmp68577)))) (declare (not safe)) - (cons __tmp68579 '())))) + (cons __tmp68576 '())))) (declare (not safe)) - (cons __tmp68582 __tmp68578)))) + (cons __tmp68579 __tmp68575)))) (declare (not safe)) - (cons __tmp68585 __tmp68577)))) + (cons __tmp68582 __tmp68574)))) (declare (not safe)) - (cons __tmp68588 __tmp68576)))) + (cons __tmp68585 __tmp68573)))) (declare (not safe)) (##unchecked-structure-set! - __obj68440 - __tmp68575 + __obj68437 + __tmp68572 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj68440)) + __obj68437)) (define |[:0:]#interface-descriptor| - (let ((__obj68442 + (let ((__obj68439 (let () (declare (not safe)) (##structure @@ -495,7 +495,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68442 + __obj68439 '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! - __obj68442 + __obj68439 'interface-descriptor '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -511,7 +511,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68442 + __obj68439 '(type methods) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -519,7 +519,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68442 + __obj68439 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -527,7 +527,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68442 + __obj68439 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -535,7 +535,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68442 + __obj68439 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -543,7 +543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68442 + __obj68439 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -551,1591 +551,1591 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68442 + __obj68439 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68591 |[1]#_g68592_|)) + (let ((__tmp68588 |[1]#_g68589_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68442 - __tmp68591 + __obj68439 + __tmp68588 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68593 |[1]#_g68594_|)) + (let ((__tmp68590 |[1]#_g68591_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68442 - __tmp68593 + __obj68439 + __tmp68590 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68595 |[1]#_g68596_|)) + (let ((__tmp68592 |[1]#_g68593_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68442 - __tmp68595 + __obj68439 + __tmp68592 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68597 - (let ((__tmp68602 - (let ((__tmp68603 |[1]#_g68604_|)) + (let ((__tmp68594 + (let ((__tmp68599 + (let ((__tmp68600 |[1]#_g68601_|)) (declare (not safe)) - (cons 'type __tmp68603))) - (__tmp68598 - (let ((__tmp68599 - (let ((__tmp68600 |[1]#_g68601_|)) + (cons 'type __tmp68600))) + (__tmp68595 + (let ((__tmp68596 + (let ((__tmp68597 |[1]#_g68598_|)) (declare (not safe)) - (cons 'methods __tmp68600)))) + (cons 'methods __tmp68597)))) (declare (not safe)) - (cons __tmp68599 '())))) + (cons __tmp68596 '())))) (declare (not safe)) - (cons __tmp68602 __tmp68598)))) + (cons __tmp68599 __tmp68595)))) (declare (not safe)) (##unchecked-structure-set! - __obj68442 - __tmp68597 + __obj68439 + __tmp68594 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68605 - (let ((__tmp68610 - (let ((__tmp68611 |[1]#_g68612_|)) + (let ((__tmp68602 + (let ((__tmp68607 + (let ((__tmp68608 |[1]#_g68609_|)) (declare (not safe)) - (cons 'type __tmp68611))) - (__tmp68606 - (let ((__tmp68607 - (let ((__tmp68608 |[1]#_g68609_|)) + (cons 'type __tmp68608))) + (__tmp68603 + (let ((__tmp68604 + (let ((__tmp68605 |[1]#_g68606_|)) (declare (not safe)) - (cons 'methods __tmp68608)))) + (cons 'methods __tmp68605)))) (declare (not safe)) - (cons __tmp68607 '())))) + (cons __tmp68604 '())))) (declare (not safe)) - (cons __tmp68610 __tmp68606)))) + (cons __tmp68607 __tmp68603)))) (declare (not safe)) (##unchecked-structure-set! - __obj68442 - __tmp68605 + __obj68439 + __tmp68602 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68613 - (let ((__tmp68618 - (let ((__tmp68619 |[1]#_g68620_|)) + (let ((__tmp68610 + (let ((__tmp68615 + (let ((__tmp68616 |[1]#_g68617_|)) (declare (not safe)) - (cons 'type __tmp68619))) - (__tmp68614 - (let ((__tmp68615 - (let ((__tmp68616 |[1]#_g68617_|)) + (cons 'type __tmp68616))) + (__tmp68611 + (let ((__tmp68612 + (let ((__tmp68613 |[1]#_g68614_|)) (declare (not safe)) - (cons 'methods __tmp68616)))) + (cons 'methods __tmp68613)))) (declare (not safe)) - (cons __tmp68615 '())))) + (cons __tmp68612 '())))) (declare (not safe)) - (cons __tmp68618 __tmp68614)))) + (cons __tmp68615 __tmp68611)))) (declare (not safe)) (##unchecked-structure-set! - __obj68442 - __tmp68613 + __obj68439 + __tmp68610 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68621 - (let ((__tmp68626 - (let ((__tmp68627 |[1]#_g68628_|)) + (let ((__tmp68618 + (let ((__tmp68623 + (let ((__tmp68624 |[1]#_g68625_|)) (declare (not safe)) - (cons 'type __tmp68627))) - (__tmp68622 - (let ((__tmp68623 - (let ((__tmp68624 |[1]#_g68625_|)) + (cons 'type __tmp68624))) + (__tmp68619 + (let ((__tmp68620 + (let ((__tmp68621 |[1]#_g68622_|)) (declare (not safe)) - (cons 'methods __tmp68624)))) + (cons 'methods __tmp68621)))) (declare (not safe)) - (cons __tmp68623 '())))) + (cons __tmp68620 '())))) (declare (not safe)) - (cons __tmp68626 __tmp68622)))) + (cons __tmp68623 __tmp68619)))) (declare (not safe)) (##unchecked-structure-set! - __obj68442 - __tmp68621 + __obj68439 + __tmp68618 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj68442)) + __obj68439)) (define |[:0:]#immediate-instance-of?| - (lambda (_$stx67412_) - (let* ((_g6741667434_ - (lambda (_g6741767430_) + (lambda (_$stx67409_) + (let* ((_g6741367431_ + (lambda (_g6741467427_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6741767430_))) - (_g6741567490_ - (lambda (_g6741767438_) - (if (gx#stx-pair? _g6741767438_) - (let ((_e6742267441_ (gx#syntax-e _g6741767438_))) - (let ((_hd6742167445_ + _g6741467427_))) + (_g6741267487_ + (lambda (_g6741467435_) + (if (gx#stx-pair? _g6741467435_) + (let ((_e6741967438_ (gx#syntax-e _g6741467435_))) + (let ((_hd6741867442_ (let () (declare (not safe)) - (##car _e6742267441_))) - (_tl6742067448_ + (##car _e6741967438_))) + (_tl6741767445_ (let () (declare (not safe)) - (##cdr _e6742267441_)))) - (if (gx#stx-pair? _tl6742067448_) - (let ((_e6742567451_ - (gx#syntax-e _tl6742067448_))) - (let ((_hd6742467455_ + (##cdr _e6741967438_)))) + (if (gx#stx-pair? _tl6741767445_) + (let ((_e6742267448_ + (gx#syntax-e _tl6741767445_))) + (let ((_hd6742167452_ (let () (declare (not safe)) - (##car _e6742567451_))) - (_tl6742367458_ + (##car _e6742267448_))) + (_tl6742067455_ (let () (declare (not safe)) - (##cdr _e6742567451_)))) - (if (gx#stx-pair? _tl6742367458_) - (let ((_e6742867461_ - (gx#syntax-e _tl6742367458_))) - (let ((_hd6742767465_ + (##cdr _e6742267448_)))) + (if (gx#stx-pair? _tl6742067455_) + (let ((_e6742567458_ + (gx#syntax-e _tl6742067455_))) + (let ((_hd6742467462_ (let () (declare (not safe)) - (##car _e6742867461_))) - (_tl6742667468_ + (##car _e6742567458_))) + (_tl6742367465_ (let () (declare (not safe)) - (##cdr _e6742867461_)))) - (if (gx#stx-null? _tl6742667468_) - ((lambda (_L67471_ _L67473_) - (let ((__tmp68641 + (##cdr _e6742567458_)))) + (if (gx#stx-null? _tl6742367465_) + ((lambda (_L67468_ _L67470_) + (let ((__tmp68638 (gx#datum->syntax '#f 'and)) - (__tmp68629 - (let ((__tmp68638 - (let ((__tmp68640 + (__tmp68626 + (let ((__tmp68635 + (let ((__tmp68637 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##structure?)) - (__tmp68639 + (__tmp68636 (let () (declare (not safe)) - (cons _L67471_ '())))) + (cons _L67468_ '())))) (declare (not safe)) - (cons __tmp68640 __tmp68639))) - (__tmp68630 - (let ((__tmp68631 - (let ((__tmp68637 (gx#datum->syntax '#f 'eq?)) - (__tmp68632 - (let ((__tmp68634 - (let ((__tmp68636 + (cons __tmp68637 __tmp68636))) + (__tmp68627 + (let ((__tmp68628 + (let ((__tmp68634 (gx#datum->syntax '#f 'eq?)) + (__tmp68629 + (let ((__tmp68631 + (let ((__tmp68633 (gx#datum->syntax '#f '##structure-type)) - (__tmp68635 + (__tmp68632 (let () (declare (not safe)) - (cons _L67471_ '())))) + (cons _L67468_ '())))) (declare (not safe)) - (cons __tmp68636 __tmp68635))) - (__tmp68633 + (cons __tmp68633 __tmp68632))) + (__tmp68630 (let () (declare (not safe)) - (cons _L67473_ '())))) + (cons _L67470_ '())))) (declare (not safe)) - (cons __tmp68634 __tmp68633)))) + (cons __tmp68631 __tmp68630)))) (declare (not safe)) - (cons __tmp68637 __tmp68632)))) + (cons __tmp68634 __tmp68629)))) (declare (not safe)) - (cons __tmp68631 '())))) + (cons __tmp68628 '())))) (declare (not safe)) - (cons __tmp68638 __tmp68630)))) + (cons __tmp68635 __tmp68627)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68641 - __tmp68629))) - _hd6742767465_ - _hd6742467455_) - (_g6741667434_ _g6741767438_)))) - (_g6741667434_ _g6741767438_)))) - (_g6741667434_ _g6741767438_)))) - (_g6741667434_ _g6741767438_))))) - (_g6741567490_ _$stx67412_)))) + (cons __tmp68638 + __tmp68626))) + _hd6742467462_ + _hd6742167452_) + (_g6741367431_ _g6741467435_)))) + (_g6741367431_ _g6741467435_)))) + (_g6741367431_ _g6741467435_)))) + (_g6741367431_ _g6741467435_))))) + (_g6741267487_ _$stx67409_)))) (define |[:0:]#do-create-prototype| - (lambda (_$stx67494_) - (let* ((_g6749867528_ - (lambda (_g6749967524_) + (lambda (_$stx67491_) + (let* ((_g6749567525_ + (lambda (_g6749667521_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6749967524_))) - (_g6749767625_ - (lambda (_g6749967532_) - (if (gx#stx-pair? _g6749967532_) - (let ((_e6750767535_ (gx#syntax-e _g6749967532_))) - (let ((_hd6750667539_ + _g6749667521_))) + (_g6749467622_ + (lambda (_g6749667529_) + (if (gx#stx-pair? _g6749667529_) + (let ((_e6750467532_ (gx#syntax-e _g6749667529_))) + (let ((_hd6750367536_ (let () (declare (not safe)) - (##car _e6750767535_))) - (_tl6750567542_ + (##car _e6750467532_))) + (_tl6750267539_ (let () (declare (not safe)) - (##cdr _e6750767535_)))) - (if (gx#stx-pair? _tl6750567542_) - (let ((_e6751067545_ - (gx#syntax-e _tl6750567542_))) - (let ((_hd6750967549_ + (##cdr _e6750467532_)))) + (if (gx#stx-pair? _tl6750267539_) + (let ((_e6750767542_ + (gx#syntax-e _tl6750267539_))) + (let ((_hd6750667546_ (let () (declare (not safe)) - (##car _e6751067545_))) - (_tl6750867552_ + (##car _e6750767542_))) + (_tl6750567549_ (let () (declare (not safe)) - (##cdr _e6751067545_)))) - (if (gx#stx-pair? _tl6750867552_) - (let ((_e6751367555_ - (gx#syntax-e _tl6750867552_))) - (let ((_hd6751267559_ + (##cdr _e6750767542_)))) + (if (gx#stx-pair? _tl6750567549_) + (let ((_e6751067552_ + (gx#syntax-e _tl6750567549_))) + (let ((_hd6750967556_ (let () (declare (not safe)) - (##car _e6751367555_))) - (_tl6751167562_ + (##car _e6751067552_))) + (_tl6750867559_ (let () (declare (not safe)) - (##cdr _e6751367555_)))) - (if (gx#stx-pair? _tl6751167562_) - (let ((_e6751667565_ + (##cdr _e6751067552_)))) + (if (gx#stx-pair? _tl6750867559_) + (let ((_e6751367562_ (gx#syntax-e - _tl6751167562_))) - (let ((_hd6751567569_ + _tl6750867559_))) + (let ((_hd6751267566_ (let () (declare (not safe)) - (##car _e6751667565_))) - (_tl6751467572_ + (##car _e6751367562_))) + (_tl6751167569_ (let () (declare (not safe)) - (##cdr _e6751667565_)))) + (##cdr _e6751367562_)))) (if (gx#stx-pair? - _tl6751467572_) - (let ((_e6751967575_ + _tl6751167569_) + (let ((_e6751667572_ (gx#syntax-e - _tl6751467572_))) - (let ((_hd6751867579_ + _tl6751167569_))) + (let ((_hd6751567576_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e6751967575_))) - (_tl6751767582_ - (let () (declare (not safe)) (##cdr _e6751967575_)))) - (if (gx#stx-pair? _tl6751767582_) - (let ((_e6752267585_ (gx#syntax-e _tl6751767582_))) - (let ((_hd6752167589_ + (##car _e6751667572_))) + (_tl6751467579_ + (let () (declare (not safe)) (##cdr _e6751667572_)))) + (if (gx#stx-pair? _tl6751467579_) + (let ((_e6751967582_ (gx#syntax-e _tl6751467579_))) + (let ((_hd6751867586_ (let () (declare (not safe)) - (##car _e6752267585_))) - (_tl6752067592_ + (##car _e6751967582_))) + (_tl6751767589_ (let () (declare (not safe)) - (##cdr _e6752267585_)))) - (if (gx#stx-null? _tl6752067592_) - ((lambda (_L67595_ - _L67597_ - _L67598_ - _L67599_ - _L67600_) - (let ((__tmp68846 (gx#datum->syntax '#f 'let)) - (__tmp68642 - (let ((__tmp68840 - (let ((__tmp68845 + (##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 (gx#datum->syntax '#f 'method-table)) - (__tmp68841 - (let ((__tmp68842 - (let ((__tmp68844 + (__tmp68838 + (let ((__tmp68839 + (let ((__tmp68841 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'specialize-class)) - (__tmp68843 - (let () (declare (not safe)) (cons _L67598_ '())))) + (__tmp68840 + (let () (declare (not safe)) (cons _L67595_ '())))) (declare (not safe)) - (cons __tmp68844 __tmp68843)))) + (cons __tmp68841 __tmp68840)))) (declare (not safe)) - (cons __tmp68842 '())))) + (cons __tmp68839 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68845 __tmp68841))) - (__tmp68643 - (let ((__tmp68644 - (let ((__tmp68839 + (cons __tmp68842 __tmp68838))) + (__tmp68640 + (let ((__tmp68641 + (let ((__tmp68836 (gx#datum->syntax '#f 'let)) - (__tmp68645 - (let ((__tmp68838 + (__tmp68642 + (let ((__tmp68835 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'loop)) - (__tmp68646 - (let ((__tmp68821 - (let ((__tmp68832 - (let ((__tmp68837 + (__tmp68643 + (let ((__tmp68818 + (let ((__tmp68829 + (let ((__tmp68834 (gx#datum->syntax '#f 'rest)) - (__tmp68833 - (let ((__tmp68834 - (let ((__tmp68836 + (__tmp68830 + (let ((__tmp68831 + (let ((__tmp68833 (gx#datum->syntax '#f '&interface-descriptor-methods)) - (__tmp68835 + (__tmp68832 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L67600_ '())))) + (cons _L67597_ '())))) (declare (not safe)) - (cons __tmp68836 __tmp68835)))) + (cons __tmp68833 __tmp68832)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68834 '())))) + (cons __tmp68831 '())))) (declare (not safe)) - (cons __tmp68837 __tmp68833))) - (__tmp68822 - (let ((__tmp68829 - (let ((__tmp68831 + (cons __tmp68834 __tmp68830))) + (__tmp68819 + (let ((__tmp68826 + (let ((__tmp68828 (gx#datum->syntax '#f 'count)) - (__tmp68830 + (__tmp68827 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons __tmp68831 - __tmp68830))) - (__tmp68823 - (let ((__tmp68824 - (let ((__tmp68828 + (cons __tmp68828 + __tmp68827))) + (__tmp68820 + (let ((__tmp68821 + (let ((__tmp68825 (gx#datum->syntax '#f 'methods)) - (__tmp68825 - (let ((__tmp68826 + (__tmp68822 + (let ((__tmp68823 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp68827 (gx#datum->syntax '#f '@list))) + (let ((__tmp68824 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp68827 '())))) + (cons __tmp68824 '())))) (declare (not safe)) - (cons __tmp68826 '())))) + (cons __tmp68823 '())))) (declare (not safe)) - (cons __tmp68828 __tmp68825)))) + (cons __tmp68825 __tmp68822)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68824 '())))) + (cons __tmp68821 '())))) (declare (not safe)) - (cons __tmp68829 __tmp68823)))) + (cons __tmp68826 __tmp68820)))) (declare (not safe)) - (cons __tmp68832 __tmp68822))) - (__tmp68647 - (let ((__tmp68648 - (let ((__tmp68820 + (cons __tmp68829 __tmp68819))) + (__tmp68644 + (let ((__tmp68645 + (let ((__tmp68817 (gx#datum->syntax '#f 'match)) - (__tmp68649 - (let ((__tmp68819 + (__tmp68646 + (let ((__tmp68816 (gx#datum->syntax '#f 'rest)) - (__tmp68650 - (let ((__tmp68767 - (let ((__tmp68814 + (__tmp68647 + (let ((__tmp68764 + (let ((__tmp68811 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp68818 (gx#datum->syntax '#f '@list)) - (__tmp68815 - (let ((__tmp68817 + (let ((__tmp68815 (gx#datum->syntax '#f '@list)) + (__tmp68812 + (let ((__tmp68814 (gx#datum->syntax '#f 'method-name)) - (__tmp68816 + (__tmp68813 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp68817 __tmp68816)))) + (cons __tmp68814 __tmp68813)))) (declare (not safe)) - (cons __tmp68818 __tmp68815))) - (__tmp68768 - (let ((__tmp68769 - (let ((__tmp68813 + (cons __tmp68815 __tmp68812))) + (__tmp68765 + (let ((__tmp68766 + (let ((__tmp68810 (gx#datum->syntax '#f 'cond)) - (__tmp68770 - (let ((__tmp68779 - (let ((__tmp68806 - (let ((__tmp68812 + (__tmp68767 + (let ((__tmp68776 + (let ((__tmp68803 + (let ((__tmp68809 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'symbolic-table-ref)) - (__tmp68807 - (let ((__tmp68811 + (__tmp68804 + (let ((__tmp68808 (gx#datum->syntax '#f 'method-table)) - (__tmp68808 - (let ((__tmp68810 + (__tmp68805 + (let ((__tmp68807 (gx#datum->syntax '#f 'method-name)) - (__tmp68809 + (__tmp68806 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp68810 __tmp68809)))) + (cons __tmp68807 __tmp68806)))) (declare (not safe)) - (cons __tmp68811 __tmp68808)))) + (cons __tmp68808 __tmp68805)))) (declare (not safe)) - (cons __tmp68812 __tmp68807))) - (__tmp68780 - (let ((__tmp68805 (gx#datum->syntax '#f '=>)) - (__tmp68781 - (let ((__tmp68782 - (let ((__tmp68804 + (cons __tmp68809 __tmp68804))) + (__tmp68777 + (let ((__tmp68802 (gx#datum->syntax '#f '=>)) + (__tmp68778 + (let ((__tmp68779 + (let ((__tmp68801 (gx#datum->syntax '#f 'lambda)) - (__tmp68783 - (let ((__tmp68802 - (let ((__tmp68803 + (__tmp68780 + (let ((__tmp68799 + (let ((__tmp68800 (gx#datum->syntax '#f 'method))) (declare (not safe)) - (cons __tmp68803 '()))) - (__tmp68784 - (let ((__tmp68785 - (let ((__tmp68801 + (cons __tmp68800 '()))) + (__tmp68781 + (let ((__tmp68782 + (let ((__tmp68798 (gx#datum->syntax '#f 'loop)) - (__tmp68786 - (let ((__tmp68800 + (__tmp68783 + (let ((__tmp68797 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp68787 - (let ((__tmp68795 - (let ((__tmp68799 + (__tmp68784 + (let ((__tmp68792 + (let ((__tmp68796 (gx#datum->syntax '#f '##fx+)) - (__tmp68796 - (let ((__tmp68798 + (__tmp68793 + (let ((__tmp68795 (gx#datum->syntax '#f 'count)) - (__tmp68797 + (__tmp68794 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp68798 __tmp68797)))) + (cons __tmp68795 __tmp68794)))) (declare (not safe)) - (cons __tmp68799 __tmp68796))) - (__tmp68788 - (let ((__tmp68789 - (let ((__tmp68794 + (cons __tmp68796 __tmp68793))) + (__tmp68785 + (let ((__tmp68786 + (let ((__tmp68791 (gx#datum->syntax '#f 'cons)) - (__tmp68790 - (let ((__tmp68793 + (__tmp68787 + (let ((__tmp68790 (gx#datum->syntax '#f 'method)) - (__tmp68791 - (let ((__tmp68792 + (__tmp68788 + (let ((__tmp68789 (gx#datum->syntax '#f 'methods))) (declare (not safe)) - (cons __tmp68792 + (cons __tmp68789 '())))) (declare (not safe)) - (cons __tmp68793 - __tmp68791)))) + (cons __tmp68790 + __tmp68788)))) (declare (not safe)) - (cons __tmp68794 __tmp68790)))) + (cons __tmp68791 __tmp68787)))) (declare (not safe)) - (cons __tmp68789 '())))) + (cons __tmp68786 '())))) (declare (not safe)) - (cons __tmp68795 __tmp68788)))) + (cons __tmp68792 __tmp68785)))) (declare (not safe)) - (cons __tmp68800 __tmp68787)))) + (cons __tmp68797 __tmp68784)))) (declare (not safe)) - (cons __tmp68801 __tmp68786)))) + (cons __tmp68798 __tmp68783)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68785 '())))) + (cons __tmp68782 '())))) (declare (not safe)) - (cons __tmp68802 __tmp68784)))) + (cons __tmp68799 __tmp68781)))) (declare (not safe)) - (cons __tmp68804 __tmp68783)))) + (cons __tmp68801 __tmp68780)))) (declare (not safe)) - (cons __tmp68782 '())))) + (cons __tmp68779 '())))) (declare (not safe)) - (cons __tmp68805 __tmp68781)))) + (cons __tmp68802 __tmp68778)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68806 - __tmp68780))) - (__tmp68771 - (let ((__tmp68772 - (let ((__tmp68778 + (cons __tmp68803 + __tmp68777))) + (__tmp68768 + (let ((__tmp68769 + (let ((__tmp68775 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'else)) - (__tmp68773 - (let ((__tmp68774 - (let ((__tmp68775 - (let ((__tmp68776 - (let ((__tmp68777 + (__tmp68770 + (let ((__tmp68771 + (let ((__tmp68772 + (let ((__tmp68773 + (let ((__tmp68774 (gx#datum->syntax '#f 'method-name))) (declare (not safe)) - (cons __tmp68777 '())))) + (cons __tmp68774 '())))) (declare (not safe)) - (cons _L67599_ __tmp68776)))) + (cons _L67596_ __tmp68773)))) (declare (not safe)) - (cons _L67595_ __tmp68775)))) + (cons _L67592_ __tmp68772)))) (declare (not safe)) - (cons __tmp68774 '())))) + (cons __tmp68771 '())))) (declare (not safe)) - (cons __tmp68778 __tmp68773)))) + (cons __tmp68775 __tmp68770)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68772 '())))) + (cons __tmp68769 '())))) (declare (not safe)) - (cons __tmp68779 __tmp68771)))) + (cons __tmp68776 __tmp68768)))) (declare (not safe)) - (cons __tmp68813 __tmp68770)))) + (cons __tmp68810 __tmp68767)))) (declare (not safe)) - (cons __tmp68769 '())))) + (cons __tmp68766 '())))) (declare (not safe)) - (cons __tmp68814 __tmp68768))) - (__tmp68651 - (let ((__tmp68652 - (let ((__tmp68766 (gx#datum->syntax '#f 'else)) - (__tmp68653 - (let ((__tmp68654 - (let ((__tmp68765 + (cons __tmp68811 __tmp68765))) + (__tmp68648 + (let ((__tmp68649 + (let ((__tmp68763 (gx#datum->syntax '#f 'else)) + (__tmp68650 + (let ((__tmp68651 + (let ((__tmp68762 (gx#datum->syntax '#f 'let)) - (__tmp68655 - (let ((__tmp68753 - (let ((__tmp68764 + (__tmp68652 + (let ((__tmp68750 + (let ((__tmp68761 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'prototype)) - (__tmp68754 - (let ((__tmp68755 - (let ((__tmp68763 + (__tmp68751 + (let ((__tmp68752 + (let ((__tmp68760 (gx#datum->syntax '#f 'make-object)) - (__tmp68756 - (let ((__tmp68757 - (let ((__tmp68758 - (let ((__tmp68762 + (__tmp68753 + (let ((__tmp68754 + (let ((__tmp68755 + (let ((__tmp68759 (gx#datum->syntax '#f '##fx+)) - (__tmp68759 - (let ((__tmp68761 + (__tmp68756 + (let ((__tmp68758 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'count)) - (__tmp68760 + (__tmp68757 (let () (declare (not safe)) (cons '2 '())))) (declare (not safe)) - (cons __tmp68761 __tmp68760)))) + (cons __tmp68758 __tmp68757)))) (declare (not safe)) - (cons __tmp68762 __tmp68759)))) + (cons __tmp68759 __tmp68756)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68758 '())))) + (cons __tmp68755 '())))) (declare (not safe)) - (cons _L67599_ __tmp68757)))) + (cons _L67596_ __tmp68754)))) (declare (not safe)) - (cons __tmp68763 __tmp68756)))) + (cons __tmp68760 __tmp68753)))) (declare (not safe)) - (cons __tmp68755 '())))) + (cons __tmp68752 '())))) (declare (not safe)) - (cons __tmp68764 __tmp68754))) - (__tmp68656 - (let ((__tmp68657 - (let ((__tmp68752 (gx#datum->syntax '#f 'let)) - (__tmp68658 - (let ((__tmp68751 (gx#datum->syntax '#f 'loop)) - (__tmp68659 - (let ((__tmp68737 - (let ((__tmp68747 - (let ((__tmp68750 + (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 (gx#datum->syntax '#f 'rest)) - (__tmp68748 - (let ((__tmp68749 + (__tmp68745 + (let ((__tmp68746 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'methods))) (declare (not safe)) - (cons __tmp68749 '())))) + (cons __tmp68746 '())))) (declare (not safe)) - (cons __tmp68750 __tmp68748))) + (cons __tmp68747 __tmp68745))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp68738 - (let ((__tmp68739 - (let ((__tmp68746 + (__tmp68735 + (let ((__tmp68736 + (let ((__tmp68743 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'off)) - (__tmp68740 - (let ((__tmp68741 - (let ((__tmp68745 + (__tmp68737 + (let ((__tmp68738 + (let ((__tmp68742 (gx#datum->syntax '#f '##fx+)) - (__tmp68742 - (let ((__tmp68744 + (__tmp68739 + (let ((__tmp68741 (gx#datum->syntax '#f 'count)) - (__tmp68743 + (__tmp68740 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp68744 __tmp68743)))) + (cons __tmp68741 __tmp68740)))) (declare (not safe)) - (cons __tmp68745 __tmp68742)))) + (cons __tmp68742 __tmp68739)))) (declare (not safe)) - (cons __tmp68741 '())))) + (cons __tmp68738 '())))) (declare (not safe)) - (cons __tmp68746 __tmp68740)))) + (cons __tmp68743 __tmp68737)))) (declare (not safe)) - (cons __tmp68739 '())))) + (cons __tmp68736 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68747 __tmp68738))) - (__tmp68660 - (let ((__tmp68661 - (let ((__tmp68736 + (cons __tmp68744 __tmp68735))) + (__tmp68657 + (let ((__tmp68658 + (let ((__tmp68733 (gx#datum->syntax '#f 'match)) - (__tmp68662 - (let ((__tmp68735 + (__tmp68659 + (let ((__tmp68732 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp68663 - (let ((__tmp68707 - (let ((__tmp68730 - (let ((__tmp68734 + (__tmp68660 + (let ((__tmp68704 + (let ((__tmp68727 + (let ((__tmp68731 (gx#datum->syntax '#f '@list)) - (__tmp68731 - (let ((__tmp68733 + (__tmp68728 + (let ((__tmp68730 (gx#datum->syntax '#f 'method)) - (__tmp68732 + (__tmp68729 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp68733 - __tmp68732)))) + (cons __tmp68730 + __tmp68729)))) (declare (not safe)) - (cons __tmp68734 __tmp68731))) - (__tmp68708 - (let ((__tmp68720 - (let ((__tmp68729 + (cons __tmp68731 __tmp68728))) + (__tmp68705 + (let ((__tmp68717 + (let ((__tmp68726 (gx#datum->syntax '#f '##unchecked-structure-set!)) - (__tmp68721 - (let ((__tmp68728 + (__tmp68718 + (let ((__tmp68725 (gx#datum->syntax '#f 'prototype)) - (__tmp68722 - (let ((__tmp68727 + (__tmp68719 + (let ((__tmp68724 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'method)) - (__tmp68723 - (let ((__tmp68726 (gx#datum->syntax '#f 'off)) - (__tmp68724 - (let ((__tmp68725 + (__tmp68720 + (let ((__tmp68723 (gx#datum->syntax '#f 'off)) + (__tmp68721 + (let ((__tmp68722 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L67599_ __tmp68725)))) + (cons _L67596_ __tmp68722)))) (declare (not safe)) - (cons __tmp68726 __tmp68724)))) + (cons __tmp68723 __tmp68721)))) (declare (not safe)) - (cons __tmp68727 __tmp68723)))) + (cons __tmp68724 __tmp68720)))) (declare (not safe)) - (cons __tmp68728 __tmp68722)))) + (cons __tmp68725 __tmp68719)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68729 - __tmp68721))) - (__tmp68709 - (let ((__tmp68710 - (let ((__tmp68719 + (cons __tmp68726 + __tmp68718))) + (__tmp68706 + (let ((__tmp68707 + (let ((__tmp68716 (gx#datum->syntax '#f 'loop)) - (__tmp68711 - (let ((__tmp68718 + (__tmp68708 + (let ((__tmp68715 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp68712 - (let ((__tmp68713 - (let ((__tmp68717 + (__tmp68709 + (let ((__tmp68710 + (let ((__tmp68714 (gx#datum->syntax '#f '##fx-)) - (__tmp68714 - (let ((__tmp68716 + (__tmp68711 + (let ((__tmp68713 (gx#datum->syntax '#f 'off)) - (__tmp68715 + (__tmp68712 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp68716 __tmp68715)))) + (cons __tmp68713 __tmp68712)))) (declare (not safe)) - (cons __tmp68717 __tmp68714)))) + (cons __tmp68714 __tmp68711)))) (declare (not safe)) - (cons __tmp68713 '())))) + (cons __tmp68710 '())))) (declare (not safe)) - (cons __tmp68718 __tmp68712)))) + (cons __tmp68715 __tmp68709)))) (declare (not safe)) - (cons __tmp68719 __tmp68711)))) + (cons __tmp68716 __tmp68708)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68710 '())))) + (cons __tmp68707 '())))) (declare (not safe)) - (cons __tmp68720 __tmp68709)))) + (cons __tmp68717 __tmp68706)))) (declare (not safe)) - (cons __tmp68730 __tmp68708))) - (__tmp68664 - (let ((__tmp68665 - (let ((__tmp68706 + (cons __tmp68727 __tmp68705))) + (__tmp68661 + (let ((__tmp68662 + (let ((__tmp68703 (gx#datum->syntax '#f 'else)) - (__tmp68666 - (let ((__tmp68667 - (let ((__tmp68705 + (__tmp68663 + (let ((__tmp68664 + (let ((__tmp68702 (gx#datum->syntax '#f 'let)) - (__tmp68668 - (let ((__tmp68692 + (__tmp68665 + (let ((__tmp68689 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp68704 + (let ((__tmp68701 (gx#datum->syntax '#f 'prototype-key)) - (__tmp68693 - (let ((__tmp68694 - (let ((__tmp68703 + (__tmp68690 + (let ((__tmp68691 + (let ((__tmp68700 (gx#datum->syntax '#f 'cons)) - (__tmp68695 - (let ((__tmp68700 - (let ((__tmp68702 + (__tmp68692 + (let ((__tmp68697 + (let ((__tmp68699 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##type-id)) - (__tmp68701 - (let () (declare (not safe)) (cons _L67599_ '())))) + (__tmp68698 + (let () (declare (not safe)) (cons _L67596_ '())))) (declare (not safe)) - (cons __tmp68702 __tmp68701))) - (__tmp68696 - (let ((__tmp68697 - (let ((__tmp68699 (gx#datum->syntax '#f '##type-id)) - (__tmp68698 + (cons __tmp68699 __tmp68698))) + (__tmp68693 + (let ((__tmp68694 + (let ((__tmp68696 (gx#datum->syntax '#f '##type-id)) + (__tmp68695 (let () (declare (not safe)) - (cons _L67598_ '())))) + (cons _L67595_ '())))) (declare (not safe)) - (cons __tmp68699 __tmp68698)))) + (cons __tmp68696 __tmp68695)))) (declare (not safe)) - (cons __tmp68697 '())))) + (cons __tmp68694 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68700 - __tmp68696)))) + (cons __tmp68697 + __tmp68693)))) (declare (not safe)) - (cons __tmp68703 __tmp68695)))) + (cons __tmp68700 __tmp68692)))) (declare (not safe)) - (cons __tmp68694 '())))) + (cons __tmp68691 '())))) (declare (not safe)) - (cons __tmp68704 __tmp68693))) - (__tmp68669 - (let ((__tmp68688 - (let ((__tmp68691 + (cons __tmp68701 __tmp68690))) + (__tmp68666 + (let ((__tmp68685 + (let ((__tmp68688 (gx#datum->syntax '#f '__lock-inline!)) - (__tmp68689 - (let ((__tmp68690 + (__tmp68686 + (let ((__tmp68687 (gx#datum->syntax '#f '__interface-prototypes-mx))) (declare (not safe)) - (cons __tmp68690 '())))) + (cons __tmp68687 '())))) (declare (not safe)) - (cons __tmp68691 __tmp68689))) - (__tmp68670 - (let ((__tmp68680 - (let ((__tmp68687 + (cons __tmp68688 __tmp68686))) + (__tmp68667 + (let ((__tmp68677 + (let ((__tmp68684 (gx#datum->syntax '#f 'prototype-table-set!)) - (__tmp68681 - (let ((__tmp68686 + (__tmp68678 + (let ((__tmp68683 (gx#datum->syntax '#f '__interface-prototypes)) - (__tmp68682 - (let ((__tmp68685 + (__tmp68679 + (let ((__tmp68682 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'prototype-key)) - (__tmp68683 - (let ((__tmp68684 (gx#datum->syntax '#f 'prototype))) + (__tmp68680 + (let ((__tmp68681 (gx#datum->syntax '#f 'prototype))) (declare (not safe)) - (cons __tmp68684 '())))) + (cons __tmp68681 '())))) (declare (not safe)) - (cons __tmp68685 __tmp68683)))) + (cons __tmp68682 __tmp68680)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68686 - __tmp68682)))) + (cons __tmp68683 + __tmp68679)))) (declare (not safe)) - (cons __tmp68687 __tmp68681))) - (__tmp68671 - (let ((__tmp68676 - (let ((__tmp68679 + (cons __tmp68684 __tmp68678))) + (__tmp68668 + (let ((__tmp68673 + (let ((__tmp68676 (gx#datum->syntax '#f '__unlock-inline!)) - (__tmp68677 - (let ((__tmp68678 + (__tmp68674 + (let ((__tmp68675 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__interface-prototypes-mx))) (declare (not safe)) - (cons __tmp68678 '())))) + (cons __tmp68675 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68679 - __tmp68677))) - (__tmp68672 - (let ((__tmp68673 - (let ((__tmp68674 - (let ((__tmp68675 + (cons __tmp68676 + __tmp68674))) + (__tmp68669 + (let ((__tmp68670 + (let ((__tmp68671 + (let ((__tmp68672 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'prototype))) (declare (not safe)) - (cons __tmp68675 '())))) + (cons __tmp68672 '())))) (declare (not safe)) - (cons _L67597_ __tmp68674)))) + (cons _L67594_ __tmp68671)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68673 '())))) + (cons __tmp68670 '())))) (declare (not safe)) - (cons __tmp68676 __tmp68672)))) + (cons __tmp68673 __tmp68669)))) (declare (not safe)) - (cons __tmp68680 __tmp68671)))) + (cons __tmp68677 __tmp68668)))) (declare (not safe)) - (cons __tmp68688 __tmp68670)))) + (cons __tmp68685 __tmp68667)))) (declare (not safe)) - (cons __tmp68692 __tmp68669)))) + (cons __tmp68689 __tmp68666)))) (declare (not safe)) - (cons __tmp68705 __tmp68668)))) + (cons __tmp68702 __tmp68665)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68667 '())))) + (cons __tmp68664 '())))) (declare (not safe)) - (cons __tmp68706 __tmp68666)))) + (cons __tmp68703 __tmp68663)))) (declare (not safe)) - (cons __tmp68665 '())))) + (cons __tmp68662 '())))) (declare (not safe)) - (cons __tmp68707 __tmp68664)))) + (cons __tmp68704 __tmp68661)))) (declare (not safe)) - (cons __tmp68735 __tmp68663)))) + (cons __tmp68732 __tmp68660)))) (declare (not safe)) - (cons __tmp68736 __tmp68662)))) + (cons __tmp68733 __tmp68659)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68661 '())))) + (cons __tmp68658 '())))) (declare (not safe)) - (cons __tmp68737 __tmp68660)))) + (cons __tmp68734 __tmp68657)))) (declare (not safe)) - (cons __tmp68751 __tmp68659)))) + (cons __tmp68748 __tmp68656)))) (declare (not safe)) - (cons __tmp68752 __tmp68658)))) + (cons __tmp68749 __tmp68655)))) (declare (not safe)) - (cons __tmp68657 '())))) + (cons __tmp68654 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68753 - __tmp68656)))) + (cons __tmp68750 + __tmp68653)))) (declare (not safe)) - (cons __tmp68765 __tmp68655)))) + (cons __tmp68762 __tmp68652)))) (declare (not safe)) - (cons __tmp68654 '())))) + (cons __tmp68651 '())))) (declare (not safe)) - (cons __tmp68766 __tmp68653)))) + (cons __tmp68763 __tmp68650)))) (declare (not safe)) - (cons __tmp68652 '())))) + (cons __tmp68649 '())))) (declare (not safe)) - (cons __tmp68767 __tmp68651)))) + (cons __tmp68764 __tmp68648)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68819 - __tmp68650)))) + (cons __tmp68816 + __tmp68647)))) (declare (not safe)) - (cons __tmp68820 __tmp68649)))) + (cons __tmp68817 __tmp68646)))) (declare (not safe)) - (cons __tmp68648 '())))) + (cons __tmp68645 '())))) (declare (not safe)) - (cons __tmp68821 __tmp68647)))) + (cons __tmp68818 __tmp68644)))) (declare (not safe)) - (cons __tmp68838 __tmp68646)))) + (cons __tmp68835 __tmp68643)))) (declare (not safe)) - (cons __tmp68839 __tmp68645)))) + (cons __tmp68836 __tmp68642)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68644 '())))) + (cons __tmp68641 '())))) (declare (not safe)) - (cons __tmp68840 __tmp68643)))) + (cons __tmp68837 __tmp68640)))) (declare (not safe)) - (cons __tmp68846 __tmp68642))) - _hd6752167589_ - _hd6751867579_ - _hd6751567569_ - _hd6751267559_ - _hd6750967549_) - (_g6749867528_ _g6749967532_)))) - (_g6749867528_ _g6749967532_)))) - (_g6749867528_ _g6749967532_)))) + (cons __tmp68843 __tmp68639))) + _hd6751867586_ + _hd6751567576_ + _hd6751267566_ + _hd6750967556_ + _hd6750667546_) + (_g6749567525_ _g6749667529_)))) + (_g6749567525_ _g6749667529_)))) + (_g6749567525_ _g6749667529_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6749867528_ _g6749967532_)))) - (_g6749867528_ _g6749967532_)))) - (_g6749867528_ _g6749967532_)))) - (_g6749867528_ _g6749967532_))))) - (_g6749767625_ _$stx67494_)))) + (_g6749567525_ _g6749667529_)))) + (_g6749567525_ _g6749667529_)))) + (_g6749567525_ _g6749667529_)))) + (_g6749567525_ _g6749667529_))))) + (_g6749467622_ _$stx67491_)))) (define |[:0:]#defcast| - (lambda (_$stx67629_) - (let* ((_g6763367659_ - (lambda (_g6763467655_) + (lambda (_$stx67626_) + (let* ((_g6763067656_ + (lambda (_g6763167652_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6763467655_))) - (_g6763267742_ - (lambda (_g6763467663_) - (if (gx#stx-pair? _g6763467663_) - (let ((_e6764167666_ (gx#syntax-e _g6763467663_))) - (let ((_hd6764067670_ + _g6763167652_))) + (_g6762967739_ + (lambda (_g6763167660_) + (if (gx#stx-pair? _g6763167660_) + (let ((_e6763867663_ (gx#syntax-e _g6763167660_))) + (let ((_hd6763767667_ (let () (declare (not safe)) - (##car _e6764167666_))) - (_tl6763967673_ + (##car _e6763867663_))) + (_tl6763667670_ (let () (declare (not safe)) - (##cdr _e6764167666_)))) - (if (gx#stx-pair? _tl6763967673_) - (let ((_e6764467676_ - (gx#syntax-e _tl6763967673_))) - (let ((_hd6764367680_ + (##cdr _e6763867663_)))) + (if (gx#stx-pair? _tl6763667670_) + (let ((_e6764167673_ + (gx#syntax-e _tl6763667670_))) + (let ((_hd6764067677_ (let () (declare (not safe)) - (##car _e6764467676_))) - (_tl6764267683_ + (##car _e6764167673_))) + (_tl6763967680_ (let () (declare (not safe)) - (##cdr _e6764467676_)))) - (if (gx#stx-pair? _tl6764267683_) - (let ((_e6764767686_ - (gx#syntax-e _tl6764267683_))) - (let ((_hd6764667690_ + (##cdr _e6764167673_)))) + (if (gx#stx-pair? _tl6763967680_) + (let ((_e6764467683_ + (gx#syntax-e _tl6763967680_))) + (let ((_hd6764367687_ (let () (declare (not safe)) - (##car _e6764767686_))) - (_tl6764567693_ + (##car _e6764467683_))) + (_tl6764267690_ (let () (declare (not safe)) - (##cdr _e6764767686_)))) - (if (gx#stx-pair? _tl6764567693_) - (let ((_e6765067696_ + (##cdr _e6764467683_)))) + (if (gx#stx-pair? _tl6764267690_) + (let ((_e6764767693_ (gx#syntax-e - _tl6764567693_))) - (let ((_hd6764967700_ + _tl6764267690_))) + (let ((_hd6764667697_ (let () (declare (not safe)) - (##car _e6765067696_))) - (_tl6764867703_ + (##car _e6764767693_))) + (_tl6764567700_ (let () (declare (not safe)) - (##cdr _e6765067696_)))) + (##cdr _e6764767693_)))) (if (gx#stx-pair? - _tl6764867703_) - (let ((_e6765367706_ + _tl6764567700_) + (let ((_e6765067703_ (gx#syntax-e - _tl6764867703_))) - (let ((_hd6765267710_ + _tl6764567700_))) + (let ((_hd6764967707_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e6765367706_))) - (_tl6765167713_ - (let () (declare (not safe)) (##cdr _e6765367706_)))) - (if (gx#stx-null? _tl6765167713_) - ((lambda (_L67716_ _L67718_ _L67719_ _L67720_) - (let ((__tmp69018 (gx#datum->syntax '#f 'def)) - (__tmp68847 - (let ((__tmp69013 - (let ((__tmp69014 - (let ((__tmp69017 + (##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 (gx#datum->syntax '#f 'descriptor)) - (__tmp69015 - (let ((__tmp69016 + (__tmp69012 + (let ((__tmp69013 (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp69016 '())))) + (cons __tmp69013 '())))) (declare (not safe)) - (cons __tmp69017 __tmp69015)))) + (cons __tmp69014 __tmp69012)))) (declare (not safe)) - (cons _L67720_ __tmp69014))) - (__tmp68848 - (let ((__tmp68849 - (let ((__tmp69012 + (cons _L67717_ __tmp69011))) + (__tmp68845 + (let ((__tmp68846 + (let ((__tmp69009 (gx#datum->syntax '#f 'if)) - (__tmp68850 - (let ((__tmp69008 - (let ((__tmp69011 + (__tmp68847 + (let ((__tmp69005 + (let ((__tmp69008 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##structure?)) - (__tmp69009 - (let ((__tmp69010 (gx#datum->syntax '#f 'obj))) + (__tmp69006 + (let ((__tmp69007 (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp69010 '())))) + (cons __tmp69007 '())))) (declare (not safe)) - (cons __tmp69011 __tmp69009))) - (__tmp68851 - (let ((__tmp68856 - (let ((__tmp69007 (gx#datum->syntax '#f 'let)) - (__tmp68857 - (let ((__tmp68858 - (let ((__tmp69000 - (let ((__tmp69006 + (cons __tmp69008 __tmp69006))) + (__tmp68848 + (let ((__tmp68853 + (let ((__tmp69004 (gx#datum->syntax '#f 'let)) + (__tmp68854 + (let ((__tmp68855 + (let ((__tmp68997 + (let ((__tmp69003 (gx#datum->syntax '#f 'declare)) - (__tmp69001 - (let ((__tmp69002 - (let ((__tmp69005 + (__tmp68998 + (let ((__tmp68999 + (let ((__tmp69002 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'not)) - (__tmp69003 - (let ((__tmp69004 + (__tmp69000 + (let ((__tmp69001 (gx#datum->syntax '#f 'interrupts-enabled))) (declare (not safe)) - (cons __tmp69004 '())))) + (cons __tmp69001 '())))) (declare (not safe)) - (cons __tmp69005 __tmp69003)))) + (cons __tmp69002 __tmp69000)))) (declare (not safe)) - (cons __tmp69002 '())))) + (cons __tmp68999 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp69006 - __tmp69001))) - (__tmp68859 - (let ((__tmp68860 - (let ((__tmp68999 + (cons __tmp69003 + __tmp68998))) + (__tmp68856 + (let ((__tmp68857 + (let ((__tmp68996 (gx#datum->syntax '#f 'let*)) - (__tmp68861 - (let ((__tmp68967 + (__tmp68858 + (let ((__tmp68964 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp68992 - (let ((__tmp68998 + (let ((__tmp68989 + (let ((__tmp68995 (gx#datum->syntax '#f 'klass)) - (__tmp68993 - (let ((__tmp68994 - (let ((__tmp68997 + (__tmp68990 + (let ((__tmp68991 + (let ((__tmp68994 (gx#datum->syntax '#f '&interface-descriptor-type)) - (__tmp68995 - (let ((__tmp68996 + (__tmp68992 + (let ((__tmp68993 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'descriptor))) (declare (not safe)) - (cons __tmp68996 '())))) + (cons __tmp68993 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68997 - __tmp68995)))) + (cons __tmp68994 + __tmp68992)))) (declare (not safe)) - (cons __tmp68994 '())))) + (cons __tmp68991 '())))) (declare (not safe)) - (cons __tmp68998 __tmp68993))) - (__tmp68968 - (let ((__tmp68985 - (let ((__tmp68991 + (cons __tmp68995 __tmp68990))) + (__tmp68965 + (let ((__tmp68982 + (let ((__tmp68988 (gx#datum->syntax '#f 'klass-id)) - (__tmp68986 - (let ((__tmp68987 - (let ((__tmp68990 + (__tmp68983 + (let ((__tmp68984 + (let ((__tmp68987 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##type-id)) - (__tmp68988 - (let ((__tmp68989 (gx#datum->syntax '#f 'klass))) + (__tmp68985 + (let ((__tmp68986 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp68989 '())))) + (cons __tmp68986 '())))) (declare (not safe)) - (cons __tmp68990 __tmp68988)))) + (cons __tmp68987 __tmp68985)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68987 '())))) + (cons __tmp68984 '())))) (declare (not safe)) - (cons __tmp68991 __tmp68986))) - (__tmp68969 - (let ((__tmp68978 - (let ((__tmp68984 + (cons __tmp68988 __tmp68983))) + (__tmp68966 + (let ((__tmp68975 + (let ((__tmp68981 (gx#datum->syntax '#f 'obj-klass)) - (__tmp68979 - (let ((__tmp68980 - (let ((__tmp68983 + (__tmp68976 + (let ((__tmp68977 + (let ((__tmp68980 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##structure-type)) - (__tmp68981 - (let ((__tmp68982 (gx#datum->syntax '#f 'obj))) + (__tmp68978 + (let ((__tmp68979 (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp68982 '())))) + (cons __tmp68979 '())))) (declare (not safe)) - (cons __tmp68983 __tmp68981)))) + (cons __tmp68980 __tmp68978)))) (declare (not safe)) - (cons __tmp68980 '())))) + (cons __tmp68977 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68984 - __tmp68979))) - (__tmp68970 - (let ((__tmp68971 - (let ((__tmp68977 + (cons __tmp68981 + __tmp68976))) + (__tmp68967 + (let ((__tmp68968 + (let ((__tmp68974 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'obj-klass-id)) - (__tmp68972 - (let ((__tmp68973 - (let ((__tmp68976 + (__tmp68969 + (let ((__tmp68970 + (let ((__tmp68973 (gx#datum->syntax '#f '##type-id)) - (__tmp68974 - (let ((__tmp68975 + (__tmp68971 + (let ((__tmp68972 (gx#datum->syntax '#f 'obj-klass))) (declare (not safe)) - (cons __tmp68975 '())))) + (cons __tmp68972 '())))) (declare (not safe)) - (cons __tmp68976 __tmp68974)))) + (cons __tmp68973 __tmp68971)))) (declare (not safe)) - (cons __tmp68973 '())))) + (cons __tmp68970 '())))) (declare (not safe)) - (cons __tmp68977 __tmp68972)))) + (cons __tmp68974 __tmp68969)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68971 '())))) + (cons __tmp68968 '())))) (declare (not safe)) - (cons __tmp68978 __tmp68970)))) + (cons __tmp68975 __tmp68967)))) (declare (not safe)) - (cons __tmp68985 __tmp68969)))) + (cons __tmp68982 __tmp68966)))) (declare (not safe)) - (cons __tmp68992 __tmp68968))) - (__tmp68862 - (let ((__tmp68863 - (let ((__tmp68966 + (cons __tmp68989 __tmp68965))) + (__tmp68859 + (let ((__tmp68860 + (let ((__tmp68963 (gx#datum->syntax '#f 'cond)) - (__tmp68864 - (let ((__tmp68957 - (let ((__tmp68960 - (let ((__tmp68965 + (__tmp68861 + (let ((__tmp68954 + (let ((__tmp68957 + (let ((__tmp68962 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##eq?)) - (__tmp68961 - (let ((__tmp68964 (gx#datum->syntax '#f 'klass-id)) - (__tmp68962 - (let ((__tmp68963 + (__tmp68958 + (let ((__tmp68961 (gx#datum->syntax '#f 'klass-id)) + (__tmp68959 + (let ((__tmp68960 (gx#datum->syntax '#f 'obj-klass-id))) (declare (not safe)) - (cons __tmp68963 '())))) + (cons __tmp68960 '())))) (declare (not safe)) - (cons __tmp68964 __tmp68962)))) + (cons __tmp68961 __tmp68959)))) (declare (not safe)) - (cons __tmp68965 __tmp68961))) - (__tmp68958 - (let ((__tmp68959 (gx#datum->syntax '#f 'obj))) + (cons __tmp68962 __tmp68958))) + (__tmp68955 + (let ((__tmp68956 (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp68959 '())))) + (cons __tmp68956 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68960 - __tmp68958))) - (__tmp68865 - (let ((__tmp68943 - (let ((__tmp68953 - (let ((__tmp68956 + (cons __tmp68957 + __tmp68955))) + (__tmp68862 + (let ((__tmp68940 + (let ((__tmp68950 + (let ((__tmp68953 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'interface-subclass?)) - (__tmp68954 - (let ((__tmp68955 + (__tmp68951 + (let ((__tmp68952 (gx#datum->syntax '#f 'obj-klass))) (declare (not safe)) - (cons __tmp68955 '())))) + (cons __tmp68952 '())))) (declare (not safe)) - (cons __tmp68956 __tmp68954))) - (__tmp68944 - (let ((__tmp68945 - (let ((__tmp68946 - (let ((__tmp68952 + (cons __tmp68953 __tmp68951))) + (__tmp68941 + (let ((__tmp68942 + (let ((__tmp68943 + (let ((__tmp68949 (gx#datum->syntax '#f 'descriptor)) - (__tmp68947 - (let ((__tmp68948 - (let ((__tmp68951 + (__tmp68944 + (let ((__tmp68945 + (let ((__tmp68948 (gx#datum->syntax '#f '&interface-instance-object)) - (__tmp68949 - (let ((__tmp68950 + (__tmp68946 + (let ((__tmp68947 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp68950 '())))) + (cons __tmp68947 '())))) (declare (not safe)) - (cons __tmp68951 __tmp68949)))) + (cons __tmp68948 __tmp68946)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68948 '())))) + (cons __tmp68945 '())))) (declare (not safe)) - (cons __tmp68952 __tmp68947)))) + (cons __tmp68949 __tmp68944)))) (declare (not safe)) - (cons _L67720_ __tmp68946)))) + (cons _L67717_ __tmp68943)))) (declare (not safe)) - (cons __tmp68945 '())))) + (cons __tmp68942 '())))) (declare (not safe)) - (cons __tmp68953 __tmp68944))) - (__tmp68866 - (let ((__tmp68867 - (let ((__tmp68942 (gx#datum->syntax '#f 'else)) - (__tmp68868 - (let ((__tmp68938 - (let ((__tmp68941 + (cons __tmp68950 __tmp68941))) + (__tmp68863 + (let ((__tmp68864 + (let ((__tmp68939 (gx#datum->syntax '#f 'else)) + (__tmp68865 + (let ((__tmp68935 + (let ((__tmp68938 (gx#datum->syntax '#f '__lock-inline!)) - (__tmp68939 - (let ((__tmp68940 + (__tmp68936 + (let ((__tmp68937 (gx#datum->syntax '#f '__interface-prototypes-mx))) (declare (not safe)) - (cons __tmp68940 '())))) + (cons __tmp68937 '())))) (declare (not safe)) - (cons __tmp68941 __tmp68939))) - (__tmp68869 - (let ((__tmp68932 - (let ((__tmp68937 + (cons __tmp68938 __tmp68936))) + (__tmp68866 + (let ((__tmp68929 + (let ((__tmp68934 (gx#datum->syntax '#f '##set-car!)) - (__tmp68933 - (let ((__tmp68936 + (__tmp68930 + (let ((__tmp68933 (gx#datum->syntax '#f '__interface-prototypes-key)) - (__tmp68934 - (let ((__tmp68935 + (__tmp68931 + (let ((__tmp68932 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'klass-id))) (declare (not safe)) - (cons __tmp68935 '())))) + (cons __tmp68932 '())))) (declare (not safe)) - (cons __tmp68936 __tmp68934)))) + (cons __tmp68933 __tmp68931)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68937 __tmp68933))) - (__tmp68870 - (let ((__tmp68926 - (let ((__tmp68931 + (cons __tmp68934 __tmp68930))) + (__tmp68867 + (let ((__tmp68923 + (let ((__tmp68928 (gx#datum->syntax '#f '##set-cdr!)) - (__tmp68927 - (let ((__tmp68930 + (__tmp68924 + (let ((__tmp68927 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__interface-prototypes-key)) - (__tmp68928 - (let ((__tmp68929 + (__tmp68925 + (let ((__tmp68926 (gx#datum->syntax '#f 'obj-klass-id))) (declare (not safe)) - (cons __tmp68929 '())))) + (cons __tmp68926 '())))) (declare (not safe)) - (cons __tmp68930 __tmp68928)))) + (cons __tmp68927 __tmp68925)))) (declare (not safe)) - (cons __tmp68931 __tmp68927))) + (cons __tmp68928 __tmp68924))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp68871 - (let ((__tmp68872 - (let ((__tmp68925 + (__tmp68868 + (let ((__tmp68869 + (let ((__tmp68922 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp68873 - (let ((__tmp68880 - (let ((__tmp68924 + (__tmp68870 + (let ((__tmp68877 + (let ((__tmp68921 (gx#datum->syntax '#f 'prototype)) - (__tmp68881 - (let ((__tmp68882 - (let ((__tmp68923 + (__tmp68878 + (let ((__tmp68879 + (let ((__tmp68920 (gx#datum->syntax '#f 'cond)) - (__tmp68883 - (let ((__tmp68900 - (let ((__tmp68916 + (__tmp68880 + (let ((__tmp68897 + (let ((__tmp68913 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp68922 + (let ((__tmp68919 (gx#datum->syntax '#f 'prototype-table-ref)) - (__tmp68917 - (let ((__tmp68921 + (__tmp68914 + (let ((__tmp68918 (gx#datum->syntax '#f '__interface-prototypes)) - (__tmp68918 - (let ((__tmp68920 + (__tmp68915 + (let ((__tmp68917 (gx#datum->syntax '#f '__interface-prototypes-key)) - (__tmp68919 + (__tmp68916 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp68920 __tmp68919)))) + (cons __tmp68917 __tmp68916)))) (declare (not safe)) - (cons __tmp68921 __tmp68918)))) + (cons __tmp68918 __tmp68915)))) (declare (not safe)) - (cons __tmp68922 __tmp68917))) - (__tmp68901 - (let ((__tmp68915 (gx#datum->syntax '#f '=>)) - (__tmp68902 - (let ((__tmp68903 - (let ((__tmp68914 + (cons __tmp68919 __tmp68914))) + (__tmp68898 + (let ((__tmp68912 (gx#datum->syntax '#f '=>)) + (__tmp68899 + (let ((__tmp68900 + (let ((__tmp68911 (gx#datum->syntax '#f 'lambda)) - (__tmp68904 - (let ((__tmp68912 - (let ((__tmp68913 + (__tmp68901 + (let ((__tmp68909 + (let ((__tmp68910 (gx#datum->syntax '#f 'prototype))) (declare (not safe)) - (cons __tmp68913 + (cons __tmp68910 '()))) - (__tmp68905 - (let ((__tmp68908 - (let ((__tmp68911 + (__tmp68902 + (let ((__tmp68905 + (let ((__tmp68908 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__unlock-inline!)) - (__tmp68909 - (let ((__tmp68910 + (__tmp68906 + (let ((__tmp68907 (gx#datum->syntax '#f '__interface-prototypes-mx))) (declare (not safe)) - (cons __tmp68910 '())))) + (cons __tmp68907 '())))) (declare (not safe)) - (cons __tmp68911 __tmp68909))) - (__tmp68906 - (let ((__tmp68907 (gx#datum->syntax '#f 'prototype))) + (cons __tmp68908 __tmp68906))) + (__tmp68903 + (let ((__tmp68904 (gx#datum->syntax '#f 'prototype))) (declare (not safe)) - (cons __tmp68907 '())))) + (cons __tmp68904 '())))) (declare (not safe)) - (cons __tmp68908 __tmp68906)))) + (cons __tmp68905 __tmp68903)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68912 - __tmp68905)))) + (cons __tmp68909 + __tmp68902)))) (declare (not safe)) - (cons __tmp68914 __tmp68904)))) + (cons __tmp68911 __tmp68901)))) (declare (not safe)) - (cons __tmp68903 '())))) + (cons __tmp68900 '())))) (declare (not safe)) - (cons __tmp68915 __tmp68902)))) + (cons __tmp68912 __tmp68899)))) (declare (not safe)) - (cons __tmp68916 __tmp68901))) - (__tmp68884 - (let ((__tmp68885 - (let ((__tmp68899 (gx#datum->syntax '#f 'else)) - (__tmp68886 - (let ((__tmp68895 - (let ((__tmp68898 + (cons __tmp68913 __tmp68898))) + (__tmp68881 + (let ((__tmp68882 + (let ((__tmp68896 (gx#datum->syntax '#f 'else)) + (__tmp68883 + (let ((__tmp68892 + (let ((__tmp68895 (gx#datum->syntax '#f '__unlock-inline!)) - (__tmp68896 - (let ((__tmp68897 + (__tmp68893 + (let ((__tmp68894 (gx#datum->syntax '#f '__interface-prototypes-mx))) (declare (not safe)) - (cons __tmp68897 '())))) + (cons __tmp68894 '())))) (declare (not safe)) - (cons __tmp68898 __tmp68896))) - (__tmp68887 - (let ((__tmp68888 - (let ((__tmp68889 - (let ((__tmp68894 + (cons __tmp68895 __tmp68893))) + (__tmp68884 + (let ((__tmp68885 + (let ((__tmp68886 + (let ((__tmp68891 (gx#datum->syntax '#f 'descriptor)) - (__tmp68890 - (let ((__tmp68893 + (__tmp68887 + (let ((__tmp68890 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'klass)) - (__tmp68891 - (let ((__tmp68892 + (__tmp68888 + (let ((__tmp68889 (gx#datum->syntax '#f 'obj-klass))) (declare (not safe)) - (cons __tmp68892 '())))) + (cons __tmp68889 '())))) (declare (not safe)) - (cons __tmp68893 __tmp68891)))) + (cons __tmp68890 __tmp68888)))) (declare (not safe)) - (cons __tmp68894 __tmp68890)))) + (cons __tmp68891 __tmp68887)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L67719_ - __tmp68889)))) + (cons _L67716_ + __tmp68886)))) (declare (not safe)) - (cons __tmp68888 '())))) + (cons __tmp68885 '())))) (declare (not safe)) - (cons __tmp68895 __tmp68887)))) + (cons __tmp68892 __tmp68884)))) (declare (not safe)) - (cons __tmp68899 __tmp68886)))) + (cons __tmp68896 __tmp68883)))) (declare (not safe)) - (cons __tmp68885 '())))) + (cons __tmp68882 '())))) (declare (not safe)) - (cons __tmp68900 __tmp68884)))) + (cons __tmp68897 __tmp68881)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68923 - __tmp68883)))) + (cons __tmp68920 + __tmp68880)))) (declare (not safe)) - (cons __tmp68882 '())))) + (cons __tmp68879 '())))) (declare (not safe)) - (cons __tmp68924 __tmp68881))) - (__tmp68874 - (let ((__tmp68875 - (let ((__tmp68876 - (let ((__tmp68879 + (cons __tmp68921 __tmp68878))) + (__tmp68871 + (let ((__tmp68872 + (let ((__tmp68873 + (let ((__tmp68876 (gx#datum->syntax '#f 'prototype)) - (__tmp68877 - (let ((__tmp68878 + (__tmp68874 + (let ((__tmp68875 (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp68878 + (cons __tmp68875 '())))) (declare (not safe)) - (cons __tmp68879 - __tmp68877)))) + (cons __tmp68876 + __tmp68874)))) (declare (not safe)) - (cons _L67718_ __tmp68876)))) + (cons _L67715_ __tmp68873)))) (declare (not safe)) - (cons __tmp68875 '())))) + (cons __tmp68872 '())))) (declare (not safe)) - (cons __tmp68880 __tmp68874)))) + (cons __tmp68877 __tmp68871)))) (declare (not safe)) - (cons __tmp68925 __tmp68873)))) + (cons __tmp68922 __tmp68870)))) (declare (not safe)) - (cons __tmp68872 '())))) + (cons __tmp68869 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68926 __tmp68871)))) + (cons __tmp68923 __tmp68868)))) (declare (not safe)) - (cons __tmp68932 __tmp68870)))) + (cons __tmp68929 __tmp68867)))) (declare (not safe)) - (cons __tmp68938 __tmp68869)))) + (cons __tmp68935 __tmp68866)))) (declare (not safe)) - (cons __tmp68942 __tmp68868)))) + (cons __tmp68939 __tmp68865)))) (declare (not safe)) - (cons __tmp68867 '())))) + (cons __tmp68864 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68943 - __tmp68866)))) + (cons __tmp68940 + __tmp68863)))) (declare (not safe)) - (cons __tmp68957 __tmp68865)))) + (cons __tmp68954 __tmp68862)))) (declare (not safe)) - (cons __tmp68966 __tmp68864)))) + (cons __tmp68963 __tmp68861)))) (declare (not safe)) - (cons __tmp68863 '())))) + (cons __tmp68860 '())))) (declare (not safe)) - (cons __tmp68967 __tmp68862)))) + (cons __tmp68964 __tmp68859)))) (declare (not safe)) - (cons __tmp68999 __tmp68861)))) + (cons __tmp68996 __tmp68858)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68860 '())))) + (cons __tmp68857 '())))) (declare (not safe)) - (cons __tmp69000 __tmp68859)))) + (cons __tmp68997 __tmp68856)))) (declare (not safe)) - (cons '() __tmp68858)))) + (cons '() __tmp68855)))) (declare (not safe)) - (cons __tmp69007 __tmp68857))) - (__tmp68852 - (let ((__tmp68853 - (let ((__tmp68854 - (let ((__tmp68855 + (cons __tmp69004 __tmp68854))) + (__tmp68849 + (let ((__tmp68850 + (let ((__tmp68851 + (let ((__tmp68852 (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp68855 '())))) + (cons __tmp68852 '())))) (declare (not safe)) - (cons _L67716_ __tmp68854)))) + (cons _L67713_ __tmp68851)))) (declare (not safe)) - (cons __tmp68853 '())))) + (cons __tmp68850 '())))) (declare (not safe)) - (cons __tmp68856 __tmp68852)))) + (cons __tmp68853 __tmp68849)))) (declare (not safe)) - (cons __tmp69008 __tmp68851)))) + (cons __tmp69005 __tmp68848)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp69012 __tmp68850)))) + (cons __tmp69009 __tmp68847)))) (declare (not safe)) - (cons __tmp68849 '())))) + (cons __tmp68846 '())))) (declare (not safe)) - (cons __tmp69013 __tmp68848)))) + (cons __tmp69010 __tmp68845)))) (declare (not safe)) - (cons __tmp69018 __tmp68847))) - _hd6765267710_ - _hd6764967700_ - _hd6764667690_ - _hd6764367680_) - (_g6763367659_ _g6763467663_)))) - (_g6763367659_ _g6763467663_)))) + (cons __tmp69015 __tmp68844))) + _hd6764967707_ + _hd6764667697_ + _hd6764367687_ + _hd6764067677_) + (_g6763067656_ _g6763167660_)))) + (_g6763067656_ _g6763167660_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6763367659_ _g6763467663_)))) - (_g6763367659_ _g6763467663_)))) - (_g6763367659_ _g6763467663_)))) - (_g6763367659_ _g6763467663_))))) - (_g6763267742_ _$stx67629_)))))) + (_g6763067656_ _g6763167660_)))) + (_g6763067656_ _g6763167660_)))) + (_g6763067656_ _g6763167660_)))) + (_g6763067656_ _g6763167660_))))) + (_g6762967739_ _$stx67626_)))))) diff --git a/src/bootstrap/gerbil/runtime/loader__0.scm b/src/bootstrap/gerbil/runtime/loader__0.scm index 315ab739..224f368e 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 1709128371) + (define gerbil/runtime/loader::timestamp 1709229970) (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 (_modpath78455_ _reload?78456_) - (let ((_$e78458_ - (if (let () (declare (not safe)) (not _reload?78456_)) - (let ((__tmp78477 (current-module-registry))) + (lambda (_modpath78452_ _reload?78453_) + (let ((_$e78455_ + (if (let () (declare (not safe)) (not _reload?78453_)) + (let ((__tmp78474 (current-module-registry))) (declare (not safe)) - (hash-get __tmp78477 _modpath78455_)) + (hash-get __tmp78474 _modpath78452_)) '#f))) - (if _$e78458_ - _$e78458_ - (let ((_$e78461_ + (if _$e78455_ + _$e78455_ + (let ((_$e78458_ (let () (declare (not safe)) - (find-library-module _modpath78455_)))) - (if _$e78461_ - ((lambda (_path78464_) - (let ((_lpath78466_ (load _path78464_))) - (let ((__tmp78478 (current-module-registry))) + (find-library-module _modpath78452_)))) + (if _$e78458_ + ((lambda (_path78461_) + (let ((_lpath78463_ (load _path78461_))) + (let ((__tmp78475 (current-module-registry))) (declare (not safe)) - (hash-put! __tmp78478 _modpath78455_ _lpath78466_)) - _lpath78466_)) - _$e78461_) + (hash-put! __tmp78475 _modpath78452_ _lpath78463_)) + _lpath78463_)) + _$e78458_) (let () (declare (not safe)) - (error '"module not found" _modpath78455_)))))))) + (error '"module not found" _modpath78452_)))))))) (define load-module__0 - (lambda (_modpath78471_) - (let ((_reload?78473_ (__reload-module))) + (lambda (_modpath78468_) + (let ((_reload?78470_ (__reload-module))) (declare (not safe)) - (load-module__% _modpath78471_ _reload?78473_)))) + (load-module__% _modpath78468_ _reload?78470_)))) (define load-module - (lambda _g78480_ - (let ((_g78479_ (let () (declare (not safe)) (##length _g78480_)))) - (cond ((let () (declare (not safe)) (##fx= _g78479_ 1)) - (apply (lambda (_modpath78471_) + (lambda _g78477_ + (let ((_g78476_ (let () (declare (not safe)) (##length _g78477_)))) + (cond ((let () (declare (not safe)) (##fx= _g78476_ 1)) + (apply (lambda (_modpath78468_) (let () (declare (not safe)) - (load-module__0 _modpath78471_))) - _g78480_)) - ((let () (declare (not safe)) (##fx= _g78479_ 2)) - (apply (lambda (_modpath78475_ _reload?78476_) + (load-module__0 _modpath78468_))) + _g78477_)) + ((let () (declare (not safe)) (##fx= _g78476_ 2)) + (apply (lambda (_modpath78472_ _reload?78473_) (let () (declare (not safe)) - (load-module__% _modpath78475_ _reload?78476_))) - _g78480_)) + (load-module__% _modpath78472_ _reload?78473_))) + _g78477_)) (else (##raise-wrong-number-of-arguments-exception load-module - _g78480_)))))) + _g78477_)))))) (define find-library-module - (lambda (_modpath78389_) - (letrec ((_find-compiled-file78391_ - (lambda (_npath78443_) - (let ((_basepath78445_ + (lambda (_modpath78386_) + (letrec ((_find-compiled-file78388_ + (lambda (_npath78440_) + (let ((_basepath78442_ (let () (declare (not safe)) - (##string-append _npath78443_ '".o")))) - (let _lp78447_ ((_current78449_ '#f) (_n78450_ '1)) - (let ((_next78452_ - (let ((__tmp78481 (number->string _n78450_))) + (##string-append _npath78440_ '".o")))) + (let _lp78444_ ((_current78446_ '#f) (_n78447_ '1)) + (let ((_next78449_ + (let ((__tmp78478 (number->string _n78447_))) (declare (not safe)) (##string-append - _basepath78445_ - __tmp78481)))) + _basepath78442_ + __tmp78478)))) (if (let () (declare (not safe)) - (##file-exists? _next78452_)) - (let ((__tmp78482 + (##file-exists? _next78449_)) + (let ((__tmp78479 (let () (declare (not safe)) - (##fx+ _n78450_ '1)))) + (##fx+ _n78447_ '1)))) (declare (not safe)) - (_lp78447_ _next78452_ __tmp78482)) - _current78449_)))))) - (_find-source-file78392_ - (lambda (_npath78439_) - (let ((_spath78441_ (string-append _npath78439_ '".scm"))) + (_lp78444_ _next78449_ __tmp78479)) + _current78446_)))))) + (_find-source-file78389_ + (lambda (_npath78436_) + (let ((_spath78438_ (string-append _npath78436_ '".scm"))) (if (let () (declare (not safe)) - (##file-exists? _spath78441_)) - _spath78441_ + (##file-exists? _spath78438_)) + _spath78438_ '#f))))) - (let _lp78394_ ((_rest78396_ (current-module-library-path))) - (let* ((_rest7839778405_ _rest78396_) - (_else7839978413_ (lambda () '#f)) - (_K7840178427_ - (lambda (_rest78416_ _dir78417_) - (let* ((_npath78419_ + (let _lp78391_ ((_rest78393_ (current-module-library-path))) + (let* ((_rest7839478402_ _rest78393_) + (_else7839678410_ (lambda () '#f)) + (_K7839878424_ + (lambda (_rest78413_ _dir78414_) + (let* ((_npath78416_ (path-expand - _modpath78389_ - (path-expand _dir78417_))) - (_$e78421_ + _modpath78386_ + (path-expand _dir78414_))) + (_$e78418_ (let () (declare (not safe)) - (_find-compiled-file78391_ _npath78419_)))) - (if _$e78421_ - (path-normalize _$e78421_) - (let ((_$e78424_ + (_find-compiled-file78388_ _npath78416_)))) + (if _$e78418_ + (path-normalize _$e78418_) + (let ((_$e78421_ (let () (declare (not safe)) - (_find-source-file78392_ _npath78419_)))) - (if _$e78424_ - (path-normalize _$e78424_) + (_find-source-file78389_ _npath78416_)))) + (if _$e78421_ + (path-normalize _$e78421_) (let () (declare (not safe)) - (_lp78394_ _rest78416_))))))))) - (if (let () (declare (not safe)) (##pair? _rest7839778405_)) - (let ((_hd7840278430_ + (_lp78391_ _rest78413_))))))))) + (if (let () (declare (not safe)) (##pair? _rest7839478402_)) + (let ((_hd7839978427_ (let () (declare (not safe)) - (##car _rest7839778405_))) - (_tl7840378432_ + (##car _rest7839478402_))) + (_tl7840078429_ (let () (declare (not safe)) - (##cdr _rest7839778405_)))) - (let* ((_dir78435_ _hd7840278430_) - (_rest78437_ _tl7840378432_)) + (##cdr _rest7839478402_)))) + (let* ((_dir78432_ _hd7839978427_) + (_rest78434_ _tl7840078429_)) (declare (not safe)) - (_K7840178427_ _rest78437_ _dir78435_))) - (let () (declare (not safe)) (_else7839978413_)))))))))) + (_K7839878424_ _rest78434_ _dir78432_))) + (let () (declare (not safe)) (_else7839678410_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/mop__0.scm b/src/bootstrap/gerbil/runtime/mop__0.scm index 3769fdd2..1b09001f 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 1709128371) + (define gerbil/runtime/mop::timestamp 1709229969) (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* ((_slots64447_ + (let* ((_slots64444_ '(id name super flags @@ -23,1243 +23,1243 @@ properties constructor methods)) - (_slot-vector64449_ + (_slot-vector64446_ (list->vector - (let () (declare (not safe)) (cons '#f _slots64447_)))) - (_slot-table64456_ - (let ((_slot-table64451_ + (let () (declare (not safe)) (cons '#f _slots64444_)))) + (_slot-table64453_ + (let ((_slot-table64448_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (for-each - (lambda (_slot64453_ _field64454_) + (lambda (_slot64450_ _field64451_) (let () (declare (not safe)) (symbolic-table-set! - _slot-table64451_ - _slot64453_ - _field64454_)) - (let ((__tmp64597 (symbol->keyword _slot64453_))) + _slot-table64448_ + _slot64450_ + _field64451_)) + (let ((__tmp64594 (symbol->keyword _slot64450_))) (declare (not safe)) (symbolic-table-set! - _slot-table64451_ - __tmp64597 - _field64454_))) - _slots64447_ - (let ((__tmp64598 (length _slots64447_))) + _slot-table64448_ + __tmp64594 + _field64451_))) + _slots64444_ + (let ((__tmp64595 (length _slots64444_))) (declare (not safe)) - (iota__1 __tmp64598 '1))) - _slot-table64451_)) - (_flags64458_ + (iota__1 __tmp64595 '1))) + _slot-table64448_)) + (_flags64455_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_fields64464_ + (_fields64461_ (list->vector (apply append - (map (lambda (_g6445964461_) (list _g6445964461_ '5 '#f)) + (map (lambda (_g6445664458_) (list _g6445664458_ '5 '#f)) (let () (declare (not safe)) - (drop _slots64447_ '5)))))) - (_properties64466_ - (let ((__tmp64601 - (let ((__tmp64602 + (drop _slots64444_ '5)))))) + (_properties64463_ + (let ((__tmp64598 + (let ((__tmp64599 (let () (declare (not safe)) - (foldr1 cons '() _slots64447_)))) + (foldr1 cons '() _slots64444_)))) (declare (not safe)) - (cons 'direct-slots: __tmp64602))) - (__tmp64599 - (let ((__tmp64600 + (cons 'direct-slots: __tmp64599))) + (__tmp64596 + (let ((__tmp64597 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp64600 '())))) + (cons __tmp64597 '())))) (declare (not safe)) - (cons __tmp64601 __tmp64599))) - (_t64468_ + (cons __tmp64598 __tmp64596))) + (_t64465_ (let () (declare (not safe)) (##structure '#f class::t.id 'class - _flags64458_ + _flags64455_ ##type-type - _fields64464_ + _fields64461_ '() - _slot-vector64449_ - _slot-table64456_ - _properties64466_ + _slot-vector64446_ + _slot-table64453_ + _properties64463_ '#f '#f)))) - (let () (declare (not safe)) (##structure-type-set! _t64468_ _t64468_)) - _t64468_)) + (let () (declare (not safe)) (##structure-type-set! _t64465_ _t64465_)) + _t64465_)) (define class-type? - (lambda (_obj64445_) + (lambda (_obj64442_) (let () (declare (not safe)) - (##structure-instance-of? _obj64445_ class::t.id)))) + (##structure-instance-of? _obj64442_ class::t.id)))) (define class-type=? - (lambda (_x64442_ _y64443_) - (let ((__tmp64604 (##structure-ref _x64442_ '1 class::t '#f)) - (__tmp64603 (##structure-ref _y64443_ '1 class::t '#f))) + (lambda (_x64439_ _y64440_) + (let ((__tmp64601 (##structure-ref _x64439_ '1 class::t '#f)) + (__tmp64600 (##structure-ref _y64440_ '1 class::t '#f))) (declare (not safe)) - (eq? __tmp64604 __tmp64603)))) + (eq? __tmp64601 __tmp64600)))) (define type-opaque? - (lambda (_type64440_) - (let ((__tmp64605 - (let ((__tmp64606 + (lambda (_type64437_) + (let ((__tmp64602 + (let ((__tmp64603 (let () (declare (not safe)) - (##type-flags _type64440_)))) + (##type-flags _type64437_)))) (declare (not safe)) - (##fxand __tmp64606 type-flag-opaque)))) + (##fxand __tmp64603 type-flag-opaque)))) (declare (not safe)) - (##fx= __tmp64605 type-flag-opaque)))) + (##fx= __tmp64602 type-flag-opaque)))) (define type-extensible? - (lambda (_type64438_) - (let ((__tmp64607 - (let ((__tmp64608 + (lambda (_type64435_) + (let ((__tmp64604 + (let ((__tmp64605 (let () (declare (not safe)) - (##type-flags _type64438_)))) + (##type-flags _type64435_)))) (declare (not safe)) - (##fxand __tmp64608 type-flag-extensible)))) + (##fxand __tmp64605 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp64607 type-flag-extensible)))) + (##fx= __tmp64604 type-flag-extensible)))) (define class-type-final? - (lambda (_type64436_) - (let ((__tmp64609 - (let ((__tmp64610 + (lambda (_type64433_) + (let ((__tmp64606 + (let ((__tmp64607 (let () (declare (not safe)) - (##type-flags _type64436_)))) + (##type-flags _type64433_)))) (declare (not safe)) - (##fxand __tmp64610 type-flag-extensible)))) + (##fxand __tmp64607 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp64609 '0)))) + (##fx= __tmp64606 '0)))) (define class-type-struct? - (lambda (_klass64434_) - (let ((__tmp64611 - (let ((__tmp64612 + (lambda (_klass64431_) + (let ((__tmp64608 + (let ((__tmp64609 (let () (declare (not safe)) - (##type-flags _klass64434_)))) + (##type-flags _klass64431_)))) (declare (not safe)) - (##fxand __tmp64612 class-type-flag-struct)))) + (##fxand __tmp64609 class-type-flag-struct)))) (declare (not safe)) - (##fx= __tmp64611 class-type-flag-struct)))) + (##fx= __tmp64608 class-type-flag-struct)))) (define class-type-sealed? - (lambda (_klass64432_) - (let ((__tmp64613 - (let ((__tmp64614 + (lambda (_klass64429_) + (let ((__tmp64610 + (let ((__tmp64611 (let () (declare (not safe)) - (##type-flags _klass64432_)))) + (##type-flags _klass64429_)))) (declare (not safe)) - (##fxand __tmp64614 class-type-flag-sealed)))) + (##fxand __tmp64611 class-type-flag-sealed)))) (declare (not safe)) - (##fx= __tmp64613 class-type-flag-sealed)))) + (##fx= __tmp64610 class-type-flag-sealed)))) (define class-type-metaclass? - (lambda (_klass64430_) - (let ((__tmp64615 - (let ((__tmp64616 + (lambda (_klass64427_) + (let ((__tmp64612 + (let ((__tmp64613 (let () (declare (not safe)) - (##type-flags _klass64430_)))) + (##type-flags _klass64427_)))) (declare (not safe)) - (##fxand __tmp64616 class-type-flag-metaclass)))) + (##fxand __tmp64613 class-type-flag-metaclass)))) (declare (not safe)) - (##fx= __tmp64615 class-type-flag-metaclass)))) + (##fx= __tmp64612 class-type-flag-metaclass)))) (define properties-form - (lambda (_properties64396_) - (map (lambda (_e6439764399_) - (let* ((_g6440164408_ _e6439764399_) - (_E6440364412_ + (lambda (_properties64393_) + (map (lambda (_e6439464396_) + (let* ((_g6439864405_ _e6439464396_) + (_E6440064409_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _g6440164408_)))) - (_K6440464418_ - (lambda (_val64415_ _key64416_) + (error '"No clause matching" _g6439864405_)))) + (_K6440164415_ + (lambda (_val64412_ _key64413_) (if (let () (declare (not safe)) - (eq? _key64416_ 'direct-supers:)) - (let ((__tmp64617 (map class-type-id _val64415_))) + (eq? _key64413_ 'direct-supers:)) + (let ((__tmp64614 (map class-type-id _val64412_))) (declare (not safe)) - (cons _key64416_ __tmp64617)) + (cons _key64413_ __tmp64614)) (let () (declare (not safe)) - (cons _key64416_ _val64415_)))))) - (if (let () (declare (not safe)) (##pair? _g6440164408_)) - (let ((_hd6440564421_ + (cons _key64413_ _val64412_)))))) + (if (let () (declare (not safe)) (##pair? _g6439864405_)) + (let ((_hd6440264418_ (let () (declare (not safe)) - (##car _g6440164408_))) - (_tl6440664423_ + (##car _g6439864405_))) + (_tl6440364420_ (let () (declare (not safe)) - (##cdr _g6440164408_)))) - (let* ((_key64426_ _hd6440564421_) - (_val64428_ _tl6440664423_)) + (##cdr _g6439864405_)))) + (let* ((_key64423_ _hd6440264418_) + (_val64425_ _tl6440364420_)) (declare (not safe)) - (_K6440464418_ _val64428_ _key64426_))) - (let () (declare (not safe)) (_E6440364412_))))) - _properties64396_))) + (_K6440164415_ _val64425_ _key64423_))) + (let () (declare (not safe)) (_E6440064409_))))) + _properties64393_))) (define make-class-type-descriptor - (lambda (_type-id64295_ - _type-name64296_ - _type-super64297_ - _precedence-list64298_ - _slot-vector64299_ - _properties64300_ - _constructor64301_ - _slot-table64302_ - _methods64303_) - (letrec ((_make-props!64305_ - (lambda (_key64365_) - (letrec* ((_ht64367_ + (lambda (_type-id64292_ + _type-name64293_ + _type-super64294_ + _precedence-list64295_ + _slot-vector64296_ + _properties64297_ + _constructor64298_ + _slot-table64299_ + _methods64300_) + (letrec ((_make-props!64302_ + (lambda (_key64362_) + (letrec* ((_ht64364_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (_put-slots!64368_ - (lambda (_ht64389_ _slots64390_) + (_put-slots!64365_ + (lambda (_ht64386_ _slots64387_) (for-each - (lambda (_g6439164393_) + (lambda (_g6438864390_) (let () (declare (not safe)) (symbolic-table-set! - _ht64389_ - _g6439164393_ + _ht64386_ + _g6438864390_ '#t))) - _slots64390_))) - (_put-alist!64369_ - (lambda (_ht64378_ _key64379_ _alist64380_) - (let ((_$e64382_ + _slots64387_))) + (_put-alist!64366_ + (lambda (_ht64375_ _key64376_ _alist64377_) + (let ((_$e64379_ (let () (declare (not safe)) (assgetq__0 - _key64379_ - _alist64380_)))) - (if _$e64382_ - ((lambda (_g6438464386_) + _key64376_ + _alist64377_)))) + (if _$e64379_ + ((lambda (_g6438164383_) (let () (declare (not safe)) - (_put-slots!64368_ - _ht64378_ - _g6438464386_))) - _$e64382_) + (_put-slots!64365_ + _ht64375_ + _g6438164383_))) + _$e64379_) '#!void))))) (let () (declare (not safe)) - (_put-alist!64369_ - _ht64367_ - _key64365_ - _properties64300_)) + (_put-alist!64366_ + _ht64364_ + _key64362_ + _properties64297_)) (for-each - (lambda (_mixin64371_) - (let ((_alist64373_ + (lambda (_mixin64368_) + (let ((_alist64370_ (##structure-ref - _mixin64371_ + _mixin64368_ '9 class::t '#f))) (if (or (let () (declare (not safe)) - (assgetq__0 'transparent: _alist64373_)) - (let ((__tmp64619 + (assgetq__0 'transparent: _alist64370_)) + (let ((__tmp64616 (let () (declare (not safe)) (assgetq__0 - _key64365_ - _alist64373_)))) + _key64362_ + _alist64370_)))) (declare (not safe)) - (eq? '#t __tmp64619))) - (let ((__tmp64618 + (eq? '#t __tmp64616))) + (let ((__tmp64615 (let () (declare (not safe)) - (class-type-slot-list _mixin64371_)))) + (class-type-slot-list _mixin64368_)))) (declare (not safe)) - (_put-slots!64368_ _ht64367_ __tmp64618)) + (_put-slots!64365_ _ht64364_ __tmp64615)) (let () (declare (not safe)) - (_put-alist!64369_ - _ht64367_ - _key64365_ - _alist64373_))))) - _precedence-list64298_) - _ht64367_)))) - (let* ((_transparent?64307_ + (_put-alist!64366_ + _ht64364_ + _key64362_ + _alist64370_))))) + _precedence-list64295_) + _ht64364_)))) + (let* ((_transparent?64304_ (let () (declare (not safe)) - (assgetq__0 'transparent: _properties64300_))) - (_all-slots-printable?64312_ - (let ((_$e64309_ _transparent?64307_)) - (if _$e64309_ - _$e64309_ - (let ((__tmp64620 + (assgetq__0 'transparent: _properties64297_))) + (_all-slots-printable?64309_ + (let ((_$e64306_ _transparent?64304_)) + (if _$e64306_ + _$e64306_ + (let ((__tmp64617 (let () (declare (not safe)) - (assgetq__0 'print: _properties64300_)))) + (assgetq__0 'print: _properties64297_)))) (declare (not safe)) - (eq? '#t __tmp64620))))) - (_printable64314_ + (eq? '#t __tmp64617))))) + (_printable64311_ (if (let () (declare (not safe)) - (not _all-slots-printable?64312_)) + (not _all-slots-printable?64309_)) (let () (declare (not safe)) - (_make-props!64305_ 'print:)) + (_make-props!64302_ 'print:)) '#f)) - (_all-slots-equalable?64319_ - (let ((_$e64316_ _transparent?64307_)) - (if _$e64316_ - _$e64316_ - (let ((__tmp64621 + (_all-slots-equalable?64316_ + (let ((_$e64313_ _transparent?64304_)) + (if _$e64313_ + _$e64313_ + (let ((__tmp64618 (let () (declare (not safe)) - (assgetq__0 'equal: _properties64300_)))) + (assgetq__0 'equal: _properties64297_)))) (declare (not safe)) - (eq? '#t __tmp64621))))) - (_equalable64321_ + (eq? '#t __tmp64618))))) + (_equalable64318_ (if (let () (declare (not safe)) - (not _all-slots-equalable?64319_)) + (not _all-slots-equalable?64316_)) (let () (declare (not safe)) - (_make-props!64305_ 'equal:)) + (_make-props!64302_ 'equal:)) '#f)) - (_first-new-field64323_ + (_first-new-field64320_ (if (let () (declare (not safe)) (##structure-instance-of? - _type-super64297_ + _type-super64294_ 'gerbil#class::t)) - (let ((__tmp64622 + (let ((__tmp64619 (##structure-ref - _type-super64297_ + _type-super64294_ '7 class::t '#f))) (declare (not safe)) - (##vector-length __tmp64622)) + (##vector-length __tmp64619)) '1)) - (_field-info-length64325_ - (let ((__tmp64623 - (let ((__tmp64624 + (_field-info-length64322_ + (let ((__tmp64620 + (let ((__tmp64621 (let () (declare (not safe)) - (##vector-length _slot-vector64299_)))) + (##vector-length _slot-vector64296_)))) (declare (not safe)) - (##fx- __tmp64624 _first-new-field64323_)))) + (##fx- __tmp64621 _first-new-field64320_)))) (declare (not safe)) - (##fx* '3 __tmp64623))) - (_field-info64327_ (make-vector _field-info-length64325_ '#f)) - (_struct?64329_ + (##fx* '3 __tmp64620))) + (_field-info64324_ (make-vector _field-info-length64322_ '#f)) + (_struct?64326_ (let () (declare (not safe)) - (assgetq__0 'struct: _properties64300_))) - (_final?64331_ + (assgetq__0 'struct: _properties64297_))) + (_final?64328_ (let () (declare (not safe)) - (assgetq__0 'final: _properties64300_))) - (_metaclass64339_ - (let ((_metaclass6433264334_ + (assgetq__0 'final: _properties64297_))) + (_metaclass64336_ + (let ((_metaclass6432964331_ (let () (declare (not safe)) - (assgetq__0 'metaclass: _properties64300_)))) - (if _metaclass6433264334_ - (let ((_metaclass64337_ _metaclass6433264334_)) + (assgetq__0 'metaclass: _properties64297_)))) + (if _metaclass6432964331_ + (let ((_metaclass64334_ _metaclass6432964331_)) (if (let () (declare (not safe)) (##structure-instance-of? - _metaclass64337_ + _metaclass64334_ 'gerbil#class::t)) '#!void (let () (declare (not safe)) (error '"metaclass is not a class type" 'class: - _type-id64295_ + _type-id64292_ 'metaclass: - _metaclass64337_))) - _metaclass64337_) + _metaclass64334_))) + _metaclass64334_) '#f))) - (_opaque?64344_ - (let ((_$e64341_ + (_opaque?64341_ + (let ((_$e64338_ (let () (declare (not safe)) - (not _all-slots-equalable?64319_)))) - (if _$e64341_ - _$e64341_ - (if _type-super64297_ + (not _all-slots-equalable?64316_)))) + (if _$e64338_ + _$e64338_ + (if _type-super64294_ (let () (declare (not safe)) - (type-opaque? _type-super64297_)) + (type-opaque? _type-super64294_)) '#f)))) - (_type-flags64346_ - (let ((__tmp64628 (if _final?64331_ '0 type-flag-extensible)) - (__tmp64627 (if _opaque?64344_ type-flag-opaque '0)) - (__tmp64626 - (if _struct?64329_ class-type-flag-struct '0)) - (__tmp64625 - (if _metaclass64339_ class-type-flag-metaclass '0))) + (_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))) (declare (not safe)) (##fxior type-flag-id type-flag-concrete - __tmp64628 - __tmp64627 - __tmp64626 - __tmp64625)))) - (let _loop64349_ ((_i64351_ _first-new-field64323_) (_j64352_ '0)) + __tmp64625 + __tmp64624 + __tmp64623 + __tmp64622)))) + (let _loop64346_ ((_i64348_ _first-new-field64320_) (_j64349_ '0)) (if (let () (declare (not safe)) - (##fx< _j64352_ _field-info-length64325_)) - (let* ((_slot64354_ + (##fx< _j64349_ _field-info-length64322_)) + (let* ((_slot64351_ (let () (declare (not safe)) - (##vector-ref _slot-vector64299_ _i64351_))) - (_flags64362_ - (if _transparent?64307_ + (##vector-ref _slot-vector64296_ _i64348_))) + (_flags64359_ + (if _transparent?64304_ '0 - (let ((__tmp64630 - (if (or _all-slots-printable?64312_ + (let ((__tmp64627 + (if (or _all-slots-printable?64309_ (let () (declare (not safe)) (symbolic-table-ref - _printable64314_ - _slot64354_ + _printable64311_ + _slot64351_ '#f))) '0 '1)) - (__tmp64629 - (if (or _all-slots-equalable?64319_ + (__tmp64626 + (if (or _all-slots-equalable?64316_ (let () (declare (not safe)) (symbolic-table-ref - _equalable64321_ - _slot64354_ + _equalable64318_ + _slot64351_ '#f))) '0 '4))) (declare (not safe)) - (##fxior __tmp64630 __tmp64629))))) - (vector-set! _field-info64327_ _j64352_ _slot64354_) + (##fxior __tmp64627 __tmp64626))))) + (vector-set! _field-info64324_ _j64349_ _slot64351_) (vector-set! - _field-info64327_ - (let () (declare (not safe)) (##fx+ _j64352_ '1)) - _flags64362_) - (let ((__tmp64632 - (let () (declare (not safe)) (##fx+ _i64351_ '1))) - (__tmp64631 - (let () (declare (not safe)) (##fx+ _j64352_ '3)))) + _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)))) (declare (not safe)) - (_loop64349_ __tmp64632 __tmp64631))) + (_loop64346_ __tmp64629 __tmp64628))) '#!void)) - (if _metaclass64339_ + (if _metaclass64336_ (let () (declare (not safe)) (make-instance - _metaclass64339_ - _type-id64295_ - _type-name64296_ - _type-flags64346_ - _type-super64297_ - _field-info64327_ - _precedence-list64298_ - _slot-vector64299_ - _slot-table64302_ - _properties64300_ - _constructor64301_ - _methods64303_)) + _metaclass64336_ + _type-id64292_ + _type-name64293_ + _type-flags64343_ + _type-super64294_ + _field-info64324_ + _precedence-list64295_ + _slot-vector64296_ + _slot-table64299_ + _properties64297_ + _constructor64298_ + _methods64300_)) (let () (declare (not safe)) (##structure class::t - _type-id64295_ - _type-name64296_ - _type-flags64346_ - _type-super64297_ - _field-info64327_ - _precedence-list64298_ - _slot-vector64299_ - _slot-table64302_ - _properties64300_ - _constructor64301_ - _methods64303_))))))) + _type-id64292_ + _type-name64293_ + _type-flags64343_ + _type-super64294_ + _field-info64324_ + _precedence-list64295_ + _slot-vector64296_ + _slot-table64299_ + _properties64297_ + _constructor64298_ + _methods64300_))))))) (define class-type-id - (lambda (_klass64293_) + (lambda (_klass64290_) (let () (declare (not safe)) - (##structure-ref _klass64293_ '1 class::t 'id)))) + (##structure-ref _klass64290_ '1 class::t 'id)))) (define &class-type-id - (lambda (_klass64291_) + (lambda (_klass64288_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64291_ '1 class::t 'id)))) + (##unchecked-structure-ref _klass64288_ '1 class::t 'id)))) (define class-type-id-set! - (lambda (_klass64288_ _val64289_) + (lambda (_klass64285_ _val64286_) (let () (declare (not safe)) - (##structure-set! _klass64288_ _val64289_ '1 class::t 'id)))) + (##structure-set! _klass64285_ _val64286_ '1 class::t 'id)))) (define &class-type-id-set! - (lambda (_klass64283_ _val64285_) + (lambda (_klass64280_ _val64282_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64283_ - _val64285_ + _klass64280_ + _val64282_ '1 class::t 'id)))) (define class-type-name - (lambda (_klass64281_) + (lambda (_klass64278_) (let () (declare (not safe)) - (##structure-ref _klass64281_ '2 class::t 'name)))) + (##structure-ref _klass64278_ '2 class::t 'name)))) (define &class-type-name - (lambda (_klass64279_) + (lambda (_klass64276_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64279_ '2 class::t 'name)))) + (##unchecked-structure-ref _klass64276_ '2 class::t 'name)))) (define class-type-name-set! - (lambda (_klass64276_ _val64277_) + (lambda (_klass64273_ _val64274_) (let () (declare (not safe)) - (##structure-set! _klass64276_ _val64277_ '2 class::t 'name)))) + (##structure-set! _klass64273_ _val64274_ '2 class::t 'name)))) (define &class-type-name-set! - (lambda (_klass64271_ _val64273_) + (lambda (_klass64268_ _val64270_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64271_ - _val64273_ + _klass64268_ + _val64270_ '2 class::t 'name)))) (define class-type-super - (lambda (_klass64269_) + (lambda (_klass64266_) (let () (declare (not safe)) - (##structure-ref _klass64269_ '3 class::t 'super)))) + (##structure-ref _klass64266_ '3 class::t 'super)))) (define &class-type-super - (lambda (_klass64267_) + (lambda (_klass64264_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64267_ '3 class::t 'super)))) + (##unchecked-structure-ref _klass64264_ '3 class::t 'super)))) (define class-type-super-set! - (lambda (_klass64264_ _val64265_) + (lambda (_klass64261_ _val64262_) (let () (declare (not safe)) - (##structure-set! _klass64264_ _val64265_ '3 class::t 'super)))) + (##structure-set! _klass64261_ _val64262_ '3 class::t 'super)))) (define &class-type-super-set! - (lambda (_klass64259_ _val64261_) + (lambda (_klass64256_ _val64258_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64259_ - _val64261_ + _klass64256_ + _val64258_ '3 class::t 'super)))) (define class-type-flags - (lambda (_klass64257_) + (lambda (_klass64254_) (let () (declare (not safe)) - (##structure-ref _klass64257_ '4 class::t 'flags)))) + (##structure-ref _klass64254_ '4 class::t 'flags)))) (define &class-type-flags - (lambda (_klass64255_) + (lambda (_klass64252_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64255_ '4 class::t 'flags)))) + (##unchecked-structure-ref _klass64252_ '4 class::t 'flags)))) (define class-type-flags-set! - (lambda (_klass64252_ _val64253_) + (lambda (_klass64249_ _val64250_) (let () (declare (not safe)) - (##structure-set! _klass64252_ _val64253_ '4 class::t 'flags)))) + (##structure-set! _klass64249_ _val64250_ '4 class::t 'flags)))) (define &class-type-flags-set! - (lambda (_klass64247_ _val64249_) + (lambda (_klass64244_ _val64246_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64247_ - _val64249_ + _klass64244_ + _val64246_ '4 class::t 'flags)))) (define class-type-fields - (lambda (_klass64245_) + (lambda (_klass64242_) (let () (declare (not safe)) - (##structure-ref _klass64245_ '5 class::t 'fields)))) + (##structure-ref _klass64242_ '5 class::t 'fields)))) (define &class-type-fields - (lambda (_klass64243_) + (lambda (_klass64240_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64243_ '5 class::t 'fields)))) + (##unchecked-structure-ref _klass64240_ '5 class::t 'fields)))) (define class-type-fields-set! - (lambda (_klass64240_ _val64241_) + (lambda (_klass64237_ _val64238_) (let () (declare (not safe)) - (##structure-set! _klass64240_ _val64241_ '5 class::t 'fields)))) + (##structure-set! _klass64237_ _val64238_ '5 class::t 'fields)))) (define &class-type-fields-set! - (lambda (_klass64235_ _val64237_) + (lambda (_klass64232_ _val64234_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64235_ - _val64237_ + _klass64232_ + _val64234_ '5 class::t 'fields)))) (define class-type-precedence-list - (lambda (_klass64233_) + (lambda (_klass64230_) (let () (declare (not safe)) - (##structure-ref _klass64233_ '6 class::t 'precedence-list)))) + (##structure-ref _klass64230_ '6 class::t 'precedence-list)))) (define &class-type-precedence-list - (lambda (_klass64231_) + (lambda (_klass64228_) (let () (declare (not safe)) (##unchecked-structure-ref - _klass64231_ + _klass64228_ '6 class::t 'precedence-list)))) (define class-type-precedence-list-set! - (lambda (_klass64228_ _val64229_) + (lambda (_klass64225_ _val64226_) (let () (declare (not safe)) (##structure-set! - _klass64228_ - _val64229_ + _klass64225_ + _val64226_ '6 class::t 'precedence-list)))) (define &class-type-precedence-list-set! - (lambda (_klass64223_ _val64225_) + (lambda (_klass64220_ _val64222_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64223_ - _val64225_ + _klass64220_ + _val64222_ '6 class::t 'precedence-list)))) (define class-type-slot-vector - (lambda (_klass64221_) + (lambda (_klass64218_) (let () (declare (not safe)) - (##structure-ref _klass64221_ '7 class::t 'slot-vector)))) + (##structure-ref _klass64218_ '7 class::t 'slot-vector)))) (define &class-type-slot-vector - (lambda (_klass64219_) + (lambda (_klass64216_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64219_ '7 class::t 'slot-vector)))) + (##unchecked-structure-ref _klass64216_ '7 class::t 'slot-vector)))) (define class-type-slot-vector-set! - (lambda (_klass64216_ _val64217_) + (lambda (_klass64213_ _val64214_) (let () (declare (not safe)) (##structure-set! - _klass64216_ - _val64217_ + _klass64213_ + _val64214_ '7 class::t 'slot-vector)))) (define &class-type-slot-vector-set! - (lambda (_klass64211_ _val64213_) + (lambda (_klass64208_ _val64210_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64211_ - _val64213_ + _klass64208_ + _val64210_ '7 class::t 'slot-vector)))) (define class-type-slot-table - (lambda (_klass64209_) + (lambda (_klass64206_) (let () (declare (not safe)) - (##structure-ref _klass64209_ '8 class::t 'slot-table)))) + (##structure-ref _klass64206_ '8 class::t 'slot-table)))) (define &class-type-slot-table - (lambda (_klass64207_) + (lambda (_klass64204_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64207_ '8 class::t 'slot-table)))) + (##unchecked-structure-ref _klass64204_ '8 class::t 'slot-table)))) (define class-type-slot-table-set! - (lambda (_klass64204_ _val64205_) + (lambda (_klass64201_ _val64202_) (let () (declare (not safe)) - (##structure-set! _klass64204_ _val64205_ '8 class::t 'slot-table)))) + (##structure-set! _klass64201_ _val64202_ '8 class::t 'slot-table)))) (define &class-type-slot-table-set! - (lambda (_klass64199_ _val64201_) + (lambda (_klass64196_ _val64198_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64199_ - _val64201_ + _klass64196_ + _val64198_ '8 class::t 'slot-table)))) (define class-type-properties - (lambda (_klass64197_) + (lambda (_klass64194_) (let () (declare (not safe)) - (##structure-ref _klass64197_ '9 class::t 'properties)))) + (##structure-ref _klass64194_ '9 class::t 'properties)))) (define &class-type-properties - (lambda (_klass64195_) + (lambda (_klass64192_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64195_ '9 class::t 'properties)))) + (##unchecked-structure-ref _klass64192_ '9 class::t 'properties)))) (define class-type-properties-set! - (lambda (_klass64192_ _val64193_) + (lambda (_klass64189_ _val64190_) (let () (declare (not safe)) - (##structure-set! _klass64192_ _val64193_ '9 class::t 'properties)))) + (##structure-set! _klass64189_ _val64190_ '9 class::t 'properties)))) (define &class-type-properties-set! - (lambda (_klass64187_ _val64189_) + (lambda (_klass64184_ _val64186_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64187_ - _val64189_ + _klass64184_ + _val64186_ '9 class::t 'properties)))) (define class-type-constructor - (lambda (_klass64185_) + (lambda (_klass64182_) (let () (declare (not safe)) - (##structure-ref _klass64185_ '10 class::t 'constructor)))) + (##structure-ref _klass64182_ '10 class::t 'constructor)))) (define &class-type-constructor - (lambda (_klass64183_) + (lambda (_klass64180_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64183_ '10 class::t 'constructor)))) + (##unchecked-structure-ref _klass64180_ '10 class::t 'constructor)))) (define class-type-constructor-set! - (lambda (_klass64180_ _val64181_) + (lambda (_klass64177_ _val64178_) (let () (declare (not safe)) (##structure-set! - _klass64180_ - _val64181_ + _klass64177_ + _val64178_ '10 class::t 'constructor)))) (define &class-type-constructor-set! - (lambda (_klass64175_ _val64177_) + (lambda (_klass64172_ _val64174_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64175_ - _val64177_ + _klass64172_ + _val64174_ '10 class::t 'constructor)))) (define class-type-methods - (lambda (_klass64173_) + (lambda (_klass64170_) (let () (declare (not safe)) - (##structure-ref _klass64173_ '11 class::t 'methods)))) + (##structure-ref _klass64170_ '11 class::t 'methods)))) (define &class-type-methods - (lambda (_klass64171_) + (lambda (_klass64168_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64171_ '11 class::t 'methods)))) + (##unchecked-structure-ref _klass64168_ '11 class::t 'methods)))) (define class-type-methods-set! - (lambda (_klass64168_ _val64169_) + (lambda (_klass64165_ _val64166_) (let () (declare (not safe)) - (##structure-set! _klass64168_ _val64169_ '11 class::t 'methods)))) + (##structure-set! _klass64165_ _val64166_ '11 class::t 'methods)))) (define &class-type-methods-set! - (lambda (_klass64163_ _val64165_) + (lambda (_klass64160_ _val64162_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64163_ - _val64165_ + _klass64160_ + _val64162_ '11 class::t 'methods)))) (define class-type-slot-list - (lambda (_klass64161_) - (cdr (vector->list (##structure-ref _klass64161_ '7 class::t '#f))))) + (lambda (_klass64158_) + (cdr (vector->list (##structure-ref _klass64158_ '7 class::t '#f))))) (define class-type-field-count - (lambda (_klass64159_) - (let ((__tmp64633 - (let ((__tmp64634 - (##structure-ref _klass64159_ '7 class::t '#f))) + (lambda (_klass64156_) + (let ((__tmp64630 + (let ((__tmp64631 + (##structure-ref _klass64156_ '7 class::t '#f))) (declare (not safe)) - (##vector-length __tmp64634)))) + (##vector-length __tmp64631)))) (declare (not safe)) - (##fx- __tmp64633 '1)))) + (##fx- __tmp64630 '1)))) (define class-type-seal! - (lambda (_klass64157_) - (let ((__tmp64635 - (let ((__tmp64636 + (lambda (_klass64154_) + (let ((__tmp64632 + (let ((__tmp64633 (let () (declare (not safe)) - (##type-flags _klass64157_)))) + (##type-flags _klass64154_)))) (declare (not safe)) - (##fxior class-type-flag-sealed __tmp64636)))) + (##fxior class-type-flag-sealed __tmp64633)))) (declare (not safe)) (##structure-set! - _klass64157_ - __tmp64635 + _klass64154_ + __tmp64632 '3 class::t class-type-seal!)))) (define &class-type-seal! - (lambda (_klass64155_) - (let ((__tmp64637 - (let ((__tmp64638 + (lambda (_klass64152_) + (let ((__tmp64634 + (let ((__tmp64635 (let () (declare (not safe)) - (##type-flags _klass64155_)))) + (##type-flags _klass64152_)))) (declare (not safe)) - (##fxior class-type-flag-sealed __tmp64638)))) + (##fxior class-type-flag-sealed __tmp64635)))) (declare (not safe)) (##unchecked-structure-set! - _klass64155_ - __tmp64637 + _klass64152_ + __tmp64634 '3 class::t class-type-seal!)))) (define substruct? - (lambda (_maybe-sub-struct64146_ _maybe-super-struct64147_) - (let ((_maybe-super-struct-id64149_ + (lambda (_maybe-sub-struct64143_ _maybe-super-struct64144_) + (let ((_maybe-super-struct-id64146_ (let () (declare (not safe)) - (##type-id _maybe-super-struct64147_)))) - (let _lp64151_ ((_super-struct64153_ _maybe-sub-struct64146_)) - (if (let () (declare (not safe)) (not _super-struct64153_)) + (##type-id _maybe-super-struct64144_)))) + (let _lp64148_ ((_super-struct64150_ _maybe-sub-struct64143_)) + (if (let () (declare (not safe)) (not _super-struct64150_)) '#f - (if (let ((__tmp64640 + (if (let ((__tmp64637 (let () (declare (not safe)) - (##type-id _super-struct64153_)))) + (##type-id _super-struct64150_)))) (declare (not safe)) - (eq? _maybe-super-struct-id64149_ __tmp64640)) + (eq? _maybe-super-struct-id64146_ __tmp64637)) '#t - (let ((__tmp64639 + (let ((__tmp64636 (let () (declare (not safe)) - (##type-super _super-struct64153_)))) + (##type-super _super-struct64150_)))) (declare (not safe)) - (_lp64151_ __tmp64639)))))))) + (_lp64148_ __tmp64636)))))))) (define base-struct/1 - (lambda (_klass64144_) + (lambda (_klass64141_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass64144_ 'gerbil#class::t)) - (if (let () (declare (not safe)) (class-type-struct? _klass64144_)) - _klass64144_ - (let () (declare (not safe)) (##type-super _klass64144_))) - (if (let () (declare (not safe)) (not _klass64144_)) + (##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_)) '#f (let () (declare (not safe)) - (error '"not a class or false" _klass64144_)))))) + (error '"not a class or false" _klass64141_)))))) (define base-struct/2 - (lambda (_klass164132_ _klass264133_) - (let ((_s164135_ - (let () (declare (not safe)) (base-struct/1 _klass164132_))) - (_s264136_ - (let () (declare (not safe)) (base-struct/1 _klass264133_)))) - (if (or (let () (declare (not safe)) (not _s164135_)) - (and _s264136_ + (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_ (let () (declare (not safe)) - (substruct? _s164135_ _s264136_)))) - _s264136_ - (if (or (let () (declare (not safe)) (not _s264136_)) - (and _s164135_ + (substruct? _s164132_ _s264133_)))) + _s264133_ + (if (or (let () (declare (not safe)) (not _s264133_)) + (and _s164132_ (let () (declare (not safe)) - (substruct? _s264136_ _s164135_)))) - _s164135_ + (substruct? _s264133_ _s164132_)))) + _s164132_ (let () (declare (not safe)) (error '"bad mixin: incompatible struct bases" - _klass164132_ - _klass264133_ - _s164135_ - _s264136_))))))) + _klass164129_ + _klass264130_ + _s164132_ + _s264133_))))))) (define base-struct/list - (lambda (_all-supers64016_) - (let* ((_all-supers6401764042_ _all-supers64016_) - (_E6402264046_ + (lambda (_all-supers64013_) + (let* ((_all-supers6401464039_ _all-supers64013_) + (_E6401964043_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _all-supers6401764042_))))) - (let ((_K6404064129_ (lambda () '#f)) - (_K6403764115_ - (lambda (_x64113_) - (let () (declare (not safe)) (base-struct/1 _x64113_)))) - (_K6403264092_ - (lambda (_y64089_ _x64090_) + (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_) (let () (declare (not safe)) - (base-struct/2 _x64090_ _y64089_)))) - (_K6402364053_ - (lambda (_y64050_ _x64051_) + (base-struct/2 _x64087_ _y64086_)))) + (_K6402064050_ + (lambda (_y64047_ _x64048_) (let () (declare (not safe)) - (foldr1 base-struct/2 _x64051_ _y64050_))))) - (let* ((___match6459164592_ - (lambda (_hd6402464056_ _tl6402564058_) - (let ((_x64061_ _hd6402464056_)) - (letrec ((_splice-rest6402764063_ - (lambda (_rest6403164070_ _y64072_) + (foldr1 base-struct/2 _x64048_ _y64047_))))) + (let* ((___match6458864589_ + (lambda (_hd6402164053_ _tl6402264055_) + (let ((_x64058_ _hd6402164053_)) + (letrec ((_splice-rest6402464060_ + (lambda (_rest6402864067_ _y64069_) (if (let () (declare (not safe)) - (##null? _rest6403164070_)) + (##null? _rest6402864067_)) (let () (declare (not safe)) - (_K6402364053_ _y64072_ _x64061_)) + (_K6402064050_ _y64069_ _x64058_)) (let () (declare (not safe)) - (_E6402264046_))))) - (_splice-try6402964065_ - (lambda (_hd6403064074_ - _rest6403164076_ - _y6402664077_) - (let ((_y64080_ _hd6403064074_)) - (let ((__tmp64642 + (_E6401964043_))))) + (_splice-try6402664062_ + (lambda (_hd6402764071_ + _rest6402864073_ + _y6402364074_) + (let ((_y64077_ _hd6402764071_)) + (let ((__tmp64639 (let () (declare (not safe)) - (##cdr _rest6403164076_))) - (__tmp64641 + (##cdr _rest6402864073_))) + (__tmp64638 (let () (declare (not safe)) - (cons _y64080_ _y6402664077_)))) + (cons _y64077_ _y6402364074_)))) (declare (not safe)) - (_splice-loop6402864067_ - __tmp64642 - __tmp64641))))) - (_splice-loop6402864067_ - (lambda (_rest6403164082_ _y6402664083_) + (_splice-loop6402564064_ + __tmp64639 + __tmp64638))))) + (_splice-loop6402564064_ + (lambda (_rest6402864079_ _y6402364080_) (if (let () (declare (not safe)) - (pair? _rest6403164082_)) - (let ((__tmp64644 + (pair? _rest6402864079_)) + (let ((__tmp64641 (let () (declare (not safe)) - (##car _rest6403164082_)))) + (##car _rest6402864079_)))) (declare (not safe)) - (_splice-try6402964065_ - __tmp64644 - _rest6403164082_ - _y6402664083_)) - (let ((__tmp64643 - (reverse _y6402664083_))) + (_splice-try6402664062_ + __tmp64641 + _rest6402864079_ + _y6402364080_)) + (let ((__tmp64640 + (reverse _y6402364080_))) (declare (not safe)) - (_splice-rest6402764063_ - _rest6403164082_ - __tmp64643)))))) + (_splice-rest6402464060_ + _rest6402864079_ + __tmp64640)))))) (let () (declare (not safe)) - (_splice-loop6402864067_ _tl6402564058_ '())))))) - (_try-match6401964125_ + (_splice-loop6402564064_ _tl6402264055_ '())))))) + (_try-match6401664122_ (lambda () (if (let () (declare (not safe)) - (##pair? _all-supers6401764042_)) - (let ((_tl6403964120_ + (##pair? _all-supers6401464039_)) + (let ((_tl6403664117_ (let () (declare (not safe)) - (##cdr _all-supers6401764042_))) - (_hd6403864118_ + (##cdr _all-supers6401464039_))) + (_hd6403564115_ (let () (declare (not safe)) - (##car _all-supers6401764042_)))) + (##car _all-supers6401464039_)))) (if (let () (declare (not safe)) - (##null? _tl6403964120_)) - (let ((_x64123_ _hd6403864118_)) + (##null? _tl6403664117_)) + (let ((_x64120_ _hd6403564115_)) (declare (not safe)) - (base-struct/1 _x64123_)) + (base-struct/1 _x64120_)) (if (let () (declare (not safe)) - (##pair? _tl6403964120_)) - (let ((_tl6403664104_ + (##pair? _tl6403664117_)) + (let ((_tl6403364101_ (let () (declare (not safe)) - (##cdr _tl6403964120_))) - (_hd6403564102_ + (##cdr _tl6403664117_))) + (_hd6403264099_ (let () (declare (not safe)) - (##car _tl6403964120_)))) + (##car _tl6403664117_)))) (if (let () (declare (not safe)) - (##null? _tl6403664104_)) - (let ((_x64100_ _hd6403864118_) - (_y64107_ _hd6403564102_)) + (##null? _tl6403364101_)) + (let ((_x64097_ _hd6403564115_) + (_y64104_ _hd6403264099_)) (let () (declare (not safe)) - (_K6403264092_ - _y64107_ - _x64100_))) - (___match6459164592_ - _hd6403864118_ - _tl6403964120_))) - (___match6459164592_ - _hd6403864118_ - _tl6403964120_)))) - (let () (declare (not safe)) (_E6402264046_)))))) + (_K6402964089_ + _y64104_ + _x64097_))) + (___match6458864589_ + _hd6403564115_ + _tl6403664117_))) + (___match6458864589_ + _hd6403564115_ + _tl6403664117_)))) + (let () (declare (not safe)) (_E6401964043_)))))) (if (let () (declare (not safe)) - (##null? _all-supers6401764042_)) - (let () (declare (not safe)) (_K6404064129_)) - (let () (declare (not safe)) (_try-match6401964125_)))))))) + (##null? _all-supers6401464039_)) + (let () (declare (not safe)) (_K6403764126_)) + (let () (declare (not safe)) (_try-match6401664122_)))))))) (define base-struct - (lambda _all-supers64014_ - (let () (declare (not safe)) (base-struct/list _all-supers64014_)))) + (lambda _all-supers64011_ + (let () (declare (not safe)) (base-struct/list _all-supers64011_)))) (define find-super-constructor - (lambda (_super63966_) - (let _lp63968_ ((_rest63970_ _super63966_) (_constructor63971_ '#f)) - (let* ((_rest6397263980_ _rest63970_) - (_else6397463988_ (lambda () _constructor63971_)) - (_K6397664002_ - (lambda (_rest63991_ _hd63992_) - (let ((_$e63994_ + (lambda (_super63963_) + (let _lp63965_ ((_rest63967_ _super63963_) (_constructor63968_ '#f)) + (let* ((_rest6396963977_ _rest63967_) + (_else6397163985_ (lambda () _constructor63968_)) + (_K6397363999_ + (lambda (_rest63988_ _hd63989_) + (let ((_$e63991_ (let () (declare (not safe)) (##unchecked-structure-ref - _hd63992_ + _hd63989_ '10 class::t '#f)))) - (if _$e63994_ - ((lambda (_xconstructor63997_) + (if _$e63991_ + ((lambda (_xconstructor63994_) (if (or (let () (declare (not safe)) - (not _constructor63971_)) + (not _constructor63968_)) (let () (declare (not safe)) - (eq? _constructor63971_ - _xconstructor63997_))) + (eq? _constructor63968_ + _xconstructor63994_))) (let () (declare (not safe)) - (_lp63968_ _rest63991_ _xconstructor63997_)) + (_lp63965_ _rest63988_ _xconstructor63994_)) (let () (declare (not safe)) (error '"conflicting implicit constructors" - _constructor63971_ - _xconstructor63997_)))) - _$e63994_) + _constructor63968_ + _xconstructor63994_)))) + _$e63991_) (let () (declare (not safe)) - (_lp63968_ _rest63991_ _constructor63971_))))))) - (if (let () (declare (not safe)) (##pair? _rest6397263980_)) - (let ((_hd6397764005_ - (let () (declare (not safe)) (##car _rest6397263980_))) - (_tl6397864007_ - (let () (declare (not safe)) (##cdr _rest6397263980_)))) - (let* ((_hd64010_ _hd6397764005_) - (_rest64012_ _tl6397864007_)) + (_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_)) (declare (not safe)) - (_K6397664002_ _rest64012_ _hd64010_))) - (let () (declare (not safe)) (_else6397463988_))))))) + (_K6397363999_ _rest64009_ _hd64007_))) + (let () (declare (not safe)) (_else6397163985_))))))) (define compute-class-slots - (lambda (_class-precedence-list63942_ _direct-slots63943_) - (let* ((_next-slot63945_ '1) - (_slot-table63947_ + (lambda (_class-precedence-list63939_ _direct-slots63940_) + (let* ((_next-slot63942_ '1) + (_slot-table63944_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (_r-slots63949_ '(__class)) - (_process-slot63953_ - (lambda (_slot63951_) - (if (let () (declare (not safe)) (symbol? _slot63951_)) + (_r-slots63946_ '(__class)) + (_process-slot63950_ + (lambda (_slot63948_) + (if (let () (declare (not safe)) (symbol? _slot63948_)) '#!void (let () (declare (not safe)) - (error '"invalid slot name" _slot63951_))) - (if (let ((__tmp64646 + (error '"invalid slot name" _slot63948_))) + (if (let ((__tmp64643 (let () (declare (not safe)) (symbolic-table-ref - _slot-table63947_ - _slot63951_ + _slot-table63944_ + _slot63948_ absent-value)))) (declare (not safe)) - (eq? __tmp64646 absent-value)) + (eq? __tmp64643 absent-value)) (begin (let () (declare (not safe)) (symbolic-table-set! - _slot-table63947_ - _slot63951_ - _next-slot63945_)) - (let ((__tmp64645 (symbol->keyword _slot63951_))) + _slot-table63944_ + _slot63948_ + _next-slot63942_)) + (let ((__tmp64642 (symbol->keyword _slot63948_))) (declare (not safe)) (symbolic-table-set! - _slot-table63947_ - __tmp64645 - _next-slot63945_)) - (set! _r-slots63949_ + _slot-table63944_ + __tmp64642 + _next-slot63942_)) + (set! _r-slots63946_ (let () (declare (not safe)) - (cons _slot63951_ _r-slots63949_))) - (set! _next-slot63945_ + (cons _slot63948_ _r-slots63946_))) + (set! _next-slot63942_ (let () (declare (not safe)) - (##fx+ _next-slot63945_ '1)))) + (##fx+ _next-slot63942_ '1)))) '#!void))) - (_process-slots63959_ - (lambda (_g6395463956_) - (for-each _process-slot63953_ _g6395463956_)))) + (_process-slots63956_ + (lambda (_g6395163953_) + (for-each _process-slot63950_ _g6395163953_)))) (for-each - (lambda (_mixin63962_) - (let ((__tmp64647 - (let ((__tmp64648 + (lambda (_mixin63959_) + (let ((__tmp64644 + (let ((__tmp64645 (let () (declare (not safe)) (##unchecked-structure-ref - _mixin63962_ + _mixin63959_ '9 class::t '#f)))) (declare (not safe)) - (assgetq__% 'direct-slots: __tmp64648 '())))) + (assgetq__% 'direct-slots: __tmp64645 '())))) (declare (not safe)) - (_process-slots63959_ __tmp64647))) - (reverse _class-precedence-list63942_)) + (_process-slots63956_ __tmp64644))) + (reverse _class-precedence-list63939_)) (let () (declare (not safe)) - (_process-slots63959_ _direct-slots63943_)) - (let ((_slot-vector63964_ (list->vector (reverse _r-slots63949_)))) - (values _slot-vector63964_ _slot-table63947_))))) + (_process-slots63956_ _direct-slots63940_)) + (let ((_slot-vector63961_ (list->vector (reverse _r-slots63946_)))) + (values _slot-vector63961_ _slot-table63944_))))) (define make-class-type - (lambda (_id63904_ - _name63905_ - _direct-supers63906_ - _direct-slots63907_ - _properties63908_ - _constructor63909_) - (let ((_$e63914_ - (let ((__tmp64649 - (lambda (_$obj63911_) - (let ((__tmp64650 + (lambda (_id63901_ + _name63902_ + _direct-supers63903_ + _direct-slots63904_ + _properties63905_ + _constructor63906_) + (let ((_$e63911_ + (let ((__tmp64646 + (lambda (_$obj63908_) + (let ((__tmp64647 (let () (declare (not safe)) (##structure-instance-of? - _$obj63911_ + _$obj63908_ 'gerbil#class::t)))) (declare (not safe)) - (not __tmp64650))))) + (not __tmp64647))))) (declare (not safe)) - (find __tmp64649 _direct-supers63906_)))) - (if _$e63914_ - ((lambda (_g6391663918_) + (find __tmp64646 _direct-supers63903_)))) + (if _$e63911_ + ((lambda (_g6391363915_) (let () (declare (not safe)) (error '"Illegal super class; not a class descriptor" - _g6391663918_))) - _$e63914_) - (let ((_$e63921_ + _g6391363915_))) + _$e63911_) + (let ((_$e63918_ (let () (declare (not safe)) - (find class-type-final? _direct-supers63906_)))) - (if _$e63921_ - ((lambda (_g6392363925_) + (find class-type-final? _direct-supers63903_)))) + (if _$e63918_ + ((lambda (_g6392063922_) (let () (declare (not safe)) - (error '"Cannot extend final class" _g6392363925_))) - _$e63921_) + (error '"Cannot extend final class" _g6392063922_))) + _$e63918_) '#!void)))) - (let ((_g64651_ + (let ((_g64648_ (let () (declare (not safe)) - (compute-precedence-list _direct-supers63906_)))) + (compute-precedence-list _direct-supers63903_)))) (begin - (let ((_g64652_ + (let ((_g64649_ (let () (declare (not safe)) - (if (##values? _g64651_) (##vector-length _g64651_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g64652_ 2))) - (error "Context expects 2 values" _g64652_))) - (let ((_precedence-list63928_ - (let () (declare (not safe)) (##vector-ref _g64651_ 0))) - (_struct-super63929_ - (let () (declare (not safe)) (##vector-ref _g64651_ 1)))) - (let ((_g64653_ + (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_ (let () (declare (not safe)) (compute-class-slots - _precedence-list63928_ - _direct-slots63907_)))) + _precedence-list63925_ + _direct-slots63904_)))) (begin - (let ((_g64654_ + (let ((_g64651_ (let () (declare (not safe)) - (if (##values? _g64653_) - (##vector-length _g64653_) + (if (##values? _g64650_) + (##vector-length _g64650_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g64654_ 2))) - (error "Context expects 2 values" _g64654_))) - (let ((_slot-vector63931_ + (if (not (let () (declare (not safe)) (##fx= _g64651_ 2))) + (error "Context expects 2 values" _g64651_))) + (let ((_slot-vector63928_ (let () (declare (not safe)) - (##vector-ref _g64653_ 0))) - (_slot-table63932_ + (##vector-ref _g64650_ 0))) + (_slot-table63929_ (let () (declare (not safe)) - (##vector-ref _g64653_ 1)))) - (let* ((_properties63934_ - (let ((__tmp64657 + (##vector-ref _g64650_ 1)))) + (let* ((_properties63931_ + (let ((__tmp64654 (let () (declare (not safe)) (cons 'direct-slots: - _direct-slots63907_))) - (__tmp64655 - (let ((__tmp64656 + _direct-slots63904_))) + (__tmp64652 + (let ((__tmp64653 (let () (declare (not safe)) (cons 'direct-supers: - _direct-supers63906_)))) + _direct-supers63903_)))) (declare (not safe)) - (cons __tmp64656 _properties63908_)))) + (cons __tmp64653 _properties63905_)))) (declare (not safe)) - (cons __tmp64657 __tmp64655))) - (_constructor*63939_ - (let ((_$e63936_ _constructor63909_)) - (if _$e63936_ - _$e63936_ + (cons __tmp64654 __tmp64652))) + (_constructor*63936_ + (let ((_$e63933_ _constructor63906_)) + (if _$e63933_ + _$e63933_ (let () (declare (not safe)) (find-super-constructor - _direct-supers63906_)))))) + _direct-supers63903_)))))) (let () (declare (not safe)) (make-class-type-descriptor - _id63904_ - _name63905_ - _struct-super63929_ - _precedence-list63928_ - _slot-vector63931_ - _properties63934_ - _constructor*63939_ - _slot-table63932_ + _id63901_ + _name63902_ + _struct-super63926_ + _precedence-list63925_ + _slot-vector63928_ + _properties63931_ + _constructor*63936_ + _slot-table63929_ '#f))))))))))) (define class-precedence-list - (lambda (_klass63902_) - (let ((__tmp64658 + (lambda (_klass63899_) + (let ((__tmp64655 (let () (declare (not safe)) - (##unchecked-structure-ref _klass63902_ '6 class::t '#f)))) + (##unchecked-structure-ref _klass63899_ '6 class::t '#f)))) (declare (not safe)) - (cons _klass63902_ __tmp64658)))) + (cons _klass63899_ __tmp64655)))) (define compute-precedence-list - (lambda (_direct-supers63900_) + (lambda (_direct-supers63897_) (let () (declare (not safe)) (c4-linearize '() - _direct-supers63900_ + _direct-supers63897_ 'get-precedence-list: class-precedence-list 'struct: @@ -1269,2558 +1269,2558 @@ 'get-name: ##type-name)))) (define make-class-predicate - (lambda (_klass63884_) - (let ((_tid63886_ - (let () (declare (not safe)) (##type-id _klass63884_)))) - (if (let () (declare (not safe)) (class-type-final? _klass63884_)) - (lambda (_g6388763889_) + (lambda (_klass63881_) + (let ((_tid63883_ + (let () (declare (not safe)) (##type-id _klass63881_)))) + (if (let () (declare (not safe)) (class-type-final? _klass63881_)) + (lambda (_g6388463886_) (let () (declare (not safe)) - (##structure-direct-instance-of? _g6388763889_ _tid63886_))) + (##structure-direct-instance-of? _g6388463886_ _tid63883_))) (if (let () (declare (not safe)) - (class-type-struct? _klass63884_)) - (lambda (_g6389163893_) + (class-type-struct? _klass63881_)) + (lambda (_g6388863890_) (let () (declare (not safe)) - (##structure-instance-of? _g6389163893_ _tid63886_))) - (lambda (_g6389563897_) + (##structure-instance-of? _g6388863890_ _tid63883_))) + (lambda (_g6389263894_) (let () (declare (not safe)) - (class-instance? _klass63884_ _g6389563897_)))))))) + (class-instance? _klass63881_ _g6389263894_)))))))) (define if-class-slot-field - (lambda (_klass63873_ - _slot63874_ - _if-final63875_ - _if-struct63876_ - _if-struct-field63877_ - _if-class-slot63878_) - (let ((_field63880_ - (let ((__tmp64659 + (lambda (_klass63870_ + _slot63871_ + _if-final63872_ + _if-struct63873_ + _if-struct-field63874_ + _if-class-slot63875_) + (let ((_field63877_ + (let ((__tmp64656 (let () (declare (not safe)) (##unchecked-structure-ref - _klass63873_ + _klass63870_ '8 class::t '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp64659 _slot63874_ '#f)))) - (if (let () (declare (not safe)) (not _field63880_)) + (symbolic-table-ref __tmp64656 _slot63871_ '#f)))) + (if (let () (declare (not safe)) (not _field63877_)) (let () (declare (not safe)) (error '"unknown slot" 'class: - _klass63873_ + _klass63870_ 'slot: - _slot63874_)) + _slot63871_)) (if (let () (declare (not safe)) - (class-type-final? _klass63873_)) - (_if-final63875_ _klass63873_ _slot63874_ _field63880_) + (class-type-final? _klass63870_)) + (_if-final63872_ _klass63870_ _slot63871_ _field63877_) (if (let () (declare (not safe)) - (class-type-struct? _klass63873_)) - (_if-struct63876_ _klass63873_ _slot63874_ _field63880_) - (if (let ((_strukt63882_ + (class-type-struct? _klass63870_)) + (_if-struct63873_ _klass63870_ _slot63871_ _field63877_) + (if (let ((_strukt63879_ (let () (declare (not safe)) - (base-struct/1 _klass63873_)))) + (base-struct/1 _klass63870_)))) (and (let () (declare (not safe)) (##structure-instance-of? - _strukt63882_ + _strukt63879_ 'gerbil#class::t)) - (let ((__tmp64660 - (let ((__tmp64661 + (let ((__tmp64657 + (let ((__tmp64658 (let () (declare (not safe)) (##unchecked-structure-ref - _strukt63882_ + _strukt63879_ '7 class::t '#f)))) (declare (not safe)) - (##vector-length __tmp64661)))) + (##vector-length __tmp64658)))) (declare (not safe)) - (##fx< _field63880_ __tmp64660)))) - (_if-struct-field63877_ - _klass63873_ - _slot63874_ - _field63880_) - (_if-class-slot63878_ - _klass63873_ - _slot63874_ - _field63880_)))))))) + (##fx< _field63877_ __tmp64657)))) + (_if-struct-field63874_ + _klass63870_ + _slot63871_ + _field63877_) + (_if-class-slot63875_ + _klass63870_ + _slot63871_ + _field63877_)))))))) (define make-class-slot-accessor - (lambda (_klass63870_ _slot63871_) + (lambda (_klass63867_ _slot63868_) (let () (declare (not safe)) (if-class-slot-field - _klass63870_ - _slot63871_ + _klass63867_ + _slot63868_ make-final-slot-accessor make-struct-slot-accessor make-struct-subclass-slot-accessor make-class-cached-slot-accessor)))) (define make-class-slot-mutator - (lambda (_klass63867_ _slot63868_) + (lambda (_klass63864_ _slot63865_) (let () (declare (not safe)) (if-class-slot-field - _klass63867_ - _slot63868_ + _klass63864_ + _slot63865_ 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 (_klass63864_ _slot63865_) + (lambda (_klass63861_ _slot63862_) (let () (declare (not safe)) (if-class-slot-field - _klass63864_ - _slot63865_ + _klass63861_ + _slot63862_ 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 (_klass63861_ _slot63862_) + (lambda (_klass63858_ _slot63859_) (let () (declare (not safe)) (if-class-slot-field - _klass63861_ - _slot63862_ + _klass63858_ + _slot63859_ 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 (_object63845_ _class63846_ _slot63847_) + (lambda (_object63842_ _class63843_ _slot63844_) (apply error '"not an instance" 'object: - _object63845_ + _object63842_ 'class: - _class63846_ - (if _slot63847_ - (let ((__tmp64662 + _class63843_ + (if _slot63844_ + (let ((__tmp64659 (let () (declare (not safe)) - (cons _slot63847_ '())))) + (cons _slot63844_ '())))) (declare (not safe)) - (cons 'slot: __tmp64662)) + (cons 'slot: __tmp64659)) '())))) (define not-an-instance__0 - (lambda (_object63852_ _class63853_) - (let ((_slot63855_ '#f)) + (lambda (_object63849_ _class63850_) + (let ((_slot63852_ '#f)) (declare (not safe)) - (not-an-instance__% _object63852_ _class63853_ _slot63855_)))) + (not-an-instance__% _object63849_ _class63850_ _slot63852_)))) (define not-an-instance - (lambda _g64664_ - (let ((_g64663_ (let () (declare (not safe)) (##length _g64664_)))) - (cond ((let () (declare (not safe)) (##fx= _g64663_ 2)) - (apply (lambda (_object63852_ _class63853_) + (lambda _g64661_ + (let ((_g64660_ (let () (declare (not safe)) (##length _g64661_)))) + (cond ((let () (declare (not safe)) (##fx= _g64660_ 2)) + (apply (lambda (_object63849_ _class63850_) (let () (declare (not safe)) - (not-an-instance__0 _object63852_ _class63853_))) - _g64664_)) - ((let () (declare (not safe)) (##fx= _g64663_ 3)) - (apply (lambda (_object63857_ _class63858_ _slot63859_) + (not-an-instance__0 _object63849_ _class63850_))) + _g64661_)) + ((let () (declare (not safe)) (##fx= _g64660_ 3)) + (apply (lambda (_object63854_ _class63855_ _slot63856_) (let () (declare (not safe)) (not-an-instance__% - _object63857_ - _class63858_ - _slot63859_))) - _g64664_)) + _object63854_ + _class63855_ + _slot63856_))) + _g64661_)) (else (##raise-wrong-number-of-arguments-exception not-an-instance - _g64664_)))))) + _g64661_)))))) (define make-final-slot-accessor - (lambda (_klass63838_ _slot63839_ _field63840_) - (lambda (_obj63842_) + (lambda (_klass63835_ _slot63836_ _field63837_) + (lambda (_obj63839_) (let () (declare (not safe)) (##direct-structure-ref - _obj63842_ - _field63840_ - _klass63838_ - _slot63839_))))) + _obj63839_ + _field63837_ + _klass63835_ + _slot63836_))))) (define make-final-slot-mutator - (lambda (_klass63831_ _slot63832_ _field63833_) - (lambda (_obj63835_ _val63836_) + (lambda (_klass63828_ _slot63829_ _field63830_) + (lambda (_obj63832_ _val63833_) (let () (declare (not safe)) (##direct-structure-set! - _obj63835_ - _val63836_ - _field63833_ - _klass63831_ - _slot63832_))))) + _obj63832_ + _val63833_ + _field63830_ + _klass63828_ + _slot63829_))))) (define make-struct-slot-accessor - (lambda (_klass63825_ _slot63826_ _field63827_) - (lambda (_obj63829_) + (lambda (_klass63822_ _slot63823_ _field63824_) + (lambda (_obj63826_) (let () (declare (not safe)) (##structure-ref - _obj63829_ - _field63827_ - _klass63825_ - _slot63826_))))) + _obj63826_ + _field63824_ + _klass63822_ + _slot63823_))))) (define make-struct-slot-mutator - (lambda (_klass63818_ _slot63819_ _field63820_) - (lambda (_obj63822_ _val63823_) + (lambda (_klass63815_ _slot63816_ _field63817_) + (lambda (_obj63819_ _val63820_) (let () (declare (not safe)) (##structure-set! - _obj63822_ - _val63823_ - _field63820_ - _klass63818_ - _slot63819_))))) + _obj63819_ + _val63820_ + _field63817_ + _klass63815_ + _slot63816_))))) (define make-struct-slot-unchecked-accessor - (lambda (_klass63812_ _slot63813_ _field63814_) - (lambda (_obj63816_) + (lambda (_klass63809_ _slot63810_ _field63811_) + (lambda (_obj63813_) (let () (declare (not safe)) (##unchecked-structure-ref - _obj63816_ - _field63814_ - _klass63812_ - _slot63813_))))) + _obj63813_ + _field63811_ + _klass63809_ + _slot63810_))))) (define make-struct-slot-unchecked-mutator - (lambda (_klass63805_ _slot63806_ _field63807_) - (lambda (_obj63809_ _val63810_) + (lambda (_klass63802_ _slot63803_ _field63804_) + (lambda (_obj63806_ _val63807_) (let () (declare (not safe)) (##unchecked-structure-set! - _obj63809_ - _val63810_ - _field63807_ - _klass63805_ - _slot63806_))))) + _obj63806_ + _val63807_ + _field63804_ + _klass63802_ + _slot63803_))))) (define make-struct-subclass-slot-accessor - (lambda (_klass63799_ _slot63800_ _field63801_) - (lambda (_obj63803_) + (lambda (_klass63796_ _slot63797_ _field63798_) + (lambda (_obj63800_) (if (let () (declare (not safe)) - (class-instance? _klass63799_ _obj63803_)) + (class-instance? _klass63796_ _obj63800_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj63803_ _field63801_)) + (unchecked-slot-ref _obj63800_ _field63798_)) (let () (declare (not safe)) - (not-an-instance__% _obj63803_ _klass63799_ _slot63800_)))))) + (not-an-instance__% _obj63800_ _klass63796_ _slot63797_)))))) (define make-struct-subclass-slot-mutator - (lambda (_klass63792_ _slot63793_ _field63794_) - (lambda (_obj63796_ _val63797_) + (lambda (_klass63789_ _slot63790_ _field63791_) + (lambda (_obj63793_ _val63794_) (if (let () (declare (not safe)) - (class-instance? _klass63792_ _obj63796_)) + (class-instance? _klass63789_ _obj63793_)) (let () (declare (not safe)) - (unchecked-field-set! _obj63796_ _field63794_ _val63797_)) + (unchecked-field-set! _obj63793_ _field63791_ _val63794_)) (let () (declare (not safe)) - (not-an-instance__% _obj63796_ _klass63792_ _slot63793_)))))) + (not-an-instance__% _obj63793_ _klass63789_ _slot63790_)))))) (define make-class-cached-slot-accessor - (lambda (_klass63786_ _slot63787_ _field63788_) - (lambda (_obj63790_) - (if (let ((__tmp64665 - (let () (declare (not safe)) (##type-id _klass63786_)))) + (lambda (_klass63783_ _slot63784_ _field63785_) + (lambda (_obj63787_) + (if (let ((__tmp64662 + (let () (declare (not safe)) (##type-id _klass63783_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj63790_ __tmp64665)) + (##structure-direct-instance-of? _obj63787_ __tmp64662)) (let () (declare (not safe)) - (unchecked-field-ref _obj63790_ _field63788_)) + (unchecked-field-ref _obj63787_ _field63785_)) (if (let () (declare (not safe)) - (class-instance? _klass63786_ _obj63790_)) + (class-instance? _klass63783_ _obj63787_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj63790_ _slot63787_)) + (unchecked-slot-ref _obj63787_ _slot63784_)) (let () (declare (not safe)) (not-an-instance__% - _obj63790_ - _klass63786_ - _slot63787_))))))) + _obj63787_ + _klass63783_ + _slot63784_))))))) (define make-class-cached-slot-mutator - (lambda (_klass63779_ _slot63780_ _field63781_) - (lambda (_obj63783_ _val63784_) - (if (let ((__tmp64666 - (let () (declare (not safe)) (##type-id _klass63779_)))) + (lambda (_klass63776_ _slot63777_ _field63778_) + (lambda (_obj63780_ _val63781_) + (if (let ((__tmp64663 + (let () (declare (not safe)) (##type-id _klass63776_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj63783_ __tmp64666)) + (##structure-direct-instance-of? _obj63780_ __tmp64663)) (let () (declare (not safe)) - (unchecked-field-set! _obj63783_ _field63781_ _val63784_)) + (unchecked-field-set! _obj63780_ _field63778_ _val63781_)) (if (let () (declare (not safe)) - (class-instance? _klass63779_ _obj63783_)) + (class-instance? _klass63776_ _obj63780_)) (let () (declare (not safe)) - (unchecked-slot-set! _obj63783_ _slot63780_ _val63784_)) + (unchecked-slot-set! _obj63780_ _slot63777_ _val63781_)) (let () (declare (not safe)) (not-an-instance__% - _obj63783_ - _klass63779_ - _slot63780_))))))) + _obj63780_ + _klass63776_ + _slot63777_))))))) (define make-class-cached-slot-unchecked-accessor - (lambda (_klass63773_ _slot63774_ _field63775_) - (lambda (_obj63777_) - (if (let ((__tmp64667 - (let () (declare (not safe)) (##type-id _klass63773_)))) + (lambda (_klass63770_ _slot63771_ _field63772_) + (lambda (_obj63774_) + (if (let ((__tmp64664 + (let () (declare (not safe)) (##type-id _klass63770_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj63777_ __tmp64667)) + (##structure-direct-instance-of? _obj63774_ __tmp64664)) (let () (declare (not safe)) - (unchecked-field-ref _obj63777_ _field63775_)) + (unchecked-field-ref _obj63774_ _field63772_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj63777_ _slot63774_)))))) + (unchecked-slot-ref _obj63774_ _slot63771_)))))) (define make-class-cached-slot-unchecked-mutator - (lambda (_klass63766_ _slot63767_ _field63768_) - (lambda (_obj63770_ _val63771_) - (if (let ((__tmp64668 - (let () (declare (not safe)) (##type-id _klass63766_)))) + (lambda (_klass63763_ _slot63764_ _field63765_) + (lambda (_obj63767_ _val63768_) + (if (let ((__tmp64665 + (let () (declare (not safe)) (##type-id _klass63763_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj63770_ __tmp64668)) + (##structure-direct-instance-of? _obj63767_ __tmp64665)) (let () (declare (not safe)) - (unchecked-field-set! _obj63770_ _field63768_ _val63771_)) + (unchecked-field-set! _obj63767_ _field63765_ _val63768_)) (let () (declare (not safe)) - (unchecked-slot-set! _obj63770_ _slot63767_ _val63771_)))))) + (unchecked-slot-set! _obj63767_ _slot63764_ _val63768_)))))) (define class-slot-offset - (lambda (_klass63763_ _slot63764_) - (let ((__tmp64669 + (lambda (_klass63760_ _slot63761_) + (let ((__tmp64666 (let () (declare (not safe)) - (##unchecked-structure-ref _klass63763_ '8 class::t '#f)))) + (##unchecked-structure-ref _klass63760_ '8 class::t '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp64669 _slot63764_ '#f)))) + (symbolic-table-ref __tmp64666 _slot63761_ '#f)))) (define class-slot-ref - (lambda (_klass63757_ _obj63758_ _slot63759_) + (lambda (_klass63754_ _obj63755_ _slot63756_) (if (let () (declare (not safe)) - (class-instance? _klass63757_ _obj63758_)) - (let ((_off63761_ - (let ((__tmp64670 (object-type _obj63758_))) + (class-instance? _klass63754_ _obj63755_)) + (let ((_off63758_ + (let ((__tmp64667 (object-type _obj63755_))) (declare (not safe)) - (class-slot-offset __tmp64670 _slot63759_)))) + (class-slot-offset __tmp64667 _slot63756_)))) (declare (not safe)) (##unchecked-structure-ref - _obj63758_ - _off63761_ - _klass63757_ - _slot63759_)) + _obj63755_ + _off63758_ + _klass63754_ + _slot63756_)) (let () (declare (not safe)) - (not-an-instance__0 _obj63758_ _klass63757_))))) + (not-an-instance__0 _obj63755_ _klass63754_))))) (define class-slot-set! - (lambda (_klass63750_ _obj63751_ _slot63752_ _val63753_) + (lambda (_klass63747_ _obj63748_ _slot63749_ _val63750_) (if (let () (declare (not safe)) - (class-instance? _klass63750_ _obj63751_)) - (let ((_off63755_ - (let ((__tmp64671 (object-type _obj63751_))) + (class-instance? _klass63747_ _obj63748_)) + (let ((_off63752_ + (let ((__tmp64668 (object-type _obj63748_))) (declare (not safe)) - (class-slot-offset __tmp64671 _slot63752_)))) + (class-slot-offset __tmp64668 _slot63749_)))) (declare (not safe)) (##unchecked-structure-set! - _obj63751_ - _val63753_ - _off63755_ - _klass63750_ - _slot63752_)) + _obj63748_ + _val63750_ + _off63752_ + _klass63747_ + _slot63749_)) (let () (declare (not safe)) - (not-an-instance__0 _obj63751_ _klass63750_))))) + (not-an-instance__0 _obj63748_ _klass63747_))))) (define unchecked-field-ref - (lambda (_obj63747_ _off63748_) - (let ((__tmp64672 - (let () (declare (not safe)) (##structure-type _obj63747_)))) + (lambda (_obj63744_ _off63745_) + (let ((__tmp64669 + (let () (declare (not safe)) (##structure-type _obj63744_)))) (declare (not safe)) - (##unchecked-structure-ref _obj63747_ _off63748_ __tmp64672 '#f)))) + (##unchecked-structure-ref _obj63744_ _off63745_ __tmp64669 '#f)))) (define unchecked-field-set! - (lambda (_obj63743_ _off63744_ _val63745_) - (let ((__tmp64673 - (let () (declare (not safe)) (##structure-type _obj63743_)))) + (lambda (_obj63740_ _off63741_ _val63742_) + (let ((__tmp64670 + (let () (declare (not safe)) (##structure-type _obj63740_)))) (declare (not safe)) (##unchecked-structure-set! - _obj63743_ - _val63745_ - _off63744_ - __tmp64673 + _obj63740_ + _val63742_ + _off63741_ + __tmp64670 '#f)))) (define unchecked-slot-ref - (lambda (_obj63740_ _slot63741_) - (let ((__tmp64674 - (let ((__tmp64675 + (lambda (_obj63737_ _slot63738_) + (let ((__tmp64671 + (let ((__tmp64672 (let () (declare (not safe)) - (##structure-type _obj63740_)))) + (##structure-type _obj63737_)))) (declare (not safe)) - (class-slot-offset __tmp64675 _slot63741_)))) + (class-slot-offset __tmp64672 _slot63738_)))) (declare (not safe)) - (unchecked-field-ref _obj63740_ __tmp64674)))) + (unchecked-field-ref _obj63737_ __tmp64671)))) (define unchecked-slot-set! - (lambda (_obj63736_ _slot63737_ _val63738_) - (let ((__tmp64676 - (let ((__tmp64677 + (lambda (_obj63733_ _slot63734_ _val63735_) + (let ((__tmp64673 + (let ((__tmp64674 (let () (declare (not safe)) - (##structure-type _obj63736_)))) + (##structure-type _obj63733_)))) (declare (not safe)) - (class-slot-offset __tmp64677 _slot63737_)))) + (class-slot-offset __tmp64674 _slot63734_)))) (declare (not safe)) - (unchecked-field-set! _obj63736_ __tmp64676 _val63738_)))) + (unchecked-field-set! _obj63733_ __tmp64673 _val63735_)))) (define slot-ref__% - (lambda (_obj63712_ _slot63713_ _E63714_) - (if (object? _obj63712_) - (let* ((_klass63716_ (object-type _obj63712_)) - (_$e63719_ + (lambda (_obj63709_ _slot63710_ _E63711_) + (if (object? _obj63709_) + (let* ((_klass63713_ (object-type _obj63709_)) + (_$e63716_ (if (let () (declare (not safe)) (##structure-instance-of? - _klass63716_ + _klass63713_ 'gerbil#class::t)) (let () (declare (not safe)) - (class-slot-offset _klass63716_ _slot63713_)) + (class-slot-offset _klass63713_ _slot63710_)) '#f))) - (if _$e63719_ - ((lambda (_off63722_) + (if _$e63716_ + ((lambda (_off63719_) (let () (declare (not safe)) - (unchecked-field-ref _obj63712_ _off63722_))) - _$e63719_) - (_E63714_ _obj63712_ _slot63713_))) - (_E63714_ _obj63712_ _slot63713_)))) + (unchecked-field-ref _obj63709_ _off63719_))) + _$e63716_) + (_E63711_ _obj63709_ _slot63710_))) + (_E63711_ _obj63709_ _slot63710_)))) (define slot-ref__0 - (lambda (_obj63727_ _slot63728_) - (let ((_E63730_ __slot-error)) + (lambda (_obj63724_ _slot63725_) + (let ((_E63727_ __slot-error)) (declare (not safe)) - (slot-ref__% _obj63727_ _slot63728_ _E63730_)))) + (slot-ref__% _obj63724_ _slot63725_ _E63727_)))) (define slot-ref - (lambda _g64679_ - (let ((_g64678_ (let () (declare (not safe)) (##length _g64679_)))) - (cond ((let () (declare (not safe)) (##fx= _g64678_ 2)) - (apply (lambda (_obj63727_ _slot63728_) + (lambda _g64676_ + (let ((_g64675_ (let () (declare (not safe)) (##length _g64676_)))) + (cond ((let () (declare (not safe)) (##fx= _g64675_ 2)) + (apply (lambda (_obj63724_ _slot63725_) (let () (declare (not safe)) - (slot-ref__0 _obj63727_ _slot63728_))) - _g64679_)) - ((let () (declare (not safe)) (##fx= _g64678_ 3)) - (apply (lambda (_obj63732_ _slot63733_ _E63734_) + (slot-ref__0 _obj63724_ _slot63725_))) + _g64676_)) + ((let () (declare (not safe)) (##fx= _g64675_ 3)) + (apply (lambda (_obj63729_ _slot63730_ _E63731_) (let () (declare (not safe)) - (slot-ref__% _obj63732_ _slot63733_ _E63734_))) - _g64679_)) + (slot-ref__% _obj63729_ _slot63730_ _E63731_))) + _g64676_)) (else (##raise-wrong-number-of-arguments-exception slot-ref - _g64679_)))))) + _g64676_)))))) (define slot-set!__% - (lambda (_obj63684_ _slot63685_ _val63686_ _E63687_) - (if (object? _obj63684_) - (let* ((_klass63689_ (object-type _obj63684_)) - (_$e63692_ + (lambda (_obj63681_ _slot63682_ _val63683_ _E63684_) + (if (object? _obj63681_) + (let* ((_klass63686_ (object-type _obj63681_)) + (_$e63689_ (if (let () (declare (not safe)) (##structure-instance-of? - _klass63689_ + _klass63686_ 'gerbil#class::t)) (let () (declare (not safe)) - (class-slot-offset _klass63689_ _slot63685_)) + (class-slot-offset _klass63686_ _slot63682_)) '#f))) - (if _$e63692_ - ((lambda (_off63695_) + (if _$e63689_ + ((lambda (_off63692_) (let () (declare (not safe)) (unchecked-field-set! - _obj63684_ - _off63695_ - _val63686_))) - _$e63692_) - (_E63687_ _obj63684_ _slot63685_))) - (_E63687_ _obj63684_ _slot63685_)))) + _obj63681_ + _off63692_ + _val63683_))) + _$e63689_) + (_E63684_ _obj63681_ _slot63682_))) + (_E63684_ _obj63681_ _slot63682_)))) (define slot-set!__0 - (lambda (_obj63700_ _slot63701_ _val63702_) - (let ((_E63704_ __slot-error)) + (lambda (_obj63697_ _slot63698_ _val63699_) + (let ((_E63701_ __slot-error)) (declare (not safe)) - (slot-set!__% _obj63700_ _slot63701_ _val63702_ _E63704_)))) + (slot-set!__% _obj63697_ _slot63698_ _val63699_ _E63701_)))) (define slot-set! - (lambda _g64681_ - (let ((_g64680_ (let () (declare (not safe)) (##length _g64681_)))) - (cond ((let () (declare (not safe)) (##fx= _g64680_ 3)) - (apply (lambda (_obj63700_ _slot63701_ _val63702_) + (lambda _g64678_ + (let ((_g64677_ (let () (declare (not safe)) (##length _g64678_)))) + (cond ((let () (declare (not safe)) (##fx= _g64677_ 3)) + (apply (lambda (_obj63697_ _slot63698_ _val63699_) (let () (declare (not safe)) - (slot-set!__0 _obj63700_ _slot63701_ _val63702_))) - _g64681_)) - ((let () (declare (not safe)) (##fx= _g64680_ 4)) - (apply (lambda (_obj63706_ _slot63707_ _val63708_ _E63709_) + (slot-set!__0 _obj63697_ _slot63698_ _val63699_))) + _g64678_)) + ((let () (declare (not safe)) (##fx= _g64677_ 4)) + (apply (lambda (_obj63703_ _slot63704_ _val63705_ _E63706_) (let () (declare (not safe)) (slot-set!__% - _obj63706_ - _slot63707_ - _val63708_ - _E63709_))) - _g64681_)) + _obj63703_ + _slot63704_ + _val63705_ + _E63706_))) + _g64678_)) (else (##raise-wrong-number-of-arguments-exception slot-set! - _g64681_)))))) + _g64678_)))))) (define __slot-error - (lambda (_obj63680_ _slot63681_) + (lambda (_obj63677_ _slot63678_) (let () (declare (not safe)) - (error '"Cannot find slot" 'object: _obj63680_ 'slot: _slot63681_)))) + (error '"Cannot find slot" 'object: _obj63677_ 'slot: _slot63678_)))) (define subclass? - (lambda (_maybe-sub-class63670_ _maybe-super-class63671_) - (let* ((_maybe-super-class-id63673_ + (lambda (_maybe-sub-class63667_ _maybe-super-class63668_) + (let* ((_maybe-super-class-id63670_ (let () (declare (not safe)) - (##type-id _maybe-super-class63671_))) - (_$e63675_ - (let ((__tmp64682 + (##type-id _maybe-super-class63668_))) + (_$e63672_ + (let ((__tmp64679 (let () (declare (not safe)) - (##type-id _maybe-sub-class63670_)))) + (##type-id _maybe-sub-class63667_)))) (declare (not safe)) - (eq? _maybe-super-class-id63673_ __tmp64682)))) - (if _$e63675_ - _$e63675_ - (let ((__tmp64684 - (lambda (_super-class63678_) - (let ((__tmp64685 + (eq? _maybe-super-class-id63670_ __tmp64679)))) + (if _$e63672_ + _$e63672_ + (let ((__tmp64681 + (lambda (_super-class63675_) + (let ((__tmp64682 (let () (declare (not safe)) - (##type-id _super-class63678_)))) + (##type-id _super-class63675_)))) (declare (not safe)) - (eq? __tmp64685 _maybe-super-class-id63673_)))) - (__tmp64683 + (eq? __tmp64682 _maybe-super-class-id63670_)))) + (__tmp64680 (let () (declare (not safe)) (##unchecked-structure-ref - _maybe-sub-class63670_ + _maybe-sub-class63667_ '6 class::t '#f)))) (declare (not safe)) - (ormap1 __tmp64684 __tmp64683)))))) + (ormap1 __tmp64681 __tmp64680)))))) (define object? ##structure?) (define object-type ##structure-type) (define direct-instance? - (lambda (_klass63667_ _obj63668_) - (let ((__tmp64686 - (let () (declare (not safe)) (##type-id _klass63667_)))) - (declare (not safe)) - (##structure-direct-instance-of? _obj63668_ __tmp64686)))) - (define struct-instance? (lambda (_klass63664_ _obj63665_) - (let ((__tmp64687 + (let ((__tmp64683 (let () (declare (not safe)) (##type-id _klass63664_)))) (declare (not safe)) - (##structure-instance-of? _obj63665_ __tmp64687)))) + (##structure-direct-instance-of? _obj63665_ __tmp64683)))) + (define struct-instance? + (lambda (_klass63661_ _obj63662_) + (let ((__tmp64684 + (let () (declare (not safe)) (##type-id _klass63661_)))) + (declare (not safe)) + (##structure-instance-of? _obj63662_ __tmp64684)))) (define class-instance? - (lambda (_klass63659_ _obj63660_) - (if (object? _obj63660_) - (let ((_type63662_ (object-type _obj63660_))) + (lambda (_klass63656_ _obj63657_) + (if (object? _obj63657_) + (let ((_type63659_ (object-type _obj63657_))) (if (let () (declare (not safe)) - (##structure-instance-of? _type63662_ 'gerbil#class::t)) + (##structure-instance-of? _type63659_ 'gerbil#class::t)) (let () (declare (not safe)) - (subclass? _type63662_ _klass63659_)) + (subclass? _type63659_ _klass63656_)) '#f)) '#f))) (define make-object - (lambda (_klass63654_ _k63655_) - (let ((_obj63657_ + (lambda (_klass63651_ _k63652_) + (let ((_obj63654_ (let () (declare (not safe)) - (##make-structure _klass63654_ _k63655_)))) - (let () (declare (not safe)) (object-fill! _obj63657_ '#f)) - _obj63657_))) + (##make-structure _klass63651_ _k63652_)))) + (let () (declare (not safe)) (object-fill! _obj63654_ '#f)) + _obj63654_))) (define object-fill! - (lambda (_obj63647_ _fill63648_) - (let _loop63650_ ((_i63652_ - (let ((__tmp64689 + (lambda (_obj63644_ _fill63645_) + (let _loop63647_ ((_i63649_ + (let ((__tmp64686 (let () (declare (not safe)) - (##structure-length _obj63647_)))) + (##structure-length _obj63644_)))) (declare (not safe)) - (##fx- __tmp64689 '1)))) - (if (let () (declare (not safe)) (##fx> _i63652_ '0)) + (##fx- __tmp64686 '1)))) + (if (let () (declare (not safe)) (##fx> _i63649_ '0)) (begin (let () (declare (not safe)) (##unchecked-structure-set! - _obj63647_ - _fill63648_ - _i63652_ + _obj63644_ + _fill63645_ + _i63649_ '#f '#f)) - (let ((__tmp64688 - (let () (declare (not safe)) (##fx- _i63652_ '1)))) + (let ((__tmp64685 + (let () (declare (not safe)) (##fx- _i63649_ '1)))) (declare (not safe)) - (_loop63650_ __tmp64688))) - _obj63647_)))) + (_loop63647_ __tmp64685))) + _obj63644_)))) (define new-instance - (lambda (_klass63645_) - (let ((__obj64593 - (let ((__tmp64690 - (let ((__tmp64691 + (lambda (_klass63642_) + (let ((__obj64590 + (let ((__tmp64687 + (let ((__tmp64688 (let () (declare (not safe)) (##unchecked-structure-ref - _klass63645_ + _klass63642_ '7 class::t '#f)))) (declare (not safe)) - (##vector-length __tmp64691)))) + (##vector-length __tmp64688)))) (declare (not safe)) - (##make-structure _klass63645_ __tmp64690)))) - (let () (declare (not safe)) (object-fill! __obj64593 '#f)) - __obj64593))) + (##make-structure _klass63642_ __tmp64687)))) + (let () (declare (not safe)) (object-fill! __obj64590 '#f)) + __obj64590))) (define make-instance - (lambda (_klass63635_ . _args63636_) - (let* ((_obj63638_ - (let () (declare (not safe)) (new-instance _klass63635_))) - (_$e63640_ + (lambda (_klass63632_ . _args63633_) + (let* ((_obj63635_ + (let () (declare (not safe)) (new-instance _klass63632_))) + (_$e63637_ (let () (declare (not safe)) - (##unchecked-structure-ref _klass63635_ '10 class::t '#f)))) - (if _$e63640_ - ((lambda (_kons-id63643_) + (##unchecked-structure-ref _klass63632_ '10 class::t '#f)))) + (if _$e63637_ + ((lambda (_kons-id63640_) (let () (declare (not safe)) (__constructor-init! - _klass63635_ - _kons-id63643_ - _obj63638_ - _args63636_))) - _$e63640_) + _klass63632_ + _kons-id63640_ + _obj63635_ + _args63633_))) + _$e63637_) (if (let () (declare (not safe)) - (class-type-metaclass? _klass63635_)) + (class-type-metaclass? _klass63632_)) (let () (declare (not safe)) (__metaclass-instance-init! - _klass63635_ - _obj63638_ - _args63636_)) - (if (let ((__tmp64696 + _klass63632_ + _obj63635_ + _args63633_)) + (if (let ((__tmp64693 (let () (declare (not safe)) - (class-type-struct? _klass63635_)))) + (class-type-struct? _klass63632_)))) (declare (not safe)) - (not __tmp64696)) + (not __tmp64693)) (let () (declare (not safe)) (__class-instance-init! - _klass63635_ - _obj63638_ - _args63636_)) - (if (let ((__tmp64694 - (let ((__tmp64695 + _klass63632_ + _obj63635_ + _args63633_)) + (if (let ((__tmp64691 + (let ((__tmp64692 (let () (declare (not safe)) - (##structure-length _obj63638_)))) + (##structure-length _obj63635_)))) (declare (not safe)) - (##fx- __tmp64695 '1))) - (__tmp64693 (length _args63636_))) + (##fx- __tmp64692 '1))) + (__tmp64690 (length _args63633_))) (declare (not safe)) - (##fx= __tmp64694 __tmp64693)) - (apply ##structure _klass63635_ _args63636_) - (let ((__tmp64692 + (##fx= __tmp64691 __tmp64690)) + (apply ##structure _klass63632_ _args63633_) + (let ((__tmp64689 (let () (declare (not safe)) - (class-type-slot-list _klass63635_)))) + (class-type-slot-list _klass63632_)))) (declare (not safe)) (error '"arguments don't match object size" 'class: - _klass63635_ + _klass63632_ 'slots: - __tmp64692 + __tmp64689 'args: - _args63636_))))))))) + _args63633_))))))))) (define make-class-instance make-instance) (define struct-instance-init! - (lambda (_obj63632_ . _args63633_) - (if (let ((__tmp64698 (length _args63633_)) - (__tmp64697 + (lambda (_obj63629_ . _args63630_) + (if (let ((__tmp64695 (length _args63630_)) + (__tmp64694 (let () (declare (not safe)) - (##structure-length _obj63632_)))) + (##structure-length _obj63629_)))) (declare (not safe)) - (##fx< __tmp64698 __tmp64697)) + (##fx< __tmp64695 __tmp64694)) (let () (declare (not safe)) - (__struct-instance-init! _obj63632_ _args63633_)) + (__struct-instance-init! _obj63629_ _args63630_)) (let () (declare (not safe)) (error '"too many arguments for struct" 'object: - _obj63632_ + _obj63629_ 'args: - _args63633_))))) + _args63630_))))) (define __struct-instance-init! - (lambda (_obj63591_ _args63592_) - (let _lp63594_ ((_k63596_ '1) (_rest63597_ _args63592_)) - (let* ((_rest6359863606_ _rest63597_) - (_else6360063614_ (lambda () _obj63591_)) - (_K6360263620_ - (lambda (_rest63617_ _hd63618_) + (lambda (_obj63588_ _args63589_) + (let _lp63591_ ((_k63593_ '1) (_rest63594_ _args63589_)) + (let* ((_rest6359563603_ _rest63594_) + (_else6359763611_ (lambda () _obj63588_)) + (_K6359963617_ + (lambda (_rest63614_ _hd63615_) (let () (declare (not safe)) - (unchecked-field-set! _obj63591_ _k63596_ _hd63618_)) - (let ((__tmp64699 - (let () (declare (not safe)) (##fx+ _k63596_ '1)))) + (unchecked-field-set! _obj63588_ _k63593_ _hd63615_)) + (let ((__tmp64696 + (let () (declare (not safe)) (##fx+ _k63593_ '1)))) (declare (not safe)) - (_lp63594_ __tmp64699 _rest63617_))))) - (if (let () (declare (not safe)) (##pair? _rest6359863606_)) - (let ((_hd6360363623_ - (let () (declare (not safe)) (##car _rest6359863606_))) - (_tl6360463625_ - (let () (declare (not safe)) (##cdr _rest6359863606_)))) - (let* ((_hd63628_ _hd6360363623_) - (_rest63630_ _tl6360463625_)) + (_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_)) (declare (not safe)) - (_K6360263620_ _rest63630_ _hd63628_))) - (let () (declare (not safe)) (_else6360063614_))))))) + (_K6359963617_ _rest63627_ _hd63625_))) + (let () (declare (not safe)) (_else6359763611_))))))) (define class-instance-init! - (lambda (_obj63588_ . _args63589_) - (let ((__tmp64700 (object-type _obj63588_))) + (lambda (_obj63585_ . _args63586_) + (let ((__tmp64697 (object-type _obj63585_))) (declare (not safe)) - (__class-instance-init! __tmp64700 _obj63588_ _args63589_)))) + (__class-instance-init! __tmp64697 _obj63585_ _args63586_)))) (define __class-instance-init! - (lambda (_klass63532_ _obj63533_ _args63534_) - (let _lp63536_ ((_rest63538_ _args63534_)) - (let* ((_rest6353963549_ _rest63538_) - (_else6354163557_ + (lambda (_klass63529_ _obj63530_ _args63531_) + (let _lp63533_ ((_rest63535_ _args63531_)) + (let* ((_rest6353663546_ _rest63535_) + (_else6353863554_ (lambda () - (if (let () (declare (not safe)) (null? _rest63538_)) - _obj63533_ + (if (let () (declare (not safe)) (null? _rest63535_)) + _obj63530_ (let () (declare (not safe)) (error '"unexpected class initializer arguments" 'class: - _klass63532_ + _klass63529_ 'rest: - _rest63538_))))) - (_K6354363569_ - (lambda (_rest63560_ _val63561_ _key63562_) - (let ((_$e63564_ + _rest63535_))))) + (_K6354063566_ + (lambda (_rest63557_ _val63558_ _key63559_) + (let ((_$e63561_ (let () (declare (not safe)) - (class-slot-offset _klass63532_ _key63562_)))) - (if _$e63564_ - ((lambda (_off63567_) + (class-slot-offset _klass63529_ _key63559_)))) + (if _$e63561_ + ((lambda (_off63564_) (let () (declare (not safe)) (unchecked-field-set! - _obj63533_ - _off63567_ - _val63561_)) + _obj63530_ + _off63564_ + _val63558_)) (let () (declare (not safe)) - (_lp63536_ _rest63560_))) - _$e63564_) + (_lp63533_ _rest63557_))) + _$e63561_) (let () (declare (not safe)) (error '"unknown slot" 'class: - _klass63532_ + _klass63529_ 'slot: - _key63562_))))))) - (if (let () (declare (not safe)) (##pair? _rest6353963549_)) - (let ((_hd6354463572_ - (let () (declare (not safe)) (##car _rest6353963549_))) - (_tl6354563574_ - (let () (declare (not safe)) (##cdr _rest6353963549_)))) - (let ((_key63577_ _hd6354463572_)) - (if (let () (declare (not safe)) (##pair? _tl6354563574_)) - (let ((_hd6354663579_ + _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_ (let () (declare (not safe)) - (##car _tl6354563574_))) - (_tl6354763581_ + (##car _tl6354263571_))) + (_tl6354463578_ (let () (declare (not safe)) - (##cdr _tl6354563574_)))) - (let* ((_val63584_ _hd6354663579_) - (_rest63586_ _tl6354763581_)) + (##cdr _tl6354263571_)))) + (let* ((_val63581_ _hd6354363576_) + (_rest63583_ _tl6354463578_)) (declare (not safe)) - (_K6354363569_ _rest63586_ _val63584_ _key63577_))) - (let () (declare (not safe)) (_else6354163557_))))) - (let () (declare (not safe)) (_else6354163557_))))))) + (_K6354063566_ _rest63583_ _val63581_ _key63574_))) + (let () (declare (not safe)) (_else6353863554_))))) + (let () (declare (not safe)) (_else6353863554_))))))) (define __metaclass-instance-init! - (lambda (_klass63528_ _obj63529_ _args63530_) + (lambda (_klass63525_ _obj63526_ _args63527_) (apply call-method - _klass63528_ + _klass63525_ 'instance-init! - _obj63529_ - _args63530_))) + _obj63526_ + _args63527_))) (define constructor-init! - (lambda (_klass63523_ _kons-id63524_ _obj63525_ . _args63526_) + (lambda (_klass63520_ _kons-id63521_ _obj63522_ . _args63523_) (let () (declare (not safe)) (__constructor-init! - _klass63523_ - _kons-id63524_ - _obj63525_ - _args63526_)))) + _klass63520_ + _kons-id63521_ + _obj63522_ + _args63523_)))) (define __constructor-init! - (lambda (_klass63513_ _kons-id63514_ _obj63515_ _args63516_) - (let ((_$e63518_ + (lambda (_klass63510_ _kons-id63511_ _obj63512_ _args63513_) + (let ((_$e63515_ (let () (declare (not safe)) - (__find-method _klass63513_ _obj63515_ _kons-id63514_)))) - (if _$e63518_ - ((lambda (_kons63521_) - (apply _kons63521_ _obj63515_ _args63516_) - _obj63515_) - _$e63518_) + (__find-method _klass63510_ _obj63512_ _kons-id63511_)))) + (if _$e63515_ + ((lambda (_kons63518_) + (apply _kons63518_ _obj63512_ _args63513_) + _obj63512_) + _$e63515_) (let () (declare (not safe)) (error '"missing constructor" 'class: - _klass63513_ + _klass63510_ 'method: - _kons-id63514_)))))) + _kons-id63511_)))))) (define struct-copy - (lambda (_struct63511_) - (if (let () (declare (not safe)) (##structure? _struct63511_)) + (lambda (_struct63508_) + (if (let () (declare (not safe)) (##structure? _struct63508_)) '#!void (let () (declare (not safe)) - (error '"not a structure" _struct63511_))) - (let () (declare (not safe)) (##structure-copy _struct63511_)))) + (error '"not a structure" _struct63508_))) + (let () (declare (not safe)) (##structure-copy _struct63508_)))) (define struct->list - (lambda (_obj63509_) - (if (object? _obj63509_) - (let () (declare (not safe)) (##vector->list _obj63509_)) + (lambda (_obj63506_) + (if (object? _obj63506_) + (let () (declare (not safe)) (##vector->list _obj63506_)) (let () (declare (not safe)) - (error '"not an object" _obj63509_))))) + (error '"not an object" _obj63506_))))) (define class->list - (lambda (_obj63496_) - (if (object? _obj63496_) - (let ((_klass63498_ (object-type _obj63496_))) + (lambda (_obj63493_) + (if (object? _obj63493_) + (let ((_klass63495_ (object-type _obj63493_))) (if (let () (declare (not safe)) - (##structure-instance-of? _klass63498_ 'gerbil#class::t)) - (let ((_slot-vector63500_ + (##structure-instance-of? _klass63495_ 'gerbil#class::t)) + (let ((_slot-vector63497_ (let () (declare (not safe)) (##unchecked-structure-ref - _klass63498_ + _klass63495_ '7 class::t '#f)))) - (let _loop63502_ ((_index63504_ - (let ((__tmp64706 + (let _loop63499_ ((_index63501_ + (let ((__tmp64703 (let () (declare (not safe)) (##vector-length - _slot-vector63500_)))) + _slot-vector63497_)))) (declare (not safe)) - (##fx- __tmp64706 '1))) - (_plist63505_ '())) - (if (let () (declare (not safe)) (##fx< _index63504_ '1)) + (##fx- __tmp64703 '1))) + (_plist63502_ '())) + (if (let () (declare (not safe)) (##fx< _index63501_ '1)) (let () (declare (not safe)) - (cons _klass63498_ _plist63505_)) - (let ((_slot63507_ + (cons _klass63495_ _plist63502_)) + (let ((_slot63504_ (let () (declare (not safe)) (##vector-ref - _slot-vector63500_ - _index63504_)))) - (let ((__tmp64705 + _slot-vector63497_ + _index63501_)))) + (let ((__tmp64702 (let () (declare (not safe)) - (##fx- _index63504_ '1))) - (__tmp64701 - (let ((__tmp64704 - (symbol->keyword _slot63507_)) - (__tmp64702 - (let ((__tmp64703 + (##fx- _index63501_ '1))) + (__tmp64698 + (let ((__tmp64701 + (symbol->keyword _slot63504_)) + (__tmp64699 + (let ((__tmp64700 (let () (declare (not safe)) (unchecked-field-ref - _obj63496_ - _index63504_)))) + _obj63493_ + _index63501_)))) (declare (not safe)) - (cons __tmp64703 _plist63505_)))) + (cons __tmp64700 _plist63502_)))) (declare (not safe)) - (cons __tmp64704 __tmp64702)))) + (cons __tmp64701 __tmp64699)))) (declare (not safe)) - (_loop63502_ __tmp64705 __tmp64701)))))) + (_loop63499_ __tmp64702 __tmp64698)))))) (let () (declare (not safe)) (error '"not a class type" 'object: - _obj63496_ + _obj63493_ 'class: - _klass63498_)))) + _klass63495_)))) (let () (declare (not safe)) - (error '"not an object" _obj63496_))))) + (error '"not an object" _obj63493_))))) (define call-method - (lambda (_obj63487_ _id63488_ . _args63489_) - (let ((_$e63491_ + (lambda (_obj63484_ _id63485_ . _args63486_) + (let ((_$e63488_ (let () (declare (not safe)) - (method-ref _obj63487_ _id63488_)))) - (if _$e63491_ - ((lambda (_method63494_) - (apply _method63494_ _obj63487_ _args63489_)) - _$e63491_) + (method-ref _obj63484_ _id63485_)))) + (if _$e63488_ + ((lambda (_method63491_) + (apply _method63491_ _obj63484_ _args63486_)) + _$e63488_) (let () (declare (not safe)) (error '"cannot find method" 'object: - _obj63487_ + _obj63484_ 'method: - _id63488_)))))) + _id63485_)))))) (define __builtin-type-methods (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) (define method-ref - (lambda (_obj63484_ _id63485_) - (if (object? _obj63484_) - (let ((__tmp64707 (object-type _obj63484_))) + (lambda (_obj63481_ _id63482_) + (if (object? _obj63481_) + (let ((__tmp64704 (object-type _obj63481_))) (declare (not safe)) - (find-method __tmp64707 _obj63484_ _id63485_)) + (find-method __tmp64704 _obj63481_ _id63482_)) '#f))) (define checked-method-ref - (lambda (_obj63478_ _id63479_) - (let ((_$e63481_ + (lambda (_obj63475_ _id63476_) + (let ((_$e63478_ (let () (declare (not safe)) - (method-ref _obj63478_ _id63479_)))) - (if _$e63481_ - _$e63481_ + (method-ref _obj63475_ _id63476_)))) + (if _$e63478_ + _$e63478_ (let () (declare (not safe)) (error '"missing method" 'object: - _obj63478_ + _obj63475_ 'method: - _id63479_)))))) + _id63476_)))))) (define bound-method-ref - (lambda (_obj63468_ _id63469_) - (let ((_$e63471_ + (lambda (_obj63465_ _id63466_) + (let ((_$e63468_ (let () (declare (not safe)) - (method-ref _obj63468_ _id63469_)))) - (if _$e63471_ - ((lambda (_method63474_) - (lambda _args63476_ - (apply _method63474_ _obj63468_ _args63476_))) - _$e63471_) + (method-ref _obj63465_ _id63466_)))) + (if _$e63468_ + ((lambda (_method63471_) + (lambda _args63473_ + (apply _method63471_ _obj63465_ _args63473_))) + _$e63468_) '#f)))) (define checked-bound-method-ref - (lambda (_obj63461_ _id63462_) - (let ((_method63464_ + (lambda (_obj63458_ _id63459_) + (let ((_method63461_ (let () (declare (not safe)) - (checked-method-ref _obj63461_ _id63462_)))) - (lambda _args63466_ (apply _method63464_ _obj63461_ _args63466_))))) + (checked-method-ref _obj63458_ _id63459_)))) + (lambda _args63463_ (apply _method63461_ _obj63458_ _args63463_))))) (define find-method - (lambda (_klass63457_ _obj63458_ _id63459_) + (lambda (_klass63454_ _obj63455_ _id63456_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass63457_ 'gerbil#class::t)) + (##structure-instance-of? _klass63454_ 'gerbil#class::t)) (let () (declare (not safe)) - (__find-method _klass63457_ _obj63458_ _id63459_)) + (__find-method _klass63454_ _obj63455_ _id63456_)) (let () (declare (not safe)) - (builtin-find-method _klass63457_ _obj63458_ _id63459_))))) + (builtin-find-method _klass63454_ _obj63455_ _id63456_))))) (define __find-method - (lambda (_klass63450_ _obj63451_ _id63452_) - (let ((_$e63454_ + (lambda (_klass63447_ _obj63448_ _id63449_) + (let ((_$e63451_ (let () (declare (not safe)) - (direct-method-ref _klass63450_ _obj63451_ _id63452_)))) - (if _$e63454_ - _$e63454_ + (direct-method-ref _klass63447_ _obj63448_ _id63449_)))) + (if _$e63451_ + _$e63451_ (if (let () (declare (not safe)) - (class-type-sealed? _klass63450_)) + (class-type-sealed? _klass63447_)) '#f (let () (declare (not safe)) - (mixin-method-ref _klass63450_ _obj63451_ _id63452_))))))) + (mixin-method-ref _klass63447_ _obj63448_ _id63449_))))))) (define class-find-method - (lambda (_klass63446_ _obj63447_ _id63448_) + (lambda (_klass63443_ _obj63444_ _id63445_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass63446_ 'gerbil#class::t)) + (##structure-instance-of? _klass63443_ 'gerbil#class::t)) (let () (declare (not safe)) - (__find-method _klass63446_ _obj63447_ _id63448_)) + (__find-method _klass63443_ _obj63444_ _id63445_)) '#f))) (define mixin-find-method - (lambda (_mixins63438_ _obj63439_ _id63440_) - (let ((__tmp64708 - (lambda (_g6344163443_) + (lambda (_mixins63435_ _obj63436_ _id63437_) + (let ((__tmp64705 + (lambda (_g6343863440_) (let () (declare (not safe)) - (direct-method-ref _g6344163443_ _obj63439_ _id63440_))))) + (direct-method-ref _g6343863440_ _obj63436_ _id63437_))))) (declare (not safe)) - (ormap1 __tmp64708 _mixins63438_)))) + (ormap1 __tmp64705 _mixins63435_)))) (define builtin-find-method - (lambda (_klass63431_ _obj63432_ _id63433_) - (if (let () (declare (not safe)) (##type? _klass63431_)) - (let ((_$e63435_ + (lambda (_klass63428_ _obj63429_ _id63430_) + (if (let () (declare (not safe)) (##type? _klass63428_)) + (let ((_$e63432_ (let () (declare (not safe)) - (builtin-method-ref _klass63431_ _obj63432_ _id63433_)))) - (if _$e63435_ - _$e63435_ - (let ((__tmp64709 + (builtin-method-ref _klass63428_ _obj63429_ _id63430_)))) + (if _$e63432_ + _$e63432_ + (let ((__tmp64706 (let () (declare (not safe)) - (##type-super _klass63431_)))) + (##type-super _klass63428_)))) (declare (not safe)) - (builtin-find-method __tmp64709 _obj63432_ _id63433_)))) + (builtin-find-method __tmp64706 _obj63429_ _id63430_)))) '#f))) (define direct-method-ref - (lambda (_klass63408_ _obj63409_ _id63410_) - (letrec ((_metaclass-resolve-method63412_ + (lambda (_klass63405_ _obj63406_ _id63407_) + (letrec ((_metaclass-resolve-method63409_ (lambda () - (let ((__method64594 + (let ((__method64591 (let () (declare (not safe)) - (method-ref _klass63408_ 'direct-method-ref)))) - (if __method64594 - (__method64594 _klass63408_ _obj63409_ _id63410_) + (method-ref _klass63405_ 'direct-method-ref)))) + (if __method64591 + (__method64591 _klass63405_ _obj63406_ _id63407_) (let () (declare (not safe)) (error '"Missing method" - _klass63408_ + _klass63405_ 'direct-method-ref)))))) - (_metaclass-resolve-method!63413_ + (_metaclass-resolve-method!63410_ (lambda () - (let ((_method63428_ + (let ((_method63425_ (let () (declare (not safe)) - (_metaclass-resolve-method63412_)))) - (let ((__tmp64711 + (_metaclass-resolve-method63409_)))) + (let ((__tmp64708 (let () (declare (not safe)) (##unchecked-structure-ref - _klass63408_ + _klass63405_ '11 class::t '#f))) - (__tmp64710 (if _method63428_ 'resolved 'unknown))) + (__tmp64707 (if _method63425_ 'resolved 'unknown))) (declare (not safe)) - (symbolic-table-set! __tmp64711 _id63410_ __tmp64710)) - _method63428_)))) - (let ((_$e63415_ + (symbolic-table-set! __tmp64708 _id63407_ __tmp64707)) + _method63425_)))) + (let ((_$e63412_ (let () (declare (not safe)) - (##unchecked-structure-ref _klass63408_ '11 class::t '#f)))) - (if _$e63415_ - ((lambda (_ht63418_) - (let ((_method63420_ + (##unchecked-structure-ref _klass63405_ '11 class::t '#f)))) + (if _$e63412_ + ((lambda (_ht63415_) + (let ((_method63417_ (let () (declare (not safe)) - (symbolic-table-ref _ht63418_ _id63410_ '#f)))) + (symbolic-table-ref _ht63415_ _id63407_ '#f)))) (if (let () (declare (not safe)) - (procedure? _method63420_)) - _method63420_ + (procedure? _method63417_)) + _method63417_ (if (let () (declare (not safe)) - (class-type-metaclass? _klass63408_)) - (let ((_$e63422_ _method63420_)) + (class-type-metaclass? _klass63405_)) + (let ((_$e63419_ _method63417_)) (if (let () (declare (not safe)) - (eq? 'resolved _$e63422_)) + (eq? 'resolved _$e63419_)) (let () (declare (not safe)) - (_metaclass-resolve-method63412_)) + (_metaclass-resolve-method63409_)) (if (let () (declare (not safe)) - (eq? 'unknown _$e63422_)) + (eq? 'unknown _$e63419_)) '#f (let () (declare (not safe)) - (_metaclass-resolve-method!63413_))))) + (_metaclass-resolve-method!63410_))))) '#f)))) - _$e63415_) + _$e63412_) (if (let () (declare (not safe)) - (class-type-metaclass? _klass63408_)) - (let ((_tab63425_ + (class-type-metaclass? _klass63405_)) + (let ((_tab63422_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _klass63408_ - _tab63425_ + _klass63405_ + _tab63422_ '11 class::t '#f)) (let () (declare (not safe)) - (_metaclass-resolve-method!63413_))) + (_metaclass-resolve-method!63410_))) '#f)))))) (define mixin-method-ref - (lambda (_klass63404_ _obj63405_ _id63406_) - (let ((__tmp64712 (##structure-ref _klass63404_ '6 class::t '#f))) + (lambda (_klass63401_ _obj63402_ _id63403_) + (let ((__tmp64709 (##structure-ref _klass63401_ '6 class::t '#f))) (declare (not safe)) - (mixin-find-method __tmp64712 _obj63405_ _id63406_)))) + (mixin-find-method __tmp64709 _obj63402_ _id63403_)))) (define builtin-method-ref - (lambda (_klass63395_ _obj63396_ _id63397_) - (let ((_$e63399_ - (let ((__tmp64713 - (let () (declare (not safe)) (##type-id _klass63395_)))) + (lambda (_klass63392_ _obj63393_ _id63394_) + (let ((_$e63396_ + (let ((__tmp64710 + (let () (declare (not safe)) (##type-id _klass63392_)))) (declare (not safe)) - (symbolic-table-ref __builtin-type-methods __tmp64713 '#f)))) - (if _$e63399_ - ((lambda (_mtab63402_) + (symbolic-table-ref __builtin-type-methods __tmp64710 '#f)))) + (if _$e63396_ + ((lambda (_mtab63399_) (let () (declare (not safe)) - (symbolic-table-ref _mtab63402_ _id63397_ '#f))) - _$e63399_) + (symbolic-table-ref _mtab63399_ _id63394_ '#f))) + _$e63396_) '#f)))) (define bind-method!__% - (lambda (_klass63361_ _id63362_ _proc63363_ _rebind?63364_) - (letrec ((_bind!63366_ - (lambda (_ht63379_) - (if (and (let () (declare (not safe)) (not _rebind?63364_)) + (lambda (_klass63358_ _id63359_ _proc63360_ _rebind?63361_) + (letrec ((_bind!63363_ + (lambda (_ht63376_) + (if (and (let () (declare (not safe)) (not _rebind?63361_)) (let () (declare (not safe)) - (symbolic-table-ref _ht63379_ _id63362_ '#f))) + (symbolic-table-ref _ht63376_ _id63359_ '#f))) (let () (declare (not safe)) (error '"method already bound" 'class: - _klass63361_ + _klass63358_ 'method: - _id63362_)) + _id63359_)) (let () (declare (not safe)) (symbolic-table-set! - _ht63379_ - _id63362_ - _proc63363_)))))) - (if (let () (declare (not safe)) (procedure? _proc63363_)) + _ht63376_ + _id63359_ + _proc63360_)))))) + (if (let () (declare (not safe)) (procedure? _proc63360_)) '#!void (let () (declare (not safe)) - (error '"bad method; expected procedure" _proc63363_))) + (error '"bad method; expected procedure" _proc63360_))) (if (let () (declare (not safe)) - (##structure-instance-of? _klass63361_ 'gerbil#class::t)) - (let ((_ht63368_ + (##structure-instance-of? _klass63358_ 'gerbil#class::t)) + (let ((_ht63365_ (let () (declare (not safe)) (##unchecked-structure-ref - _klass63361_ + _klass63358_ '11 class::t '#f)))) - (if _ht63368_ - (let () (declare (not safe)) (_bind!63366_ _ht63368_)) - (let ((_ht63370_ + (if _ht63365_ + (let () (declare (not safe)) (_bind!63363_ _ht63365_)) + (let ((_ht63367_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _klass63361_ - _ht63370_ + _klass63358_ + _ht63367_ '11 class::t '#f)) - (let () (declare (not safe)) (_bind!63366_ _ht63370_))))) - (if (let () (declare (not safe)) (##type? _klass63361_)) - (let ((_ht63377_ - (let ((_$e63372_ - (let ((__tmp64714 + (let () (declare (not safe)) (_bind!63363_ _ht63367_))))) + (if (let () (declare (not safe)) (##type? _klass63358_)) + (let ((_ht63374_ + (let ((_$e63369_ + (let ((__tmp64711 (let () (declare (not safe)) - (##type-id _klass63361_)))) + (##type-id _klass63358_)))) (declare (not safe)) (symbolic-table-ref __builtin-type-methods - __tmp64714 + __tmp64711 '#f)))) - (if _$e63372_ - _$e63372_ - (let ((_ht63375_ + (if _$e63369_ + _$e63369_ + (let ((_ht63372_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp64715 + (let ((__tmp64712 (let () (declare (not safe)) - (##type-id _klass63361_)))) + (##type-id _klass63358_)))) (declare (not safe)) (symbolic-table-set! __builtin-type-methods - __tmp64715 - _ht63375_)) - _ht63375_))))) + __tmp64712 + _ht63372_)) + _ht63372_))))) (declare (not safe)) - (_bind!63366_ _ht63377_)) + (_bind!63363_ _ht63374_)) (let () (declare (not safe)) (error '"bad class; expected class or builtin type" - _klass63361_))))))) + _klass63358_))))))) (define bind-method!__0 - (lambda (_klass63384_ _id63385_ _proc63386_) - (let ((_rebind?63388_ '#t)) + (lambda (_klass63381_ _id63382_ _proc63383_) + (let ((_rebind?63385_ '#t)) (declare (not safe)) (bind-method!__% - _klass63384_ - _id63385_ - _proc63386_ - _rebind?63388_)))) + _klass63381_ + _id63382_ + _proc63383_ + _rebind?63385_)))) (define bind-method! - (lambda _g64717_ - (let ((_g64716_ (let () (declare (not safe)) (##length _g64717_)))) - (cond ((let () (declare (not safe)) (##fx= _g64716_ 3)) - (apply (lambda (_klass63384_ _id63385_ _proc63386_) + (lambda _g64714_ + (let ((_g64713_ (let () (declare (not safe)) (##length _g64714_)))) + (cond ((let () (declare (not safe)) (##fx= _g64713_ 3)) + (apply (lambda (_klass63381_ _id63382_ _proc63383_) (let () (declare (not safe)) (bind-method!__0 - _klass63384_ - _id63385_ - _proc63386_))) - _g64717_)) - ((let () (declare (not safe)) (##fx= _g64716_ 4)) - (apply (lambda (_klass63390_ - _id63391_ - _proc63392_ - _rebind?63393_) + _klass63381_ + _id63382_ + _proc63383_))) + _g64714_)) + ((let () (declare (not safe)) (##fx= _g64713_ 4)) + (apply (lambda (_klass63387_ + _id63388_ + _proc63389_ + _rebind?63390_) (let () (declare (not safe)) (bind-method!__% - _klass63390_ - _id63391_ - _proc63392_ - _rebind?63393_))) - _g64717_)) + _klass63387_ + _id63388_ + _proc63389_ + _rebind?63390_))) + _g64714_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g64717_)))))) + _g64714_)))))) (define make-method-specializer-table__% - (lambda (_size-hint63341_ _seed63343_) + (lambda (_size-hint63338_ _seed63340_) (let () (declare (not safe)) (make-raw-table__% - _size-hint63341_ + _size-hint63338_ procedure-hash eq? - _seed63343_)))) + _seed63340_)))) (define make-method-specializer-table__0 (lambda () - (let* ((_size-hint63349_ '#f) (_seed63351_ '0)) + (let* ((_size-hint63346_ '#f) (_seed63348_ '0)) (declare (not safe)) - (make-method-specializer-table__% _size-hint63349_ _seed63351_)))) + (make-method-specializer-table__% _size-hint63346_ _seed63348_)))) (define make-method-specializer-table__1 - (lambda (_size-hint63353_) - (let ((_seed63355_ '0)) + (lambda (_size-hint63350_) + (let ((_seed63352_ '0)) (declare (not safe)) - (make-method-specializer-table__% _size-hint63353_ _seed63355_)))) + (make-method-specializer-table__% _size-hint63350_ _seed63352_)))) (define make-method-specializer-table - (lambda _g64719_ - (let ((_g64718_ (let () (declare (not safe)) (##length _g64719_)))) - (cond ((let () (declare (not safe)) (##fx= _g64718_ 0)) + (lambda _g64716_ + (let ((_g64715_ (let () (declare (not safe)) (##length _g64716_)))) + (cond ((let () (declare (not safe)) (##fx= _g64715_ 0)) (apply (lambda () (let () (declare (not safe)) (make-method-specializer-table__0))) - _g64719_)) - ((let () (declare (not safe)) (##fx= _g64718_ 1)) - (apply (lambda (_size-hint63353_) + _g64716_)) + ((let () (declare (not safe)) (##fx= _g64715_ 1)) + (apply (lambda (_size-hint63350_) (let () (declare (not safe)) (make-method-specializer-table__1 - _size-hint63353_))) - _g64719_)) - ((let () (declare (not safe)) (##fx= _g64718_ 2)) - (apply (lambda (_size-hint63357_ _seed63358_) + _size-hint63350_))) + _g64716_)) + ((let () (declare (not safe)) (##fx= _g64715_ 2)) + (apply (lambda (_size-hint63354_ _seed63355_) (let () (declare (not safe)) (make-method-specializer-table__% - _size-hint63357_ - _seed63358_))) - _g64719_)) + _size-hint63354_ + _seed63355_))) + _g64716_)) (else (##raise-wrong-number-of-arguments-exception make-method-specializer-table - _g64719_)))))) + _g64716_)))))) (define method-specializer-table-ref - (lambda (_tab63298_ _key63299_ _default63300_) - (let ((_table63302_ - (let () (declare (not safe)) (&raw-table-table _tab63298_))) - (_seed63303_ - (let () (declare (not safe)) (&raw-table-seed _tab63298_)))) - (let* ((_h63305_ + (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_ (fxxor (let () (declare (not safe)) - (procedure-hash _key63299_)) - _seed63303_)) - (_size63308_ (vector-length _table63302_)) - (_entries63311_ (fxquotient _size63308_ '2)) - (_start63314_ + (procedure-hash _key63296_)) + _seed63300_)) + (_size63305_ (vector-length _table63299_)) + (_entries63308_ (fxquotient _size63305_ '2)) + (_start63311_ (fxarithmetic-shift-left - (fxmodulo _h63305_ _entries63311_) + (fxmodulo _h63302_ _entries63308_) '1))) - (let _loop63318_ ((_probe63321_ _start63314_) - (_i63323_ '1) - (_deleted63325_ '#f)) - (let ((_k63328_ (vector-ref _table63302_ _probe63321_))) - (if (let ((__tmp64726 (macro-unused-obj))) + (let _loop63315_ ((_probe63318_ _start63311_) + (_i63320_ '1) + (_deleted63322_ '#f)) + (let ((_k63325_ (vector-ref _table63299_ _probe63318_))) + (if (let ((__tmp64723 (macro-unused-obj))) (declare (not safe)) - (eq? _k63328_ __tmp64726)) - _default63300_ - (if (let ((__tmp64725 (macro-deleted-obj))) + (eq? _k63325_ __tmp64723)) + _default63297_ + (if (let ((__tmp64722 (macro-deleted-obj))) (declare (not safe)) - (eq? _k63328_ __tmp64725)) - (let ((__tmp64724 - (let ((_next-probe63331_ - (fx+ _start63314_ - _i63323_ - (fx* _i63323_ _i63323_)))) - (fxmodulo _next-probe63331_ _size63308_))) - (__tmp64723 (fx+ _i63323_ '1)) - (__tmp64722 - (let ((_$e63334_ _deleted63325_)) - (if _$e63334_ _$e63334_ _probe63321_)))) + (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_)))) (declare (not safe)) - (_loop63318_ __tmp64724 __tmp64723 __tmp64722)) + (_loop63315_ __tmp64721 __tmp64720 __tmp64719)) (if (let () (declare (not safe)) - (eq? _key63299_ _k63328_)) - (vector-ref _table63302_ (fx+ _probe63321_ '1)) - (let ((__tmp64721 - (let ((_next-probe63337_ - (fx+ _start63314_ - _i63323_ - (fx* _i63323_ _i63323_)))) - (fxmodulo _next-probe63337_ _size63308_))) - (__tmp64720 (fx+ _i63323_ '1))) + (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))) (declare (not safe)) - (_loop63318_ - __tmp64721 - __tmp64720 - _deleted63325_))))))))))) + (_loop63315_ + __tmp64718 + __tmp64717 + _deleted63322_))))))))))) (define method-specializer-table-set! - (lambda (_tab63294_ _key63295_ _value63296_) - (if (fx< (let () (declare (not safe)) (&raw-table-free _tab63294_)) + (lambda (_tab63291_ _key63292_ _value63293_) + (if (fx< (let () (declare (not safe)) (&raw-table-free _tab63291_)) (fxquotient (vector-length - (let () (declare (not safe)) (&raw-table-table _tab63294_))) + (let () (declare (not safe)) (&raw-table-table _tab63291_))) '4)) - (let () (declare (not safe)) (__raw-table-rehash! _tab63294_)) + (let () (declare (not safe)) (__raw-table-rehash! _tab63291_)) '#!void) (let () (declare (not safe)) (__method-specializer-table-set! - _tab63294_ - _key63295_ - _value63296_)))) + _tab63291_ + _key63292_ + _value63293_)))) (define __method-specializer-table-set! - (lambda (_tab63249_ _key63250_ _value63251_) - (let ((_table63254_ - (let () (declare (not safe)) (&raw-table-table _tab63249_))) - (_seed63255_ - (let () (declare (not safe)) (&raw-table-seed _tab63249_)))) - (let* ((_h63257_ + (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_ (fxxor (let () (declare (not safe)) - (procedure-hash _key63250_)) - _seed63255_)) - (_size63260_ (vector-length _table63254_)) - (_entries63263_ (fxquotient _size63260_ '2)) - (_start63266_ + (procedure-hash _key63247_)) + _seed63252_)) + (_size63257_ (vector-length _table63251_)) + (_entries63260_ (fxquotient _size63257_ '2)) + (_start63263_ (fxarithmetic-shift-left - (fxmodulo _h63257_ _entries63263_) + (fxmodulo _h63254_ _entries63260_) '1))) - (let _loop63270_ ((_probe63273_ _start63266_) - (_i63275_ '1) - (_deleted63277_ '#f)) - (let ((_k63280_ (vector-ref _table63254_ _probe63273_))) - (if (let ((__tmp64736 (macro-unused-obj))) + (let _loop63267_ ((_probe63270_ _start63263_) + (_i63272_ '1) + (_deleted63274_ '#f)) + (let ((_k63277_ (vector-ref _table63251_ _probe63270_))) + (if (let ((__tmp64733 (macro-unused-obj))) (declare (not safe)) - (eq? _k63280_ __tmp64736)) - (if _deleted63277_ + (eq? _k63277_ __tmp64733)) + (if _deleted63274_ (begin - (vector-set! _table63254_ _deleted63277_ _key63250_) + (vector-set! _table63251_ _deleted63274_ _key63247_) (vector-set! - _table63254_ - (fx+ _deleted63277_ '1) - _value63251_) + _table63251_ + (fx+ _deleted63274_ '1) + _value63248_) ((lambda () - (let ((__tmp64735 + (let ((__tmp64732 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab63249_)) + (&raw-table-count _tab63246_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab63249_ - __tmp64735))))) + _tab63246_ + __tmp64732))))) (begin - (vector-set! _table63254_ _probe63273_ _key63250_) + (vector-set! _table63251_ _probe63270_ _key63247_) (vector-set! - _table63254_ - (fx+ _probe63273_ '1) - _value63251_) + _table63251_ + (fx+ _probe63270_ '1) + _value63248_) ((lambda () - (let ((__tmp64733 + (let ((__tmp64730 (fx- (let () (declare (not safe)) - (&raw-table-free _tab63249_)) + (&raw-table-free _tab63246_)) '1))) (declare (not safe)) - (&raw-table-free-set! _tab63249_ __tmp64733)) - (let ((__tmp64734 + (&raw-table-free-set! _tab63246_ __tmp64730)) + (let ((__tmp64731 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab63249_)) + (&raw-table-count _tab63246_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab63249_ - __tmp64734)))))) - (if (let ((__tmp64732 (macro-deleted-obj))) + _tab63246_ + __tmp64731)))))) + (if (let ((__tmp64729 (macro-deleted-obj))) (declare (not safe)) - (eq? _k63280_ __tmp64732)) - (let ((__tmp64731 - (let ((_next-probe63285_ - (fx+ _start63266_ - _i63275_ - (fx* _i63275_ _i63275_)))) - (fxmodulo _next-probe63285_ _size63260_))) - (__tmp64730 (fx+ _i63275_ '1)) - (__tmp64729 - (let ((_$e63288_ _deleted63277_)) - (if _$e63288_ _$e63288_ _probe63273_)))) + (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_)))) (declare (not safe)) - (_loop63270_ __tmp64731 __tmp64730 __tmp64729)) + (_loop63267_ __tmp64728 __tmp64727 __tmp64726)) (if (let () (declare (not safe)) - (eq? _key63250_ _k63280_)) + (eq? _key63247_ _k63277_)) (begin (vector-set! - _table63254_ - _probe63273_ - _key63250_) + _table63251_ + _probe63270_ + _key63247_) (vector-set! - _table63254_ - (fx+ _probe63273_ '1) - _value63251_)) - (let ((__tmp64728 - (let ((_next-probe63291_ - (fx+ _start63266_ - _i63275_ - (fx* _i63275_ _i63275_)))) - (fxmodulo _next-probe63291_ _size63260_))) - (__tmp64727 (fx+ _i63275_ '1))) + _table63251_ + (fx+ _probe63270_ '1) + _value63248_)) + (let ((__tmp64725 + (let ((_next-probe63288_ + (fx+ _start63263_ + _i63272_ + (fx* _i63272_ _i63272_)))) + (fxmodulo _next-probe63288_ _size63257_))) + (__tmp64724 (fx+ _i63272_ '1))) (declare (not safe)) - (_loop63270_ - __tmp64728 - __tmp64727 - _deleted63277_))))))))))) + (_loop63267_ + __tmp64725 + __tmp64724 + _deleted63274_))))))))))) (define method-specializer-table-update! - (lambda (_tab63244_ - _key63245_ - _method-specializer-table-update!63246_ - _default63247_) - (if (fx< (let () (declare (not safe)) (&raw-table-free _tab63244_)) + (lambda (_tab63241_ + _key63242_ + _method-specializer-table-update!63243_ + _default63244_) + (if (fx< (let () (declare (not safe)) (&raw-table-free _tab63241_)) (fxquotient (vector-length - (let () (declare (not safe)) (&raw-table-table _tab63244_))) + (let () (declare (not safe)) (&raw-table-table _tab63241_))) '4)) - (let () (declare (not safe)) (__raw-table-rehash! _tab63244_)) + (let () (declare (not safe)) (__raw-table-rehash! _tab63241_)) '#!void) (let () (declare (not safe)) (__method-specializer-table-update! - _tab63244_ - _key63245_ - _method-specializer-table-update!63246_ - _default63247_)))) + _tab63241_ + _key63242_ + _method-specializer-table-update!63243_ + _default63244_)))) (define __method-specializer-table-update! - (lambda (_tab63198_ - _key63199_ - _method-specializer-table-update!63200_ - _default63201_) - (let ((_table63204_ - (let () (declare (not safe)) (&raw-table-table _tab63198_))) - (_seed63205_ - (let () (declare (not safe)) (&raw-table-seed _tab63198_)))) - (let* ((_h63207_ + (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_ (fxxor (let () (declare (not safe)) - (procedure-hash _key63199_)) - _seed63205_)) - (_size63210_ (vector-length _table63204_)) - (_entries63213_ (fxquotient _size63210_ '2)) - (_start63216_ + (procedure-hash _key63196_)) + _seed63202_)) + (_size63207_ (vector-length _table63201_)) + (_entries63210_ (fxquotient _size63207_ '2)) + (_start63213_ (fxarithmetic-shift-left - (fxmodulo _h63207_ _entries63213_) + (fxmodulo _h63204_ _entries63210_) '1))) - (let _loop63220_ ((_probe63223_ _start63216_) - (_i63225_ '1) - (_deleted63227_ '#f)) - (let ((_k63230_ (vector-ref _table63204_ _probe63223_))) - (if (let ((__tmp64746 (macro-unused-obj))) + (let _loop63217_ ((_probe63220_ _start63213_) + (_i63222_ '1) + (_deleted63224_ '#f)) + (let ((_k63227_ (vector-ref _table63201_ _probe63220_))) + (if (let ((__tmp64743 (macro-unused-obj))) (declare (not safe)) - (eq? _k63230_ __tmp64746)) - (if _deleted63227_ + (eq? _k63227_ __tmp64743)) + (if _deleted63224_ (begin - (vector-set! _table63204_ _deleted63227_ _key63199_) + (vector-set! _table63201_ _deleted63224_ _key63196_) (vector-set! - _table63204_ - (fx+ _deleted63227_ '1) - (_method-specializer-table-update!63200_ - _default63201_)) + _table63201_ + (fx+ _deleted63224_ '1) + (_method-specializer-table-update!63197_ + _default63198_)) ((lambda () - (let ((__tmp64745 + (let ((__tmp64742 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab63198_)) + (&raw-table-count _tab63195_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab63198_ - __tmp64745))))) + _tab63195_ + __tmp64742))))) (begin - (vector-set! _table63204_ _probe63223_ _key63199_) + (vector-set! _table63201_ _probe63220_ _key63196_) (vector-set! - _table63204_ - (fx+ _probe63223_ '1) - (_method-specializer-table-update!63200_ - _default63201_)) + _table63201_ + (fx+ _probe63220_ '1) + (_method-specializer-table-update!63197_ + _default63198_)) ((lambda () - (let ((__tmp64743 + (let ((__tmp64740 (fx- (let () (declare (not safe)) - (&raw-table-free _tab63198_)) + (&raw-table-free _tab63195_)) '1))) (declare (not safe)) - (&raw-table-free-set! _tab63198_ __tmp64743)) - (let ((__tmp64744 + (&raw-table-free-set! _tab63195_ __tmp64740)) + (let ((__tmp64741 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab63198_)) + (&raw-table-count _tab63195_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab63198_ - __tmp64744)))))) - (if (let ((__tmp64742 (macro-deleted-obj))) + _tab63195_ + __tmp64741)))))) + (if (let ((__tmp64739 (macro-deleted-obj))) (declare (not safe)) - (eq? _k63230_ __tmp64742)) - (let ((__tmp64741 - (let ((_next-probe63235_ - (fx+ _start63216_ - _i63225_ - (fx* _i63225_ _i63225_)))) - (fxmodulo _next-probe63235_ _size63210_))) - (__tmp64740 (fx+ _i63225_ '1)) - (__tmp64739 - (let ((_$e63238_ _deleted63227_)) - (if _$e63238_ _$e63238_ _probe63223_)))) + (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_)))) (declare (not safe)) - (_loop63220_ __tmp64741 __tmp64740 __tmp64739)) + (_loop63217_ __tmp64738 __tmp64737 __tmp64736)) (if (let () (declare (not safe)) - (eq? _key63199_ _k63230_)) + (eq? _key63196_ _k63227_)) (begin (vector-set! - _table63204_ - _probe63223_ - _key63199_) + _table63201_ + _probe63220_ + _key63196_) (vector-set! - _table63204_ - (fx+ _probe63223_ '1) - (_method-specializer-table-update!63200_ + _table63201_ + (fx+ _probe63220_ '1) + (_method-specializer-table-update!63197_ (vector-ref - _table63204_ - (fx+ _probe63223_ '1))))) - (let ((__tmp64738 - (let ((_next-probe63241_ - (fx+ _start63216_ - _i63225_ - (fx* _i63225_ _i63225_)))) - (fxmodulo _next-probe63241_ _size63210_))) - (__tmp64737 (fx+ _i63225_ '1))) + _table63201_ + (fx+ _probe63220_ '1))))) + (let ((__tmp64735 + (let ((_next-probe63238_ + (fx+ _start63213_ + _i63222_ + (fx* _i63222_ _i63222_)))) + (fxmodulo _next-probe63238_ _size63207_))) + (__tmp64734 (fx+ _i63222_ '1))) (declare (not safe)) - (_loop63220_ - __tmp64738 - __tmp64737 - _deleted63227_))))))))))) + (_loop63217_ + __tmp64735 + __tmp64734 + _deleted63224_))))))))))) (define method-specializer-table-delete! - (lambda (_tab63157_ _key63159_) - (let ((_table63162_ - (let () (declare (not safe)) (&raw-table-table _tab63157_))) - (_seed63164_ - (let () (declare (not safe)) (&raw-table-seed _tab63157_)))) - (let* ((_h63167_ + (lambda (_tab63154_ _key63156_) + (let ((_table63159_ + (let () (declare (not safe)) (&raw-table-table _tab63154_))) + (_seed63161_ + (let () (declare (not safe)) (&raw-table-seed _tab63154_)))) + (let* ((_h63164_ (fxxor (let () (declare (not safe)) - (procedure-hash _key63159_)) - _seed63164_)) - (_size63170_ (vector-length _table63162_)) - (_entries63173_ (fxquotient _size63170_ '2)) - (_start63176_ + (procedure-hash _key63156_)) + _seed63161_)) + (_size63167_ (vector-length _table63159_)) + (_entries63170_ (fxquotient _size63167_ '2)) + (_start63173_ (fxarithmetic-shift-left - (fxmodulo _h63167_ _entries63173_) + (fxmodulo _h63164_ _entries63170_) '1))) - (let _loop63180_ ((_probe63183_ _start63176_) (_i63185_ '1)) - (let ((_k63188_ (vector-ref _table63162_ _probe63183_))) - (if (let ((__tmp64753 (macro-unused-obj))) + (let _loop63177_ ((_probe63180_ _start63173_) (_i63182_ '1)) + (let ((_k63185_ (vector-ref _table63159_ _probe63180_))) + (if (let ((__tmp64750 (macro-unused-obj))) (declare (not safe)) - (eq? _k63188_ __tmp64753)) + (eq? _k63185_ __tmp64750)) '#!void - (if (let ((__tmp64752 (macro-deleted-obj))) + (if (let ((__tmp64749 (macro-deleted-obj))) (declare (not safe)) - (eq? _k63188_ __tmp64752)) - (let ((__tmp64751 - (let ((_next-probe63191_ - (fx+ _start63176_ - _i63185_ - (fx* _i63185_ _i63185_)))) - (fxmodulo _next-probe63191_ _size63170_))) - (__tmp64750 (fx+ _i63185_ '1))) + (eq? _k63185_ __tmp64749)) + (let ((__tmp64748 + (let ((_next-probe63188_ + (fx+ _start63173_ + _i63182_ + (fx* _i63182_ _i63182_)))) + (fxmodulo _next-probe63188_ _size63167_))) + (__tmp64747 (fx+ _i63182_ '1))) (declare (not safe)) - (_loop63180_ __tmp64751 __tmp64750)) + (_loop63177_ __tmp64748 __tmp64747)) (if (let () (declare (not safe)) - (eq? _key63159_ _k63188_)) + (eq? _key63156_ _k63185_)) (begin (vector-set! - _table63162_ - _probe63183_ + _table63159_ + _probe63180_ (macro-deleted-obj)) (vector-set! - _table63162_ - (fx+ _probe63183_ '1) + _table63159_ + (fx+ _probe63180_ '1) (macro-absent-obj)) ((lambda () - (let ((__tmp64749 + (let ((__tmp64746 (fx- (let () (declare (not safe)) - (&raw-table-count _tab63157_)) + (&raw-table-count _tab63154_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab63157_ - __tmp64749))))) - (let ((__tmp64748 - (let ((_next-probe63195_ - (fx+ _start63176_ - _i63185_ - (fx* _i63185_ _i63185_)))) - (fxmodulo _next-probe63195_ _size63170_))) - (__tmp64747 (fx+ _i63185_ '1))) + _tab63154_ + __tmp64746))))) + (let ((__tmp64745 + (let ((_next-probe63192_ + (fx+ _start63173_ + _i63182_ + (fx* _i63182_ _i63182_)))) + (fxmodulo _next-probe63192_ _size63167_))) + (__tmp64744 (fx+ _i63182_ '1))) (declare (not safe)) - (_loop63180_ __tmp64748 __tmp64747))))))))))) + (_loop63177_ __tmp64745 __tmp64744))))))))))) (define __method-specializers (let () (declare (not safe)) (make-method-specializer-table__% '#f '0))) (define __method-specializers-mx (vector '0)) (define bind-specializer! - (lambda (_method-proc63148_ _specializer63149_) + (lambda (_method-proc63145_ _specializer63146_) (let () (declare (not interrupts-enabled)) - (let _again63153_ () - (if (let ((__tmp64754 + (let _again63150_ () + (if (let ((__tmp64751 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp64754 '0)) + (##fx= __tmp64751 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () (declare (not safe)) (_again63153_)))))) + (let () (declare (not safe)) (_again63150_)))))) (let () (declare (not safe)) (method-specializer-table-set! __method-specializers - _method-proc63148_ - _specializer63149_)) + _method-proc63145_ + _specializer63146_)) (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '0 '1)))) (define __lookup-method-specializer - (lambda (_proc63138_) + (lambda (_proc63135_) (let () (declare (not interrupts-enabled)) - (let _again63142_ () - (if (let ((__tmp64755 + (let _again63139_ () + (if (let ((__tmp64752 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp64755 '0)) + (##fx= __tmp64752 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () (declare (not safe)) (_again63142_)))))) - (let ((_specializer63146_ + (let () (declare (not safe)) (_again63139_)))))) + (let ((_specializer63143_ (let () (declare (not safe)) (method-specializer-table-ref __method-specializers - _proc63138_ + _proc63135_ '#f)))) (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '0 '1)) - _specializer63146_))) + _specializer63143_))) (define __class-specializer-hash-key - (lambda (_klass63136_) - (let ((__tmp64756 - (let () (declare (not safe)) (##type-id _klass63136_)))) + (lambda (_klass63133_) + (let ((__tmp64753 + (let () (declare (not safe)) (##type-id _klass63133_)))) (declare (not safe)) - (symbolic-hash __tmp64756)))) + (symbolic-hash __tmp64753)))) (define make-class-specializer-table__% - (lambda (_size-hint63117_ _seed63119_) + (lambda (_size-hint63114_ _seed63116_) (let () (declare (not safe)) (make-raw-table__% - _size-hint63117_ + _size-hint63114_ __class-specializer-hash-key eq? - _seed63119_)))) + _seed63116_)))) (define make-class-specializer-table__0 (lambda () - (let* ((_size-hint63125_ '#f) (_seed63127_ '0)) + (let* ((_size-hint63122_ '#f) (_seed63124_ '0)) (declare (not safe)) - (make-class-specializer-table__% _size-hint63125_ _seed63127_)))) + (make-class-specializer-table__% _size-hint63122_ _seed63124_)))) (define make-class-specializer-table__1 - (lambda (_size-hint63129_) - (let ((_seed63131_ '0)) + (lambda (_size-hint63126_) + (let ((_seed63128_ '0)) (declare (not safe)) - (make-class-specializer-table__% _size-hint63129_ _seed63131_)))) + (make-class-specializer-table__% _size-hint63126_ _seed63128_)))) (define make-class-specializer-table - (lambda _g64758_ - (let ((_g64757_ (let () (declare (not safe)) (##length _g64758_)))) - (cond ((let () (declare (not safe)) (##fx= _g64757_ 0)) + (lambda _g64755_ + (let ((_g64754_ (let () (declare (not safe)) (##length _g64755_)))) + (cond ((let () (declare (not safe)) (##fx= _g64754_ 0)) (apply (lambda () (let () (declare (not safe)) (make-class-specializer-table__0))) - _g64758_)) - ((let () (declare (not safe)) (##fx= _g64757_ 1)) - (apply (lambda (_size-hint63129_) + _g64755_)) + ((let () (declare (not safe)) (##fx= _g64754_ 1)) + (apply (lambda (_size-hint63126_) (let () (declare (not safe)) (make-class-specializer-table__1 - _size-hint63129_))) - _g64758_)) - ((let () (declare (not safe)) (##fx= _g64757_ 2)) - (apply (lambda (_size-hint63133_ _seed63134_) + _size-hint63126_))) + _g64755_)) + ((let () (declare (not safe)) (##fx= _g64754_ 2)) + (apply (lambda (_size-hint63130_ _seed63131_) (let () (declare (not safe)) (make-class-specializer-table__% - _size-hint63133_ - _seed63134_))) - _g64758_)) + _size-hint63130_ + _seed63131_))) + _g64755_)) (else (##raise-wrong-number-of-arguments-exception make-class-specializer-table - _g64758_)))))) + _g64755_)))))) (define class-specializer-table-ref - (lambda (_tab63074_ _key63075_ _default63076_) - (let ((_table63078_ - (let () (declare (not safe)) (&raw-table-table _tab63074_))) - (_seed63079_ - (let () (declare (not safe)) (&raw-table-seed _tab63074_)))) - (let* ((_h63081_ + (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_ (fxxor (let () (declare (not safe)) - (__class-specializer-hash-key _key63075_)) - _seed63079_)) - (_size63084_ (vector-length _table63078_)) - (_entries63087_ (fxquotient _size63084_ '2)) - (_start63090_ + (__class-specializer-hash-key _key63072_)) + _seed63076_)) + (_size63081_ (vector-length _table63075_)) + (_entries63084_ (fxquotient _size63081_ '2)) + (_start63087_ (fxarithmetic-shift-left - (fxmodulo _h63081_ _entries63087_) + (fxmodulo _h63078_ _entries63084_) '1))) - (let _loop63094_ ((_probe63097_ _start63090_) - (_i63099_ '1) - (_deleted63101_ '#f)) - (let ((_k63104_ (vector-ref _table63078_ _probe63097_))) - (if (let ((__tmp64765 (macro-unused-obj))) + (let _loop63091_ ((_probe63094_ _start63087_) + (_i63096_ '1) + (_deleted63098_ '#f)) + (let ((_k63101_ (vector-ref _table63075_ _probe63094_))) + (if (let ((__tmp64762 (macro-unused-obj))) (declare (not safe)) - (eq? _k63104_ __tmp64765)) - _default63076_ - (if (let ((__tmp64764 (macro-deleted-obj))) + (eq? _k63101_ __tmp64762)) + _default63073_ + (if (let ((__tmp64761 (macro-deleted-obj))) (declare (not safe)) - (eq? _k63104_ __tmp64764)) - (let ((__tmp64763 - (let ((_next-probe63107_ - (fx+ _start63090_ - _i63099_ - (fx* _i63099_ _i63099_)))) - (fxmodulo _next-probe63107_ _size63084_))) - (__tmp64762 (fx+ _i63099_ '1)) - (__tmp64761 - (let ((_$e63110_ _deleted63101_)) - (if _$e63110_ _$e63110_ _probe63097_)))) + (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_)))) (declare (not safe)) - (_loop63094_ __tmp64763 __tmp64762 __tmp64761)) + (_loop63091_ __tmp64760 __tmp64759 __tmp64758)) (if (let () (declare (not safe)) - (eq? _key63075_ _k63104_)) - (vector-ref _table63078_ (fx+ _probe63097_ '1)) - (let ((__tmp64760 - (let ((_next-probe63113_ - (fx+ _start63090_ - _i63099_ - (fx* _i63099_ _i63099_)))) - (fxmodulo _next-probe63113_ _size63084_))) - (__tmp64759 (fx+ _i63099_ '1))) + (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))) (declare (not safe)) - (_loop63094_ - __tmp64760 - __tmp64759 - _deleted63101_))))))))))) + (_loop63091_ + __tmp64757 + __tmp64756 + _deleted63098_))))))))))) (define class-specializer-table-set! - (lambda (_tab63070_ _key63071_ _value63072_) - (if (fx< (let () (declare (not safe)) (&raw-table-free _tab63070_)) + (lambda (_tab63067_ _key63068_ _value63069_) + (if (fx< (let () (declare (not safe)) (&raw-table-free _tab63067_)) (fxquotient (vector-length - (let () (declare (not safe)) (&raw-table-table _tab63070_))) + (let () (declare (not safe)) (&raw-table-table _tab63067_))) '4)) - (let () (declare (not safe)) (__raw-table-rehash! _tab63070_)) + (let () (declare (not safe)) (__raw-table-rehash! _tab63067_)) '#!void) (let () (declare (not safe)) (__class-specializer-table-set! - _tab63070_ - _key63071_ - _value63072_)))) + _tab63067_ + _key63068_ + _value63069_)))) (define __class-specializer-table-set! - (lambda (_tab63025_ _key63026_ _value63027_) - (let ((_table63030_ - (let () (declare (not safe)) (&raw-table-table _tab63025_))) - (_seed63031_ - (let () (declare (not safe)) (&raw-table-seed _tab63025_)))) - (let* ((_h63033_ + (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_ (fxxor (let () (declare (not safe)) - (__class-specializer-hash-key _key63026_)) - _seed63031_)) - (_size63036_ (vector-length _table63030_)) - (_entries63039_ (fxquotient _size63036_ '2)) - (_start63042_ + (__class-specializer-hash-key _key63023_)) + _seed63028_)) + (_size63033_ (vector-length _table63027_)) + (_entries63036_ (fxquotient _size63033_ '2)) + (_start63039_ (fxarithmetic-shift-left - (fxmodulo _h63033_ _entries63039_) + (fxmodulo _h63030_ _entries63036_) '1))) - (let _loop63046_ ((_probe63049_ _start63042_) - (_i63051_ '1) - (_deleted63053_ '#f)) - (let ((_k63056_ (vector-ref _table63030_ _probe63049_))) - (if (let ((__tmp64775 (macro-unused-obj))) + (let _loop63043_ ((_probe63046_ _start63039_) + (_i63048_ '1) + (_deleted63050_ '#f)) + (let ((_k63053_ (vector-ref _table63027_ _probe63046_))) + (if (let ((__tmp64772 (macro-unused-obj))) (declare (not safe)) - (eq? _k63056_ __tmp64775)) - (if _deleted63053_ + (eq? _k63053_ __tmp64772)) + (if _deleted63050_ (begin - (vector-set! _table63030_ _deleted63053_ _key63026_) + (vector-set! _table63027_ _deleted63050_ _key63023_) (vector-set! - _table63030_ - (fx+ _deleted63053_ '1) - _value63027_) + _table63027_ + (fx+ _deleted63050_ '1) + _value63024_) ((lambda () - (let ((__tmp64774 + (let ((__tmp64771 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab63025_)) + (&raw-table-count _tab63022_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab63025_ - __tmp64774))))) + _tab63022_ + __tmp64771))))) (begin - (vector-set! _table63030_ _probe63049_ _key63026_) + (vector-set! _table63027_ _probe63046_ _key63023_) (vector-set! - _table63030_ - (fx+ _probe63049_ '1) - _value63027_) + _table63027_ + (fx+ _probe63046_ '1) + _value63024_) ((lambda () - (let ((__tmp64772 + (let ((__tmp64769 (fx- (let () (declare (not safe)) - (&raw-table-free _tab63025_)) + (&raw-table-free _tab63022_)) '1))) (declare (not safe)) - (&raw-table-free-set! _tab63025_ __tmp64772)) - (let ((__tmp64773 + (&raw-table-free-set! _tab63022_ __tmp64769)) + (let ((__tmp64770 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab63025_)) + (&raw-table-count _tab63022_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab63025_ - __tmp64773)))))) - (if (let ((__tmp64771 (macro-deleted-obj))) + _tab63022_ + __tmp64770)))))) + (if (let ((__tmp64768 (macro-deleted-obj))) (declare (not safe)) - (eq? _k63056_ __tmp64771)) - (let ((__tmp64770 - (let ((_next-probe63061_ - (fx+ _start63042_ - _i63051_ - (fx* _i63051_ _i63051_)))) - (fxmodulo _next-probe63061_ _size63036_))) - (__tmp64769 (fx+ _i63051_ '1)) - (__tmp64768 - (let ((_$e63064_ _deleted63053_)) - (if _$e63064_ _$e63064_ _probe63049_)))) + (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_)))) (declare (not safe)) - (_loop63046_ __tmp64770 __tmp64769 __tmp64768)) + (_loop63043_ __tmp64767 __tmp64766 __tmp64765)) (if (let () (declare (not safe)) - (eq? _key63026_ _k63056_)) + (eq? _key63023_ _k63053_)) (begin (vector-set! - _table63030_ - _probe63049_ - _key63026_) + _table63027_ + _probe63046_ + _key63023_) (vector-set! - _table63030_ - (fx+ _probe63049_ '1) - _value63027_)) - (let ((__tmp64767 - (let ((_next-probe63067_ - (fx+ _start63042_ - _i63051_ - (fx* _i63051_ _i63051_)))) - (fxmodulo _next-probe63067_ _size63036_))) - (__tmp64766 (fx+ _i63051_ '1))) + _table63027_ + (fx+ _probe63046_ '1) + _value63024_)) + (let ((__tmp64764 + (let ((_next-probe63064_ + (fx+ _start63039_ + _i63048_ + (fx* _i63048_ _i63048_)))) + (fxmodulo _next-probe63064_ _size63033_))) + (__tmp64763 (fx+ _i63048_ '1))) (declare (not safe)) - (_loop63046_ - __tmp64767 - __tmp64766 - _deleted63053_))))))))))) + (_loop63043_ + __tmp64764 + __tmp64763 + _deleted63050_))))))))))) (define class-specializer-table-update! - (lambda (_tab63020_ - _key63021_ - _class-specializer-table-update!63022_ - _default63023_) - (if (fx< (let () (declare (not safe)) (&raw-table-free _tab63020_)) + (lambda (_tab63017_ + _key63018_ + _class-specializer-table-update!63019_ + _default63020_) + (if (fx< (let () (declare (not safe)) (&raw-table-free _tab63017_)) (fxquotient (vector-length - (let () (declare (not safe)) (&raw-table-table _tab63020_))) + (let () (declare (not safe)) (&raw-table-table _tab63017_))) '4)) - (let () (declare (not safe)) (__raw-table-rehash! _tab63020_)) + (let () (declare (not safe)) (__raw-table-rehash! _tab63017_)) '#!void) (let () (declare (not safe)) (__class-specializer-table-update! - _tab63020_ - _key63021_ - _class-specializer-table-update!63022_ - _default63023_)))) + _tab63017_ + _key63018_ + _class-specializer-table-update!63019_ + _default63020_)))) (define __class-specializer-table-update! - (lambda (_tab62974_ - _key62975_ - _class-specializer-table-update!62976_ - _default62977_) - (let ((_table62980_ - (let () (declare (not safe)) (&raw-table-table _tab62974_))) - (_seed62981_ - (let () (declare (not safe)) (&raw-table-seed _tab62974_)))) - (let* ((_h62983_ + (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_ (fxxor (let () (declare (not safe)) - (__class-specializer-hash-key _key62975_)) - _seed62981_)) - (_size62986_ (vector-length _table62980_)) - (_entries62989_ (fxquotient _size62986_ '2)) - (_start62992_ + (__class-specializer-hash-key _key62972_)) + _seed62978_)) + (_size62983_ (vector-length _table62977_)) + (_entries62986_ (fxquotient _size62983_ '2)) + (_start62989_ (fxarithmetic-shift-left - (fxmodulo _h62983_ _entries62989_) + (fxmodulo _h62980_ _entries62986_) '1))) - (let _loop62996_ ((_probe62999_ _start62992_) - (_i63001_ '1) - (_deleted63003_ '#f)) - (let ((_k63006_ (vector-ref _table62980_ _probe62999_))) - (if (let ((__tmp64785 (macro-unused-obj))) + (let _loop62993_ ((_probe62996_ _start62989_) + (_i62998_ '1) + (_deleted63000_ '#f)) + (let ((_k63003_ (vector-ref _table62977_ _probe62996_))) + (if (let ((__tmp64782 (macro-unused-obj))) (declare (not safe)) - (eq? _k63006_ __tmp64785)) - (if _deleted63003_ + (eq? _k63003_ __tmp64782)) + (if _deleted63000_ (begin - (vector-set! _table62980_ _deleted63003_ _key62975_) + (vector-set! _table62977_ _deleted63000_ _key62972_) (vector-set! - _table62980_ - (fx+ _deleted63003_ '1) - (_class-specializer-table-update!62976_ - _default62977_)) + _table62977_ + (fx+ _deleted63000_ '1) + (_class-specializer-table-update!62973_ + _default62974_)) ((lambda () - (let ((__tmp64784 + (let ((__tmp64781 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab62974_)) + (&raw-table-count _tab62971_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab62974_ - __tmp64784))))) + _tab62971_ + __tmp64781))))) (begin - (vector-set! _table62980_ _probe62999_ _key62975_) + (vector-set! _table62977_ _probe62996_ _key62972_) (vector-set! - _table62980_ - (fx+ _probe62999_ '1) - (_class-specializer-table-update!62976_ - _default62977_)) + _table62977_ + (fx+ _probe62996_ '1) + (_class-specializer-table-update!62973_ + _default62974_)) ((lambda () - (let ((__tmp64782 + (let ((__tmp64779 (fx- (let () (declare (not safe)) - (&raw-table-free _tab62974_)) + (&raw-table-free _tab62971_)) '1))) (declare (not safe)) - (&raw-table-free-set! _tab62974_ __tmp64782)) - (let ((__tmp64783 + (&raw-table-free-set! _tab62971_ __tmp64779)) + (let ((__tmp64780 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab62974_)) + (&raw-table-count _tab62971_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab62974_ - __tmp64783)))))) - (if (let ((__tmp64781 (macro-deleted-obj))) + _tab62971_ + __tmp64780)))))) + (if (let ((__tmp64778 (macro-deleted-obj))) (declare (not safe)) - (eq? _k63006_ __tmp64781)) - (let ((__tmp64780 - (let ((_next-probe63011_ - (fx+ _start62992_ - _i63001_ - (fx* _i63001_ _i63001_)))) - (fxmodulo _next-probe63011_ _size62986_))) - (__tmp64779 (fx+ _i63001_ '1)) - (__tmp64778 - (let ((_$e63014_ _deleted63003_)) - (if _$e63014_ _$e63014_ _probe62999_)))) + (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_)))) (declare (not safe)) - (_loop62996_ __tmp64780 __tmp64779 __tmp64778)) + (_loop62993_ __tmp64777 __tmp64776 __tmp64775)) (if (let () (declare (not safe)) - (eq? _key62975_ _k63006_)) + (eq? _key62972_ _k63003_)) (begin (vector-set! - _table62980_ - _probe62999_ - _key62975_) + _table62977_ + _probe62996_ + _key62972_) (vector-set! - _table62980_ - (fx+ _probe62999_ '1) - (_class-specializer-table-update!62976_ + _table62977_ + (fx+ _probe62996_ '1) + (_class-specializer-table-update!62973_ (vector-ref - _table62980_ - (fx+ _probe62999_ '1))))) - (let ((__tmp64777 - (let ((_next-probe63017_ - (fx+ _start62992_ - _i63001_ - (fx* _i63001_ _i63001_)))) - (fxmodulo _next-probe63017_ _size62986_))) - (__tmp64776 (fx+ _i63001_ '1))) + _table62977_ + (fx+ _probe62996_ '1))))) + (let ((__tmp64774 + (let ((_next-probe63014_ + (fx+ _start62989_ + _i62998_ + (fx* _i62998_ _i62998_)))) + (fxmodulo _next-probe63014_ _size62983_))) + (__tmp64773 (fx+ _i62998_ '1))) (declare (not safe)) - (_loop62996_ - __tmp64777 - __tmp64776 - _deleted63003_))))))))))) + (_loop62993_ + __tmp64774 + __tmp64773 + _deleted63000_))))))))))) (define class-specializer-table-delete! - (lambda (_tab62933_ _key62935_) - (let ((_table62938_ - (let () (declare (not safe)) (&raw-table-table _tab62933_))) - (_seed62940_ - (let () (declare (not safe)) (&raw-table-seed _tab62933_)))) - (let* ((_h62943_ + (lambda (_tab62930_ _key62932_) + (let ((_table62935_ + (let () (declare (not safe)) (&raw-table-table _tab62930_))) + (_seed62937_ + (let () (declare (not safe)) (&raw-table-seed _tab62930_)))) + (let* ((_h62940_ (fxxor (let () (declare (not safe)) - (__class-specializer-hash-key _key62935_)) - _seed62940_)) - (_size62946_ (vector-length _table62938_)) - (_entries62949_ (fxquotient _size62946_ '2)) - (_start62952_ + (__class-specializer-hash-key _key62932_)) + _seed62937_)) + (_size62943_ (vector-length _table62935_)) + (_entries62946_ (fxquotient _size62943_ '2)) + (_start62949_ (fxarithmetic-shift-left - (fxmodulo _h62943_ _entries62949_) + (fxmodulo _h62940_ _entries62946_) '1))) - (let _loop62956_ ((_probe62959_ _start62952_) (_i62961_ '1)) - (let ((_k62964_ (vector-ref _table62938_ _probe62959_))) - (if (let ((__tmp64792 (macro-unused-obj))) + (let _loop62953_ ((_probe62956_ _start62949_) (_i62958_ '1)) + (let ((_k62961_ (vector-ref _table62935_ _probe62956_))) + (if (let ((__tmp64789 (macro-unused-obj))) (declare (not safe)) - (eq? _k62964_ __tmp64792)) + (eq? _k62961_ __tmp64789)) '#!void - (if (let ((__tmp64791 (macro-deleted-obj))) + (if (let ((__tmp64788 (macro-deleted-obj))) (declare (not safe)) - (eq? _k62964_ __tmp64791)) - (let ((__tmp64790 - (let ((_next-probe62967_ - (fx+ _start62952_ - _i62961_ - (fx* _i62961_ _i62961_)))) - (fxmodulo _next-probe62967_ _size62946_))) - (__tmp64789 (fx+ _i62961_ '1))) + (eq? _k62961_ __tmp64788)) + (let ((__tmp64787 + (let ((_next-probe62964_ + (fx+ _start62949_ + _i62958_ + (fx* _i62958_ _i62958_)))) + (fxmodulo _next-probe62964_ _size62943_))) + (__tmp64786 (fx+ _i62958_ '1))) (declare (not safe)) - (_loop62956_ __tmp64790 __tmp64789)) + (_loop62953_ __tmp64787 __tmp64786)) (if (let () (declare (not safe)) - (eq? _key62935_ _k62964_)) + (eq? _key62932_ _k62961_)) (begin (vector-set! - _table62938_ - _probe62959_ + _table62935_ + _probe62956_ (macro-deleted-obj)) (vector-set! - _table62938_ - (fx+ _probe62959_ '1) + _table62935_ + (fx+ _probe62956_ '1) (macro-absent-obj)) ((lambda () - (let ((__tmp64788 + (let ((__tmp64785 (fx- (let () (declare (not safe)) - (&raw-table-count _tab62933_)) + (&raw-table-count _tab62930_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab62933_ - __tmp64788))))) - (let ((__tmp64787 - (let ((_next-probe62971_ - (fx+ _start62952_ - _i62961_ - (fx* _i62961_ _i62961_)))) - (fxmodulo _next-probe62971_ _size62946_))) - (__tmp64786 (fx+ _i62961_ '1))) + _tab62930_ + __tmp64785))))) + (let ((__tmp64784 + (let ((_next-probe62968_ + (fx+ _start62949_ + _i62958_ + (fx* _i62958_ _i62958_)))) + (fxmodulo _next-probe62968_ _size62943_))) + (__tmp64783 (fx+ _i62958_ '1))) (declare (not safe)) - (_loop62956_ __tmp64787 __tmp64786))))))))))) + (_loop62953_ __tmp64784 __tmp64783))))))))))) (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 (_klass62926_) - (let ((_$e62928_ + (lambda (_klass62923_) + (let ((_$e62925_ (let () (declare (not safe)) - (__lookup-class-specializer _klass62926_)))) - (if _$e62928_ - _$e62928_ - (let ((_method-table62931_ + (__lookup-class-specializer _klass62923_)))) + (if _$e62925_ + _$e62925_ + (let ((_method-table62928_ (let () (declare (not safe)) - (__specialize-class _klass62926_)))) + (__specialize-class _klass62923_)))) (let () (declare (not safe)) - (__bind-class-specializer! _klass62926_ _method-table62931_)) - _method-table62931_))))) + (__bind-class-specializer! _klass62923_ _method-table62928_)) + _method-table62928_))))) (define __lookup-class-specializer - (lambda (_klass62916_) + (lambda (_klass62913_) (let () (declare (not interrupts-enabled)) - (let _again62920_ () - (if (let ((__tmp64793 + (let _again62917_ () + (if (let ((__tmp64790 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp64793 '0)) + (##fx= __tmp64790 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () (declare (not safe)) (_again62920_)))))) - (let ((_method-table62924_ + (let () (declare (not safe)) (_again62917_)))))) + (let ((_method-table62921_ (let () (declare (not safe)) (class-specializer-table-ref __class-specializers - _klass62916_ + _klass62913_ '#f)))) (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '0 '1)) - _method-table62924_))) + _method-table62921_))) (define __bind-class-specializer! - (lambda (_klass62907_ _method-table62908_) + (lambda (_klass62904_ _method-table62905_) (let () (declare (not interrupts-enabled)) - (let _again62912_ () - (if (let ((__tmp64794 + (let _again62909_ () + (if (let ((__tmp64791 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp64794 '0)) + (##fx= __tmp64791 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () (declare (not safe)) (_again62912_)))))) + (let () (declare (not safe)) (_again62909_)))))) (let () (declare (not safe)) (class-specializer-table-set! __class-specializers - _klass62907_ - _method-table62908_)) + _klass62904_ + _method-table62905_)) (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '0 '1)))) (define __specialize-method - (lambda (_klass62892_ _method-table62893_ _method62894_ _proc62895_) - (let ((_$e62897_ + (lambda (_klass62889_ _method-table62890_ _method62891_ _proc62892_) + (let ((_$e62894_ (let () (declare (not safe)) - (symbolic-table-ref _method-table62893_ _method62894_ '#f)))) - (if _$e62897_ - _$e62897_ - (let ((_$e62900_ + (symbolic-table-ref _method-table62890_ _method62891_ '#f)))) + (if _$e62894_ + _$e62894_ + (let ((_$e62897_ (let () (declare (not safe)) - (__lookup-method-specializer _proc62895_)))) - (if _$e62900_ - ((lambda (_specialize62903_) - (let ((_specialized-proc62905_ - (_specialize62903_ - _klass62892_ - _method-table62893_))) + (__lookup-method-specializer _proc62892_)))) + (if _$e62897_ + ((lambda (_specialize62900_) + (let ((_specialized-proc62902_ + (_specialize62900_ + _klass62889_ + _method-table62890_))) (declare (not safe)) (symbolic-table-set! - _method-table62893_ - _method62894_ - _specialized-proc62905_))) - _$e62900_) + _method-table62890_ + _method62891_ + _specialized-proc62902_))) + _$e62897_) (let () (declare (not safe)) (symbolic-table-set! - _method-table62893_ - _method62894_ - _proc62895_)))))))) + _method-table62890_ + _method62891_ + _proc62892_)))))))) (define __specialize-class - (lambda (_klass62819_) - (if (let ((__tmp64800 + (lambda (_klass62816_) + (if (let ((__tmp64797 (let () (declare (not safe)) (##structure-instance-of? - _klass62819_ + _klass62816_ 'gerbil#class::t)))) (declare (not safe)) - (not __tmp64800)) - (if (let () (declare (not safe)) (##type? _klass62819_)) - (let ((_method-table62821_ + (not __tmp64797)) + (if (let () (declare (not safe)) (##type? _klass62816_)) + (let ((_method-table62818_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _loop62823_ ((_xklass62825_ _klass62819_)) - (if _xklass62825_ + (let _loop62820_ ((_xklass62822_ _klass62816_)) + (if _xklass62822_ (begin - (let ((_xmethod-table6282662828_ - (let ((__tmp64797 + (let ((_xmethod-table6282362825_ + (let ((__tmp64794 (let () (declare (not safe)) - (##type-id _xklass62825_)))) + (##type-id _xklass62822_)))) (declare (not safe)) (symbolic-table-ref __builtin-type-methods - __tmp64797 + __tmp64794 '#f)))) - (if _xmethod-table6282662828_ - (let* ((_xmethod-table62831_ - _xmethod-table6282662828_) - (__tmp64798 - (lambda (_g6283262835_ _g6283362837_) + (if _xmethod-table6282362825_ + (let* ((_xmethod-table62828_ + _xmethod-table6282362825_) + (__tmp64795 + (lambda (_g6282962832_ _g6283062834_) (let () (declare (not safe)) (__specialize-method - _klass62819_ - _method-table62821_ - _g6283262835_ - _g6283362837_))))) + _klass62816_ + _method-table62818_ + _g6282962832_ + _g6283062834_))))) (declare (not safe)) (raw-table-for-each - _xmethod-table62831_ - __tmp64798)) + _xmethod-table62828_ + __tmp64795)) '#f)) - (let ((__tmp64799 + (let ((__tmp64796 (let () (declare (not safe)) - (##type-super _xklass62825_)))) + (##type-super _xklass62822_)))) (declare (not safe)) - (_loop62823_ __tmp64799))) + (_loop62820_ __tmp64796))) '#!void)) - _method-table62821_) + _method-table62818_) (let () (declare (not safe)) - (error '"bad class; cannot specialize" _klass62819_))) + (error '"bad class; cannot specialize" _klass62816_))) (if (let () (declare (not safe)) - (class-type-metaclass? _klass62819_)) - (let ((__method64595 + (class-type-metaclass? _klass62816_)) + (let ((__method64592 (let () (declare (not safe)) - (method-ref _klass62819_ 'specialize-class)))) - (if __method64595 - (__method64595 _klass62819_) + (method-ref _klass62816_ 'specialize-class)))) + (if __method64592 + (__method64592 _klass62816_) (let () (declare (not safe)) (error '"Missing method" - _klass62819_ + _klass62816_ 'specialize-class)))) - (if (let ((__tmp64796 + (if (let ((__tmp64793 (let () (declare (not safe)) (##unchecked-structure-ref - _klass62819_ + _klass62816_ '6 class::t '#f)))) (declare (not safe)) - (find class-type-metaclass? __tmp64796)) + (find class-type-metaclass? __tmp64793)) (let () (declare (not safe)) (error '"cannot specialize class that extends metaclass without a metaclass" - _klass62819_)) - (let ((_method-table62840_ + _klass62816_)) + (let ((_method-table62837_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _loop62842_ ((_rest62844_ + (let _loop62839_ ((_rest62841_ (let () (declare (not safe)) (class-precedence-list - _klass62819_)))) - (let* ((_rest6284562853_ _rest62844_) - (_else6284762861_ - (lambda () _method-table62840_)) - (_K6284962880_ - (lambda (_rest62864_ _xklass62865_) - (let ((_xmethod-table6286662868_ + _klass62816_)))) + (let* ((_rest6284262850_ _rest62841_) + (_else6284462858_ + (lambda () _method-table62837_)) + (_K6284662877_ + (lambda (_rest62861_ _xklass62862_) + (let ((_xmethod-table6286362865_ (let () (declare (not safe)) (##unchecked-structure-ref - _xklass62865_ + _xklass62862_ '11 class::t '#f)))) - (if _xmethod-table6286662868_ - (let* ((_xmethod-table62871_ - _xmethod-table6286662868_) - (__tmp64795 - (lambda (_g6287262875_ - _g6287362877_) + (if _xmethod-table6286362865_ + (let* ((_xmethod-table62868_ + _xmethod-table6286362865_) + (__tmp64792 + (lambda (_g6286962872_ + _g6287062874_) (let () (declare (not safe)) (__specialize-method - _klass62819_ - _method-table62840_ - _g6287262875_ - _g6287362877_))))) + _klass62816_ + _method-table62837_ + _g6286962872_ + _g6287062874_))))) (declare (not safe)) (raw-table-for-each - _xmethod-table62871_ - __tmp64795)) + _xmethod-table62868_ + __tmp64792)) '#f)) (let () (declare (not safe)) - (_loop62842_ _rest62864_))))) + (_loop62839_ _rest62861_))))) (if (let () (declare (not safe)) - (##pair? _rest6284562853_)) - (let ((_hd6285062883_ + (##pair? _rest6284262850_)) + (let ((_hd6284762880_ (let () (declare (not safe)) - (##car _rest6284562853_))) - (_tl6285162885_ + (##car _rest6284262850_))) + (_tl6284862882_ (let () (declare (not safe)) - (##cdr _rest6284562853_)))) - (let* ((_xklass62888_ _hd6285062883_) - (_rest62890_ _tl6285162885_)) + (##cdr _rest6284262850_)))) + (let* ((_xklass62885_ _hd6284762880_) + (_rest62887_ _tl6284862882_)) (declare (not safe)) - (_K6284962880_ _rest62890_ _xklass62888_))) + (_K6284662877_ _rest62887_ _xklass62885_))) (let () (declare (not safe)) - (_else6284762861_))))))))))) + (_else6284462858_))))))))))) (define seal-class! - (lambda (_klass62815_) + (lambda (_klass62812_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass62815_ 'gerbil#class::t)) - (if (let () (declare (not safe)) (class-type-sealed? _klass62815_)) + (##structure-instance-of? _klass62812_ 'gerbil#class::t)) + (if (let () (declare (not safe)) (class-type-sealed? _klass62812_)) '#!void (begin (if (let () (declare (not safe)) - (class-type-final? _klass62815_)) + (class-type-final? _klass62812_)) '#!void (let () (declare (not safe)) - (error '"cannot seal non-final class" _klass62815_))) + (error '"cannot seal non-final class" _klass62812_))) (if (let () (declare (not safe)) - (class-type-metaclass? _klass62815_)) - (let ((__method64596 + (class-type-metaclass? _klass62812_)) + (let ((__method64593 (let () (declare (not safe)) - (method-ref _klass62815_ 'seal-class!)))) - (if __method64596 - (__method64596 _klass62815_) + (method-ref _klass62812_ 'seal-class!)))) + (if __method64593 + (__method64593 _klass62812_) (let () (declare (not safe)) (error '"Missing method" - _klass62815_ + _klass62812_ 'seal-class!)))) - (if (let ((__tmp64801 + (if (let ((__tmp64798 (let () (declare (not safe)) (##unchecked-structure-ref - _klass62815_ + _klass62812_ '6 class::t '#f)))) (declare (not safe)) - (find class-type-metaclass? __tmp64801)) + (find class-type-metaclass? __tmp64798)) (let () (declare (not safe)) (error '"cannot seal class that extends metaclass without a metaclass" - _klass62815_)) - (let ((_method-table62817_ + _klass62812_)) + (let ((_method-table62814_ (let () (declare (not safe)) - (specialize-class _klass62815_)))) + (specialize-class _klass62812_)))) (declare (not safe)) (##unchecked-structure-set! - _klass62815_ - _method-table62817_ + _klass62812_ + _method-table62814_ '11 class::t '#f)))) (let () (declare (not safe)) - (&class-type-seal! _klass62815_)))) + (&class-type-seal! _klass62812_)))) '#!void))) (define next-method - (lambda (_subklass62764_ _obj62765_ _id62766_) - (let ((_klass62768_ (object-type _obj62765_)) - (_type-id62769_ - (let () (declare (not safe)) (##type-id _subklass62764_)))) + (lambda (_subklass62761_ _obj62762_ _id62763_) + (let ((_klass62765_ (object-type _obj62762_)) + (_type-id62766_ + (let () (declare (not safe)) (##type-id _subklass62761_)))) (if (let () (declare (not safe)) - (##structure-instance-of? _klass62768_ 'gerbil#class::t)) - (let _lp62771_ ((_rest62773_ + (##structure-instance-of? _klass62765_ 'gerbil#class::t)) + (let _lp62768_ ((_rest62770_ (let () (declare (not safe)) - (class-precedence-list _klass62768_)))) - (let* ((_rest6277462782_ _rest62773_) - (_else6277662790_ (lambda () '#f)) - (_K6277862796_ - (lambda (_rest62793_ _klass62794_) - (if (let ((__tmp64804 + (class-precedence-list _klass62765_)))) + (let* ((_rest6277162779_ _rest62770_) + (_else6277362787_ (lambda () '#f)) + (_K6277562793_ + (lambda (_rest62790_ _klass62791_) + (if (let ((__tmp64801 (let () (declare (not safe)) - (##type-id _klass62794_)))) + (##type-id _klass62791_)))) (declare (not safe)) - (eq? _type-id62769_ __tmp64804)) + (eq? _type-id62766_ __tmp64801)) (let () (declare (not safe)) (mixin-find-method - _rest62793_ - _obj62765_ - _id62766_)) + _rest62790_ + _obj62762_ + _id62763_)) (let () (declare (not safe)) - (_lp62771_ _rest62793_)))))) - (if (let () (declare (not safe)) (##pair? _rest6277462782_)) - (let ((_hd6277962799_ + (_lp62768_ _rest62790_)))))) + (if (let () (declare (not safe)) (##pair? _rest6277162779_)) + (let ((_hd6277662796_ (let () (declare (not safe)) - (##car _rest6277462782_))) - (_tl6278062801_ + (##car _rest6277162779_))) + (_tl6277762798_ (let () (declare (not safe)) - (##cdr _rest6277462782_)))) - (let* ((_klass62804_ _hd6277962799_) - (_rest62806_ _tl6278062801_)) + (##cdr _rest6277162779_)))) + (let* ((_klass62801_ _hd6277662796_) + (_rest62803_ _tl6277762798_)) (declare (not safe)) - (_K6277862796_ _rest62806_ _klass62804_))) - (let () (declare (not safe)) (_else6277662790_))))) - (if (let () (declare (not safe)) (##type? _klass62768_)) - (let _lp62808_ ((_klass62810_ _klass62768_)) - (if (let ((__tmp64803 + (_K6277562793_ _rest62803_ _klass62801_))) + (let () (declare (not safe)) (_else6277362787_))))) + (if (let () (declare (not safe)) (##type? _klass62765_)) + (let _lp62805_ ((_klass62807_ _klass62765_)) + (if (let ((__tmp64800 (let () (declare (not safe)) - (##type-id _klass62810_)))) + (##type-id _klass62807_)))) (declare (not safe)) - (eq? _type-id62769_ __tmp64803)) - (let ((__tmp64802 + (eq? _type-id62766_ __tmp64800)) + (let ((__tmp64799 (let () (declare (not safe)) - (##type-super _klass62810_)))) + (##type-super _klass62807_)))) (declare (not safe)) (builtin-find-method - __tmp64802 - _obj62765_ - _id62766_)) - (let ((_$e62812_ + __tmp64799 + _obj62762_ + _id62763_)) + (let ((_$e62809_ (let () (declare (not safe)) - (##type-super _klass62810_)))) - (if _$e62812_ + (##type-super _klass62807_)))) + (if _$e62809_ (let () (declare (not safe)) - (_lp62808_ _$e62812_)) + (_lp62805_ _$e62809_)) '#f)))) '#f))))) (define call-next-method - (lambda (_subklass62754_ _obj62755_ _id62756_ . _args62757_) - (let ((_$e62759_ + (lambda (_subklass62751_ _obj62752_ _id62753_ . _args62754_) + (let ((_$e62756_ (let () (declare (not safe)) - (next-method _subklass62754_ _obj62755_ _id62756_)))) - (if _$e62759_ - ((lambda (_methodf62762_) - (apply _methodf62762_ _obj62755_ _args62757_)) - _$e62759_) + (next-method _subklass62751_ _obj62752_ _id62753_)))) + (if _$e62756_ + ((lambda (_methodf62759_) + (apply _methodf62759_ _obj62752_ _args62754_)) + _$e62756_) (let () (declare (not safe)) (error '"cannot find next method" 'object: - _obj62755_ + _obj62752_ 'method: - _id62756_)))))) - (define write-style (lambda (_we62752_) (macro-writeenv-style _we62752_))) + _id62753_)))))) + (define write-style (lambda (_we62749_) (macro-writeenv-style _we62749_))) (define write-object - (lambda (_we62744_ _obj62745_) - (let ((_$e62747_ - (let () (declare (not safe)) (method-ref _obj62745_ ':wr)))) - (if _$e62747_ - ((lambda (_method62750_) (_method62750_ _obj62745_ _we62744_)) - _$e62747_) + (lambda (_we62741_ _obj62742_) + (let ((_$e62744_ + (let () (declare (not safe)) (method-ref _obj62742_ ':wr)))) + (if _$e62744_ + ((lambda (_method62747_) (_method62747_ _obj62742_ _we62741_)) + _$e62744_) (let () (declare (not safe)) - (##default-wr _we62744_ _obj62745_)))))) + (##default-wr _we62741_ _obj62742_)))))) (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 f928c776..7a324c7d 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 (_$stx61930_) - (let* ((___stx6447164472_ _$stx61930_) - (_g6193561964_ + (lambda (_$stx61927_) + (let* ((___stx6446864469_ _$stx61927_) + (_g6193261961_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx6447164472_)))) - (let ((___kont6447464475_ - (lambda (_L62057_ _L62059_) - (let ((__tmp64811 (gx#datum->syntax '#f '##fx=)) - (__tmp64805 - (let ((__tmp64807 - (let ((__tmp64810 + ___stx6446864469_)))) + (let ((___kont6447164472_ + (lambda (_L62054_ _L62056_) + (let ((__tmp64808 (gx#datum->syntax '#f '##fx=)) + (__tmp64802 + (let ((__tmp64804 + (let ((__tmp64807 (gx#datum->syntax '#f '##fxand)) - (__tmp64808 - (let ((__tmp64809 + (__tmp64805 + (let ((__tmp64806 (let () (declare (not safe)) - (cons _L62057_ '())))) + (cons _L62054_ '())))) (declare (not safe)) - (cons _L62059_ __tmp64809)))) + (cons _L62056_ __tmp64806)))) (declare (not safe)) - (cons __tmp64810 __tmp64808))) - (__tmp64806 + (cons __tmp64807 __tmp64805))) + (__tmp64803 (let () (declare (not safe)) - (cons _L62057_ '())))) + (cons _L62054_ '())))) (declare (not safe)) - (cons __tmp64807 __tmp64806)))) + (cons __tmp64804 __tmp64803)))) (declare (not safe)) - (cons __tmp64811 __tmp64805)))) - (___kont6447664477_ - (lambda (_L62001_ _L62003_) - (let ((__tmp64824 (gx#datum->syntax '#f 'let)) - (__tmp64812 - (let ((__tmp64822 - (let ((__tmp64823 + (cons __tmp64808 __tmp64802)))) + (___kont6447364474_ + (lambda (_L61998_ _L62000_) + (let ((__tmp64821 (gx#datum->syntax '#f 'let)) + (__tmp64809 + (let ((__tmp64819 + (let ((__tmp64820 (let () (declare (not safe)) - (cons _L62001_ '())))) + (cons _L61998_ '())))) (declare (not safe)) - (cons _L62001_ __tmp64823))) - (__tmp64813 - (let ((__tmp64814 - (let ((__tmp64821 + (cons _L61998_ __tmp64820))) + (__tmp64810 + (let ((__tmp64811 + (let ((__tmp64818 (gx#datum->syntax '#f '##fx=)) - (__tmp64815 - (let ((__tmp64817 - (let ((__tmp64820 + (__tmp64812 + (let ((__tmp64814 + (let ((__tmp64817 (gx#datum->syntax '#f '##fxand)) - (__tmp64818 - (let ((__tmp64819 + (__tmp64815 + (let ((__tmp64816 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L62001_ '())))) + (let () (declare (not safe)) (cons _L61998_ '())))) (declare (not safe)) - (cons _L62003_ __tmp64819)))) + (cons _L62000_ __tmp64816)))) (declare (not safe)) - (cons __tmp64820 __tmp64818))) + (cons __tmp64817 __tmp64815))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp64816 + (__tmp64813 (let () (declare (not safe)) - (cons _L62001_ '())))) + (cons _L61998_ '())))) (declare (not safe)) - (cons __tmp64817 __tmp64816)))) + (cons __tmp64814 __tmp64813)))) (declare (not safe)) - (cons __tmp64821 __tmp64815)))) + (cons __tmp64818 __tmp64812)))) (declare (not safe)) - (cons __tmp64814 '())))) + (cons __tmp64811 '())))) (declare (not safe)) - (cons __tmp64822 __tmp64813)))) + (cons __tmp64819 __tmp64810)))) (declare (not safe)) - (cons __tmp64824 __tmp64812))))) - (let ((___match6449864499_ - (lambda (_e6194162027_ - _hd6194062031_ - _tl6193962034_ - _e6194462037_ - _hd6194362041_ - _tl6194262044_ - _e6194762047_ - _hd6194662051_ - _tl6194562054_) - (let ((_L62057_ _hd6194662051_) (_L62059_ _hd6194362041_)) - (if (or (gx#identifier? _L62057_) - (gx#stx-fixnum? _L62057_)) - (___kont6447464475_ _L62057_ _L62059_) - (___kont6447664477_ - _hd6194662051_ - _hd6194362041_)))))) - (if (gx#stx-pair? ___stx6447164472_) - (let ((_e6194162027_ (gx#syntax-e ___stx6447164472_))) - (let ((_tl6193962034_ - (let () (declare (not safe)) (##cdr _e6194162027_))) - (_hd6194062031_ - (let () (declare (not safe)) (##car _e6194162027_)))) - (if (gx#stx-pair? _tl6193962034_) - (let ((_e6194462037_ (gx#syntax-e _tl6193962034_))) - (let ((_tl6194262044_ + (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_ (let () (declare (not safe)) - (##cdr _e6194462037_))) - (_hd6194362041_ + (##cdr _e6194162034_))) + (_hd6194062038_ (let () (declare (not safe)) - (##car _e6194462037_)))) - (if (gx#stx-pair? _tl6194262044_) - (let ((_e6194762047_ - (gx#syntax-e _tl6194262044_))) - (let ((_tl6194562054_ + (##car _e6194162034_)))) + (if (gx#stx-pair? _tl6193962041_) + (let ((_e6194462044_ + (gx#syntax-e _tl6193962041_))) + (let ((_tl6194262051_ (let () (declare (not safe)) - (##cdr _e6194762047_))) - (_hd6194662051_ + (##cdr _e6194462044_))) + (_hd6194362048_ (let () (declare (not safe)) - (##car _e6194762047_)))) - (if (gx#stx-null? _tl6194562054_) - (___match6449864499_ - _e6194162027_ - _hd6194062031_ - _tl6193962034_ - _e6194462037_ - _hd6194362041_ - _tl6194262044_ - _e6194762047_ - _hd6194662051_ - _tl6194562054_) + (##car _e6194462044_)))) + (if (gx#stx-null? _tl6194262051_) + (___match6449564496_ + _e6193862024_ + _hd6193762028_ + _tl6193662031_ + _e6194162034_ + _hd6194062038_ + _tl6193962041_ + _e6194462044_ + _hd6194362048_ + _tl6194262051_) (let () (declare (not safe)) - (_g6193561964_))))) + (_g6193261961_))))) (let () (declare (not safe)) - (_g6193561964_))))) - (let () (declare (not safe)) (_g6193561964_))))) - (let () (declare (not safe)) (_g6193561964_)))))))) + (_g6193261961_))))) + (let () (declare (not safe)) (_g6193261961_))))) + (let () (declare (not safe)) (_g6193261961_)))))))) (define |[:0:]#fxflag-unset?| - (lambda (_$stx62082_) - (let* ((___stx6452164522_ _$stx62082_) - (_g6208762116_ + (lambda (_$stx62079_) + (let* ((___stx6451864519_ _$stx62079_) + (_g6208462113_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx6452164522_)))) - (let ((___kont6452464525_ - (lambda (_L62208_ _L62210_) - (let ((__tmp64831 (gx#datum->syntax '#f '##fx=)) - (__tmp64825 - (let ((__tmp64827 - (let ((__tmp64830 + ___stx6451864519_)))) + (let ((___kont6452164522_ + (lambda (_L62205_ _L62207_) + (let ((__tmp64828 (gx#datum->syntax '#f '##fx=)) + (__tmp64822 + (let ((__tmp64824 + (let ((__tmp64827 (gx#datum->syntax '#f '##fxand)) - (__tmp64828 - (let ((__tmp64829 + (__tmp64825 + (let ((__tmp64826 (let () (declare (not safe)) - (cons _L62208_ '())))) + (cons _L62205_ '())))) (declare (not safe)) - (cons _L62210_ __tmp64829)))) + (cons _L62207_ __tmp64826)))) (declare (not safe)) - (cons __tmp64830 __tmp64828))) - (__tmp64826 + (cons __tmp64827 __tmp64825))) + (__tmp64823 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons __tmp64827 __tmp64826)))) + (cons __tmp64824 __tmp64823)))) (declare (not safe)) - (cons __tmp64831 __tmp64825)))) - (___kont6452664527_ - (lambda (_L62153_ _L62155_) - (let ((__tmp64844 (gx#datum->syntax '#f 'let)) - (__tmp64832 - (let ((__tmp64842 - (let ((__tmp64843 + (cons __tmp64828 __tmp64822)))) + (___kont6452364524_ + (lambda (_L62150_ _L62152_) + (let ((__tmp64841 (gx#datum->syntax '#f 'let)) + (__tmp64829 + (let ((__tmp64839 + (let ((__tmp64840 (let () (declare (not safe)) - (cons _L62153_ '())))) + (cons _L62150_ '())))) (declare (not safe)) - (cons _L62153_ __tmp64843))) - (__tmp64833 - (let ((__tmp64834 - (let ((__tmp64841 + (cons _L62150_ __tmp64840))) + (__tmp64830 + (let ((__tmp64831 + (let ((__tmp64838 (gx#datum->syntax '#f '##fx=)) - (__tmp64835 - (let ((__tmp64837 - (let ((__tmp64840 + (__tmp64832 + (let ((__tmp64834 + (let ((__tmp64837 (gx#datum->syntax '#f '##fxand)) - (__tmp64838 - (let ((__tmp64839 + (__tmp64835 + (let ((__tmp64836 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L62153_ '())))) + (let () (declare (not safe)) (cons _L62150_ '())))) (declare (not safe)) - (cons _L62155_ __tmp64839)))) + (cons _L62152_ __tmp64836)))) (declare (not safe)) - (cons __tmp64840 __tmp64838))) + (cons __tmp64837 __tmp64835))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp64836 + (__tmp64833 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons __tmp64837 __tmp64836)))) + (cons __tmp64834 __tmp64833)))) (declare (not safe)) - (cons __tmp64841 __tmp64835)))) + (cons __tmp64838 __tmp64832)))) (declare (not safe)) - (cons __tmp64834 '())))) + (cons __tmp64831 '())))) (declare (not safe)) - (cons __tmp64842 __tmp64833)))) + (cons __tmp64839 __tmp64830)))) (declare (not safe)) - (cons __tmp64844 __tmp64832))))) - (let ((___match6454864549_ - (lambda (_e6209362178_ - _hd6209262182_ - _tl6209162185_ - _e6209662188_ - _hd6209562192_ - _tl6209462195_ - _e6209962198_ - _hd6209862202_ - _tl6209762205_) - (let ((_L62208_ _hd6209862202_) (_L62210_ _hd6209562192_)) - (if (or (gx#identifier? _L62208_) - (gx#stx-fixnum? _L62208_)) - (___kont6452464525_ _L62208_ _L62210_) - (___kont6452664527_ - _hd6209862202_ - _hd6209562192_)))))) - (if (gx#stx-pair? ___stx6452164522_) - (let ((_e6209362178_ (gx#syntax-e ___stx6452164522_))) - (let ((_tl6209162185_ - (let () (declare (not safe)) (##cdr _e6209362178_))) - (_hd6209262182_ - (let () (declare (not safe)) (##car _e6209362178_)))) - (if (gx#stx-pair? _tl6209162185_) - (let ((_e6209662188_ (gx#syntax-e _tl6209162185_))) - (let ((_tl6209462195_ + (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_ (let () (declare (not safe)) - (##cdr _e6209662188_))) - (_hd6209562192_ + (##cdr _e6209362185_))) + (_hd6209262189_ (let () (declare (not safe)) - (##car _e6209662188_)))) - (if (gx#stx-pair? _tl6209462195_) - (let ((_e6209962198_ - (gx#syntax-e _tl6209462195_))) - (let ((_tl6209762205_ + (##car _e6209362185_)))) + (if (gx#stx-pair? _tl6209162192_) + (let ((_e6209662195_ + (gx#syntax-e _tl6209162192_))) + (let ((_tl6209462202_ (let () (declare (not safe)) - (##cdr _e6209962198_))) - (_hd6209862202_ + (##cdr _e6209662195_))) + (_hd6209562199_ (let () (declare (not safe)) - (##car _e6209962198_)))) - (if (gx#stx-null? _tl6209762205_) - (___match6454864549_ - _e6209362178_ - _hd6209262182_ - _tl6209162185_ - _e6209662188_ - _hd6209562192_ - _tl6209462195_ - _e6209962198_ - _hd6209862202_ - _tl6209762205_) + (##car _e6209662195_)))) + (if (gx#stx-null? _tl6209462202_) + (___match6454564546_ + _e6209062175_ + _hd6208962179_ + _tl6208862182_ + _e6209362185_ + _hd6209262189_ + _tl6209162192_ + _e6209662195_ + _hd6209562199_ + _tl6209462202_) (let () (declare (not safe)) - (_g6208762116_))))) + (_g6208462113_))))) (let () (declare (not safe)) - (_g6208762116_))))) - (let () (declare (not safe)) (_g6208762116_))))) - (let () (declare (not safe)) (_g6208762116_)))))))) + (_g6208462113_))))) + (let () (declare (not safe)) (_g6208462113_))))) + (let () (declare (not safe)) (_g6208462113_)))))))) (define |[:0:]#defrefset| - (lambda (_stx62233_) - (let* ((_g6223662257_ - (lambda (_g6223762253_) + (lambda (_stx62230_) + (let* ((_g6223362254_ + (lambda (_g6223462250_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6223762253_))) - (_g6223562485_ - (lambda (_g6223762261_) - (if (gx#stx-pair? _g6223762261_) - (let ((_e6224262264_ (gx#syntax-e _g6223762261_))) - (let ((_hd6224162268_ + _g6223462250_))) + (_g6223262482_ + (lambda (_g6223462258_) + (if (gx#stx-pair? _g6223462258_) + (let ((_e6223962261_ (gx#syntax-e _g6223462258_))) + (let ((_hd6223862265_ (let () (declare (not safe)) - (##car _e6224262264_))) - (_tl6224062271_ + (##car _e6223962261_))) + (_tl6223762268_ (let () (declare (not safe)) - (##cdr _e6224262264_)))) - (if (gx#stx-pair? _tl6224062271_) - (let ((_e6224562274_ (gx#syntax-e _tl6224062271_))) - (let ((_hd6224462278_ + (##cdr _e6223962261_)))) + (if (gx#stx-pair? _tl6223762268_) + (let ((_e6224262271_ (gx#syntax-e _tl6223762268_))) + (let ((_hd6224162275_ (let () (declare (not safe)) - (##car _e6224562274_))) - (_tl6224362281_ + (##car _e6224262271_))) + (_tl6224062278_ (let () (declare (not safe)) - (##cdr _e6224562274_)))) - (if (gx#stx-pair? _hd6224462278_) - (let ((_e6224862284_ - (gx#syntax-e _hd6224462278_))) - (let ((_hd6224762288_ + (##cdr _e6224262271_)))) + (if (gx#stx-pair? _hd6224162275_) + (let ((_e6224562281_ + (gx#syntax-e _hd6224162275_))) + (let ((_hd6224462285_ (let () (declare (not safe)) - (##car _e6224862284_))) - (_tl6224662291_ + (##car _e6224562281_))) + (_tl6224362288_ (let () (declare (not safe)) - (##cdr _e6224862284_)))) - (if (gx#stx-pair? _tl6224662291_) - (let ((_e6225162294_ + (##cdr _e6224562281_)))) + (if (gx#stx-pair? _tl6224362288_) + (let ((_e6224862291_ (gx#syntax-e - _tl6224662291_))) - (let ((_hd6225062298_ + _tl6224362288_))) + (let ((_hd6224762295_ (let () (declare (not safe)) - (##car _e6225162294_))) - (_tl6224962301_ + (##car _e6224862291_))) + (_tl6224662298_ (let () (declare (not safe)) - (##cdr _e6225162294_)))) + (##cdr _e6224862291_)))) (if (gx#stx-null? - _tl6224962301_) + _tl6224662298_) (if (gx#stx-null? - _tl6224362281_) - ((lambda (_L62304_ + _tl6224062278_) + ((lambda (_L62301_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L62306_) - (let* ((_g6232462332_ - (lambda (_g6232562328_) + _L62303_) + (let* ((_g6232162329_ + (lambda (_g6232262325_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6232562328_))) - (_g6232362481_ - (lambda (_g6232562336_) - ((lambda (_L62339_) + _g6232262325_))) + (_g6232062478_ + (lambda (_g6232262333_) + ((lambda (_L62336_) (let () - (let* ((_g6235162359_ - (lambda (_g6235262355_) + (let* ((_g6234862356_ + (lambda (_g6234962352_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6235262355_))) - (_g6235062477_ - (lambda (_g6235262363_) - ((lambda (_L62366_) + _g6234962352_))) + (_g6234762474_ + (lambda (_g6234962360_) + ((lambda (_L62363_) (let () - (let* ((_g6237962387_ - (lambda (_g6238062383_) + (let* ((_g6237662384_ + (lambda (_g6237762380_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6238062383_))) - (_g6237862473_ - (lambda (_g6238062391_) - ((lambda (_L62394_) + _g6237762380_))) + (_g6237562470_ + (lambda (_g6237762388_) + ((lambda (_L62391_) (let () - (let* ((_g6240762415_ + (let* ((_g6240462412_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g6240862411_) + (lambda (_g6240562408_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6240862411_))) - (_g6240662469_ - (lambda (_g6240862419_) - ((lambda (_L62422_) + _g6240562408_))) + (_g6240362466_ + (lambda (_g6240562416_) + ((lambda (_L62419_) (let () - (let* ((_g6243562443_ - (lambda (_g6243662439_) + (let* ((_g6243262440_ + (lambda (_g6243362436_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6243662439_))) - (_g6243462465_ - (lambda (_g6243662447_) - ((lambda (_L62450_) + _g6243362436_))) + (_g6243162462_ + (lambda (_g6243362444_) + ((lambda (_L62447_) (let () (let () - (let ((__tmp64977 + (let ((__tmp64974 (gx#datum->syntax '#f 'begin)) - (__tmp64845 - (let ((__tmp64947 + (__tmp64842 + (let ((__tmp64944 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64976 (gx#datum->syntax '#f 'def)) - (__tmp64948 - (let ((__tmp64949 - (let ((__tmp64950 - (let ((__tmp64975 + (let ((__tmp64973 (gx#datum->syntax '#f 'def)) + (__tmp64945 + (let ((__tmp64946 + (let ((__tmp64947 + (let ((__tmp64972 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp64951 - (let ((__tmp64970 + (__tmp64948 + (let ((__tmp64967 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64974 + (let ((__tmp64971 (gx#datum->syntax '#f '@mop.accessor)) - (__tmp64971 - (let ((__tmp64972 - (let ((__tmp64973 + (__tmp64968 + (let ((__tmp64969 + (let ((__tmp64970 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) - (cons _L62306_ __tmp64973)))) + (cons _L62303_ __tmp64970)))) (declare (not safe)) - (cons _L62339_ __tmp64972)))) + (cons _L62336_ __tmp64969)))) (declare (not safe)) - (cons __tmp64974 __tmp64971))) - (__tmp64952 - (let ((__tmp64953 - (let ((__tmp64969 + (cons __tmp64971 __tmp64968))) + (__tmp64949 + (let ((__tmp64950 + (let ((__tmp64966 (gx#datum->syntax '#f 'lambda)) - (__tmp64954 - (let ((__tmp64967 - (let ((__tmp64968 + (__tmp64951 + (let ((__tmp64964 + (let ((__tmp64965 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp64968 '()))) - (__tmp64955 - (let ((__tmp64956 - (let ((__tmp64966 + (cons __tmp64965 '()))) + (__tmp64952 + (let ((__tmp64953 + (let ((__tmp64963 (gx#datum->syntax '#f '##structure-ref)) - (__tmp64957 - (let ((__tmp64965 + (__tmp64954 + (let ((__tmp64962 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'klass)) - (__tmp64958 - (let ((__tmp64959 - (let ((__tmp64964 + (__tmp64955 + (let ((__tmp64956 + (let ((__tmp64961 (gx#datum->syntax '#f 'class::t)) - (__tmp64960 - (let ((__tmp64961 - (let ((__tmp64963 + (__tmp64957 + (let ((__tmp64958 + (let ((__tmp64960 (gx#datum->syntax '#f 'quote)) - (__tmp64962 + (__tmp64959 (let () (declare (not safe)) - (cons _L62306_ '())))) + (cons _L62303_ '())))) (declare (not safe)) - (cons __tmp64963 - __tmp64962)))) + (cons __tmp64960 + __tmp64959)))) (declare (not safe)) - (cons __tmp64961 '())))) + (cons __tmp64958 '())))) (declare (not safe)) - (cons __tmp64964 __tmp64960)))) + (cons __tmp64961 __tmp64957)))) (declare (not safe)) - (cons _L62304_ __tmp64959)))) + (cons _L62301_ __tmp64956)))) (declare (not safe)) - (cons __tmp64965 __tmp64958)))) + (cons __tmp64962 __tmp64955)))) (declare (not safe)) - (cons __tmp64966 __tmp64957)))) + (cons __tmp64963 __tmp64954)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64956 '())))) + (cons __tmp64953 '())))) (declare (not safe)) - (cons __tmp64967 __tmp64955)))) + (cons __tmp64964 __tmp64952)))) (declare (not safe)) - (cons __tmp64969 __tmp64954)))) + (cons __tmp64966 __tmp64951)))) (declare (not safe)) - (cons __tmp64953 '())))) + (cons __tmp64950 '())))) (declare (not safe)) - (cons __tmp64970 __tmp64952)))) + (cons __tmp64967 __tmp64949)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64975 - __tmp64951)))) + (cons __tmp64972 + __tmp64948)))) (declare (not safe)) - (cons __tmp64950 '())))) + (cons __tmp64947 '())))) (declare (not safe)) - (cons _L62366_ __tmp64949)))) + (cons _L62363_ __tmp64946)))) (declare (not safe)) - (cons __tmp64976 __tmp64948))) - (__tmp64846 - (let ((__tmp64917 - (let ((__tmp64946 + (cons __tmp64973 __tmp64945))) + (__tmp64843 + (let ((__tmp64914 + (let ((__tmp64943 (gx#datum->syntax '#f 'def)) - (__tmp64918 - (let ((__tmp64919 - (let ((__tmp64920 - (let ((__tmp64945 + (__tmp64915 + (let ((__tmp64916 + (let ((__tmp64917 + (let ((__tmp64942 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin-annotation)) - (__tmp64921 - (let ((__tmp64940 - (let ((__tmp64944 + (__tmp64918 + (let ((__tmp64937 + (let ((__tmp64941 (gx#datum->syntax '#f '@mop.accessor)) - (__tmp64941 - (let ((__tmp64942 - (let ((__tmp64943 + (__tmp64938 + (let ((__tmp64939 + (let ((__tmp64940 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L62306_ __tmp64943)))) + (cons _L62303_ __tmp64940)))) (declare (not safe)) - (cons _L62339_ __tmp64942)))) + (cons _L62336_ __tmp64939)))) (declare (not safe)) - (cons __tmp64944 __tmp64941))) - (__tmp64922 - (let ((__tmp64923 - (let ((__tmp64939 + (cons __tmp64941 __tmp64938))) + (__tmp64919 + (let ((__tmp64920 + (let ((__tmp64936 (gx#datum->syntax '#f 'lambda)) - (__tmp64924 - (let ((__tmp64937 - (let ((__tmp64938 + (__tmp64921 + (let ((__tmp64934 + (let ((__tmp64935 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp64938 '()))) - (__tmp64925 - (let ((__tmp64926 - (let ((__tmp64936 + (cons __tmp64935 '()))) + (__tmp64922 + (let ((__tmp64923 + (let ((__tmp64933 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##unchecked-structure-ref)) - (__tmp64927 - (let ((__tmp64935 (gx#datum->syntax '#f 'klass)) - (__tmp64928 - (let ((__tmp64929 - (let ((__tmp64934 + (__tmp64924 + (let ((__tmp64932 (gx#datum->syntax '#f 'klass)) + (__tmp64925 + (let ((__tmp64926 + (let ((__tmp64931 (gx#datum->syntax '#f 'class::t)) - (__tmp64930 - (let ((__tmp64931 - (let ((__tmp64933 + (__tmp64927 + (let ((__tmp64928 + (let ((__tmp64930 (gx#datum->syntax '#f 'quote)) - (__tmp64932 + (__tmp64929 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L62306_ '())))) + (cons _L62303_ '())))) (declare (not safe)) - (cons __tmp64933 __tmp64932)))) + (cons __tmp64930 __tmp64929)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64931 '())))) + (cons __tmp64928 '())))) (declare (not safe)) - (cons __tmp64934 __tmp64930)))) + (cons __tmp64931 __tmp64927)))) (declare (not safe)) - (cons _L62304_ __tmp64929)))) + (cons _L62301_ __tmp64926)))) (declare (not safe)) - (cons __tmp64935 __tmp64928)))) + (cons __tmp64932 __tmp64925)))) (declare (not safe)) - (cons __tmp64936 __tmp64927)))) + (cons __tmp64933 __tmp64924)))) (declare (not safe)) - (cons __tmp64926 '())))) + (cons __tmp64923 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64937 __tmp64925)))) + (cons __tmp64934 __tmp64922)))) (declare (not safe)) - (cons __tmp64939 __tmp64924)))) + (cons __tmp64936 __tmp64921)))) (declare (not safe)) - (cons __tmp64923 '())))) + (cons __tmp64920 '())))) (declare (not safe)) - (cons __tmp64940 __tmp64922)))) + (cons __tmp64937 __tmp64919)))) (declare (not safe)) - (cons __tmp64945 __tmp64921)))) + (cons __tmp64942 __tmp64918)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64920 '())))) + (cons __tmp64917 '())))) (declare (not safe)) - (cons _L62394_ __tmp64919)))) + (cons _L62391_ __tmp64916)))) (declare (not safe)) - (cons __tmp64946 __tmp64918))) - (__tmp64847 - (let ((__tmp64883 - (let ((__tmp64916 + (cons __tmp64943 __tmp64915))) + (__tmp64844 + (let ((__tmp64880 + (let ((__tmp64913 (gx#datum->syntax '#f 'def)) - (__tmp64884 - (let ((__tmp64885 - (let ((__tmp64886 + (__tmp64881 + (let ((__tmp64882 + (let ((__tmp64883 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64915 + (let ((__tmp64912 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp64887 - (let ((__tmp64910 - (let ((__tmp64914 + (__tmp64884 + (let ((__tmp64907 + (let ((__tmp64911 (gx#datum->syntax '#f '@mop.mutator)) - (__tmp64911 - (let ((__tmp64912 - (let ((__tmp64913 + (__tmp64908 + (let ((__tmp64909 + (let ((__tmp64910 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) - (cons _L62306_ - __tmp64913)))) + (cons _L62303_ + __tmp64910)))) (declare (not safe)) - (cons _L62339_ __tmp64912)))) + (cons _L62336_ __tmp64909)))) (declare (not safe)) - (cons __tmp64914 __tmp64911))) - (__tmp64888 - (let ((__tmp64889 - (let ((__tmp64909 + (cons __tmp64911 __tmp64908))) + (__tmp64885 + (let ((__tmp64886 + (let ((__tmp64906 (gx#datum->syntax '#f 'lambda)) - (__tmp64890 - (let ((__tmp64905 - (let ((__tmp64908 + (__tmp64887 + (let ((__tmp64902 + (let ((__tmp64905 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'klass)) - (__tmp64906 - (let ((__tmp64907 (gx#datum->syntax '#f 'val))) + (__tmp64903 + (let ((__tmp64904 (gx#datum->syntax '#f 'val))) (declare (not safe)) - (cons __tmp64907 '())))) + (cons __tmp64904 '())))) (declare (not safe)) - (cons __tmp64908 __tmp64906))) - (__tmp64891 - (let ((__tmp64892 - (let ((__tmp64904 + (cons __tmp64905 __tmp64903))) + (__tmp64888 + (let ((__tmp64889 + (let ((__tmp64901 (gx#datum->syntax '#f '##structure-set!)) - (__tmp64893 - (let ((__tmp64903 + (__tmp64890 + (let ((__tmp64900 (gx#datum->syntax '#f 'klass)) - (__tmp64894 - (let ((__tmp64902 + (__tmp64891 + (let ((__tmp64899 (gx#datum->syntax '#f 'val)) - (__tmp64895 - (let ((__tmp64896 - (let ((__tmp64901 + (__tmp64892 + (let ((__tmp64893 + (let ((__tmp64898 (gx#datum->syntax '#f 'class::t)) - (__tmp64897 - (let ((__tmp64898 + (__tmp64894 + (let ((__tmp64895 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64900 (gx#datum->syntax '#f 'quote)) - (__tmp64899 + (let ((__tmp64897 (gx#datum->syntax '#f 'quote)) + (__tmp64896 (let () (declare (not safe)) - (cons _L62306_ '())))) + (cons _L62303_ '())))) (declare (not safe)) - (cons __tmp64900 __tmp64899)))) + (cons __tmp64897 __tmp64896)))) (declare (not safe)) - (cons __tmp64898 '())))) + (cons __tmp64895 '())))) (declare (not safe)) - (cons __tmp64901 __tmp64897)))) + (cons __tmp64898 __tmp64894)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L62304_ __tmp64896)))) + (cons _L62301_ __tmp64893)))) (declare (not safe)) - (cons __tmp64902 __tmp64895)))) + (cons __tmp64899 __tmp64892)))) (declare (not safe)) - (cons __tmp64903 __tmp64894)))) + (cons __tmp64900 __tmp64891)))) (declare (not safe)) - (cons __tmp64904 __tmp64893)))) + (cons __tmp64901 __tmp64890)))) (declare (not safe)) - (cons __tmp64892 '())))) + (cons __tmp64889 '())))) (declare (not safe)) - (cons __tmp64905 __tmp64891)))) + (cons __tmp64902 __tmp64888)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64909 __tmp64890)))) + (cons __tmp64906 __tmp64887)))) (declare (not safe)) - (cons __tmp64889 '())))) + (cons __tmp64886 '())))) (declare (not safe)) - (cons __tmp64910 __tmp64888)))) + (cons __tmp64907 __tmp64885)))) (declare (not safe)) - (cons __tmp64915 __tmp64887)))) + (cons __tmp64912 __tmp64884)))) (declare (not safe)) - (cons __tmp64886 '())))) + (cons __tmp64883 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L62422_ - __tmp64885)))) + (cons _L62419_ + __tmp64882)))) (declare (not safe)) - (cons __tmp64916 __tmp64884))) - (__tmp64848 - (let ((__tmp64849 - (let ((__tmp64882 + (cons __tmp64913 __tmp64881))) + (__tmp64845 + (let ((__tmp64846 + (let ((__tmp64879 (gx#datum->syntax '#f 'def)) - (__tmp64850 - (let ((__tmp64851 + (__tmp64847 + (let ((__tmp64848 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64852 - (let ((__tmp64881 + (let ((__tmp64849 + (let ((__tmp64878 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp64853 - (let ((__tmp64876 - (let ((__tmp64880 + (__tmp64850 + (let ((__tmp64873 + (let ((__tmp64877 (gx#datum->syntax '#f '@mop.mutator)) - (__tmp64877 - (let ((__tmp64878 - (let ((__tmp64879 + (__tmp64874 + (let ((__tmp64875 + (let ((__tmp64876 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L62306_ __tmp64879)))) + (cons _L62303_ __tmp64876)))) (declare (not safe)) - (cons _L62339_ __tmp64878)))) + (cons _L62336_ __tmp64875)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64880 __tmp64877))) - (__tmp64854 - (let ((__tmp64855 - (let ((__tmp64875 + (cons __tmp64877 __tmp64874))) + (__tmp64851 + (let ((__tmp64852 + (let ((__tmp64872 (gx#datum->syntax '#f 'lambda)) - (__tmp64856 - (let ((__tmp64871 + (__tmp64853 + (let ((__tmp64868 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64874 (gx#datum->syntax '#f 'klass)) - (__tmp64872 - (let ((__tmp64873 + (let ((__tmp64871 (gx#datum->syntax '#f 'klass)) + (__tmp64869 + (let ((__tmp64870 (gx#datum->syntax '#f 'val))) (declare (not safe)) - (cons __tmp64873 '())))) + (cons __tmp64870 '())))) (declare (not safe)) - (cons __tmp64874 __tmp64872))) - (__tmp64857 - (let ((__tmp64858 - (let ((__tmp64870 + (cons __tmp64871 __tmp64869))) + (__tmp64854 + (let ((__tmp64855 + (let ((__tmp64867 (gx#datum->syntax '#f '##unchecked-structure-set!)) - (__tmp64859 - (let ((__tmp64869 + (__tmp64856 + (let ((__tmp64866 (gx#datum->syntax '#f 'klass)) - (__tmp64860 - (let ((__tmp64868 + (__tmp64857 + (let ((__tmp64865 (gx#datum->syntax '#f 'val)) - (__tmp64861 - (let ((__tmp64862 - (let ((__tmp64867 + (__tmp64858 + (let ((__tmp64859 + (let ((__tmp64864 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'class::t)) - (__tmp64863 - (let ((__tmp64864 - (let ((__tmp64866 + (__tmp64860 + (let ((__tmp64861 + (let ((__tmp64863 (gx#datum->syntax '#f 'quote)) - (__tmp64865 + (__tmp64862 (let () (declare (not safe)) - (cons _L62306_ '())))) + (cons _L62303_ '())))) (declare (not safe)) - (cons __tmp64866 __tmp64865)))) + (cons __tmp64863 __tmp64862)))) (declare (not safe)) - (cons __tmp64864 '())))) + (cons __tmp64861 '())))) (declare (not safe)) - (cons __tmp64867 __tmp64863)))) + (cons __tmp64864 __tmp64860)))) (declare (not safe)) - (cons _L62304_ __tmp64862)))) + (cons _L62301_ __tmp64859)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64868 - __tmp64861)))) + (cons __tmp64865 + __tmp64858)))) (declare (not safe)) - (cons __tmp64869 __tmp64860)))) + (cons __tmp64866 __tmp64857)))) (declare (not safe)) - (cons __tmp64870 __tmp64859)))) + (cons __tmp64867 __tmp64856)))) (declare (not safe)) - (cons __tmp64858 '())))) + (cons __tmp64855 '())))) (declare (not safe)) - (cons __tmp64871 __tmp64857)))) + (cons __tmp64868 __tmp64854)))) (declare (not safe)) - (cons __tmp64875 __tmp64856)))) + (cons __tmp64872 __tmp64853)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64855 '())))) + (cons __tmp64852 '())))) (declare (not safe)) - (cons __tmp64876 __tmp64854)))) + (cons __tmp64873 __tmp64851)))) (declare (not safe)) - (cons __tmp64881 __tmp64853)))) + (cons __tmp64878 __tmp64850)))) (declare (not safe)) - (cons __tmp64852 '())))) + (cons __tmp64849 '())))) (declare (not safe)) - (cons _L62450_ __tmp64851)))) + (cons _L62447_ __tmp64848)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64882 - __tmp64850)))) + (cons __tmp64879 + __tmp64847)))) (declare (not safe)) - (cons __tmp64849 '())))) + (cons __tmp64846 '())))) (declare (not safe)) - (cons __tmp64883 __tmp64848)))) + (cons __tmp64880 __tmp64845)))) (declare (not safe)) - (cons __tmp64917 __tmp64847)))) + (cons __tmp64914 __tmp64844)))) (declare (not safe)) - (cons __tmp64947 __tmp64846)))) + (cons __tmp64944 __tmp64843)))) (declare (not safe)) - (cons __tmp64977 __tmp64845))))) + (cons __tmp64974 __tmp64842))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g6243662447_)))) - (_g6243462465_ + _g6243362444_)))) + (_g6243162462_ (gx#stx-identifier - _L62306_ + _L62303_ '"&" - _L62422_))))) - _g6240862419_)))) - (_g6240662469_ - (gx#stx-identifier _L62306_ _L62366_ '"-set!"))))) - _g6238062391_)))) + _L62419_))))) + _g6240562416_)))) + (_g6240362466_ + (gx#stx-identifier _L62303_ _L62363_ '"-set!"))))) + _g6237762388_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6237862473_ + (_g6237562470_ (gx#stx-identifier - _L62306_ + _L62303_ '"&" - _L62366_))))) - _g6235262363_)))) - (_g6235062477_ + _L62363_))))) + _g6234962360_)))) + (_g6234762474_ (gx#stx-identifier - _L62306_ + _L62303_ '"class-type-" - _L62306_))))) - _g6232562336_)))) - (_g6232362481_ (gx#core-quote-syntax 'class::t)))) - _hd6225062298_ - _hd6224762288_) - (_g6223662257_ _g6223762261_)) + _L62303_))))) + _g6232262333_)))) + (_g6232062478_ (gx#core-quote-syntax 'class::t)))) + _hd6224762295_ + _hd6224462285_) + (_g6223362254_ _g6223462258_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6223662257_ - _g6223762261_)))) - (_g6223662257_ _g6223762261_)))) - (_g6223662257_ _g6223762261_)))) - (_g6223662257_ _g6223762261_)))) - (_g6223662257_ _g6223762261_))))) - (_g6223562485_ _stx62233_)))) + (_g6223362254_ + _g6223462258_)))) + (_g6223362254_ _g6223462258_)))) + (_g6223362254_ _g6223462258_)))) + (_g6223362254_ _g6223462258_)))) + (_g6223362254_ _g6223462258_))))) + (_g6223262482_ _stx62230_)))) (define |[:0:]#defrefset*| - (lambda (_$stx62489_) - (let* ((_g6249362522_ - (lambda (_g6249462518_) + (lambda (_$stx62486_) + (let* ((_g6249062519_ + (lambda (_g6249162515_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6249462518_))) - (_g6249262622_ - (lambda (_g6249462526_) - (if (gx#stx-pair? _g6249462526_) - (let ((_e6249962529_ (gx#syntax-e _g6249462526_))) - (let ((_hd6249862533_ + _g6249162515_))) + (_g6248962619_ + (lambda (_g6249162523_) + (if (gx#stx-pair? _g6249162523_) + (let ((_e6249662526_ (gx#syntax-e _g6249162523_))) + (let ((_hd6249562530_ (let () (declare (not safe)) - (##car _e6249962529_))) - (_tl6249762536_ + (##car _e6249662526_))) + (_tl6249462533_ (let () (declare (not safe)) - (##cdr _e6249962529_)))) - (if (gx#stx-pair/null? _tl6249762536_) - (let ((_g64978_ - (gx#syntax-split-splice _tl6249762536_ '0))) + (##cdr _e6249662526_)))) + (if (gx#stx-pair/null? _tl6249462533_) + (let ((_g64975_ + (gx#syntax-split-splice _tl6249462533_ '0))) (begin - (let ((_g64979_ + (let ((_g64976_ (let () (declare (not safe)) - (if (##values? _g64978_) - (##vector-length _g64978_) + (if (##values? _g64975_) + (##vector-length _g64975_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g64979_ 2))) + (##fx= _g64976_ 2))) (error "Context expects 2 values" - _g64979_))) - (let ((_target6250062539_ + _g64976_))) + (let ((_target6249762536_ (let () (declare (not safe)) - (##vector-ref _g64978_ 0))) - (_tl6250262542_ + (##vector-ref _g64975_ 0))) + (_tl6249962539_ (let () (declare (not safe)) - (##vector-ref _g64978_ 1)))) - (if (gx#stx-null? _tl6250262542_) - (letrec ((_loop6250362545_ - (lambda (_hd6250162549_ - _field6250762552_ - _slot6250862554_) + (##vector-ref _g64975_ 1)))) + (if (gx#stx-null? _tl6249962539_) + (letrec ((_loop6250062542_ + (lambda (_hd6249862546_ + _field6250462549_ + _slot6250562551_) (if (gx#stx-pair? - _hd6250162549_) - (let ((_e6250462557_ + _hd6249862546_) + (let ((_e6250162554_ (gx#syntax-e - _hd6250162549_))) - (let ((_lp-hd6250562561_ + _hd6249862546_))) + (let ((_lp-hd6250262558_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e6250462557_))) - (_lp-tl6250662564_ - (let () (declare (not safe)) (##cdr _e6250462557_)))) - (if (gx#stx-pair? _lp-hd6250562561_) - (let ((_e6251362567_ (gx#syntax-e _lp-hd6250562561_))) - (let ((_hd6251262571_ + (##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_ (let () (declare (not safe)) - (##car _e6251362567_))) - (_tl6251162574_ + (##car _e6251062564_))) + (_tl6250862571_ (let () (declare (not safe)) - (##cdr _e6251362567_)))) - (if (gx#stx-pair? _tl6251162574_) - (let ((_e6251662577_ - (gx#syntax-e _tl6251162574_))) - (let ((_hd6251562581_ + (##cdr _e6251062564_)))) + (if (gx#stx-pair? _tl6250862571_) + (let ((_e6251362574_ + (gx#syntax-e _tl6250862571_))) + (let ((_hd6251262578_ (let () (declare (not safe)) - (##car _e6251662577_))) - (_tl6251462584_ + (##car _e6251362574_))) + (_tl6251162581_ (let () (declare (not safe)) - (##cdr _e6251662577_)))) - (if (gx#stx-null? _tl6251462584_) - (_loop6250362545_ - _lp-tl6250662564_ + (##cdr _e6251362574_)))) + (if (gx#stx-null? _tl6251162581_) + (_loop6250062542_ + _lp-tl6250362561_ (let () (declare (not safe)) - (cons _hd6251562581_ - _field6250762552_)) + (cons _hd6251262578_ + _field6250462549_)) (let () (declare (not safe)) - (cons _hd6251262571_ - _slot6250862554_))) - (_g6249362522_ _g6249462526_)))) - (_g6249362522_ _g6249462526_)))) - (_g6249362522_ _g6249462526_)))) - (let ((_field6250962587_ (reverse _field6250762552_)) - (_slot6251062590_ (reverse _slot6250862554_))) - ((lambda (_L62593_ _L62595_) - (let ((__tmp64987 (gx#datum->syntax '#f 'begin)) - (__tmp64980 + (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 (begin - (gx#syntax-check-splice-targets _L62593_ _L62595_) - (let ((__tmp64981 - (lambda (_g6261062614_ - _g6261162617_ - _g6261262619_) - (let ((__tmp64982 - (let ((__tmp64986 + (gx#syntax-check-splice-targets _L62590_ _L62592_) + (let ((__tmp64978 + (lambda (_g6260762611_ + _g6260862614_ + _g6260962616_) + (let ((__tmp64979 + (let ((__tmp64983 (gx#datum->syntax '#f 'defrefset)) - (__tmp64983 - (let ((__tmp64984 - (let ((__tmp64985 + (__tmp64980 + (let ((__tmp64981 + (let ((__tmp64982 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _g6261062614_ '())))) + (cons _g6260762611_ '())))) (declare (not safe)) - (cons _g6261162617_ __tmp64985)))) + (cons _g6260862614_ __tmp64982)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64984 '())))) + (cons __tmp64981 '())))) (declare (not safe)) - (cons __tmp64986 __tmp64983)))) + (cons __tmp64983 __tmp64980)))) (declare (not safe)) - (cons __tmp64982 _g6261262619_))))) + (cons __tmp64979 _g6260962616_))))) (declare (not safe)) - (foldr2 __tmp64981 '() _L62593_ _L62595_))))) + (foldr2 __tmp64978 '() _L62590_ _L62592_))))) (declare (not safe)) - (cons __tmp64987 __tmp64980))) - _field6250962587_ - _slot6251062590_)))))) + (cons __tmp64984 __tmp64977))) + _field6250662584_ + _slot6250762587_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop6250362545_ - _target6250062539_ + (_loop6250062542_ + _target6249762536_ '() '())) - (_g6249362522_ _g6249462526_))))) - (_g6249362522_ _g6249462526_)))) - (_g6249362522_ _g6249462526_))))) - (_g6249262622_ _$stx62489_)))) + (_g6249062519_ _g6249162523_))))) + (_g6249062519_ _g6249162523_)))) + (_g6249062519_ _g6249162523_))))) + (_g6248962619_ _$stx62486_)))) (define |[:0:]#__slot-e| - (lambda (_$stx62627_) - (let* ((_g6263162657_ - (lambda (_g6263262653_) + (lambda (_$stx62624_) + (let* ((_g6262862654_ + (lambda (_g6262962650_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6263262653_))) - (_g6263062740_ - (lambda (_g6263262661_) - (if (gx#stx-pair? _g6263262661_) - (let ((_e6263962664_ (gx#syntax-e _g6263262661_))) - (let ((_hd6263862668_ + _g6262962650_))) + (_g6262762737_ + (lambda (_g6262962658_) + (if (gx#stx-pair? _g6262962658_) + (let ((_e6263662661_ (gx#syntax-e _g6262962658_))) + (let ((_hd6263562665_ (let () (declare (not safe)) - (##car _e6263962664_))) - (_tl6263762671_ + (##car _e6263662661_))) + (_tl6263462668_ (let () (declare (not safe)) - (##cdr _e6263962664_)))) - (if (gx#stx-pair? _tl6263762671_) - (let ((_e6264262674_ (gx#syntax-e _tl6263762671_))) - (let ((_hd6264162678_ + (##cdr _e6263662661_)))) + (if (gx#stx-pair? _tl6263462668_) + (let ((_e6263962671_ (gx#syntax-e _tl6263462668_))) + (let ((_hd6263862675_ (let () (declare (not safe)) - (##car _e6264262674_))) - (_tl6264062681_ + (##car _e6263962671_))) + (_tl6263762678_ (let () (declare (not safe)) - (##cdr _e6264262674_)))) - (if (gx#stx-pair? _tl6264062681_) - (let ((_e6264562684_ - (gx#syntax-e _tl6264062681_))) - (let ((_hd6264462688_ + (##cdr _e6263962671_)))) + (if (gx#stx-pair? _tl6263762678_) + (let ((_e6264262681_ + (gx#syntax-e _tl6263762678_))) + (let ((_hd6264162685_ (let () (declare (not safe)) - (##car _e6264562684_))) - (_tl6264362691_ + (##car _e6264262681_))) + (_tl6264062688_ (let () (declare (not safe)) - (##cdr _e6264562684_)))) - (if (gx#stx-pair? _tl6264362691_) - (let ((_e6264862694_ + (##cdr _e6264262681_)))) + (if (gx#stx-pair? _tl6264062688_) + (let ((_e6264562691_ (gx#syntax-e - _tl6264362691_))) - (let ((_hd6264762698_ + _tl6264062688_))) + (let ((_hd6264462695_ (let () (declare (not safe)) - (##car _e6264862694_))) - (_tl6264662701_ + (##car _e6264562691_))) + (_tl6264362698_ (let () (declare (not safe)) - (##cdr _e6264862694_)))) + (##cdr _e6264562691_)))) (if (gx#stx-pair? - _tl6264662701_) - (let ((_e6265162704_ + _tl6264362698_) + (let ((_e6264862701_ (gx#syntax-e - _tl6264662701_))) - (let ((_hd6265062708_ + _tl6264362698_))) + (let ((_hd6264762705_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e6265162704_))) - (_tl6264962711_ - (let () (declare (not safe)) (##cdr _e6265162704_)))) - (if (gx#stx-null? _tl6264962711_) - ((lambda (_L62714_ _L62716_ _L62717_ _L62718_) - (let ((__tmp65034 (gx#datum->syntax '#f 'if)) - (__tmp64988 - (let ((__tmp65031 - (let ((__tmp65033 + (##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 (gx#datum->syntax '#f 'object?)) - (__tmp65032 + (__tmp65029 (let () (declare (not safe)) - (cons _L62718_ '())))) + (cons _L62715_ '())))) (declare (not safe)) - (cons __tmp65033 __tmp65032))) - (__tmp64989 - (let ((__tmp64994 - (let ((__tmp65030 + (cons __tmp65030 __tmp65029))) + (__tmp64986 + (let ((__tmp64991 + (let ((__tmp65027 (gx#datum->syntax '#f 'let)) - (__tmp64995 - (let ((__tmp65024 - (let ((__tmp65029 + (__tmp64992 + (let ((__tmp65021 + (let ((__tmp65026 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'klass)) - (__tmp65025 - (let ((__tmp65026 - (let ((__tmp65028 + (__tmp65022 + (let ((__tmp65023 + (let ((__tmp65025 (gx#datum->syntax '#f 'object-type)) - (__tmp65027 + (__tmp65024 (let () (declare (not safe)) - (cons _L62718_ '())))) + (cons _L62715_ '())))) (declare (not safe)) - (cons __tmp65028 __tmp65027)))) + (cons __tmp65025 __tmp65024)))) (declare (not safe)) - (cons __tmp65026 '())))) + (cons __tmp65023 '())))) (declare (not safe)) - (cons __tmp65029 __tmp65025))) - (__tmp64996 - (let ((__tmp64997 - (let ((__tmp65023 (gx#datum->syntax '#f 'cond)) - (__tmp64998 - (let ((__tmp65006 - (let ((__tmp65010 - (let ((__tmp65022 + (cons __tmp65026 __tmp65022))) + (__tmp64993 + (let ((__tmp64994 + (let ((__tmp65020 (gx#datum->syntax '#f 'cond)) + (__tmp64995 + (let ((__tmp65003 + (let ((__tmp65007 + (let ((__tmp65019 (gx#datum->syntax '#f 'and)) - (__tmp65011 - (let ((__tmp65018 - (let ((__tmp65021 + (__tmp65008 + (let ((__tmp65015 + (let ((__tmp65018 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'class-type?)) - (__tmp65019 - (let ((__tmp65020 (gx#datum->syntax '#f 'klass))) + (__tmp65016 + (let ((__tmp65017 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp65020 '())))) + (cons __tmp65017 '())))) (declare (not safe)) - (cons __tmp65021 __tmp65019))) - (__tmp65012 - (let ((__tmp65013 - (let ((__tmp65017 + (cons __tmp65018 __tmp65016))) + (__tmp65009 + (let ((__tmp65010 + (let ((__tmp65014 (gx#datum->syntax '#f 'class-slot-offset)) - (__tmp65014 - (let ((__tmp65016 + (__tmp65011 + (let ((__tmp65013 (gx#datum->syntax '#f 'klass)) - (__tmp65015 + (__tmp65012 (let () (declare (not safe)) - (cons _L62717_ '())))) + (cons _L62714_ '())))) (declare (not safe)) - (cons __tmp65016 __tmp65015)))) + (cons __tmp65013 __tmp65012)))) (declare (not safe)) - (cons __tmp65017 __tmp65014)))) + (cons __tmp65014 __tmp65011)))) (declare (not safe)) - (cons __tmp65013 '())))) + (cons __tmp65010 '())))) (declare (not safe)) - (cons __tmp65018 __tmp65012)))) + (cons __tmp65015 __tmp65009)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp65022 __tmp65011))) - (__tmp65007 - (let ((__tmp65009 + (cons __tmp65019 __tmp65008))) + (__tmp65004 + (let ((__tmp65006 (gx#datum->syntax '#f '=>)) - (__tmp65008 + (__tmp65005 (let () (declare (not safe)) - (cons _L62716_ '())))) + (cons _L62713_ '())))) (declare (not safe)) - (cons __tmp65009 __tmp65008)))) + (cons __tmp65006 __tmp65005)))) (declare (not safe)) - (cons __tmp65010 __tmp65007))) - (__tmp64999 - (let ((__tmp65000 - (let ((__tmp65005 + (cons __tmp65007 __tmp65004))) + (__tmp64996 + (let ((__tmp64997 + (let ((__tmp65002 (gx#datum->syntax '#f 'else)) - (__tmp65001 - (let ((__tmp65002 - (let ((__tmp65003 + (__tmp64998 + (let ((__tmp64999 + (let ((__tmp65000 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp65004 + (let ((__tmp65001 (let () (declare (not safe)) - (cons _L62717_ '())))) + (cons _L62714_ '())))) (declare (not safe)) - (cons _L62718_ __tmp65004)))) + (cons _L62715_ __tmp65001)))) (declare (not safe)) - (cons _L62714_ __tmp65003)))) + (cons _L62711_ __tmp65000)))) (declare (not safe)) - (cons __tmp65002 '())))) + (cons __tmp64999 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp65005 __tmp65001)))) + (cons __tmp65002 __tmp64998)))) (declare (not safe)) - (cons __tmp65000 '())))) + (cons __tmp64997 '())))) (declare (not safe)) - (cons __tmp65006 __tmp64999)))) + (cons __tmp65003 __tmp64996)))) (declare (not safe)) - (cons __tmp65023 __tmp64998)))) + (cons __tmp65020 __tmp64995)))) (declare (not safe)) - (cons __tmp64997 '())))) + (cons __tmp64994 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp65024 - __tmp64996)))) + (cons __tmp65021 + __tmp64993)))) (declare (not safe)) - (cons __tmp65030 __tmp64995))) - (__tmp64990 - (let ((__tmp64991 - (let ((__tmp64992 - (let ((__tmp64993 + (cons __tmp65027 __tmp64992))) + (__tmp64987 + (let ((__tmp64988 + (let ((__tmp64989 + (let ((__tmp64990 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L62717_ '())))) + (let () (declare (not safe)) (cons _L62714_ '())))) (declare (not safe)) - (cons _L62718_ __tmp64993)))) + (cons _L62715_ __tmp64990)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L62714_ - __tmp64992)))) + (cons _L62711_ + __tmp64989)))) (declare (not safe)) - (cons __tmp64991 '())))) + (cons __tmp64988 '())))) (declare (not safe)) - (cons __tmp64994 __tmp64990)))) + (cons __tmp64991 __tmp64987)))) (declare (not safe)) - (cons __tmp65031 __tmp64989)))) + (cons __tmp65028 __tmp64986)))) (declare (not safe)) - (cons __tmp65034 __tmp64988))) - _hd6265062708_ - _hd6264762698_ - _hd6264462688_ - _hd6264162678_) - (_g6263162657_ _g6263262661_)))) + (cons __tmp65031 __tmp64985))) + _hd6264762705_ + _hd6264462695_ + _hd6264162685_ + _hd6263862675_) + (_g6262862654_ _g6262962658_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6263162657_ - _g6263262661_)))) - (_g6263162657_ _g6263262661_)))) - (_g6263162657_ _g6263262661_)))) - (_g6263162657_ _g6263262661_)))) - (_g6263162657_ _g6263262661_))))) - (_g6263062740_ _$stx62627_))))) + (_g6262862654_ + _g6262962658_)))) + (_g6262862654_ _g6262962658_)))) + (_g6262862654_ _g6262962658_)))) + (_g6262862654_ _g6262962658_)))) + (_g6262862654_ _g6262962658_))))) + (_g6262762737_ _$stx62624_))))) diff --git a/src/bootstrap/gerbil/runtime/repl__0.scm b/src/bootstrap/gerbil/runtime/repl__0.scm index ec05364f..bc3f11ea 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 1709128371) + (define gerbil/runtime/repl::timestamp 1709229970) (define replx (lambda () - (letrec ((_write-reason78376_ - (lambda (_exn78382_) - (lambda (_cont78384_ _port78385_) + (letrec ((_write-reason78373_ + (lambda (_exn78379_) + (lambda (_cont78381_ _port78382_) (let () (declare (not safe)) (##display-exception-in-context - _exn78382_ - _cont78384_ - _port78385_)) + _exn78379_ + _cont78381_ + _port78382_)) '#f)))) (with-exception-handler - (lambda (_exn78378_) - (let ((__tmp78386 - (lambda (_cont78380_) - (let ((__tmp78387 + (lambda (_exn78375_) + (let ((__tmp78383 + (lambda (_cont78377_) + (let ((__tmp78384 (let () (declare (not safe)) - (_write-reason78376_ _exn78378_)))) + (_write-reason78373_ _exn78375_)))) (declare (not safe)) - (##repl-within _cont78380_ __tmp78387 _exn78378_))))) + (##repl-within _cont78377_ __tmp78384 _exn78375_))))) (declare (not safe)) - (##continuation-capture __tmp78386))) + (##continuation-capture __tmp78383))) ##repl))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__0.scm b/src/bootstrap/gerbil/runtime/syntax__0.scm index e759ae88..3541e9f6 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 1709128371) + (define gerbil/runtime/syntax::timestamp 1709229970) (begin (declare (not safe)) (define SyntaxError::t @@ -13,7 +13,7 @@ '#f)) (define SyntaxError? (make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _$args75047_ (apply make-instance SyntaxError::t _$args75047_))) + (lambda _$args75044_ (apply make-instance SyntaxError::t _$args75044_))) (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 (_self74950_ _port74951_) - (letrec ((_location74953_ + (lambda (_self74947_ _port74948_) + (letrec ((_location74950_ (lambda () - (let _lp75007_ ((_rest75009_ + (let _lp75004_ ((_rest75006_ (##unchecked-structure-ref - _self74950_ + _self74947_ '2 SyntaxError::t '#f))) - (let* ((_rest7501075018_ _rest75009_) - (_else7501275026_ (lambda () '#f)) - (_K7501475035_ - (lambda (_rest75029_ _hd75030_) - (let ((_$e75032_ (__AST-source _hd75030_))) - (if _$e75032_ - _$e75032_ - (_lp75007_ _rest75029_)))))) - (if (##pair? _rest7501075018_) - (let ((_hd7501575038_ (##car _rest7501075018_)) - (_tl7501675040_ (##cdr _rest7501075018_))) - (let* ((_hd75043_ _hd7501575038_) - (_rest75045_ _tl7501675040_)) - (_K7501475035_ _rest75045_ _hd75043_))) - (_else7501275026_))))))) + (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_))))))) (call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_$e74956_ (_location74953_))) - (if _$e74956_ - ((lambda (_where74959_) - (##display-locat _where74959_ '#t (current-output-port))) - _$e74956_) + (let ((_$e74953_ (_location74950_))) + (if _$e74953_ + ((lambda (_where74956_) + (##display-locat _where74956_ '#t (current-output-port))) + _$e74953_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_$e74961_ + (let ((_$e74958_ (##unchecked-structure-ref - _self74950_ + _self74947_ '3 SyntaxError::t '#f))) - (if _$e74961_ - ((lambda (_where74964_) + (if _$e74958_ + ((lambda (_where74961_) (displayln '" at " - _where74964_ + _where74961_ '": " (##unchecked-structure-ref - _self74950_ + _self74947_ '1 SyntaxError::t '#f))) - _$e74961_) + _$e74958_) (displayln '": " (##unchecked-structure-ref - _self74950_ + _self74947_ '1 SyntaxError::t '#f)))) - (let* ((_g7496574973_ + (let* ((_g7496274970_ (##unchecked-structure-ref - _self74950_ + _self74947_ '2 SyntaxError::t '#f)) - (_else7496774981_ (lambda () '#!void)) - (_K7496974994_ - (lambda (_rest74984_ _stx74985_) + (_else7496474978_ (lambda () '#!void)) + (_K7496674991_ + (lambda (_rest74981_ _stx74982_) (display '"... form: ") - (__pp-syntax _stx74985_) + (__pp-syntax _stx74982_) (for-each - (lambda (_detail74987_) + (lambda (_detail74984_) (display '"... detail: ") - (write (__AST->datum _detail74987_)) - (let ((_$e74989_ (__AST-source _detail74987_))) - (if _$e74989_ - ((lambda (_loc74992_) + (write (__AST->datum _detail74984_)) + (let ((_$e74986_ (__AST-source _detail74984_))) + (if _$e74986_ + ((lambda (_loc74989_) (display '" at ") (##display-locat - _loc74992_ + _loc74989_ '#t (current-output-port))) - _$e74989_) + _$e74986_) '#!void)) (newline)) - _rest74984_)))) - (if (##pair? _g7496574973_) - (let ((_hd7497074997_ (##car _g7496574973_)) - (_tl7497174999_ (##cdr _g7496574973_))) - (let* ((_stx75002_ _hd7497074997_) - (_rest75004_ _tl7497174999_)) - (_K7496974994_ _rest75004_ _stx75002_))) + _rest74981_)))) + (if (##pair? _g7496274970_) + (let ((_hd7496774994_ (##car _g7496274970_)) + (_tl7496874996_ (##cdr _g7496274970_))) + (let* ((_stx74999_ _hd7496774994_) + (_rest75001_ _tl7496874996_)) + (_K7496674991_ _rest75001_ _stx74999_))) '#!void))) current-output-port - _port74951_)))) + _port74948_)))) (bind-method!__% SyntaxError::t 'display-exception @@ -163,58 +163,58 @@ '#f) (seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_message74821_ - _irritants74822_ - _where74823_ - _context74824_ - _marks74825_ - _phi74826_) - (let ((__obj75142 + (lambda (_message74818_ + _irritants74819_ + _where74820_ + _context74821_ + _marks74822_ + _phi74823_) + (let ((__obj75139 (##structure SyntaxError::t '#f '#f '#f '#f '#f '#f))) (##unchecked-structure-set! - __obj75142 - _message74821_ + __obj75139 + _message74818_ '1 SyntaxError::t '#f) (##unchecked-structure-set! - __obj75142 - _irritants74822_ + __obj75139 + _irritants74819_ '2 SyntaxError::t '#f) (##unchecked-structure-set! - __obj75142 - _where74823_ + __obj75139 + _where74820_ '3 SyntaxError::t '#f) (##unchecked-structure-set! - __obj75142 - _context74824_ + __obj75139 + _context74821_ '4 SyntaxError::t '#f) (##unchecked-structure-set! - __obj75142 - _marks74825_ + __obj75139 + _marks74822_ '6 SyntaxError::t '#f) (##unchecked-structure-set! - __obj75142 - _phi74826_ + __obj75139 + _phi74823_ '5 SyntaxError::t '#f) - __obj75142))) + __obj75139))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_where74816_ _message74817_ _stx74818_ . _details74819_) + (lambda (_where74813_ _message74814_ _stx74815_ . _details74816_) (raise (make-syntax-error - _message74817_ - (cons _stx74818_ _details74819_) - _where74816_ + _message74814_ + (cons _stx74815_ _details74816_) + _where74813_ '#f '#f '#f)))) @@ -228,7 +228,7 @@ '#f)) (define AST? (make-class-predicate AST::t)) (define make-AST - (lambda _$args74813_ (apply make-instance AST::t _$args74813_))) + (lambda _$args74810_ (apply make-instance AST::t _$args74810_))) (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 (_stx74811_) - (if (##structure-instance-of? _stx74811_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx74811_ '1 AST::t '#f) - _stx74811_))) + (lambda (_stx74808_) + (if (##structure-instance-of? _stx74808_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx74808_ '1 AST::t '#f) + _stx74808_))) (define __AST-source - (lambda (_stx74805_) - (let _lp74807_ ((_src74809_ _stx74805_)) - (if (##structure-instance-of? _src74809_ 'gerbil#AST::t) - (_lp74807_ (##unchecked-structure-ref _src74809_ '2 AST::t '#f)) - (if (##locat? _src74809_) _src74809_ '#f))))) + (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))))) (define __AST - (lambda (_e74797_ _src-stx74798_) - (let ((_src74800_ (__AST-source _src-stx74798_))) - (if (or (##structure-instance-of? _e74797_ 'gerbil#AST::t) - (not _src74800_)) - _e74797_ - (##structure AST::t _e74797_ _src74800_))))) + (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_))))) (define __AST-eq? - (lambda (_stx74794_ _obj74795_) (eq? (__AST-e _stx74794_) _obj74795_))) - (define __AST-pair? (lambda (_stx74792_) (pair? (__AST-e _stx74792_)))) - (define __AST-null? (lambda (_stx74790_) (null? (__AST-e _stx74790_)))) + (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_)))) (define __AST-datum? - (lambda (_stx74771_) - (let* ((_e74773_ (__AST-e _stx74771_)) (_$e74775_ (number? _e74773_))) - (if _$e74775_ - _$e74775_ - (let ((_$e74778_ (string? _e74773_))) - (if _$e74778_ - _$e74778_ - (let ((_$e74781_ (char? _e74773_))) - (if _$e74781_ - _$e74781_ - (let ((_$e74784_ (keyword? _e74773_))) - (if _$e74784_ - _$e74784_ - (let ((_$e74787_ (boolean? _e74773_))) - (if _$e74787_ - _$e74787_ - (eq? _e74773_ '#!void))))))))))))) - (define __AST-id? (lambda (_stx74769_) (symbol? (__AST-e _stx74769_)))) + (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_)))) (define __AST-id-list?__% - (lambda (_stx74720_ _tail?74721_) - (let _lp74723_ ((_rest74725_ _stx74720_)) - (let* ((_$e74727_ _rest74725_) - (_$E7472974742_ + (lambda (_stx74717_ _tail?74718_) + (let _lp74720_ ((_rest74722_ _stx74717_)) + (let* ((_$e74724_ _rest74722_) + (_$E7472674739_ (lambda () - (let* ((_$E7473074737_ + (let* ((_$E7472774734_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e74727_))) - (_rest74740_ _$e74727_)) - (_tail?74721_ _rest74740_))))) - (if (__AST-pair? _$e74727_) - (let* ((_$tgt7473174745_ (__AST-e _$e74727_)) - (_$hd7473274748_ (##car _$tgt7473174745_)) - (_$tl7473374751_ (##cdr _$tgt7473174745_))) - (let* ((_hd74755_ _$hd7473274748_) - (_rest74757_ _$tl7473374751_)) - (if (__AST-id? _hd74755_) (_lp74723_ _rest74757_) '#f))) - (_$E7472974742_)))))) + _$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_)))))) (define __AST-id-list?__0 - (lambda (_stx74762_) - (let ((_tail?74764_ __AST-null?)) - (__AST-id-list?__% _stx74762_ _tail?74764_)))) + (lambda (_stx74759_) + (let ((_tail?74761_ __AST-null?)) + (__AST-id-list?__% _stx74759_ _tail?74761_)))) (define __AST-id-list? - (lambda _g75145_ - (let ((_g75144_ (##length _g75145_))) - (cond ((##fx= _g75144_ 1) - (apply (lambda (_stx74762_) (__AST-id-list?__0 _stx74762_)) - _g75145_)) - ((##fx= _g75144_ 2) - (apply (lambda (_stx74766_ _tail?74767_) - (__AST-id-list?__% _stx74766_ _tail?74767_)) - _g75145_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g75145_)))))) + _g75142_)))))) (define __AST-bind-list? - (lambda (_stx74712_) + (lambda (_stx74709_) (__AST-id-list?__% - _stx74712_ - (lambda (_e74714_) - (let ((_$e74716_ (__AST-null? _e74714_))) - (if _$e74716_ _$e74716_ (__AST-id? _e74714_))))))) + _stx74709_ + (lambda (_e74711_) + (let ((_$e74713_ (__AST-null? _e74711_))) + (if _$e74713_ _$e74713_ (__AST-id? _e74711_))))))) (define __AST-list?__% - (lambda (_stx74665_ _tail?74666_) - (let _lp74668_ ((_rest74670_ _stx74665_)) - (let* ((_$e74672_ _rest74670_) - (_$E7467474687_ + (lambda (_stx74662_ _tail?74663_) + (let _lp74665_ ((_rest74667_ _stx74662_)) + (let* ((_$e74669_ _rest74667_) + (_$E7467174684_ (lambda () - (let* ((_$E7467574682_ + (let* ((_$E7467274679_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e74672_))) - (_rest74685_ _$e74672_)) - (_tail?74666_ _rest74685_))))) - (if (__AST-pair? _$e74672_) - (let* ((_$tgt7467674690_ (__AST-e _$e74672_)) - (_$hd7467774693_ (##car _$tgt7467674690_)) - (_$tl7467874696_ (##cdr _$tgt7467674690_))) - (let ((_rest74700_ _$tl7467874696_)) - (_lp74668_ _rest74700_))) - (_$E7467474687_)))))) + _$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_)))))) (define __AST-list?__0 - (lambda (_stx74705_) - (let ((_tail?74707_ __AST-null?)) - (__AST-list?__% _stx74705_ _tail?74707_)))) + (lambda (_stx74702_) + (let ((_tail?74704_ __AST-null?)) + (__AST-list?__% _stx74702_ _tail?74704_)))) (define __AST-list? - (lambda _g75147_ - (let ((_g75146_ (##length _g75147_))) - (cond ((##fx= _g75146_ 1) - (apply (lambda (_stx74705_) (__AST-list?__0 _stx74705_)) - _g75147_)) - ((##fx= _g75146_ 2) - (apply (lambda (_stx74709_ _tail?74710_) - (__AST-list?__% _stx74709_ _tail?74710_)) - _g75147_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g75147_)))))) + _g75144_)))))) (define __AST->list - (lambda (_stx74630_) - (let* ((_$e74632_ _stx74630_) - (_$E7463474647_ + (lambda (_stx74627_) + (let* ((_$e74629_ _stx74627_) + (_$E7463174644_ (lambda () - (let* ((_$E7463574642_ + (let* ((_$E7463274639_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e74632_))) - (_rest74645_ _$e74632_)) - (__AST-e _rest74645_))))) - (if (__AST-pair? _$e74632_) - (let* ((_$tgt7463674650_ (__AST-e _$e74632_)) - (_$hd7463774653_ (##car _$tgt7463674650_)) - (_$tl7463874656_ (##cdr _$tgt7463674650_))) - (let* ((_hd74660_ _$hd7463774653_) - (_rest74662_ _$tl7463874656_)) - (cons _hd74660_ (__AST->list _rest74662_)))) - (_$E7463474647_))))) + _$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_))))) (define __AST->datum - (lambda (_stx74628_) - (if (##structure-instance-of? _stx74628_ 'gerbil#AST::t) - (__AST->datum (__AST-e _stx74628_)) - (if (pair? _stx74628_) - (cons (__AST->datum (car _stx74628_)) - (__AST->datum (cdr _stx74628_))) - (if (vector? _stx74628_) - (vector-map __AST->datum _stx74628_) - (if (box? _stx74628_) - (box (__AST->datum (unbox _stx74628_))) - _stx74628_)))))) + (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_)))))) (define get-readenv - (lambda (_port74626_) + (lambda (_port74623_) (##make-readenv - _port74626_ + _port74623_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -409,83 +409,83 @@ '() '#f))) (define read-syntax__% - (lambda (_in74614_) - (let ((_e74616_ (##read-datum-or-eof (get-readenv _in74614_)))) - (if (eof-object? (__AST-e _e74616_)) (__AST-e _e74616_) _e74616_)))) + (lambda (_in74611_) + (let ((_e74613_ (##read-datum-or-eof (get-readenv _in74611_)))) + (if (eof-object? (__AST-e _e74613_)) (__AST-e _e74613_) _e74613_)))) (define read-syntax__0 (lambda () - (let ((_in74622_ (current-input-port))) (read-syntax__% _in74622_)))) + (let ((_in74619_ (current-input-port))) (read-syntax__% _in74619_)))) (define read-syntax - (lambda _g75149_ - (let ((_g75148_ (##length _g75149_))) - (cond ((##fx= _g75148_ 0) - (apply (lambda () (read-syntax__0)) _g75149_)) - ((##fx= _g75148_ 1) - (apply (lambda (_in74624_) (read-syntax__% _in74624_)) - _g75149_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g75149_)))))) + _g75146_)))))) (define read-syntax-from-file - (lambda (_path74609_) - (let ((_r74611_ + (lambda (_path74606_) + (let ((_r74608_ (##read-all-as-a-begin-expr-from-path - (path-normalize _path74609_) + (path-normalize _path74606_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _r74611_) - (cdr (__AST-e (vector-ref _r74611_ '1))) - (error (err-code->string _r74611_) _path74609_))))) + (if (vector? _r74608_) + (cdr (__AST-e (vector-ref _r74608_ '1))) + (error (err-code->string _r74608_) _path74606_))))) (define __wrap-syntax - (lambda (_re74606_ _e74607_) - (if (eof-object? _e74607_) - _e74607_ - (##structure AST::t _e74607_ (##readenv->locat _re74606_))))) - (define __unwrap-syntax (lambda (_re74603_ _e74604_) (__AST-e _e74604_))) - (define __pp-syntax (lambda (_stx74601_) (pp (__AST->datum _stx74601_)))) + (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_)))) (define __make-readtable (lambda () - (let ((_rt74599_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _rt74599_ '#t) - (macro-readtable-bracket-handler-set! _rt74599_ '@list) - (macro-readtable-brace-handler-set! _rt74599_ '@method) + (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) (##readtable-char-sharp-handler-set! - _rt74599_ + _rt74596_ '#\! __read-sharp-bang) - _rt74599_))) + _rt74596_))) (define __readtable-bracket-keyword-set! - (lambda (_rt74595_ _kw74596_) - (macro-readtable-bracket-handler-set! _rt74595_ _kw74596_))) - (define __readtable-brace-keyword-set! (lambda (_rt74592_ _kw74593_) - (macro-readtable-brace-handler-set! _rt74592_ _kw74593_))) + (macro-readtable-bracket-handler-set! _rt74592_ _kw74593_))) + (define __readtable-brace-keyword-set! + (lambda (_rt74589_ _kw74590_) + (macro-readtable-brace-handler-set! _rt74589_ _kw74590_))) (define __read-sharp-bang - (lambda (_re74583_ _next74584_ _start-pos74585_) - (if (eq? _start-pos74585_ '0) - (let* ((_line74587_ + (lambda (_re74580_ _next74581_ _start-pos74582_) + (if (eq? _start-pos74582_ '0) + (let* ((_line74584_ (##read-line - (macro-readenv-port _re74583_) + (macro-readenv-port _re74580_) '#\newline '#f ##max-fixnum)) - (_script-line74589_ - (substring _line74587_ '1 (string-length _line74587_)))) - (macro-readenv-script-line-set! _re74583_ _script-line74589_) + (_script-line74586_ + (substring _line74584_ '1 (string-length _line74584_)))) + (macro-readenv-script-line-set! _re74580_ _script-line74586_) (##script-marker)) - (##read-sharp-bang _re74583_ _next74584_ _start-pos74585_)))) + (##read-sharp-bang _re74580_ _next74581_ _start-pos74582_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_obj74581_) - (if (source-location? _obj74581_) - (string? (##locat-container _obj74581_)) + (lambda (_obj74578_) + (if (source-location? _obj74578_) + (string? (##locat-container _obj74578_)) '#f))) (define source-location-path - (lambda (_obj74579_) - (if (##locat? _obj74579_) - (##container->path (##locat-container _obj74579_)) + (lambda (_obj74576_) + (if (##locat? _obj74576_) + (##container->path (##locat-container _obj74576_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__1.scm b/src/bootstrap/gerbil/runtime/syntax__1.scm index 50de8d2b..5aa86c89 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]#_g75254_| + (define |[1]#_g75251_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g75262_| + (define |[1]#_g75259_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g75264_| + (define |[1]#_g75261_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g75266_| + (define |[1]#_g75263_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g75268_| + (define |[1]#_g75265_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g75277_| + (define |[1]#_g75274_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g75280_| + (define |[1]#_g75277_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g75283_| + (define |[1]#_g75280_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g75286_| + (define |[1]#_g75283_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g75289_| + (define |[1]#_g75286_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g75292_| + (define |[1]#_g75289_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g75301_| + (define |[1]#_g75298_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75304_| + (define |[1]#_g75301_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75307_| + (define |[1]#_g75304_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75310_| + (define |[1]#_g75307_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75313_| + (define |[1]#_g75310_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75316_| + (define |[1]#_g75313_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75325_| + (define |[1]#_g75322_| (##structure gx#syntax-quote::t '&SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g75328_| + (define |[1]#_g75325_| (##structure gx#syntax-quote::t '&SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g75331_| + (define |[1]#_g75328_| (##structure gx#syntax-quote::t '&SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g75334_| + (define |[1]#_g75331_| (##structure gx#syntax-quote::t '&SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g75337_| + (define |[1]#_g75334_| (##structure gx#syntax-quote::t '&SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g75340_| + (define |[1]#_g75337_| (##structure gx#syntax-quote::t '&SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g75349_| + (define |[1]#_g75346_| (##structure gx#syntax-quote::t '&SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75352_| + (define |[1]#_g75349_| (##structure gx#syntax-quote::t '&SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75355_| + (define |[1]#_g75352_| (##structure gx#syntax-quote::t '&SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75358_| + (define |[1]#_g75355_| (##structure gx#syntax-quote::t '&SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75361_| + (define |[1]#_g75358_| (##structure gx#syntax-quote::t '&SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75364_| + (define |[1]#_g75361_| (##structure gx#syntax-quote::t '&SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75366_| + (define |[1]#_g75363_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g75368_| + (define |[1]#_g75365_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |[1]#_g75370_| + (define |[1]#_g75367_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g75375_| + (define |[1]#_g75372_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g75378_| + (define |[1]#_g75375_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g75383_| + (define |[1]#_g75380_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75386_| + (define |[1]#_g75383_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75391_| + (define |[1]#_g75388_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g75394_| + (define |[1]#_g75391_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g75399_| + (define |[1]#_g75396_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75402_| + (define |[1]#_g75399_| (##structure gx#syntax-quote::t '&AST-e-set! @@ -282,1165 +282,1165 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_$stx73468_) - (let* ((_g7347273496_ - (lambda (_g7347373492_) + (lambda (_$stx73465_) + (let* ((_g7346973493_ + (lambda (_g7347073489_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7347373492_))) - (_g7347173582_ - (lambda (_g7347373500_) - (if (gx#stx-pair? _g7347373500_) - (let ((_e7347873503_ (gx#syntax-e _g7347373500_))) - (let ((_hd7347773507_ + _g7347073489_))) + (_g7346873579_ + (lambda (_g7347073497_) + (if (gx#stx-pair? _g7347073497_) + (let ((_e7347573500_ (gx#syntax-e _g7347073497_))) + (let ((_hd7347473504_ (let () (declare (not safe)) - (##car _e7347873503_))) - (_tl7347673510_ + (##car _e7347573500_))) + (_tl7347373507_ (let () (declare (not safe)) - (##cdr _e7347873503_)))) - (if (gx#stx-pair? _tl7347673510_) - (let ((_e7348173513_ - (gx#syntax-e _tl7347673510_))) - (let ((_hd7348073517_ + (##cdr _e7347573500_)))) + (if (gx#stx-pair? _tl7347373507_) + (let ((_e7347873510_ + (gx#syntax-e _tl7347373507_))) + (let ((_hd7347773514_ (let () (declare (not safe)) - (##car _e7348173513_))) - (_tl7347973520_ + (##car _e7347873510_))) + (_tl7347673517_ (let () (declare (not safe)) - (##cdr _e7348173513_)))) - (if (gx#stx-pair/null? _tl7347973520_) - (let ((_g75150_ + (##cdr _e7347873510_)))) + (if (gx#stx-pair/null? _tl7347673517_) + (let ((_g75147_ (gx#syntax-split-splice - _tl7347973520_ + _tl7347673517_ '0))) (begin - (let ((_g75151_ + (let ((_g75148_ (let () (declare (not safe)) - (if (##values? _g75150_) + (if (##values? _g75147_) (##vector-length - _g75150_) + _g75147_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g75151_ 2))) + (##fx= _g75148_ 2))) (error "Context expects 2 values" - _g75151_))) - (let ((_target7348273523_ + _g75148_))) + (let ((_target7347973520_ (let () (declare (not safe)) - (##vector-ref _g75150_ 0))) - (_tl7348473526_ + (##vector-ref _g75147_ 0))) + (_tl7348173523_ (let () (declare (not safe)) - (##vector-ref _g75150_ 1)))) - (if (gx#stx-null? _tl7348473526_) - (letrec ((_loop7348573529_ - (lambda (_hd7348373533_ + (##vector-ref _g75147_ 1)))) + (if (gx#stx-null? _tl7348173523_) + (letrec ((_loop7348273526_ + (lambda (_hd7348073530_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body7348973536_) - (if (gx#stx-pair? _hd7348373533_) - (let ((_e7348673539_ (gx#syntax-e _hd7348373533_))) - (let ((_lp-hd7348773543_ + _body7348673533_) + (if (gx#stx-pair? _hd7348073530_) + (let ((_e7348373536_ (gx#syntax-e _hd7348073530_))) + (let ((_lp-hd7348473540_ (let () (declare (not safe)) - (##car _e7348673539_))) - (_lp-tl7348873546_ + (##car _e7348373536_))) + (_lp-tl7348573543_ (let () (declare (not safe)) - (##cdr _e7348673539_)))) - (_loop7348573529_ - _lp-tl7348873546_ + (##cdr _e7348373536_)))) + (_loop7348273526_ + _lp-tl7348573543_ (let () (declare (not safe)) - (cons _lp-hd7348773543_ _body7348973536_))))) - (let ((_body7349073549_ (reverse _body7348973536_))) - ((lambda (_L73553_ _L73555_) - (let ((__tmp75163 (gx#datum->syntax '#f 'let)) - (__tmp75152 - (let ((__tmp75160 - (let ((__tmp75162 + (cons _lp-hd7348473540_ _body7348673533_))))) + (let ((_body7348773546_ (reverse _body7348673533_))) + ((lambda (_L73550_ _L73552_) + (let ((__tmp75160 (gx#datum->syntax '#f 'let)) + (__tmp75149 + (let ((__tmp75157 + (let ((__tmp75159 (gx#datum->syntax '#f '$e)) - (__tmp75161 + (__tmp75158 (let () (declare (not safe)) - (cons _L73555_ '())))) + (cons _L73552_ '())))) (declare (not safe)) - (cons __tmp75162 __tmp75161))) - (__tmp75153 - (let ((__tmp75154 - (let ((__tmp75159 + (cons __tmp75159 __tmp75158))) + (__tmp75150 + (let ((__tmp75151 + (let ((__tmp75156 (gx#datum->syntax '#f 'core-ast-case%)) - (__tmp75155 - (let ((__tmp75158 + (__tmp75152 + (let ((__tmp75155 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$e)) - (__tmp75156 - (let ((__tmp75157 - (lambda (_g7357373576_ _g7357473579_) + (__tmp75153 + (let ((__tmp75154 + (lambda (_g7357073573_ _g7357173576_) (let () (declare (not safe)) - (cons _g7357373576_ _g7357473579_))))) + (cons _g7357073573_ _g7357173576_))))) (declare (not safe)) - (foldr1 __tmp75157 '() _L73553_)))) + (foldr1 __tmp75154 '() _L73550_)))) (declare (not safe)) - (cons __tmp75158 __tmp75156)))) + (cons __tmp75155 __tmp75153)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75159 - __tmp75155)))) + (cons __tmp75156 + __tmp75152)))) (declare (not safe)) - (cons __tmp75154 '())))) + (cons __tmp75151 '())))) (declare (not safe)) - (cons __tmp75160 __tmp75153)))) + (cons __tmp75157 __tmp75150)))) (declare (not safe)) - (cons __tmp75163 __tmp75152))) - _body7349073549_ - _hd7348073517_)))))) + (cons __tmp75160 __tmp75149))) + _body7348773546_ + _hd7347773514_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop7348573529_ - _target7348273523_ + (_loop7348273526_ + _target7347973520_ '())) - (_g7347273496_ - _g7347373500_))))) - (_g7347273496_ _g7347373500_)))) - (_g7347273496_ _g7347373500_)))) - (_g7347273496_ _g7347373500_))))) - (_g7347173582_ _$stx73468_)))) + (_g7346973493_ + _g7347073497_))))) + (_g7346973493_ _g7347073497_)))) + (_g7346973493_ _g7347073497_)))) + (_g7346973493_ _g7347073497_))))) + (_g7346873579_ _$stx73465_)))) (define |[:0:]#core-ast-case%| - (lambda (_stx73587_) - (letrec ((_generate173590_ - (lambda (_hd74131_ _tgt74133_ _K74134_ _E74135_ _kws74136_) - (let* ((_g7413874146_ - (lambda (_g7413974142_) + (lambda (_stx73584_) + (letrec ((_generate173587_ + (lambda (_hd74128_ _tgt74130_ _K74131_ _E74132_ _kws74133_) + (let* ((_g7413574143_ + (lambda (_g7413674139_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7413974142_))) - (_g7413774573_ - (lambda (_g7413974150_) - ((lambda (_L74153_) + _g7413674139_))) + (_g7413474570_ + (lambda (_g7413674147_) + ((lambda (_L74150_) (let () - (let* ((___stx7505075051_ _hd74131_) - (_g7416774181_ + (let* ((___stx7504775048_ _hd74128_) + (_g7416474178_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx7505075051_)))) - (let ((___kont7505375054_ - (lambda (_L74395_ _L74397_) - (let* ((_g7440874416_ - (lambda (_g7440974412_) + ___stx7504775048_)))) + (let ((___kont7505075051_ + (lambda (_L74392_ _L74394_) + (let* ((_g7440574413_ + (lambda (_g7440674409_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7440974412_))) - (_g7440774565_ - (lambda (_g7440974420_) - ((lambda (_L74423_) + _g7440674409_))) + (_g7440474562_ + (lambda (_g7440674417_) + ((lambda (_L74420_) (let () - (let* ((_g7443574443_ + (let* ((_g7443274440_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7443674439_) + (lambda (_g7443374436_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7443674439_))) - (_g7443474561_ - (lambda (_g7443674447_) - ((lambda (_L74450_) + _g7443374436_))) + (_g7443174558_ + (lambda (_g7443374444_) + ((lambda (_L74447_) (let () - (let* ((_g7446374471_ - (lambda (_g7446474467_) + (let* ((_g7446074468_ + (lambda (_g7446174464_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7446474467_))) - (_g7446274557_ - (lambda (_g7446474475_) - ((lambda (_L74478_) + _g7446174464_))) + (_g7445974554_ + (lambda (_g7446174472_) + ((lambda (_L74475_) (let () - (let* ((_g7449174499_ - (lambda (_g7449274495_) + (let* ((_g7448874496_ + (lambda (_g7448974492_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7449274495_))) - (_g7449074553_ - (lambda (_g7449274503_) - ((lambda (_L74506_) + _g7448974492_))) + (_g7448774550_ + (lambda (_g7448974500_) + ((lambda (_L74503_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g7451974527_ - (lambda (_g7452074523_) + (let* ((_g7451674524_ + (lambda (_g7451774520_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7452074523_))) - (_g7451874549_ - (lambda (_g7452074531_) - ((lambda (_L74534_) + _g7451774520_))) + (_g7451574546_ + (lambda (_g7451774528_) + ((lambda (_L74531_) (let () (let () - (let ((__tmp75192 + (let ((__tmp75189 (gx#datum->syntax '#f 'if)) - (__tmp75164 - (let ((__tmp75189 - (let ((__tmp75191 + (__tmp75161 + (let ((__tmp75186 + (let ((__tmp75188 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-pair?)) - (__tmp75190 - (let () (declare (not safe)) (cons _L74153_ '())))) + (__tmp75187 + (let () (declare (not safe)) (cons _L74150_ '())))) (declare (not safe)) - (cons __tmp75191 __tmp75190))) - (__tmp75165 - (let ((__tmp75167 - (let ((__tmp75188 (gx#datum->syntax '#f 'let*)) - (__tmp75168 - (let ((__tmp75170 - (let ((__tmp75183 - (let ((__tmp75184 - (let ((__tmp75185 - (let ((__tmp75187 + (cons __tmp75188 __tmp75187))) + (__tmp75162 + (let ((__tmp75164 + (let ((__tmp75185 (gx#datum->syntax '#f 'let*)) + (__tmp75165 + (let ((__tmp75167 + (let ((__tmp75180 + (let ((__tmp75181 + (let ((__tmp75182 + (let ((__tmp75184 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp75186 - (let () (declare (not safe)) (cons _L74153_ '())))) + (__tmp75183 + (let () (declare (not safe)) (cons _L74150_ '())))) (declare (not safe)) - (cons __tmp75187 __tmp75186)))) + (cons __tmp75184 __tmp75183)))) (declare (not safe)) - (cons __tmp75185 '())))) + (cons __tmp75182 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L74423_ __tmp75184))) - (__tmp75171 - (let ((__tmp75178 - (let ((__tmp75179 - (let ((__tmp75180 + (cons _L74420_ __tmp75181))) + (__tmp75168 + (let ((__tmp75175 + (let ((__tmp75176 + (let ((__tmp75177 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp75182 (gx#datum->syntax '#f '##car)) - (__tmp75181 + (let ((__tmp75179 (gx#datum->syntax '#f '##car)) + (__tmp75178 (let () (declare (not safe)) - (cons _L74423_ '())))) + (cons _L74420_ '())))) (declare (not safe)) - (cons __tmp75182 __tmp75181)))) + (cons __tmp75179 __tmp75178)))) (declare (not safe)) - (cons __tmp75180 '())))) + (cons __tmp75177 '())))) (declare (not safe)) - (cons _L74450_ __tmp75179))) + (cons _L74447_ __tmp75176))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp75172 - (let ((__tmp75173 - (let ((__tmp75174 + (__tmp75169 + (let ((__tmp75170 + (let ((__tmp75171 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp75175 - (let ((__tmp75177 + (let ((__tmp75172 + (let ((__tmp75174 (gx#datum->syntax '#f '##cdr)) - (__tmp75176 + (__tmp75173 (let () (declare (not safe)) - (cons _L74423_ '())))) + (cons _L74420_ '())))) (declare (not safe)) - (cons __tmp75177 __tmp75176)))) + (cons __tmp75174 __tmp75173)))) (declare (not safe)) - (cons __tmp75175 '())))) + (cons __tmp75172 '())))) (declare (not safe)) - (cons _L74478_ __tmp75174)))) + (cons _L74475_ __tmp75171)))) (declare (not safe)) - (cons __tmp75173 '())))) + (cons __tmp75170 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75178 __tmp75172)))) + (cons __tmp75175 __tmp75169)))) (declare (not safe)) - (cons __tmp75183 __tmp75171))) - (__tmp75169 + (cons __tmp75180 __tmp75168))) + (__tmp75166 (let () (declare (not safe)) - (cons _L74506_ '())))) + (cons _L74503_ '())))) (declare (not safe)) - (cons __tmp75170 __tmp75169)))) + (cons __tmp75167 __tmp75166)))) (declare (not safe)) - (cons __tmp75188 __tmp75168))) - (__tmp75166 - (let () (declare (not safe)) (cons _L74534_ '())))) + (cons __tmp75185 __tmp75165))) + (__tmp75163 + (let () (declare (not safe)) (cons _L74531_ '())))) (declare (not safe)) - (cons __tmp75167 __tmp75166)))) + (cons __tmp75164 __tmp75163)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75189 - __tmp75165)))) + (cons __tmp75186 + __tmp75162)))) (declare (not safe)) - (cons __tmp75192 __tmp75164))))) - _g7452074531_)))) - (_g7451874549_ _E74135_)))) - _g7449274503_)))) + (cons __tmp75189 __tmp75161))))) + _g7451774528_)))) + (_g7451574546_ _E74132_)))) + _g7448974500_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7449074553_ - (_generate173590_ - _L74397_ - _L74450_ - (_generate173590_ - _L74395_ - _L74478_ - _K74134_ - _E74135_ - _kws74136_) - _E74135_ - _kws74136_))))) - _g7446474475_)))) - (_g7446274557_ (gx#genident '$tl))))) - _g7443674447_)))) - (_g7443474561_ (gx#genident '$hd))))) - _g7440974420_)))) + (_g7448774550_ + (_generate173587_ + _L74394_ + _L74447_ + (_generate173587_ + _L74392_ + _L74475_ + _K74131_ + _E74132_ + _kws74133_) + _E74132_ + _kws74133_))))) + _g7446174472_)))) + (_g7445974554_ (gx#genident '$tl))))) + _g7443374444_)))) + (_g7443174558_ (gx#genident '$hd))))) + _g7440674417_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7440774565_ + (_g7440474562_ (gx#genident '$tgt))))) - (___kont7505575056_ - (lambda (_L74270_) - (if (gx#underscore? _L74270_) - _K74134_ - (if (let ((__tmp75221 - (lambda (_g7427874280_) + (___kont7505275053_ + (lambda (_L74267_) + (if (gx#underscore? _L74267_) + _K74131_ + (if (let ((__tmp75218 + (lambda (_g7427574277_) (gx#bound-identifier=? - _g7427874280_ - _L74270_))) - (__tmp75220 + _g7427574277_ + _L74267_))) + (__tmp75217 (gx#syntax->list - _kws74136_))) + _kws74133_))) (declare (not safe)) - (find __tmp75221 - __tmp75220)) - (let* ((_g7428474299_ - (lambda (_g7428574295_) + (find __tmp75218 + __tmp75217)) + (let* ((_g7428174296_ + (lambda (_g7428274292_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _g7428574295_))) - (_g7428374344_ - (lambda (_g7428574303_) - (if (gx#stx-pair? _g7428574303_) - (let ((_e7429074306_ (gx#syntax-e _g7428574303_))) - (let ((_hd7428974310_ + _g7428274292_))) + (_g7428074341_ + (lambda (_g7428274300_) + (if (gx#stx-pair? _g7428274300_) + (let ((_e7428774303_ (gx#syntax-e _g7428274300_))) + (let ((_hd7428674307_ (let () (declare (not safe)) - (##car _e7429074306_))) - (_tl7428874313_ + (##car _e7428774303_))) + (_tl7428574310_ (let () (declare (not safe)) - (##cdr _e7429074306_)))) - (if (gx#stx-pair? _tl7428874313_) - (let ((_e7429374316_ - (gx#syntax-e _tl7428874313_))) - (let ((_hd7429274320_ + (##cdr _e7428774303_)))) + (if (gx#stx-pair? _tl7428574310_) + (let ((_e7429074313_ + (gx#syntax-e _tl7428574310_))) + (let ((_hd7428974317_ (let () (declare (not safe)) - (##car _e7429374316_))) - (_tl7429174323_ + (##car _e7429074313_))) + (_tl7428874320_ (let () (declare (not safe)) - (##cdr _e7429374316_)))) - (if (gx#stx-null? _tl7429174323_) - ((lambda (_L74326_ _L74328_) + (##cdr _e7429074313_)))) + (if (gx#stx-null? _tl7428874320_) + ((lambda (_L74323_ _L74325_) (let () - (let ((__tmp75219 + (let ((__tmp75216 (gx#datum->syntax '#f 'if)) - (__tmp75199 - (let ((__tmp75202 - (let ((__tmp75218 + (__tmp75196 + (let ((__tmp75199 + (let ((__tmp75215 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'and)) - (__tmp75203 - (let ((__tmp75215 - (let ((__tmp75217 + (__tmp75200 + (let ((__tmp75212 + (let ((__tmp75214 (gx#datum->syntax '#f '__AST-id?)) - (__tmp75216 + (__tmp75213 (let () (declare (not safe)) - (cons _L74153_ '())))) + (cons _L74150_ '())))) (declare (not safe)) - (cons __tmp75217 __tmp75216))) - (__tmp75204 - (let ((__tmp75205 - (let ((__tmp75214 + (cons __tmp75214 __tmp75213))) + (__tmp75201 + (let ((__tmp75202 + (let ((__tmp75211 (gx#datum->syntax '#f 'eq?)) - (__tmp75206 - (let ((__tmp75211 - (let ((__tmp75213 + (__tmp75203 + (let ((__tmp75208 + (let ((__tmp75210 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp75212 - (let () (declare (not safe)) (cons _L74153_ '())))) + (__tmp75209 + (let () (declare (not safe)) (cons _L74150_ '())))) (declare (not safe)) - (cons __tmp75213 __tmp75212))) - (__tmp75207 - (let ((__tmp75208 - (let ((__tmp75210 (gx#datum->syntax '#f 'quote)) - (__tmp75209 + (cons __tmp75210 __tmp75209))) + (__tmp75204 + (let ((__tmp75205 + (let ((__tmp75207 (gx#datum->syntax '#f 'quote)) + (__tmp75206 (let () (declare (not safe)) - (cons _L74270_ '())))) + (cons _L74267_ '())))) (declare (not safe)) - (cons __tmp75210 __tmp75209)))) + (cons __tmp75207 __tmp75206)))) (declare (not safe)) - (cons __tmp75208 '())))) + (cons __tmp75205 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75211 - __tmp75207)))) + (cons __tmp75208 + __tmp75204)))) (declare (not safe)) - (cons __tmp75214 __tmp75206)))) + (cons __tmp75211 __tmp75203)))) (declare (not safe)) - (cons __tmp75205 '())))) + (cons __tmp75202 '())))) (declare (not safe)) - (cons __tmp75215 __tmp75204)))) + (cons __tmp75212 __tmp75201)))) (declare (not safe)) - (cons __tmp75218 __tmp75203))) - (__tmp75200 - (let ((__tmp75201 + (cons __tmp75215 __tmp75200))) + (__tmp75197 + (let ((__tmp75198 (let () (declare (not safe)) - (cons _L74326_ '())))) + (cons _L74323_ '())))) (declare (not safe)) - (cons _L74328_ __tmp75201)))) + (cons _L74325_ __tmp75198)))) (declare (not safe)) - (cons __tmp75202 __tmp75200)))) + (cons __tmp75199 __tmp75197)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75219 - __tmp75199)))) - _hd7429274320_ - _hd7428974310_) - (_g7428474299_ _g7428574303_)))) - (_g7428474299_ _g7428574303_)))) - (_g7428474299_ _g7428574303_))))) - (_g7428374344_ (list _K74134_ _E74135_))) - (let* ((_g7434874356_ - (lambda (_g7434974352_) + (cons __tmp75216 + __tmp75196)))) + _hd7428974317_ + _hd7428674307_) + (_g7428174296_ _g7428274300_)))) + (_g7428174296_ _g7428274300_)))) + (_g7428174296_ _g7428274300_))))) + (_g7428074341_ (list _K74131_ _E74132_))) + (let* ((_g7434574353_ + (lambda (_g7434674349_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7434974352_))) - (_g7434774374_ - (lambda (_g7434974360_) - ((lambda (_L74363_) + _g7434674349_))) + (_g7434474371_ + (lambda (_g7434674357_) + ((lambda (_L74360_) (let () - (let ((__tmp75198 (gx#datum->syntax '#f 'let)) - (__tmp75193 - (let ((__tmp75195 - (let ((__tmp75196 - (let ((__tmp75197 + (let ((__tmp75195 (gx#datum->syntax '#f 'let)) + (__tmp75190 + (let ((__tmp75192 + (let ((__tmp75193 + (let ((__tmp75194 (let () (declare (not safe)) - (cons _L74153_ + (cons _L74150_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L74270_ - __tmp75197)))) + (cons _L74267_ + __tmp75194)))) (declare (not safe)) - (cons __tmp75196 '()))) - (__tmp75194 + (cons __tmp75193 '()))) + (__tmp75191 (let () (declare (not safe)) - (cons _L74363_ '())))) + (cons _L74360_ '())))) (declare (not safe)) - (cons __tmp75195 __tmp75194)))) + (cons __tmp75192 __tmp75191)))) (declare (not safe)) - (cons __tmp75198 __tmp75193)))) - _g7434974360_)))) - (_g7434774374_ _K74134_)))))) + (cons __tmp75195 __tmp75190)))) + _g7434674357_)))) + (_g7434474371_ _K74131_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont7505775058_ - (lambda (_L74188_) - (let* ((_g7419974214_ - (lambda (_g7420074210_) + (___kont7505475055_ + (lambda (_L74185_) + (let* ((_g7419674211_ + (lambda (_g7419774207_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7420074210_))) - (_g7419874259_ - (lambda (_g7420074218_) + _g7419774207_))) + (_g7419574256_ + (lambda (_g7419774215_) (if (gx#stx-pair? - _g7420074218_) - (let ((_e7420574221_ + _g7419774215_) + (let ((_e7420274218_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g7420074218_))) - (let ((_hd7420474225_ + (gx#syntax-e _g7419774215_))) + (let ((_hd7420174222_ (let () (declare (not safe)) - (##car _e7420574221_))) - (_tl7420374228_ + (##car _e7420274218_))) + (_tl7420074225_ (let () (declare (not safe)) - (##cdr _e7420574221_)))) - (if (gx#stx-pair? _tl7420374228_) - (let ((_e7420874231_ (gx#syntax-e _tl7420374228_))) - (let ((_hd7420774235_ + (##cdr _e7420274218_)))) + (if (gx#stx-pair? _tl7420074225_) + (let ((_e7420574228_ (gx#syntax-e _tl7420074225_))) + (let ((_hd7420474232_ (let () (declare (not safe)) - (##car _e7420874231_))) - (_tl7420674238_ + (##car _e7420574228_))) + (_tl7420374235_ (let () (declare (not safe)) - (##cdr _e7420874231_)))) - (if (gx#stx-null? _tl7420674238_) - ((lambda (_L74241_ _L74243_) + (##cdr _e7420574228_)))) + (if (gx#stx-null? _tl7420374235_) + ((lambda (_L74238_ _L74240_) (let () - (let ((__tmp75235 + (let ((__tmp75232 (gx#datum->syntax '#f 'if)) - (__tmp75222 - (let ((__tmp75225 - (let ((__tmp75234 + (__tmp75219 + (let ((__tmp75222 + (let ((__tmp75231 (gx#datum->syntax '#f 'equal?)) - (__tmp75226 - (let ((__tmp75231 + (__tmp75223 + (let ((__tmp75228 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp75233 (gx#datum->syntax '#f '__AST-e)) - (__tmp75232 + (let ((__tmp75230 (gx#datum->syntax '#f '__AST-e)) + (__tmp75229 (let () (declare (not safe)) - (cons _L74153_ '())))) + (cons _L74150_ '())))) (declare (not safe)) - (cons __tmp75233 __tmp75232))) - (__tmp75227 - (let ((__tmp75228 - (let ((__tmp75230 + (cons __tmp75230 __tmp75229))) + (__tmp75224 + (let ((__tmp75225 + (let ((__tmp75227 (gx#datum->syntax '#f 'quote)) - (__tmp75229 + (__tmp75226 (let () (declare (not safe)) - (cons _L74188_ '())))) + (cons _L74185_ '())))) (declare (not safe)) - (cons __tmp75230 __tmp75229)))) + (cons __tmp75227 __tmp75226)))) (declare (not safe)) - (cons __tmp75228 '())))) + (cons __tmp75225 '())))) (declare (not safe)) - (cons __tmp75231 __tmp75227)))) + (cons __tmp75228 __tmp75224)))) (declare (not safe)) - (cons __tmp75234 __tmp75226))) - (__tmp75223 - (let ((__tmp75224 - (let () (declare (not safe)) (cons _L74241_ '())))) + (cons __tmp75231 __tmp75223))) + (__tmp75220 + (let ((__tmp75221 + (let () (declare (not safe)) (cons _L74238_ '())))) (declare (not safe)) - (cons _L74243_ __tmp75224)))) + (cons _L74240_ __tmp75221)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75225 - __tmp75223)))) + (cons __tmp75222 + __tmp75220)))) (declare (not safe)) - (cons __tmp75235 __tmp75222)))) - _hd7420774235_ - _hd7420474225_) - (_g7419974214_ _g7420074218_)))) - (_g7419974214_ _g7420074218_)))) - (_g7419974214_ _g7420074218_))))) + (cons __tmp75232 __tmp75219)))) + _hd7420474232_ + _hd7420174222_) + (_g7419674211_ _g7419774215_)))) + (_g7419674211_ _g7419774215_)))) + (_g7419674211_ _g7419774215_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7419874259_ - (list _K74134_ _E74135_)))))) - (let ((_g7416574378_ + (_g7419574256_ + (list _K74131_ _E74132_)))))) + (let ((_g7416274375_ (lambda () - (let ((_L74270_ - ___stx7505075051_)) - (if (gx#identifier? _L74270_) - (___kont7505575056_ - _L74270_) - (___kont7505775058_ - ___stx7505075051_)))))) - (if (gx#stx-pair? ___stx7505075051_) - (let ((_e7417374385_ + (let ((_L74267_ + ___stx7504775048_)) + (if (gx#identifier? _L74267_) + (___kont7505275053_ + _L74267_) + (___kont7505475055_ + ___stx7504775048_)))))) + (if (gx#stx-pair? ___stx7504775048_) + (let ((_e7417074382_ (gx#syntax-e - ___stx7505075051_))) - (let ((_tl7417174392_ + ___stx7504775048_))) + (let ((_tl7416874389_ (let () (declare (not safe)) - (##cdr _e7417374385_))) - (_hd7417274389_ + (##cdr _e7417074382_))) + (_hd7416974386_ (let () (declare (not safe)) - (##car _e7417374385_)))) - (___kont7505375054_ - _tl7417174392_ - _hd7417274389_))) + (##car _e7417074382_)))) + (___kont7505075051_ + _tl7416874389_ + _hd7416974386_))) (let () (declare (not safe)) - (_g7416574378_)))))))) - _g7413974150_)))) - (_g7413774573_ _tgt74133_))))) - (let* ((_g7359373621_ - (lambda (_g7359473617_) + (_g7416274375_)))))))) + _g7413674147_)))) + (_g7413474570_ _tgt74130_))))) + (let* ((_g7359073618_ + (lambda (_g7359173614_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7359473617_))) - (_g7359274127_ - (lambda (_g7359473625_) - (if (gx#stx-pair? _g7359473625_) - (let ((_e7360073628_ (gx#syntax-e _g7359473625_))) - (let ((_hd7359973632_ + _g7359173614_))) + (_g7358974124_ + (lambda (_g7359173622_) + (if (gx#stx-pair? _g7359173622_) + (let ((_e7359773625_ (gx#syntax-e _g7359173622_))) + (let ((_hd7359673629_ (let () (declare (not safe)) - (##car _e7360073628_))) - (_tl7359873635_ + (##car _e7359773625_))) + (_tl7359573632_ (let () (declare (not safe)) - (##cdr _e7360073628_)))) - (if (gx#stx-pair? _tl7359873635_) - (let ((_e7360373638_ - (gx#syntax-e _tl7359873635_))) - (let ((_hd7360273642_ + (##cdr _e7359773625_)))) + (if (gx#stx-pair? _tl7359573632_) + (let ((_e7360073635_ + (gx#syntax-e _tl7359573632_))) + (let ((_hd7359973639_ (let () (declare (not safe)) - (##car _e7360373638_))) - (_tl7360173645_ + (##car _e7360073635_))) + (_tl7359873642_ (let () (declare (not safe)) - (##cdr _e7360373638_)))) - (if (gx#stx-pair? _tl7360173645_) - (let ((_e7360673648_ - (gx#syntax-e _tl7360173645_))) - (let ((_hd7360573652_ + (##cdr _e7360073635_)))) + (if (gx#stx-pair? _tl7359873642_) + (let ((_e7360373645_ + (gx#syntax-e _tl7359873642_))) + (let ((_hd7360273649_ (let () (declare (not safe)) - (##car _e7360673648_))) - (_tl7360473655_ + (##car _e7360373645_))) + (_tl7360173652_ (let () (declare (not safe)) - (##cdr _e7360673648_)))) + (##cdr _e7360373645_)))) (if (gx#stx-pair/null? - _tl7360473655_) - (let ((_g75236_ + _tl7360173652_) + (let ((_g75233_ (gx#syntax-split-splice - _tl7360473655_ + _tl7360173652_ '0))) (begin - (let ((_g75237_ + (let ((_g75234_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g75236_) - (##vector-length _g75236_) + _g75233_) + (##vector-length _g75233_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g75237_ 2))) - (error "Context expects 2 values" _g75237_))) + (if (not (let () (declare (not safe)) (##fx= _g75234_ 2))) + (error "Context expects 2 values" _g75234_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target7360773658_ + (let ((_target7360473655_ (let () (declare (not safe)) (##vector-ref - _g75236_ + _g75233_ 0))) - (_tl7360973661_ + (_tl7360673658_ (let () (declare (not safe)) (##vector-ref - _g75236_ + _g75233_ 1)))) (if (gx#stx-null? - _tl7360973661_) - (letrec ((_loop7361073664_ + _tl7360673658_) + (letrec ((_loop7360773661_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd7360873668_ _clause7361473671_) - (if (gx#stx-pair? _hd7360873668_) - (let ((_e7361173674_ - (gx#syntax-e _hd7360873668_))) - (let ((_lp-hd7361273678_ + (lambda (_hd7360573665_ _clause7361173668_) + (if (gx#stx-pair? _hd7360573665_) + (let ((_e7360873671_ + (gx#syntax-e _hd7360573665_))) + (let ((_lp-hd7360973675_ (let () (declare (not safe)) - (##car _e7361173674_))) - (_lp-tl7361373681_ + (##car _e7360873671_))) + (_lp-tl7361073678_ (let () (declare (not safe)) - (##cdr _e7361173674_)))) - (_loop7361073664_ - _lp-tl7361373681_ + (##cdr _e7360873671_)))) + (_loop7360773661_ + _lp-tl7361073678_ (let () (declare (not safe)) - (cons _lp-hd7361273678_ - _clause7361473671_))))) - (let ((_clause7361573684_ - (reverse _clause7361473671_))) - ((lambda (_L73688_ _L73690_ _L73691_) - (let _recur73713_ ((_rest73716_ - (let ((__tmp75259 + (cons _lp-hd7360973675_ + _clause7361173668_))))) + (let ((_clause7361273681_ + (reverse _clause7361173668_))) + ((lambda (_L73685_ _L73687_ _L73688_) + (let _recur73710_ ((_rest73713_ + (let ((__tmp75256 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7411874121_ _g7411974124_) + (lambda (_g7411574118_ _g7411674121_) (let () (declare (not safe)) - (cons _g7411874121_ _g7411974124_))))) + (cons _g7411574118_ _g7411674121_))))) (declare (not safe)) - (foldr1 __tmp75259 '() _L73688_)))) + (foldr1 __tmp75256 '() _L73685_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest7371873727_ _rest73716_) - (_E7372173733_ + (let* ((_rest7371573724_ _rest73713_) + (_E7371873730_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _rest7371873727_))))) - (let ((_K7372374103_ - (lambda (_rest73749_ - _hd73751_) - (let* ((_g7375373761_ - (lambda (_g7375473757_) + _rest7371573724_))))) + (let ((_K7372074100_ + (lambda (_rest73746_ + _hd73748_) + (let* ((_g7375073758_ + (lambda (_g7375173754_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7375473757_))) - (_g7375274099_ - (lambda (_g7375473765_) - ((lambda (_L73768_) + _g7375173754_))) + (_g7374974096_ + (lambda (_g7375173762_) + ((lambda (_L73765_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g7378673794_ - (lambda (_g7378773790_) + (let* ((_g7378373791_ + (lambda (_g7378473787_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7378773790_))) - (_g7378574095_ - (lambda (_g7378773798_) - ((lambda (_L73801_) + _g7378473787_))) + (_g7378274092_ + (lambda (_g7378473795_) + ((lambda (_L73798_) (let () - (let* ((_g7381473822_ - (lambda (_g7381573818_) + (let* ((_g7381173819_ + (lambda (_g7381273815_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7381573818_))) - (_g7381374091_ - (lambda (_g7381573826_) - ((lambda (_L73829_) + _g7381273815_))) + (_g7381074088_ + (lambda (_g7381273823_) + ((lambda (_L73826_) (let () - (let* ((_g7384273850_ + (let* ((_g7383973847_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7384373846_) + (lambda (_g7384073843_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7384373846_))) - (_g7384173872_ - (lambda (_g7384373854_) - ((lambda (_L73857_) + _g7384073843_))) + (_g7383873869_ + (lambda (_g7384073851_) + ((lambda (_L73854_) (let () (let () - (let ((__tmp75246 + (let ((__tmp75243 (gx#datum->syntax '#f 'let)) - (__tmp75238 - (let ((__tmp75240 - (let ((__tmp75241 - (let ((__tmp75242 - (let ((__tmp75245 + (__tmp75235 + (let ((__tmp75237 + (let ((__tmp75238 + (let ((__tmp75239 + (let ((__tmp75242 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp75243 - (let ((__tmp75244 + (__tmp75240 + (let ((__tmp75241 (let () (declare (not safe)) - (cons _L73829_ '())))) + (cons _L73826_ '())))) (declare (not safe)) - (cons '() __tmp75244)))) + (cons '() __tmp75241)))) (declare (not safe)) - (cons __tmp75245 __tmp75243)))) + (cons __tmp75242 __tmp75240)))) (declare (not safe)) - (cons __tmp75242 '())))) + (cons __tmp75239 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L73768_ __tmp75241))) - (__tmp75239 + (cons _L73765_ __tmp75238))) + (__tmp75236 (let () (declare (not safe)) - (cons _L73857_ '())))) + (cons _L73854_ '())))) (declare (not safe)) - (cons __tmp75240 __tmp75239)))) + (cons __tmp75237 __tmp75236)))) (declare (not safe)) - (cons __tmp75246 __tmp75238))))) - _g7384373854_)))) - (_g7384173872_ - (let* ((___stx7506875069_ _hd73751_) - (_g7387873918_ + (cons __tmp75243 __tmp75235))))) + _g7384073851_)))) + (_g7383873869_ + (let* ((___stx7506575066_ _hd73748_) + (_g7387573915_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx7506875069_)))) - (let ((___kont7507175072_ - (lambda (_L74064_) - (let ((__tmp75249 (gx#datum->syntax '#f 'begin)) - (__tmp75247 - (let ((__tmp75248 - (lambda (_g7407874081_ - _g7407974084_) + ___stx7506575066_)))) + (let ((___kont7506875069_ + (lambda (_L74061_) + (let ((__tmp75246 (gx#datum->syntax '#f 'begin)) + (__tmp75244 + (let ((__tmp75245 + (lambda (_g7407574078_ + _g7407674081_) (let () (declare (not safe)) - (cons _g7407874081_ - _g7407974084_))))) + (cons _g7407574078_ + _g7407674081_))))) (declare (not safe)) - (foldr1 __tmp75248 '() _L74064_)))) + (foldr1 __tmp75245 '() _L74061_)))) (declare (not safe)) - (cons __tmp75249 __tmp75247)))) - (___kont7507575076_ - (lambda (_L74002_ _L74004_) - (_generate173590_ - _L74004_ - _L73691_ - _L74002_ - _L73801_ - _L73690_))) - (___kont7507775078_ - (lambda (_L73955_ _L73957_ _L73958_) - (_generate173590_ - _L73958_ - _L73691_ - (let ((__tmp75253 (gx#datum->syntax '#f 'if)) - (__tmp75250 - (let ((__tmp75251 - (let ((__tmp75252 + (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 (let () (declare (not safe)) - (cons _L73801_ '())))) + (cons _L73798_ '())))) (declare (not safe)) - (cons _L73955_ __tmp75252)))) + (cons _L73952_ __tmp75249)))) (declare (not safe)) - (cons _L73957_ __tmp75251)))) + (cons _L73954_ __tmp75248)))) (declare (not safe)) - (cons __tmp75253 __tmp75250)) - _L73801_ - _L73690_)))) - (let ((___match7509775098_ - (lambda (_e7388374024_ - _hd7388274028_ - _tl7388174031_ - ___splice7507375074_ - _target7388474034_ - _tl7388674037_) - (letrec ((_loop7388774040_ - (lambda (_hd7388574044_ - _expr7389174047_) - (if (gx#stx-pair? _hd7388574044_) - (let ((_e7388874050_ + (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_ (gx#syntax-e - _hd7388574044_))) - (let ((_lp-tl7389074057_ + _hd7388274041_))) + (let ((_lp-tl7388774054_ (let () (declare (not safe)) - (##cdr _e7388874050_))) - (_lp-hd7388974054_ + (##cdr _e7388574047_))) + (_lp-hd7388674051_ (let () (declare (not safe)) - (##car _e7388874050_)))) - (_loop7388774040_ - _lp-tl7389074057_ + (##car _e7388574047_)))) + (_loop7388474037_ + _lp-tl7388774054_ (let () (declare (not safe)) - (cons _lp-hd7388974054_ - _expr7389174047_))))) - (let ((_expr7389274060_ - (reverse _expr7389174047_))) - (___kont7507175072_ - _expr7389274060_)))))) - (_loop7388774040_ - _target7388474034_ + (cons _lp-hd7388674051_ + _expr7388874044_))))) + (let ((_expr7388974057_ + (reverse _expr7388874044_))) + (___kont7506875069_ + _expr7388974057_)))))) + (_loop7388474037_ + _target7388174031_ '()))))) - (if (gx#stx-pair? ___stx7506875069_) - (let ((_e7388374024_ - (gx#syntax-e ___stx7506875069_))) - (let ((_tl7388174031_ + (if (gx#stx-pair? ___stx7506575066_) + (let ((_e7388074021_ + (gx#syntax-e ___stx7506575066_))) + (let ((_tl7387874028_ (let () (declare (not safe)) - (##cdr _e7388374024_))) - (_hd7388274028_ + (##cdr _e7388074021_))) + (_hd7387974025_ (let () (declare (not safe)) - (##car _e7388374024_)))) - (if (gx#identifier? _hd7388274028_) + (##car _e7388074021_)))) + (if (gx#identifier? _hd7387974025_) (if (gx#free-identifier=? - |[1]#_g75254_| - _hd7388274028_) + |[1]#_g75251_| + _hd7387974025_) (if (gx#stx-pair/null? - _tl7388174031_) - (let ((___splice7507375074_ + _tl7387874028_) + (let ((___splice7507075071_ (gx#syntax-split-splice - _tl7388174031_ + _tl7387874028_ '0))) - (let ((_tl7388674037_ + (let ((_tl7388374034_ (let () (declare (not safe)) (##vector-ref - ___splice7507375074_ + ___splice7507075071_ '1))) - (_target7388474034_ + (_target7388174031_ (let () (declare (not safe)) (##vector-ref - ___splice7507375074_ + ___splice7507075071_ '0)))) (if (gx#stx-null? - _tl7388674037_) - (___match7509775098_ - _e7388374024_ - _hd7388274028_ - _tl7388174031_ - ___splice7507375074_ - _target7388474034_ - _tl7388674037_) + _tl7388374034_) + (___match7509475095_ + _e7388074021_ + _hd7387974025_ + _tl7387874028_ + ___splice7507075071_ + _target7388174031_ + _tl7388374034_) (if (gx#stx-pair? - _tl7388174031_) - (let ((_e7390073992_ + _tl7387874028_) + (let ((_e7389773989_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl7388174031_))) - (let ((_tl7389873999_ - (let () (declare (not safe)) (##cdr _e7390073992_))) - (_hd7389973996_ + (gx#syntax-e _tl7387874028_))) + (let ((_tl7389573996_ + (let () (declare (not safe)) (##cdr _e7389773989_))) + (_hd7389673993_ (let () (declare (not safe)) - (##car _e7390073992_)))) - (if (gx#stx-null? _tl7389873999_) - (___kont7507575076_ _hd7389973996_ _hd7388274028_) - (if (gx#stx-pair? _tl7389873999_) - (let ((_e7391273945_ - (gx#syntax-e _tl7389873999_))) - (let ((_tl7391073952_ + (##car _e7389773989_)))) + (if (gx#stx-null? _tl7389573996_) + (___kont7507275073_ _hd7389673993_ _hd7387974025_) + (if (gx#stx-pair? _tl7389573996_) + (let ((_e7390973942_ + (gx#syntax-e _tl7389573996_))) + (let ((_tl7390773949_ (let () (declare (not safe)) - (##cdr _e7391273945_))) - (_hd7391173949_ + (##cdr _e7390973942_))) + (_hd7390873946_ (let () (declare (not safe)) - (##car _e7391273945_)))) - (if (gx#stx-null? _tl7391073952_) - (___kont7507775078_ - _hd7391173949_ - _hd7389973996_ - _hd7388274028_) + (##car _e7390973942_)))) + (if (gx#stx-null? _tl7390773949_) + (___kont7507475075_ + _hd7390873946_ + _hd7389673993_ + _hd7387974025_) (let () (declare (not safe)) - (_g7387873918_))))) - (let () (declare (not safe)) (_g7387873918_)))))) - (let () (declare (not safe)) (_g7387873918_)))))) + (_g7387573915_))))) + (let () (declare (not safe)) (_g7387573915_)))))) + (let () (declare (not safe)) (_g7387573915_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl7388174031_) - (let ((_e7390073992_ + (if (gx#stx-pair? _tl7387874028_) + (let ((_e7389773989_ (gx#syntax-e - _tl7388174031_))) - (let ((_tl7389873999_ + _tl7387874028_))) + (let ((_tl7389573996_ (let () (declare (not safe)) - (##cdr _e7390073992_))) - (_hd7389973996_ + (##cdr _e7389773989_))) + (_hd7389673993_ (let () (declare (not safe)) - (##car _e7390073992_)))) + (##car _e7389773989_)))) (if (gx#stx-null? - _tl7389873999_) - (___kont7507575076_ - _hd7389973996_ - _hd7388274028_) + _tl7389573996_) + (___kont7507275073_ + _hd7389673993_ + _hd7387974025_) (if (gx#stx-pair? - _tl7389873999_) - (let ((_e7391273945_ + _tl7389573996_) + (let ((_e7390973942_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl7389873999_))) - (let ((_tl7391073952_ + (gx#syntax-e _tl7389573996_))) + (let ((_tl7390773949_ (let () (declare (not safe)) - (##cdr _e7391273945_))) - (_hd7391173949_ + (##cdr _e7390973942_))) + (_hd7390873946_ (let () (declare (not safe)) - (##car _e7391273945_)))) - (if (gx#stx-null? _tl7391073952_) - (___kont7507775078_ - _hd7391173949_ - _hd7389973996_ - _hd7388274028_) - (let () (declare (not safe)) (_g7387873918_))))) - (let () (declare (not safe)) (_g7387873918_)))))) + (##car _e7390973942_)))) + (if (gx#stx-null? _tl7390773949_) + (___kont7507475075_ + _hd7390873946_ + _hd7389673993_ + _hd7387974025_) + (let () (declare (not safe)) (_g7387573915_))))) + (let () (declare (not safe)) (_g7387573915_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g7387873918_)))) - (if (gx#stx-pair? _tl7388174031_) - (let ((_e7390073992_ + (_g7387573915_)))) + (if (gx#stx-pair? _tl7387874028_) + (let ((_e7389773989_ (gx#syntax-e - _tl7388174031_))) - (let ((_tl7389873999_ + _tl7387874028_))) + (let ((_tl7389573996_ (let () (declare (not safe)) - (##cdr _e7390073992_))) - (_hd7389973996_ + (##cdr _e7389773989_))) + (_hd7389673993_ (let () (declare (not safe)) - (##car _e7390073992_)))) + (##car _e7389773989_)))) (if (gx#stx-null? - _tl7389873999_) - (___kont7507575076_ - _hd7389973996_ - _hd7388274028_) + _tl7389573996_) + (___kont7507275073_ + _hd7389673993_ + _hd7387974025_) (if (gx#stx-pair? - _tl7389873999_) - (let ((_e7391273945_ + _tl7389573996_) + (let ((_e7390973942_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl7389873999_))) - (let ((_tl7391073952_ - (let () (declare (not safe)) (##cdr _e7391273945_))) - (_hd7391173949_ + (gx#syntax-e _tl7389573996_))) + (let ((_tl7390773949_ + (let () (declare (not safe)) (##cdr _e7390973942_))) + (_hd7390873946_ (let () (declare (not safe)) - (##car _e7391273945_)))) - (if (gx#stx-null? _tl7391073952_) - (___kont7507775078_ - _hd7391173949_ - _hd7389973996_ - _hd7388274028_) - (let () (declare (not safe)) (_g7387873918_))))) - (let () (declare (not safe)) (_g7387873918_)))))) + (##car _e7390973942_)))) + (if (gx#stx-null? _tl7390773949_) + (___kont7507475075_ + _hd7390873946_ + _hd7389673993_ + _hd7387974025_) + (let () (declare (not safe)) (_g7387573915_))))) + (let () (declare (not safe)) (_g7387573915_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g7387873918_)))) - (if (gx#stx-pair? _tl7388174031_) - (let ((_e7390073992_ - (gx#syntax-e _tl7388174031_))) - (let ((_tl7389873999_ + (_g7387573915_)))) + (if (gx#stx-pair? _tl7387874028_) + (let ((_e7389773989_ + (gx#syntax-e _tl7387874028_))) + (let ((_tl7389573996_ (let () (declare (not safe)) - (##cdr _e7390073992_))) - (_hd7389973996_ + (##cdr _e7389773989_))) + (_hd7389673993_ (let () (declare (not safe)) - (##car _e7390073992_)))) - (if (gx#stx-null? _tl7389873999_) - (___kont7507575076_ - _hd7389973996_ - _hd7388274028_) + (##car _e7389773989_)))) + (if (gx#stx-null? _tl7389573996_) + (___kont7507275073_ + _hd7389673993_ + _hd7387974025_) (if (gx#stx-pair? - _tl7389873999_) - (let ((_e7391273945_ + _tl7389573996_) + (let ((_e7390973942_ (gx#syntax-e - _tl7389873999_))) - (let ((_tl7391073952_ + _tl7389573996_))) + (let ((_tl7390773949_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e7391273945_))) - (_hd7391173949_ - (let () (declare (not safe)) (##car _e7391273945_)))) - (if (gx#stx-null? _tl7391073952_) - (___kont7507775078_ - _hd7391173949_ - _hd7389973996_ - _hd7388274028_) - (let () (declare (not safe)) (_g7387873918_))))) - (let () (declare (not safe)) (_g7387873918_)))))) + (##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_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g7387873918_)))))) + (_g7387573915_)))))) (let () (declare (not safe)) - (_g7387873918_)))))))))) + (_g7387573915_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g7381573826_)))) - (_g7381374091_ - (_recur73713_ _rest73749_))))) - _g7378773798_)))) - (_g7378574095_ + _g7381273823_)))) + (_g7381074088_ + (_recur73710_ _rest73746_))))) + _g7378473795_)))) + (_g7378274092_ (let () (declare (not safe)) - (cons _L73768_ '())))))) - _g7375473765_)))) - (_g7375274099_ (gx#genident '$E))))) + (cons _L73765_ '())))))) + _g7375173762_)))) + (_g7374974096_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K7372273741_ + (_K7371973738_ (lambda () - (let ((__tmp75258 + (let ((__tmp75255 (gx#datum->syntax '#f '__raise-syntax-error)) - (__tmp75255 - (let ((__tmp75256 + (__tmp75252 + (let ((__tmp75253 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp75257 + (let ((__tmp75254 (let () (declare (not safe)) - (cons _L73691_ '())))) + (cons _L73688_ '())))) (declare (not safe)) (cons '"Bad syntax; malformed ast clause" - __tmp75257)))) + __tmp75254)))) (declare (not safe)) - (cons '#f __tmp75256)))) + (cons '#f __tmp75253)))) (declare (not safe)) - (cons __tmp75258 __tmp75255))))) + (cons __tmp75255 __tmp75252))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match7372073745_ + (let ((_try-match7371773742_ (lambda () (if (let () (declare (not safe)) - (##null? _rest7371873727_)) - (_K7372273741_) - (_E7372173733_))))) + (##null? _rest7371573724_)) + (_K7371973738_) + (_E7371873730_))))) (if (let () (declare (not safe)) - (##pair? _rest7371873727_)) - (let ((_tl7372574110_ + (##pair? _rest7371573724_)) + (let ((_tl7372274107_ (let () (declare (not safe)) - (##cdr _rest7371873727_))) - (_hd7372474107_ + (##cdr _rest7371573724_))) + (_hd7372174104_ (let () (declare (not safe)) - (##car _rest7371873727_)))) - (let ((_hd74113_ - _hd7372474107_) - (_rest74116_ - _tl7372574110_)) - (_K7372374103_ - _rest74116_ - _hd74113_))) - (_try-match7372073745_))))))) - _clause7361573684_ - _hd7360573652_ - _hd7360273642_)))))) - (_loop7361073664_ _target7360773658_ '())) - (_g7359373621_ _g7359473625_))))) + (##car _rest7371573724_)))) + (let ((_hd74110_ + _hd7372174104_) + (_rest74113_ + _tl7372274107_)) + (_K7372074100_ + _rest74113_ + _hd74110_))) + (_try-match7371773742_))))))) + _clause7361273681_ + _hd7360273649_ + _hd7359973639_)))))) + (_loop7360773661_ _target7360473655_ '())) + (_g7359073618_ _g7359173622_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7359373621_ - _g7359473625_)))) - (_g7359373621_ _g7359473625_)))) - (_g7359373621_ _g7359473625_)))) - (_g7359373621_ _g7359473625_))))) - (_g7359274127_ _stx73587_))))) + (_g7359073618_ + _g7359173622_)))) + (_g7359073618_ _g7359173622_)))) + (_g7359073618_ _g7359173622_)))) + (_g7359073618_ _g7359173622_))))) + (_g7358974124_ _stx73584_))))) (define |[:0:]#SyntaxError| - (let ((__obj75141 + (let ((__obj75138 (let () (declare (not safe)) (##structure @@ -1463,7 +1463,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75141 + __obj75138 '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! - __obj75141 + __obj75138 'SyntaxError '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1479,26 +1479,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75141 + __obj75138 '(message irritants where context phi marks) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75260 - (let ((__tmp75261 |[1]#_g75262_|)) + (let ((__tmp75257 + (let ((__tmp75258 |[1]#_g75259_|)) (declare (not safe)) - (cons __tmp75261 '())))) + (cons __tmp75258 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj75141 - __tmp75260 + __obj75138 + __tmp75257 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj75141 + __obj75138 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1506,7 +1506,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75141 + __obj75138 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1514,7 +1514,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75141 + __obj75138 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1522,254 +1522,254 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75141 + __obj75138 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75263 |[1]#_g75264_|)) + (let ((__tmp75260 |[1]#_g75261_|)) (declare (not safe)) (##unchecked-structure-set! - __obj75141 - __tmp75263 + __obj75138 + __tmp75260 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75265 |[1]#_g75266_|)) + (let ((__tmp75262 |[1]#_g75263_|)) (declare (not safe)) (##unchecked-structure-set! - __obj75141 - __tmp75265 + __obj75138 + __tmp75262 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75267 |[1]#_g75268_|)) + (let ((__tmp75264 |[1]#_g75265_|)) (declare (not safe)) (##unchecked-structure-set! - __obj75141 - __tmp75267 + __obj75138 + __tmp75264 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75269 - (let ((__tmp75290 - (let ((__tmp75291 |[1]#_g75292_|)) + (let ((__tmp75266 + (let ((__tmp75287 + (let ((__tmp75288 |[1]#_g75289_|)) (declare (not safe)) - (cons 'message __tmp75291))) - (__tmp75270 - (let ((__tmp75287 - (let ((__tmp75288 |[1]#_g75289_|)) + (cons 'message __tmp75288))) + (__tmp75267 + (let ((__tmp75284 + (let ((__tmp75285 |[1]#_g75286_|)) (declare (not safe)) - (cons 'irritants __tmp75288))) - (__tmp75271 - (let ((__tmp75284 - (let ((__tmp75285 |[1]#_g75286_|)) + (cons 'irritants __tmp75285))) + (__tmp75268 + (let ((__tmp75281 + (let ((__tmp75282 |[1]#_g75283_|)) (declare (not safe)) - (cons 'where __tmp75285))) - (__tmp75272 - (let ((__tmp75281 - (let ((__tmp75282 |[1]#_g75283_|)) + (cons 'where __tmp75282))) + (__tmp75269 + (let ((__tmp75278 + (let ((__tmp75279 |[1]#_g75280_|)) (declare (not safe)) - (cons 'context __tmp75282))) - (__tmp75273 - (let ((__tmp75278 - (let ((__tmp75279 - |[1]#_g75280_|)) + (cons 'context __tmp75279))) + (__tmp75270 + (let ((__tmp75275 + (let ((__tmp75276 + |[1]#_g75277_|)) (declare (not safe)) - (cons 'phi __tmp75279))) - (__tmp75274 - (let ((__tmp75275 - (let ((__tmp75276 - |[1]#_g75277_|)) + (cons 'phi __tmp75276))) + (__tmp75271 + (let ((__tmp75272 + (let ((__tmp75273 + |[1]#_g75274_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp75276)))) + __tmp75273)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75275 '())))) + (cons __tmp75272 '())))) (declare (not safe)) - (cons __tmp75278 __tmp75274)))) + (cons __tmp75275 __tmp75271)))) (declare (not safe)) - (cons __tmp75281 __tmp75273)))) + (cons __tmp75278 __tmp75270)))) (declare (not safe)) - (cons __tmp75284 __tmp75272)))) + (cons __tmp75281 __tmp75269)))) (declare (not safe)) - (cons __tmp75287 __tmp75271)))) + (cons __tmp75284 __tmp75268)))) (declare (not safe)) - (cons __tmp75290 __tmp75270)))) + (cons __tmp75287 __tmp75267)))) (declare (not safe)) (##unchecked-structure-set! - __obj75141 - __tmp75269 + __obj75138 + __tmp75266 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75293 - (let ((__tmp75314 - (let ((__tmp75315 |[1]#_g75316_|)) + (let ((__tmp75290 + (let ((__tmp75311 + (let ((__tmp75312 |[1]#_g75313_|)) (declare (not safe)) - (cons 'message __tmp75315))) - (__tmp75294 - (let ((__tmp75311 - (let ((__tmp75312 |[1]#_g75313_|)) + (cons 'message __tmp75312))) + (__tmp75291 + (let ((__tmp75308 + (let ((__tmp75309 |[1]#_g75310_|)) (declare (not safe)) - (cons 'irritants __tmp75312))) - (__tmp75295 - (let ((__tmp75308 - (let ((__tmp75309 |[1]#_g75310_|)) + (cons 'irritants __tmp75309))) + (__tmp75292 + (let ((__tmp75305 + (let ((__tmp75306 |[1]#_g75307_|)) (declare (not safe)) - (cons 'where __tmp75309))) - (__tmp75296 - (let ((__tmp75305 - (let ((__tmp75306 |[1]#_g75307_|)) + (cons 'where __tmp75306))) + (__tmp75293 + (let ((__tmp75302 + (let ((__tmp75303 |[1]#_g75304_|)) (declare (not safe)) - (cons 'context __tmp75306))) - (__tmp75297 - (let ((__tmp75302 - (let ((__tmp75303 - |[1]#_g75304_|)) + (cons 'context __tmp75303))) + (__tmp75294 + (let ((__tmp75299 + (let ((__tmp75300 + |[1]#_g75301_|)) (declare (not safe)) - (cons 'phi __tmp75303))) - (__tmp75298 - (let ((__tmp75299 - (let ((__tmp75300 - |[1]#_g75301_|)) + (cons 'phi __tmp75300))) + (__tmp75295 + (let ((__tmp75296 + (let ((__tmp75297 + |[1]#_g75298_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp75300)))) + __tmp75297)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75299 '())))) + (cons __tmp75296 '())))) (declare (not safe)) - (cons __tmp75302 __tmp75298)))) + (cons __tmp75299 __tmp75295)))) (declare (not safe)) - (cons __tmp75305 __tmp75297)))) + (cons __tmp75302 __tmp75294)))) (declare (not safe)) - (cons __tmp75308 __tmp75296)))) + (cons __tmp75305 __tmp75293)))) (declare (not safe)) - (cons __tmp75311 __tmp75295)))) + (cons __tmp75308 __tmp75292)))) (declare (not safe)) - (cons __tmp75314 __tmp75294)))) + (cons __tmp75311 __tmp75291)))) (declare (not safe)) (##unchecked-structure-set! - __obj75141 - __tmp75293 + __obj75138 + __tmp75290 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75317 - (let ((__tmp75338 - (let ((__tmp75339 |[1]#_g75340_|)) + (let ((__tmp75314 + (let ((__tmp75335 + (let ((__tmp75336 |[1]#_g75337_|)) (declare (not safe)) - (cons 'message __tmp75339))) - (__tmp75318 - (let ((__tmp75335 - (let ((__tmp75336 |[1]#_g75337_|)) + (cons 'message __tmp75336))) + (__tmp75315 + (let ((__tmp75332 + (let ((__tmp75333 |[1]#_g75334_|)) (declare (not safe)) - (cons 'irritants __tmp75336))) - (__tmp75319 - (let ((__tmp75332 - (let ((__tmp75333 |[1]#_g75334_|)) + (cons 'irritants __tmp75333))) + (__tmp75316 + (let ((__tmp75329 + (let ((__tmp75330 |[1]#_g75331_|)) (declare (not safe)) - (cons 'where __tmp75333))) - (__tmp75320 - (let ((__tmp75329 - (let ((__tmp75330 |[1]#_g75331_|)) + (cons 'where __tmp75330))) + (__tmp75317 + (let ((__tmp75326 + (let ((__tmp75327 |[1]#_g75328_|)) (declare (not safe)) - (cons 'context __tmp75330))) - (__tmp75321 - (let ((__tmp75326 - (let ((__tmp75327 - |[1]#_g75328_|)) + (cons 'context __tmp75327))) + (__tmp75318 + (let ((__tmp75323 + (let ((__tmp75324 + |[1]#_g75325_|)) (declare (not safe)) - (cons 'phi __tmp75327))) - (__tmp75322 - (let ((__tmp75323 - (let ((__tmp75324 - |[1]#_g75325_|)) + (cons 'phi __tmp75324))) + (__tmp75319 + (let ((__tmp75320 + (let ((__tmp75321 + |[1]#_g75322_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp75324)))) + __tmp75321)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75323 '())))) + (cons __tmp75320 '())))) (declare (not safe)) - (cons __tmp75326 __tmp75322)))) + (cons __tmp75323 __tmp75319)))) (declare (not safe)) - (cons __tmp75329 __tmp75321)))) + (cons __tmp75326 __tmp75318)))) (declare (not safe)) - (cons __tmp75332 __tmp75320)))) + (cons __tmp75329 __tmp75317)))) (declare (not safe)) - (cons __tmp75335 __tmp75319)))) + (cons __tmp75332 __tmp75316)))) (declare (not safe)) - (cons __tmp75338 __tmp75318)))) + (cons __tmp75335 __tmp75315)))) (declare (not safe)) (##unchecked-structure-set! - __obj75141 - __tmp75317 + __obj75138 + __tmp75314 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75341 - (let ((__tmp75362 - (let ((__tmp75363 |[1]#_g75364_|)) + (let ((__tmp75338 + (let ((__tmp75359 + (let ((__tmp75360 |[1]#_g75361_|)) (declare (not safe)) - (cons 'message __tmp75363))) - (__tmp75342 - (let ((__tmp75359 - (let ((__tmp75360 |[1]#_g75361_|)) + (cons 'message __tmp75360))) + (__tmp75339 + (let ((__tmp75356 + (let ((__tmp75357 |[1]#_g75358_|)) (declare (not safe)) - (cons 'irritants __tmp75360))) - (__tmp75343 - (let ((__tmp75356 - (let ((__tmp75357 |[1]#_g75358_|)) + (cons 'irritants __tmp75357))) + (__tmp75340 + (let ((__tmp75353 + (let ((__tmp75354 |[1]#_g75355_|)) (declare (not safe)) - (cons 'where __tmp75357))) - (__tmp75344 - (let ((__tmp75353 - (let ((__tmp75354 |[1]#_g75355_|)) + (cons 'where __tmp75354))) + (__tmp75341 + (let ((__tmp75350 + (let ((__tmp75351 |[1]#_g75352_|)) (declare (not safe)) - (cons 'context __tmp75354))) - (__tmp75345 - (let ((__tmp75350 - (let ((__tmp75351 - |[1]#_g75352_|)) + (cons 'context __tmp75351))) + (__tmp75342 + (let ((__tmp75347 + (let ((__tmp75348 + |[1]#_g75349_|)) (declare (not safe)) - (cons 'phi __tmp75351))) - (__tmp75346 - (let ((__tmp75347 - (let ((__tmp75348 - |[1]#_g75349_|)) + (cons 'phi __tmp75348))) + (__tmp75343 + (let ((__tmp75344 + (let ((__tmp75345 + |[1]#_g75346_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp75348)))) + __tmp75345)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75347 '())))) + (cons __tmp75344 '())))) (declare (not safe)) - (cons __tmp75350 __tmp75346)))) + (cons __tmp75347 __tmp75343)))) (declare (not safe)) - (cons __tmp75353 __tmp75345)))) + (cons __tmp75350 __tmp75342)))) (declare (not safe)) - (cons __tmp75356 __tmp75344)))) + (cons __tmp75353 __tmp75341)))) (declare (not safe)) - (cons __tmp75359 __tmp75343)))) + (cons __tmp75356 __tmp75340)))) (declare (not safe)) - (cons __tmp75362 __tmp75342)))) + (cons __tmp75359 __tmp75339)))) (declare (not safe)) (##unchecked-structure-set! - __obj75141 - __tmp75341 + __obj75138 + __tmp75338 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj75141)) + __obj75138)) (define |[:0:]#AST| - (let ((__obj75143 + (let ((__obj75140 (let () (declare (not safe)) (##structure @@ -1792,7 +1792,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75143 + __obj75140 'gerbil#AST::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1800,7 +1800,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75143 + __obj75140 'syntax '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1808,7 +1808,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75143 + __obj75140 '(e source) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1816,7 +1816,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75143 + __obj75140 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1824,7 +1824,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75143 + __obj75140 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1832,7 +1832,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75143 + __obj75140 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1840,7 +1840,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75143 + __obj75140 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1848,117 +1848,117 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75143 + __obj75140 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75365 |[1]#_g75366_|)) + (let ((__tmp75362 |[1]#_g75363_|)) (declare (not safe)) (##unchecked-structure-set! - __obj75143 - __tmp75365 + __obj75140 + __tmp75362 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75367 |[1]#_g75368_|)) + (let ((__tmp75364 |[1]#_g75365_|)) (declare (not safe)) (##unchecked-structure-set! - __obj75143 - __tmp75367 + __obj75140 + __tmp75364 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75369 |[1]#_g75370_|)) + (let ((__tmp75366 |[1]#_g75367_|)) (declare (not safe)) (##unchecked-structure-set! - __obj75143 - __tmp75369 + __obj75140 + __tmp75366 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75371 - (let ((__tmp75376 - (let ((__tmp75377 |[1]#_g75378_|)) + (let ((__tmp75368 + (let ((__tmp75373 + (let ((__tmp75374 |[1]#_g75375_|)) (declare (not safe)) - (cons 'e __tmp75377))) - (__tmp75372 - (let ((__tmp75373 - (let ((__tmp75374 |[1]#_g75375_|)) + (cons 'e __tmp75374))) + (__tmp75369 + (let ((__tmp75370 + (let ((__tmp75371 |[1]#_g75372_|)) (declare (not safe)) - (cons 'source __tmp75374)))) + (cons 'source __tmp75371)))) (declare (not safe)) - (cons __tmp75373 '())))) + (cons __tmp75370 '())))) (declare (not safe)) - (cons __tmp75376 __tmp75372)))) + (cons __tmp75373 __tmp75369)))) (declare (not safe)) (##unchecked-structure-set! - __obj75143 - __tmp75371 + __obj75140 + __tmp75368 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75379 - (let ((__tmp75384 - (let ((__tmp75385 |[1]#_g75386_|)) + (let ((__tmp75376 + (let ((__tmp75381 + (let ((__tmp75382 |[1]#_g75383_|)) (declare (not safe)) - (cons 'e __tmp75385))) - (__tmp75380 - (let ((__tmp75381 - (let ((__tmp75382 |[1]#_g75383_|)) + (cons 'e __tmp75382))) + (__tmp75377 + (let ((__tmp75378 + (let ((__tmp75379 |[1]#_g75380_|)) (declare (not safe)) - (cons 'source __tmp75382)))) + (cons 'source __tmp75379)))) (declare (not safe)) - (cons __tmp75381 '())))) + (cons __tmp75378 '())))) (declare (not safe)) - (cons __tmp75384 __tmp75380)))) + (cons __tmp75381 __tmp75377)))) (declare (not safe)) (##unchecked-structure-set! - __obj75143 - __tmp75379 + __obj75140 + __tmp75376 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75387 - (let ((__tmp75392 - (let ((__tmp75393 |[1]#_g75394_|)) + (let ((__tmp75384 + (let ((__tmp75389 + (let ((__tmp75390 |[1]#_g75391_|)) (declare (not safe)) - (cons 'e __tmp75393))) - (__tmp75388 - (let ((__tmp75389 - (let ((__tmp75390 |[1]#_g75391_|)) + (cons 'e __tmp75390))) + (__tmp75385 + (let ((__tmp75386 + (let ((__tmp75387 |[1]#_g75388_|)) (declare (not safe)) - (cons 'source __tmp75390)))) + (cons 'source __tmp75387)))) (declare (not safe)) - (cons __tmp75389 '())))) + (cons __tmp75386 '())))) (declare (not safe)) - (cons __tmp75392 __tmp75388)))) + (cons __tmp75389 __tmp75385)))) (declare (not safe)) (##unchecked-structure-set! - __obj75143 - __tmp75387 + __obj75140 + __tmp75384 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75395 - (let ((__tmp75400 - (let ((__tmp75401 |[1]#_g75402_|)) + (let ((__tmp75392 + (let ((__tmp75397 + (let ((__tmp75398 |[1]#_g75399_|)) (declare (not safe)) - (cons 'e __tmp75401))) - (__tmp75396 - (let ((__tmp75397 - (let ((__tmp75398 |[1]#_g75399_|)) + (cons 'e __tmp75398))) + (__tmp75393 + (let ((__tmp75394 + (let ((__tmp75395 |[1]#_g75396_|)) (declare (not safe)) - (cons 'source __tmp75398)))) + (cons 'source __tmp75395)))) (declare (not safe)) - (cons __tmp75397 '())))) + (cons __tmp75394 '())))) (declare (not safe)) - (cons __tmp75400 __tmp75396)))) + (cons __tmp75397 __tmp75393)))) (declare (not safe)) (##unchecked-structure-set! - __obj75143 - __tmp75395 + __obj75140 + __tmp75392 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj75143)))) + __obj75140)))) diff --git a/src/bootstrap/gerbil/runtime/system__0.scm b/src/bootstrap/gerbil/runtime/system__0.scm index 07f2ea63..a369457e 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 1709128371) + (define gerbil/runtime/system::timestamp 1709229969) (begin - (define gerbil-version-string (lambda () '"v0.18.1-58-g0e3b2e51")) + (define gerbil-version-string (lambda () '"v0.18.1-50-ge94d1a06")) (define gerbil-system-manifest - (let ((__tmp61550 - (let ((__tmp61551 + (let ((__tmp61547 + (let ((__tmp61548 (let () (declare (not safe)) (gerbil-version-string)))) (declare (not safe)) - (cons '"Gerbil" __tmp61551))) - (__tmp61547 - (let ((__tmp61548 - (let ((__tmp61549 (system-version-string))) + (cons '"Gerbil" __tmp61548))) + (__tmp61544 + (let ((__tmp61545 + (let ((__tmp61546 (system-version-string))) (declare (not safe)) - (cons '"Gambit" __tmp61549)))) + (cons '"Gambit" __tmp61546)))) (declare (not safe)) - (cons __tmp61548 '())))) + (cons __tmp61545 '())))) (declare (not safe)) - (cons __tmp61550 __tmp61547))) + (cons __tmp61547 __tmp61544))) (define build-manifest gerbil-system-manifest) (set! build-manifest build-manifest) (define display-build-manifest__% - (lambda (_manifest61491_ _port61492_) - (let ((_p61498_ - (lambda (_g6149361495_) (display _g6149361495_ _port61492_))) - (_l61499_ (length _manifest61491_)) - (_i61500_ '0)) + (lambda (_manifest61488_ _port61489_) + (let ((_p61495_ + (lambda (_g6149061492_) (display _g6149061492_ _port61489_))) + (_l61496_ (length _manifest61488_)) + (_i61497_ '0)) (for-each - (lambda (_layer61502_) - (if (let () (declare (not safe)) (zero? _i61500_)) + (lambda (_layer61499_) + (if (let () (declare (not safe)) (zero? _i61497_)) '#!void - (if (= _i61500_ '1) - (let () (declare (not safe)) (_p61498_ '" on ")) - (let () (declare (not safe)) (_p61498_ '", ")))) - (let* ((_layer6150361510_ _layer61502_) - (_E6150561514_ + (if (= _i61497_ '1) + (let () (declare (not safe)) (_p61495_ '" on ")) + (let () (declare (not safe)) (_p61495_ '", ")))) + (let* ((_layer6150061507_ _layer61499_) + (_E6150261511_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _layer6150361510_)))) - (_K6150661520_ - (lambda (_version61517_ _name61518_) - (let () (declare (not safe)) (_p61498_ _name61518_)) - (let () (declare (not safe)) (_p61498_ '" ")) + (error '"No clause matching" _layer6150061507_)))) + (_K6150361517_ + (lambda (_version61514_ _name61515_) + (let () (declare (not safe)) (_p61495_ _name61515_)) + (let () (declare (not safe)) (_p61495_ '" ")) (let () (declare (not safe)) - (_p61498_ _version61517_))))) - (if (let () (declare (not safe)) (##pair? _layer6150361510_)) - (let ((_hd6150761523_ + (_p61495_ _version61514_))))) + (if (let () (declare (not safe)) (##pair? _layer6150061507_)) + (let ((_hd6150461520_ (let () (declare (not safe)) - (##car _layer6150361510_))) - (_tl6150861525_ + (##car _layer6150061507_))) + (_tl6150561522_ (let () (declare (not safe)) - (##cdr _layer6150361510_)))) - (let* ((_name61528_ _hd6150761523_) - (_version61530_ _tl6150861525_)) + (##cdr _layer6150061507_)))) + (let* ((_name61525_ _hd6150461520_) + (_version61527_ _tl6150561522_)) (declare (not safe)) - (_K6150661520_ _version61530_ _name61528_))) - (let () (declare (not safe)) (_E6150561514_)))) - (set! _i61500_ (+ _i61500_ '1))) - _manifest61491_)))) + (_K6150361517_ _version61527_ _name61525_))) + (let () (declare (not safe)) (_E6150261511_)))) + (set! _i61497_ (+ _i61497_ '1))) + _manifest61488_)))) (define display-build-manifest__0 (lambda () - (let* ((_manifest61536_ build-manifest) - (_port61538_ (current-output-port))) + (let* ((_manifest61533_ build-manifest) + (_port61535_ (current-output-port))) (declare (not safe)) - (display-build-manifest__% _manifest61536_ _port61538_)))) + (display-build-manifest__% _manifest61533_ _port61535_)))) (define display-build-manifest__1 - (lambda (_manifest61540_) - (let ((_port61542_ (current-output-port))) + (lambda (_manifest61537_) + (let ((_port61539_ (current-output-port))) (declare (not safe)) - (display-build-manifest__% _manifest61540_ _port61542_)))) + (display-build-manifest__% _manifest61537_ _port61539_)))) (define display-build-manifest - (lambda _g61553_ - (let ((_g61552_ (let () (declare (not safe)) (##length _g61553_)))) - (cond ((let () (declare (not safe)) (##fx= _g61552_ 0)) + (lambda _g61550_ + (let ((_g61549_ (let () (declare (not safe)) (##length _g61550_)))) + (cond ((let () (declare (not safe)) (##fx= _g61549_ 0)) (apply (lambda () (let () (declare (not safe)) (display-build-manifest__0))) - _g61553_)) - ((let () (declare (not safe)) (##fx= _g61552_ 1)) - (apply (lambda (_manifest61540_) + _g61550_)) + ((let () (declare (not safe)) (##fx= _g61549_ 1)) + (apply (lambda (_manifest61537_) (let () (declare (not safe)) - (display-build-manifest__1 _manifest61540_))) - _g61553_)) - ((let () (declare (not safe)) (##fx= _g61552_ 2)) - (apply (lambda (_manifest61544_ _port61545_) + (display-build-manifest__1 _manifest61537_))) + _g61550_)) + ((let () (declare (not safe)) (##fx= _g61549_ 2)) + (apply (lambda (_manifest61541_ _port61542_) (let () (declare (not safe)) (display-build-manifest__% - _manifest61544_ - _port61545_))) - _g61553_)) + _manifest61541_ + _port61542_))) + _g61550_)) (else (##raise-wrong-number-of-arguments-exception display-build-manifest - _g61553_)))))) + _g61550_)))))) (define build-manifest/layer - (lambda (_layer61486_) - (let ((_l61488_ (assoc _layer61486_ build-manifest))) - (if _l61488_ - (let () (declare (not safe)) (cons _l61488_ '())) + (lambda (_layer61483_) + (let ((_l61485_ (assoc _layer61483_ build-manifest))) + (if _l61485_ + (let () (declare (not safe)) (cons _l61485_ '())) '())))) (define build-manifest/head (lambda () - (let ((__tmp61554 (car build-manifest))) + (let ((__tmp61551 (car build-manifest))) (declare (not safe)) - (cons __tmp61554 '())))) + (cons __tmp61551 '())))) (define build-manifest-string__% - (lambda (_manifest61473_) + (lambda (_manifest61470_) (call-with-output-string '() - (lambda (_p61475_) + (lambda (_p61472_) (let () (declare (not safe)) - (display-build-manifest__% _manifest61473_ _p61475_)))))) + (display-build-manifest__% _manifest61470_ _p61472_)))))) (define build-manifest-string__0 (lambda () - (let ((_manifest61481_ build-manifest)) + (let ((_manifest61478_ build-manifest)) (declare (not safe)) - (build-manifest-string__% _manifest61481_)))) + (build-manifest-string__% _manifest61478_)))) (define build-manifest-string - (lambda _g61556_ - (let ((_g61555_ (let () (declare (not safe)) (##length _g61556_)))) - (cond ((let () (declare (not safe)) (##fx= _g61555_ 0)) + (lambda _g61553_ + (let ((_g61552_ (let () (declare (not safe)) (##length _g61553_)))) + (cond ((let () (declare (not safe)) (##fx= _g61552_ 0)) (apply (lambda () (let () (declare (not safe)) (build-manifest-string__0))) - _g61556_)) - ((let () (declare (not safe)) (##fx= _g61555_ 1)) - (apply (lambda (_manifest61483_) + _g61553_)) + ((let () (declare (not safe)) (##fx= _g61552_ 1)) + (apply (lambda (_manifest61480_) (let () (declare (not safe)) - (build-manifest-string__% _manifest61483_))) - _g61556_)) + (build-manifest-string__% _manifest61480_))) + _g61553_)) (else (##raise-wrong-number-of-arguments-exception build-manifest-string - _g61556_)))))) + _g61553_)))))) (define gerbil-system-version-string (lambda () (let () @@ -154,15 +154,15 @@ (define gerbil-system (lambda () 'gerbil-gambit)) (define gerbil-home (lambda () - (let ((_$e61467_ (getenv '"GERBIL_HOME" '#f))) - (if _$e61467_ _$e61467_ (path-expand '"~~"))))) + (let ((_$e61464_ (getenv '"GERBIL_HOME" '#f))) + (if _$e61464_ _$e61464_ (path-expand '"~~"))))) (define gerbil-path (lambda () - (let ((_$e61463_ (getenv '"GERBIL_PATH" '#f))) - (if _$e61463_ _$e61463_ (path-expand '"~/.gerbil"))))) + (let ((_$e61460_ (getenv '"GERBIL_PATH" '#f))) + (if _$e61460_ _$e61460_ (path-expand '"~/.gerbil"))))) (define gerbil-runtime-smp? (lambda () (member '"--enable-smp" - (let ((__tmp61557 (configure-command-string))) + (let ((__tmp61554 (configure-command-string))) (declare (not safe)) - (string-split __tmp61557 '#\'))))))) + (string-split __tmp61554 '#\'))))))) diff --git a/src/bootstrap/gerbil/runtime/table.ssi b/src/bootstrap/gerbil/runtime/table.ssi index af1b5f55..6dffb768 100644 --- a/src/bootstrap/gerbil/runtime/table.ssi +++ b/src/bootstrap/gerbil/runtime/table.ssi @@ -143,7 +143,6 @@ namespace: #f (%#define-runtime __gc-table-new __gc-table-new) (%#define-runtime __gc-table-e __gc-table-e) (%#define-runtime __gc-table-rehash! __gc-table-rehash!) - (%#define-runtime __gc-table-grow! __gc-table-grow!) (%#define-runtime gc-table-ref gc-table-ref) (%#define-runtime gc-table-set! gc-table-set!) (%#define-runtime gc-table-update! gc-table-update!) diff --git a/src/bootstrap/gerbil/runtime/table.ssxi.ss b/src/bootstrap/gerbil/runtime/table.ssxi.ss index a012af00..51196ec6 100644 --- a/src/bootstrap/gerbil/runtime/table.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/table.ssxi.ss @@ -130,7 +130,6 @@ package: gerbil/runtime (declare-type __gc-table-new (@lambda 2 #f)) (declare-type __gc-table-e (@lambda 1 #f)) (declare-type __gc-table-rehash! (@lambda 1 #f)) - (declare-type __gc-table-grow! (@lambda 1 #f)) (declare-type gc-table-ref (@lambda 3 #f)) (declare-type gc-table-set! (@lambda 3 #f)) (declare-type gc-table-update! (@lambda 4 #f)) diff --git a/src/bootstrap/gerbil/runtime/table__0.scm b/src/bootstrap/gerbil/runtime/table__0.scm index 89b3e414..870e36b3 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 1709128371) + (define gerbil/runtime/table::timestamp 1709229969) (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 (_tab60027_) - (##unchecked-structure-ref _tab60027_ '1 __table::t 'raw-table-table))) + (lambda (_tab60024_) + (##unchecked-structure-ref _tab60024_ '1 __table::t 'raw-table-table))) (define &raw-table-count - (lambda (_tab60025_) - (##unchecked-structure-ref _tab60025_ '2 __table::t 'raw-table-count))) + (lambda (_tab60022_) + (##unchecked-structure-ref _tab60022_ '2 __table::t 'raw-table-count))) (define &raw-table-free - (lambda (_tab60023_) - (##unchecked-structure-ref _tab60023_ '3 __table::t 'raw-table-free))) + (lambda (_tab60020_) + (##unchecked-structure-ref _tab60020_ '3 __table::t 'raw-table-free))) (define &raw-table-hash - (lambda (_tab60021_) - (##unchecked-structure-ref _tab60021_ '4 __table::t 'raw-table-hash))) + (lambda (_tab60018_) + (##unchecked-structure-ref _tab60018_ '4 __table::t 'raw-table-hash))) (define &raw-table-test - (lambda (_tab60019_) - (##unchecked-structure-ref _tab60019_ '5 __table::t 'raw-table-test))) + (lambda (_tab60016_) + (##unchecked-structure-ref _tab60016_ '5 __table::t 'raw-table-test))) (define &raw-table-seed - (lambda (_tab60017_) - (##unchecked-structure-ref _tab60017_ '6 __table::t 'raw-table-seed))) + (lambda (_tab60014_) + (##unchecked-structure-ref _tab60014_ '6 __table::t 'raw-table-seed))) (define &raw-table-table-set! - (lambda (_tab60014_ _val60015_) + (lambda (_tab60011_ _val60012_) (##unchecked-structure-set! - _tab60014_ - _val60015_ + _tab60011_ + _val60012_ '1 __table::t 'raw-table-table-set!))) (define &raw-table-count-set! - (lambda (_tab60011_ _val60012_) + (lambda (_tab60008_ _val60009_) (##unchecked-structure-set! - _tab60011_ - _val60012_ + _tab60008_ + _val60009_ '2 __table::t 'raw-table-count-set!))) (define &raw-table-free-set! - (lambda (_tab60008_ _val60009_) + (lambda (_tab60005_ _val60006_) (##unchecked-structure-set! - _tab60008_ - _val60009_ + _tab60005_ + _val60006_ '3 __table::t 'raw-table-free-set!))) (define &raw-table-hash-set! - (lambda (_tab60005_ _val60006_) + (lambda (_tab60002_ _val60003_) (##unchecked-structure-set! - _tab60005_ - _val60006_ + _tab60002_ + _val60003_ '4 __table::t 'raw-table-hash-set!))) (define &raw-table-test-set! - (lambda (_tab60002_ _val60003_) + (lambda (_tab59999_ _val60000_) (##unchecked-structure-set! - _tab60002_ - _val60003_ + _tab59999_ + _val60000_ '5 __table::t 'raw-table-test-set!))) (define &raw-table-seed-set! - (lambda (_tab59999_ _val60000_) + (lambda (_tab59996_ _val59997_) (##unchecked-structure-set! - _tab59999_ - _val60000_ + _tab59996_ + _val59997_ '6 __table::t 'raw-table-seed-set!))) (define raw-table-size-hint->size - (lambda (_size-hint59997_) - (if (and (fixnum? _size-hint59997_) (fx> _size-hint59997_ '0)) - (fx* (fxmax '2 (expt '2 (integer-length _size-hint59997_))) '4) + (lambda (_size-hint59994_) + (if (and (fixnum? _size-hint59994_) (fx> _size-hint59994_ '0)) + (fx* (fxmax '2 (expt '2 (integer-length _size-hint59994_))) '4) '16))) (define make-raw-table__% - (lambda (_size-hint59973_ _hash59974_ _test59975_ _seed59976_) - (let* ((_size59978_ (raw-table-size-hint->size _size-hint59973_)) - (_table59980_ (make-vector _size59978_ (macro-unused-obj)))) + (lambda (_size-hint59970_ _hash59971_ _test59972_ _seed59973_) + (let* ((_size59975_ (raw-table-size-hint->size _size-hint59970_)) + (_table59977_ (make-vector _size59975_ (macro-unused-obj)))) (##structure __table::t - _table59980_ + _table59977_ '0 - (fxquotient _size59978_ '2) - _hash59974_ - _test59975_ - _seed59976_)))) + (fxquotient _size59975_ '2) + _hash59971_ + _test59972_ + _seed59973_)))) (define make-raw-table__0 - (lambda (_size-hint59986_ _hash59987_ _test59988_) - (let ((_seed59990_ '0)) + (lambda (_size-hint59983_ _hash59984_ _test59985_) + (let ((_seed59987_ '0)) (make-raw-table__% - _size-hint59986_ - _hash59987_ - _test59988_ - _seed59990_)))) + _size-hint59983_ + _hash59984_ + _test59985_ + _seed59987_)))) (define make-raw-table - (lambda _g60029_ - (let ((_g60028_ (##length _g60029_))) - (cond ((##fx= _g60028_ 3) - (apply (lambda (_size-hint59986_ _hash59987_ _test59988_) + (lambda _g60026_ + (let ((_g60025_ (##length _g60026_))) + (cond ((##fx= _g60025_ 3) + (apply (lambda (_size-hint59983_ _hash59984_ _test59985_) (make-raw-table__0 - _size-hint59986_ - _hash59987_ - _test59988_)) - _g60029_)) - ((##fx= _g60028_ 4) - (apply (lambda (_size-hint59992_ - _hash59993_ - _test59994_ - _seed59995_) + _size-hint59983_ + _hash59984_ + _test59985_)) + _g60026_)) + ((##fx= _g60025_ 4) + (apply (lambda (_size-hint59989_ + _hash59990_ + _test59991_ + _seed59992_) (make-raw-table__% - _size-hint59992_ - _hash59993_ - _test59994_ - _seed59995_)) - _g60029_)) + _size-hint59989_ + _hash59990_ + _test59991_ + _seed59992_)) + _g60026_)) (else (##raise-wrong-number-of-arguments-exception make-raw-table - _g60029_)))))) + _g60026_)))))) (define raw-table-ref - (lambda (_tab59928_ _key59929_ _default59930_) - (let ((_table59932_ (&raw-table-table _tab59928_)) - (_seed59933_ (&raw-table-seed _tab59928_)) - (_hash59934_ (&raw-table-hash _tab59928_)) - (_test59935_ (&raw-table-test _tab59928_))) - (let* ((_h59937_ (fxxor (_hash59934_ _key59929_) _seed59933_)) - (_size59940_ (vector-length _table59932_)) - (_entries59943_ (fxquotient _size59940_ '2)) - (_start59946_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h59937_ _entries59943_) + (fxmodulo _h59934_ _entries59940_) '1))) - (let _loop59950_ ((_probe59953_ _start59946_) - (_i59955_ '1) - (_deleted59957_ '#f)) - (let ((_k59960_ (vector-ref _table59932_ _probe59953_))) - (if (eq? _k59960_ (macro-unused-obj)) - _default59930_ - (if (eq? _k59960_ (macro-deleted-obj)) - (_loop59950_ - (let ((_next-probe59963_ - (fx+ _start59946_ - _i59955_ - (fx* _i59955_ _i59955_)))) - (fxmodulo _next-probe59963_ _size59940_)) - (fx+ _i59955_ '1) - (let ((_$e59966_ _deleted59957_)) - (if _$e59966_ _$e59966_ _probe59953_))) - (if (_test59935_ _key59929_ _k59960_) - (vector-ref _table59932_ (fx+ _probe59953_ '1)) - (_loop59950_ - (let ((_next-probe59969_ - (fx+ _start59946_ - _i59955_ - (fx* _i59955_ _i59955_)))) - (fxmodulo _next-probe59969_ _size59940_)) - (fx+ _i59955_ '1) - _deleted59957_)))))))))) + (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_)))))))))) (define raw-table-set! - (lambda (_tab59924_ _key59925_ _value59926_) - (if (fx< (&raw-table-free _tab59924_) - (fxquotient (vector-length (&raw-table-table _tab59924_)) '4)) - (__raw-table-rehash! _tab59924_) + (lambda (_tab59921_ _key59922_ _value59923_) + (if (fx< (&raw-table-free _tab59921_) + (fxquotient (vector-length (&raw-table-table _tab59921_)) '4)) + (__raw-table-rehash! _tab59921_) '#!void) - (__raw-table-set! _tab59924_ _key59925_ _value59926_))) + (__raw-table-set! _tab59921_ _key59922_ _value59923_))) (define raw-table-update! - (lambda (_tab59919_ _key59920_ _update59921_ _default59922_) - (if (fx< (&raw-table-free _tab59919_) - (fxquotient (vector-length (&raw-table-table _tab59919_)) '4)) - (__raw-table-rehash! _tab59919_) + (lambda (_tab59916_ _key59917_ _update59918_ _default59919_) + (if (fx< (&raw-table-free _tab59916_) + (fxquotient (vector-length (&raw-table-table _tab59916_)) '4)) + (__raw-table-rehash! _tab59916_) '#!void) (__raw-table-update! - _tab59919_ - _key59920_ - _update59921_ - _default59922_))) + _tab59916_ + _key59917_ + _update59918_ + _default59919_))) (define raw-table-delete! - (lambda (_tab59880_ _key59881_) - (let ((_table59883_ (&raw-table-table _tab59880_)) - (_seed59884_ (&raw-table-seed _tab59880_)) - (_hash59885_ (&raw-table-hash _tab59880_)) - (_test59886_ (&raw-table-test _tab59880_))) - (let* ((_h59888_ (fxxor (_hash59885_ _key59881_) _seed59884_)) - (_size59891_ (vector-length _table59883_)) - (_entries59894_ (fxquotient _size59891_ '2)) - (_start59897_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h59888_ _entries59894_) + (fxmodulo _h59885_ _entries59891_) '1))) - (let _loop59901_ ((_probe59904_ _start59897_) (_i59906_ '1)) - (let ((_k59909_ (vector-ref _table59883_ _probe59904_))) - (if (eq? _k59909_ (macro-unused-obj)) + (let _loop59898_ ((_probe59901_ _start59894_) (_i59903_ '1)) + (let ((_k59906_ (vector-ref _table59880_ _probe59901_))) + (if (eq? _k59906_ (macro-unused-obj)) '#!void - (if (eq? _k59909_ (macro-deleted-obj)) - (_loop59901_ - (let ((_next-probe59912_ - (fx+ _start59897_ - _i59906_ - (fx* _i59906_ _i59906_)))) - (fxmodulo _next-probe59912_ _size59891_)) - (fx+ _i59906_ '1)) - (if (_test59886_ _key59881_ _k59909_) + (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_) (begin (vector-set! - _table59883_ - _probe59904_ + _table59880_ + _probe59901_ (macro-deleted-obj)) (vector-set! - _table59883_ - (fx+ _probe59904_ '1) + _table59880_ + (fx+ _probe59901_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _tab59880_ - (fx- (&raw-table-count _tab59880_) '1))))) - (_loop59901_ - (let ((_next-probe59916_ - (fx+ _start59897_ - _i59906_ - (fx* _i59906_ _i59906_)))) - (fxmodulo _next-probe59916_ _size59891_)) - (fx+ _i59906_ '1))))))))))) + _tab59877_ + (fx- (&raw-table-count _tab59877_) '1))))) + (_loop59898_ + (let ((_next-probe59913_ + (fx+ _start59894_ + _i59903_ + (fx* _i59903_ _i59903_)))) + (fxmodulo _next-probe59913_ _size59888_)) + (fx+ _i59903_ '1))))))))))) (define raw-table-for-each - (lambda (_tab59864_ _proc59865_) - (let* ((_table59867_ (&raw-table-table _tab59864_)) - (_size59869_ (vector-length _table59867_))) - (let _loop59872_ ((_i59874_ '0)) - (if (fx< _i59874_ _size59869_) + (lambda (_tab59861_ _proc59862_) + (let* ((_table59864_ (&raw-table-table _tab59861_)) + (_size59866_ (vector-length _table59864_))) + (let _loop59869_ ((_i59871_ '0)) + (if (fx< _i59871_ _size59866_) (begin - (let ((_key59876_ (vector-ref _table59867_ _i59874_))) - (if (and (not (eq? _key59876_ (macro-unused-obj))) - (not (eq? _key59876_ (macro-deleted-obj)))) - (let ((_value59878_ - (vector-ref _table59867_ (fx+ _i59874_ '1)))) - (_proc59865_ _key59876_ _value59878_)) + (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_)) '#!void)) - (_loop59872_ (fx+ _i59874_ '2))) + (_loop59869_ (fx+ _i59871_ '2))) '#!void))))) (define raw-table-copy - (lambda (_tab59860_) - (let ((_new-tab59862_ (##structure-copy _tab59860_))) + (lambda (_tab59857_) + (let ((_new-tab59859_ (##structure-copy _tab59857_))) (&raw-table-table-set! - _new-tab59862_ - (vector-copy (&raw-table-table _tab59860_))) - _new-tab59862_))) + _new-tab59859_ + (vector-copy (&raw-table-table _tab59857_))) + _new-tab59859_))) (define raw-table-clear! - (lambda (_tab59858_) - (vector-fill! (&raw-table-table _tab59858_) (macro-unused-obj)) - (&raw-table-count-set! _tab59858_ '0) + (lambda (_tab59855_) + (vector-fill! (&raw-table-table _tab59855_) (macro-unused-obj)) + (&raw-table-count-set! _tab59855_ '0) (&raw-table-free-set! - _tab59858_ - (fxquotient (vector-length (&raw-table-table _tab59858_)) '2)))) + _tab59855_ + (fxquotient (vector-length (&raw-table-table _tab59855_)) '2)))) (define __raw-table-set! - (lambda (_tab59812_ _key59813_ _value59814_) - (let ((_table59816_ (&raw-table-table _tab59812_)) - (_seed59817_ (&raw-table-seed _tab59812_)) - (_hash59818_ (&raw-table-hash _tab59812_)) - (_test59819_ (&raw-table-test _tab59812_))) - (let* ((_h59821_ (fxxor (_hash59818_ _key59813_) _seed59817_)) - (_size59824_ (vector-length _table59816_)) - (_entries59827_ (fxquotient _size59824_ '2)) - (_start59830_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h59821_ _entries59827_) + (fxmodulo _h59818_ _entries59824_) '1))) - (let _loop59834_ ((_probe59837_ _start59830_) - (_i59839_ '1) - (_deleted59841_ '#f)) - (let ((_k59844_ (vector-ref _table59816_ _probe59837_))) - (if (eq? _k59844_ (macro-unused-obj)) - (if _deleted59841_ + (let _loop59831_ ((_probe59834_ _start59827_) + (_i59836_ '1) + (_deleted59838_ '#f)) + (let ((_k59841_ (vector-ref _table59813_ _probe59834_))) + (if (eq? _k59841_ (macro-unused-obj)) + (if _deleted59838_ (begin - (vector-set! _table59816_ _deleted59841_ _key59813_) + (vector-set! _table59813_ _deleted59838_ _key59810_) (vector-set! - _table59816_ - (fx+ _deleted59841_ '1) - _value59814_) + _table59813_ + (fx+ _deleted59838_ '1) + _value59811_) ((lambda () (&raw-table-count-set! - _tab59812_ - (fx+ (&raw-table-count _tab59812_) '1))))) + _tab59809_ + (fx+ (&raw-table-count _tab59809_) '1))))) (begin - (vector-set! _table59816_ _probe59837_ _key59813_) + (vector-set! _table59813_ _probe59834_ _key59810_) (vector-set! - _table59816_ - (fx+ _probe59837_ '1) - _value59814_) + _table59813_ + (fx+ _probe59834_ '1) + _value59811_) ((lambda () (&raw-table-free-set! - _tab59812_ - (fx- (&raw-table-free _tab59812_) '1)) + _tab59809_ + (fx- (&raw-table-free _tab59809_) '1)) (&raw-table-count-set! - _tab59812_ - (fx+ (&raw-table-count _tab59812_) '1)))))) - (if (eq? _k59844_ (macro-deleted-obj)) - (_loop59834_ - (let ((_next-probe59849_ - (fx+ _start59830_ - _i59839_ - (fx* _i59839_ _i59839_)))) - (fxmodulo _next-probe59849_ _size59824_)) - (fx+ _i59839_ '1) - (let ((_$e59852_ _deleted59841_)) - (if _$e59852_ _$e59852_ _probe59837_))) - (if (_test59819_ _key59813_ _k59844_) + _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_) (begin (vector-set! - _table59816_ - _probe59837_ - _key59813_) + _table59813_ + _probe59834_ + _key59810_) (vector-set! - _table59816_ - (fx+ _probe59837_ '1) - _value59814_)) - (_loop59834_ - (let ((_next-probe59855_ - (fx+ _start59830_ - _i59839_ - (fx* _i59839_ _i59839_)))) - (fxmodulo _next-probe59855_ _size59824_)) - (fx+ _i59839_ '1) - _deleted59841_)))))))))) + _table59813_ + (fx+ _probe59834_ '1) + _value59811_)) + (_loop59831_ + (let ((_next-probe59852_ + (fx+ _start59827_ + _i59836_ + (fx* _i59836_ _i59836_)))) + (fxmodulo _next-probe59852_ _size59821_)) + (fx+ _i59836_ '1) + _deleted59838_)))))))))) (define __raw-table-update! - (lambda (_tab59765_ _key59766_ _update59767_ _default59768_) - (let ((_table59770_ (&raw-table-table _tab59765_)) - (_seed59771_ (&raw-table-seed _tab59765_)) - (_hash59772_ (&raw-table-hash _tab59765_)) - (_test59773_ (&raw-table-test _tab59765_))) - (let* ((_h59775_ (fxxor (_hash59772_ _key59766_) _seed59771_)) - (_size59778_ (vector-length _table59770_)) - (_entries59781_ (fxquotient _size59778_ '2)) - (_start59784_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h59775_ _entries59781_) + (fxmodulo _h59772_ _entries59778_) '1))) - (let _loop59788_ ((_probe59791_ _start59784_) - (_i59793_ '1) - (_deleted59795_ '#f)) - (let ((_k59798_ (vector-ref _table59770_ _probe59791_))) - (if (eq? _k59798_ (macro-unused-obj)) - (if _deleted59795_ + (let _loop59785_ ((_probe59788_ _start59781_) + (_i59790_ '1) + (_deleted59792_ '#f)) + (let ((_k59795_ (vector-ref _table59767_ _probe59788_))) + (if (eq? _k59795_ (macro-unused-obj)) + (if _deleted59792_ (begin - (vector-set! _table59770_ _deleted59795_ _key59766_) + (vector-set! _table59767_ _deleted59792_ _key59763_) (vector-set! - _table59770_ - (fx+ _deleted59795_ '1) - (_update59767_ _default59768_)) + _table59767_ + (fx+ _deleted59792_ '1) + (_update59764_ _default59765_)) ((lambda () (&raw-table-count-set! - _tab59765_ - (fx+ (&raw-table-count _tab59765_) '1))))) + _tab59762_ + (fx+ (&raw-table-count _tab59762_) '1))))) (begin - (vector-set! _table59770_ _probe59791_ _key59766_) + (vector-set! _table59767_ _probe59788_ _key59763_) (vector-set! - _table59770_ - (fx+ _probe59791_ '1) - (_update59767_ _default59768_)) + _table59767_ + (fx+ _probe59788_ '1) + (_update59764_ _default59765_)) ((lambda () (&raw-table-free-set! - _tab59765_ - (fx- (&raw-table-free _tab59765_) '1)) + _tab59762_ + (fx- (&raw-table-free _tab59762_) '1)) (&raw-table-count-set! - _tab59765_ - (fx+ (&raw-table-count _tab59765_) '1)))))) - (if (eq? _k59798_ (macro-deleted-obj)) - (_loop59788_ - (let ((_next-probe59803_ - (fx+ _start59784_ - _i59793_ - (fx* _i59793_ _i59793_)))) - (fxmodulo _next-probe59803_ _size59778_)) - (fx+ _i59793_ '1) - (let ((_$e59806_ _deleted59795_)) - (if _$e59806_ _$e59806_ _probe59791_))) - (if (_test59773_ _key59766_ _k59798_) + _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_) (begin (vector-set! - _table59770_ - _probe59791_ - _key59766_) + _table59767_ + _probe59788_ + _key59763_) (vector-set! - _table59770_ - (fx+ _probe59791_ '1) - (_update59767_ + _table59767_ + (fx+ _probe59788_ '1) + (_update59764_ (vector-ref - _table59770_ - (fx+ _probe59791_ '1))))) - (_loop59788_ - (let ((_next-probe59809_ - (fx+ _start59784_ - _i59793_ - (fx* _i59793_ _i59793_)))) - (fxmodulo _next-probe59809_ _size59778_)) - (fx+ _i59793_ '1) - _deleted59795_)))))))))) + _table59767_ + (fx+ _probe59788_ '1))))) + (_loop59785_ + (let ((_next-probe59806_ + (fx+ _start59781_ + _i59790_ + (fx* _i59790_ _i59790_)))) + (fxmodulo _next-probe59806_ _size59775_)) + (fx+ _i59790_ '1) + _deleted59792_)))))))))) (define __raw-table-rehash! - (lambda (_tab59746_) - (let* ((_old-table59748_ (&raw-table-table _tab59746_)) - (_old-size59750_ (vector-length _old-table59748_)) - (_new-size59752_ - (if (fx< (&raw-table-count _tab59746_) - (fxquotient _old-size59750_ '4)) - (vector-length _old-table59748_) - (fx* '2 (vector-length _old-table59748_)))) - (_new-table59754_ - (make-vector _new-size59752_ (macro-unused-obj)))) - (&raw-table-table-set! _tab59746_ _new-table59754_) - (&raw-table-count-set! _tab59746_ '0) - (&raw-table-free-set! _tab59746_ (fxquotient _new-size59752_ '2)) - (let _lp59757_ ((_i59759_ '0)) - (if (fx< _i59759_ _old-size59750_) + (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_) (begin - (let ((_key59761_ (vector-ref _old-table59748_ _i59759_))) - (if (and (not (eq? _key59761_ (macro-unused-obj))) - (not (eq? _key59761_ (macro-deleted-obj)))) - (let ((_value59763_ + (let ((_key59758_ (vector-ref _old-table59745_ _i59756_))) + (if (and (not (eq? _key59758_ (macro-unused-obj))) + (not (eq? _key59758_ (macro-deleted-obj)))) + (let ((_value59760_ (vector-ref - _old-table59748_ - (fx+ _i59759_ '1)))) + _old-table59745_ + (fx+ _i59756_ '1)))) (__raw-table-set! - _tab59746_ - _key59761_ - _value59763_)) + _tab59743_ + _key59758_ + _value59760_)) '#!void)) - (_lp59757_ (fx+ _i59759_ '2))) + (_lp59754_ (fx+ _i59756_ '2))) '#!void))))) (define eq-hash - (lambda (_obj59742_) - (let ((_t59744_ (##type _obj59742_))) - (if (fx= (fxand _t59744_ '1) '0) - (fxand (##type-cast _obj59742_ (macro-type-fixnum)) + (lambda (_obj59739_) + (let ((_t59741_ (##type _obj59739_))) + (if (fx= (fxand _t59741_ '1) '0) + (fxand (##type-cast _obj59739_ (macro-type-fixnum)) (macro-max-fixnum32)) - (if (symbolic? _obj59742_) - (symbolic-hash _obj59742_) - (if (procedure? _obj59742_) - (procedure-hash _obj59742_) - (fxand (__eq-hash _obj59742_) (macro-max-fixnum32)))))))) + (if (symbolic? _obj59739_) + (symbolic-hash _obj59739_) + (if (procedure? _obj59739_) + (procedure-hash _obj59739_) + (fxand (__eq-hash _obj59739_) (macro-max-fixnum32)))))))) (define procedure-hash - (lambda (_obj59738_) - (let ((_h59740_ - (if (##closure? _obj59738_) - (__eq-hash _obj59738_) - (##type-cast _obj59738_ '0)))) - (fxand _h59740_ (macro-max-fixnum32))))) - (define __eq-hash (lambda (_obj59735_) + (let ((_h59737_ + (if (##closure? _obj59735_) + (__eq-hash _obj59735_) + (##type-cast _obj59735_ '0)))) + (fxand _h59737_ (macro-max-fixnum32))))) + (define __eq-hash + (lambda (_obj59732_) (declare (not interrupts-enabled)) - (__object->eq-hash _obj59735_))) + (__object->eq-hash _obj59732_))) (define eqv-hash - (lambda (_obj59725_) - (letrec ((_combine59727_ - (lambda (_a59732_ _b59733_) - (fxand (fx* (fx+ _a59732_ - (fxarithmetic-shift-left _b59733_ '1)) + (lambda (_obj59722_) + (letrec ((_combine59724_ + (lambda (_a59729_ _b59730_) + (fxand (fx* (fx+ _a59729_ + (fxarithmetic-shift-left _b59730_ '1)) '331804471) (macro-max-fixnum32)))) - (_hash59728_ - (lambda (_obj59730_) + (_hash59725_ + (lambda (_obj59727_) (macro-number-dispatch - _obj59730_ - (eq-hash _obj59730_) - (fxand _obj59730_ (macro-max-fixnum32)) - (modulo _obj59730_ '331804481) - (_combine59727_ - (_hash59728_ (macro-ratnum-numerator _obj59730_)) - (_hash59728_ (macro-ratnum-denominator _obj59730_))) - (_combine59727_ - (##u16vector-ref _obj59730_ '0) - (_combine59727_ - (##u16vector-ref _obj59730_ '1) - (_combine59727_ - (##u16vector-ref _obj59730_ '2) - (##u16vector-ref _obj59730_ '3)))) - (_combine59727_ - (_hash59728_ (macro-cpxnum-real _obj59730_)) - (_hash59728_ (macro-cpxnum-imag _obj59730_))))))) - (_hash59728_ _obj59725_)))) + _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_)))) (define symbolic? - (lambda (_obj59720_) - (let ((_$e59722_ (symbol? _obj59720_))) - (if _$e59722_ _$e59722_ (keyword? _obj59720_))))) - (define symbolic-hash (lambda (_obj59718_) (macro-slot '1 _obj59718_))) - (define string-hash (lambda (_obj59716_) (##string=?-hash _obj59716_))) + (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_))) (define immediate-hash - (lambda (_obj59714_) (##type-cast _obj59714_ (macro-type-fixnum)))) + (lambda (_obj59711_) (##type-cast _obj59711_ (macro-type-fixnum)))) (define make-eq-table__% - (lambda (_size-hint59695_ _seed59697_) - (make-raw-table__% _size-hint59695_ eq-hash eq? _seed59697_))) + (lambda (_size-hint59692_ _seed59694_) + (make-raw-table__% _size-hint59692_ eq-hash eq? _seed59694_))) (define make-eq-table__0 (lambda () - (let* ((_size-hint59703_ '#f) (_seed59705_ '0)) - (make-eq-table__% _size-hint59703_ _seed59705_)))) + (let* ((_size-hint59700_ '#f) (_seed59702_ '0)) + (make-eq-table__% _size-hint59700_ _seed59702_)))) (define make-eq-table__1 - (lambda (_size-hint59707_) - (let ((_seed59709_ '0)) - (make-eq-table__% _size-hint59707_ _seed59709_)))) + (lambda (_size-hint59704_) + (let ((_seed59706_ '0)) + (make-eq-table__% _size-hint59704_ _seed59706_)))) (define make-eq-table - (lambda _g60031_ - (let ((_g60030_ (##length _g60031_))) - (cond ((##fx= _g60030_ 0) - (apply (lambda () (make-eq-table__0)) _g60031_)) - ((##fx= _g60030_ 1) - (apply (lambda (_size-hint59707_) - (make-eq-table__1 _size-hint59707_)) - _g60031_)) - ((##fx= _g60030_ 2) - (apply (lambda (_size-hint59711_ _seed59712_) - (make-eq-table__% _size-hint59711_ _seed59712_)) - _g60031_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-eq-table - _g60031_)))))) + _g60028_)))))) (define eq-table-ref - (lambda (_tab59652_ _key59653_ _default59654_) - (let ((_table59656_ (&raw-table-table _tab59652_)) - (_seed59657_ (&raw-table-seed _tab59652_))) - (let* ((_h59659_ (fxxor (eq-hash _key59653_) _seed59657_)) - (_size59662_ (vector-length _table59656_)) - (_entries59665_ (fxquotient _size59662_ '2)) - (_start59668_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h59659_ _entries59665_) + (fxmodulo _h59656_ _entries59662_) '1))) - (let _loop59672_ ((_probe59675_ _start59668_) - (_i59677_ '1) - (_deleted59679_ '#f)) - (let ((_k59682_ (vector-ref _table59656_ _probe59675_))) - (if (eq? _k59682_ (macro-unused-obj)) - _default59654_ - (if (eq? _k59682_ (macro-deleted-obj)) - (_loop59672_ - (let ((_next-probe59685_ - (fx+ _start59668_ - _i59677_ - (fx* _i59677_ _i59677_)))) - (fxmodulo _next-probe59685_ _size59662_)) - (fx+ _i59677_ '1) - (let ((_$e59688_ _deleted59679_)) - (if _$e59688_ _$e59688_ _probe59675_))) - (if (eq? _key59653_ _k59682_) - (vector-ref _table59656_ (fx+ _probe59675_ '1)) - (_loop59672_ - (let ((_next-probe59691_ - (fx+ _start59668_ - _i59677_ - (fx* _i59677_ _i59677_)))) - (fxmodulo _next-probe59691_ _size59662_)) - (fx+ _i59677_ '1) - _deleted59679_)))))))))) + (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_)))))))))) (define eq-table-set! - (lambda (_tab59648_ _key59649_ _value59650_) - (if (fx< (&raw-table-free _tab59648_) - (fxquotient (vector-length (&raw-table-table _tab59648_)) '4)) - (__raw-table-rehash! _tab59648_) + (lambda (_tab59645_ _key59646_ _value59647_) + (if (fx< (&raw-table-free _tab59645_) + (fxquotient (vector-length (&raw-table-table _tab59645_)) '4)) + (__raw-table-rehash! _tab59645_) '#!void) - (__eq-table-set! _tab59648_ _key59649_ _value59650_))) + (__eq-table-set! _tab59645_ _key59646_ _value59647_))) (define __eq-table-set! - (lambda (_tab59603_ _key59604_ _value59605_) - (let ((_table59608_ (&raw-table-table _tab59603_)) - (_seed59609_ (&raw-table-seed _tab59603_))) - (let* ((_h59611_ (fxxor (eq-hash _key59604_) _seed59609_)) - (_size59614_ (vector-length _table59608_)) - (_entries59617_ (fxquotient _size59614_ '2)) - (_start59620_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h59611_ _entries59617_) + (fxmodulo _h59608_ _entries59614_) '1))) - (let _loop59624_ ((_probe59627_ _start59620_) - (_i59629_ '1) - (_deleted59631_ '#f)) - (let ((_k59634_ (vector-ref _table59608_ _probe59627_))) - (if (eq? _k59634_ (macro-unused-obj)) - (if _deleted59631_ + (let _loop59621_ ((_probe59624_ _start59617_) + (_i59626_ '1) + (_deleted59628_ '#f)) + (let ((_k59631_ (vector-ref _table59605_ _probe59624_))) + (if (eq? _k59631_ (macro-unused-obj)) + (if _deleted59628_ (begin - (vector-set! _table59608_ _deleted59631_ _key59604_) + (vector-set! _table59605_ _deleted59628_ _key59601_) (vector-set! - _table59608_ - (fx+ _deleted59631_ '1) - _value59605_) + _table59605_ + (fx+ _deleted59628_ '1) + _value59602_) ((lambda () (&raw-table-count-set! - _tab59603_ - (fx+ (&raw-table-count _tab59603_) '1))))) + _tab59600_ + (fx+ (&raw-table-count _tab59600_) '1))))) (begin - (vector-set! _table59608_ _probe59627_ _key59604_) + (vector-set! _table59605_ _probe59624_ _key59601_) (vector-set! - _table59608_ - (fx+ _probe59627_ '1) - _value59605_) + _table59605_ + (fx+ _probe59624_ '1) + _value59602_) ((lambda () (&raw-table-free-set! - _tab59603_ - (fx- (&raw-table-free _tab59603_) '1)) + _tab59600_ + (fx- (&raw-table-free _tab59600_) '1)) (&raw-table-count-set! - _tab59603_ - (fx+ (&raw-table-count _tab59603_) '1)))))) - (if (eq? _k59634_ (macro-deleted-obj)) - (_loop59624_ - (let ((_next-probe59639_ - (fx+ _start59620_ - _i59629_ - (fx* _i59629_ _i59629_)))) - (fxmodulo _next-probe59639_ _size59614_)) - (fx+ _i59629_ '1) - (let ((_$e59642_ _deleted59631_)) - (if _$e59642_ _$e59642_ _probe59627_))) - (if (eq? _key59604_ _k59634_) + _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_) (begin (vector-set! - _table59608_ - _probe59627_ - _key59604_) + _table59605_ + _probe59624_ + _key59601_) (vector-set! - _table59608_ - (fx+ _probe59627_ '1) - _value59605_)) - (_loop59624_ - (let ((_next-probe59645_ - (fx+ _start59620_ - _i59629_ - (fx* _i59629_ _i59629_)))) - (fxmodulo _next-probe59645_ _size59614_)) - (fx+ _i59629_ '1) - _deleted59631_)))))))))) + _table59605_ + (fx+ _probe59624_ '1) + _value59602_)) + (_loop59621_ + (let ((_next-probe59642_ + (fx+ _start59617_ + _i59626_ + (fx* _i59626_ _i59626_)))) + (fxmodulo _next-probe59642_ _size59611_)) + (fx+ _i59626_ '1) + _deleted59628_)))))))))) (define eq-table-update! - (lambda (_tab59598_ _key59599_ _eq-table-update!59600_ _default59601_) - (if (fx< (&raw-table-free _tab59598_) - (fxquotient (vector-length (&raw-table-table _tab59598_)) '4)) - (__raw-table-rehash! _tab59598_) + (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_) '#!void) (__eq-table-update! - _tab59598_ - _key59599_ - _eq-table-update!59600_ - _default59601_))) + _tab59595_ + _key59596_ + _eq-table-update!59597_ + _default59598_))) (define __eq-table-update! - (lambda (_tab59552_ _key59553_ _eq-table-update!59554_ _default59555_) - (let ((_table59558_ (&raw-table-table _tab59552_)) - (_seed59559_ (&raw-table-seed _tab59552_))) - (let* ((_h59561_ (fxxor (eq-hash _key59553_) _seed59559_)) - (_size59564_ (vector-length _table59558_)) - (_entries59567_ (fxquotient _size59564_ '2)) - (_start59570_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h59561_ _entries59567_) + (fxmodulo _h59558_ _entries59564_) '1))) - (let _loop59574_ ((_probe59577_ _start59570_) - (_i59579_ '1) - (_deleted59581_ '#f)) - (let ((_k59584_ (vector-ref _table59558_ _probe59577_))) - (if (eq? _k59584_ (macro-unused-obj)) - (if _deleted59581_ + (let _loop59571_ ((_probe59574_ _start59567_) + (_i59576_ '1) + (_deleted59578_ '#f)) + (let ((_k59581_ (vector-ref _table59555_ _probe59574_))) + (if (eq? _k59581_ (macro-unused-obj)) + (if _deleted59578_ (begin - (vector-set! _table59558_ _deleted59581_ _key59553_) + (vector-set! _table59555_ _deleted59578_ _key59550_) (vector-set! - _table59558_ - (fx+ _deleted59581_ '1) - (_eq-table-update!59554_ _default59555_)) + _table59555_ + (fx+ _deleted59578_ '1) + (_eq-table-update!59551_ _default59552_)) ((lambda () (&raw-table-count-set! - _tab59552_ - (fx+ (&raw-table-count _tab59552_) '1))))) + _tab59549_ + (fx+ (&raw-table-count _tab59549_) '1))))) (begin - (vector-set! _table59558_ _probe59577_ _key59553_) + (vector-set! _table59555_ _probe59574_ _key59550_) (vector-set! - _table59558_ - (fx+ _probe59577_ '1) - (_eq-table-update!59554_ _default59555_)) + _table59555_ + (fx+ _probe59574_ '1) + (_eq-table-update!59551_ _default59552_)) ((lambda () (&raw-table-free-set! - _tab59552_ - (fx- (&raw-table-free _tab59552_) '1)) + _tab59549_ + (fx- (&raw-table-free _tab59549_) '1)) (&raw-table-count-set! - _tab59552_ - (fx+ (&raw-table-count _tab59552_) '1)))))) - (if (eq? _k59584_ (macro-deleted-obj)) - (_loop59574_ - (let ((_next-probe59589_ - (fx+ _start59570_ - _i59579_ - (fx* _i59579_ _i59579_)))) - (fxmodulo _next-probe59589_ _size59564_)) - (fx+ _i59579_ '1) - (let ((_$e59592_ _deleted59581_)) - (if _$e59592_ _$e59592_ _probe59577_))) - (if (eq? _key59553_ _k59584_) + _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_) (begin (vector-set! - _table59558_ - _probe59577_ - _key59553_) + _table59555_ + _probe59574_ + _key59550_) (vector-set! - _table59558_ - (fx+ _probe59577_ '1) - (_eq-table-update!59554_ + _table59555_ + (fx+ _probe59574_ '1) + (_eq-table-update!59551_ (vector-ref - _table59558_ - (fx+ _probe59577_ '1))))) - (_loop59574_ - (let ((_next-probe59595_ - (fx+ _start59570_ - _i59579_ - (fx* _i59579_ _i59579_)))) - (fxmodulo _next-probe59595_ _size59564_)) - (fx+ _i59579_ '1) - _deleted59581_)))))))))) + _table59555_ + (fx+ _probe59574_ '1))))) + (_loop59571_ + (let ((_next-probe59592_ + (fx+ _start59567_ + _i59576_ + (fx* _i59576_ _i59576_)))) + (fxmodulo _next-probe59592_ _size59561_)) + (fx+ _i59576_ '1) + _deleted59578_)))))))))) (define eq-table-delete! - (lambda (_tab59511_ _key59513_) - (let ((_table59516_ (&raw-table-table _tab59511_)) - (_seed59518_ (&raw-table-seed _tab59511_))) - (let* ((_h59521_ (fxxor (eq-hash _key59513_) _seed59518_)) - (_size59524_ (vector-length _table59516_)) - (_entries59527_ (fxquotient _size59524_ '2)) - (_start59530_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h59521_ _entries59527_) + (fxmodulo _h59518_ _entries59524_) '1))) - (let _loop59534_ ((_probe59537_ _start59530_) (_i59539_ '1)) - (let ((_k59542_ (vector-ref _table59516_ _probe59537_))) - (if (eq? _k59542_ (macro-unused-obj)) + (let _loop59531_ ((_probe59534_ _start59527_) (_i59536_ '1)) + (let ((_k59539_ (vector-ref _table59513_ _probe59534_))) + (if (eq? _k59539_ (macro-unused-obj)) '#!void - (if (eq? _k59542_ (macro-deleted-obj)) - (_loop59534_ - (let ((_next-probe59545_ - (fx+ _start59530_ - _i59539_ - (fx* _i59539_ _i59539_)))) - (fxmodulo _next-probe59545_ _size59524_)) - (fx+ _i59539_ '1)) - (if (eq? _key59513_ _k59542_) + (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_) (begin (vector-set! - _table59516_ - _probe59537_ + _table59513_ + _probe59534_ (macro-deleted-obj)) (vector-set! - _table59516_ - (fx+ _probe59537_ '1) + _table59513_ + (fx+ _probe59534_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _tab59511_ - (fx- (&raw-table-count _tab59511_) '1))))) - (_loop59534_ - (let ((_next-probe59549_ - (fx+ _start59530_ - _i59539_ - (fx* _i59539_ _i59539_)))) - (fxmodulo _next-probe59549_ _size59524_)) - (fx+ _i59539_ '1))))))))))) + _tab59508_ + (fx- (&raw-table-count _tab59508_) '1))))) + (_loop59531_ + (let ((_next-probe59546_ + (fx+ _start59527_ + _i59536_ + (fx* _i59536_ _i59536_)))) + (fxmodulo _next-probe59546_ _size59521_)) + (fx+ _i59536_ '1))))))))))) (define make-eqv-table__% - (lambda (_size-hint59492_ _seed59494_) - (make-raw-table__% _size-hint59492_ eqv-hash eqv? _seed59494_))) + (lambda (_size-hint59489_ _seed59491_) + (make-raw-table__% _size-hint59489_ eqv-hash eqv? _seed59491_))) (define make-eqv-table__0 (lambda () - (let* ((_size-hint59500_ '#f) (_seed59502_ '0)) - (make-eqv-table__% _size-hint59500_ _seed59502_)))) + (let* ((_size-hint59497_ '#f) (_seed59499_ '0)) + (make-eqv-table__% _size-hint59497_ _seed59499_)))) (define make-eqv-table__1 - (lambda (_size-hint59504_) - (let ((_seed59506_ '0)) - (make-eqv-table__% _size-hint59504_ _seed59506_)))) + (lambda (_size-hint59501_) + (let ((_seed59503_ '0)) + (make-eqv-table__% _size-hint59501_ _seed59503_)))) (define make-eqv-table - (lambda _g60033_ - (let ((_g60032_ (##length _g60033_))) - (cond ((##fx= _g60032_ 0) - (apply (lambda () (make-eqv-table__0)) _g60033_)) - ((##fx= _g60032_ 1) - (apply (lambda (_size-hint59504_) - (make-eqv-table__1 _size-hint59504_)) - _g60033_)) - ((##fx= _g60032_ 2) - (apply (lambda (_size-hint59508_ _seed59509_) - (make-eqv-table__% _size-hint59508_ _seed59509_)) - _g60033_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-eqv-table - _g60033_)))))) + _g60030_)))))) (define eqv-table-ref - (lambda (_tab59449_ _key59450_ _default59451_) - (let ((_table59453_ (&raw-table-table _tab59449_)) - (_seed59454_ (&raw-table-seed _tab59449_))) - (let* ((_h59456_ (fxxor (eqv-hash _key59450_) _seed59454_)) - (_size59459_ (vector-length _table59453_)) - (_entries59462_ (fxquotient _size59459_ '2)) - (_start59465_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h59456_ _entries59462_) + (fxmodulo _h59453_ _entries59459_) '1))) - (let _loop59469_ ((_probe59472_ _start59465_) - (_i59474_ '1) - (_deleted59476_ '#f)) - (let ((_k59479_ (vector-ref _table59453_ _probe59472_))) - (if (eq? _k59479_ (macro-unused-obj)) - _default59451_ - (if (eq? _k59479_ (macro-deleted-obj)) - (_loop59469_ - (let ((_next-probe59482_ - (fx+ _start59465_ - _i59474_ - (fx* _i59474_ _i59474_)))) - (fxmodulo _next-probe59482_ _size59459_)) - (fx+ _i59474_ '1) - (let ((_$e59485_ _deleted59476_)) - (if _$e59485_ _$e59485_ _probe59472_))) - (if (eqv? _key59450_ _k59479_) - (vector-ref _table59453_ (fx+ _probe59472_ '1)) - (_loop59469_ - (let ((_next-probe59488_ - (fx+ _start59465_ - _i59474_ - (fx* _i59474_ _i59474_)))) - (fxmodulo _next-probe59488_ _size59459_)) - (fx+ _i59474_ '1) - _deleted59476_)))))))))) + (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_)))))))))) (define eqv-table-set! - (lambda (_tab59445_ _key59446_ _value59447_) - (if (fx< (&raw-table-free _tab59445_) - (fxquotient (vector-length (&raw-table-table _tab59445_)) '4)) - (__raw-table-rehash! _tab59445_) + (lambda (_tab59442_ _key59443_ _value59444_) + (if (fx< (&raw-table-free _tab59442_) + (fxquotient (vector-length (&raw-table-table _tab59442_)) '4)) + (__raw-table-rehash! _tab59442_) '#!void) - (__eqv-table-set! _tab59445_ _key59446_ _value59447_))) + (__eqv-table-set! _tab59442_ _key59443_ _value59444_))) (define __eqv-table-set! - (lambda (_tab59400_ _key59401_ _value59402_) - (let ((_table59405_ (&raw-table-table _tab59400_)) - (_seed59406_ (&raw-table-seed _tab59400_))) - (let* ((_h59408_ (fxxor (eqv-hash _key59401_) _seed59406_)) - (_size59411_ (vector-length _table59405_)) - (_entries59414_ (fxquotient _size59411_ '2)) - (_start59417_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h59408_ _entries59414_) + (fxmodulo _h59405_ _entries59411_) '1))) - (let _loop59421_ ((_probe59424_ _start59417_) - (_i59426_ '1) - (_deleted59428_ '#f)) - (let ((_k59431_ (vector-ref _table59405_ _probe59424_))) - (if (eq? _k59431_ (macro-unused-obj)) - (if _deleted59428_ + (let _loop59418_ ((_probe59421_ _start59414_) + (_i59423_ '1) + (_deleted59425_ '#f)) + (let ((_k59428_ (vector-ref _table59402_ _probe59421_))) + (if (eq? _k59428_ (macro-unused-obj)) + (if _deleted59425_ (begin - (vector-set! _table59405_ _deleted59428_ _key59401_) + (vector-set! _table59402_ _deleted59425_ _key59398_) (vector-set! - _table59405_ - (fx+ _deleted59428_ '1) - _value59402_) + _table59402_ + (fx+ _deleted59425_ '1) + _value59399_) ((lambda () (&raw-table-count-set! - _tab59400_ - (fx+ (&raw-table-count _tab59400_) '1))))) + _tab59397_ + (fx+ (&raw-table-count _tab59397_) '1))))) (begin - (vector-set! _table59405_ _probe59424_ _key59401_) + (vector-set! _table59402_ _probe59421_ _key59398_) (vector-set! - _table59405_ - (fx+ _probe59424_ '1) - _value59402_) + _table59402_ + (fx+ _probe59421_ '1) + _value59399_) ((lambda () (&raw-table-free-set! - _tab59400_ - (fx- (&raw-table-free _tab59400_) '1)) + _tab59397_ + (fx- (&raw-table-free _tab59397_) '1)) (&raw-table-count-set! - _tab59400_ - (fx+ (&raw-table-count _tab59400_) '1)))))) - (if (eq? _k59431_ (macro-deleted-obj)) - (_loop59421_ - (let ((_next-probe59436_ - (fx+ _start59417_ - _i59426_ - (fx* _i59426_ _i59426_)))) - (fxmodulo _next-probe59436_ _size59411_)) - (fx+ _i59426_ '1) - (let ((_$e59439_ _deleted59428_)) - (if _$e59439_ _$e59439_ _probe59424_))) - (if (eqv? _key59401_ _k59431_) + _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_) (begin (vector-set! - _table59405_ - _probe59424_ - _key59401_) + _table59402_ + _probe59421_ + _key59398_) (vector-set! - _table59405_ - (fx+ _probe59424_ '1) - _value59402_)) - (_loop59421_ - (let ((_next-probe59442_ - (fx+ _start59417_ - _i59426_ - (fx* _i59426_ _i59426_)))) - (fxmodulo _next-probe59442_ _size59411_)) - (fx+ _i59426_ '1) - _deleted59428_)))))))))) + _table59402_ + (fx+ _probe59421_ '1) + _value59399_)) + (_loop59418_ + (let ((_next-probe59439_ + (fx+ _start59414_ + _i59423_ + (fx* _i59423_ _i59423_)))) + (fxmodulo _next-probe59439_ _size59408_)) + (fx+ _i59423_ '1) + _deleted59425_)))))))))) (define eqv-table-update! - (lambda (_tab59395_ _key59396_ _eqv-table-update!59397_ _default59398_) - (if (fx< (&raw-table-free _tab59395_) - (fxquotient (vector-length (&raw-table-table _tab59395_)) '4)) - (__raw-table-rehash! _tab59395_) + (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_) '#!void) (__eqv-table-update! - _tab59395_ - _key59396_ - _eqv-table-update!59397_ - _default59398_))) + _tab59392_ + _key59393_ + _eqv-table-update!59394_ + _default59395_))) (define __eqv-table-update! - (lambda (_tab59349_ _key59350_ _eqv-table-update!59351_ _default59352_) - (let ((_table59355_ (&raw-table-table _tab59349_)) - (_seed59356_ (&raw-table-seed _tab59349_))) - (let* ((_h59358_ (fxxor (eqv-hash _key59350_) _seed59356_)) - (_size59361_ (vector-length _table59355_)) - (_entries59364_ (fxquotient _size59361_ '2)) - (_start59367_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h59358_ _entries59364_) + (fxmodulo _h59355_ _entries59361_) '1))) - (let _loop59371_ ((_probe59374_ _start59367_) - (_i59376_ '1) - (_deleted59378_ '#f)) - (let ((_k59381_ (vector-ref _table59355_ _probe59374_))) - (if (eq? _k59381_ (macro-unused-obj)) - (if _deleted59378_ + (let _loop59368_ ((_probe59371_ _start59364_) + (_i59373_ '1) + (_deleted59375_ '#f)) + (let ((_k59378_ (vector-ref _table59352_ _probe59371_))) + (if (eq? _k59378_ (macro-unused-obj)) + (if _deleted59375_ (begin - (vector-set! _table59355_ _deleted59378_ _key59350_) + (vector-set! _table59352_ _deleted59375_ _key59347_) (vector-set! - _table59355_ - (fx+ _deleted59378_ '1) - (_eqv-table-update!59351_ _default59352_)) + _table59352_ + (fx+ _deleted59375_ '1) + (_eqv-table-update!59348_ _default59349_)) ((lambda () (&raw-table-count-set! - _tab59349_ - (fx+ (&raw-table-count _tab59349_) '1))))) + _tab59346_ + (fx+ (&raw-table-count _tab59346_) '1))))) (begin - (vector-set! _table59355_ _probe59374_ _key59350_) + (vector-set! _table59352_ _probe59371_ _key59347_) (vector-set! - _table59355_ - (fx+ _probe59374_ '1) - (_eqv-table-update!59351_ _default59352_)) + _table59352_ + (fx+ _probe59371_ '1) + (_eqv-table-update!59348_ _default59349_)) ((lambda () (&raw-table-free-set! - _tab59349_ - (fx- (&raw-table-free _tab59349_) '1)) + _tab59346_ + (fx- (&raw-table-free _tab59346_) '1)) (&raw-table-count-set! - _tab59349_ - (fx+ (&raw-table-count _tab59349_) '1)))))) - (if (eq? _k59381_ (macro-deleted-obj)) - (_loop59371_ - (let ((_next-probe59386_ - (fx+ _start59367_ - _i59376_ - (fx* _i59376_ _i59376_)))) - (fxmodulo _next-probe59386_ _size59361_)) - (fx+ _i59376_ '1) - (let ((_$e59389_ _deleted59378_)) - (if _$e59389_ _$e59389_ _probe59374_))) - (if (eqv? _key59350_ _k59381_) + _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_) (begin (vector-set! - _table59355_ - _probe59374_ - _key59350_) + _table59352_ + _probe59371_ + _key59347_) (vector-set! - _table59355_ - (fx+ _probe59374_ '1) - (_eqv-table-update!59351_ + _table59352_ + (fx+ _probe59371_ '1) + (_eqv-table-update!59348_ (vector-ref - _table59355_ - (fx+ _probe59374_ '1))))) - (_loop59371_ - (let ((_next-probe59392_ - (fx+ _start59367_ - _i59376_ - (fx* _i59376_ _i59376_)))) - (fxmodulo _next-probe59392_ _size59361_)) - (fx+ _i59376_ '1) - _deleted59378_)))))))))) + _table59352_ + (fx+ _probe59371_ '1))))) + (_loop59368_ + (let ((_next-probe59389_ + (fx+ _start59364_ + _i59373_ + (fx* _i59373_ _i59373_)))) + (fxmodulo _next-probe59389_ _size59358_)) + (fx+ _i59373_ '1) + _deleted59375_)))))))))) (define eqv-table-delete! - (lambda (_tab59308_ _key59310_) - (let ((_table59313_ (&raw-table-table _tab59308_)) - (_seed59315_ (&raw-table-seed _tab59308_))) - (let* ((_h59318_ (fxxor (eqv-hash _key59310_) _seed59315_)) - (_size59321_ (vector-length _table59313_)) - (_entries59324_ (fxquotient _size59321_ '2)) - (_start59327_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h59318_ _entries59324_) + (fxmodulo _h59315_ _entries59321_) '1))) - (let _loop59331_ ((_probe59334_ _start59327_) (_i59336_ '1)) - (let ((_k59339_ (vector-ref _table59313_ _probe59334_))) - (if (eq? _k59339_ (macro-unused-obj)) + (let _loop59328_ ((_probe59331_ _start59324_) (_i59333_ '1)) + (let ((_k59336_ (vector-ref _table59310_ _probe59331_))) + (if (eq? _k59336_ (macro-unused-obj)) '#!void - (if (eq? _k59339_ (macro-deleted-obj)) - (_loop59331_ - (let ((_next-probe59342_ - (fx+ _start59327_ - _i59336_ - (fx* _i59336_ _i59336_)))) - (fxmodulo _next-probe59342_ _size59321_)) - (fx+ _i59336_ '1)) - (if (eqv? _key59310_ _k59339_) + (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_) (begin (vector-set! - _table59313_ - _probe59334_ + _table59310_ + _probe59331_ (macro-deleted-obj)) (vector-set! - _table59313_ - (fx+ _probe59334_ '1) + _table59310_ + (fx+ _probe59331_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _tab59308_ - (fx- (&raw-table-count _tab59308_) '1))))) - (_loop59331_ - (let ((_next-probe59346_ - (fx+ _start59327_ - _i59336_ - (fx* _i59336_ _i59336_)))) - (fxmodulo _next-probe59346_ _size59321_)) - (fx+ _i59336_ '1))))))))))) + _tab59305_ + (fx- (&raw-table-count _tab59305_) '1))))) + (_loop59328_ + (let ((_next-probe59343_ + (fx+ _start59324_ + _i59333_ + (fx* _i59333_ _i59333_)))) + (fxmodulo _next-probe59343_ _size59318_)) + (fx+ _i59333_ '1))))))))))) (define make-symbolic-table__% - (lambda (_size-hint59289_ _seed59291_) - (make-raw-table__% _size-hint59289_ symbolic-hash eq? _seed59291_))) + (lambda (_size-hint59286_ _seed59288_) + (make-raw-table__% _size-hint59286_ symbolic-hash eq? _seed59288_))) (define make-symbolic-table__0 (lambda () - (let* ((_size-hint59297_ '#f) (_seed59299_ '0)) - (make-symbolic-table__% _size-hint59297_ _seed59299_)))) + (let* ((_size-hint59294_ '#f) (_seed59296_ '0)) + (make-symbolic-table__% _size-hint59294_ _seed59296_)))) (define make-symbolic-table__1 - (lambda (_size-hint59301_) - (let ((_seed59303_ '0)) - (make-symbolic-table__% _size-hint59301_ _seed59303_)))) + (lambda (_size-hint59298_) + (let ((_seed59300_ '0)) + (make-symbolic-table__% _size-hint59298_ _seed59300_)))) (define make-symbolic-table - (lambda _g60035_ - (let ((_g60034_ (##length _g60035_))) - (cond ((##fx= _g60034_ 0) - (apply (lambda () (make-symbolic-table__0)) _g60035_)) - ((##fx= _g60034_ 1) - (apply (lambda (_size-hint59301_) - (make-symbolic-table__1 _size-hint59301_)) - _g60035_)) - ((##fx= _g60034_ 2) - (apply (lambda (_size-hint59305_ _seed59306_) + (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_) (make-symbolic-table__% - _size-hint59305_ - _seed59306_)) - _g60035_)) + _size-hint59302_ + _seed59303_)) + _g60032_)) (else (##raise-wrong-number-of-arguments-exception make-symbolic-table - _g60035_)))))) + _g60032_)))))) (define symbolic-table-ref - (lambda (_tab59246_ _key59247_ _default59248_) - (let ((_table59250_ (&raw-table-table _tab59246_)) - (_seed59251_ (&raw-table-seed _tab59246_))) - (let* ((_h59253_ (fxxor (symbolic-hash _key59247_) _seed59251_)) - (_size59256_ (vector-length _table59250_)) - (_entries59259_ (fxquotient _size59256_ '2)) - (_start59262_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h59253_ _entries59259_) + (fxmodulo _h59250_ _entries59256_) '1))) - (let _loop59266_ ((_probe59269_ _start59262_) - (_i59271_ '1) - (_deleted59273_ '#f)) - (let ((_k59276_ (vector-ref _table59250_ _probe59269_))) - (if (eq? _k59276_ (macro-unused-obj)) - _default59248_ - (if (eq? _k59276_ (macro-deleted-obj)) - (_loop59266_ - (let ((_next-probe59279_ - (fx+ _start59262_ - _i59271_ - (fx* _i59271_ _i59271_)))) - (fxmodulo _next-probe59279_ _size59256_)) - (fx+ _i59271_ '1) - (let ((_$e59282_ _deleted59273_)) - (if _$e59282_ _$e59282_ _probe59269_))) - (if (eq? _key59247_ _k59276_) - (vector-ref _table59250_ (fx+ _probe59269_ '1)) - (_loop59266_ - (let ((_next-probe59285_ - (fx+ _start59262_ - _i59271_ - (fx* _i59271_ _i59271_)))) - (fxmodulo _next-probe59285_ _size59256_)) - (fx+ _i59271_ '1) - _deleted59273_)))))))))) + (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_)))))))))) (define symbolic-table-set! - (lambda (_tab59242_ _key59243_ _value59244_) - (if (fx< (&raw-table-free _tab59242_) - (fxquotient (vector-length (&raw-table-table _tab59242_)) '4)) - (__raw-table-rehash! _tab59242_) + (lambda (_tab59239_ _key59240_ _value59241_) + (if (fx< (&raw-table-free _tab59239_) + (fxquotient (vector-length (&raw-table-table _tab59239_)) '4)) + (__raw-table-rehash! _tab59239_) '#!void) - (__symbolic-table-set! _tab59242_ _key59243_ _value59244_))) + (__symbolic-table-set! _tab59239_ _key59240_ _value59241_))) (define __symbolic-table-set! - (lambda (_tab59197_ _key59198_ _value59199_) - (let ((_table59202_ (&raw-table-table _tab59197_)) - (_seed59203_ (&raw-table-seed _tab59197_))) - (let* ((_h59205_ (fxxor (symbolic-hash _key59198_) _seed59203_)) - (_size59208_ (vector-length _table59202_)) - (_entries59211_ (fxquotient _size59208_ '2)) - (_start59214_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h59205_ _entries59211_) + (fxmodulo _h59202_ _entries59208_) '1))) - (let _loop59218_ ((_probe59221_ _start59214_) - (_i59223_ '1) - (_deleted59225_ '#f)) - (let ((_k59228_ (vector-ref _table59202_ _probe59221_))) - (if (eq? _k59228_ (macro-unused-obj)) - (if _deleted59225_ + (let _loop59215_ ((_probe59218_ _start59211_) + (_i59220_ '1) + (_deleted59222_ '#f)) + (let ((_k59225_ (vector-ref _table59199_ _probe59218_))) + (if (eq? _k59225_ (macro-unused-obj)) + (if _deleted59222_ (begin - (vector-set! _table59202_ _deleted59225_ _key59198_) + (vector-set! _table59199_ _deleted59222_ _key59195_) (vector-set! - _table59202_ - (fx+ _deleted59225_ '1) - _value59199_) + _table59199_ + (fx+ _deleted59222_ '1) + _value59196_) ((lambda () (&raw-table-count-set! - _tab59197_ - (fx+ (&raw-table-count _tab59197_) '1))))) + _tab59194_ + (fx+ (&raw-table-count _tab59194_) '1))))) (begin - (vector-set! _table59202_ _probe59221_ _key59198_) + (vector-set! _table59199_ _probe59218_ _key59195_) (vector-set! - _table59202_ - (fx+ _probe59221_ '1) - _value59199_) + _table59199_ + (fx+ _probe59218_ '1) + _value59196_) ((lambda () (&raw-table-free-set! - _tab59197_ - (fx- (&raw-table-free _tab59197_) '1)) + _tab59194_ + (fx- (&raw-table-free _tab59194_) '1)) (&raw-table-count-set! - _tab59197_ - (fx+ (&raw-table-count _tab59197_) '1)))))) - (if (eq? _k59228_ (macro-deleted-obj)) - (_loop59218_ - (let ((_next-probe59233_ - (fx+ _start59214_ - _i59223_ - (fx* _i59223_ _i59223_)))) - (fxmodulo _next-probe59233_ _size59208_)) - (fx+ _i59223_ '1) - (let ((_$e59236_ _deleted59225_)) - (if _$e59236_ _$e59236_ _probe59221_))) - (if (eq? _key59198_ _k59228_) + _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_) (begin (vector-set! - _table59202_ - _probe59221_ - _key59198_) + _table59199_ + _probe59218_ + _key59195_) (vector-set! - _table59202_ - (fx+ _probe59221_ '1) - _value59199_)) - (_loop59218_ - (let ((_next-probe59239_ - (fx+ _start59214_ - _i59223_ - (fx* _i59223_ _i59223_)))) - (fxmodulo _next-probe59239_ _size59208_)) - (fx+ _i59223_ '1) - _deleted59225_)))))))))) + _table59199_ + (fx+ _probe59218_ '1) + _value59196_)) + (_loop59215_ + (let ((_next-probe59236_ + (fx+ _start59211_ + _i59220_ + (fx* _i59220_ _i59220_)))) + (fxmodulo _next-probe59236_ _size59205_)) + (fx+ _i59220_ '1) + _deleted59222_)))))))))) (define symbolic-table-update! - (lambda (_tab59192_ - _key59193_ - _symbolic-table-update!59194_ - _default59195_) - (if (fx< (&raw-table-free _tab59192_) - (fxquotient (vector-length (&raw-table-table _tab59192_)) '4)) - (__raw-table-rehash! _tab59192_) + (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_) '#!void) (__symbolic-table-update! - _tab59192_ - _key59193_ - _symbolic-table-update!59194_ - _default59195_))) + _tab59189_ + _key59190_ + _symbolic-table-update!59191_ + _default59192_))) (define __symbolic-table-update! - (lambda (_tab59146_ - _key59147_ - _symbolic-table-update!59148_ - _default59149_) - (let ((_table59152_ (&raw-table-table _tab59146_)) - (_seed59153_ (&raw-table-seed _tab59146_))) - (let* ((_h59155_ (fxxor (symbolic-hash _key59147_) _seed59153_)) - (_size59158_ (vector-length _table59152_)) - (_entries59161_ (fxquotient _size59158_ '2)) - (_start59164_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h59155_ _entries59161_) + (fxmodulo _h59152_ _entries59158_) '1))) - (let _loop59168_ ((_probe59171_ _start59164_) - (_i59173_ '1) - (_deleted59175_ '#f)) - (let ((_k59178_ (vector-ref _table59152_ _probe59171_))) - (if (eq? _k59178_ (macro-unused-obj)) - (if _deleted59175_ + (let _loop59165_ ((_probe59168_ _start59161_) + (_i59170_ '1) + (_deleted59172_ '#f)) + (let ((_k59175_ (vector-ref _table59149_ _probe59168_))) + (if (eq? _k59175_ (macro-unused-obj)) + (if _deleted59172_ (begin - (vector-set! _table59152_ _deleted59175_ _key59147_) + (vector-set! _table59149_ _deleted59172_ _key59144_) (vector-set! - _table59152_ - (fx+ _deleted59175_ '1) - (_symbolic-table-update!59148_ _default59149_)) + _table59149_ + (fx+ _deleted59172_ '1) + (_symbolic-table-update!59145_ _default59146_)) ((lambda () (&raw-table-count-set! - _tab59146_ - (fx+ (&raw-table-count _tab59146_) '1))))) + _tab59143_ + (fx+ (&raw-table-count _tab59143_) '1))))) (begin - (vector-set! _table59152_ _probe59171_ _key59147_) + (vector-set! _table59149_ _probe59168_ _key59144_) (vector-set! - _table59152_ - (fx+ _probe59171_ '1) - (_symbolic-table-update!59148_ _default59149_)) + _table59149_ + (fx+ _probe59168_ '1) + (_symbolic-table-update!59145_ _default59146_)) ((lambda () (&raw-table-free-set! - _tab59146_ - (fx- (&raw-table-free _tab59146_) '1)) + _tab59143_ + (fx- (&raw-table-free _tab59143_) '1)) (&raw-table-count-set! - _tab59146_ - (fx+ (&raw-table-count _tab59146_) '1)))))) - (if (eq? _k59178_ (macro-deleted-obj)) - (_loop59168_ - (let ((_next-probe59183_ - (fx+ _start59164_ - _i59173_ - (fx* _i59173_ _i59173_)))) - (fxmodulo _next-probe59183_ _size59158_)) - (fx+ _i59173_ '1) - (let ((_$e59186_ _deleted59175_)) - (if _$e59186_ _$e59186_ _probe59171_))) - (if (eq? _key59147_ _k59178_) + _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_) (begin (vector-set! - _table59152_ - _probe59171_ - _key59147_) + _table59149_ + _probe59168_ + _key59144_) (vector-set! - _table59152_ - (fx+ _probe59171_ '1) - (_symbolic-table-update!59148_ + _table59149_ + (fx+ _probe59168_ '1) + (_symbolic-table-update!59145_ (vector-ref - _table59152_ - (fx+ _probe59171_ '1))))) - (_loop59168_ - (let ((_next-probe59189_ - (fx+ _start59164_ - _i59173_ - (fx* _i59173_ _i59173_)))) - (fxmodulo _next-probe59189_ _size59158_)) - (fx+ _i59173_ '1) - _deleted59175_)))))))))) + _table59149_ + (fx+ _probe59168_ '1))))) + (_loop59165_ + (let ((_next-probe59186_ + (fx+ _start59161_ + _i59170_ + (fx* _i59170_ _i59170_)))) + (fxmodulo _next-probe59186_ _size59155_)) + (fx+ _i59170_ '1) + _deleted59172_)))))))))) (define symbolic-table-delete! - (lambda (_tab59105_ _key59107_) - (let ((_table59110_ (&raw-table-table _tab59105_)) - (_seed59112_ (&raw-table-seed _tab59105_))) - (let* ((_h59115_ (fxxor (symbolic-hash _key59107_) _seed59112_)) - (_size59118_ (vector-length _table59110_)) - (_entries59121_ (fxquotient _size59118_ '2)) - (_start59124_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h59115_ _entries59121_) + (fxmodulo _h59112_ _entries59118_) '1))) - (let _loop59128_ ((_probe59131_ _start59124_) (_i59133_ '1)) - (let ((_k59136_ (vector-ref _table59110_ _probe59131_))) - (if (eq? _k59136_ (macro-unused-obj)) + (let _loop59125_ ((_probe59128_ _start59121_) (_i59130_ '1)) + (let ((_k59133_ (vector-ref _table59107_ _probe59128_))) + (if (eq? _k59133_ (macro-unused-obj)) '#!void - (if (eq? _k59136_ (macro-deleted-obj)) - (_loop59128_ - (let ((_next-probe59139_ - (fx+ _start59124_ - _i59133_ - (fx* _i59133_ _i59133_)))) - (fxmodulo _next-probe59139_ _size59118_)) - (fx+ _i59133_ '1)) - (if (eq? _key59107_ _k59136_) + (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_) (begin (vector-set! - _table59110_ - _probe59131_ + _table59107_ + _probe59128_ (macro-deleted-obj)) (vector-set! - _table59110_ - (fx+ _probe59131_ '1) + _table59107_ + (fx+ _probe59128_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _tab59105_ - (fx- (&raw-table-count _tab59105_) '1))))) - (_loop59128_ - (let ((_next-probe59143_ - (fx+ _start59124_ - _i59133_ - (fx* _i59133_ _i59133_)))) - (fxmodulo _next-probe59143_ _size59118_)) - (fx+ _i59133_ '1))))))))))) + _tab59102_ + (fx- (&raw-table-count _tab59102_) '1))))) + (_loop59125_ + (let ((_next-probe59140_ + (fx+ _start59121_ + _i59130_ + (fx* _i59130_ _i59130_)))) + (fxmodulo _next-probe59140_ _size59115_)) + (fx+ _i59130_ '1))))))))))) (define make-string-table__% - (lambda (_size-hint59086_ _seed59088_) + (lambda (_size-hint59083_ _seed59085_) (make-raw-table__% - _size-hint59086_ + _size-hint59083_ string-hash ##string=? - _seed59088_))) + _seed59085_))) (define make-string-table__0 (lambda () - (let* ((_size-hint59094_ '#f) (_seed59096_ '0)) - (make-string-table__% _size-hint59094_ _seed59096_)))) + (let* ((_size-hint59091_ '#f) (_seed59093_ '0)) + (make-string-table__% _size-hint59091_ _seed59093_)))) (define make-string-table__1 - (lambda (_size-hint59098_) - (let ((_seed59100_ '0)) - (make-string-table__% _size-hint59098_ _seed59100_)))) + (lambda (_size-hint59095_) + (let ((_seed59097_ '0)) + (make-string-table__% _size-hint59095_ _seed59097_)))) (define make-string-table - (lambda _g60037_ - (let ((_g60036_ (##length _g60037_))) - (cond ((##fx= _g60036_ 0) - (apply (lambda () (make-string-table__0)) _g60037_)) - ((##fx= _g60036_ 1) - (apply (lambda (_size-hint59098_) - (make-string-table__1 _size-hint59098_)) - _g60037_)) - ((##fx= _g60036_ 2) - (apply (lambda (_size-hint59102_ _seed59103_) - (make-string-table__% _size-hint59102_ _seed59103_)) - _g60037_)) + (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_)) (else (##raise-wrong-number-of-arguments-exception make-string-table - _g60037_)))))) + _g60034_)))))) (define string-table-ref - (lambda (_tab59043_ _key59044_ _default59045_) - (let ((_table59047_ (&raw-table-table _tab59043_)) - (_seed59048_ (&raw-table-seed _tab59043_))) - (let* ((_h59050_ (fxxor (##string=?-hash _key59044_) _seed59048_)) - (_size59053_ (vector-length _table59047_)) - (_entries59056_ (fxquotient _size59053_ '2)) - (_start59059_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h59050_ _entries59056_) + (fxmodulo _h59047_ _entries59053_) '1))) - (let _loop59063_ ((_probe59066_ _start59059_) - (_i59068_ '1) - (_deleted59070_ '#f)) - (let ((_k59073_ (vector-ref _table59047_ _probe59066_))) - (if (eq? _k59073_ (macro-unused-obj)) - _default59045_ - (if (eq? _k59073_ (macro-deleted-obj)) - (_loop59063_ - (let ((_next-probe59076_ - (fx+ _start59059_ - _i59068_ - (fx* _i59068_ _i59068_)))) - (fxmodulo _next-probe59076_ _size59053_)) - (fx+ _i59068_ '1) - (let ((_$e59079_ _deleted59070_)) - (if _$e59079_ _$e59079_ _probe59066_))) - (if (##string=? _key59044_ _k59073_) - (vector-ref _table59047_ (fx+ _probe59066_ '1)) - (_loop59063_ - (let ((_next-probe59082_ - (fx+ _start59059_ - _i59068_ - (fx* _i59068_ _i59068_)))) - (fxmodulo _next-probe59082_ _size59053_)) - (fx+ _i59068_ '1) - _deleted59070_)))))))))) + (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_)))))))))) (define string-table-set! - (lambda (_tab59039_ _key59040_ _value59041_) - (if (fx< (&raw-table-free _tab59039_) - (fxquotient (vector-length (&raw-table-table _tab59039_)) '4)) - (__raw-table-rehash! _tab59039_) + (lambda (_tab59036_ _key59037_ _value59038_) + (if (fx< (&raw-table-free _tab59036_) + (fxquotient (vector-length (&raw-table-table _tab59036_)) '4)) + (__raw-table-rehash! _tab59036_) '#!void) - (__string-table-set! _tab59039_ _key59040_ _value59041_))) + (__string-table-set! _tab59036_ _key59037_ _value59038_))) (define __string-table-set! - (lambda (_tab58994_ _key58995_ _value58996_) - (let ((_table58999_ (&raw-table-table _tab58994_)) - (_seed59000_ (&raw-table-seed _tab58994_))) - (let* ((_h59002_ (fxxor (##string=?-hash _key58995_) _seed59000_)) - (_size59005_ (vector-length _table58999_)) - (_entries59008_ (fxquotient _size59005_ '2)) - (_start59011_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h59002_ _entries59008_) + (fxmodulo _h58999_ _entries59005_) '1))) - (let _loop59015_ ((_probe59018_ _start59011_) - (_i59020_ '1) - (_deleted59022_ '#f)) - (let ((_k59025_ (vector-ref _table58999_ _probe59018_))) - (if (eq? _k59025_ (macro-unused-obj)) - (if _deleted59022_ + (let _loop59012_ ((_probe59015_ _start59008_) + (_i59017_ '1) + (_deleted59019_ '#f)) + (let ((_k59022_ (vector-ref _table58996_ _probe59015_))) + (if (eq? _k59022_ (macro-unused-obj)) + (if _deleted59019_ (begin - (vector-set! _table58999_ _deleted59022_ _key58995_) + (vector-set! _table58996_ _deleted59019_ _key58992_) (vector-set! - _table58999_ - (fx+ _deleted59022_ '1) - _value58996_) + _table58996_ + (fx+ _deleted59019_ '1) + _value58993_) ((lambda () (&raw-table-count-set! - _tab58994_ - (fx+ (&raw-table-count _tab58994_) '1))))) + _tab58991_ + (fx+ (&raw-table-count _tab58991_) '1))))) (begin - (vector-set! _table58999_ _probe59018_ _key58995_) + (vector-set! _table58996_ _probe59015_ _key58992_) (vector-set! - _table58999_ - (fx+ _probe59018_ '1) - _value58996_) + _table58996_ + (fx+ _probe59015_ '1) + _value58993_) ((lambda () (&raw-table-free-set! - _tab58994_ - (fx- (&raw-table-free _tab58994_) '1)) + _tab58991_ + (fx- (&raw-table-free _tab58991_) '1)) (&raw-table-count-set! - _tab58994_ - (fx+ (&raw-table-count _tab58994_) '1)))))) - (if (eq? _k59025_ (macro-deleted-obj)) - (_loop59015_ - (let ((_next-probe59030_ - (fx+ _start59011_ - _i59020_ - (fx* _i59020_ _i59020_)))) - (fxmodulo _next-probe59030_ _size59005_)) - (fx+ _i59020_ '1) - (let ((_$e59033_ _deleted59022_)) - (if _$e59033_ _$e59033_ _probe59018_))) - (if (##string=? _key58995_ _k59025_) + _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_) (begin (vector-set! - _table58999_ - _probe59018_ - _key58995_) + _table58996_ + _probe59015_ + _key58992_) (vector-set! - _table58999_ - (fx+ _probe59018_ '1) - _value58996_)) - (_loop59015_ - (let ((_next-probe59036_ - (fx+ _start59011_ - _i59020_ - (fx* _i59020_ _i59020_)))) - (fxmodulo _next-probe59036_ _size59005_)) - (fx+ _i59020_ '1) - _deleted59022_)))))))))) + _table58996_ + (fx+ _probe59015_ '1) + _value58993_)) + (_loop59012_ + (let ((_next-probe59033_ + (fx+ _start59008_ + _i59017_ + (fx* _i59017_ _i59017_)))) + (fxmodulo _next-probe59033_ _size59002_)) + (fx+ _i59017_ '1) + _deleted59019_)))))))))) (define string-table-update! - (lambda (_tab58989_ - _key58990_ - _string-table-update!58991_ - _default58992_) - (if (fx< (&raw-table-free _tab58989_) - (fxquotient (vector-length (&raw-table-table _tab58989_)) '4)) - (__raw-table-rehash! _tab58989_) + (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_) '#!void) (__string-table-update! - _tab58989_ - _key58990_ - _string-table-update!58991_ - _default58992_))) + _tab58986_ + _key58987_ + _string-table-update!58988_ + _default58989_))) (define __string-table-update! - (lambda (_tab58943_ - _key58944_ - _string-table-update!58945_ - _default58946_) - (let ((_table58949_ (&raw-table-table _tab58943_)) - (_seed58950_ (&raw-table-seed _tab58943_))) - (let* ((_h58952_ (fxxor (##string=?-hash _key58944_) _seed58950_)) - (_size58955_ (vector-length _table58949_)) - (_entries58958_ (fxquotient _size58955_ '2)) - (_start58961_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h58952_ _entries58958_) + (fxmodulo _h58949_ _entries58955_) '1))) - (let _loop58965_ ((_probe58968_ _start58961_) - (_i58970_ '1) - (_deleted58972_ '#f)) - (let ((_k58975_ (vector-ref _table58949_ _probe58968_))) - (if (eq? _k58975_ (macro-unused-obj)) - (if _deleted58972_ + (let _loop58962_ ((_probe58965_ _start58958_) + (_i58967_ '1) + (_deleted58969_ '#f)) + (let ((_k58972_ (vector-ref _table58946_ _probe58965_))) + (if (eq? _k58972_ (macro-unused-obj)) + (if _deleted58969_ (begin - (vector-set! _table58949_ _deleted58972_ _key58944_) + (vector-set! _table58946_ _deleted58969_ _key58941_) (vector-set! - _table58949_ - (fx+ _deleted58972_ '1) - (_string-table-update!58945_ _default58946_)) + _table58946_ + (fx+ _deleted58969_ '1) + (_string-table-update!58942_ _default58943_)) ((lambda () (&raw-table-count-set! - _tab58943_ - (fx+ (&raw-table-count _tab58943_) '1))))) + _tab58940_ + (fx+ (&raw-table-count _tab58940_) '1))))) (begin - (vector-set! _table58949_ _probe58968_ _key58944_) + (vector-set! _table58946_ _probe58965_ _key58941_) (vector-set! - _table58949_ - (fx+ _probe58968_ '1) - (_string-table-update!58945_ _default58946_)) + _table58946_ + (fx+ _probe58965_ '1) + (_string-table-update!58942_ _default58943_)) ((lambda () (&raw-table-free-set! - _tab58943_ - (fx- (&raw-table-free _tab58943_) '1)) + _tab58940_ + (fx- (&raw-table-free _tab58940_) '1)) (&raw-table-count-set! - _tab58943_ - (fx+ (&raw-table-count _tab58943_) '1)))))) - (if (eq? _k58975_ (macro-deleted-obj)) - (_loop58965_ - (let ((_next-probe58980_ - (fx+ _start58961_ - _i58970_ - (fx* _i58970_ _i58970_)))) - (fxmodulo _next-probe58980_ _size58955_)) - (fx+ _i58970_ '1) - (let ((_$e58983_ _deleted58972_)) - (if _$e58983_ _$e58983_ _probe58968_))) - (if (##string=? _key58944_ _k58975_) + _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_) (begin (vector-set! - _table58949_ - _probe58968_ - _key58944_) + _table58946_ + _probe58965_ + _key58941_) (vector-set! - _table58949_ - (fx+ _probe58968_ '1) - (_string-table-update!58945_ + _table58946_ + (fx+ _probe58965_ '1) + (_string-table-update!58942_ (vector-ref - _table58949_ - (fx+ _probe58968_ '1))))) - (_loop58965_ - (let ((_next-probe58986_ - (fx+ _start58961_ - _i58970_ - (fx* _i58970_ _i58970_)))) - (fxmodulo _next-probe58986_ _size58955_)) - (fx+ _i58970_ '1) - _deleted58972_)))))))))) + _table58946_ + (fx+ _probe58965_ '1))))) + (_loop58962_ + (let ((_next-probe58983_ + (fx+ _start58958_ + _i58967_ + (fx* _i58967_ _i58967_)))) + (fxmodulo _next-probe58983_ _size58952_)) + (fx+ _i58967_ '1) + _deleted58969_)))))))))) (define string-table-delete! - (lambda (_tab58902_ _key58904_) - (let ((_table58907_ (&raw-table-table _tab58902_)) - (_seed58909_ (&raw-table-seed _tab58902_))) - (let* ((_h58912_ (fxxor (##string=?-hash _key58904_) _seed58909_)) - (_size58915_ (vector-length _table58907_)) - (_entries58918_ (fxquotient _size58915_ '2)) - (_start58921_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h58912_ _entries58918_) + (fxmodulo _h58909_ _entries58915_) '1))) - (let _loop58925_ ((_probe58928_ _start58921_) (_i58930_ '1)) - (let ((_k58933_ (vector-ref _table58907_ _probe58928_))) - (if (eq? _k58933_ (macro-unused-obj)) + (let _loop58922_ ((_probe58925_ _start58918_) (_i58927_ '1)) + (let ((_k58930_ (vector-ref _table58904_ _probe58925_))) + (if (eq? _k58930_ (macro-unused-obj)) '#!void - (if (eq? _k58933_ (macro-deleted-obj)) - (_loop58925_ - (let ((_next-probe58936_ - (fx+ _start58921_ - _i58930_ - (fx* _i58930_ _i58930_)))) - (fxmodulo _next-probe58936_ _size58915_)) - (fx+ _i58930_ '1)) - (if (##string=? _key58904_ _k58933_) + (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_) (begin (vector-set! - _table58907_ - _probe58928_ + _table58904_ + _probe58925_ (macro-deleted-obj)) (vector-set! - _table58907_ - (fx+ _probe58928_ '1) + _table58904_ + (fx+ _probe58925_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _tab58902_ - (fx- (&raw-table-count _tab58902_) '1))))) - (_loop58925_ - (let ((_next-probe58940_ - (fx+ _start58921_ - _i58930_ - (fx* _i58930_ _i58930_)))) - (fxmodulo _next-probe58940_ _size58915_)) - (fx+ _i58930_ '1))))))))))) + _tab58899_ + (fx- (&raw-table-count _tab58899_) '1))))) + (_loop58922_ + (let ((_next-probe58937_ + (fx+ _start58918_ + _i58927_ + (fx* _i58927_ _i58927_)))) + (fxmodulo _next-probe58937_ _size58912_)) + (fx+ _i58927_ '1))))))))))) (define make-immediate-table__% - (lambda (_size-hint58883_ _seed58885_) - (make-raw-table__% _size-hint58883_ immediate-hash eq? _seed58885_))) + (lambda (_size-hint58880_ _seed58882_) + (make-raw-table__% _size-hint58880_ immediate-hash eq? _seed58882_))) (define make-immediate-table__0 (lambda () - (let* ((_size-hint58891_ '#f) (_seed58893_ '0)) - (make-immediate-table__% _size-hint58891_ _seed58893_)))) + (let* ((_size-hint58888_ '#f) (_seed58890_ '0)) + (make-immediate-table__% _size-hint58888_ _seed58890_)))) (define make-immediate-table__1 - (lambda (_size-hint58895_) - (let ((_seed58897_ '0)) - (make-immediate-table__% _size-hint58895_ _seed58897_)))) + (lambda (_size-hint58892_) + (let ((_seed58894_ '0)) + (make-immediate-table__% _size-hint58892_ _seed58894_)))) (define make-immediate-table - (lambda _g60039_ - (let ((_g60038_ (##length _g60039_))) - (cond ((##fx= _g60038_ 0) - (apply (lambda () (make-immediate-table__0)) _g60039_)) - ((##fx= _g60038_ 1) - (apply (lambda (_size-hint58895_) - (make-immediate-table__1 _size-hint58895_)) - _g60039_)) - ((##fx= _g60038_ 2) - (apply (lambda (_size-hint58899_ _seed58900_) + (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_) (make-immediate-table__% - _size-hint58899_ - _seed58900_)) - _g60039_)) + _size-hint58896_ + _seed58897_)) + _g60036_)) (else (##raise-wrong-number-of-arguments-exception make-immediate-table - _g60039_)))))) + _g60036_)))))) (define immediate-table-ref - (lambda (_tab58840_ _key58841_ _default58842_) - (let ((_table58844_ (&raw-table-table _tab58840_)) - (_seed58845_ (&raw-table-seed _tab58840_))) - (let* ((_h58847_ (fxxor (immediate-hash _key58841_) _seed58845_)) - (_size58850_ (vector-length _table58844_)) - (_entries58853_ (fxquotient _size58850_ '2)) - (_start58856_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h58847_ _entries58853_) + (fxmodulo _h58844_ _entries58850_) '1))) - (let _loop58860_ ((_probe58863_ _start58856_) - (_i58865_ '1) - (_deleted58867_ '#f)) - (let ((_k58870_ (vector-ref _table58844_ _probe58863_))) - (if (eq? _k58870_ (macro-unused-obj)) - _default58842_ - (if (eq? _k58870_ (macro-deleted-obj)) - (_loop58860_ - (let ((_next-probe58873_ - (fx+ _start58856_ - _i58865_ - (fx* _i58865_ _i58865_)))) - (fxmodulo _next-probe58873_ _size58850_)) - (fx+ _i58865_ '1) - (let ((_$e58876_ _deleted58867_)) - (if _$e58876_ _$e58876_ _probe58863_))) - (if (eq? _key58841_ _k58870_) - (vector-ref _table58844_ (fx+ _probe58863_ '1)) - (_loop58860_ - (let ((_next-probe58879_ - (fx+ _start58856_ - _i58865_ - (fx* _i58865_ _i58865_)))) - (fxmodulo _next-probe58879_ _size58850_)) - (fx+ _i58865_ '1) - _deleted58867_)))))))))) + (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_)))))))))) (define immediate-table-set! - (lambda (_tab58836_ _key58837_ _value58838_) - (if (fx< (&raw-table-free _tab58836_) - (fxquotient (vector-length (&raw-table-table _tab58836_)) '4)) - (__raw-table-rehash! _tab58836_) + (lambda (_tab58833_ _key58834_ _value58835_) + (if (fx< (&raw-table-free _tab58833_) + (fxquotient (vector-length (&raw-table-table _tab58833_)) '4)) + (__raw-table-rehash! _tab58833_) '#!void) - (__immediate-table-set! _tab58836_ _key58837_ _value58838_))) + (__immediate-table-set! _tab58833_ _key58834_ _value58835_))) (define __immediate-table-set! - (lambda (_tab58791_ _key58792_ _value58793_) - (let ((_table58796_ (&raw-table-table _tab58791_)) - (_seed58797_ (&raw-table-seed _tab58791_))) - (let* ((_h58799_ (fxxor (immediate-hash _key58792_) _seed58797_)) - (_size58802_ (vector-length _table58796_)) - (_entries58805_ (fxquotient _size58802_ '2)) - (_start58808_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h58799_ _entries58805_) + (fxmodulo _h58796_ _entries58802_) '1))) - (let _loop58812_ ((_probe58815_ _start58808_) - (_i58817_ '1) - (_deleted58819_ '#f)) - (let ((_k58822_ (vector-ref _table58796_ _probe58815_))) - (if (eq? _k58822_ (macro-unused-obj)) - (if _deleted58819_ + (let _loop58809_ ((_probe58812_ _start58805_) + (_i58814_ '1) + (_deleted58816_ '#f)) + (let ((_k58819_ (vector-ref _table58793_ _probe58812_))) + (if (eq? _k58819_ (macro-unused-obj)) + (if _deleted58816_ (begin - (vector-set! _table58796_ _deleted58819_ _key58792_) + (vector-set! _table58793_ _deleted58816_ _key58789_) (vector-set! - _table58796_ - (fx+ _deleted58819_ '1) - _value58793_) + _table58793_ + (fx+ _deleted58816_ '1) + _value58790_) ((lambda () (&raw-table-count-set! - _tab58791_ - (fx+ (&raw-table-count _tab58791_) '1))))) + _tab58788_ + (fx+ (&raw-table-count _tab58788_) '1))))) (begin - (vector-set! _table58796_ _probe58815_ _key58792_) + (vector-set! _table58793_ _probe58812_ _key58789_) (vector-set! - _table58796_ - (fx+ _probe58815_ '1) - _value58793_) + _table58793_ + (fx+ _probe58812_ '1) + _value58790_) ((lambda () (&raw-table-free-set! - _tab58791_ - (fx- (&raw-table-free _tab58791_) '1)) + _tab58788_ + (fx- (&raw-table-free _tab58788_) '1)) (&raw-table-count-set! - _tab58791_ - (fx+ (&raw-table-count _tab58791_) '1)))))) - (if (eq? _k58822_ (macro-deleted-obj)) - (_loop58812_ - (let ((_next-probe58827_ - (fx+ _start58808_ - _i58817_ - (fx* _i58817_ _i58817_)))) - (fxmodulo _next-probe58827_ _size58802_)) - (fx+ _i58817_ '1) - (let ((_$e58830_ _deleted58819_)) - (if _$e58830_ _$e58830_ _probe58815_))) - (if (eq? _key58792_ _k58822_) + _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_) (begin (vector-set! - _table58796_ - _probe58815_ - _key58792_) + _table58793_ + _probe58812_ + _key58789_) (vector-set! - _table58796_ - (fx+ _probe58815_ '1) - _value58793_)) - (_loop58812_ - (let ((_next-probe58833_ - (fx+ _start58808_ - _i58817_ - (fx* _i58817_ _i58817_)))) - (fxmodulo _next-probe58833_ _size58802_)) - (fx+ _i58817_ '1) - _deleted58819_)))))))))) + _table58793_ + (fx+ _probe58812_ '1) + _value58790_)) + (_loop58809_ + (let ((_next-probe58830_ + (fx+ _start58805_ + _i58814_ + (fx* _i58814_ _i58814_)))) + (fxmodulo _next-probe58830_ _size58799_)) + (fx+ _i58814_ '1) + _deleted58816_)))))))))) (define immediate-table-update! - (lambda (_tab58786_ - _key58787_ - _immediate-table-update!58788_ - _default58789_) - (if (fx< (&raw-table-free _tab58786_) - (fxquotient (vector-length (&raw-table-table _tab58786_)) '4)) - (__raw-table-rehash! _tab58786_) + (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_) '#!void) (__immediate-table-update! - _tab58786_ - _key58787_ - _immediate-table-update!58788_ - _default58789_))) + _tab58783_ + _key58784_ + _immediate-table-update!58785_ + _default58786_))) (define __immediate-table-update! - (lambda (_tab58740_ - _key58741_ - _immediate-table-update!58742_ - _default58743_) - (let ((_table58746_ (&raw-table-table _tab58740_)) - (_seed58747_ (&raw-table-seed _tab58740_))) - (let* ((_h58749_ (fxxor (immediate-hash _key58741_) _seed58747_)) - (_size58752_ (vector-length _table58746_)) - (_entries58755_ (fxquotient _size58752_ '2)) - (_start58758_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h58749_ _entries58755_) + (fxmodulo _h58746_ _entries58752_) '1))) - (let _loop58762_ ((_probe58765_ _start58758_) - (_i58767_ '1) - (_deleted58769_ '#f)) - (let ((_k58772_ (vector-ref _table58746_ _probe58765_))) - (if (eq? _k58772_ (macro-unused-obj)) - (if _deleted58769_ + (let _loop58759_ ((_probe58762_ _start58755_) + (_i58764_ '1) + (_deleted58766_ '#f)) + (let ((_k58769_ (vector-ref _table58743_ _probe58762_))) + (if (eq? _k58769_ (macro-unused-obj)) + (if _deleted58766_ (begin - (vector-set! _table58746_ _deleted58769_ _key58741_) + (vector-set! _table58743_ _deleted58766_ _key58738_) (vector-set! - _table58746_ - (fx+ _deleted58769_ '1) - (_immediate-table-update!58742_ _default58743_)) + _table58743_ + (fx+ _deleted58766_ '1) + (_immediate-table-update!58739_ _default58740_)) ((lambda () (&raw-table-count-set! - _tab58740_ - (fx+ (&raw-table-count _tab58740_) '1))))) + _tab58737_ + (fx+ (&raw-table-count _tab58737_) '1))))) (begin - (vector-set! _table58746_ _probe58765_ _key58741_) + (vector-set! _table58743_ _probe58762_ _key58738_) (vector-set! - _table58746_ - (fx+ _probe58765_ '1) - (_immediate-table-update!58742_ _default58743_)) + _table58743_ + (fx+ _probe58762_ '1) + (_immediate-table-update!58739_ _default58740_)) ((lambda () (&raw-table-free-set! - _tab58740_ - (fx- (&raw-table-free _tab58740_) '1)) + _tab58737_ + (fx- (&raw-table-free _tab58737_) '1)) (&raw-table-count-set! - _tab58740_ - (fx+ (&raw-table-count _tab58740_) '1)))))) - (if (eq? _k58772_ (macro-deleted-obj)) - (_loop58762_ - (let ((_next-probe58777_ - (fx+ _start58758_ - _i58767_ - (fx* _i58767_ _i58767_)))) - (fxmodulo _next-probe58777_ _size58752_)) - (fx+ _i58767_ '1) - (let ((_$e58780_ _deleted58769_)) - (if _$e58780_ _$e58780_ _probe58765_))) - (if (eq? _key58741_ _k58772_) + _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_) (begin (vector-set! - _table58746_ - _probe58765_ - _key58741_) + _table58743_ + _probe58762_ + _key58738_) (vector-set! - _table58746_ - (fx+ _probe58765_ '1) - (_immediate-table-update!58742_ + _table58743_ + (fx+ _probe58762_ '1) + (_immediate-table-update!58739_ (vector-ref - _table58746_ - (fx+ _probe58765_ '1))))) - (_loop58762_ - (let ((_next-probe58783_ - (fx+ _start58758_ - _i58767_ - (fx* _i58767_ _i58767_)))) - (fxmodulo _next-probe58783_ _size58752_)) - (fx+ _i58767_ '1) - _deleted58769_)))))))))) + _table58743_ + (fx+ _probe58762_ '1))))) + (_loop58759_ + (let ((_next-probe58780_ + (fx+ _start58755_ + _i58764_ + (fx* _i58764_ _i58764_)))) + (fxmodulo _next-probe58780_ _size58749_)) + (fx+ _i58764_ '1) + _deleted58766_)))))))))) (define immediate-table-delete! - (lambda (_tab58699_ _key58701_) - (let ((_table58704_ (&raw-table-table _tab58699_)) - (_seed58706_ (&raw-table-seed _tab58699_))) - (let* ((_h58709_ (fxxor (immediate-hash _key58701_) _seed58706_)) - (_size58712_ (vector-length _table58704_)) - (_entries58715_ (fxquotient _size58712_ '2)) - (_start58718_ + (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_ (fxarithmetic-shift-left - (fxmodulo _h58709_ _entries58715_) + (fxmodulo _h58706_ _entries58712_) '1))) - (let _loop58722_ ((_probe58725_ _start58718_) (_i58727_ '1)) - (let ((_k58730_ (vector-ref _table58704_ _probe58725_))) - (if (eq? _k58730_ (macro-unused-obj)) + (let _loop58719_ ((_probe58722_ _start58715_) (_i58724_ '1)) + (let ((_k58727_ (vector-ref _table58701_ _probe58722_))) + (if (eq? _k58727_ (macro-unused-obj)) '#!void - (if (eq? _k58730_ (macro-deleted-obj)) - (_loop58722_ - (let ((_next-probe58733_ - (fx+ _start58718_ - _i58727_ - (fx* _i58727_ _i58727_)))) - (fxmodulo _next-probe58733_ _size58712_)) - (fx+ _i58727_ '1)) - (if (eq? _key58701_ _k58730_) + (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_) (begin (vector-set! - _table58704_ - _probe58725_ + _table58701_ + _probe58722_ (macro-deleted-obj)) (vector-set! - _table58704_ - (fx+ _probe58725_ '1) + _table58701_ + (fx+ _probe58722_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _tab58699_ - (fx- (&raw-table-count _tab58699_) '1))))) - (_loop58722_ - (let ((_next-probe58737_ - (fx+ _start58718_ - _i58727_ - (fx* _i58727_ _i58727_)))) - (fxmodulo _next-probe58737_ _size58712_)) - (fx+ _i58727_ '1))))))))))) + _tab58696_ + (fx- (&raw-table-count _tab58696_) '1))))) + (_loop58719_ + (let ((_next-probe58734_ + (fx+ _start58715_ + _i58724_ + (fx* _i58724_ _i58724_)))) + (fxmodulo _next-probe58734_ _size58709_)) + (fx+ _i58724_ '1))))))))))) (define __gc-table::t.id 'gerbil#__gc-table::t) (define __gc-table::t (##structure @@ -1859,193 +1859,178 @@ '26 '#f '#(gcht 5 #f immediate 5 #f))) - (define __gc-table-loads '#(0. .75)) + (define __gc-table-loads '#f64(.45 .6363961030678927 .9)) (define &gc-table-gcht - (lambda (_tab58697_) + (lambda (_tab58694_) (##unchecked-structure-ref - _tab58697_ + _tab58694_ '1 __gc-table::t 'gc-table-gcht))) (define &gc-table-immediate - (lambda (_tab58695_) + (lambda (_tab58692_) (##unchecked-structure-ref - _tab58695_ + _tab58692_ '2 __gc-table::t 'gc-table-immediate))) (define &gc-table-gcht-set! - (lambda (_tab58692_ _val58693_) + (lambda (_tab58689_ _val58690_) (##unchecked-structure-set! - _tab58692_ - _val58693_ + _tab58689_ + _val58690_ '1 __gc-table::t 'gc-table-gcht-set!))) (define &gc-table-immediate-set! - (lambda (_tab58689_ _val58690_) + (lambda (_tab58686_ _val58687_) (##unchecked-structure-set! - _tab58689_ - _val58690_ + _tab58686_ + _val58687_ '2 __gc-table::t 'gc-table-immediate-set!))) (define make-gc-table__% - (lambda (_size-hint58665_ _klass58666_ _flags58667_) - (let ((_gcht58669_ + (lambda (_size-hint58662_ _klass58663_ _flags58664_) + (let ((_gcht58666_ (__gc-table-new - (if (fixnum? _size-hint58665_) _size-hint58665_ '16) - _flags58667_))) - (##structure _klass58666_ _gcht58669_ '#f)))) + (if (fixnum? _size-hint58662_) _size-hint58662_ '16) + _flags58664_))) + (##structure _klass58663_ _gcht58666_ '#f)))) (define make-gc-table__0 - (lambda (_size-hint58674_) - (let* ((_klass58676_ __gc-table::t) (_flags58678_ '0)) - (make-gc-table__% _size-hint58674_ _klass58676_ _flags58678_)))) + (lambda (_size-hint58671_) + (let* ((_klass58673_ __gc-table::t) (_flags58675_ '0)) + (make-gc-table__% _size-hint58671_ _klass58673_ _flags58675_)))) (define make-gc-table__1 - (lambda (_size-hint58680_ _klass58681_) - (let ((_flags58683_ '0)) - (make-gc-table__% _size-hint58680_ _klass58681_ _flags58683_)))) + (lambda (_size-hint58677_ _klass58678_) + (let ((_flags58680_ '0)) + (make-gc-table__% _size-hint58677_ _klass58678_ _flags58680_)))) (define make-gc-table - (lambda _g60041_ - (let ((_g60040_ (##length _g60041_))) - (cond ((##fx= _g60040_ 1) - (apply (lambda (_size-hint58674_) - (make-gc-table__0 _size-hint58674_)) - _g60041_)) - ((##fx= _g60040_ 2) - (apply (lambda (_size-hint58680_ _klass58681_) - (make-gc-table__1 _size-hint58680_ _klass58681_)) - _g60041_)) - ((##fx= _g60040_ 3) - (apply (lambda (_size-hint58685_ _klass58686_ _flags58687_) + (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_) (make-gc-table__% - _size-hint58685_ - _klass58686_ - _flags58687_)) - _g60041_)) + _size-hint58682_ + _klass58683_ + _flags58684_)) + _g60038_)) (else (##raise-wrong-number-of-arguments-exception make-gc-table - _g60041_)))))) + _g60038_)))))) (define __gc-table-immediate - (lambda (_tab58657_) - (let ((_$e58659_ (&gc-table-immediate _tab58657_))) - (if _$e58659_ - _$e58659_ - (let ((_immediate58662_ (make-immediate-table__% '#f '0))) - (&gc-table-immediate-set! _tab58657_ _immediate58662_) - _immediate58662_))))) + (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_))))) (define __gc-table-new - (lambda (_size58652_ _flags58653_) - (let ((_gcht58655_ - (##gc-hash-table-allocate - _size58652_ - (fxior _flags58653_ (macro-gc-hash-table-flag-mem-alloc-keys)) - __gc-table-loads))) - (macro-gc-hash-table-free-set! - _gcht58655_ - (macro-gc-hash-table-size _gcht58655_)) - (macro-gc-hash-table-count-set! _gcht58655_ '0) - _gcht58655_))) + (lambda (_size58644_ _flags58645_) + (let* ((_flags58647_ + (fxand _flags58645_ + (fxnot (macro-gc-hash-table-flag-need-rehash)))) + (_flags58649_ + (fxior _flags58647_ (macro-gc-hash-table-flag-mem-alloc-keys))) + (_gcht58651_ + (##gc-hash-table-allocate + _size58644_ + _flags58649_ + __gc-table-loads))) + _gcht58651_))) (define __gc-table-e - (lambda (_tab58647_) + (lambda (_tab58639_) (declare (not interrupts-enabled)) - (let ((_gcht58650_ (&gc-table-gcht _tab58647_))) + (let ((_gcht58642_ (&gc-table-gcht _tab58639_))) (if (fx= '0 - (fxand (macro-gc-hash-table-flags _gcht58650_) + (fxand (macro-gc-hash-table-flags _gcht58642_) (macro-gc-hash-table-flag-need-rehash))) - _gcht58650_ + _gcht58642_ (begin - (__gc-table-rehash! _tab58647_) - (&gc-table-gcht _tab58647_)))))) + (__gc-table-rehash! _tab58639_) + (&gc-table-gcht _tab58639_)))))) (define __gc-table-rehash! - (lambda (_tab58637_) - (declare (not interrupts-enabled)) - (let* ((_old-table58640_ (&gc-table-gcht _tab58637_)) - (_new-table58642_ - (##gc-hash-table-resize! _old-table58640_ __gc-table-loads)) - (_gcht58644_ - (##gc-hash-table-rehash! _old-table58640_ _new-table58642_))) - (&gc-table-gcht-set! _tab58637_ _gcht58644_)))) - (define __gc-table-grow! - (lambda (_tab58627_) - (declare (not interrupts-enabled)) - (let* ((_old-table58630_ (&gc-table-gcht _tab58627_)) - (_new-table58632_ - (__gc-table-new - (fx* '2 (macro-gc-hash-table-size _old-table58630_)) - (macro-gc-hash-table-flags _old-table58630_))) - (_gcht58634_ - (##gc-hash-table-rehash! _old-table58630_ _new-table58632_))) - (&gc-table-gcht-set! _tab58627_ _gcht58634_)))) + (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_)))) (define gc-table-ref - (lambda (_tab58613_ _key58614_ _default58615_) + (lambda (_tab58616_ _key58617_ _default58618_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _key58614_) - (let* ((_gcht58618_ (__gc-table-e _tab58613_)) - (_value58620_ (##gc-hash-table-ref _gcht58618_ _key58614_))) - (if (eq? _value58620_ (macro-unused-obj)) - _default58615_ - _value58620_)) - (let ((_$e58622_ (&gc-table-immediate _tab58613_))) - (if _$e58622_ - ((lambda (_immediate58625_) + (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_) (immediate-table-ref - _immediate58625_ - _key58614_ - _default58615_)) - _$e58622_) - _default58615_))))) + _immediate58628_ + _key58617_ + _default58618_)) + _$e58625_) + _default58618_))))) (define gc-table-set! - (lambda (_tab58606_ _key58607_ _value58608_) + (lambda (_tab58609_ _key58610_ _value58611_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _key58607_) - (let ((_gcht58611_ (__gc-table-e _tab58606_))) - (if (fx< (macro-gc-hash-table-free _gcht58611_) - (fxquotient (macro-gc-hash-table-size _gcht58611_) '2)) + (if (##mem-allocated? _key58610_) + (let ((_gcht58614_ (__gc-table-e _tab58609_))) + (if (##gc-hash-table-set! _gcht58614_ _key58610_ _value58611_) (begin - (if (fx> (macro-gc-hash-table-count _gcht58611_) - (fxquotient - (macro-gc-hash-table-size _gcht58611_) - '2)) - (__gc-table-grow! _tab58606_) - (__gc-table-rehash! _tab58606_)) - (gc-table-set! _tab58606_ _key58607_ _value58608_)) - (if (##gc-hash-table-set! - _gcht58611_ - _key58607_ - _value58608_) - (begin - (__gc-table-rehash! _tab58606_) - (gc-table-set! _tab58606_ _key58607_ _value58608_)) - '#!void))) + (__gc-table-rehash! _tab58609_) + (gc-table-set! _tab58609_ _key58610_ _value58611_)) + '#!void)) (immediate-table-set! - (__gc-table-immediate _tab58606_) - _key58607_ - _value58608_)))) + (__gc-table-immediate _tab58609_) + _key58610_ + _value58611_)))) (define gc-table-update! - (lambda (_tab58599_ _key58600_ _update58601_ _default58602_) - (if (##mem-allocated? _key58600_) - (let ((_value58604_ - (gc-table-ref _tab58599_ _key58600_ _default58602_))) + (lambda (_tab58602_ _key58603_ _update58604_ _default58605_) + (if (##mem-allocated? _key58603_) + (let ((_value58607_ + (gc-table-ref _tab58602_ _key58603_ _default58605_))) (gc-table-set! - _tab58599_ - _key58600_ - (_update58601_ _value58604_))) + _tab58602_ + _key58603_ + (_update58604_ _value58607_))) (immediate-table-update! - (__gc-table-immediate _tab58599_) - _key58600_ - _update58601_ - _default58602_)))) + (__gc-table-immediate _tab58602_) + _key58603_ + _update58604_ + _default58605_)))) (define gc-table-delete! (lambda (_tab58591_ _key58592_) + (declare (not interrupts-enabled)) (if (##mem-allocated? _key58592_) - (gc-table-set! _tab58591_ _key58592_ (macro-absent-obj)) - (let ((_$e58594_ (&gc-table-immediate _tab58591_))) - (if _$e58594_ - ((lambda (_immediate58597_) - (immediate-table-delete! _immediate58597_ _key58592_)) - _$e58594_) + (let ((_gcht58595_ (__gc-table-e _tab58591_))) + (if (##gc-hash-table-set! + _gcht58595_ + _key58592_ + (macro-absent-obj)) + (begin + (__gc-table-rehash! _tab58591_) + (gc-table-delete! _tab58591_ _key58592_)) + '#!void)) + (let ((_$e58597_ (&gc-table-immediate _tab58591_))) + (if _$e58597_ + ((lambda (_immediate58600_) + (immediate-table-delete! _immediate58600_ _key58592_)) + _$e58597_) '#!void))))) (define gc-table-for-each (lambda (_tab58572_ _proc58573_) @@ -2059,7 +2044,7 @@ (not (eq? _key58582_ (macro-deleted-obj)))) (_proc58573_ _key58582_ - (vector-ref _gcht58576_ (fx+ _i58580_ '1))) + (##vector-ref _gcht58576_ (fx+ _i58580_ '1))) '#!void) (let () (declare (interrupts-enabled)) diff --git a/src/bootstrap/gerbil/runtime/table__1.scm b/src/bootstrap/gerbil/runtime/table__1.scm index ed8ad86a..1b20a84c 100644 --- a/src/bootstrap/gerbil/runtime/table__1.scm +++ b/src/bootstrap/gerbil/runtime/table__1.scm @@ -32,19 +32,19 @@ (##cdr _e5747157494_)))) (if (gx#stx-null? _tl5746957501_) ((lambda (_L57504_) - (let ((__tmp60044 + (let ((__tmp60041 (gx#datum->syntax '#f 'macro-slot)) - (__tmp60042 - (let ((__tmp60043 + (__tmp60039 + (let ((__tmp60040 (let () (declare (not safe)) (cons _L57504_ '())))) (declare (not safe)) - (cons '1 __tmp60043)))) + (cons '1 __tmp60040)))) (declare (not safe)) - (cons __tmp60044 __tmp60042))) + (cons __tmp60041 __tmp60039))) _hd5747057498_) (_g5746357477_ _g5746457481_)))) (_g5746357477_ _g5746457481_)))) @@ -182,1338 +182,1338 @@ _L57687_ _L57688_ _L57689_) - (let ((__tmp60476 (gx#datum->syntax '#f 'begin)) - (__tmp60045 - (let ((__tmp60455 - (let ((__tmp60475 + (let ((__tmp60473 (gx#datum->syntax '#f 'begin)) + (__tmp60042 + (let ((__tmp60452 + (let ((__tmp60472 (gx#datum->syntax '#f 'def)) - (__tmp60456 - (let ((__tmp60466 - (let ((__tmp60467 - (let ((__tmp60472 + (__tmp60453 + (let ((__tmp60463 + (let ((__tmp60464 + (let ((__tmp60469 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60474 (gx#datum->syntax '#f 'size-hint)) - (__tmp60473 + (let ((__tmp60471 (gx#datum->syntax '#f 'size-hint)) + (__tmp60470 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp60474 __tmp60473))) - (__tmp60468 - (let ((__tmp60469 - (let ((__tmp60471 (gx#datum->syntax '#f 'seed)) - (__tmp60470 + (cons __tmp60471 __tmp60470))) + (__tmp60465 + (let ((__tmp60466 + (let ((__tmp60468 (gx#datum->syntax '#f 'seed)) + (__tmp60467 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons __tmp60471 __tmp60470)))) + (cons __tmp60468 __tmp60467)))) (declare (not safe)) - (cons __tmp60469 '())))) + (cons __tmp60466 '())))) (declare (not safe)) - (cons __tmp60472 __tmp60468)))) + (cons __tmp60469 __tmp60465)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L57689_ - __tmp60467))) - (__tmp60457 - (let ((__tmp60458 - (let ((__tmp60465 + __tmp60464))) + (__tmp60454 + (let ((__tmp60455 + (let ((__tmp60462 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'make-raw-table)) - (__tmp60459 - (let ((__tmp60464 (gx#datum->syntax '#f 'size-hint)) - (__tmp60460 - (let ((__tmp60461 - (let ((__tmp60462 - (let ((__tmp60463 + (__tmp60456 + (let ((__tmp60461 (gx#datum->syntax '#f 'size-hint)) + (__tmp60457 + (let ((__tmp60458 + (let ((__tmp60459 + (let ((__tmp60460 (gx#datum->syntax '#f 'seed))) (declare (not safe)) - (cons __tmp60463 '())))) + (cons __tmp60460 '())))) (declare (not safe)) - (cons _L57680_ __tmp60462)))) + (cons _L57680_ __tmp60459)))) (declare (not safe)) - (cons _L57682_ __tmp60461)))) + (cons _L57682_ __tmp60458)))) (declare (not safe)) - (cons __tmp60464 __tmp60460)))) + (cons __tmp60461 __tmp60457)))) (declare (not safe)) - (cons __tmp60465 __tmp60459)))) + (cons __tmp60462 __tmp60456)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60458 '())))) + (cons __tmp60455 '())))) (declare (not safe)) - (cons __tmp60466 __tmp60457)))) + (cons __tmp60463 __tmp60454)))) (declare (not safe)) - (cons __tmp60475 __tmp60456))) - (__tmp60046 - (let ((__tmp60412 - (let ((__tmp60454 + (cons __tmp60472 __tmp60453))) + (__tmp60043 + (let ((__tmp60409 + (let ((__tmp60451 (gx#datum->syntax '#f 'def)) - (__tmp60413 - (let ((__tmp60447 - (let ((__tmp60448 + (__tmp60410 + (let ((__tmp60444 + (let ((__tmp60445 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60453 (gx#datum->syntax '#f 'tab)) - (__tmp60449 - (let ((__tmp60452 (gx#datum->syntax '#f 'key)) - (__tmp60450 - (let ((__tmp60451 + (let ((__tmp60450 (gx#datum->syntax '#f 'tab)) + (__tmp60446 + (let ((__tmp60449 (gx#datum->syntax '#f 'key)) + (__tmp60447 + (let ((__tmp60448 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp60451 '())))) + (cons __tmp60448 '())))) (declare (not safe)) - (cons __tmp60452 __tmp60450)))) + (cons __tmp60449 __tmp60447)))) (declare (not safe)) - (cons __tmp60453 __tmp60449)))) + (cons __tmp60450 __tmp60446)))) (declare (not safe)) - (cons _L57688_ __tmp60448))) - (__tmp60414 - (let ((__tmp60415 - (let ((__tmp60446 (gx#datum->syntax '#f 'let)) - (__tmp60416 - (let ((__tmp60430 - (let ((__tmp60439 - (let ((__tmp60445 + (cons _L57688_ __tmp60445))) + (__tmp60411 + (let ((__tmp60412 + (let ((__tmp60443 (gx#datum->syntax '#f 'let)) + (__tmp60413 + (let ((__tmp60427 + (let ((__tmp60436 + (let ((__tmp60442 (gx#datum->syntax '#f 'table)) - (__tmp60440 - (let ((__tmp60441 - (let ((__tmp60444 + (__tmp60437 + (let ((__tmp60438 + (let ((__tmp60441 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&raw-table-table)) - (__tmp60442 - (let ((__tmp60443 (gx#datum->syntax '#f 'tab))) + (__tmp60439 + (let ((__tmp60440 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60443 '())))) + (cons __tmp60440 '())))) (declare (not safe)) - (cons __tmp60444 __tmp60442)))) + (cons __tmp60441 __tmp60439)))) (declare (not safe)) - (cons __tmp60441 '())))) + (cons __tmp60438 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60445 __tmp60440))) - (__tmp60431 - (let ((__tmp60432 - (let ((__tmp60438 + (cons __tmp60442 __tmp60437))) + (__tmp60428 + (let ((__tmp60429 + (let ((__tmp60435 (gx#datum->syntax '#f 'seed)) - (__tmp60433 - (let ((__tmp60434 + (__tmp60430 + (let ((__tmp60431 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60437 + (let ((__tmp60434 (gx#datum->syntax '#f '&raw-table-seed)) - (__tmp60435 - (let ((__tmp60436 + (__tmp60432 + (let ((__tmp60433 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60436 '())))) + (cons __tmp60433 '())))) (declare (not safe)) - (cons __tmp60437 __tmp60435)))) + (cons __tmp60434 __tmp60432)))) (declare (not safe)) - (cons __tmp60434 '())))) + (cons __tmp60431 '())))) (declare (not safe)) - (cons __tmp60438 __tmp60433)))) + (cons __tmp60435 __tmp60430)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60432 '())))) + (cons __tmp60429 '())))) (declare (not safe)) - (cons __tmp60439 __tmp60431))) - (__tmp60417 - (let ((__tmp60418 - (let ((__tmp60429 + (cons __tmp60436 __tmp60428))) + (__tmp60414 + (let ((__tmp60415 + (let ((__tmp60426 (gx#datum->syntax '#f '__table-ref)) - (__tmp60419 - (let ((__tmp60428 + (__tmp60416 + (let ((__tmp60425 (gx#datum->syntax '#f 'table)) - (__tmp60420 - (let ((__tmp60427 + (__tmp60417 + (let ((__tmp60424 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'seed)) - (__tmp60421 - (let ((__tmp60422 - (let ((__tmp60423 - (let ((__tmp60426 + (__tmp60418 + (let ((__tmp60419 + (let ((__tmp60420 + (let ((__tmp60423 (gx#datum->syntax '#f 'key)) - (__tmp60424 - (let ((__tmp60425 + (__tmp60421 + (let ((__tmp60422 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp60425 '())))) + (cons __tmp60422 '())))) (declare (not safe)) - (cons __tmp60426 __tmp60424)))) + (cons __tmp60423 __tmp60421)))) (declare (not safe)) - (cons _L57680_ __tmp60423)))) + (cons _L57680_ __tmp60420)))) (declare (not safe)) - (cons _L57682_ __tmp60422)))) + (cons _L57682_ __tmp60419)))) (declare (not safe)) - (cons __tmp60427 __tmp60421)))) + (cons __tmp60424 __tmp60418)))) (declare (not safe)) - (cons __tmp60428 __tmp60420)))) + (cons __tmp60425 __tmp60417)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60429 __tmp60419)))) + (cons __tmp60426 __tmp60416)))) (declare (not safe)) - (cons __tmp60418 '())))) + (cons __tmp60415 '())))) (declare (not safe)) - (cons __tmp60430 __tmp60417)))) + (cons __tmp60427 __tmp60414)))) (declare (not safe)) - (cons __tmp60446 __tmp60416)))) + (cons __tmp60443 __tmp60413)))) (declare (not safe)) - (cons __tmp60415 '())))) + (cons __tmp60412 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60447 - __tmp60414)))) + (cons __tmp60444 + __tmp60411)))) (declare (not safe)) - (cons __tmp60454 __tmp60413))) - (__tmp60047 - (let ((__tmp60366 - (let ((__tmp60411 + (cons __tmp60451 __tmp60410))) + (__tmp60044 + (let ((__tmp60363 + (let ((__tmp60408 (gx#datum->syntax '#f 'def)) - (__tmp60367 - (let ((__tmp60404 + (__tmp60364 + (let ((__tmp60401 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60405 - (let ((__tmp60410 (gx#datum->syntax '#f 'tab)) - (__tmp60406 - (let ((__tmp60409 + (let ((__tmp60402 + (let ((__tmp60407 (gx#datum->syntax '#f 'tab)) + (__tmp60403 + (let ((__tmp60406 (gx#datum->syntax '#f 'key)) - (__tmp60407 - (let ((__tmp60408 + (__tmp60404 + (let ((__tmp60405 (gx#datum->syntax '#f 'value))) (declare (not safe)) - (cons __tmp60408 '())))) + (cons __tmp60405 '())))) (declare (not safe)) - (cons __tmp60409 __tmp60407)))) + (cons __tmp60406 __tmp60404)))) (declare (not safe)) - (cons __tmp60410 __tmp60406)))) + (cons __tmp60407 __tmp60403)))) (declare (not safe)) - (cons _L57687_ __tmp60405))) - (__tmp60368 - (let ((__tmp60377 - (let ((__tmp60403 (gx#datum->syntax '#f 'when)) - (__tmp60378 - (let ((__tmp60384 - (let ((__tmp60402 + (cons _L57687_ __tmp60402))) + (__tmp60365 + (let ((__tmp60374 + (let ((__tmp60400 (gx#datum->syntax '#f 'when)) + (__tmp60375 + (let ((__tmp60381 + (let ((__tmp60399 (gx#datum->syntax '#f 'fx<)) - (__tmp60385 - (let ((__tmp60398 - (let ((__tmp60401 + (__tmp60382 + (let ((__tmp60395 + (let ((__tmp60398 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&raw-table-free)) - (__tmp60399 - (let ((__tmp60400 (gx#datum->syntax '#f 'tab))) + (__tmp60396 + (let ((__tmp60397 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60400 '())))) + (cons __tmp60397 '())))) (declare (not safe)) - (cons __tmp60401 __tmp60399))) - (__tmp60386 - (let ((__tmp60387 - (let ((__tmp60397 + (cons __tmp60398 __tmp60396))) + (__tmp60383 + (let ((__tmp60384 + (let ((__tmp60394 (gx#datum->syntax '#f 'fxquotient)) - (__tmp60388 - (let ((__tmp60390 - (let ((__tmp60396 + (__tmp60385 + (let ((__tmp60387 + (let ((__tmp60393 (gx#datum->syntax '#f 'vector-length)) - (__tmp60391 - (let ((__tmp60392 - (let ((__tmp60395 + (__tmp60388 + (let ((__tmp60389 + (let ((__tmp60392 (gx#datum->syntax '#f '&raw-table-table)) - (__tmp60393 - (let ((__tmp60394 + (__tmp60390 + (let ((__tmp60391 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60394 '())))) + (cons __tmp60391 '())))) (declare (not safe)) - (cons __tmp60395 __tmp60393)))) + (cons __tmp60392 __tmp60390)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60392 '())))) + (cons __tmp60389 '())))) (declare (not safe)) - (cons __tmp60396 __tmp60391))) - (__tmp60389 + (cons __tmp60393 __tmp60388))) + (__tmp60386 (let () (declare (not safe)) (cons '4 '())))) (declare (not safe)) - (cons __tmp60390 __tmp60389)))) + (cons __tmp60387 __tmp60386)))) (declare (not safe)) - (cons __tmp60397 __tmp60388)))) + (cons __tmp60394 __tmp60385)))) (declare (not safe)) - (cons __tmp60387 '())))) + (cons __tmp60384 '())))) (declare (not safe)) - (cons __tmp60398 __tmp60386)))) + (cons __tmp60395 __tmp60383)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60402 __tmp60385))) - (__tmp60379 - (let ((__tmp60380 - (let ((__tmp60383 + (cons __tmp60399 __tmp60382))) + (__tmp60376 + (let ((__tmp60377 + (let ((__tmp60380 (gx#datum->syntax '#f '__raw-table-rehash!)) - (__tmp60381 - (let ((__tmp60382 + (__tmp60378 + (let ((__tmp60379 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60382 '())))) + (cons __tmp60379 '())))) (declare (not safe)) - (cons __tmp60383 __tmp60381)))) + (cons __tmp60380 __tmp60378)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60380 '())))) + (cons __tmp60377 '())))) (declare (not safe)) - (cons __tmp60384 __tmp60379)))) + (cons __tmp60381 __tmp60376)))) (declare (not safe)) - (cons __tmp60403 __tmp60378))) - (__tmp60369 - (let ((__tmp60370 - (let ((__tmp60371 - (let ((__tmp60376 + (cons __tmp60400 __tmp60375))) + (__tmp60366 + (let ((__tmp60367 + (let ((__tmp60368 + (let ((__tmp60373 (gx#datum->syntax '#f 'tab)) - (__tmp60372 - (let ((__tmp60375 + (__tmp60369 + (let ((__tmp60372 (gx#datum->syntax '#f 'key)) - (__tmp60373 - (let ((__tmp60374 + (__tmp60370 + (let ((__tmp60371 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'value))) (declare (not safe)) - (cons __tmp60374 '())))) + (cons __tmp60371 '())))) (declare (not safe)) - (cons __tmp60375 __tmp60373)))) + (cons __tmp60372 __tmp60370)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60376 __tmp60372)))) + (cons __tmp60373 __tmp60369)))) (declare (not safe)) - (cons _L57686_ __tmp60371)))) + (cons _L57686_ __tmp60368)))) (declare (not safe)) - (cons __tmp60370 '())))) + (cons __tmp60367 '())))) (declare (not safe)) - (cons __tmp60377 __tmp60369)))) + (cons __tmp60374 __tmp60366)))) (declare (not safe)) - (cons __tmp60404 __tmp60368)))) + (cons __tmp60401 __tmp60365)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60411 - __tmp60367))) - (__tmp60048 - (let ((__tmp60264 - (let ((__tmp60365 + (cons __tmp60408 + __tmp60364))) + (__tmp60045 + (let ((__tmp60261 + (let ((__tmp60362 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'def)) - (__tmp60265 - (let ((__tmp60358 - (let ((__tmp60359 - (let ((__tmp60364 + (__tmp60262 + (let ((__tmp60355 + (let ((__tmp60356 + (let ((__tmp60361 (gx#datum->syntax '#f 'tab)) - (__tmp60360 - (let ((__tmp60363 + (__tmp60357 + (let ((__tmp60360 (gx#datum->syntax '#f 'key)) - (__tmp60361 - (let ((__tmp60362 + (__tmp60358 + (let ((__tmp60359 (gx#datum->syntax '#f 'value))) (declare (not safe)) - (cons __tmp60362 '())))) + (cons __tmp60359 '())))) (declare (not safe)) - (cons __tmp60363 __tmp60361)))) + (cons __tmp60360 __tmp60358)))) (declare (not safe)) - (cons __tmp60364 __tmp60360)))) + (cons __tmp60361 __tmp60357)))) (declare (not safe)) - (cons _L57686_ __tmp60359))) - (__tmp60266 - (let ((__tmp60267 - (let ((__tmp60357 + (cons _L57686_ __tmp60356))) + (__tmp60263 + (let ((__tmp60264 + (let ((__tmp60354 (gx#datum->syntax '#f 'let)) - (__tmp60268 - (let ((__tmp60341 - (let ((__tmp60350 - (let ((__tmp60356 + (__tmp60265 + (let ((__tmp60338 + (let ((__tmp60347 + (let ((__tmp60353 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'table)) - (__tmp60351 - (let ((__tmp60352 - (let ((__tmp60355 + (__tmp60348 + (let ((__tmp60349 + (let ((__tmp60352 (gx#datum->syntax '#f '&raw-table-table)) - (__tmp60353 - (let ((__tmp60354 + (__tmp60350 + (let ((__tmp60351 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60354 '())))) + (cons __tmp60351 '())))) (declare (not safe)) - (cons __tmp60355 __tmp60353)))) + (cons __tmp60352 __tmp60350)))) (declare (not safe)) - (cons __tmp60352 '())))) + (cons __tmp60349 '())))) (declare (not safe)) - (cons __tmp60356 __tmp60351))) - (__tmp60342 - (let ((__tmp60343 - (let ((__tmp60349 (gx#datum->syntax '#f 'seed)) - (__tmp60344 - (let ((__tmp60345 - (let ((__tmp60348 + (cons __tmp60353 __tmp60348))) + (__tmp60339 + (let ((__tmp60340 + (let ((__tmp60346 (gx#datum->syntax '#f 'seed)) + (__tmp60341 + (let ((__tmp60342 + (let ((__tmp60345 (gx#datum->syntax '#f '&raw-table-seed)) - (__tmp60346 - (let ((__tmp60347 + (__tmp60343 + (let ((__tmp60344 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60347 '())))) + (cons __tmp60344 '())))) (declare (not safe)) - (cons __tmp60348 __tmp60346)))) + (cons __tmp60345 __tmp60343)))) (declare (not safe)) - (cons __tmp60345 '())))) + (cons __tmp60342 '())))) (declare (not safe)) - (cons __tmp60349 __tmp60344)))) + (cons __tmp60346 __tmp60341)))) (declare (not safe)) - (cons __tmp60343 '())))) + (cons __tmp60340 '())))) (declare (not safe)) - (cons __tmp60350 __tmp60342))) + (cons __tmp60347 __tmp60339))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp60269 - (let ((__tmp60270 - (let ((__tmp60340 + (__tmp60266 + (let ((__tmp60267 + (let ((__tmp60337 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__table-set!)) - (__tmp60271 - (let ((__tmp60339 (gx#datum->syntax '#f 'table)) - (__tmp60272 - (let ((__tmp60338 + (__tmp60268 + (let ((__tmp60336 (gx#datum->syntax '#f 'table)) + (__tmp60269 + (let ((__tmp60335 (gx#datum->syntax '#f 'seed)) - (__tmp60273 - (let ((__tmp60274 - (let ((__tmp60275 - (let ((__tmp60337 + (__tmp60270 + (let ((__tmp60271 + (let ((__tmp60272 + (let ((__tmp60334 (gx#datum->syntax '#f 'key)) - (__tmp60276 - (let ((__tmp60336 + (__tmp60273 + (let ((__tmp60333 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'value)) - (__tmp60277 - (let ((__tmp60299 - (let ((__tmp60335 + (__tmp60274 + (let ((__tmp60296 + (let ((__tmp60332 (gx#datum->syntax '#f 'lambda)) - (__tmp60300 - (let ((__tmp60301 - (let ((__tmp60319 - (let ((__tmp60334 + (__tmp60297 + (let ((__tmp60298 + (let ((__tmp60316 + (let ((__tmp60331 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'set!)) - (__tmp60320 - (let ((__tmp60330 - (let ((__tmp60333 + (__tmp60317 + (let ((__tmp60327 + (let ((__tmp60330 (gx#datum->syntax '#f '&raw-table-free)) - (__tmp60331 - (let ((__tmp60332 + (__tmp60328 + (let ((__tmp60329 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60332 '())))) + (cons __tmp60329 '())))) (declare (not safe)) - (cons __tmp60333 __tmp60331))) - (__tmp60321 - (let ((__tmp60322 - (let ((__tmp60329 + (cons __tmp60330 __tmp60328))) + (__tmp60318 + (let ((__tmp60319 + (let ((__tmp60326 (gx#datum->syntax '#f 'fx-)) - (__tmp60323 - (let ((__tmp60325 - (let ((__tmp60328 + (__tmp60320 + (let ((__tmp60322 + (let ((__tmp60325 (gx#datum->syntax '#f '&raw-table-free)) - (__tmp60326 - (let ((__tmp60327 + (__tmp60323 + (let ((__tmp60324 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60327 '())))) + (cons __tmp60324 '())))) (declare (not safe)) - (cons __tmp60328 __tmp60326))) + (cons __tmp60325 __tmp60323))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp60324 + (__tmp60321 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60325 __tmp60324)))) + (cons __tmp60322 __tmp60321)))) (declare (not safe)) - (cons __tmp60329 __tmp60323)))) + (cons __tmp60326 __tmp60320)))) (declare (not safe)) - (cons __tmp60322 '())))) + (cons __tmp60319 '())))) (declare (not safe)) - (cons __tmp60330 __tmp60321)))) + (cons __tmp60327 __tmp60318)))) (declare (not safe)) - (cons __tmp60334 __tmp60320))) - (__tmp60302 - (let ((__tmp60303 - (let ((__tmp60318 (gx#datum->syntax '#f 'set!)) - (__tmp60304 - (let ((__tmp60314 - (let ((__tmp60317 + (cons __tmp60331 __tmp60317))) + (__tmp60299 + (let ((__tmp60300 + (let ((__tmp60315 (gx#datum->syntax '#f 'set!)) + (__tmp60301 + (let ((__tmp60311 + (let ((__tmp60314 (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60315 - (let ((__tmp60316 + (__tmp60312 + (let ((__tmp60313 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60316 '())))) + (cons __tmp60313 '())))) (declare (not safe)) - (cons __tmp60317 __tmp60315))) - (__tmp60305 - (let ((__tmp60306 - (let ((__tmp60313 + (cons __tmp60314 __tmp60312))) + (__tmp60302 + (let ((__tmp60303 + (let ((__tmp60310 (gx#datum->syntax '#f 'fx+)) - (__tmp60307 - (let ((__tmp60309 - (let ((__tmp60312 + (__tmp60304 + (let ((__tmp60306 + (let ((__tmp60309 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60310 - (let ((__tmp60311 (gx#datum->syntax '#f 'tab))) + (__tmp60307 + (let ((__tmp60308 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60311 '())))) + (cons __tmp60308 '())))) (declare (not safe)) - (cons __tmp60312 __tmp60310))) - (__tmp60308 (let () (declare (not safe)) (cons '1 '())))) + (cons __tmp60309 __tmp60307))) + (__tmp60305 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60309 __tmp60308)))) + (cons __tmp60306 __tmp60305)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60313 __tmp60307)))) + (cons __tmp60310 __tmp60304)))) (declare (not safe)) - (cons __tmp60306 '())))) + (cons __tmp60303 '())))) (declare (not safe)) - (cons __tmp60314 __tmp60305)))) + (cons __tmp60311 __tmp60302)))) (declare (not safe)) - (cons __tmp60318 __tmp60304)))) + (cons __tmp60315 __tmp60301)))) (declare (not safe)) - (cons __tmp60303 '())))) + (cons __tmp60300 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60319 - __tmp60302)))) + (cons __tmp60316 + __tmp60299)))) (declare (not safe)) - (cons '() __tmp60301)))) + (cons '() __tmp60298)))) (declare (not safe)) - (cons __tmp60335 __tmp60300))) - (__tmp60278 - (let ((__tmp60279 - (let ((__tmp60298 + (cons __tmp60332 __tmp60297))) + (__tmp60275 + (let ((__tmp60276 + (let ((__tmp60295 (gx#datum->syntax '#f 'lambda)) - (__tmp60280 - (let ((__tmp60281 - (let ((__tmp60282 - (let ((__tmp60297 + (__tmp60277 + (let ((__tmp60278 + (let ((__tmp60279 + (let ((__tmp60294 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'set!)) - (__tmp60283 - (let ((__tmp60293 - (let ((__tmp60296 + (__tmp60280 + (let ((__tmp60290 + (let ((__tmp60293 (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60294 - (let ((__tmp60295 + (__tmp60291 + (let ((__tmp60292 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60295 '())))) + (cons __tmp60292 '())))) (declare (not safe)) - (cons __tmp60296 __tmp60294))) - (__tmp60284 - (let ((__tmp60285 - (let ((__tmp60292 + (cons __tmp60293 __tmp60291))) + (__tmp60281 + (let ((__tmp60282 + (let ((__tmp60289 (gx#datum->syntax '#f 'fx+)) - (__tmp60286 - (let ((__tmp60288 - (let ((__tmp60291 + (__tmp60283 + (let ((__tmp60285 + (let ((__tmp60288 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60289 - (let ((__tmp60290 (gx#datum->syntax '#f 'tab))) + (__tmp60286 + (let ((__tmp60287 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60290 '())))) + (cons __tmp60287 '())))) (declare (not safe)) - (cons __tmp60291 __tmp60289))) - (__tmp60287 (let () (declare (not safe)) (cons '1 '())))) + (cons __tmp60288 __tmp60286))) + (__tmp60284 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60288 __tmp60287)))) + (cons __tmp60285 __tmp60284)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60292 __tmp60286)))) + (cons __tmp60289 __tmp60283)))) (declare (not safe)) - (cons __tmp60285 '())))) + (cons __tmp60282 '())))) (declare (not safe)) - (cons __tmp60293 __tmp60284)))) + (cons __tmp60290 __tmp60281)))) (declare (not safe)) - (cons __tmp60297 __tmp60283)))) + (cons __tmp60294 __tmp60280)))) (declare (not safe)) - (cons __tmp60282 '())))) + (cons __tmp60279 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp60281)))) + (cons '() __tmp60278)))) (declare (not safe)) - (cons __tmp60298 __tmp60280)))) + (cons __tmp60295 __tmp60277)))) (declare (not safe)) - (cons __tmp60279 '())))) + (cons __tmp60276 '())))) (declare (not safe)) - (cons __tmp60299 __tmp60278)))) + (cons __tmp60296 __tmp60275)))) (declare (not safe)) - (cons __tmp60336 __tmp60277)))) + (cons __tmp60333 __tmp60274)))) (declare (not safe)) - (cons __tmp60337 __tmp60276)))) + (cons __tmp60334 __tmp60273)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L57680_ __tmp60275)))) + (cons _L57680_ __tmp60272)))) (declare (not safe)) - (cons _L57682_ __tmp60274)))) + (cons _L57682_ __tmp60271)))) (declare (not safe)) - (cons __tmp60338 __tmp60273)))) + (cons __tmp60335 __tmp60270)))) (declare (not safe)) - (cons __tmp60339 __tmp60272)))) + (cons __tmp60336 __tmp60269)))) (declare (not safe)) - (cons __tmp60340 __tmp60271)))) + (cons __tmp60337 __tmp60268)))) (declare (not safe)) - (cons __tmp60270 '())))) + (cons __tmp60267 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60341 __tmp60269)))) + (cons __tmp60338 __tmp60266)))) (declare (not safe)) - (cons __tmp60357 __tmp60268)))) + (cons __tmp60354 __tmp60265)))) (declare (not safe)) - (cons __tmp60267 '())))) + (cons __tmp60264 '())))) (declare (not safe)) - (cons __tmp60358 __tmp60266)))) + (cons __tmp60355 __tmp60263)))) (declare (not safe)) - (cons __tmp60365 __tmp60265))) - (__tmp60049 - (let ((__tmp60216 - (let ((__tmp60263 (gx#datum->syntax '#f 'def)) - (__tmp60217 - (let ((__tmp60255 - (let ((__tmp60256 - (let ((__tmp60262 + (cons __tmp60362 __tmp60262))) + (__tmp60046 + (let ((__tmp60213 + (let ((__tmp60260 (gx#datum->syntax '#f 'def)) + (__tmp60214 + (let ((__tmp60252 + (let ((__tmp60253 + (let ((__tmp60259 (gx#datum->syntax '#f 'tab)) - (__tmp60257 - (let ((__tmp60261 + (__tmp60254 + (let ((__tmp60258 (gx#datum->syntax '#f 'key)) - (__tmp60258 - (let ((__tmp60259 + (__tmp60255 + (let ((__tmp60256 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60260 (gx#datum->syntax '#f 'default))) + (let ((__tmp60257 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp60260 '())))) + (cons __tmp60257 '())))) (declare (not safe)) - (cons _L57685_ __tmp60259)))) + (cons _L57685_ __tmp60256)))) (declare (not safe)) - (cons __tmp60261 __tmp60258)))) + (cons __tmp60258 __tmp60255)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60262 __tmp60257)))) + (cons __tmp60259 __tmp60254)))) (declare (not safe)) - (cons _L57685_ __tmp60256))) - (__tmp60218 - (let ((__tmp60228 - (let ((__tmp60254 + (cons _L57685_ __tmp60253))) + (__tmp60215 + (let ((__tmp60225 + (let ((__tmp60251 (gx#datum->syntax '#f 'when)) - (__tmp60229 - (let ((__tmp60235 - (let ((__tmp60253 + (__tmp60226 + (let ((__tmp60232 + (let ((__tmp60250 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fx<)) - (__tmp60236 - (let ((__tmp60249 - (let ((__tmp60252 + (__tmp60233 + (let ((__tmp60246 + (let ((__tmp60249 (gx#datum->syntax '#f '&raw-table-free)) - (__tmp60250 - (let ((__tmp60251 + (__tmp60247 + (let ((__tmp60248 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60251 '())))) + (cons __tmp60248 '())))) (declare (not safe)) - (cons __tmp60252 __tmp60250))) - (__tmp60237 - (let ((__tmp60238 - (let ((__tmp60248 + (cons __tmp60249 __tmp60247))) + (__tmp60234 + (let ((__tmp60235 + (let ((__tmp60245 (gx#datum->syntax '#f 'fxquotient)) - (__tmp60239 - (let ((__tmp60241 - (let ((__tmp60247 + (__tmp60236 + (let ((__tmp60238 + (let ((__tmp60244 (gx#datum->syntax '#f 'vector-length)) - (__tmp60242 - (let ((__tmp60243 + (__tmp60239 + (let ((__tmp60240 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60246 + (let ((__tmp60243 (gx#datum->syntax '#f '&raw-table-table)) - (__tmp60244 - (let ((__tmp60245 + (__tmp60241 + (let ((__tmp60242 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60245 '())))) + (cons __tmp60242 '())))) (declare (not safe)) - (cons __tmp60246 __tmp60244)))) + (cons __tmp60243 __tmp60241)))) (declare (not safe)) - (cons __tmp60243 '())))) + (cons __tmp60240 '())))) (declare (not safe)) - (cons __tmp60247 __tmp60242))) - (__tmp60240 (let () (declare (not safe)) (cons '4 '())))) + (cons __tmp60244 __tmp60239))) + (__tmp60237 (let () (declare (not safe)) (cons '4 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60241 - __tmp60240)))) + (cons __tmp60238 + __tmp60237)))) (declare (not safe)) - (cons __tmp60248 __tmp60239)))) + (cons __tmp60245 __tmp60236)))) (declare (not safe)) - (cons __tmp60238 '())))) + (cons __tmp60235 '())))) (declare (not safe)) - (cons __tmp60249 __tmp60237)))) + (cons __tmp60246 __tmp60234)))) (declare (not safe)) - (cons __tmp60253 __tmp60236))) - (__tmp60230 - (let ((__tmp60231 - (let ((__tmp60234 + (cons __tmp60250 __tmp60233))) + (__tmp60227 + (let ((__tmp60228 + (let ((__tmp60231 (gx#datum->syntax '#f '__raw-table-rehash!)) - (__tmp60232 - (let ((__tmp60233 + (__tmp60229 + (let ((__tmp60230 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60233 '())))) + (cons __tmp60230 '())))) (declare (not safe)) - (cons __tmp60234 __tmp60232)))) + (cons __tmp60231 __tmp60229)))) (declare (not safe)) - (cons __tmp60231 '())))) + (cons __tmp60228 '())))) (declare (not safe)) - (cons __tmp60235 __tmp60230)))) + (cons __tmp60232 __tmp60227)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60254 __tmp60229))) - (__tmp60219 - (let ((__tmp60220 - (let ((__tmp60221 - (let ((__tmp60227 + (cons __tmp60251 __tmp60226))) + (__tmp60216 + (let ((__tmp60217 + (let ((__tmp60218 + (let ((__tmp60224 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'tab)) - (__tmp60222 - (let ((__tmp60226 (gx#datum->syntax '#f 'key)) - (__tmp60223 - (let ((__tmp60224 - (let ((__tmp60225 + (__tmp60219 + (let ((__tmp60223 (gx#datum->syntax '#f 'key)) + (__tmp60220 + (let ((__tmp60221 + (let ((__tmp60222 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp60225 '())))) + (cons __tmp60222 '())))) (declare (not safe)) - (cons _L57685_ __tmp60224)))) + (cons _L57685_ __tmp60221)))) (declare (not safe)) - (cons __tmp60226 __tmp60223)))) + (cons __tmp60223 __tmp60220)))) (declare (not safe)) - (cons __tmp60227 __tmp60222)))) + (cons __tmp60224 __tmp60219)))) (declare (not safe)) - (cons _L57684_ __tmp60221)))) + (cons _L57684_ __tmp60218)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60220 '())))) + (cons __tmp60217 '())))) (declare (not safe)) - (cons __tmp60228 __tmp60219)))) + (cons __tmp60225 __tmp60216)))) (declare (not safe)) - (cons __tmp60255 __tmp60218)))) + (cons __tmp60252 __tmp60215)))) (declare (not safe)) - (cons __tmp60263 __tmp60217))) - (__tmp60050 - (let ((__tmp60112 - (let ((__tmp60215 (gx#datum->syntax '#f 'def)) - (__tmp60113 - (let ((__tmp60207 - (let ((__tmp60208 - (let ((__tmp60214 + (cons __tmp60260 __tmp60214))) + (__tmp60047 + (let ((__tmp60109 + (let ((__tmp60212 (gx#datum->syntax '#f 'def)) + (__tmp60110 + (let ((__tmp60204 + (let ((__tmp60205 + (let ((__tmp60211 (gx#datum->syntax '#f 'tab)) - (__tmp60209 - (let ((__tmp60213 + (__tmp60206 + (let ((__tmp60210 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'key)) - (__tmp60210 - (let ((__tmp60211 - (let ((__tmp60212 + (__tmp60207 + (let ((__tmp60208 + (let ((__tmp60209 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp60212 '())))) + (cons __tmp60209 '())))) (declare (not safe)) - (cons _L57685_ __tmp60211)))) + (cons _L57685_ __tmp60208)))) (declare (not safe)) - (cons __tmp60213 __tmp60210)))) + (cons __tmp60210 __tmp60207)))) (declare (not safe)) - (cons __tmp60214 __tmp60209)))) + (cons __tmp60211 __tmp60206)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L57684_ __tmp60208))) - (__tmp60114 - (let ((__tmp60115 - (let ((__tmp60206 + (cons _L57684_ __tmp60205))) + (__tmp60111 + (let ((__tmp60112 + (let ((__tmp60203 (gx#datum->syntax '#f 'let)) - (__tmp60116 - (let ((__tmp60190 + (__tmp60113 + (let ((__tmp60187 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60199 - (let ((__tmp60205 + (let ((__tmp60196 + (let ((__tmp60202 (gx#datum->syntax '#f 'table)) - (__tmp60200 - (let ((__tmp60201 - (let ((__tmp60204 + (__tmp60197 + (let ((__tmp60198 + (let ((__tmp60201 (gx#datum->syntax '#f '&raw-table-table)) - (__tmp60202 - (let ((__tmp60203 + (__tmp60199 + (let ((__tmp60200 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60203 + (cons __tmp60200 '())))) (declare (not safe)) - (cons __tmp60204 - __tmp60202)))) + (cons __tmp60201 + __tmp60199)))) (declare (not safe)) - (cons __tmp60201 '())))) + (cons __tmp60198 '())))) (declare (not safe)) - (cons __tmp60205 __tmp60200))) - (__tmp60191 - (let ((__tmp60192 - (let ((__tmp60198 + (cons __tmp60202 __tmp60197))) + (__tmp60188 + (let ((__tmp60189 + (let ((__tmp60195 (gx#datum->syntax '#f 'seed)) - (__tmp60193 - (let ((__tmp60194 - (let ((__tmp60197 + (__tmp60190 + (let ((__tmp60191 + (let ((__tmp60194 (gx#datum->syntax '#f '&raw-table-seed)) - (__tmp60195 - (let ((__tmp60196 + (__tmp60192 + (let ((__tmp60193 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60196 '())))) + (cons __tmp60193 '())))) (declare (not safe)) - (cons __tmp60197 __tmp60195)))) + (cons __tmp60194 __tmp60192)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60194 '())))) + (cons __tmp60191 '())))) (declare (not safe)) - (cons __tmp60198 __tmp60193)))) + (cons __tmp60195 __tmp60190)))) (declare (not safe)) - (cons __tmp60192 '())))) + (cons __tmp60189 '())))) (declare (not safe)) - (cons __tmp60199 __tmp60191))) - (__tmp60117 - (let ((__tmp60118 - (let ((__tmp60189 + (cons __tmp60196 __tmp60188))) + (__tmp60114 + (let ((__tmp60115 + (let ((__tmp60186 (gx#datum->syntax '#f '__table-update!)) - (__tmp60119 - (let ((__tmp60188 + (__tmp60116 + (let ((__tmp60185 (gx#datum->syntax '#f 'table)) - (__tmp60120 - (let ((__tmp60187 + (__tmp60117 + (let ((__tmp60184 (gx#datum->syntax '#f 'seed)) - (__tmp60121 - (let ((__tmp60122 - (let ((__tmp60123 + (__tmp60118 + (let ((__tmp60119 + (let ((__tmp60120 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60186 (gx#datum->syntax '#f 'key)) - (__tmp60124 - (let ((__tmp60125 - (let ((__tmp60185 + (let ((__tmp60183 (gx#datum->syntax '#f 'key)) + (__tmp60121 + (let ((__tmp60122 + (let ((__tmp60182 (gx#datum->syntax '#f 'default)) - (__tmp60126 - (let ((__tmp60148 - (let ((__tmp60184 + (__tmp60123 + (let ((__tmp60145 + (let ((__tmp60181 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda)) - (__tmp60149 - (let ((__tmp60150 - (let ((__tmp60168 - (let ((__tmp60183 + (__tmp60146 + (let ((__tmp60147 + (let ((__tmp60165 + (let ((__tmp60180 (gx#datum->syntax '#f 'set!)) - (__tmp60169 - (let ((__tmp60179 - (let ((__tmp60182 + (__tmp60166 + (let ((__tmp60176 + (let ((__tmp60179 (gx#datum->syntax '#f '&raw-table-free)) - (__tmp60180 - (let ((__tmp60181 + (__tmp60177 + (let ((__tmp60178 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60181 '())))) + (cons __tmp60178 '())))) (declare (not safe)) - (cons __tmp60182 __tmp60180))) + (cons __tmp60179 __tmp60177))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp60170 - (let ((__tmp60171 - (let ((__tmp60178 + (__tmp60167 + (let ((__tmp60168 + (let ((__tmp60175 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fx-)) - (__tmp60172 - (let ((__tmp60174 - (let ((__tmp60177 + (__tmp60169 + (let ((__tmp60171 + (let ((__tmp60174 (gx#datum->syntax '#f '&raw-table-free)) - (__tmp60175 - (let ((__tmp60176 + (__tmp60172 + (let ((__tmp60173 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60176 '())))) + (cons __tmp60173 '())))) (declare (not safe)) - (cons __tmp60177 __tmp60175))) - (__tmp60173 + (cons __tmp60174 __tmp60172))) + (__tmp60170 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60174 __tmp60173)))) + (cons __tmp60171 __tmp60170)))) (declare (not safe)) - (cons __tmp60178 __tmp60172)))) + (cons __tmp60175 __tmp60169)))) (declare (not safe)) - (cons __tmp60171 '())))) + (cons __tmp60168 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60179 __tmp60170)))) + (cons __tmp60176 __tmp60167)))) (declare (not safe)) - (cons __tmp60183 __tmp60169))) - (__tmp60151 - (let ((__tmp60152 - (let ((__tmp60167 + (cons __tmp60180 __tmp60166))) + (__tmp60148 + (let ((__tmp60149 + (let ((__tmp60164 (gx#datum->syntax '#f 'set!)) - (__tmp60153 - (let ((__tmp60163 - (let ((__tmp60166 + (__tmp60150 + (let ((__tmp60160 + (let ((__tmp60163 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60164 - (let ((__tmp60165 (gx#datum->syntax '#f 'tab))) + (__tmp60161 + (let ((__tmp60162 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60165 '())))) + (cons __tmp60162 '())))) (declare (not safe)) - (cons __tmp60166 __tmp60164))) - (__tmp60154 - (let ((__tmp60155 - (let ((__tmp60162 (gx#datum->syntax '#f 'fx+)) - (__tmp60156 - (let ((__tmp60158 - (let ((__tmp60161 + (cons __tmp60163 __tmp60161))) + (__tmp60151 + (let ((__tmp60152 + (let ((__tmp60159 (gx#datum->syntax '#f 'fx+)) + (__tmp60153 + (let ((__tmp60155 + (let ((__tmp60158 (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60159 - (let ((__tmp60160 + (__tmp60156 + (let ((__tmp60157 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60160 '())))) + (cons __tmp60157 '())))) (declare (not safe)) - (cons __tmp60161 __tmp60159))) - (__tmp60157 + (cons __tmp60158 __tmp60156))) + (__tmp60154 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60158 __tmp60157)))) + (cons __tmp60155 __tmp60154)))) (declare (not safe)) - (cons __tmp60162 __tmp60156)))) + (cons __tmp60159 __tmp60153)))) (declare (not safe)) - (cons __tmp60155 '())))) + (cons __tmp60152 '())))) (declare (not safe)) - (cons __tmp60163 __tmp60154)))) + (cons __tmp60160 __tmp60151)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60167 __tmp60153)))) + (cons __tmp60164 __tmp60150)))) (declare (not safe)) - (cons __tmp60152 '())))) + (cons __tmp60149 '())))) (declare (not safe)) - (cons __tmp60168 __tmp60151)))) + (cons __tmp60165 __tmp60148)))) (declare (not safe)) - (cons '() __tmp60150)))) + (cons '() __tmp60147)))) (declare (not safe)) - (cons __tmp60184 __tmp60149))) - (__tmp60127 - (let ((__tmp60128 - (let ((__tmp60147 (gx#datum->syntax '#f 'lambda)) - (__tmp60129 - (let ((__tmp60130 - (let ((__tmp60131 - (let ((__tmp60146 + (cons __tmp60181 __tmp60146))) + (__tmp60124 + (let ((__tmp60125 + (let ((__tmp60144 (gx#datum->syntax '#f 'lambda)) + (__tmp60126 + (let ((__tmp60127 + (let ((__tmp60128 + (let ((__tmp60143 (gx#datum->syntax '#f 'set!)) - (__tmp60132 - (let ((__tmp60142 - (let ((__tmp60145 + (__tmp60129 + (let ((__tmp60139 + (let ((__tmp60142 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60143 - (let ((__tmp60144 (gx#datum->syntax '#f 'tab))) + (__tmp60140 + (let ((__tmp60141 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60144 '())))) + (cons __tmp60141 '())))) (declare (not safe)) - (cons __tmp60145 __tmp60143))) - (__tmp60133 - (let ((__tmp60134 - (let ((__tmp60141 (gx#datum->syntax '#f 'fx+)) - (__tmp60135 - (let ((__tmp60137 - (let ((__tmp60140 + (cons __tmp60142 __tmp60140))) + (__tmp60130 + (let ((__tmp60131 + (let ((__tmp60138 (gx#datum->syntax '#f 'fx+)) + (__tmp60132 + (let ((__tmp60134 + (let ((__tmp60137 (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60138 - (let ((__tmp60139 + (__tmp60135 + (let ((__tmp60136 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60139 '())))) + (cons __tmp60136 '())))) (declare (not safe)) - (cons __tmp60140 __tmp60138))) - (__tmp60136 + (cons __tmp60137 __tmp60135))) + (__tmp60133 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60137 __tmp60136)))) + (cons __tmp60134 __tmp60133)))) (declare (not safe)) - (cons __tmp60141 __tmp60135)))) + (cons __tmp60138 __tmp60132)))) (declare (not safe)) - (cons __tmp60134 '())))) + (cons __tmp60131 '())))) (declare (not safe)) - (cons __tmp60142 __tmp60133)))) + (cons __tmp60139 __tmp60130)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60146 __tmp60132)))) + (cons __tmp60143 __tmp60129)))) (declare (not safe)) - (cons __tmp60131 '())))) + (cons __tmp60128 '())))) (declare (not safe)) - (cons '() __tmp60130)))) + (cons '() __tmp60127)))) (declare (not safe)) - (cons __tmp60147 __tmp60129)))) + (cons __tmp60144 __tmp60126)))) (declare (not safe)) - (cons __tmp60128 '())))) + (cons __tmp60125 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60148 - __tmp60127)))) + (cons __tmp60145 + __tmp60124)))) (declare (not safe)) - (cons __tmp60185 __tmp60126)))) + (cons __tmp60182 __tmp60123)))) (declare (not safe)) - (cons _L57685_ __tmp60125)))) + (cons _L57685_ __tmp60122)))) (declare (not safe)) - (cons __tmp60186 __tmp60124)))) + (cons __tmp60183 __tmp60121)))) (declare (not safe)) - (cons _L57680_ __tmp60123)))) + (cons _L57680_ __tmp60120)))) (declare (not safe)) - (cons _L57682_ __tmp60122)))) + (cons _L57682_ __tmp60119)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60187 - __tmp60121)))) + (cons __tmp60184 + __tmp60118)))) (declare (not safe)) - (cons __tmp60188 __tmp60120)))) + (cons __tmp60185 __tmp60117)))) (declare (not safe)) - (cons __tmp60189 __tmp60119)))) + (cons __tmp60186 __tmp60116)))) (declare (not safe)) - (cons __tmp60118 '())))) + (cons __tmp60115 '())))) (declare (not safe)) - (cons __tmp60190 __tmp60117)))) + (cons __tmp60187 __tmp60114)))) (declare (not safe)) - (cons __tmp60206 __tmp60116)))) + (cons __tmp60203 __tmp60113)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60115 '())))) + (cons __tmp60112 '())))) (declare (not safe)) - (cons __tmp60207 __tmp60114)))) + (cons __tmp60204 __tmp60111)))) (declare (not safe)) - (cons __tmp60215 __tmp60113))) - (__tmp60051 - (let ((__tmp60052 - (let ((__tmp60111 + (cons __tmp60212 __tmp60110))) + (__tmp60048 + (let ((__tmp60049 + (let ((__tmp60108 (gx#datum->syntax '#f 'def)) - (__tmp60053 - (let ((__tmp60106 - (let ((__tmp60107 - (let ((__tmp60110 + (__tmp60050 + (let ((__tmp60103 + (let ((__tmp60104 + (let ((__tmp60107 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'tab)) - (__tmp60108 - (let ((__tmp60109 (gx#datum->syntax '#f 'key))) + (__tmp60105 + (let ((__tmp60106 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp60109 '())))) + (cons __tmp60106 '())))) (declare (not safe)) - (cons __tmp60110 __tmp60108)))) + (cons __tmp60107 __tmp60105)))) (declare (not safe)) - (cons _L57683_ __tmp60107))) + (cons _L57683_ __tmp60104))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp60054 - (let ((__tmp60055 - (let ((__tmp60105 + (__tmp60051 + (let ((__tmp60052 + (let ((__tmp60102 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp60056 - (let ((__tmp60089 - (let ((__tmp60098 - (let ((__tmp60104 + (__tmp60053 + (let ((__tmp60086 + (let ((__tmp60095 + (let ((__tmp60101 (gx#datum->syntax '#f 'table)) - (__tmp60099 - (let ((__tmp60100 - (let ((__tmp60103 + (__tmp60096 + (let ((__tmp60097 + (let ((__tmp60100 (gx#datum->syntax '#f '&raw-table-table)) - (__tmp60101 - (let ((__tmp60102 + (__tmp60098 + (let ((__tmp60099 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60102 '())))) + (cons __tmp60099 '())))) (declare (not safe)) - (cons __tmp60103 __tmp60101)))) + (cons __tmp60100 __tmp60098)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60100 '())))) + (cons __tmp60097 '())))) (declare (not safe)) - (cons __tmp60104 __tmp60099))) - (__tmp60090 - (let ((__tmp60091 - (let ((__tmp60097 + (cons __tmp60101 __tmp60096))) + (__tmp60087 + (let ((__tmp60088 + (let ((__tmp60094 (gx#datum->syntax '#f 'seed)) - (__tmp60092 - (let ((__tmp60093 - (let ((__tmp60096 + (__tmp60089 + (let ((__tmp60090 + (let ((__tmp60093 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&raw-table-seed)) - (__tmp60094 - (let ((__tmp60095 (gx#datum->syntax '#f 'tab))) + (__tmp60091 + (let ((__tmp60092 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60095 '())))) + (cons __tmp60092 '())))) (declare (not safe)) - (cons __tmp60096 __tmp60094)))) + (cons __tmp60093 __tmp60091)))) (declare (not safe)) - (cons __tmp60093 '())))) + (cons __tmp60090 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60097 - __tmp60092)))) + (cons __tmp60094 + __tmp60089)))) (declare (not safe)) - (cons __tmp60091 '())))) + (cons __tmp60088 '())))) (declare (not safe)) - (cons __tmp60098 __tmp60090))) - (__tmp60057 - (let ((__tmp60058 - (let ((__tmp60088 + (cons __tmp60095 __tmp60087))) + (__tmp60054 + (let ((__tmp60055 + (let ((__tmp60085 (gx#datum->syntax '#f '__table-del!)) - (__tmp60059 - (let ((__tmp60087 + (__tmp60056 + (let ((__tmp60084 (gx#datum->syntax '#f 'table)) - (__tmp60060 - (let ((__tmp60086 + (__tmp60057 + (let ((__tmp60083 (gx#datum->syntax '#f 'seed)) - (__tmp60061 - (let ((__tmp60062 + (__tmp60058 + (let ((__tmp60059 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60063 - (let ((__tmp60085 + (let ((__tmp60060 + (let ((__tmp60082 (gx#datum->syntax '#f 'key)) - (__tmp60064 - (let ((__tmp60065 - (let ((__tmp60084 + (__tmp60061 + (let ((__tmp60062 + (let ((__tmp60081 (gx#datum->syntax '#f 'lambda)) - (__tmp60066 - (let ((__tmp60067 - (let ((__tmp60068 + (__tmp60063 + (let ((__tmp60064 + (let ((__tmp60065 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60083 (gx#datum->syntax '#f 'set!)) - (__tmp60069 - (let ((__tmp60079 - (let ((__tmp60082 + (let ((__tmp60080 (gx#datum->syntax '#f 'set!)) + (__tmp60066 + (let ((__tmp60076 + (let ((__tmp60079 (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60080 - (let ((__tmp60081 + (__tmp60077 + (let ((__tmp60078 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60081 '())))) + (cons __tmp60078 '())))) (declare (not safe)) - (cons __tmp60082 __tmp60080))) - (__tmp60070 - (let ((__tmp60071 - (let ((__tmp60078 + (cons __tmp60079 __tmp60077))) + (__tmp60067 + (let ((__tmp60068 + (let ((__tmp60075 (gx#datum->syntax '#f 'fx-)) - (__tmp60072 - (let ((__tmp60074 + (__tmp60069 + (let ((__tmp60071 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60077 + (let ((__tmp60074 (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60075 - (let ((__tmp60076 + (__tmp60072 + (let ((__tmp60073 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60076 '())))) + (cons __tmp60073 '())))) (declare (not safe)) - (cons __tmp60077 __tmp60075))) - (__tmp60073 + (cons __tmp60074 __tmp60072))) + (__tmp60070 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60074 __tmp60073)))) + (cons __tmp60071 __tmp60070)))) (declare (not safe)) - (cons __tmp60078 __tmp60072)))) + (cons __tmp60075 __tmp60069)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60071 '())))) + (cons __tmp60068 '())))) (declare (not safe)) - (cons __tmp60079 __tmp60070)))) + (cons __tmp60076 __tmp60067)))) (declare (not safe)) - (cons __tmp60083 __tmp60069)))) + (cons __tmp60080 __tmp60066)))) (declare (not safe)) - (cons __tmp60068 '())))) + (cons __tmp60065 '())))) (declare (not safe)) - (cons '() __tmp60067)))) + (cons '() __tmp60064)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60084 - __tmp60066)))) + (cons __tmp60081 + __tmp60063)))) (declare (not safe)) - (cons __tmp60065 '())))) + (cons __tmp60062 '())))) (declare (not safe)) - (cons __tmp60085 __tmp60064)))) + (cons __tmp60082 __tmp60061)))) (declare (not safe)) - (cons _L57680_ __tmp60063)))) + (cons _L57680_ __tmp60060)))) (declare (not safe)) - (cons _L57682_ __tmp60062)))) + (cons _L57682_ __tmp60059)))) (declare (not safe)) - (cons __tmp60086 __tmp60061)))) + (cons __tmp60083 __tmp60058)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60087 - __tmp60060)))) + (cons __tmp60084 + __tmp60057)))) (declare (not safe)) - (cons __tmp60088 __tmp60059)))) + (cons __tmp60085 __tmp60056)))) (declare (not safe)) - (cons __tmp60058 '())))) + (cons __tmp60055 '())))) (declare (not safe)) - (cons __tmp60089 __tmp60057)))) + (cons __tmp60086 __tmp60054)))) (declare (not safe)) - (cons __tmp60105 __tmp60056)))) + (cons __tmp60102 __tmp60053)))) (declare (not safe)) - (cons __tmp60055 '())))) + (cons __tmp60052 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60106 __tmp60054)))) + (cons __tmp60103 __tmp60051)))) (declare (not safe)) - (cons __tmp60111 __tmp60053)))) + (cons __tmp60108 __tmp60050)))) (declare (not safe)) - (cons __tmp60052 '())))) + (cons __tmp60049 '())))) (declare (not safe)) - (cons __tmp60112 __tmp60051)))) + (cons __tmp60109 __tmp60048)))) (declare (not safe)) - (cons __tmp60216 __tmp60050)))) + (cons __tmp60213 __tmp60047)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60264 - __tmp60049)))) + (cons __tmp60261 + __tmp60046)))) (declare (not safe)) - (cons __tmp60366 __tmp60048)))) + (cons __tmp60363 __tmp60045)))) (declare (not safe)) - (cons __tmp60412 __tmp60047)))) + (cons __tmp60409 __tmp60044)))) (declare (not safe)) - (cons __tmp60455 __tmp60046)))) + (cons __tmp60452 __tmp60043)))) (declare (not safe)) - (cons __tmp60476 __tmp60045))) + (cons __tmp60473 __tmp60042))) _hd5756657674_ _hd5756357664_ _hd5756057654_ @@ -1597,71 +1597,71 @@ ((lambda (_L57803_ _L57805_ _L57806_) - (let ((__tmp60496 + (let ((__tmp60493 (gx#datum->syntax '#f 'let)) - (__tmp60477 - (let ((__tmp60484 + (__tmp60474 + (let ((__tmp60481 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60495 + (let ((__tmp60492 (gx#datum->syntax '#f 'next-probe)) - (__tmp60485 - (let ((__tmp60486 - (let ((__tmp60494 + (__tmp60482 + (let ((__tmp60483 + (let ((__tmp60491 (gx#datum->syntax '#f 'fx+)) - (__tmp60487 - (let ((__tmp60488 - (let ((__tmp60489 - (let ((__tmp60490 + (__tmp60484 + (let ((__tmp60485 + (let ((__tmp60486 + (let ((__tmp60487 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60493 (gx#datum->syntax '#f 'fx*)) - (__tmp60491 - (let ((__tmp60492 + (let ((__tmp60490 (gx#datum->syntax '#f 'fx*)) + (__tmp60488 + (let ((__tmp60489 (let () (declare (not safe)) (cons _L57805_ '())))) (declare (not safe)) - (cons _L57805_ __tmp60492)))) + (cons _L57805_ __tmp60489)))) (declare (not safe)) - (cons __tmp60493 __tmp60491)))) + (cons __tmp60490 __tmp60488)))) (declare (not safe)) - (cons __tmp60490 '())))) + (cons __tmp60487 '())))) (declare (not safe)) - (cons _L57805_ __tmp60489)))) + (cons _L57805_ __tmp60486)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L57806_ - __tmp60488)))) + __tmp60485)))) (declare (not safe)) - (cons __tmp60494 __tmp60487)))) + (cons __tmp60491 __tmp60484)))) (declare (not safe)) - (cons __tmp60486 '())))) + (cons __tmp60483 '())))) (declare (not safe)) - (cons __tmp60495 __tmp60485))) - (__tmp60478 - (let ((__tmp60479 - (let ((__tmp60483 + (cons __tmp60492 __tmp60482))) + (__tmp60475 + (let ((__tmp60476 + (let ((__tmp60480 (gx#datum->syntax '#f 'fxmodulo)) - (__tmp60480 - (let ((__tmp60482 + (__tmp60477 + (let ((__tmp60479 (gx#datum->syntax '#f 'next-probe)) - (__tmp60481 + (__tmp60478 (let () (declare (not safe)) (cons _L57803_ '())))) (declare (not safe)) - (cons __tmp60482 __tmp60481)))) + (cons __tmp60479 __tmp60478)))) (declare (not safe)) - (cons __tmp60483 __tmp60480)))) + (cons __tmp60480 __tmp60477)))) (declare (not safe)) - (cons __tmp60479 '())))) + (cons __tmp60476 '())))) (declare (not safe)) - (cons __tmp60484 __tmp60478)))) + (cons __tmp60481 __tmp60475)))) (declare (not safe)) - (cons __tmp60496 __tmp60477))) + (cons __tmp60493 __tmp60474))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd5774957797_ _hd5774657787_ @@ -1766,510 +1766,510 @@ _L57948_ _L57949_ _L57950_) - (let ((__tmp60655 + (let ((__tmp60652 (gx#datum->syntax '#f 'let*)) - (__tmp60497 - (let ((__tmp60615 - (let ((__tmp60646 - (let ((__tmp60654 + (__tmp60494 + (let ((__tmp60612 + (let ((__tmp60643 + (let ((__tmp60651 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp60647 - (let ((__tmp60648 - (let ((__tmp60653 + (__tmp60644 + (let ((__tmp60645 + (let ((__tmp60650 (gx#datum->syntax '#f 'fxxor)) - (__tmp60649 - (let ((__tmp60651 - (let ((__tmp60652 + (__tmp60646 + (let ((__tmp60648 + (let ((__tmp60649 (let () (declare (not safe)) (cons _L57946_ '())))) (declare (not safe)) - (cons _L57948_ __tmp60652))) - (__tmp60650 + (cons _L57948_ __tmp60649))) + (__tmp60647 (let () (declare (not safe)) (cons _L57949_ '())))) (declare (not safe)) - (cons __tmp60651 __tmp60650)))) + (cons __tmp60648 __tmp60647)))) (declare (not safe)) - (cons __tmp60653 __tmp60649)))) + (cons __tmp60650 __tmp60646)))) (declare (not safe)) - (cons __tmp60648 '())))) + (cons __tmp60645 '())))) (declare (not safe)) - (cons __tmp60654 __tmp60647))) - (__tmp60616 - (let ((__tmp60640 - (let ((__tmp60645 (gx#datum->syntax '#f 'size)) - (__tmp60641 - (let ((__tmp60642 - (let ((__tmp60644 + (cons __tmp60651 __tmp60644))) + (__tmp60613 + (let ((__tmp60637 + (let ((__tmp60642 (gx#datum->syntax '#f 'size)) + (__tmp60638 + (let ((__tmp60639 + (let ((__tmp60641 (gx#datum->syntax '#f 'vector-length)) - (__tmp60643 + (__tmp60640 (let () (declare (not safe)) (cons _L57950_ '())))) (declare (not safe)) - (cons __tmp60644 __tmp60643)))) + (cons __tmp60641 __tmp60640)))) (declare (not safe)) - (cons __tmp60642 '())))) + (cons __tmp60639 '())))) (declare (not safe)) - (cons __tmp60645 __tmp60641))) - (__tmp60617 - (let ((__tmp60632 - (let ((__tmp60639 + (cons __tmp60642 __tmp60638))) + (__tmp60614 + (let ((__tmp60629 + (let ((__tmp60636 (gx#datum->syntax '#f 'entries)) - (__tmp60633 - (let ((__tmp60634 - (let ((__tmp60638 + (__tmp60630 + (let ((__tmp60631 + (let ((__tmp60635 (gx#datum->syntax '#f 'fxquotient)) - (__tmp60635 - (let ((__tmp60637 + (__tmp60632 + (let ((__tmp60634 (gx#datum->syntax '#f 'size)) - (__tmp60636 + (__tmp60633 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '2 '())))) (declare (not safe)) - (cons __tmp60637 __tmp60636)))) + (cons __tmp60634 __tmp60633)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60638 - __tmp60635)))) + (cons __tmp60635 + __tmp60632)))) (declare (not safe)) - (cons __tmp60634 '())))) + (cons __tmp60631 '())))) (declare (not safe)) - (cons __tmp60639 __tmp60633))) - (__tmp60618 - (let ((__tmp60619 - (let ((__tmp60631 + (cons __tmp60636 __tmp60630))) + (__tmp60615 + (let ((__tmp60616 + (let ((__tmp60628 (gx#datum->syntax '#f 'start)) - (__tmp60620 - (let ((__tmp60621 - (let ((__tmp60630 + (__tmp60617 + (let ((__tmp60618 + (let ((__tmp60627 (gx#datum->syntax '#f 'fxarithmetic-shift-left)) - (__tmp60622 - (let ((__tmp60624 + (__tmp60619 + (let ((__tmp60621 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60629 + (let ((__tmp60626 (gx#datum->syntax '#f 'fxmodulo)) - (__tmp60625 - (let ((__tmp60628 + (__tmp60622 + (let ((__tmp60625 (gx#datum->syntax '#f 'h)) - (__tmp60626 - (let ((__tmp60627 + (__tmp60623 + (let ((__tmp60624 (gx#datum->syntax '#f 'entries))) (declare (not safe)) - (cons __tmp60627 '())))) + (cons __tmp60624 '())))) (declare (not safe)) - (cons __tmp60628 __tmp60626)))) + (cons __tmp60625 __tmp60623)))) (declare (not safe)) - (cons __tmp60629 __tmp60625))) - (__tmp60623 + (cons __tmp60626 __tmp60622))) + (__tmp60620 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60624 __tmp60623)))) + (cons __tmp60621 __tmp60620)))) (declare (not safe)) - (cons __tmp60630 __tmp60622)))) + (cons __tmp60627 __tmp60619)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60621 '())))) + (cons __tmp60618 '())))) (declare (not safe)) - (cons __tmp60631 __tmp60620)))) + (cons __tmp60628 __tmp60617)))) (declare (not safe)) - (cons __tmp60619 '())))) + (cons __tmp60616 '())))) (declare (not safe)) - (cons __tmp60632 __tmp60618)))) + (cons __tmp60629 __tmp60615)))) (declare (not safe)) - (cons __tmp60640 __tmp60617)))) + (cons __tmp60637 __tmp60614)))) (declare (not safe)) - (cons __tmp60646 __tmp60616))) + (cons __tmp60643 __tmp60613))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp60498 - (let ((__tmp60499 - (let ((__tmp60614 + (__tmp60495 + (let ((__tmp60496 + (let ((__tmp60611 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp60500 - (let ((__tmp60613 (gx#datum->syntax '#f 'loop)) - (__tmp60501 - (let ((__tmp60600 - (let ((__tmp60609 - (let ((__tmp60612 + (__tmp60497 + (let ((__tmp60610 (gx#datum->syntax '#f 'loop)) + (__tmp60498 + (let ((__tmp60597 + (let ((__tmp60606 + (let ((__tmp60609 (gx#datum->syntax '#f 'probe)) - (__tmp60610 - (let ((__tmp60611 + (__tmp60607 + (let ((__tmp60608 (gx#datum->syntax '#f 'start))) (declare (not safe)) - (cons __tmp60611 + (cons __tmp60608 '())))) (declare (not safe)) - (cons __tmp60612 - __tmp60610))) - (__tmp60601 - (let ((__tmp60606 - (let ((__tmp60608 + (cons __tmp60609 + __tmp60607))) + (__tmp60598 + (let ((__tmp60603 + (let ((__tmp60605 (gx#datum->syntax '#f 'i)) - (__tmp60607 + (__tmp60604 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60608 __tmp60607))) - (__tmp60602 - (let ((__tmp60603 - (let ((__tmp60605 (gx#datum->syntax '#f 'deleted)) - (__tmp60604 + (cons __tmp60605 __tmp60604))) + (__tmp60599 + (let ((__tmp60600 + (let ((__tmp60602 (gx#datum->syntax '#f 'deleted)) + (__tmp60601 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp60605 __tmp60604)))) + (cons __tmp60602 __tmp60601)))) (declare (not safe)) - (cons __tmp60603 '())))) + (cons __tmp60600 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60606 - __tmp60602)))) + (cons __tmp60603 + __tmp60599)))) (declare (not safe)) - (cons __tmp60609 __tmp60601))) - (__tmp60502 - (let ((__tmp60503 - (let ((__tmp60599 + (cons __tmp60606 __tmp60598))) + (__tmp60499 + (let ((__tmp60500 + (let ((__tmp60596 (gx#datum->syntax '#f 'let)) - (__tmp60504 - (let ((__tmp60591 - (let ((__tmp60598 + (__tmp60501 + (let ((__tmp60588 + (let ((__tmp60595 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'k)) - (__tmp60592 - (let ((__tmp60593 - (let ((__tmp60597 + (__tmp60589 + (let ((__tmp60590 + (let ((__tmp60594 (gx#datum->syntax '#f 'vector-ref)) - (__tmp60594 - (let ((__tmp60595 - (let ((__tmp60596 + (__tmp60591 + (let ((__tmp60592 + (let ((__tmp60593 (gx#datum->syntax '#f 'probe))) (declare (not safe)) - (cons __tmp60596 '())))) + (cons __tmp60593 '())))) (declare (not safe)) - (cons _L57950_ __tmp60595)))) + (cons _L57950_ __tmp60592)))) (declare (not safe)) - (cons __tmp60597 __tmp60594)))) + (cons __tmp60594 __tmp60591)))) (declare (not safe)) - (cons __tmp60593 '())))) + (cons __tmp60590 '())))) (declare (not safe)) - (cons __tmp60598 __tmp60592))) - (__tmp60505 - (let ((__tmp60506 - (let ((__tmp60590 (gx#datum->syntax '#f 'cond)) - (__tmp60507 - (let ((__tmp60581 - (let ((__tmp60583 - (let ((__tmp60589 + (cons __tmp60595 __tmp60589))) + (__tmp60502 + (let ((__tmp60503 + (let ((__tmp60587 (gx#datum->syntax '#f 'cond)) + (__tmp60504 + (let ((__tmp60578 + (let ((__tmp60580 + (let ((__tmp60586 (gx#datum->syntax '#f 'eq?)) - (__tmp60584 - (let ((__tmp60588 + (__tmp60581 + (let ((__tmp60585 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'k)) - (__tmp60585 - (let ((__tmp60586 - (let ((__tmp60587 + (__tmp60582 + (let ((__tmp60583 + (let ((__tmp60584 (gx#datum->syntax '#f 'macro-unused-obj))) (declare (not safe)) - (cons __tmp60587 '())))) + (cons __tmp60584 '())))) (declare (not safe)) - (cons __tmp60586 '())))) + (cons __tmp60583 '())))) (declare (not safe)) - (cons __tmp60588 __tmp60585)))) + (cons __tmp60585 __tmp60582)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60589 - __tmp60584))) - (__tmp60582 + (cons __tmp60586 + __tmp60581))) + (__tmp60579 (let () (declare (not safe)) (cons _L57944_ '())))) (declare (not safe)) - (cons __tmp60583 __tmp60582))) - (__tmp60508 - (let ((__tmp60548 - (let ((__tmp60574 - (let ((__tmp60580 + (cons __tmp60580 __tmp60579))) + (__tmp60505 + (let ((__tmp60545 + (let ((__tmp60571 + (let ((__tmp60577 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'eq?)) - (__tmp60575 - (let ((__tmp60579 (gx#datum->syntax '#f 'k)) - (__tmp60576 - (let ((__tmp60577 - (let ((__tmp60578 + (__tmp60572 + (let ((__tmp60576 (gx#datum->syntax '#f 'k)) + (__tmp60573 + (let ((__tmp60574 + (let ((__tmp60575 (gx#datum->syntax '#f 'macro-deleted-obj))) (declare (not safe)) - (cons __tmp60578 '())))) + (cons __tmp60575 '())))) (declare (not safe)) - (cons __tmp60577 '())))) + (cons __tmp60574 '())))) (declare (not safe)) - (cons __tmp60579 __tmp60576)))) + (cons __tmp60576 __tmp60573)))) (declare (not safe)) - (cons __tmp60580 __tmp60575))) - (__tmp60549 - (let ((__tmp60550 - (let ((__tmp60573 (gx#datum->syntax '#f 'loop)) - (__tmp60551 - (let ((__tmp60565 - (let ((__tmp60572 + (cons __tmp60577 __tmp60572))) + (__tmp60546 + (let ((__tmp60547 + (let ((__tmp60570 (gx#datum->syntax '#f 'loop)) + (__tmp60548 + (let ((__tmp60562 + (let ((__tmp60569 (gx#datum->syntax '#f 'probe-step)) - (__tmp60566 - (let ((__tmp60571 + (__tmp60563 + (let ((__tmp60568 (gx#datum->syntax '#f 'start)) - (__tmp60567 - (let ((__tmp60570 + (__tmp60564 + (let ((__tmp60567 (gx#datum->syntax '#f 'i)) - (__tmp60568 - (let ((__tmp60569 + (__tmp60565 + (let ((__tmp60566 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'size))) (declare (not safe)) - (cons __tmp60569 '())))) + (cons __tmp60566 '())))) (declare (not safe)) - (cons __tmp60570 __tmp60568)))) + (cons __tmp60567 __tmp60565)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60571 __tmp60567)))) + (cons __tmp60568 __tmp60564)))) (declare (not safe)) - (cons __tmp60572 __tmp60566))) - (__tmp60552 - (let ((__tmp60560 - (let ((__tmp60564 + (cons __tmp60569 __tmp60563))) + (__tmp60549 + (let ((__tmp60557 + (let ((__tmp60561 (gx#datum->syntax '#f 'fx+)) - (__tmp60561 - (let ((__tmp60563 + (__tmp60558 + (let ((__tmp60560 (gx#datum->syntax '#f 'i)) - (__tmp60562 + (__tmp60559 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60563 - __tmp60562)))) + (cons __tmp60560 + __tmp60559)))) (declare (not safe)) - (cons __tmp60564 __tmp60561))) - (__tmp60553 - (let ((__tmp60554 - (let ((__tmp60559 + (cons __tmp60561 __tmp60558))) + (__tmp60550 + (let ((__tmp60551 + (let ((__tmp60556 (gx#datum->syntax '#f 'or)) - (__tmp60555 - (let ((__tmp60558 + (__tmp60552 + (let ((__tmp60555 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'deleted)) - (__tmp60556 - (let ((__tmp60557 (gx#datum->syntax '#f 'probe))) + (__tmp60553 + (let ((__tmp60554 (gx#datum->syntax '#f 'probe))) (declare (not safe)) - (cons __tmp60557 '())))) + (cons __tmp60554 '())))) (declare (not safe)) - (cons __tmp60558 __tmp60556)))) + (cons __tmp60555 __tmp60553)))) (declare (not safe)) - (cons __tmp60559 __tmp60555)))) + (cons __tmp60556 __tmp60552)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60554 '())))) + (cons __tmp60551 '())))) (declare (not safe)) - (cons __tmp60560 __tmp60553)))) + (cons __tmp60557 __tmp60550)))) (declare (not safe)) - (cons __tmp60565 __tmp60552)))) + (cons __tmp60562 __tmp60549)))) (declare (not safe)) - (cons __tmp60573 __tmp60551)))) + (cons __tmp60570 __tmp60548)))) (declare (not safe)) - (cons __tmp60550 '())))) + (cons __tmp60547 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60574 - __tmp60549))) - (__tmp60509 - (let ((__tmp60533 - (let ((__tmp60544 - (let ((__tmp60545 + (cons __tmp60571 + __tmp60546))) + (__tmp60506 + (let ((__tmp60530 + (let ((__tmp60541 + (let ((__tmp60542 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60546 - (let ((__tmp60547 + (let ((__tmp60543 + (let ((__tmp60544 (gx#datum->syntax '#f 'k))) (declare (not safe)) - (cons __tmp60547 '())))) + (cons __tmp60544 '())))) (declare (not safe)) - (cons _L57946_ __tmp60546)))) + (cons _L57946_ __tmp60543)))) (declare (not safe)) - (cons _L57947_ __tmp60545))) - (__tmp60534 - (let ((__tmp60535 - (let ((__tmp60543 + (cons _L57947_ __tmp60542))) + (__tmp60531 + (let ((__tmp60532 + (let ((__tmp60540 (gx#datum->syntax '#f 'vector-ref)) - (__tmp60536 - (let ((__tmp60537 - (let ((__tmp60538 - (let ((__tmp60542 + (__tmp60533 + (let ((__tmp60534 + (let ((__tmp60535 + (let ((__tmp60539 (gx#datum->syntax '#f 'fx+)) - (__tmp60539 - (let ((__tmp60541 + (__tmp60536 + (let ((__tmp60538 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'probe)) - (__tmp60540 + (__tmp60537 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60541 __tmp60540)))) + (cons __tmp60538 __tmp60537)))) (declare (not safe)) - (cons __tmp60542 __tmp60539)))) + (cons __tmp60539 __tmp60536)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60538 '())))) + (cons __tmp60535 '())))) (declare (not safe)) - (cons _L57950_ __tmp60537)))) + (cons _L57950_ __tmp60534)))) (declare (not safe)) - (cons __tmp60543 __tmp60536)))) + (cons __tmp60540 __tmp60533)))) (declare (not safe)) - (cons __tmp60535 '())))) + (cons __tmp60532 '())))) (declare (not safe)) - (cons __tmp60544 __tmp60534))) - (__tmp60510 - (let ((__tmp60511 - (let ((__tmp60532 (gx#datum->syntax '#f 'else)) - (__tmp60512 - (let ((__tmp60513 - (let ((__tmp60531 + (cons __tmp60541 __tmp60531))) + (__tmp60507 + (let ((__tmp60508 + (let ((__tmp60529 (gx#datum->syntax '#f 'else)) + (__tmp60509 + (let ((__tmp60510 + (let ((__tmp60528 (gx#datum->syntax '#f 'loop)) - (__tmp60514 - (let ((__tmp60523 - (let ((__tmp60530 + (__tmp60511 + (let ((__tmp60520 + (let ((__tmp60527 (gx#datum->syntax '#f 'probe-step)) - (__tmp60524 - (let ((__tmp60529 + (__tmp60521 + (let ((__tmp60526 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'start)) - (__tmp60525 - (let ((__tmp60528 (gx#datum->syntax '#f 'i)) - (__tmp60526 - (let ((__tmp60527 + (__tmp60522 + (let ((__tmp60525 (gx#datum->syntax '#f 'i)) + (__tmp60523 + (let ((__tmp60524 (gx#datum->syntax '#f 'size))) (declare (not safe)) - (cons __tmp60527 '())))) + (cons __tmp60524 '())))) (declare (not safe)) - (cons __tmp60528 __tmp60526)))) + (cons __tmp60525 __tmp60523)))) (declare (not safe)) - (cons __tmp60529 __tmp60525)))) + (cons __tmp60526 __tmp60522)))) (declare (not safe)) - (cons __tmp60530 __tmp60524))) + (cons __tmp60527 __tmp60521))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp60515 - (let ((__tmp60518 - (let ((__tmp60522 + (__tmp60512 + (let ((__tmp60515 + (let ((__tmp60519 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fx+)) - (__tmp60519 - (let ((__tmp60521 (gx#datum->syntax '#f 'i)) - (__tmp60520 + (__tmp60516 + (let ((__tmp60518 (gx#datum->syntax '#f 'i)) + (__tmp60517 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60521 __tmp60520)))) + (cons __tmp60518 __tmp60517)))) (declare (not safe)) - (cons __tmp60522 __tmp60519))) - (__tmp60516 - (let ((__tmp60517 (gx#datum->syntax '#f 'deleted))) + (cons __tmp60519 __tmp60516))) + (__tmp60513 + (let ((__tmp60514 (gx#datum->syntax '#f 'deleted))) (declare (not safe)) - (cons __tmp60517 '())))) + (cons __tmp60514 '())))) (declare (not safe)) - (cons __tmp60518 __tmp60516)))) + (cons __tmp60515 __tmp60513)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60523 __tmp60515)))) + (cons __tmp60520 __tmp60512)))) (declare (not safe)) - (cons __tmp60531 __tmp60514)))) + (cons __tmp60528 __tmp60511)))) (declare (not safe)) - (cons __tmp60513 '())))) + (cons __tmp60510 '())))) (declare (not safe)) - (cons __tmp60532 __tmp60512)))) + (cons __tmp60529 __tmp60509)))) (declare (not safe)) - (cons __tmp60511 '())))) + (cons __tmp60508 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60533 - __tmp60510)))) + (cons __tmp60530 + __tmp60507)))) (declare (not safe)) - (cons __tmp60548 __tmp60509)))) + (cons __tmp60545 __tmp60506)))) (declare (not safe)) - (cons __tmp60581 __tmp60508)))) + (cons __tmp60578 __tmp60505)))) (declare (not safe)) - (cons __tmp60590 __tmp60507)))) + (cons __tmp60587 __tmp60504)))) (declare (not safe)) - (cons __tmp60506 '())))) + (cons __tmp60503 '())))) (declare (not safe)) - (cons __tmp60591 __tmp60505)))) + (cons __tmp60588 __tmp60502)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60599 - __tmp60504)))) + (cons __tmp60596 + __tmp60501)))) (declare (not safe)) - (cons __tmp60503 '())))) + (cons __tmp60500 '())))) (declare (not safe)) - (cons __tmp60600 __tmp60502)))) + (cons __tmp60597 __tmp60499)))) (declare (not safe)) - (cons __tmp60613 __tmp60501)))) + (cons __tmp60610 __tmp60498)))) (declare (not safe)) - (cons __tmp60614 __tmp60500)))) + (cons __tmp60611 __tmp60497)))) (declare (not safe)) - (cons __tmp60499 '())))) + (cons __tmp60496 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60615 __tmp60498)))) + (cons __tmp60612 __tmp60495)))) (declare (not safe)) - (cons __tmp60655 __tmp60497))) + (cons __tmp60652 __tmp60494))) _hd5786057938_ _hd5785757928_ _hd5785457918_ @@ -2406,679 +2406,679 @@ _L58131_ _L58132_ _L58133_) - (let ((__tmp60872 + (let ((__tmp60869 (gx#datum->syntax '#f 'let*)) - (__tmp60656 - (let ((__tmp60832 + (__tmp60653 + (let ((__tmp60829 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60863 - (let ((__tmp60871 + (let ((__tmp60860 + (let ((__tmp60868 (gx#datum->syntax '#f 'h)) - (__tmp60864 - (let ((__tmp60865 - (let ((__tmp60870 + (__tmp60861 + (let ((__tmp60862 + (let ((__tmp60867 (gx#datum->syntax '#f 'fxxor)) - (__tmp60866 - (let ((__tmp60868 - (let ((__tmp60869 + (__tmp60863 + (let ((__tmp60865 + (let ((__tmp60866 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L58129_ '())))) (declare (not safe)) - (cons _L58131_ __tmp60869))) - (__tmp60867 + (cons _L58131_ __tmp60866))) + (__tmp60864 (let () (declare (not safe)) (cons _L58132_ '())))) (declare (not safe)) - (cons __tmp60868 __tmp60867)))) + (cons __tmp60865 __tmp60864)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60870 - __tmp60866)))) + (cons __tmp60867 + __tmp60863)))) (declare (not safe)) - (cons __tmp60865 '())))) + (cons __tmp60862 '())))) (declare (not safe)) - (cons __tmp60871 __tmp60864))) - (__tmp60833 - (let ((__tmp60857 - (let ((__tmp60862 + (cons __tmp60868 __tmp60861))) + (__tmp60830 + (let ((__tmp60854 + (let ((__tmp60859 (gx#datum->syntax '#f 'size)) - (__tmp60858 - (let ((__tmp60859 - (let ((__tmp60861 + (__tmp60855 + (let ((__tmp60856 + (let ((__tmp60858 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-length)) - (__tmp60860 + (__tmp60857 (let () (declare (not safe)) (cons _L58133_ '())))) (declare (not safe)) - (cons __tmp60861 __tmp60860)))) + (cons __tmp60858 __tmp60857)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60859 '())))) + (cons __tmp60856 '())))) (declare (not safe)) - (cons __tmp60862 __tmp60858))) - (__tmp60834 - (let ((__tmp60849 - (let ((__tmp60856 + (cons __tmp60859 __tmp60855))) + (__tmp60831 + (let ((__tmp60846 + (let ((__tmp60853 (gx#datum->syntax '#f 'entries)) - (__tmp60850 - (let ((__tmp60851 - (let ((__tmp60855 + (__tmp60847 + (let ((__tmp60848 + (let ((__tmp60852 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fxquotient)) - (__tmp60852 - (let ((__tmp60854 (gx#datum->syntax '#f 'size)) - (__tmp60853 + (__tmp60849 + (let ((__tmp60851 (gx#datum->syntax '#f 'size)) + (__tmp60850 (let () (declare (not safe)) (cons '2 '())))) (declare (not safe)) - (cons __tmp60854 __tmp60853)))) + (cons __tmp60851 __tmp60850)))) (declare (not safe)) - (cons __tmp60855 __tmp60852)))) + (cons __tmp60852 __tmp60849)))) (declare (not safe)) - (cons __tmp60851 '())))) + (cons __tmp60848 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60856 - __tmp60850))) - (__tmp60835 - (let ((__tmp60836 - (let ((__tmp60848 + (cons __tmp60853 + __tmp60847))) + (__tmp60832 + (let ((__tmp60833 + (let ((__tmp60845 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'start)) - (__tmp60837 - (let ((__tmp60838 - (let ((__tmp60847 + (__tmp60834 + (let ((__tmp60835 + (let ((__tmp60844 (gx#datum->syntax '#f 'fxarithmetic-shift-left)) - (__tmp60839 - (let ((__tmp60841 - (let ((__tmp60846 + (__tmp60836 + (let ((__tmp60838 + (let ((__tmp60843 (gx#datum->syntax '#f 'fxmodulo)) - (__tmp60842 - (let ((__tmp60845 + (__tmp60839 + (let ((__tmp60842 (gx#datum->syntax '#f 'h)) - (__tmp60843 - (let ((__tmp60844 + (__tmp60840 + (let ((__tmp60841 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'entries))) (declare (not safe)) - (cons __tmp60844 '())))) + (cons __tmp60841 '())))) (declare (not safe)) - (cons __tmp60845 __tmp60843)))) + (cons __tmp60842 __tmp60840)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60846 __tmp60842))) - (__tmp60840 + (cons __tmp60843 __tmp60839))) + (__tmp60837 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60841 __tmp60840)))) + (cons __tmp60838 __tmp60837)))) (declare (not safe)) - (cons __tmp60847 __tmp60839)))) + (cons __tmp60844 __tmp60836)))) (declare (not safe)) - (cons __tmp60838 '())))) + (cons __tmp60835 '())))) (declare (not safe)) - (cons __tmp60848 __tmp60837)))) + (cons __tmp60845 __tmp60834)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60836 '())))) + (cons __tmp60833 '())))) (declare (not safe)) - (cons __tmp60849 __tmp60835)))) + (cons __tmp60846 __tmp60832)))) (declare (not safe)) - (cons __tmp60857 __tmp60834)))) + (cons __tmp60854 __tmp60831)))) (declare (not safe)) - (cons __tmp60863 __tmp60833))) - (__tmp60657 - (let ((__tmp60658 - (let ((__tmp60831 + (cons __tmp60860 __tmp60830))) + (__tmp60654 + (let ((__tmp60655 + (let ((__tmp60828 (gx#datum->syntax '#f 'let)) - (__tmp60659 - (let ((__tmp60830 + (__tmp60656 + (let ((__tmp60827 (gx#datum->syntax '#f 'loop)) - (__tmp60660 - (let ((__tmp60817 - (let ((__tmp60826 - (let ((__tmp60829 + (__tmp60657 + (let ((__tmp60814 + (let ((__tmp60823 + (let ((__tmp60826 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'probe)) - (__tmp60827 - (let ((__tmp60828 + (__tmp60824 + (let ((__tmp60825 (gx#datum->syntax '#f 'start))) (declare (not safe)) - (cons __tmp60828 '())))) + (cons __tmp60825 '())))) (declare (not safe)) - (cons __tmp60829 __tmp60827))) - (__tmp60818 - (let ((__tmp60823 - (let ((__tmp60825 (gx#datum->syntax '#f 'i)) - (__tmp60824 + (cons __tmp60826 __tmp60824))) + (__tmp60815 + (let ((__tmp60820 + (let ((__tmp60822 (gx#datum->syntax '#f 'i)) + (__tmp60821 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60825 __tmp60824))) - (__tmp60819 - (let ((__tmp60820 - (let ((__tmp60822 + (cons __tmp60822 __tmp60821))) + (__tmp60816 + (let ((__tmp60817 + (let ((__tmp60819 (gx#datum->syntax '#f 'deleted)) - (__tmp60821 + (__tmp60818 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp60822 __tmp60821)))) + (cons __tmp60819 __tmp60818)))) (declare (not safe)) - (cons __tmp60820 '())))) + (cons __tmp60817 '())))) (declare (not safe)) - (cons __tmp60823 __tmp60819)))) + (cons __tmp60820 __tmp60816)))) (declare (not safe)) - (cons __tmp60826 __tmp60818))) - (__tmp60661 - (let ((__tmp60662 - (let ((__tmp60816 (gx#datum->syntax '#f 'let)) - (__tmp60663 - (let ((__tmp60808 - (let ((__tmp60815 + (cons __tmp60823 __tmp60815))) + (__tmp60658 + (let ((__tmp60659 + (let ((__tmp60813 (gx#datum->syntax '#f 'let)) + (__tmp60660 + (let ((__tmp60805 + (let ((__tmp60812 (gx#datum->syntax '#f 'k)) - (__tmp60809 - (let ((__tmp60810 - (let ((__tmp60814 + (__tmp60806 + (let ((__tmp60807 + (let ((__tmp60811 (gx#datum->syntax '#f 'vector-ref)) - (__tmp60811 - (let ((__tmp60812 + (__tmp60808 + (let ((__tmp60809 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60813 (gx#datum->syntax '#f 'probe))) + (let ((__tmp60810 (gx#datum->syntax '#f 'probe))) (declare (not safe)) - (cons __tmp60813 '())))) + (cons __tmp60810 '())))) (declare (not safe)) - (cons _L58133_ __tmp60812)))) + (cons _L58133_ __tmp60809)))) (declare (not safe)) - (cons __tmp60814 __tmp60811)))) + (cons __tmp60811 __tmp60808)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60810 '())))) + (cons __tmp60807 '())))) (declare (not safe)) - (cons __tmp60815 __tmp60809))) - (__tmp60664 - (let ((__tmp60665 - (let ((__tmp60807 + (cons __tmp60812 __tmp60806))) + (__tmp60661 + (let ((__tmp60662 + (let ((__tmp60804 (gx#datum->syntax '#f 'cond)) - (__tmp60666 - (let ((__tmp60748 - (let ((__tmp60800 + (__tmp60663 + (let ((__tmp60745 + (let ((__tmp60797 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60806 (gx#datum->syntax '#f 'eq?)) - (__tmp60801 - (let ((__tmp60805 (gx#datum->syntax '#f 'k)) - (__tmp60802 - (let ((__tmp60803 - (let ((__tmp60804 + (let ((__tmp60803 (gx#datum->syntax '#f 'eq?)) + (__tmp60798 + (let ((__tmp60802 (gx#datum->syntax '#f 'k)) + (__tmp60799 + (let ((__tmp60800 + (let ((__tmp60801 (gx#datum->syntax '#f 'macro-unused-obj))) (declare (not safe)) - (cons __tmp60804 '())))) + (cons __tmp60801 '())))) (declare (not safe)) - (cons __tmp60803 '())))) + (cons __tmp60800 '())))) (declare (not safe)) - (cons __tmp60805 __tmp60802)))) + (cons __tmp60802 __tmp60799)))) (declare (not safe)) - (cons __tmp60806 __tmp60801))) - (__tmp60749 - (let ((__tmp60750 - (let ((__tmp60799 (gx#datum->syntax '#f 'if)) - (__tmp60751 - (let ((__tmp60798 + (cons __tmp60803 __tmp60798))) + (__tmp60746 + (let ((__tmp60747 + (let ((__tmp60796 (gx#datum->syntax '#f 'if)) + (__tmp60748 + (let ((__tmp60795 (gx#datum->syntax '#f 'deleted)) - (__tmp60752 - (let ((__tmp60776 - (let ((__tmp60797 + (__tmp60749 + (let ((__tmp60773 + (let ((__tmp60794 (gx#datum->syntax '#f 'begin)) - (__tmp60777 - (let ((__tmp60791 + (__tmp60774 + (let ((__tmp60788 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60796 + (let ((__tmp60793 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60792 - (let ((__tmp60793 - (let ((__tmp60795 + (__tmp60789 + (let ((__tmp60790 + (let ((__tmp60792 (gx#datum->syntax '#f 'deleted)) - (__tmp60794 + (__tmp60791 (let () (declare (not safe)) (cons _L58129_ '())))) (declare (not safe)) - (cons __tmp60795 __tmp60794)))) + (cons __tmp60792 __tmp60791)))) (declare (not safe)) - (cons _L58133_ __tmp60793)))) + (cons _L58133_ __tmp60790)))) (declare (not safe)) - (cons __tmp60796 __tmp60792))) - (__tmp60778 - (let ((__tmp60781 - (let ((__tmp60790 + (cons __tmp60793 __tmp60789))) + (__tmp60775 + (let ((__tmp60778 + (let ((__tmp60787 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60782 - (let ((__tmp60783 - (let ((__tmp60785 - (let ((__tmp60789 + (__tmp60779 + (let ((__tmp60780 + (let ((__tmp60782 + (let ((__tmp60786 (gx#datum->syntax '#f 'fx+)) - (__tmp60786 - (let ((__tmp60788 + (__tmp60783 + (let ((__tmp60785 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'deleted)) - (__tmp60787 + (__tmp60784 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60788 __tmp60787)))) + (cons __tmp60785 __tmp60784)))) (declare (not safe)) - (cons __tmp60789 __tmp60786))) - (__tmp60784 (let () (declare (not safe)) (cons _L58128_ '())))) + (cons __tmp60786 __tmp60783))) + (__tmp60781 (let () (declare (not safe)) (cons _L58128_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60785 - __tmp60784)))) + (cons __tmp60782 + __tmp60781)))) (declare (not safe)) - (cons _L58133_ __tmp60783)))) + (cons _L58133_ __tmp60780)))) (declare (not safe)) - (cons __tmp60790 __tmp60782))) - (__tmp60779 - (let ((__tmp60780 + (cons __tmp60787 __tmp60779))) + (__tmp60776 + (let ((__tmp60777 (let () (declare (not safe)) (cons _L58125_ '())))) (declare (not safe)) - (cons __tmp60780 '())))) + (cons __tmp60777 '())))) (declare (not safe)) - (cons __tmp60781 __tmp60779)))) + (cons __tmp60778 __tmp60776)))) (declare (not safe)) - (cons __tmp60791 __tmp60778)))) + (cons __tmp60788 __tmp60775)))) (declare (not safe)) - (cons __tmp60797 __tmp60777))) + (cons __tmp60794 __tmp60774))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp60753 - (let ((__tmp60754 - (let ((__tmp60775 + (__tmp60750 + (let ((__tmp60751 + (let ((__tmp60772 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin)) - (__tmp60755 - (let ((__tmp60769 - (let ((__tmp60774 + (__tmp60752 + (let ((__tmp60766 + (let ((__tmp60771 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60770 - (let ((__tmp60771 - (let ((__tmp60773 + (__tmp60767 + (let ((__tmp60768 + (let ((__tmp60770 (gx#datum->syntax '#f 'probe)) - (__tmp60772 + (__tmp60769 (let () (declare (not safe)) (cons _L58129_ '())))) (declare (not safe)) - (cons __tmp60773 - __tmp60772)))) + (cons __tmp60770 + __tmp60769)))) (declare (not safe)) - (cons _L58133_ __tmp60771)))) + (cons _L58133_ __tmp60768)))) (declare (not safe)) - (cons __tmp60774 __tmp60770))) - (__tmp60756 - (let ((__tmp60759 - (let ((__tmp60768 + (cons __tmp60771 __tmp60767))) + (__tmp60753 + (let ((__tmp60756 + (let ((__tmp60765 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60760 - (let ((__tmp60761 - (let ((__tmp60763 - (let ((__tmp60767 + (__tmp60757 + (let ((__tmp60758 + (let ((__tmp60760 + (let ((__tmp60764 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fx+)) - (__tmp60764 - (let ((__tmp60766 (gx#datum->syntax '#f 'probe)) - (__tmp60765 + (__tmp60761 + (let ((__tmp60763 (gx#datum->syntax '#f 'probe)) + (__tmp60762 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60766 __tmp60765)))) + (cons __tmp60763 __tmp60762)))) (declare (not safe)) - (cons __tmp60767 __tmp60764))) - (__tmp60762 + (cons __tmp60764 __tmp60761))) + (__tmp60759 (let () (declare (not safe)) (cons _L58128_ '())))) (declare (not safe)) - (cons __tmp60763 __tmp60762)))) + (cons __tmp60760 __tmp60759)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L58133_ - __tmp60761)))) + __tmp60758)))) (declare (not safe)) - (cons __tmp60768 __tmp60760))) - (__tmp60757 - (let ((__tmp60758 + (cons __tmp60765 __tmp60757))) + (__tmp60754 + (let ((__tmp60755 (let () (declare (not safe)) (cons _L58127_ '())))) (declare (not safe)) - (cons __tmp60758 '())))) + (cons __tmp60755 '())))) (declare (not safe)) - (cons __tmp60759 __tmp60757)))) + (cons __tmp60756 __tmp60754)))) (declare (not safe)) - (cons __tmp60769 __tmp60756)))) + (cons __tmp60766 __tmp60753)))) (declare (not safe)) - (cons __tmp60775 __tmp60755)))) + (cons __tmp60772 __tmp60752)))) (declare (not safe)) - (cons __tmp60754 '())))) + (cons __tmp60751 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60776 - __tmp60753)))) + (cons __tmp60773 + __tmp60750)))) (declare (not safe)) - (cons __tmp60798 __tmp60752)))) + (cons __tmp60795 __tmp60749)))) (declare (not safe)) - (cons __tmp60799 __tmp60751)))) + (cons __tmp60796 __tmp60748)))) (declare (not safe)) - (cons __tmp60750 '())))) + (cons __tmp60747 '())))) (declare (not safe)) - (cons __tmp60800 __tmp60749))) - (__tmp60667 - (let ((__tmp60715 - (let ((__tmp60741 - (let ((__tmp60747 (gx#datum->syntax '#f 'eq?)) - (__tmp60742 - (let ((__tmp60746 + (cons __tmp60797 __tmp60746))) + (__tmp60664 + (let ((__tmp60712 + (let ((__tmp60738 + (let ((__tmp60744 (gx#datum->syntax '#f 'eq?)) + (__tmp60739 + (let ((__tmp60743 (gx#datum->syntax '#f 'k)) - (__tmp60743 - (let ((__tmp60744 - (let ((__tmp60745 + (__tmp60740 + (let ((__tmp60741 + (let ((__tmp60742 (gx#datum->syntax '#f 'macro-deleted-obj))) (declare (not safe)) - (cons __tmp60745 + (cons __tmp60742 '())))) (declare (not safe)) - (cons __tmp60744 '())))) + (cons __tmp60741 '())))) (declare (not safe)) - (cons __tmp60746 __tmp60743)))) + (cons __tmp60743 __tmp60740)))) (declare (not safe)) - (cons __tmp60747 __tmp60742))) - (__tmp60716 - (let ((__tmp60717 - (let ((__tmp60740 + (cons __tmp60744 __tmp60739))) + (__tmp60713 + (let ((__tmp60714 + (let ((__tmp60737 (gx#datum->syntax '#f 'loop)) - (__tmp60718 - (let ((__tmp60732 - (let ((__tmp60739 + (__tmp60715 + (let ((__tmp60729 + (let ((__tmp60736 (gx#datum->syntax '#f 'probe-step)) - (__tmp60733 - (let ((__tmp60738 + (__tmp60730 + (let ((__tmp60735 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'start)) - (__tmp60734 - (let ((__tmp60737 (gx#datum->syntax '#f 'i)) - (__tmp60735 - (let ((__tmp60736 + (__tmp60731 + (let ((__tmp60734 (gx#datum->syntax '#f 'i)) + (__tmp60732 + (let ((__tmp60733 (gx#datum->syntax '#f 'size))) (declare (not safe)) - (cons __tmp60736 '())))) + (cons __tmp60733 '())))) (declare (not safe)) - (cons __tmp60737 __tmp60735)))) + (cons __tmp60734 __tmp60732)))) (declare (not safe)) - (cons __tmp60738 __tmp60734)))) + (cons __tmp60735 __tmp60731)))) (declare (not safe)) - (cons __tmp60739 __tmp60733))) + (cons __tmp60736 __tmp60730))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp60719 - (let ((__tmp60727 - (let ((__tmp60731 + (__tmp60716 + (let ((__tmp60724 + (let ((__tmp60728 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fx+)) - (__tmp60728 - (let ((__tmp60730 (gx#datum->syntax '#f 'i)) - (__tmp60729 + (__tmp60725 + (let ((__tmp60727 (gx#datum->syntax '#f 'i)) + (__tmp60726 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60730 __tmp60729)))) + (cons __tmp60727 __tmp60726)))) (declare (not safe)) - (cons __tmp60731 __tmp60728))) - (__tmp60720 - (let ((__tmp60721 - (let ((__tmp60726 (gx#datum->syntax '#f 'or)) - (__tmp60722 - (let ((__tmp60725 + (cons __tmp60728 __tmp60725))) + (__tmp60717 + (let ((__tmp60718 + (let ((__tmp60723 (gx#datum->syntax '#f 'or)) + (__tmp60719 + (let ((__tmp60722 (gx#datum->syntax '#f 'deleted)) - (__tmp60723 - (let ((__tmp60724 + (__tmp60720 + (let ((__tmp60721 (gx#datum->syntax '#f 'probe))) (declare (not safe)) - (cons __tmp60724 '())))) + (cons __tmp60721 '())))) (declare (not safe)) - (cons __tmp60725 __tmp60723)))) + (cons __tmp60722 __tmp60720)))) (declare (not safe)) - (cons __tmp60726 __tmp60722)))) + (cons __tmp60723 __tmp60719)))) (declare (not safe)) - (cons __tmp60721 '())))) + (cons __tmp60718 '())))) (declare (not safe)) - (cons __tmp60727 __tmp60720)))) + (cons __tmp60724 __tmp60717)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60732 - __tmp60719)))) + (cons __tmp60729 + __tmp60716)))) (declare (not safe)) - (cons __tmp60740 __tmp60718)))) + (cons __tmp60737 __tmp60715)))) (declare (not safe)) - (cons __tmp60717 '())))) + (cons __tmp60714 '())))) (declare (not safe)) - (cons __tmp60741 __tmp60716))) - (__tmp60668 - (let ((__tmp60692 - (let ((__tmp60711 - (let ((__tmp60712 - (let ((__tmp60713 - (let ((__tmp60714 + (cons __tmp60738 __tmp60713))) + (__tmp60665 + (let ((__tmp60689 + (let ((__tmp60708 + (let ((__tmp60709 + (let ((__tmp60710 + (let ((__tmp60711 (gx#datum->syntax '#f 'k))) (declare (not safe)) - (cons __tmp60714 + (cons __tmp60711 '())))) (declare (not safe)) - (cons _L58129_ __tmp60713)))) + (cons _L58129_ __tmp60710)))) (declare (not safe)) - (cons _L58130_ __tmp60712))) - (__tmp60693 - (let ((__tmp60705 - (let ((__tmp60710 + (cons _L58130_ __tmp60709))) + (__tmp60690 + (let ((__tmp60702 + (let ((__tmp60707 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60706 - (let ((__tmp60707 - (let ((__tmp60709 + (__tmp60703 + (let ((__tmp60704 + (let ((__tmp60706 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'probe)) - (__tmp60708 + (__tmp60705 (let () (declare (not safe)) (cons _L58129_ '())))) (declare (not safe)) - (cons __tmp60709 __tmp60708)))) + (cons __tmp60706 __tmp60705)))) (declare (not safe)) - (cons _L58133_ __tmp60707)))) + (cons _L58133_ __tmp60704)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60710 __tmp60706))) - (__tmp60694 - (let ((__tmp60695 - (let ((__tmp60704 + (cons __tmp60707 __tmp60703))) + (__tmp60691 + (let ((__tmp60692 + (let ((__tmp60701 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60696 - (let ((__tmp60697 + (__tmp60693 + (let ((__tmp60694 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60699 - (let ((__tmp60703 + (let ((__tmp60696 + (let ((__tmp60700 (gx#datum->syntax '#f 'fx+)) - (__tmp60700 - (let ((__tmp60702 + (__tmp60697 + (let ((__tmp60699 (gx#datum->syntax '#f 'probe)) - (__tmp60701 + (__tmp60698 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60702 __tmp60701)))) + (cons __tmp60699 __tmp60698)))) (declare (not safe)) - (cons __tmp60703 __tmp60700))) - (__tmp60698 + (cons __tmp60700 __tmp60697))) + (__tmp60695 (let () (declare (not safe)) (cons _L58128_ '())))) (declare (not safe)) - (cons __tmp60699 __tmp60698)))) + (cons __tmp60696 __tmp60695)))) (declare (not safe)) - (cons _L58133_ __tmp60697)))) + (cons _L58133_ __tmp60694)))) (declare (not safe)) - (cons __tmp60704 __tmp60696)))) + (cons __tmp60701 __tmp60693)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60695 '())))) + (cons __tmp60692 '())))) (declare (not safe)) - (cons __tmp60705 __tmp60694)))) + (cons __tmp60702 __tmp60691)))) (declare (not safe)) - (cons __tmp60711 __tmp60693))) - (__tmp60669 - (let ((__tmp60670 - (let ((__tmp60691 + (cons __tmp60708 __tmp60690))) + (__tmp60666 + (let ((__tmp60667 + (let ((__tmp60688 (gx#datum->syntax '#f 'else)) - (__tmp60671 - (let ((__tmp60672 - (let ((__tmp60690 + (__tmp60668 + (let ((__tmp60669 + (let ((__tmp60687 (gx#datum->syntax '#f 'loop)) - (__tmp60673 - (let ((__tmp60682 + (__tmp60670 + (let ((__tmp60679 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60689 + (let ((__tmp60686 (gx#datum->syntax '#f 'probe-step)) - (__tmp60683 - (let ((__tmp60688 + (__tmp60680 + (let ((__tmp60685 (gx#datum->syntax '#f 'start)) - (__tmp60684 - (let ((__tmp60687 + (__tmp60681 + (let ((__tmp60684 (gx#datum->syntax '#f 'i)) - (__tmp60685 - (let ((__tmp60686 + (__tmp60682 + (let ((__tmp60683 (gx#datum->syntax '#f 'size))) (declare (not safe)) - (cons __tmp60686 '())))) + (cons __tmp60683 '())))) (declare (not safe)) - (cons __tmp60687 __tmp60685)))) + (cons __tmp60684 __tmp60682)))) (declare (not safe)) - (cons __tmp60688 __tmp60684)))) + (cons __tmp60685 __tmp60681)))) (declare (not safe)) - (cons __tmp60689 __tmp60683))) - (__tmp60674 - (let ((__tmp60677 - (let ((__tmp60681 + (cons __tmp60686 __tmp60680))) + (__tmp60671 + (let ((__tmp60674 + (let ((__tmp60678 (gx#datum->syntax '#f 'fx+)) - (__tmp60678 - (let ((__tmp60680 + (__tmp60675 + (let ((__tmp60677 (gx#datum->syntax '#f 'i)) - (__tmp60679 + (__tmp60676 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60680 __tmp60679)))) + (cons __tmp60677 __tmp60676)))) (declare (not safe)) - (cons __tmp60681 __tmp60678))) - (__tmp60675 - (let ((__tmp60676 + (cons __tmp60678 __tmp60675))) + (__tmp60672 + (let ((__tmp60673 (gx#datum->syntax '#f 'deleted))) (declare (not safe)) - (cons __tmp60676 '())))) + (cons __tmp60673 '())))) (declare (not safe)) - (cons __tmp60677 __tmp60675)))) + (cons __tmp60674 __tmp60672)))) (declare (not safe)) - (cons __tmp60682 __tmp60674)))) + (cons __tmp60679 __tmp60671)))) (declare (not safe)) - (cons __tmp60690 __tmp60673)))) + (cons __tmp60687 __tmp60670)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60672 '())))) + (cons __tmp60669 '())))) (declare (not safe)) - (cons __tmp60691 __tmp60671)))) + (cons __tmp60688 __tmp60668)))) (declare (not safe)) - (cons __tmp60670 '())))) + (cons __tmp60667 '())))) (declare (not safe)) - (cons __tmp60692 __tmp60669)))) + (cons __tmp60689 __tmp60666)))) (declare (not safe)) - (cons __tmp60715 __tmp60668)))) + (cons __tmp60712 __tmp60665)))) (declare (not safe)) - (cons __tmp60748 __tmp60667)))) + (cons __tmp60745 __tmp60664)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60807 __tmp60666)))) + (cons __tmp60804 __tmp60663)))) (declare (not safe)) - (cons __tmp60665 '())))) + (cons __tmp60662 '())))) (declare (not safe)) - (cons __tmp60808 __tmp60664)))) + (cons __tmp60805 __tmp60661)))) (declare (not safe)) - (cons __tmp60816 __tmp60663)))) + (cons __tmp60813 __tmp60660)))) (declare (not safe)) - (cons __tmp60662 '())))) + (cons __tmp60659 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60817 - __tmp60661)))) + (cons __tmp60814 + __tmp60658)))) (declare (not safe)) - (cons __tmp60830 __tmp60660)))) + (cons __tmp60827 __tmp60657)))) (declare (not safe)) - (cons __tmp60831 __tmp60659)))) + (cons __tmp60828 __tmp60656)))) (declare (not safe)) - (cons __tmp60658 '())))) + (cons __tmp60655 '())))) (declare (not safe)) - (cons __tmp60832 __tmp60657)))) + (cons __tmp60829 __tmp60654)))) (declare (not safe)) - (cons __tmp60872 __tmp60656))) + (cons __tmp60869 __tmp60653))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd5802158119_ _hd5801858109_ @@ -3234,267 +3234,267 @@ _L58335_ _L58336_ _L58337_) - (let ((__tmp61104 (gx#datum->syntax '#f 'let*)) - (__tmp60873 - (let ((__tmp61064 - (let ((__tmp61095 - (let ((__tmp61103 + (let ((__tmp61101 (gx#datum->syntax '#f 'let*)) + (__tmp60870 + (let ((__tmp61061 + (let ((__tmp61092 + (let ((__tmp61100 (gx#datum->syntax '#f 'h)) - (__tmp61096 - (let ((__tmp61097 - (let ((__tmp61102 + (__tmp61093 + (let ((__tmp61094 + (let ((__tmp61099 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fxxor)) - (__tmp61098 - (let ((__tmp61100 - (let ((__tmp61101 + (__tmp61095 + (let ((__tmp61097 + (let ((__tmp61098 (let () (declare (not safe)) (cons _L58333_ '())))) (declare (not safe)) - (cons _L58335_ __tmp61101))) - (__tmp61099 + (cons _L58335_ __tmp61098))) + (__tmp61096 (let () (declare (not safe)) (cons _L58336_ '())))) (declare (not safe)) - (cons __tmp61100 __tmp61099)))) + (cons __tmp61097 __tmp61096)))) (declare (not safe)) - (cons __tmp61102 __tmp61098)))) + (cons __tmp61099 __tmp61095)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61097 '())))) + (cons __tmp61094 '())))) (declare (not safe)) - (cons __tmp61103 __tmp61096))) - (__tmp61065 - (let ((__tmp61089 - (let ((__tmp61094 + (cons __tmp61100 __tmp61093))) + (__tmp61062 + (let ((__tmp61086 + (let ((__tmp61091 (gx#datum->syntax '#f 'size)) - (__tmp61090 - (let ((__tmp61091 + (__tmp61087 + (let ((__tmp61088 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp61093 + (let ((__tmp61090 (gx#datum->syntax '#f 'vector-length)) - (__tmp61092 + (__tmp61089 (let () (declare (not safe)) (cons _L58337_ '())))) (declare (not safe)) - (cons __tmp61093 __tmp61092)))) + (cons __tmp61090 __tmp61089)))) (declare (not safe)) - (cons __tmp61091 '())))) + (cons __tmp61088 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61094 - __tmp61090))) - (__tmp61066 - (let ((__tmp61081 - (let ((__tmp61088 + (cons __tmp61091 + __tmp61087))) + (__tmp61063 + (let ((__tmp61078 + (let ((__tmp61085 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'entries)) - (__tmp61082 - (let ((__tmp61083 - (let ((__tmp61087 + (__tmp61079 + (let ((__tmp61080 + (let ((__tmp61084 (gx#datum->syntax '#f 'fxquotient)) - (__tmp61084 - (let ((__tmp61086 + (__tmp61081 + (let ((__tmp61083 (gx#datum->syntax '#f 'size)) - (__tmp61085 + (__tmp61082 (let () (declare (not safe)) (cons '2 '())))) (declare (not safe)) - (cons __tmp61086 __tmp61085)))) + (cons __tmp61083 __tmp61082)))) (declare (not safe)) - (cons __tmp61087 __tmp61084)))) + (cons __tmp61084 __tmp61081)))) (declare (not safe)) - (cons __tmp61083 '())))) + (cons __tmp61080 '())))) (declare (not safe)) - (cons __tmp61088 __tmp61082))) - (__tmp61067 - (let ((__tmp61068 - (let ((__tmp61080 (gx#datum->syntax '#f 'start)) - (__tmp61069 - (let ((__tmp61070 - (let ((__tmp61079 + (cons __tmp61085 __tmp61079))) + (__tmp61064 + (let ((__tmp61065 + (let ((__tmp61077 (gx#datum->syntax '#f 'start)) + (__tmp61066 + (let ((__tmp61067 + (let ((__tmp61076 (gx#datum->syntax '#f 'fxarithmetic-shift-left)) - (__tmp61071 - (let ((__tmp61073 - (let ((__tmp61078 + (__tmp61068 + (let ((__tmp61070 + (let ((__tmp61075 (gx#datum->syntax '#f 'fxmodulo)) - (__tmp61074 - (let ((__tmp61077 + (__tmp61071 + (let ((__tmp61074 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp61075 - (let ((__tmp61076 (gx#datum->syntax '#f 'entries))) + (__tmp61072 + (let ((__tmp61073 (gx#datum->syntax '#f 'entries))) (declare (not safe)) - (cons __tmp61076 '())))) + (cons __tmp61073 '())))) (declare (not safe)) - (cons __tmp61077 __tmp61075)))) + (cons __tmp61074 __tmp61072)))) (declare (not safe)) - (cons __tmp61078 __tmp61074))) + (cons __tmp61075 __tmp61071))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp61072 + (__tmp61069 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp61073 __tmp61072)))) + (cons __tmp61070 __tmp61069)))) (declare (not safe)) - (cons __tmp61079 __tmp61071)))) + (cons __tmp61076 __tmp61068)))) (declare (not safe)) - (cons __tmp61070 '())))) + (cons __tmp61067 '())))) (declare (not safe)) - (cons __tmp61080 __tmp61069)))) + (cons __tmp61077 __tmp61066)))) (declare (not safe)) - (cons __tmp61068 '())))) + (cons __tmp61065 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61081 - __tmp61067)))) + (cons __tmp61078 + __tmp61064)))) (declare (not safe)) - (cons __tmp61089 __tmp61066)))) + (cons __tmp61086 __tmp61063)))) (declare (not safe)) - (cons __tmp61095 __tmp61065))) - (__tmp60874 - (let ((__tmp60875 - (let ((__tmp61063 + (cons __tmp61092 __tmp61062))) + (__tmp60871 + (let ((__tmp60872 + (let ((__tmp61060 (gx#datum->syntax '#f 'let)) - (__tmp60876 - (let ((__tmp61062 + (__tmp60873 + (let ((__tmp61059 (gx#datum->syntax '#f 'loop)) - (__tmp60877 - (let ((__tmp61049 + (__tmp60874 + (let ((__tmp61046 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp61058 - (let ((__tmp61061 + (let ((__tmp61055 + (let ((__tmp61058 (gx#datum->syntax '#f 'probe)) - (__tmp61059 - (let ((__tmp61060 + (__tmp61056 + (let ((__tmp61057 (gx#datum->syntax '#f 'start))) (declare (not safe)) - (cons __tmp61060 '())))) + (cons __tmp61057 '())))) (declare (not safe)) - (cons __tmp61061 __tmp61059))) - (__tmp61050 - (let ((__tmp61055 - (let ((__tmp61057 + (cons __tmp61058 __tmp61056))) + (__tmp61047 + (let ((__tmp61052 + (let ((__tmp61054 (gx#datum->syntax '#f 'i)) - (__tmp61056 + (__tmp61053 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp61057 __tmp61056))) - (__tmp61051 - (let ((__tmp61052 - (let ((__tmp61054 + (cons __tmp61054 __tmp61053))) + (__tmp61048 + (let ((__tmp61049 + (let ((__tmp61051 (gx#datum->syntax '#f 'deleted)) - (__tmp61053 + (__tmp61050 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp61054 __tmp61053)))) + (cons __tmp61051 __tmp61050)))) (declare (not safe)) - (cons __tmp61052 '())))) + (cons __tmp61049 '())))) (declare (not safe)) - (cons __tmp61055 __tmp61051)))) + (cons __tmp61052 __tmp61048)))) (declare (not safe)) - (cons __tmp61058 __tmp61050))) - (__tmp60878 - (let ((__tmp60879 - (let ((__tmp61048 (gx#datum->syntax '#f 'let)) - (__tmp60880 - (let ((__tmp61040 - (let ((__tmp61047 + (cons __tmp61055 __tmp61047))) + (__tmp60875 + (let ((__tmp60876 + (let ((__tmp61045 (gx#datum->syntax '#f 'let)) + (__tmp60877 + (let ((__tmp61037 + (let ((__tmp61044 (gx#datum->syntax '#f 'k)) - (__tmp61041 - (let ((__tmp61042 - (let ((__tmp61046 + (__tmp61038 + (let ((__tmp61039 + (let ((__tmp61043 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'vector-ref)) - (__tmp61043 - (let ((__tmp61044 - (let ((__tmp61045 + (__tmp61040 + (let ((__tmp61041 + (let ((__tmp61042 (gx#datum->syntax '#f 'probe))) (declare (not safe)) - (cons __tmp61045 '())))) + (cons __tmp61042 '())))) (declare (not safe)) - (cons _L58337_ __tmp61044)))) + (cons _L58337_ __tmp61041)))) (declare (not safe)) - (cons __tmp61046 __tmp61043)))) + (cons __tmp61043 __tmp61040)))) (declare (not safe)) - (cons __tmp61042 '())))) + (cons __tmp61039 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61047 __tmp61041))) - (__tmp60881 - (let ((__tmp60882 - (let ((__tmp61039 + (cons __tmp61044 __tmp61038))) + (__tmp60878 + (let ((__tmp60879 + (let ((__tmp61036 (gx#datum->syntax '#f 'cond)) - (__tmp60883 - (let ((__tmp60976 + (__tmp60880 + (let ((__tmp60973 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp61032 - (let ((__tmp61038 + (let ((__tmp61029 + (let ((__tmp61035 (gx#datum->syntax '#f 'eq?)) - (__tmp61033 - (let ((__tmp61037 + (__tmp61030 + (let ((__tmp61034 (gx#datum->syntax '#f 'k)) - (__tmp61034 - (let ((__tmp61035 - (let ((__tmp61036 + (__tmp61031 + (let ((__tmp61032 + (let ((__tmp61033 (gx#datum->syntax '#f 'macro-unused-obj))) (declare (not safe)) - (cons __tmp61036 + (cons __tmp61033 '())))) (declare (not safe)) - (cons __tmp61035 '())))) + (cons __tmp61032 '())))) (declare (not safe)) - (cons __tmp61037 __tmp61034)))) + (cons __tmp61034 __tmp61031)))) (declare (not safe)) - (cons __tmp61038 __tmp61033))) - (__tmp60977 - (let ((__tmp60978 - (let ((__tmp61031 + (cons __tmp61035 __tmp61030))) + (__tmp60974 + (let ((__tmp60975 + (let ((__tmp61028 (gx#datum->syntax '#f 'if)) - (__tmp60979 - (let ((__tmp61030 + (__tmp60976 + (let ((__tmp61027 (gx#datum->syntax '#f 'deleted)) - (__tmp60980 - (let ((__tmp61006 - (let ((__tmp61029 + (__tmp60977 + (let ((__tmp61003 + (let ((__tmp61026 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin)) - (__tmp61007 - (let ((__tmp61023 - (let ((__tmp61028 + (__tmp61004 + (let ((__tmp61020 + (let ((__tmp61025 (gx#datum->syntax '#f 'vector-set!)) - (__tmp61024 - (let ((__tmp61025 - (let ((__tmp61027 + (__tmp61021 + (let ((__tmp61022 + (let ((__tmp61024 (gx#datum->syntax '#f 'deleted)) - (__tmp61026 + (__tmp61023 (let () (declare (not safe)) (cons _L58333_ @@ -3502,134 +3502,134 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61027 - __tmp61026)))) + (cons __tmp61024 + __tmp61023)))) (declare (not safe)) - (cons _L58337_ __tmp61025)))) + (cons _L58337_ __tmp61022)))) (declare (not safe)) - (cons __tmp61028 __tmp61024))) - (__tmp61008 - (let ((__tmp61011 - (let ((__tmp61022 + (cons __tmp61025 __tmp61021))) + (__tmp61005 + (let ((__tmp61008 + (let ((__tmp61019 (gx#datum->syntax '#f 'vector-set!)) - (__tmp61012 - (let ((__tmp61013 - (let ((__tmp61017 - (let ((__tmp61021 + (__tmp61009 + (let ((__tmp61010 + (let ((__tmp61014 + (let ((__tmp61018 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fx+)) - (__tmp61018 - (let ((__tmp61020 + (__tmp61015 + (let ((__tmp61017 (gx#datum->syntax '#f 'deleted)) - (__tmp61019 + (__tmp61016 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp61020 __tmp61019)))) + (cons __tmp61017 __tmp61016)))) (declare (not safe)) - (cons __tmp61021 __tmp61018))) - (__tmp61014 - (let ((__tmp61015 - (let ((__tmp61016 + (cons __tmp61018 __tmp61015))) + (__tmp61011 + (let ((__tmp61012 + (let ((__tmp61013 (let () (declare (not safe)) (cons _L58331_ '())))) (declare (not safe)) - (cons _L58332_ __tmp61016)))) + (cons _L58332_ __tmp61013)))) (declare (not safe)) - (cons __tmp61015 '())))) + (cons __tmp61012 '())))) (declare (not safe)) - (cons __tmp61017 __tmp61014)))) + (cons __tmp61014 __tmp61011)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L58337_ - __tmp61013)))) + __tmp61010)))) (declare (not safe)) - (cons __tmp61022 __tmp61012))) - (__tmp61009 - (let ((__tmp61010 + (cons __tmp61019 __tmp61009))) + (__tmp61006 + (let ((__tmp61007 (let () (declare (not safe)) (cons _L58328_ '())))) (declare (not safe)) - (cons __tmp61010 '())))) + (cons __tmp61007 '())))) (declare (not safe)) - (cons __tmp61011 __tmp61009)))) + (cons __tmp61008 __tmp61006)))) (declare (not safe)) - (cons __tmp61023 __tmp61008)))) + (cons __tmp61020 __tmp61005)))) (declare (not safe)) - (cons __tmp61029 __tmp61007))) - (__tmp60981 - (let ((__tmp60982 - (let ((__tmp61005 (gx#datum->syntax '#f 'begin)) - (__tmp60983 - (let ((__tmp60999 - (let ((__tmp61004 + (cons __tmp61026 __tmp61004))) + (__tmp60978 + (let ((__tmp60979 + (let ((__tmp61002 (gx#datum->syntax '#f 'begin)) + (__tmp60980 + (let ((__tmp60996 + (let ((__tmp61001 (gx#datum->syntax '#f 'vector-set!)) - (__tmp61000 - (let ((__tmp61001 - (let ((__tmp61003 + (__tmp60997 + (let ((__tmp60998 + (let ((__tmp61000 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'probe)) - (__tmp61002 + (__tmp60999 (let () (declare (not safe)) (cons _L58333_ '())))) (declare (not safe)) - (cons __tmp61003 __tmp61002)))) + (cons __tmp61000 __tmp60999)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L58337_ - __tmp61001)))) + __tmp60998)))) (declare (not safe)) - (cons __tmp61004 __tmp61000))) - (__tmp60984 - (let ((__tmp60987 - (let ((__tmp60998 + (cons __tmp61001 __tmp60997))) + (__tmp60981 + (let ((__tmp60984 + (let ((__tmp60995 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60988 - (let ((__tmp60989 - (let ((__tmp60993 + (__tmp60985 + (let ((__tmp60986 + (let ((__tmp60990 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60997 (gx#datum->syntax '#f 'fx+)) - (__tmp60994 - (let ((__tmp60996 + (let ((__tmp60994 (gx#datum->syntax '#f 'fx+)) + (__tmp60991 + (let ((__tmp60993 (gx#datum->syntax '#f 'probe)) - (__tmp60995 + (__tmp60992 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60996 __tmp60995)))) + (cons __tmp60993 __tmp60992)))) (declare (not safe)) - (cons __tmp60997 __tmp60994))) - (__tmp60990 - (let ((__tmp60991 - (let ((__tmp60992 + (cons __tmp60994 __tmp60991))) + (__tmp60987 + (let ((__tmp60988 + (let ((__tmp60989 (let () (declare (not safe)) (cons _L58331_ '())))) (declare (not safe)) - (cons _L58332_ __tmp60992)))) + (cons _L58332_ __tmp60989)))) (declare (not safe)) - (cons __tmp60991 '())))) + (cons __tmp60988 '())))) (declare (not safe)) - (cons __tmp60993 __tmp60990)))) + (cons __tmp60990 __tmp60987)))) (declare (not safe)) - (cons _L58337_ __tmp60989)))) + (cons _L58337_ __tmp60986)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60998 - __tmp60988))) - (__tmp60985 - (let ((__tmp60986 + (cons __tmp60995 + __tmp60985))) + (__tmp60982 + (let ((__tmp60983 (let () (declare (not safe)) (cons _L58330_ @@ -3637,354 +3637,354 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60986 '())))) + (cons __tmp60983 '())))) (declare (not safe)) - (cons __tmp60987 __tmp60985)))) + (cons __tmp60984 __tmp60982)))) (declare (not safe)) - (cons __tmp60999 __tmp60984)))) + (cons __tmp60996 __tmp60981)))) (declare (not safe)) - (cons __tmp61005 __tmp60983)))) + (cons __tmp61002 __tmp60980)))) (declare (not safe)) - (cons __tmp60982 '())))) + (cons __tmp60979 '())))) (declare (not safe)) - (cons __tmp61006 __tmp60981)))) + (cons __tmp61003 __tmp60978)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61030 - __tmp60980)))) + (cons __tmp61027 + __tmp60977)))) (declare (not safe)) - (cons __tmp61031 __tmp60979)))) + (cons __tmp61028 __tmp60976)))) (declare (not safe)) - (cons __tmp60978 '())))) + (cons __tmp60975 '())))) (declare (not safe)) - (cons __tmp61032 __tmp60977))) - (__tmp60884 - (let ((__tmp60943 - (let ((__tmp60969 - (let ((__tmp60975 + (cons __tmp61029 __tmp60974))) + (__tmp60881 + (let ((__tmp60940 + (let ((__tmp60966 + (let ((__tmp60972 (gx#datum->syntax '#f 'eq?)) - (__tmp60970 - (let ((__tmp60974 + (__tmp60967 + (let ((__tmp60971 (gx#datum->syntax '#f 'k)) - (__tmp60971 - (let ((__tmp60972 - (let ((__tmp60973 + (__tmp60968 + (let ((__tmp60969 + (let ((__tmp60970 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'macro-deleted-obj))) (declare (not safe)) - (cons __tmp60973 '())))) + (cons __tmp60970 '())))) (declare (not safe)) - (cons __tmp60972 '())))) + (cons __tmp60969 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60974 - __tmp60971)))) + (cons __tmp60971 + __tmp60968)))) (declare (not safe)) - (cons __tmp60975 __tmp60970))) - (__tmp60944 - (let ((__tmp60945 - (let ((__tmp60968 + (cons __tmp60972 __tmp60967))) + (__tmp60941 + (let ((__tmp60942 + (let ((__tmp60965 (gx#datum->syntax '#f 'loop)) - (__tmp60946 - (let ((__tmp60960 - (let ((__tmp60967 + (__tmp60943 + (let ((__tmp60957 + (let ((__tmp60964 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'probe-step)) - (__tmp60961 - (let ((__tmp60966 (gx#datum->syntax '#f 'start)) - (__tmp60962 - (let ((__tmp60965 + (__tmp60958 + (let ((__tmp60963 (gx#datum->syntax '#f 'start)) + (__tmp60959 + (let ((__tmp60962 (gx#datum->syntax '#f 'i)) - (__tmp60963 - (let ((__tmp60964 + (__tmp60960 + (let ((__tmp60961 (gx#datum->syntax '#f 'size))) (declare (not safe)) - (cons __tmp60964 '())))) + (cons __tmp60961 '())))) (declare (not safe)) - (cons __tmp60965 __tmp60963)))) + (cons __tmp60962 __tmp60960)))) (declare (not safe)) - (cons __tmp60966 __tmp60962)))) + (cons __tmp60963 __tmp60959)))) (declare (not safe)) - (cons __tmp60967 __tmp60961))) - (__tmp60947 - (let ((__tmp60955 - (let ((__tmp60959 (gx#datum->syntax '#f 'fx+)) - (__tmp60956 - (let ((__tmp60958 + (cons __tmp60964 __tmp60958))) + (__tmp60944 + (let ((__tmp60952 + (let ((__tmp60956 (gx#datum->syntax '#f 'fx+)) + (__tmp60953 + (let ((__tmp60955 (gx#datum->syntax '#f 'i)) - (__tmp60957 + (__tmp60954 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60958 __tmp60957)))) + (cons __tmp60955 __tmp60954)))) (declare (not safe)) - (cons __tmp60959 __tmp60956))) - (__tmp60948 - (let ((__tmp60949 - (let ((__tmp60954 + (cons __tmp60956 __tmp60953))) + (__tmp60945 + (let ((__tmp60946 + (let ((__tmp60951 (gx#datum->syntax '#f 'or)) - (__tmp60950 - (let ((__tmp60953 + (__tmp60947 + (let ((__tmp60950 (gx#datum->syntax '#f 'deleted)) - (__tmp60951 - (let ((__tmp60952 + (__tmp60948 + (let ((__tmp60949 (gx#datum->syntax '#f 'probe))) (declare (not safe)) - (cons __tmp60952 '())))) + (cons __tmp60949 '())))) (declare (not safe)) - (cons __tmp60953 __tmp60951)))) + (cons __tmp60950 __tmp60948)))) (declare (not safe)) - (cons __tmp60954 __tmp60950)))) + (cons __tmp60951 __tmp60947)))) (declare (not safe)) - (cons __tmp60949 '())))) + (cons __tmp60946 '())))) (declare (not safe)) - (cons __tmp60955 __tmp60948)))) + (cons __tmp60952 __tmp60945)))) (declare (not safe)) - (cons __tmp60960 __tmp60947)))) + (cons __tmp60957 __tmp60944)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60968 - __tmp60946)))) + (cons __tmp60965 + __tmp60943)))) (declare (not safe)) - (cons __tmp60945 '())))) + (cons __tmp60942 '())))) (declare (not safe)) - (cons __tmp60969 __tmp60944))) - (__tmp60885 - (let ((__tmp60909 - (let ((__tmp60939 - (let ((__tmp60940 - (let ((__tmp60941 - (let ((__tmp60942 + (cons __tmp60966 __tmp60941))) + (__tmp60882 + (let ((__tmp60906 + (let ((__tmp60936 + (let ((__tmp60937 + (let ((__tmp60938 + (let ((__tmp60939 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'k))) (declare (not safe)) - (cons __tmp60942 '())))) + (cons __tmp60939 '())))) (declare (not safe)) - (cons _L58333_ __tmp60941)))) + (cons _L58333_ __tmp60938)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L58334_ __tmp60940))) - (__tmp60910 - (let ((__tmp60933 - (let ((__tmp60938 + (cons _L58334_ __tmp60937))) + (__tmp60907 + (let ((__tmp60930 + (let ((__tmp60935 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60934 - (let ((__tmp60935 + (__tmp60931 + (let ((__tmp60932 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60937 (gx#datum->syntax '#f 'probe)) - (__tmp60936 + (let ((__tmp60934 (gx#datum->syntax '#f 'probe)) + (__tmp60933 (let () (declare (not safe)) (cons _L58333_ '())))) (declare (not safe)) - (cons __tmp60937 __tmp60936)))) + (cons __tmp60934 __tmp60933)))) (declare (not safe)) - (cons _L58337_ __tmp60935)))) + (cons _L58337_ __tmp60932)))) (declare (not safe)) - (cons __tmp60938 __tmp60934))) - (__tmp60911 - (let ((__tmp60912 - (let ((__tmp60932 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60913 - (let ((__tmp60914 - (let ((__tmp60927 - (let ((__tmp60931 + (cons __tmp60935 __tmp60931))) + (__tmp60908 + (let ((__tmp60909 + (let ((__tmp60929 (gx#datum->syntax '#f 'vector-set!)) + (__tmp60910 + (let ((__tmp60911 + (let ((__tmp60924 + (let ((__tmp60928 (gx#datum->syntax '#f 'fx+)) - (__tmp60928 - (let ((__tmp60930 + (__tmp60925 + (let ((__tmp60927 (gx#datum->syntax '#f 'probe)) - (__tmp60929 + (__tmp60926 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60930 - __tmp60929)))) + (cons __tmp60927 + __tmp60926)))) (declare (not safe)) - (cons __tmp60931 __tmp60928))) - (__tmp60915 - (let ((__tmp60916 - (let ((__tmp60917 - (let ((__tmp60918 - (let ((__tmp60926 + (cons __tmp60928 __tmp60925))) + (__tmp60912 + (let ((__tmp60913 + (let ((__tmp60914 + (let ((__tmp60915 + (let ((__tmp60923 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'vector-ref)) - (__tmp60919 - (let ((__tmp60920 - (let ((__tmp60921 - (let ((__tmp60925 + (__tmp60916 + (let ((__tmp60917 + (let ((__tmp60918 + (let ((__tmp60922 (gx#datum->syntax '#f 'fx+)) - (__tmp60922 - (let ((__tmp60924 + (__tmp60919 + (let ((__tmp60921 (gx#datum->syntax '#f 'probe)) - (__tmp60923 + (__tmp60920 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60924 - __tmp60923)))) + (cons __tmp60921 + __tmp60920)))) (declare (not safe)) - (cons __tmp60925 __tmp60922)))) + (cons __tmp60922 __tmp60919)))) (declare (not safe)) - (cons __tmp60921 '())))) + (cons __tmp60918 '())))) (declare (not safe)) - (cons _L58337_ __tmp60920)))) + (cons _L58337_ __tmp60917)))) (declare (not safe)) - (cons __tmp60926 __tmp60919)))) + (cons __tmp60923 __tmp60916)))) (declare (not safe)) - (cons __tmp60918 '())))) + (cons __tmp60915 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L58332_ - __tmp60917)))) + __tmp60914)))) (declare (not safe)) - (cons __tmp60916 '())))) + (cons __tmp60913 '())))) (declare (not safe)) - (cons __tmp60927 __tmp60915)))) + (cons __tmp60924 __tmp60912)))) (declare (not safe)) - (cons _L58337_ __tmp60914)))) + (cons _L58337_ __tmp60911)))) (declare (not safe)) - (cons __tmp60932 __tmp60913)))) + (cons __tmp60929 __tmp60910)))) (declare (not safe)) - (cons __tmp60912 '())))) + (cons __tmp60909 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60933 - __tmp60911)))) + (cons __tmp60930 + __tmp60908)))) (declare (not safe)) - (cons __tmp60939 __tmp60910))) - (__tmp60886 - (let ((__tmp60887 - (let ((__tmp60908 + (cons __tmp60936 __tmp60907))) + (__tmp60883 + (let ((__tmp60884 + (let ((__tmp60905 (gx#datum->syntax '#f 'else)) - (__tmp60888 - (let ((__tmp60889 - (let ((__tmp60907 + (__tmp60885 + (let ((__tmp60886 + (let ((__tmp60904 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'loop)) - (__tmp60890 - (let ((__tmp60899 - (let ((__tmp60906 + (__tmp60887 + (let ((__tmp60896 + (let ((__tmp60903 (gx#datum->syntax '#f 'probe-step)) - (__tmp60900 - (let ((__tmp60905 + (__tmp60897 + (let ((__tmp60902 (gx#datum->syntax '#f 'start)) - (__tmp60901 - (let ((__tmp60904 + (__tmp60898 + (let ((__tmp60901 (gx#datum->syntax '#f 'i)) - (__tmp60902 - (let ((__tmp60903 + (__tmp60899 + (let ((__tmp60900 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'size))) (declare (not safe)) - (cons __tmp60903 '())))) + (cons __tmp60900 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60904 - __tmp60902)))) + (cons __tmp60901 + __tmp60899)))) (declare (not safe)) - (cons __tmp60905 __tmp60901)))) + (cons __tmp60902 __tmp60898)))) (declare (not safe)) - (cons __tmp60906 __tmp60900))) - (__tmp60891 - (let ((__tmp60894 - (let ((__tmp60898 + (cons __tmp60903 __tmp60897))) + (__tmp60888 + (let ((__tmp60891 + (let ((__tmp60895 (gx#datum->syntax '#f 'fx+)) - (__tmp60895 - (let ((__tmp60897 + (__tmp60892 + (let ((__tmp60894 (gx#datum->syntax '#f 'i)) - (__tmp60896 + (__tmp60893 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60897 - __tmp60896)))) + (cons __tmp60894 + __tmp60893)))) (declare (not safe)) - (cons __tmp60898 __tmp60895))) - (__tmp60892 - (let ((__tmp60893 + (cons __tmp60895 __tmp60892))) + (__tmp60889 + (let ((__tmp60890 (gx#datum->syntax '#f 'deleted))) (declare (not safe)) - (cons __tmp60893 '())))) + (cons __tmp60890 '())))) (declare (not safe)) - (cons __tmp60894 __tmp60892)))) + (cons __tmp60891 __tmp60889)))) (declare (not safe)) - (cons __tmp60899 __tmp60891)))) + (cons __tmp60896 __tmp60888)))) (declare (not safe)) - (cons __tmp60907 __tmp60890)))) + (cons __tmp60904 __tmp60887)))) (declare (not safe)) - (cons __tmp60889 '())))) + (cons __tmp60886 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60908 - __tmp60888)))) + (cons __tmp60905 + __tmp60885)))) (declare (not safe)) - (cons __tmp60887 '())))) + (cons __tmp60884 '())))) (declare (not safe)) - (cons __tmp60909 __tmp60886)))) + (cons __tmp60906 __tmp60883)))) (declare (not safe)) - (cons __tmp60943 __tmp60885)))) + (cons __tmp60940 __tmp60882)))) (declare (not safe)) - (cons __tmp60976 __tmp60884)))) + (cons __tmp60973 __tmp60881)))) (declare (not safe)) - (cons __tmp61039 __tmp60883)))) + (cons __tmp61036 __tmp60880)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60882 '())))) + (cons __tmp60879 '())))) (declare (not safe)) - (cons __tmp61040 __tmp60881)))) + (cons __tmp61037 __tmp60878)))) (declare (not safe)) - (cons __tmp61048 __tmp60880)))) + (cons __tmp61045 __tmp60877)))) (declare (not safe)) - (cons __tmp60879 '())))) + (cons __tmp60876 '())))) (declare (not safe)) - (cons __tmp61049 __tmp60878)))) + (cons __tmp61046 __tmp60875)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61062 - __tmp60877)))) + (cons __tmp61059 + __tmp60874)))) (declare (not safe)) - (cons __tmp61063 __tmp60876)))) + (cons __tmp61060 __tmp60873)))) (declare (not safe)) - (cons __tmp60875 '())))) + (cons __tmp60872 '())))) (declare (not safe)) - (cons __tmp61064 __tmp60874)))) + (cons __tmp61061 __tmp60871)))) (declare (not safe)) - (cons __tmp61104 __tmp60873))) + (cons __tmp61101 __tmp60870))) _hd5821458322_ _hd5821158312_ _hd5820858302_ @@ -4103,525 +4103,525 @@ _L58497_ _L58498_ _L58499_) - (let ((__tmp61266 + (let ((__tmp61263 (gx#datum->syntax '#f 'let*)) - (__tmp61105 - (let ((__tmp61226 - (let ((__tmp61257 - (let ((__tmp61265 + (__tmp61102 + (let ((__tmp61223 + (let ((__tmp61254 + (let ((__tmp61262 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp61258 - (let ((__tmp61259 - (let ((__tmp61264 + (__tmp61255 + (let ((__tmp61256 + (let ((__tmp61261 (gx#datum->syntax '#f 'fxxor)) - (__tmp61260 - (let ((__tmp61262 - (let ((__tmp61263 + (__tmp61257 + (let ((__tmp61259 + (let ((__tmp61260 (let () (declare (not safe)) (cons _L58495_ '())))) (declare (not safe)) - (cons _L58497_ __tmp61263))) - (__tmp61261 + (cons _L58497_ __tmp61260))) + (__tmp61258 (let () (declare (not safe)) (cons _L58498_ '())))) (declare (not safe)) - (cons __tmp61262 __tmp61261)))) + (cons __tmp61259 __tmp61258)))) (declare (not safe)) - (cons __tmp61264 __tmp61260)))) + (cons __tmp61261 __tmp61257)))) (declare (not safe)) - (cons __tmp61259 '())))) + (cons __tmp61256 '())))) (declare (not safe)) - (cons __tmp61265 __tmp61258))) - (__tmp61227 - (let ((__tmp61251 - (let ((__tmp61256 (gx#datum->syntax '#f 'size)) - (__tmp61252 - (let ((__tmp61253 - (let ((__tmp61255 + (cons __tmp61262 __tmp61255))) + (__tmp61224 + (let ((__tmp61248 + (let ((__tmp61253 (gx#datum->syntax '#f 'size)) + (__tmp61249 + (let ((__tmp61250 + (let ((__tmp61252 (gx#datum->syntax '#f 'vector-length)) - (__tmp61254 + (__tmp61251 (let () (declare (not safe)) (cons _L58499_ '())))) (declare (not safe)) - (cons __tmp61255 __tmp61254)))) + (cons __tmp61252 __tmp61251)))) (declare (not safe)) - (cons __tmp61253 '())))) + (cons __tmp61250 '())))) (declare (not safe)) - (cons __tmp61256 __tmp61252))) - (__tmp61228 - (let ((__tmp61243 - (let ((__tmp61250 + (cons __tmp61253 __tmp61249))) + (__tmp61225 + (let ((__tmp61240 + (let ((__tmp61247 (gx#datum->syntax '#f 'entries)) - (__tmp61244 - (let ((__tmp61245 - (let ((__tmp61249 + (__tmp61241 + (let ((__tmp61242 + (let ((__tmp61246 (gx#datum->syntax '#f 'fxquotient)) - (__tmp61246 - (let ((__tmp61248 + (__tmp61243 + (let ((__tmp61245 (gx#datum->syntax '#f 'size)) - (__tmp61247 + (__tmp61244 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '2 '())))) (declare (not safe)) - (cons __tmp61248 __tmp61247)))) + (cons __tmp61245 __tmp61244)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61249 - __tmp61246)))) + (cons __tmp61246 + __tmp61243)))) (declare (not safe)) - (cons __tmp61245 '())))) + (cons __tmp61242 '())))) (declare (not safe)) - (cons __tmp61250 __tmp61244))) - (__tmp61229 - (let ((__tmp61230 - (let ((__tmp61242 + (cons __tmp61247 __tmp61241))) + (__tmp61226 + (let ((__tmp61227 + (let ((__tmp61239 (gx#datum->syntax '#f 'start)) - (__tmp61231 - (let ((__tmp61232 - (let ((__tmp61241 + (__tmp61228 + (let ((__tmp61229 + (let ((__tmp61238 (gx#datum->syntax '#f 'fxarithmetic-shift-left)) - (__tmp61233 - (let ((__tmp61235 + (__tmp61230 + (let ((__tmp61232 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp61240 + (let ((__tmp61237 (gx#datum->syntax '#f 'fxmodulo)) - (__tmp61236 - (let ((__tmp61239 + (__tmp61233 + (let ((__tmp61236 (gx#datum->syntax '#f 'h)) - (__tmp61237 - (let ((__tmp61238 + (__tmp61234 + (let ((__tmp61235 (gx#datum->syntax '#f 'entries))) (declare (not safe)) - (cons __tmp61238 '())))) + (cons __tmp61235 '())))) (declare (not safe)) - (cons __tmp61239 __tmp61237)))) + (cons __tmp61236 __tmp61234)))) (declare (not safe)) - (cons __tmp61240 __tmp61236))) - (__tmp61234 + (cons __tmp61237 __tmp61233))) + (__tmp61231 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp61235 __tmp61234)))) + (cons __tmp61232 __tmp61231)))) (declare (not safe)) - (cons __tmp61241 __tmp61233)))) + (cons __tmp61238 __tmp61230)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61232 '())))) + (cons __tmp61229 '())))) (declare (not safe)) - (cons __tmp61242 __tmp61231)))) + (cons __tmp61239 __tmp61228)))) (declare (not safe)) - (cons __tmp61230 '())))) + (cons __tmp61227 '())))) (declare (not safe)) - (cons __tmp61243 __tmp61229)))) + (cons __tmp61240 __tmp61226)))) (declare (not safe)) - (cons __tmp61251 __tmp61228)))) + (cons __tmp61248 __tmp61225)))) (declare (not safe)) - (cons __tmp61257 __tmp61227))) + (cons __tmp61254 __tmp61224))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp61106 - (let ((__tmp61107 - (let ((__tmp61225 + (__tmp61103 + (let ((__tmp61104 + (let ((__tmp61222 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp61108 - (let ((__tmp61224 (gx#datum->syntax '#f 'loop)) - (__tmp61109 - (let ((__tmp61215 - (let ((__tmp61220 - (let ((__tmp61223 + (__tmp61105 + (let ((__tmp61221 (gx#datum->syntax '#f 'loop)) + (__tmp61106 + (let ((__tmp61212 + (let ((__tmp61217 + (let ((__tmp61220 (gx#datum->syntax '#f 'probe)) - (__tmp61221 - (let ((__tmp61222 + (__tmp61218 + (let ((__tmp61219 (gx#datum->syntax '#f 'start))) (declare (not safe)) - (cons __tmp61222 + (cons __tmp61219 '())))) (declare (not safe)) - (cons __tmp61223 - __tmp61221))) - (__tmp61216 - (let ((__tmp61217 - (let ((__tmp61219 + (cons __tmp61220 + __tmp61218))) + (__tmp61213 + (let ((__tmp61214 + (let ((__tmp61216 (gx#datum->syntax '#f 'i)) - (__tmp61218 + (__tmp61215 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp61219 __tmp61218)))) + (cons __tmp61216 __tmp61215)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61217 '())))) + (cons __tmp61214 '())))) (declare (not safe)) - (cons __tmp61220 __tmp61216))) - (__tmp61110 - (let ((__tmp61111 - (let ((__tmp61214 + (cons __tmp61217 __tmp61213))) + (__tmp61107 + (let ((__tmp61108 + (let ((__tmp61211 (gx#datum->syntax '#f 'let)) - (__tmp61112 - (let ((__tmp61206 - (let ((__tmp61213 + (__tmp61109 + (let ((__tmp61203 + (let ((__tmp61210 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'k)) - (__tmp61207 - (let ((__tmp61208 - (let ((__tmp61212 + (__tmp61204 + (let ((__tmp61205 + (let ((__tmp61209 (gx#datum->syntax '#f 'vector-ref)) - (__tmp61209 - (let ((__tmp61210 - (let ((__tmp61211 + (__tmp61206 + (let ((__tmp61207 + (let ((__tmp61208 (gx#datum->syntax '#f 'probe))) (declare (not safe)) - (cons __tmp61211 '())))) + (cons __tmp61208 '())))) (declare (not safe)) - (cons _L58499_ __tmp61210)))) + (cons _L58499_ __tmp61207)))) (declare (not safe)) - (cons __tmp61212 __tmp61209)))) + (cons __tmp61209 __tmp61206)))) (declare (not safe)) - (cons __tmp61208 '())))) + (cons __tmp61205 '())))) (declare (not safe)) - (cons __tmp61213 __tmp61207))) - (__tmp61113 - (let ((__tmp61114 - (let ((__tmp61205 (gx#datum->syntax '#f 'cond)) - (__tmp61115 - (let ((__tmp61194 - (let ((__tmp61198 - (let ((__tmp61204 + (cons __tmp61210 __tmp61204))) + (__tmp61110 + (let ((__tmp61111 + (let ((__tmp61202 (gx#datum->syntax '#f 'cond)) + (__tmp61112 + (let ((__tmp61191 + (let ((__tmp61195 + (let ((__tmp61201 (gx#datum->syntax '#f 'eq?)) - (__tmp61199 - (let ((__tmp61203 + (__tmp61196 + (let ((__tmp61200 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'k)) - (__tmp61200 - (let ((__tmp61201 - (let ((__tmp61202 + (__tmp61197 + (let ((__tmp61198 + (let ((__tmp61199 (gx#datum->syntax '#f 'macro-unused-obj))) (declare (not safe)) - (cons __tmp61202 '())))) + (cons __tmp61199 '())))) (declare (not safe)) - (cons __tmp61201 '())))) + (cons __tmp61198 '())))) (declare (not safe)) - (cons __tmp61203 __tmp61200)))) + (cons __tmp61200 __tmp61197)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61204 - __tmp61199))) - (__tmp61195 - (let ((__tmp61196 - (let ((__tmp61197 + (cons __tmp61201 + __tmp61196))) + (__tmp61192 + (let ((__tmp61193 + (let ((__tmp61194 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'void))) (declare (not safe)) - (cons __tmp61197 '())))) + (cons __tmp61194 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61196 '())))) + (cons __tmp61193 '())))) (declare (not safe)) - (cons __tmp61198 __tmp61195))) - (__tmp61116 - (let ((__tmp61168 - (let ((__tmp61187 - (let ((__tmp61193 + (cons __tmp61195 __tmp61192))) + (__tmp61113 + (let ((__tmp61165 + (let ((__tmp61184 + (let ((__tmp61190 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'eq?)) - (__tmp61188 - (let ((__tmp61192 (gx#datum->syntax '#f 'k)) - (__tmp61189 - (let ((__tmp61190 - (let ((__tmp61191 + (__tmp61185 + (let ((__tmp61189 (gx#datum->syntax '#f 'k)) + (__tmp61186 + (let ((__tmp61187 + (let ((__tmp61188 (gx#datum->syntax '#f 'macro-deleted-obj))) (declare (not safe)) - (cons __tmp61191 '())))) + (cons __tmp61188 '())))) (declare (not safe)) - (cons __tmp61190 '())))) + (cons __tmp61187 '())))) (declare (not safe)) - (cons __tmp61192 __tmp61189)))) + (cons __tmp61189 __tmp61186)))) (declare (not safe)) - (cons __tmp61193 __tmp61188))) - (__tmp61169 - (let ((__tmp61170 - (let ((__tmp61186 (gx#datum->syntax '#f 'loop)) - (__tmp61171 - (let ((__tmp61178 - (let ((__tmp61185 + (cons __tmp61190 __tmp61185))) + (__tmp61166 + (let ((__tmp61167 + (let ((__tmp61183 (gx#datum->syntax '#f 'loop)) + (__tmp61168 + (let ((__tmp61175 + (let ((__tmp61182 (gx#datum->syntax '#f 'probe-step)) - (__tmp61179 - (let ((__tmp61184 + (__tmp61176 + (let ((__tmp61181 (gx#datum->syntax '#f 'start)) - (__tmp61180 - (let ((__tmp61183 + (__tmp61177 + (let ((__tmp61180 (gx#datum->syntax '#f 'i)) - (__tmp61181 - (let ((__tmp61182 + (__tmp61178 + (let ((__tmp61179 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'size))) (declare (not safe)) - (cons __tmp61182 '())))) + (cons __tmp61179 '())))) (declare (not safe)) - (cons __tmp61183 __tmp61181)))) + (cons __tmp61180 __tmp61178)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61184 __tmp61180)))) + (cons __tmp61181 __tmp61177)))) (declare (not safe)) - (cons __tmp61185 __tmp61179))) - (__tmp61172 - (let ((__tmp61173 - (let ((__tmp61177 + (cons __tmp61182 __tmp61176))) + (__tmp61169 + (let ((__tmp61170 + (let ((__tmp61174 (gx#datum->syntax '#f 'fx+)) - (__tmp61174 - (let ((__tmp61176 + (__tmp61171 + (let ((__tmp61173 (gx#datum->syntax '#f 'i)) - (__tmp61175 + (__tmp61172 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp61176 - __tmp61175)))) + (cons __tmp61173 + __tmp61172)))) (declare (not safe)) - (cons __tmp61177 __tmp61174)))) + (cons __tmp61174 __tmp61171)))) (declare (not safe)) - (cons __tmp61173 '())))) + (cons __tmp61170 '())))) (declare (not safe)) - (cons __tmp61178 __tmp61172)))) + (cons __tmp61175 __tmp61169)))) (declare (not safe)) - (cons __tmp61186 __tmp61171)))) + (cons __tmp61183 __tmp61168)))) (declare (not safe)) - (cons __tmp61170 '())))) + (cons __tmp61167 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61187 - __tmp61169))) - (__tmp61117 - (let ((__tmp61139 - (let ((__tmp61164 - (let ((__tmp61165 + (cons __tmp61184 + __tmp61166))) + (__tmp61114 + (let ((__tmp61136 + (let ((__tmp61161 + (let ((__tmp61162 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp61166 - (let ((__tmp61167 + (let ((__tmp61163 + (let ((__tmp61164 (gx#datum->syntax '#f 'k))) (declare (not safe)) - (cons __tmp61167 '())))) + (cons __tmp61164 '())))) (declare (not safe)) - (cons _L58495_ __tmp61166)))) + (cons _L58495_ __tmp61163)))) (declare (not safe)) - (cons _L58496_ __tmp61165))) - (__tmp61140 - (let ((__tmp61156 - (let ((__tmp61163 + (cons _L58496_ __tmp61162))) + (__tmp61137 + (let ((__tmp61153 + (let ((__tmp61160 (gx#datum->syntax '#f 'vector-set!)) - (__tmp61157 - (let ((__tmp61158 - (let ((__tmp61162 + (__tmp61154 + (let ((__tmp61155 + (let ((__tmp61159 (gx#datum->syntax '#f 'probe)) - (__tmp61159 - (let ((__tmp61160 - (let ((__tmp61161 + (__tmp61156 + (let ((__tmp61157 + (let ((__tmp61158 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'macro-deleted-obj))) (declare (not safe)) - (cons __tmp61161 '())))) + (cons __tmp61158 '())))) (declare (not safe)) - (cons __tmp61160 '())))) + (cons __tmp61157 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61162 __tmp61159)))) + (cons __tmp61159 __tmp61156)))) (declare (not safe)) - (cons _L58499_ __tmp61158)))) + (cons _L58499_ __tmp61155)))) (declare (not safe)) - (cons __tmp61163 __tmp61157))) - (__tmp61141 - (let ((__tmp61144 - (let ((__tmp61155 + (cons __tmp61160 __tmp61154))) + (__tmp61138 + (let ((__tmp61141 + (let ((__tmp61152 (gx#datum->syntax '#f 'vector-set!)) - (__tmp61145 - (let ((__tmp61146 - (let ((__tmp61150 - (let ((__tmp61154 + (__tmp61142 + (let ((__tmp61143 + (let ((__tmp61147 + (let ((__tmp61151 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fx+)) - (__tmp61151 - (let ((__tmp61153 (gx#datum->syntax '#f 'probe)) - (__tmp61152 + (__tmp61148 + (let ((__tmp61150 (gx#datum->syntax '#f 'probe)) + (__tmp61149 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp61153 __tmp61152)))) + (cons __tmp61150 __tmp61149)))) (declare (not safe)) - (cons __tmp61154 __tmp61151))) - (__tmp61147 - (let ((__tmp61148 - (let ((__tmp61149 + (cons __tmp61151 __tmp61148))) + (__tmp61144 + (let ((__tmp61145 + (let ((__tmp61146 (gx#datum->syntax '#f 'macro-absent-obj))) (declare (not safe)) - (cons __tmp61149 '())))) + (cons __tmp61146 '())))) (declare (not safe)) - (cons __tmp61148 '())))) + (cons __tmp61145 '())))) (declare (not safe)) - (cons __tmp61150 __tmp61147)))) + (cons __tmp61147 __tmp61144)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L58499_ __tmp61146)))) + (cons _L58499_ __tmp61143)))) (declare (not safe)) - (cons __tmp61155 __tmp61145))) - (__tmp61142 - (let ((__tmp61143 + (cons __tmp61152 __tmp61142))) + (__tmp61139 + (let ((__tmp61140 (let () (declare (not safe)) (cons _L58493_ '())))) (declare (not safe)) - (cons __tmp61143 '())))) + (cons __tmp61140 '())))) (declare (not safe)) - (cons __tmp61144 __tmp61142)))) + (cons __tmp61141 __tmp61139)))) (declare (not safe)) - (cons __tmp61156 __tmp61141)))) + (cons __tmp61153 __tmp61138)))) (declare (not safe)) - (cons __tmp61164 __tmp61140))) - (__tmp61118 - (let ((__tmp61119 - (let ((__tmp61138 (gx#datum->syntax '#f 'else)) - (__tmp61120 - (let ((__tmp61121 - (let ((__tmp61137 + (cons __tmp61161 __tmp61137))) + (__tmp61115 + (let ((__tmp61116 + (let ((__tmp61135 (gx#datum->syntax '#f 'else)) + (__tmp61117 + (let ((__tmp61118 + (let ((__tmp61134 (gx#datum->syntax '#f 'loop)) - (__tmp61122 - (let ((__tmp61129 - (let ((__tmp61136 + (__tmp61119 + (let ((__tmp61126 + (let ((__tmp61133 (gx#datum->syntax '#f 'probe-step)) - (__tmp61130 - (let ((__tmp61135 + (__tmp61127 + (let ((__tmp61132 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'start)) - (__tmp61131 - (let ((__tmp61134 (gx#datum->syntax '#f 'i)) - (__tmp61132 - (let ((__tmp61133 + (__tmp61128 + (let ((__tmp61131 (gx#datum->syntax '#f 'i)) + (__tmp61129 + (let ((__tmp61130 (gx#datum->syntax '#f 'size))) (declare (not safe)) - (cons __tmp61133 '())))) + (cons __tmp61130 '())))) (declare (not safe)) - (cons __tmp61134 __tmp61132)))) + (cons __tmp61131 __tmp61129)))) (declare (not safe)) - (cons __tmp61135 __tmp61131)))) + (cons __tmp61132 __tmp61128)))) (declare (not safe)) - (cons __tmp61136 __tmp61130))) + (cons __tmp61133 __tmp61127))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp61123 - (let ((__tmp61124 - (let ((__tmp61128 + (__tmp61120 + (let ((__tmp61121 + (let ((__tmp61125 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fx+)) - (__tmp61125 - (let ((__tmp61127 (gx#datum->syntax '#f 'i)) - (__tmp61126 + (__tmp61122 + (let ((__tmp61124 (gx#datum->syntax '#f 'i)) + (__tmp61123 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp61127 __tmp61126)))) + (cons __tmp61124 __tmp61123)))) (declare (not safe)) - (cons __tmp61128 __tmp61125)))) + (cons __tmp61125 __tmp61122)))) (declare (not safe)) - (cons __tmp61124 '())))) + (cons __tmp61121 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61129 __tmp61123)))) + (cons __tmp61126 __tmp61120)))) (declare (not safe)) - (cons __tmp61137 __tmp61122)))) + (cons __tmp61134 __tmp61119)))) (declare (not safe)) - (cons __tmp61121 '())))) + (cons __tmp61118 '())))) (declare (not safe)) - (cons __tmp61138 __tmp61120)))) + (cons __tmp61135 __tmp61117)))) (declare (not safe)) - (cons __tmp61119 '())))) + (cons __tmp61116 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61139 - __tmp61118)))) + (cons __tmp61136 + __tmp61115)))) (declare (not safe)) - (cons __tmp61168 __tmp61117)))) + (cons __tmp61165 __tmp61114)))) (declare (not safe)) - (cons __tmp61194 __tmp61116)))) + (cons __tmp61191 __tmp61113)))) (declare (not safe)) - (cons __tmp61205 __tmp61115)))) + (cons __tmp61202 __tmp61112)))) (declare (not safe)) - (cons __tmp61114 '())))) + (cons __tmp61111 '())))) (declare (not safe)) - (cons __tmp61206 __tmp61113)))) + (cons __tmp61203 __tmp61110)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61214 - __tmp61112)))) + (cons __tmp61211 + __tmp61109)))) (declare (not safe)) - (cons __tmp61111 '())))) + (cons __tmp61108 '())))) (declare (not safe)) - (cons __tmp61215 __tmp61110)))) + (cons __tmp61212 __tmp61107)))) (declare (not safe)) - (cons __tmp61224 __tmp61109)))) + (cons __tmp61221 __tmp61106)))) (declare (not safe)) - (cons __tmp61225 __tmp61108)))) + (cons __tmp61222 __tmp61105)))) (declare (not safe)) - (cons __tmp61107 '())))) + (cons __tmp61104 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61226 __tmp61106)))) + (cons __tmp61223 __tmp61103)))) (declare (not safe)) - (cons __tmp61266 __tmp61105))) + (cons __tmp61263 __tmp61102))) _hd5840958487_ _hd5840658477_ _hd5840358467_ diff --git a/src/bootstrap/gerbil/runtime/thread__0.scm b/src/bootstrap/gerbil/runtime/thread__0.scm index 179c0655..b91f2a43 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 1709128371) + (define gerbil/runtime/thread::timestamp 1709229969) (begin (define spawn - (lambda (_f73447_ . _args73448_) - (if (let () (declare (not safe)) (procedure? _f73447_)) + (lambda (_f73444_ . _args73445_) + (if (let () (declare (not safe)) (procedure? _f73444_)) '#!void - (raise (let ((__obj73449 + (raise (let ((__obj73446 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj73449 + __obj73446 '"expected procedure" 'where: 'spawn 'irritants: - (let () (declare (not safe)) (cons _f73447_ '()))) - __obj73449))) + (let () (declare (not safe)) (cons _f73444_ '()))) + __obj73446))) (let () (declare (not safe)) - (spawn-actor _f73447_ _args73448_ '#!void '#f)))) + (spawn-actor _f73444_ _args73445_ '#!void '#f)))) (define spawn/name - (lambda (_name73443_ _f73444_ . _args73445_) - (if (let () (declare (not safe)) (procedure? _f73444_)) + (lambda (_name73440_ _f73441_ . _args73442_) + (if (let () (declare (not safe)) (procedure? _f73441_)) '#!void - (raise (let ((__obj73450 + (raise (let ((__obj73447 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj73450 + __obj73447 '"expected procedure" 'where: 'spawn/name 'irritants: - (let () (declare (not safe)) (cons _f73444_ '()))) - __obj73450))) + (let () (declare (not safe)) (cons _f73441_ '()))) + __obj73447))) (let () (declare (not safe)) - (spawn-actor _f73444_ _args73445_ _name73443_ '#f)))) + (spawn-actor _f73441_ _args73442_ _name73440_ '#f)))) (define spawn/group - (lambda (_name73437_ _f73438_ . _args73439_) - (if (let () (declare (not safe)) (procedure? _f73438_)) + (lambda (_name73434_ _f73435_ . _args73436_) + (if (let () (declare (not safe)) (procedure? _f73435_)) '#!void - (raise (let ((__obj73451 + (raise (let ((__obj73448 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj73451 + __obj73448 '"expected procedure" 'where: 'spawn/group 'irritants: - (let () (declare (not safe)) (cons _f73438_ '()))) - __obj73451))) - (let ((_tgroup73441_ (make-thread-group _name73437_))) + (let () (declare (not safe)) (cons _f73435_ '()))) + __obj73448))) + (let ((_tgroup73438_ (make-thread-group _name73434_))) (declare (not safe)) - (spawn-actor _f73438_ _args73439_ _name73437_ _tgroup73441_)))) + (spawn-actor _f73435_ _args73436_ _name73434_ _tgroup73438_)))) (define spawn-actor - (lambda (_f73410_ _args73411_ _name73412_ _tgroup73413_) - (letrec ((_thread-main73415_ - (lambda (_thunk73429_) + (lambda (_f73407_ _args73408_ _name73409_ _tgroup73410_) + (letrec ((_thread-main73412_ + (lambda (_thunk73426_) (lambda () (with-exception-handler - (lambda (_exn73432_) - (let ((__tmp73453 - (lambda (_cont73434_) + (lambda (_exn73429_) + (let ((__tmp73450 + (lambda (_cont73431_) (if __unhandled-actor-exception-hook - (let ((__tmp73454 + (let ((__tmp73451 (lambda () (__unhandled-actor-exception-hook - _cont73434_ - _exn73432_)))) + _cont73431_ + _exn73429_)))) (declare (not safe)) - (with-catch void __tmp73454)) + (with-catch void __tmp73451)) '#!void) - (let ((__tmp73455 + (let ((__tmp73452 (let () (declare (not safe)) - (##continuation-last _cont73434_)))) + (##continuation-last _cont73431_)))) (declare (not safe)) (##continuation-graft - __tmp73455 + __tmp73452 ##primordial-exception-handler - _exn73432_))))) + _exn73429_))))) (declare (not safe)) - (##continuation-capture __tmp73453))) - _thunk73429_))))) - (let* ((_thunk73418_ - (if (let () (declare (not safe)) (null? _args73411_)) - _f73410_ - (lambda () (apply _f73410_ _args73411_)))) - (_thunk73421_ + (##continuation-capture __tmp73450))) + _thunk73426_))))) + (let* ((_thunk73415_ + (if (let () (declare (not safe)) (null? _args73408_)) + _f73407_ + (lambda () (apply _f73407_ _args73408_)))) + (_thunk73418_ (lambda () (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk73418_)))) - (_tgroup73426_ - (let ((_$e73423_ _tgroup73413_)) - (if _$e73423_ - _$e73423_ + (with-exception-stack-trace__0 _thunk73415_)))) + (_tgroup73423_ + (let ((_$e73420_ _tgroup73410_)) + (if _$e73420_ + _$e73420_ (let () (declare (not safe)) (current-thread-group)))))) (thread-start! (thread-init! (construct-actor-thread '#f '0) - (let () (declare (not safe)) (_thread-main73415_ _thunk73421_)) - _name73412_ - _tgroup73426_)))))) + (let () (declare (not safe)) (_thread-main73412_ _thunk73418_)) + _name73409_ + _tgroup73423_)))))) (define spawn-thread__% - (lambda (_thunk73388_ _name73389_ _tgroup73390_) - (thread-start! (make-thread _thunk73388_ _name73389_ _tgroup73390_)))) + (lambda (_thunk73385_ _name73386_ _tgroup73387_) + (thread-start! (make-thread _thunk73385_ _name73386_ _tgroup73387_)))) (define spawn-thread__0 - (lambda (_thunk73395_) - (let* ((_name73397_ absent-obj) (_tgroup73399_ absent-obj)) + (lambda (_thunk73392_) + (let* ((_name73394_ absent-obj) (_tgroup73396_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk73395_ _name73397_ _tgroup73399_)))) + (spawn-thread__% _thunk73392_ _name73394_ _tgroup73396_)))) (define spawn-thread__1 - (lambda (_thunk73401_ _name73402_) - (let ((_tgroup73404_ absent-obj)) + (lambda (_thunk73398_ _name73399_) + (let ((_tgroup73401_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk73401_ _name73402_ _tgroup73404_)))) + (spawn-thread__% _thunk73398_ _name73399_ _tgroup73401_)))) (define spawn-thread - (lambda _g73457_ - (let ((_g73456_ (let () (declare (not safe)) (##length _g73457_)))) - (cond ((let () (declare (not safe)) (##fx= _g73456_ 1)) - (apply (lambda (_thunk73395_) + (lambda _g73454_ + (let ((_g73453_ (let () (declare (not safe)) (##length _g73454_)))) + (cond ((let () (declare (not safe)) (##fx= _g73453_ 1)) + (apply (lambda (_thunk73392_) (let () (declare (not safe)) - (spawn-thread__0 _thunk73395_))) - _g73457_)) - ((let () (declare (not safe)) (##fx= _g73456_ 2)) - (apply (lambda (_thunk73401_ _name73402_) + (spawn-thread__0 _thunk73392_))) + _g73454_)) + ((let () (declare (not safe)) (##fx= _g73453_ 2)) + (apply (lambda (_thunk73398_ _name73399_) (let () (declare (not safe)) - (spawn-thread__1 _thunk73401_ _name73402_))) - _g73457_)) - ((let () (declare (not safe)) (##fx= _g73456_ 3)) - (apply (lambda (_thunk73406_ _name73407_ _tgroup73408_) + (spawn-thread__1 _thunk73398_ _name73399_))) + _g73454_)) + ((let () (declare (not safe)) (##fx= _g73453_ 3)) + (apply (lambda (_thunk73403_ _name73404_ _tgroup73405_) (let () (declare (not safe)) (spawn-thread__% - _thunk73406_ - _name73407_ - _tgroup73408_))) - _g73457_)) + _thunk73403_ + _name73404_ + _tgroup73405_))) + _g73454_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g73457_)))))) + _g73454_)))))) (define thread-local-ref__% - (lambda (_key73372_ _default73373_) - (let ((_tab73375_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key73369_ _default73370_) + (let ((_tab73372_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (hash-ref__% _tab73375_ _key73372_ _default73373_)))) + (hash-ref__% _tab73372_ _key73369_ _default73370_)))) (define thread-local-ref__0 - (lambda (_key73380_) - (let ((_default73382_ absent-obj)) + (lambda (_key73377_) + (let ((_default73379_ absent-obj)) (declare (not safe)) - (thread-local-ref__% _key73380_ _default73382_)))) + (thread-local-ref__% _key73377_ _default73379_)))) (define thread-local-ref - (lambda _g73459_ - (let ((_g73458_ (let () (declare (not safe)) (##length _g73459_)))) - (cond ((let () (declare (not safe)) (##fx= _g73458_ 1)) - (apply (lambda (_key73380_) + (lambda _g73456_ + (let ((_g73455_ (let () (declare (not safe)) (##length _g73456_)))) + (cond ((let () (declare (not safe)) (##fx= _g73455_ 1)) + (apply (lambda (_key73377_) (let () (declare (not safe)) - (thread-local-ref__0 _key73380_))) - _g73459_)) - ((let () (declare (not safe)) (##fx= _g73458_ 2)) - (apply (lambda (_key73384_ _default73385_) + (thread-local-ref__0 _key73377_))) + _g73456_)) + ((let () (declare (not safe)) (##fx= _g73455_ 2)) + (apply (lambda (_key73381_ _default73382_) (let () (declare (not safe)) - (thread-local-ref__% _key73384_ _default73385_))) - _g73459_)) + (thread-local-ref__% _key73381_ _default73382_))) + _g73456_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g73459_)))))) + _g73456_)))))) (define thread-local-get - (lambda (_key73369_) - (let () (declare (not safe)) (thread-local-ref__% _key73369_ '#f)))) + (lambda (_key73366_) + (let () (declare (not safe)) (thread-local-ref__% _key73366_ '#f)))) (define thread-local-set! - (lambda (_key73364_ _value73365_) - (let ((_tab73367_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key73361_ _value73362_) + (let ((_tab73364_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (hash-put! _tab73367_ _key73364_ _value73365_)))) + (hash-put! _tab73364_ _key73361_ _value73362_)))) (define thread-local-clear! - (lambda (_key73360_) - (let ((_tab73362_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key73357_) + (let ((_tab73359_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (hash-remove! _tab73362_ _key73360_)))) + (hash-remove! _tab73359_ _key73357_)))) (define thread-local-table (lambda () - (let ((_thr73346_ (current-thread))) - (if (actor-thread? _thr73346_) - (let ((_$e73348_ (actor-thread-locals _thr73346_))) - (if _$e73348_ - (values _$e73348_) - (let ((_tab73351_ + (let ((_thr73343_ (current-thread))) + (if (actor-thread? _thr73343_) + (let ((_$e73345_ (actor-thread-locals _thr73343_))) + (if _$e73345_ + (values _$e73345_) + (let ((_tab73348_ (let () (declare (not safe)) (make-hash-table-eq)))) - (actor-thread-locals-set! _thr73346_ _tab73351_) - _tab73351_))) + (actor-thread-locals-set! _thr73343_ _tab73348_) + _tab73348_))) (if (let () (declare (not safe)) - (eq? _thr73346_ ##primordial-thread)) + (eq? _thr73343_ ##primordial-thread)) __primordial-thread-locals (begin (mutex-lock! __thread-locals-mutex) - (let ((_$e73353_ + (let ((_$e73350_ (let () (declare (not safe)) - (hash-get __thread-locals _thr73346_)))) - (if _$e73353_ - ((lambda (_tab73356_) + (hash-get __thread-locals _thr73343_)))) + (if _$e73350_ + ((lambda (_tab73353_) (mutex-unlock! __thread-locals-mutex) - _tab73356_) - _$e73353_) - (let ((_tab73358_ + _tab73353_) + _$e73350_) + (let ((_tab73355_ (let () (declare (not safe)) (make-hash-table-eq)))) @@ -228,10 +228,10 @@ (declare (not safe)) (hash-put! __thread-locals - _thr73346_ - _tab73358_)) + _thr73343_ + _tab73355_)) (mutex-unlock! __thread-locals-mutex) - _tab73358_))))))))) + _tab73355_))))))))) (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 (_proc73343_) - (if (let () (declare (not safe)) (procedure? _proc73343_)) + (lambda (_proc73340_) + (if (let () (declare (not safe)) (procedure? _proc73340_)) '#!void - (raise (let ((__obj73452 + (raise (let ((__obj73449 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj73452 + __obj73449 '"Bad argument; expected procedure or #f" 'where: 'unhandler-actor-exception-hook-set! 'irritants: - (let () (declare (not safe)) (cons _proc73343_ '()))) - __obj73452))) - (set! __unhandled-actor-exception-hook _proc73343_))) + (let () (declare (not safe)) (cons _proc73340_ '()))) + __obj73449))) + (set! __unhandled-actor-exception-hook _proc73340_))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_mx73331_ _proc73332_) - (let ((_handler73334_ (current-exception-handler))) + (lambda (_mx73328_ _proc73329_) + (let ((_handler73331_ (current-exception-handler))) (with-exception-handler - (lambda (_e73336_) - (let ((__tmp73460 + (lambda (_e73333_) + (let ((__tmp73457 (lambda () - (mutex-unlock! _mx73331_) - (_handler73334_ _e73336_)))) + (mutex-unlock! _mx73328_) + (_handler73331_ _e73333_)))) (declare (not safe)) - (with-catch void __tmp73460)) + (with-catch void __tmp73457)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _e73336_))) + (##thread-end-with-uncaught-exception! _e73333_))) (lambda () - (mutex-lock! _mx73331_) - (let ((_result73340_ (_proc73332_))) - (mutex-unlock! _mx73331_) - _result73340_)))))) + (mutex-lock! _mx73328_) + (let ((_result73337_ (_proc73329_))) + (mutex-unlock! _mx73328_) + _result73337_)))))) (define with-dynamic-lock - (lambda (_mx73326_ _proc73327_) + (lambda (_mx73323_ _proc73324_) (dynamic-wind - (lambda () (mutex-lock! _mx73326_)) - _proc73327_ - (lambda () (mutex-unlock! _mx73326_))))) + (lambda () (mutex-lock! _mx73323_)) + _proc73324_ + (lambda () (mutex-unlock! _mx73323_))))) (define with-exception-stack-trace__% - (lambda (_thunk73307_ _error-port73308_) + (lambda (_thunk73304_ _error-port73305_) (with-exception-handler - (let ((_E73310_ (current-exception-handler))) - (lambda (_exn73312_) + (let ((_E73307_ (current-exception-handler))) + (lambda (_exn73309_) (continuation-capture - (lambda (_cont73314_) + (lambda (_cont73311_) (if (dump-stack-trace?) (let () (declare (not safe)) (dump-stack-trace!__% - _cont73314_ - _exn73312_ - _error-port73308_)) + _cont73311_ + _exn73309_ + _error-port73305_)) '#!void) - (_E73310_ _exn73312_))))) - _thunk73307_))) + (_E73307_ _exn73309_))))) + _thunk73304_))) (define with-exception-stack-trace__0 - (lambda (_thunk73319_) - (let ((_error-port73321_ (current-error-port))) + (lambda (_thunk73316_) + (let ((_error-port73318_ (current-error-port))) (declare (not safe)) - (with-exception-stack-trace__% _thunk73319_ _error-port73321_)))) + (with-exception-stack-trace__% _thunk73316_ _error-port73318_)))) (define with-exception-stack-trace - (lambda _g73462_ - (let ((_g73461_ (let () (declare (not safe)) (##length _g73462_)))) - (cond ((let () (declare (not safe)) (##fx= _g73461_ 1)) - (apply (lambda (_thunk73319_) + (lambda _g73459_ + (let ((_g73458_ (let () (declare (not safe)) (##length _g73459_)))) + (cond ((let () (declare (not safe)) (##fx= _g73458_ 1)) + (apply (lambda (_thunk73316_) (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk73319_))) - _g73462_)) - ((let () (declare (not safe)) (##fx= _g73461_ 2)) - (apply (lambda (_thunk73323_ _error-port73324_) + (with-exception-stack-trace__0 _thunk73316_))) + _g73459_)) + ((let () (declare (not safe)) (##fx= _g73458_ 2)) + (apply (lambda (_thunk73320_ _error-port73321_) (let () (declare (not safe)) (with-exception-stack-trace__% - _thunk73323_ - _error-port73324_))) - _g73462_)) + _thunk73320_ + _error-port73321_))) + _g73459_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g73462_)))))) + _g73459_)))))) (define dump-stack-trace!__% - (lambda (_cont73288_ _exn73289_ _error-port73290_) - (let ((_out73292_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _out73292_)) - (display '"*** Unhandled exception in " _out73292_) - (display (current-thread) _out73292_) - (newline _out73292_) - (display-exception _exn73289_ _out73292_) + (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_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn73289_)) + (class-instance? StackTrace::t _exn73286_)) '#!void (begin - (display '"Continuation backtrace: " _out73292_) - (newline _out73292_) - (display-continuation-backtrace _cont73288_ _out73292_))) - (let ((__tmp73463 (get-output-string _out73292_))) + (display '"Continuation backtrace: " _out73289_) + (newline _out73289_) + (display-continuation-backtrace _cont73285_ _out73289_))) + (let ((__tmp73460 (get-output-string _out73289_))) (declare (not safe)) - (##write-string __tmp73463 _error-port73290_))))) + (##write-string __tmp73460 _error-port73287_))))) (define dump-stack-trace!__0 - (lambda (_cont73297_ _exn73298_) - (let ((_error-port73300_ (current-error-port))) + (lambda (_cont73294_ _exn73295_) + (let ((_error-port73297_ (current-error-port))) (declare (not safe)) - (dump-stack-trace!__% _cont73297_ _exn73298_ _error-port73300_)))) + (dump-stack-trace!__% _cont73294_ _exn73295_ _error-port73297_)))) (define dump-stack-trace! - (lambda _g73465_ - (let ((_g73464_ (let () (declare (not safe)) (##length _g73465_)))) - (cond ((let () (declare (not safe)) (##fx= _g73464_ 2)) - (apply (lambda (_cont73297_ _exn73298_) + (lambda _g73462_ + (let ((_g73461_ (let () (declare (not safe)) (##length _g73462_)))) + (cond ((let () (declare (not safe)) (##fx= _g73461_ 2)) + (apply (lambda (_cont73294_ _exn73295_) (let () (declare (not safe)) - (dump-stack-trace!__0 _cont73297_ _exn73298_))) - _g73465_)) - ((let () (declare (not safe)) (##fx= _g73464_ 3)) - (apply (lambda (_cont73302_ _exn73303_ _error-port73304_) + (dump-stack-trace!__0 _cont73294_ _exn73295_))) + _g73462_)) + ((let () (declare (not safe)) (##fx= _g73461_ 3)) + (apply (lambda (_cont73299_ _exn73300_ _error-port73301_) (let () (declare (not safe)) (dump-stack-trace!__% - _cont73302_ - _exn73303_ - _error-port73304_))) - _g73465_)) + _cont73299_ + _exn73300_ + _error-port73301_))) + _g73462_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g73465_)))))) + _g73462_)))))) (define-type-of-thread actor-thread constructor: diff --git a/src/bootstrap/gerbil/runtime/util__0.scm b/src/bootstrap/gerbil/runtime/util__0.scm index d67a0efc..4c9c13ec 100644 --- a/src/bootstrap/gerbil/runtime/util__0.scm +++ b/src/bootstrap/gerbil/runtime/util__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1709128370) + (define gerbil/runtime/util::timestamp 1709229969) (begin (define displayln (lambda _args56588_ diff --git a/src/bootstrap/gerbil/runtime__0.scm b/src/bootstrap/gerbil/runtime__0.scm index 6cf38f87..7d2c66af 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 1709128371) '#!void) +(begin (define gerbil/runtime::timestamp 1709229970) '#!void) diff --git a/src/gerbil/runtime/table.ss b/src/gerbil/runtime/table.ss index bec7e29c..20d52c0e 100644 --- a/src/gerbil/runtime/table.ss +++ b/src/gerbil/runtime/table.ss @@ -429,7 +429,7 @@ namespace: #f #f ; super '#(gcht 5 #f immediate 5 #f))) -(def __gc-table-loads '#(0.0 0.75)) +(def __gc-table-loads '#f64(.45 .6363961030678927 .9)) (def (&gc-table-gcht tab) (##unchecked-structure-ref tab 1 __gc-table::t 'gc-table-gcht)) @@ -453,13 +453,12 @@ namespace: #f immediate)))) (def (__gc-table-new size flags) - (let (gcht - (##gc-hash-table-allocate - size - (fxior flags (macro-gc-hash-table-flag-mem-alloc-keys)) - __gc-table-loads)) - (macro-gc-hash-table-free-set! gcht (macro-gc-hash-table-size gcht)) - (macro-gc-hash-table-count-set! gcht 0) + (let* ((flags + (fxand flags (fxnot (macro-gc-hash-table-flag-need-rehash)))) + (flags + (fxior flags (macro-gc-hash-table-flag-mem-alloc-keys))) + (gcht + (##gc-hash-table-allocate size flags __gc-table-loads))) gcht)) (def (__gc-table-e tab) @@ -475,22 +474,11 @@ namespace: #f (&gc-table-gcht tab))))) (def (__gc-table-rehash! tab) - (declare (not interrupts-enabled)) (let* ((old-table (&gc-table-gcht tab)) (new-table (##gc-hash-table-resize! old-table __gc-table-loads)) (gcht (##gc-hash-table-rehash! old-table new-table))) (set! (&gc-table-gcht tab) gcht))) -(def (__gc-table-grow! tab) - (declare (not interrupts-enabled)) - (let* ((old-table (&gc-table-gcht tab)) - (new-table - (__gc-table-new - (fx* 2 (macro-gc-hash-table-size old-table)) - (macro-gc-hash-table-flags old-table))) - (gcht (##gc-hash-table-rehash! old-table new-table))) - (set! (&gc-table-gcht tab) gcht))) - (def (gc-table-ref tab key default) (declare (not interrupts-enabled)) (cond @@ -509,16 +497,9 @@ namespace: #f (declare (not interrupts-enabled)) (if (##mem-allocated? key) (let (gcht (__gc-table-e tab)) - (cond - ((fx< (macro-gc-hash-table-free gcht) - (fxquotient (macro-gc-hash-table-size gcht) 2)) - (if (fx> (macro-gc-hash-table-count gcht) (fxquotient (macro-gc-hash-table-size gcht) 2)) - (__gc-table-grow! tab) - (__gc-table-rehash! tab)) - (gc-table-set! tab key value)) - ((##gc-hash-table-set! gcht key value) + (when (##gc-hash-table-set! gcht key value) (__gc-table-rehash! tab) - (gc-table-set! tab key value)))) + (gc-table-set! tab key value))) (immediate-table-set! (__gc-table-immediate tab) key value))) (def (gc-table-update! tab key update default) @@ -528,9 +509,13 @@ namespace: #f (immediate-table-update! (__gc-table-immediate tab) key update default))) (def (gc-table-delete! tab key) + (declare (not interrupts-enabled)) (cond ((##mem-allocated? key) - (gc-table-set! tab key (macro-absent-obj))) + (let (gcht (__gc-table-e tab)) + (when (##gc-hash-table-set! gcht key (macro-absent-obj)) + (__gc-table-rehash! tab) + (gc-table-delete! tab key)))) ((&gc-table-immediate tab) => (lambda (immediate) (immediate-table-delete! immediate key))))) @@ -544,7 +529,7 @@ namespace: #f (let (key (##vector-ref gcht i)) (if (and (not (eq? key (macro-unused-obj))) (not (eq? key (macro-deleted-obj)))) - (proc key (vector-ref gcht (fx+ i 1)))) + (proc key (##vector-ref gcht (fx+ i 1)))) (let () (declare (interrupts-enabled)) (loop (fx+ i 2))))))) diff --git a/src/gerbil/test/table-test.ss b/src/gerbil/test/table-test.ss index 48ec8413..32992a97 100644 --- a/src/gerbil/test/table-test.ss +++ b/src/gerbil/test/table-test.ss @@ -1,9 +1,9 @@ (import :std/test :std/iter :gerbil/runtime/table) -(export table-test) +(export raw-table-test gc-table-test) -(def table-test +(def raw-table-test (test-suite "raw-table" (test-case "basic ops" (let (h (make-raw-table #f eq-hash eq?)) @@ -23,7 +23,7 @@ (raw-table-set! h x x)) (for (x (iota 200)) (check (raw-table-ref h x #f) => x)))) - (test-case "put/remove interleaving" + (test-case "put/remove 1" (let (h (make-raw-table #f eq-hash eq?)) (for (x (iota 200)) (raw-table-set! h x x)) @@ -36,4 +36,57 @@ (for (x (iota 100)) (raw-table-set! h x x)) (for (x (iota 200)) + (check (raw-table-ref h x #f) => x)))) + (test-case "put/remove 2" + (let (h (make-raw-table #f eq-hash eq?)) + (for (x (iota 200)) + (raw-table-set! h x x) + (raw-table-delete! h x)) + (for (x (iota 200)) + (raw-table-set! h x x)) + (for (x (iota 200)) (check (raw-table-ref h x #f) => x)))))) + +(def gc-table-test + (test-suite "gc-table" + (test-case "basic ops" + (let (h (make-gc-table #f)) + (for ((k '(a b c d e f g)) + (v (in-naturals))) + (gc-table-set! h k v) + (check (gc-table-ref h k #f) => v)) + (for ((k '(a b c d e f g)) + (v (in-naturals))) + (check (gc-table-ref h k #f) => v)) + (for (k '(a b c d e f g)) + (gc-table-delete! h k) + (check (gc-table-ref h k #f) => #f)))) + (test-case "rehashing" + (let (h (make-gc-table #f)) + (for (x (iota 200)) + (gc-table-set! h x x)) + (for (x (iota 200)) + (check (gc-table-ref h x #f) => x)))) + (test-case "put/remove 1" + (let (h (make-gc-table #f)) + (for (x (iota 200)) + (gc-table-set! h x x)) + (for (x (iota 200)) + (check (gc-table-ref h x #f) => x)) + (for (x (iota 100)) + (gc-table-delete! h x)) + (for (x (iota 100 100)) + (check (gc-table-ref h x #f) => x)) + (for (x (iota 100)) + (gc-table-set! h x x)) + (for (x (iota 200)) + (check (gc-table-ref h x #f) => x)))) + (test-case "put/remove 2" + (let (h (make-gc-table #f)) + (for (x (iota 200)) + (gc-table-set! h x x) + (gc-table-delete! h x)) + (for (x (iota 200)) + (gc-table-set! h x x)) + (for (x (iota 200)) + (check (gc-table-ref h x #f) => x)))))) |