diff --git a/src/bootstrap/gerbil/compiler/base__0.scm b/src/bootstrap/gerbil/compiler/base__0.scm index bed4746a0..b60830837 100644 --- a/src/bootstrap/gerbil/compiler/base__0.scm +++ b/src/bootstrap/gerbil/compiler/base__0.scm @@ -15,8 +15,8 @@ (make-struct-type 'gxc#symbol-table::t '#f '2 'symbol-table '() ':init!)) (define gxc#symbol-table? (make-struct-predicate gxc#symbol-table::t)) (define gxc#make-symbol-table - (lambda _$args599_ - (apply make-struct-instance gxc#symbol-table::t _$args599_))) + (lambda _$args675_ + (apply make-struct-instance gxc#symbol-table::t _$args675_))) (define gxc#symbol-table-gensyms (make-struct-field-accessor gxc#symbol-table::t '0)) (define gxc#symbol-table-bindings @@ -26,19 +26,19 @@ (define gxc#symbol-table-bindings-set! (make-struct-field-mutator gxc#symbol-table::t '1)) (define gxc#symbol-table:::init! - (lambda (_self597_) + (lambda (_self673_) (direct-struct-instance-init! - _self597_ + _self673_ (make-hash-table-eq) (make-hash-table-eq)))) (bind-method! gxc#symbol-table::t ':init! gxc#symbol-table:::init! '#f) (define gxc#raise-compile-error - (lambda (_message593_ _stx594_ . _details595_) + (lambda (_message669_ _stx670_ . _details671_) (apply gx#raise-syntax-error 'compile - _message593_ - _stx594_ - _details595_))) + _message669_ + _stx670_ + _details671_))) (define gxc#verbose - (lambda _args591_ - (if (gxc#current-compile-verbose) (apply displayln _args591_) '#!void)))) + (lambda _args667_ + (if (gxc#current-compile-verbose) (apply displayln _args667_) '#!void)))) diff --git a/src/bootstrap/gerbil/compiler/base__1.scm b/src/bootstrap/gerbil/compiler/base__1.scm index 695f392e5..3bbf71229 100644 --- a/src/bootstrap/gerbil/compiler/base__1.scm +++ b/src/bootstrap/gerbil/compiler/base__1.scm @@ -1,102 +1,102 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define |gxc[1]#_g1735_| (gx#core-quote-syntax 'symbol-table::t)) - (define |gxc[1]#_g1736_| (gx#core-quote-syntax 'symbol-table::t)) - (define |gxc[1]#_g1737_| (gx#core-quote-syntax 'make-symbol-table)) - (define |gxc[1]#_g1738_| (gx#core-quote-syntax 'symbol-table?)) - (define |gxc[1]#_g1739_| (gx#core-quote-syntax 'symbol-table-gensyms)) - (define |gxc[1]#_g1740_| (gx#core-quote-syntax 'symbol-table-bindings)) - (define |gxc[1]#_g1741_| (gx#core-quote-syntax 'symbol-table-gensyms-set!)) - (define |gxc[1]#_g1742_| (gx#core-quote-syntax 'symbol-table-bindings-set!)) + (define |gxc[1]#_g2438_| (gx#core-quote-syntax 'symbol-table::t)) + (define |gxc[1]#_g2439_| (gx#core-quote-syntax 'symbol-table::t)) + (define |gxc[1]#_g2440_| (gx#core-quote-syntax 'make-symbol-table)) + (define |gxc[1]#_g2441_| (gx#core-quote-syntax 'symbol-table?)) + (define |gxc[1]#_g2442_| (gx#core-quote-syntax 'symbol-table-gensyms)) + (define |gxc[1]#_g2443_| (gx#core-quote-syntax 'symbol-table-bindings)) + (define |gxc[1]#_g2444_| (gx#core-quote-syntax 'symbol-table-gensyms-set!)) + (define |gxc[1]#_g2445_| (gx#core-quote-syntax 'symbol-table-bindings-set!)) (begin (define |gxc[:0:]#ast-case| - (lambda (_stx250_) - (gx#macro-expand-syntax-case _stx250_ 'stx-eq? 'stx-e 'quote))) + (lambda (_stx326_) + (gx#macro-expand-syntax-case _stx326_ 'stx-eq? 'stx-e 'quote))) (define |gxc[:0:]#ast-rules| - (lambda (_stx253_) - (let ((_g256280_ - (lambda (_g257276_) - (gx#raise-syntax-error '#f '"Bad syntax" _g257276_)))) - (let ((_g255585_ - (lambda (_g257284_) - (if (gx#stx-pair? _g257284_) - (let ((_e260287_ (gx#syntax-e _g257284_))) - (let ((_hd261291_ (##car _e260287_)) - (_tl262294_ (##cdr _e260287_))) - (if (gx#stx-pair? _tl262294_) - (let ((_e263297_ (gx#syntax-e _tl262294_))) - (let ((_hd264301_ (##car _e263297_)) - (_tl265304_ (##cdr _e263297_))) - (if (gx#stx-pair/null? _tl265304_) - (if (fx>= (gx#stx-length _tl265304_) '0) - (let ((_g1731_ (gx#syntax-split-splice - _tl265304_ + (lambda (_stx329_) + (let ((_g332356_ + (lambda (_g333352_) + (gx#raise-syntax-error '#f '"Bad syntax" _g333352_)))) + (let ((_g331661_ + (lambda (_g333360_) + (if (gx#stx-pair? _g333360_) + (let ((_e336363_ (gx#syntax-e _g333360_))) + (let ((_hd337367_ (##car _e336363_)) + (_tl338370_ (##cdr _e336363_))) + (if (gx#stx-pair? _tl338370_) + (let ((_e339373_ (gx#syntax-e _tl338370_))) + (let ((_hd340377_ (##car _e339373_)) + (_tl341380_ (##cdr _e339373_))) + (if (gx#stx-pair/null? _tl341380_) + (if (fx>= (gx#stx-length _tl341380_) '0) + (let ((_g2434_ (gx#syntax-split-splice + _tl341380_ '0))) (begin - (let ((_g1732_ (values-count - _g1731_))) - (if (not (fx= _g1732_ 2)) + (let ((_g2435_ (values-count + _g2434_))) + (if (not (fx= _g2435_ 2)) (error "Context expects 2 values" - _g1732_))) - (let ((_target266307_ - (values-ref _g1731_ 0)) - (_tl268310_ - (values-ref _g1731_ 1))) - (if (gx#stx-null? _tl268310_) - (letrec ((_loop269313_ - (lambda (_hd267317_ + _g2435_))) + (let ((_target342383_ + (values-ref _g2434_ 0)) + (_tl344386_ + (values-ref _g2434_ 1))) + (if (gx#stx-null? _tl344386_) + (letrec ((_loop345389_ + (lambda (_hd343393_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause273320_) - (if (gx#stx-pair? _hd267317_) - (let ((_e270323_ (gx#syntax-e _hd267317_))) - (let ((_lp-hd271327_ (##car _e270323_)) - (_lp-tl272330_ (##cdr _e270323_))) - (_loop269313_ - _lp-tl272330_ - (cons _lp-hd271327_ _clause273320_)))) - (let ((_clause274333_ (reverse _clause273320_))) - ((lambda (_L337_ _L339_) - (if (gx#identifier-list? _L339_) - (let ((_g360377_ - (lambda (_g361373_) + _clause349396_) + (if (gx#stx-pair? _hd343393_) + (let ((_e346399_ (gx#syntax-e _hd343393_))) + (let ((_lp-hd347403_ (##car _e346399_)) + (_lp-tl348406_ (##cdr _e346399_))) + (_loop345389_ + _lp-tl348406_ + (cons _lp-hd347403_ _clause349396_)))) + (let ((_clause350409_ (reverse _clause349396_))) + ((lambda (_L413_ _L415_) + (if (gx#identifier-list? _L415_) + (let ((_g436453_ + (lambda (_g437449_) (gx#raise-syntax-error '#f '"Bad syntax" - _g361373_)))) - (let ((_g359438_ - (lambda (_g361381_) + _g437449_)))) + (let ((_g435514_ + (lambda (_g437457_) (if (gx#stx-pair/null? - _g361381_) + _g437457_) (if (fx>= (gx#stx-length - _g361381_) + _g437457_) '0) - (let ((_g1733_ (gx#syntax-split-splice + (let ((_g2436_ (gx#syntax-split-splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g361381_ + _g437457_ '0))) (begin - (let ((_g1734_ (values-count _g1733_))) - (if (not (fx= _g1734_ 2)) - (error "Context expects 2 values" _g1734_))) - (let ((_target363384_ (values-ref _g1733_ 0)) - (_tl365387_ (values-ref _g1733_ 1))) - (if (gx#stx-null? _tl365387_) - (letrec ((_loop366390_ - (lambda (_hd364394_ _clause370397_) - (if (gx#stx-pair? _hd364394_) - (let ((_e367400_ - (gx#syntax-e _hd364394_))) - (let ((_lp-hd368404_ - (##car _e367400_)) - (_lp-tl369407_ - (##cdr _e367400_))) - (_loop366390_ - _lp-tl369407_ - (cons _lp-hd368404_ - _clause370397_)))) - (let ((_clause371410_ - (reverse _clause370397_))) - ((lambda (_L414_) + (let ((_g2437_ (values-count _g2436_))) + (if (not (fx= _g2437_ 2)) + (error "Context expects 2 values" _g2437_))) + (let ((_target439460_ (values-ref _g2436_ 0)) + (_tl441463_ (values-ref _g2436_ 1))) + (if (gx#stx-null? _tl441463_) + (letrec ((_loop442466_ + (lambda (_hd440470_ _clause446473_) + (if (gx#stx-pair? _hd440470_) + (let ((_e443476_ + (gx#syntax-e _hd440470_))) + (let ((_lp-hd444480_ + (##car _e443476_)) + (_lp-tl445483_ + (##cdr _e443476_))) + (_loop442466_ + _lp-tl445483_ + (cons _lp-hd444480_ + _clause446473_)))) + (let ((_clause447486_ + (reverse _clause446473_))) + ((lambda (_L490_) (let () (cons (gx#datum->syntax '#f @@ -108,129 +108,129 @@ '()) (cons (cons (gx#datum->syntax '#f 'ast-case) (cons (gx#datum->syntax '#f '$stx) - (cons _L339_ + (cons _L415_ (begin '#!void - (foldr (lambda (_g429432_ - _g430435_) - (cons _g429432_ - _g430435_)) + (foldr (lambda (_g505508_ + _g506511_) + (cons _g505508_ + _g506511_)) '() - _L414_))))) + _L490_))))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _clause371410_)))))) - (_loop366390_ _target363384_ '())) - (_g360377_ _g361381_))))) - (_g360377_ _g361381_)) + _clause447486_)))))) + (_loop442466_ _target439460_ '())) + (_g436453_ _g437457_))))) + (_g436453_ _g437457_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g360377_ _g361381_))))) - (_g359438_ + (_g436453_ _g437457_))))) + (_g435514_ (gx#stx-map - (lambda (_clause442_) - (let ((_g446473_ - (lambda (_g447469_) + (lambda (_clause518_) + (let ((_g522549_ + (lambda (_g523545_) (gx#raise-syntax-error '#f '"Bad syntax" - _g447469_)))) - (let ((_g445531_ - (lambda (_g447477_) + _g523545_)))) + (let ((_g521607_ + (lambda (_g523553_) (if (gx#stx-pair? - _g447477_) - (let ((_e459480_ + _g523553_) + (let ((_e535556_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g447477_))) - (let ((_hd460484_ (##car _e459480_)) - (_tl461487_ (##cdr _e459480_))) - (if (gx#stx-pair? _tl461487_) - (let ((_e462490_ (gx#syntax-e _tl461487_))) - (let ((_hd463494_ (##car _e462490_)) - (_tl464497_ (##cdr _e462490_))) - (if (gx#stx-pair? _tl464497_) - (let ((_e465500_ - (gx#syntax-e _tl464497_))) - (let ((_hd466504_ (##car _e465500_)) - (_tl467507_ (##cdr _e465500_))) - (if (gx#stx-null? _tl467507_) - ((lambda (_L510_ _L512_ _L513_) - (cons _L513_ - (cons _L512_ + (gx#syntax-e _g523553_))) + (let ((_hd536560_ (##car _e535556_)) + (_tl537563_ (##cdr _e535556_))) + (if (gx#stx-pair? _tl537563_) + (let ((_e538566_ (gx#syntax-e _tl537563_))) + (let ((_hd539570_ (##car _e538566_)) + (_tl540573_ (##cdr _e538566_))) + (if (gx#stx-pair? _tl540573_) + (let ((_e541576_ + (gx#syntax-e _tl540573_))) + (let ((_hd542580_ (##car _e541576_)) + (_tl543583_ (##cdr _e541576_))) + (if (gx#stx-null? _tl543583_) + ((lambda (_L586_ _L588_ _L589_) + (cons _L589_ + (cons _L588_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'syntax) - (cons _L510_ '())) + (cons _L586_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd466504_ - _hd463494_ - _hd460484_) - (_g446473_ _g447477_)))) - (_g446473_ _g447477_)))) - (_g446473_ _g447477_)))) - (_g446473_ _g447477_))))) + _hd542580_ + _hd539570_ + _hd536560_) + (_g522549_ _g523553_)))) + (_g522549_ _g523553_)))) + (_g522549_ _g523553_)))) + (_g522549_ _g523553_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g444573_ - (lambda (_g447535_) + (let ((_g520649_ + (lambda (_g523611_) (if (gx#stx-pair? - _g447535_) - (let ((_e450538_ + _g523611_) + (let ((_e526614_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g447535_))) - (let ((_hd451542_ (##car _e450538_)) - (_tl452545_ (##cdr _e450538_))) - (if (gx#stx-pair? _tl452545_) - (let ((_e453548_ (gx#syntax-e _tl452545_))) - (let ((_hd454552_ (##car _e453548_)) - (_tl455555_ (##cdr _e453548_))) - (if (gx#stx-null? _tl455555_) - ((lambda (_L558_ _L560_) - (cons _L560_ + (gx#syntax-e _g523611_))) + (let ((_hd527618_ (##car _e526614_)) + (_tl528621_ (##cdr _e526614_))) + (if (gx#stx-pair? _tl528621_) + (let ((_e529624_ (gx#syntax-e _tl528621_))) + (let ((_hd530628_ (##car _e529624_)) + (_tl531631_ (##cdr _e529624_))) + (if (gx#stx-null? _tl531631_) + ((lambda (_L634_ _L636_) + (cons _L636_ (cons (cons (gx#datum->syntax '#f 'syntax) - (cons _L558_ '())) + (cons _L634_ '())) '()))) - _hd454552_ - _hd451542_) - (_g445531_ _g447535_)))) - (_g445531_ _g447535_)))) - (_g445531_ _g447535_))))) + _hd530628_ + _hd527618_) + (_g521607_ _g523611_)))) + (_g521607_ _g523611_)))) + (_g521607_ _g523611_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g444573_ _clause442_))))) + (_g520649_ _clause518_))))) (begin '#!void - (foldr (lambda (_g576579_ - _g577582_) - (cons _g576579_ - _g577582_)) + (foldr (lambda (_g652655_ + _g653658_) + (cons _g652655_ + _g653658_)) '() - _L337_)))))) - (_g256280_ _g257284_))) - _clause274333_ - _hd264301_)))))) - (_loop269313_ _target266307_ '())) + _L413_)))))) + (_g332356_ _g333360_))) + _clause350409_ + _hd340377_)))))) + (_loop345389_ _target342383_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g256280_ _g257284_))))) - (_g256280_ _g257284_)) - (_g256280_ _g257284_)))) - (_g256280_ _g257284_)))) - (_g256280_ _g257284_))))) - (_g255585_ _stx253_))))) + (_g332356_ _g333360_))))) + (_g332356_ _g333360_)) + (_g332356_ _g333360_)))) + (_g332356_ _g333360_)))) + (_g332356_ _g333360_))))) + (_g331661_ _stx329_))))) (define |gxc[:0:]#symbol-table| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g1735_| + |gxc[1]#_g2438_| 'expander-identifiers: (cons '#f - (cons |gxc[1]#_g1736_| - (cons |gxc[1]#_g1737_| - (cons |gxc[1]#_g1738_| - (cons (cons |gxc[1]#_g1739_| - (cons |gxc[1]#_g1740_| '())) - (cons (cons |gxc[1]#_g1741_| - (cons |gxc[1]#_g1742_| '())) + (cons |gxc[1]#_g2439_| + (cons |gxc[1]#_g2440_| + (cons |gxc[1]#_g2441_| + (cons (cons |gxc[1]#_g2442_| + (cons |gxc[1]#_g2443_| '())) + (cons (cons |gxc[1]#_g2444_| + (cons |gxc[1]#_g2445_| '())) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| diff --git a/src/bootstrap/gerbil/compiler/compile.ssi b/src/bootstrap/gerbil/compiler/compile.ssi index b5804d7bb..181a585c3 100644 --- a/src/bootstrap/gerbil/compiler/compile.ssi +++ b/src/bootstrap/gerbil/compiler/compile.ssi @@ -9,16 +9,16 @@ namespace: gxc (in: :gerbil/core ) (spec: (:gerbil/gambit/hvectors) - (0 u64vector? 0 u64vector?) - (0 s64vector? 0 s64vector?) - (0 s8vector? 0 s8vector?) - (0 f32vector? 0 f32vector?) (0 f64vector? 0 f64vector?) - (0 u16vector? 0 u16vector?) - (0 s32vector? 0 s32vector?) + (0 f32vector? 0 f32vector?) + (0 s64vector? 0 s64vector?) (0 u8vector? 0 u8vector?) + (0 u32vector? 0 u32vector?) + (0 u64vector? 0 u64vector?) + (0 s32vector? 0 s32vector?) (0 s16vector? 0 s16vector?) - (0 u32vector? 0 u32vector?))) + (0 u16vector? 0 u16vector?) + (0 s8vector? 0 s8vector?))) (%#export #t) (%#define-runtime current-compile-methods gxc#current-compile-methods) (%#define-runtime current-compile-lift gxc#current-compile-lift) @@ -84,8 +84,8 @@ namespace: gxc generate-runtime-binding-id* gxc#generate-runtime-binding-id*) (%#begin (%#define-runtime - generate-runtime-gensym-reference__opt-lambda8238 - gxc#generate-runtime-gensym-reference__opt-lambda8238) + generate-runtime-gensym-reference__opt-lambda8941 + gxc#generate-runtime-gensym-reference__opt-lambda8941) (%#begin (%#define-runtime generate-runtime-gensym-reference__0 gxc#generate-runtime-gensym-reference__0) @@ -99,8 +99,8 @@ namespace: gxc generate-runtime-identifier-key gxc#generate-runtime-identifier-key) (%#begin (%#define-runtime - generate-runtime-temporary__opt-lambda8184 - gxc#generate-runtime-temporary__opt-lambda8184) + generate-runtime-temporary__opt-lambda8887 + gxc#generate-runtime-temporary__opt-lambda8887) (%#begin (%#define-runtime generate-runtime-temporary__0 gxc#generate-runtime-temporary__0) @@ -131,8 +131,8 @@ namespace: gxc generate-runtime-case-lambda% gxc#generate-runtime-case-lambda%) (%#begin (%#define-runtime - generate-runtime-let-values%__opt-lambda5927 - gxc#generate-runtime-let-values%__opt-lambda5927) + generate-runtime-let-values%__opt-lambda6630 + gxc#generate-runtime-let-values%__opt-lambda6630) (%#begin (%#define-runtime generate-runtime-let-values%__0 gxc#generate-runtime-let-values%__0) @@ -143,8 +143,8 @@ namespace: gxc generate-runtime-let-values-bind gxc#generate-runtime-let-values-bind) (%#begin (%#define-runtime - generate-runtime-letrec-values%__opt-lambda5506 - gxc#generate-runtime-letrec-values%__opt-lambda5506) + generate-runtime-letrec-values%__opt-lambda6209 + gxc#generate-runtime-letrec-values%__opt-lambda6209) (%#begin (%#define-runtime generate-runtime-letrec-values%__0 gxc#generate-runtime-letrec-values%__0) diff --git a/src/bootstrap/gerbil/compiler/compile.ssxi.ss b/src/bootstrap/gerbil/compiler/compile.ssxi.ss index 826ad24d9..a5f7437e8 100644 --- a/src/bootstrap/gerbil/compiler/compile.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/compile.ssxi.ss @@ -6,22 +6,22 @@ package: gerbil/compiler gxc#generate-runtime-gensym-reference (@case-lambda (1 gxc#generate-runtime-gensym-reference__0) - (2 gxc#generate-runtime-gensym-reference__opt-lambda8238))) + (2 gxc#generate-runtime-gensym-reference__opt-lambda8941))) (declare-type gxc#generate-runtime-temporary (@case-lambda (0 gxc#generate-runtime-temporary__0) - (1 gxc#generate-runtime-temporary__opt-lambda8184))) + (1 gxc#generate-runtime-temporary__opt-lambda8887))) (declare-type gxc#generate-runtime-let-values% (@case-lambda (1 gxc#generate-runtime-let-values%__0) - (2 gxc#generate-runtime-let-values%__opt-lambda5927))) + (2 gxc#generate-runtime-let-values%__opt-lambda6630))) (declare-type gxc#generate-runtime-letrec-values% (@case-lambda (1 gxc#generate-runtime-letrec-values%__0) - (2 gxc#generate-runtime-letrec-values%__opt-lambda5506))) + (2 gxc#generate-runtime-letrec-values%__opt-lambda6209))) (declare-type gxc#meta-state::t (@struct-type gxc#meta-state::t #f 4 :init! ())) diff --git a/src/bootstrap/gerbil/compiler/compile__0.scm b/src/bootstrap/gerbil/compiler/compile__0.scm index 650d03ca5..3065fb7c6 100644 --- a/src/bootstrap/gerbil/compiler/compile__0.scm +++ b/src/bootstrap/gerbil/compiler/compile__0.scm @@ -3,1818 +3,1850 @@ (define gxc#current-compile-methods (make-parameter '#f)) (define gxc#current-compile-lift (make-parameter '#f)) (define gxc#compile-e - (lambda (_stx9220_ . _args9221_) - (let ((_g92239233_ - (lambda (_g92249230_) - (gx#raise-syntax-error '#f '"Bad syntax" _g92249230_)))) - (let ((_g92229261_ - (lambda (_g92249236_) - (if (gx#stx-pair? _g92249236_) - (let ((_e92269238_ (gx#stx-e _g92249236_))) - (let ((_hd92279241_ (##car _e92269238_)) - (_tl92289243_ (##cdr _e92269238_))) - ((lambda (_L9246_) - (let ((_$e9256_ + (lambda (_stx9923_ . _args9924_) + (let ((_g99269936_ + (lambda (_g99279933_) + (gx#raise-syntax-error '#f '"Bad syntax" _g99279933_)))) + (let ((_g99259964_ + (lambda (_g99279939_) + (if (gx#stx-pair? _g99279939_) + (let ((_e99299941_ (gx#stx-e _g99279939_))) + (let ((_hd99309944_ (##car _e99299941_)) + (_tl99319946_ (##cdr _e99299941_))) + ((lambda (_L9949_) + (let ((_$e9959_ (table-ref (gxc#current-compile-methods) - (gx#stx-e _L9246_) + (gx#stx-e _L9949_) '#f))) - (if _$e9256_ - ((lambda (_method9259_) - (apply _method9259_ _stx9220_ _args9221_)) - _$e9256_) + (if _$e9959_ + ((lambda (_method9962_) + (apply _method9962_ _stx9923_ _args9924_)) + _$e9959_) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx9220_ - _L9246_)))) - _hd92279241_))) - (_g92239233_ _g92249236_))))) - (_g92229261_ _stx9220_))))) + _stx9923_ + _L9949_)))) + _hd99309944_))) + (_g99269936_ _g99279939_))))) + (_g99259964_ _stx9923_))))) (define gxc#&void-expression (make-promise (lambda () - (let ((_tbl9217_ (make-hash-table-eq))) + (let ((_tbl9920_ (make-hash-table-eq))) (begin - (table-set! _tbl9217_ '%#lambda void) - (table-set! _tbl9217_ '%#case-lambda void) - (table-set! _tbl9217_ '%#let-values void) - (table-set! _tbl9217_ '%#letrec-values void) - (table-set! _tbl9217_ '%#letrec*-values void) - (table-set! _tbl9217_ '%#quote void) - (table-set! _tbl9217_ '%#quote-syntax void) - (table-set! _tbl9217_ '%#call void) - (table-set! _tbl9217_ '%#if void) - (table-set! _tbl9217_ '%#ref void) - (table-set! _tbl9217_ '%#set! void) - (table-set! _tbl9217_ '%#struct-instance? void) - (table-set! _tbl9217_ '%#struct-direct-instance? void) - (table-set! _tbl9217_ '%#struct-ref void) - (table-set! _tbl9217_ '%#struct-set! void) - _tbl9217_))))) + (table-set! _tbl9920_ '%#lambda void) + (table-set! _tbl9920_ '%#case-lambda void) + (table-set! _tbl9920_ '%#let-values void) + (table-set! _tbl9920_ '%#letrec-values void) + (table-set! _tbl9920_ '%#letrec*-values void) + (table-set! _tbl9920_ '%#quote void) + (table-set! _tbl9920_ '%#quote-syntax void) + (table-set! _tbl9920_ '%#call void) + (table-set! _tbl9920_ '%#if void) + (table-set! _tbl9920_ '%#ref void) + (table-set! _tbl9920_ '%#set! void) + (table-set! _tbl9920_ '%#struct-instance? void) + (table-set! _tbl9920_ '%#struct-direct-instance? void) + (table-set! _tbl9920_ '%#struct-ref void) + (table-set! _tbl9920_ '%#struct-set! void) + _tbl9920_))))) (define gxc#&void-special-form (make-promise (lambda () - (let ((_tbl9213_ (make-hash-table-eq))) + (let ((_tbl9916_ (make-hash-table-eq))) (begin - (table-set! _tbl9213_ '%#begin void) - (table-set! _tbl9213_ '%#begin-syntax void) - (table-set! _tbl9213_ '%#begin-foreign void) - (table-set! _tbl9213_ '%#module void) - (table-set! _tbl9213_ '%#import void) - (table-set! _tbl9213_ '%#export void) - (table-set! _tbl9213_ '%#provide void) - (table-set! _tbl9213_ '%#extern void) - (table-set! _tbl9213_ '%#define-values void) - (table-set! _tbl9213_ '%#define-syntax void) - (table-set! _tbl9213_ '%#define-alias void) - (table-set! _tbl9213_ '%#declare void) - _tbl9213_))))) + (table-set! _tbl9916_ '%#begin void) + (table-set! _tbl9916_ '%#begin-syntax void) + (table-set! _tbl9916_ '%#begin-foreign void) + (table-set! _tbl9916_ '%#module void) + (table-set! _tbl9916_ '%#import void) + (table-set! _tbl9916_ '%#export void) + (table-set! _tbl9916_ '%#provide void) + (table-set! _tbl9916_ '%#extern void) + (table-set! _tbl9916_ '%#define-values void) + (table-set! _tbl9916_ '%#define-syntax void) + (table-set! _tbl9916_ '%#define-alias void) + (table-set! _tbl9916_ '%#declare void) + _tbl9916_))))) (define gxc#&void (make-promise (lambda () - (let ((_tbl9209_ (make-hash-table-eq))) + (let ((_tbl9912_ (make-hash-table-eq))) (begin - (hash-copy! _tbl9209_ (force gxc#&void-special-form)) - (hash-copy! _tbl9209_ (force gxc#&void-expression)) - _tbl9209_))))) + (hash-copy! _tbl9912_ (force gxc#&void-special-form)) + (hash-copy! _tbl9912_ (force gxc#&void-expression)) + _tbl9912_))))) (define gxc#&collect-bindings (make-promise (lambda () - (let ((_tbl9205_ (make-hash-table-eq))) + (let ((_tbl9908_ (make-hash-table-eq))) (begin - (hash-copy! _tbl9205_ (force gxc#&void-expression)) - (hash-copy! _tbl9205_ (force gxc#&void-special-form)) - (table-set! _tbl9205_ '%#begin gxc#collect-begin%) - (table-set! _tbl9205_ '%#begin-syntax gxc#collect-begin-syntax%) - (table-set! _tbl9205_ '%#module gxc#collect-module%) + (hash-copy! _tbl9908_ (force gxc#&void-expression)) + (hash-copy! _tbl9908_ (force gxc#&void-special-form)) + (table-set! _tbl9908_ '%#begin gxc#collect-begin%) + (table-set! _tbl9908_ '%#begin-syntax gxc#collect-begin-syntax%) + (table-set! _tbl9908_ '%#module gxc#collect-module%) (table-set! - _tbl9205_ + _tbl9908_ '%#define-values gxc#collect-bindings-define-values%) (table-set! - _tbl9205_ + _tbl9908_ '%#define-syntax gxc#collect-bindings-define-syntax%) - _tbl9205_))))) + _tbl9908_))))) (define gxc#apply-collect-bindings - (lambda (_stx9198_ . _args9200_) + (lambda (_stx9901_ . _args9903_) (call-with-parameters - (lambda () (apply gxc#compile-e _stx9198_ _args9200_)) + (lambda () (apply gxc#compile-e _stx9901_ _args9903_)) gxc#current-compile-methods (force gxc#&collect-bindings)))) (define gxc#&lift-modules (make-promise (lambda () - (let ((_tbl9195_ (make-hash-table-eq))) + (let ((_tbl9898_ (make-hash-table-eq))) (begin - (hash-copy! _tbl9195_ (force gxc#&void)) - (table-set! _tbl9195_ '%#begin gxc#collect-begin%) - (table-set! _tbl9195_ '%#module gxc#lift-modules-module%) - _tbl9195_))))) + (hash-copy! _tbl9898_ (force gxc#&void)) + (table-set! _tbl9898_ '%#begin gxc#collect-begin%) + (table-set! _tbl9898_ '%#module gxc#lift-modules-module%) + _tbl9898_))))) (define gxc#apply-lift-modules - (lambda (_stx9188_ . _args9190_) + (lambda (_stx9891_ . _args9893_) (call-with-parameters - (lambda () (apply gxc#compile-e _stx9188_ _args9190_)) + (lambda () (apply gxc#compile-e _stx9891_ _args9893_)) gxc#current-compile-methods (force gxc#&lift-modules)))) (define gxc#&find-runtime-code (make-promise (lambda () - (let ((_tbl9185_ (make-hash-table-eq))) + (let ((_tbl9888_ (make-hash-table-eq))) (begin - (table-set! _tbl9185_ '%#begin gxc#find-runtime-begin%) - (table-set! _tbl9185_ '%#begin-syntax false) - (table-set! _tbl9185_ '%#begin-foreign true) - (table-set! _tbl9185_ '%#module false) - (table-set! _tbl9185_ '%#import false) - (table-set! _tbl9185_ '%#export false) - (table-set! _tbl9185_ '%#provide false) - (table-set! _tbl9185_ '%#extern false) - (table-set! _tbl9185_ '%#define-values true) - (table-set! _tbl9185_ '%#define-syntax false) - (table-set! _tbl9185_ '%#define-alias false) - (table-set! _tbl9185_ '%#declare false) - (table-set! _tbl9185_ '%#lambda true) - (table-set! _tbl9185_ '%#case-lambda true) - (table-set! _tbl9185_ '%#let-values true) - (table-set! _tbl9185_ '%#letrec-values true) - (table-set! _tbl9185_ '%#letrec*-values true) - (table-set! _tbl9185_ '%#quote true) - (table-set! _tbl9185_ '%#call true) - (table-set! _tbl9185_ '%#if true) - (table-set! _tbl9185_ '%#ref true) - (table-set! _tbl9185_ '%#set! true) - (table-set! _tbl9185_ '%#struct-instance? true) - (table-set! _tbl9185_ '%#struct-direct-instance? true) - (table-set! _tbl9185_ '%#struct-ref true) - (table-set! _tbl9185_ '%#struct-set! true) - _tbl9185_))))) + (table-set! _tbl9888_ '%#begin gxc#find-runtime-begin%) + (table-set! _tbl9888_ '%#begin-syntax false) + (table-set! _tbl9888_ '%#begin-foreign true) + (table-set! _tbl9888_ '%#module false) + (table-set! _tbl9888_ '%#import false) + (table-set! _tbl9888_ '%#export false) + (table-set! _tbl9888_ '%#provide false) + (table-set! _tbl9888_ '%#extern false) + (table-set! _tbl9888_ '%#define-values true) + (table-set! _tbl9888_ '%#define-syntax false) + (table-set! _tbl9888_ '%#define-alias false) + (table-set! _tbl9888_ '%#declare false) + (table-set! _tbl9888_ '%#lambda true) + (table-set! _tbl9888_ '%#case-lambda true) + (table-set! _tbl9888_ '%#let-values true) + (table-set! _tbl9888_ '%#letrec-values true) + (table-set! _tbl9888_ '%#letrec*-values true) + (table-set! _tbl9888_ '%#quote true) + (table-set! _tbl9888_ '%#call true) + (table-set! _tbl9888_ '%#if true) + (table-set! _tbl9888_ '%#ref true) + (table-set! _tbl9888_ '%#set! true) + (table-set! _tbl9888_ '%#struct-instance? true) + (table-set! _tbl9888_ '%#struct-direct-instance? true) + (table-set! _tbl9888_ '%#struct-ref true) + (table-set! _tbl9888_ '%#struct-set! true) + _tbl9888_))))) (define gxc#apply-find-runtime-code - (lambda (_stx9178_ . _args9180_) + (lambda (_stx9881_ . _args9883_) (call-with-parameters - (lambda () (apply gxc#compile-e _stx9178_ _args9180_)) + (lambda () (apply gxc#compile-e _stx9881_ _args9883_)) gxc#current-compile-methods (force gxc#&find-runtime-code)))) (define gxc#&generate-runtime-empty (make-promise (lambda () - (let ((_tbl9175_ (make-hash-table-eq))) + (let ((_tbl9878_ (make-hash-table-eq))) (begin - (table-set! _tbl9175_ '%#begin gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#begin-syntax gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#begin-foreign gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#module gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#import gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#export gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#provide gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#extern gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#define-values gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#define-syntax gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#define-alias gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#declare gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#lambda gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#case-lambda gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#let-values gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#letrec-values gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#letrec*-values gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#quote gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#call gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#if gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#ref gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#set! gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#begin gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#begin-syntax gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#begin-foreign gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#module gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#import gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#export gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#provide gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#extern gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#define-values gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#define-syntax gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#define-alias gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#declare gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#lambda gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#case-lambda gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#let-values gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#letrec-values gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#letrec*-values gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#quote gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#call gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#if gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#ref gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#set! gxc#generate-runtime-empty) (table-set! - _tbl9175_ + _tbl9878_ '%#struct-instance? gxc#generate-runtime-empty) (table-set! - _tbl9175_ + _tbl9878_ '%#struct-direct-instance? gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#struct-ref gxc#generate-runtime-empty) - (table-set! _tbl9175_ '%#struct-set! gxc#generate-runtime-empty) - _tbl9175_))))) + (table-set! _tbl9878_ '%#struct-ref gxc#generate-runtime-empty) + (table-set! _tbl9878_ '%#struct-set! gxc#generate-runtime-empty) + _tbl9878_))))) (define gxc#&generate-loader (make-promise (lambda () - (let ((_tbl9171_ (make-hash-table-eq))) + (let ((_tbl9874_ (make-hash-table-eq))) (begin - (hash-copy! _tbl9171_ (force gxc#&generate-runtime-empty)) - (table-set! _tbl9171_ '%#begin gxc#generate-runtime-begin%) - (table-set! _tbl9171_ '%#import gxc#generate-runtime-loader-import%) - _tbl9171_))))) + (hash-copy! _tbl9874_ (force gxc#&generate-runtime-empty)) + (table-set! _tbl9874_ '%#begin gxc#generate-runtime-begin%) + (table-set! _tbl9874_ '%#import gxc#generate-runtime-loader-import%) + _tbl9874_))))) (define gxc#apply-generate-loader - (lambda (_stx9164_ . _args9166_) + (lambda (_stx9867_ . _args9869_) (call-with-parameters - (lambda () (apply gxc#compile-e _stx9164_ _args9166_)) + (lambda () (apply gxc#compile-e _stx9867_ _args9869_)) gxc#current-compile-methods (force gxc#&generate-loader)))) (define gxc#&generate-runtime (make-promise (lambda () - (let ((_tbl9161_ (make-hash-table-eq))) + (let ((_tbl9864_ (make-hash-table-eq))) (begin - (hash-copy! _tbl9161_ (force gxc#&generate-runtime-empty)) - (table-set! _tbl9161_ '%#begin gxc#generate-runtime-begin%) + (hash-copy! _tbl9864_ (force gxc#&generate-runtime-empty)) + (table-set! _tbl9864_ '%#begin gxc#generate-runtime-begin%) (table-set! - _tbl9161_ + _tbl9864_ '%#begin-foreign gxc#generate-runtime-begin-foreign%) (table-set! - _tbl9161_ + _tbl9864_ '%#define-values gxc#generate-runtime-define-values%) - (table-set! _tbl9161_ '%#declare gxc#generate-runtime-declare%) - (table-set! _tbl9161_ '%#lambda gxc#generate-runtime-lambda%) + (table-set! _tbl9864_ '%#declare gxc#generate-runtime-declare%) + (table-set! _tbl9864_ '%#lambda gxc#generate-runtime-lambda%) (table-set! - _tbl9161_ + _tbl9864_ '%#case-lambda gxc#generate-runtime-case-lambda%) (table-set! - _tbl9161_ + _tbl9864_ '%#let-values gxc#generate-runtime-let-values%) (table-set! - _tbl9161_ + _tbl9864_ '%#letrec-values gxc#generate-runtime-letrec-values%) (table-set! - _tbl9161_ + _tbl9864_ '%#letrec*-values gxc#generate-runtime-letrec*-values%) - (table-set! _tbl9161_ '%#quote gxc#generate-runtime-quote%) - (table-set! _tbl9161_ '%#call gxc#generate-runtime-call%) - (table-set! _tbl9161_ '%#if gxc#generate-runtime-if%) - (table-set! _tbl9161_ '%#ref gxc#generate-runtime-ref%) - (table-set! _tbl9161_ '%#set! gxc#generate-runtime-setq%) + (table-set! _tbl9864_ '%#quote gxc#generate-runtime-quote%) + (table-set! _tbl9864_ '%#call gxc#generate-runtime-call%) + (table-set! _tbl9864_ '%#if gxc#generate-runtime-if%) + (table-set! _tbl9864_ '%#ref gxc#generate-runtime-ref%) + (table-set! _tbl9864_ '%#set! gxc#generate-runtime-setq%) (table-set! - _tbl9161_ + _tbl9864_ '%#struct-instance? gxc#generate-runtime-struct-instancep%) (table-set! - _tbl9161_ + _tbl9864_ '%#struct-direct-instance? gxc#generate-runtime-struct-direct-instancep%) (table-set! - _tbl9161_ + _tbl9864_ '%#struct-ref gxc#generate-runtime-struct-ref%) (table-set! - _tbl9161_ + _tbl9864_ '%#struct-set! gxc#generate-runtime-struct-setq%) - _tbl9161_))))) + _tbl9864_))))) (define gxc#apply-generate-runtime - (lambda (_stx9154_ . _args9156_) + (lambda (_stx9857_ . _args9859_) (call-with-parameters - (lambda () (apply gxc#compile-e _stx9154_ _args9156_)) + (lambda () (apply gxc#compile-e _stx9857_ _args9859_)) gxc#current-compile-methods (force gxc#&generate-runtime)))) (define gxc#&generate-runtime-phi (make-promise (lambda () - (let ((_tbl9151_ (make-hash-table-eq))) + (let ((_tbl9854_ (make-hash-table-eq))) (begin - (hash-copy! _tbl9151_ (force gxc#&generate-runtime)) + (hash-copy! _tbl9854_ (force gxc#&generate-runtime)) (table-set! - _tbl9151_ + _tbl9854_ '%#quote-syntax gxc#generate-runtime-phi-quote-syntax%) (table-set! - _tbl9151_ + _tbl9854_ '%#define-runtime gxc#generate-runtime-phi-define-runtime%) - _tbl9151_))))) + _tbl9854_))))) (define gxc#apply-generate-runtime-phi - (lambda (_stx9144_ . _args9146_) + (lambda (_stx9847_ . _args9849_) (call-with-parameters - (lambda () (apply gxc#compile-e _stx9144_ _args9146_)) + (lambda () (apply gxc#compile-e _stx9847_ _args9849_)) gxc#current-compile-methods (force gxc#&generate-runtime-phi)))) (define gxc#&collect-expression-refs (make-promise (lambda () - (let ((_tbl9141_ (make-hash-table-eq))) + (let ((_tbl9844_ (make-hash-table-eq))) (begin - (table-set! _tbl9141_ '%#begin gxc#collect-begin%) - (table-set! _tbl9141_ '%#lambda gxc#collect-body-lambda%) - (table-set! _tbl9141_ '%#case-lambda gxc#collect-body-case-lambda%) - (table-set! _tbl9141_ '%#let-values gxc#collect-body-let-values%) - (table-set! _tbl9141_ '%#letrec-values gxc#collect-body-let-values%) + (table-set! _tbl9844_ '%#begin gxc#collect-begin%) + (table-set! _tbl9844_ '%#lambda gxc#collect-body-lambda%) + (table-set! _tbl9844_ '%#case-lambda gxc#collect-body-case-lambda%) + (table-set! _tbl9844_ '%#let-values gxc#collect-body-let-values%) + (table-set! _tbl9844_ '%#letrec-values gxc#collect-body-let-values%) (table-set! - _tbl9141_ + _tbl9844_ '%#letrec*-values gxc#collect-body-let-values%) - (table-set! _tbl9141_ '%#quote void) - (table-set! _tbl9141_ '%#quote-syntax void) - (table-set! _tbl9141_ '%#call gxc#collect-operands) - (table-set! _tbl9141_ '%#if gxc#collect-operands) - (table-set! _tbl9141_ '%#ref gxc#collect-refs-ref%) - (table-set! _tbl9141_ '%#set! gxc#collect-refs-setq%) - (table-set! _tbl9141_ '%#struct-instance? gxc#collect-operands) + (table-set! _tbl9844_ '%#quote void) + (table-set! _tbl9844_ '%#quote-syntax void) + (table-set! _tbl9844_ '%#call gxc#collect-operands) + (table-set! _tbl9844_ '%#if gxc#collect-operands) + (table-set! _tbl9844_ '%#ref gxc#collect-refs-ref%) + (table-set! _tbl9844_ '%#set! gxc#collect-refs-setq%) + (table-set! _tbl9844_ '%#struct-instance? gxc#collect-operands) (table-set! - _tbl9141_ + _tbl9844_ '%#struct-direct-instance? gxc#collect-operands) - (table-set! _tbl9141_ '%#struct-ref gxc#collect-operands) - (table-set! _tbl9141_ '%#struct-set! gxc#collect-operands) - _tbl9141_))))) + (table-set! _tbl9844_ '%#struct-ref gxc#collect-operands) + (table-set! _tbl9844_ '%#struct-set! gxc#collect-operands) + _tbl9844_))))) (define gxc#apply-collect-expression-refs - (lambda (_stx9134_ . _args9136_) + (lambda (_stx9837_ . _args9839_) (call-with-parameters - (lambda () (apply gxc#compile-e _stx9134_ _args9136_)) + (lambda () (apply gxc#compile-e _stx9837_ _args9839_)) gxc#current-compile-methods (force gxc#&collect-expression-refs)))) (define gxc#&generate-meta (make-promise (lambda () - (let ((_tbl9131_ (make-hash-table-eq))) + (let ((_tbl9834_ (make-hash-table-eq))) (begin - (hash-copy! _tbl9131_ (force gxc#&void-expression)) - (table-set! _tbl9131_ '%#begin gxc#generate-meta-begin%) + (hash-copy! _tbl9834_ (force gxc#&void-expression)) + (table-set! _tbl9834_ '%#begin gxc#generate-meta-begin%) (table-set! - _tbl9131_ + _tbl9834_ '%#begin-syntax gxc#generate-meta-begin-syntax%) - (table-set! _tbl9131_ '%#module gxc#generate-meta-module%) - (table-set! _tbl9131_ '%#import gxc#generate-meta-import%) - (table-set! _tbl9131_ '%#export gxc#generate-meta-export%) - (table-set! _tbl9131_ '%#provide gxc#generate-meta-provide%) - (table-set! _tbl9131_ '%#extern gxc#generate-meta-extern%) + (table-set! _tbl9834_ '%#module gxc#generate-meta-module%) + (table-set! _tbl9834_ '%#import gxc#generate-meta-import%) + (table-set! _tbl9834_ '%#export gxc#generate-meta-export%) + (table-set! _tbl9834_ '%#provide gxc#generate-meta-provide%) + (table-set! _tbl9834_ '%#extern gxc#generate-meta-extern%) (table-set! - _tbl9131_ + _tbl9834_ '%#define-values gxc#generate-meta-define-values%) (table-set! - _tbl9131_ + _tbl9834_ '%#define-syntax gxc#generate-meta-define-syntax%) (table-set! - _tbl9131_ + _tbl9834_ '%#define-alias gxc#generate-meta-define-alias%) - (table-set! _tbl9131_ '%#begin-foreign void) - (table-set! _tbl9131_ '%#declare void) - _tbl9131_))))) + (table-set! _tbl9834_ '%#begin-foreign void) + (table-set! _tbl9834_ '%#declare void) + _tbl9834_))))) (define gxc#apply-generate-meta - (lambda (_stx9124_ . _args9126_) + (lambda (_stx9827_ . _args9829_) (call-with-parameters - (lambda () (apply gxc#compile-e _stx9124_ _args9126_)) + (lambda () (apply gxc#compile-e _stx9827_ _args9829_)) gxc#current-compile-methods (force gxc#&generate-meta)))) (define gxc#&generate-meta-phi (make-promise (lambda () - (let ((_tbl9121_ (make-hash-table-eq))) + (let ((_tbl9824_ (make-hash-table-eq))) (begin - (table-set! _tbl9121_ '%#begin gxc#generate-meta-begin%) + (table-set! _tbl9824_ '%#begin gxc#generate-meta-begin%) (table-set! - _tbl9121_ + _tbl9824_ '%#begin-syntax gxc#generate-meta-begin-syntax%) (table-set! - _tbl9121_ + _tbl9824_ '%#define-syntax gxc#generate-meta-define-syntax%) (table-set! - _tbl9121_ + _tbl9824_ '%#define-alias gxc#generate-meta-define-alias%) (table-set! - _tbl9121_ + _tbl9824_ '%#define-values gxc#generate-meta-phi-define-values%) - (table-set! _tbl9121_ '%#lambda gxc#generate-meta-phi-expr) - (table-set! _tbl9121_ '%#case-lambda gxc#generate-meta-phi-expr) - (table-set! _tbl9121_ '%#let-values gxc#generate-meta-phi-expr) - (table-set! _tbl9121_ '%#letrec-values gxc#generate-meta-phi-expr) - (table-set! _tbl9121_ '%#letrec*-values gxc#generate-meta-phi-expr) - (table-set! _tbl9121_ '%#quote gxc#generate-meta-phi-expr) - (table-set! _tbl9121_ '%#quote-syntax gxc#generate-meta-phi-expr) - (table-set! _tbl9121_ '%#call gxc#generate-meta-phi-expr) - (table-set! _tbl9121_ '%#if gxc#generate-meta-phi-expr) - (table-set! _tbl9121_ '%#ref gxc#generate-meta-phi-expr) - (table-set! _tbl9121_ '%#set! gxc#generate-meta-phi-expr) + (table-set! _tbl9824_ '%#lambda gxc#generate-meta-phi-expr) + (table-set! _tbl9824_ '%#case-lambda gxc#generate-meta-phi-expr) + (table-set! _tbl9824_ '%#let-values gxc#generate-meta-phi-expr) + (table-set! _tbl9824_ '%#letrec-values gxc#generate-meta-phi-expr) + (table-set! _tbl9824_ '%#letrec*-values gxc#generate-meta-phi-expr) + (table-set! _tbl9824_ '%#quote gxc#generate-meta-phi-expr) + (table-set! _tbl9824_ '%#quote-syntax gxc#generate-meta-phi-expr) + (table-set! _tbl9824_ '%#call gxc#generate-meta-phi-expr) + (table-set! _tbl9824_ '%#if gxc#generate-meta-phi-expr) + (table-set! _tbl9824_ '%#ref gxc#generate-meta-phi-expr) + (table-set! _tbl9824_ '%#set! gxc#generate-meta-phi-expr) (table-set! - _tbl9121_ + _tbl9824_ '%#struct-instance? gxc#generate-meta-phi-expr) (table-set! - _tbl9121_ + _tbl9824_ '%#struct-direct-instance? gxc#generate-meta-phi-expr) - (table-set! _tbl9121_ '%#struct-ref gxc#generate-meta-phi-expr) - (table-set! _tbl9121_ '%#struct-set! gxc#generate-meta-phi-expr) - (table-set! _tbl9121_ '%#declare void) - _tbl9121_))))) + (table-set! _tbl9824_ '%#struct-ref gxc#generate-meta-phi-expr) + (table-set! _tbl9824_ '%#struct-set! gxc#generate-meta-phi-expr) + (table-set! _tbl9824_ '%#declare void) + _tbl9824_))))) (define gxc#apply-generate-meta-phi - (lambda (_stx9114_ . _args9116_) + (lambda (_stx9817_ . _args9819_) (call-with-parameters - (lambda () (apply gxc#compile-e _stx9114_ _args9116_)) + (lambda () (apply gxc#compile-e _stx9817_ _args9819_)) gxc#current-compile-methods (force gxc#&generate-meta-phi)))) (define gxc#collect-begin% - (lambda (_stx9071_ . _args9072_) - (let ((_g90749084_ - (lambda (_g90759081_) - (gx#raise-syntax-error '#f '"Bad syntax" _g90759081_)))) - (let ((_g90739111_ - (lambda (_g90759087_) - (if (gx#stx-pair? _g90759087_) - (let ((_e90779089_ (gx#stx-e _g90759087_))) - (let ((_hd90789092_ (##car _e90779089_)) - (_tl90799094_ (##cdr _e90779089_))) - ((lambda (_L9097_) + (lambda (_stx9774_ . _args9775_) + (let ((_g97779787_ + (lambda (_g97789784_) + (gx#raise-syntax-error '#f '"Bad syntax" _g97789784_)))) + (let ((_g97769814_ + (lambda (_g97789790_) + (if (gx#stx-pair? _g97789790_) + (let ((_e97809792_ (gx#stx-e _g97789790_))) + (let ((_hd97819795_ (##car _e97809792_)) + (_tl97829797_ (##cdr _e97809792_))) + ((lambda (_L9800_) (for-each - (lambda (_g91069108_) - (apply gxc#compile-e _g91069108_ _args9072_)) - (gx#stx-e _L9097_))) - _tl90799094_))) - (_g90749084_ _g90759087_))))) - (_g90739111_ _stx9071_))))) + (lambda (_g98099811_) + (apply gxc#compile-e _g98099811_ _args9775_)) + (gx#stx-e _L9800_))) + _tl97829797_))) + (_g97779787_ _g97789790_))))) + (_g97769814_ _stx9774_))))) (define gxc#collect-begin-syntax% - (lambda (_stx9027_ . _args9028_) - (let ((_g90309040_ - (lambda (_g90319037_) - (gx#raise-syntax-error '#f '"Bad syntax" _g90319037_)))) - (let ((_g90299068_ - (lambda (_g90319043_) - (if (gx#stx-pair? _g90319043_) - (let ((_e90339045_ (gx#stx-e _g90319043_))) - (let ((_hd90349048_ (##car _e90339045_)) - (_tl90359050_ (##cdr _e90339045_))) - ((lambda (_L9053_) + (lambda (_stx9730_ . _args9731_) + (let ((_g97339743_ + (lambda (_g97349740_) + (gx#raise-syntax-error '#f '"Bad syntax" _g97349740_)))) + (let ((_g97329771_ + (lambda (_g97349746_) + (if (gx#stx-pair? _g97349746_) + (let ((_e97369748_ (gx#stx-e _g97349746_))) + (let ((_hd97379751_ (##car _e97369748_)) + (_tl97389753_ (##cdr _e97369748_))) + ((lambda (_L9756_) (call-with-parameters (lambda () (for-each - (lambda (_g90639065_) - (apply gxc#compile-e _g90639065_ _args9028_)) - (gx#stx-e _L9053_))) + (lambda (_g97669768_) + (apply gxc#compile-e _g97669768_ _args9731_)) + (gx#stx-e _L9756_))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))) - _tl90359050_))) - (_g90309040_ _g90319043_))))) - (_g90299068_ _stx9027_))))) + _tl97389753_))) + (_g97339743_ _g97349746_))))) + (_g97329771_ _stx9730_))))) (define gxc#collect-module% - (lambda (_stx8969_ . _args8970_) - (let ((_g89728986_ - (lambda (_g89738983_) - (gx#raise-syntax-error '#f '"Bad syntax" _g89738983_)))) - (let ((_g89719024_ - (lambda (_g89738989_) - (if (gx#stx-pair? _g89738989_) - (let ((_e89768991_ (gx#stx-e _g89738989_))) - (let ((_hd89778994_ (##car _e89768991_)) - (_tl89788996_ (##cdr _e89768991_))) - (if (gx#stx-pair? _tl89788996_) - (let ((_e89798999_ (gx#stx-e _tl89788996_))) - (let ((_hd89809002_ (##car _e89798999_)) - (_tl89819004_ (##cdr _e89798999_))) - ((lambda (_L9007_ _L9008_) - (let ((_ctx9021_ - (gx#syntax-local-e _L9008_))) + (lambda (_stx9672_ . _args9673_) + (let ((_g96759689_ + (lambda (_g96769686_) + (gx#raise-syntax-error '#f '"Bad syntax" _g96769686_)))) + (let ((_g96749727_ + (lambda (_g96769692_) + (if (gx#stx-pair? _g96769692_) + (let ((_e96799694_ (gx#stx-e _g96769692_))) + (let ((_hd96809697_ (##car _e96799694_)) + (_tl96819699_ (##cdr _e96799694_))) + (if (gx#stx-pair? _tl96819699_) + (let ((_e96829702_ (gx#stx-e _tl96819699_))) + (let ((_hd96839705_ (##car _e96829702_)) + (_tl96849707_ (##cdr _e96829702_))) + ((lambda (_L9710_ _L9711_) + (let ((_ctx9724_ + (gx#syntax-local-e__0 _L9711_))) (call-with-parameters (lambda () (apply gxc#compile-e - (gx#module-context-code - _ctx9021_) - _args8970_)) + (##structure-ref + _ctx9724_ + '11 + gx#module-context::t + '#f) + _args9673_)) gx#current-expander-context - _ctx9021_))) - _tl89819004_ - _hd89809002_))) - (_g89728986_ _g89738989_)))) - (_g89728986_ _g89738989_))))) - (_g89719024_ _stx8969_))))) + _ctx9724_))) + _tl96849707_ + _hd96839705_))) + (_g96759689_ _g96769692_)))) + (_g96759689_ _g96769692_))))) + (_g96749727_ _stx9672_))))) (define gxc#collect-body-lambda% - (lambda (_stx8901_ . _args8902_) - (let ((_g89048921_ - (lambda (_g89058918_) - (gx#raise-syntax-error '#f '"Bad syntax" _g89058918_)))) - (let ((_g89038966_ - (lambda (_g89058924_) - (if (gx#stx-pair? _g89058924_) - (let ((_e89088926_ (gx#stx-e _g89058924_))) - (let ((_hd89098929_ (##car _e89088926_)) - (_tl89108931_ (##cdr _e89088926_))) - (if (gx#stx-pair? _tl89108931_) - (let ((_e89118934_ (gx#stx-e _tl89108931_))) - (let ((_hd89128937_ (##car _e89118934_)) - (_tl89138939_ (##cdr _e89118934_))) - (if (gx#stx-pair? _tl89138939_) - (let ((_e89148942_ - (gx#stx-e _tl89138939_))) - (let ((_hd89158945_ (##car _e89148942_)) - (_tl89168947_ - (##cdr _e89148942_))) - (if (gx#stx-null? _tl89168947_) - ((lambda (_L8950_ _L8951_) + (lambda (_stx9604_ . _args9605_) + (let ((_g96079624_ + (lambda (_g96089621_) + (gx#raise-syntax-error '#f '"Bad syntax" _g96089621_)))) + (let ((_g96069669_ + (lambda (_g96089627_) + (if (gx#stx-pair? _g96089627_) + (let ((_e96119629_ (gx#stx-e _g96089627_))) + (let ((_hd96129632_ (##car _e96119629_)) + (_tl96139634_ (##cdr _e96119629_))) + (if (gx#stx-pair? _tl96139634_) + (let ((_e96149637_ (gx#stx-e _tl96139634_))) + (let ((_hd96159640_ (##car _e96149637_)) + (_tl96169642_ (##cdr _e96149637_))) + (if (gx#stx-pair? _tl96169642_) + (let ((_e96179645_ + (gx#stx-e _tl96169642_))) + (let ((_hd96189648_ (##car _e96179645_)) + (_tl96199650_ + (##cdr _e96179645_))) + (if (gx#stx-null? _tl96199650_) + ((lambda (_L9653_ _L9654_) (apply gxc#compile-e - _L8950_ - _args8902_)) - _hd89158945_ - _hd89128937_) - (_g89048921_ _g89058924_)))) - (_g89048921_ _g89058924_)))) - (_g89048921_ _g89058924_)))) - (_g89048921_ _g89058924_))))) - (_g89038966_ _stx8901_))))) + _L9653_ + _args9605_)) + _hd96189648_ + _hd96159640_) + (_g96079624_ _g96089627_)))) + (_g96079624_ _g96089627_)))) + (_g96079624_ _g96089627_)))) + (_g96079624_ _g96089627_))))) + (_g96069669_ _stx9604_))))) (define gxc#collect-body-case-lambda% - (lambda (_stx8783_ . _args8784_) - (let ((_g87868814_ - (lambda (_g87878811_) - (gx#raise-syntax-error '#f '"Bad syntax" _g87878811_)))) - (let ((_g87858898_ - (lambda (_g87878817_) - (if (gx#stx-pair? _g87878817_) - (let ((_e87908819_ (gx#stx-e _g87878817_))) - (let ((_hd87918822_ (##car _e87908819_)) - (_tl87928824_ (##cdr _e87908819_))) - (if (gx#stx-pair/null? _tl87928824_) - (if (fx>= (gx#stx-length _tl87928824_) '0) - (let ((_g9263_ (gx#syntax-split-splice - _tl87928824_ + (lambda (_stx9486_ . _args9487_) + (let ((_g94899517_ + (lambda (_g94909514_) + (gx#raise-syntax-error '#f '"Bad syntax" _g94909514_)))) + (let ((_g94889601_ + (lambda (_g94909520_) + (if (gx#stx-pair? _g94909520_) + (let ((_e94939522_ (gx#stx-e _g94909520_))) + (let ((_hd94949525_ (##car _e94939522_)) + (_tl94959527_ (##cdr _e94939522_))) + (if (gx#stx-pair/null? _tl94959527_) + (if (fx>= (gx#stx-length _tl94959527_) '0) + (let ((_g9966_ (gx#syntax-split-splice + _tl94959527_ '0))) (begin - (let ((_g9264_ (values-count _g9263_))) - (if (not (fx= _g9264_ 2)) + (let ((_g9967_ (values-count _g9966_))) + (if (not (fx= _g9967_ 2)) (error "Context expects 2 values" - _g9264_))) - (let ((_target87938827_ - (values-ref _g9263_ 0)) - (_tl87958829_ - (values-ref _g9263_ 1))) - (if (gx#stx-null? _tl87958829_) - (letrec ((_loop87968832_ - (lambda (_hd87948835_ - _body88008837_ - _hd88018839_) + _g9967_))) + (let ((_target94969530_ + (values-ref _g9966_ 0)) + (_tl94989532_ + (values-ref _g9966_ 1))) + (if (gx#stx-null? _tl94989532_) + (letrec ((_loop94999535_ + (lambda (_hd94979538_ + _body95039540_ + _hd95049542_) (if (gx#stx-pair? - _hd87948835_) - (let ((_e87978842_ + _hd94979538_) + (let ((_e95009545_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd87948835_))) - (let ((_lp-hd87988845_ (##car _e87978842_)) - (_lp-tl87998847_ (##cdr _e87978842_))) - (if (gx#stx-pair? _lp-hd87988845_) - (let ((_e88048850_ (gx#stx-e _lp-hd87988845_))) - (let ((_hd88058853_ (##car _e88048850_)) - (_tl88068855_ (##cdr _e88048850_))) - (if (gx#stx-pair? _tl88068855_) - (let ((_e88078858_ (gx#stx-e _tl88068855_))) - (let ((_hd88088861_ (##car _e88078858_)) - (_tl88098863_ (##cdr _e88078858_))) - (if (gx#stx-null? _tl88098863_) - (_loop87968832_ - _lp-tl87998847_ - (cons _hd88088861_ _body88008837_) - (cons _hd88058853_ _hd88018839_)) - (_g87868814_ _g87878817_)))) - (_g87868814_ _g87878817_)))) - (_g87868814_ _g87878817_)))) - (let ((_body88028866_ (reverse _body88008837_)) - (_hd88038868_ (reverse _hd88018839_))) - ((lambda (_L8871_ _L8872_) + (gx#stx-e _hd94979538_))) + (let ((_lp-hd95019548_ (##car _e95009545_)) + (_lp-tl95029550_ (##cdr _e95009545_))) + (if (gx#stx-pair? _lp-hd95019548_) + (let ((_e95079553_ (gx#stx-e _lp-hd95019548_))) + (let ((_hd95089556_ (##car _e95079553_)) + (_tl95099558_ (##cdr _e95079553_))) + (if (gx#stx-pair? _tl95099558_) + (let ((_e95109561_ (gx#stx-e _tl95099558_))) + (let ((_hd95119564_ (##car _e95109561_)) + (_tl95129566_ (##cdr _e95109561_))) + (if (gx#stx-null? _tl95129566_) + (_loop94999535_ + _lp-tl95029550_ + (cons _hd95119564_ _body95039540_) + (cons _hd95089556_ _hd95049542_)) + (_g94899517_ _g94909520_)))) + (_g94899517_ _g94909520_)))) + (_g94899517_ _g94909520_)))) + (let ((_body95059569_ (reverse _body95039540_)) + (_hd95069571_ (reverse _hd95049542_))) + ((lambda (_L9574_ _L9575_) (for-each - (lambda (_g88868888_) - (apply gxc#compile-e _g88868888_ _args8784_)) + (lambda (_g95899591_) + (apply gxc#compile-e _g95899591_ _args9487_)) (begin '#!void - (foldr1 (lambda (_g88908893_ _g88918895_) - (cons _g88908893_ _g88918895_)) + (foldr1 (lambda (_g95939596_ _g95949598_) + (cons _g95939596_ _g95949598_)) '() - _L8871_)))) - _body88028866_ - _hd88038868_)))))) + _L9574_)))) + _body95059569_ + _hd95069571_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop87968832_ - _target87938827_ + (_loop94999535_ + _target94969530_ '() '())) - (_g87868814_ _g87878817_))))) - (_g87868814_ _g87878817_)) - (_g87868814_ _g87878817_)))) - (_g87868814_ _g87878817_))))) - (_g87858898_ _stx8783_))))) + (_g94899517_ _g94909520_))))) + (_g94899517_ _g94909520_)) + (_g94899517_ _g94909520_)))) + (_g94899517_ _g94909520_))))) + (_g94889601_ _stx9486_))))) (define gxc#collect-body-let-values% - (lambda (_stx8636_ . _args8637_) - (let ((_g86398674_ - (lambda (_g86408671_) - (gx#raise-syntax-error '#f '"Bad syntax" _g86408671_)))) - (let ((_g86388780_ - (lambda (_g86408677_) - (if (gx#stx-pair? _g86408677_) - (let ((_e86448679_ (gx#stx-e _g86408677_))) - (let ((_hd86458682_ (##car _e86448679_)) - (_tl86468684_ (##cdr _e86448679_))) - (if (gx#stx-pair? _tl86468684_) - (let ((_e86478687_ (gx#stx-e _tl86468684_))) - (let ((_hd86488690_ (##car _e86478687_)) - (_tl86498692_ (##cdr _e86478687_))) - (if (gx#stx-pair/null? _hd86488690_) - (if (fx>= (gx#stx-length _hd86488690_) '0) - (let ((_g9265_ (gx#syntax-split-splice - _hd86488690_ + (lambda (_stx9339_ . _args9340_) + (let ((_g93429377_ + (lambda (_g93439374_) + (gx#raise-syntax-error '#f '"Bad syntax" _g93439374_)))) + (let ((_g93419483_ + (lambda (_g93439380_) + (if (gx#stx-pair? _g93439380_) + (let ((_e93479382_ (gx#stx-e _g93439380_))) + (let ((_hd93489385_ (##car _e93479382_)) + (_tl93499387_ (##cdr _e93479382_))) + (if (gx#stx-pair? _tl93499387_) + (let ((_e93509390_ (gx#stx-e _tl93499387_))) + (let ((_hd93519393_ (##car _e93509390_)) + (_tl93529395_ (##cdr _e93509390_))) + (if (gx#stx-pair/null? _hd93519393_) + (if (fx>= (gx#stx-length _hd93519393_) '0) + (let ((_g9968_ (gx#syntax-split-splice + _hd93519393_ '0))) (begin - (let ((_g9266_ (values-count - _g9265_))) - (if (not (fx= _g9266_ 2)) + (let ((_g9969_ (values-count + _g9968_))) + (if (not (fx= _g9969_ 2)) (error "Context expects 2 values" - _g9266_))) - (let ((_target86508695_ - (values-ref _g9265_ 0)) - (_tl86528697_ - (values-ref _g9265_ 1))) - (if (gx#stx-null? _tl86528697_) - (letrec ((_loop86538700_ - (lambda (_hd86518703_ + _g9969_))) + (let ((_target93539398_ + (values-ref _g9968_ 0)) + (_tl93559400_ + (values-ref _g9968_ 1))) + (if (gx#stx-null? _tl93559400_) + (letrec ((_loop93569403_ + (lambda (_hd93549406_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr86578705_ - _hd86588707_) - (if (gx#stx-pair? _hd86518703_) - (let ((_e86548710_ (gx#stx-e _hd86518703_))) - (let ((_lp-hd86558713_ (##car _e86548710_)) - (_lp-tl86568715_ (##cdr _e86548710_))) - (if (gx#stx-pair? _lp-hd86558713_) - (let ((_e86618718_ - (gx#stx-e _lp-hd86558713_))) - (let ((_hd86628721_ (##car _e86618718_)) - (_tl86638723_ (##cdr _e86618718_))) - (if (gx#stx-pair? _tl86638723_) - (let ((_e86648726_ - (gx#stx-e _tl86638723_))) - (let ((_hd86658729_ - (##car _e86648726_)) - (_tl86668731_ - (##cdr _e86648726_))) - (if (gx#stx-null? _tl86668731_) - (_loop86538700_ - _lp-tl86568715_ - (cons _hd86658729_ - _expr86578705_) - (cons _hd86628721_ - _hd86588707_)) - (_g86398674_ _g86408677_)))) - (_g86398674_ _g86408677_)))) - (_g86398674_ _g86408677_)))) - (let ((_expr86598734_ (reverse _expr86578705_)) - (_hd86608736_ (reverse _hd86588707_))) - (if (gx#stx-pair? _tl86498692_) - (let ((_e86678739_ (gx#stx-e _tl86498692_))) - (let ((_hd86688742_ (##car _e86678739_)) - (_tl86698744_ (##cdr _e86678739_))) - (if (gx#stx-null? _tl86698744_) - ((lambda (_L8747_ _L8748_ _L8749_) + _expr93609408_ + _hd93619410_) + (if (gx#stx-pair? _hd93549406_) + (let ((_e93579413_ (gx#stx-e _hd93549406_))) + (let ((_lp-hd93589416_ (##car _e93579413_)) + (_lp-tl93599418_ (##cdr _e93579413_))) + (if (gx#stx-pair? _lp-hd93589416_) + (let ((_e93649421_ + (gx#stx-e _lp-hd93589416_))) + (let ((_hd93659424_ (##car _e93649421_)) + (_tl93669426_ (##cdr _e93649421_))) + (if (gx#stx-pair? _tl93669426_) + (let ((_e93679429_ + (gx#stx-e _tl93669426_))) + (let ((_hd93689432_ + (##car _e93679429_)) + (_tl93699434_ + (##cdr _e93679429_))) + (if (gx#stx-null? _tl93699434_) + (_loop93569403_ + _lp-tl93599418_ + (cons _hd93689432_ + _expr93609408_) + (cons _hd93659424_ + _hd93619410_)) + (_g93429377_ _g93439380_)))) + (_g93429377_ _g93439380_)))) + (_g93429377_ _g93439380_)))) + (let ((_expr93629437_ (reverse _expr93609408_)) + (_hd93639439_ (reverse _hd93619410_))) + (if (gx#stx-pair? _tl93529395_) + (let ((_e93709442_ (gx#stx-e _tl93529395_))) + (let ((_hd93719445_ (##car _e93709442_)) + (_tl93729447_ (##cdr _e93709442_))) + (if (gx#stx-null? _tl93729447_) + ((lambda (_L9450_ _L9451_ _L9452_) (for-each - (lambda (_g87688770_) + (lambda (_g94719473_) (apply gxc#compile-e - _g87688770_ - _args8637_)) + _g94719473_ + _args9340_)) (begin '#!void - (foldr1 (lambda (_g87728775_ - _g87738777_) - (cons _g87728775_ - _g87738777_)) - (cons _L8747_ '()) - _L8748_)))) - _hd86688742_ - _expr86598734_ - _hd86608736_) - (_g86398674_ _g86408677_)))) - (_g86398674_ _g86408677_))))))) + (foldr1 (lambda (_g94759478_ + _g94769480_) + (cons _g94759478_ + _g94769480_)) + (cons _L9450_ '()) + _L9451_)))) + _hd93719445_ + _expr93629437_ + _hd93639439_) + (_g93429377_ _g93439380_)))) + (_g93429377_ _g93439380_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop86538700_ - _target86508695_ + (_loop93569403_ + _target93539398_ '() '())) - (_g86398674_ - _g86408677_))))) - (_g86398674_ _g86408677_)) - (_g86398674_ _g86408677_)))) - (_g86398674_ _g86408677_)))) - (_g86398674_ _g86408677_))))) - (_g86388780_ _stx8636_))))) + (_g93429377_ + _g93439380_))))) + (_g93429377_ _g93439380_)) + (_g93429377_ _g93439380_)))) + (_g93429377_ _g93439380_)))) + (_g93429377_ _g93439380_))))) + (_g93419483_ _stx9339_))))) (define gxc#collect-body-setq% - (lambda (_stx8568_ . _args8569_) - (let ((_g85718588_ - (lambda (_g85728585_) - (gx#raise-syntax-error '#f '"Bad syntax" _g85728585_)))) - (let ((_g85708633_ - (lambda (_g85728591_) - (if (gx#stx-pair? _g85728591_) - (let ((_e85758593_ (gx#stx-e _g85728591_))) - (let ((_hd85768596_ (##car _e85758593_)) - (_tl85778598_ (##cdr _e85758593_))) - (if (gx#stx-pair? _tl85778598_) - (let ((_e85788601_ (gx#stx-e _tl85778598_))) - (let ((_hd85798604_ (##car _e85788601_)) - (_tl85808606_ (##cdr _e85788601_))) - (if (gx#stx-pair? _tl85808606_) - (let ((_e85818609_ - (gx#stx-e _tl85808606_))) - (let ((_hd85828612_ (##car _e85818609_)) - (_tl85838614_ - (##cdr _e85818609_))) - (if (gx#stx-null? _tl85838614_) - ((lambda (_L8617_ _L8618_) + (lambda (_stx9271_ . _args9272_) + (let ((_g92749291_ + (lambda (_g92759288_) + (gx#raise-syntax-error '#f '"Bad syntax" _g92759288_)))) + (let ((_g92739336_ + (lambda (_g92759294_) + (if (gx#stx-pair? _g92759294_) + (let ((_e92789296_ (gx#stx-e _g92759294_))) + (let ((_hd92799299_ (##car _e92789296_)) + (_tl92809301_ (##cdr _e92789296_))) + (if (gx#stx-pair? _tl92809301_) + (let ((_e92819304_ (gx#stx-e _tl92809301_))) + (let ((_hd92829307_ (##car _e92819304_)) + (_tl92839309_ (##cdr _e92819304_))) + (if (gx#stx-pair? _tl92839309_) + (let ((_e92849312_ + (gx#stx-e _tl92839309_))) + (let ((_hd92859315_ (##car _e92849312_)) + (_tl92869317_ + (##cdr _e92849312_))) + (if (gx#stx-null? _tl92869317_) + ((lambda (_L9320_ _L9321_) (apply gxc#compile-e - _L8617_ - _args8569_)) - _hd85828612_ - _hd85798604_) - (_g85718588_ _g85728591_)))) - (_g85718588_ _g85728591_)))) - (_g85718588_ _g85728591_)))) - (_g85718588_ _g85728591_))))) - (_g85708633_ _stx8568_))))) + _L9320_ + _args9272_)) + _hd92859315_ + _hd92829307_) + (_g92749291_ _g92759294_)))) + (_g92749291_ _g92759294_)))) + (_g92749291_ _g92759294_)))) + (_g92749291_ _g92759294_))))) + (_g92739336_ _stx9271_))))) (define gxc#collect-operands - (lambda (_stx8481_ . _args8482_) - (let ((_g84848503_ - (lambda (_g84858500_) - (gx#raise-syntax-error '#f '"Bad syntax" _g84858500_)))) - (let ((_g84838565_ - (lambda (_g84858506_) - (if (gx#stx-pair? _g84858506_) - (let ((_e84878508_ (gx#stx-e _g84858506_))) - (let ((_hd84888511_ (##car _e84878508_)) - (_tl84898513_ (##cdr _e84878508_))) - (if (gx#stx-pair/null? _tl84898513_) - (if (fx>= (gx#stx-length _tl84898513_) '0) - (let ((_g9267_ (gx#syntax-split-splice - _tl84898513_ + (lambda (_stx9184_ . _args9185_) + (let ((_g91879206_ + (lambda (_g91889203_) + (gx#raise-syntax-error '#f '"Bad syntax" _g91889203_)))) + (let ((_g91869268_ + (lambda (_g91889209_) + (if (gx#stx-pair? _g91889209_) + (let ((_e91909211_ (gx#stx-e _g91889209_))) + (let ((_hd91919214_ (##car _e91909211_)) + (_tl91929216_ (##cdr _e91909211_))) + (if (gx#stx-pair/null? _tl91929216_) + (if (fx>= (gx#stx-length _tl91929216_) '0) + (let ((_g9970_ (gx#syntax-split-splice + _tl91929216_ '0))) (begin - (let ((_g9268_ (values-count _g9267_))) - (if (not (fx= _g9268_ 2)) + (let ((_g9971_ (values-count _g9970_))) + (if (not (fx= _g9971_ 2)) (error "Context expects 2 values" - _g9268_))) - (let ((_target84908516_ - (values-ref _g9267_ 0)) - (_tl84928518_ - (values-ref _g9267_ 1))) - (if (gx#stx-null? _tl84928518_) - (letrec ((_loop84938521_ - (lambda (_hd84918524_ - _rands84978526_) + _g9971_))) + (let ((_target91939219_ + (values-ref _g9970_ 0)) + (_tl91959221_ + (values-ref _g9970_ 1))) + (if (gx#stx-null? _tl91959221_) + (letrec ((_loop91969224_ + (lambda (_hd91949227_ + _rands92009229_) (if (gx#stx-pair? - _hd84918524_) - (let ((_e84948529_ + _hd91949227_) + (let ((_e91979232_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd84918524_))) - (let ((_lp-hd84958532_ (##car _e84948529_)) - (_lp-tl84968534_ (##cdr _e84948529_))) - (_loop84938521_ - _lp-tl84968534_ - (cons _lp-hd84958532_ _rands84978526_)))) - (let ((_rands84988537_ (reverse _rands84978526_))) - ((lambda (_L8540_) + (gx#stx-e _hd91949227_))) + (let ((_lp-hd91989235_ (##car _e91979232_)) + (_lp-tl91999237_ (##cdr _e91979232_))) + (_loop91969224_ + _lp-tl91999237_ + (cons _lp-hd91989235_ _rands92009229_)))) + (let ((_rands92019240_ (reverse _rands92009229_))) + ((lambda (_L9243_) (for-each - (lambda (_g85538555_) - (apply gxc#compile-e _g85538555_ _args8482_)) + (lambda (_g92569258_) + (apply gxc#compile-e _g92569258_ _args9185_)) (begin '#!void - (foldr1 (lambda (_g85578560_ _g85588562_) - (cons _g85578560_ _g85588562_)) + (foldr1 (lambda (_g92609263_ _g92619265_) + (cons _g92609263_ _g92619265_)) '() - _L8540_)))) - _rands84988537_)))))) + _L9243_)))) + _rands92019240_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop84938521_ - _target84908516_ + (_loop91969224_ + _target91939219_ '())) - (_g84848503_ _g84858506_))))) - (_g84848503_ _g84858506_)) - (_g84848503_ _g84858506_)))) - (_g84848503_ _g84858506_))))) - (_g84838565_ _stx8481_))))) + (_g91879206_ _g91889209_))))) + (_g91879206_ _g91889209_)) + (_g91879206_ _g91889209_)))) + (_g91879206_ _g91889209_))))) + (_g91869268_ _stx9184_))))) (define gxc#collect-bindings-define-values% - (lambda (_stx8412_) - (let ((_g84148431_ - (lambda (_g84158428_) - (gx#raise-syntax-error '#f '"Bad syntax" _g84158428_)))) - (let ((_g84138478_ - (lambda (_g84158434_) - (if (gx#stx-pair? _g84158434_) - (let ((_e84188436_ (gx#stx-e _g84158434_))) - (let ((_hd84198439_ (##car _e84188436_)) - (_tl84208441_ (##cdr _e84188436_))) - (if (gx#stx-pair? _tl84208441_) - (let ((_e84218444_ (gx#stx-e _tl84208441_))) - (let ((_hd84228447_ (##car _e84218444_)) - (_tl84238449_ (##cdr _e84218444_))) - (if (gx#stx-pair? _tl84238449_) - (let ((_e84248452_ - (gx#stx-e _tl84238449_))) - (let ((_hd84258455_ (##car _e84248452_)) - (_tl84268457_ - (##cdr _e84248452_))) - (if (gx#stx-null? _tl84268457_) - ((lambda (_L8460_ _L8461_) - (gx#stx-for-each - (lambda (_bind8476_) + (lambda (_stx9115_) + (let ((_g91179134_ + (lambda (_g91189131_) + (gx#raise-syntax-error '#f '"Bad syntax" _g91189131_)))) + (let ((_g91169181_ + (lambda (_g91189137_) + (if (gx#stx-pair? _g91189137_) + (let ((_e91219139_ (gx#stx-e _g91189137_))) + (let ((_hd91229142_ (##car _e91219139_)) + (_tl91239144_ (##cdr _e91219139_))) + (if (gx#stx-pair? _tl91239144_) + (let ((_e91249147_ (gx#stx-e _tl91239144_))) + (let ((_hd91259150_ (##car _e91249147_)) + (_tl91269152_ (##cdr _e91249147_))) + (if (gx#stx-pair? _tl91269152_) + (let ((_e91279155_ + (gx#stx-e _tl91269152_))) + (let ((_hd91289158_ (##car _e91279155_)) + (_tl91299160_ + (##cdr _e91279155_))) + (if (gx#stx-null? _tl91299160_) + ((lambda (_L9163_ _L9164_) + (gx#stx-for-each1 + (lambda (_bind9179_) (if (gx#identifier? - _bind8476_) + _bind9179_) (gxc#add-module-binding! - _bind8476_ + _bind9179_ '#f) '#!void)) - _L8461_)) - _hd84258455_ - _hd84228447_) - (_g84148431_ _g84158434_)))) - (_g84148431_ _g84158434_)))) - (_g84148431_ _g84158434_)))) - (_g84148431_ _g84158434_))))) - (_g84138478_ _stx8412_))))) + _L9164_)) + _hd91289158_ + _hd91259150_) + (_g91179134_ _g91189137_)))) + (_g91179134_ _g91189137_)))) + (_g91179134_ _g91189137_)))) + (_g91179134_ _g91189137_))))) + (_g91169181_ _stx9115_))))) (define gxc#collect-bindings-define-syntax% - (lambda (_stx8345_) - (let ((_g83478364_ - (lambda (_g83488361_) - (gx#raise-syntax-error '#f '"Bad syntax" _g83488361_)))) - (let ((_g83468409_ - (lambda (_g83488367_) - (if (gx#stx-pair? _g83488367_) - (let ((_e83518369_ (gx#stx-e _g83488367_))) - (let ((_hd83528372_ (##car _e83518369_)) - (_tl83538374_ (##cdr _e83518369_))) - (if (gx#stx-pair? _tl83538374_) - (let ((_e83548377_ (gx#stx-e _tl83538374_))) - (let ((_hd83558380_ (##car _e83548377_)) - (_tl83568382_ (##cdr _e83548377_))) - (if (gx#stx-pair? _tl83568382_) - (let ((_e83578385_ - (gx#stx-e _tl83568382_))) - (let ((_hd83588388_ (##car _e83578385_)) - (_tl83598390_ - (##cdr _e83578385_))) - (if (gx#stx-null? _tl83598390_) - ((lambda (_L8393_ _L8394_) + (lambda (_stx9048_) + (let ((_g90509067_ + (lambda (_g90519064_) + (gx#raise-syntax-error '#f '"Bad syntax" _g90519064_)))) + (let ((_g90499112_ + (lambda (_g90519070_) + (if (gx#stx-pair? _g90519070_) + (let ((_e90549072_ (gx#stx-e _g90519070_))) + (let ((_hd90559075_ (##car _e90549072_)) + (_tl90569077_ (##cdr _e90549072_))) + (if (gx#stx-pair? _tl90569077_) + (let ((_e90579080_ (gx#stx-e _tl90569077_))) + (let ((_hd90589083_ (##car _e90579080_)) + (_tl90599085_ (##cdr _e90579080_))) + (if (gx#stx-pair? _tl90599085_) + (let ((_e90609088_ + (gx#stx-e _tl90599085_))) + (let ((_hd90619091_ (##car _e90609088_)) + (_tl90629093_ + (##cdr _e90609088_))) + (if (gx#stx-null? _tl90629093_) + ((lambda (_L9096_ _L9097_) (gxc#add-module-binding! - _L8394_ + _L9097_ '#t)) - _hd83588388_ - _hd83558380_) - (_g83478364_ _g83488367_)))) - (_g83478364_ _g83488367_)))) - (_g83478364_ _g83488367_)))) - (_g83478364_ _g83488367_))))) - (_g83468409_ _stx8345_))))) + _hd90619091_ + _hd90589083_) + (_g90509067_ _g90519070_)))) + (_g90509067_ _g90519070_)))) + (_g90509067_ _g90519070_)))) + (_g90509067_ _g90519070_))))) + (_g90499112_ _stx9048_))))) (define gxc#lift-modules-module% - (lambda (_stx8287_ _modules8288_) - (let ((_g82908304_ - (lambda (_g82918301_) - (gx#raise-syntax-error '#f '"Bad syntax" _g82918301_)))) - (let ((_g82898342_ - (lambda (_g82918307_) - (if (gx#stx-pair? _g82918307_) - (let ((_e82948309_ (gx#stx-e _g82918307_))) - (let ((_hd82958312_ (##car _e82948309_)) - (_tl82968314_ (##cdr _e82948309_))) - (if (gx#stx-pair? _tl82968314_) - (let ((_e82978317_ (gx#stx-e _tl82968314_))) - (let ((_hd82988320_ (##car _e82978317_)) - (_tl82998322_ (##cdr _e82978317_))) - ((lambda (_L8325_ _L8326_) - (let ((_ctx8339_ - (gx#syntax-local-e _L8326_))) + (lambda (_stx8990_ _modules8991_) + (let ((_g89939007_ + (lambda (_g89949004_) + (gx#raise-syntax-error '#f '"Bad syntax" _g89949004_)))) + (let ((_g89929045_ + (lambda (_g89949010_) + (if (gx#stx-pair? _g89949010_) + (let ((_e89979012_ (gx#stx-e _g89949010_))) + (let ((_hd89989015_ (##car _e89979012_)) + (_tl89999017_ (##cdr _e89979012_))) + (if (gx#stx-pair? _tl89999017_) + (let ((_e90009020_ (gx#stx-e _tl89999017_))) + (let ((_hd90019023_ (##car _e90009020_)) + (_tl90029025_ (##cdr _e90009020_))) + ((lambda (_L9028_ _L9029_) + (let ((_ctx9042_ + (gx#syntax-local-e__0 _L9029_))) (begin (set-box! - _modules8288_ - (cons _ctx8339_ - (unbox _modules8288_))) + _modules8991_ + (cons _ctx9042_ + (unbox _modules8991_))) (call-with-parameters (lambda () (gxc#compile-e - (gx#module-context-code _ctx8339_) - _modules8288_)) + (##structure-ref + _ctx9042_ + '11 + gx#module-context::t + '#f) + _modules8991_)) gx#current-expander-context - _ctx8339_)))) - _tl82998322_ - _hd82988320_))) - (_g82908304_ _g82918307_)))) - (_g82908304_ _g82918307_))))) - (_g82898342_ _stx8287_))))) + _ctx9042_)))) + _tl90029025_ + _hd90019023_))) + (_g89939007_ _g89949010_)))) + (_g89939007_ _g89949010_))))) + (_g89929045_ _stx8990_))))) (define gxc#add-module-binding! - (lambda (_id8281_ _syntax?8282_) - (let ((_eid8284_ (gx#binding-id (gx#resolve-identifier _id8281_))) - (_ht8285_ + (lambda (_id8984_ _syntax?8985_) + (let ((_eid8987_ + (##structure-ref + (gx#resolve-identifier__0 _id8984_) + '1 + gx#binding::t + '#f)) + (_ht8988_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid8284_) + (if (interned-symbol? _eid8987_) '#!void (table-set! - _ht8285_ - _eid8284_ - (gx#make-binding-id - (gxc#generate-runtime-gensym-reference__0 _eid8284_) - _syntax?8282_)))))) + _ht8988_ + _eid8987_ + (gx#make-binding-id__1 + (gxc#generate-runtime-gensym-reference__0 _eid8987_) + _syntax?8985_)))))) (define gxc#generate-runtime-binding-id - (lambda (_id8262_) - (let ((_bind8264_ (gx#resolve-identifier _id8262_))) - (if _bind8264_ - (let ((_eid8266_ (gx#binding-id _bind8264_)) - (_ht8267_ + (lambda (_id8965_) + (let ((_bind8967_ (gx#resolve-identifier__0 _id8965_))) + (if _bind8967_ + (let ((_eid8969_ (##structure-ref _bind8967_ '1 gx#binding::t '#f)) + (_ht8970_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid8266_) - _eid8266_ - (let ((_$e8269_ (table-ref _ht8267_ _eid8266_ '#f))) - (if _$e8269_ - (values _$e8269_) - (if (gx#local-binding? _bind8264_) - (let ((_gid8272_ + (if (interned-symbol? _eid8969_) + _eid8969_ + (let ((_$e8972_ (table-ref _ht8970_ _eid8969_ '#f))) + (if _$e8972_ + (values _$e8972_) + (if (##structure-instance-of? + _bind8967_ + 'gx#local-binding::t) + (let ((_gid8975_ (gxc#generate-runtime-gensym-reference__0 - _eid8266_))) + _eid8969_))) (begin - (table-set! _ht8267_ _eid8266_ _gid8272_) - _gid8272_)) - (if (gx#module-binding? _bind8264_) - (let ((_gid8279_ - (let ((_$e8274_ - (gx#module-context-ns - (gx#module-binding-context - _bind8264_)))) - (if _$e8274_ - ((lambda (_ns8277_) + (table-set! _ht8970_ _eid8969_ _gid8975_) + _gid8975_)) + (if (##structure-instance-of? + _bind8967_ + 'gx#module-binding::t) + (let ((_gid8982_ + (let ((_$e8977_ + (##structure-ref + (##structure-ref + _bind8967_ + '4 + gx#module-binding::t + '#f) + '6 + gx#module-context::t + '#f))) + (if _$e8977_ + ((lambda (_ns8980_) (make-symbol - _ns8277_ + _ns8980_ '"#" - _eid8266_)) - _$e8274_) + _eid8969_)) + _$e8977_) (gxc#generate-runtime-gensym-reference__0 - _eid8266_))))) + _eid8969_))))) (begin - (table-set! _ht8267_ _eid8266_ _gid8279_) - _gid8279_)) + (table-set! _ht8970_ _eid8969_ _gid8982_) + _gid8982_)) (gxc#raise-compile-error '"Cannot compile reference to uninterned binding" - _id8262_ - _eid8266_ - _bind8264_))))))) - (if (interned-symbol? (gx#stx-e _id8262_)) - (gx#stx-e _id8262_) + _id8965_ + _eid8969_ + _bind8967_))))))) + (if (interned-symbol? (gx#stx-e _id8965_)) + (gx#stx-e _id8965_) (gxc#raise-compile-error '"Cannot compile reference to uninterned identifier" - _id8262_)))))) + _id8965_)))))) (define gxc#generate-runtime-binding-id* - (lambda (_id8260_) - (if (gx#identifier? _id8260_) - (gxc#generate-runtime-binding-id _id8260_) + (lambda (_id8963_) + (if (gx#identifier? _id8963_) + (gxc#generate-runtime-binding-id _id8963_) (gxc#generate-runtime-temporary__0)))) (begin - (define gxc#generate-runtime-gensym-reference__opt-lambda8238 - (lambda (_sym8240_ _quote?8241_) - (let ((_ht8243_ + (define gxc#generate-runtime-gensym-reference__opt-lambda8941 + (lambda (_sym8943_ _quote?8944_) + (let ((_ht8946_ (##structure-ref (gxc#current-compile-symbol-table) '1 gxc#symbol-table::t '#f))) - (let ((_$e8245_ (table-ref _ht8243_ _sym8240_ '#f))) - (if _$e8245_ - (values _$e8245_) - (let ((_g8248_ (if _quote?8241_ + (let ((_$e8948_ (table-ref _ht8946_ _sym8943_ '#f))) + (if _$e8948_ + (values _$e8948_) + (let ((_g8951_ (if _quote?8944_ (make-symbol '"__" - _sym8240_ + _sym8943_ '"__" (gxc#current-compile-timestamp)) - (make-symbol '"_" _sym8240_ '"_")))) - (begin (table-set! _ht8243_ _sym8240_ _g8248_) _g8248_))))))) + (make-symbol '"_" _sym8943_ '"_")))) + (begin (table-set! _ht8946_ _sym8943_ _g8951_) _g8951_))))))) (begin (define gxc#generate-runtime-gensym-reference__0 - (lambda (_sym8253_) - (let ((_quote?8255_ '#f)) - (gxc#generate-runtime-gensym-reference__opt-lambda8238 - _sym8253_ - _quote?8255_)))) + (lambda (_sym8956_) + (let ((_quote?8958_ '#f)) + (gxc#generate-runtime-gensym-reference__opt-lambda8941 + _sym8956_ + _quote?8958_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g9270_ - (let ((_g9269_ (length _g9270_))) - (cond ((fx= _g9269_ 1) - (apply gxc#generate-runtime-gensym-reference__0 _g9270_)) - ((fx= _g9269_ 2) - (apply gxc#generate-runtime-gensym-reference__opt-lambda8238 - _g9270_)) - (else (error "No clause matching arguments" _g9270_)))))))) + (lambda _g9973_ + (let ((_g9972_ (length _g9973_))) + (cond ((fx= _g9972_ 1) + (apply gxc#generate-runtime-gensym-reference__0 _g9973_)) + ((fx= _g9972_ 2) + (apply gxc#generate-runtime-gensym-reference__opt-lambda8941 + _g9973_)) + (else (error "No clause matching arguments" _g9973_)))))))) (define gxc#generate-runtime-identifier - (lambda (_id8237_) - (gxc#generate-runtime-identifier-key (gx#core-identifier-key _id8237_)))) + (lambda (_id8940_) + (gxc#generate-runtime-identifier-key (gx#core-identifier-key _id8940_)))) (define gxc#generate-runtime-identifier-key - (lambda (_key8199_) - (if (interned-symbol? _key8199_) - _key8199_ - (if (uninterned-symbol? _key8199_) - (gxc#generate-runtime-gensym-reference__0 _key8199_) - (let ((_key82008207_ _key8199_)) - (let ((_E82028211_ + (lambda (_key8902_) + (if (interned-symbol? _key8902_) + _key8902_ + (if (uninterned-symbol? _key8902_) + (gxc#generate-runtime-gensym-reference__0 _key8902_) + (let ((_key89038910_ _key8902_)) + (let ((_E89058914_ (lambda () - (error '"No clause matching" _key82008207_)))) - (let ((_K82038225_ - (lambda (_mark8214_ _eid8215_) - (let ((_$e8217_ - (gx#expander-mark-subst _mark8214_))) - (if _$e8217_ - ((lambda (_ht8220_) - (let ((_$e8222_ - (table-ref _ht8220_ _eid8215_ '#f))) - (if _$e8222_ - (values _$e8222_) + (error '"No clause matching" _key89038910_)))) + (let ((_K89068928_ + (lambda (_mark8917_ _eid8918_) + (let ((_$e8920_ + (##structure-ref + _mark8917_ + '1 + gx#expander-mark::t + '#f))) + (if _$e8920_ + ((lambda (_ht8923_) + (let ((_$e8925_ + (table-ref _ht8923_ _eid8918_ '#f))) + (if _$e8925_ + (values _$e8925_) (gxc#generate-runtime-identifier-key - _eid8215_)))) - _$e8217_) + _eid8918_)))) + _$e8920_) (gxc#generate-runtime-identifier-key - _eid8215_)))))) - (if (##pair? _key82008207_) - (let ((_hd82048228_ (##car _key82008207_)) - (_tl82058230_ (##cdr _key82008207_))) - (let ((_eid8233_ _hd82048228_)) - (let ((_mark8235_ _tl82058230_)) - (_K82038225_ _mark8235_ _eid8233_)))) - (_E82028211_))))))))) + _eid8918_)))))) + (if (##pair? _key89038910_) + (let ((_hd89078931_ (##car _key89038910_)) + (_tl89088933_ (##cdr _key89038910_))) + (let ((_eid8936_ _hd89078931_)) + (let ((_mark8938_ _tl89088933_)) + (_K89068928_ _mark8938_ _eid8936_)))) + (_E89058914_))))))))) (begin - (define gxc#generate-runtime-temporary__opt-lambda8184 - (lambda (_top8186_) - (if _top8186_ - (let ((_ns8188_ - (gx#module-context-ns (gx#current-expander-context))) - (_phi8189_ (gx#current-expander-phi))) - (if (fxpositive? _phi8189_) + (define gxc#generate-runtime-temporary__opt-lambda8887 + (lambda (_top8889_) + (if _top8889_ + (let ((_ns8891_ + (##structure-ref + (gx#current-expander-context) + '6 + gx#module-context::t + '#f)) + (_phi8892_ (gx#current-expander-phi))) + (if (fxpositive? _phi8892_) (make-symbol - _ns8188_ + _ns8891_ '"[" - (number->string _phi8189_) + (number->string _phi8892_) '"]#_" (gensym) '"_") - (make-symbol _ns8188_ '"#_" (gensym) '"_"))) + (make-symbol _ns8891_ '"#_" (gensym) '"_"))) (make-symbol '"_" (gensym) '"_")))) (begin (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_top8195_ '#f)) - (gxc#generate-runtime-temporary__opt-lambda8184 _top8195_)))) + (let ((_top8898_ '#f)) + (gxc#generate-runtime-temporary__opt-lambda8887 _top8898_)))) (define gxc#generate-runtime-temporary - (lambda _g9272_ - (let ((_g9271_ (length _g9272_))) - (cond ((fx= _g9271_ 0) - (apply gxc#generate-runtime-temporary__0 _g9272_)) - ((fx= _g9271_ 1) - (apply gxc#generate-runtime-temporary__opt-lambda8184 - _g9272_)) - (else (error "No clause matching arguments" _g9272_)))))))) - (define gxc#generate-runtime-empty (lambda (_stx8183_) '(begin))) + (lambda _g9975_ + (let ((_g9974_ (length _g9975_))) + (cond ((fx= _g9974_ 0) + (apply gxc#generate-runtime-temporary__0 _g9975_)) + ((fx= _g9974_ 1) + (apply gxc#generate-runtime-temporary__opt-lambda8887 + _g9975_)) + (else (error "No clause matching arguments" _g9975_)))))))) + (define gxc#generate-runtime-empty (lambda (_stx8886_) '(begin))) (define gxc#generate-runtime-begin% - (lambda (_stx8103_) - (let ((_g81058115_ - (lambda (_g81068112_) - (gx#raise-syntax-error '#f '"Bad syntax" _g81068112_)))) - (let ((_g81048180_ - (lambda (_g81068118_) - (if (gx#stx-pair? _g81068118_) - (let ((_e81088120_ (gx#stx-e _g81068118_))) - (let ((_hd81098123_ (##car _e81088120_)) - (_tl81108125_ (##cdr _e81088120_))) - ((lambda (_L8128_) - (let ((_body8138_ - (gx#stx-map gxc#compile-e _L8128_))) - (let ((_body8177_ - (filter (lambda (_stx8140_) - (let ((_g81438152_ - (lambda (_g81448149_) + (lambda (_stx8806_) + (let ((_g88088818_ + (lambda (_g88098815_) + (gx#raise-syntax-error '#f '"Bad syntax" _g88098815_)))) + (let ((_g88078883_ + (lambda (_g88098821_) + (if (gx#stx-pair? _g88098821_) + (let ((_e88118823_ (gx#stx-e _g88098821_))) + (let ((_hd88128826_ (##car _e88118823_)) + (_tl88138828_ (##cdr _e88118823_))) + ((lambda (_L8831_) + (let ((_body8841_ + (gx#stx-map1 gxc#compile-e _L8831_))) + (let ((_body8880_ + (filter (lambda (_stx8843_) + (let ((_g88468855_ + (lambda (_g88478852_) (gx#raise-syntax-error '#f '"Bad syntax" - _g81448149_)))) - (let ((_g81428159_ - (lambda (_g81448155_) + _g88478852_)))) + (let ((_g88458862_ + (lambda (_g88478858_) ((lambda () '#t))))) - (let ((_g81418174_ - (lambda (_g81448162_) + (let ((_g88448877_ + (lambda (_g88478865_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g81448162_) - (let ((_e81458164_ (gx#stx-e _g81448162_))) - (let ((_hd81468167_ (##car _e81458164_)) - (_tl81478169_ (##cdr _e81458164_))) - (if (gx#identifier? _hd81468167_) - (if (gx#stx-eq? 'begin _hd81468167_) - (if (gx#stx-null? _tl81478169_) + _g88478865_) + (let ((_e88488867_ (gx#stx-e _g88478865_))) + (let ((_hd88498870_ (##car _e88488867_)) + (_tl88508872_ (##cdr _e88488867_))) + (if (gx#identifier? _hd88498870_) + (if (gx#stx-eq? 'begin _hd88498870_) + (if (gx#stx-null? _tl88508872_) ((lambda () '#f)) - (_g81428159_ _g81448162_)) - (_g81428159_ _g81448162_)) - (_g81428159_ _g81448162_)))) - (_g81428159_ _g81448162_))))) + (_g88458862_ _g88478865_)) + (_g88458862_ _g88478865_)) + (_g88458862_ _g88478865_)))) + (_g88458862_ _g88478865_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g81418174_ - _stx8140_))))) - _body8138_))) + (_g88448877_ + _stx8843_))))) + _body8841_))) (let () - (if (fx= (length _body8177_) '1) - (car _body8177_) - (cons 'begin _body8177_)))))) - _tl81108125_))) - (_g81058115_ _g81068118_))))) - (_g81048180_ _stx8103_))))) + (if (fx= (length _body8880_) '1) + (car _body8880_) + (cons 'begin _body8880_)))))) + _tl88138828_))) + (_g88088818_ _g88098821_))))) + (_g88078883_ _stx8806_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_stx8065_) - (let ((_g80678077_ - (lambda (_g80688074_) - (gx#raise-syntax-error '#f '"Bad syntax" _g80688074_)))) - (let ((_g80668100_ - (lambda (_g80688080_) - (if (gx#stx-pair? _g80688080_) - (let ((_e80708082_ (gx#stx-e _g80688080_))) - (let ((_hd80718085_ (##car _e80708082_)) - (_tl80728087_ (##cdr _e80708082_))) - ((lambda (_L8090_) - (cons 'begin (gx#syntax->datum _L8090_))) - _tl80728087_))) - (_g80678077_ _g80688080_))))) - (_g80668100_ _stx8065_))))) + (lambda (_stx8768_) + (let ((_g87708780_ + (lambda (_g87718777_) + (gx#raise-syntax-error '#f '"Bad syntax" _g87718777_)))) + (let ((_g87698803_ + (lambda (_g87718783_) + (if (gx#stx-pair? _g87718783_) + (let ((_e87738785_ (gx#stx-e _g87718783_))) + (let ((_hd87748788_ (##car _e87738785_)) + (_tl87758790_ (##cdr _e87738785_))) + ((lambda (_L8793_) + (cons 'begin (gx#syntax->datum _L8793_))) + _tl87758790_))) + (_g87708780_ _g87718783_))))) + (_g87698803_ _stx8768_))))) (define gxc#generate-runtime-declare% - (lambda (_stx8027_) - (let ((_g80298039_ - (lambda (_g80308036_) - (gx#raise-syntax-error '#f '"Bad syntax" _g80308036_)))) - (let ((_g80288062_ - (lambda (_g80308042_) - (if (gx#stx-pair? _g80308042_) - (let ((_e80328044_ (gx#stx-e _g80308042_))) - (let ((_hd80338047_ (##car _e80328044_)) - (_tl80348049_ (##cdr _e80328044_))) - ((lambda (_L8052_) - (cons 'declare (map gx#syntax->datum _L8052_))) - _tl80348049_))) - (_g80298039_ _g80308042_))))) - (_g80288062_ _stx8027_))))) + (lambda (_stx8730_) + (let ((_g87328742_ + (lambda (_g87338739_) + (gx#raise-syntax-error '#f '"Bad syntax" _g87338739_)))) + (let ((_g87318765_ + (lambda (_g87338745_) + (if (gx#stx-pair? _g87338745_) + (let ((_e87358747_ (gx#stx-e _g87338745_))) + (let ((_hd87368750_ (##car _e87358747_)) + (_tl87378752_ (##cdr _e87358747_))) + ((lambda (_L8755_) + (cons 'declare (map gx#syntax->datum _L8755_))) + _tl87378752_))) + (_g87328742_ _g87338745_))))) + (_g87318765_ _stx8730_))))) (define gxc#generate-runtime-define-values% - (lambda (_stx7791_) - (let ((_g77937810_ - (lambda (_g77947807_) - (gx#raise-syntax-error '#f '"Bad syntax" _g77947807_)))) - (let ((_g77928024_ - (lambda (_g77947813_) - (if (gx#stx-pair? _g77947813_) - (let ((_e77977815_ (gx#stx-e _g77947813_))) - (let ((_hd77987818_ (##car _e77977815_)) - (_tl77997820_ (##cdr _e77977815_))) - (if (gx#stx-pair? _tl77997820_) - (let ((_e78007823_ (gx#stx-e _tl77997820_))) - (let ((_hd78017826_ (##car _e78007823_)) - (_tl78027828_ (##cdr _e78007823_))) - (if (gx#stx-pair? _tl78027828_) - (let ((_e78037831_ - (gx#stx-e _tl78027828_))) - (let ((_hd78047834_ (##car _e78037831_)) - (_tl78057836_ - (##cdr _e78037831_))) - (if (gx#stx-null? _tl78057836_) - ((lambda (_L7839_ _L7840_) - (let ((_g78577870_ - (lambda (_g78587867_) + (lambda (_stx8494_) + (let ((_g84968513_ + (lambda (_g84978510_) + (gx#raise-syntax-error '#f '"Bad syntax" _g84978510_)))) + (let ((_g84958727_ + (lambda (_g84978516_) + (if (gx#stx-pair? _g84978516_) + (let ((_e85008518_ (gx#stx-e _g84978516_))) + (let ((_hd85018521_ (##car _e85008518_)) + (_tl85028523_ (##cdr _e85008518_))) + (if (gx#stx-pair? _tl85028523_) + (let ((_e85038526_ (gx#stx-e _tl85028523_))) + (let ((_hd85048529_ (##car _e85038526_)) + (_tl85058531_ (##cdr _e85038526_))) + (if (gx#stx-pair? _tl85058531_) + (let ((_e85068534_ + (gx#stx-e _tl85058531_))) + (let ((_hd85078537_ (##car _e85068534_)) + (_tl85088539_ + (##cdr _e85068534_))) + (if (gx#stx-null? _tl85088539_) + ((lambda (_L8542_ _L8543_) + (let ((_g85608573_ + (lambda (_g85618570_) (gx#raise-syntax-error '#f '"Bad syntax" - _g78587867_)))) - (let ((_g78567984_ - (lambda (_g78587873_) + _g85618570_)))) + (let ((_g85598687_ + (lambda (_g85618576_) ((lambda () - (let ((_tmp7877_ + (let ((_tmp8580_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gxc#generate-runtime-temporary__opt-lambda8184 + (gxc#generate-runtime-temporary__opt-lambda8887 '#t))) - (let ((_body7981_ - ((letrec ((_lp7879_ - (lambda (_rest7881_ _k7882_ _r7883_) - (let ((_g78887904_ - (lambda (_g78897901_) + (let ((_body8684_ + ((letrec ((_lp8582_ + (lambda (_rest8584_ _k8585_ _r8586_) + (let ((_g85918607_ + (lambda (_g85928604_) (gx#raise-syntax-error '#f '"Bad syntax" - _g78897901_)))) - (let ((_g78877911_ - (lambda (_g78897907_) + _g85928604_)))) + (let ((_g85908614_ + (lambda (_g85928610_) ((lambda () - (reverse _r7883_)))))) - (let ((_g78867932_ - (lambda (_g78897914_) - ((lambda (_L7916_) + (reverse _r8586_)))))) + (let ((_g85898635_ + (lambda (_g85928617_) + ((lambda (_L8619_) (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L7916_) + _L8619_) (foldl1 cons (cons (cons 'define (cons (gxc#generate-runtime-binding-id - _L7916_) + _L8619_) (cons (cons 'values->list - (cons _tmp7877_ + (cons _tmp8580_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _k7882_ '()))) + (cons _k8585_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - _r7883_) - (_g78877911_ _g78897914_))) - _g78897914_)))) + _r8586_) + (_g85908614_ _g85928617_))) + _g85928617_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g78857956_ - (lambda (_g78897935_) + (let ((_g85888659_ + (lambda (_g85928638_) (if (gx#stx-pair? - _g78897935_) - (let ((_e78967937_ + _g85928638_) + (let ((_e85998640_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _g78897935_))) - (let ((_hd78977940_ (##car _e78967937_)) - (_tl78987942_ (##cdr _e78967937_))) - ((lambda (_L7945_ _L7946_) - (_lp7879_ - _L7945_ - (fx+ _k7882_ '1) + (gx#stx-e _g85928638_))) + (let ((_hd86008643_ (##car _e85998640_)) + (_tl86018645_ (##cdr _e85998640_))) + ((lambda (_L8648_ _L8649_) + (_lp8582_ + _L8648_ + (fx+ _k8585_ '1) (cons (cons 'define (cons (gxc#generate-runtime-binding-id - _L7946_) + _L8649_) (cons (cons 'values-ref - (cons _tmp7877_ + (cons _tmp8580_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _k7882_ '()))) + (cons _k8585_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r7883_))) - _tl78987942_ - _hd78977940_))) - (_g78867932_ _g78897935_))))) + _r8586_))) + _tl86018645_ + _hd86008643_))) + (_g85898635_ _g85928638_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g78847978_ - (lambda (_g78897959_) + (let ((_g85878681_ + (lambda (_g85928662_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g78897959_) - (let ((_e78917961_ (gx#stx-e _g78897959_))) - (let ((_hd78927964_ (##car _e78917961_)) - (_tl78937966_ (##cdr _e78917961_))) - (if (gx#stx-datum? _hd78927964_) - (if (equal? (gx#stx-e _hd78927964_) '#f) - ((lambda (_L7969_) - (_lp7879_ - _L7969_ - (fx+ _k7882_ '1) - _r7883_)) - _tl78937966_) - (_g78857956_ _g78897959_)) - (_g78857956_ _g78897959_)))) - (_g78857956_ _g78897959_))))) - (_g78847978_ _rest7881_))))))))) + _g85928662_) + (let ((_e85948664_ (gx#stx-e _g85928662_))) + (let ((_hd85958667_ (##car _e85948664_)) + (_tl85968669_ (##cdr _e85948664_))) + (if (gx#stx-datum? _hd85958667_) + (if (equal? (gx#stx-e _hd85958667_) '#f) + ((lambda (_L8672_) + (_lp8582_ + _L8672_ + (fx+ _k8585_ '1) + _r8586_)) + _tl85968669_) + (_g85888659_ _g85928662_)) + (_g85888659_ _g85928662_)))) + (_g85888659_ _g85928662_))))) + (_g85878681_ _rest8584_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _lp7879_) - _L7840_ + _lp8582_) + _L8543_ '0 '()))) (let () (cons 'begin (cons (cons 'define - (cons _tmp7877_ + (cons _tmp8580_ (cons (gxc#compile-e - _L7839_) + _L8542_) '()))) (cons (gxc#generate-runtime-check-values - _tmp7877_ - _L7840_) - _body7981_))))))))))) + _tmp8580_ + _L8543_) + _body8684_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g78558006_ - (lambda (_g78587987_) + (let ((_g85588709_ + (lambda (_g85618690_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g78587987_) - (let ((_e78637989_ (gx#stx-e _g78587987_))) - (let ((_hd78647992_ (##car _e78637989_)) - (_tl78657994_ (##cdr _e78637989_))) - (if (gx#stx-null? _tl78657994_) - ((lambda (_L7997_) + _g85618690_) + (let ((_e85668692_ (gx#stx-e _g85618690_))) + (let ((_hd85678695_ (##car _e85668692_)) + (_tl85688697_ (##cdr _e85668692_))) + (if (gx#stx-null? _tl85688697_) + ((lambda (_L8700_) (cons 'define (cons (gxc#generate-runtime-binding-id - _L7997_) - (cons (gxc#compile-e _L7839_) + _L8700_) + (cons (gxc#compile-e _L8542_) '())))) - _hd78647992_) - (_g78567984_ _g78587987_)))) - (_g78567984_ _g78587987_))))) - (let ((_g78548021_ - (lambda (_g78588009_) - (if (gx#stx-pair? _g78588009_) - (let ((_e78598011_ (gx#stx-e _g78588009_))) - (let ((_hd78608014_ (##car _e78598011_)) - (_tl78618016_ (##cdr _e78598011_))) - (if (gx#stx-datum? _hd78608014_) - (if (equal? (gx#stx-e _hd78608014_) '#f) - (if (gx#stx-null? _tl78618016_) + _hd85678695_) + (_g85598687_ _g85618690_)))) + (_g85598687_ _g85618690_))))) + (let ((_g85578724_ + (lambda (_g85618712_) + (if (gx#stx-pair? _g85618712_) + (let ((_e85628714_ (gx#stx-e _g85618712_))) + (let ((_hd85638717_ (##car _e85628714_)) + (_tl85648719_ (##cdr _e85628714_))) + (if (gx#stx-datum? _hd85638717_) + (if (equal? (gx#stx-e _hd85638717_) '#f) + (if (gx#stx-null? _tl85648719_) ((lambda () - (gxc#compile-e _L7839_))) - (_g78558006_ _g78588009_)) - (_g78558006_ _g78588009_)) - (_g78558006_ _g78588009_)))) - (_g78558006_ _g78588009_))))) - (_g78548021_ _L7840_)))))) + (gxc#compile-e _L8542_))) + (_g85588709_ _g85618712_)) + (_g85588709_ _g85618712_)) + (_g85588709_ _g85618712_)))) + (_g85588709_ _g85618712_))))) + (_g85578724_ _L8543_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd78047834_ - _hd78017826_) - (_g77937810_ _g77947813_)))) - (_g77937810_ _g77947813_)))) - (_g77937810_ _g77947813_)))) - (_g77937810_ _g77947813_))))) - (_g77928024_ _stx7791_))))) + _hd85078537_ + _hd85048529_) + (_g84968513_ _g84978516_)))) + (_g84968513_ _g84978516_)))) + (_g84968513_ _g84978516_)))) + (_g84968513_ _g84978516_))))) + (_g84958727_ _stx8494_))))) (define gxc#generate-runtime-check-values - (lambda (_vals7779_ _hd7780_) - (let ((_len7782_ (gx#stx-length _hd7780_))) - (let ((_cmp7784_ (if (gx#stx-list? _hd7780_) 'fx= 'fx>=))) - (let ((_errmsg7786_ + (lambda (_vals8482_ _hd8483_) + (let ((_len8485_ (gx#stx-length _hd8483_))) + (let ((_cmp8487_ (if (gx#stx-list? _hd8483_) 'fx= 'fx>=))) + (let ((_errmsg8489_ (string-append - (if (gx#stx-list? _hd7780_) + (if (gx#stx-list? _hd8483_) '"Context expects " '"Context expects at least ") - (number->string _len7782_) + (number->string _len8485_) '" values"))) - (let ((_count7788_ (gxc#generate-runtime-temporary__0))) + (let ((_count8491_ (gxc#generate-runtime-temporary__0))) (let () - (if (if (not (gx#stx-list? _hd7780_)) (fx= _len7782_ '0) '#f) + (if (if (not (gx#stx-list? _hd8483_)) (fx= _len8485_ '0) '#f) '#!void (cons 'let - (cons (cons (cons _count7788_ + (cons (cons (cons _count8491_ (cons (cons 'values-count - (cons _vals7779_ '())) + (cons _vals8482_ '())) '())) '()) (cons (cons 'if (cons (cons 'not - (cons (cons _cmp7784_ + (cons (cons _cmp8487_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _count7788_ (cons _len7782_ '()))) + (cons _count8491_ (cons _len8485_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'error - (cons _errmsg7786_ + (cons _errmsg8489_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _count7788_ '()))) + (cons _count8491_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))))))) (define gxc#generate-runtime-lambda% - (lambda (_stx7712_) - (let ((_g77147731_ - (lambda (_g77157728_) - (gx#raise-syntax-error '#f '"Bad syntax" _g77157728_)))) - (let ((_g77137776_ - (lambda (_g77157734_) - (if (gx#stx-pair? _g77157734_) - (let ((_e77187736_ (gx#stx-e _g77157734_))) - (let ((_hd77197739_ (##car _e77187736_)) - (_tl77207741_ (##cdr _e77187736_))) - (if (gx#stx-pair? _tl77207741_) - (let ((_e77217744_ (gx#stx-e _tl77207741_))) - (let ((_hd77227747_ (##car _e77217744_)) - (_tl77237749_ (##cdr _e77217744_))) - (if (gx#stx-pair? _tl77237749_) - (let ((_e77247752_ - (gx#stx-e _tl77237749_))) - (let ((_hd77257755_ (##car _e77247752_)) - (_tl77267757_ - (##cdr _e77247752_))) - (if (gx#stx-null? _tl77267757_) - ((lambda (_L7760_ _L7761_) + (lambda (_stx8415_) + (let ((_g84178434_ + (lambda (_g84188431_) + (gx#raise-syntax-error '#f '"Bad syntax" _g84188431_)))) + (let ((_g84168479_ + (lambda (_g84188437_) + (if (gx#stx-pair? _g84188437_) + (let ((_e84218439_ (gx#stx-e _g84188437_))) + (let ((_hd84228442_ (##car _e84218439_)) + (_tl84238444_ (##cdr _e84218439_))) + (if (gx#stx-pair? _tl84238444_) + (let ((_e84248447_ (gx#stx-e _tl84238444_))) + (let ((_hd84258450_ (##car _e84248447_)) + (_tl84268452_ (##cdr _e84248447_))) + (if (gx#stx-pair? _tl84268452_) + (let ((_e84278455_ + (gx#stx-e _tl84268452_))) + (let ((_hd84288458_ (##car _e84278455_)) + (_tl84298460_ + (##cdr _e84278455_))) + (if (gx#stx-null? _tl84298460_) + ((lambda (_L8463_ _L8464_) (cons 'lambda (cons (gxc#generate-runtime-lambda-head - _L7761_) + _L8464_) (cons (gxc#compile-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L7760_) + _L8463_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd77257755_ - _hd77227747_) - (_g77147731_ _g77157734_)))) - (_g77147731_ _g77157734_)))) - (_g77147731_ _g77157734_)))) - (_g77147731_ _g77157734_))))) - (_g77137776_ _stx7712_))))) + _hd84288458_ + _hd84258450_) + (_g84178434_ _g84188437_)))) + (_g84178434_ _g84188437_)))) + (_g84178434_ _g84188437_)))) + (_g84178434_ _g84188437_))))) + (_g84168479_ _stx8415_))))) (define gxc#generate-runtime-lambda-head - (lambda (_hd7710_) (gx#stx-map gxc#generate-runtime-binding-id* _hd7710_))) + (lambda (_hd8413_) + (gx#stx-map1 gxc#generate-runtime-binding-id* _hd8413_))) (define gxc#generate-runtime-case-lambda% - (lambda (_stx6247_) - (let ((_runtime-identifier=?6249_ - (lambda (_id-stx7701_ _sym7702_) - (let ((_bind77037705_ (gx#resolve-identifier _id-stx7701_))) - (if _bind77037705_ - (let ((_bind7708_ _bind77037705_)) - (eq? (gx#binding-id _bind7708_) _sym7702_)) + (lambda (_stx6950_) + (let ((_runtime-identifier=?6952_ + (lambda (_id-stx8404_ _sym8405_) + (let ((_bind84068408_ (gx#resolve-identifier__0 _id-stx8404_))) + (if _bind84068408_ + (let ((_bind8411_ _bind84068408_)) + (eq? (##structure-ref _bind8411_ '1 gx#binding::t '#f) + _sym8405_)) '#f))))) - (let ((_dispatch-case?6250_ - (lambda (_hd6931_ _body6932_) - (let ((_form6934_ (cons _hd6931_ (cons _body6932_ '())))) - (let ((_g69397096_ - (lambda (_g69407093_) + (let ((_dispatch-case?6953_ + (lambda (_hd7634_ _body7635_) + (let ((_form7637_ (cons _hd7634_ (cons _body7635_ '())))) + (let ((_g76427799_ + (lambda (_g76437796_) (gx#raise-syntax-error '#f '"Bad syntax" - _g69407093_)))) - (let ((_g69387103_ - (lambda (_g69407099_) ((lambda () '#f))))) - (let ((_g69377244_ - (lambda (_g69407106_) - (if (gx#stx-pair? _g69407106_) - (let ((_e70567108_ (gx#stx-e _g69407106_))) - (let ((_hd70577111_ (##car _e70567108_)) - (_tl70587113_ (##cdr _e70567108_))) - (if (gx#stx-pair? _tl70587113_) - (let ((_e70597116_ - (gx#stx-e _tl70587113_))) - (let ((_hd70607119_ - (##car _e70597116_)) - (_tl70617121_ - (##cdr _e70597116_))) - (if (gx#stx-pair? _hd70607119_) - (let ((_e70627124_ + _g76437796_)))) + (let ((_g76417806_ + (lambda (_g76437802_) ((lambda () '#f))))) + (let ((_g76407947_ + (lambda (_g76437809_) + (if (gx#stx-pair? _g76437809_) + (let ((_e77597811_ (gx#stx-e _g76437809_))) + (let ((_hd77607814_ (##car _e77597811_)) + (_tl77617816_ (##cdr _e77597811_))) + (if (gx#stx-pair? _tl77617816_) + (let ((_e77627819_ + (gx#stx-e _tl77617816_))) + (let ((_hd77637822_ + (##car _e77627819_)) + (_tl77647824_ + (##cdr _e77627819_))) + (if (gx#stx-pair? _hd77637822_) + (let ((_e77657827_ (gx#stx-e - _hd70607119_))) - (let ((_hd70637127_ - (##car _e70627124_)) - (_tl70647129_ - (##cdr _e70627124_))) + _hd77637822_))) + (let ((_hd77667830_ + (##car _e77657827_)) + (_tl77677832_ + (##cdr _e77657827_))) (if (gx#identifier? - _hd70637127_) + _hd77667830_) (if (gx#stx-eq? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#call - _hd70637127_) - (if (gx#stx-pair? _tl70647129_) - (let ((_e70657132_ (gx#stx-e _tl70647129_))) - (let ((_hd70667135_ (##car _e70657132_)) - (_tl70677137_ (##cdr _e70657132_))) - (if (gx#stx-pair? _hd70667135_) - (let ((_e70687140_ - (gx#stx-e _hd70667135_))) - (let ((_hd70697143_ (##car _e70687140_)) - (_tl70707145_ (##cdr _e70687140_))) - (if (gx#identifier? _hd70697143_) + _hd77667830_) + (if (gx#stx-pair? _tl77677832_) + (let ((_e77687835_ (gx#stx-e _tl77677832_))) + (let ((_hd77697838_ (##car _e77687835_)) + (_tl77707840_ (##cdr _e77687835_))) + (if (gx#stx-pair? _hd77697838_) + (let ((_e77717843_ + (gx#stx-e _hd77697838_))) + (let ((_hd77727846_ (##car _e77717843_)) + (_tl77737848_ (##cdr _e77717843_))) + (if (gx#identifier? _hd77727846_) (if (gx#stx-eq? '%#ref - _hd70697143_) - (if (gx#stx-pair? _tl70707145_) - (let ((_e70717148_ + _hd77727846_) + (if (gx#stx-pair? _tl77737848_) + (let ((_e77747851_ (gx#stx-e - _tl70707145_))) - (let ((_hd70727151_ - (##car _e70717148_)) - (_tl70737153_ - (##cdr _e70717148_))) + _tl77737848_))) + (let ((_hd77757854_ + (##car _e77747851_)) + (_tl77767856_ + (##cdr _e77747851_))) (if (gx#stx-null? - _tl70737153_) + _tl77767856_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl70677137_) - (let ((_e70747156_ (gx#stx-e _tl70677137_))) - (let ((_hd70757159_ (##car _e70747156_)) - (_tl70767161_ (##cdr _e70747156_))) - (if (gx#stx-pair? _hd70757159_) - (let ((_e70777164_ (gx#stx-e _hd70757159_))) - (let ((_hd70787167_ (##car _e70777164_)) - (_tl70797169_ (##cdr _e70777164_))) - (if (gx#identifier? _hd70787167_) - (if (gx#stx-eq? '%#ref _hd70787167_) - (if (gx#stx-pair? _tl70797169_) - (let ((_e70807172_ + _tl77707840_) + (let ((_e77777859_ (gx#stx-e _tl77707840_))) + (let ((_hd77787862_ (##car _e77777859_)) + (_tl77797864_ (##cdr _e77777859_))) + (if (gx#stx-pair? _hd77787862_) + (let ((_e77807867_ (gx#stx-e _hd77787862_))) + (let ((_hd77817870_ (##car _e77807867_)) + (_tl77827872_ (##cdr _e77807867_))) + (if (gx#identifier? _hd77817870_) + (if (gx#stx-eq? '%#ref _hd77817870_) + (if (gx#stx-pair? _tl77827872_) + (let ((_e77837875_ (gx#stx-e - _tl70797169_))) - (let ((_hd70817175_ - (##car _e70807172_)) - (_tl70827177_ - (##cdr _e70807172_))) + _tl77827872_))) + (let ((_hd77847878_ + (##car _e77837875_)) + (_tl77857880_ + (##cdr _e77837875_))) (if (gx#stx-null? - _tl70827177_) + _tl77857880_) (if (gx#stx-pair? - _tl70767161_) - (let ((_e70837180_ + _tl77797864_) + (let ((_e77867883_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl70767161_))) - (let ((_hd70847183_ (##car _e70837180_)) - (_tl70857185_ (##cdr _e70837180_))) - (if (gx#stx-pair? _hd70847183_) - (let ((_e70867188_ (gx#stx-e _hd70847183_))) - (let ((_hd70877191_ (##car _e70867188_)) - (_tl70887193_ (##cdr _e70867188_))) - (if (gx#identifier? _hd70877191_) - (if (gx#stx-eq? '%#ref _hd70877191_) - (if (gx#stx-pair? _tl70887193_) - (let ((_e70897196_ - (gx#stx-e _tl70887193_))) - (let ((_hd70907199_ - (##car _e70897196_)) - (_tl70917201_ - (##cdr _e70897196_))) - (if (gx#stx-null? _tl70917201_) + (gx#stx-e _tl77797864_))) + (let ((_hd77877886_ (##car _e77867883_)) + (_tl77887888_ (##cdr _e77867883_))) + (if (gx#stx-pair? _hd77877886_) + (let ((_e77897891_ (gx#stx-e _hd77877886_))) + (let ((_hd77907894_ (##car _e77897891_)) + (_tl77917896_ (##cdr _e77897891_))) + (if (gx#identifier? _hd77907894_) + (if (gx#stx-eq? '%#ref _hd77907894_) + (if (gx#stx-pair? _tl77917896_) + (let ((_e77927899_ + (gx#stx-e _tl77917896_))) + (let ((_hd77937902_ + (##car _e77927899_)) + (_tl77947904_ + (##cdr _e77927899_))) + (if (gx#stx-null? _tl77947904_) (if (gx#stx-null? - _tl70857185_) + _tl77887888_) (if (gx#stx-null? - _tl70617121_) - ((lambda (_L7204_ + _tl77647824_) + ((lambda (_L7907_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L7205_ - _L7206_ - _L7207_) - (if (if (gx#identifier? _L7207_) - (if (_runtime-identifier=?6249_ _L7206_ 'apply) - (if (gx#free-identifier=? _L7207_ _L7204_) + _L7908_ + _L7909_ + _L7910_) + (if (if (gx#identifier? _L7910_) + (if (_runtime-identifier=?6952_ _L7909_ 'apply) + (if (gx#free-identifier=? _L7910_ _L7907_) (not (gx#free-identifier=? - _L7205_ - _L7207_)) + _L7908_ + _L7910_)) '#f) '#f) '#f) '#t - (_g69387103_ _g69407106_))) - _hd70907199_ - _hd70817175_ - _hd70727151_ - _hd70577111_) - (_g69387103_ _g69407106_)) - (_g69387103_ _g69407106_)) + (_g76417806_ _g76437809_))) + _hd77937902_ + _hd77847878_ + _hd77757854_ + _hd77607814_) + (_g76417806_ _g76437809_)) + (_g76417806_ _g76437809_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g69387103_ - _g69407106_)))) - (_g69387103_ _g69407106_)) - (_g69387103_ _g69407106_)) - (_g69387103_ _g69407106_)))) - (_g69387103_ _g69407106_)))) - (_g69387103_ _g69407106_)) - (_g69387103_ _g69407106_)))) + (_g76417806_ + _g76437809_)))) + (_g76417806_ _g76437809_)) + (_g76417806_ _g76437809_)) + (_g76417806_ _g76437809_)))) + (_g76417806_ _g76437809_)))) + (_g76417806_ _g76437809_)) + (_g76417806_ _g76437809_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g69387103_ _g69407106_)) - (_g69387103_ _g69407106_)) - (_g69387103_ _g69407106_)))) - (_g69387103_ _g69407106_)))) - (_g69387103_ _g69407106_)) - (_g69387103_ _g69407106_)))) + (_g76417806_ _g76437809_)) + (_g76417806_ _g76437809_)) + (_g76417806_ _g76437809_)))) + (_g76417806_ _g76437809_)))) + (_g76417806_ _g76437809_)) + (_g76417806_ _g76437809_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g69387103_ _g69407106_)) - (_g69387103_ _g69407106_)) - (_g69387103_ _g69407106_)))) - (_g69387103_ _g69407106_)))) - (_g69387103_ _g69407106_)) - (_g69387103_ _g69407106_)) - (_g69387103_ _g69407106_)))) + (_g76417806_ _g76437809_)) + (_g76417806_ _g76437809_)) + (_g76417806_ _g76437809_)))) + (_g76417806_ _g76437809_)))) + (_g76417806_ _g76437809_)) + (_g76417806_ _g76437809_)) + (_g76417806_ _g76437809_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g69387103_ - _g69407106_)))) - (_g69387103_ _g69407106_)))) - (_g69387103_ _g69407106_))))) - (let ((_g69367504_ - (lambda (_g69407247_) - (if (gx#stx-pair? _g69407247_) - (let ((_e69927249_ - (gx#stx-e _g69407247_))) - (let ((_hd69937252_ - (##car _e69927249_)) - (_tl69947254_ - (##cdr _e69927249_))) - (if (gx#stx-pair/null? _hd69937252_) + (_g76417806_ + _g76437809_)))) + (_g76417806_ _g76437809_)))) + (_g76417806_ _g76437809_))))) + (let ((_g76398207_ + (lambda (_g76437950_) + (if (gx#stx-pair? _g76437950_) + (let ((_e76957952_ + (gx#stx-e _g76437950_))) + (let ((_hd76967955_ + (##car _e76957952_)) + (_tl76977957_ + (##cdr _e76957952_))) + (if (gx#stx-pair/null? _hd76967955_) (if (fx>= (gx#stx-length - _hd69937252_) + _hd76967955_) '0) - (let ((_g9281_ (gx#syntax-split-splice + (let ((_g9984_ (gx#syntax-split-splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd69937252_ + _hd76967955_ '0))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g9282_ (values-count + (let ((_g9985_ (values-count ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g9281_))) - (if (not (fx= _g9282_ 2)) - (error "Context expects 2 values" _g9282_))) - (let ((_target69957257_ (values-ref _g9281_ 0)) - (_tl69977259_ (values-ref _g9281_ 1))) - (letrec ((_loop69987262_ - (lambda (_hd69967265_ _arg70027267_) - (if (gx#stx-pair? _hd69967265_) - (let ((_e69997270_ (gx#stx-e _hd69967265_))) - (let ((_lp-hd70007273_ (##car _e69997270_)) - (_lp-tl70017275_ (##cdr _e69997270_))) - (_loop69987262_ - _lp-tl70017275_ - (cons _lp-hd70007273_ _arg70027267_)))) - (let ((_arg70037278_ (reverse _arg70027267_))) - (if (gx#stx-pair? _tl69947254_) - (let ((_e70047281_ - (gx#stx-e _tl69947254_))) - (let ((_hd70057284_ - (##car _e70047281_)) - (_tl70067286_ - (##cdr _e70047281_))) - (if (gx#stx-pair? _hd70057284_) - (let ((_e70077289_ - (gx#stx-e _hd70057284_))) - (let ((_hd70087292_ - (##car _e70077289_)) - (_tl70097294_ - (##cdr _e70077289_))) + _g9984_))) + (if (not (fx= _g9985_ 2)) + (error "Context expects 2 values" _g9985_))) + (let ((_target76987960_ (values-ref _g9984_ 0)) + (_tl77007962_ (values-ref _g9984_ 1))) + (letrec ((_loop77017965_ + (lambda (_hd76997968_ _arg77057970_) + (if (gx#stx-pair? _hd76997968_) + (let ((_e77027973_ (gx#stx-e _hd76997968_))) + (let ((_lp-hd77037976_ (##car _e77027973_)) + (_lp-tl77047978_ (##cdr _e77027973_))) + (_loop77017965_ + _lp-tl77047978_ + (cons _lp-hd77037976_ _arg77057970_)))) + (let ((_arg77067981_ (reverse _arg77057970_))) + (if (gx#stx-pair? _tl76977957_) + (let ((_e77077984_ + (gx#stx-e _tl76977957_))) + (let ((_hd77087987_ + (##car _e77077984_)) + (_tl77097989_ + (##cdr _e77077984_))) + (if (gx#stx-pair? _hd77087987_) + (let ((_e77107992_ + (gx#stx-e _hd77087987_))) + (let ((_hd77117995_ + (##car _e77107992_)) + (_tl77127997_ + (##cdr _e77107992_))) (if (gx#identifier? - _hd70087292_) + _hd77117995_) (if (gx#stx-eq? '%#call - _hd70087292_) + _hd77117995_) (if (gx#stx-pair? - _tl70097294_) - (let ((_e70107297_ + _tl77127997_) + (let ((_e77138000_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl70097294_))) - (let ((_hd70117300_ (##car _e70107297_)) - (_tl70127302_ (##cdr _e70107297_))) - (if (gx#stx-pair? _hd70117300_) - (let ((_e70137305_ (gx#stx-e _hd70117300_))) - (let ((_hd70147308_ (##car _e70137305_)) - (_tl70157310_ (##cdr _e70137305_))) - (if (gx#identifier? _hd70147308_) - (if (gx#stx-eq? '%#ref _hd70147308_) - (if (gx#stx-pair? _tl70157310_) - (let ((_e70167313_ - (gx#stx-e _tl70157310_))) - (let ((_hd70177316_ - (##car _e70167313_)) - (_tl70187318_ - (##cdr _e70167313_))) + (gx#stx-e _tl77127997_))) + (let ((_hd77148003_ (##car _e77138000_)) + (_tl77158005_ (##cdr _e77138000_))) + (if (gx#stx-pair? _hd77148003_) + (let ((_e77168008_ (gx#stx-e _hd77148003_))) + (let ((_hd77178011_ (##car _e77168008_)) + (_tl77188013_ (##cdr _e77168008_))) + (if (gx#identifier? _hd77178011_) + (if (gx#stx-eq? '%#ref _hd77178011_) + (if (gx#stx-pair? _tl77188013_) + (let ((_e77198016_ + (gx#stx-e _tl77188013_))) + (let ((_hd77208019_ + (##car _e77198016_)) + (_tl77218021_ + (##cdr _e77198016_))) (if (gx#stx-null? - _tl70187318_) + _tl77218021_) (if (gx#stx-pair? - _tl70127302_) - (let ((_e70197321_ + _tl77158005_) + (let ((_e77228024_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl70127302_))) - (let ((_hd70207324_ (##car _e70197321_)) - (_tl70217326_ (##cdr _e70197321_))) - (if (gx#stx-pair? _hd70207324_) - (let ((_e70227329_ (gx#stx-e _hd70207324_))) - (let ((_hd70237332_ (##car _e70227329_)) - (_tl70247334_ (##cdr _e70227329_))) - (if (gx#identifier? _hd70237332_) - (if (gx#stx-eq? '%#ref _hd70237332_) - (if (gx#stx-pair? _tl70247334_) - (let ((_e70257337_ - (gx#stx-e _tl70247334_))) - (let ((_hd70267340_ - (##car _e70257337_)) - (_tl70277342_ - (##cdr _e70257337_))) - (if (gx#stx-null? _tl70277342_) + (gx#stx-e _tl77158005_))) + (let ((_hd77238027_ (##car _e77228024_)) + (_tl77248029_ (##cdr _e77228024_))) + (if (gx#stx-pair? _hd77238027_) + (let ((_e77258032_ (gx#stx-e _hd77238027_))) + (let ((_hd77268035_ (##car _e77258032_)) + (_tl77278037_ (##cdr _e77258032_))) + (if (gx#identifier? _hd77268035_) + (if (gx#stx-eq? '%#ref _hd77268035_) + (if (gx#stx-pair? _tl77278037_) + (let ((_e77288040_ + (gx#stx-e _tl77278037_))) + (let ((_hd77298043_ + (##car _e77288040_)) + (_tl77308045_ + (##cdr _e77288040_))) + (if (gx#stx-null? _tl77308045_) (if (gx#stx-pair/null? - _tl70217326_) + _tl77248029_) (if (fx>= (gx#stx-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl70217326_) + _tl77248029_) '1) - (let ((_g9283_ (gx#syntax-split-splice _tl70217326_ '1))) + (let ((_g9986_ (gx#syntax-split-splice _tl77248029_ '1))) (begin - (let ((_g9284_ (values-count _g9283_))) - (if (not (fx= _g9284_ 2)) - (error "Context expects 2 values" _g9284_))) - (let ((_target70287345_ (values-ref _g9283_ 0)) - (_tl70307347_ (values-ref _g9283_ 1))) - (if (gx#stx-pair? _tl70307347_) - (let ((_e70377350_ (gx#stx-e _tl70307347_))) - (let ((_hd70387353_ (##car _e70377350_)) - (_tl70397355_ (##cdr _e70377350_))) - (if (gx#stx-pair? _hd70387353_) - (let ((_e70407358_ - (gx#stx-e _hd70387353_))) - (let ((_hd70417361_ (##car _e70407358_)) - (_tl70427363_ (##cdr _e70407358_))) - (if (gx#identifier? _hd70417361_) + (let ((_g9987_ (values-count _g9986_))) + (if (not (fx= _g9987_ 2)) + (error "Context expects 2 values" _g9987_))) + (let ((_target77318048_ (values-ref _g9986_ 0)) + (_tl77338050_ (values-ref _g9986_ 1))) + (if (gx#stx-pair? _tl77338050_) + (let ((_e77408053_ (gx#stx-e _tl77338050_))) + (let ((_hd77418056_ (##car _e77408053_)) + (_tl77428058_ (##cdr _e77408053_))) + (if (gx#stx-pair? _hd77418056_) + (let ((_e77438061_ + (gx#stx-e _hd77418056_))) + (let ((_hd77448064_ (##car _e77438061_)) + (_tl77458066_ (##cdr _e77438061_))) + (if (gx#identifier? _hd77448064_) (if (gx#stx-eq? '%#ref - _hd70417361_) - (if (gx#stx-pair? _tl70427363_) - (let ((_e70437366_ + _hd77448064_) + (if (gx#stx-pair? _tl77458066_) + (let ((_e77468069_ (gx#stx-e - _tl70427363_))) - (let ((_hd70447369_ - (##car _e70437366_)) - (_tl70457371_ - (##cdr _e70437366_))) + _tl77458066_))) + (let ((_hd77478072_ + (##car _e77468069_)) + (_tl77488074_ + (##cdr _e77468069_))) (if (gx#stx-null? - _tl70457371_) + _tl77488074_) (if (gx#stx-null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl70397355_) - (letrec ((_loop70317374_ - (lambda (_hd70297377_ _xarg70357379_) - (if (gx#stx-pair? _hd70297377_) - (let ((_e70327382_ - (gx#stx-e _hd70297377_))) - (let ((_lp-hd70337385_ - (##car _e70327382_)) - (_lp-tl70347387_ - (##cdr _e70327382_))) - (if (gx#stx-pair? _lp-hd70337385_) - (let ((_e70467390_ + _tl77428058_) + (letrec ((_loop77348077_ + (lambda (_hd77328080_ _xarg77388082_) + (if (gx#stx-pair? _hd77328080_) + (let ((_e77358085_ + (gx#stx-e _hd77328080_))) + (let ((_lp-hd77368088_ + (##car _e77358085_)) + (_lp-tl77378090_ + (##cdr _e77358085_))) + (if (gx#stx-pair? _lp-hd77368088_) + (let ((_e77498093_ (gx#stx-e - _lp-hd70337385_))) - (let ((_hd70477393_ - (##car _e70467390_)) - (_tl70487395_ - (##cdr _e70467390_))) + _lp-hd77368088_))) + (let ((_hd77508096_ + (##car _e77498093_)) + (_tl77518098_ + (##cdr _e77498093_))) (if (gx#identifier? - _hd70477393_) + _hd77508096_) (if (gx#stx-eq? '%#ref - _hd70477393_) + _hd77508096_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl70487395_) - (let ((_e70497398_ (gx#stx-e _tl70487395_))) - (let ((_hd70507401_ (##car _e70497398_)) - (_tl70517403_ (##cdr _e70497398_))) - (if (gx#stx-null? _tl70517403_) - (_loop70317374_ - _lp-tl70347387_ - (cons _hd70507401_ _xarg70357379_)) - (_g69377244_ _g69407247_)))) - (_g69377244_ _g69407247_)) - (_g69377244_ _g69407247_)) - (_g69377244_ _g69407247_)))) + _tl77518098_) + (let ((_e77528101_ (gx#stx-e _tl77518098_))) + (let ((_hd77538104_ (##car _e77528101_)) + (_tl77548106_ (##cdr _e77528101_))) + (if (gx#stx-null? _tl77548106_) + (_loop77348077_ + _lp-tl77378090_ + (cons _hd77538104_ _xarg77388082_)) + (_g76407947_ _g76437950_)))) + (_g76407947_ _g76437950_)) + (_g76407947_ _g76437950_)) + (_g76407947_ _g76437950_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g69377244_ _g69407247_)))) - (let ((_xarg70367406_ - (reverse _xarg70357379_))) - (if (gx#stx-null? _tl70067286_) - ((lambda (_L7409_ - _L7410_ - _L7411_ - _L7412_ - _L7413_ - _L7414_) + (_g76407947_ _g76437950_)))) + (let ((_xarg77398109_ + (reverse _xarg77388082_))) + (if (gx#stx-null? _tl77097989_) + ((lambda (_L8112_ + _L8113_ + _L8114_ + _L8115_ + _L8116_ + _L8117_) (if (if (gx#identifier-list? (begin '#!void - (foldr1 (lambda (_g74577460_ + (foldr1 (lambda (_g81608163_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g74587462_) - (cons _g74577460_ _g74587462_)) + _g81618165_) + (cons _g81608163_ _g81618165_)) '() - _L7414_))) - (if (gx#identifier? _L7413_) - (if (_runtime-identifier=?6249_ _L7412_ 'apply) + _L8117_))) + (if (gx#identifier? _L8116_) + (if (_runtime-identifier=?6952_ _L8115_ 'apply) (if (fx= (length (begin '#!void - (foldr1 (lambda (_g74647467_ - _g74657469_) - (cons _g74647467_ - _g74657469_)) + (foldr1 (lambda (_g81678170_ + _g81688172_) + (cons _g81678170_ + _g81688172_)) '() - _L7414_))) + _L8117_))) (length (begin '#!void - (foldr1 (lambda (_g74717474_ - _g74727476_) - (cons _g74717474_ - _g74727476_)) + (foldr1 (lambda (_g81748177_ + _g81758179_) + (cons _g81748177_ + _g81758179_)) '() - _L7410_)))) + _L8113_)))) (if (andmap gx#free-identifier=? (begin '#!void - (foldr1 (lambda (_g74787481_ - _g74797483_) - (cons _g74787481_ - _g74797483_)) + (foldr1 (lambda (_g81818184_ + _g81828186_) + (cons _g81818184_ + _g81828186_)) '() - _L7414_)) + _L8117_)) (begin '#!void - (foldr1 (lambda (_g74857488_ - _g74867490_) - (cons _g74857488_ - _g74867490_)) + (foldr1 (lambda (_g81888191_ + _g81898193_) + (cons _g81888191_ + _g81898193_)) '() - _L7410_))) - (if (gx#free-identifier=? _L7413_ _L7409_) - (not (find (lambda (_g74927494_) + _L8113_))) + (if (gx#free-identifier=? _L8116_ _L8112_) + (not (find (lambda (_g81958197_) (gx#free-identifier=? - _g74927494_ - _L7411_)) + _g81958197_ + _L8114_)) (begin '#!void - (foldr1 (lambda (_g74967499_ + (foldr1 (lambda (_g81998202_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g74977501_) - (cons _g74967499_ _g74977501_)) - (cons _L7413_ '()) - _L7414_)))) + _g82008204_) + (cons _g81998202_ _g82008204_)) + (cons _L8116_ '()) + _L8117_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#f) '#f) @@ -1824,810 +1856,810 @@ '#f) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#t - (_g69377244_ - _g69407247_))) - _hd70447369_ - _xarg70367406_ - _hd70267340_ - _hd70177316_ - _tl69977259_ - _arg70037278_) - (_g69377244_ _g69407247_))))))) - (_loop70317374_ _target70287345_ '())) - (_g69377244_ _g69407247_)) - (_g69377244_ _g69407247_)))) + (_g76407947_ + _g76437950_))) + _hd77478072_ + _xarg77398109_ + _hd77298043_ + _hd77208019_ + _tl77007962_ + _arg77067981_) + (_g76407947_ _g76437950_))))))) + (_loop77348077_ _target77318048_ '())) + (_g76407947_ _g76437950_)) + (_g76407947_ _g76437950_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g69377244_ _g69407247_)) - (_g69377244_ _g69407247_)) - (_g69377244_ _g69407247_)))) - (_g69377244_ _g69407247_)))) - (_g69377244_ _g69407247_))))) - (_g69377244_ _g69407247_)) - (_g69377244_ _g69407247_)) + (_g76407947_ _g76437950_)) + (_g76407947_ _g76437950_)) + (_g76407947_ _g76437950_)))) + (_g76407947_ _g76437950_)))) + (_g76407947_ _g76437950_))))) + (_g76407947_ _g76437950_)) + (_g76407947_ _g76437950_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g69377244_ _g69407247_)))) - (_g69377244_ _g69407247_)) - (_g69377244_ _g69407247_)) - (_g69377244_ _g69407247_)))) - (_g69377244_ _g69407247_)))) - (_g69377244_ _g69407247_)) - (_g69377244_ _g69407247_)))) + (_g76407947_ _g76437950_)))) + (_g76407947_ _g76437950_)) + (_g76407947_ _g76437950_)) + (_g76407947_ _g76437950_)))) + (_g76407947_ _g76437950_)))) + (_g76407947_ _g76437950_)) + (_g76407947_ _g76437950_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g69377244_ _g69407247_)) - (_g69377244_ _g69407247_)) - (_g69377244_ _g69407247_)))) - (_g69377244_ _g69407247_)))) - (_g69377244_ _g69407247_)) - (_g69377244_ _g69407247_)) - (_g69377244_ _g69407247_)))) + (_g76407947_ _g76437950_)) + (_g76407947_ _g76437950_)) + (_g76407947_ _g76437950_)))) + (_g76407947_ _g76437950_)))) + (_g76407947_ _g76437950_)) + (_g76407947_ _g76437950_)) + (_g76407947_ _g76437950_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g69377244_ _g69407247_)))) - (_g69377244_ _g69407247_))))))) - (_loop69987262_ _target69957257_ '()))))) + (_g76407947_ _g76437950_)))) + (_g76407947_ _g76437950_))))))) + (_loop77017965_ _target76987960_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g69377244_ _g69407247_)) - (_g69377244_ _g69407247_)))) - (_g69377244_ _g69407247_))))) - (let ((_g69357698_ - (lambda (_g69407507_) - (if (gx#stx-pair? _g69407507_) - (let ((_e69447509_ - (gx#stx-e _g69407507_))) - (let ((_hd69457512_ - (##car _e69447509_)) - (_tl69467514_ - (##cdr _e69447509_))) + (_g76407947_ _g76437950_)) + (_g76407947_ _g76437950_)))) + (_g76407947_ _g76437950_))))) + (let ((_g76388401_ + (lambda (_g76438210_) + (if (gx#stx-pair? _g76438210_) + (let ((_e76478212_ + (gx#stx-e _g76438210_))) + (let ((_hd76488215_ + (##car _e76478212_)) + (_tl76498217_ + (##cdr _e76478212_))) (if (gx#stx-pair/null? - _hd69457512_) + _hd76488215_) (if (fx>= (gx#stx-length - _hd69457512_) + _hd76488215_) '0) - (let ((_g9285_ (gx#syntax-split-splice + (let ((_g9988_ (gx#syntax-split-splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd69457512_ + _hd76488215_ '0))) (begin - (let ((_g9286_ (values-count _g9285_))) - (if (not (fx= _g9286_ 2)) - (error "Context expects 2 values" _g9286_))) - (let ((_target69477517_ (values-ref _g9285_ 0)) - (_tl69497519_ (values-ref _g9285_ 1))) - (if (gx#stx-null? _tl69497519_) - (letrec ((_loop69507522_ - (lambda (_hd69487525_ _arg69547527_) - (if (gx#stx-pair? _hd69487525_) - (let ((_e69517530_ - (gx#stx-e _hd69487525_))) - (let ((_lp-hd69527533_ - (##car _e69517530_)) - (_lp-tl69537535_ - (##cdr _e69517530_))) - (_loop69507522_ - _lp-tl69537535_ - (cons _lp-hd69527533_ - _arg69547527_)))) - (let ((_arg69557538_ - (reverse _arg69547527_))) - (if (gx#stx-pair? _tl69467514_) - (let ((_e69567541_ - (gx#stx-e _tl69467514_))) - (let ((_hd69577544_ - (##car _e69567541_)) - (_tl69587546_ - (##cdr _e69567541_))) - (if (gx#stx-pair? _hd69577544_) - (let ((_e69597549_ + (let ((_g9989_ (values-count _g9988_))) + (if (not (fx= _g9989_ 2)) + (error "Context expects 2 values" _g9989_))) + (let ((_target76508220_ (values-ref _g9988_ 0)) + (_tl76528222_ (values-ref _g9988_ 1))) + (if (gx#stx-null? _tl76528222_) + (letrec ((_loop76538225_ + (lambda (_hd76518228_ _arg76578230_) + (if (gx#stx-pair? _hd76518228_) + (let ((_e76548233_ + (gx#stx-e _hd76518228_))) + (let ((_lp-hd76558236_ + (##car _e76548233_)) + (_lp-tl76568238_ + (##cdr _e76548233_))) + (_loop76538225_ + _lp-tl76568238_ + (cons _lp-hd76558236_ + _arg76578230_)))) + (let ((_arg76588241_ + (reverse _arg76578230_))) + (if (gx#stx-pair? _tl76498217_) + (let ((_e76598244_ + (gx#stx-e _tl76498217_))) + (let ((_hd76608247_ + (##car _e76598244_)) + (_tl76618249_ + (##cdr _e76598244_))) + (if (gx#stx-pair? _hd76608247_) + (let ((_e76628252_ (gx#stx-e - _hd69577544_))) - (let ((_hd69607552_ - (##car _e69597549_)) - (_tl69617554_ - (##cdr _e69597549_))) + _hd76608247_))) + (let ((_hd76638255_ + (##car _e76628252_)) + (_tl76648257_ + (##cdr _e76628252_))) (if (gx#identifier? - _hd69607552_) + _hd76638255_) (if (gx#stx-eq? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#call - _hd69607552_) - (if (gx#stx-pair? _tl69617554_) - (let ((_e69627557_ (gx#stx-e _tl69617554_))) - (let ((_hd69637560_ (##car _e69627557_)) - (_tl69647562_ (##cdr _e69627557_))) - (if (gx#stx-pair? _hd69637560_) - (let ((_e69657565_ - (gx#stx-e _hd69637560_))) - (let ((_hd69667568_ (##car _e69657565_)) - (_tl69677570_ (##cdr _e69657565_))) - (if (gx#identifier? _hd69667568_) + _hd76638255_) + (if (gx#stx-pair? _tl76648257_) + (let ((_e76658260_ (gx#stx-e _tl76648257_))) + (let ((_hd76668263_ (##car _e76658260_)) + (_tl76678265_ (##cdr _e76658260_))) + (if (gx#stx-pair? _hd76668263_) + (let ((_e76688268_ + (gx#stx-e _hd76668263_))) + (let ((_hd76698271_ (##car _e76688268_)) + (_tl76708273_ (##cdr _e76688268_))) + (if (gx#identifier? _hd76698271_) (if (gx#stx-eq? '%#ref - _hd69667568_) - (if (gx#stx-pair? _tl69677570_) - (let ((_e69687573_ + _hd76698271_) + (if (gx#stx-pair? _tl76708273_) + (let ((_e76718276_ (gx#stx-e - _tl69677570_))) - (let ((_hd69697576_ - (##car _e69687573_)) - (_tl69707578_ - (##cdr _e69687573_))) + _tl76708273_))) + (let ((_hd76728279_ + (##car _e76718276_)) + (_tl76738281_ + (##cdr _e76718276_))) (if (gx#stx-null? - _tl69707578_) + _tl76738281_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl69647562_) - (if (fx>= (gx#stx-length _tl69647562_) '0) - (let ((_g9287_ (gx#syntax-split-splice - _tl69647562_ + _tl76678265_) + (if (fx>= (gx#stx-length _tl76678265_) '0) + (let ((_g9990_ (gx#syntax-split-splice + _tl76678265_ '0))) (begin - (let ((_g9288_ (values-count _g9287_))) - (if (not (fx= _g9288_ 2)) + (let ((_g9991_ (values-count _g9990_))) + (if (not (fx= _g9991_ 2)) (error "Context expects 2 values" - _g9288_))) - (let ((_target69717581_ (values-ref _g9287_ 0)) - (_tl69737583_ (values-ref _g9287_ 1))) - (if (gx#stx-null? _tl69737583_) - (letrec ((_loop69747586_ - (lambda (_hd69727589_ - _xarg69787591_) + _g9991_))) + (let ((_target76748284_ (values-ref _g9990_ 0)) + (_tl76768286_ (values-ref _g9990_ 1))) + (if (gx#stx-null? _tl76768286_) + (letrec ((_loop76778289_ + (lambda (_hd76758292_ + _xarg76818294_) (if (gx#stx-pair? - _hd69727589_) - (let ((_e69757594_ + _hd76758292_) + (let ((_e76788297_ (gx#stx-e - _hd69727589_))) - (let ((_lp-hd69767597_ - (##car _e69757594_)) - (_lp-tl69777599_ - (##cdr _e69757594_))) + _hd76758292_))) + (let ((_lp-hd76798300_ + (##car _e76788297_)) + (_lp-tl76808302_ + (##cdr _e76788297_))) (if (gx#stx-pair? - _lp-hd69767597_) - (let ((_e69807602_ + _lp-hd76798300_) + (let ((_e76838305_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _lp-hd69767597_))) - (let ((_hd69817605_ (##car _e69807602_)) - (_tl69827607_ (##cdr _e69807602_))) - (if (gx#identifier? _hd69817605_) - (if (gx#stx-eq? '%#ref _hd69817605_) - (if (gx#stx-pair? _tl69827607_) - (let ((_e69837610_ - (gx#stx-e _tl69827607_))) - (let ((_hd69847613_ - (##car _e69837610_)) - (_tl69857615_ - (##cdr _e69837610_))) - (if (gx#stx-null? _tl69857615_) - (_loop69747586_ - _lp-tl69777599_ - (cons _hd69847613_ - _xarg69787591_)) - (_g69367504_ _g69407507_)))) - (_g69367504_ _g69407507_)) - (_g69367504_ _g69407507_)) - (_g69367504_ _g69407507_)))) - (_g69367504_ _g69407507_)))) - (let ((_xarg69797618_ (reverse _xarg69787591_))) - (if (gx#stx-null? _tl69587546_) - ((lambda (_L7621_ _L7622_ _L7623_) + (gx#stx-e _lp-hd76798300_))) + (let ((_hd76848308_ (##car _e76838305_)) + (_tl76858310_ (##cdr _e76838305_))) + (if (gx#identifier? _hd76848308_) + (if (gx#stx-eq? '%#ref _hd76848308_) + (if (gx#stx-pair? _tl76858310_) + (let ((_e76868313_ + (gx#stx-e _tl76858310_))) + (let ((_hd76878316_ + (##car _e76868313_)) + (_tl76888318_ + (##cdr _e76868313_))) + (if (gx#stx-null? _tl76888318_) + (_loop76778289_ + _lp-tl76808302_ + (cons _hd76878316_ + _xarg76818294_)) + (_g76398207_ _g76438210_)))) + (_g76398207_ _g76438210_)) + (_g76398207_ _g76438210_)) + (_g76398207_ _g76438210_)))) + (_g76398207_ _g76438210_)))) + (let ((_xarg76828321_ (reverse _xarg76818294_))) + (if (gx#stx-null? _tl76618249_) + ((lambda (_L8324_ _L8325_ _L8326_) (if (if (gx#identifier-list? (begin '#!void - (foldr1 (lambda (_g76517654_ _g76527656_) - (cons _g76517654_ _g76527656_)) + (foldr1 (lambda (_g83548357_ _g83558359_) + (cons _g83548357_ _g83558359_)) '() - _L7623_))) + _L8326_))) (if (fx= (length (begin '#!void - (foldr1 (lambda (_g76587661_ + (foldr1 (lambda (_g83618364_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g76597663_) - (cons _g76587661_ _g76597663_)) + _g83628366_) + (cons _g83618364_ _g83628366_)) '() - _L7623_))) + _L8326_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (length (begin '#!void - (foldr1 (lambda (_g76657668_ + (foldr1 (lambda (_g83688371_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g76667670_) - (cons _g76657668_ _g76667670_)) + _g83698373_) + (cons _g83688371_ _g83698373_)) '() - _L7621_)))) + _L8324_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (andmap gx#free-identifier=? (begin '#!void - (foldr1 (lambda (_g76727675_ + (foldr1 (lambda (_g83758378_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g76737677_) - (cons _g76727675_ _g76737677_)) + _g83768380_) + (cons _g83758378_ _g83768380_)) '() - _L7623_)) + _L8326_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin '#!void - (foldr1 (lambda (_g76797682_ + (foldr1 (lambda (_g83828385_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g76807684_) - (cons _g76797682_ _g76807684_)) + _g83838387_) + (cons _g83828385_ _g83838387_)) '() - _L7621_))) + _L8324_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (not (find (lambda (_g76867688_) + (not (find (lambda (_g83898391_) (gx#free-identifier=? - _g76867688_ - _L7622_)) + _g83898391_ + _L8325_)) (begin '#!void - (foldr1 (lambda (_g76907693_ + (foldr1 (lambda (_g83938396_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g76917695_) - (cons _g76907693_ _g76917695_)) + _g83948398_) + (cons _g83938396_ _g83948398_)) '() - _L7623_)))) + _L8326_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#f) '#f) '#f) '#t - (_g69367504_ _g69407507_))) - _xarg69797618_ - _hd69697576_ - _arg69557538_) - (_g69367504_ _g69407507_))))))) + (_g76398207_ _g76438210_))) + _xarg76828321_ + _hd76728279_ + _arg76588241_) + (_g76398207_ _g76438210_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop69747586_ _target69717581_ '())) - (_g69367504_ _g69407507_))))) - (_g69367504_ _g69407507_)) - (_g69367504_ _g69407507_)) - (_g69367504_ _g69407507_)))) + (_loop76778289_ _target76748284_ '())) + (_g76398207_ _g76438210_))))) + (_g76398207_ _g76438210_)) + (_g76398207_ _g76438210_)) + (_g76398207_ _g76438210_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g69367504_ _g69407507_)) - (_g69367504_ _g69407507_)) - (_g69367504_ _g69407507_)))) - (_g69367504_ _g69407507_)))) - (_g69367504_ _g69407507_)) - (_g69367504_ _g69407507_)) - (_g69367504_ _g69407507_)))) + (_g76398207_ _g76438210_)) + (_g76398207_ _g76438210_)) + (_g76398207_ _g76438210_)))) + (_g76398207_ _g76438210_)))) + (_g76398207_ _g76438210_)) + (_g76398207_ _g76438210_)) + (_g76398207_ _g76438210_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g69367504_ - _g69407507_)))) - (_g69367504_ _g69407507_))))))) - (_loop69507522_ _target69477517_ '())) - (_g69367504_ _g69407507_))))) + (_g76398207_ + _g76438210_)))) + (_g76398207_ _g76438210_))))))) + (_loop76538225_ _target76508220_ '())) + (_g76398207_ _g76438210_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g69367504_ _g69407507_)) - (_g69367504_ _g69407507_)))) - (_g69367504_ _g69407507_))))) - (_g69357698_ _form6934_)))))))))) - (let ((_dispatch-case-e6251_ - (lambda (_hd6395_ _body6396_) - (let ((_form6398_ (cons _hd6395_ (cons _body6396_ '())))) - (let ((_g64026526_ - (lambda (_g64036523_) + (_g76398207_ _g76438210_)) + (_g76398207_ _g76438210_)))) + (_g76398207_ _g76438210_))))) + (_g76388401_ _form7637_)))))))))) + (let ((_dispatch-case-e6954_ + (lambda (_hd7098_ _body7099_) + (let ((_form7101_ (cons _hd7098_ (cons _body7099_ '())))) + (let ((_g71057229_ + (lambda (_g71067226_) (gx#raise-syntax-error '#f '"Bad syntax" - _g64036523_)))) - (let ((_g64016644_ - (lambda (_g64036529_) - (if (gx#stx-pair? _g64036529_) - (let ((_e64926531_ (gx#stx-e _g64036529_))) - (let ((_hd64936534_ (##car _e64926531_)) - (_tl64946536_ (##cdr _e64926531_))) - (if (gx#stx-pair? _tl64946536_) - (let ((_e64956539_ - (gx#stx-e _tl64946536_))) - (let ((_hd64966542_ - (##car _e64956539_)) - (_tl64976544_ - (##cdr _e64956539_))) - (if (gx#stx-pair? _hd64966542_) - (let ((_e64986547_ + _g71067226_)))) + (let ((_g71047347_ + (lambda (_g71067232_) + (if (gx#stx-pair? _g71067232_) + (let ((_e71957234_ (gx#stx-e _g71067232_))) + (let ((_hd71967237_ (##car _e71957234_)) + (_tl71977239_ (##cdr _e71957234_))) + (if (gx#stx-pair? _tl71977239_) + (let ((_e71987242_ + (gx#stx-e _tl71977239_))) + (let ((_hd71997245_ + (##car _e71987242_)) + (_tl72007247_ + (##cdr _e71987242_))) + (if (gx#stx-pair? _hd71997245_) + (let ((_e72017250_ (gx#stx-e - _hd64966542_))) - (let ((_hd64996550_ - (##car _e64986547_)) - (_tl65006552_ - (##cdr _e64986547_))) + _hd71997245_))) + (let ((_hd72027253_ + (##car _e72017250_)) + (_tl72037255_ + (##cdr _e72017250_))) (if (gx#identifier? - _hd64996550_) + _hd72027253_) (if (gx#stx-eq? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#call - _hd64996550_) - (if (gx#stx-pair? _tl65006552_) - (let ((_e65016555_ (gx#stx-e _tl65006552_))) - (let ((_hd65026558_ (##car _e65016555_)) - (_tl65036560_ (##cdr _e65016555_))) - (if (gx#stx-pair? _hd65026558_) - (let ((_e65046563_ - (gx#stx-e _hd65026558_))) - (let ((_hd65056566_ (##car _e65046563_)) - (_tl65066568_ (##cdr _e65046563_))) - (if (gx#identifier? _hd65056566_) + _hd72027253_) + (if (gx#stx-pair? _tl72037255_) + (let ((_e72047258_ (gx#stx-e _tl72037255_))) + (let ((_hd72057261_ (##car _e72047258_)) + (_tl72067263_ (##cdr _e72047258_))) + (if (gx#stx-pair? _hd72057261_) + (let ((_e72077266_ + (gx#stx-e _hd72057261_))) + (let ((_hd72087269_ (##car _e72077266_)) + (_tl72097271_ (##cdr _e72077266_))) + (if (gx#identifier? _hd72087269_) (if (gx#stx-eq? '%#ref - _hd65056566_) - (if (gx#stx-pair? _tl65066568_) - (let ((_e65076571_ + _hd72087269_) + (if (gx#stx-pair? _tl72097271_) + (let ((_e72107274_ (gx#stx-e - _tl65066568_))) - (let ((_hd65086574_ - (##car _e65076571_)) - (_tl65096576_ - (##cdr _e65076571_))) + _tl72097271_))) + (let ((_hd72117277_ + (##car _e72107274_)) + (_tl72127279_ + (##cdr _e72107274_))) (if (gx#stx-null? - _tl65096576_) + _tl72127279_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl65036560_) - (let ((_e65106579_ (gx#stx-e _tl65036560_))) - (let ((_hd65116582_ (##car _e65106579_)) - (_tl65126584_ (##cdr _e65106579_))) - (if (gx#stx-pair? _hd65116582_) - (let ((_e65136587_ (gx#stx-e _hd65116582_))) - (let ((_hd65146590_ (##car _e65136587_)) - (_tl65156592_ (##cdr _e65136587_))) - (if (gx#identifier? _hd65146590_) - (if (gx#stx-eq? '%#ref _hd65146590_) - (if (gx#stx-pair? _tl65156592_) - (let ((_e65166595_ + _tl72067263_) + (let ((_e72137282_ (gx#stx-e _tl72067263_))) + (let ((_hd72147285_ (##car _e72137282_)) + (_tl72157287_ (##cdr _e72137282_))) + (if (gx#stx-pair? _hd72147285_) + (let ((_e72167290_ (gx#stx-e _hd72147285_))) + (let ((_hd72177293_ (##car _e72167290_)) + (_tl72187295_ (##cdr _e72167290_))) + (if (gx#identifier? _hd72177293_) + (if (gx#stx-eq? '%#ref _hd72177293_) + (if (gx#stx-pair? _tl72187295_) + (let ((_e72197298_ (gx#stx-e - _tl65156592_))) - (let ((_hd65176598_ - (##car _e65166595_)) - (_tl65186600_ - (##cdr _e65166595_))) + _tl72187295_))) + (let ((_hd72207301_ + (##car _e72197298_)) + (_tl72217303_ + (##cdr _e72197298_))) (if (gx#stx-null? - _tl65186600_) + _tl72217303_) (if (gx#stx-pair? - _tl65126584_) - (let ((_e65196603_ + _tl72157287_) + (let ((_e72227306_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl65126584_))) - (let ((_hd65206606_ (##car _e65196603_)) - (_tl65216608_ (##cdr _e65196603_))) - (if (gx#stx-null? _tl65216608_) - (if (gx#stx-null? _tl64976544_) - ((lambda (_L6611_ _L6612_ _L6613_) + (gx#stx-e _tl72157287_))) + (let ((_hd72237309_ (##car _e72227306_)) + (_tl72247311_ (##cdr _e72227306_))) + (if (gx#stx-null? _tl72247311_) + (if (gx#stx-null? _tl72007247_) + ((lambda (_L7314_ _L7315_ _L7316_) (gxc#compile-e - (cons (gx#datum->syntax '#f '%#ref) - (cons _L6611_ '())))) - _hd65176598_ - _hd65086574_ - _hd64936534_) - (_g64026526_ _g64036529_)) - (_g64026526_ _g64036529_)))) - (_g64026526_ _g64036529_)) - (_g64026526_ _g64036529_)))) + (cons (gx#datum->syntax__0 '#f '%#ref) + (cons _L7314_ '())))) + _hd72207301_ + _hd72117277_ + _hd71967237_) + (_g71057229_ _g71067232_)) + (_g71057229_ _g71067232_)))) + (_g71057229_ _g71067232_)) + (_g71057229_ _g71067232_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g64026526_ _g64036529_)) - (_g64026526_ _g64036529_)) - (_g64026526_ _g64036529_)))) - (_g64026526_ _g64036529_)))) - (_g64026526_ _g64036529_)) - (_g64026526_ _g64036529_)))) + (_g71057229_ _g71067232_)) + (_g71057229_ _g71067232_)) + (_g71057229_ _g71067232_)))) + (_g71057229_ _g71067232_)))) + (_g71057229_ _g71067232_)) + (_g71057229_ _g71067232_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g64026526_ _g64036529_)) - (_g64026526_ _g64036529_)) - (_g64026526_ _g64036529_)))) - (_g64026526_ _g64036529_)))) - (_g64026526_ _g64036529_)) - (_g64026526_ _g64036529_)) - (_g64026526_ _g64036529_)))) + (_g71057229_ _g71067232_)) + (_g71057229_ _g71067232_)) + (_g71057229_ _g71067232_)))) + (_g71057229_ _g71067232_)))) + (_g71057229_ _g71067232_)) + (_g71057229_ _g71067232_)) + (_g71057229_ _g71067232_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g64026526_ - _g64036529_)))) - (_g64026526_ _g64036529_)))) - (_g64026526_ _g64036529_))))) - (let ((_g64006780_ - (lambda (_g64036647_) - (if (gx#stx-pair? _g64036647_) - (let ((_e64536649_ - (gx#stx-e _g64036647_))) - (let ((_hd64546652_ - (##car _e64536649_)) - (_tl64556654_ - (##cdr _e64536649_))) - (if (gx#stx-pair/null? _hd64546652_) + (_g71057229_ + _g71067232_)))) + (_g71057229_ _g71067232_)))) + (_g71057229_ _g71067232_))))) + (let ((_g71037483_ + (lambda (_g71067350_) + (if (gx#stx-pair? _g71067350_) + (let ((_e71567352_ + (gx#stx-e _g71067350_))) + (let ((_hd71577355_ + (##car _e71567352_)) + (_tl71587357_ + (##cdr _e71567352_))) + (if (gx#stx-pair/null? _hd71577355_) (if (fx>= (gx#stx-length - _hd64546652_) + _hd71577355_) '0) - (let ((_g9275_ (gx#syntax-split-splice + (let ((_g9978_ (gx#syntax-split-splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd64546652_ + _hd71577355_ '0))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g9276_ (values-count + (let ((_g9979_ (values-count ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g9275_))) - (if (not (fx= _g9276_ 2)) - (error "Context expects 2 values" _g9276_))) - (let ((_target64566657_ (values-ref _g9275_ 0)) - (_tl64586659_ (values-ref _g9275_ 1))) - (letrec ((_loop64596662_ - (lambda (_hd64576665_ _arg64636667_) - (if (gx#stx-pair? _hd64576665_) - (let ((_e64606670_ (gx#stx-e _hd64576665_))) - (let ((_lp-hd64616673_ (##car _e64606670_)) - (_lp-tl64626675_ (##cdr _e64606670_))) - (_loop64596662_ - _lp-tl64626675_ - (cons _lp-hd64616673_ _arg64636667_)))) - (let ((_arg64646678_ (reverse _arg64636667_))) - (if (gx#stx-pair? _tl64556654_) - (let ((_e64656681_ - (gx#stx-e _tl64556654_))) - (let ((_hd64666684_ - (##car _e64656681_)) - (_tl64676686_ - (##cdr _e64656681_))) - (if (gx#stx-pair? _hd64666684_) - (let ((_e64686689_ - (gx#stx-e _hd64666684_))) - (let ((_hd64696692_ - (##car _e64686689_)) - (_tl64706694_ - (##cdr _e64686689_))) + _g9978_))) + (if (not (fx= _g9979_ 2)) + (error "Context expects 2 values" _g9979_))) + (let ((_target71597360_ (values-ref _g9978_ 0)) + (_tl71617362_ (values-ref _g9978_ 1))) + (letrec ((_loop71627365_ + (lambda (_hd71607368_ _arg71667370_) + (if (gx#stx-pair? _hd71607368_) + (let ((_e71637373_ (gx#stx-e _hd71607368_))) + (let ((_lp-hd71647376_ (##car _e71637373_)) + (_lp-tl71657378_ (##cdr _e71637373_))) + (_loop71627365_ + _lp-tl71657378_ + (cons _lp-hd71647376_ _arg71667370_)))) + (let ((_arg71677381_ (reverse _arg71667370_))) + (if (gx#stx-pair? _tl71587357_) + (let ((_e71687384_ + (gx#stx-e _tl71587357_))) + (let ((_hd71697387_ + (##car _e71687384_)) + (_tl71707389_ + (##cdr _e71687384_))) + (if (gx#stx-pair? _hd71697387_) + (let ((_e71717392_ + (gx#stx-e _hd71697387_))) + (let ((_hd71727395_ + (##car _e71717392_)) + (_tl71737397_ + (##cdr _e71717392_))) (if (gx#identifier? - _hd64696692_) + _hd71727395_) (if (gx#stx-eq? '%#call - _hd64696692_) + _hd71727395_) (if (gx#stx-pair? - _tl64706694_) - (let ((_e64716697_ + _tl71737397_) + (let ((_e71747400_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl64706694_))) - (let ((_hd64726700_ (##car _e64716697_)) - (_tl64736702_ (##cdr _e64716697_))) - (if (gx#stx-pair? _hd64726700_) - (let ((_e64746705_ (gx#stx-e _hd64726700_))) - (let ((_hd64756708_ (##car _e64746705_)) - (_tl64766710_ (##cdr _e64746705_))) - (if (gx#identifier? _hd64756708_) - (if (gx#stx-eq? '%#ref _hd64756708_) - (if (gx#stx-pair? _tl64766710_) - (let ((_e64776713_ - (gx#stx-e _tl64766710_))) - (let ((_hd64786716_ - (##car _e64776713_)) - (_tl64796718_ - (##cdr _e64776713_))) + (gx#stx-e _tl71737397_))) + (let ((_hd71757403_ (##car _e71747400_)) + (_tl71767405_ (##cdr _e71747400_))) + (if (gx#stx-pair? _hd71757403_) + (let ((_e71777408_ (gx#stx-e _hd71757403_))) + (let ((_hd71787411_ (##car _e71777408_)) + (_tl71797413_ (##cdr _e71777408_))) + (if (gx#identifier? _hd71787411_) + (if (gx#stx-eq? '%#ref _hd71787411_) + (if (gx#stx-pair? _tl71797413_) + (let ((_e71807416_ + (gx#stx-e _tl71797413_))) + (let ((_hd71817419_ + (##car _e71807416_)) + (_tl71827421_ + (##cdr _e71807416_))) (if (gx#stx-null? - _tl64796718_) + _tl71827421_) (if (gx#stx-pair? - _tl64736702_) - (let ((_e64806721_ + _tl71767405_) + (let ((_e71837424_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl64736702_))) - (let ((_hd64816724_ (##car _e64806721_)) - (_tl64826726_ (##cdr _e64806721_))) - (if (gx#stx-pair? _hd64816724_) - (let ((_e64836729_ (gx#stx-e _hd64816724_))) - (let ((_hd64846732_ (##car _e64836729_)) - (_tl64856734_ (##cdr _e64836729_))) - (if (gx#identifier? _hd64846732_) - (if (gx#stx-eq? '%#ref _hd64846732_) - (if (gx#stx-pair? _tl64856734_) - (let ((_e64866737_ - (gx#stx-e _tl64856734_))) - (let ((_hd64876740_ - (##car _e64866737_)) - (_tl64886742_ - (##cdr _e64866737_))) - (if (gx#stx-null? _tl64886742_) + (gx#stx-e _tl71767405_))) + (let ((_hd71847427_ (##car _e71837424_)) + (_tl71857429_ (##cdr _e71837424_))) + (if (gx#stx-pair? _hd71847427_) + (let ((_e71867432_ (gx#stx-e _hd71847427_))) + (let ((_hd71877435_ (##car _e71867432_)) + (_tl71887437_ (##cdr _e71867432_))) + (if (gx#identifier? _hd71877435_) + (if (gx#stx-eq? '%#ref _hd71877435_) + (if (gx#stx-pair? _tl71887437_) + (let ((_e71897440_ + (gx#stx-e _tl71887437_))) + (let ((_hd71907443_ + (##car _e71897440_)) + (_tl71917445_ + (##cdr _e71897440_))) + (if (gx#stx-null? _tl71917445_) (if (gx#stx-null? - _tl64676686_) - ((lambda (_L6745_ - _L6746_ - _L6747_ - _L6748_) + _tl71707389_) + ((lambda (_L7448_ + _L7449_ + _L7450_ + _L7451_) (gxc#compile-e - (cons (gx#datum->syntax + (cons (gx#datum->syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '%#ref) - (cons _L6745_ '())))) - _hd64876740_ - _hd64786716_ - _tl64586659_ - _arg64646678_) - (_g64016644_ _g64036647_)) + (cons _L7448_ '())))) + _hd71907443_ + _hd71817419_ + _tl71617362_ + _arg71677381_) + (_g71047347_ _g71067350_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g64016644_ _g64036647_)))) - (_g64016644_ _g64036647_)) - (_g64016644_ _g64036647_)) - (_g64016644_ _g64036647_)))) - (_g64016644_ _g64036647_)))) - (_g64016644_ _g64036647_)) - (_g64016644_ _g64036647_)))) + (_g71047347_ _g71067350_)))) + (_g71047347_ _g71067350_)) + (_g71047347_ _g71067350_)) + (_g71047347_ _g71067350_)))) + (_g71047347_ _g71067350_)))) + (_g71047347_ _g71067350_)) + (_g71047347_ _g71067350_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g64016644_ _g64036647_)) - (_g64016644_ _g64036647_)) - (_g64016644_ _g64036647_)))) - (_g64016644_ _g64036647_)))) - (_g64016644_ _g64036647_)) - (_g64016644_ _g64036647_)) - (_g64016644_ _g64036647_)))) + (_g71047347_ _g71067350_)) + (_g71047347_ _g71067350_)) + (_g71047347_ _g71067350_)))) + (_g71047347_ _g71067350_)))) + (_g71047347_ _g71067350_)) + (_g71047347_ _g71067350_)) + (_g71047347_ _g71067350_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g64016644_ _g64036647_)))) - (_g64016644_ _g64036647_))))))) - (_loop64596662_ _target64566657_ '()))))) + (_g71047347_ _g71067350_)))) + (_g71047347_ _g71067350_))))))) + (_loop71627365_ _target71597360_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g64016644_ _g64036647_)) - (_g64016644_ _g64036647_)))) - (_g64016644_ _g64036647_))))) - (let ((_g63996928_ - (lambda (_g64036783_) - (if (gx#stx-pair? _g64036783_) - (let ((_e64076785_ - (gx#stx-e _g64036783_))) - (let ((_hd64086788_ - (##car _e64076785_)) - (_tl64096790_ - (##cdr _e64076785_))) + (_g71047347_ _g71067350_)) + (_g71047347_ _g71067350_)))) + (_g71047347_ _g71067350_))))) + (let ((_g71027631_ + (lambda (_g71067486_) + (if (gx#stx-pair? _g71067486_) + (let ((_e71107488_ + (gx#stx-e _g71067486_))) + (let ((_hd71117491_ + (##car _e71107488_)) + (_tl71127493_ + (##cdr _e71107488_))) (if (gx#stx-pair/null? - _hd64086788_) + _hd71117491_) (if (fx>= (gx#stx-length - _hd64086788_) + _hd71117491_) '0) - (let ((_g9277_ (gx#syntax-split-splice + (let ((_g9980_ (gx#syntax-split-splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd64086788_ + _hd71117491_ '0))) (begin - (let ((_g9278_ (values-count _g9277_))) - (if (not (fx= _g9278_ 2)) - (error "Context expects 2 values" _g9278_))) - (let ((_target64106793_ (values-ref _g9277_ 0)) - (_tl64126795_ (values-ref _g9277_ 1))) - (if (gx#stx-null? _tl64126795_) - (letrec ((_loop64136798_ - (lambda (_hd64116801_ _arg64176803_) - (if (gx#stx-pair? _hd64116801_) - (let ((_e64146806_ - (gx#stx-e _hd64116801_))) - (let ((_lp-hd64156809_ - (##car _e64146806_)) - (_lp-tl64166811_ - (##cdr _e64146806_))) - (_loop64136798_ - _lp-tl64166811_ - (cons _lp-hd64156809_ - _arg64176803_)))) - (let ((_arg64186814_ - (reverse _arg64176803_))) - (if (gx#stx-pair? _tl64096790_) - (let ((_e64196817_ - (gx#stx-e _tl64096790_))) - (let ((_hd64206820_ - (##car _e64196817_)) - (_tl64216822_ - (##cdr _e64196817_))) - (if (gx#stx-pair? _hd64206820_) - (let ((_e64226825_ + (let ((_g9981_ (values-count _g9980_))) + (if (not (fx= _g9981_ 2)) + (error "Context expects 2 values" _g9981_))) + (let ((_target71137496_ (values-ref _g9980_ 0)) + (_tl71157498_ (values-ref _g9980_ 1))) + (if (gx#stx-null? _tl71157498_) + (letrec ((_loop71167501_ + (lambda (_hd71147504_ _arg71207506_) + (if (gx#stx-pair? _hd71147504_) + (let ((_e71177509_ + (gx#stx-e _hd71147504_))) + (let ((_lp-hd71187512_ + (##car _e71177509_)) + (_lp-tl71197514_ + (##cdr _e71177509_))) + (_loop71167501_ + _lp-tl71197514_ + (cons _lp-hd71187512_ + _arg71207506_)))) + (let ((_arg71217517_ + (reverse _arg71207506_))) + (if (gx#stx-pair? _tl71127493_) + (let ((_e71227520_ + (gx#stx-e _tl71127493_))) + (let ((_hd71237523_ + (##car _e71227520_)) + (_tl71247525_ + (##cdr _e71227520_))) + (if (gx#stx-pair? _hd71237523_) + (let ((_e71257528_ (gx#stx-e - _hd64206820_))) - (let ((_hd64236828_ - (##car _e64226825_)) - (_tl64246830_ - (##cdr _e64226825_))) + _hd71237523_))) + (let ((_hd71267531_ + (##car _e71257528_)) + (_tl71277533_ + (##cdr _e71257528_))) (if (gx#identifier? - _hd64236828_) + _hd71267531_) (if (gx#stx-eq? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#call - _hd64236828_) - (if (gx#stx-pair? _tl64246830_) - (let ((_e64256833_ (gx#stx-e _tl64246830_))) - (let ((_hd64266836_ (##car _e64256833_)) - (_tl64276838_ (##cdr _e64256833_))) - (if (gx#stx-pair? _hd64266836_) - (let ((_e64286841_ - (gx#stx-e _hd64266836_))) - (let ((_hd64296844_ (##car _e64286841_)) - (_tl64306846_ (##cdr _e64286841_))) - (if (gx#identifier? _hd64296844_) + _hd71267531_) + (if (gx#stx-pair? _tl71277533_) + (let ((_e71287536_ (gx#stx-e _tl71277533_))) + (let ((_hd71297539_ (##car _e71287536_)) + (_tl71307541_ (##cdr _e71287536_))) + (if (gx#stx-pair? _hd71297539_) + (let ((_e71317544_ + (gx#stx-e _hd71297539_))) + (let ((_hd71327547_ (##car _e71317544_)) + (_tl71337549_ (##cdr _e71317544_))) + (if (gx#identifier? _hd71327547_) (if (gx#stx-eq? '%#ref - _hd64296844_) - (if (gx#stx-pair? _tl64306846_) - (let ((_e64316849_ + _hd71327547_) + (if (gx#stx-pair? _tl71337549_) + (let ((_e71347552_ (gx#stx-e - _tl64306846_))) - (let ((_hd64326852_ - (##car _e64316849_)) - (_tl64336854_ - (##cdr _e64316849_))) + _tl71337549_))) + (let ((_hd71357555_ + (##car _e71347552_)) + (_tl71367557_ + (##cdr _e71347552_))) (if (gx#stx-null? - _tl64336854_) + _tl71367557_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl64276838_) - (if (fx>= (gx#stx-length _tl64276838_) '0) - (let ((_g9279_ (gx#syntax-split-splice - _tl64276838_ + _tl71307541_) + (if (fx>= (gx#stx-length _tl71307541_) '0) + (let ((_g9982_ (gx#syntax-split-splice + _tl71307541_ '0))) (begin - (let ((_g9280_ (values-count _g9279_))) - (if (not (fx= _g9280_ 2)) + (let ((_g9983_ (values-count _g9982_))) + (if (not (fx= _g9983_ 2)) (error "Context expects 2 values" - _g9280_))) - (let ((_target64346857_ (values-ref _g9279_ 0)) - (_tl64366859_ (values-ref _g9279_ 1))) - (if (gx#stx-null? _tl64366859_) - (letrec ((_loop64376862_ - (lambda (_hd64356865_ - _xarg64416867_) + _g9983_))) + (let ((_target71377560_ (values-ref _g9982_ 0)) + (_tl71397562_ (values-ref _g9982_ 1))) + (if (gx#stx-null? _tl71397562_) + (letrec ((_loop71407565_ + (lambda (_hd71387568_ + _xarg71447570_) (if (gx#stx-pair? - _hd64356865_) - (let ((_e64386870_ + _hd71387568_) + (let ((_e71417573_ (gx#stx-e - _hd64356865_))) - (let ((_lp-hd64396873_ - (##car _e64386870_)) - (_lp-tl64406875_ - (##cdr _e64386870_))) + _hd71387568_))) + (let ((_lp-hd71427576_ + (##car _e71417573_)) + (_lp-tl71437578_ + (##cdr _e71417573_))) (if (gx#stx-pair? - _lp-hd64396873_) - (let ((_e64436878_ + _lp-hd71427576_) + (let ((_e71467581_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _lp-hd64396873_))) - (let ((_hd64446881_ (##car _e64436878_)) - (_tl64456883_ (##cdr _e64436878_))) - (if (gx#identifier? _hd64446881_) - (if (gx#stx-eq? '%#ref _hd64446881_) - (if (gx#stx-pair? _tl64456883_) - (let ((_e64466886_ - (gx#stx-e _tl64456883_))) - (let ((_hd64476889_ - (##car _e64466886_)) - (_tl64486891_ - (##cdr _e64466886_))) - (if (gx#stx-null? _tl64486891_) - (_loop64376862_ - _lp-tl64406875_ - (cons _hd64476889_ - _xarg64416867_)) - (_g64006780_ _g64036783_)))) - (_g64006780_ _g64036783_)) - (_g64006780_ _g64036783_)) - (_g64006780_ _g64036783_)))) - (_g64006780_ _g64036783_)))) - (let ((_xarg64426894_ (reverse _xarg64416867_))) - (if (gx#stx-null? _tl64216822_) - ((lambda (_L6897_ _L6898_ _L6899_) + (gx#stx-e _lp-hd71427576_))) + (let ((_hd71477584_ (##car _e71467581_)) + (_tl71487586_ (##cdr _e71467581_))) + (if (gx#identifier? _hd71477584_) + (if (gx#stx-eq? '%#ref _hd71477584_) + (if (gx#stx-pair? _tl71487586_) + (let ((_e71497589_ + (gx#stx-e _tl71487586_))) + (let ((_hd71507592_ + (##car _e71497589_)) + (_tl71517594_ + (##cdr _e71497589_))) + (if (gx#stx-null? _tl71517594_) + (_loop71407565_ + _lp-tl71437578_ + (cons _hd71507592_ + _xarg71447570_)) + (_g71037483_ _g71067486_)))) + (_g71037483_ _g71067486_)) + (_g71037483_ _g71067486_)) + (_g71037483_ _g71067486_)))) + (_g71037483_ _g71067486_)))) + (let ((_xarg71457597_ (reverse _xarg71447570_))) + (if (gx#stx-null? _tl71247525_) + ((lambda (_L7600_ _L7601_ _L7602_) (gxc#compile-e - (cons (gx#datum->syntax '#f '%#ref) - (cons _L6898_ '())))) - _xarg64426894_ - _hd64326852_ - _arg64186814_) - (_g64006780_ _g64036783_))))))) + (cons (gx#datum->syntax__0 '#f '%#ref) + (cons _L7601_ '())))) + _xarg71457597_ + _hd71357555_ + _arg71217517_) + (_g71037483_ _g71067486_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop64376862_ _target64346857_ '())) - (_g64006780_ _g64036783_))))) - (_g64006780_ _g64036783_)) - (_g64006780_ _g64036783_)) - (_g64006780_ _g64036783_)))) + (_loop71407565_ _target71377560_ '())) + (_g71037483_ _g71067486_))))) + (_g71037483_ _g71067486_)) + (_g71037483_ _g71067486_)) + (_g71037483_ _g71067486_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g64006780_ _g64036783_)) - (_g64006780_ _g64036783_)) - (_g64006780_ _g64036783_)))) - (_g64006780_ _g64036783_)))) - (_g64006780_ _g64036783_)) - (_g64006780_ _g64036783_)) - (_g64006780_ _g64036783_)))) + (_g71037483_ _g71067486_)) + (_g71037483_ _g71067486_)) + (_g71037483_ _g71067486_)))) + (_g71037483_ _g71067486_)))) + (_g71037483_ _g71067486_)) + (_g71037483_ _g71067486_)) + (_g71037483_ _g71067486_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g64006780_ - _g64036783_)))) - (_g64006780_ _g64036783_))))))) - (_loop64136798_ _target64106793_ '())) - (_g64006780_ _g64036783_))))) + (_g71037483_ + _g71067486_)))) + (_g71037483_ _g71067486_))))))) + (_loop71167501_ _target71137496_ '())) + (_g71037483_ _g71067486_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g64006780_ _g64036783_)) - (_g64006780_ _g64036783_)))) - (_g64006780_ _g64036783_))))) - (_g63996928_ _form6398_))))))))) - (let ((_generate16252_ - (lambda (_args6383_ _arglen6384_ _hd6385_ _body6386_) - (let ((_len6388_ (gx#stx-length _hd6385_))) - (let ((_condition6390_ - (if (gx#stx-list? _hd6385_) + (_g71037483_ _g71067486_)) + (_g71037483_ _g71067486_)))) + (_g71037483_ _g71067486_))))) + (_g71027631_ _form7101_))))))))) + (let ((_generate16955_ + (lambda (_args7086_ _arglen7087_ _hd7088_ _body7089_) + (let ((_len7091_ (gx#stx-length _hd7088_))) + (let ((_condition7093_ + (if (gx#stx-list? _hd7088_) (cons 'fx= - (cons _arglen6384_ - (cons _len6388_ '()))) - (if (> _len6388_ '0) + (cons _arglen7087_ + (cons _len7091_ '()))) + (if (> _len7091_ '0) (cons 'fx>= - (cons _arglen6384_ - (cons _len6388_ '()))) + (cons _arglen7087_ + (cons _len7091_ '()))) '#t)))) - (let ((_dispatch6392_ - (if (_dispatch-case?6250_ _hd6385_ _body6386_) - (_dispatch-case-e6251_ _hd6385_ _body6386_) + (let ((_dispatch7095_ + (if (_dispatch-case?6953_ _hd7088_ _body7089_) + (_dispatch-case-e6954_ _hd7088_ _body7089_) (cons 'lambda (cons (gxc#generate-runtime-lambda-head - _hd6385_) + _hd7088_) (cons (gxc#compile-e - _body6386_) + _body7089_) '())))))) (let () - (cons _condition6390_ + (cons _condition7093_ (cons (cons 'apply - (cons _dispatch6392_ - (cons _args6383_ '()))) + (cons _dispatch7095_ + (cons _args7086_ '()))) '()))))))))) - (let ((_g62546282_ - (lambda (_g62556279_) - (gx#raise-syntax-error '#f '"Bad syntax" _g62556279_)))) - (let ((_g62536380_ - (lambda (_g62556285_) - (if (gx#stx-pair? _g62556285_) - (let ((_e62586287_ (gx#stx-e _g62556285_))) - (let ((_hd62596290_ (##car _e62586287_)) - (_tl62606292_ (##cdr _e62586287_))) - (if (gx#stx-pair/null? _tl62606292_) - (if (fx>= (gx#stx-length _tl62606292_) '0) - (let ((_g9273_ (gx#syntax-split-splice - _tl62606292_ + (let ((_g69576985_ + (lambda (_g69586982_) + (gx#raise-syntax-error '#f '"Bad syntax" _g69586982_)))) + (let ((_g69567083_ + (lambda (_g69586988_) + (if (gx#stx-pair? _g69586988_) + (let ((_e69616990_ (gx#stx-e _g69586988_))) + (let ((_hd69626993_ (##car _e69616990_)) + (_tl69636995_ (##cdr _e69616990_))) + (if (gx#stx-pair/null? _tl69636995_) + (if (fx>= (gx#stx-length _tl69636995_) '0) + (let ((_g9976_ (gx#syntax-split-splice + _tl69636995_ '0))) (begin - (let ((_g9274_ (values-count - _g9273_))) - (if (not (fx= _g9274_ 2)) + (let ((_g9977_ (values-count + _g9976_))) + (if (not (fx= _g9977_ 2)) (error "Context expects 2 values" - _g9274_))) - (let ((_target62616295_ - (values-ref _g9273_ 0)) - (_tl62636297_ - (values-ref _g9273_ 1))) - (if (gx#stx-null? _tl62636297_) - (letrec ((_loop62646300_ - (lambda (_hd62626303_ + _g9977_))) + (let ((_target69646998_ + (values-ref _g9976_ 0)) + (_tl69667000_ + (values-ref _g9976_ 1))) + (if (gx#stx-null? _tl69667000_) + (letrec ((_loop69677003_ + (lambda (_hd69657006_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body62686305_ - _hd62696307_) - (if (gx#stx-pair? _hd62626303_) - (let ((_e62656310_ (gx#stx-e _hd62626303_))) - (let ((_lp-hd62666313_ (##car _e62656310_)) - (_lp-tl62676315_ (##cdr _e62656310_))) - (if (gx#stx-pair? _lp-hd62666313_) - (let ((_e62726318_ - (gx#stx-e _lp-hd62666313_))) - (let ((_hd62736321_ (##car _e62726318_)) - (_tl62746323_ (##cdr _e62726318_))) - (if (gx#stx-pair? _tl62746323_) - (let ((_e62756326_ - (gx#stx-e _tl62746323_))) - (let ((_hd62766329_ - (##car _e62756326_)) - (_tl62776331_ - (##cdr _e62756326_))) - (if (gx#stx-null? _tl62776331_) - (_loop62646300_ - _lp-tl62676315_ - (cons _hd62766329_ - _body62686305_) - (cons _hd62736321_ - _hd62696307_)) - (_g62546282_ _g62556285_)))) - (_g62546282_ _g62556285_)))) - (_g62546282_ _g62556285_)))) - (let ((_body62706334_ (reverse _body62686305_)) - (_hd62716336_ (reverse _hd62696307_))) - ((lambda (_L6339_ _L6340_) - (let ((_args6356_ + _body69717008_ + _hd69727010_) + (if (gx#stx-pair? _hd69657006_) + (let ((_e69687013_ (gx#stx-e _hd69657006_))) + (let ((_lp-hd69697016_ (##car _e69687013_)) + (_lp-tl69707018_ (##cdr _e69687013_))) + (if (gx#stx-pair? _lp-hd69697016_) + (let ((_e69757021_ + (gx#stx-e _lp-hd69697016_))) + (let ((_hd69767024_ (##car _e69757021_)) + (_tl69777026_ (##cdr _e69757021_))) + (if (gx#stx-pair? _tl69777026_) + (let ((_e69787029_ + (gx#stx-e _tl69777026_))) + (let ((_hd69797032_ + (##car _e69787029_)) + (_tl69807034_ + (##cdr _e69787029_))) + (if (gx#stx-null? _tl69807034_) + (_loop69677003_ + _lp-tl69707018_ + (cons _hd69797032_ + _body69717008_) + (cons _hd69767024_ + _hd69727010_)) + (_g69576985_ _g69586988_)))) + (_g69576985_ _g69586988_)))) + (_g69576985_ _g69586988_)))) + (let ((_body69737037_ (reverse _body69717008_)) + (_hd69747039_ (reverse _hd69727010_))) + ((lambda (_L7042_ _L7043_) + (let ((_args7059_ (gxc#generate-runtime-temporary__0)) - (_arglen6357_ + (_arglen7060_ (gxc#generate-runtime-temporary__0))) (cons 'lambda - (cons _args6356_ + (cons _args7059_ (cons (cons 'let - (cons (cons (cons _arglen6357_ + (cons (cons (cons _arglen7060_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons 'length (cons _args6356_ '())) + (cons (cons 'length (cons _args7059_ '())) '())) '()) (cons (cons 'cond @@ -2636,3127 +2668,3205 @@ (cons (cons 'error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '"No clause matching arguments" - (cons _args6356_ '()))) + (cons _args7059_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (map (lambda (_g63586361_ - _g63596363_) - (_generate16252_ - _args6356_ - _arglen6357_ - _g63586361_ - _g63596363_)) + (map (lambda (_g70617064_ + _g70627066_) + (_generate16955_ + _args7059_ + _arglen7060_ + _g70617064_ + _g70627066_)) (begin '#!void - (foldr1 (lambda (_g63656368_ + (foldr1 (lambda (_g70687071_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g63666370_) - (cons _g63656368_ _g63666370_)) + _g70697073_) + (cons _g70687071_ _g70697073_)) '() - _L6340_)) + _L7043_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin '#!void - (foldr1 (lambda (_g63726375_ + (foldr1 (lambda (_g70757078_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g63736377_) - (cons _g63726375_ _g63736377_)) + _g70767080_) + (cons _g70757078_ _g70767080_)) '() - _L6339_))))) + _L7042_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _body62706334_ - _hd62716336_)))))) + _body69737037_ + _hd69747039_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop62646300_ - _target62616295_ + (_loop69677003_ + _target69646998_ '() '())) - (_g62546282_ - _g62556285_))))) - (_g62546282_ _g62556285_)) - (_g62546282_ _g62556285_)))) - (_g62546282_ _g62556285_))))) - (_g62536380_ _stx6247_))))))))) + (_g69576985_ + _g69586988_))))) + (_g69576985_ _g69586988_)) + (_g69576985_ _g69586988_)))) + (_g69576985_ _g69586988_))))) + (_g69567083_ _stx6950_))))))))) (begin - (define gxc#generate-runtime-let-values%__opt-lambda5927 - (lambda (_stx5929_ _compiled-body?5930_) - (let ((_generate-simple5932_ - (lambda (_hd6234_ _body6235_) + (define gxc#generate-runtime-let-values%__opt-lambda6630 + (lambda (_stx6632_ _compiled-body?6633_) + (let ((_generate-simple6635_ + (lambda (_hd6937_ _body6938_) (gxc#generate-runtime-simple-let 'let - _hd6234_ - _body6235_ - _compiled-body?5930_)))) - (let ((_generate-values-post5934_ - (lambda (_post6006_ _body6007_) - ((letrec ((_lp6009_ - (lambda (_rest6011_ _body6012_) - (let ((_rest60136021_ _rest6011_)) - (let ((_E60166025_ + _hd6937_ + _body6938_ + _compiled-body?6633_)))) + (let ((_generate-values-post6637_ + (lambda (_post6709_ _body6710_) + ((letrec ((_lp6712_ + (lambda (_rest6714_ _body6715_) + (let ((_rest67166724_ _rest6714_)) + (let ((_E67196728_ (lambda () (error '"No clause matching" - _rest60136021_)))) - (let ((_else60156029_ - (lambda () _body6012_))) - (let ((_K60176035_ - (lambda (_rest6032_ _bind6033_) - (_lp6009_ - _rest6032_ + _rest67166724_)))) + (let ((_else67186732_ + (lambda () _body6715_))) + (let ((_K67206738_ + (lambda (_rest6735_ _bind6736_) + (_lp6712_ + _rest6735_ (cons 'let - (cons _bind6033_ - (cons _body6012_ + (cons _bind6736_ + (cons _body6715_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _rest60136021_) - (let ((_hd60186038_ - (##car _rest60136021_)) - (_tl60196040_ - (##cdr _rest60136021_))) - (let ((_bind6043_ _hd60186038_)) - (let ((_rest6045_ - _tl60196040_)) - (_K60176035_ - _rest6045_ - _bind6043_)))) - (_else60156029_))))))))) - _lp6009_) - _post6006_ - _body6007_)))) - (let ((_generate-values-check5935_ - (lambda (_check6003_ _body6004_) + (if (##pair? _rest67166724_) + (let ((_hd67216741_ + (##car _rest67166724_)) + (_tl67226743_ + (##cdr _rest67166724_))) + (let ((_bind6746_ _hd67216741_)) + (let ((_rest6748_ + _tl67226743_)) + (_K67206738_ + _rest6748_ + _bind6746_)))) + (_else67186732_))))))))) + _lp6712_) + _post6709_ + _body6710_)))) + (let ((_generate-values-check6638_ + (lambda (_check6706_ _body6707_) (cons 'begin (foldr1 cons - (cons _body6004_ '()) - (reverse _check6003_)))))) - (let ((_generate-values5933_ - (lambda (_hd6047_ _body6048_) - ((letrec ((_lp6050_ - (lambda (_rest6052_ - _bind6053_ - _check6054_ - _post6055_) - (let ((_g60586069_ - (lambda (_g60596066_) + (cons _body6707_ '()) + (reverse _check6706_)))))) + (let ((_generate-values6636_ + (lambda (_hd6750_ _body6751_) + ((letrec ((_lp6753_ + (lambda (_rest6755_ + _bind6756_ + _check6757_ + _post6758_) + (let ((_g67616772_ + (lambda (_g67626769_) (gx#raise-syntax-error '#f '"Bad syntax" - _g60596066_)))) - (let ((_g60576083_ - (lambda (_g60596072_) + _g67626769_)))) + (let ((_g67606786_ + (lambda (_g67626775_) ((lambda () - (let ((_body6076_ - (if _compiled-body?5930_ - _body6048_ + (let ((_body6779_ + (if _compiled-body?6633_ + _body6751_ (gxc#compile-e - _body6048_)))) - (let ((_body6078_ - (_generate-values-post5934_ - _post6055_ - _body6076_))) - (let ((_body6080_ - (_generate-values-check5935_ - _check6054_ - _body6078_))) + _body6751_)))) + (let ((_body6781_ + (_generate-values-post6637_ + _post6758_ + _body6779_))) + (let ((_body6783_ + (_generate-values-check6638_ + _check6757_ + _body6781_))) (let () (cons 'let - (cons (reverse _bind6053_) + (cons (reverse _bind6756_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _body6080_ '())))))))))))) + (cons _body6783_ '())))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g60566231_ - (lambda (_g60596086_) - (if (gx#stx-pair? _g60596086_) - (let ((_e60626088_ + (let ((_g67596934_ + (lambda (_g67626789_) + (if (gx#stx-pair? _g67626789_) + (let ((_e67656791_ (gx#stx-e - _g60596086_))) - (let ((_hd60636091_ - (##car _e60626088_)) - (_tl60646093_ - (##cdr _e60626088_))) - ((lambda (_L6096_ + _g67626789_))) + (let ((_hd67666794_ + (##car _e67656791_)) + (_tl67676796_ + (##cdr _e67656791_))) + ((lambda (_L6799_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L6097_) - (let ((_g61126137_ - (lambda (_g61136134_) + _L6800_) + (let ((_g68156840_ + (lambda (_g68166837_) (gx#raise-syntax-error '#f '"Bad syntax" - _g61136134_)))) - (let ((_g61116181_ - (lambda (_g61136140_) - (if (gx#stx-pair? _g61136140_) - (let ((_e61276142_ (gx#stx-e _g61136140_))) - (let ((_hd61286145_ (##car _e61276142_)) - (_tl61296147_ (##cdr _e61276142_))) - (if (gx#stx-pair? _tl61296147_) - (let ((_e61306150_ - (gx#stx-e _tl61296147_))) - (let ((_hd61316153_ - (##car _e61306150_)) - (_tl61326155_ - (##cdr _e61306150_))) - (if (gx#stx-null? _tl61326155_) - ((lambda (_L6158_ _L6159_) - (let ((_vals6172_ + _g68166837_)))) + (let ((_g68146884_ + (lambda (_g68166843_) + (if (gx#stx-pair? _g68166843_) + (let ((_e68306845_ (gx#stx-e _g68166843_))) + (let ((_hd68316848_ (##car _e68306845_)) + (_tl68326850_ (##cdr _e68306845_))) + (if (gx#stx-pair? _tl68326850_) + (let ((_e68336853_ + (gx#stx-e _tl68326850_))) + (let ((_hd68346856_ + (##car _e68336853_)) + (_tl68356858_ + (##cdr _e68336853_))) + (if (gx#stx-null? _tl68356858_) + ((lambda (_L6861_ _L6862_) + (let ((_vals6875_ (gxc#generate-runtime-temporary__0))) - (let ((_expr6174_ + (let ((_expr6877_ (gxc#compile-e - _L6158_))) - (let ((_check-values6176_ + _L6861_))) + (let ((_check-values6879_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gxc#generate-runtime-check-values - _vals6172_ - _L6159_))) - (let ((_refs6178_ + _vals6875_ + _L6862_))) + (let ((_refs6881_ (gxc#generate-runtime-let-values-bind - _vals6172_ - _L6159_))) + _vals6875_ + _L6862_))) (let () - (_lp6050_ - _L6096_ - (cons (cons _vals6172_ (cons _expr6174_ '())) - _bind6053_) - (cons _check-values6176_ _check6054_) - (cons _refs6178_ _post6055_)))))))) + (_lp6753_ + _L6799_ + (cons (cons _vals6875_ (cons _expr6877_ '())) + _bind6756_) + (cons _check-values6879_ _check6757_) + (cons _refs6881_ _post6758_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd61316153_ - _hd61286145_) - (_g61126137_ _g61136140_)))) - (_g61126137_ _g61136140_)))) - (_g61126137_ _g61136140_))))) - (let ((_g61106228_ - (lambda (_g61136184_) - (if (gx#stx-pair? _g61136184_) - (let ((_e61166186_ - (gx#stx-e _g61136184_))) - (let ((_hd61176189_ (##car _e61166186_)) - (_tl61186191_ - (##cdr _e61166186_))) - (if (gx#stx-pair? _hd61176189_) - (let ((_e61196194_ - (gx#stx-e _hd61176189_))) - (let ((_hd61206197_ - (##car _e61196194_)) - (_tl61216199_ - (##cdr _e61196194_))) + _hd68346856_ + _hd68316848_) + (_g68156840_ _g68166843_)))) + (_g68156840_ _g68166843_)))) + (_g68156840_ _g68166843_))))) + (let ((_g68136931_ + (lambda (_g68166887_) + (if (gx#stx-pair? _g68166887_) + (let ((_e68196889_ + (gx#stx-e _g68166887_))) + (let ((_hd68206892_ (##car _e68196889_)) + (_tl68216894_ + (##cdr _e68196889_))) + (if (gx#stx-pair? _hd68206892_) + (let ((_e68226897_ + (gx#stx-e _hd68206892_))) + (let ((_hd68236900_ + (##car _e68226897_)) + (_tl68246902_ + (##cdr _e68226897_))) (if (gx#stx-null? - _tl61216199_) + _tl68246902_) (if (gx#stx-pair? - _tl61186191_) - (let ((_e61226202_ + _tl68216894_) + (let ((_e68256905_ (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl61186191_))) - (let ((_hd61236205_ (##car _e61226202_)) - (_tl61246207_ (##cdr _e61226202_))) - (if (gx#stx-null? _tl61246207_) - ((lambda (_L6210_ _L6211_) - (let ((_eid6225_ - (gxc#generate-runtime-binding-id* _L6211_)) - (_expr6226_ (gxc#compile-e _L6210_))) - (_lp6050_ - _L6096_ - (cons (cons _eid6225_ (cons _expr6226_ '())) - _bind6053_) - _check6054_ - _post6055_))) - _hd61236205_ - _hd61206197_) - (_g61116181_ _g61136184_)))) - (_g61116181_ _g61136184_)) + _tl68216894_))) + (let ((_hd68266908_ (##car _e68256905_)) + (_tl68276910_ (##cdr _e68256905_))) + (if (gx#stx-null? _tl68276910_) + ((lambda (_L6913_ _L6914_) + (let ((_eid6928_ + (gxc#generate-runtime-binding-id* _L6914_)) + (_expr6929_ (gxc#compile-e _L6913_))) + (_lp6753_ + _L6799_ + (cons (cons _eid6928_ (cons _expr6929_ '())) + _bind6756_) + _check6757_ + _post6758_))) + _hd68266908_ + _hd68236900_) + (_g68146884_ _g68166887_)))) + (_g68146884_ _g68166887_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g61116181_ - _g61136184_)))) - (_g61116181_ _g61136184_)))) - (_g61116181_ _g61136184_))))) - (_g61106228_ _L6097_))))) - _tl60646093_ - _hd60636091_))) + (_g68146884_ + _g68166887_)))) + (_g68146884_ _g68166887_)))) + (_g68146884_ _g68166887_))))) + (_g68136931_ _L6800_))))) + _tl67676796_ + _hd67666794_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g60576083_ - _g60596086_))))) - (_g60566231_ _rest6052_))))))) - _lp6050_) - _hd6047_ + (_g67606786_ + _g67626789_))))) + (_g67596934_ _rest6755_))))))) + _lp6753_) + _hd6750_ '() '() '())))) - (let ((_g59375954_ - (lambda (_g59385951_) + (let ((_g66406657_ + (lambda (_g66416654_) (gx#raise-syntax-error '#f '"Bad syntax" - _g59385951_)))) - (let ((_g59366000_ - (lambda (_g59385957_) - (if (gx#stx-pair? _g59385957_) - (let ((_e59415959_ (gx#stx-e _g59385957_))) - (let ((_hd59425962_ (##car _e59415959_)) - (_tl59435964_ (##cdr _e59415959_))) - (if (gx#stx-pair? _tl59435964_) - (let ((_e59445967_ - (gx#stx-e _tl59435964_))) - (let ((_hd59455970_ - (##car _e59445967_)) - (_tl59465972_ - (##cdr _e59445967_))) - (if (gx#stx-pair? _tl59465972_) - (let ((_e59475975_ - (gx#stx-e _tl59465972_))) - (let ((_hd59485978_ - (##car _e59475975_)) - (_tl59495980_ - (##cdr _e59475975_))) + _g66416654_)))) + (let ((_g66396703_ + (lambda (_g66416660_) + (if (gx#stx-pair? _g66416660_) + (let ((_e66446662_ (gx#stx-e _g66416660_))) + (let ((_hd66456665_ (##car _e66446662_)) + (_tl66466667_ (##cdr _e66446662_))) + (if (gx#stx-pair? _tl66466667_) + (let ((_e66476670_ + (gx#stx-e _tl66466667_))) + (let ((_hd66486673_ + (##car _e66476670_)) + (_tl66496675_ + (##cdr _e66476670_))) + (if (gx#stx-pair? _tl66496675_) + (let ((_e66506678_ + (gx#stx-e _tl66496675_))) + (let ((_hd66516681_ + (##car _e66506678_)) + (_tl66526683_ + (##cdr _e66506678_))) (if (gx#stx-null? - _tl59495980_) - ((lambda (_L5983_ + _tl66526683_) + ((lambda (_L6686_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L5984_) - (if (gxc#generate-runtime-simple-let? _L5984_) - (_generate-simple5932_ _L5984_ _L5983_) - (_generate-values5933_ _L5984_ _L5983_))) - _hd59485978_ - _hd59455970_) - (_g59375954_ _g59385957_)))) + _L6687_) + (if (gxc#generate-runtime-simple-let? _L6687_) + (_generate-simple6635_ _L6687_ _L6686_) + (_generate-values6636_ _L6687_ _L6686_))) + _hd66516681_ + _hd66486673_) + (_g66406657_ _g66416660_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g59375954_ _g59385957_)))) - (_g59375954_ _g59385957_)))) - (_g59375954_ _g59385957_))))) - (_g59366000_ _stx5929_))))))))) + (_g66406657_ _g66416660_)))) + (_g66406657_ _g66416660_)))) + (_g66406657_ _g66416660_))))) + (_g66396703_ _stx6632_))))))))) (begin (define gxc#generate-runtime-let-values%__0 - (lambda (_stx6240_) - (let ((_compiled-body?6242_ '#f)) - (gxc#generate-runtime-let-values%__opt-lambda5927 - _stx6240_ - _compiled-body?6242_)))) + (lambda (_stx6943_) + (let ((_compiled-body?6945_ '#f)) + (gxc#generate-runtime-let-values%__opt-lambda6630 + _stx6943_ + _compiled-body?6945_)))) (define gxc#generate-runtime-let-values% - (lambda _g9290_ - (let ((_g9289_ (length _g9290_))) - (cond ((fx= _g9289_ 1) - (apply gxc#generate-runtime-let-values%__0 _g9290_)) - ((fx= _g9289_ 2) - (apply gxc#generate-runtime-let-values%__opt-lambda5927 - _g9290_)) - (else (error "No clause matching arguments" _g9290_)))))))) + (lambda _g9993_ + (let ((_g9992_ (length _g9993_))) + (cond ((fx= _g9992_ 1) + (apply gxc#generate-runtime-let-values%__0 _g9993_)) + ((fx= _g9992_ 2) + (apply gxc#generate-runtime-let-values%__opt-lambda6630 + _g9993_)) + (else (error "No clause matching arguments" _g9993_)))))))) (define gxc#generate-runtime-let-values-bind - (lambda (_vals5828_ _hd5829_) - ((letrec ((_lp5831_ - (lambda (_rest5833_ _k5834_ _r5835_) - (let ((_g58405856_ - (lambda (_g58415853_) + (lambda (_vals6531_ _hd6532_) + ((letrec ((_lp6534_ + (lambda (_rest6536_ _k6537_ _r6538_) + (let ((_g65436559_ + (lambda (_g65446556_) (gx#raise-syntax-error '#f '"Bad syntax" - _g58415853_)))) - (let ((_g58395863_ - (lambda (_g58415859_) - ((lambda () (reverse _r5835_)))))) - (let ((_g58385879_ - (lambda (_g58415866_) - ((lambda (_L5868_) - (if (gx#identifier? _L5868_) + _g65446556_)))) + (let ((_g65426566_ + (lambda (_g65446562_) + ((lambda () (reverse _r6538_)))))) + (let ((_g65416582_ + (lambda (_g65446569_) + ((lambda (_L6571_) + (if (gx#identifier? _L6571_) (foldl1 cons (cons (cons (gxc#generate-runtime-binding-id - _L5868_) + _L6571_) (cons (cons 'values->list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _vals5828_ (cons _k5834_ '()))) + (cons _vals6531_ (cons _k6537_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - _r5835_) - (_g58395863_ _g58415866_))) - _g58415866_)))) - (let ((_g58375903_ - (lambda (_g58415882_) - (if (gx#stx-pair? _g58415882_) - (let ((_e58485884_ - (gx#stx-e _g58415882_))) - (let ((_hd58495887_ - (##car _e58485884_)) - (_tl58505889_ - (##cdr _e58485884_))) - ((lambda (_L5892_ _L5893_) - (_lp5831_ - _L5892_ - (fx+ _k5834_ '1) + _r6538_) + (_g65426566_ _g65446569_))) + _g65446569_)))) + (let ((_g65406606_ + (lambda (_g65446585_) + (if (gx#stx-pair? _g65446585_) + (let ((_e65516587_ + (gx#stx-e _g65446585_))) + (let ((_hd65526590_ + (##car _e65516587_)) + (_tl65536592_ + (##cdr _e65516587_))) + ((lambda (_L6595_ _L6596_) + (_lp6534_ + _L6595_ + (fx+ _k6537_ '1) (cons (cons (gxc#generate-runtime-binding-id - _L5893_) + _L6596_) (cons (cons 'values-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _vals5828_ (cons _k5834_ '()))) + (cons _vals6531_ (cons _k6537_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r5835_))) - _tl58505889_ - _hd58495887_))) - (_g58385879_ _g58415882_))))) - (let ((_g58365925_ - (lambda (_g58415906_) - (if (gx#stx-pair? _g58415906_) - (let ((_e58435908_ - (gx#stx-e _g58415906_))) - (let ((_hd58445911_ - (##car _e58435908_)) - (_tl58455913_ - (##cdr _e58435908_))) - (if (gx#stx-datum? _hd58445911_) + _r6538_))) + _tl65536592_ + _hd65526590_))) + (_g65416582_ _g65446585_))))) + (let ((_g65396628_ + (lambda (_g65446609_) + (if (gx#stx-pair? _g65446609_) + (let ((_e65466611_ + (gx#stx-e _g65446609_))) + (let ((_hd65476614_ + (##car _e65466611_)) + (_tl65486616_ + (##cdr _e65466611_))) + (if (gx#stx-datum? _hd65476614_) (if (equal? (gx#stx-e - _hd58445911_) + _hd65476614_) '#f) - ((lambda (_L5916_) - (_lp5831_ - _L5916_ - (fx+ _k5834_ '1) - _r5835_)) - _tl58455913_) - (_g58375903_ _g58415906_)) - (_g58375903_ _g58415906_)))) - (_g58375903_ _g58415906_))))) - (_g58365925_ _rest5833_))))))))) - _lp5831_) - _hd5829_ + ((lambda (_L6619_) + (_lp6534_ + _L6619_ + (fx+ _k6537_ '1) + _r6538_)) + _tl65486616_) + (_g65406606_ _g65446609_)) + (_g65406606_ _g65446609_)))) + (_g65406606_ _g65446609_))))) + (_g65396628_ _rest6536_))))))))) + _lp6534_) + _hd6532_ '0 '()))) (begin - (define gxc#generate-runtime-letrec-values%__opt-lambda5506 - (lambda (_stx5508_ _compiled-body?5509_) - (let ((_generate-simple5511_ - (lambda (_hd5815_ _body5816_) + (define gxc#generate-runtime-letrec-values%__opt-lambda6209 + (lambda (_stx6211_ _compiled-body?6212_) + (let ((_generate-simple6214_ + (lambda (_hd6518_ _body6519_) (gxc#generate-runtime-simple-let 'letrec - _hd5815_ - _body5816_ - _compiled-body?5509_)))) - (let ((_generate-values-check5513_ - (lambda (_check5589_ _body5590_) + _hd6518_ + _body6519_ + _compiled-body?6212_)))) + (let ((_generate-values-check6216_ + (lambda (_check6292_ _body6293_) (cons 'begin (foldr1 cons - (cons _body5590_ '()) - (reverse _check5589_)))))) - (let ((_generate-values-post5514_ - (lambda (_post5582_ _body5583_) + (cons _body6293_ '()) + (reverse _check6292_)))))) + (let ((_generate-values-post6217_ + (lambda (_post6285_ _body6286_) (cons 'begin (foldr1 cons - (cons _body5583_ '()) - (map (lambda (_g55845586_) - (cons 'set! _g55845586_)) - (reverse _post5582_))))))) - (let ((_generate-values5512_ - (lambda (_hd5592_ _body5593_) - ((letrec ((_lp5595_ - (lambda (_rest5597_ - _bind5598_ - _check5599_ - _post5600_) - (let ((_g56035614_ - (lambda (_g56045611_) + (cons _body6286_ '()) + (map (lambda (_g62876289_) + (cons 'set! _g62876289_)) + (reverse _post6285_))))))) + (let ((_generate-values6215_ + (lambda (_hd6295_ _body6296_) + ((letrec ((_lp6298_ + (lambda (_rest6300_ + _bind6301_ + _check6302_ + _post6303_) + (let ((_g63066317_ + (lambda (_g63076314_) (gx#raise-syntax-error '#f '"Bad syntax" - _g56045611_)))) - (let ((_g56025628_ - (lambda (_g56045617_) + _g63076314_)))) + (let ((_g63056331_ + (lambda (_g63076320_) ((lambda () - (let ((_body5621_ - (if _compiled-body?5509_ - _body5593_ + (let ((_body6324_ + (if _compiled-body?6212_ + _body6296_ (gxc#compile-e - _body5593_)))) - (let ((_body5623_ - (_generate-values-post5514_ - _post5600_ - _body5621_))) - (let ((_body5625_ - (_generate-values-check5513_ - _check5599_ - _body5623_))) + _body6296_)))) + (let ((_body6326_ + (_generate-values-post6217_ + _post6303_ + _body6324_))) + (let ((_body6328_ + (_generate-values-check6216_ + _check6302_ + _body6326_))) (let () (cons 'letrec - (cons (reverse _bind5598_) + (cons (reverse _bind6301_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _body5625_ '())))))))))))) + (cons _body6328_ '())))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g56015812_ - (lambda (_g56045631_) - (if (gx#stx-pair? _g56045631_) - (let ((_e56075633_ + (let ((_g63046515_ + (lambda (_g63076334_) + (if (gx#stx-pair? _g63076334_) + (let ((_e63106336_ (gx#stx-e - _g56045631_))) - (let ((_hd56085636_ - (##car _e56075633_)) - (_tl56095638_ - (##cdr _e56075633_))) - ((lambda (_L5641_ + _g63076334_))) + (let ((_hd63116339_ + (##car _e63106336_)) + (_tl63126341_ + (##cdr _e63106336_))) + ((lambda (_L6344_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L5642_) - (let ((_g56575682_ - (lambda (_g56585679_) + _L6345_) + (let ((_g63606385_ + (lambda (_g63616382_) (gx#raise-syntax-error '#f '"Bad syntax" - _g56585679_)))) - (let ((_g56565762_ - (lambda (_g56585685_) - (if (gx#stx-pair? _g56585685_) - (let ((_e56725687_ (gx#stx-e _g56585685_))) - (let ((_hd56735690_ (##car _e56725687_)) - (_tl56745692_ (##cdr _e56725687_))) - (if (gx#stx-pair? _tl56745692_) - (let ((_e56755695_ - (gx#stx-e _tl56745692_))) - (let ((_hd56765698_ - (##car _e56755695_)) - (_tl56775700_ - (##cdr _e56755695_))) - (if (gx#stx-null? _tl56775700_) - ((lambda (_L5703_ _L5704_) - (let ((_vals5717_ + _g63616382_)))) + (let ((_g63596465_ + (lambda (_g63616388_) + (if (gx#stx-pair? _g63616388_) + (let ((_e63756390_ (gx#stx-e _g63616388_))) + (let ((_hd63766393_ (##car _e63756390_)) + (_tl63776395_ (##cdr _e63756390_))) + (if (gx#stx-pair? _tl63776395_) + (let ((_e63786398_ + (gx#stx-e _tl63776395_))) + (let ((_hd63796401_ + (##car _e63786398_)) + (_tl63806403_ + (##cdr _e63786398_))) + (if (gx#stx-null? _tl63806403_) + ((lambda (_L6406_ _L6407_) + (let ((_vals6420_ (gxc#generate-runtime-temporary__0))) - (let ((_expr5719_ + (let ((_expr6422_ (gxc#compile-e - _L5703_))) - (let ((_check-values5721_ + _L6406_))) + (let ((_check-values6424_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gxc#generate-runtime-check-values - _vals5717_ - _L5704_))) - (let ((_refs5723_ + _vals6420_ + _L6407_))) + (let ((_refs6426_ (gxc#generate-runtime-let-values-bind - _vals5717_ - _L5704_))) + _vals6420_ + _L6407_))) (let () - (_lp5595_ - _L5641_ + (_lp6298_ + _L6344_ (foldl1 cons - (cons (cons _vals5717_ (cons _expr5719_ '())) - _bind5598_) - (map (lambda (_e57255727_) - (let ((_g57295738_ _e57255727_)) - (let ((_E57315742_ + (cons (cons _vals6420_ (cons _expr6422_ '())) + _bind6301_) + (map (lambda (_e64286430_) + (let ((_g64326441_ _e64286430_)) + (let ((_E64346445_ (lambda () (error '"No clause matching" - _g57295738_)))) - (let ((_K57325747_ - (lambda (_eid5745_) - (cons _eid5745_ + _g64326441_)))) + (let ((_K64356450_ + (lambda (_eid6448_) + (cons _eid6448_ (cons '#!void ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _g57295738_) - (let ((_hd57335750_ - (##car _g57295738_)) - (_tl57345752_ - (##cdr _g57295738_))) - (let ((_eid5755_ - _hd57335750_)) - (if (##pair? _tl57345752_) - (let ((_hd57355757_ + (if (##pair? _g64326441_) + (let ((_hd64366453_ + (##car _g64326441_)) + (_tl64376455_ + (##cdr _g64326441_))) + (let ((_eid6458_ + _hd64366453_)) + (if (##pair? _tl64376455_) + (let ((_hd64386460_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _tl57345752_)) - (_tl57365759_ (##cdr _tl57345752_))) - (if (##null? _tl57365759_) - (_K57325747_ _eid5755_) - (_E57315742_))) - (_E57315742_)))) + (##car _tl64376455_)) + (_tl64396462_ (##cdr _tl64376455_))) + (if (##null? _tl64396462_) + (_K64356450_ _eid6458_) + (_E64346445_))) + (_E64346445_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E57315742_)))))) - _refs5723_)) - (cons _check-values5721_ _check5599_) - (foldl1 cons _refs5723_ _post5600_)))))))) + (_E64346445_)))))) + _refs6426_)) + (cons _check-values6424_ _check6302_) + (foldl1 cons _refs6426_ _post6303_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd56765698_ - _hd56735690_) - (_g56575682_ _g56585685_)))) - (_g56575682_ _g56585685_)))) - (_g56575682_ _g56585685_))))) - (let ((_g56555809_ - (lambda (_g56585765_) - (if (gx#stx-pair? _g56585765_) - (let ((_e56615767_ - (gx#stx-e _g56585765_))) - (let ((_hd56625770_ (##car _e56615767_)) - (_tl56635772_ - (##cdr _e56615767_))) - (if (gx#stx-pair? _hd56625770_) - (let ((_e56645775_ - (gx#stx-e _hd56625770_))) - (let ((_hd56655778_ - (##car _e56645775_)) - (_tl56665780_ - (##cdr _e56645775_))) + _hd63796401_ + _hd63766393_) + (_g63606385_ _g63616388_)))) + (_g63606385_ _g63616388_)))) + (_g63606385_ _g63616388_))))) + (let ((_g63586512_ + (lambda (_g63616468_) + (if (gx#stx-pair? _g63616468_) + (let ((_e63646470_ + (gx#stx-e _g63616468_))) + (let ((_hd63656473_ (##car _e63646470_)) + (_tl63666475_ + (##cdr _e63646470_))) + (if (gx#stx-pair? _hd63656473_) + (let ((_e63676478_ + (gx#stx-e _hd63656473_))) + (let ((_hd63686481_ + (##car _e63676478_)) + (_tl63696483_ + (##cdr _e63676478_))) (if (gx#stx-null? - _tl56665780_) + _tl63696483_) (if (gx#stx-pair? - _tl56635772_) - (let ((_e56675783_ + _tl63666475_) + (let ((_e63706486_ (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl56635772_))) - (let ((_hd56685786_ (##car _e56675783_)) - (_tl56695788_ (##cdr _e56675783_))) - (if (gx#stx-null? _tl56695788_) - ((lambda (_L5791_ _L5792_) - (let ((_eid5806_ - (gxc#generate-runtime-binding-id* _L5792_)) - (_expr5807_ (gxc#compile-e _L5791_))) - (_lp5595_ - _L5641_ - (cons (cons _eid5806_ (cons _expr5807_ '())) - _bind5598_) - _check5599_ - _post5600_))) - _hd56685786_ - _hd56655778_) - (_g56565762_ _g56585765_)))) - (_g56565762_ _g56585765_)) + _tl63666475_))) + (let ((_hd63716489_ (##car _e63706486_)) + (_tl63726491_ (##cdr _e63706486_))) + (if (gx#stx-null? _tl63726491_) + ((lambda (_L6494_ _L6495_) + (let ((_eid6509_ + (gxc#generate-runtime-binding-id* _L6495_)) + (_expr6510_ (gxc#compile-e _L6494_))) + (_lp6298_ + _L6344_ + (cons (cons _eid6509_ (cons _expr6510_ '())) + _bind6301_) + _check6302_ + _post6303_))) + _hd63716489_ + _hd63686481_) + (_g63596465_ _g63616468_)))) + (_g63596465_ _g63616468_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g56565762_ - _g56585765_)))) - (_g56565762_ _g56585765_)))) - (_g56565762_ _g56585765_))))) - (_g56555809_ _L5642_))))) - _tl56095638_ - _hd56085636_))) + (_g63596465_ + _g63616468_)))) + (_g63596465_ _g63616468_)))) + (_g63596465_ _g63616468_))))) + (_g63586512_ _L6345_))))) + _tl63126341_ + _hd63116339_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g56025628_ - _g56045631_))))) - (_g56015812_ _rest5597_))))))) - _lp5595_) - _hd5592_ + (_g63056331_ + _g63076334_))))) + (_g63046515_ _rest6300_))))))) + _lp6298_) + _hd6295_ '() '() '())))) - (let ((_g55165533_ - (lambda (_g55175530_) + (let ((_g62196236_ + (lambda (_g62206233_) (gx#raise-syntax-error '#f '"Bad syntax" - _g55175530_)))) - (let ((_g55155579_ - (lambda (_g55175536_) - (if (gx#stx-pair? _g55175536_) - (let ((_e55205538_ (gx#stx-e _g55175536_))) - (let ((_hd55215541_ (##car _e55205538_)) - (_tl55225543_ (##cdr _e55205538_))) - (if (gx#stx-pair? _tl55225543_) - (let ((_e55235546_ - (gx#stx-e _tl55225543_))) - (let ((_hd55245549_ - (##car _e55235546_)) - (_tl55255551_ - (##cdr _e55235546_))) - (if (gx#stx-pair? _tl55255551_) - (let ((_e55265554_ - (gx#stx-e _tl55255551_))) - (let ((_hd55275557_ - (##car _e55265554_)) - (_tl55285559_ - (##cdr _e55265554_))) + _g62206233_)))) + (let ((_g62186282_ + (lambda (_g62206239_) + (if (gx#stx-pair? _g62206239_) + (let ((_e62236241_ (gx#stx-e _g62206239_))) + (let ((_hd62246244_ (##car _e62236241_)) + (_tl62256246_ (##cdr _e62236241_))) + (if (gx#stx-pair? _tl62256246_) + (let ((_e62266249_ + (gx#stx-e _tl62256246_))) + (let ((_hd62276252_ + (##car _e62266249_)) + (_tl62286254_ + (##cdr _e62266249_))) + (if (gx#stx-pair? _tl62286254_) + (let ((_e62296257_ + (gx#stx-e _tl62286254_))) + (let ((_hd62306260_ + (##car _e62296257_)) + (_tl62316262_ + (##cdr _e62296257_))) (if (gx#stx-null? - _tl55285559_) - ((lambda (_L5562_ + _tl62316262_) + ((lambda (_L6265_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L5563_) - (if (gxc#generate-runtime-simple-let? _L5563_) - (_generate-simple5511_ _L5563_ _L5562_) - (_generate-values5512_ _L5563_ _L5562_))) - _hd55275557_ - _hd55245549_) - (_g55165533_ _g55175536_)))) + _L6266_) + (if (gxc#generate-runtime-simple-let? _L6266_) + (_generate-simple6214_ _L6266_ _L6265_) + (_generate-values6215_ _L6266_ _L6265_))) + _hd62306260_ + _hd62276252_) + (_g62196236_ _g62206239_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g55165533_ _g55175536_)))) - (_g55165533_ _g55175536_)))) - (_g55165533_ _g55175536_))))) - (_g55155579_ _stx5508_))))))))) + (_g62196236_ _g62206239_)))) + (_g62196236_ _g62206239_)))) + (_g62196236_ _g62206239_))))) + (_g62186282_ _stx6211_))))))))) (begin (define gxc#generate-runtime-letrec-values%__0 - (lambda (_stx5821_) - (let ((_compiled-body?5823_ '#f)) - (gxc#generate-runtime-letrec-values%__opt-lambda5506 - _stx5821_ - _compiled-body?5823_)))) + (lambda (_stx6524_) + (let ((_compiled-body?6526_ '#f)) + (gxc#generate-runtime-letrec-values%__opt-lambda6209 + _stx6524_ + _compiled-body?6526_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g9292_ - (let ((_g9291_ (length _g9292_))) - (cond ((fx= _g9291_ 1) - (apply gxc#generate-runtime-letrec-values%__0 _g9292_)) - ((fx= _g9291_ 2) - (apply gxc#generate-runtime-letrec-values%__opt-lambda5506 - _g9292_)) - (else (error "No clause matching arguments" _g9292_)))))))) + (lambda _g9995_ + (let ((_g9994_ (length _g9995_))) + (cond ((fx= _g9994_ 1) + (apply gxc#generate-runtime-letrec-values%__0 _g9995_)) + ((fx= _g9994_ 2) + (apply gxc#generate-runtime-letrec-values%__opt-lambda6209 + _g9995_)) + (else (error "No clause matching arguments" _g9995_)))))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_stx4627_) - (let ((_collect-closures4630_ - (lambda (_forms5448_) - (map (lambda (_e54495451_) - (let ((_g54535462_ _e54495451_)) - (let ((_E54555466_ + (lambda (_stx5330_) + (let ((_collect-closures5333_ + (lambda (_forms6151_) + (map (lambda (_e61526154_) + (let ((_g61566165_ _e61526154_)) + (let ((_E61586169_ (lambda () - (error '"No clause matching" _g54535462_)))) - (let ((_K54565471_ - (lambda (_expr5469_) - (gxc#collect-expression-refs _expr5469_)))) - (if (##pair? _g54535462_) - (let ((_hd54575474_ (##car _g54535462_)) - (_tl54585476_ (##cdr _g54535462_))) - (if (##pair? _tl54585476_) - (let ((_hd54595479_ (##car _tl54585476_)) - (_tl54605481_ - (##cdr _tl54585476_))) - (let ((_expr5484_ _hd54595479_)) - (if (##null? _tl54605481_) - (_K54565471_ _expr5484_) - (_E54555466_)))) - (_E54555466_))) - (_E54555466_)))))) - _forms5448_)))) - (let ((_collect-bindings4631_ - (lambda (_forms5372_) - (map (lambda (_e53735375_) - (let ((_g53775386_ _e53735375_)) - (let ((_E53795390_ + (error '"No clause matching" _g61566165_)))) + (let ((_K61596174_ + (lambda (_expr6172_) + (gxc#collect-expression-refs _expr6172_)))) + (if (##pair? _g61566165_) + (let ((_hd61606177_ (##car _g61566165_)) + (_tl61616179_ (##cdr _g61566165_))) + (if (##pair? _tl61616179_) + (let ((_hd61626182_ (##car _tl61616179_)) + (_tl61636184_ + (##cdr _tl61616179_))) + (let ((_expr6187_ _hd61626182_)) + (if (##null? _tl61636184_) + (_K61596174_ _expr6187_) + (_E61586169_)))) + (_E61586169_))) + (_E61586169_)))))) + _forms6151_)))) + (let ((_collect-bindings5334_ + (lambda (_forms6075_) + (map (lambda (_e60766078_) + (let ((_g60806089_ _e60766078_)) + (let ((_E60826093_ (lambda () - (error '"No clause matching" _g53775386_)))) - (let ((_K53805433_ - (lambda (_bind5393_) - ((letrec ((_lp5395_ - (lambda (_rest5397_ _r5398_) - (let ((_rest53995407_ - _rest5397_)) - (let ((_E54025411_ + (error '"No clause matching" _g60806089_)))) + (let ((_K60836136_ + (lambda (_bind6096_) + ((letrec ((_lp6098_ + (lambda (_rest6100_ _r6101_) + (let ((_rest61026110_ + _rest6100_)) + (let ((_E61056114_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _rest53995407_)))) - (let ((_else54015415_ + _rest61026110_)))) + (let ((_else61046118_ (lambda () - (if (gx#identifier? _rest5397_) - (cons _rest5397_ _r5398_) - _r5398_)))) - (let ((_K54035421_ - (lambda (_rest5418_ _id5419_) - (if (gx#identifier? _id5419_) - (_lp5395_ - _rest5418_ - (cons (gx#binding-id - (gx#resolve-identifier _id5419_)) - _r5398_)) - (_lp5395_ _rest5418_ _r5398_))))) - (if (##pair? _rest53995407_) - (let ((_hd54045424_ (##car _rest53995407_)) - (_tl54055426_ (##cdr _rest53995407_))) - (let ((_id5429_ _hd54045424_)) - (let ((_rest5431_ _tl54055426_)) - (_K54035421_ _rest5431_ _id5429_)))) - (_else54015415_))))))))) + (if (gx#identifier? _rest6100_) + (cons _rest6100_ _r6101_) + _r6101_)))) + (let ((_K61066124_ + (lambda (_rest6121_ _id6122_) + (if (gx#identifier? _id6122_) + (_lp6098_ + _rest6121_ + (cons (##structure-ref + (gx#resolve-identifier__0 _id6122_) + '1 + gx#binding::t + '#f) + _r6101_)) + (_lp6098_ _rest6121_ _r6101_))))) + (if (##pair? _rest61026110_) + (let ((_hd61076127_ (##car _rest61026110_)) + (_tl61086129_ (##cdr _rest61026110_))) + (let ((_id6132_ _hd61076127_)) + (let ((_rest6134_ _tl61086129_)) + (_K61066124_ _rest6134_ _id6132_)))) + (_else61046118_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _lp5395_) - _bind5393_ + _lp6098_) + _bind6096_ '())))) - (if (##pair? _g53775386_) - (let ((_hd53815436_ (##car _g53775386_)) - (_tl53825438_ (##cdr _g53775386_))) - (let ((_bind5441_ _hd53815436_)) - (if (##pair? _tl53825438_) - (let ((_hd53835443_ - (##car _tl53825438_)) - (_tl53845445_ - (##cdr _tl53825438_))) - (if (##null? _tl53845445_) - (_K53805433_ _bind5441_) - (_E53795390_))) - (_E53795390_)))) - (_E53795390_)))))) - _forms5372_)))) - (let ((_closure-reference?4635_ - (lambda (_closure4924_ _bindings4925_) - (ormap1 (lambda (_g49264928_) - (table-ref _closure4924_ _g49264928_ '#f)) - _bindings4925_)))) - (let ((_is-effect-expr?4637_ - (lambda (_expr4835_) - (let ((_g48374847_ - (lambda (_g48384844_) + (if (##pair? _g60806089_) + (let ((_hd60846139_ (##car _g60806089_)) + (_tl60856141_ (##cdr _g60806089_))) + (let ((_bind6144_ _hd60846139_)) + (if (##pair? _tl60856141_) + (let ((_hd60866146_ + (##car _tl60856141_)) + (_tl60876148_ + (##cdr _tl60856141_))) + (if (##null? _tl60876148_) + (_K60836136_ _bind6144_) + (_E60826093_))) + (_E60826093_)))) + (_E60826093_)))))) + _forms6075_)))) + (let ((_closure-reference?5338_ + (lambda (_closure5627_ _bindings5628_) + (ormap1 (lambda (_g56295631_) + (table-ref _closure5627_ _g56295631_ '#f)) + _bindings5628_)))) + (let ((_is-effect-expr?5340_ + (lambda (_expr5538_) + (let ((_g55405550_ + (lambda (_g55415547_) (gx#raise-syntax-error '#f '"Bad syntax" - _g48384844_)))) - (let ((_g48364870_ - (lambda (_g48384850_) - (if (gx#stx-pair? _g48384850_) - (let ((_e48404852_ (gx#stx-e _g48384850_))) - (let ((_hd48414855_ (##car _e48404852_)) - (_tl48424857_ (##cdr _e48404852_))) - ((lambda (_L4860_) - (not (memq (gx#stx-e _L4860_) + _g55415547_)))) + (let ((_g55395573_ + (lambda (_g55415553_) + (if (gx#stx-pair? _g55415553_) + (let ((_e55435555_ (gx#stx-e _g55415553_))) + (let ((_hd55445558_ (##car _e55435555_)) + (_tl55455560_ (##cdr _e55435555_))) + ((lambda (_L5563_) + (not (memq (gx#stx-e _L5563_) '(%#lambda %#case-lambda %#quote %#quote-syntax %#ref)))) - _hd48414855_))) - (_g48374847_ _g48384850_))))) - (_g48364870_ _expr4835_)))))) - (let ((_is-lambda-expr?4638_ - (lambda (_expr4797_) - (let ((_g47994809_ - (lambda (_g48004806_) + _hd55445558_))) + (_g55405550_ _g55415553_))))) + (_g55395573_ _expr5538_)))))) + (let ((_is-lambda-expr?5341_ + (lambda (_expr5500_) + (let ((_g55025512_ + (lambda (_g55035509_) (gx#raise-syntax-error '#f '"Bad syntax" - _g48004806_)))) - (let ((_g47984832_ - (lambda (_g48004812_) - (if (gx#stx-pair? _g48004812_) - (let ((_e48024814_ - (gx#stx-e _g48004812_))) - (let ((_hd48034817_ - (##car _e48024814_)) - (_tl48044819_ - (##cdr _e48024814_))) - ((lambda (_L4822_) - (memq (gx#stx-e _L4822_) + _g55035509_)))) + (let ((_g55015535_ + (lambda (_g55035515_) + (if (gx#stx-pair? _g55035515_) + (let ((_e55055517_ + (gx#stx-e _g55035515_))) + (let ((_hd55065520_ + (##car _e55055517_)) + (_tl55075522_ + (##cdr _e55055517_))) + ((lambda (_L5525_) + (memq (gx#stx-e _L5525_) '(%#lambda %#case-lambda))) - _hd48034817_))) - (_g47994809_ _g48004812_))))) - (_g47984832_ _expr4797_)))))) - (let ((_lift-rec4634_ - (lambda (_forms4931_) - ((letrec ((_lp4933_ - (lambda (_rest4935_ - _pre4936_ - _bind4937_ - _init4938_) - (let ((_rest49394947_ _rest4935_)) - (let ((_E49424951_ + _hd55065520_))) + (_g55025512_ _g55035515_))))) + (_g55015535_ _expr5500_)))))) + (let ((_lift-rec5337_ + (lambda (_forms5634_) + ((letrec ((_lp5636_ + (lambda (_rest5638_ + _pre5639_ + _bind5640_ + _init5641_) + (let ((_rest56425650_ _rest5638_)) + (let ((_E56455654_ (lambda () (error '"No clause matching" - _rest49394947_)))) - (let ((_else49414955_ + _rest56425650_)))) + (let ((_else56445658_ (lambda () - (values (reverse _pre4936_) - (reverse _bind4937_) - (reverse _init4938_))))) - (let ((_K49435146_ - (lambda (_rest4958_ - _bind-hd4959_) - (let ((_g49634998_ - (lambda (_g49644995_) + (values (reverse _pre5639_) + (reverse _bind5640_) + (reverse _init5641_))))) + (let ((_K56465849_ + (lambda (_rest5661_ + _bind-hd5662_) + (let ((_g56665701_ + (lambda (_g56675698_) (gx#raise-syntax-error '#f '"Bad syntax" - _g49644995_)))) - (let ((_g49625055_ - (lambda (_g49645001_) + _g56675698_)))) + (let ((_g56655758_ + (lambda (_g56675704_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g49645001_) - (let ((_e49885003_ (gx#stx-e _g49645001_))) - (let ((_hd49895006_ (##car _e49885003_)) - (_tl49905008_ (##cdr _e49885003_))) - (if (gx#stx-pair? _tl49905008_) - (let ((_e49915011_ - (gx#stx-e _tl49905008_))) - (let ((_hd49925014_ (##car _e49915011_)) - (_tl49935016_ (##cdr _e49915011_))) - (if (gx#stx-null? _tl49935016_) - ((lambda (_L5019_ _L5020_) - (let ((_vals5039_ + _g56675704_) + (let ((_e56915706_ (gx#stx-e _g56675704_))) + (let ((_hd56925709_ (##car _e56915706_)) + (_tl56935711_ (##cdr _e56915706_))) + (if (gx#stx-pair? _tl56935711_) + (let ((_e56945714_ + (gx#stx-e _tl56935711_))) + (let ((_hd56955717_ (##car _e56945714_)) + (_tl56965719_ (##cdr _e56945714_))) + (if (gx#stx-null? _tl56965719_) + ((lambda (_L5722_ _L5723_) + (let ((_vals5742_ (gxc#generate-runtime-temporary__0))) - (let ((_expr5041_ + (let ((_expr5744_ (gxc#compile-e - _L5019_))) - (let ((_check-values5043_ + _L5722_))) + (let ((_check-values5746_ (gxc#generate-runtime-check-values - _vals5039_ - _L5020_))) - (let ((_refs5045_ + _vals5742_ + _L5723_))) + (let ((_refs5748_ (gxc#generate-runtime-let-values-bind - _vals5039_ - _L5020_))) + _vals5742_ + _L5723_))) (let () - (_lp4933_ - _rest4958_ - (foldl1 (lambda (_ref5048_ + (_lp5636_ + _rest5661_ + (foldl1 (lambda (_ref5751_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r5049_) - (cons (cons (car _ref5048_) (cons '#!void '())) - _r5049_)) - _pre4936_ - _refs5045_) - _bind4937_ + _r5752_) + (cons (cons (car _ref5751_) (cons '#!void '())) + _r5752_)) + _pre5639_ + _refs5748_) + _bind5640_ (cons (cons 'let - (cons (cons (cons _vals5039_ - (cons _expr5041_ '())) + (cons (cons (cons _vals5742_ + (cons _expr5744_ '())) '()) - (cons _check-values5043_ - (cons (map (lambda (_g50505052_) + (cons _check-values5746_ + (cons (map (lambda (_g57535755_) (cons 'set! - _g50505052_)) - _refs5045_) + _g57535755_)) + _refs5748_) '())))) - _init4938_)))))))) + _init5641_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd49925014_ - _hd49895006_) - (_g49634998_ _g49645001_)))) - (_g49634998_ _g49645001_)))) - (_g49634998_ _g49645001_))))) - (let ((_g49615101_ - (lambda (_g49645058_) - (if (gx#stx-pair? _g49645058_) - (let ((_e49775060_ (gx#stx-e _g49645058_))) - (let ((_hd49785063_ (##car _e49775060_)) - (_tl49795065_ (##cdr _e49775060_))) - (if (gx#stx-pair? _hd49785063_) - (let ((_e49805068_ - (gx#stx-e _hd49785063_))) - (let ((_hd49815071_ - (##car _e49805068_)) - (_tl49825073_ - (##cdr _e49805068_))) - (if (gx#stx-null? _tl49825073_) - (if (gx#stx-pair? _tl49795065_) - (let ((_e49835076_ + _hd56955717_ + _hd56925709_) + (_g56665701_ _g56675704_)))) + (_g56665701_ _g56675704_)))) + (_g56665701_ _g56675704_))))) + (let ((_g56645804_ + (lambda (_g56675761_) + (if (gx#stx-pair? _g56675761_) + (let ((_e56805763_ (gx#stx-e _g56675761_))) + (let ((_hd56815766_ (##car _e56805763_)) + (_tl56825768_ (##cdr _e56805763_))) + (if (gx#stx-pair? _hd56815766_) + (let ((_e56835771_ + (gx#stx-e _hd56815766_))) + (let ((_hd56845774_ + (##car _e56835771_)) + (_tl56855776_ + (##cdr _e56835771_))) + (if (gx#stx-null? _tl56855776_) + (if (gx#stx-pair? _tl56825768_) + (let ((_e56865779_ (gx#stx-e - _tl49795065_))) - (let ((_hd49845079_ - (##car _e49835076_)) - (_tl49855081_ - (##cdr _e49835076_))) + _tl56825768_))) + (let ((_hd56875782_ + (##car _e56865779_)) + (_tl56885784_ + (##cdr _e56865779_))) (if (gx#stx-null? - _tl49855081_) - ((lambda (_L5084_ + _tl56885784_) + ((lambda (_L5787_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L5085_) - (let ((_eid5099_ - (gxc#generate-runtime-binding-id _L5085_))) - (if (_is-lambda-expr?4638_ _L5084_) - (_lp4933_ - _rest4958_ - _pre4936_ - (cons (cons _eid5099_ - (cons (gxc#compile-e _L5084_) '())) - _bind4937_) - _init4938_) - (_lp4933_ - _rest4958_ - (cons (cons _eid5099_ (cons '#!void '())) - _pre4936_) - _bind4937_ + _L5788_) + (let ((_eid5802_ + (gxc#generate-runtime-binding-id _L5788_))) + (if (_is-lambda-expr?5341_ _L5787_) + (_lp5636_ + _rest5661_ + _pre5639_ + (cons (cons _eid5802_ + (cons (gxc#compile-e _L5787_) '())) + _bind5640_) + _init5641_) + (_lp5636_ + _rest5661_ + (cons (cons _eid5802_ (cons '#!void '())) + _pre5639_) + _bind5640_ (cons (cons 'set! - (cons _eid5099_ - (cons (gxc#compile-e _L5084_) + (cons _eid5802_ + (cons (gxc#compile-e _L5787_) '()))) - _init4938_))))) - _hd49845079_ - _hd49815071_) - (_g49625055_ _g49645058_)))) + _init5641_))))) + _hd56875782_ + _hd56845774_) + (_g56655758_ _g56675761_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g49625055_ _g49645058_)) - (_g49625055_ _g49645058_)))) - (_g49625055_ _g49645058_)))) - (_g49625055_ _g49645058_))))) - (let ((_g49605143_ - (lambda (_g49645104_) - (if (gx#stx-pair? _g49645104_) - (let ((_e49665106_ (gx#stx-e _g49645104_))) - (let ((_hd49675109_ (##car _e49665106_)) - (_tl49685111_ (##cdr _e49665106_))) - (if (gx#stx-pair? _hd49675109_) - (let ((_e49695114_ - (gx#stx-e _hd49675109_))) - (let ((_hd49705117_ - (##car _e49695114_)) - (_tl49715119_ - (##cdr _e49695114_))) - (if (gx#stx-datum? _hd49705117_) + (_g56655758_ _g56675761_)) + (_g56655758_ _g56675761_)))) + (_g56655758_ _g56675761_)))) + (_g56655758_ _g56675761_))))) + (let ((_g56635846_ + (lambda (_g56675807_) + (if (gx#stx-pair? _g56675807_) + (let ((_e56695809_ (gx#stx-e _g56675807_))) + (let ((_hd56705812_ (##car _e56695809_)) + (_tl56715814_ (##cdr _e56695809_))) + (if (gx#stx-pair? _hd56705812_) + (let ((_e56725817_ + (gx#stx-e _hd56705812_))) + (let ((_hd56735820_ + (##car _e56725817_)) + (_tl56745822_ + (##cdr _e56725817_))) + (if (gx#stx-datum? _hd56735820_) (if (equal? (gx#stx-e - _hd49705117_) + _hd56735820_) '#f) (if (gx#stx-null? - _tl49715119_) + _tl56745822_) (if (gx#stx-pair? - _tl49685111_) - (let ((_e49725122_ + _tl56715814_) + (let ((_e56755825_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl49685111_))) - (let ((_hd49735125_ (##car _e49725122_)) - (_tl49745127_ (##cdr _e49725122_))) - (if (gx#stx-null? _tl49745127_) - ((lambda (_L5130_) - (_lp4933_ - _rest4958_ - _pre4936_ - _bind4937_ - (cons (gxc#compile-e _L5130_) _init4938_))) - _hd49735125_) - (_g49615101_ _g49645104_)))) - (_g49615101_ _g49645104_)) - (_g49615101_ _g49645104_)) + (gx#stx-e _tl56715814_))) + (let ((_hd56765828_ (##car _e56755825_)) + (_tl56775830_ (##cdr _e56755825_))) + (if (gx#stx-null? _tl56775830_) + ((lambda (_L5833_) + (_lp5636_ + _rest5661_ + _pre5639_ + _bind5640_ + (cons (gxc#compile-e _L5833_) _init5641_))) + _hd56765828_) + (_g56645804_ _g56675807_)))) + (_g56645804_ _g56675807_)) + (_g56645804_ _g56675807_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g49615101_ _g49645104_)) - (_g49615101_ _g49645104_)))) - (_g49615101_ _g49645104_)))) - (_g49615101_ _g49645104_))))) - (_g49605143_ _bind-hd4959_)))))))) + (_g56645804_ _g56675807_)) + (_g56645804_ _g56675807_)))) + (_g56645804_ _g56675807_)))) + (_g56645804_ _g56675807_))))) + (_g56635846_ _bind-hd5662_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _rest49394947_) - (let ((_hd49445149_ - (##car _rest49394947_)) - (_tl49455151_ - (##cdr _rest49394947_))) - (let ((_bind-hd5154_ - _hd49445149_)) - (let ((_rest5156_ - _tl49455151_)) - (_K49435146_ - _rest5156_ - _bind-hd5154_)))) - (_else49414955_))))))))) - _lp4933_) - _forms4931_ + (if (##pair? _rest56425650_) + (let ((_hd56475852_ + (##car _rest56425650_)) + (_tl56485854_ + (##cdr _rest56425650_))) + (let ((_bind-hd5857_ + _hd56475852_)) + (let ((_rest5859_ + _tl56485854_)) + (_K56465849_ + _rest5859_ + _bind-hd5857_)))) + (_else56445658_))))))))) + _lp5636_) + _forms5634_ '() '() '())))) - (let ((_is-effect-bind?4636_ - (lambda (_hd-bind4873_) - (let ((_g48754888_ - (lambda (_g48764885_) + (let ((_is-effect-bind?5339_ + (lambda (_hd-bind5576_) + (let ((_g55785591_ + (lambda (_g55795588_) (gx#raise-syntax-error '#f '"Bad syntax" - _g48764885_)))) - (let ((_g48744921_ - (lambda (_g48764891_) - (if (gx#stx-pair? _g48764891_) - (let ((_e48784893_ - (gx#stx-e _g48764891_))) - (let ((_hd48794896_ - (##car _e48784893_)) - (_tl48804898_ - (##cdr _e48784893_))) - (if (gx#stx-pair? _tl48804898_) - (let ((_e48814901_ + _g55795588_)))) + (let ((_g55775624_ + (lambda (_g55795594_) + (if (gx#stx-pair? _g55795594_) + (let ((_e55815596_ + (gx#stx-e _g55795594_))) + (let ((_hd55825599_ + (##car _e55815596_)) + (_tl55835601_ + (##cdr _e55815596_))) + (if (gx#stx-pair? _tl55835601_) + (let ((_e55845604_ (gx#stx-e - _tl48804898_))) - (let ((_hd48824904_ - (##car _e48814901_)) - (_tl48834906_ - (##cdr _e48814901_))) + _tl55835601_))) + (let ((_hd55855607_ + (##car _e55845604_)) + (_tl55865609_ + (##cdr _e55845604_))) (if (gx#stx-null? - _tl48834906_) - ((lambda (_L4909_) - (_is-effect-expr?4637_ - _L4909_)) - _hd48824904_) - (_g48754888_ - _g48764891_)))) - (_g48754888_ _g48764891_)))) - (_g48754888_ _g48764891_))))) - (_g48744921_ _hd-bind4873_)))))) - (let ((_lift-pre4632_ - (lambda (_hd5265_ _bindings5266_ _closures5267_) - ((letrec ((_lp5269_ - (lambda (_rest-forms5271_ - _rest-bindings5272_ - _rest-closures5273_ - _post-forms5274_ - _post-bindings5275_ - _post-closures5276_ - _pre-forms5277_ - _lifted?5278_) - (let ((_rest-forms52795295_ - _rest-forms5271_) - (_rest-bindings52805297_ - _rest-bindings5272_) - (_rest-closures52815299_ - _rest-closures5273_)) - (let ((_E52845303_ + _tl55865609_) + ((lambda (_L5612_) + (_is-effect-expr?5340_ + _L5612_)) + _hd55855607_) + (_g55785591_ + _g55795594_)))) + (_g55785591_ _g55795594_)))) + (_g55785591_ _g55795594_))))) + (_g55775624_ _hd-bind5576_)))))) + (let ((_lift-pre5335_ + (lambda (_hd5968_ _bindings5969_ _closures5970_) + ((letrec ((_lp5972_ + (lambda (_rest-forms5974_ + _rest-bindings5975_ + _rest-closures5976_ + _post-forms5977_ + _post-bindings5978_ + _post-closures5979_ + _pre-forms5980_ + _lifted?5981_) + (let ((_rest-forms59825998_ + _rest-forms5974_) + (_rest-bindings59836000_ + _rest-bindings5975_) + (_rest-closures59846002_ + _rest-closures5976_)) + (let ((_E59876006_ (lambda () (error '"No clause matching" - _rest-forms52795295_ - _rest-bindings52805297_ - _rest-closures52815299_)))) - (let ((_else52835307_ + _rest-forms59825998_ + _rest-bindings59836000_ + _rest-closures59846002_)))) + (let ((_else59866010_ (lambda () - (if _lifted?5278_ - (_lp5269_ - (reverse _post-forms5274_) - (reverse _post-bindings5275_) - (reverse _post-closures5276_) + (if _lifted?5981_ + (_lp5972_ + (reverse _post-forms5977_) + (reverse _post-bindings5978_) + (reverse _post-closures5979_) '() '() '() - _pre-forms5277_ + _pre-forms5980_ '#f) - (values (reverse _pre-forms5277_) + (values (reverse _pre-forms5980_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse _post-forms5274_) - (reverse _post-bindings5275_) - (reverse _post-closures5276_)))))) + (reverse _post-forms5977_) + (reverse _post-bindings5978_) + (reverse _post-closures5979_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_K52855360_ - (lambda (_rest-forms5310_ - _form5311_) - (let ((_K52865348_ - (lambda (_rest-bindings5313_ + (let ((_K59886063_ + (lambda (_rest-forms6013_ + _form6014_) + (let ((_K59896051_ + (lambda (_rest-bindings6016_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bindings5314_) - (let ((_K52875336_ - (lambda (_rest-closures5316_ _closure5317_) - (if (let ((_$e5319_ - (_closure-reference?4635_ - _closure5317_ - _bindings5314_))) - (if _$e5319_ - _$e5319_ - (let ((_$e5326_ - (ormap1 (lambda (_g53215323_) - (_closure-reference?4635_ - _closure5317_ - _g53215323_)) - _rest-bindings5313_))) - (if _$e5326_ - _$e5326_ - (let ((_$e5333_ - (ormap1 (lambda (_g53285330_) + _bindings6017_) + (let ((_K59906039_ + (lambda (_rest-closures6019_ _closure6020_) + (if (let ((_$e6022_ + (_closure-reference?5338_ + _closure6020_ + _bindings6017_))) + (if _$e6022_ + _$e6022_ + (let ((_$e6029_ + (ormap1 (lambda (_g60246026_) + (_closure-reference?5338_ + _closure6020_ + _g60246026_)) + _rest-bindings6016_))) + (if _$e6029_ + _$e6029_ + (let ((_$e6036_ + (ormap1 (lambda (_g60316033_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_closure-reference?4635_ - _closure5317_ - _g53285330_)) - _post-bindings5275_))) + (_closure-reference?5338_ + _closure6020_ + _g60316033_)) + _post-bindings5978_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e5333_ - _$e5333_ - (if (_is-effect-bind?4636_ - _form5311_) - (find _is-effect-bind?4636_ + (if _$e6036_ + _$e6036_ + (if (_is-effect-bind?5339_ + _form6014_) + (find _is-effect-bind?5339_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _post-forms5274_) + _post-forms5977_) '#f))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp5269_ - _rest-forms5310_ - _rest-bindings5313_ - _rest-closures5316_ - (cons _form5311_ _post-forms5274_) - (cons _bindings5314_ - _post-bindings5275_) - (cons _closure5317_ - _post-closures5276_) - _pre-forms5277_ - _lifted?5278_) - (_lp5269_ - _rest-forms5310_ - _rest-bindings5313_ - _rest-closures5316_ - _post-forms5274_ - _post-bindings5275_ - _post-closures5276_ - (cons _form5311_ _pre-forms5277_) + (_lp5972_ + _rest-forms6013_ + _rest-bindings6016_ + _rest-closures6019_ + (cons _form6014_ _post-forms5977_) + (cons _bindings6017_ + _post-bindings5978_) + (cons _closure6020_ + _post-closures5979_) + _pre-forms5980_ + _lifted?5981_) + (_lp5972_ + _rest-forms6013_ + _rest-bindings6016_ + _rest-closures6019_ + _post-forms5977_ + _post-bindings5978_ + _post-closures5979_ + (cons _form6014_ _pre-forms5980_) '#t))))) - (if (##pair? _rest-closures52815299_) - (let ((_hd52885339_ - (##car _rest-closures52815299_)) - (_tl52895341_ - (##cdr _rest-closures52815299_))) - (let ((_closure5344_ _hd52885339_)) - (let ((_rest-closures5346_ _tl52895341_)) - (_K52875336_ - _rest-closures5346_ - _closure5344_)))) - (_else52835307_)))))) - (if (##pair? _rest-bindings52805297_) - (let ((_hd52905351_ (##car _rest-bindings52805297_)) - (_tl52915353_ (##cdr _rest-bindings52805297_))) - (let ((_bindings5356_ _hd52905351_)) - (let ((_rest-bindings5358_ _tl52915353_)) - (_K52865348_ - _rest-bindings5358_ - _bindings5356_)))) - (_else52835307_)))))) + (if (##pair? _rest-closures59846002_) + (let ((_hd59916042_ + (##car _rest-closures59846002_)) + (_tl59926044_ + (##cdr _rest-closures59846002_))) + (let ((_closure6047_ _hd59916042_)) + (let ((_rest-closures6049_ _tl59926044_)) + (_K59906039_ + _rest-closures6049_ + _closure6047_)))) + (_else59866010_)))))) + (if (##pair? _rest-bindings59836000_) + (let ((_hd59936054_ (##car _rest-bindings59836000_)) + (_tl59946056_ (##cdr _rest-bindings59836000_))) + (let ((_bindings6059_ _hd59936054_)) + (let ((_rest-bindings6061_ _tl59946056_)) + (_K59896051_ + _rest-bindings6061_ + _bindings6059_)))) + (_else59866010_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _rest-forms52795295_) - (let ((_hd52925363_ - (##car _rest-forms52795295_)) - (_tl52935365_ - (##cdr _rest-forms52795295_))) - (let ((_form5368_ - _hd52925363_)) - (let ((_rest-forms5370_ + (if (##pair? _rest-forms59825998_) + (let ((_hd59956066_ + (##car _rest-forms59825998_)) + (_tl59966068_ + (##cdr _rest-forms59825998_))) + (let ((_form6071_ + _hd59956066_)) + (let ((_rest-forms6073_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl52935365_)) - (_K52855360_ _rest-forms5370_ _form5368_)))) - (_else52835307_))))))))) + _tl59966068_)) + (_K59886063_ _rest-forms6073_ _form6071_)))) + (_else59866010_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _lp5269_) - _hd5265_ - _bindings5266_ - _closures5267_ + _lp5972_) + _hd5968_ + _bindings5969_ + _closures5970_ '() '() '() '() '#f)))) - (let ((_lift-post4633_ - (lambda (_hd5158_ _bindings5159_ _closures5160_) - ((letrec ((_lp5162_ - (lambda (_rest-forms5164_ - _rest-bindings5165_ - _rest-closures5166_ - _pre-forms5167_ - _pre-bindings5168_ - _pre-closures5169_ - _post-forms5170_ - _lifted?5171_) - (let ((_rest-forms51725188_ - _rest-forms5164_) - (_rest-bindings51735190_ - _rest-bindings5165_) - (_rest-closures51745192_ - _rest-closures5166_)) - (let ((_E51775196_ + (let ((_lift-post5336_ + (lambda (_hd5861_ _bindings5862_ _closures5863_) + ((letrec ((_lp5865_ + (lambda (_rest-forms5867_ + _rest-bindings5868_ + _rest-closures5869_ + _pre-forms5870_ + _pre-bindings5871_ + _pre-closures5872_ + _post-forms5873_ + _lifted?5874_) + (let ((_rest-forms58755891_ + _rest-forms5867_) + (_rest-bindings58765893_ + _rest-bindings5868_) + (_rest-closures58775895_ + _rest-closures5869_)) + (let ((_E58805899_ (lambda () (error '"No clause matching" - _rest-forms51725188_ - _rest-bindings51735190_ - _rest-closures51745192_)))) - (let ((_else51765200_ + _rest-forms58755891_ + _rest-bindings58765893_ + _rest-closures58775895_)))) + (let ((_else58795903_ (lambda () - (if _lifted?5171_ - (_lp5162_ - (reverse _pre-forms5167_) - (reverse _pre-bindings5168_) - (reverse _pre-closures5169_) + (if _lifted?5874_ + (_lp5865_ + (reverse _pre-forms5870_) + (reverse _pre-bindings5871_) + (reverse _pre-closures5872_) '() '() '() - _post-forms5170_ + _post-forms5873_ '#f) - (values _post-forms5170_ + (values _post-forms5873_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pre-forms5167_ - _pre-bindings5168_ - _pre-closures5169_))))) + _pre-forms5870_ + _pre-bindings5871_ + _pre-closures5872_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_K51785253_ - (lambda (_rest-forms5203_ + (let ((_K58815956_ + (lambda (_rest-forms5906_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _form5204_) - (let ((_K51795241_ - (lambda (_rest-bindings5206_ _bindings5207_) - (let ((_K51805229_ - (lambda (_rest-closures5209_ _closure5210_) - (if (let ((_$e5212_ - (_closure-reference?4635_ - _closure5210_ - _bindings5207_))) - (if _$e5212_ - _$e5212_ - (let ((_$e5219_ - (ormap1 (lambda (_g52145216_) - (_closure-reference?4635_ + _form5907_) + (let ((_K58825944_ + (lambda (_rest-bindings5909_ _bindings5910_) + (let ((_K58835932_ + (lambda (_rest-closures5912_ _closure5913_) + (if (let ((_$e5915_ + (_closure-reference?5338_ + _closure5913_ + _bindings5910_))) + (if _$e5915_ + _$e5915_ + (let ((_$e5922_ + (ormap1 (lambda (_g59175919_) + (_closure-reference?5338_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g52145216_ - _bindings5207_)) - _rest-closures5209_))) + _g59175919_ + _bindings5910_)) + _rest-closures5912_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e5219_ - _$e5219_ - (let ((_$e5226_ - (ormap1 (lambda (_g52215223_) + (if _$e5922_ + _$e5922_ + (let ((_$e5929_ + (ormap1 (lambda (_g59245926_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_closure-reference?4635_ - _g52215223_ - _bindings5207_)) - _pre-closures5169_))) - (if _$e5226_ - _$e5226_ - (if (_is-effect-bind?4636_ _form5204_) - (find _is-effect-bind?4636_ _pre-forms5167_) + (_closure-reference?5338_ + _g59245926_ + _bindings5910_)) + _pre-closures5872_))) + (if _$e5929_ + _$e5929_ + (if (_is-effect-bind?5339_ _form5907_) + (find _is-effect-bind?5339_ _pre-forms5870_) '#f))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp5162_ - _rest-forms5203_ - _rest-bindings5206_ - _rest-closures5209_ - (cons _form5204_ _pre-forms5167_) - (cons _bindings5207_ - _pre-bindings5168_) - (cons _closure5210_ - _pre-closures5169_) - _post-forms5170_ - _lifted?5171_) - (_lp5162_ - _rest-forms5203_ - _rest-bindings5206_ - _rest-closures5209_ - _pre-forms5167_ - _pre-bindings5168_ - _pre-closures5169_ - (cons _form5204_ _post-forms5170_) + (_lp5865_ + _rest-forms5906_ + _rest-bindings5909_ + _rest-closures5912_ + (cons _form5907_ _pre-forms5870_) + (cons _bindings5910_ + _pre-bindings5871_) + (cons _closure5913_ + _pre-closures5872_) + _post-forms5873_ + _lifted?5874_) + (_lp5865_ + _rest-forms5906_ + _rest-bindings5909_ + _rest-closures5912_ + _pre-forms5870_ + _pre-bindings5871_ + _pre-closures5872_ + (cons _form5907_ _post-forms5873_) '#t))))) - (if (##pair? _rest-closures51745192_) - (let ((_hd51815232_ - (##car _rest-closures51745192_)) - (_tl51825234_ - (##cdr _rest-closures51745192_))) - (let ((_closure5237_ _hd51815232_)) - (let ((_rest-closures5239_ _tl51825234_)) - (_K51805229_ - _rest-closures5239_ - _closure5237_)))) - (_else51765200_)))))) - (if (##pair? _rest-bindings51735190_) - (let ((_hd51835244_ (##car _rest-bindings51735190_)) - (_tl51845246_ (##cdr _rest-bindings51735190_))) - (let ((_bindings5249_ _hd51835244_)) - (let ((_rest-bindings5251_ _tl51845246_)) - (_K51795241_ - _rest-bindings5251_ - _bindings5249_)))) - (_else51765200_)))))) + (if (##pair? _rest-closures58775895_) + (let ((_hd58845935_ + (##car _rest-closures58775895_)) + (_tl58855937_ + (##cdr _rest-closures58775895_))) + (let ((_closure5940_ _hd58845935_)) + (let ((_rest-closures5942_ _tl58855937_)) + (_K58835932_ + _rest-closures5942_ + _closure5940_)))) + (_else58795903_)))))) + (if (##pair? _rest-bindings58765893_) + (let ((_hd58865947_ (##car _rest-bindings58765893_)) + (_tl58875949_ (##cdr _rest-bindings58765893_))) + (let ((_bindings5952_ _hd58865947_)) + (let ((_rest-bindings5954_ _tl58875949_)) + (_K58825944_ + _rest-bindings5954_ + _bindings5952_)))) + (_else58795903_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _rest-forms51725188_) - (let ((_hd51855256_ - (##car _rest-forms51725188_)) - (_tl51865258_ - (##cdr _rest-forms51725188_))) - (let ((_form5261_ + (if (##pair? _rest-forms58755891_) + (let ((_hd58885959_ + (##car _rest-forms58755891_)) + (_tl58895961_ + (##cdr _rest-forms58755891_))) + (let ((_form5964_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd51855256_)) - (let ((_rest-forms5263_ _tl51865258_)) - (_K51785253_ _rest-forms5263_ _form5261_)))) - (_else51765200_))))))))) + _hd58885959_)) + (let ((_rest-forms5966_ _tl58895961_)) + (_K58815956_ _rest-forms5966_ _form5964_)))) + (_else58795903_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _lp5162_) - (reverse _hd5158_) - (reverse _bindings5159_) - (reverse _closures5160_) + _lp5865_) + (reverse _hd5861_) + (reverse _bindings5862_) + (reverse _closures5863_) '() '() '() '() '#f)))) - (let ((_linearize4629_ - (lambda (_forms5486_) - (let ((_closures5488_ - (_collect-closures4630_ _forms5486_))) - (let ((_bindings5490_ - (_collect-bindings4631_ - _forms5486_))) - (let ((_g9295_ (_lift-pre4632_ - _forms5486_ - _bindings5490_ - _closures5488_))) + (let ((_linearize5332_ + (lambda (_forms6189_) + (let ((_closures6191_ + (_collect-closures5333_ _forms6189_))) + (let ((_bindings6193_ + (_collect-bindings5334_ + _forms6189_))) + (let ((_g9998_ (_lift-pre5335_ + _forms6189_ + _bindings6193_ + _closures6191_))) (begin - (let ((_g9296_ (values-count - _g9295_))) - (if (not (fx= _g9296_ 4)) + (let ((_g9999_ (values-count + _g9998_))) + (if (not (fx= _g9999_ 4)) (error "Context expects 4 values" - _g9296_))) - (let ((_pre-bind5492_ - (values-ref _g9295_ 0)) - (_forms5493_ - (values-ref _g9295_ 1)) - (_bindings5494_ - (values-ref _g9295_ 2)) - (_closures5495_ - (values-ref _g9295_ 3))) - (let ((_g9297_ (_lift-post4633_ - _forms5493_ - _bindings5494_ - _closures5495_))) + _g9999_))) + (let ((_pre-bind6195_ + (values-ref _g9998_ 0)) + (_forms6196_ + (values-ref _g9998_ 1)) + (_bindings6197_ + (values-ref _g9998_ 2)) + (_closures6198_ + (values-ref _g9998_ 3))) + (let ((_g10000_ + (_lift-post5336_ + _forms6196_ + _bindings6197_ + _closures6198_))) (begin - (let ((_g9298_ (values-count - _g9297_))) - (if (not (fx= _g9298_ 4)) + (let ((_g10001_ + (values-count _g10000_))) + (if (not (fx= _g10001_ 4)) (error "Context expects 4 values" - _g9298_))) - (let ((_post-bind5497_ - (values-ref _g9297_ 0)) - (_forms5498_ - (values-ref _g9297_ 1)) - (_bindings5499_ - (values-ref _g9297_ 2)) - (_closures5500_ - (values-ref _g9297_ 3))) - (let ((_g9299_ (_lift-rec4634_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _forms5498_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g10001_))) + (let ((_post-bind6200_ + (values-ref _g10000_ 0)) + (_forms6201_ + (values-ref _g10000_ 1)) + (_bindings6202_ + (values-ref _g10000_ 2)) + (_closures6203_ + (values-ref _g10000_ 3))) + (let ((_g10002_ + (_lift-rec5337_ + _forms6201_))) (begin - (let ((_g9300_ (values-count + (let ((_g10003_ + (values-count + _g10002_))) + (if (not (fx= _g10003_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g9299_))) - (if (not (fx= _g9300_ 3)) - (error "Context expects 3 values" _g9300_))) + 3)) + (error "Context expects 3 values" _g10003_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_rec-pre5502_ + (let ((_rec-pre6205_ (values-ref - _g9299_ + _g10002_ 0)) - (_rec-bind5503_ + (_rec-bind6206_ (values-ref - _g9299_ + _g10002_ 1)) - (_rec-init5504_ + (_rec-init6207_ (values-ref - _g9299_ + _g10002_ 2))) (let () - (values _pre-bind5492_ + (values _pre-bind6195_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _rec-pre5502_ - _rec-bind5503_ - _rec-init5504_ - _post-bind5497_)))))))))))))))) + _rec-pre6205_ + _rec-bind6206_ + _rec-init6207_ + _post-bind6200_)))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (letrec ((_generate-let*4639_ - (lambda (_hd4726_ _body4727_) - (let ((_hd47284736_ _hd4726_)) - (let ((_E47314740_ + (letrec ((_generate-let*5342_ + (lambda (_hd5429_ _body5430_) + (let ((_hd54315439_ _hd5429_)) + (let ((_E54345443_ (lambda () (error '"No clause matching" - _hd47284736_)))) - (let ((_else47304744_ - (lambda () _body4727_))) - (let ((_K47324785_ - (lambda (_rest4747_ - _bind4748_) - (let ((_bind47494758_ - _bind4748_)) - (let ((_E47514762_ + _hd54315439_)))) + (let ((_else54335447_ + (lambda () _body5430_))) + (let ((_K54355488_ + (lambda (_rest5450_ + _bind5451_) + (let ((_bind54525461_ + _bind5451_)) + (let ((_E54545465_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind47494758_)))) - (let ((_K47524768_ - (lambda (_expr4765_ _hd4766_) - (if (gx#stx-ormap gx#identifier? _hd4766_) - (gxc#generate-runtime-let-values%__opt-lambda5927 + _bind54525461_)))) + (let ((_K54555471_ + (lambda (_expr5468_ _hd5469_) + (if (gx#stx-ormap gx#identifier? _hd5469_) + (gxc#generate-runtime-let-values%__opt-lambda6630 (cons '%#let-values - (cons (cons _bind4748_ '()) - (cons (_generate-let*4639_ - _rest4747_ - _body4727_) + (cons (cons _bind5451_ '()) + (cons (_generate-let*5342_ + _rest5450_ + _body5430_) '()))) '#t) (cons 'begin - (cons (gxc#compile-e _expr4765_) - (cons (_generate-let*4639_ - _rest4747_ - _body4727_) + (cons (gxc#compile-e _expr5468_) + (cons (_generate-let*5342_ + _rest5450_ + _body5430_) '()))))))) - (if (##pair? _bind47494758_) - (let ((_hd47534771_ (##car _bind47494758_)) - (_tl47544773_ (##cdr _bind47494758_))) - (let ((_hd4776_ _hd47534771_)) - (if (##pair? _tl47544773_) - (let ((_hd47554778_ (##car _tl47544773_)) - (_tl47564780_ (##cdr _tl47544773_))) - (let ((_expr4783_ _hd47554778_)) - (if (##null? _tl47564780_) - (_K47524768_ _expr4783_ _hd4776_) - (_E47514762_)))) - (_E47514762_)))) - (_E47514762_)))))))) + (if (##pair? _bind54525461_) + (let ((_hd54565474_ (##car _bind54525461_)) + (_tl54575476_ (##cdr _bind54525461_))) + (let ((_hd5479_ _hd54565474_)) + (if (##pair? _tl54575476_) + (let ((_hd54585481_ (##car _tl54575476_)) + (_tl54595483_ (##cdr _tl54575476_))) + (let ((_expr5486_ _hd54585481_)) + (if (##null? _tl54595483_) + (_K54555471_ _expr5486_ _hd5479_) + (_E54545465_)))) + (_E54545465_)))) + (_E54545465_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _hd47284736_) - (let ((_hd47334788_ - (##car _hd47284736_)) - (_tl47344790_ - (##cdr _hd47284736_))) - (let ((_bind4793_ - _hd47334788_)) - (let ((_rest4795_ - _tl47344790_)) - (_K47324785_ - _rest4795_ - _bind4793_)))) - (_else47304744_))))))))) - (let ((_g46414658_ - (lambda (_g46424655_) + (if (##pair? _hd54315439_) + (let ((_hd54365491_ + (##car _hd54315439_)) + (_tl54375493_ + (##cdr _hd54315439_))) + (let ((_bind5496_ + _hd54365491_)) + (let ((_rest5498_ + _tl54375493_)) + (_K54355488_ + _rest5498_ + _bind5496_)))) + (_else54335447_))))))))) + (let ((_g53445361_ + (lambda (_g53455358_) (gx#raise-syntax-error '#f '"Bad syntax" - _g46424655_)))) - (let ((_g46404723_ - (lambda (_g46424661_) - (if (gx#stx-pair? _g46424661_) - (let ((_e46454663_ - (gx#stx-e _g46424661_))) - (let ((_hd46464666_ - (##car _e46454663_)) - (_tl46474668_ - (##cdr _e46454663_))) - (if (gx#stx-pair? _tl46474668_) - (let ((_e46484671_ + _g53455358_)))) + (let ((_g53435426_ + (lambda (_g53455364_) + (if (gx#stx-pair? _g53455364_) + (let ((_e53485366_ + (gx#stx-e _g53455364_))) + (let ((_hd53495369_ + (##car _e53485366_)) + (_tl53505371_ + (##cdr _e53485366_))) + (if (gx#stx-pair? _tl53505371_) + (let ((_e53515374_ (gx#stx-e - _tl46474668_))) - (let ((_hd46494674_ - (##car _e46484671_)) - (_tl46504676_ - (##cdr _e46484671_))) + _tl53505371_))) + (let ((_hd53525377_ + (##car _e53515374_)) + (_tl53535379_ + (##cdr _e53515374_))) (if (gx#stx-pair? - _tl46504676_) - (let ((_e46514679_ + _tl53535379_) + (let ((_e53545382_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl46504676_))) - (let ((_hd46524682_ (##car _e46514679_)) - (_tl46534684_ (##cdr _e46514679_))) - (if (gx#stx-null? _tl46534684_) - ((lambda (_L4687_ _L4688_) - (let ((_g9293_ (_linearize4629_ _L4688_))) + (gx#stx-e _tl53535379_))) + (let ((_hd53555385_ (##car _e53545382_)) + (_tl53565387_ (##cdr _e53545382_))) + (if (gx#stx-null? _tl53565387_) + ((lambda (_L5390_ _L5391_) + (let ((_g9996_ (_linearize5332_ _L5391_))) (begin - (let ((_g9294_ (values-count _g9293_))) - (if (not (fx= _g9294_ 5)) + (let ((_g9997_ (values-count _g9996_))) + (if (not (fx= _g9997_ 5)) (error "Context expects 5 values" - _g9294_))) - (let ((_pre4704_ (values-ref _g9293_ 0)) - (_rec-pre4705_ (values-ref _g9293_ 1)) - (_rec-bind4706_ (values-ref _g9293_ 2)) - (_rec-init4707_ (values-ref _g9293_ 3)) - (_post4708_ (values-ref _g9293_ 4))) - (let ((_body4710_ (gxc#compile-e _L4687_))) - (let ((_body4712_ - (if (null? _post4708_) - _body4710_ - (_generate-let*4639_ - _post4708_ - _body4710_)))) - (let ((_body4714_ - (if (null? _rec-init4707_) - _body4712_ + _g9997_))) + (let ((_pre5407_ (values-ref _g9996_ 0)) + (_rec-pre5408_ (values-ref _g9996_ 1)) + (_rec-bind5409_ (values-ref _g9996_ 2)) + (_rec-init5410_ (values-ref _g9996_ 3)) + (_post5411_ (values-ref _g9996_ 4))) + (let ((_body5413_ (gxc#compile-e _L5390_))) + (let ((_body5415_ + (if (null? _post5411_) + _body5413_ + (_generate-let*5342_ + _post5411_ + _body5413_)))) + (let ((_body5417_ + (if (null? _rec-init5410_) + _body5415_ (cons 'begin (foldr1 cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _body4712_ '()) - _rec-init4707_))))) + (cons _body5415_ '()) + _rec-init5410_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_body4716_ - (if (null? _rec-bind4706_) - _body4714_ + (let ((_body5419_ + (if (null? _rec-bind5409_) + _body5417_ (cons 'letrec - (cons _rec-bind4706_ + (cons _rec-bind5409_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _body4714_ '())))))) + (cons _body5417_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_body4718_ - (if (null? _rec-pre4705_) - _body4716_ + (let ((_body5421_ + (if (null? _rec-pre5408_) + _body5419_ (cons 'let - (cons _rec-pre4705_ + (cons _rec-pre5408_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _body4716_ '())))))) + (cons _body5419_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_body4720_ - (if (null? _pre4704_) - _body4718_ - (_generate-let*4639_ - _pre4704_ - _body4718_)))) - (let () _body4720_))))))))))) - _hd46524682_ - _hd46494674_) - (_g46414658_ _g46424661_)))) - (_g46414658_ _g46424661_)))) + (let ((_body5423_ + (if (null? _pre5407_) + _body5421_ + (_generate-let*5342_ + _pre5407_ + _body5421_)))) + (let () _body5423_))))))))))) + _hd53555385_ + _hd53525377_) + (_g53445361_ _g53455364_)))) + (_g53445361_ _g53455364_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g46414658_ _g46424661_)))) - (_g46414658_ _g46424661_))))) - (_g46404723_ _stx4627_)))))))))))))))) + (_g53445361_ _g53455364_)))) + (_g53445361_ _g53455364_))))) + (_g53435426_ _stx5330_)))))))))))))))) (define gxc#generate-runtime-simple-let? - (lambda (_hd4520_) - ((letrec ((_lp4522_ - (lambda (_rest4524_) - (let ((_g45284549_ - (lambda (_g45294546_) + (lambda (_hd5223_) + ((letrec ((_lp5225_ + (lambda (_rest5227_) + (let ((_g52315252_ + (lambda (_g52325249_) (gx#raise-syntax-error '#f '"Bad syntax" - _g45294546_)))) - (let ((_g45274556_ - (lambda (_g45294552_) ((lambda () '#f))))) - (let ((_g45264563_ - (lambda (_g45294559_) - (if (gx#stx-null? _g45294559_) + _g52325249_)))) + (let ((_g52305259_ + (lambda (_g52325255_) ((lambda () '#f))))) + (let ((_g52295266_ + (lambda (_g52325262_) + (if (gx#stx-null? _g52325262_) ((lambda () '#t)) - (_g45274556_ _g45294559_))))) - (let ((_g45254624_ - (lambda (_g45294566_) - (if (gx#stx-pair? _g45294566_) - (let ((_e45334568_ - (gx#stx-e _g45294566_))) - (let ((_hd45344571_ - (##car _e45334568_)) - (_tl45354573_ - (##cdr _e45334568_))) - (if (gx#stx-pair? _hd45344571_) - (let ((_e45364576_ - (gx#stx-e _hd45344571_))) - (let ((_hd45374579_ - (##car _e45364576_)) - (_tl45384581_ - (##cdr _e45364576_))) + (_g52305259_ _g52325262_))))) + (let ((_g52285327_ + (lambda (_g52325269_) + (if (gx#stx-pair? _g52325269_) + (let ((_e52365271_ + (gx#stx-e _g52325269_))) + (let ((_hd52375274_ + (##car _e52365271_)) + (_tl52385276_ + (##cdr _e52365271_))) + (if (gx#stx-pair? _hd52375274_) + (let ((_e52395279_ + (gx#stx-e _hd52375274_))) + (let ((_hd52405282_ + (##car _e52395279_)) + (_tl52415284_ + (##cdr _e52395279_))) (if (gx#stx-pair? - _hd45374579_) - (let ((_e45394584_ + _hd52405282_) + (let ((_e52425287_ (gx#stx-e - _hd45374579_))) - (let ((_hd45404587_ - (##car _e45394584_)) - (_tl45414589_ - (##cdr _e45394584_))) + _hd52405282_))) + (let ((_hd52435290_ + (##car _e52425287_)) + (_tl52445292_ + (##cdr _e52425287_))) (if (gx#stx-null? - _tl45414589_) + _tl52445292_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl45384581_) - (let ((_e45424592_ (gx#stx-e _tl45384581_))) - (let ((_hd45434595_ (##car _e45424592_)) - (_tl45444597_ (##cdr _e45424592_))) - (if (gx#stx-null? _tl45444597_) - ((lambda (_L4600_ _L4601_ _L4602_) - (_lp4522_ _L4600_)) - _tl45354573_ - _hd45434595_ - _hd45404587_) - (_g45264563_ _g45294566_)))) - (_g45264563_ _g45294566_)) - (_g45264563_ _g45294566_)))) - (_g45264563_ _g45294566_)))) + _tl52415284_) + (let ((_e52455295_ (gx#stx-e _tl52415284_))) + (let ((_hd52465298_ (##car _e52455295_)) + (_tl52475300_ (##cdr _e52455295_))) + (if (gx#stx-null? _tl52475300_) + ((lambda (_L5303_ _L5304_ _L5305_) + (_lp5225_ _L5303_)) + _tl52385276_ + _hd52465298_ + _hd52435290_) + (_g52295266_ _g52325269_)))) + (_g52295266_ _g52325269_)) + (_g52295266_ _g52325269_)))) + (_g52295266_ _g52325269_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g45264563_ _g45294566_)))) - (_g45264563_ _g45294566_))))) - (_g45254624_ _rest4524_)))))))) - _lp4522_) - _hd4520_))) + (_g52295266_ _g52325269_)))) + (_g52295266_ _g52325269_))))) + (_g52285327_ _rest5227_)))))))) + _lp5225_) + _hd5223_))) (define gxc#generate-runtime-simple-let - (lambda (_form4444_ _hd4445_ _body4446_ _compiled-body?4447_) - (let ((_generate14449_ - (lambda (_bind4451_) - (let ((_g44534470_ - (lambda (_g44544467_) + (lambda (_form5147_ _hd5148_ _body5149_ _compiled-body?5150_) + (let ((_generate15152_ + (lambda (_bind5154_) + (let ((_g51565173_ + (lambda (_g51575170_) (gx#raise-syntax-error '#f '"Bad syntax" - _g44544467_)))) - (let ((_g44524517_ - (lambda (_g44544473_) - (if (gx#stx-pair? _g44544473_) - (let ((_e44574475_ (gx#stx-e _g44544473_))) - (let ((_hd44584478_ (##car _e44574475_)) - (_tl44594480_ (##cdr _e44574475_))) - (if (gx#stx-pair? _hd44584478_) - (let ((_e44604483_ - (gx#stx-e _hd44584478_))) - (let ((_hd44614486_ - (##car _e44604483_)) - (_tl44624488_ - (##cdr _e44604483_))) - (if (gx#stx-null? _tl44624488_) - (if (gx#stx-pair? _tl44594480_) - (let ((_e44634491_ + _g51575170_)))) + (let ((_g51555220_ + (lambda (_g51575176_) + (if (gx#stx-pair? _g51575176_) + (let ((_e51605178_ (gx#stx-e _g51575176_))) + (let ((_hd51615181_ (##car _e51605178_)) + (_tl51625183_ (##cdr _e51605178_))) + (if (gx#stx-pair? _hd51615181_) + (let ((_e51635186_ + (gx#stx-e _hd51615181_))) + (let ((_hd51645189_ + (##car _e51635186_)) + (_tl51655191_ + (##cdr _e51635186_))) + (if (gx#stx-null? _tl51655191_) + (if (gx#stx-pair? _tl51625183_) + (let ((_e51665194_ (gx#stx-e - _tl44594480_))) - (let ((_hd44644494_ - (##car _e44634491_)) - (_tl44654496_ - (##cdr _e44634491_))) + _tl51625183_))) + (let ((_hd51675197_ + (##car _e51665194_)) + (_tl51685199_ + (##cdr _e51665194_))) (if (gx#stx-null? - _tl44654496_) - ((lambda (_L4499_ + _tl51685199_) + ((lambda (_L5202_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L4500_) - (cons (gxc#generate-runtime-binding-id* _L4500_) - (cons (gxc#compile-e _L4499_) '()))) - _hd44644494_ - _hd44614486_) - (_g44534470_ _g44544473_)))) + _L5203_) + (cons (gxc#generate-runtime-binding-id* _L5203_) + (cons (gxc#compile-e _L5202_) '()))) + _hd51675197_ + _hd51645189_) + (_g51565173_ _g51575176_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g44534470_ _g44544473_)) - (_g44534470_ _g44544473_)))) - (_g44534470_ _g44544473_)))) - (_g44534470_ _g44544473_))))) - (_g44524517_ _bind4451_)))))) - (cons _form4444_ - (cons (map _generate14449_ _hd4445_) - (cons (if _compiled-body?4447_ - _body4446_ - (gxc#compile-e _body4446_)) + (_g51565173_ _g51575176_)) + (_g51565173_ _g51575176_)))) + (_g51565173_ _g51575176_)))) + (_g51565173_ _g51575176_))))) + (_g51555220_ _bind5154_)))))) + (cons _form5147_ + (cons (map _generate15152_ _hd5148_) + (cons (if _compiled-body?5150_ + _body5149_ + (gxc#compile-e _body5149_)) '())))))) (define gxc#generate-runtime-quote% - (lambda (_stx4355_) - (letrec ((_generate14357_ - (lambda (_datum4409_) - (if (let ((_$e4411_ (null? _datum4409_))) - (if _$e4411_ - _$e4411_ - (let ((_$e4414_ (interned-symbol? _datum4409_))) - (if _$e4414_ - _$e4414_ - (gx#self-quoting? _datum4409_))))) - _datum4409_ - (if (uninterned-symbol? _datum4409_) - (gxc#generate-runtime-gensym-reference__opt-lambda8238 - _datum4409_ + (lambda (_stx5058_) + (letrec ((_generate15060_ + (lambda (_datum5112_) + (if (let ((_$e5114_ (null? _datum5112_))) + (if _$e5114_ + _$e5114_ + (let ((_$e5117_ (interned-symbol? _datum5112_))) + (if _$e5117_ + _$e5117_ + (gx#self-quoting? _datum5112_))))) + _datum5112_ + (if (uninterned-symbol? _datum5112_) + (gxc#generate-runtime-gensym-reference__opt-lambda8941 + _datum5112_ '#t) - (if (pair? _datum4409_) - (cons (_generate14357_ (car _datum4409_)) - (_generate14357_ (cdr _datum4409_))) - (if (box? _datum4409_) - (box (_generate14357_ (unbox _datum4409_))) - (if (vector? _datum4409_) - (vector-map _generate14357_ _datum4409_) - (if (let ((_$e4417_ - (s8vector? _datum4409_))) - (if _$e4417_ - _$e4417_ - (let ((_$e4420_ + (if (pair? _datum5112_) + (cons (_generate15060_ (car _datum5112_)) + (_generate15060_ (cdr _datum5112_))) + (if (box? _datum5112_) + (box (_generate15060_ (unbox _datum5112_))) + (if (vector? _datum5112_) + (vector-map _generate15060_ _datum5112_) + (if (let ((_$e5120_ + (s8vector? _datum5112_))) + (if _$e5120_ + _$e5120_ + (let ((_$e5123_ (u8vector? - _datum4409_))) - (if _$e4420_ - _$e4420_ - (let ((_$e4423_ + _datum5112_))) + (if _$e5123_ + _$e5123_ + (let ((_$e5126_ (s16vector? - _datum4409_))) - (if _$e4423_ - _$e4423_ - (let ((_$e4426_ + _datum5112_))) + (if _$e5126_ + _$e5126_ + (let ((_$e5129_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (u16vector? _datum4409_))) - (if _$e4426_ - _$e4426_ - (let ((_$e4429_ (s32vector? _datum4409_))) - (if _$e4429_ - _$e4429_ - (let ((_$e4432_ (u32vector? _datum4409_))) - (if _$e4432_ - _$e4432_ - (let ((_$e4435_ - (s64vector? _datum4409_))) - (if _$e4435_ - _$e4435_ - (let ((_$e4438_ - (u64vector? _datum4409_))) - (if _$e4438_ - _$e4438_ - (let ((_$e4441_ + (u16vector? _datum5112_))) + (if _$e5129_ + _$e5129_ + (let ((_$e5132_ (s32vector? _datum5112_))) + (if _$e5132_ + _$e5132_ + (let ((_$e5135_ (u32vector? _datum5112_))) + (if _$e5135_ + _$e5135_ + (let ((_$e5138_ + (s64vector? _datum5112_))) + (if _$e5138_ + _$e5138_ + (let ((_$e5141_ + (u64vector? _datum5112_))) + (if _$e5141_ + _$e5141_ + (let ((_$e5144_ (f32vector? - _datum4409_))) - (if _$e4441_ - _$e4441_ + _datum5112_))) + (if _$e5144_ + _$e5144_ (f64vector? - _datum4409_))))))))))))))))))) + _datum5112_))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _datum4409_ + _datum5112_ (gxc#raise-compile-error '"Cannot compile non-primitive quote" - _stx4355_)))))))))) - (let ((_g43594372_ - (lambda (_g43604369_) - (gx#raise-syntax-error '#f '"Bad syntax" _g43604369_)))) - (let ((_g43584406_ - (lambda (_g43604375_) - (if (gx#stx-pair? _g43604375_) - (let ((_e43624377_ (gx#stx-e _g43604375_))) - (let ((_hd43634380_ (##car _e43624377_)) - (_tl43644382_ (##cdr _e43624377_))) - (if (gx#stx-pair? _tl43644382_) - (let ((_e43654385_ (gx#stx-e _tl43644382_))) - (let ((_hd43664388_ (##car _e43654385_)) - (_tl43674390_ (##cdr _e43654385_))) - (if (gx#stx-null? _tl43674390_) - ((lambda (_L4393_) + _stx5058_)))))))))) + (let ((_g50625075_ + (lambda (_g50635072_) + (gx#raise-syntax-error '#f '"Bad syntax" _g50635072_)))) + (let ((_g50615109_ + (lambda (_g50635078_) + (if (gx#stx-pair? _g50635078_) + (let ((_e50655080_ (gx#stx-e _g50635078_))) + (let ((_hd50665083_ (##car _e50655080_)) + (_tl50675085_ (##cdr _e50655080_))) + (if (gx#stx-pair? _tl50675085_) + (let ((_e50685088_ (gx#stx-e _tl50675085_))) + (let ((_hd50695091_ (##car _e50685088_)) + (_tl50705093_ (##cdr _e50685088_))) + (if (gx#stx-null? _tl50705093_) + ((lambda (_L5096_) (cons 'quote - (cons (_generate14357_ - (gx#stx-e _L4393_)) + (cons (_generate15060_ + (gx#stx-e _L5096_)) '()))) - _hd43664388_) - (_g43594372_ _g43604375_)))) - (_g43594372_ _g43604375_)))) - (_g43594372_ _g43604375_))))) - (_g43584406_ _stx4355_)))))) + _hd50695091_) + (_g50625075_ _g50635078_)))) + (_g50625075_ _g50635078_)))) + (_g50625075_ _g50635078_))))) + (_g50615109_ _stx5058_)))))) (define gxc#generate-runtime-call% - (lambda (_stx4317_) - (let ((_g43194329_ - (lambda (_g43204326_) - (gx#raise-syntax-error '#f '"Bad syntax" _g43204326_)))) - (let ((_g43184352_ - (lambda (_g43204332_) - (if (gx#stx-pair? _g43204332_) - (let ((_e43224334_ (gx#stx-e _g43204332_))) - (let ((_hd43234337_ (##car _e43224334_)) - (_tl43244339_ (##cdr _e43224334_))) - ((lambda (_L4342_) (map gxc#compile-e _L4342_)) - _tl43244339_))) - (_g43194329_ _g43204332_))))) - (_g43184352_ _stx4317_))))) + (lambda (_stx5020_) + (let ((_g50225032_ + (lambda (_g50235029_) + (gx#raise-syntax-error '#f '"Bad syntax" _g50235029_)))) + (let ((_g50215055_ + (lambda (_g50235035_) + (if (gx#stx-pair? _g50235035_) + (let ((_e50255037_ (gx#stx-e _g50235035_))) + (let ((_hd50265040_ (##car _e50255037_)) + (_tl50275042_ (##cdr _e50255037_))) + ((lambda (_L5045_) (map gxc#compile-e _L5045_)) + _tl50275042_))) + (_g50225032_ _g50235035_))))) + (_g50215055_ _stx5020_))))) (define gxc#generate-runtime-if% - (lambda (_stx4279_) - (let ((_g42814291_ - (lambda (_g42824288_) - (gx#raise-syntax-error '#f '"Bad syntax" _g42824288_)))) - (let ((_g42804314_ - (lambda (_g42824294_) - (if (gx#stx-pair? _g42824294_) - (let ((_e42844296_ (gx#stx-e _g42824294_))) - (let ((_hd42854299_ (##car _e42844296_)) - (_tl42864301_ (##cdr _e42844296_))) - ((lambda (_L4304_) - (cons 'if (map gxc#compile-e _L4304_))) - _tl42864301_))) - (_g42814291_ _g42824294_))))) - (_g42804314_ _stx4279_))))) + (lambda (_stx4982_) + (let ((_g49844994_ + (lambda (_g49854991_) + (gx#raise-syntax-error '#f '"Bad syntax" _g49854991_)))) + (let ((_g49835017_ + (lambda (_g49854997_) + (if (gx#stx-pair? _g49854997_) + (let ((_e49874999_ (gx#stx-e _g49854997_))) + (let ((_hd49885002_ (##car _e49874999_)) + (_tl49895004_ (##cdr _e49874999_))) + ((lambda (_L5007_) + (cons 'if (map gxc#compile-e _L5007_))) + _tl49895004_))) + (_g49844994_ _g49854997_))))) + (_g49835017_ _stx4982_))))) (define gxc#generate-runtime-ref% - (lambda (_stx4228_) - (let ((_g42304243_ - (lambda (_g42314240_) - (gx#raise-syntax-error '#f '"Bad syntax" _g42314240_)))) - (let ((_g42294276_ - (lambda (_g42314246_) - (if (gx#stx-pair? _g42314246_) - (let ((_e42334248_ (gx#stx-e _g42314246_))) - (let ((_hd42344251_ (##car _e42334248_)) - (_tl42354253_ (##cdr _e42334248_))) - (if (gx#stx-pair? _tl42354253_) - (let ((_e42364256_ (gx#stx-e _tl42354253_))) - (let ((_hd42374259_ (##car _e42364256_)) - (_tl42384261_ (##cdr _e42364256_))) - (if (gx#stx-null? _tl42384261_) - ((lambda (_L4264_) + (lambda (_stx4931_) + (let ((_g49334946_ + (lambda (_g49344943_) + (gx#raise-syntax-error '#f '"Bad syntax" _g49344943_)))) + (let ((_g49324979_ + (lambda (_g49344949_) + (if (gx#stx-pair? _g49344949_) + (let ((_e49364951_ (gx#stx-e _g49344949_))) + (let ((_hd49374954_ (##car _e49364951_)) + (_tl49384956_ (##cdr _e49364951_))) + (if (gx#stx-pair? _tl49384956_) + (let ((_e49394959_ (gx#stx-e _tl49384956_))) + (let ((_hd49404962_ (##car _e49394959_)) + (_tl49414964_ (##cdr _e49394959_))) + (if (gx#stx-null? _tl49414964_) + ((lambda (_L4967_) (gxc#generate-runtime-binding-id - _L4264_)) - _hd42374259_) - (_g42304243_ _g42314246_)))) - (_g42304243_ _g42314246_)))) - (_g42304243_ _g42314246_))))) - (_g42294276_ _stx4228_))))) + _L4967_)) + _hd49404962_) + (_g49334946_ _g49344949_)))) + (_g49334946_ _g49344949_)))) + (_g49334946_ _g49344949_))))) + (_g49324979_ _stx4931_))))) (define gxc#generate-runtime-setq% - (lambda (_stx4161_) - (let ((_g41634180_ - (lambda (_g41644177_) - (gx#raise-syntax-error '#f '"Bad syntax" _g41644177_)))) - (let ((_g41624225_ - (lambda (_g41644183_) - (if (gx#stx-pair? _g41644183_) - (let ((_e41674185_ (gx#stx-e _g41644183_))) - (let ((_hd41684188_ (##car _e41674185_)) - (_tl41694190_ (##cdr _e41674185_))) - (if (gx#stx-pair? _tl41694190_) - (let ((_e41704193_ (gx#stx-e _tl41694190_))) - (let ((_hd41714196_ (##car _e41704193_)) - (_tl41724198_ (##cdr _e41704193_))) - (if (gx#stx-pair? _tl41724198_) - (let ((_e41734201_ - (gx#stx-e _tl41724198_))) - (let ((_hd41744204_ (##car _e41734201_)) - (_tl41754206_ - (##cdr _e41734201_))) - (if (gx#stx-null? _tl41754206_) - ((lambda (_L4209_ _L4210_) + (lambda (_stx4864_) + (let ((_g48664883_ + (lambda (_g48674880_) + (gx#raise-syntax-error '#f '"Bad syntax" _g48674880_)))) + (let ((_g48654928_ + (lambda (_g48674886_) + (if (gx#stx-pair? _g48674886_) + (let ((_e48704888_ (gx#stx-e _g48674886_))) + (let ((_hd48714891_ (##car _e48704888_)) + (_tl48724893_ (##cdr _e48704888_))) + (if (gx#stx-pair? _tl48724893_) + (let ((_e48734896_ (gx#stx-e _tl48724893_))) + (let ((_hd48744899_ (##car _e48734896_)) + (_tl48754901_ (##cdr _e48734896_))) + (if (gx#stx-pair? _tl48754901_) + (let ((_e48764904_ + (gx#stx-e _tl48754901_))) + (let ((_hd48774907_ (##car _e48764904_)) + (_tl48784909_ + (##cdr _e48764904_))) + (if (gx#stx-null? _tl48784909_) + ((lambda (_L4912_ _L4913_) (cons 'set! (cons (gxc#generate-runtime-binding-id - _L4210_) + _L4913_) (cons (gxc#compile-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L4209_) + _L4912_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd41744204_ - _hd41714196_) - (_g41634180_ _g41644183_)))) - (_g41634180_ _g41644183_)))) - (_g41634180_ _g41644183_)))) - (_g41634180_ _g41644183_))))) - (_g41624225_ _stx4161_))))) + _hd48774907_ + _hd48744899_) + (_g48664883_ _g48674886_)))) + (_g48664883_ _g48674886_)))) + (_g48664883_ _g48674886_)))) + (_g48664883_ _g48674886_))))) + (_g48654928_ _stx4864_))))) (define gxc#generate-runtime-struct-instancep% - (lambda (_stx4094_) - (let ((_g40964113_ - (lambda (_g40974110_) - (gx#raise-syntax-error '#f '"Bad syntax" _g40974110_)))) - (let ((_g40954158_ - (lambda (_g40974116_) - (if (gx#stx-pair? _g40974116_) - (let ((_e41004118_ (gx#stx-e _g40974116_))) - (let ((_hd41014121_ (##car _e41004118_)) - (_tl41024123_ (##cdr _e41004118_))) - (if (gx#stx-pair? _tl41024123_) - (let ((_e41034126_ (gx#stx-e _tl41024123_))) - (let ((_hd41044129_ (##car _e41034126_)) - (_tl41054131_ (##cdr _e41034126_))) - (if (gx#stx-pair? _tl41054131_) - (let ((_e41064134_ - (gx#stx-e _tl41054131_))) - (let ((_hd41074137_ (##car _e41064134_)) - (_tl41084139_ - (##cdr _e41064134_))) - (if (gx#stx-null? _tl41084139_) - ((lambda (_L4142_ _L4143_) + (lambda (_stx4797_) + (let ((_g47994816_ + (lambda (_g48004813_) + (gx#raise-syntax-error '#f '"Bad syntax" _g48004813_)))) + (let ((_g47984861_ + (lambda (_g48004819_) + (if (gx#stx-pair? _g48004819_) + (let ((_e48034821_ (gx#stx-e _g48004819_))) + (let ((_hd48044824_ (##car _e48034821_)) + (_tl48054826_ (##cdr _e48034821_))) + (if (gx#stx-pair? _tl48054826_) + (let ((_e48064829_ (gx#stx-e _tl48054826_))) + (let ((_hd48074832_ (##car _e48064829_)) + (_tl48084834_ (##cdr _e48064829_))) + (if (gx#stx-pair? _tl48084834_) + (let ((_e48094837_ + (gx#stx-e _tl48084834_))) + (let ((_hd48104840_ (##car _e48094837_)) + (_tl48114842_ + (##cdr _e48094837_))) + (if (gx#stx-null? _tl48114842_) + ((lambda (_L4845_ _L4846_) (cons '##structure-instance-of? (cons (gxc#compile-e - _L4142_) + _L4845_) (cons (gxc#compile-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L4143_) + _L4846_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd41074137_ - _hd41044129_) - (_g40964113_ _g40974116_)))) - (_g40964113_ _g40974116_)))) - (_g40964113_ _g40974116_)))) - (_g40964113_ _g40974116_))))) - (_g40954158_ _stx4094_))))) + _hd48104840_ + _hd48074832_) + (_g47994816_ _g48004819_)))) + (_g47994816_ _g48004819_)))) + (_g47994816_ _g48004819_)))) + (_g47994816_ _g48004819_))))) + (_g47984861_ _stx4797_))))) (define gxc#generate-runtime-struct-direct-instancep% - (lambda (_stx4027_) - (let ((_g40294046_ - (lambda (_g40304043_) - (gx#raise-syntax-error '#f '"Bad syntax" _g40304043_)))) - (let ((_g40284091_ - (lambda (_g40304049_) - (if (gx#stx-pair? _g40304049_) - (let ((_e40334051_ (gx#stx-e _g40304049_))) - (let ((_hd40344054_ (##car _e40334051_)) - (_tl40354056_ (##cdr _e40334051_))) - (if (gx#stx-pair? _tl40354056_) - (let ((_e40364059_ (gx#stx-e _tl40354056_))) - (let ((_hd40374062_ (##car _e40364059_)) - (_tl40384064_ (##cdr _e40364059_))) - (if (gx#stx-pair? _tl40384064_) - (let ((_e40394067_ - (gx#stx-e _tl40384064_))) - (let ((_hd40404070_ (##car _e40394067_)) - (_tl40414072_ - (##cdr _e40394067_))) - (if (gx#stx-null? _tl40414072_) - ((lambda (_L4075_ _L4076_) + (lambda (_stx4730_) + (let ((_g47324749_ + (lambda (_g47334746_) + (gx#raise-syntax-error '#f '"Bad syntax" _g47334746_)))) + (let ((_g47314794_ + (lambda (_g47334752_) + (if (gx#stx-pair? _g47334752_) + (let ((_e47364754_ (gx#stx-e _g47334752_))) + (let ((_hd47374757_ (##car _e47364754_)) + (_tl47384759_ (##cdr _e47364754_))) + (if (gx#stx-pair? _tl47384759_) + (let ((_e47394762_ (gx#stx-e _tl47384759_))) + (let ((_hd47404765_ (##car _e47394762_)) + (_tl47414767_ (##cdr _e47394762_))) + (if (gx#stx-pair? _tl47414767_) + (let ((_e47424770_ + (gx#stx-e _tl47414767_))) + (let ((_hd47434773_ (##car _e47424770_)) + (_tl47444775_ + (##cdr _e47424770_))) + (if (gx#stx-null? _tl47444775_) + ((lambda (_L4778_ _L4779_) (cons '##structure-direct-instance-of? (cons (gxc#compile-e - _L4075_) + _L4778_) (cons (gxc#compile-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L4076_) + _L4779_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd40404070_ - _hd40374062_) - (_g40294046_ _g40304049_)))) - (_g40294046_ _g40304049_)))) - (_g40294046_ _g40304049_)))) - (_g40294046_ _g40304049_))))) - (_g40284091_ _stx4027_))))) + _hd47434773_ + _hd47404765_) + (_g47324749_ _g47334752_)))) + (_g47324749_ _g47334752_)))) + (_g47324749_ _g47334752_)))) + (_g47324749_ _g47334752_))))) + (_g47314794_ _stx4730_))))) (define gxc#generate-runtime-struct-ref% - (lambda (_stx3944_) - (let ((_g39463967_ - (lambda (_g39473964_) - (gx#raise-syntax-error '#f '"Bad syntax" _g39473964_)))) - (let ((_g39454024_ - (lambda (_g39473970_) - (if (gx#stx-pair? _g39473970_) - (let ((_e39513972_ (gx#stx-e _g39473970_))) - (let ((_hd39523975_ (##car _e39513972_)) - (_tl39533977_ (##cdr _e39513972_))) - (if (gx#stx-pair? _tl39533977_) - (let ((_e39543980_ (gx#stx-e _tl39533977_))) - (let ((_hd39553983_ (##car _e39543980_)) - (_tl39563985_ (##cdr _e39543980_))) - (if (gx#stx-pair? _tl39563985_) - (let ((_e39573988_ - (gx#stx-e _tl39563985_))) - (let ((_hd39583991_ (##car _e39573988_)) - (_tl39593993_ - (##cdr _e39573988_))) - (if (gx#stx-pair? _tl39593993_) - (let ((_e39603996_ - (gx#stx-e _tl39593993_))) - (let ((_hd39613999_ - (##car _e39603996_)) - (_tl39624001_ - (##cdr _e39603996_))) + (lambda (_stx4647_) + (let ((_g46494670_ + (lambda (_g46504667_) + (gx#raise-syntax-error '#f '"Bad syntax" _g46504667_)))) + (let ((_g46484727_ + (lambda (_g46504673_) + (if (gx#stx-pair? _g46504673_) + (let ((_e46544675_ (gx#stx-e _g46504673_))) + (let ((_hd46554678_ (##car _e46544675_)) + (_tl46564680_ (##cdr _e46544675_))) + (if (gx#stx-pair? _tl46564680_) + (let ((_e46574683_ (gx#stx-e _tl46564680_))) + (let ((_hd46584686_ (##car _e46574683_)) + (_tl46594688_ (##cdr _e46574683_))) + (if (gx#stx-pair? _tl46594688_) + (let ((_e46604691_ + (gx#stx-e _tl46594688_))) + (let ((_hd46614694_ (##car _e46604691_)) + (_tl46624696_ + (##cdr _e46604691_))) + (if (gx#stx-pair? _tl46624696_) + (let ((_e46634699_ + (gx#stx-e _tl46624696_))) + (let ((_hd46644702_ + (##car _e46634699_)) + (_tl46654704_ + (##cdr _e46634699_))) (if (gx#stx-null? - _tl39624001_) - ((lambda (_L4004_ - _L4005_ - _L4006_) + _tl46654704_) + ((lambda (_L4707_ + _L4708_ + _L4709_) (cons '##structure-ref (cons (gxc#compile-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L4004_) - (cons (gxc#compile-e _L4005_) - (cons (gxc#compile-e _L4006_) + _L4707_) + (cons (gxc#compile-e _L4708_) + (cons (gxc#compile-e _L4709_) (cons ''#f '())))))) - _hd39613999_ - _hd39583991_ - _hd39553983_) + _hd46644702_ + _hd46614694_ + _hd46584686_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g39463967_ - _g39473970_)))) - (_g39463967_ _g39473970_)))) - (_g39463967_ _g39473970_)))) - (_g39463967_ _g39473970_)))) - (_g39463967_ _g39473970_))))) - (_g39454024_ _stx3944_))))) + (_g46494670_ + _g46504673_)))) + (_g46494670_ _g46504673_)))) + (_g46494670_ _g46504673_)))) + (_g46494670_ _g46504673_)))) + (_g46494670_ _g46504673_))))) + (_g46484727_ _stx4647_))))) (define gxc#generate-runtime-struct-setq% - (lambda (_stx3845_) - (let ((_g38473872_ - (lambda (_g38483869_) - (gx#raise-syntax-error '#f '"Bad syntax" _g38483869_)))) - (let ((_g38463941_ - (lambda (_g38483875_) - (if (gx#stx-pair? _g38483875_) - (let ((_e38533877_ (gx#stx-e _g38483875_))) - (let ((_hd38543880_ (##car _e38533877_)) - (_tl38553882_ (##cdr _e38533877_))) - (if (gx#stx-pair? _tl38553882_) - (let ((_e38563885_ (gx#stx-e _tl38553882_))) - (let ((_hd38573888_ (##car _e38563885_)) - (_tl38583890_ (##cdr _e38563885_))) - (if (gx#stx-pair? _tl38583890_) - (let ((_e38593893_ - (gx#stx-e _tl38583890_))) - (let ((_hd38603896_ (##car _e38593893_)) - (_tl38613898_ - (##cdr _e38593893_))) - (if (gx#stx-pair? _tl38613898_) - (let ((_e38623901_ - (gx#stx-e _tl38613898_))) - (let ((_hd38633904_ - (##car _e38623901_)) - (_tl38643906_ - (##cdr _e38623901_))) + (lambda (_stx4548_) + (let ((_g45504575_ + (lambda (_g45514572_) + (gx#raise-syntax-error '#f '"Bad syntax" _g45514572_)))) + (let ((_g45494644_ + (lambda (_g45514578_) + (if (gx#stx-pair? _g45514578_) + (let ((_e45564580_ (gx#stx-e _g45514578_))) + (let ((_hd45574583_ (##car _e45564580_)) + (_tl45584585_ (##cdr _e45564580_))) + (if (gx#stx-pair? _tl45584585_) + (let ((_e45594588_ (gx#stx-e _tl45584585_))) + (let ((_hd45604591_ (##car _e45594588_)) + (_tl45614593_ (##cdr _e45594588_))) + (if (gx#stx-pair? _tl45614593_) + (let ((_e45624596_ + (gx#stx-e _tl45614593_))) + (let ((_hd45634599_ (##car _e45624596_)) + (_tl45644601_ + (##cdr _e45624596_))) + (if (gx#stx-pair? _tl45644601_) + (let ((_e45654604_ + (gx#stx-e _tl45644601_))) + (let ((_hd45664607_ + (##car _e45654604_)) + (_tl45674609_ + (##cdr _e45654604_))) (if (gx#stx-pair? - _tl38643906_) - (let ((_e38653909_ + _tl45674609_) + (let ((_e45684612_ (gx#stx-e - _tl38643906_))) - (let ((_hd38663912_ - (##car _e38653909_)) - (_tl38673914_ - (##cdr _e38653909_))) + _tl45674609_))) + (let ((_hd45694615_ + (##car _e45684612_)) + (_tl45704617_ + (##cdr _e45684612_))) (if (gx#stx-null? - _tl38673914_) - ((lambda (_L3917_ + _tl45704617_) + ((lambda (_L4620_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L3918_ - _L3919_ - _L3920_) + _L4621_ + _L4622_ + _L4623_) (cons '##structure-set! - (cons (gxc#compile-e _L3918_) - (cons (gxc#compile-e _L3917_) - (cons (gxc#compile-e _L3919_) - (cons (gxc#compile-e _L3920_) + (cons (gxc#compile-e _L4621_) + (cons (gxc#compile-e _L4620_) + (cons (gxc#compile-e _L4622_) + (cons (gxc#compile-e _L4623_) (cons ''#f '()))))))) - _hd38663912_ - _hd38633904_ - _hd38603896_ - _hd38573888_) - (_g38473872_ _g38483875_)))) + _hd45694615_ + _hd45664607_ + _hd45634599_ + _hd45604591_) + (_g45504575_ _g45514578_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g38473872_ - _g38483875_)))) - (_g38473872_ _g38483875_)))) - (_g38473872_ _g38483875_)))) - (_g38473872_ _g38483875_)))) - (_g38473872_ _g38483875_))))) - (_g38463941_ _stx3845_))))) + (_g45504575_ + _g45514578_)))) + (_g45504575_ _g45514578_)))) + (_g45504575_ _g45514578_)))) + (_g45504575_ _g45514578_)))) + (_g45504575_ _g45514578_))))) + (_g45494644_ _stx4548_))))) (define gxc#generate-runtime-loader-import% - (lambda (_stx3754_) - (let ((_g37563766_ - (lambda (_g37573763_) - (gx#raise-syntax-error '#f '"Bad syntax" _g37573763_)))) - (let ((_g37553842_ - (lambda (_g37573769_) - (if (gx#stx-pair? _g37573769_) - (let ((_e37593771_ (gx#stx-e _g37573769_))) - (let ((_hd37603774_ (##car _e37593771_)) - (_tl37613776_ (##cdr _e37593771_))) - ((lambda (_L3779_) - (let ((_ht3789_ (make-hash-table-eq))) - ((letrec ((_lp3791_ - (lambda (_rest3793_ _loads3794_) - (let ((_K3796_ (lambda (_ctx3835_ + (lambda (_stx4457_) + (let ((_g44594469_ + (lambda (_g44604466_) + (gx#raise-syntax-error '#f '"Bad syntax" _g44604466_)))) + (let ((_g44584545_ + (lambda (_g44604472_) + (if (gx#stx-pair? _g44604472_) + (let ((_e44624474_ (gx#stx-e _g44604472_))) + (let ((_hd44634477_ (##car _e44624474_)) + (_tl44644479_ (##cdr _e44624474_))) + ((lambda (_L4482_) + (let ((_ht4492_ (make-hash-table-eq))) + ((letrec ((_lp4494_ + (lambda (_rest4496_ _loads4497_) + (let ((_K4499_ (lambda (_ctx4538_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _rest3836_) - (let ((_id3838_ (gx#expander-context-id _ctx3835_))) - (if (table-ref _ht3789_ _id3838_ '#f) - (_lp3791_ _rest3836_ _loads3794_) - (let ((_rt3840_ + _rest4539_) + (let ((_id4541_ + (##structure-ref + _ctx4538_ + '1 + gx#expander-context::t + '#f))) + (if (table-ref _ht4492_ _id4541_ '#f) + (_lp4494_ _rest4539_ _loads4497_) + (let ((_rt4543_ (string-append - (symbol->string _id3838_) + (symbol->string _id4541_) '"__rt"))) (begin - (table-set! _ht3789_ _id3838_ _rt3840_) - (_lp3791_ - _rest3836_ - (cons _rt3840_ _loads3794_))))))))) + (table-set! _ht4492_ _id4541_ _rt4543_) + (_lp4494_ + _rest4539_ + (cons _rt4543_ _loads4497_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_rest37973805_ _rest3793_)) - (let ((_E38003809_ + (let ((_rest45004508_ _rest4496_)) + (let ((_E45034512_ (lambda () (error '"No clause matching" - _rest37973805_)))) - (let ((_else37993817_ + _rest45004508_)))) + (let ((_else45024520_ (lambda () (cons 'begin - (map (lambda (_g38123814_) + (map (lambda (_g45154517_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (list 'load-module _g38123814_)) - (reverse _loads3794_)))))) + (list 'load-module _g45154517_)) + (reverse _loads4497_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_K38013823_ - (lambda (_rest3820_ + (let ((_K45044526_ + (lambda (_rest4523_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in3821_) - (if (gx#module-context? _in3821_) - (_K3796_ _in3821_ _rest3820_) - (if (gx#module-import? _in3821_) - (if (fxpositive? (gx#module-import-phi _in3821_)) - (_lp3791_ _rest3820_ _loads3794_) - (_K3796_ (gx#module-export-context - (gx#module-import-source _in3821_)) - _rest3820_)) - (if (gx#import-set? _in3821_) - (if (fxpositive? (gx#import-set-phi _in3821_)) - (_lp3791_ _rest3820_ _loads3794_) - (_K3796_ (gx#import-set-source _in3821_) - _rest3820_)) + _in4524_) + (if (##structure-instance-of? + _in4524_ + 'gx#module-context::t) + (_K4499_ _in4524_ _rest4523_) + (if (##structure-direct-instance-of? + _in4524_ + 'gx#module-import::t) + (if (fxpositive? + (##structure-ref + _in4524_ + '3 + gx#module-import::t + '#f)) + (_lp4494_ _rest4523_ _loads4497_) + (_K4499_ (##structure-ref + (##structure-ref + _in4524_ + '1 + gx#module-import::t + '#f) + '1 + gx#module-export::t + '#f) + _rest4523_)) + (if (##structure-direct-instance-of? + _in4524_ + 'gx#import-set::t) + (if (fxpositive? + (##structure-ref + _in4524_ + '2 + gx#import-set::t + '#f)) + (_lp4494_ _rest4523_ _loads4497_) + (_K4499_ (##structure-ref + _in4524_ + '1 + gx#import-set::t + '#f) + _rest4523_)) (gxc#raise-compile-error '"Unexpected import" - _stx3754_ - _in3821_))))))) + _stx4457_ + _in4524_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _rest37973805_) - (let ((_hd38023826_ - (##car _rest37973805_)) - (_tl38033828_ - (##cdr _rest37973805_))) - (let ((_in3831_ + (if (##pair? _rest45004508_) + (let ((_hd45054529_ + (##car _rest45004508_)) + (_tl45064531_ + (##cdr _rest45004508_))) + (let ((_in4534_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd38023826_)) - (let ((_rest3833_ _tl38033828_)) - (_K38013823_ _rest3833_ _in3831_)))) - (_else37993817_)))))))))) + _hd45054529_)) + (let ((_rest4536_ _tl45064531_)) + (_K45044526_ _rest4536_ _in4534_)))) + (_else45024520_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _lp3791_) - _L3779_ + _lp4494_) + _L4482_ '()))) - _tl37613776_))) - (_g37563766_ _g37573769_))))) - (_g37553842_ _stx3754_))))) + _tl44644479_))) + (_g44594469_ _g44604472_))))) + (_g44584545_ _stx4457_))))) (define gxc#generate-runtime-phi-quote-syntax% - (lambda (_stx3695_) - (let ((_generate-quote3697_ - (lambda (_q3752_) - (if (gx#identifier? _q3752_) - (gxc#generate-runtime-identifier _q3752_) + (lambda (_stx4398_) + (let ((_generate-quote4400_ + (lambda (_q4455_) + (if (gx#identifier? _q4455_) + (gxc#generate-runtime-identifier _q4455_) (gxc#raise-compile-error '"Cannot quote non-identifier syntax" - _stx3695_ - _q3752_))))) - (let ((_g36993712_ - (lambda (_g37003709_) - (gx#raise-syntax-error '#f '"Bad syntax" _g37003709_)))) - (let ((_g36983749_ - (lambda (_g37003715_) - (if (gx#stx-pair? _g37003715_) - (let ((_e37023717_ (gx#stx-e _g37003715_))) - (let ((_hd37033720_ (##car _e37023717_)) - (_tl37043722_ (##cdr _e37023717_))) - (if (gx#stx-pair? _tl37043722_) - (let ((_e37053725_ (gx#stx-e _tl37043722_))) - (let ((_hd37063728_ (##car _e37053725_)) - (_tl37073730_ (##cdr _e37053725_))) - (if (gx#stx-null? _tl37073730_) - ((lambda (_L3733_) - (let ((_gid3746_ - (gxc#generate-runtime-temporary__opt-lambda8184 + _stx4398_ + _q4455_))))) + (let ((_g44024415_ + (lambda (_g44034412_) + (gx#raise-syntax-error '#f '"Bad syntax" _g44034412_)))) + (let ((_g44014452_ + (lambda (_g44034418_) + (if (gx#stx-pair? _g44034418_) + (let ((_e44054420_ (gx#stx-e _g44034418_))) + (let ((_hd44064423_ (##car _e44054420_)) + (_tl44074425_ (##cdr _e44054420_))) + (if (gx#stx-pair? _tl44074425_) + (let ((_e44084428_ (gx#stx-e _tl44074425_))) + (let ((_hd44094431_ (##car _e44084428_)) + (_tl44104433_ (##cdr _e44084428_))) + (if (gx#stx-null? _tl44104433_) + ((lambda (_L4436_) + (let ((_gid4449_ + (gxc#generate-runtime-temporary__opt-lambda8887 '#t)) - (_quote-e3747_ - (_generate-quote3697_ - _L3733_))) + (_quote-e4450_ + (_generate-quote4400_ + _L4436_))) (begin (set-box! (gxc#current-compile-lift) (cons (cons 'define - (cons _gid3746_ + (cons _gid4449_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'gx#core-quote-syntax (cons (cons 'quote - (cons _quote-e3747_ '())) + (cons _quote-e4450_ '())) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (unbox (gxc#current-compile-lift)))) - _gid3746_))) - _hd37063728_) - (_g36993712_ _g37003715_)))) - (_g36993712_ _g37003715_)))) - (_g36993712_ _g37003715_))))) - (_g36983749_ _stx3695_)))))) + _gid4449_))) + _hd44094431_) + (_g44024415_ _g44034418_)))) + (_g44024415_ _g44034418_)))) + (_g44024415_ _g44034418_))))) + (_g44014452_ _stx4398_)))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_stx3628_) - (let ((_g36303647_ - (lambda (_g36313644_) - (gx#raise-syntax-error '#f '"Bad syntax" _g36313644_)))) - (let ((_g36293692_ - (lambda (_g36313650_) - (if (gx#stx-pair? _g36313650_) - (let ((_e36343652_ (gx#stx-e _g36313650_))) - (let ((_hd36353655_ (##car _e36343652_)) - (_tl36363657_ (##cdr _e36343652_))) - (if (gx#stx-pair? _tl36363657_) - (let ((_e36373660_ (gx#stx-e _tl36363657_))) - (let ((_hd36383663_ (##car _e36373660_)) - (_tl36393665_ (##cdr _e36373660_))) - (if (gx#stx-pair? _tl36393665_) - (let ((_e36403668_ - (gx#stx-e _tl36393665_))) - (let ((_hd36413671_ (##car _e36403668_)) - (_tl36423673_ - (##cdr _e36403668_))) - (if (gx#stx-null? _tl36423673_) - ((lambda (_L3676_ _L3677_) + (lambda (_stx4331_) + (let ((_g43334350_ + (lambda (_g43344347_) + (gx#raise-syntax-error '#f '"Bad syntax" _g43344347_)))) + (let ((_g43324395_ + (lambda (_g43344353_) + (if (gx#stx-pair? _g43344353_) + (let ((_e43374355_ (gx#stx-e _g43344353_))) + (let ((_hd43384358_ (##car _e43374355_)) + (_tl43394360_ (##cdr _e43374355_))) + (if (gx#stx-pair? _tl43394360_) + (let ((_e43404363_ (gx#stx-e _tl43394360_))) + (let ((_hd43414366_ (##car _e43404363_)) + (_tl43424368_ (##cdr _e43404363_))) + (if (gx#stx-pair? _tl43424368_) + (let ((_e43434371_ + (gx#stx-e _tl43424368_))) + (let ((_hd43444374_ (##car _e43434371_)) + (_tl43454376_ + (##cdr _e43434371_))) + (if (gx#stx-null? _tl43454376_) + ((lambda (_L4379_ _L4380_) (cons 'define - (cons (gx#stx-e _L3677_) + (cons (gx#stx-e _L4380_) (cons (gxc#compile-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L3676_) + _L4379_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd36413671_ - _hd36383663_) - (_g36303647_ _g36313650_)))) - (_g36303647_ _g36313650_)))) - (_g36303647_ _g36313650_)))) - (_g36303647_ _g36313650_))))) - (_g36293692_ _stx3628_))))) + _hd43444374_ + _hd43414366_) + (_g43334350_ _g43344353_)))) + (_g43334350_ _g43344353_)))) + (_g43334350_ _g43344353_)))) + (_g43334350_ _g43344353_))))) + (_g43324395_ _stx4331_))))) (define gxc#generate-meta-begin% - (lambda (_stx3577_ _state3578_) - (let ((_g35803590_ - (lambda (_g35813587_) - (gx#raise-syntax-error '#f '"Bad syntax" _g35813587_)))) - (let ((_g35793625_ - (lambda (_g35813593_) - (if (gx#stx-pair? _g35813593_) - (let ((_e35833595_ (gx#stx-e _g35813593_))) - (let ((_hd35843598_ (##car _e35833595_)) - (_tl35853600_ (##cdr _e35833595_))) - ((lambda (_L3603_) - (let ((_c-body3617_ - (map (lambda (_g36123614_) + (lambda (_stx4280_ _state4281_) + (let ((_g42834293_ + (lambda (_g42844290_) + (gx#raise-syntax-error '#f '"Bad syntax" _g42844290_)))) + (let ((_g42824328_ + (lambda (_g42844296_) + (if (gx#stx-pair? _g42844296_) + (let ((_e42864298_ (gx#stx-e _g42844296_))) + (let ((_hd42874301_ (##car _e42864298_)) + (_tl42884303_ (##cdr _e42864298_))) + ((lambda (_L4306_) + (let ((_c-body4320_ + (map (lambda (_g43154317_) (gxc#compile-e - _g36123614_ - _state3578_)) - _L3603_))) - (let ((_c-body3622_ - (filter (lambda (_$obj3619_) - (not (eq? _$obj3619_ '#!void))) - _c-body3617_))) - (let () (cons '%#begin _c-body3622_))))) - _tl35853600_))) - (_g35803590_ _g35813593_))))) - (_g35793625_ _stx3577_))))) + _g43154317_ + _state4281_)) + _L4306_))) + (let ((_c-body4325_ + (filter (lambda (_$obj4322_) + (not (eq? _$obj4322_ '#!void))) + _c-body4320_))) + (let () (cons '%#begin _c-body4325_))))) + _tl42884303_))) + (_g42834293_ _g42844296_))))) + (_g42824328_ _stx4280_))))) (define gxc#generate-meta-begin-syntax% - (lambda (_stx3485_ _state3486_) - (let ((_g34883498_ - (lambda (_g34893495_) - (gx#raise-syntax-error '#f '"Bad syntax" _g34893495_)))) - (let ((_g34873574_ - (lambda (_g34893501_) - (if (gx#stx-pair? _g34893501_) - (let ((_e34913503_ (gx#stx-e _g34893501_))) - (let ((_hd34923506_ (##car _e34913503_)) - (_tl34933508_ (##cdr _e34913503_))) - ((lambda (_L3511_) - (let ((_phi3521_ + (lambda (_stx4188_ _state4189_) + (let ((_g41914201_ + (lambda (_g41924198_) + (gx#raise-syntax-error '#f '"Bad syntax" _g41924198_)))) + (let ((_g41904277_ + (lambda (_g41924204_) + (if (gx#stx-pair? _g41924204_) + (let ((_e41944206_ (gx#stx-e _g41924204_))) + (let ((_hd41954209_ (##car _e41944206_)) + (_tl41964211_ (##cdr _e41944206_))) + ((lambda (_L4214_) + (let ((_phi4224_ (fx+ (gx#current-expander-phi) '1))) - (let ((_block3523_ + (let ((_block4226_ (gxc#meta-state-begin-phi! - _state3486_ - _phi3521_))) - (let ((_compiled3526_ + _state4189_ + _phi4224_))) + (let ((_compiled4229_ (call-with-parameters (lambda () (gxc#apply-generate-meta-phi - (cons (gx#datum->syntax + (cons (gx#datum->syntax__0 '#f '%#begin) - _L3511_) - _state3486_)) + _L4214_) + _state4189_)) gx#current-expander-phi - _phi3521_))) + _phi4224_))) (let () - (let ((_g35293539_ - (lambda (_g35303536_) + (let ((_g42324242_ + (lambda (_g42334239_) (gx#raise-syntax-error '#f '"Bad syntax" - _g35303536_)))) - (let ((_g35283571_ - (lambda (_g35303542_) - (if (gx#stx-pair? _g35303542_) - (let ((_e35323544_ + _g42334239_)))) + (let ((_g42314274_ + (lambda (_g42334245_) + (if (gx#stx-pair? _g42334245_) + (let ((_e42354247_ (gx#stx-e - _g35303542_))) - (let ((_hd35333547_ - (##car _e35323544_)) - (_tl35343549_ - (##cdr _e35323544_))) + _g42334245_))) + (let ((_hd42364250_ + (##car _e42354247_)) + (_tl42374252_ + (##cdr _e42354247_))) (if (gx#identifier? - _hd35333547_) + _hd42364250_) (if (gx#stx-eq? '%#begin - _hd35333547_) - ((lambda (_L3552_) + _hd42364250_) + ((lambda (_L4255_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((_c-body3569_ - (filter (lambda (_$obj3566_) - (not (eq? _$obj3566_ '#!void))) - _L3552_))) - (if _block3523_ + (let ((_c-body4272_ + (filter (lambda (_$obj4269_) + (not (eq? _$obj4269_ '#!void))) + _L4255_))) + (if _block4226_ (cons '%#begin-syntax (cons (cons '%#call (cons (cons '%#ref (cons '_gx#load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons '%#quote (cons _block3523_ '())) '()))) + (cons (cons '%#quote (cons _block4226_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _c-body3569_)) - (if (null? _c-body3569_) + _c-body4272_)) + (if (null? _c-body4272_) '#!void - (cons '%#begin-syntax _c-body3569_))))) - _tl35343549_) - (_g35293539_ _g35303542_)) - (_g35293539_ _g35303542_)))) + (cons '%#begin-syntax _c-body4272_))))) + _tl42374252_) + (_g42324242_ _g42334245_)) + (_g42324242_ _g42334245_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g35293539_ - _g35303542_))))) - (_g35283571_ _compiled3526_)))))))) - _tl34933508_))) - (_g34883498_ _g34893501_))))) - (_g34873574_ _stx3485_))))) + (_g42324242_ + _g42334245_))))) + (_g42314274_ _compiled4229_)))))))) + _tl41964211_))) + (_g41914201_ _g41924204_))))) + (_g41904277_ _stx4188_))))) (define gxc#generate-meta-module% - (lambda (_stx3416_ _state3417_) + (lambda (_stx4119_ _state4120_) (begin - (gxc#meta-state-end-phi! _state3417_) - (let ((_g34193433_ - (lambda (_g34203430_) - (gx#raise-syntax-error '#f '"Bad syntax" _g34203430_)))) - (let ((_g34183482_ - (lambda (_g34203436_) - (if (gx#stx-pair? _g34203436_) - (let ((_e34233438_ (gx#stx-e _g34203436_))) - (let ((_hd34243441_ (##car _e34233438_)) - (_tl34253443_ (##cdr _e34233438_))) - (if (gx#stx-pair? _tl34253443_) - (let ((_e34263446_ (gx#stx-e _tl34253443_))) - (let ((_hd34273449_ (##car _e34263446_)) - (_tl34283451_ (##cdr _e34263446_))) - ((lambda (_L3454_ _L3455_) - (let ((_key3468_ - (gx#core-identifier-key _L3455_))) + (gxc#meta-state-end-phi! _state4120_) + (let ((_g41224136_ + (lambda (_g41234133_) + (gx#raise-syntax-error '#f '"Bad syntax" _g41234133_)))) + (let ((_g41214185_ + (lambda (_g41234139_) + (if (gx#stx-pair? _g41234139_) + (let ((_e41264141_ (gx#stx-e _g41234139_))) + (let ((_hd41274144_ (##car _e41264141_)) + (_tl41284146_ (##cdr _e41264141_))) + (if (gx#stx-pair? _tl41284146_) + (let ((_e41294149_ (gx#stx-e _tl41284146_))) + (let ((_hd41304152_ (##car _e41294149_)) + (_tl41314154_ (##cdr _e41294149_))) + ((lambda (_L4157_ _L4158_) + (let ((_key4171_ + (gx#core-identifier-key _L4158_))) (begin - (if (interned-symbol? _key3468_) + (if (interned-symbol? _key4171_) '#!void (gxc#raise-compile-error '"Cannot compile module with uninterned id" - _stx3416_ - _L3455_ - _key3468_)) - (let ((_ctx3470_ - (gx#syntax-local-e _L3455_))) - (let ((_code3473_ + _stx4119_ + _L4158_ + _key4171_)) + (let ((_ctx4173_ + (gx#syntax-local-e__0 + _L4158_))) + (let ((_code4176_ (call-with-parameters (lambda () (gxc#compile-e - (gx#module-context-code - _ctx3470_) - _state3417_)) + (##structure-ref + _ctx4173_ + '11 + gx#module-context::t + '#f) + _state4120_)) gx#current-expander-context - _ctx3470_))) - (let ((_rt3475_ + _ctx4173_))) + (let ((_rt4178_ (table-ref (gxc#current-compile-runtime-sections) - _ctx3470_ + _ctx4173_ '#f))) - (let ((_loader3477_ - (if _rt3475_ + (let ((_loader4180_ + (if _rt4178_ (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons '_gx#load-module '())) - (cons (cons '%#quote (cons _rt3475_ '())) + (cons (cons '%#quote (cons _rt4178_ '())) '()))) '()) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_modid3479_ - (gx#stx-e _L3455_))) + (let ((_modid4182_ + (gx#stx-e _L4158_))) (let () (begin (gxc#meta-state-end-phi! - _state3417_) + _state4120_) (cons '%#module - (cons _modid3479_ + (cons _modid4182_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _code3473_ _loader3477_))))))))))))) + (cons _code4176_ _loader4180_))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _tl34283451_ - _hd34273449_))) - (_g34193433_ _g34203436_)))) - (_g34193433_ _g34203436_))))) - (_g34183482_ _stx3416_)))))) + _tl41314154_ + _hd41304152_))) + (_g41224136_ _g41234139_)))) + (_g41224136_ _g41234139_))))) + (_g41214185_ _stx4119_)))))) (define gxc#generate-meta-import-path - (lambda (_ctx3406_ _context-chain3407_) - ((letrec ((_lp3409_ - (lambda (_ctx3411_ _path3412_) - (let ((_super3414_ (gx#phi-context-super _ctx3411_))) - (if (memq _super3414_ _context-chain3407_) + (lambda (_ctx4109_ _context-chain4110_) + ((letrec ((_lp4112_ + (lambda (_ctx4114_ _path4115_) + (let ((_super4117_ + (##structure-ref + _ctx4114_ + '3 + gx#phi-context::t + '#f))) + (if (memq _super4117_ _context-chain4110_) (cons* '#f - (car (gx#module-context-path _ctx3411_)) - _path3412_) - (if (gx#module-context? _super3414_) - (_lp3409_ - _super3414_ - (cons (car (gx#module-context-path _ctx3411_)) - _path3412_)) + (car (##structure-ref + _ctx4114_ + '7 + gx#module-context::t + '#f)) + _path4115_) + (if (##structure-instance-of? + _super4117_ + 'gx#module-context::t) + (_lp4112_ + _super4117_ + (cons (car (##structure-ref + _ctx4114_ + '7 + gx#module-context::t + '#f)) + _path4115_)) (cons (make-symbol '":" - (gx#expander-context-id _ctx3411_)) - _path3412_))))))) - _lp3409_) - _ctx3406_ + (##structure-ref + _ctx4114_ + '1 + gx#expander-context::t + '#f)) + _path4115_))))))) + _lp4112_) + _ctx4109_ '()))) (define gxc#current-context-chain (lambda () - ((letrec ((_lp3401_ - (lambda (_ctx3403_ _r3404_) - (if (gx#module-context? _ctx3403_) - (_lp3401_ - (gx#phi-context-super _ctx3403_) - (cons _ctx3403_ _r3404_)) - _r3404_)))) - _lp3401_) + ((letrec ((_lp4104_ + (lambda (_ctx4106_ _r4107_) + (if (##structure-instance-of? + _ctx4106_ + 'gx#module-context::t) + (_lp4104_ + (##structure-ref _ctx4106_ '3 gx#phi-context::t '#f) + (cons _ctx4106_ _r4107_)) + _r4107_)))) + _lp4104_) (gx#current-expander-context) '()))) (define gxc#generate-meta-import% - (lambda (_stx3170_ _state3171_) - (let ((_context-chain3173_ (gxc#current-context-chain))) - (let ((_make-import-spec3174_ - (lambda (_in3337_) - (let ((_in33383350_ _in3337_)) - (let ((_E33403354_ + (lambda (_stx3873_ _state3874_) + (let ((_context-chain3876_ (gxc#current-context-chain))) + (let ((_make-import-spec3877_ + (lambda (_in4040_) + (let ((_in40414053_ _in4040_)) + (let ((_E40434057_ (lambda () - (error '"No clause matching" _in33383350_)))) - (let ((_K33413364_ - (lambda (_phi3357_ - _name3358_ - _src-name3359_ - _src-phi3360_ - _src-key3361_ - _src-ctx3362_) - (cons _phi3357_ + (error '"No clause matching" _in40414053_)))) + (let ((_K40444067_ + (lambda (_phi4060_ + _name4061_ + _src-name4062_ + _src-phi4063_ + _src-key4064_ + _src-ctx4065_) + (cons _phi4060_ (cons (gxc#generate-runtime-identifier-key - _name3358_) - (cons _src-phi3360_ + _name4061_) + (cons _src-phi4063_ (cons (gxc#generate-runtime-identifier-key - _src-name3359_) + _src-name4062_) '()))))))) (if (direct-struct-instance? gx#module-import::t - _in33383350_) - (let ((_e33423367_ (##vector-ref _in33383350_ '1))) + _in40414053_) + (let ((_e40454070_ (##vector-ref _in40414053_ '1))) (if (direct-struct-instance? gx#module-export::t - _e33423367_) - (let ((_e33453370_ - (##vector-ref _e33423367_ '1))) - (let ((_src-ctx3373_ _e33453370_)) - (let ((_e33463375_ - (##vector-ref _e33423367_ '2))) - (let ((_src-key3378_ _e33463375_)) - (let ((_e33473380_ - (##vector-ref _e33423367_ '3))) - (let ((_src-phi3383_ _e33473380_)) - (let ((_e33483385_ + _e40454070_) + (let ((_e40484073_ + (##vector-ref _e40454070_ '1))) + (let ((_src-ctx4076_ _e40484073_)) + (let ((_e40494078_ + (##vector-ref _e40454070_ '2))) + (let ((_src-key4081_ _e40494078_)) + (let ((_e40504083_ + (##vector-ref _e40454070_ '3))) + (let ((_src-phi4086_ _e40504083_)) + (let ((_e40514088_ (##vector-ref - _e33423367_ + _e40454070_ '4))) - (let ((_src-name3388_ - _e33483385_)) - (let ((_e33433390_ + (let ((_src-name4091_ + _e40514088_)) + (let ((_e40464093_ (##vector-ref - _in33383350_ + _in40414053_ '2))) - (let ((_name3393_ - _e33433390_)) - (let ((_e33443395_ + (let ((_name4096_ + _e40464093_)) + (let ((_e40474098_ (##vector-ref - _in33383350_ + _in40414053_ '3))) - (let ((_phi3398_ - _e33443395_)) - (_K33413364_ - _phi3398_ - _name3393_ - _src-name3388_ - _src-phi3383_ - _src-key3378_ - _src-ctx3373_))))))))))))) - (_E33403354_))) - (_E33403354_)))))))) - (let ((_make-import-path3175_ - (lambda (_ctx3335_) + (let ((_phi4101_ + _e40474098_)) + (_K40444067_ + _phi4101_ + _name4096_ + _src-name4091_ + _src-phi4086_ + _src-key4081_ + _src-ctx4076_))))))))))))) + (_E40434057_))) + (_E40434057_)))))))) + (let ((_make-import-path3878_ + (lambda (_ctx4038_) (gxc#generate-meta-import-path - _ctx3335_ - _context-chain3173_)))) - (let ((_make-import-spec-in3176_ - (lambda (_ctx3332_ _in3333_) + _ctx4038_ + _context-chain3876_)))) + (let ((_make-import-spec-in3879_ + (lambda (_ctx4035_ _in4036_) (cons 'spec: - (cons (_make-import-path3175_ _ctx3332_) - (reverse _in3333_)))))) + (cons (_make-import-path3878_ _ctx4035_) + (reverse _in4036_)))))) (begin - (gxc#meta-state-end-phi! _state3171_) - (let ((_g31783188_ - (lambda (_g31793185_) + (gxc#meta-state-end-phi! _state3874_) + (let ((_g38813891_ + (lambda (_g38823888_) (gx#raise-syntax-error '#f '"Bad syntax" - _g31793185_)))) - (let ((_g31773329_ - (lambda (_g31793191_) - (if (gx#stx-pair? _g31793191_) - (let ((_e31813193_ (gx#stx-e _g31793191_))) - (let ((_hd31823196_ (##car _e31813193_)) - (_tl31833198_ (##cdr _e31813193_))) - ((lambda (_L3201_) - ((letrec ((_lp3212_ - (lambda (_rest3214_ - _current-src3215_ - _current-in3216_ - _r3217_) - (let ((_rest32183226_ - _rest3214_)) - (let ((_E32213230_ + _g38823888_)))) + (let ((_g38804032_ + (lambda (_g38823894_) + (if (gx#stx-pair? _g38823894_) + (let ((_e38843896_ (gx#stx-e _g38823894_))) + (let ((_hd38853899_ (##car _e38843896_)) + (_tl38863901_ (##cdr _e38843896_))) + ((lambda (_L3904_) + ((letrec ((_lp3915_ + (lambda (_rest3917_ + _current-src3918_ + _current-in3919_ + _r3920_) + (let ((_rest39213929_ + _rest3917_)) + (let ((_E39243933_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _rest32183226_)))) - (let ((_else32203236_ + _rest39213929_)))) + (let ((_else39233939_ (lambda () - (let ((_r3234_ (if _current-src3215_ - (cons (_make-import-spec-in3176_ - _current-src3215_ - _current-in3216_) - _r3217_) - _r3217_))) - (cons '%#import (reverse _r3234_)))))) - (let ((_K32223317_ - (lambda (_rest3239_ _in3240_) - (if (gx#module-import? _in3240_) - (let ((_in32413248_ _in3240_)) - (let ((_E32433252_ + (let ((_r3937_ (if _current-src3918_ + (cons (_make-import-spec-in3879_ + _current-src3918_ + _current-in3919_) + _r3920_) + _r3920_))) + (cons '%#import (reverse _r3937_)))))) + (let ((_K39254020_ + (lambda (_rest3942_ _in3943_) + (if (##structure-direct-instance-of? + _in3943_ + 'gx#module-import::t) + (let ((_in39443951_ _in3943_)) + (let ((_E39463955_ (lambda () (error '"No clause matching" - _in32413248_)))) - (let ((_K32443257_ - (lambda (_src-ctx3255_) - (if (eq? _current-src3215_ - _src-ctx3255_) - (_lp3212_ - _rest3239_ - _current-src3215_ - (cons (_make-import-spec3174_ - _in3240_) - _current-in3216_) - _r3217_) - (if _current-src3215_ - (_lp3212_ - _rest3239_ - _src-ctx3255_ - (cons (_make-import-spec3174_ - _in3240_) + _in39443951_)))) + (let ((_K39473960_ + (lambda (_src-ctx3958_) + (if (eq? _current-src3918_ + _src-ctx3958_) + (_lp3915_ + _rest3942_ + _current-src3918_ + (cons (_make-import-spec3877_ + _in3943_) + _current-in3919_) + _r3920_) + (if _current-src3918_ + (_lp3915_ + _rest3942_ + _src-ctx3958_ + (cons (_make-import-spec3877_ + _in3943_) '()) - (cons (_make-import-spec-in3176_ - _current-src3215_ - _current-in3216_) - _r3217_)) - (_lp3212_ - _rest3239_ - _src-ctx3255_ - (cons (_make-import-spec3174_ - _in3240_) + (cons (_make-import-spec-in3879_ + _current-src3918_ + _current-in3919_) + _r3920_)) + (_lp3915_ + _rest3942_ + _src-ctx3958_ + (cons (_make-import-spec3877_ + _in3943_) '()) - _r3217_)))))) + _r3920_)))))) (if (direct-struct-instance? gx#module-import::t - _in32413248_) - (let ((_e32453260_ - (##vector-ref _in32413248_ '1))) + _in39443951_) + (let ((_e39483963_ + (##vector-ref _in39443951_ '1))) (if (direct-struct-instance? gx#module-export::t - _e32453260_) - (let ((_e32463263_ + _e39483963_) + (let ((_e39493966_ (##vector-ref - _e32453260_ + _e39483963_ '1))) - (let ((_src-ctx3266_ - _e32463263_)) - (_K32443257_ _src-ctx3266_))) - (_E32433252_))) - (_E32433252_))))) - (if (gx#import-set? _in3240_) - (let ((_phi3268_ - (gx#import-set-phi _in3240_))) - (let ((_src3270_ - (gx#import-set-source _in3240_))) - (let ((_src-in3310_ - (let ((_g32713280_ - (_make-import-path3175_ - _src3270_))) - (let ((_E32743284_ + (let ((_src-ctx3969_ + _e39493966_)) + (_K39473960_ _src-ctx3969_))) + (_E39463955_))) + (_E39463955_))))) + (if (##structure-direct-instance-of? + _in3943_ + 'gx#import-set::t) + (let ((_phi3971_ + (##structure-ref + _in3943_ + '2 + gx#import-set::t + '#f))) + (let ((_src3973_ + (##structure-ref + _in3943_ + '1 + gx#import-set::t + '#f))) + (let ((_src-in4013_ + (let ((_g39743983_ + (_make-import-path3878_ + _src3973_))) + (let ((_E39773987_ (lambda () (error '"No clause matching" - _g32713280_)))) - (let ((_try-match32733295_ + _g39743983_)))) + (let ((_try-match39763998_ (lambda () - (let ((_K32753290_ + (let ((_K39783993_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_path3288_) (cons 'in: _path3288_)))) - (let ((_path3293_ _g32713280_)) - (_K32753290_ _path3293_)))))) + (lambda (_path3991_) (cons 'in: _path3991_)))) + (let ((_path3996_ _g39743983_)) + (_K39783993_ _path3996_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_K32763300_ - (lambda (_path3298_) - _path3298_))) - (if (##pair? _g32713280_) - (let ((_hd32773303_ - (##car _g32713280_)) - (_tl32783305_ - (##cdr _g32713280_))) - (let ((_path3308_ + (let ((_K39794003_ + (lambda (_path4001_) + _path4001_))) + (if (##pair? _g39743983_) + (let ((_hd39804006_ + (##car _g39743983_)) + (_tl39814008_ + (##cdr _g39743983_))) + (let ((_path4011_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd32773303_)) - (if (##null? _tl32783305_) - (_K32763300_ _path3308_) - (_try-match32733295_)))) - (_try-match32733295_)))))))) + _hd39804006_)) + (if (##null? _tl39814008_) + (_K39794003_ _path4011_) + (_try-match39763998_)))) + (_try-match39763998_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_r3312_ (if _current-src3215_ - (cons (_make-import-spec-in3176_ + (let ((_r4015_ (if _current-src3918_ + (cons (_make-import-spec-in3879_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _current-src3215_ - _current-in3216_) - _r3217_) - _r3217_))) + _current-src3918_ + _current-in3919_) + _r3920_) + _r3920_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () - (_lp3212_ - _rest3239_ + (_lp3915_ + _rest3942_ '#f '() - (cons (if (fxzero? _phi3268_) - _src-in3310_ + (cons (if (fxzero? _phi3971_) + _src-in4013_ (cons 'phi: - (cons _phi3268_ + (cons _phi3971_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _src-in3310_ '())))) + (cons _src-in4013_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r3312_))))))) - (if (gx#module-context? _in3240_) - (let ((_r3315_ (if _current-src3215_ - (cons (_make-import-spec-in3176_ - _current-src3215_ - _current-in3216_) - _r3217_) - _r3217_))) - (_lp3212_ - _rest3239_ + _r4015_))))))) + (if (##structure-instance-of? + _in3943_ + 'gx#module-context::t) + (let ((_r4018_ (if _current-src3918_ + (cons (_make-import-spec-in3879_ + _current-src3918_ + _current-in3919_) + _r3920_) + _r3920_))) + (_lp3915_ + _rest3942_ '#f '() (cons (cons 'runtime: - (_make-import-path3175_ - _in3240_)) - _r3315_))) + (_make-import-path3878_ + _in3943_)) + _r4018_))) '#!void)))))) - (if (##pair? _rest32183226_) - (let ((_hd32233320_ (##car _rest32183226_)) - (_tl32243322_ (##cdr _rest32183226_))) - (let ((_in3325_ _hd32233320_)) - (let ((_rest3327_ _tl32243322_)) - (_K32223317_ _rest3327_ _in3325_)))) - (_else32203236_))))))))) + (if (##pair? _rest39213929_) + (let ((_hd39264023_ (##car _rest39213929_)) + (_tl39274025_ (##cdr _rest39213929_))) + (let ((_in4028_ _hd39264023_)) + (let ((_rest4030_ _tl39274025_)) + (_K39254020_ _rest4030_ _in4028_)))) + (_else39233939_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _lp3212_) - _L3201_ + _lp3915_) + _L3904_ '#f '() '())) - _tl31833198_))) - (_g31783188_ _g31793191_))))) - (_g31773329_ _stx3170_)))))))))) + _tl38863901_))) + (_g38813891_ _g38823894_))))) + (_g38804032_ _stx3873_)))))))))) (define gxc#generate-meta-export% - (lambda (_stx2980_ _state2981_) - (let ((_context-chain2983_ (gxc#current-context-chain))) - (let ((_make-import-path2984_ - (lambda (_ctx3168_) + (lambda (_stx3683_ _state3684_) + (let ((_context-chain3686_ (gxc#current-context-chain))) + (let ((_make-import-path3687_ + (lambda (_ctx3871_) (gxc#generate-meta-import-path - _ctx3168_ - _context-chain2983_)))) - (let ((_g29862996_ - (lambda (_g29872993_) - (gx#raise-syntax-error '#f '"Bad syntax" _g29872993_)))) - (let ((_g29853165_ - (lambda (_g29872999_) - (if (gx#stx-pair? _g29872999_) - (let ((_e29893001_ (gx#stx-e _g29872999_))) - (let ((_hd29903004_ (##car _e29893001_)) - (_tl29913006_ (##cdr _e29893001_))) - ((lambda (_L3009_) - ((letrec ((_lp3020_ - (lambda (_rest3022_ _r3023_) - (let ((_rest30243032_ _rest3022_)) - (let ((_E30273036_ + _ctx3871_ + _context-chain3686_)))) + (let ((_g36893699_ + (lambda (_g36903696_) + (gx#raise-syntax-error '#f '"Bad syntax" _g36903696_)))) + (let ((_g36883868_ + (lambda (_g36903702_) + (if (gx#stx-pair? _g36903702_) + (let ((_e36923704_ (gx#stx-e _g36903702_))) + (let ((_hd36933707_ (##car _e36923704_)) + (_tl36943709_ (##cdr _e36923704_))) + ((lambda (_L3712_) + ((letrec ((_lp3723_ + (lambda (_rest3725_ _r3726_) + (let ((_rest37273735_ _rest3725_)) + (let ((_E37303739_ (lambda () (error '"No clause matching" - _rest30243032_)))) - (let ((_else30263040_ + _rest37273735_)))) + (let ((_else37293743_ (lambda () (cons '%#export - (reverse _r3023_))))) - (let ((_K30283153_ - (lambda (_rest3043_ + (reverse _r3726_))))) + (let ((_K37313856_ + (lambda (_rest3746_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _out3044_) - (let ((_out30453058_ _out3044_)) - (let ((_E30483062_ + _out3747_) + (let ((_out37483761_ _out3747_)) + (let ((_E37513765_ (lambda () - (error '"No clause matching" _out30453058_)))) - (let ((_try-match30473125_ + (error '"No clause matching" _out37483761_)))) + (let ((_try-match37503828_ (lambda () - (let ((_K30493112_ - (lambda (_phi3066_ _src3067_) - (let ((_out3107_ - (if _src3067_ + (let ((_K37523815_ + (lambda (_phi3769_ _src3770_) + (let ((_out3810_ + (if _src3770_ (cons 'import: - (cons (let ((_g30683077_ + (cons (let ((_g37713780_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_make-import-path2984_ _src3067_))) - (let ((_E30713081_ + (_make-import-path3687_ _src3770_))) + (let ((_E37743784_ (lambda () (error '"No clause matching" - _g30683077_)))) - (let ((_try-match30703092_ + _g37713780_)))) + (let ((_try-match37733795_ (lambda () - (let ((_K30723087_ - (lambda (_path3085_) - (cons 'in: _path3085_)))) - (let ((_path3090_ _g30683077_)) - (_K30723087_ _path3090_)))))) - (let ((_K30733097_ - (lambda (_path3095_) _path3095_))) - (if (##pair? _g30683077_) - (let ((_hd30743100_ (##car _g30683077_)) - (_tl30753102_ (##cdr _g30683077_))) - (let ((_path3105_ _hd30743100_)) - (if (##null? _tl30753102_) - (_K30733097_ _path3105_) - (_try-match30703092_)))) - (_try-match30703092_)))))) + (let ((_K37753790_ + (lambda (_path3788_) + (cons 'in: _path3788_)))) + (let ((_path3793_ _g37713780_)) + (_K37753790_ _path3793_)))))) + (let ((_K37763800_ + (lambda (_path3798_) _path3798_))) + (if (##pair? _g37713780_) + (let ((_hd37773803_ (##car _g37713780_)) + (_tl37783805_ (##cdr _g37713780_))) + (let ((_path3808_ _hd37773803_)) + (if (##null? _tl37783805_) + (_K37763800_ _path3808_) + (_try-match37733795_)))) + (_try-match37733795_)))))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#t))) - (let ((_out3109_ - (if (fxzero? _phi3066_) - _out3107_ + (let ((_out3812_ + (if (fxzero? _phi3769_) + _out3810_ (cons 'phi: - (cons _phi3066_ + (cons _phi3769_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _out3107_ '())))))) + (cons _out3810_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () - (_lp3020_ - _rest3043_ - (cons _out3109_ - _r3023_)))))))) + (_lp3723_ + _rest3746_ + (cons _out3812_ + _r3726_)))))))) (if (direct-struct-instance? gx#export-set::t - _out30453058_) - (let ((_e30503115_ - (##vector-ref _out30453058_ '1))) - (let ((_src3118_ _e30503115_)) - (let ((_e30513120_ + _out37483761_) + (let ((_e37533818_ + (##vector-ref _out37483761_ '1))) + (let ((_src3821_ _e37533818_)) + (let ((_e37543823_ (##vector-ref - _out30453058_ + _out37483761_ '2))) - (let ((_phi3123_ _e30513120_)) - (_K30493112_ - _phi3123_ - _src3118_))))) - (_E30483062_)))))) - (let ((_K30523132_ - (lambda (_name3128_ _phi3129_ _key3130_) - (_lp3020_ - _rest3043_ + (let ((_phi3826_ _e37543823_)) + (_K37523815_ + _phi3826_ + _src3821_))))) + (_E37513765_)))))) + (let ((_K37553835_ + (lambda (_name3831_ _phi3832_ _key3833_) + (_lp3723_ + _rest3746_ (cons (cons 'spec: - (cons _phi3129_ + (cons _phi3832_ (cons (gxc#generate-runtime-identifier-key - _key3130_) + _key3833_) (cons (gxc#generate-runtime-identifier-key ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _name3128_) + _name3831_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r3023_))))) + _r3726_))))) (if (direct-struct-instance? gx#module-export::t - _out30453058_) - (let ((_e30533135_ - (##vector-ref _out30453058_ '1))) - (let ((_e30543138_ - (##vector-ref _out30453058_ '2))) - (let ((_key3141_ _e30543138_)) - (let ((_e30553143_ - (##vector-ref _out30453058_ '3))) - (let ((_phi3146_ _e30553143_)) - (let ((_e30563148_ + _out37483761_) + (let ((_e37563838_ + (##vector-ref _out37483761_ '1))) + (let ((_e37573841_ + (##vector-ref _out37483761_ '2))) + (let ((_key3844_ _e37573841_)) + (let ((_e37583846_ + (##vector-ref _out37483761_ '3))) + (let ((_phi3849_ _e37583846_)) + (let ((_e37593851_ (##vector-ref - _out30453058_ + _out37483761_ '4))) - (let ((_name3151_ _e30563148_)) - (_K30523132_ - _name3151_ - _phi3146_ - _key3141_)))))))) - (_try-match30473125_))))))))) + (let ((_name3854_ _e37593851_)) + (_K37553835_ + _name3854_ + _phi3849_ + _key3844_)))))))) + (_try-match37503828_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _rest30243032_) - (let ((_hd30293156_ - (##car _rest30243032_)) - (_tl30303158_ - (##cdr _rest30243032_))) - (let ((_out3161_ + (if (##pair? _rest37273735_) + (let ((_hd37323859_ + (##car _rest37273735_)) + (_tl37333861_ + (##cdr _rest37273735_))) + (let ((_out3864_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd30293156_)) - (let ((_rest3163_ _tl30303158_)) - (_K30283153_ _rest3163_ _out3161_)))) - (_else30263040_))))))))) + _hd37323859_)) + (let ((_rest3866_ _tl37333861_)) + (_K37313856_ _rest3866_ _out3864_)))) + (_else37293743_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _lp3020_) - _L3009_ + _lp3723_) + _L3712_ '())) - _tl29913006_))) - (_g29862996_ _g29872999_))))) - (_g29853165_ _stx2980_))))))) + _tl36943709_))) + (_g36893699_ _g36903702_))))) + (_g36883868_ _stx3683_))))))) (define gxc#generate-meta-provide% - (lambda (_stx2941_ _state2942_) + (lambda (_stx3644_ _state3645_) (begin - (gxc#meta-state-end-phi! _state2942_) - (let ((_g29442954_ - (lambda (_g29452951_) - (gx#raise-syntax-error '#f '"Bad syntax" _g29452951_)))) - (let ((_g29432977_ - (lambda (_g29452957_) - (if (gx#stx-pair? _g29452957_) - (let ((_e29472959_ (gx#stx-e _g29452957_))) - (let ((_hd29482962_ (##car _e29472959_)) - (_tl29492964_ (##cdr _e29472959_))) - ((lambda (_L2967_) + (gxc#meta-state-end-phi! _state3645_) + (let ((_g36473657_ + (lambda (_g36483654_) + (gx#raise-syntax-error '#f '"Bad syntax" _g36483654_)))) + (let ((_g36463680_ + (lambda (_g36483660_) + (if (gx#stx-pair? _g36483660_) + (let ((_e36503662_ (gx#stx-e _g36483660_))) + (let ((_hd36513665_ (##car _e36503662_)) + (_tl36523667_ (##cdr _e36503662_))) + ((lambda (_L3670_) (cons '%#provide (map gxc#generate-runtime-identifier - _L2967_))) - _tl29492964_))) - (_g29442954_ _g29452957_))))) - (_g29432977_ _stx2941_)))))) + _L3670_))) + _tl36523667_))) + (_g36473657_ _g36483660_))))) + (_g36463680_ _stx3644_)))))) (define gxc#generate-meta-extern% - (lambda (_stx2812_ _state2813_) - (let ((_generate12815_ - (lambda (_id2936_ _eid2937_) - (let ((_eid2939_ (gx#stx-e _eid2937_))) + (lambda (_stx3515_ _state3516_) + (let ((_generate13518_ + (lambda (_id3639_ _eid3640_) + (let ((_eid3642_ (gx#stx-e _eid3640_))) (begin - (if (interned-symbol? _eid2939_) + (if (interned-symbol? _eid3642_) '#!void (gxc#raise-compile-error '"Cannot compile extern reference" - _stx2812_ - _eid2939_)) - (cons (gxc#generate-runtime-identifier _id2936_) - (cons _eid2939_ '()))))))) - (let ((_g28172845_ - (lambda (_g28182842_) - (gx#raise-syntax-error '#f '"Bad syntax" _g28182842_)))) - (let ((_g28162933_ - (lambda (_g28182848_) - (if (gx#stx-pair? _g28182848_) - (let ((_e28212850_ (gx#stx-e _g28182848_))) - (let ((_hd28222853_ (##car _e28212850_)) - (_tl28232855_ (##cdr _e28212850_))) - (if (gx#stx-pair/null? _tl28232855_) - (if (fx>= (gx#stx-length _tl28232855_) '0) - (let ((_g9301_ (gx#syntax-split-splice - _tl28232855_ - '0))) + _stx3515_ + _eid3642_)) + (cons (gxc#generate-runtime-identifier _id3639_) + (cons _eid3642_ '()))))))) + (let ((_g35203548_ + (lambda (_g35213545_) + (gx#raise-syntax-error '#f '"Bad syntax" _g35213545_)))) + (let ((_g35193636_ + (lambda (_g35213551_) + (if (gx#stx-pair? _g35213551_) + (let ((_e35243553_ (gx#stx-e _g35213551_))) + (let ((_hd35253556_ (##car _e35243553_)) + (_tl35263558_ (##cdr _e35243553_))) + (if (gx#stx-pair/null? _tl35263558_) + (if (fx>= (gx#stx-length _tl35263558_) '0) + (let ((_g10004_ + (gx#syntax-split-splice + _tl35263558_ + '0))) (begin - (let ((_g9302_ (values-count _g9301_))) - (if (not (fx= _g9302_ 2)) + (let ((_g10005_ + (values-count _g10004_))) + (if (not (fx= _g10005_ 2)) (error "Context expects 2 values" - _g9302_))) - (let ((_target28242858_ - (values-ref _g9301_ 0)) - (_tl28262860_ - (values-ref _g9301_ 1))) - (if (gx#stx-null? _tl28262860_) - (letrec ((_loop28272863_ - (lambda (_hd28252866_ - _eid28312868_ - _id28322870_) + _g10005_))) + (let ((_target35273561_ + (values-ref _g10004_ 0)) + (_tl35293563_ + (values-ref _g10004_ 1))) + (if (gx#stx-null? _tl35293563_) + (letrec ((_loop35303566_ + (lambda (_hd35283569_ + _eid35343571_ + _id35353573_) (if (gx#stx-pair? - _hd28252866_) - (let ((_e28282873_ + _hd35283569_) + (let ((_e35313576_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd28252866_))) - (let ((_lp-hd28292876_ (##car _e28282873_)) - (_lp-tl28302878_ (##cdr _e28282873_))) - (if (gx#stx-pair? _lp-hd28292876_) - (let ((_e28352881_ (gx#stx-e _lp-hd28292876_))) - (let ((_hd28362884_ (##car _e28352881_)) - (_tl28372886_ (##cdr _e28352881_))) - (if (gx#stx-pair? _tl28372886_) - (let ((_e28382889_ - (gx#stx-e _tl28372886_))) - (let ((_hd28392892_ (##car _e28382889_)) - (_tl28402894_ - (##cdr _e28382889_))) - (if (gx#stx-null? _tl28402894_) - (_loop28272863_ - _lp-tl28302878_ - (cons _hd28392892_ _eid28312868_) - (cons _hd28362884_ _id28322870_)) - (_g28172845_ _g28182848_)))) - (_g28172845_ _g28182848_)))) - (_g28172845_ _g28182848_)))) - (let ((_eid28332897_ (reverse _eid28312868_)) - (_id28342899_ (reverse _id28322870_))) - ((lambda (_L2902_ _L2903_) + (gx#stx-e _hd35283569_))) + (let ((_lp-hd35323579_ (##car _e35313576_)) + (_lp-tl35333581_ (##cdr _e35313576_))) + (if (gx#stx-pair? _lp-hd35323579_) + (let ((_e35383584_ (gx#stx-e _lp-hd35323579_))) + (let ((_hd35393587_ (##car _e35383584_)) + (_tl35403589_ (##cdr _e35383584_))) + (if (gx#stx-pair? _tl35403589_) + (let ((_e35413592_ + (gx#stx-e _tl35403589_))) + (let ((_hd35423595_ (##car _e35413592_)) + (_tl35433597_ + (##cdr _e35413592_))) + (if (gx#stx-null? _tl35433597_) + (_loop35303566_ + _lp-tl35333581_ + (cons _hd35423595_ _eid35343571_) + (cons _hd35393587_ _id35353573_)) + (_g35203548_ _g35213551_)))) + (_g35203548_ _g35213551_)))) + (_g35203548_ _g35213551_)))) + (let ((_eid35363600_ (reverse _eid35343571_)) + (_id35373602_ (reverse _id35353573_))) + ((lambda (_L3605_ _L3606_) (cons '%#extern - (map _generate12815_ + (map _generate13518_ (begin '#!void - (foldr1 (lambda (_g29182921_ - _g29192923_) - (cons _g29182921_ - _g29192923_)) + (foldr1 (lambda (_g36213624_ + _g36223626_) + (cons _g36213624_ + _g36223626_)) '() - _L2903_)) + _L3606_)) (begin '#!void - (foldr1 (lambda (_g29252928_ - _g29262930_) - (cons _g29252928_ - _g29262930_)) + (foldr1 (lambda (_g36283631_ + _g36293633_) + (cons _g36283631_ + _g36293633_)) '() - _L2902_))))) - _eid28332897_ - _id28342899_)))))) + _L3605_))))) + _eid35363600_ + _id35373602_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop28272863_ - _target28242858_ + (_loop35303566_ + _target35273561_ '() '())) - (_g28172845_ _g28182848_))))) - (_g28172845_ _g28182848_)) - (_g28172845_ _g28182848_)))) - (_g28172845_ _g28182848_))))) - (_g28162933_ _stx2812_)))))) + (_g35203548_ _g35213551_))))) + (_g35203548_ _g35213551_)) + (_g35203548_ _g35213551_)))) + (_g35203548_ _g35213551_))))) + (_g35193636_ _stx3515_)))))) (define gxc#generate-meta-define-values% - (lambda (_stx2607_ _state2608_) - (let ((_generate12610_ - (lambda (_id2807_) - (let ((_eid2809_ (gxc#generate-runtime-binding-id _id2807_)) - (_ident2810_ (gxc#generate-runtime-identifier _id2807_))) + (lambda (_stx3310_ _state3311_) + (let ((_generate13313_ + (lambda (_id3510_) + (let ((_eid3512_ (gxc#generate-runtime-binding-id _id3510_)) + (_ident3513_ (gxc#generate-runtime-identifier _id3510_))) (cons '%#define-runtime - (cons _ident2810_ (cons _eid2809_ '()))))))) - (let ((_generate*2611_ - (lambda (_all2775_) - (let ((_all27762784_ _all2775_)) - (let ((_E27792788_ + (cons _ident3513_ (cons _eid3512_ '()))))))) + (let ((_generate*3314_ + (lambda (_all3478_) + (let ((_all34793487_ _all3478_)) + (let ((_E34823491_ (lambda () - (error '"No clause matching" _all27762784_)))) - (let ((_else27782792_ - (lambda () (cons '%#begin _all2775_)))) - (let ((_K27802797_ (lambda (_one2795_) _one2795_))) - (if (##pair? _all27762784_) - (let ((_hd27812800_ (##car _all27762784_)) - (_tl27822802_ (##cdr _all27762784_))) - (let ((_one2805_ _hd27812800_)) - (if (##null? _tl27822802_) - (_K27802797_ _one2805_) - (_else27782792_)))) - (_else27782792_))))))))) - (let ((_g26132630_ - (lambda (_g26142627_) - (gx#raise-syntax-error '#f '"Bad syntax" _g26142627_)))) - (let ((_g26122772_ - (lambda (_g26142633_) - (if (gx#stx-pair? _g26142633_) - (let ((_e26172635_ (gx#stx-e _g26142633_))) - (let ((_hd26182638_ (##car _e26172635_)) - (_tl26192640_ (##cdr _e26172635_))) - (if (gx#stx-pair? _tl26192640_) - (let ((_e26202643_ (gx#stx-e _tl26192640_))) - (let ((_hd26212646_ (##car _e26202643_)) - (_tl26222648_ (##cdr _e26202643_))) - (if (gx#stx-pair? _tl26222648_) - (let ((_e26232651_ - (gx#stx-e _tl26222648_))) - (let ((_hd26242654_ - (##car _e26232651_)) - (_tl26252656_ - (##cdr _e26232651_))) - (if (gx#stx-null? _tl26252656_) - ((lambda (_L2659_ _L2660_) - ((letrec ((_lp2676_ - (lambda (_rest2678_ + (error '"No clause matching" _all34793487_)))) + (let ((_else34813495_ + (lambda () (cons '%#begin _all3478_)))) + (let ((_K34833500_ (lambda (_one3498_) _one3498_))) + (if (##pair? _all34793487_) + (let ((_hd34843503_ (##car _all34793487_)) + (_tl34853505_ (##cdr _all34793487_))) + (let ((_one3508_ _hd34843503_)) + (if (##null? _tl34853505_) + (_K34833500_ _one3508_) + (_else34813495_)))) + (_else34813495_))))))))) + (let ((_g33163333_ + (lambda (_g33173330_) + (gx#raise-syntax-error '#f '"Bad syntax" _g33173330_)))) + (let ((_g33153475_ + (lambda (_g33173336_) + (if (gx#stx-pair? _g33173336_) + (let ((_e33203338_ (gx#stx-e _g33173336_))) + (let ((_hd33213341_ (##car _e33203338_)) + (_tl33223343_ (##cdr _e33203338_))) + (if (gx#stx-pair? _tl33223343_) + (let ((_e33233346_ (gx#stx-e _tl33223343_))) + (let ((_hd33243349_ (##car _e33233346_)) + (_tl33253351_ (##cdr _e33233346_))) + (if (gx#stx-pair? _tl33253351_) + (let ((_e33263354_ + (gx#stx-e _tl33253351_))) + (let ((_hd33273357_ + (##car _e33263354_)) + (_tl33283359_ + (##cdr _e33263354_))) + (if (gx#stx-null? _tl33283359_) + ((lambda (_L3362_ _L3363_) + ((letrec ((_lp3379_ + (lambda (_rest3381_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r2679_) - (let ((_g26842700_ - (lambda (_g26852697_) + _r3382_) + (let ((_g33873403_ + (lambda (_g33883400_) (gx#raise-syntax-error '#f '"Bad syntax" - _g26852697_)))) - (let ((_g26832707_ - (lambda (_g26852703_) + _g33883400_)))) + (let ((_g33863410_ + (lambda (_g33883406_) ((lambda () - (_generate*2611_ (reverse _r2679_))))))) - (let ((_g26822723_ - (lambda (_g26852710_) - ((lambda (_L2712_) - (if (gx#identifier? _L2712_) - (_generate*2611_ + (_generate*3314_ (reverse _r3382_))))))) + (let ((_g33853426_ + (lambda (_g33883413_) + ((lambda (_L3415_) + (if (gx#identifier? _L3415_) + (_generate*3314_ (foldl1 cons - (cons (_generate12610_ - _L2712_) + (cons (_generate13313_ + _L3415_) '()) - _r2679_)) - (_g26832707_ _g26852710_))) - _g26852710_)))) - (let ((_g26812747_ - (lambda (_g26852726_) - (if (gx#stx-pair? _g26852726_) - (let ((_e26922728_ - (gx#stx-e _g26852726_))) - (let ((_hd26932731_ - (##car _e26922728_)) - (_tl26942733_ - (##cdr _e26922728_))) - ((lambda (_L2736_ _L2737_) - (_lp2676_ - _L2736_ - (cons (_generate12610_ - _L2737_) - _r2679_))) - _tl26942733_ - _hd26932731_))) - (_g26822723_ _g26852726_))))) - (let ((_g26802769_ - (lambda (_g26852750_) - (if (gx#stx-pair? _g26852750_) - (let ((_e26872752_ - (gx#stx-e _g26852750_))) - (let ((_hd26882755_ - (##car _e26872752_)) - (_tl26892757_ - (##cdr _e26872752_))) + _r3382_)) + (_g33863410_ _g33883413_))) + _g33883413_)))) + (let ((_g33843450_ + (lambda (_g33883429_) + (if (gx#stx-pair? _g33883429_) + (let ((_e33953431_ + (gx#stx-e _g33883429_))) + (let ((_hd33963434_ + (##car _e33953431_)) + (_tl33973436_ + (##cdr _e33953431_))) + ((lambda (_L3439_ _L3440_) + (_lp3379_ + _L3439_ + (cons (_generate13313_ + _L3440_) + _r3382_))) + _tl33973436_ + _hd33963434_))) + (_g33853426_ _g33883429_))))) + (let ((_g33833472_ + (lambda (_g33883453_) + (if (gx#stx-pair? _g33883453_) + (let ((_e33903455_ + (gx#stx-e _g33883453_))) + (let ((_hd33913458_ + (##car _e33903455_)) + (_tl33923460_ + (##cdr _e33903455_))) (if (gx#stx-datum? - _hd26882755_) + _hd33913458_) (if (equal? (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd26882755_) + _hd33913458_) '#f) - ((lambda (_L2760_) (_lp2676_ _L2760_ _r2679_)) _tl26892757_) - (_g26812747_ _g26852750_)) - (_g26812747_ _g26852750_)))) + ((lambda (_L3463_) (_lp3379_ _L3463_ _r3382_)) _tl33923460_) + (_g33843450_ _g33883453_)) + (_g33843450_ _g33883453_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g26812747_ _g26852750_))))) - (_g26802769_ _rest2678_))))))))) - _lp2676_) + (_g33843450_ _g33883453_))))) + (_g33833472_ _rest3381_))))))))) + _lp3379_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _L2660_ + _L3363_ '())) - _hd26242654_ - _hd26212646_) - (_g26132630_ _g26142633_)))) - (_g26132630_ _g26142633_)))) - (_g26132630_ _g26142633_)))) - (_g26132630_ _g26142633_))))) - (_g26122772_ _stx2607_))))))) + _hd33273357_ + _hd33243349_) + (_g33163333_ _g33173336_)))) + (_g33163333_ _g33173336_)))) + (_g33163333_ _g33173336_)))) + (_g33163333_ _g33173336_))))) + (_g33153475_ _stx3310_))))))) (define gxc#generate-meta-define-syntax% - (lambda (_stx2504_ _state2505_) - (let ((_g25072524_ - (lambda (_g25082521_) - (gx#raise-syntax-error '#f '"Bad syntax" _g25082521_)))) - (let ((_g25062604_ - (lambda (_g25082527_) - (if (gx#stx-pair? _g25082527_) - (let ((_e25112529_ (gx#stx-e _g25082527_))) - (let ((_hd25122532_ (##car _e25112529_)) - (_tl25132534_ (##cdr _e25112529_))) - (if (gx#stx-pair? _tl25132534_) - (let ((_e25142537_ (gx#stx-e _tl25132534_))) - (let ((_hd25152540_ (##car _e25142537_)) - (_tl25162542_ (##cdr _e25142537_))) - (if (gx#stx-pair? _tl25162542_) - (let ((_e25172545_ - (gx#stx-e _tl25162542_))) - (let ((_hd25182548_ (##car _e25172545_)) - (_tl25192550_ - (##cdr _e25172545_))) - (if (gx#stx-null? _tl25192550_) - ((lambda (_L2553_ _L2554_) - (let ((_eid2569_ + (lambda (_stx3207_ _state3208_) + (let ((_g32103227_ + (lambda (_g32113224_) + (gx#raise-syntax-error '#f '"Bad syntax" _g32113224_)))) + (let ((_g32093307_ + (lambda (_g32113230_) + (if (gx#stx-pair? _g32113230_) + (let ((_e32143232_ (gx#stx-e _g32113230_))) + (let ((_hd32153235_ (##car _e32143232_)) + (_tl32163237_ (##cdr _e32143232_))) + (if (gx#stx-pair? _tl32163237_) + (let ((_e32173240_ (gx#stx-e _tl32163237_))) + (let ((_hd32183243_ (##car _e32173240_)) + (_tl32193245_ (##cdr _e32173240_))) + (if (gx#stx-pair? _tl32193245_) + (let ((_e32203248_ + (gx#stx-e _tl32193245_))) + (let ((_hd32213251_ (##car _e32203248_)) + (_tl32223253_ + (##cdr _e32203248_))) + (if (gx#stx-null? _tl32223253_) + ((lambda (_L3256_ _L3257_) + (let ((_eid3272_ (gxc#generate-runtime-binding-id - _L2554_))) - (let ((_phi2571_ + _L3257_))) + (let ((_phi3274_ (fx+ (gx#current-expander-phi) '1))) - (let ((_block2573_ + (let ((_block3276_ (gxc#meta-state-begin-phi! - _state2505_ - _phi2571_))) + _state3208_ + _phi3274_))) (let () (begin - (let ((_g25762583_ + (let ((_g32793286_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g25772580_) + (lambda (_g32803283_) (gx#raise-syntax-error '#f '"Bad syntax" - _g25772580_)))) - (let ((_g25752601_ - (lambda (_g25772586_) - ((lambda (_L2588_) + _g32803283_)))) + (let ((_g32783304_ + (lambda (_g32803289_) + ((lambda (_L3291_) (let () (gxc#meta-state-add-phi! - _state2505_ - _phi2571_ - (cons (gx#datum->syntax + _state3208_ + _phi3274_ + (cons (gx#datum->syntax__0 '#f '%#define-runtime) - (cons _L2588_ (cons _L2553_ '())))))) - _g25772586_)))) - (_g25752601_ _eid2569_))) - (if _block2573_ + (cons _L3291_ (cons _L3256_ '())))))) + _g32803289_)))) + (_g32783304_ _eid3272_))) + (if _block3276_ (cons '%#begin (cons (cons '%#begin-syntax (cons (cons '%#call @@ -5764,85 +5874,85 @@ (cons '_gx#load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons '%#quote (cons _block2573_ '())) '()))) + (cons (cons '%#quote (cons _block3276_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons '%#define-syntax (cons (gxc#generate-runtime-identifier - _L2554_) - (cons _eid2569_ '()))) + _L3257_) + (cons _eid3272_ '()))) '()))) (cons '%#define-syntax - (cons (gxc#generate-runtime-identifier _L2554_) - (cons _eid2569_ '())))))))))) + (cons (gxc#generate-runtime-identifier _L3257_) + (cons _eid3272_ '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd25182548_ - _hd25152540_) - (_g25072524_ _g25082527_)))) - (_g25072524_ _g25082527_)))) - (_g25072524_ _g25082527_)))) - (_g25072524_ _g25082527_))))) - (_g25062604_ _stx2504_))))) + _hd32213251_ + _hd32183243_) + (_g32103227_ _g32113230_)))) + (_g32103227_ _g32113230_)))) + (_g32103227_ _g32113230_)))) + (_g32103227_ _g32113230_))))) + (_g32093307_ _stx3207_))))) (define gxc#generate-meta-define-alias% - (lambda (_stx2436_ _state2437_) - (let ((_g24392456_ - (lambda (_g24402453_) - (gx#raise-syntax-error '#f '"Bad syntax" _g24402453_)))) - (let ((_g24382501_ - (lambda (_g24402459_) - (if (gx#stx-pair? _g24402459_) - (let ((_e24432461_ (gx#stx-e _g24402459_))) - (let ((_hd24442464_ (##car _e24432461_)) - (_tl24452466_ (##cdr _e24432461_))) - (if (gx#stx-pair? _tl24452466_) - (let ((_e24462469_ (gx#stx-e _tl24452466_))) - (let ((_hd24472472_ (##car _e24462469_)) - (_tl24482474_ (##cdr _e24462469_))) - (if (gx#stx-pair? _tl24482474_) - (let ((_e24492477_ - (gx#stx-e _tl24482474_))) - (let ((_hd24502480_ (##car _e24492477_)) - (_tl24512482_ - (##cdr _e24492477_))) - (if (gx#stx-null? _tl24512482_) - ((lambda (_L2485_ _L2486_) + (lambda (_stx3139_ _state3140_) + (let ((_g31423159_ + (lambda (_g31433156_) + (gx#raise-syntax-error '#f '"Bad syntax" _g31433156_)))) + (let ((_g31413204_ + (lambda (_g31433162_) + (if (gx#stx-pair? _g31433162_) + (let ((_e31463164_ (gx#stx-e _g31433162_))) + (let ((_hd31473167_ (##car _e31463164_)) + (_tl31483169_ (##cdr _e31463164_))) + (if (gx#stx-pair? _tl31483169_) + (let ((_e31493172_ (gx#stx-e _tl31483169_))) + (let ((_hd31503175_ (##car _e31493172_)) + (_tl31513177_ (##cdr _e31493172_))) + (if (gx#stx-pair? _tl31513177_) + (let ((_e31523180_ + (gx#stx-e _tl31513177_))) + (let ((_hd31533183_ (##car _e31523180_)) + (_tl31543185_ + (##cdr _e31523180_))) + (if (gx#stx-null? _tl31543185_) + ((lambda (_L3188_ _L3189_) (cons '%#define-alias (cons (gxc#generate-runtime-identifier - _L2486_) + _L3189_) (cons (gxc#generate-runtime-identifier ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L2485_) + _L3188_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd24502480_ - _hd24472472_) - (_g24392456_ _g24402459_)))) - (_g24392456_ _g24402459_)))) - (_g24392456_ _g24402459_)))) - (_g24392456_ _g24402459_))))) - (_g24382501_ _stx2436_))))) + _hd31533183_ + _hd31503175_) + (_g31423159_ _g31433162_)))) + (_g31423159_ _g31433162_)))) + (_g31423159_ _g31433162_)))) + (_g31423159_ _g31433162_))))) + (_g31413204_ _stx3139_))))) (define gxc#generate-meta-phi-define-values% - (lambda (_stx2433_ _state2434_) + (lambda (_stx3136_ _state3137_) (begin (gxc#meta-state-add-phi! - _state2434_ + _state3137_ (gx#current-expander-phi) - _stx2433_) - (gxc#generate-meta-define-values% _stx2433_ _state2434_)))) + _stx3136_) + (gxc#generate-meta-define-values% _stx3136_ _state3137_)))) (define gxc#generate-meta-phi-expr - (lambda (_stx2430_ _state2431_) + (lambda (_stx3133_ _state3134_) (begin (gxc#meta-state-add-phi! - _state2431_ + _state3134_ (gx#current-expander-phi) - _stx2430_) + _stx3133_) '#!void))) (define gxc#meta-state::t (make-struct-type 'gxc#meta-state::t '#f '4 'meta-state '() ':init!)) (define gxc#meta-state? (make-struct-predicate gxc#meta-state::t)) (define gxc#make-meta-state - (lambda _$args2427_ - (apply make-struct-instance gxc#meta-state::t _$args2427_))) + (lambda _$args3130_ + (apply make-struct-instance gxc#meta-state::t _$args3130_))) (define gxc#meta-state-src (make-struct-field-accessor gxc#meta-state::t '0)) (define gxc#meta-state-n (make-struct-field-accessor gxc#meta-state::t '1)) (define gxc#meta-state-open @@ -5858,10 +5968,11 @@ (define gxc#meta-state-blocks-set! (make-struct-field-mutator gxc#meta-state::t '3)) (define gxc#meta-state:::init! - (lambda (_self2424_ _ctx2425_) + (lambda (_self3127_ _ctx3128_) (direct-struct-instance-init! - _self2424_ - (symbol->string (gx#expander-context-id _ctx2425_)) + _self3127_ + (symbol->string + (##structure-ref _ctx3128_ '1 gx#expander-context::t '#f)) '1 (make-hash-table-eq) '()))) @@ -5877,8 +5988,8 @@ (define gxc#meta-state-block? (make-struct-predicate gxc#meta-state-block::t)) (define gxc#make-meta-state-block - (lambda _$args2421_ - (apply make-struct-instance gxc#meta-state-block::t _$args2421_))) + (lambda _$args3124_ + (apply make-struct-instance gxc#meta-state-block::t _$args3124_))) (define gxc#meta-state-block-ctx (make-struct-field-accessor gxc#meta-state-block::t '0)) (define gxc#meta-state-block-phi @@ -5896,224 +6007,231 @@ (define gxc#meta-state-block-code-set! (make-struct-field-mutator gxc#meta-state-block::t '3)) (define gxc#meta-state-begin-phi! - (lambda (_state2380_ _phi2381_) - (let ((_state23822390_ _state2380_)) - (let ((_E23842394_ - (lambda () (error '"No clause matching" _state23822390_)))) - (let ((_K23852403_ - (lambda (_open2397_ _n2398_ _src2399_) - (if (table-ref _open2397_ _phi2381_ '#f) + (lambda (_state3083_ _phi3084_) + (let ((_state30853093_ _state3083_)) + (let ((_E30873097_ + (lambda () (error '"No clause matching" _state30853093_)))) + (let ((_K30883106_ + (lambda (_open3100_ _n3101_ _src3102_) + (if (table-ref _open3100_ _phi3084_ '#f) '#f - (let ((_block-ref2401_ + (let ((_block-ref3104_ (string-append - _src2399_ + _src3102_ '"__" - (number->string _n2398_)))) + (number->string _n3101_)))) (begin (##structure-set! - _state2380_ - (fx+ _n2398_ '1) + _state3083_ + (fx+ _n3101_ '1) '2 gxc#meta-state::t '#f) (table-set! - _open2397_ - _phi2381_ + _open3100_ + _phi3084_ (##structure gxc#meta-state-block::t (gx#current-expander-context) - _phi2381_ - _n2398_ + _phi3084_ + _n3101_ '())) - _block-ref2401_)))))) - (if (struct-instance? gxc#meta-state::t _state23822390_) - (let ((_e23862406_ (##vector-ref _state23822390_ '1))) - (let ((_src2409_ _e23862406_)) - (let ((_e23872411_ (##vector-ref _state23822390_ '2))) - (let ((_n2414_ _e23872411_)) - (let ((_e23882416_ (##vector-ref _state23822390_ '3))) - (let ((_open2419_ _e23882416_)) - (_K23852403_ _open2419_ _n2414_ _src2409_))))))) - (_E23842394_))))))) + _block-ref3104_)))))) + (if (struct-instance? gxc#meta-state::t _state30853093_) + (let ((_e30893109_ (##vector-ref _state30853093_ '1))) + (let ((_src3112_ _e30893109_)) + (let ((_e30903114_ (##vector-ref _state30853093_ '2))) + (let ((_n3117_ _e30903114_)) + (let ((_e30913119_ (##vector-ref _state30853093_ '3))) + (let ((_open3122_ _e30913119_)) + (_K30883106_ _open3122_ _n3117_ _src3112_))))))) + (_E30873097_))))))) (define gxc#meta-state-add-phi! - (lambda (_state2374_ _phi2375_ _stx2376_) - (let ((_block2378_ + (lambda (_state3077_ _phi3078_ _stx3079_) + (let ((_block3081_ (table-ref - (##structure-ref _state2374_ '3 gxc#meta-state::t '#f) - _phi2375_ + (##structure-ref _state3077_ '3 gxc#meta-state::t '#f) + _phi3078_ '#f))) (##structure-set! - _block2378_ - (cons _stx2376_ - (##structure-ref _block2378_ '4 gxc#meta-state-block::t '#f)) + _block3081_ + (cons _stx3079_ + (##structure-ref _block3081_ '4 gxc#meta-state-block::t '#f)) '4 gxc#meta-state-block::t '#f)))) (define gxc#meta-state-end-phi! - (lambda (_state2369_) + (lambda (_state3072_) (begin (##structure-set! - _state2369_ + _state3072_ (hash-fold - (lambda (_g9303_ _block2371_ _r2372_) (cons _block2371_ _r2372_)) - (##structure-ref _state2369_ '4 gxc#meta-state::t '#f) - (##structure-ref _state2369_ '3 gxc#meta-state::t '#f)) + (lambda (_g10006_ _block3074_ _r3075_) (cons _block3074_ _r3075_)) + (##structure-ref _state3072_ '4 gxc#meta-state::t '#f) + (##structure-ref _state3072_ '3 gxc#meta-state::t '#f)) '4 gxc#meta-state::t '#f) (##structure-set! - _state2369_ + _state3072_ (make-hash-table-eq) '3 gxc#meta-state::t '#f)))) (define gxc#meta-state-end! - (lambda (_state2321_) + (lambda (_state3024_) (begin - (gxc#meta-state-end-phi! _state2321_) - (foldl1 (lambda (_block2323_ _r2324_) - (let ((_block23252334_ _block2323_)) - (let ((_E23272338_ + (gxc#meta-state-end-phi! _state3024_) + (foldl1 (lambda (_block3026_ _r3027_) + (let ((_block30283037_ _block3026_)) + (let ((_E30303041_ (lambda () - (error '"No clause matching" _block23252334_)))) - (let ((_K23282346_ - (lambda (_code2341_ _n2342_ _phi2343_ _ctx2344_) - (if (null? _code2341_) - _r2324_ - (cons (cons _ctx2344_ - (cons _phi2343_ - (cons _n2342_ + (error '"No clause matching" _block30283037_)))) + (let ((_K30313049_ + (lambda (_code3044_ _n3045_ _phi3046_ _ctx3047_) + (if (null? _code3044_) + _r3027_ + (cons (cons _ctx3047_ + (cons _phi3046_ + (cons _n3045_ (cons (cons '%#begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse _code2341_)) + (reverse _code3044_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r2324_))))) + _r3027_))))) (if (struct-instance? gxc#meta-state-block::t - _block23252334_) - (let ((_e23292349_ - (##vector-ref _block23252334_ '1))) - (let ((_ctx2352_ _e23292349_)) - (let ((_e23302354_ - (##vector-ref _block23252334_ '2))) - (let ((_phi2357_ _e23302354_)) - (let ((_e23312359_ - (##vector-ref _block23252334_ '3))) - (let ((_n2362_ _e23312359_)) - (let ((_e23322364_ + _block30283037_) + (let ((_e30323052_ + (##vector-ref _block30283037_ '1))) + (let ((_ctx3055_ _e30323052_)) + (let ((_e30333057_ + (##vector-ref _block30283037_ '2))) + (let ((_phi3060_ _e30333057_)) + (let ((_e30343062_ + (##vector-ref _block30283037_ '3))) + (let ((_n3065_ _e30343062_)) + (let ((_e30353067_ (##vector-ref - _block23252334_ + _block30283037_ '4))) - (let ((_code2367_ _e23322364_)) - (_K23282346_ - _code2367_ - _n2362_ - _phi2357_ - _ctx2352_))))))))) - (_E23272338_)))))) + (let ((_code3070_ _e30353067_)) + (_K30313049_ + _code3070_ + _n3065_ + _phi3060_ + _ctx3055_))))))))) + (_E30303041_)))))) '() - (##structure-ref _state2321_ '4 gxc#meta-state::t '#f))))) + (##structure-ref _state3024_ '4 gxc#meta-state::t '#f))))) (define gxc#collect-expression-refs - (lambda (_stx2317_) - (let ((_ht2319_ (make-hash-table-eq))) + (lambda (_stx3020_) + (let ((_ht3022_ (make-hash-table-eq))) (begin - (gxc#apply-collect-expression-refs _stx2317_ _ht2319_) - _ht2319_)))) + (gxc#apply-collect-expression-refs _stx3020_ _ht3022_) + _ht3022_)))) (define gxc#collect-refs-ref% - (lambda (_stx2260_ _ht2261_) - (let ((_g22632276_ - (lambda (_g22642273_) - (gx#raise-syntax-error '#f '"Bad syntax" _g22642273_)))) - (let ((_g22622314_ - (lambda (_g22642279_) - (if (gx#stx-pair? _g22642279_) - (let ((_e22662281_ (gx#stx-e _g22642279_))) - (let ((_hd22672284_ (##car _e22662281_)) - (_tl22682286_ (##cdr _e22662281_))) - (if (gx#stx-pair? _tl22682286_) - (let ((_e22692289_ (gx#stx-e _tl22682286_))) - (let ((_hd22702292_ (##car _e22692289_)) - (_tl22712294_ (##cdr _e22692289_))) - (if (gx#stx-null? _tl22712294_) - ((lambda (_L2297_) - (let ((_bind2309_ - (gx#resolve-identifier - _L2297_))) - (let ((_eid2311_ - (if _bind2309_ - (gx#binding-id _bind2309_) - (gx#stx-e _L2297_)))) + (lambda (_stx2963_ _ht2964_) + (let ((_g29662979_ + (lambda (_g29672976_) + (gx#raise-syntax-error '#f '"Bad syntax" _g29672976_)))) + (let ((_g29653017_ + (lambda (_g29672982_) + (if (gx#stx-pair? _g29672982_) + (let ((_e29692984_ (gx#stx-e _g29672982_))) + (let ((_hd29702987_ (##car _e29692984_)) + (_tl29712989_ (##cdr _e29692984_))) + (if (gx#stx-pair? _tl29712989_) + (let ((_e29722992_ (gx#stx-e _tl29712989_))) + (let ((_hd29732995_ (##car _e29722992_)) + (_tl29742997_ (##cdr _e29722992_))) + (if (gx#stx-null? _tl29742997_) + ((lambda (_L3000_) + (let ((_bind3012_ + (gx#resolve-identifier__0 + _L3000_))) + (let ((_eid3014_ + (if _bind3012_ + (##structure-ref + _bind3012_ + '1 + gx#binding::t + '#f) + (gx#stx-e _L3000_)))) (let () (table-set! - _ht2261_ - _eid2311_ - _eid2311_))))) - _hd22702292_) - (_g22632276_ _g22642279_)))) - (_g22632276_ _g22642279_)))) - (_g22632276_ _g22642279_))))) - (_g22622314_ _stx2260_))))) + _ht2964_ + _eid3014_ + _eid3014_))))) + _hd29732995_) + (_g29662979_ _g29672982_)))) + (_g29662979_ _g29672982_)))) + (_g29662979_ _g29672982_))))) + (_g29653017_ _stx2963_))))) (define gxc#collect-refs-setq% - (lambda (_stx2187_ _ht2188_) - (let ((_g21902207_ - (lambda (_g21912204_) - (gx#raise-syntax-error '#f '"Bad syntax" _g21912204_)))) - (let ((_g21892257_ - (lambda (_g21912210_) - (if (gx#stx-pair? _g21912210_) - (let ((_e21942212_ (gx#stx-e _g21912210_))) - (let ((_hd21952215_ (##car _e21942212_)) - (_tl21962217_ (##cdr _e21942212_))) - (if (gx#stx-pair? _tl21962217_) - (let ((_e21972220_ (gx#stx-e _tl21962217_))) - (let ((_hd21982223_ (##car _e21972220_)) - (_tl21992225_ (##cdr _e21972220_))) - (if (gx#stx-pair? _tl21992225_) - (let ((_e22002228_ - (gx#stx-e _tl21992225_))) - (let ((_hd22012231_ (##car _e22002228_)) - (_tl22022233_ - (##cdr _e22002228_))) - (if (gx#stx-null? _tl22022233_) - ((lambda (_L2236_ _L2237_) - (let ((_bind2252_ - (gx#resolve-identifier - _L2237_))) - (let ((_eid2254_ - (if _bind2252_ - (gx#binding-id - _bind2252_) + (lambda (_stx2890_ _ht2891_) + (let ((_g28932910_ + (lambda (_g28942907_) + (gx#raise-syntax-error '#f '"Bad syntax" _g28942907_)))) + (let ((_g28922960_ + (lambda (_g28942913_) + (if (gx#stx-pair? _g28942913_) + (let ((_e28972915_ (gx#stx-e _g28942913_))) + (let ((_hd28982918_ (##car _e28972915_)) + (_tl28992920_ (##cdr _e28972915_))) + (if (gx#stx-pair? _tl28992920_) + (let ((_e29002923_ (gx#stx-e _tl28992920_))) + (let ((_hd29012926_ (##car _e29002923_)) + (_tl29022928_ (##cdr _e29002923_))) + (if (gx#stx-pair? _tl29022928_) + (let ((_e29032931_ + (gx#stx-e _tl29022928_))) + (let ((_hd29042934_ (##car _e29032931_)) + (_tl29052936_ + (##cdr _e29032931_))) + (if (gx#stx-null? _tl29052936_) + ((lambda (_L2939_ _L2940_) + (let ((_bind2955_ + (gx#resolve-identifier__0 + _L2940_))) + (let ((_eid2957_ + (if _bind2955_ + (##structure-ref + _bind2955_ + '1 + gx#binding::t + '#f) (gx#stx-e - _L2237_)))) + _L2940_)))) (let () (begin (table-set! - _ht2188_ - _eid2254_ - _eid2254_) + _ht2891_ + _eid2957_ + _eid2957_) (gxc#compile-e - _L2236_ - _ht2188_)))))) - _hd22012231_ - _hd21982223_) - (_g21902207_ _g21912210_)))) - (_g21902207_ _g21912210_)))) - (_g21902207_ _g21912210_)))) - (_g21902207_ _g21912210_))))) - (_g21892257_ _stx2187_))))) + _L2939_ + _ht2891_)))))) + _hd29042934_ + _hd29012926_) + (_g28932910_ _g28942913_)))) + (_g28932910_ _g28942913_)))) + (_g28932910_ _g28942913_)))) + (_g28932910_ _g28942913_))))) + (_g28922960_ _stx2890_))))) (define gxc#find-runtime-begin% - (lambda (_stx2149_) - (let ((_g21512161_ - (lambda (_g21522158_) - (gx#raise-syntax-error '#f '"Bad syntax" _g21522158_)))) - (let ((_g21502184_ - (lambda (_g21522164_) - (if (gx#stx-pair? _g21522164_) - (let ((_e21542166_ (gx#stx-e _g21522164_))) - (let ((_hd21552169_ (##car _e21542166_)) - (_tl21562171_ (##cdr _e21542166_))) - ((lambda (_L2174_) (ormap1 gxc#compile-e _L2174_)) - _tl21562171_))) - (_g21512161_ _g21522164_))))) - (_g21502184_ _stx2149_)))))) + (lambda (_stx2852_) + (let ((_g28542864_ + (lambda (_g28552861_) + (gx#raise-syntax-error '#f '"Bad syntax" _g28552861_)))) + (let ((_g28532887_ + (lambda (_g28552867_) + (if (gx#stx-pair? _g28552867_) + (let ((_e28572869_ (gx#stx-e _g28552867_))) + (let ((_hd28582872_ (##car _e28572869_)) + (_tl28592874_ (##cdr _e28572869_))) + ((lambda (_L2877_) (ormap1 gxc#compile-e _L2877_)) + _tl28592874_))) + (_g28542864_ _g28552867_))))) + (_g28532887_ _stx2852_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile__1.scm b/src/bootstrap/gerbil/compiler/compile__1.scm index 49f4922fc..ca1137dbc 100644 --- a/src/bootstrap/gerbil/compiler/compile__1.scm +++ b/src/bootstrap/gerbil/compiler/compile__1.scm @@ -1,77 +1,77 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define |gxc[1]#_g9308_| (gx#core-quote-syntax 'meta-state::t)) - (define |gxc[1]#_g9309_| (gx#core-quote-syntax 'meta-state::t)) - (define |gxc[1]#_g9310_| (gx#core-quote-syntax 'make-meta-state)) - (define |gxc[1]#_g9311_| (gx#core-quote-syntax 'meta-state?)) - (define |gxc[1]#_g9312_| (gx#core-quote-syntax 'meta-state-src)) - (define |gxc[1]#_g9313_| (gx#core-quote-syntax 'meta-state-n)) - (define |gxc[1]#_g9314_| (gx#core-quote-syntax 'meta-state-open)) - (define |gxc[1]#_g9315_| (gx#core-quote-syntax 'meta-state-blocks)) - (define |gxc[1]#_g9316_| (gx#core-quote-syntax 'meta-state-src-set!)) - (define |gxc[1]#_g9317_| (gx#core-quote-syntax 'meta-state-n-set!)) - (define |gxc[1]#_g9318_| (gx#core-quote-syntax 'meta-state-open-set!)) - (define |gxc[1]#_g9319_| (gx#core-quote-syntax 'meta-state-blocks-set!)) - (define |gxc[1]#_g9320_| (gx#core-quote-syntax 'meta-state-block::t)) - (define |gxc[1]#_g9321_| (gx#core-quote-syntax 'meta-state-block::t)) - (define |gxc[1]#_g9322_| (gx#core-quote-syntax 'make-meta-state-block)) - (define |gxc[1]#_g9323_| (gx#core-quote-syntax 'meta-state-block?)) - (define |gxc[1]#_g9324_| (gx#core-quote-syntax 'meta-state-block-ctx)) - (define |gxc[1]#_g9325_| (gx#core-quote-syntax 'meta-state-block-phi)) - (define |gxc[1]#_g9326_| (gx#core-quote-syntax 'meta-state-block-n)) - (define |gxc[1]#_g9327_| (gx#core-quote-syntax 'meta-state-block-code)) - (define |gxc[1]#_g9328_| (gx#core-quote-syntax 'meta-state-block-ctx-set!)) - (define |gxc[1]#_g9329_| (gx#core-quote-syntax 'meta-state-block-phi-set!)) - (define |gxc[1]#_g9330_| (gx#core-quote-syntax 'meta-state-block-n-set!)) - (define |gxc[1]#_g9331_| (gx#core-quote-syntax 'meta-state-block-code-set!)) + (define |gxc[1]#_g10011_| (gx#core-quote-syntax 'meta-state::t)) + (define |gxc[1]#_g10012_| (gx#core-quote-syntax 'meta-state::t)) + (define |gxc[1]#_g10013_| (gx#core-quote-syntax 'make-meta-state)) + (define |gxc[1]#_g10014_| (gx#core-quote-syntax 'meta-state?)) + (define |gxc[1]#_g10015_| (gx#core-quote-syntax 'meta-state-src)) + (define |gxc[1]#_g10016_| (gx#core-quote-syntax 'meta-state-n)) + (define |gxc[1]#_g10017_| (gx#core-quote-syntax 'meta-state-open)) + (define |gxc[1]#_g10018_| (gx#core-quote-syntax 'meta-state-blocks)) + (define |gxc[1]#_g10019_| (gx#core-quote-syntax 'meta-state-src-set!)) + (define |gxc[1]#_g10020_| (gx#core-quote-syntax 'meta-state-n-set!)) + (define |gxc[1]#_g10021_| (gx#core-quote-syntax 'meta-state-open-set!)) + (define |gxc[1]#_g10022_| (gx#core-quote-syntax 'meta-state-blocks-set!)) + (define |gxc[1]#_g10023_| (gx#core-quote-syntax 'meta-state-block::t)) + (define |gxc[1]#_g10024_| (gx#core-quote-syntax 'meta-state-block::t)) + (define |gxc[1]#_g10025_| (gx#core-quote-syntax 'make-meta-state-block)) + (define |gxc[1]#_g10026_| (gx#core-quote-syntax 'meta-state-block?)) + (define |gxc[1]#_g10027_| (gx#core-quote-syntax 'meta-state-block-ctx)) + (define |gxc[1]#_g10028_| (gx#core-quote-syntax 'meta-state-block-phi)) + (define |gxc[1]#_g10029_| (gx#core-quote-syntax 'meta-state-block-n)) + (define |gxc[1]#_g10030_| (gx#core-quote-syntax 'meta-state-block-code)) + (define |gxc[1]#_g10031_| (gx#core-quote-syntax 'meta-state-block-ctx-set!)) + (define |gxc[1]#_g10032_| (gx#core-quote-syntax 'meta-state-block-phi-set!)) + (define |gxc[1]#_g10033_| (gx#core-quote-syntax 'meta-state-block-n-set!)) + (define |gxc[1]#_g10034_| (gx#core-quote-syntax 'meta-state-block-code-set!)) (begin (define |gxc[:0:]#defcompile-method| - (lambda (_$stx1745_) - (let ((_g17511830_ - (lambda (_g17521826_) - (gx#raise-syntax-error '#f '"Bad syntax" _g17521826_)))) - (let ((_g17501904_ - (lambda (_g17521834_) - (if (gx#stx-pair? _g17521834_) - (let ((_e18131837_ (gx#syntax-e _g17521834_))) - (let ((_hd18141841_ (##car _e18131837_)) - (_tl18151844_ (##cdr _e18131837_))) - (if (gx#stx-pair? _tl18151844_) - (let ((_e18161847_ (gx#syntax-e _tl18151844_))) - (let ((_hd18171851_ (##car _e18161847_)) - (_tl18181854_ (##cdr _e18161847_))) - (if (gx#stx-pair? _tl18181854_) - (let ((_e18191857_ - (gx#syntax-e _tl18181854_))) - (let ((_hd18201861_ - (##car _e18191857_)) - (_tl18211864_ - (##cdr _e18191857_))) - (if (gx#stx-pair? _hd18201861_) - (let ((_e18221867_ + (lambda (_$stx2448_) + (let ((_g24542533_ + (lambda (_g24552529_) + (gx#raise-syntax-error '#f '"Bad syntax" _g24552529_)))) + (let ((_g24532607_ + (lambda (_g24552537_) + (if (gx#stx-pair? _g24552537_) + (let ((_e25162540_ (gx#syntax-e _g24552537_))) + (let ((_hd25172544_ (##car _e25162540_)) + (_tl25182547_ (##cdr _e25162540_))) + (if (gx#stx-pair? _tl25182547_) + (let ((_e25192550_ (gx#syntax-e _tl25182547_))) + (let ((_hd25202554_ (##car _e25192550_)) + (_tl25212557_ (##cdr _e25192550_))) + (if (gx#stx-pair? _tl25212557_) + (let ((_e25222560_ + (gx#syntax-e _tl25212557_))) + (let ((_hd25232564_ + (##car _e25222560_)) + (_tl25242567_ + (##cdr _e25222560_))) + (if (gx#stx-pair? _hd25232564_) + (let ((_e25252570_ (gx#syntax-e - _hd18201861_))) - (let ((_hd18231871_ - (##car _e18221867_)) - (_tl18241874_ - (##cdr _e18221867_))) - ((lambda (_L1877_ - _L1879_ - _L1880_ - _L1881_ - _L1882_) + _hd25232564_))) + (let ((_hd25262574_ + (##car _e25252570_)) + (_tl25272577_ + (##cdr _e25252570_))) + ((lambda (_L2580_ + _L2582_ + _L2583_ + _L2584_ + _L2585_) (if (gx#identifier? - _L1881_) + _L2584_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - (cons (cons _L1882_ + (cons (cons _L2585_ (cons '#f - (cons (cons _L1880_ _L1879_) - _L1877_))) + (cons (cons _L2583_ _L2582_) + _L2580_))) (cons (cons (gx#datum->syntax '#f 'define) - (cons (cons _L1881_ + (cons (cons _L2584_ (cons (gx#datum->syntax '#f 'stx) @@ -86,7 +86,7 @@ '#f 'current-compile-methods) (cons (cons (gx#datum->syntax '#f 'force) - (cons _L1880_ '())) + (cons _L2583_ '())) '())) '()) (cons (cons (gx#datum->syntax '#f 'apply) @@ -100,135 +100,134 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (_g17511830_ _g17521834_))) + (_g24542533_ _g24552537_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _tl18211864_ - _tl18241874_ - _hd18231871_ - _hd18171851_ - _hd18141841_))) - (_g17511830_ _g17521834_)))) - (_g17511830_ _g17521834_)))) - (_g17511830_ _g17521834_)))) - (_g17511830_ _g17521834_))))) - (let ((_g17492085_ - (lambda (_g17521908_) - (if (gx#stx-pair? _g17521908_) - (let ((_e17701911_ (gx#syntax-e _g17521908_))) - (let ((_hd17711915_ (##car _e17701911_)) - (_tl17721918_ (##cdr _e17701911_))) - (if (gx#stx-pair? _tl17721918_) - (let ((_e17731921_ - (gx#syntax-e _tl17721918_))) - (let ((_hd17741925_ (##car _e17731921_)) - (_tl17751928_ (##cdr _e17731921_))) - (if (gx#stx-datum? _hd17741925_) - (if (equal? (gx#stx-e _hd17741925_) + _tl25242567_ + _tl25272577_ + _hd25262574_ + _hd25202554_ + _hd25172544_))) + (_g24542533_ _g24552537_)))) + (_g24542533_ _g24552537_)))) + (_g24542533_ _g24552537_)))) + (_g24542533_ _g24552537_))))) + (let ((_g24522788_ + (lambda (_g24552611_) + (if (gx#stx-pair? _g24552611_) + (let ((_e24732614_ (gx#syntax-e _g24552611_))) + (let ((_hd24742618_ (##car _e24732614_)) + (_tl24752621_ (##cdr _e24732614_))) + (if (gx#stx-pair? _tl24752621_) + (let ((_e24762624_ + (gx#syntax-e _tl24752621_))) + (let ((_hd24772628_ (##car _e24762624_)) + (_tl24782631_ (##cdr _e24762624_))) + (if (gx#stx-datum? _hd24772628_) + (if (equal? (gx#stx-e _hd24772628_) '#f) - (if (gx#stx-pair? _tl17751928_) - (let ((_e17761931_ + (if (gx#stx-pair? _tl24782631_) + (let ((_e24792634_ (gx#syntax-e - _tl17751928_))) - (let ((_hd17771935_ - (##car _e17761931_)) - (_tl17781938_ - (##cdr _e17761931_))) + _tl24782631_))) + (let ((_hd24802638_ + (##car _e24792634_)) + (_tl24812641_ + (##cdr _e24792634_))) (if (gx#stx-pair? - _hd17771935_) - (let ((_e17791941_ + _hd24802638_) + (let ((_e24822644_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd17771935_))) - (let ((_hd17801945_ (##car _e17791941_)) - (_tl17811948_ (##cdr _e17791941_))) - (if (gx#stx-pair/null? _tl17811948_) - (if (fx>= (gx#stx-length _tl17811948_) '0) - (let ((_g9304_ (gx#syntax-split-splice - _tl17811948_ - '0))) + _hd24802638_))) + (let ((_hd24832648_ (##car _e24822644_)) + (_tl24842651_ (##cdr _e24822644_))) + (if (gx#stx-pair/null? _tl24842651_) + (if (fx>= (gx#stx-length _tl24842651_) '0) + (let ((_g10007_ + (gx#syntax-split-splice _tl24842651_ '0))) (begin - (let ((_g9305_ (values-count _g9304_))) - (if (not (fx= _g9305_ 2)) + (let ((_g10008_ (values-count _g10007_))) + (if (not (fx= _g10008_ 2)) (error "Context expects 2 values" - _g9305_))) - (let ((_target17821951_ - (values-ref _g9304_ 0)) - (_tl17841954_ (values-ref _g9304_ 1))) - (if (gx#stx-null? _tl17841954_) - (letrec ((_loop17851957_ - (lambda (_hd17831961_ - _super17891964_) + _g10008_))) + (let ((_target24852654_ + (values-ref _g10007_ 0)) + (_tl24872657_ (values-ref _g10007_ 1))) + (if (gx#stx-null? _tl24872657_) + (letrec ((_loop24882660_ + (lambda (_hd24862664_ + _super24922667_) (if (gx#stx-pair? - _hd17831961_) - (let ((_e17861967_ + _hd24862664_) + (let ((_e24892670_ (gx#syntax-e - _hd17831961_))) - (let ((_lp-hd17871971_ - (##car _e17861967_)) - (_lp-tl17881974_ - (##cdr _e17861967_))) - (_loop17851957_ - _lp-tl17881974_ - (cons _lp-hd17871971_ + _hd24862664_))) + (let ((_lp-hd24902674_ + (##car _e24892670_)) + (_lp-tl24912677_ + (##cdr _e24892670_))) + (_loop24882660_ + _lp-tl24912677_ + (cons _lp-hd24902674_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _super17891964_)))) - (let ((_super17901977_ (reverse _super17891964_))) - (if (gx#stx-pair/null? _tl17781938_) - (if (fx>= (gx#stx-length _tl17781938_) '0) - (let ((_g9306_ (gx#syntax-split-splice - _tl17781938_ - '0))) + _super24922667_)))) + (let ((_super24932680_ (reverse _super24922667_))) + (if (gx#stx-pair/null? _tl24812641_) + (if (fx>= (gx#stx-length _tl24812641_) '0) + (let ((_g10009_ + (gx#syntax-split-splice _tl24812641_ '0))) (begin - (let ((_g9307_ (values-count _g9306_))) - (if (not (fx= _g9307_ 2)) - (error "Context expects 2 values" _g9307_))) - (let ((_target17911981_ (values-ref _g9306_ 0)) - (_tl17931984_ (values-ref _g9306_ 1))) - (if (gx#stx-null? _tl17931984_) - (letrec ((_loop17941987_ - (lambda (_hd17921991_ - _method17981994_ - _symbol17991996_) - (if (gx#stx-pair? _hd17921991_) - (let ((_e17951999_ + (let ((_g10010_ (values-count _g10009_))) + (if (not (fx= _g10010_ 2)) + (error "Context expects 2 values" + _g10010_))) + (let ((_target24942684_ (values-ref _g10009_ 0)) + (_tl24962687_ (values-ref _g10009_ 1))) + (if (gx#stx-null? _tl24962687_) + (letrec ((_loop24972690_ + (lambda (_hd24952694_ + _method25012697_ + _symbol25022699_) + (if (gx#stx-pair? _hd24952694_) + (let ((_e24982702_ (gx#syntax-e - _hd17921991_))) - (let ((_lp-hd17962003_ - (##car _e17951999_)) - (_lp-tl17972006_ - (##cdr _e17951999_))) + _hd24952694_))) + (let ((_lp-hd24992706_ + (##car _e24982702_)) + (_lp-tl25002709_ + (##cdr _e24982702_))) (if (gx#stx-pair? - _lp-hd17962003_) - (let ((_e18022009_ + _lp-hd24992706_) + (let ((_e25052712_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _lp-hd17962003_))) - (let ((_hd18032013_ (##car _e18022009_)) - (_tl18042016_ (##cdr _e18022009_))) - (if (gx#stx-pair? _tl18042016_) - (let ((_e18052019_ (gx#syntax-e _tl18042016_))) - (let ((_hd18062023_ (##car _e18052019_)) - (_tl18072026_ (##cdr _e18052019_))) - (if (gx#stx-null? _tl18072026_) - (_loop17941987_ - _lp-tl17972006_ - (cons _hd18062023_ _method17981994_) - (cons _hd18032013_ _symbol17991996_)) - (_g17501904_ _g17521908_)))) - (_g17501904_ _g17521908_)))) - (_g17501904_ _g17521908_)))) + (gx#syntax-e _lp-hd24992706_))) + (let ((_hd25062716_ (##car _e25052712_)) + (_tl25072719_ (##cdr _e25052712_))) + (if (gx#stx-pair? _tl25072719_) + (let ((_e25082722_ (gx#syntax-e _tl25072719_))) + (let ((_hd25092726_ (##car _e25082722_)) + (_tl25102729_ (##cdr _e25082722_))) + (if (gx#stx-null? _tl25102729_) + (_loop24972690_ + _lp-tl25002709_ + (cons _hd25092726_ _method25012697_) + (cons _hd25062716_ _symbol25022699_)) + (_g24532607_ _g24552611_)))) + (_g24532607_ _g24552611_)))) + (_g24532607_ _g24552611_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_method18002029_ - (reverse _method17981994_)) - (_symbol18012032_ - (reverse _symbol17991996_))) - ((lambda (_L2035_ - _L2037_ - _L2038_ - _L2039_) + (let ((_method25032732_ + (reverse _method25012697_)) + (_symbol25042735_ + (reverse _symbol25022699_))) + ((lambda (_L2738_ + _L2740_ + _L2741_ + _L2742_) (cons (gx#datum->syntax '#f 'define) - (cons _L2039_ + (cons _L2742_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'delay) (cons (cons (gx#datum->syntax '#f 'let) @@ -241,23 +240,23 @@ '())) (begin '#!void - (foldr (lambda (_g20652071_ _g20662074_) + (foldr (lambda (_g27682774_ _g27692777_) (cons (cons (gx#datum->syntax '#f 'hash-copy!) (cons (gx#datum->syntax '#f 'tbl) (cons (cons (gx#datum->syntax '#f 'force) - (cons _g20652071_ + (cons _g27682774_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _g20662074_)) + _g27692777_)) (begin - (gx#syntax-check-splice-targets _L2035_ _L2037_) - (foldr (lambda (_g20672077_ - _g20682080_ - _g20692082_) + (gx#syntax-check-splice-targets _L2738_ _L2740_) + (foldr (lambda (_g27702780_ + _g27712783_ + _g27722785_) (cons (cons (gx#datum->syntax '#f 'hash-put!) @@ -268,93 +267,93 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _g20682080_ '())) - (cons _g20672077_ '())))) + (cons _g27712783_ '())) + (cons _g27702780_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g20692082_)) + _g27722785_)) (cons (gx#datum->syntax '#f 'tbl) '()) - _L2035_ - _L2037_)) - _L2038_)))) + _L2738_ + _L2740_)) + _L2741_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())))) - _method18002029_ - _symbol18012032_ - _super17901977_ - _hd17801945_)))))) + _method25032732_ + _symbol25042735_ + _super24932680_ + _hd24832648_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop17941987_ _target17911981_ '() '())) - (_g17501904_ _g17521908_))))) - (_g17501904_ _g17521908_)) - (_g17501904_ _g17521908_))))))) + (_loop24972690_ _target24942684_ '() '())) + (_g24532607_ _g24552611_))))) + (_g24532607_ _g24552611_)) + (_g24532607_ _g24552611_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop17851957_ _target17821951_ '())) - (_g17501904_ _g17521908_))))) - (_g17501904_ _g17521908_)) - (_g17501904_ _g17521908_)))) - (_g17501904_ _g17521908_)))) + (_loop24882660_ _target24852654_ '())) + (_g24532607_ _g24552611_))))) + (_g24532607_ _g24552611_)) + (_g24532607_ _g24552611_)))) + (_g24532607_ _g24552611_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g17501904_ _g17521908_)) - (_g17501904_ _g17521908_)) - (_g17501904_ _g17521908_)))) - (_g17501904_ _g17521908_)))) - (_g17501904_ _g17521908_))))) - (let ((_g17482143_ - (lambda (_g17522089_) - (if (gx#stx-pair? _g17522089_) - (let ((_e17572092_ (gx#syntax-e _g17522089_))) - (let ((_hd17582096_ (##car _e17572092_)) - (_tl17592099_ (##cdr _e17572092_))) - (if (gx#stx-pair? _tl17592099_) - (let ((_e17602102_ - (gx#syntax-e _tl17592099_))) - (let ((_hd17612106_ (##car _e17602102_)) - (_tl17622109_ (##cdr _e17602102_))) - (if (gx#stx-pair? _tl17622109_) - (let ((_e17632112_ - (gx#syntax-e _tl17622109_))) - (let ((_hd17642116_ - (##car _e17632112_)) - (_tl17652119_ - (##cdr _e17632112_))) - ((lambda (_L2122_ - _L2124_ - _L2125_ - _L2126_) - (if (gx#identifier? _L2124_) - (cons _L2126_ - (cons _L2125_ + (_g24532607_ _g24552611_)) + (_g24532607_ _g24552611_)) + (_g24532607_ _g24552611_)))) + (_g24532607_ _g24552611_)))) + (_g24532607_ _g24552611_))))) + (let ((_g24512846_ + (lambda (_g24552792_) + (if (gx#stx-pair? _g24552792_) + (let ((_e24602795_ (gx#syntax-e _g24552792_))) + (let ((_hd24612799_ (##car _e24602795_)) + (_tl24622802_ (##cdr _e24602795_))) + (if (gx#stx-pair? _tl24622802_) + (let ((_e24632805_ + (gx#syntax-e _tl24622802_))) + (let ((_hd24642809_ (##car _e24632805_)) + (_tl24652812_ (##cdr _e24632805_))) + (if (gx#stx-pair? _tl24652812_) + (let ((_e24662815_ + (gx#syntax-e _tl24652812_))) + (let ((_hd24672819_ + (##car _e24662815_)) + (_tl24682822_ + (##cdr _e24662815_))) + ((lambda (_L2825_ + _L2827_ + _L2828_ + _L2829_) + (if (gx#identifier? _L2827_) + (cons _L2829_ + (cons _L2828_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _L2124_ '()) _L2122_))) - (_g17492085_ _g17522089_))) + (cons (cons _L2827_ '()) _L2825_))) + (_g24522788_ _g24552792_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _tl17652119_ - _hd17642116_ - _hd17612106_ - _hd17582096_))) - (_g17492085_ _g17522089_)))) - (_g17492085_ _g17522089_)))) - (_g17492085_ _g17522089_))))) - (_g17482143_ _$stx1745_))))))) + _tl24682822_ + _hd24672819_ + _hd24642809_ + _hd24612799_))) + (_g24522788_ _g24552792_)))) + (_g24522788_ _g24552792_)))) + (_g24522788_ _g24552792_))))) + (_g24512846_ _$stx2448_))))))) (define |gxc[:0:]#meta-state| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g9308_| + |gxc[1]#_g10011_| 'expander-identifiers: (cons '#f - (cons |gxc[1]#_g9309_| - (cons |gxc[1]#_g9310_| - (cons |gxc[1]#_g9311_| - (cons (cons |gxc[1]#_g9312_| - (cons |gxc[1]#_g9313_| - (cons |gxc[1]#_g9314_| - (cons |gxc[1]#_g9315_| + (cons |gxc[1]#_g10012_| + (cons |gxc[1]#_g10013_| + (cons |gxc[1]#_g10014_| + (cons (cons |gxc[1]#_g10015_| + (cons |gxc[1]#_g10016_| + (cons |gxc[1]#_g10017_| + (cons |gxc[1]#_g10018_| '())))) - (cons (cons |gxc[1]#_g9316_| - (cons |gxc[1]#_g9317_| - (cons |gxc[1]#_g9318_| - (cons |gxc[1]#_g9319_| + (cons (cons |gxc[1]#_g10019_| + (cons |gxc[1]#_g10020_| + (cons |gxc[1]#_g10021_| + (cons |gxc[1]#_g10022_| ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -370,21 +369,21 @@ (define |gxc[:0:]#meta-state-block| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g9320_| + |gxc[1]#_g10023_| 'expander-identifiers: (cons '#f - (cons |gxc[1]#_g9321_| - (cons |gxc[1]#_g9322_| - (cons |gxc[1]#_g9323_| - (cons (cons |gxc[1]#_g9324_| - (cons |gxc[1]#_g9325_| - (cons |gxc[1]#_g9326_| - (cons |gxc[1]#_g9327_| + (cons |gxc[1]#_g10024_| + (cons |gxc[1]#_g10025_| + (cons |gxc[1]#_g10026_| + (cons (cons |gxc[1]#_g10027_| + (cons |gxc[1]#_g10028_| + (cons |gxc[1]#_g10029_| + (cons |gxc[1]#_g10030_| '())))) - (cons (cons |gxc[1]#_g9328_| - (cons |gxc[1]#_g9329_| - (cons |gxc[1]#_g9330_| - (cons |gxc[1]#_g9331_| + (cons (cons |gxc[1]#_g10031_| + (cons |gxc[1]#_g10032_| + (cons |gxc[1]#_g10033_| + (cons |gxc[1]#_g10034_| ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> diff --git a/src/bootstrap/gerbil/compiler/driver.ssi b/src/bootstrap/gerbil/compiler/driver.ssi index eb9e4d706..bbabb742c 100644 --- a/src/bootstrap/gerbil/compiler/driver.ssi +++ b/src/bootstrap/gerbil/compiler/driver.ssi @@ -15,8 +15,8 @@ namespace: gxc (spec: (:gerbil/gambit/os) (0 current-time 0 current-time) - (0 time->seconds 0 time->seconds) (0 file-info 0 file-info) + (0 time->seconds 0 time->seconds) (0 file-info-size 0 file-info-size))) (%#export (spec: 0 compile-file compile-file) @@ -24,15 +24,15 @@ namespace: gxc (spec: 0 compile-static-exe compile-static-exe)) (%#define-runtime compile-timestamp gxc#compile-timestamp) (%#begin (%#define-runtime - compile-file__opt-lambda19234 - gxc#compile-file__opt-lambda19234) + compile-file__opt-lambda19939 + gxc#compile-file__opt-lambda19939) (%#begin (%#define-runtime compile-file__0 gxc#compile-file__0) (%#define-runtime compile-file gxc#compile-file))) (%#begin (%#define-runtime - compile-exe-stub__opt-lambda19220 - gxc#compile-exe-stub__opt-lambda19220) + compile-exe-stub__opt-lambda19925 + gxc#compile-exe-stub__opt-lambda19925) (%#begin (%#define-runtime compile-exe-stub__0 gxc#compile-exe-stub__0) @@ -40,8 +40,8 @@ namespace: gxc compile-exe-stub gxc#compile-exe-stub))) (%#begin (%#define-runtime - compile-static-exe__opt-lambda19206 - gxc#compile-static-exe__opt-lambda19206) + compile-static-exe__opt-lambda19911 + gxc#compile-static-exe__opt-lambda19911) (%#begin (%#define-runtime compile-static-exe__0 gxc#compile-static-exe__0) diff --git a/src/bootstrap/gerbil/compiler/driver.ssxi.ss b/src/bootstrap/gerbil/compiler/driver.ssxi.ss index 7fa50e8e7..7d363b7a5 100644 --- a/src/bootstrap/gerbil/compiler/driver.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/driver.ssxi.ss @@ -6,14 +6,14 @@ package: gerbil/compiler gxc#compile-file (@case-lambda (1 gxc#compile-file__0) - (2 gxc#compile-file__opt-lambda19234))) + (2 gxc#compile-file__opt-lambda19939))) (declare-type gxc#compile-exe-stub (@case-lambda (1 gxc#compile-exe-stub__0) - (2 gxc#compile-exe-stub__opt-lambda19220))) + (2 gxc#compile-exe-stub__opt-lambda19925))) (declare-type gxc#compile-static-exe (@case-lambda (1 gxc#compile-static-exe__0) - (2 gxc#compile-static-exe__opt-lambda19206)))) + (2 gxc#compile-static-exe__opt-lambda19911)))) diff --git a/src/bootstrap/gerbil/compiler/driver__0.scm b/src/bootstrap/gerbil/compiler/driver__0.scm index ac157f104..4d50e78ba 100644 --- a/src/bootstrap/gerbil/compiler/driver__0.scm +++ b/src/bootstrap/gerbil/compiler/driver__0.scm @@ -3,713 +3,804 @@ (define gxc#compile-timestamp (lambda () (inexact->exact (floor (time->seconds (current-time)))))) (begin - (define gxc#compile-file__opt-lambda19234 - (lambda (_srcpath19236_ _opts19237_) + (define gxc#compile-file__opt-lambda19939 + (lambda (_srcpath19941_ _opts19942_) (begin - (if (string? _srcpath19236_) + (if (string? _srcpath19941_) '#!void (gxc#raise-compile-error '"Invalid module source path" - _srcpath19236_)) - (let ((_outdir19239_ (pgetq 'output-dir: _opts19237_)) - (_invoke-gsc?19240_ (pgetq 'invoke-gsc: _opts19237_)) - (_gsc-options19241_ (pgetq 'gsc-options: _opts19237_)) - (_keep-scm?19242_ (pgetq 'keep-scm: _opts19237_)) - (_verbosity19243_ (pgetq 'verbose: _opts19237_)) - (_optimize19244_ (pgetq 'optimize: _opts19237_)) - (_gen-ssxi19245_ (pgetq 'generate-ssxi: _opts19237_)) - (_static19246_ (pgetq 'static: _opts19237_))) + _srcpath19941_)) + (let ((_outdir19944_ (pgetq 'output-dir: _opts19942_)) + (_invoke-gsc?19945_ (pgetq 'invoke-gsc: _opts19942_)) + (_gsc-options19946_ (pgetq 'gsc-options: _opts19942_)) + (_keep-scm?19947_ (pgetq 'keep-scm: _opts19942_)) + (_verbosity19948_ (pgetq 'verbose: _opts19942_)) + (_optimize19949_ (pgetq 'optimize: _opts19942_)) + (_gen-ssxi19950_ (pgetq 'generate-ssxi: _opts19942_)) + (_static19951_ (pgetq 'static: _opts19942_))) (begin - (if _outdir19239_ (create-directory* _outdir19239_) '#!void) - (if _optimize19244_ (gxc#optimizer-info-init!) '#!void) + (if _outdir19944_ (create-directory* _outdir19944_) '#!void) + (if _optimize19949_ (gxc#optimizer-info-init!) '#!void) (call-with-parameters (lambda () (begin - (gxc#verbose '"compile " _srcpath19236_) - (gxc#compile-top-module (gx#import-module _srcpath19236_)))) + (gxc#verbose '"compile " _srcpath19941_) + (gxc#compile-top-module + (gx#import-module__0 _srcpath19941_)))) gxc#current-compile-output-dir - _outdir19239_ + _outdir19944_ gxc#current-compile-invoke-gsc - _invoke-gsc?19240_ + _invoke-gsc?19945_ gxc#current-compile-gsc-options - _gsc-options19241_ + _gsc-options19946_ gxc#current-compile-keep-scm - _keep-scm?19242_ + _keep-scm?19947_ gxc#current-compile-verbose - _verbosity19243_ + _verbosity19948_ gxc#current-compile-optimize - _optimize19244_ + _optimize19949_ gxc#current-compile-generate-ssxi - _gen-ssxi19245_ + _gen-ssxi19950_ gxc#current-compile-static - _static19246_ + _static19951_ gxc#current-compile-timestamp (gxc#compile-timestamp))))))) (begin (define gxc#compile-file__0 - (lambda (_srcpath19252_) - (let ((_opts19254_ '())) - (gxc#compile-file__opt-lambda19234 _srcpath19252_ _opts19254_)))) + (lambda (_srcpath19957_) + (let ((_opts19959_ '())) + (gxc#compile-file__opt-lambda19939 _srcpath19957_ _opts19959_)))) (define gxc#compile-file - (lambda _g19262_ - (let ((_g19261_ (length _g19262_))) - (cond ((fx= _g19261_ 1) (apply gxc#compile-file__0 _g19262_)) - ((fx= _g19261_ 2) - (apply gxc#compile-file__opt-lambda19234 _g19262_)) - (else (error "No clause matching arguments" _g19262_)))))))) + (lambda _g19967_ + (let ((_g19966_ (length _g19967_))) + (cond ((fx= _g19966_ 1) (apply gxc#compile-file__0 _g19967_)) + ((fx= _g19966_ 2) + (apply gxc#compile-file__opt-lambda19939 _g19967_)) + (else (error "No clause matching arguments" _g19967_)))))))) (begin - (define gxc#compile-exe-stub__opt-lambda19220 - (lambda (_srcpath19222_ _opts19223_) + (define gxc#compile-exe-stub__opt-lambda19925 + (lambda (_srcpath19927_ _opts19928_) (gxc#do-compile-exe - _srcpath19222_ - _opts19223_ + _srcpath19927_ + _opts19928_ gxc#compile-exe-stub-module))) (begin (define gxc#compile-exe-stub__0 - (lambda (_srcpath19228_) - (let ((_opts19230_ '())) - (gxc#compile-exe-stub__opt-lambda19220 - _srcpath19228_ - _opts19230_)))) + (lambda (_srcpath19933_) + (let ((_opts19935_ '())) + (gxc#compile-exe-stub__opt-lambda19925 + _srcpath19933_ + _opts19935_)))) (define gxc#compile-exe-stub - (lambda _g19264_ - (let ((_g19263_ (length _g19264_))) - (cond ((fx= _g19263_ 1) (apply gxc#compile-exe-stub__0 _g19264_)) - ((fx= _g19263_ 2) - (apply gxc#compile-exe-stub__opt-lambda19220 _g19264_)) - (else (error "No clause matching arguments" _g19264_)))))))) + (lambda _g19969_ + (let ((_g19968_ (length _g19969_))) + (cond ((fx= _g19968_ 1) (apply gxc#compile-exe-stub__0 _g19969_)) + ((fx= _g19968_ 2) + (apply gxc#compile-exe-stub__opt-lambda19925 _g19969_)) + (else (error "No clause matching arguments" _g19969_)))))))) (begin - (define gxc#compile-static-exe__opt-lambda19206 - (lambda (_srcpath19208_ _opts19209_) + (define gxc#compile-static-exe__opt-lambda19911 + (lambda (_srcpath19913_ _opts19914_) (gxc#do-compile-exe - _srcpath19208_ - _opts19209_ + _srcpath19913_ + _opts19914_ gxc#compile-exe-static-module))) (begin (define gxc#compile-static-exe__0 - (lambda (_srcpath19214_) - (let ((_opts19216_ '())) - (gxc#compile-static-exe__opt-lambda19206 - _srcpath19214_ - _opts19216_)))) + (lambda (_srcpath19919_) + (let ((_opts19921_ '())) + (gxc#compile-static-exe__opt-lambda19911 + _srcpath19919_ + _opts19921_)))) (define gxc#compile-static-exe - (lambda _g19266_ - (let ((_g19265_ (length _g19266_))) - (cond ((fx= _g19265_ 1) (apply gxc#compile-static-exe__0 _g19266_)) - ((fx= _g19265_ 2) - (apply gxc#compile-static-exe__opt-lambda19206 _g19266_)) - (else (error "No clause matching arguments" _g19266_)))))))) + (lambda _g19971_ + (let ((_g19970_ (length _g19971_))) + (cond ((fx= _g19970_ 1) (apply gxc#compile-static-exe__0 _g19971_)) + ((fx= _g19970_ 2) + (apply gxc#compile-static-exe__opt-lambda19911 _g19971_)) + (else (error "No clause matching arguments" _g19971_)))))))) (define gxc#do-compile-exe - (lambda (_srcpath19196_ _opts19197_ _compile-e19198_) + (lambda (_srcpath19901_ _opts19902_ _compile-e19903_) (begin - (if (string? _srcpath19196_) + (if (string? _srcpath19901_) '#!void (gxc#raise-compile-error '"Invalid module source path" - _srcpath19196_)) - (let ((_outdir19200_ (pgetq 'output-dir: _opts19197_)) - (_invoke-gsc?19201_ (pgetq 'invoke-gsc: _opts19197_)) - (_gsc-options19202_ (pgetq 'gsc-options: _opts19197_)) - (_keep-scm?19203_ (pgetq 'keep-scm: _opts19197_)) - (_verbosity19204_ (pgetq 'verbose: _opts19197_))) + _srcpath19901_)) + (let ((_outdir19905_ (pgetq 'output-dir: _opts19902_)) + (_invoke-gsc?19906_ (pgetq 'invoke-gsc: _opts19902_)) + (_gsc-options19907_ (pgetq 'gsc-options: _opts19902_)) + (_keep-scm?19908_ (pgetq 'keep-scm: _opts19902_)) + (_verbosity19909_ (pgetq 'verbose: _opts19902_))) (begin - (if _outdir19200_ (create-directory* _outdir19200_) '#!void) + (if _outdir19905_ (create-directory* _outdir19905_) '#!void) (call-with-parameters (lambda () (begin - (gxc#verbose '"compile exe " _srcpath19196_) - (_compile-e19198_ - (gx#import-module _srcpath19196_) - _opts19197_))) + (gxc#verbose '"compile exe " _srcpath19901_) + (_compile-e19903_ + (gx#import-module__0 _srcpath19901_) + _opts19902_))) gxc#current-compile-output-dir - _outdir19200_ + _outdir19905_ gxc#current-compile-invoke-gsc - _invoke-gsc?19201_ + _invoke-gsc?19906_ gxc#current-compile-gsc-options - _gsc-options19202_ + _gsc-options19907_ gxc#current-compile-keep-scm - _keep-scm?19203_ + _keep-scm?19908_ gxc#current-compile-verbose - _verbosity19204_ + _verbosity19909_ gxc#current-compile-timestamp (gxc#compile-timestamp))))))) (define gxc#compile-exe-stub-module - (lambda (_ctx19164_ _opts19165_) - (let ((_generate-stub19167_ + (lambda (_ctx19869_ _opts19870_) + (let ((_generate-stub19872_ (lambda () - (let ((_mod-str19189_ - (symbol->string (gx#expander-context-id _ctx19164_)))) - (let ((_mod-rt19191_ (string-append _mod-str19189_ '"__rt"))) - (let ((_mod-main19193_ - (gxc#find-runtime-symbol _ctx19164_ 'main))) + (let ((_mod-str19894_ + (symbol->string + (##structure-ref + _ctx19869_ + '1 + gx#expander-context::t + '#f)))) + (let ((_mod-rt19896_ (string-append _mod-str19894_ '"__rt"))) + (let ((_mod-main19898_ + (gxc#find-runtime-symbol _ctx19869_ 'main))) (let () (begin (write '(##namespace (""))) (newline) (write (cons '_gx#start! - (cons _mod-rt19191_ + (cons _mod-rt19896_ (cons (cons 'quote - (cons _mod-main19193_ + (cons _mod-main19898_ '())) '())))) (newline))))))))) - (let ((_compile-stub19168_ - (lambda (_output-scm19175_ _output-bin19176_) - (let ((_init-stub19178_ + (let ((_compile-stub19873_ + (lambda (_output-scm19880_ _output-bin19881_) + (let ((_init-stub19883_ (path-expand '"lib/gx-init-exe.scm" (getenv '"GERBIL_HOME")))) - (let ((_gsc-args19180_ + (let ((_gsc-args19885_ (cons '"-exe" (cons '"-o" - (cons _output-bin19176_ - (cons _init-stub19178_ - (cons _output-scm19175_ + (cons _output-bin19881_ + (cons _init-stub19883_ + (cons _output-scm19880_ '()))))))) - (let ((_g19267_ + (let ((_g19972_ (gxc#verbose '"invoke gsc " - (cons 'gsc _gsc-args19180_)))) - (let ((_proc19183_ + (cons 'gsc _gsc-args19885_)))) + (let ((_proc19888_ (open-process (cons 'path: (cons '"gsc" (cons 'arguments: - (cons _gsc-args19180_ + (cons _gsc-args19885_ (cons 'stdout-redirection: (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_status19185_ (process-status _proc19183_))) + (let ((_status19890_ (process-status _proc19888_))) (let () - (if (zero? _status19185_) + (if (zero? _status19890_) '#!void (gxc#raise-compile-error '"Compilation error; gsc exit with nonzero status" - _output-scm19175_ - _output-bin19176_ - _status19185_))))))))))) - (let ((_output-bin19170_ - (gxc#compile-exe-output-file _ctx19164_ _opts19165_))) - (let ((_output-scm19172_ - (string-append _output-bin19170_ '".scm"))) + _output-scm19880_ + _output-bin19881_ + _status19890_))))))))))) + (let ((_output-bin19875_ + (gxc#compile-exe-output-file _ctx19869_ _opts19870_))) + (let ((_output-scm19877_ + (string-append _output-bin19875_ '".scm"))) (let () (begin - (with-output-to-file _output-scm19172_ _generate-stub19167_) + (with-output-to-file _output-scm19877_ _generate-stub19872_) (if (gxc#current-compile-invoke-gsc) - (_compile-stub19168_ _output-scm19172_ _output-bin19170_) + (_compile-stub19873_ _output-scm19877_ _output-bin19875_) '#!void) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm19172_)))))))))) + (delete-file _output-scm19877_)))))))))) (define gxc#compile-exe-static-module - (lambda (_ctx19122_ _opts19123_) - (let ((_generate-stub19125_ + (lambda (_ctx19827_ _opts19828_) + (let ((_generate-stub19830_ (lambda () - (let ((_mod-main19162_ - (gxc#find-runtime-symbol _ctx19122_ 'main))) + (let ((_mod-main19867_ + (gxc#find-runtime-symbol _ctx19827_ 'main))) (begin (write '(##namespace (""))) (newline) (write (cons 'apply - (cons _mod-main19162_ + (cons _mod-main19867_ (cons (cons 'cdr (cons (cons 'command-line '()) '())) '())))) (newline)))))) - (let ((_compile-stub19126_ - (lambda (_output-scm19133_ _output-bin19134_) - (let ((_gx-gambc019136_ + (let ((_compile-stub19831_ + (lambda (_output-scm19838_ _output-bin19839_) + (let ((_gx-gambc019841_ (path-expand '"lib/static/gx-gambc0.scm" (getenv '"GERBIL_HOME")))) - (let ((_gx-gambc-macros19138_ + (let ((_gx-gambc-macros19843_ (path-expand '"lib/static/gx-gambc#.scm" (getenv '"GERBIL_HOME")))) - (let ((_include-gx-gambc-macros19140_ + (let ((_include-gx-gambc-macros19845_ (string-append '"(include \"" - _gx-gambc-macros19138_ + _gx-gambc-macros19843_ '"\")"))) - (let ((_bin-scm19142_ - (gxc#find-static-module-file _ctx19122_))) - (let ((_deps19144_ - (gxc#find-runtime-module-deps _ctx19122_))) - (let ((_deps19146_ + (let ((_bin-scm19847_ + (gxc#find-static-module-file _ctx19827_))) + (let ((_deps19849_ + (gxc#find-runtime-module-deps _ctx19827_))) + (let ((_deps19851_ (map gxc#find-static-module-file - _deps19144_))) - (let ((_deps19151_ - (filter (lambda (_$obj19148_) + _deps19849_))) + (let ((_deps19856_ + (filter (lambda (_$obj19853_) (not (gxc#file-empty? - _$obj19148_))) - _deps19146_))) - (let ((_gsc-args19153_ + _$obj19853_))) + _deps19851_))) + (let ((_gsc-args19858_ (cons '"-exe" (cons '"-o" - (cons _output-bin19134_ + (cons _output-bin19839_ (cons '"-e" - (cons _include-gx-gambc-macros19140_ + (cons _include-gx-gambc-macros19845_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _gx-gambc019136_ + (cons _gx-gambc019841_ (foldr1 cons - (cons _bin-scm19142_ - (cons _output-scm19133_ '())) - _deps19151_))))))))) + (cons _bin-scm19847_ + (cons _output-scm19838_ '())) + _deps19856_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g19268_ + (let ((_g19973_ (gxc#verbose '"invoke gsc " - (cons 'gsc _gsc-args19153_)))) - (let ((_proc19156_ + (cons 'gsc _gsc-args19858_)))) + (let ((_proc19861_ (open-process (cons 'path: (cons '"gsc" (cons 'arguments: - (cons _gsc-args19153_ + (cons _gsc-args19858_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'stdout-redirection: (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_status19158_ - (process-status _proc19156_))) + (let ((_status19863_ + (process-status _proc19861_))) (let () - (if (zero? _status19158_) + (if (zero? _status19863_) '#!void (gxc#raise-compile-error '"Compilation error; gsc exit with nonzero status" - _output-scm19133_ - _output-bin19134_ - _status19158_))))))))))))))))) - (let ((_output-bin19128_ - (gxc#compile-exe-output-file _ctx19122_ _opts19123_))) - (let ((_output-scm19130_ - (string-append _output-bin19128_ '".scm"))) + _output-scm19838_ + _output-bin19839_ + _status19863_))))))))))))))))) + (let ((_output-bin19833_ + (gxc#compile-exe-output-file _ctx19827_ _opts19828_))) + (let ((_output-scm19835_ + (string-append _output-bin19833_ '".scm"))) (let () (begin - (with-output-to-file _output-scm19130_ _generate-stub19125_) + (with-output-to-file _output-scm19835_ _generate-stub19830_) (if (gxc#current-compile-invoke-gsc) - (_compile-stub19126_ _output-scm19130_ _output-bin19128_) + (_compile-stub19831_ _output-scm19835_ _output-bin19833_) '#!void) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm19130_)))))))))) + (delete-file _output-scm19835_)))))))))) (define gxc#find-export-binding - (lambda (_ctx19072_ _id19073_) - (let ((_$e19119_ - (find (lambda (_e1907419076_) - (let ((_g1907819088_ _e1907419076_)) - (let ((_E1908119092_ + (lambda (_ctx19777_ _id19778_) + (let ((_$e19824_ + (find (lambda (_e1977919781_) + (let ((_g1978319793_ _e1977919781_)) + (let ((_E1978619797_ (lambda () - (error '"No clause matching" _g1907819088_)))) - (let ((_else1908019096_ (lambda () '#f))) - (let ((_K1908219100_ (lambda () '#t))) + (error '"No clause matching" _g1978319793_)))) + (let ((_else1978519801_ (lambda () '#f))) + (let ((_K1978719805_ (lambda () '#t))) (if (direct-struct-instance? gx#module-export::t - _g1907819088_) - (let ((_e1908319103_ - (##vector-ref _g1907819088_ '1))) - (let ((_e1908419106_ - (##vector-ref _g1907819088_ '2))) - (let ((_e1908519109_ - (##vector-ref _g1907819088_ '3))) - (if (##eq? _e1908519109_ '0) - (let ((_e1908619112_ + _g1978319793_) + (let ((_e1978819808_ + (##vector-ref _g1978319793_ '1))) + (let ((_e1978919811_ + (##vector-ref _g1978319793_ '2))) + (let ((_e1979019814_ + (##vector-ref _g1978319793_ '3))) + (if (##eq? _e1979019814_ '0) + (let ((_e1979119817_ (##vector-ref - _g1907819088_ + _g1978319793_ '4))) - (if ((lambda (_g1911419116_) - (eq? _g1911419116_ - _id19073_)) - _e1908619112_) - (_K1908219100_) - (_else1908019096_))) - (_else1908019096_))))) - (_else1908019096_))))))) - (gx#module-context-export _ctx19072_)))) - (if _$e19119_ (gx#core-resolve-module-export _$e19119_) '#f)))) + (if ((lambda (_g1981919821_) + (eq? _g1981919821_ + _id19778_)) + _e1979119817_) + (_K1978719805_) + (_else1978519801_))) + (_else1978519801_))))) + (_else1978519801_))))))) + (##structure-ref _ctx19777_ '9 gx#module-context::t '#f)))) + (if _$e19824_ (gx#core-resolve-module-export _$e19824_) '#f)))) (define gxc#find-runtime-symbol - (lambda (_ctx19064_ _id19065_) - (let ((_$e19067_ (gxc#find-export-binding _ctx19064_ _id19065_))) - (if _$e19067_ - ((lambda (_bind19070_) + (lambda (_ctx19769_ _id19770_) + (let ((_$e19772_ (gxc#find-export-binding _ctx19769_ _id19770_))) + (if _$e19772_ + ((lambda (_bind19775_) (begin - (if (gx#runtime-binding? _bind19070_) + (if (##structure-instance-of? + _bind19775_ + 'gx#runtime-binding::t) '#!void (gxc#raise-compile-error '"export is not a runtime binding" - _id19065_)) - (gx#binding-id _bind19070_))) - _$e19067_) + _id19770_)) + (##structure-ref _bind19775_ '1 gx#binding::t '#f))) + _$e19772_) (gxc#raise-compile-error '"module does not export symbol" - (gx#expander-context-id _ctx19064_) - _id19065_))))) + (##structure-ref _ctx19769_ '1 gx#expander-context::t '#f) + _id19770_))))) (define gxc#find-runtime-module-deps - (lambda (_ctx19002_) - (let ((_ht19004_ (make-hash-table-eq))) - (letrec ((_find-deps19005_ - (lambda (_rest19012_ _deps19013_) - (let ((_rest1901419022_ _rest19012_)) - (let ((_E1901719026_ + (lambda (_ctx19707_) + (let ((_ht19709_ (make-hash-table-eq))) + (letrec ((_find-deps19710_ + (lambda (_rest19717_ _deps19718_) + (let ((_rest1971919727_ _rest19717_)) + (let ((_E1972219731_ (lambda () (error '"No clause matching" - _rest1901419022_)))) - (let ((_else1901619030_ (lambda () _deps19013_))) - (let ((_K1901819052_ - (lambda (_rest19033_ _hd19034_) - (if (gx#module-context? _hd19034_) - (let ((_id19036_ - (gx#expander-context-id - _hd19034_)) - (_imports19037_ - (gx#module-context-import - _hd19034_))) + _rest1971919727_)))) + (let ((_else1972119735_ (lambda () _deps19718_))) + (let ((_K1972319757_ + (lambda (_rest19738_ _hd19739_) + (if (##structure-instance-of? + _hd19739_ + 'gx#module-context::t) + (let ((_id19741_ + (##structure-ref + _hd19739_ + '1 + gx#expander-context::t + '#f)) + (_imports19742_ + (##structure-ref + _hd19739_ + '8 + gx#module-context::t + '#f))) (if (table-ref - _ht19004_ - _id19036_ + _ht19709_ + _id19741_ '#f) - (_find-deps19005_ - _rest19033_ - _deps19013_) - (let ((_$e19039_ - (gx#core-context-prelude - _hd19034_))) - (if _$e19039_ - ((lambda (_pre19042_) - (begin - (table-set! - _ht19004_ - _id19036_ - _hd19034_) - (let ((_xdeps19044_ - (_find-deps19005_ - (cons _pre19042_ + (_find-deps19710_ + _rest19738_ + _deps19718_) + (let ((_$e19744_ + (gx#core-context-prelude__opt-lambda10989 + _hd19739_))) + (if _$e19744_ + ((lambda (_pre19747_) + (let ((_xdeps19749_ + (_find-deps19710_ + (cons _pre19747_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _imports19037_) - _deps19013_))) - (_find-deps19005_ - _rest19033_ - (cons _hd19034_ _xdeps19044_))))) + _imports19742_) + _deps19718_))) + (begin + (table-set! _ht19709_ _id19741_ _hd19739_) + (_find-deps19710_ + _rest19738_ + (cons _hd19739_ _xdeps19749_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e19039_) - (begin - (table-set! - _ht19004_ - _id19036_ - _hd19034_) - (let ((_xdeps19046_ - (_find-deps19005_ - _imports19037_ - _deps19013_))) - (_find-deps19005_ - _rest19033_ - (cons _hd19034_ - _xdeps19046_)))))))) - (if (gx#prelude-context? _hd19034_) - (let ((_id19048_ - (gx#expander-context-id - _hd19034_))) + _$e19744_) + (let ((_xdeps19751_ + (_find-deps19710_ + _imports19742_ + _deps19718_))) + (begin + (table-set! + _ht19709_ + _id19741_ + _hd19739_) + (_find-deps19710_ + _rest19738_ + (cons _hd19739_ + _xdeps19751_)))))))) + (if (##structure-instance-of? + _hd19739_ + 'gx#prelude-context::t) + (let ((_id19753_ + (##structure-ref + _hd19739_ + '1 + gx#expander-context::t + '#f))) (if (table-ref - _ht19004_ - _id19048_ + _ht19709_ + _id19753_ '#f) - (_find-deps19005_ - _rest19033_ - _deps19013_) - (begin - (table-set! - _ht19004_ - _id19048_ - _hd19034_) - (let ((_xdeps19050_ - (_find-deps19005_ - (gx#prelude-context-import - _hd19034_) - _deps19013_))) - (_find-deps19005_ - _rest19033_ - (cons _hd19034_ - _xdeps19050_)))))) - (if (gx#module-import? _hd19034_) - (if (fxzero? (gx#module-import-phi - _hd19034_)) - (_find-deps19005_ - (cons (gx#module-import-source - _hd19034_) - _rest19033_) - _deps19013_) - (_find-deps19005_ - _rest19033_ - _deps19013_)) - (if (gx#module-export? - _hd19034_) - (_find-deps19005_ - (cons (gx#module-export-context - _hd19034_) - _rest19033_) - _deps19013_) - (if (gx#import-set? - _hd19034_) - (if (fxzero? (gx#module-import-phi + (_find-deps19710_ + _rest19738_ + _deps19718_) + (let ((_xdeps19755_ + (_find-deps19710_ + (##structure-ref + _hd19739_ + '7 + gx#prelude-context::t + '#f) + _deps19718_))) + (if (table-ref + _ht19709_ + _id19753_ + '#f) + (_find-deps19710_ + _rest19738_ + _xdeps19755_) + (begin + (table-set! + _ht19709_ + _id19753_ + _hd19739_) + (_find-deps19710_ + _rest19738_ + (cons _hd19739_ + _xdeps19755_))))))) + (if (##structure-direct-instance-of? + _hd19739_ + 'gx#module-import::t) + (if (fxzero? (##structure-ref + _hd19739_ + '3 + gx#module-import::t + '#f)) + (_find-deps19710_ + (cons (##structure-ref + _hd19739_ + '1 + gx#module-import::t + '#f) + _rest19738_) + _deps19718_) + (_find-deps19710_ + _rest19738_ + _deps19718_)) + (if (##structure-direct-instance-of? + _hd19739_ + 'gx#module-export::t) + (_find-deps19710_ + (cons (##structure-ref + _hd19739_ + '1 + gx#module-export::t + '#f) + _rest19738_) + _deps19718_) + (if (##structure-direct-instance-of? + _hd19739_ + 'gx#import-set::t) + (if (fxzero? (##structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd19034_)) - (_find-deps19005_ - (cons (gx#import-set-source _hd19034_) _rest19033_) - _deps19013_) - (_find-deps19005_ _rest19033_ _deps19013_)) - (error '"Unexpected module import" _hd19034_))))))))) + _hd19739_ + '3 + gx#module-import::t + '#f)) + (_find-deps19710_ + (cons (##structure-ref _hd19739_ '1 gx#import-set::t '#f) + _rest19738_) + _deps19718_) + (_find-deps19710_ _rest19738_ _deps19718_)) + (error '"Unexpected module import" _hd19739_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _rest1901419022_) - (let ((_hd1901919055_ (##car _rest1901419022_)) - (_tl1902019057_ - (##cdr _rest1901419022_))) - (let ((_hd19060_ _hd1901919055_)) - (let ((_rest19062_ _tl1902019057_)) - (_K1901819052_ _rest19062_ _hd19060_)))) - (_else1901619030_))))))))) - (reverse (_find-deps19005_ - (let ((_$e19007_ (gx#core-context-prelude _ctx19002_))) - (if _$e19007_ - ((lambda (_pre19010_) - (cons _pre19010_ - (gx#module-context-import _ctx19002_))) - _$e19007_) - (gx#module-context-import _ctx19002_))) - '())))))) + (if (##pair? _rest1971919727_) + (let ((_hd1972419760_ (##car _rest1971919727_)) + (_tl1972519762_ + (##cdr _rest1971919727_))) + (let ((_hd19765_ _hd1972419760_)) + (let ((_rest19767_ _tl1972519762_)) + (_K1972319757_ _rest19767_ _hd19765_)))) + (_else1972119735_))))))))) + (reverse (filter gx#expander-context-id + (_find-deps19710_ + (let ((_$e19712_ + (gx#core-context-prelude__opt-lambda10989 + _ctx19707_))) + (if _$e19712_ + ((lambda (_pre19715_) + (cons _pre19715_ + (##structure-ref + _ctx19707_ + '8 + gx#module-context::t + '#f))) + _$e19712_) + (##structure-ref + _ctx19707_ + '8 + gx#module-context::t + '#f))) + '()))))))) (define gxc#find-static-module-file - (lambda (_ctx18941_) - (let ((_scm18943_ + (lambda (_ctx19646_) + (let ((_scm19648_ (string-append - (gxc#static-module-name (gx#expander-context-id _ctx18941_)) + (gxc#static-module-name + (##structure-ref _ctx19646_ '1 gx#expander-context::t '#f)) '".scm"))) - (let ((_dirs18945_ (gx#current-expander-module-library-path))) - (let ((_dirs18954_ - (let ((_$e18947_ (gxc#current-compile-output-dir))) - (if _$e18947_ - ((lambda (_g1894918951_) - (cons _g1894918951_ _dirs18945_)) - _$e18947_) - _dirs18945_)))) - (let ((_dirs18960_ - (map (lambda (_g1895518957_) - (path-expand '"static" _g1895518957_)) - _dirs18954_))) + (let ((_dirs19650_ (gx#current-expander-module-library-path))) + (let ((_dirs19659_ + (let ((_$e19652_ (gxc#current-compile-output-dir))) + (if _$e19652_ + ((lambda (_g1965419656_) + (cons _g1965419656_ _dirs19650_)) + _$e19652_) + _dirs19650_)))) + (let ((_dirs19665_ + (map (lambda (_g1966019662_) + (path-expand '"static" _g1966019662_)) + _dirs19659_))) (let () - ((letrec ((_lp18963_ - (lambda (_rest18965_) - (let ((_rest1896618974_ _rest18965_)) - (let ((_E1896918978_ + ((letrec ((_lp19668_ + (lambda (_rest19670_) + (let ((_rest1967119679_ _rest19670_)) + (let ((_E1967419683_ (lambda () (error '"No clause matching" - _rest1896618974_)))) - (let ((_else1896818982_ + _rest1967119679_)))) + (let ((_else1967319687_ (lambda () (gxc#raise-compile-error '"cannot find static module" - (gx#expander-context-id _ctx18941_) - _scm18943_)))) - (let ((_K1897018990_ - (lambda (_rest18985_ _dir18986_) - (let ((_path18988_ + (##structure-ref + _ctx19646_ + '1 + gx#expander-context::t + '#f) + _scm19648_)))) + (let ((_K1967519695_ + (lambda (_rest19690_ _dir19691_) + (let ((_path19693_ (path-expand - _scm18943_ - _dir18986_))) - (if (file-exists? _path18988_) - _path18988_ - (_lp18963_ _rest18985_)))))) - (if (##pair? _rest1896618974_) - (let ((_hd1897118993_ - (##car _rest1896618974_)) - (_tl1897218995_ - (##cdr _rest1896618974_))) - (let ((_dir18998_ _hd1897118993_)) - (let ((_rest19000_ - _tl1897218995_)) - (_K1897018990_ - _rest19000_ - _dir18998_)))) - (_else1896818982_))))))))) - _lp18963_) - _dirs18960_)))))))) + _scm19648_ + _dir19691_))) + (if (file-exists? _path19693_) + _path19693_ + (_lp19668_ _rest19690_)))))) + (if (##pair? _rest1967119679_) + (let ((_hd1967619698_ + (##car _rest1967119679_)) + (_tl1967719700_ + (##cdr _rest1967119679_))) + (let ((_dir19703_ _hd1967619698_)) + (let ((_rest19705_ + _tl1967719700_)) + (_K1967519695_ + _rest19705_ + _dir19703_)))) + (_else1967319687_))))))))) + _lp19668_) + _dirs19665_)))))))) (define gxc#file-empty? - (lambda (_path18939_) - (zero? (file-info-size (file-info _path18939_ '#t))))) + (lambda (_path19644_) + (zero? (file-info-size (file-info _path19644_ '#t))))) (define gxc#compile-top-module - (lambda (_ctx18936_) + (lambda (_ctx19641_) (call-with-parameters (lambda () (begin - (gxc#verbose '"compile " (gx#expander-context-id _ctx18936_)) + (gxc#verbose + '"compile " + (##structure-ref _ctx19641_ '1 gx#expander-context::t '#f)) (if (gxc#current-compile-optimize) - (gxc#optimize! _ctx18936_) + (gxc#optimize! _ctx19641_) '#!void) - (gxc#collect-bindings _ctx18936_) - (gxc#compile-runtime-code _ctx18936_) - (gxc#compile-meta-code _ctx18936_) + (gxc#collect-bindings _ctx19641_) + (gxc#compile-runtime-code _ctx19641_) + (gxc#compile-meta-code _ctx19641_) (if (if (gxc#current-compile-optimize) (gxc#current-compile-generate-ssxi) '#f) - (gxc#compile-ssxi-code _ctx18936_) + (gxc#compile-ssxi-code _ctx19641_) '#!void))) gx#current-expander-context - _ctx18936_ + _ctx19641_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - (let ((__obj19259 (make-object gxc#symbol-table::t '2))) - (begin (gxc#symbol-table:::init! __obj19259) __obj19259)) + (let ((__obj19964 (make-object gxc#symbol-table::t '2))) + (begin (gxc#symbol-table:::init! __obj19964) __obj19964)) gxc#current-compile-runtime-sections (make-hash-table-eq)))) (define gxc#collect-bindings - (lambda (_ctx18934_) - (gxc#apply-collect-bindings (gx#module-context-code _ctx18934_)))) + (lambda (_ctx19639_) + (gxc#apply-collect-bindings + (##structure-ref _ctx19639_ '11 gx#module-context::t '#f)))) (define gxc#compile-runtime-code - (lambda (_ctx18893_) - (let ((_generate-runtime-code18896_ - (lambda (_ctx18911_ _code18912_) - (let ((_runtime-code18915_ + (lambda (_ctx19598_) + (let ((_generate-runtime-code19601_ + (lambda (_ctx19616_ _code19617_) + (let ((_runtime-code19620_ (call-with-parameters - (lambda () (gxc#apply-generate-runtime _code18912_)) + (lambda () (gxc#apply-generate-runtime _code19617_)) gx#current-expander-context - _ctx18911_))) - (let ((_scm018917_ - (gxc#compile-output-file _ctx18911_ '0 '".scm"))) + _ctx19616_))) + (let ((_scm019622_ + (gxc#compile-output-file _ctx19616_ '0 '".scm"))) (let () (if (gxc#current-compile-static) - (let ((_scms18920_ - (gxc#compile-static-output-file _ctx18911_))) + (let ((_scms19625_ + (gxc#compile-static-output-file _ctx19616_))) (begin (call-with-parameters (lambda () (gxc#compile-scm-file - _scm018917_ - _runtime-code18915_)) + _scm019622_ + _runtime-code19620_)) gxc#current-compile-keep-scm '#t) - (if (file-exists? _scms18920_) - (delete-file _scms18920_) + (if (file-exists? _scms19625_) + (delete-file _scms19625_) '#!void) - (copy-file _scm018917_ _scms18920_) + (copy-file _scm019622_ _scms19625_) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _scm018917_)))) + (delete-file _scm019622_)))) (gxc#compile-scm-file - _scm018917_ - _runtime-code18915_)))))))) - (let ((_generate-loader-code18897_ - (lambda (_ctx18901_ _code18902_ _rt18903_) - (let ((_loader-code18906_ + _scm019622_ + _runtime-code19620_)))))))) + (let ((_generate-loader-code19602_ + (lambda (_ctx19606_ _code19607_ _rt19608_) + (let ((_loader-code19611_ (call-with-parameters - (lambda () (gxc#apply-generate-loader _code18902_)) + (lambda () (gxc#apply-generate-loader _code19607_)) gx#current-expander-context - _ctx18901_))) - (let ((_loader-code18908_ - (if _rt18903_ + _ctx19606_))) + (let ((_loader-code19613_ + (if _rt19608_ (cons 'begin - (cons _loader-code18906_ + (cons _loader-code19611_ (cons (cons 'load-module - (cons _rt18903_ '())) + (cons _rt19608_ '())) '()))) - _loader-code18906_))) + _loader-code19611_))) (let () (gxc#compile-scm-file - (gxc#compile-output-file _ctx18901_ 'rt '".scm") - _loader-code18908_))))))) - (let ((_compile118895_ - (lambda (_ctx18923_) - (let ((_code18925_ (gx#module-context-code _ctx18923_))) - (let ((_rt18929_ - (if (gxc#apply-find-runtime-code _code18925_) - (let ((_idstr18927_ + (gxc#compile-output-file _ctx19606_ 'rt '".scm") + _loader-code19613_))))))) + (let ((_compile119600_ + (lambda (_ctx19628_) + (let ((_code19630_ + (##structure-ref + _ctx19628_ + '11 + gx#module-context::t + '#f))) + (let ((_rt19634_ + (if (gxc#apply-find-runtime-code _code19630_) + (let ((_idstr19632_ (symbol->string - (gx#expander-context-id _ctx18923_)))) - (string-append _idstr18927_ '"__0")) + (##structure-ref + _ctx19628_ + '1 + gx#expander-context::t + '#f)))) + (string-append _idstr19632_ '"__0")) '#f))) (let () (begin - (if _rt18929_ + (if _rt19634_ (begin (table-set! (gxc#current-compile-runtime-sections) - _ctx18923_ - _rt18929_) - (_generate-runtime-code18896_ - _ctx18923_ - _code18925_)) + _ctx19628_ + _rt19634_) + (_generate-runtime-code19601_ + _ctx19628_ + _code19630_)) (if (gxc#current-compile-static) - (let ((_path18932_ + (let ((_path19637_ (gxc#compile-static-output-file - _ctx18923_))) + _ctx19628_))) (with-output-to-file (cons 'path: - (cons _path18932_ + (cons _path19637_ (cons 'permissions: (cons '420 '())))) void)) '#!void)) - (_generate-loader-code18897_ - _ctx18923_ - _code18925_ - _rt18929_)))))))) - (let ((_all-modules18899_ - (cons _ctx18893_ (gxc#lift-nested-modules _ctx18893_)))) - (for-each _compile118895_ _all-modules18899_))))))) + (_generate-loader-code19602_ + _ctx19628_ + _code19630_ + _rt19634_)))))))) + (let ((_all-modules19604_ + (cons _ctx19598_ (gxc#lift-nested-modules _ctx19598_)))) + (for-each _compile119600_ _all-modules19604_))))))) (define gxc#compile-meta-code - (lambda (_ctx18795_) - (let ((_compile-ssi18797_ - (lambda (_code18863_) - (let ((_path18865_ - (gxc#compile-output-file _ctx18795_ '#f '".ssi"))) - (let ((_prelude18876_ - (let ((_super18867_ (gx#phi-context-super _ctx18795_))) - (let ((_$e18869_ - (gx#expander-context-id _super18867_))) - (if _$e18869_ - ((lambda (_g1887118873_) - (make-symbol '":" _g1887118873_)) - _$e18869_) + (lambda (_ctx19500_) + (let ((_compile-ssi19502_ + (lambda (_code19568_) + (let ((_path19570_ + (gxc#compile-output-file _ctx19500_ '#f '".ssi"))) + (let ((_prelude19581_ + (let ((_super19572_ + (##structure-ref + _ctx19500_ + '3 + gx#phi-context::t + '#f))) + (let ((_$e19574_ + (##structure-ref + _super19572_ + '1 + gx#expander-context::t + '#f))) + (if _$e19574_ + ((lambda (_g1957619578_) + (make-symbol '":" _g1957619578_)) + _$e19574_) ':))))) - (let ((_ns18878_ (gx#module-context-ns _ctx18795_))) - (let ((_idstr18880_ + (let ((_ns19583_ + (##structure-ref + _ctx19500_ + '6 + gx#module-context::t + '#f))) + (let ((_idstr19585_ (symbol->string - (gx#expander-context-id _ctx18795_)))) - (let ((_pkg18887_ - (let ((_$e18882_ - (string-rindex _idstr18880_ '#\/))) - (if _$e18882_ - ((lambda (_x18885_) + (##structure-ref + _ctx19500_ + '1 + gx#expander-context::t + '#f)))) + (let ((_pkg19592_ + (let ((_$e19587_ + (string-rindex _idstr19585_ '#\/))) + (if _$e19587_ + ((lambda (_x19590_) (string->symbol - (substring _idstr18880_ '0 _x18885_))) - _$e18882_) + (substring _idstr19585_ '0 _x19590_))) + _$e19587_) '#f)))) - (let ((_rt18889_ + (let ((_rt19594_ (table-ref (gxc#current-compile-runtime-sections) - _ctx18795_ + _ctx19500_ '#f))) (let () (begin - (gxc#verbose '"compile " _path18865_) + (gxc#verbose '"compile " _path19570_) (with-output-to-file (cons 'path: - (cons _path18865_ + (cons _path19570_ (cons 'permissions: (cons '420 '())))) (lambda () (begin - (displayln '"prelude:" '" " _prelude18876_) - (if _pkg18887_ - (displayln '"package:" '" " _pkg18887_) + (displayln '"prelude:" '" " _prelude19581_) + (if _pkg19592_ + (displayln '"package:" '" " _pkg19592_) '#!void) - (displayln '"namespace:" '" " _ns18878_) + (displayln '"namespace:" '" " _ns19583_) (newline) - (pretty-print _code18863_) - (if _rt18889_ + (pretty-print _code19568_) + (if _rt19594_ (pretty-print (cons '%#call (cons (cons '%#ref @@ -719,282 +810,307 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _rt18889_ '())) + (cons _rt19594_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))))))))))))))) - (let ((_compile-phi18798_ - (lambda (_part18803_) - (let ((_part1880418817_ _part18803_)) - (let ((_E1880618821_ + (let ((_compile-phi19503_ + (lambda (_part19508_) + (let ((_part1950919522_ _part19508_)) + (let ((_E1951119526_ (lambda () - (error '"No clause matching" _part1880418817_)))) - (let ((_K1880718832_ - (lambda (_code18824_ - _n18825_ - _phi18826_ - _phi-ctx18827_) - (let ((_code18830_ + (error '"No clause matching" _part1950919522_)))) + (let ((_K1951219537_ + (lambda (_code19529_ + _n19530_ + _phi19531_ + _phi-ctx19532_) + (let ((_code19535_ (call-with-parameters (lambda () - (gxc#generate-runtime-phi _code18824_)) + (gxc#generate-runtime-phi _code19529_)) gx#current-expander-context - _phi-ctx18827_ + _phi-ctx19532_ gx#current-expander-phi - _phi18826_))) + _phi19531_))) (gxc#compile-scm-file (gxc#compile-output-file - _ctx18795_ - _n18825_ + _ctx19500_ + _n19530_ '".scm") - _code18830_))))) - (if (##pair? _part1880418817_) - (let ((_hd1880818835_ (##car _part1880418817_)) - (_tl1880918837_ (##cdr _part1880418817_))) - (let ((_phi-ctx18840_ _hd1880818835_)) - (if (##pair? _tl1880918837_) - (let ((_hd1881018842_ - (##car _tl1880918837_)) - (_tl1881118844_ - (##cdr _tl1880918837_))) - (let ((_phi18847_ _hd1881018842_)) - (if (##pair? _tl1881118844_) - (let ((_hd1881218849_ - (##car _tl1881118844_)) - (_tl1881318851_ - (##cdr _tl1881118844_))) - (let ((_n18854_ _hd1881218849_)) - (if (##pair? _tl1881318851_) - (let ((_hd1881418856_ - (##car _tl1881318851_)) - (_tl1881518858_ - (##cdr _tl1881318851_))) - (let ((_code18861_ - _hd1881418856_)) - (if (##null? _tl1881518858_) - (_K1880718832_ - _code18861_ - _n18854_ - _phi18847_ - _phi-ctx18840_) - (_E1880618821_)))) - (_E1880618821_)))) - (_E1880618821_)))) - (_E1880618821_)))) - (_E1880618821_)))))))) - (let ((_g19269_ (gxc#generate-meta-code _ctx18795_))) + _code19535_))))) + (if (##pair? _part1950919522_) + (let ((_hd1951319540_ (##car _part1950919522_)) + (_tl1951419542_ (##cdr _part1950919522_))) + (let ((_phi-ctx19545_ _hd1951319540_)) + (if (##pair? _tl1951419542_) + (let ((_hd1951519547_ + (##car _tl1951419542_)) + (_tl1951619549_ + (##cdr _tl1951419542_))) + (let ((_phi19552_ _hd1951519547_)) + (if (##pair? _tl1951619549_) + (let ((_hd1951719554_ + (##car _tl1951619549_)) + (_tl1951819556_ + (##cdr _tl1951619549_))) + (let ((_n19559_ _hd1951719554_)) + (if (##pair? _tl1951819556_) + (let ((_hd1951919561_ + (##car _tl1951819556_)) + (_tl1952019563_ + (##cdr _tl1951819556_))) + (let ((_code19566_ + _hd1951919561_)) + (if (##null? _tl1952019563_) + (_K1951219537_ + _code19566_ + _n19559_ + _phi19552_ + _phi-ctx19545_) + (_E1951119526_)))) + (_E1951119526_)))) + (_E1951119526_)))) + (_E1951119526_)))) + (_E1951119526_)))))))) + (let ((_g19974_ (gxc#generate-meta-code _ctx19500_))) (begin - (let ((_g19270_ (values-count _g19269_))) - (if (not (fx= _g19270_ 2)) - (error "Context expects 2 values" _g19270_))) - (let ((_ssi-code18800_ (values-ref _g19269_ 0)) - (_phi-code18801_ (values-ref _g19269_ 1))) + (let ((_g19975_ (values-count _g19974_))) + (if (not (fx= _g19975_ 2)) + (error "Context expects 2 values" _g19975_))) + (let ((_ssi-code19505_ (values-ref _g19974_ 0)) + (_phi-code19506_ (values-ref _g19974_ 1))) (begin - (_compile-ssi18797_ _ssi-code18800_) - (for-each _compile-phi18798_ _phi-code18801_))))))))) + (_compile-ssi19502_ _ssi-code19505_) + (for-each _compile-phi19503_ _phi-code19506_))))))))) (define gxc#compile-ssxi-code - (lambda (_ctx18778_) - (let ((_path18780_ (gxc#compile-output-file _ctx18778_ '#f '".ssxi.ss"))) - (let ((_code18782_ - (gxc#apply-generate-ssxi (gx#module-context-code _ctx18778_)))) - (let ((_idstr18784_ - (symbol->string (gx#expander-context-id _ctx18778_)))) - (let ((_pkg18791_ - (let ((_$e18786_ (string-rindex _idstr18784_ '#\/))) - (if _$e18786_ - ((lambda (_x18789_) + (lambda (_ctx19483_) + (let ((_path19485_ (gxc#compile-output-file _ctx19483_ '#f '".ssxi.ss"))) + (let ((_code19487_ + (gxc#apply-generate-ssxi + (##structure-ref _ctx19483_ '11 gx#module-context::t '#f)))) + (let ((_idstr19489_ + (symbol->string + (##structure-ref _ctx19483_ '1 gx#expander-context::t '#f)))) + (let ((_pkg19496_ + (let ((_$e19491_ (string-rindex _idstr19489_ '#\/))) + (if _$e19491_ + ((lambda (_x19494_) (string->symbol - (substring _idstr18784_ '0 _x18789_))) - _$e18786_) + (substring _idstr19489_ '0 _x19494_))) + _$e19491_) '#f)))) (let () (begin - (gxc#verbose '"compile " _path18780_) + (gxc#verbose '"compile " _path19485_) (with-output-to-file (cons 'path: - (cons _path18780_ + (cons _path19485_ (cons 'permissions: (cons '420 '())))) (lambda () (begin (displayln '"prelude: :gerbil/compiler/ssxi") - (if _pkg18791_ - (displayln '"package: " _pkg18791_) + (if _pkg19496_ + (displayln '"package: " _pkg19496_) '#!void) (newline) - (pretty-print _code18782_)))))))))))) + (pretty-print _code19487_)))))))))))) (define gxc#generate-meta-code - (lambda (_ctx18771_) - (let ((_state18773_ - (let ((__obj19260 (make-object gxc#meta-state::t '4))) + (lambda (_ctx19476_) + (let ((_state19478_ + (let ((__obj19965 (make-object gxc#meta-state::t '4))) (begin - (gxc#meta-state:::init! __obj19260 _ctx18771_) - __obj19260)))) - (let ((_ssi-code18775_ + (gxc#meta-state:::init! __obj19965 _ctx19476_) + __obj19965)))) + (let ((_ssi-code19480_ (gxc#apply-generate-meta - (gx#module-context-code _ctx18771_) - _state18773_))) + (##structure-ref _ctx19476_ '11 gx#module-context::t '#f) + _state19478_))) (let () - (values _ssi-code18775_ (gxc#meta-state-end! _state18773_))))))) + (values _ssi-code19480_ (gxc#meta-state-end! _state19478_))))))) (define gxc#generate-runtime-phi - (lambda (_stx18764_) - (let ((_lifts18766_ (box '()))) + (lambda (_stx19469_) + (let ((_lifts19471_ (box '()))) (call-with-parameters (lambda () - (let ((_code18769_ (gxc#apply-generate-runtime-phi _stx18764_))) - (if (null? (unbox _lifts18766_)) - _code18769_ + (let ((_code19474_ (gxc#apply-generate-runtime-phi _stx19469_))) + (if (null? (unbox _lifts19471_)) + _code19474_ (cons 'begin (foldr1 cons - (cons _code18769_ '()) - (reverse (unbox _lifts18766_))))))) + (cons _code19474_ '()) + (reverse (unbox _lifts19471_))))))) gxc#current-compile-lift - _lifts18766_)))) + _lifts19471_)))) (define gxc#lift-nested-modules - (lambda (_ctx18760_) - (let ((_modules18762_ (box '()))) + (lambda (_ctx19465_) + (let ((_modules19467_ (box '()))) (begin (gxc#apply-lift-modules - (gx#module-context-code _ctx18760_) - _modules18762_) - (reverse (unbox _modules18762_)))))) + (##structure-ref _ctx19465_ '11 gx#module-context::t '#f) + _modules19467_) + (reverse (unbox _modules19467_)))))) (define gxc#compile-scm-file - (lambda (_path18756_ _code18757_) + (lambda (_path19461_ _code19462_) (begin - (gxc#verbose '"compile " _path18756_) + (gxc#verbose '"compile " _path19461_) (with-output-to-file - (cons 'path: (cons _path18756_ (cons 'permissions: (cons '420 '())))) + (cons 'path: (cons _path19461_ (cons 'permissions: (cons '420 '())))) (lambda () (begin (pretty-print '(declare (block) (standard-bindings) (extended-bindings))) - (pretty-print _code18757_)))) + (pretty-print _code19462_)))) (if (gxc#current-compile-invoke-gsc) - (gxc#gsc-compile-file _path18756_) + (gxc#gsc-compile-file _path19461_) '#!void) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _path18756_))))) + (delete-file _path19461_))))) (define gxc#gsc-compile-file - (lambda (_path18742_) - (let ((_gsc-args18749_ - (let ((_$e18744_ (gxc#current-compile-gsc-options))) - (if _$e18744_ - ((lambda (_opts18747_) - (foldr1 cons (cons _path18742_ '()) _opts18747_)) - _$e18744_) - (cons _path18742_ '()))))) - (let ((_proc18751_ + (lambda (_path19447_) + (let ((_gsc-args19454_ + (let ((_$e19449_ (gxc#current-compile-gsc-options))) + (if _$e19449_ + ((lambda (_opts19452_) + (foldr1 cons (cons _path19447_ '()) _opts19452_)) + _$e19449_) + (cons _path19447_ '()))))) + (let ((_proc19456_ (open-process (cons 'path: (cons '"gsc" (cons 'arguments: - (cons _gsc-args18749_ + (cons _gsc-args19454_ (cons 'stdout-redirection: (cons '#f '()))))))))) - (let ((_status18753_ (process-status _proc18751_))) + (let ((_status19458_ (process-status _proc19456_))) (let () - (if (zero? _status18753_) + (if (zero? _status19458_) '#!void (gxc#raise-compile-error '"Compilation error; gsc exit with nonzero status" - _path18742_ - _status18753_)))))))) + _path19447_ + _status19458_)))))))) (define gxc#compile-output-file - (lambda (_ctx18714_ _n18715_ _ext18716_) - (let ((_module-relative-path18718_ - (lambda (_ctx18740_) + (lambda (_ctx19419_ _n19420_ _ext19421_) + (let ((_module-relative-path19423_ + (lambda (_ctx19445_) (path-strip-directory - (symbol->string (gx#expander-context-id _ctx18740_)))))) - (let ((_module-source-directory18719_ - (lambda (_ctx18736_) + (symbol->string + (##structure-ref + _ctx19445_ + '1 + gx#expander-context::t + '#f)))))) + (let ((_module-source-directory19424_ + (lambda (_ctx19441_) (path-directory - (let ((_mpath18738_ (gx#module-context-path _ctx18736_))) - (if (string? _mpath18738_) - _mpath18738_ - (last _mpath18738_))))))) - (let ((_section-string18720_ - (lambda (_n18734_) - (if (number? _n18734_) - (number->string _n18734_) - (if (symbol? _n18734_) - (symbol->string _n18734_) - (if (string? _n18734_) - _n18734_ + (let ((_mpath19443_ + (##structure-ref + _ctx19441_ + '7 + gx#module-context::t + '#f))) + (if (string? _mpath19443_) + _mpath19443_ + (last _mpath19443_))))))) + (let ((_section-string19425_ + (lambda (_n19439_) + (if (number? _n19439_) + (number->string _n19439_) + (if (symbol? _n19439_) + (symbol->string _n19439_) + (if (string? _n19439_) + _n19439_ (gxc#raise-compile-error '"Unexpected section" - _n18734_))))))) - (let ((_file-name18721_ - (lambda (_path18732_) - (if _n18715_ + _n19439_))))))) + (let ((_file-name19426_ + (lambda (_path19437_) + (if _n19420_ (string-append - _path18732_ + _path19437_ '"__" - (_section-string18720_ _n18715_) - _ext18716_) - (string-append _path18732_ _ext18716_))))) - (let ((_file-path18722_ + (_section-string19425_ _n19420_) + _ext19421_) + (string-append _path19437_ _ext19421_))))) + (let ((_file-path19427_ (lambda () - (let ((_$e18727_ (gxc#current-compile-output-dir))) - (if _$e18727_ - ((lambda (_outdir18730_) + (let ((_$e19432_ (gxc#current-compile-output-dir))) + (if _$e19432_ + ((lambda (_outdir19435_) (path-expand - (_file-name18721_ + (_file-name19426_ (symbol->string - (gx#expander-context-id _ctx18714_))) - _outdir18730_)) - _$e18727_) + (##structure-ref + _ctx19419_ + '1 + gx#expander-context::t + '#f))) + _outdir19435_)) + _$e19432_) (path-expand - (_file-name18721_ - (_module-relative-path18718_ _ctx18714_)) - (_module-source-directory18719_ _ctx18714_))))))) - (let ((_path18724_ (_file-path18722_))) + (_file-name19426_ + (_module-relative-path19423_ _ctx19419_)) + (_module-source-directory19424_ _ctx19419_))))))) + (let ((_path19429_ (_file-path19427_))) (begin - (create-directory* (path-directory _path18724_)) - _path18724_))))))))) + (create-directory* (path-directory _path19429_)) + _path19429_))))))))) (define gxc#compile-static-output-file - (lambda (_ctx18697_) - (let ((_file-name18699_ - (lambda (_idstr18712_) - (string-append (gxc#static-module-name _idstr18712_) '".scm")))) - (let ((_file-path18700_ + (lambda (_ctx19402_) + (let ((_file-name19404_ + (lambda (_idstr19417_) + (string-append (gxc#static-module-name _idstr19417_) '".scm")))) + (let ((_file-path19405_ (lambda () - (let ((_file18705_ - (_file-name18699_ + (let ((_file19410_ + (_file-name19404_ (symbol->string - (gx#expander-context-id _ctx18697_))))) - (let ((_$e18707_ (gxc#current-compile-output-dir))) - (if _$e18707_ - ((lambda (_outdir18710_) + (##structure-ref + _ctx19402_ + '1 + gx#expander-context::t + '#f))))) + (let ((_$e19412_ (gxc#current-compile-output-dir))) + (if _$e19412_ + ((lambda (_outdir19415_) (path-expand - _file18705_ - (path-expand '"static" _outdir18710_))) - _$e18707_) - (path-expand _file18705_ '"static"))))))) - (let ((_path18702_ (_file-path18700_))) + _file19410_ + (path-expand '"static" _outdir19415_))) + _$e19412_) + (path-expand _file19410_ '"static"))))))) + (let ((_path19407_ (_file-path19405_))) (begin - (create-directory* (path-directory _path18702_)) - _path18702_)))))) + (create-directory* (path-directory _path19407_)) + _path19407_)))))) (define gxc#compile-exe-output-file - (lambda (_ctx18684_ _opts18685_) - (let ((_$e18687_ (pgetq 'output-file: _opts18685_))) - (if _$e18687_ - (values _$e18687_) - (let ((_mod-str18690_ - (symbol->string (gx#expander-context-id _ctx18684_)))) - (let ((_$e18692_ (string-rindex _mod-str18690_ '#\/))) - (if _$e18692_ - ((lambda (_ix18695_) + (lambda (_ctx19389_ _opts19390_) + (let ((_$e19392_ (pgetq 'output-file: _opts19390_))) + (if _$e19392_ + (values _$e19392_) + (let ((_mod-str19395_ + (symbol->string + (##structure-ref + _ctx19389_ + '1 + gx#expander-context::t + '#f)))) + (let ((_$e19397_ (string-rindex _mod-str19395_ '#\/))) + (if _$e19397_ + ((lambda (_ix19400_) (substring - _mod-str18690_ - (fx+ _ix18695_ '1) - (string-length _mod-str18690_))) - _$e18692_) - _mod-str18690_))))))) + _mod-str19395_ + (fx+ _ix19400_ '1) + (string-length _mod-str19395_))) + _$e19397_) + _mod-str19395_))))))) (define gxc#static-module-name - (lambda (_idstr18680_) - (if (string? _idstr18680_) - (let ((_strs18682_ (string-split _idstr18680_ '#\/))) - (string-join _strs18682_ '"__")) - (if (symbol? _idstr18680_) - (gxc#static-module-name (symbol->string _idstr18680_)) - (error '"Bad module id" _idstr18680_)))))) + (lambda (_idstr19385_) + (if (string? _idstr19385_) + (let ((_strs19387_ (string-split _idstr19385_ '#\/))) + (string-join _strs19387_ '"__")) + (if (symbol? _idstr19385_) + (gxc#static-module-name (symbol->string _idstr19385_)) + (error '"Bad module id" _idstr19385_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize.ssi b/src/bootstrap/gerbil/compiler/optimize.ssi index 17542a10e..f57cca1f3 100644 --- a/src/bootstrap/gerbil/compiler/optimize.ssi +++ b/src/bootstrap/gerbil/compiler/optimize.ssi @@ -124,8 +124,8 @@ namespace: gxc (%#define-syntax !case-lambda |gxc[:0:]#!case-lambda|) (%#define-runtime !struct-type:::init! gxc#!struct-type:::init!) (%#begin (%#define-runtime - !lambda:::init!__opt-lambda18322 - gxc#!lambda:::init!__opt-lambda18322) + !lambda:::init!__opt-lambda19025 + gxc#!lambda:::init!__opt-lambda19025) (%#begin (%#define-runtime !lambda:::init!__0 gxc#!lambda:::init!__0) @@ -140,8 +140,8 @@ namespace: gxc !struct-type-lookup-method gxc#!struct-type-lookup-method) (%#begin (%#define-runtime - optimizer-declare-type!__opt-lambda18289 - gxc#optimizer-declare-type!__opt-lambda18289) + optimizer-declare-type!__opt-lambda18992 + gxc#optimizer-declare-type!__opt-lambda18992) (%#begin (%#define-runtime optimizer-declare-type!__0 gxc#optimizer-declare-type!__0) @@ -149,8 +149,8 @@ namespace: gxc optimizer-declare-type! gxc#optimizer-declare-type!))) (%#begin (%#define-runtime - optimizer-declare-method!__opt-lambda18265 - gxc#optimizer-declare-method!__opt-lambda18265) + optimizer-declare-method!__opt-lambda18968 + gxc#optimizer-declare-method!__opt-lambda18968) (%#begin (%#define-runtime optimizer-declare-method!__0 gxc#optimizer-declare-method!__0) @@ -207,8 +207,8 @@ namespace: gxc (%#define-runtime case-lambda-expr? gxc#case-lambda-expr?) (%#define-runtime opt-lambda-expr? gxc#opt-lambda-expr?) (%#begin (%#define-runtime - lift-case-lambda-clauses__opt-lambda15438 - gxc#lift-case-lambda-clauses__opt-lambda15438) + lift-case-lambda-clauses__opt-lambda16141 + gxc#lift-case-lambda-clauses__opt-lambda16141) (%#begin (%#define-runtime lift-case-lambda-clauses__0 gxc#lift-case-lambda-clauses__0) diff --git a/src/bootstrap/gerbil/compiler/optimize.ssxi.ss b/src/bootstrap/gerbil/compiler/optimize.ssxi.ss index 1d086d60e..1e59f26c5 100644 --- a/src/bootstrap/gerbil/compiler/optimize.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/optimize.ssxi.ss @@ -111,30 +111,30 @@ package: gerbil/compiler (declare-method gxc#!struct-type::t :init! gxc#!struct-type:::init! #f) (begin (declare-type - gxc#!lambda:::init!__opt-lambda18322 + gxc#!lambda:::init!__opt-lambda19025 (@lambda 6 direct-struct-instance-init!)) (declare-type gxc#!lambda:::init! (@case-lambda (4 gxc#!lambda:::init!__0) (5 gxc#!lambda:::init!__1) - (6 gxc#!lambda:::init!__opt-lambda18322)))) + (6 gxc#!lambda:::init!__opt-lambda19025)))) (declare-method gxc#!lambda::t :init! gxc#!lambda:::init! #f) (declare-type gxc#optimizer-declare-type! (@case-lambda (2 gxc#optimizer-declare-type!__0) - (3 gxc#optimizer-declare-type!__opt-lambda18289))) + (3 gxc#optimizer-declare-type!__opt-lambda18992))) (declare-type gxc#optimizer-declare-method! (@case-lambda (3 gxc#optimizer-declare-method!__0) - (4 gxc#optimizer-declare-method!__opt-lambda18265))) + (4 gxc#optimizer-declare-method!__opt-lambda18968))) (declare-type gxc#lift-case-lambda-clauses (@case-lambda (3 gxc#lift-case-lambda-clauses__0) - (4 gxc#lift-case-lambda-clauses__opt-lambda15438))) + (4 gxc#lift-case-lambda-clauses__opt-lambda16141))) (declare-method gxc#!struct-pred::t optimize-call diff --git a/src/bootstrap/gerbil/compiler/optimize__0.scm b/src/bootstrap/gerbil/compiler/optimize__0.scm index 6b2d16c8f..30eb560eb 100644 --- a/src/bootstrap/gerbil/compiler/optimize__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize__0.scm @@ -13,8 +13,8 @@ ':init!)) (define gxc#optimizer-info? (make-struct-predicate gxc#optimizer-info::t)) (define gxc#make-optimizer-info - (lambda _$args18502_ - (apply make-struct-instance gxc#optimizer-info::t _$args18502_))) + (lambda _$args19205_ + (apply make-struct-instance gxc#optimizer-info::t _$args19205_))) (define gxc#optimizer-info-type (make-struct-field-accessor gxc#optimizer-info::t '0)) (define gxc#optimizer-info-ssxi @@ -24,9 +24,9 @@ (define gxc#optimizer-info-ssxi-set! (make-struct-field-mutator gxc#optimizer-info::t '1)) (define gxc#optimizer-info:::init! - (lambda (_self18500_) + (lambda (_self19203_) (direct-struct-instance-init! - _self18500_ + _self19203_ (make-hash-table-eq) (make-hash-table-eq)))) (bind-method! gxc#optimizer-info::t ':init! gxc#optimizer-info:::init! '#f) @@ -35,50 +35,60 @@ (if (gxc#current-compile-optimizer-info) '#!void (gxc#current-compile-optimizer-info - (let ((__obj18514 (make-object gxc#optimizer-info::t '2))) - (begin (gxc#optimizer-info:::init! __obj18514) __obj18514)))))) + (let ((__obj19217 (make-object gxc#optimizer-info::t '2))) + (begin (gxc#optimizer-info:::init! __obj19217) __obj19217)))))) (define gxc#optimize! - (lambda (_ctx18494_) + (lambda (_ctx19197_) (call-with-parameters (lambda () (begin - (gxc#optimizer-load-ssxi-deps _ctx18494_) + (gxc#optimizer-load-ssxi-deps _ctx19197_) (table-set! (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f) - (gx#expander-context-id _ctx18494_) + (##structure-ref _ctx19197_ '1 gx#expander-context::t '#f) '#t) - (let ((_code18497_ - (gxc#optimize-source (gx#module-context-code _ctx18494_)))) - (gx#module-context-code-set! _ctx18494_ _code18497_)))) + (let ((_code19200_ + (gxc#optimize-source + (##structure-ref _ctx19197_ '11 gx#module-context::t '#f)))) + (##structure-set! + _ctx19197_ + _code19200_ + '11 + gx#module-context::t + '#f)))) gxc#current-compile-mutators (make-hash-table-eq) gxc#current-compile-local-type (make-hash-table-eq)))) (define gxc#optimizer-load-ssxi-deps - (lambda (_ctx18439_) - (let ((_deps18441_ - (let ((_imports18485_ (gx#module-context-import _ctx18439_))) - (let ((_$e18487_ (gx#core-context-prelude _ctx18439_))) - (if _$e18487_ - ((lambda (_g1848918491_) - (cons _g1848918491_ _imports18485_)) - _$e18487_) - _imports18485_))))) - ((letrec ((_lp18443_ - (lambda (_rest18445_) - (let ((_rest1844618454_ _rest18445_)) - (let ((_E1844918458_ + (lambda (_ctx19142_) + (let ((_deps19144_ + (let ((_imports19188_ + (##structure-ref _ctx19142_ '8 gx#module-context::t '#f))) + (let ((_$e19190_ + (gx#core-context-prelude__opt-lambda10989 _ctx19142_))) + (if _$e19190_ + ((lambda (_g1919219194_) + (cons _g1919219194_ _imports19188_)) + _$e19190_) + _imports19188_))))) + ((letrec ((_lp19146_ + (lambda (_rest19148_) + (let ((_rest1914919157_ _rest19148_)) + (let ((_E1915219161_ (lambda () (error '"No clause matching" - _rest1844618454_)))) - (let ((_else1844818462_ (lambda () '#!void))) - (let ((_K1845018473_ - (lambda (_rest18465_ _hd18466_) - (if (gx#module-context? _hd18466_) + _rest1914919157_)))) + (let ((_else1915119165_ (lambda () '#!void))) + (let ((_K1915319176_ + (lambda (_rest19168_ _hd19169_) + (if (##structure-instance-of? + _hd19169_ + 'gx#module-context::t) (begin (if (table-ref (##structure-ref @@ -86,163 +96,203 @@ '2 gxc#optimizer-info::t '#f) - (gx#expander-context-id - _hd18466_) + (##structure-ref + _hd19169_ + '1 + gx#expander-context::t + '#f) '#f) '#!void (begin - (let ((_$e18468_ - (gx#core-context-prelude - _hd18466_))) - (if _$e18468_ - ((lambda (_pre18471_) - (_lp18443_ - (cons _pre18471_ - (gx#module-context-import -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd18466_)))) - _$e18468_) - (_lp18443_ (gx#module-context-import _hd18466_)))) + (let ((_$e19171_ + (gx#core-context-prelude__opt-lambda10989 + _hd19169_))) + (if _$e19171_ + ((lambda (_pre19174_) + (_lp19146_ + (cons _pre19174_ + (##structure-ref +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _hd19169_ + '8 + gx#module-context::t + '#f)))) + _$e19171_) + (_lp19146_ + (##structure-ref _hd19169_ '8 gx#module-context::t '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gxc#optimizer-load-ssxi - _hd18466_))) - (_lp18443_ _rest18465_)) - (if (gx#prelude-context? _hd18466_) - (if (table-ref - (##structure-ref - (gxc#current-compile-optimizer-info) - '2 - gxc#optimizer-info::t - '#f) - (gx#expander-context-id - _hd18466_) - '#f) - '#!void - (begin - (_lp18443_ - (gx#prelude-context-import - _hd18466_)) - (gxc#optimizer-load-ssxi - _hd18466_))) - (if (gx#module-import? _hd18466_) - (_lp18443_ - (cons (gx#module-import-source - _hd18466_) - _rest18465_)) - (if (gx#module-export? - _hd18466_) - (_lp18443_ - (cons (gx#module-export-context - _hd18466_) - _rest18465_)) - (if (gx#import-set? - _hd18466_) - (_lp18443_ - (cons (gx#import-set-source - _hd18466_) - _rest18465_)) + _hd19169_))) + (_lp19146_ _rest19168_)) + (if (##structure-instance-of? + _hd19169_ + 'gx#prelude-context::t) + (begin + (if (table-ref + (##structure-ref + (gxc#current-compile-optimizer-info) + '2 + gxc#optimizer-info::t + '#f) + (##structure-ref + _hd19169_ + '1 + gx#expander-context::t + '#f) + '#f) + '#!void + (begin + (_lp19146_ + (##structure-ref + _hd19169_ + '7 + gx#prelude-context::t + '#f)) + (gxc#optimizer-load-ssxi + _hd19169_))) + (_lp19146_ _rest19168_)) + (if (##structure-direct-instance-of? + _hd19169_ + 'gx#module-import::t) + (_lp19146_ + (cons (##structure-ref + _hd19169_ + '1 + gx#module-import::t + '#f) + _rest19168_)) + (if (##structure-direct-instance-of? + _hd19169_ + 'gx#module-export::t) + (_lp19146_ + (cons (##structure-ref + _hd19169_ + '1 + gx#module-export::t + '#f) + _rest19168_)) + (if (##structure-direct-instance-of? + _hd19169_ + 'gx#import-set::t) + (_lp19146_ + (cons (##structure-ref + _hd19169_ + '1 + gx#import-set::t + '#f) + _rest19168_)) (error '"Unexpected module import" - _hd18466_))))))))) - (if (##pair? _rest1844618454_) - (let ((_hd1845118476_ - (##car _rest1844618454_)) - (_tl1845218478_ - (##cdr _rest1844618454_))) - (let ((_hd18481_ _hd1845118476_)) - (let ((_rest18483_ _tl1845218478_)) - (_K1845018473_ _rest18483_ _hd18481_)))) - (_else1844818462_))))))))) - _lp18443_) - _deps18441_)))) + _hd19169_))))))))) + (if (##pair? _rest1914919157_) + (let ((_hd1915419179_ + (##car _rest1914919157_)) + (_tl1915519181_ + (##cdr _rest1914919157_))) + (let ((_hd19184_ _hd1915419179_)) + (let ((_rest19186_ _tl1915519181_)) + (_K1915319176_ _rest19186_ _hd19184_)))) + (_else1915119165_))))))))) + _lp19146_) + _deps19144_)))) (define gxc#optimizer-load-ssxi - (lambda (_ctx18419_) - (if (if (gx#module-context? _ctx18419_) - (list? (gx#module-context-path _ctx18419_)) + (lambda (_ctx19122_) + (if (if (##structure-instance-of? _ctx19122_ 'gx#module-context::t) + (list? (##structure-ref _ctx19122_ '7 gx#module-context::t '#f)) '#f) '#!void - (let ((_ht18421_ + (let ((_ht19124_ (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f))) - (let ((_id18423_ (gx#expander-context-id _ctx18419_))) - (let ((_mod18425_ (table-ref _ht18421_ _id18423_ '#f))) + (let ((_id19126_ + (##structure-ref _ctx19122_ '1 gx#expander-context::t '#f))) + (let ((_mod19128_ (table-ref _ht19124_ _id19126_ '#f))) (let () - (let ((_$e18428_ _mod18425_)) - (if _$e18428_ - _$e18428_ - (let ((_mod18431_ - (gxc#optimizer-import-ssxi _ctx18419_))) - (let ((_val18436_ - (let ((_$e18433_ _mod18431_)) - (if _$e18433_ _$e18433_ '#!void)))) + (let ((_$e19131_ _mod19128_)) + (if _$e19131_ + _$e19131_ + (let ((_mod19134_ + (gxc#optimizer-import-ssxi _ctx19122_))) + (let ((_val19139_ + (let ((_$e19136_ _mod19134_)) + (if _$e19136_ _$e19136_ '#!void)))) (let () (begin - (table-set! _ht18421_ _id18423_ _val18436_) - _val18436_))))))))))))) + (table-set! _ht19124_ _id19126_ _val19139_) + _val19139_))))))))))))) (define gxc#optimizer-import-ssxi - (lambda (_ctx18396_) - (let ((_catch-e18398_ - (lambda (_exn18417_) + (lambda (_ctx19099_) + (let ((_catch-e19101_ + (lambda (_exn19120_) (begin (if (gxc#current-compile-verbose) (begin (displayln '"Failed to load ssxi module for " - (gx#expander-context-id _ctx18396_)) - (display-exception _exn18417_)) + (##structure-ref + _ctx19099_ + '1 + gx#expander-context::t + '#f)) + (display-exception _exn19120_)) '#!void) '#f)))) - (let ((_import-e18399_ + (let ((_import-e19102_ (lambda () - (let ((_str-id18402_ + (let ((_str-id19105_ (string-append - (symbol->string (gx#expander-context-id _ctx18396_)) + (symbol->string + (##structure-ref + _ctx19099_ + '1 + gx#expander-context::t + '#f)) '".ssxi"))) - (let ((_artefact-path18410_ - (let ((_odir1840318405_ + (let ((_artefact-path19113_ + (let ((_odir1910619108_ (gxc#current-compile-output-dir))) - (if _odir1840318405_ - (let ((_odir18408_ _odir1840318405_)) + (if _odir1910619108_ + (let ((_odir19111_ _odir1910619108_)) (path-expand - (string-append _str-id18402_ '".ss") - _odir18408_)) + (string-append _str-id19105_ '".ss") + _odir19111_)) '#f)))) - (let ((_library-path18412_ + (let ((_library-path19115_ (string->symbol - (string-append '":" _str-id18402_)))) - (let ((_ssxi-path18414_ - (if (if _artefact-path18410_ - (file-exists? _artefact-path18410_) + (string-append '":" _str-id19105_)))) + (let ((_ssxi-path19117_ + (if (if _artefact-path19113_ + (file-exists? _artefact-path19113_) '#f) - _artefact-path18410_ - _library-path18412_))) + _artefact-path19113_ + _library-path19115_))) (let () (begin (gxc#verbose '"Loading ssxi module " - _ssxi-path18414_) - (gx#import-module - _ssxi-path18414_ + _ssxi-path19117_) + (gx#import-module__opt-lambda11024 + _ssxi-path19117_ '#t '#t)))))))))) - (if (gx#expander-context-id _ctx18396_) - (with-catch _catch-e18398_ _import-e18399_) + (if (##structure-ref _ctx19099_ '1 gx#expander-context::t '#f) + (with-catch _catch-e19101_ _import-e19102_) '#f))))) (define gxc#!type::t (make-struct-type 'gxc#!type::t '#f '1 '!type '() '#f)) (define gxc#!type? (make-struct-predicate gxc#!type::t)) (define gxc#make-!type - (lambda _$args18393_ - (apply make-struct-instance gxc#!type::t _$args18393_))) + (lambda _$args19096_ + (apply make-struct-instance gxc#!type::t _$args19096_))) (define gxc#!type-id (make-struct-field-accessor gxc#!type::t '0)) (define gxc#!type-id-set! (make-struct-field-mutator gxc#!type::t '0)) (define gxc#!alias::t (make-struct-type 'gxc#!alias::t gxc#!type::t '0 '!alias '() '#f)) (define gxc#!alias? (make-struct-predicate gxc#!alias::t)) (define gxc#make-!alias - (lambda _$args18390_ - (apply make-struct-instance gxc#!alias::t _$args18390_))) + (lambda _$args19093_ + (apply make-struct-instance gxc#!alias::t _$args19093_))) (define gxc#!struct-type::t (make-struct-type 'gxc#!struct-type::t @@ -253,8 +303,8 @@ ':init!)) (define gxc#!struct-type? (make-struct-predicate gxc#!struct-type::t)) (define gxc#make-!struct-type - (lambda _$args18387_ - (apply make-struct-instance gxc#!struct-type::t _$args18387_))) + (lambda _$args19090_ + (apply make-struct-instance gxc#!struct-type::t _$args19090_))) (define gxc#!struct-type-super (make-struct-field-accessor gxc#!struct-type::t '0)) (define gxc#!struct-type-fields @@ -283,8 +333,8 @@ (make-struct-type 'gxc#!procedure::t gxc#!type::t '0 '!procedure '() '#f)) (define gxc#!procedure? (make-struct-predicate gxc#!procedure::t)) (define gxc#make-!procedure - (lambda _$args18384_ - (apply make-struct-instance gxc#!procedure::t _$args18384_))) + (lambda _$args19087_ + (apply make-struct-instance gxc#!procedure::t _$args19087_))) (define gxc#!struct-pred::t (make-struct-type 'gxc#!struct-pred::t @@ -295,8 +345,8 @@ '#f)) (define gxc#!struct-pred? (make-struct-predicate gxc#!struct-pred::t)) (define gxc#make-!struct-pred - (lambda _$args18381_ - (apply make-struct-instance gxc#!struct-pred::t _$args18381_))) + (lambda _$args19084_ + (apply make-struct-instance gxc#!struct-pred::t _$args19084_))) (define gxc#!struct-cons::t (make-struct-type 'gxc#!struct-cons::t @@ -307,8 +357,8 @@ '#f)) (define gxc#!struct-cons? (make-struct-predicate gxc#!struct-cons::t)) (define gxc#make-!struct-cons - (lambda _$args18378_ - (apply make-struct-instance gxc#!struct-cons::t _$args18378_))) + (lambda _$args19081_ + (apply make-struct-instance gxc#!struct-cons::t _$args19081_))) (define gxc#!struct-getf::t (make-struct-type 'gxc#!struct-getf::t @@ -319,8 +369,8 @@ '#f)) (define gxc#!struct-getf? (make-struct-predicate gxc#!struct-getf::t)) (define gxc#make-!struct-getf - (lambda _$args18375_ - (apply make-struct-instance gxc#!struct-getf::t _$args18375_))) + (lambda _$args19078_ + (apply make-struct-instance gxc#!struct-getf::t _$args19078_))) (define gxc#!struct-getf-off (make-struct-field-accessor gxc#!struct-getf::t '0)) (define gxc#!struct-getf-off-set! @@ -335,8 +385,8 @@ '#f)) (define gxc#!struct-setf? (make-struct-predicate gxc#!struct-setf::t)) (define gxc#make-!struct-setf - (lambda _$args18372_ - (apply make-struct-instance gxc#!struct-setf::t _$args18372_))) + (lambda _$args19075_ + (apply make-struct-instance gxc#!struct-setf::t _$args19075_))) (define gxc#!struct-setf-off (make-struct-field-accessor gxc#!struct-setf::t '0)) (define gxc#!struct-setf-off-set! @@ -351,8 +401,8 @@ ':init!)) (define gxc#!lambda? (make-struct-predicate gxc#!lambda::t)) (define gxc#make-!lambda - (lambda _$args18369_ - (apply make-struct-instance gxc#!lambda::t _$args18369_))) + (lambda _$args19072_ + (apply make-struct-instance gxc#!lambda::t _$args19072_))) (define gxc#!lambda-arity (make-struct-field-accessor gxc#!lambda::t '0)) (define gxc#!lambda-dispatch (make-struct-field-accessor gxc#!lambda::t '1)) (define gxc#!lambda-inline (make-struct-field-accessor gxc#!lambda::t '2)) @@ -375,1430 +425,1436 @@ '#f)) (define gxc#!case-lambda? (make-struct-predicate gxc#!case-lambda::t)) (define gxc#make-!case-lambda - (lambda _$args18366_ - (apply make-struct-instance gxc#!case-lambda::t _$args18366_))) + (lambda _$args19069_ + (apply make-struct-instance gxc#!case-lambda::t _$args19069_))) (define gxc#!case-lambda-clauses (make-struct-field-accessor gxc#!case-lambda::t '0)) (define gxc#!case-lambda-clauses-set! (make-struct-field-mutator gxc#!case-lambda::t '0)) (define gxc#!struct-type:::init! - (lambda (_self18358_ - _id18359_ - _super18360_ - _fields18361_ - _xfields18362_ - _ctor18363_ - _plist18364_) + (lambda (_self19061_ + _id19062_ + _super19063_ + _fields19064_ + _xfields19065_ + _ctor19066_ + _plist19067_) (direct-struct-instance-init! - _self18358_ - _id18359_ - _super18360_ - _fields18361_ - _xfields18362_ - _ctor18363_ - _plist18364_ + _self19061_ + _id19062_ + _super19063_ + _fields19064_ + _xfields19065_ + _ctor19066_ + _plist19067_ '#f))) (bind-method! gxc#!struct-type::t ':init! gxc#!struct-type:::init! '#f) (begin - (define gxc#!lambda:::init!__opt-lambda18322 - (lambda (_self18324_ - _id18325_ - _arity18326_ - _dispatch18327_ - _inline18328_ - _typedecl18329_) + (define gxc#!lambda:::init!__opt-lambda19025 + (lambda (_self19027_ + _id19028_ + _arity19029_ + _dispatch19030_ + _inline19031_ + _typedecl19032_) (direct-struct-instance-init! - _self18324_ - _id18325_ - _arity18326_ - _dispatch18327_ - _inline18328_ - _typedecl18329_))) + _self19027_ + _id19028_ + _arity19029_ + _dispatch19030_ + _inline19031_ + _typedecl19032_))) (begin (define gxc#!lambda:::init!__0 - (lambda (_self18334_ _id18335_ _arity18336_ _dispatch18337_) - (let ((_inline18339_ '#f)) - (let ((_typedecl18341_ '#f)) + (lambda (_self19037_ _id19038_ _arity19039_ _dispatch19040_) + (let ((_inline19042_ '#f)) + (let ((_typedecl19044_ '#f)) (direct-struct-instance-init! - _self18334_ - _id18335_ - _arity18336_ - _dispatch18337_ - _inline18339_ - _typedecl18341_))))) + _self19037_ + _id19038_ + _arity19039_ + _dispatch19040_ + _inline19042_ + _typedecl19044_))))) (define gxc#!lambda:::init!__1 - (lambda (_self18343_ - _id18344_ - _arity18345_ - _dispatch18346_ - _inline18347_) - (let ((_typedecl18349_ '#f)) + (lambda (_self19046_ + _id19047_ + _arity19048_ + _dispatch19049_ + _inline19050_) + (let ((_typedecl19052_ '#f)) (direct-struct-instance-init! - _self18343_ - _id18344_ - _arity18345_ - _dispatch18346_ - _inline18347_ - _typedecl18349_)))) + _self19046_ + _id19047_ + _arity19048_ + _dispatch19049_ + _inline19050_ + _typedecl19052_)))) (define gxc#!lambda:::init! - (lambda _g18520_ - (let ((_g18519_ (length _g18520_))) - (cond ((fx= _g18519_ 4) (apply gxc#!lambda:::init!__0 _g18520_)) - ((fx= _g18519_ 5) (apply gxc#!lambda:::init!__1 _g18520_)) - ((fx= _g18519_ 6) - (apply direct-struct-instance-init! _g18520_)) - (else (error "No clause matching arguments" _g18520_)))))))) + (lambda _g19225_ + (let ((_g19224_ (length _g19225_))) + (cond ((fx= _g19224_ 4) (apply gxc#!lambda:::init!__0 _g19225_)) + ((fx= _g19224_ 5) (apply gxc#!lambda:::init!__1 _g19225_)) + ((fx= _g19224_ 6) + (apply direct-struct-instance-init! _g19225_)) + (else (error "No clause matching arguments" _g19225_)))))))) (bind-method! gxc#!lambda::t ':init! gxc#!lambda:::init! '#f) (define gxc#!struct-type-vtab - (lambda (_type18316_) - (let ((_$e18318_ - (##structure-ref _type18316_ '7 gxc#!struct-type::t '#f))) - (if _$e18318_ - (values _$e18318_) - (let ((_vtab18321_ (make-hash-table-eq))) + (lambda (_type19019_) + (let ((_$e19021_ + (##structure-ref _type19019_ '7 gxc#!struct-type::t '#f))) + (if _$e19021_ + (values _$e19021_) + (let ((_vtab19024_ (make-hash-table-eq))) (begin (##structure-set! - _type18316_ - _vtab18321_ + _type19019_ + _vtab19024_ '7 gxc#!struct-type::t '#f) - _vtab18321_)))))) + _vtab19024_)))))) (define gxc#!struct-type-lookup-method - (lambda (_type18307_ _method18308_) - (let ((_vtab1830918311_ - (##structure-ref _type18307_ '7 gxc#!struct-type::t '#f))) - (if _vtab1830918311_ - (let ((_vtab18314_ _vtab1830918311_)) - (table-ref _vtab18314_ _method18308_ '#f)) + (lambda (_type19010_ _method19011_) + (let ((_vtab1901219014_ + (##structure-ref _type19010_ '7 gxc#!struct-type::t '#f))) + (if _vtab1901219014_ + (let ((_vtab19017_ _vtab1901219014_)) + (table-ref _vtab19017_ _method19011_ '#f)) '#f)))) (begin - (define gxc#optimizer-declare-type!__opt-lambda18289 - (lambda (_sym18291_ _type18292_ _local?18293_) + (define gxc#optimizer-declare-type!__opt-lambda18992 + (lambda (_sym18994_ _type18995_ _local?18996_) (begin - (if (##structure-instance-of? _type18292_ 'gxc#!type::t) + (if (##structure-instance-of? _type18995_ 'gxc#!type::t) '#!void (error '"bad declaration: expected !type" - _sym18291_ - _type18292_)) + _sym18994_ + _type18995_)) (gxc#verbose '"declare-type " - _sym18291_ + _sym18994_ '" " - (##vector->list _type18292_)) + (##vector->list _type18995_)) (table-set! - (if _local?18293_ + (if _local?18996_ (gxc#current-compile-local-type) (##structure-ref (gxc#current-compile-optimizer-info) '1 gxc#optimizer-info::t '#f)) - _sym18291_ - _type18292_)))) + _sym18994_ + _type18995_)))) (begin (define gxc#optimizer-declare-type!__0 - (lambda (_sym18298_ _type18299_) - (let ((_local?18301_ '#f)) - (gxc#optimizer-declare-type!__opt-lambda18289 - _sym18298_ - _type18299_ - _local?18301_)))) + (lambda (_sym19001_ _type19002_) + (let ((_local?19004_ '#f)) + (gxc#optimizer-declare-type!__opt-lambda18992 + _sym19001_ + _type19002_ + _local?19004_)))) (define gxc#optimizer-declare-type! - (lambda _g18522_ - (let ((_g18521_ (length _g18522_))) - (cond ((fx= _g18521_ 2) - (apply gxc#optimizer-declare-type!__0 _g18522_)) - ((fx= _g18521_ 3) - (apply gxc#optimizer-declare-type!__opt-lambda18289 - _g18522_)) - (else (error "No clause matching arguments" _g18522_)))))))) + (lambda _g19227_ + (let ((_g19226_ (length _g19227_))) + (cond ((fx= _g19226_ 2) + (apply gxc#optimizer-declare-type!__0 _g19227_)) + ((fx= _g19226_ 3) + (apply gxc#optimizer-declare-type!__opt-lambda18992 + _g19227_)) + (else (error "No clause matching arguments" _g19227_)))))))) (begin - (define gxc#optimizer-declare-method!__opt-lambda18265 - (lambda (_type-t18267_ _method18268_ _sym18269_ _rebind?18270_) - (let ((_type18272_ (gxc#optimizer-resolve-type _type-t18267_))) - (if (##structure-instance-of? _type18272_ 'gxc#!struct-type::t) - (let ((_vtab18274_ (gxc#!struct-type-vtab _type18272_))) - (if _rebind?18270_ - (if (hash-key? _vtab18274_ _method18268_) + (define gxc#optimizer-declare-method!__opt-lambda18968 + (lambda (_type-t18970_ _method18971_ _sym18972_ _rebind?18973_) + (let ((_type18975_ (gxc#optimizer-resolve-type _type-t18970_))) + (if (##structure-instance-of? _type18975_ 'gxc#!struct-type::t) + (let ((_vtab18977_ (gxc#!struct-type-vtab _type18975_))) + (if _rebind?18973_ + (if (hash-key? _vtab18977_ _method18971_) (gxc#verbose '"declare-method: [warning] skip rebind on existing method" - _type-t18267_ + _type-t18970_ '" " - _method18268_) + _method18971_) (gxc#verbose '"declare-method: skip rebind method " - _type-t18267_ + _type-t18970_ '" " - _method18268_)) - (if (hash-key? _vtab18274_ _method18268_) + _method18971_)) + (if (hash-key? _vtab18977_ _method18971_) (error '"declare-method: duplicate method declaration") (begin (gxc#verbose '"declare-method " - _type-t18267_ + _type-t18970_ '" " - _method18268_ + _method18971_ '" => " - _sym18269_) - (table-set! _vtab18274_ _method18268_ _sym18269_))))) - (if (not _type18272_) - (gxc#verbose '"declare-method: unknown type " _type-t18267_) + _sym18972_) + (table-set! _vtab18977_ _method18971_ _sym18972_))))) + (if (not _type18975_) + (gxc#verbose '"declare-method: unknown type " _type-t18970_) (error '"declare-method: bad method declaration; no method table" - _type-t18267_ - _type18272_)))))) + _type-t18970_ + _type18975_)))))) (begin (define gxc#optimizer-declare-method!__0 - (lambda (_type-t18279_ _method18280_ _sym18281_) - (let ((_rebind?18283_ '#f)) - (gxc#optimizer-declare-method!__opt-lambda18265 - _type-t18279_ - _method18280_ - _sym18281_ - _rebind?18283_)))) + (lambda (_type-t18982_ _method18983_ _sym18984_) + (let ((_rebind?18986_ '#f)) + (gxc#optimizer-declare-method!__opt-lambda18968 + _type-t18982_ + _method18983_ + _sym18984_ + _rebind?18986_)))) (define gxc#optimizer-declare-method! - (lambda _g18524_ - (let ((_g18523_ (length _g18524_))) - (cond ((fx= _g18523_ 3) - (apply gxc#optimizer-declare-method!__0 _g18524_)) - ((fx= _g18523_ 4) - (apply gxc#optimizer-declare-method!__opt-lambda18265 - _g18524_)) - (else (error "No clause matching arguments" _g18524_)))))))) + (lambda _g19229_ + (let ((_g19228_ (length _g19229_))) + (cond ((fx= _g19228_ 3) + (apply gxc#optimizer-declare-method!__0 _g19229_)) + ((fx= _g19228_ 4) + (apply gxc#optimizer-declare-method!__opt-lambda18968 + _g19229_)) + (else (error "No clause matching arguments" _g19229_)))))))) (define gxc#optimizer-lookup-type - (lambda (_sym18255_) - (let ((_$e18263_ - (let ((_ht1825618258_ (gxc#current-compile-local-type))) - (if _ht1825618258_ - (let ((_ht18261_ _ht1825618258_)) - (table-ref _ht18261_ _sym18255_ '#f)) + (lambda (_sym18958_) + (let ((_$e18966_ + (let ((_ht1895918961_ (gxc#current-compile-local-type))) + (if _ht1895918961_ + (let ((_ht18964_ _ht1895918961_)) + (table-ref _ht18964_ _sym18958_ '#f)) '#f)))) - (if _$e18263_ - _$e18263_ + (if _$e18966_ + _$e18966_ (table-ref (##structure-ref (gxc#current-compile-optimizer-info) '1 gxc#optimizer-info::t '#f) - _sym18255_ + _sym18958_ '#f))))) (define gxc#optimizer-resolve-type - (lambda (_sym18247_) - (let ((_type1824818250_ (gxc#optimizer-lookup-type _sym18247_))) - (if _type1824818250_ - (let ((_type18253_ _type1824818250_)) - (if (##structure-instance-of? _type18253_ 'gxc#!alias::t) + (lambda (_sym18950_) + (let ((_type1895118953_ (gxc#optimizer-lookup-type _sym18950_))) + (if _type1895118953_ + (let ((_type18956_ _type1895118953_)) + (if (##structure-instance-of? _type18956_ 'gxc#!alias::t) (gxc#optimizer-resolve-type - (##structure-ref _type18253_ '1 gxc#!type::t '#f)) - _type18253_)) + (##structure-ref _type18956_ '1 gxc#!type::t '#f)) + _type18956_)) '#f)))) (define gxc#optimizer-lookup-method - (lambda (_type-t18242_ _method18243_) - (let ((_type18245_ (gxc#optimizer-resolve-type _type-t18242_))) - (if (##structure-instance-of? _type18245_ 'gxc#!struct-type::t) - (gxc#!struct-type-lookup-method _type18245_ _method18243_) + (lambda (_type-t18945_ _method18946_) + (let ((_type18948_ (gxc#optimizer-resolve-type _type-t18945_))) + (if (##structure-instance-of? _type18948_ 'gxc#!struct-type::t) + (gxc#!struct-type-lookup-method _type18948_ _method18946_) '#f)))) (define gxc#optimize-source - (lambda (_stx18238_) + (lambda (_stx18941_) (begin - (gxc#apply-collect-mutators _stx18238_) - (let ((_stx18240_ (gxc#apply-lift-top-lambdas _stx18238_))) + (gxc#apply-collect-mutators _stx18941_) + (let ((_stx18943_ (gxc#apply-lift-top-lambdas _stx18941_))) (begin - (gxc#apply-collect-type-info _stx18240_) - (gxc#apply-optimize-call _stx18240_)))))) + (gxc#apply-collect-type-info _stx18943_) + (gxc#apply-optimize-call _stx18943_)))))) (define gxc#&false-expression (make-promise (lambda () - (let ((_tbl18235_ (make-hash-table-eq))) + (let ((_tbl18938_ (make-hash-table-eq))) (begin - (table-set! _tbl18235_ '%#lambda false) - (table-set! _tbl18235_ '%#case-lambda false) - (table-set! _tbl18235_ '%#let-values false) - (table-set! _tbl18235_ '%#letrec-values false) - (table-set! _tbl18235_ '%#letrec*-values false) - (table-set! _tbl18235_ '%#quote false) - (table-set! _tbl18235_ '%#quote-syntax false) - (table-set! _tbl18235_ '%#call false) - (table-set! _tbl18235_ '%#if false) - (table-set! _tbl18235_ '%#ref false) - (table-set! _tbl18235_ '%#set! false) - (table-set! _tbl18235_ '%#struct-instance? false) - (table-set! _tbl18235_ '%#struct-direct-instance? false) - (table-set! _tbl18235_ '%#struct-ref false) - (table-set! _tbl18235_ '%#struct-set! false) - _tbl18235_))))) + (table-set! _tbl18938_ '%#lambda false) + (table-set! _tbl18938_ '%#case-lambda false) + (table-set! _tbl18938_ '%#let-values false) + (table-set! _tbl18938_ '%#letrec-values false) + (table-set! _tbl18938_ '%#letrec*-values false) + (table-set! _tbl18938_ '%#quote false) + (table-set! _tbl18938_ '%#quote-syntax false) + (table-set! _tbl18938_ '%#call false) + (table-set! _tbl18938_ '%#if false) + (table-set! _tbl18938_ '%#ref false) + (table-set! _tbl18938_ '%#set! false) + (table-set! _tbl18938_ '%#struct-instance? false) + (table-set! _tbl18938_ '%#struct-direct-instance? false) + (table-set! _tbl18938_ '%#struct-ref false) + (table-set! _tbl18938_ '%#struct-set! false) + _tbl18938_))))) (define gxc#&false-special-form (make-promise (lambda () - (let ((_tbl18231_ (make-hash-table-eq))) + (let ((_tbl18934_ (make-hash-table-eq))) (begin - (table-set! _tbl18231_ '%#begin false) - (table-set! _tbl18231_ '%#begin-syntax false) - (table-set! _tbl18231_ '%#begin-foreign false) - (table-set! _tbl18231_ '%#module false) - (table-set! _tbl18231_ '%#import false) - (table-set! _tbl18231_ '%#export false) - (table-set! _tbl18231_ '%#provide false) - (table-set! _tbl18231_ '%#extern false) - (table-set! _tbl18231_ '%#define-values false) - (table-set! _tbl18231_ '%#define-syntax false) - (table-set! _tbl18231_ '%#define-alias false) - (table-set! _tbl18231_ '%#declare false) - _tbl18231_))))) + (table-set! _tbl18934_ '%#begin false) + (table-set! _tbl18934_ '%#begin-syntax false) + (table-set! _tbl18934_ '%#begin-foreign false) + (table-set! _tbl18934_ '%#module false) + (table-set! _tbl18934_ '%#import false) + (table-set! _tbl18934_ '%#export false) + (table-set! _tbl18934_ '%#provide false) + (table-set! _tbl18934_ '%#extern false) + (table-set! _tbl18934_ '%#define-values false) + (table-set! _tbl18934_ '%#define-syntax false) + (table-set! _tbl18934_ '%#define-alias false) + (table-set! _tbl18934_ '%#declare false) + _tbl18934_))))) (define gxc#&false (make-promise (lambda () - (let ((_tbl18227_ (make-hash-table-eq))) + (let ((_tbl18930_ (make-hash-table-eq))) (begin - (hash-copy! _tbl18227_ (force gxc#&false-special-form)) - (hash-copy! _tbl18227_ (force gxc#&false-expression)) - _tbl18227_))))) + (hash-copy! _tbl18930_ (force gxc#&false-special-form)) + (hash-copy! _tbl18930_ (force gxc#&false-expression)) + _tbl18930_))))) (define gxc#&identity-expression (make-promise (lambda () - (let ((_tbl18223_ (make-hash-table-eq))) + (let ((_tbl18926_ (make-hash-table-eq))) (begin - (table-set! _tbl18223_ '%#lambda gxc#xform-identity) - (table-set! _tbl18223_ '%#case-lambda gxc#xform-identity) - (table-set! _tbl18223_ '%#let-values gxc#xform-identity) - (table-set! _tbl18223_ '%#letrec-values gxc#xform-identity) - (table-set! _tbl18223_ '%#letrec*-values gxc#xform-identity) - (table-set! _tbl18223_ '%#quote gxc#xform-identity) - (table-set! _tbl18223_ '%#quote-syntax gxc#xform-identity) - (table-set! _tbl18223_ '%#call gxc#xform-identity) - (table-set! _tbl18223_ '%#if gxc#xform-identity) - (table-set! _tbl18223_ '%#ref gxc#xform-identity) - (table-set! _tbl18223_ '%#set! gxc#xform-identity) - (table-set! _tbl18223_ '%#struct-instance? gxc#xform-identity) + (table-set! _tbl18926_ '%#lambda gxc#xform-identity) + (table-set! _tbl18926_ '%#case-lambda gxc#xform-identity) + (table-set! _tbl18926_ '%#let-values gxc#xform-identity) + (table-set! _tbl18926_ '%#letrec-values gxc#xform-identity) + (table-set! _tbl18926_ '%#letrec*-values gxc#xform-identity) + (table-set! _tbl18926_ '%#quote gxc#xform-identity) + (table-set! _tbl18926_ '%#quote-syntax gxc#xform-identity) + (table-set! _tbl18926_ '%#call gxc#xform-identity) + (table-set! _tbl18926_ '%#if gxc#xform-identity) + (table-set! _tbl18926_ '%#ref gxc#xform-identity) + (table-set! _tbl18926_ '%#set! gxc#xform-identity) + (table-set! _tbl18926_ '%#struct-instance? gxc#xform-identity) (table-set! - _tbl18223_ + _tbl18926_ '%#struct-direct-instance? gxc#xform-identity) - (table-set! _tbl18223_ '%#struct-ref gxc#xform-identity) - (table-set! _tbl18223_ '%#struct-set! gxc#xform-identity) - _tbl18223_))))) + (table-set! _tbl18926_ '%#struct-ref gxc#xform-identity) + (table-set! _tbl18926_ '%#struct-set! gxc#xform-identity) + _tbl18926_))))) (define gxc#&identity-special-form (make-promise (lambda () - (let ((_tbl18219_ (make-hash-table-eq))) + (let ((_tbl18922_ (make-hash-table-eq))) (begin - (table-set! _tbl18219_ '%#begin gxc#xform-identity) - (table-set! _tbl18219_ '%#begin-syntax gxc#xform-identity) - (table-set! _tbl18219_ '%#begin-foreign gxc#xform-identity) - (table-set! _tbl18219_ '%#module gxc#xform-identity) - (table-set! _tbl18219_ '%#import gxc#xform-identity) - (table-set! _tbl18219_ '%#export gxc#xform-identity) - (table-set! _tbl18219_ '%#provide gxc#xform-identity) - (table-set! _tbl18219_ '%#extern gxc#xform-identity) - (table-set! _tbl18219_ '%#define-values gxc#xform-identity) - (table-set! _tbl18219_ '%#define-syntax gxc#xform-identity) - (table-set! _tbl18219_ '%#define-alias gxc#xform-identity) - (table-set! _tbl18219_ '%#declare gxc#xform-identity) - _tbl18219_))))) + (table-set! _tbl18922_ '%#begin gxc#xform-identity) + (table-set! _tbl18922_ '%#begin-syntax gxc#xform-identity) + (table-set! _tbl18922_ '%#begin-foreign gxc#xform-identity) + (table-set! _tbl18922_ '%#module gxc#xform-identity) + (table-set! _tbl18922_ '%#import gxc#xform-identity) + (table-set! _tbl18922_ '%#export gxc#xform-identity) + (table-set! _tbl18922_ '%#provide gxc#xform-identity) + (table-set! _tbl18922_ '%#extern gxc#xform-identity) + (table-set! _tbl18922_ '%#define-values gxc#xform-identity) + (table-set! _tbl18922_ '%#define-syntax gxc#xform-identity) + (table-set! _tbl18922_ '%#define-alias gxc#xform-identity) + (table-set! _tbl18922_ '%#declare gxc#xform-identity) + _tbl18922_))))) (define gxc#&identity (make-promise (lambda () - (let ((_tbl18215_ (make-hash-table-eq))) + (let ((_tbl18918_ (make-hash-table-eq))) (begin - (hash-copy! _tbl18215_ (force gxc#&identity-special-form)) - (hash-copy! _tbl18215_ (force gxc#&identity-expression)) - _tbl18215_))))) + (hash-copy! _tbl18918_ (force gxc#&identity-special-form)) + (hash-copy! _tbl18918_ (force gxc#&identity-expression)) + _tbl18918_))))) (define gxc#&basic-xform-expression (make-promise (lambda () - (let ((_tbl18211_ (make-hash-table-eq))) + (let ((_tbl18914_ (make-hash-table-eq))) (begin - (table-set! _tbl18211_ '%#lambda gxc#xform-lambda%) - (table-set! _tbl18211_ '%#case-lambda gxc#xform-case-lambda%) - (table-set! _tbl18211_ '%#let-values gxc#xform-let-values%) - (table-set! _tbl18211_ '%#letrec-values gxc#xform-let-values%) - (table-set! _tbl18211_ '%#letrec*-values gxc#xform-let-values%) - (table-set! _tbl18211_ '%#quote gxc#xform-identity) - (table-set! _tbl18211_ '%#quote-syntax gxc#xform-identity) - (table-set! _tbl18211_ '%#call gxc#xform-operands) - (table-set! _tbl18211_ '%#if gxc#xform-operands) - (table-set! _tbl18211_ '%#ref gxc#xform-identity) - (table-set! _tbl18211_ '%#set! gxc#xform-setq%) - (table-set! _tbl18211_ '%#struct-instance? gxc#xform-operands) + (table-set! _tbl18914_ '%#lambda gxc#xform-lambda%) + (table-set! _tbl18914_ '%#case-lambda gxc#xform-case-lambda%) + (table-set! _tbl18914_ '%#let-values gxc#xform-let-values%) + (table-set! _tbl18914_ '%#letrec-values gxc#xform-let-values%) + (table-set! _tbl18914_ '%#letrec*-values gxc#xform-let-values%) + (table-set! _tbl18914_ '%#quote gxc#xform-identity) + (table-set! _tbl18914_ '%#quote-syntax gxc#xform-identity) + (table-set! _tbl18914_ '%#call gxc#xform-operands) + (table-set! _tbl18914_ '%#if gxc#xform-operands) + (table-set! _tbl18914_ '%#ref gxc#xform-identity) + (table-set! _tbl18914_ '%#set! gxc#xform-setq%) + (table-set! _tbl18914_ '%#struct-instance? gxc#xform-operands) (table-set! - _tbl18211_ + _tbl18914_ '%#struct-direct-instance? gxc#xform-operands) - (table-set! _tbl18211_ '%#struct-ref gxc#xform-operands) - (table-set! _tbl18211_ '%#struct-set! gxc#xform-operands) - _tbl18211_))))) + (table-set! _tbl18914_ '%#struct-ref gxc#xform-operands) + (table-set! _tbl18914_ '%#struct-set! gxc#xform-operands) + _tbl18914_))))) (define gxc#&basic-xform (make-promise (lambda () - (let ((_tbl18207_ (make-hash-table-eq))) + (let ((_tbl18910_ (make-hash-table-eq))) (begin - (hash-copy! _tbl18207_ (force gxc#&basic-xform-expression)) - (hash-copy! _tbl18207_ (force gxc#&identity)) - (table-set! _tbl18207_ '%#begin gxc#xform-begin%) - (table-set! _tbl18207_ '%#module gxc#xform-module%) - (table-set! _tbl18207_ '%#define-values gxc#xform-define-values%) - _tbl18207_))))) + (hash-copy! _tbl18910_ (force gxc#&basic-xform-expression)) + (hash-copy! _tbl18910_ (force gxc#&identity)) + (table-set! _tbl18910_ '%#begin gxc#xform-begin%) + (table-set! _tbl18910_ '%#module gxc#xform-module%) + (table-set! _tbl18910_ '%#define-values gxc#xform-define-values%) + _tbl18910_))))) (define gxc#&collect-mutators (make-promise (lambda () - (let ((_tbl18203_ (make-hash-table-eq))) + (let ((_tbl18906_ (make-hash-table-eq))) (begin - (hash-copy! _tbl18203_ (force gxc#&void)) - (table-set! _tbl18203_ '%#begin gxc#collect-begin%) - (table-set! _tbl18203_ '%#module gxc#collect-module%) - (table-set! _tbl18203_ '%#lambda gxc#collect-body-lambda%) - (table-set! _tbl18203_ '%#case-lambda gxc#collect-body-case-lambda%) - (table-set! _tbl18203_ '%#let-values gxc#collect-body-let-values%) + (hash-copy! _tbl18906_ (force gxc#&void)) + (table-set! _tbl18906_ '%#begin gxc#collect-begin%) + (table-set! _tbl18906_ '%#module gxc#collect-module%) + (table-set! _tbl18906_ '%#lambda gxc#collect-body-lambda%) + (table-set! _tbl18906_ '%#case-lambda gxc#collect-body-case-lambda%) + (table-set! _tbl18906_ '%#let-values gxc#collect-body-let-values%) (table-set! - _tbl18203_ + _tbl18906_ '%#letrec-values gxc#collect-body-let-values%) (table-set! - _tbl18203_ + _tbl18906_ '%#letrec*-values gxc#collect-body-let-values%) - (table-set! _tbl18203_ '%#call gxc#collect-operands) - (table-set! _tbl18203_ '%#if gxc#collect-operands) - (table-set! _tbl18203_ '%#set! gxc#collect-mutators-setq%) - (table-set! _tbl18203_ '%#struct-instance? gxc#collect-operands) + (table-set! _tbl18906_ '%#call gxc#collect-operands) + (table-set! _tbl18906_ '%#if gxc#collect-operands) + (table-set! _tbl18906_ '%#set! gxc#collect-mutators-setq%) + (table-set! _tbl18906_ '%#struct-instance? gxc#collect-operands) (table-set! - _tbl18203_ + _tbl18906_ '%#struct-direct-instance? gxc#collect-operands) - (table-set! _tbl18203_ '%#struct-ref gxc#collect-operands) - (table-set! _tbl18203_ '%#struct-set! gxc#collect-operands) - _tbl18203_))))) + (table-set! _tbl18906_ '%#struct-ref gxc#collect-operands) + (table-set! _tbl18906_ '%#struct-set! gxc#collect-operands) + _tbl18906_))))) (define gxc#apply-collect-mutators - (lambda (_stx18196_ . _args18198_) + (lambda (_stx18899_ . _args18901_) (call-with-parameters - (lambda () (apply gxc#compile-e _stx18196_ _args18198_)) + (lambda () (apply gxc#compile-e _stx18899_ _args18901_)) gxc#current-compile-methods (force gxc#&collect-mutators)))) (define gxc#&lift-top-lambdas (make-promise (lambda () - (let ((_tbl18193_ (make-hash-table-eq))) + (let ((_tbl18896_ (make-hash-table-eq))) (begin - (hash-copy! _tbl18193_ (force gxc#&basic-xform)) + (hash-copy! _tbl18896_ (force gxc#&basic-xform)) (table-set! - _tbl18193_ + _tbl18896_ '%#define-values gxc#lift-top-lambda-define-values%) (table-set! - _tbl18193_ + _tbl18896_ '%#let-values gxc#lift-top-lambda-let-values%) (table-set! - _tbl18193_ + _tbl18896_ '%#letrec-values gxc#lift-top-lambda-letrec-values%) (table-set! - _tbl18193_ + _tbl18896_ '%#letrec*-values gxc#lift-top-lambda-letrec-values%) - _tbl18193_))))) + _tbl18896_))))) (define gxc#apply-lift-top-lambdas - (lambda (_stx18186_ . _args18188_) + (lambda (_stx18889_ . _args18891_) (call-with-parameters - (lambda () (apply gxc#compile-e _stx18186_ _args18188_)) + (lambda () (apply gxc#compile-e _stx18889_ _args18891_)) gxc#current-compile-methods (force gxc#&lift-top-lambdas)))) (define gxc#&expression-subst (make-promise (lambda () - (let ((_tbl18183_ (make-hash-table-eq))) + (let ((_tbl18886_ (make-hash-table-eq))) (begin - (hash-copy! _tbl18183_ (force gxc#&basic-xform-expression)) - (table-set! _tbl18183_ '%#begin gxc#xform-begin%) - (table-set! _tbl18183_ '%#ref gxc#expression-subst-ref%) - _tbl18183_))))) + (hash-copy! _tbl18886_ (force gxc#&basic-xform-expression)) + (table-set! _tbl18886_ '%#begin gxc#xform-begin%) + (table-set! _tbl18886_ '%#ref gxc#expression-subst-ref%) + _tbl18886_))))) (define gxc#apply-expression-subst - (lambda (_stx18176_ . _args18178_) + (lambda (_stx18879_ . _args18881_) (call-with-parameters - (lambda () (apply gxc#compile-e _stx18176_ _args18178_)) + (lambda () (apply gxc#compile-e _stx18879_ _args18881_)) gxc#current-compile-methods (force gxc#&expression-subst)))) (define gxc#&collect-type-info (make-promise (lambda () - (let ((_tbl18173_ (make-hash-table-eq))) + (let ((_tbl18876_ (make-hash-table-eq))) (begin - (hash-copy! _tbl18173_ (force gxc#&void)) - (table-set! _tbl18173_ '%#begin gxc#collect-begin%) - (table-set! _tbl18173_ '%#module gxc#collect-module%) + (hash-copy! _tbl18876_ (force gxc#&void)) + (table-set! _tbl18876_ '%#begin gxc#collect-begin%) + (table-set! _tbl18876_ '%#module gxc#collect-module%) (table-set! - _tbl18173_ + _tbl18876_ '%#define-values gxc#collect-type-define-values%) - (table-set! _tbl18173_ '%#lambda gxc#collect-body-lambda%) - (table-set! _tbl18173_ '%#case-lambda gxc#collect-body-case-lambda%) - (table-set! _tbl18173_ '%#let-values gxc#collect-type-let-values%) + (table-set! _tbl18876_ '%#lambda gxc#collect-body-lambda%) + (table-set! _tbl18876_ '%#case-lambda gxc#collect-body-case-lambda%) + (table-set! _tbl18876_ '%#let-values gxc#collect-type-let-values%) (table-set! - _tbl18173_ + _tbl18876_ '%#letrec-values gxc#collect-type-let-values%) (table-set! - _tbl18173_ + _tbl18876_ '%#letrec*-values gxc#collect-type-let-values%) - (table-set! _tbl18173_ '%#call gxc#collect-type-call%) - (table-set! _tbl18173_ '%#if gxc#collect-operands) - (table-set! _tbl18173_ '%#set! gxc#collect-body-setq%) - _tbl18173_))))) + (table-set! _tbl18876_ '%#call gxc#collect-type-call%) + (table-set! _tbl18876_ '%#if gxc#collect-operands) + (table-set! _tbl18876_ '%#set! gxc#collect-body-setq%) + _tbl18876_))))) (define gxc#apply-collect-type-info - (lambda (_stx18166_ . _args18168_) + (lambda (_stx18869_ . _args18871_) (call-with-parameters - (lambda () (apply gxc#compile-e _stx18166_ _args18168_)) + (lambda () (apply gxc#compile-e _stx18869_ _args18871_)) gxc#current-compile-methods (force gxc#&collect-type-info)))) (define gxc#&basic-expression-type (make-promise (lambda () - (let ((_tbl18163_ (make-hash-table-eq))) + (let ((_tbl18866_ (make-hash-table-eq))) (begin - (hash-copy! _tbl18163_ (force gxc#&false)) - (table-set! _tbl18163_ '%#begin gxc#basic-expression-type-begin%) - (table-set! _tbl18163_ '%#lambda gxc#basic-expression-type-lambda%) + (hash-copy! _tbl18866_ (force gxc#&false)) + (table-set! _tbl18866_ '%#begin gxc#basic-expression-type-begin%) + (table-set! _tbl18866_ '%#lambda gxc#basic-expression-type-lambda%) (table-set! - _tbl18163_ + _tbl18866_ '%#case-lambda gxc#basic-expression-type-case-lambda%) - (table-set! _tbl18163_ '%#call gxc#basic-expression-type-call%) - (table-set! _tbl18163_ '%#ref gxc#basic-expression-type-ref%) - _tbl18163_))))) + (table-set! _tbl18866_ '%#call gxc#basic-expression-type-call%) + (table-set! _tbl18866_ '%#ref gxc#basic-expression-type-ref%) + _tbl18866_))))) (define gxc#apply-basic-expression-type - (lambda (_stx18156_ . _args18158_) + (lambda (_stx18859_ . _args18861_) (call-with-parameters - (lambda () (apply gxc#compile-e _stx18156_ _args18158_)) + (lambda () (apply gxc#compile-e _stx18859_ _args18861_)) gxc#current-compile-methods (force gxc#&basic-expression-type)))) (define gxc#&optimize-call (make-promise (lambda () - (let ((_tbl18153_ (make-hash-table-eq))) + (let ((_tbl18856_ (make-hash-table-eq))) (begin - (hash-copy! _tbl18153_ (force gxc#&basic-xform)) - (table-set! _tbl18153_ '%#call gxc#optimize-call%) - _tbl18153_))))) + (hash-copy! _tbl18856_ (force gxc#&basic-xform)) + (table-set! _tbl18856_ '%#call gxc#optimize-call%) + _tbl18856_))))) (define gxc#apply-optimize-call - (lambda (_stx18146_ . _args18148_) + (lambda (_stx18849_ . _args18851_) (call-with-parameters - (lambda () (apply gxc#compile-e _stx18146_ _args18148_)) + (lambda () (apply gxc#compile-e _stx18849_ _args18851_)) gxc#current-compile-methods (force gxc#&optimize-call)))) (define gxc#&generate-ssxi (make-promise (lambda () - (let ((_tbl18143_ (make-hash-table-eq))) + (let ((_tbl18846_ (make-hash-table-eq))) (begin - (hash-copy! _tbl18143_ (force gxc#&generate-runtime-empty)) - (table-set! _tbl18143_ '%#begin gxc#generate-runtime-begin%) - (table-set! _tbl18143_ '%#module gxc#generate-ssxi-module%) + (hash-copy! _tbl18846_ (force gxc#&generate-runtime-empty)) + (table-set! _tbl18846_ '%#begin gxc#generate-runtime-begin%) + (table-set! _tbl18846_ '%#module gxc#generate-ssxi-module%) (table-set! - _tbl18143_ + _tbl18846_ '%#define-values gxc#generate-ssxi-define-values%) - (table-set! _tbl18143_ '%#call gxc#generate-ssxi-call%) - _tbl18143_))))) + (table-set! _tbl18846_ '%#call gxc#generate-ssxi-call%) + _tbl18846_))))) (define gxc#apply-generate-ssxi - (lambda (_stx18136_ . _args18138_) + (lambda (_stx18839_ . _args18841_) (call-with-parameters - (lambda () (apply gxc#compile-e _stx18136_ _args18138_)) + (lambda () (apply gxc#compile-e _stx18839_ _args18841_)) gxc#current-compile-methods (force gxc#&generate-ssxi)))) - (define gxc#xform-identity (lambda (_stx18133_ . _args18134_) _stx18133_)) + (define gxc#xform-identity (lambda (_stx18836_ . _args18837_) _stx18836_)) (define gxc#xform-wrap-source - (lambda (_stx18130_ _src-stx18131_) - (gx#stx-wrap-source _stx18130_ (gx#stx-source _src-stx18131_)))) + (lambda (_stx18833_ _src-stx18834_) + (gx#stx-wrap-source _stx18833_ (gx#stx-source _src-stx18834_)))) (define gxc#xform-apply-compile-e - (lambda (_args18124_) - (lambda (_g1812518127_) - (apply gxc#compile-e _g1812518127_ _args18124_)))) + (lambda (_args18827_) + (lambda (_g1882818830_) + (apply gxc#compile-e _g1882818830_ _args18827_)))) (define gxc#xform-begin% - (lambda (_stx18083_ . _args18084_) - (let ((_g1808618096_ - (lambda (_g1808718093_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1808718093_)))) - (let ((_g1808518121_ - (lambda (_g1808718099_) - (if (gx#stx-pair? _g1808718099_) - (let ((_e1808918101_ (gx#stx-e _g1808718099_))) - (let ((_hd1809018104_ (##car _e1808918101_)) - (_tl1809118106_ (##cdr _e1808918101_))) - ((lambda (_L18109_) - (let ((_forms18119_ - (map (gxc#xform-apply-compile-e _args18084_) - _L18109_))) + (lambda (_stx18786_ . _args18787_) + (let ((_g1878918799_ + (lambda (_g1879018796_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1879018796_)))) + (let ((_g1878818824_ + (lambda (_g1879018802_) + (if (gx#stx-pair? _g1879018802_) + (let ((_e1879218804_ (gx#stx-e _g1879018802_))) + (let ((_hd1879318807_ (##car _e1879218804_)) + (_tl1879418809_ (##cdr _e1879218804_))) + ((lambda (_L18812_) + (let ((_forms18822_ + (map (gxc#xform-apply-compile-e _args18787_) + _L18812_))) (gxc#xform-wrap-source - (cons '%#begin _forms18119_) - _stx18083_))) - _tl1809118106_))) - (_g1808618096_ _g1808718099_))))) - (_g1808518121_ _stx18083_))))) + (cons '%#begin _forms18822_) + _stx18786_))) + _tl1879418809_))) + (_g1878918799_ _g1879018802_))))) + (_g1878818824_ _stx18786_))))) (define gxc#xform-module% - (lambda (_stx18020_ . _args18021_) - (let ((_g1802318037_ - (lambda (_g1802418034_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1802418034_)))) - (let ((_g1802218080_ - (lambda (_g1802418040_) - (if (gx#stx-pair? _g1802418040_) - (let ((_e1802718042_ (gx#stx-e _g1802418040_))) - (let ((_hd1802818045_ (##car _e1802718042_)) - (_tl1802918047_ (##cdr _e1802718042_))) - (if (gx#stx-pair? _tl1802918047_) - (let ((_e1803018050_ (gx#stx-e _tl1802918047_))) - (let ((_hd1803118053_ (##car _e1803018050_)) - (_tl1803218055_ (##cdr _e1803018050_))) - ((lambda (_L18058_ _L18059_) - (let ((_ctx18072_ - (gx#syntax-local-e _L18059_))) - (let ((_code18074_ - (gx#module-context-code - _ctx18072_))) - (let ((_code18077_ + (lambda (_stx18723_ . _args18724_) + (let ((_g1872618740_ + (lambda (_g1872718737_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1872718737_)))) + (let ((_g1872518783_ + (lambda (_g1872718743_) + (if (gx#stx-pair? _g1872718743_) + (let ((_e1873018745_ (gx#stx-e _g1872718743_))) + (let ((_hd1873118748_ (##car _e1873018745_)) + (_tl1873218750_ (##cdr _e1873018745_))) + (if (gx#stx-pair? _tl1873218750_) + (let ((_e1873318753_ (gx#stx-e _tl1873218750_))) + (let ((_hd1873418756_ (##car _e1873318753_)) + (_tl1873518758_ (##cdr _e1873318753_))) + ((lambda (_L18761_ _L18762_) + (let ((_ctx18775_ + (gx#syntax-local-e__0 _L18762_))) + (let ((_code18777_ + (##structure-ref + _ctx18775_ + '11 + gx#module-context::t + '#f))) + (let ((_code18780_ (call-with-parameters (lambda () (apply gxc#compile-e - _code18074_ - _args18021_)) + _code18777_ + _args18724_)) gx#current-expander-context - _ctx18072_))) + _ctx18775_))) (let () (begin - (gx#module-context-code-set! - _ctx18072_ - _code18077_) + (##structure-set! + _ctx18775_ + _code18780_ + '11 + gx#module-context::t + '#f) (gxc#xform-wrap-source (cons '%#module - (cons _L18059_ - (cons _code18077_ + (cons _L18762_ + (cons _code18780_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx18020_))))))) - _tl1803218055_ - _hd1803118053_))) - (_g1802318037_ _g1802418040_)))) - (_g1802318037_ _g1802418040_))))) - (_g1802218080_ _stx18020_))))) + _stx18723_))))))) + _tl1873518758_ + _hd1873418756_))) + (_g1872618740_ _g1872718743_)))) + (_g1872618740_ _g1872718743_))))) + (_g1872518783_ _stx18723_))))) (define gxc#xform-define-values% - (lambda (_stx17950_ . _args17951_) - (let ((_g1795317970_ - (lambda (_g1795417967_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1795417967_)))) - (let ((_g1795218017_ - (lambda (_g1795417973_) - (if (gx#stx-pair? _g1795417973_) - (let ((_e1795717975_ (gx#stx-e _g1795417973_))) - (let ((_hd1795817978_ (##car _e1795717975_)) - (_tl1795917980_ (##cdr _e1795717975_))) - (if (gx#stx-pair? _tl1795917980_) - (let ((_e1796017983_ (gx#stx-e _tl1795917980_))) - (let ((_hd1796117986_ (##car _e1796017983_)) - (_tl1796217988_ (##cdr _e1796017983_))) - (if (gx#stx-pair? _tl1796217988_) - (let ((_e1796317991_ - (gx#stx-e _tl1796217988_))) - (let ((_hd1796417994_ - (##car _e1796317991_)) - (_tl1796517996_ - (##cdr _e1796317991_))) - (if (gx#stx-null? _tl1796517996_) - ((lambda (_L17999_ _L18000_) - (let ((_expr18015_ + (lambda (_stx18653_ . _args18654_) + (let ((_g1865618673_ + (lambda (_g1865718670_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1865718670_)))) + (let ((_g1865518720_ + (lambda (_g1865718676_) + (if (gx#stx-pair? _g1865718676_) + (let ((_e1866018678_ (gx#stx-e _g1865718676_))) + (let ((_hd1866118681_ (##car _e1866018678_)) + (_tl1866218683_ (##cdr _e1866018678_))) + (if (gx#stx-pair? _tl1866218683_) + (let ((_e1866318686_ (gx#stx-e _tl1866218683_))) + (let ((_hd1866418689_ (##car _e1866318686_)) + (_tl1866518691_ (##cdr _e1866318686_))) + (if (gx#stx-pair? _tl1866518691_) + (let ((_e1866618694_ + (gx#stx-e _tl1866518691_))) + (let ((_hd1866718697_ + (##car _e1866618694_)) + (_tl1866818699_ + (##cdr _e1866618694_))) + (if (gx#stx-null? _tl1866818699_) + ((lambda (_L18702_ _L18703_) + (let ((_expr18718_ (apply gxc#compile-e - _L17999_ - _args17951_))) + _L18702_ + _args18654_))) (gxc#xform-wrap-source (cons '%#define-values - (cons _L18000_ - (cons _expr18015_ + (cons _L18703_ + (cons _expr18718_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx17950_))) - _hd1796417994_ - _hd1796117986_) - (_g1795317970_ _g1795417973_)))) - (_g1795317970_ _g1795417973_)))) - (_g1795317970_ _g1795417973_)))) - (_g1795317970_ _g1795417973_))))) - (_g1795218017_ _stx17950_))))) + _stx18653_))) + _hd1866718697_ + _hd1866418689_) + (_g1865618673_ _g1865718676_)))) + (_g1865618673_ _g1865718676_)))) + (_g1865618673_ _g1865718676_)))) + (_g1865618673_ _g1865718676_))))) + (_g1865518720_ _stx18653_))))) (define gxc#xform-lambda% - (lambda (_stx17893_ . _args17894_) - (let ((_g1789617910_ - (lambda (_g1789717907_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1789717907_)))) - (let ((_g1789517947_ - (lambda (_g1789717913_) - (if (gx#stx-pair? _g1789717913_) - (let ((_e1790017915_ (gx#stx-e _g1789717913_))) - (let ((_hd1790117918_ (##car _e1790017915_)) - (_tl1790217920_ (##cdr _e1790017915_))) - (if (gx#stx-pair? _tl1790217920_) - (let ((_e1790317923_ (gx#stx-e _tl1790217920_))) - (let ((_hd1790417926_ (##car _e1790317923_)) - (_tl1790517928_ (##cdr _e1790317923_))) - ((lambda (_L17931_ _L17932_) - (let ((_body17945_ + (lambda (_stx18596_ . _args18597_) + (let ((_g1859918613_ + (lambda (_g1860018610_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1860018610_)))) + (let ((_g1859818650_ + (lambda (_g1860018616_) + (if (gx#stx-pair? _g1860018616_) + (let ((_e1860318618_ (gx#stx-e _g1860018616_))) + (let ((_hd1860418621_ (##car _e1860318618_)) + (_tl1860518623_ (##cdr _e1860318618_))) + (if (gx#stx-pair? _tl1860518623_) + (let ((_e1860618626_ (gx#stx-e _tl1860518623_))) + (let ((_hd1860718629_ (##car _e1860618626_)) + (_tl1860818631_ (##cdr _e1860618626_))) + ((lambda (_L18634_ _L18635_) + (let ((_body18648_ (map (gxc#xform-apply-compile-e - _args17894_) - _L17931_))) + _args18597_) + _L18634_))) (gxc#xform-wrap-source (cons '%#lambda - (cons _L17932_ _body17945_)) - _stx17893_))) - _tl1790517928_ - _hd1790417926_))) - (_g1789617910_ _g1789717913_)))) - (_g1789617910_ _g1789717913_))))) - (_g1789517947_ _stx17893_))))) + (cons _L18635_ _body18648_)) + _stx18596_))) + _tl1860818631_ + _hd1860718629_))) + (_g1859918613_ _g1860018616_)))) + (_g1859918613_ _g1860018616_))))) + (_g1859818650_ _stx18596_))))) (define gxc#xform-case-lambda% - (lambda (_stx17806_ . _args17807_) - (let ((_clause-e17809_ - (lambda (_clause17850_) - (let ((_g1785217863_ - (lambda (_g1785317860_) + (lambda (_stx18509_ . _args18510_) + (let ((_clause-e18512_ + (lambda (_clause18553_) + (let ((_g1855518566_ + (lambda (_g1855618563_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1785317860_)))) - (let ((_g1785117890_ - (lambda (_g1785317866_) - (if (gx#stx-pair? _g1785317866_) - (let ((_e1785617868_ (gx#stx-e _g1785317866_))) - (let ((_hd1785717871_ (##car _e1785617868_)) - (_tl1785817873_ (##cdr _e1785617868_))) - ((lambda (_L17876_ _L17877_) - (let ((_body17888_ + _g1855618563_)))) + (let ((_g1855418593_ + (lambda (_g1855618569_) + (if (gx#stx-pair? _g1855618569_) + (let ((_e1855918571_ (gx#stx-e _g1855618569_))) + (let ((_hd1856018574_ (##car _e1855918571_)) + (_tl1856118576_ (##cdr _e1855918571_))) + ((lambda (_L18579_ _L18580_) + (let ((_body18591_ (map (gxc#xform-apply-compile-e - _args17807_) - _L17876_))) - (cons _L17877_ _body17888_))) - _tl1785817873_ - _hd1785717871_))) - (_g1785217863_ _g1785317866_))))) - (_g1785117890_ _clause17850_)))))) - (let ((_g1781117821_ - (lambda (_g1781217818_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1781217818_)))) - (let ((_g1781017847_ - (lambda (_g1781217824_) - (if (gx#stx-pair? _g1781217824_) - (let ((_e1781417826_ (gx#stx-e _g1781217824_))) - (let ((_hd1781517829_ (##car _e1781417826_)) - (_tl1781617831_ (##cdr _e1781417826_))) - ((lambda (_L17834_) - (let ((_clauses17845_ - (map _clause-e17809_ _L17834_))) + _args18510_) + _L18579_))) + (cons _L18580_ _body18591_))) + _tl1856118576_ + _hd1856018574_))) + (_g1855518566_ _g1855618569_))))) + (_g1855418593_ _clause18553_)))))) + (let ((_g1851418524_ + (lambda (_g1851518521_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1851518521_)))) + (let ((_g1851318550_ + (lambda (_g1851518527_) + (if (gx#stx-pair? _g1851518527_) + (let ((_e1851718529_ (gx#stx-e _g1851518527_))) + (let ((_hd1851818532_ (##car _e1851718529_)) + (_tl1851918534_ (##cdr _e1851718529_))) + ((lambda (_L18537_) + (let ((_clauses18548_ + (map _clause-e18512_ _L18537_))) (gxc#xform-wrap-source - (cons '%#case-lambda _clauses17845_) - _stx17806_))) - _tl1781617831_))) - (_g1781117821_ _g1781217824_))))) - (_g1781017847_ _stx17806_)))))) + (cons '%#case-lambda _clauses18548_) + _stx18509_))) + _tl1851918534_))) + (_g1851418524_ _g1851518527_))))) + (_g1851318550_ _stx18509_)))))) (define gxc#xform-let-values% - (lambda (_stx17600_ . _args17601_) - (let ((_g1760317636_ - (lambda (_g1760417633_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1760417633_)))) - (let ((_g1760217803_ - (lambda (_g1760417639_) - (if (gx#stx-pair? _g1760417639_) - (let ((_e1760917641_ (gx#stx-e _g1760417639_))) - (let ((_hd1761017644_ (##car _e1760917641_)) - (_tl1761117646_ (##cdr _e1760917641_))) - (if (gx#stx-pair? _tl1761117646_) - (let ((_e1761217649_ (gx#stx-e _tl1761117646_))) - (let ((_hd1761317652_ (##car _e1761217649_)) - (_tl1761417654_ (##cdr _e1761217649_))) - (if (gx#stx-pair/null? _hd1761317652_) - (if (fx>= (gx#stx-length _hd1761317652_) + (lambda (_stx18303_ . _args18304_) + (let ((_g1830618339_ + (lambda (_g1830718336_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1830718336_)))) + (let ((_g1830518506_ + (lambda (_g1830718342_) + (if (gx#stx-pair? _g1830718342_) + (let ((_e1831218344_ (gx#stx-e _g1830718342_))) + (let ((_hd1831318347_ (##car _e1831218344_)) + (_tl1831418349_ (##cdr _e1831218344_))) + (if (gx#stx-pair? _tl1831418349_) + (let ((_e1831518352_ (gx#stx-e _tl1831418349_))) + (let ((_hd1831618355_ (##car _e1831518352_)) + (_tl1831718357_ (##cdr _e1831518352_))) + (if (gx#stx-pair/null? _hd1831618355_) + (if (fx>= (gx#stx-length _hd1831618355_) '0) - (let ((_g18525_ + (let ((_g19230_ (gx#syntax-split-splice - _hd1761317652_ + _hd1831618355_ '0))) (begin - (let ((_g18526_ - (values-count _g18525_))) - (if (not (fx= _g18526_ 2)) + (let ((_g19231_ + (values-count _g19230_))) + (if (not (fx= _g19231_ 2)) (error "Context expects 2 values" - _g18526_))) - (let ((_target1761517657_ - (values-ref _g18525_ 0)) - (_tl1761717659_ - (values-ref _g18525_ 1))) + _g19231_))) + (let ((_target1831818360_ + (values-ref _g19230_ 0)) + (_tl1832018362_ + (values-ref _g19230_ 1))) (if (gx#stx-null? - _tl1761717659_) - (letrec ((_loop1761817662_ - (lambda (_hd1761617665_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr1762217667_ - _hd1762317669_) - (if (gx#stx-pair? _hd1761617665_) - (let ((_e1761917672_ (gx#stx-e _hd1761617665_))) - (let ((_lp-hd1762017675_ (##car _e1761917672_)) - (_lp-tl1762117677_ (##cdr _e1761917672_))) - (if (gx#stx-pair? _lp-hd1762017675_) - (let ((_e1762617680_ - (gx#stx-e _lp-hd1762017675_))) - (let ((_hd1762717683_ - (##car _e1762617680_)) - (_tl1762817685_ - (##cdr _e1762617680_))) - (if (gx#stx-pair? _tl1762817685_) - (let ((_e1762917688_ - (gx#stx-e _tl1762817685_))) - (let ((_hd1763017691_ - (##car _e1762917688_)) - (_tl1763117693_ - (##cdr _e1762917688_))) + _tl1832018362_) + (letrec ((_loop1832118365_ + (lambda (_hd1831918368_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _expr1832518370_ + _hd1832618372_) + (if (gx#stx-pair? _hd1831918368_) + (let ((_e1832218375_ (gx#stx-e _hd1831918368_))) + (let ((_lp-hd1832318378_ (##car _e1832218375_)) + (_lp-tl1832418380_ (##cdr _e1832218375_))) + (if (gx#stx-pair? _lp-hd1832318378_) + (let ((_e1832918383_ + (gx#stx-e _lp-hd1832318378_))) + (let ((_hd1833018386_ + (##car _e1832918383_)) + (_tl1833118388_ + (##cdr _e1832918383_))) + (if (gx#stx-pair? _tl1833118388_) + (let ((_e1833218391_ + (gx#stx-e _tl1833118388_))) + (let ((_hd1833318394_ + (##car _e1833218391_)) + (_tl1833418396_ + (##cdr _e1833218391_))) (if (gx#stx-null? - _tl1763117693_) - (_loop1761817662_ - _lp-tl1762117677_ - (cons _hd1763017691_ - _expr1762217667_) - (cons _hd1762717683_ - _hd1762317669_)) - (_g1760317636_ - _g1760417639_)))) - (_g1760317636_ _g1760417639_)))) - (_g1760317636_ _g1760417639_)))) - (let ((_expr1762417696_ (reverse _expr1762217667_)) - (_hd1762517698_ (reverse _hd1762317669_))) - ((lambda (_L17701_ _L17702_ _L17703_ _L17704_) - (let ((_g1772317739_ - (lambda (_g1772417736_) + _tl1833418396_) + (_loop1832118365_ + _lp-tl1832418380_ + (cons _hd1833318394_ + _expr1832518370_) + (cons _hd1833018386_ + _hd1832618372_)) + (_g1830618339_ + _g1830718342_)))) + (_g1830618339_ _g1830718342_)))) + (_g1830618339_ _g1830718342_)))) + (let ((_expr1832718399_ (reverse _expr1832518370_)) + (_hd1832818401_ (reverse _hd1832618372_))) + ((lambda (_L18404_ _L18405_ _L18406_ _L18407_) + (let ((_g1842618442_ + (lambda (_g1842718439_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1772417736_)))) - (let ((_g1772217793_ - (lambda (_g1772417742_) + _g1842718439_)))) + (let ((_g1842518496_ + (lambda (_g1842718445_) (if (gx#stx-pair/null? - _g1772417742_) + _g1842718445_) (if (fx>= (gx#stx-length - _g1772417742_) + _g1842718445_) '0) - (let ((_g18527_ + (let ((_g19232_ (gx#syntax-split-splice - _g1772417742_ + _g1842718445_ '0))) (begin - (let ((_g18528_ + (let ((_g19233_ (values-count - _g18527_))) - (if (not (fx= _g18528_ + _g19232_))) + (if (not (fx= _g19233_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2)) - (error "Context expects 2 values" _g18528_))) - (let ((_target1772617744_ (values-ref _g18527_ 0)) - (_tl1772817746_ (values-ref _g18527_ 1))) - (if (gx#stx-null? _tl1772817746_) - (letrec ((_loop1772917749_ - (lambda (_hd1772717752_ _expr1773317754_) - (if (gx#stx-pair? _hd1772717752_) - (let ((_e1773017757_ - (gx#syntax-e _hd1772717752_))) - (let ((_lp-hd1773117760_ - (##car _e1773017757_)) - (_lp-tl1773217762_ - (##cdr _e1773017757_))) - (_loop1772917749_ - _lp-tl1773217762_ - (cons _lp-hd1773117760_ - _expr1773317754_)))) - (let ((_expr1773417765_ - (reverse _expr1773317754_))) - ((lambda (_L17768_) + (error "Context expects 2 values" _g19233_))) + (let ((_target1842918447_ (values-ref _g19232_ 0)) + (_tl1843118449_ (values-ref _g19232_ 1))) + (if (gx#stx-null? _tl1843118449_) + (letrec ((_loop1843218452_ + (lambda (_hd1843018455_ _expr1843618457_) + (if (gx#stx-pair? _hd1843018455_) + (let ((_e1843318460_ + (gx#syntax-e _hd1843018455_))) + (let ((_lp-hd1843418463_ + (##car _e1843318460_)) + (_lp-tl1843518465_ + (##cdr _e1843318460_))) + (_loop1843218452_ + _lp-tl1843518465_ + (cons _lp-hd1843418463_ + _expr1843618457_)))) + (let ((_expr1843718468_ + (reverse _expr1843618457_))) + ((lambda (_L18471_) (let () - (let ((_body17781_ + (let ((_body18484_ (map (gxc#xform-apply-compile-e - _args17601_) - _L17701_))) + _args18304_) + _L18404_))) (gxc#xform-wrap-source - (cons _L17704_ + (cons _L18407_ (cons (begin (gx#syntax-check-splice-targets - _L17768_ - _L17703_) - (foldr (lambda (_g1778217786_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1778317788_ - _g1778417790_) - (cons (cons _g1778317788_ - (cons _g1778217786_ '())) - _g1778417790_)) + _L18471_ + _L18406_) + (foldr (lambda (_g1848518489_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g1848618491_ + _g1848718493_) + (cons (cons _g1848618491_ + (cons _g1848518489_ '())) + _g1848718493_)) '() - _L17768_ - _L17703_)) - _body17781_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx17600_)))) - _expr1773417765_)))))) - (_loop1772917749_ _target1772617744_ '())) - (_g1772317739_ _g1772417742_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1772317739_ - _g1772417742_)) - (_g1772317739_ - _g1772417742_))))) - (_g1772217793_ + _L18471_ + _L18406_)) + _body18484_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _stx18303_)))) + _expr1843718468_)))))) + (_loop1843218452_ _target1842918447_ '())) + (_g1842618442_ _g1842718445_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1842618442_ + _g1842718445_)) + (_g1842618442_ + _g1842718445_))))) + (_g1842518496_ (map (gxc#xform-apply-compile-e - _args17601_) + _args18304_) (begin '#!void - (foldr1 (lambda (_g1779517798_ - _g1779617800_) - (cons _g1779517798_ - _g1779617800_)) + (foldr1 (lambda (_g1849818501_ + _g1849918503_) + (cons _g1849818501_ + _g1849918503_)) '() - _L17702_))))))) - _tl1761417654_ - _expr1762417696_ - _hd1762517698_ - _hd1761017644_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1761817662_ - _target1761517657_ + _L18405_))))))) + _tl1831718357_ + _expr1832718399_ + _hd1832818401_ + _hd1831318347_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop1832118365_ + _target1831818360_ '() '())) - (_g1760317636_ - _g1760417639_))))) - (_g1760317636_ _g1760417639_)) - (_g1760317636_ _g1760417639_)))) - (_g1760317636_ _g1760417639_)))) - (_g1760317636_ _g1760417639_))))) - (_g1760217803_ _stx17600_))))) + (_g1830618339_ + _g1830718342_))))) + (_g1830618339_ _g1830718342_)) + (_g1830618339_ _g1830718342_)))) + (_g1830618339_ _g1830718342_)))) + (_g1830618339_ _g1830718342_))))) + (_g1830518506_ _stx18303_))))) (define gxc#xform-operands - (lambda (_stx17556_ . _args17557_) - (let ((_g1755917570_ - (lambda (_g1756017567_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1756017567_)))) - (let ((_g1755817597_ - (lambda (_g1756017573_) - (if (gx#stx-pair? _g1756017573_) - (let ((_e1756317575_ (gx#stx-e _g1756017573_))) - (let ((_hd1756417578_ (##car _e1756317575_)) - (_tl1756517580_ (##cdr _e1756317575_))) - ((lambda (_L17583_ _L17584_) - (let ((_rands17595_ - (map (gxc#xform-apply-compile-e _args17557_) - _L17583_))) + (lambda (_stx18259_ . _args18260_) + (let ((_g1826218273_ + (lambda (_g1826318270_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1826318270_)))) + (let ((_g1826118300_ + (lambda (_g1826318276_) + (if (gx#stx-pair? _g1826318276_) + (let ((_e1826618278_ (gx#stx-e _g1826318276_))) + (let ((_hd1826718281_ (##car _e1826618278_)) + (_tl1826818283_ (##cdr _e1826618278_))) + ((lambda (_L18286_ _L18287_) + (let ((_rands18298_ + (map (gxc#xform-apply-compile-e _args18260_) + _L18286_))) (gxc#xform-wrap-source - (cons _L17584_ _rands17595_) - _stx17556_))) - _tl1756517580_ - _hd1756417578_))) - (_g1755917570_ _g1756017573_))))) - (_g1755817597_ _stx17556_))))) + (cons _L18287_ _rands18298_) + _stx18259_))) + _tl1826818283_ + _hd1826718281_))) + (_g1826218273_ _g1826318276_))))) + (_g1826118300_ _stx18259_))))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_stx17486_ . _args17487_) - (let ((_g1748917506_ - (lambda (_g1749017503_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1749017503_)))) - (let ((_g1748817553_ - (lambda (_g1749017509_) - (if (gx#stx-pair? _g1749017509_) - (let ((_e1749317511_ (gx#stx-e _g1749017509_))) - (let ((_hd1749417514_ (##car _e1749317511_)) - (_tl1749517516_ (##cdr _e1749317511_))) - (if (gx#stx-pair? _tl1749517516_) - (let ((_e1749617519_ (gx#stx-e _tl1749517516_))) - (let ((_hd1749717522_ (##car _e1749617519_)) - (_tl1749817524_ (##cdr _e1749617519_))) - (if (gx#stx-pair? _tl1749817524_) - (let ((_e1749917527_ - (gx#stx-e _tl1749817524_))) - (let ((_hd1750017530_ - (##car _e1749917527_)) - (_tl1750117532_ - (##cdr _e1749917527_))) - (if (gx#stx-null? _tl1750117532_) - ((lambda (_L17535_ _L17536_) - (let ((_expr17551_ + (lambda (_stx18189_ . _args18190_) + (let ((_g1819218209_ + (lambda (_g1819318206_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1819318206_)))) + (let ((_g1819118256_ + (lambda (_g1819318212_) + (if (gx#stx-pair? _g1819318212_) + (let ((_e1819618214_ (gx#stx-e _g1819318212_))) + (let ((_hd1819718217_ (##car _e1819618214_)) + (_tl1819818219_ (##cdr _e1819618214_))) + (if (gx#stx-pair? _tl1819818219_) + (let ((_e1819918222_ (gx#stx-e _tl1819818219_))) + (let ((_hd1820018225_ (##car _e1819918222_)) + (_tl1820118227_ (##cdr _e1819918222_))) + (if (gx#stx-pair? _tl1820118227_) + (let ((_e1820218230_ + (gx#stx-e _tl1820118227_))) + (let ((_hd1820318233_ + (##car _e1820218230_)) + (_tl1820418235_ + (##cdr _e1820218230_))) + (if (gx#stx-null? _tl1820418235_) + ((lambda (_L18238_ _L18239_) + (let ((_expr18254_ (apply gxc#compile-e - _L17535_ - _args17487_))) + _L18238_ + _args18190_))) (gxc#xform-wrap-source (cons '%#set! - (cons _L17536_ - (cons _expr17551_ + (cons _L18239_ + (cons _expr18254_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx17486_))) - _hd1750017530_ - _hd1749717522_) - (_g1748917506_ _g1749017509_)))) - (_g1748917506_ _g1749017509_)))) - (_g1748917506_ _g1749017509_)))) - (_g1748917506_ _g1749017509_))))) - (_g1748817553_ _stx17486_))))) + _stx18189_))) + _hd1820318233_ + _hd1820018225_) + (_g1819218209_ _g1819318212_)))) + (_g1819218209_ _g1819318212_)))) + (_g1819218209_ _g1819318212_)))) + (_g1819218209_ _g1819318212_))))) + (_g1819118256_ _stx18189_))))) (define gxc#collect-mutators-setq% - (lambda (_stx17417_) - (let ((_g1741917436_ - (lambda (_g1742017433_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1742017433_)))) - (let ((_g1741817483_ - (lambda (_g1742017439_) - (if (gx#stx-pair? _g1742017439_) - (let ((_e1742317441_ (gx#stx-e _g1742017439_))) - (let ((_hd1742417444_ (##car _e1742317441_)) - (_tl1742517446_ (##cdr _e1742317441_))) - (if (gx#stx-pair? _tl1742517446_) - (let ((_e1742617449_ (gx#stx-e _tl1742517446_))) - (let ((_hd1742717452_ (##car _e1742617449_)) - (_tl1742817454_ (##cdr _e1742617449_))) - (if (gx#stx-pair? _tl1742817454_) - (let ((_e1742917457_ - (gx#stx-e _tl1742817454_))) - (let ((_hd1743017460_ - (##car _e1742917457_)) - (_tl1743117462_ - (##cdr _e1742917457_))) - (if (gx#stx-null? _tl1743117462_) - ((lambda (_L17465_ _L17466_) - (let ((_sym17481_ + (lambda (_stx18120_) + (let ((_g1812218139_ + (lambda (_g1812318136_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1812318136_)))) + (let ((_g1812118186_ + (lambda (_g1812318142_) + (if (gx#stx-pair? _g1812318142_) + (let ((_e1812618144_ (gx#stx-e _g1812318142_))) + (let ((_hd1812718147_ (##car _e1812618144_)) + (_tl1812818149_ (##cdr _e1812618144_))) + (if (gx#stx-pair? _tl1812818149_) + (let ((_e1812918152_ (gx#stx-e _tl1812818149_))) + (let ((_hd1813018155_ (##car _e1812918152_)) + (_tl1813118157_ (##cdr _e1812918152_))) + (if (gx#stx-pair? _tl1813118157_) + (let ((_e1813218160_ + (gx#stx-e _tl1813118157_))) + (let ((_hd1813318163_ + (##car _e1813218160_)) + (_tl1813418165_ + (##cdr _e1813218160_))) + (if (gx#stx-null? _tl1813418165_) + ((lambda (_L18168_ _L18169_) + (let ((_sym18184_ (gxc#generate-runtime-binding-id - _L17466_))) + _L18169_))) (begin (gxc#verbose '"collect mutator " - _sym17481_) + _sym18184_) (table-set! (gxc#current-compile-mutators) - _sym17481_ + _sym18184_ '#t) - (gxc#compile-e _L17465_)))) - _hd1743017460_ - _hd1742717452_) - (_g1741917436_ _g1742017439_)))) - (_g1741917436_ _g1742017439_)))) - (_g1741917436_ _g1742017439_)))) - (_g1741917436_ _g1742017439_))))) - (_g1741817483_ _stx17417_))))) + (gxc#compile-e _L18168_)))) + _hd1813318163_ + _hd1813018155_) + (_g1812218139_ _g1812318142_)))) + (_g1812218139_ _g1812318142_)))) + (_g1812218139_ _g1812318142_)))) + (_g1812218139_ _g1812318142_))))) + (_g1812118186_ _stx18120_))))) (define gxc#dispatch-lambda-form? - (lambda (_form16651_) - (let ((_g1665616813_ - (lambda (_g1665716810_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1665716810_)))) - (let ((_g1665516820_ (lambda (_g1665716816_) ((lambda () '#f))))) - (let ((_g1665416960_ - (lambda (_g1665716823_) - (if (gx#stx-pair? _g1665716823_) - (let ((_e1677316825_ (gx#stx-e _g1665716823_))) - (let ((_hd1677416828_ (##car _e1677316825_)) - (_tl1677516830_ (##cdr _e1677316825_))) - (if (gx#stx-pair? _tl1677516830_) - (let ((_e1677616833_ (gx#stx-e _tl1677516830_))) - (let ((_hd1677716836_ (##car _e1677616833_)) - (_tl1677816838_ (##cdr _e1677616833_))) - (if (gx#stx-pair? _hd1677716836_) - (let ((_e1677916841_ - (gx#stx-e _hd1677716836_))) - (let ((_hd1678016844_ - (##car _e1677916841_)) - (_tl1678116846_ - (##cdr _e1677916841_))) - (if (gx#identifier? _hd1678016844_) + (lambda (_form17354_) + (let ((_g1735917516_ + (lambda (_g1736017513_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1736017513_)))) + (let ((_g1735817523_ (lambda (_g1736017519_) ((lambda () '#f))))) + (let ((_g1735717663_ + (lambda (_g1736017526_) + (if (gx#stx-pair? _g1736017526_) + (let ((_e1747617528_ (gx#stx-e _g1736017526_))) + (let ((_hd1747717531_ (##car _e1747617528_)) + (_tl1747817533_ (##cdr _e1747617528_))) + (if (gx#stx-pair? _tl1747817533_) + (let ((_e1747917536_ (gx#stx-e _tl1747817533_))) + (let ((_hd1748017539_ (##car _e1747917536_)) + (_tl1748117541_ (##cdr _e1747917536_))) + (if (gx#stx-pair? _hd1748017539_) + (let ((_e1748217544_ + (gx#stx-e _hd1748017539_))) + (let ((_hd1748317547_ + (##car _e1748217544_)) + (_tl1748417549_ + (##cdr _e1748217544_))) + (if (gx#identifier? _hd1748317547_) (if (gx#stx-eq? '%#call - _hd1678016844_) + _hd1748317547_) (if (gx#stx-pair? - _tl1678116846_) - (let ((_e1678216849_ + _tl1748417549_) + (let ((_e1748517552_ (gx#stx-e - _tl1678116846_))) - (let ((_hd1678316852_ - (##car _e1678216849_)) - (_tl1678416854_ - (##cdr _e1678216849_))) + _tl1748417549_))) + (let ((_hd1748617555_ + (##car _e1748517552_)) + (_tl1748717557_ + (##cdr _e1748517552_))) (if (gx#stx-pair? - _hd1678316852_) - (let ((_e1678516857_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1678316852_))) - (let ((_hd1678616860_ (##car _e1678516857_)) - (_tl1678716862_ (##cdr _e1678516857_))) - (if (gx#identifier? _hd1678616860_) - (if (gx#stx-eq? '%#ref _hd1678616860_) - (if (gx#stx-pair? _tl1678716862_) - (let ((_e1678816865_ - (gx#stx-e _tl1678716862_))) - (let ((_hd1678916868_ - (##car _e1678816865_)) - (_tl1679016870_ - (##cdr _e1678816865_))) - (if (gx#stx-null? _tl1679016870_) + _hd1748617555_) + (let ((_e1748817560_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _hd1748617555_))) + (let ((_hd1748917563_ (##car _e1748817560_)) + (_tl1749017565_ (##cdr _e1748817560_))) + (if (gx#identifier? _hd1748917563_) + (if (gx#stx-eq? '%#ref _hd1748917563_) + (if (gx#stx-pair? _tl1749017565_) + (let ((_e1749117568_ + (gx#stx-e _tl1749017565_))) + (let ((_hd1749217571_ + (##car _e1749117568_)) + (_tl1749317573_ + (##cdr _e1749117568_))) + (if (gx#stx-null? _tl1749317573_) (if (gx#stx-pair? - _tl1678416854_) - (let ((_e1679116873_ + _tl1748717557_) + (let ((_e1749417576_ (gx#stx-e - _tl1678416854_))) - (let ((_hd1679216876_ - (##car _e1679116873_)) - (_tl1679316878_ - (##cdr _e1679116873_))) + _tl1748717557_))) + (let ((_hd1749517579_ + (##car _e1749417576_)) + (_tl1749617581_ + (##cdr _e1749417576_))) (if (gx#stx-pair? - _hd1679216876_) - (let ((_e1679416881_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1679216876_))) - (let ((_hd1679516884_ (##car _e1679416881_)) - (_tl1679616886_ (##cdr _e1679416881_))) - (if (gx#identifier? _hd1679516884_) - (if (gx#stx-eq? '%#ref _hd1679516884_) - (if (gx#stx-pair? _tl1679616886_) - (let ((_e1679716889_ - (gx#stx-e _tl1679616886_))) - (let ((_hd1679816892_ - (##car _e1679716889_)) - (_tl1679916894_ - (##cdr _e1679716889_))) - (if (gx#stx-null? _tl1679916894_) - (if (gx#stx-pair? _tl1679316878_) - (let ((_e1680016897_ + _hd1749517579_) + (let ((_e1749717584_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _hd1749517579_))) + (let ((_hd1749817587_ (##car _e1749717584_)) + (_tl1749917589_ (##cdr _e1749717584_))) + (if (gx#identifier? _hd1749817587_) + (if (gx#stx-eq? '%#ref _hd1749817587_) + (if (gx#stx-pair? _tl1749917589_) + (let ((_e1750017592_ + (gx#stx-e _tl1749917589_))) + (let ((_hd1750117595_ + (##car _e1750017592_)) + (_tl1750217597_ + (##cdr _e1750017592_))) + (if (gx#stx-null? _tl1750217597_) + (if (gx#stx-pair? _tl1749617581_) + (let ((_e1750317600_ (gx#stx-e - _tl1679316878_))) - (let ((_hd1680116900_ - (##car _e1680016897_)) - (_tl1680216902_ - (##cdr _e1680016897_))) + _tl1749617581_))) + (let ((_hd1750417603_ + (##car _e1750317600_)) + (_tl1750517605_ + (##cdr _e1750317600_))) (if (gx#stx-pair? - _hd1680116900_) - (let ((_e1680316905_ + _hd1750417603_) + (let ((_e1750617608_ (gx#stx-e - _hd1680116900_))) - (let ((_hd1680416908_ - (##car _e1680316905_)) - (_tl1680516910_ - (##cdr _e1680316905_))) + _hd1750417603_))) + (let ((_hd1750717611_ + (##car _e1750617608_)) + (_tl1750817613_ + (##cdr _e1750617608_))) (if (gx#identifier? - _hd1680416908_) + _hd1750717611_) (if (gx#stx-eq? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#ref - _hd1680416908_) - (if (gx#stx-pair? _tl1680516910_) - (let ((_e1680616913_ (gx#stx-e _tl1680516910_))) - (let ((_hd1680716916_ (##car _e1680616913_)) - (_tl1680816918_ (##cdr _e1680616913_))) - (if (gx#stx-null? _tl1680816918_) - (if (gx#stx-null? _tl1680216902_) - (if (gx#stx-null? _tl1677816838_) - ((lambda (_L16921_ - _L16922_ - _L16923_ - _L16924_) + _hd1750717611_) + (if (gx#stx-pair? _tl1750817613_) + (let ((_e1750917616_ (gx#stx-e _tl1750817613_))) + (let ((_hd1751017619_ (##car _e1750917616_)) + (_tl1751117621_ (##cdr _e1750917616_))) + (if (gx#stx-null? _tl1751117621_) + (if (gx#stx-null? _tl1750517605_) + (if (gx#stx-null? _tl1748117541_) + ((lambda (_L17624_ + _L17625_ + _L17626_ + _L17627_) (if (if (gx#identifier? - _L16924_) + _L17627_) (if (eq? (gxc#generate-runtime-binding-id ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L16923_) + _L17626_) 'apply) - (if (gx#free-identifier=? _L16924_ _L16921_) - (not (gx#free-identifier=? _L16922_ _L16924_)) + (if (gx#free-identifier=? _L17627_ _L17624_) + (not (gx#free-identifier=? _L17625_ _L17627_)) '#f) '#f) '#f) '#t - (_g1665516820_ _g1665716823_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd1680716916_ - _hd1679816892_ - _hd1678916868_ - _hd1677416828_) - (_g1665516820_ _g1665716823_)) - (_g1665516820_ _g1665716823_)) - (_g1665516820_ _g1665716823_)))) - (_g1665516820_ _g1665716823_)) - (_g1665516820_ _g1665716823_)) - (_g1665516820_ _g1665716823_)))) - (_g1665516820_ _g1665716823_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1665516820_ _g1665716823_)) - (_g1665516820_ _g1665716823_)))) - (_g1665516820_ _g1665716823_)) - (_g1665516820_ _g1665716823_)) - (_g1665516820_ _g1665716823_)))) - (_g1665516820_ _g1665716823_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1665516820_ - _g1665716823_)) - (_g1665516820_ _g1665716823_)))) - (_g1665516820_ _g1665716823_)) - (_g1665516820_ _g1665716823_)) - (_g1665516820_ _g1665716823_)))) - (_g1665516820_ _g1665716823_)))) - (_g1665516820_ _g1665716823_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1665516820_ - _g1665716823_)) - (_g1665516820_ _g1665716823_)))) - (_g1665516820_ _g1665716823_)))) - (_g1665516820_ _g1665716823_)))) - (_g1665516820_ _g1665716823_))))) - (let ((_g1665317220_ - (lambda (_g1665716963_) - (if (gx#stx-pair? _g1665716963_) - (let ((_e1670916965_ (gx#stx-e _g1665716963_))) - (let ((_hd1671016968_ (##car _e1670916965_)) - (_tl1671116970_ (##cdr _e1670916965_))) - (if (gx#stx-pair/null? _hd1671016968_) - (if (fx>= (gx#stx-length _hd1671016968_) '0) - (let ((_g18529_ + (_g1735817523_ _g1736017526_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd1751017619_ + _hd1750117595_ + _hd1749217571_ + _hd1747717531_) + (_g1735817523_ _g1736017526_)) + (_g1735817523_ _g1736017526_)) + (_g1735817523_ _g1736017526_)))) + (_g1735817523_ _g1736017526_)) + (_g1735817523_ _g1736017526_)) + (_g1735817523_ _g1736017526_)))) + (_g1735817523_ _g1736017526_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1735817523_ _g1736017526_)) + (_g1735817523_ _g1736017526_)))) + (_g1735817523_ _g1736017526_)) + (_g1735817523_ _g1736017526_)) + (_g1735817523_ _g1736017526_)))) + (_g1735817523_ _g1736017526_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1735817523_ + _g1736017526_)) + (_g1735817523_ _g1736017526_)))) + (_g1735817523_ _g1736017526_)) + (_g1735817523_ _g1736017526_)) + (_g1735817523_ _g1736017526_)))) + (_g1735817523_ _g1736017526_)))) + (_g1735817523_ _g1736017526_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1735817523_ + _g1736017526_)) + (_g1735817523_ _g1736017526_)))) + (_g1735817523_ _g1736017526_)))) + (_g1735817523_ _g1736017526_)))) + (_g1735817523_ _g1736017526_))))) + (let ((_g1735617923_ + (lambda (_g1736017666_) + (if (gx#stx-pair? _g1736017666_) + (let ((_e1741217668_ (gx#stx-e _g1736017666_))) + (let ((_hd1741317671_ (##car _e1741217668_)) + (_tl1741417673_ (##cdr _e1741217668_))) + (if (gx#stx-pair/null? _hd1741317671_) + (if (fx>= (gx#stx-length _hd1741317671_) '0) + (let ((_g19234_ (gx#syntax-split-splice - _hd1671016968_ + _hd1741317671_ '0))) (begin - (let ((_g18530_ - (values-count _g18529_))) - (if (not (fx= _g18530_ 2)) + (let ((_g19235_ + (values-count _g19234_))) + (if (not (fx= _g19235_ 2)) (error "Context expects 2 values" - _g18530_))) - (let ((_target1671216973_ - (values-ref _g18529_ 0)) - (_tl1671416975_ - (values-ref _g18529_ 1))) - (letrec ((_loop1671516978_ - (lambda (_hd1671316981_ - _arg1671916983_) + _g19235_))) + (let ((_target1741517676_ + (values-ref _g19234_ 0)) + (_tl1741717678_ + (values-ref _g19234_ 1))) + (letrec ((_loop1741817681_ + (lambda (_hd1741617684_ + _arg1742217686_) (if (gx#stx-pair? - _hd1671316981_) - (let ((_e1671616986_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1671316981_))) - (let ((_lp-hd1671716989_ (##car _e1671616986_)) - (_lp-tl1671816991_ (##cdr _e1671616986_))) - (_loop1671516978_ - _lp-tl1671816991_ - (cons _lp-hd1671716989_ _arg1671916983_)))) - (let ((_arg1672016994_ (reverse _arg1671916983_))) - (if (gx#stx-pair? _tl1671116970_) - (let ((_e1672116997_ (gx#stx-e _tl1671116970_))) - (let ((_hd1672217000_ (##car _e1672116997_)) - (_tl1672317002_ (##cdr _e1672116997_))) - (if (gx#stx-pair? _hd1672217000_) - (let ((_e1672417005_ - (gx#stx-e _hd1672217000_))) - (let ((_hd1672517008_ (##car _e1672417005_)) - (_tl1672617010_ - (##cdr _e1672417005_))) - (if (gx#identifier? _hd1672517008_) + _hd1741617684_) + (let ((_e1741917689_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _hd1741617684_))) + (let ((_lp-hd1742017692_ (##car _e1741917689_)) + (_lp-tl1742117694_ (##cdr _e1741917689_))) + (_loop1741817681_ + _lp-tl1742117694_ + (cons _lp-hd1742017692_ _arg1742217686_)))) + (let ((_arg1742317697_ (reverse _arg1742217686_))) + (if (gx#stx-pair? _tl1741417673_) + (let ((_e1742417700_ (gx#stx-e _tl1741417673_))) + (let ((_hd1742517703_ (##car _e1742417700_)) + (_tl1742617705_ (##cdr _e1742417700_))) + (if (gx#stx-pair? _hd1742517703_) + (let ((_e1742717708_ + (gx#stx-e _hd1742517703_))) + (let ((_hd1742817711_ (##car _e1742717708_)) + (_tl1742917713_ + (##cdr _e1742717708_))) + (if (gx#identifier? _hd1742817711_) (if (gx#stx-eq? '%#call - _hd1672517008_) - (if (gx#stx-pair? _tl1672617010_) - (let ((_e1672717013_ + _hd1742817711_) + (if (gx#stx-pair? _tl1742917713_) + (let ((_e1743017716_ (gx#stx-e - _tl1672617010_))) - (let ((_hd1672817016_ - (##car _e1672717013_)) - (_tl1672917018_ - (##cdr _e1672717013_))) + _tl1742917713_))) + (let ((_hd1743117719_ + (##car _e1743017716_)) + (_tl1743217721_ + (##cdr _e1743017716_))) (if (gx#stx-pair? - _hd1672817016_) - (let ((_e1673017021_ + _hd1743117719_) + (let ((_e1743317724_ (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1672817016_))) - (let ((_hd1673117024_ (##car _e1673017021_)) - (_tl1673217026_ (##cdr _e1673017021_))) - (if (gx#identifier? _hd1673117024_) - (if (gx#stx-eq? '%#ref _hd1673117024_) - (if (gx#stx-pair? _tl1673217026_) - (let ((_e1673317029_ - (gx#stx-e _tl1673217026_))) - (let ((_hd1673417032_ (##car _e1673317029_)) - (_tl1673517034_ - (##cdr _e1673317029_))) - (if (gx#stx-null? _tl1673517034_) - (if (gx#stx-pair? _tl1672917018_) - (let ((_e1673617037_ - (gx#stx-e _tl1672917018_))) - (let ((_hd1673717040_ - (##car _e1673617037_)) - (_tl1673817042_ - (##cdr _e1673617037_))) + _hd1743117719_))) + (let ((_hd1743417727_ (##car _e1743317724_)) + (_tl1743517729_ (##cdr _e1743317724_))) + (if (gx#identifier? _hd1743417727_) + (if (gx#stx-eq? '%#ref _hd1743417727_) + (if (gx#stx-pair? _tl1743517729_) + (let ((_e1743617732_ + (gx#stx-e _tl1743517729_))) + (let ((_hd1743717735_ (##car _e1743617732_)) + (_tl1743817737_ + (##cdr _e1743617732_))) + (if (gx#stx-null? _tl1743817737_) + (if (gx#stx-pair? _tl1743217721_) + (let ((_e1743917740_ + (gx#stx-e _tl1743217721_))) + (let ((_hd1744017743_ + (##car _e1743917740_)) + (_tl1744117745_ + (##cdr _e1743917740_))) (if (gx#stx-pair? - _hd1673717040_) - (let ((_e1673917045_ + _hd1744017743_) + (let ((_e1744217748_ (gx#stx-e - _hd1673717040_))) - (let ((_hd1674017048_ - (##car _e1673917045_)) - (_tl1674117050_ - (##cdr _e1673917045_))) + _hd1744017743_))) + (let ((_hd1744317751_ + (##car _e1744217748_)) + (_tl1744417753_ + (##cdr _e1744217748_))) (if (gx#identifier? - _hd1674017048_) + _hd1744317751_) (if (gx#stx-eq? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#ref - _hd1674017048_) - (if (gx#stx-pair? _tl1674117050_) - (let ((_e1674217053_ (gx#stx-e _tl1674117050_))) - (let ((_hd1674317056_ (##car _e1674217053_)) - (_tl1674417058_ (##cdr _e1674217053_))) - (if (gx#stx-null? _tl1674417058_) - (if (gx#stx-pair/null? _tl1673817042_) + _hd1744317751_) + (if (gx#stx-pair? _tl1744417753_) + (let ((_e1744517756_ (gx#stx-e _tl1744417753_))) + (let ((_hd1744617759_ (##car _e1744517756_)) + (_tl1744717761_ (##cdr _e1744517756_))) + (if (gx#stx-null? _tl1744717761_) + (if (gx#stx-pair/null? _tl1744117745_) (if (fx>= (gx#stx-length - _tl1673817042_) + _tl1744117745_) '1) - (let ((_g18531_ + (let ((_g19236_ (gx#syntax-split-splice - _tl1673817042_ + _tl1744117745_ '1))) (begin - (let ((_g18532_ + (let ((_g19237_ (values-count - _g18531_))) - (if (not (fx= _g18532_ 2)) + _g19236_))) + (if (not (fx= _g19237_ 2)) (error "Context expects 2 values" - _g18532_))) - (let ((_target1674517061_ + _g19237_))) + (let ((_target1744817764_ (values-ref - _g18531_ + _g19236_ 0)) - (_tl1674717063_ + (_tl1745017766_ (values-ref - _g18531_ + _g19236_ 1))) (if (gx#stx-pair? - _tl1674717063_) - (let ((_e1675417066_ + _tl1745017766_) + (let ((_e1745717769_ (gx#stx-e - _tl1674717063_))) - (let ((_hd1675517069_ - (##car _e1675417066_)) - (_tl1675617071_ - (##cdr _e1675417066_))) + _tl1745017766_))) + (let ((_hd1745817772_ + (##car _e1745717769_)) + (_tl1745917774_ + (##cdr _e1745717769_))) (if (gx#stx-pair? - _hd1675517069_) - (let ((_e1675717074_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1675517069_))) - (let ((_hd1675817077_ (##car _e1675717074_)) - (_tl1675917079_ (##cdr _e1675717074_))) - (if (gx#identifier? _hd1675817077_) - (if (gx#stx-eq? '%#ref _hd1675817077_) - (if (gx#stx-pair? _tl1675917079_) - (let ((_e1676017082_ - (gx#stx-e _tl1675917079_))) - (let ((_hd1676117085_ - (##car _e1676017082_)) - (_tl1676217087_ - (##cdr _e1676017082_))) - (if (gx#stx-null? _tl1676217087_) + _hd1745817772_) + (let ((_e1746017777_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _hd1745817772_))) + (let ((_hd1746117780_ (##car _e1746017777_)) + (_tl1746217782_ (##cdr _e1746017777_))) + (if (gx#identifier? _hd1746117780_) + (if (gx#stx-eq? '%#ref _hd1746117780_) + (if (gx#stx-pair? _tl1746217782_) + (let ((_e1746317785_ + (gx#stx-e _tl1746217782_))) + (let ((_hd1746417788_ + (##car _e1746317785_)) + (_tl1746517790_ + (##cdr _e1746317785_))) + (if (gx#stx-null? _tl1746517790_) (if (gx#stx-null? - _tl1675617071_) - (letrec ((_loop1674817090_ - (lambda (_hd1674617093_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg1675217095_) - (if (gx#stx-pair? _hd1674617093_) - (let ((_e1674917098_ (gx#stx-e _hd1674617093_))) - (let ((_lp-hd1675017101_ (##car _e1674917098_)) - (_lp-tl1675117103_ (##cdr _e1674917098_))) - (if (gx#stx-pair? _lp-hd1675017101_) - (let ((_e1676317106_ - (gx#stx-e _lp-hd1675017101_))) - (let ((_hd1676417109_ - (##car _e1676317106_)) - (_tl1676517111_ - (##cdr _e1676317106_))) - (if (gx#identifier? _hd1676417109_) + _tl1745917774_) + (letrec ((_loop1745117793_ + (lambda (_hd1744917796_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _xarg1745517798_) + (if (gx#stx-pair? _hd1744917796_) + (let ((_e1745217801_ (gx#stx-e _hd1744917796_))) + (let ((_lp-hd1745317804_ (##car _e1745217801_)) + (_lp-tl1745417806_ (##cdr _e1745217801_))) + (if (gx#stx-pair? _lp-hd1745317804_) + (let ((_e1746617809_ + (gx#stx-e _lp-hd1745317804_))) + (let ((_hd1746717812_ + (##car _e1746617809_)) + (_tl1746817814_ + (##cdr _e1746617809_))) + (if (gx#identifier? _hd1746717812_) (if (gx#stx-eq? '%#ref - _hd1676417109_) + _hd1746717812_) (if (gx#stx-pair? - _tl1676517111_) - (let ((_e1676617114_ + _tl1746817814_) + (let ((_e1746917817_ (gx#stx-e - _tl1676517111_))) - (let ((_hd1676717117_ - (##car _e1676617114_)) - (_tl1676817119_ - (##cdr _e1676617114_))) + _tl1746817814_))) + (let ((_hd1747017820_ + (##car _e1746917817_)) + (_tl1747117822_ + (##cdr _e1746917817_))) (if (gx#stx-null? - _tl1676817119_) - (_loop1674817090_ - _lp-tl1675117103_ - (cons _hd1676717117_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg1675217095_)) - (_g1665416960_ _g1665716963_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1665416960_ - _g1665716963_)) - (_g1665416960_ _g1665716963_)) - (_g1665416960_ _g1665716963_)))) - (_g1665416960_ _g1665716963_)))) - (let ((_xarg1675317122_ (reverse _xarg1675217095_))) - (if (gx#stx-null? _tl1672317002_) - ((lambda (_L17125_ - _L17126_ - _L17127_ - _L17128_ - _L17129_ - _L17130_) + _tl1747117822_) + (_loop1745117793_ + _lp-tl1745417806_ + (cons _hd1747017820_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _xarg1745517798_)) + (_g1735717663_ _g1736017666_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1735717663_ + _g1736017666_)) + (_g1735717663_ _g1736017666_)) + (_g1735717663_ _g1736017666_)))) + (_g1735717663_ _g1736017666_)))) + (let ((_xarg1745617825_ (reverse _xarg1745517798_))) + (if (gx#stx-null? _tl1742617705_) + ((lambda (_L17828_ + _L17829_ + _L17830_ + _L17831_ + _L17832_ + _L17833_) (if (if (gx#identifier-list? (begin '#!void - (foldr1 (lambda (_g1717317176_ - _g1717417178_) - (cons _g1717317176_ - _g1717417178_)) + (foldr1 (lambda (_g1787617879_ + _g1787717881_) + (cons _g1787617879_ + _g1787717881_)) '() - _L17130_))) - (if (gx#identifier? _L17129_) + _L17833_))) + (if (gx#identifier? _L17832_) (if (eq? (gxc#generate-runtime-binding-id - _L17128_) + _L17831_) 'apply) (if (fx= (length (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!void - (foldr1 (lambda (_g1718017183_ _g1718117185_) - (cons _g1718017183_ _g1718117185_)) + (foldr1 (lambda (_g1788317886_ _g1788417888_) + (cons _g1788317886_ _g1788417888_)) '() - _L17130_))) + _L17833_))) (length (begin '#!void - (foldr1 (lambda (_g1718717190_ _g1718817192_) - (cons _g1718717190_ _g1718817192_)) + (foldr1 (lambda (_g1789017893_ _g1789117895_) + (cons _g1789017893_ _g1789117895_)) '() - _L17126_)))) + _L17829_)))) (if (andmap gx#free-identifier=? (begin '#!void - (foldr1 (lambda (_g1719417197_ _g1719517199_) - (cons _g1719417197_ _g1719517199_)) + (foldr1 (lambda (_g1789717900_ _g1789817902_) + (cons _g1789717900_ _g1789817902_)) '() - _L17130_)) + _L17833_)) (begin '#!void - (foldr1 (lambda (_g1720117204_ _g1720217206_) - (cons _g1720117204_ _g1720217206_)) + (foldr1 (lambda (_g1790417907_ _g1790517909_) + (cons _g1790417907_ _g1790517909_)) '() - _L17126_))) - (if (gx#free-identifier=? _L17129_ _L17125_) - (not (find (lambda (_g1720817210_) + _L17829_))) + (if (gx#free-identifier=? _L17832_ _L17828_) + (not (find (lambda (_g1791117913_) (gx#free-identifier=? - _g1720817210_ - _L17127_)) + _g1791117913_ + _L17830_)) (begin '#!void - (foldr1 (lambda (_g1721217215_ - _g1721317217_) - (cons _g1721217215_ - _g1721317217_)) - (cons _L17129_ '()) - _L17130_)))) + (foldr1 (lambda (_g1791517918_ + _g1791617920_) + (cons _g1791517918_ + _g1791617920_)) + (cons _L17832_ '()) + _L17833_)))) '#f) '#f) '#f) @@ -1807,4667 +1863,4673 @@ '#f) '#f) '#t - (_g1665416960_ _g1665716963_))) - _hd1676117085_ - _xarg1675317122_ - _hd1674317056_ - _hd1673417032_ - _tl1671416975_ - _arg1672016994_) - (_g1665416960_ _g1665716963_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1674817090_ - _target1674517061_ + (_g1735717663_ _g1736017666_))) + _hd1746417788_ + _xarg1745617825_ + _hd1744617759_ + _hd1743717735_ + _tl1741717678_ + _arg1742317697_) + (_g1735717663_ _g1736017666_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop1745117793_ + _target1744817764_ '())) - (_g1665416960_ - _g1665716963_)) - (_g1665416960_ _g1665716963_)))) - (_g1665416960_ _g1665716963_)) - (_g1665416960_ _g1665716963_)) - (_g1665416960_ _g1665716963_)))) - (_g1665416960_ _g1665716963_)))) - (_g1665416960_ _g1665716963_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1665416960_ _g1665716963_)) - (_g1665416960_ _g1665716963_)) - (_g1665416960_ _g1665716963_)))) - (_g1665416960_ _g1665716963_)) - (_g1665416960_ _g1665716963_)) - (_g1665416960_ _g1665716963_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1665416960_ - _g1665716963_)))) - (_g1665416960_ _g1665716963_)) - (_g1665416960_ _g1665716963_)))) - (_g1665416960_ _g1665716963_)) - (_g1665416960_ _g1665716963_)) - (_g1665416960_ _g1665716963_)))) - (_g1665416960_ _g1665716963_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1665416960_ _g1665716963_)) - (_g1665416960_ _g1665716963_)) - (_g1665416960_ _g1665716963_)))) - (_g1665416960_ _g1665716963_)))) - (_g1665416960_ _g1665716963_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1671516978_ - _target1671216973_ + (_g1735717663_ + _g1736017666_)) + (_g1735717663_ _g1736017666_)))) + (_g1735717663_ _g1736017666_)) + (_g1735717663_ _g1736017666_)) + (_g1735717663_ _g1736017666_)))) + (_g1735717663_ _g1736017666_)))) + (_g1735717663_ _g1736017666_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1735717663_ _g1736017666_)) + (_g1735717663_ _g1736017666_)) + (_g1735717663_ _g1736017666_)))) + (_g1735717663_ _g1736017666_)) + (_g1735717663_ _g1736017666_)) + (_g1735717663_ _g1736017666_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1735717663_ + _g1736017666_)))) + (_g1735717663_ _g1736017666_)) + (_g1735717663_ _g1736017666_)))) + (_g1735717663_ _g1736017666_)) + (_g1735717663_ _g1736017666_)) + (_g1735717663_ _g1736017666_)))) + (_g1735717663_ _g1736017666_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1735717663_ _g1736017666_)) + (_g1735717663_ _g1736017666_)) + (_g1735717663_ _g1736017666_)))) + (_g1735717663_ _g1736017666_)))) + (_g1735717663_ _g1736017666_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop1741817681_ + _target1741517676_ '()))))) - (_g1665416960_ _g1665716963_)) - (_g1665416960_ _g1665716963_)))) - (_g1665416960_ _g1665716963_))))) - (let ((_g1665217414_ - (lambda (_g1665717223_) - (if (gx#stx-pair? _g1665717223_) - (let ((_e1666117225_ (gx#stx-e _g1665717223_))) - (let ((_hd1666217228_ (##car _e1666117225_)) - (_tl1666317230_ (##cdr _e1666117225_))) - (if (gx#stx-pair/null? _hd1666217228_) - (if (fx>= (gx#stx-length _hd1666217228_) '0) - (let ((_g18533_ + (_g1735717663_ _g1736017666_)) + (_g1735717663_ _g1736017666_)))) + (_g1735717663_ _g1736017666_))))) + (let ((_g1735518117_ + (lambda (_g1736017926_) + (if (gx#stx-pair? _g1736017926_) + (let ((_e1736417928_ (gx#stx-e _g1736017926_))) + (let ((_hd1736517931_ (##car _e1736417928_)) + (_tl1736617933_ (##cdr _e1736417928_))) + (if (gx#stx-pair/null? _hd1736517931_) + (if (fx>= (gx#stx-length _hd1736517931_) '0) + (let ((_g19238_ (gx#syntax-split-splice - _hd1666217228_ + _hd1736517931_ '0))) (begin - (let ((_g18534_ - (values-count _g18533_))) - (if (not (fx= _g18534_ 2)) + (let ((_g19239_ + (values-count _g19238_))) + (if (not (fx= _g19239_ 2)) (error "Context expects 2 values" - _g18534_))) - (let ((_target1666417233_ - (values-ref _g18533_ 0)) - (_tl1666617235_ - (values-ref _g18533_ 1))) - (if (gx#stx-null? _tl1666617235_) - (letrec ((_loop1666717238_ - (lambda (_hd1666517241_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _arg1667117243_) - (if (gx#stx-pair? _hd1666517241_) - (let ((_e1666817246_ (gx#stx-e _hd1666517241_))) - (let ((_lp-hd1666917249_ (##car _e1666817246_)) - (_lp-tl1667017251_ (##cdr _e1666817246_))) - (_loop1666717238_ - _lp-tl1667017251_ - (cons _lp-hd1666917249_ _arg1667117243_)))) - (let ((_arg1667217254_ (reverse _arg1667117243_))) - (if (gx#stx-pair? _tl1666317230_) - (let ((_e1667317257_ (gx#stx-e _tl1666317230_))) - (let ((_hd1667417260_ (##car _e1667317257_)) - (_tl1667517262_ (##cdr _e1667317257_))) - (if (gx#stx-pair? _hd1667417260_) - (let ((_e1667617265_ - (gx#stx-e _hd1667417260_))) - (let ((_hd1667717268_ - (##car _e1667617265_)) - (_tl1667817270_ - (##cdr _e1667617265_))) - (if (gx#identifier? _hd1667717268_) + _g19239_))) + (let ((_target1736717936_ + (values-ref _g19238_ 0)) + (_tl1736917938_ + (values-ref _g19238_ 1))) + (if (gx#stx-null? _tl1736917938_) + (letrec ((_loop1737017941_ + (lambda (_hd1736817944_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _arg1737417946_) + (if (gx#stx-pair? _hd1736817944_) + (let ((_e1737117949_ (gx#stx-e _hd1736817944_))) + (let ((_lp-hd1737217952_ (##car _e1737117949_)) + (_lp-tl1737317954_ (##cdr _e1737117949_))) + (_loop1737017941_ + _lp-tl1737317954_ + (cons _lp-hd1737217952_ _arg1737417946_)))) + (let ((_arg1737517957_ (reverse _arg1737417946_))) + (if (gx#stx-pair? _tl1736617933_) + (let ((_e1737617960_ (gx#stx-e _tl1736617933_))) + (let ((_hd1737717963_ (##car _e1737617960_)) + (_tl1737817965_ (##cdr _e1737617960_))) + (if (gx#stx-pair? _hd1737717963_) + (let ((_e1737917968_ + (gx#stx-e _hd1737717963_))) + (let ((_hd1738017971_ + (##car _e1737917968_)) + (_tl1738117973_ + (##cdr _e1737917968_))) + (if (gx#identifier? _hd1738017971_) (if (gx#stx-eq? '%#call - _hd1667717268_) + _hd1738017971_) (if (gx#stx-pair? - _tl1667817270_) - (let ((_e1667917273_ + _tl1738117973_) + (let ((_e1738217976_ (gx#stx-e - _tl1667817270_))) - (let ((_hd1668017276_ - (##car _e1667917273_)) - (_tl1668117278_ - (##cdr _e1667917273_))) + _tl1738117973_))) + (let ((_hd1738317979_ + (##car _e1738217976_)) + (_tl1738417981_ + (##cdr _e1738217976_))) (if (gx#stx-pair? - _hd1668017276_) - (let ((_e1668217281_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1668017276_))) - (let ((_hd1668317284_ (##car _e1668217281_)) - (_tl1668417286_ (##cdr _e1668217281_))) - (if (gx#identifier? _hd1668317284_) - (if (gx#stx-eq? '%#ref _hd1668317284_) - (if (gx#stx-pair? _tl1668417286_) - (let ((_e1668517289_ - (gx#stx-e _tl1668417286_))) - (let ((_hd1668617292_ - (##car _e1668517289_)) - (_tl1668717294_ - (##cdr _e1668517289_))) - (if (gx#stx-null? _tl1668717294_) + _hd1738317979_) + (let ((_e1738517984_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _hd1738317979_))) + (let ((_hd1738617987_ (##car _e1738517984_)) + (_tl1738717989_ (##cdr _e1738517984_))) + (if (gx#identifier? _hd1738617987_) + (if (gx#stx-eq? '%#ref _hd1738617987_) + (if (gx#stx-pair? _tl1738717989_) + (let ((_e1738817992_ + (gx#stx-e _tl1738717989_))) + (let ((_hd1738917995_ + (##car _e1738817992_)) + (_tl1739017997_ + (##cdr _e1738817992_))) + (if (gx#stx-null? _tl1739017997_) (if (gx#stx-pair/null? - _tl1668117278_) + _tl1738417981_) (if (fx>= (gx#stx-length - _tl1668117278_) + _tl1738417981_) '0) - (let ((_g18535_ + (let ((_g19240_ (gx#syntax-split-splice - _tl1668117278_ + _tl1738417981_ '0))) (begin - (let ((_g18536_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (values-count _g18535_))) - (if (not (fx= _g18536_ 2)) - (error "Context expects 2 values" _g18536_))) - (let ((_target1668817297_ (values-ref _g18535_ 0)) - (_tl1669017299_ (values-ref _g18535_ 1))) - (if (gx#stx-null? _tl1669017299_) - (letrec ((_loop1669117302_ - (lambda (_hd1668917305_ _xarg1669517307_) - (if (gx#stx-pair? _hd1668917305_) - (let ((_e1669217310_ - (gx#stx-e _hd1668917305_))) - (let ((_lp-hd1669317313_ - (##car _e1669217310_)) - (_lp-tl1669417315_ - (##cdr _e1669217310_))) + (let ((_g19241_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (values-count _g19240_))) + (if (not (fx= _g19241_ 2)) + (error "Context expects 2 values" _g19241_))) + (let ((_target1739118000_ (values-ref _g19240_ 0)) + (_tl1739318002_ (values-ref _g19240_ 1))) + (if (gx#stx-null? _tl1739318002_) + (letrec ((_loop1739418005_ + (lambda (_hd1739218008_ _xarg1739818010_) + (if (gx#stx-pair? _hd1739218008_) + (let ((_e1739518013_ + (gx#stx-e _hd1739218008_))) + (let ((_lp-hd1739618016_ + (##car _e1739518013_)) + (_lp-tl1739718018_ + (##cdr _e1739518013_))) (if (gx#stx-pair? - _lp-hd1669317313_) - (let ((_e1669717318_ + _lp-hd1739618016_) + (let ((_e1740018021_ (gx#stx-e - _lp-hd1669317313_))) - (let ((_hd1669817321_ - (##car _e1669717318_)) - (_tl1669917323_ - (##cdr _e1669717318_))) + _lp-hd1739618016_))) + (let ((_hd1740118024_ + (##car _e1740018021_)) + (_tl1740218026_ + (##cdr _e1740018021_))) (if (gx#identifier? - _hd1669817321_) + _hd1740118024_) (if (gx#stx-eq? '%#ref - _hd1669817321_) + _hd1740118024_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1669917323_) - (let ((_e1670017326_ (gx#stx-e _tl1669917323_))) - (let ((_hd1670117329_ (##car _e1670017326_)) - (_tl1670217331_ (##cdr _e1670017326_))) - (if (gx#stx-null? _tl1670217331_) - (_loop1669117302_ - _lp-tl1669417315_ - (cons _hd1670117329_ _xarg1669517307_)) - (_g1665317220_ _g1665717223_)))) - (_g1665317220_ _g1665717223_)) - (_g1665317220_ _g1665717223_)) - (_g1665317220_ _g1665717223_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1665317220_ - _g1665717223_)))) - (let ((_xarg1669617334_ - (reverse _xarg1669517307_))) - (if (gx#stx-null? _tl1667517262_) - ((lambda (_L17337_ - _L17338_ - _L17339_) + _tl1740218026_) + (let ((_e1740318029_ (gx#stx-e _tl1740218026_))) + (let ((_hd1740418032_ (##car _e1740318029_)) + (_tl1740518034_ (##cdr _e1740318029_))) + (if (gx#stx-null? _tl1740518034_) + (_loop1739418005_ + _lp-tl1739718018_ + (cons _hd1740418032_ _xarg1739818010_)) + (_g1735617923_ _g1736017926_)))) + (_g1735617923_ _g1736017926_)) + (_g1735617923_ _g1736017926_)) + (_g1735617923_ _g1736017926_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1735617923_ + _g1736017926_)))) + (let ((_xarg1739918037_ + (reverse _xarg1739818010_))) + (if (gx#stx-null? _tl1737817965_) + ((lambda (_L18040_ + _L18041_ + _L18042_) (if (if (gx#identifier-list? (begin '#!void - (foldr1 (lambda (_g1736717370_ + (foldr1 (lambda (_g1807018073_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1736817372_) - (cons _g1736717370_ _g1736817372_)) + _g1807118075_) + (cons _g1807018073_ _g1807118075_)) '() - _L17339_))) + _L18042_))) (if (fx= (length (begin '#!void - (foldr1 (lambda (_g1737417377_ - _g1737517379_) - (cons _g1737417377_ - _g1737517379_)) + (foldr1 (lambda (_g1807718080_ + _g1807818082_) + (cons _g1807718080_ + _g1807818082_)) '() - _L17339_))) + _L18042_))) (length (begin '#!void - (foldr1 (lambda (_g1738117384_ - _g1738217386_) - (cons _g1738117384_ - _g1738217386_)) + (foldr1 (lambda (_g1808418087_ + _g1808518089_) + (cons _g1808418087_ + _g1808518089_)) '() - _L17337_)))) + _L18040_)))) (if (andmap gx#free-identifier=? (begin '#!void - (foldr1 (lambda (_g1738817391_ - _g1738917393_) - (cons _g1738817391_ - _g1738917393_)) + (foldr1 (lambda (_g1809118094_ + _g1809218096_) + (cons _g1809118094_ + _g1809218096_)) '() - _L17339_)) + _L18042_)) (begin '#!void - (foldr1 (lambda (_g1739517398_ - _g1739617400_) - (cons _g1739517398_ - _g1739617400_)) + (foldr1 (lambda (_g1809818101_ + _g1809918103_) + (cons _g1809818101_ + _g1809918103_)) '() - _L17337_))) - (not (find (lambda (_g1740217404_) + _L18040_))) + (not (find (lambda (_g1810518107_) (gx#free-identifier=? - _g1740217404_ - _L17338_)) + _g1810518107_ + _L18041_)) (begin '#!void - (foldr1 (lambda (_g1740617409_ - _g1740717411_) - (cons _g1740617409_ - _g1740717411_)) + (foldr1 (lambda (_g1810918112_ + _g1811018114_) + (cons _g1810918112_ + _g1811018114_)) '() - _L17339_)))) + _L18042_)))) '#f) '#f) '#f) '#t - (_g1665317220_ _g1665717223_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _xarg1669617334_ - _hd1668617292_ - _arg1667217254_) - (_g1665317220_ - _g1665717223_))))))) - (_loop1669117302_ _target1668817297_ '())) - (_g1665317220_ _g1665717223_))))) - (_g1665317220_ _g1665717223_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1665317220_ - _g1665717223_)) - (_g1665317220_ _g1665717223_)))) - (_g1665317220_ _g1665717223_)) - (_g1665317220_ _g1665717223_)) - (_g1665317220_ _g1665717223_)))) - (_g1665317220_ _g1665717223_)))) - (_g1665317220_ _g1665717223_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1665317220_ - _g1665717223_)) - (_g1665317220_ _g1665717223_)))) - (_g1665317220_ _g1665717223_)))) - (_g1665317220_ _g1665717223_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1666717238_ - _target1666417233_ + (_g1735617923_ _g1736017926_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _xarg1739918037_ + _hd1738917995_ + _arg1737517957_) + (_g1735617923_ + _g1736017926_))))))) + (_loop1739418005_ _target1739118000_ '())) + (_g1735617923_ _g1736017926_))))) + (_g1735617923_ _g1736017926_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1735617923_ + _g1736017926_)) + (_g1735617923_ _g1736017926_)))) + (_g1735617923_ _g1736017926_)) + (_g1735617923_ _g1736017926_)) + (_g1735617923_ _g1736017926_)))) + (_g1735617923_ _g1736017926_)))) + (_g1735617923_ _g1736017926_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1735617923_ + _g1736017926_)) + (_g1735617923_ _g1736017926_)))) + (_g1735617923_ _g1736017926_)))) + (_g1735617923_ _g1736017926_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop1737017941_ + _target1736717936_ '())) - (_g1665317220_ - _g1665717223_))))) - (_g1665317220_ _g1665717223_)) - (_g1665317220_ _g1665717223_)))) - (_g1665317220_ _g1665717223_))))) - (_g1665217414_ _form16651_)))))))) + (_g1735617923_ + _g1736017926_))))) + (_g1735617923_ _g1736017926_)) + (_g1735617923_ _g1736017926_)))) + (_g1735617923_ _g1736017926_))))) + (_g1735518117_ _form17354_)))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_form16119_) - (let ((_g1612316247_ - (lambda (_g1612416244_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1612416244_)))) - (let ((_g1612216364_ - (lambda (_g1612416250_) - (if (gx#stx-pair? _g1612416250_) - (let ((_e1621316252_ (gx#stx-e _g1612416250_))) - (let ((_hd1621416255_ (##car _e1621316252_)) - (_tl1621516257_ (##cdr _e1621316252_))) - (if (gx#stx-pair? _tl1621516257_) - (let ((_e1621616260_ (gx#stx-e _tl1621516257_))) - (let ((_hd1621716263_ (##car _e1621616260_)) - (_tl1621816265_ (##cdr _e1621616260_))) - (if (gx#stx-pair? _hd1621716263_) - (let ((_e1621916268_ - (gx#stx-e _hd1621716263_))) - (let ((_hd1622016271_ - (##car _e1621916268_)) - (_tl1622116273_ - (##cdr _e1621916268_))) - (if (gx#identifier? _hd1622016271_) + (lambda (_form16822_) + (let ((_g1682616950_ + (lambda (_g1682716947_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1682716947_)))) + (let ((_g1682517067_ + (lambda (_g1682716953_) + (if (gx#stx-pair? _g1682716953_) + (let ((_e1691616955_ (gx#stx-e _g1682716953_))) + (let ((_hd1691716958_ (##car _e1691616955_)) + (_tl1691816960_ (##cdr _e1691616955_))) + (if (gx#stx-pair? _tl1691816960_) + (let ((_e1691916963_ (gx#stx-e _tl1691816960_))) + (let ((_hd1692016966_ (##car _e1691916963_)) + (_tl1692116968_ (##cdr _e1691916963_))) + (if (gx#stx-pair? _hd1692016966_) + (let ((_e1692216971_ + (gx#stx-e _hd1692016966_))) + (let ((_hd1692316974_ + (##car _e1692216971_)) + (_tl1692416976_ + (##cdr _e1692216971_))) + (if (gx#identifier? _hd1692316974_) (if (gx#stx-eq? '%#call - _hd1622016271_) + _hd1692316974_) (if (gx#stx-pair? - _tl1622116273_) - (let ((_e1622216276_ + _tl1692416976_) + (let ((_e1692516979_ (gx#stx-e - _tl1622116273_))) - (let ((_hd1622316279_ - (##car _e1622216276_)) - (_tl1622416281_ - (##cdr _e1622216276_))) + _tl1692416976_))) + (let ((_hd1692616982_ + (##car _e1692516979_)) + (_tl1692716984_ + (##cdr _e1692516979_))) (if (gx#stx-pair? - _hd1622316279_) - (let ((_e1622516284_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1622316279_))) - (let ((_hd1622616287_ (##car _e1622516284_)) - (_tl1622716289_ (##cdr _e1622516284_))) - (if (gx#identifier? _hd1622616287_) - (if (gx#stx-eq? '%#ref _hd1622616287_) - (if (gx#stx-pair? _tl1622716289_) - (let ((_e1622816292_ - (gx#stx-e _tl1622716289_))) - (let ((_hd1622916295_ - (##car _e1622816292_)) - (_tl1623016297_ - (##cdr _e1622816292_))) - (if (gx#stx-null? _tl1623016297_) - (if (gx#stx-pair? _tl1622416281_) - (let ((_e1623116300_ + _hd1692616982_) + (let ((_e1692816987_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _hd1692616982_))) + (let ((_hd1692916990_ (##car _e1692816987_)) + (_tl1693016992_ (##cdr _e1692816987_))) + (if (gx#identifier? _hd1692916990_) + (if (gx#stx-eq? '%#ref _hd1692916990_) + (if (gx#stx-pair? _tl1693016992_) + (let ((_e1693116995_ + (gx#stx-e _tl1693016992_))) + (let ((_hd1693216998_ + (##car _e1693116995_)) + (_tl1693317000_ + (##cdr _e1693116995_))) + (if (gx#stx-null? _tl1693317000_) + (if (gx#stx-pair? _tl1692716984_) + (let ((_e1693417003_ (gx#stx-e - _tl1622416281_))) - (let ((_hd1623216303_ - (##car _e1623116300_)) - (_tl1623316305_ - (##cdr _e1623116300_))) + _tl1692716984_))) + (let ((_hd1693517006_ + (##car _e1693417003_)) + (_tl1693617008_ + (##cdr _e1693417003_))) (if (gx#stx-pair? - _hd1623216303_) - (let ((_e1623416308_ + _hd1693517006_) + (let ((_e1693717011_ (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1623216303_))) - (let ((_hd1623516311_ (##car _e1623416308_)) - (_tl1623616313_ (##cdr _e1623416308_))) - (if (gx#identifier? _hd1623516311_) - (if (gx#stx-eq? '%#ref _hd1623516311_) - (if (gx#stx-pair? _tl1623616313_) - (let ((_e1623716316_ - (gx#stx-e _tl1623616313_))) - (let ((_hd1623816319_ (##car _e1623716316_)) - (_tl1623916321_ - (##cdr _e1623716316_))) - (if (gx#stx-null? _tl1623916321_) - (if (gx#stx-pair? _tl1623316305_) - (let ((_e1624016324_ - (gx#stx-e _tl1623316305_))) - (let ((_hd1624116327_ - (##car _e1624016324_)) - (_tl1624216329_ - (##cdr _e1624016324_))) + _hd1693517006_))) + (let ((_hd1693817014_ (##car _e1693717011_)) + (_tl1693917016_ (##cdr _e1693717011_))) + (if (gx#identifier? _hd1693817014_) + (if (gx#stx-eq? '%#ref _hd1693817014_) + (if (gx#stx-pair? _tl1693917016_) + (let ((_e1694017019_ + (gx#stx-e _tl1693917016_))) + (let ((_hd1694117022_ (##car _e1694017019_)) + (_tl1694217024_ + (##cdr _e1694017019_))) + (if (gx#stx-null? _tl1694217024_) + (if (gx#stx-pair? _tl1693617008_) + (let ((_e1694317027_ + (gx#stx-e _tl1693617008_))) + (let ((_hd1694417030_ + (##car _e1694317027_)) + (_tl1694517032_ + (##cdr _e1694317027_))) (if (gx#stx-null? - _tl1624216329_) + _tl1694517032_) (if (gx#stx-null? - _tl1621816265_) - ((lambda (_L16332_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L16333_ - _L16334_) - (gxc#generate-runtime-binding-id _L16332_)) - _hd1623816319_ - _hd1622916295_ - _hd1621416255_) - (_g1612316247_ _g1612416250_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1612316247_ - _g1612416250_)))) - (_g1612316247_ _g1612416250_)) - (_g1612316247_ _g1612416250_)))) - (_g1612316247_ _g1612416250_)) - (_g1612316247_ _g1612416250_)) - (_g1612316247_ _g1612416250_)))) - (_g1612316247_ _g1612416250_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1612316247_ _g1612416250_)) - (_g1612316247_ _g1612416250_)))) - (_g1612316247_ _g1612416250_)) - (_g1612316247_ _g1612416250_)) - (_g1612316247_ _g1612416250_)))) - (_g1612316247_ _g1612416250_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1612316247_ - _g1612416250_)) - (_g1612316247_ _g1612416250_)) - (_g1612316247_ _g1612416250_)))) - (_g1612316247_ _g1612416250_)))) - (_g1612316247_ _g1612416250_)))) - (_g1612316247_ _g1612416250_))))) - (let ((_g1612116500_ - (lambda (_g1612416367_) - (if (gx#stx-pair? _g1612416367_) - (let ((_e1617416369_ (gx#stx-e _g1612416367_))) - (let ((_hd1617516372_ (##car _e1617416369_)) - (_tl1617616374_ (##cdr _e1617416369_))) - (if (gx#stx-pair/null? _hd1617516372_) - (if (fx>= (gx#stx-length _hd1617516372_) '0) - (let ((_g18537_ + _tl1692116968_) + ((lambda (_L17035_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L17036_ + _L17037_) + (gxc#generate-runtime-binding-id _L17035_)) + _hd1694117022_ + _hd1693216998_ + _hd1691716958_) + (_g1682616950_ _g1682716953_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1682616950_ + _g1682716953_)))) + (_g1682616950_ _g1682716953_)) + (_g1682616950_ _g1682716953_)))) + (_g1682616950_ _g1682716953_)) + (_g1682616950_ _g1682716953_)) + (_g1682616950_ _g1682716953_)))) + (_g1682616950_ _g1682716953_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1682616950_ _g1682716953_)) + (_g1682616950_ _g1682716953_)))) + (_g1682616950_ _g1682716953_)) + (_g1682616950_ _g1682716953_)) + (_g1682616950_ _g1682716953_)))) + (_g1682616950_ _g1682716953_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1682616950_ + _g1682716953_)) + (_g1682616950_ _g1682716953_)) + (_g1682616950_ _g1682716953_)))) + (_g1682616950_ _g1682716953_)))) + (_g1682616950_ _g1682716953_)))) + (_g1682616950_ _g1682716953_))))) + (let ((_g1682417203_ + (lambda (_g1682717070_) + (if (gx#stx-pair? _g1682717070_) + (let ((_e1687717072_ (gx#stx-e _g1682717070_))) + (let ((_hd1687817075_ (##car _e1687717072_)) + (_tl1687917077_ (##cdr _e1687717072_))) + (if (gx#stx-pair/null? _hd1687817075_) + (if (fx>= (gx#stx-length _hd1687817075_) '0) + (let ((_g19242_ (gx#syntax-split-splice - _hd1617516372_ + _hd1687817075_ '0))) (begin - (let ((_g18538_ - (values-count _g18537_))) - (if (not (fx= _g18538_ 2)) + (let ((_g19243_ + (values-count _g19242_))) + (if (not (fx= _g19243_ 2)) (error "Context expects 2 values" - _g18538_))) - (let ((_target1617716377_ - (values-ref _g18537_ 0)) - (_tl1617916379_ - (values-ref _g18537_ 1))) - (letrec ((_loop1618016382_ - (lambda (_hd1617816385_ - _arg1618416387_) + _g19243_))) + (let ((_target1688017080_ + (values-ref _g19242_ 0)) + (_tl1688217082_ + (values-ref _g19242_ 1))) + (letrec ((_loop1688317085_ + (lambda (_hd1688117088_ + _arg1688717090_) (if (gx#stx-pair? - _hd1617816385_) - (let ((_e1618116390_ + _hd1688117088_) + (let ((_e1688417093_ (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1617816385_))) - (let ((_lp-hd1618216393_ (##car _e1618116390_)) - (_lp-tl1618316395_ (##cdr _e1618116390_))) - (_loop1618016382_ - _lp-tl1618316395_ - (cons _lp-hd1618216393_ _arg1618416387_)))) - (let ((_arg1618516398_ (reverse _arg1618416387_))) - (if (gx#stx-pair? _tl1617616374_) - (let ((_e1618616401_ (gx#stx-e _tl1617616374_))) - (let ((_hd1618716404_ (##car _e1618616401_)) - (_tl1618816406_ (##cdr _e1618616401_))) - (if (gx#stx-pair? _hd1618716404_) - (let ((_e1618916409_ (gx#stx-e _hd1618716404_))) - (let ((_hd1619016412_ (##car _e1618916409_)) - (_tl1619116414_ (##cdr _e1618916409_))) - (if (gx#identifier? _hd1619016412_) - (if (gx#stx-eq? '%#call _hd1619016412_) - (if (gx#stx-pair? _tl1619116414_) - (let ((_e1619216417_ + _hd1688117088_))) + (let ((_lp-hd1688517096_ (##car _e1688417093_)) + (_lp-tl1688617098_ (##cdr _e1688417093_))) + (_loop1688317085_ + _lp-tl1688617098_ + (cons _lp-hd1688517096_ _arg1688717090_)))) + (let ((_arg1688817101_ (reverse _arg1688717090_))) + (if (gx#stx-pair? _tl1687917077_) + (let ((_e1688917104_ (gx#stx-e _tl1687917077_))) + (let ((_hd1689017107_ (##car _e1688917104_)) + (_tl1689117109_ (##cdr _e1688917104_))) + (if (gx#stx-pair? _hd1689017107_) + (let ((_e1689217112_ (gx#stx-e _hd1689017107_))) + (let ((_hd1689317115_ (##car _e1689217112_)) + (_tl1689417117_ (##cdr _e1689217112_))) + (if (gx#identifier? _hd1689317115_) + (if (gx#stx-eq? '%#call _hd1689317115_) + (if (gx#stx-pair? _tl1689417117_) + (let ((_e1689517120_ (gx#stx-e - _tl1619116414_))) - (let ((_hd1619316420_ - (##car _e1619216417_)) - (_tl1619416422_ - (##cdr _e1619216417_))) + _tl1689417117_))) + (let ((_hd1689617123_ + (##car _e1689517120_)) + (_tl1689717125_ + (##cdr _e1689517120_))) (if (gx#stx-pair? - _hd1619316420_) - (let ((_e1619516425_ + _hd1689617123_) + (let ((_e1689817128_ (gx#stx-e - _hd1619316420_))) - (let ((_hd1619616428_ - (##car _e1619516425_)) - (_tl1619716430_ - (##cdr _e1619516425_))) + _hd1689617123_))) + (let ((_hd1689917131_ + (##car _e1689817128_)) + (_tl1690017133_ + (##cdr _e1689817128_))) (if (gx#identifier? - _hd1619616428_) + _hd1689917131_) (if (gx#stx-eq? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#ref - _hd1619616428_) - (if (gx#stx-pair? _tl1619716430_) - (let ((_e1619816433_ (gx#stx-e _tl1619716430_))) - (let ((_hd1619916436_ (##car _e1619816433_)) - (_tl1620016438_ (##cdr _e1619816433_))) - (if (gx#stx-null? _tl1620016438_) - (if (gx#stx-pair? _tl1619416422_) - (let ((_e1620116441_ - (gx#stx-e _tl1619416422_))) - (let ((_hd1620216444_ - (##car _e1620116441_)) - (_tl1620316446_ - (##cdr _e1620116441_))) + _hd1689917131_) + (if (gx#stx-pair? _tl1690017133_) + (let ((_e1690117136_ (gx#stx-e _tl1690017133_))) + (let ((_hd1690217139_ (##car _e1690117136_)) + (_tl1690317141_ (##cdr _e1690117136_))) + (if (gx#stx-null? _tl1690317141_) + (if (gx#stx-pair? _tl1689717125_) + (let ((_e1690417144_ + (gx#stx-e _tl1689717125_))) + (let ((_hd1690517147_ + (##car _e1690417144_)) + (_tl1690617149_ + (##cdr _e1690417144_))) (if (gx#stx-pair? - _hd1620216444_) - (let ((_e1620416449_ + _hd1690517147_) + (let ((_e1690717152_ (gx#stx-e - _hd1620216444_))) - (let ((_hd1620516452_ - (##car _e1620416449_)) - (_tl1620616454_ - (##cdr _e1620416449_))) + _hd1690517147_))) + (let ((_hd1690817155_ + (##car _e1690717152_)) + (_tl1690917157_ + (##cdr _e1690717152_))) (if (gx#identifier? - _hd1620516452_) + _hd1690817155_) (if (gx#stx-eq? '%#ref - _hd1620516452_) + _hd1690817155_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1620616454_) - (let ((_e1620716457_ (gx#stx-e _tl1620616454_))) - (let ((_hd1620816460_ (##car _e1620716457_)) - (_tl1620916462_ (##cdr _e1620716457_))) - (if (gx#stx-null? _tl1620916462_) - (if (gx#stx-null? _tl1618816406_) - ((lambda (_L16465_ - _L16466_ - _L16467_ - _L16468_) + _tl1690917157_) + (let ((_e1691017160_ (gx#stx-e _tl1690917157_))) + (let ((_hd1691117163_ (##car _e1691017160_)) + (_tl1691217165_ (##cdr _e1691017160_))) + (if (gx#stx-null? _tl1691217165_) + (if (gx#stx-null? _tl1689117109_) + ((lambda (_L17168_ + _L17169_ + _L17170_ + _L17171_) (gxc#generate-runtime-binding-id - _L16465_)) - _hd1620816460_ - _hd1619916436_ - _tl1617916379_ - _arg1618516398_) - (_g1612216364_ _g1612416367_)) - (_g1612216364_ _g1612416367_)))) - (_g1612216364_ _g1612416367_)) - (_g1612216364_ _g1612416367_)) - (_g1612216364_ _g1612416367_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1612216364_ - _g1612416367_)))) - (_g1612216364_ _g1612416367_)) - (_g1612216364_ _g1612416367_)))) - (_g1612216364_ _g1612416367_)) - (_g1612216364_ _g1612416367_)) - (_g1612216364_ _g1612416367_)))) - (_g1612216364_ _g1612416367_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1612216364_ _g1612416367_)) - (_g1612216364_ _g1612416367_)) - (_g1612216364_ _g1612416367_)))) - (_g1612216364_ _g1612416367_)))) - (_g1612216364_ _g1612416367_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1618016382_ - _target1617716377_ + _L17168_)) + _hd1691117163_ + _hd1690217139_ + _tl1688217082_ + _arg1688817101_) + (_g1682517067_ _g1682717070_)) + (_g1682517067_ _g1682717070_)))) + (_g1682517067_ _g1682717070_)) + (_g1682517067_ _g1682717070_)) + (_g1682517067_ _g1682717070_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1682517067_ + _g1682717070_)))) + (_g1682517067_ _g1682717070_)) + (_g1682517067_ _g1682717070_)))) + (_g1682517067_ _g1682717070_)) + (_g1682517067_ _g1682717070_)) + (_g1682517067_ _g1682717070_)))) + (_g1682517067_ _g1682717070_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1682517067_ _g1682717070_)) + (_g1682517067_ _g1682717070_)) + (_g1682517067_ _g1682717070_)))) + (_g1682517067_ _g1682717070_)))) + (_g1682517067_ _g1682717070_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop1688317085_ + _target1688017080_ '()))))) - (_g1612216364_ _g1612416367_)) - (_g1612216364_ _g1612416367_)))) - (_g1612216364_ _g1612416367_))))) - (let ((_g1612016648_ - (lambda (_g1612416503_) - (if (gx#stx-pair? _g1612416503_) - (let ((_e1612816505_ (gx#stx-e _g1612416503_))) - (let ((_hd1612916508_ (##car _e1612816505_)) - (_tl1613016510_ (##cdr _e1612816505_))) - (if (gx#stx-pair/null? _hd1612916508_) - (if (fx>= (gx#stx-length _hd1612916508_) '0) - (let ((_g18539_ + (_g1682517067_ _g1682717070_)) + (_g1682517067_ _g1682717070_)))) + (_g1682517067_ _g1682717070_))))) + (let ((_g1682317351_ + (lambda (_g1682717206_) + (if (gx#stx-pair? _g1682717206_) + (let ((_e1683117208_ (gx#stx-e _g1682717206_))) + (let ((_hd1683217211_ (##car _e1683117208_)) + (_tl1683317213_ (##cdr _e1683117208_))) + (if (gx#stx-pair/null? _hd1683217211_) + (if (fx>= (gx#stx-length _hd1683217211_) '0) + (let ((_g19244_ (gx#syntax-split-splice - _hd1612916508_ + _hd1683217211_ '0))) (begin - (let ((_g18540_ - (values-count _g18539_))) - (if (not (fx= _g18540_ 2)) + (let ((_g19245_ + (values-count _g19244_))) + (if (not (fx= _g19245_ 2)) (error "Context expects 2 values" - _g18540_))) - (let ((_target1613116513_ - (values-ref _g18539_ 0)) - (_tl1613316515_ - (values-ref _g18539_ 1))) - (if (gx#stx-null? _tl1613316515_) - (letrec ((_loop1613416518_ - (lambda (_hd1613216521_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _arg1613816523_) - (if (gx#stx-pair? _hd1613216521_) - (let ((_e1613516526_ (gx#stx-e _hd1613216521_))) - (let ((_lp-hd1613616529_ (##car _e1613516526_)) - (_lp-tl1613716531_ (##cdr _e1613516526_))) - (_loop1613416518_ - _lp-tl1613716531_ - (cons _lp-hd1613616529_ _arg1613816523_)))) - (let ((_arg1613916534_ (reverse _arg1613816523_))) - (if (gx#stx-pair? _tl1613016510_) - (let ((_e1614016537_ (gx#stx-e _tl1613016510_))) - (let ((_hd1614116540_ (##car _e1614016537_)) - (_tl1614216542_ (##cdr _e1614016537_))) - (if (gx#stx-pair? _hd1614116540_) - (let ((_e1614316545_ - (gx#stx-e _hd1614116540_))) - (let ((_hd1614416548_ - (##car _e1614316545_)) - (_tl1614516550_ - (##cdr _e1614316545_))) - (if (gx#identifier? _hd1614416548_) + _g19245_))) + (let ((_target1683417216_ + (values-ref _g19244_ 0)) + (_tl1683617218_ + (values-ref _g19244_ 1))) + (if (gx#stx-null? _tl1683617218_) + (letrec ((_loop1683717221_ + (lambda (_hd1683517224_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _arg1684117226_) + (if (gx#stx-pair? _hd1683517224_) + (let ((_e1683817229_ (gx#stx-e _hd1683517224_))) + (let ((_lp-hd1683917232_ (##car _e1683817229_)) + (_lp-tl1684017234_ (##cdr _e1683817229_))) + (_loop1683717221_ + _lp-tl1684017234_ + (cons _lp-hd1683917232_ _arg1684117226_)))) + (let ((_arg1684217237_ (reverse _arg1684117226_))) + (if (gx#stx-pair? _tl1683317213_) + (let ((_e1684317240_ (gx#stx-e _tl1683317213_))) + (let ((_hd1684417243_ (##car _e1684317240_)) + (_tl1684517245_ (##cdr _e1684317240_))) + (if (gx#stx-pair? _hd1684417243_) + (let ((_e1684617248_ + (gx#stx-e _hd1684417243_))) + (let ((_hd1684717251_ + (##car _e1684617248_)) + (_tl1684817253_ + (##cdr _e1684617248_))) + (if (gx#identifier? _hd1684717251_) (if (gx#stx-eq? '%#call - _hd1614416548_) + _hd1684717251_) (if (gx#stx-pair? - _tl1614516550_) - (let ((_e1614616553_ + _tl1684817253_) + (let ((_e1684917256_ (gx#stx-e - _tl1614516550_))) - (let ((_hd1614716556_ - (##car _e1614616553_)) - (_tl1614816558_ - (##cdr _e1614616553_))) + _tl1684817253_))) + (let ((_hd1685017259_ + (##car _e1684917256_)) + (_tl1685117261_ + (##cdr _e1684917256_))) (if (gx#stx-pair? - _hd1614716556_) - (let ((_e1614916561_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1614716556_))) - (let ((_hd1615016564_ (##car _e1614916561_)) - (_tl1615116566_ (##cdr _e1614916561_))) - (if (gx#identifier? _hd1615016564_) - (if (gx#stx-eq? '%#ref _hd1615016564_) - (if (gx#stx-pair? _tl1615116566_) - (let ((_e1615216569_ - (gx#stx-e _tl1615116566_))) - (let ((_hd1615316572_ - (##car _e1615216569_)) - (_tl1615416574_ - (##cdr _e1615216569_))) - (if (gx#stx-null? _tl1615416574_) + _hd1685017259_) + (let ((_e1685217264_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _hd1685017259_))) + (let ((_hd1685317267_ (##car _e1685217264_)) + (_tl1685417269_ (##cdr _e1685217264_))) + (if (gx#identifier? _hd1685317267_) + (if (gx#stx-eq? '%#ref _hd1685317267_) + (if (gx#stx-pair? _tl1685417269_) + (let ((_e1685517272_ + (gx#stx-e _tl1685417269_))) + (let ((_hd1685617275_ + (##car _e1685517272_)) + (_tl1685717277_ + (##cdr _e1685517272_))) + (if (gx#stx-null? _tl1685717277_) (if (gx#stx-pair/null? - _tl1614816558_) + _tl1685117261_) (if (fx>= (gx#stx-length - _tl1614816558_) + _tl1685117261_) '0) - (let ((_g18541_ + (let ((_g19246_ (gx#syntax-split-splice - _tl1614816558_ + _tl1685117261_ '0))) (begin - (let ((_g18542_ + (let ((_g19247_ (values-count ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g18541_))) - (if (not (fx= _g18542_ 2)) - (error "Context expects 2 values" _g18542_))) - (let ((_target1615516577_ (values-ref _g18541_ 0)) - (_tl1615716579_ (values-ref _g18541_ 1))) - (if (gx#stx-null? _tl1615716579_) - (letrec ((_loop1615816582_ - (lambda (_hd1615616585_ _xarg1616216587_) - (if (gx#stx-pair? _hd1615616585_) - (let ((_e1615916590_ - (gx#stx-e _hd1615616585_))) - (let ((_lp-hd1616016593_ - (##car _e1615916590_)) - (_lp-tl1616116595_ - (##cdr _e1615916590_))) - (if (gx#stx-pair? _lp-hd1616016593_) - (let ((_e1616416598_ + _g19246_))) + (if (not (fx= _g19247_ 2)) + (error "Context expects 2 values" _g19247_))) + (let ((_target1685817280_ (values-ref _g19246_ 0)) + (_tl1686017282_ (values-ref _g19246_ 1))) + (if (gx#stx-null? _tl1686017282_) + (letrec ((_loop1686117285_ + (lambda (_hd1685917288_ _xarg1686517290_) + (if (gx#stx-pair? _hd1685917288_) + (let ((_e1686217293_ + (gx#stx-e _hd1685917288_))) + (let ((_lp-hd1686317296_ + (##car _e1686217293_)) + (_lp-tl1686417298_ + (##cdr _e1686217293_))) + (if (gx#stx-pair? _lp-hd1686317296_) + (let ((_e1686717301_ (gx#stx-e - _lp-hd1616016593_))) - (let ((_hd1616516601_ - (##car _e1616416598_)) - (_tl1616616603_ - (##cdr _e1616416598_))) + _lp-hd1686317296_))) + (let ((_hd1686817304_ + (##car _e1686717301_)) + (_tl1686917306_ + (##cdr _e1686717301_))) (if (gx#identifier? - _hd1616516601_) + _hd1686817304_) (if (gx#stx-eq? '%#ref - _hd1616516601_) + _hd1686817304_) (if (gx#stx-pair? - _tl1616616603_) - (let ((_e1616716606_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1616616603_))) - (let ((_hd1616816609_ (##car _e1616716606_)) - (_tl1616916611_ (##cdr _e1616716606_))) - (if (gx#stx-null? _tl1616916611_) - (_loop1615816582_ - _lp-tl1616116595_ - (cons _hd1616816609_ _xarg1616216587_)) - (_g1612116500_ _g1612416503_)))) - (_g1612116500_ _g1612416503_)) - (_g1612116500_ _g1612416503_)) - (_g1612116500_ _g1612416503_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1612116500_ _g1612416503_)))) - (let ((_xarg1616316614_ - (reverse _xarg1616216587_))) - (if (gx#stx-null? _tl1614216542_) - ((lambda (_L16617_ - _L16618_ - _L16619_) + _tl1686917306_) + (let ((_e1687017309_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _tl1686917306_))) + (let ((_hd1687117312_ (##car _e1687017309_)) + (_tl1687217314_ (##cdr _e1687017309_))) + (if (gx#stx-null? _tl1687217314_) + (_loop1686117285_ + _lp-tl1686417298_ + (cons _hd1687117312_ _xarg1686517290_)) + (_g1682417203_ _g1682717206_)))) + (_g1682417203_ _g1682717206_)) + (_g1682417203_ _g1682717206_)) + (_g1682417203_ _g1682717206_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1682417203_ _g1682717206_)))) + (let ((_xarg1686617317_ + (reverse _xarg1686517290_))) + (if (gx#stx-null? _tl1684517245_) + ((lambda (_L17320_ + _L17321_ + _L17322_) (gxc#generate-runtime-binding-id - _L16618_)) - _xarg1616316614_ - _hd1615316572_ - _arg1613916534_) - (_g1612116500_ - _g1612416503_))))))) - (_loop1615816582_ _target1615516577_ '())) - (_g1612116500_ _g1612416503_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1612116500_ - _g1612416503_)) - (_g1612116500_ _g1612416503_)) - (_g1612116500_ _g1612416503_)))) - (_g1612116500_ _g1612416503_)) - (_g1612116500_ _g1612416503_)) - (_g1612116500_ _g1612416503_)))) - (_g1612116500_ _g1612416503_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1612116500_ - _g1612416503_)) - (_g1612116500_ _g1612416503_)) - (_g1612116500_ _g1612416503_)))) - (_g1612116500_ _g1612416503_)))) - (_g1612116500_ _g1612416503_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1613416518_ - _target1613116513_ + _L17321_)) + _xarg1686617317_ + _hd1685617275_ + _arg1684217237_) + (_g1682417203_ + _g1682717206_))))))) + (_loop1686117285_ _target1685817280_ '())) + (_g1682417203_ _g1682717206_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1682417203_ + _g1682717206_)) + (_g1682417203_ _g1682717206_)) + (_g1682417203_ _g1682717206_)))) + (_g1682417203_ _g1682717206_)) + (_g1682417203_ _g1682717206_)) + (_g1682417203_ _g1682717206_)))) + (_g1682417203_ _g1682717206_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1682417203_ + _g1682717206_)) + (_g1682417203_ _g1682717206_)) + (_g1682417203_ _g1682717206_)))) + (_g1682417203_ _g1682717206_)))) + (_g1682417203_ _g1682717206_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop1683717221_ + _target1683417216_ '())) - (_g1612116500_ - _g1612416503_))))) - (_g1612116500_ _g1612416503_)) - (_g1612116500_ _g1612416503_)))) - (_g1612116500_ _g1612416503_))))) - (_g1612016648_ _form16119_))))))) + (_g1682417203_ + _g1682717206_))))) + (_g1682417203_ _g1682717206_)) + (_g1682417203_ _g1682717206_)))) + (_g1682417203_ _g1682717206_))))) + (_g1682317351_ _form16822_))))))) (define gxc#lambda-form-arity - (lambda (_form15923_) - (let ((_g1592515939_ - (lambda (_g1592615936_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1592615936_)))) - (let ((_g1592416116_ - (lambda (_g1592615942_) - (if (gx#stx-pair? _g1592615942_) - (let ((_e1592915944_ (gx#stx-e _g1592615942_))) - (let ((_hd1593015947_ (##car _e1592915944_)) - (_tl1593115949_ (##cdr _e1592915944_))) - (if (gx#stx-pair? _tl1593115949_) - (let ((_e1593215952_ (gx#stx-e _tl1593115949_))) - (let ((_hd1593315955_ (##car _e1593215952_)) - (_tl1593415957_ (##cdr _e1593215952_))) - (if (gx#stx-null? _tl1593415957_) - ((lambda (_L15960_ _L15961_) - (let ((_g1597616004_ - (lambda (_g1597716001_) + (lambda (_form16626_) + (let ((_g1662816642_ + (lambda (_g1662916639_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1662916639_)))) + (let ((_g1662716819_ + (lambda (_g1662916645_) + (if (gx#stx-pair? _g1662916645_) + (let ((_e1663216647_ (gx#stx-e _g1662916645_))) + (let ((_hd1663316650_ (##car _e1663216647_)) + (_tl1663416652_ (##cdr _e1663216647_))) + (if (gx#stx-pair? _tl1663416652_) + (let ((_e1663516655_ (gx#stx-e _tl1663416652_))) + (let ((_hd1663616658_ (##car _e1663516655_)) + (_tl1663716660_ (##cdr _e1663516655_))) + (if (gx#stx-null? _tl1663716660_) + ((lambda (_L16663_ _L16664_) + (let ((_g1667916707_ + (lambda (_g1668016704_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1597716001_)))) - (let ((_g1597516017_ - (lambda (_g1597716007_) - ((lambda (_L16009_) + _g1668016704_)))) + (let ((_g1667816720_ + (lambda (_g1668016710_) + ((lambda (_L16712_) (cons '0 '())) - _g1597716007_)))) - (let ((_g1597416066_ - (lambda (_g1597716020_) + _g1668016710_)))) + (let ((_g1667716769_ + (lambda (_g1668016723_) (if (gx#stx-pair/null? - _g1597716020_) + _g1668016723_) (if (fx>= (gx#stx-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1597716020_) + _g1668016723_) '0) - (let ((_g18543_ - (gx#syntax-split-splice _g1597716020_ '0))) + (let ((_g19248_ + (gx#syntax-split-splice _g1668016723_ '0))) (begin - (let ((_g18544_ (values-count _g18543_))) - (if (not (fx= _g18544_ 2)) - (error "Context expects 2 values" _g18544_))) - (let ((_target1599016022_ (values-ref _g18543_ 0)) - (_tl1599216024_ (values-ref _g18543_ 1))) - (letrec ((_loop1599316027_ - (lambda (_hd1599116030_ _arg1599716032_) - (if (gx#stx-pair? _hd1599116030_) - (let ((_e1599416035_ - (gx#stx-e _hd1599116030_))) - (let ((_lp-hd1599516038_ - (##car _e1599416035_)) - (_lp-tl1599616040_ - (##cdr _e1599416035_))) - (_loop1599316027_ - _lp-tl1599616040_ - (cons _lp-hd1599516038_ - _arg1599716032_)))) - (let ((_arg1599816043_ - (reverse _arg1599716032_))) - ((lambda (_L16046_ _L16047_) + (let ((_g19249_ (values-count _g19248_))) + (if (not (fx= _g19249_ 2)) + (error "Context expects 2 values" _g19249_))) + (let ((_target1669316725_ (values-ref _g19248_ 0)) + (_tl1669516727_ (values-ref _g19248_ 1))) + (letrec ((_loop1669616730_ + (lambda (_hd1669416733_ _arg1670016735_) + (if (gx#stx-pair? _hd1669416733_) + (let ((_e1669716738_ + (gx#stx-e _hd1669416733_))) + (let ((_lp-hd1669816741_ + (##car _e1669716738_)) + (_lp-tl1669916743_ + (##cdr _e1669716738_))) + (_loop1669616730_ + _lp-tl1669916743_ + (cons _lp-hd1669816741_ + _arg1670016735_)))) + (let ((_arg1670116746_ + (reverse _arg1670016735_))) + ((lambda (_L16749_ _L16750_) (cons (length (begin '#!void - (foldr1 (lambda (_g1605816061_ + (foldr1 (lambda (_g1676116764_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1605916063_) - (cons _g1605816061_ _g1605916063_)) + _g1676216766_) + (cons _g1676116764_ _g1676216766_)) '() - _L16047_))) + _L16750_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _tl1599216024_ - _arg1599816043_)))))) - (_loop1599316027_ _target1599016022_ '()))))) - (_g1597516017_ _g1597716020_)) - (_g1597516017_ _g1597716020_))))) + _tl1669516727_ + _arg1670116746_)))))) + (_loop1669616730_ _target1669316725_ '()))))) + (_g1667816720_ _g1668016723_)) + (_g1667816720_ _g1668016723_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g1597316113_ - (lambda (_g1597716069_) + (let ((_g1667616816_ + (lambda (_g1668016772_) (if (gx#stx-pair/null? - _g1597716069_) + _g1668016772_) (if (fx>= (gx#stx-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1597716069_) + _g1668016772_) '0) - (let ((_g18545_ - (gx#syntax-split-splice _g1597716069_ '0))) + (let ((_g19250_ + (gx#syntax-split-splice _g1668016772_ '0))) (begin - (let ((_g18546_ (values-count _g18545_))) - (if (not (fx= _g18546_ 2)) - (error "Context expects 2 values" _g18546_))) - (let ((_target1597916071_ (values-ref _g18545_ 0)) - (_tl1598116073_ (values-ref _g18545_ 1))) - (if (gx#stx-null? _tl1598116073_) - (letrec ((_loop1598216076_ - (lambda (_hd1598016079_ - _arg1598616081_) - (if (gx#stx-pair? _hd1598016079_) - (let ((_e1598316084_ + (let ((_g19251_ (values-count _g19250_))) + (if (not (fx= _g19251_ 2)) + (error "Context expects 2 values" _g19251_))) + (let ((_target1668216774_ (values-ref _g19250_ 0)) + (_tl1668416776_ (values-ref _g19250_ 1))) + (if (gx#stx-null? _tl1668416776_) + (letrec ((_loop1668516779_ + (lambda (_hd1668316782_ + _arg1668916784_) + (if (gx#stx-pair? _hd1668316782_) + (let ((_e1668616787_ (gx#stx-e - _hd1598016079_))) - (let ((_lp-hd1598416087_ - (##car _e1598316084_)) - (_lp-tl1598516089_ - (##cdr _e1598316084_))) - (_loop1598216076_ - _lp-tl1598516089_ - (cons _lp-hd1598416087_ - _arg1598616081_)))) - (let ((_arg1598716092_ - (reverse _arg1598616081_))) - ((lambda (_L16095_) + _hd1668316782_))) + (let ((_lp-hd1668716790_ + (##car _e1668616787_)) + (_lp-tl1668816792_ + (##cdr _e1668616787_))) + (_loop1668516779_ + _lp-tl1668816792_ + (cons _lp-hd1668716790_ + _arg1668916784_)))) + (let ((_arg1669016795_ + (reverse _arg1668916784_))) + ((lambda (_L16798_) (length (begin '#!void - (foldr1 (lambda (_g1610516108_ + (foldr1 (lambda (_g1680816811_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1610616110_) - (cons _g1610516108_ _g1610616110_)) + _g1680916813_) + (cons _g1680816811_ _g1680916813_)) '() - _L16095_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _arg1598716092_)))))) - (_loop1598216076_ _target1597916071_ '())) - (_g1597416066_ _g1597716069_))))) - (_g1597416066_ _g1597716069_)) - (_g1597416066_ _g1597716069_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1597316113_ _L15961_)))))) - _hd1593315955_ - _hd1593015947_) - (_g1592515939_ _g1592615942_)))) - (_g1592515939_ _g1592615942_)))) - (_g1592515939_ _g1592615942_))))) - (_g1592416116_ _form15923_))))) + _L16798_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _arg1669016795_)))))) + (_loop1668516779_ _target1668216774_ '())) + (_g1667716769_ _g1668016772_))))) + (_g1667716769_ _g1668016772_)) + (_g1667716769_ _g1668016772_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1667616816_ _L16664_)))))) + _hd1663616658_ + _hd1663316650_) + (_g1662816642_ _g1662916645_)))) + (_g1662816642_ _g1662916645_)))) + (_g1662816642_ _g1662916645_))))) + (_g1662716819_ _form16626_))))) (define gxc#lambda-expr? - (lambda (_expr15876_) - (let ((_g1587915889_ - (lambda (_g1588015886_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1588015886_)))) - (let ((_g1587815896_ (lambda (_g1588015892_) ((lambda () '#f))))) - (let ((_g1587715920_ - (lambda (_g1588015899_) - (if (gx#stx-pair? _g1588015899_) - (let ((_e1588215901_ (gx#stx-e _g1588015899_))) - (let ((_hd1588315904_ (##car _e1588215901_)) - (_tl1588415906_ (##cdr _e1588215901_))) - (if (gx#identifier? _hd1588315904_) - (if (gx#stx-eq? '%#lambda _hd1588315904_) - ((lambda (_L15909_) '#t) _tl1588415906_) - (_g1587815896_ _g1588015899_)) - (_g1587815896_ _g1588015899_)))) - (_g1587815896_ _g1588015899_))))) - (_g1587715920_ _expr15876_)))))) + (lambda (_expr16579_) + (let ((_g1658216592_ + (lambda (_g1658316589_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1658316589_)))) + (let ((_g1658116599_ (lambda (_g1658316595_) ((lambda () '#f))))) + (let ((_g1658016623_ + (lambda (_g1658316602_) + (if (gx#stx-pair? _g1658316602_) + (let ((_e1658516604_ (gx#stx-e _g1658316602_))) + (let ((_hd1658616607_ (##car _e1658516604_)) + (_tl1658716609_ (##cdr _e1658516604_))) + (if (gx#identifier? _hd1658616607_) + (if (gx#stx-eq? '%#lambda _hd1658616607_) + ((lambda (_L16612_) '#t) _tl1658716609_) + (_g1658116599_ _g1658316602_)) + (_g1658116599_ _g1658316602_)))) + (_g1658116599_ _g1658316602_))))) + (_g1658016623_ _expr16579_)))))) (define gxc#case-lambda-expr? - (lambda (_expr15829_) - (let ((_g1583215842_ - (lambda (_g1583315839_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1583315839_)))) - (let ((_g1583115849_ (lambda (_g1583315845_) ((lambda () '#f))))) - (let ((_g1583015873_ - (lambda (_g1583315852_) - (if (gx#stx-pair? _g1583315852_) - (let ((_e1583515854_ (gx#stx-e _g1583315852_))) - (let ((_hd1583615857_ (##car _e1583515854_)) - (_tl1583715859_ (##cdr _e1583515854_))) - (if (gx#identifier? _hd1583615857_) - (if (gx#stx-eq? '%#case-lambda _hd1583615857_) - ((lambda (_L15862_) '#t) _tl1583715859_) - (_g1583115849_ _g1583315852_)) - (_g1583115849_ _g1583315852_)))) - (_g1583115849_ _g1583315852_))))) - (_g1583015873_ _expr15829_)))))) + (lambda (_expr16532_) + (let ((_g1653516545_ + (lambda (_g1653616542_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1653616542_)))) + (let ((_g1653416552_ (lambda (_g1653616548_) ((lambda () '#f))))) + (let ((_g1653316576_ + (lambda (_g1653616555_) + (if (gx#stx-pair? _g1653616555_) + (let ((_e1653816557_ (gx#stx-e _g1653616555_))) + (let ((_hd1653916560_ (##car _e1653816557_)) + (_tl1654016562_ (##cdr _e1653816557_))) + (if (gx#identifier? _hd1653916560_) + (if (gx#stx-eq? '%#case-lambda _hd1653916560_) + ((lambda (_L16565_) '#t) _tl1654016562_) + (_g1653416552_ _g1653616555_)) + (_g1653416552_ _g1653616555_)))) + (_g1653416552_ _g1653616555_))))) + (_g1653316576_ _expr16532_)))))) (define gxc#opt-lambda-expr? - (lambda (_expr15698_) - (let ((_g1570115731_ - (lambda (_g1570215728_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1570215728_)))) - (let ((_g1570015738_ (lambda (_g1570215734_) ((lambda () '#f))))) - (let ((_g1569915826_ - (lambda (_g1570215741_) - (if (gx#stx-pair? _g1570215741_) - (let ((_e1570615743_ (gx#stx-e _g1570215741_))) - (let ((_hd1570715746_ (##car _e1570615743_)) - (_tl1570815748_ (##cdr _e1570615743_))) - (if (gx#identifier? _hd1570715746_) - (if (gx#stx-eq? '%#let-values _hd1570715746_) - (if (gx#stx-pair? _tl1570815748_) - (let ((_e1570915751_ - (gx#stx-e _tl1570815748_))) - (let ((_hd1571015754_ - (##car _e1570915751_)) - (_tl1571115756_ - (##cdr _e1570915751_))) - (if (gx#stx-pair? _hd1571015754_) - (let ((_e1571215759_ + (lambda (_expr16401_) + (let ((_g1640416434_ + (lambda (_g1640516431_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1640516431_)))) + (let ((_g1640316441_ (lambda (_g1640516437_) ((lambda () '#f))))) + (let ((_g1640216529_ + (lambda (_g1640516444_) + (if (gx#stx-pair? _g1640516444_) + (let ((_e1640916446_ (gx#stx-e _g1640516444_))) + (let ((_hd1641016449_ (##car _e1640916446_)) + (_tl1641116451_ (##cdr _e1640916446_))) + (if (gx#identifier? _hd1641016449_) + (if (gx#stx-eq? '%#let-values _hd1641016449_) + (if (gx#stx-pair? _tl1641116451_) + (let ((_e1641216454_ + (gx#stx-e _tl1641116451_))) + (let ((_hd1641316457_ + (##car _e1641216454_)) + (_tl1641416459_ + (##cdr _e1641216454_))) + (if (gx#stx-pair? _hd1641316457_) + (let ((_e1641516462_ (gx#stx-e - _hd1571015754_))) - (let ((_hd1571315762_ - (##car _e1571215759_)) - (_tl1571415764_ - (##cdr _e1571215759_))) + _hd1641316457_))) + (let ((_hd1641616465_ + (##car _e1641516462_)) + (_tl1641716467_ + (##cdr _e1641516462_))) (if (gx#stx-pair? - _hd1571315762_) - (let ((_e1571515767_ + _hd1641616465_) + (let ((_e1641816470_ (gx#stx-e - _hd1571315762_))) - (let ((_hd1571615770_ - (##car _e1571515767_)) - (_tl1571715772_ - (##cdr _e1571515767_))) + _hd1641616465_))) + (let ((_hd1641916473_ + (##car _e1641816470_)) + (_tl1642016475_ + (##cdr _e1641816470_))) (if (gx#stx-pair? - _hd1571615770_) - (let ((_e1571815775_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1571615770_))) - (let ((_hd1571915778_ (##car _e1571815775_)) - (_tl1572015780_ (##cdr _e1571815775_))) - (if (gx#stx-null? _tl1572015780_) - (if (gx#stx-pair? _tl1571715772_) - (let ((_e1572115783_ - (gx#stx-e _tl1571715772_))) - (let ((_hd1572215786_ - (##car _e1572115783_)) - (_tl1572315788_ - (##cdr _e1572115783_))) - (if (gx#stx-null? _tl1572315788_) - (if (gx#stx-null? _tl1571415764_) + _hd1641916473_) + (let ((_e1642116478_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _hd1641916473_))) + (let ((_hd1642216481_ (##car _e1642116478_)) + (_tl1642316483_ (##cdr _e1642116478_))) + (if (gx#stx-null? _tl1642316483_) + (if (gx#stx-pair? _tl1642016475_) + (let ((_e1642416486_ + (gx#stx-e _tl1642016475_))) + (let ((_hd1642516489_ + (##car _e1642416486_)) + (_tl1642616491_ + (##cdr _e1642416486_))) + (if (gx#stx-null? _tl1642616491_) + (if (gx#stx-null? _tl1641716467_) (if (gx#stx-pair? - _tl1571115756_) - (let ((_e1572415791_ + _tl1641416459_) + (let ((_e1642716494_ (gx#stx-e - _tl1571115756_))) - (let ((_hd1572515794_ - (##car _e1572415791_)) - (_tl1572615796_ - (##cdr _e1572415791_))) + _tl1641416459_))) + (let ((_hd1642816497_ + (##car _e1642716494_)) + (_tl1642916499_ + (##cdr _e1642716494_))) (if (gx#stx-null? - _tl1572615796_) - ((lambda (_L15799_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L15800_ - _L15801_) - (if (gx#identifier? _L15801_) - (if (gxc#lambda-expr? _L15800_) - (gxc#case-lambda-expr? _L15799_) + _tl1642916499_) + ((lambda (_L16502_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L16503_ + _L16504_) + (if (gx#identifier? _L16504_) + (if (gxc#lambda-expr? _L16503_) + (gxc#case-lambda-expr? _L16502_) '#f) '#f)) - _hd1572515794_ - _hd1572215786_ - _hd1571915778_) - (_g1570015738_ _g1570215741_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1570015738_ - _g1570215741_)) - (_g1570015738_ _g1570215741_)) - (_g1570015738_ _g1570215741_)))) - (_g1570015738_ _g1570215741_)) - (_g1570015738_ _g1570215741_)))) - (_g1570015738_ _g1570215741_)))) - (_g1570015738_ _g1570215741_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1570015738_ _g1570215741_)))) - (_g1570015738_ _g1570215741_)) - (_g1570015738_ _g1570215741_)) - (_g1570015738_ _g1570215741_)))) - (_g1570015738_ _g1570215741_))))) - (_g1569915826_ _expr15698_)))))) + _hd1642816497_ + _hd1642516489_ + _hd1642216481_) + (_g1640316441_ _g1640516444_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1640316441_ + _g1640516444_)) + (_g1640316441_ _g1640516444_)) + (_g1640316441_ _g1640516444_)))) + (_g1640316441_ _g1640516444_)) + (_g1640316441_ _g1640516444_)))) + (_g1640316441_ _g1640516444_)))) + (_g1640316441_ _g1640516444_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1640316441_ _g1640516444_)))) + (_g1640316441_ _g1640516444_)) + (_g1640316441_ _g1640516444_)) + (_g1640316441_ _g1640516444_)))) + (_g1640316441_ _g1640516444_))))) + (_g1640216529_ _expr16401_)))))) (begin - (define gxc#lift-case-lambda-clauses__opt-lambda15438 - (lambda (_stx15440_ _id15441_ _clauses15442_ _gensym?15443_) - ((letrec ((_lp15445_ - (lambda (_rest15447_ _ids15448_ _impls15449_ _clauses15450_) - (let ((_rest1545115459_ _rest15447_)) - (let ((_E1545415463_ + (define gxc#lift-case-lambda-clauses__opt-lambda16141 + (lambda (_stx16143_ _id16144_ _clauses16145_ _gensym?16146_) + ((letrec ((_lp16148_ + (lambda (_rest16150_ _ids16151_ _impls16152_ _clauses16153_) + (let ((_rest1615416162_ _rest16150_)) + (let ((_E1615716166_ (lambda () (error '"No clause matching" - _rest1545115459_)))) - (let ((_else1545315467_ + _rest1615416162_)))) + (let ((_else1615616170_ (lambda () - (values (reverse _ids15448_) - (reverse _impls15449_) - (reverse _clauses15450_))))) - (let ((_K1545515672_ - (lambda (_rest15470_ _clause15471_) + (values (reverse _ids16151_) + (reverse _impls16152_) + (reverse _clauses16153_))))) + (let ((_K1615816375_ + (lambda (_rest16173_ _clause16174_) (if (gxc#dispatch-lambda-form? - _clause15471_) - (_lp15445_ - _rest15470_ - _ids15448_ - _impls15449_ - (cons _clause15471_ _clauses15450_)) - (let ((_g1547315484_ - (lambda (_g1547415481_) + _clause16174_) + (_lp16148_ + _rest16173_ + _ids16151_ + _impls16152_ + (cons _clause16174_ _clauses16153_)) + (let ((_g1617616187_ + (lambda (_g1617716184_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1547415481_)))) - (let ((_g1547215669_ - (lambda (_g1547415487_) + _g1617716184_)))) + (let ((_g1617516372_ + (lambda (_g1617716190_) (if (gx#stx-pair? - _g1547415487_) - (let ((_e1547715489_ + _g1617716190_) + (let ((_e1618016192_ (gx#stx-e - _g1547415487_))) - (let ((_hd1547815492_ - (##car _e1547715489_)) - (_tl1547915494_ - (##cdr _e1547715489_))) - ((lambda (_L15497_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L15498_) - (let ((_id15515_ + _g1617716190_))) + (let ((_hd1618116195_ + (##car _e1618016192_)) + (_tl1618216197_ + (##cdr _e1618016192_))) + ((lambda (_L16200_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L16201_) + (let ((_id16218_ (make-symbol - (gx#stx-e _id15441_) + (gx#stx-e _id16144_) '"__" - (length _clauses15450_) - (if _gensym?15443_ (gensym '__) '"")))) - (let ((_id15517_ - (gx#core-quote-syntax - _id15515_ - (gx#stx-source _stx15440_)))) - (let ((_impl15519_ + (length _clauses16153_) + (if _gensym?16146_ (gensym '__) '"")))) + (let ((_id16220_ + (gx#core-quote-syntax__1 + _id16218_ + (gx#stx-source _stx16143_)))) + (let ((_impl16222_ (gxc#xform-wrap-source - (cons (gx#datum->syntax '#f '%#lambda) - (cons _L15498_ _L15497_)) - _stx15440_))) - (let ((_clause15666_ - (let ((_g1552315551_ - (lambda (_g1552415548_) + (cons (gx#datum->syntax__0 '#f '%#lambda) + (cons _L16201_ _L16200_)) + _stx16143_))) + (let ((_clause16369_ + (let ((_g1622616254_ + (lambda (_g1622716251_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1552415548_)))) - (let ((_g1552215567_ - (lambda (_g1552415554_) - ((lambda (_L15556_) - (cons _L15498_ + _g1622716251_)))) + (let ((_g1622516270_ + (lambda (_g1622716257_) + ((lambda (_L16259_) + (cons _L16201_ (cons (gxc#xform-wrap-source (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'apply '())) - (cons (cons '%#ref (cons _id15517_ '())) - (cons (cons (gx#datum->syntax + (cons (cons '%#ref (cons _id16220_ '())) + (cons (cons (gx#datum->syntax__0 '#f '%#ref) - (cons _L15556_ '())) + (cons _L16259_ '())) '())))) - _stx15440_) + _stx16143_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1552415554_)))) - (let ((_g1552115616_ - (lambda (_g1552415570_) + _g1622716257_)))) + (let ((_g1622416319_ + (lambda (_g1622716273_) (if (gx#stx-pair/null? - _g1552415570_) + _g1622716273_) (if (fx>= (gx#stx-length - _g1552415570_) + _g1622716273_) '0) - (let ((_g18547_ + (let ((_g19252_ (gx#syntax-split-splice - _g1552415570_ + _g1622716273_ '0))) (begin - (let ((_g18548_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (values-count _g18547_))) - (if (not (fx= _g18548_ 2)) - (error "Context expects 2 values" _g18548_))) - (let ((_target1553715572_ (values-ref _g18547_ 0)) - (_tl1553915574_ (values-ref _g18547_ 1))) - (letrec ((_loop1554015577_ - (lambda (_hd1553815580_ _arg1554415582_) - (if (gx#stx-pair? _hd1553815580_) - (let ((_e1554115585_ - (gx#stx-e _hd1553815580_))) - (let ((_lp-hd1554215588_ - (##car _e1554115585_)) - (_lp-tl1554315590_ - (##cdr _e1554115585_))) - (_loop1554015577_ - _lp-tl1554315590_ - (cons _lp-hd1554215588_ - _arg1554415582_)))) - (let ((_arg1554515593_ - (reverse _arg1554415582_))) - ((lambda (_L15596_ _L15597_) - (cons _L15498_ + (let ((_g19253_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (values-count _g19252_))) + (if (not (fx= _g19253_ 2)) + (error "Context expects 2 values" _g19253_))) + (let ((_target1624016275_ (values-ref _g19252_ 0)) + (_tl1624216277_ (values-ref _g19252_ 1))) + (letrec ((_loop1624316280_ + (lambda (_hd1624116283_ _arg1624716285_) + (if (gx#stx-pair? _hd1624116283_) + (let ((_e1624416288_ + (gx#stx-e _hd1624116283_))) + (let ((_lp-hd1624516291_ + (##car _e1624416288_)) + (_lp-tl1624616293_ + (##cdr _e1624416288_))) + (_loop1624316280_ + _lp-tl1624616293_ + (cons _lp-hd1624516291_ + _arg1624716285_)))) + (let ((_arg1624816296_ + (reverse _arg1624716285_))) + ((lambda (_L16299_ _L16300_) + (cons _L16201_ (cons (gxc#xform-wrap-source (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'apply '())) - (cons (cons '%#ref (cons _id15517_ '())) + (cons (cons '%#ref (cons _id16220_ '())) (foldr1 cons - (cons (cons (gx#datum->syntax + (cons (cons (gx#datum->syntax__0 '#f '%#ref) - (cons _L15596_ '())) + (cons _L16299_ '())) '()) (begin '#!void - (foldr1 (lambda (_g1560815611_ - _g1560915613_) - (cons (cons (gx#datum->syntax + (foldr1 (lambda (_g1631116314_ + _g1631216316_) + (cons (cons (gx#datum->syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '%#ref) - (cons _g1560815611_ '())) - _g1560915613_)) + (cons _g1631116314_ '())) + _g1631216316_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _L15597_)))))) - _stx15440_) + _L16300_)))))) + _stx16143_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _tl1553915574_ - _arg1554515593_)))))) - (_loop1554015577_ _target1553715572_ '()))))) - (_g1552215567_ _g1552415570_)) + _tl1624216277_ + _arg1624816296_)))))) + (_loop1624316280_ _target1624016275_ '()))))) + (_g1622516270_ _g1622716273_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1552215567_ - _g1552415570_))))) - (let ((_g1552015663_ - (lambda (_g1552415619_) + (_g1622516270_ + _g1622716273_))))) + (let ((_g1622316366_ + (lambda (_g1622716322_) (if (gx#stx-pair/null? - _g1552415619_) + _g1622716322_) (if (fx>= (gx#stx-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1552415619_) + _g1622716322_) '0) - (let ((_g18549_ (gx#syntax-split-splice _g1552415619_ '0))) + (let ((_g19254_ (gx#syntax-split-splice _g1622716322_ '0))) (begin - (let ((_g18550_ (values-count _g18549_))) - (if (not (fx= _g18550_ 2)) - (error "Context expects 2 values" _g18550_))) - (let ((_target1552615621_ (values-ref _g18549_ 0)) - (_tl1552815623_ (values-ref _g18549_ 1))) - (if (gx#stx-null? _tl1552815623_) - (letrec ((_loop1552915626_ - (lambda (_hd1552715629_ _arg1553315631_) - (if (gx#stx-pair? _hd1552715629_) - (let ((_e1553015634_ - (gx#stx-e _hd1552715629_))) - (let ((_lp-hd1553115637_ - (##car _e1553015634_)) - (_lp-tl1553215639_ - (##cdr _e1553015634_))) - (_loop1552915626_ - _lp-tl1553215639_ - (cons _lp-hd1553115637_ - _arg1553315631_)))) - (let ((_arg1553415642_ - (reverse _arg1553315631_))) - ((lambda (_L15645_) - (cons _L15498_ + (let ((_g19255_ (values-count _g19254_))) + (if (not (fx= _g19255_ 2)) + (error "Context expects 2 values" _g19255_))) + (let ((_target1622916324_ (values-ref _g19254_ 0)) + (_tl1623116326_ (values-ref _g19254_ 1))) + (if (gx#stx-null? _tl1623116326_) + (letrec ((_loop1623216329_ + (lambda (_hd1623016332_ _arg1623616334_) + (if (gx#stx-pair? _hd1623016332_) + (let ((_e1623316337_ + (gx#stx-e _hd1623016332_))) + (let ((_lp-hd1623416340_ + (##car _e1623316337_)) + (_lp-tl1623516342_ + (##cdr _e1623316337_))) + (_loop1623216329_ + _lp-tl1623516342_ + (cons _lp-hd1623416340_ + _arg1623616334_)))) + (let ((_arg1623716345_ + (reverse _arg1623616334_))) + ((lambda (_L16348_) + (cons _L16201_ (cons (gxc#xform-wrap-source (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons '%#ref (cons _id15517_ '())) + (cons (cons '%#ref (cons _id16220_ '())) (begin '#!void - (foldr1 (lambda (_g1565515658_ - _g1565615660_) - (cons (cons (gx#datum->syntax + (foldr1 (lambda (_g1635816361_ + _g1635916363_) + (cons (cons (gx#datum->syntax__0 '#f '%#ref) - (cons _g1565515658_ + (cons _g1635816361_ '())) - _g1565615660_)) + _g1635916363_)) '() - _L15645_)))) - _stx15440_) + _L16348_)))) + _stx16143_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _arg1553415642_)))))) - (_loop1552915626_ _target1552615621_ '())) - (_g1552115616_ _g1552415619_))))) - (_g1552115616_ _g1552415619_)) - (_g1552115616_ _g1552415619_))))) + _arg1623716345_)))))) + (_loop1623216329_ _target1622916324_ '())) + (_g1622416319_ _g1622716322_))))) + (_g1622416319_ _g1622716322_)) + (_g1622416319_ _g1622716322_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1552015663_ _L15498_))))))) + (_g1622316366_ _L16201_))))))) (let () - (_lp15445_ - _rest15470_ - (cons _id15517_ _ids15448_) - (cons _impl15519_ _impls15449_) - (cons _clause15666_ _clauses15450_)))))))) - _tl1547915494_ - _hd1547815492_))) - (_g1547315484_ _g1547415487_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1547215669_ _clause15471_))))))) - (if (##pair? _rest1545115459_) - (let ((_hd1545615675_ - (##car _rest1545115459_)) - (_tl1545715677_ - (##cdr _rest1545115459_))) - (let ((_clause15680_ _hd1545615675_)) - (let ((_rest15682_ _tl1545715677_)) - (_K1545515672_ - _rest15682_ - _clause15680_)))) - (_else1545315467_))))))))) - _lp15445_) - _clauses15442_ + (_lp16148_ + _rest16173_ + (cons _id16220_ _ids16151_) + (cons _impl16222_ _impls16152_) + (cons _clause16369_ _clauses16153_)))))))) + _tl1618216197_ + _hd1618116195_))) + (_g1617616187_ _g1617716190_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1617516372_ _clause16174_))))))) + (if (##pair? _rest1615416162_) + (let ((_hd1615916378_ + (##car _rest1615416162_)) + (_tl1616016380_ + (##cdr _rest1615416162_))) + (let ((_clause16383_ _hd1615916378_)) + (let ((_rest16385_ _tl1616016380_)) + (_K1615816375_ + _rest16385_ + _clause16383_)))) + (_else1615616170_))))))))) + _lp16148_) + _clauses16145_ '() '() '()))) (begin (define gxc#lift-case-lambda-clauses__0 - (lambda (_stx15687_ _id15688_ _clauses15689_) - (let ((_gensym?15691_ '#f)) - (gxc#lift-case-lambda-clauses__opt-lambda15438 - _stx15687_ - _id15688_ - _clauses15689_ - _gensym?15691_)))) + (lambda (_stx16390_ _id16391_ _clauses16392_) + (let ((_gensym?16394_ '#f)) + (gxc#lift-case-lambda-clauses__opt-lambda16141 + _stx16390_ + _id16391_ + _clauses16392_ + _gensym?16394_)))) (define gxc#lift-case-lambda-clauses - (lambda _g18552_ - (let ((_g18551_ (length _g18552_))) - (cond ((fx= _g18551_ 3) - (apply gxc#lift-case-lambda-clauses__0 _g18552_)) - ((fx= _g18551_ 4) - (apply gxc#lift-case-lambda-clauses__opt-lambda15438 - _g18552_)) - (else (error "No clause matching arguments" _g18552_)))))))) + (lambda _g19257_ + (let ((_g19256_ (length _g19257_))) + (cond ((fx= _g19256_ 3) + (apply gxc#lift-case-lambda-clauses__0 _g19257_)) + ((fx= _g19256_ 4) + (apply gxc#lift-case-lambda-clauses__opt-lambda16141 + _g19257_)) + (else (error "No clause matching arguments" _g19257_)))))))) (define gxc#lift-top-lambda-define-values% - (lambda (_stx15029_) - (let ((_case-lambda-clause-def15031_ - (lambda (_id15436_ _impl15437_) + (lambda (_stx15732_) + (let ((_case-lambda-clause-def15734_ + (lambda (_id16139_ _impl16140_) (gxc#xform-wrap-source (cons '%#define-values - (cons (cons _id15436_ '()) - (cons (gxc#compile-e _impl15437_) '()))) - _stx15029_)))) - (let ((_g1503515080_ - (lambda (_g1503615077_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1503615077_)))) - (let ((_g1503415126_ - (lambda (_g1503615083_) - (if (gx#stx-pair? _g1503615083_) - (let ((_e1506715085_ (gx#stx-e _g1503615083_))) - (let ((_hd1506815088_ (##car _e1506715085_)) - (_tl1506915090_ (##cdr _e1506715085_))) - (if (gx#stx-pair? _tl1506915090_) - (let ((_e1507015093_ (gx#stx-e _tl1506915090_))) - (let ((_hd1507115096_ (##car _e1507015093_)) - (_tl1507215098_ (##cdr _e1507015093_))) - (if (gx#stx-pair? _tl1507215098_) - (let ((_e1507315101_ - (gx#stx-e _tl1507215098_))) - (let ((_hd1507415104_ - (##car _e1507315101_)) - (_tl1507515106_ - (##cdr _e1507315101_))) - (if (gx#stx-null? _tl1507515106_) - ((lambda (_L15109_ _L15110_) + (cons (cons _id16139_ '()) + (cons (gxc#compile-e _impl16140_) '()))) + _stx15732_)))) + (let ((_g1573815783_ + (lambda (_g1573915780_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1573915780_)))) + (let ((_g1573715829_ + (lambda (_g1573915786_) + (if (gx#stx-pair? _g1573915786_) + (let ((_e1577015788_ (gx#stx-e _g1573915786_))) + (let ((_hd1577115791_ (##car _e1577015788_)) + (_tl1577215793_ (##cdr _e1577015788_))) + (if (gx#stx-pair? _tl1577215793_) + (let ((_e1577315796_ (gx#stx-e _tl1577215793_))) + (let ((_hd1577415799_ (##car _e1577315796_)) + (_tl1577515801_ (##cdr _e1577315796_))) + (if (gx#stx-pair? _tl1577515801_) + (let ((_e1577615804_ + (gx#stx-e _tl1577515801_))) + (let ((_hd1577715807_ + (##car _e1577615804_)) + (_tl1577815809_ + (##cdr _e1577615804_))) + (if (gx#stx-null? _tl1577815809_) + ((lambda (_L15812_ _L15813_) (gxc#xform-wrap-source (cons '%#define-values - (cons _L15110_ + (cons _L15813_ (cons (gxc#compile-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L15109_) + _L15812_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx15029_)) - _hd1507415104_ - _hd1507115096_) - (_g1503515080_ _g1503615083_)))) - (_g1503515080_ _g1503615083_)))) - (_g1503515080_ _g1503615083_)))) - (_g1503515080_ _g1503615083_))))) - (let ((_g1503315308_ - (lambda (_g1503615129_) - (if (gx#stx-pair? _g1503615129_) - (let ((_e1505315131_ (gx#stx-e _g1503615129_))) - (let ((_hd1505415134_ (##car _e1505315131_)) - (_tl1505515136_ (##cdr _e1505315131_))) - (if (gx#stx-pair? _tl1505515136_) - (let ((_e1505615139_ - (gx#stx-e _tl1505515136_))) - (let ((_hd1505715142_ (##car _e1505615139_)) - (_tl1505815144_ - (##cdr _e1505615139_))) - (if (gx#stx-pair? _hd1505715142_) - (let ((_e1505915147_ - (gx#stx-e _hd1505715142_))) - (let ((_hd1506015150_ - (##car _e1505915147_)) - (_tl1506115152_ - (##cdr _e1505915147_))) - (if (gx#stx-null? _tl1506115152_) + _stx15732_)) + _hd1577715807_ + _hd1577415799_) + (_g1573815783_ _g1573915786_)))) + (_g1573815783_ _g1573915786_)))) + (_g1573815783_ _g1573915786_)))) + (_g1573815783_ _g1573915786_))))) + (let ((_g1573616011_ + (lambda (_g1573915832_) + (if (gx#stx-pair? _g1573915832_) + (let ((_e1575615834_ (gx#stx-e _g1573915832_))) + (let ((_hd1575715837_ (##car _e1575615834_)) + (_tl1575815839_ (##cdr _e1575615834_))) + (if (gx#stx-pair? _tl1575815839_) + (let ((_e1575915842_ + (gx#stx-e _tl1575815839_))) + (let ((_hd1576015845_ (##car _e1575915842_)) + (_tl1576115847_ + (##cdr _e1575915842_))) + (if (gx#stx-pair? _hd1576015845_) + (let ((_e1576215850_ + (gx#stx-e _hd1576015845_))) + (let ((_hd1576315853_ + (##car _e1576215850_)) + (_tl1576415855_ + (##cdr _e1576215850_))) + (if (gx#stx-null? _tl1576415855_) (if (gx#stx-pair? - _tl1505815144_) - (let ((_e1506215155_ + _tl1576115847_) + (let ((_e1576515858_ (gx#stx-e - _tl1505815144_))) - (let ((_hd1506315158_ - (##car _e1506215155_)) - (_tl1506415160_ - (##cdr _e1506215155_))) + _tl1576115847_))) + (let ((_hd1576615861_ + (##car _e1576515858_)) + (_tl1576715863_ + (##cdr _e1576515858_))) (if (gx#stx-null? - _tl1506415160_) - ((lambda (_L15163_ + _tl1576715863_) + ((lambda (_L15866_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L15164_) - (if (if (gx#identifier? _L15164_) - (gxc#opt-lambda-expr? _L15163_) + _L15867_) + (if (if (gx#identifier? _L15867_) + (gxc#opt-lambda-expr? _L15866_) '#f) - (let ((_g1518015210_ - (lambda (_g1518115207_) + (let ((_g1588315913_ + (lambda (_g1588415910_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1518115207_)))) - (let ((_g1517915305_ - (lambda (_g1518115213_) - (if (gx#stx-pair? _g1518115213_) - (let ((_e1518515215_ - (gx#stx-e _g1518115213_))) - (let ((_hd1518615218_ - (##car _e1518515215_)) - (_tl1518715220_ - (##cdr _e1518515215_))) + _g1588415910_)))) + (let ((_g1588216008_ + (lambda (_g1588415916_) + (if (gx#stx-pair? _g1588415916_) + (let ((_e1588815918_ + (gx#stx-e _g1588415916_))) + (let ((_hd1588915921_ + (##car _e1588815918_)) + (_tl1589015923_ + (##cdr _e1588815918_))) (if (gx#stx-pair? - _tl1518715220_) - (let ((_e1518815223_ + _tl1589015923_) + (let ((_e1589115926_ (gx#stx-e - _tl1518715220_))) - (let ((_hd1518915226_ - (##car _e1518815223_)) - (_tl1519015228_ - (##cdr _e1518815223_))) + _tl1589015923_))) + (let ((_hd1589215929_ + (##car _e1589115926_)) + (_tl1589315931_ + (##cdr _e1589115926_))) (if (gx#stx-pair? - _hd1518915226_) - (let ((_e1519115231_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1518915226_))) - (let ((_hd1519215234_ (##car _e1519115231_)) - (_tl1519315236_ (##cdr _e1519115231_))) - (if (gx#stx-pair? _hd1519215234_) - (let ((_e1519415239_ (gx#stx-e _hd1519215234_))) - (let ((_hd1519515242_ (##car _e1519415239_)) - (_tl1519615244_ (##cdr _e1519415239_))) - (if (gx#stx-pair? _hd1519515242_) - (let ((_e1519715247_ - (gx#stx-e _hd1519515242_))) - (let ((_hd1519815250_ - (##car _e1519715247_)) - (_tl1519915252_ - (##cdr _e1519715247_))) - (if (gx#stx-null? _tl1519915252_) - (if (gx#stx-pair? _tl1519615244_) - (let ((_e1520015255_ + _hd1589215929_) + (let ((_e1589415934_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _hd1589215929_))) + (let ((_hd1589515937_ (##car _e1589415934_)) + (_tl1589615939_ (##cdr _e1589415934_))) + (if (gx#stx-pair? _hd1589515937_) + (let ((_e1589715942_ (gx#stx-e _hd1589515937_))) + (let ((_hd1589815945_ (##car _e1589715942_)) + (_tl1589915947_ (##cdr _e1589715942_))) + (if (gx#stx-pair? _hd1589815945_) + (let ((_e1590015950_ + (gx#stx-e _hd1589815945_))) + (let ((_hd1590115953_ + (##car _e1590015950_)) + (_tl1590215955_ + (##cdr _e1590015950_))) + (if (gx#stx-null? _tl1590215955_) + (if (gx#stx-pair? _tl1589915947_) + (let ((_e1590315958_ (gx#stx-e - _tl1519615244_))) - (let ((_hd1520115258_ - (##car _e1520015255_)) - (_tl1520215260_ - (##cdr _e1520015255_))) + _tl1589915947_))) + (let ((_hd1590415961_ + (##car _e1590315958_)) + (_tl1590515963_ + (##cdr _e1590315958_))) (if (gx#stx-null? - _tl1520215260_) + _tl1590515963_) (if (gx#stx-null? - _tl1519315236_) + _tl1589615939_) (if (gx#stx-pair? - _tl1519015228_) - (let ((_e1520315263_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1519015228_))) - (let ((_hd1520415266_ (##car _e1520315263_)) - (_tl1520515268_ (##cdr _e1520315263_))) - (if (gx#stx-null? _tl1520515268_) - ((lambda (_L15271_ _L15272_ _L15273_) - (let ((_lambda-id15297_ + _tl1589315931_) + (let ((_e1590615966_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _tl1589315931_))) + (let ((_hd1590715969_ (##car _e1590615966_)) + (_tl1590815971_ (##cdr _e1590615966_))) + (if (gx#stx-null? _tl1590815971_) + ((lambda (_L15974_ _L15975_ _L15976_) + (let ((_lambda-id16000_ (make-symbol - (gx#stx-e _L15164_) + (gx#stx-e _L15867_) '"__" - (gx#stx-e _L15273_)))) - (let ((_lambda-id15299_ - (gx#core-quote-syntax - _lambda-id15297_ - (gx#stx-source _stx15029_)))) - (let ((_g18553_ - (gx#core-bind-runtime! - _lambda-id15299_))) - (let ((_new-case-lambda-expr15302_ + (gx#stx-e _L15976_)))) + (let ((_lambda-id16002_ + (gx#core-quote-syntax__1 + _lambda-id16000_ + (gx#stx-source _stx15732_)))) + (let ((_g19258_ + (gx#core-bind-runtime!__0 + _lambda-id16002_))) + (let ((_new-case-lambda-expr16005_ (gxc#apply-expression-subst - _L15271_ - _L15273_ - _lambda-id15299_))) + _L15974_ + _L15976_ + _lambda-id16002_))) (let () (begin (gxc#verbose '"lift opt-lambda dispatch " (gxc#generate-runtime-binding-id - _L15164_) + _L15867_) '" => " (gxc#generate-runtime-binding-id - _lambda-id15299_)) + _lambda-id16002_)) (gxc#xform-wrap-source (cons '%#begin (cons (gxc#xform-wrap-source (cons '%#define-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _lambda-id15299_ '()) - (cons (gxc#compile-e _L15272_) '()))) - _stx15029_) + (cons (cons _lambda-id16002_ '()) + (cons (gxc#compile-e _L15975_) '()))) + _stx15732_) (cons (gxc#lift-top-lambda-define-values% (gxc#xform-wrap-source (cons '%#define-values - (cons (cons _L15164_ '()) - (cons _new-case-lambda-expr15302_ '()))) - _stx15029_)) + (cons (cons _L15867_ '()) + (cons _new-case-lambda-expr16005_ '()))) + _stx15732_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx15029_)))))))) - _hd1520415266_ - _hd1520115258_ - _hd1519815250_) - (_g1518015210_ _g1518115213_)))) - (_g1518015210_ _g1518115213_)) - (_g1518015210_ _g1518115213_)) - (_g1518015210_ _g1518115213_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1518015210_ _g1518115213_)) - (_g1518015210_ _g1518115213_)))) - (_g1518015210_ _g1518115213_)))) - (_g1518015210_ _g1518115213_)))) - (_g1518015210_ _g1518115213_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1518015210_ - _g1518115213_)))) - (_g1518015210_ _g1518115213_))))) - (_g1517915305_ _L15163_))) - (_g1503415126_ _g1503615129_))) - _hd1506315158_ - _hd1506015150_) - (_g1503415126_ _g1503615129_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1503415126_ - _g1503615129_)) - (_g1503415126_ - _g1503615129_)))) - (_g1503415126_ _g1503615129_)))) - (_g1503415126_ _g1503615129_)))) - (_g1503415126_ _g1503615129_))))) - (let ((_g1503215433_ - (lambda (_g1503615311_) - (if (gx#stx-pair? _g1503615311_) - (let ((_e1503915313_ (gx#stx-e _g1503615311_))) - (let ((_hd1504015316_ (##car _e1503915313_)) - (_tl1504115318_ (##cdr _e1503915313_))) - (if (gx#stx-pair? _tl1504115318_) - (let ((_e1504215321_ - (gx#stx-e _tl1504115318_))) - (let ((_hd1504315324_ - (##car _e1504215321_)) - (_tl1504415326_ - (##cdr _e1504215321_))) - (if (gx#stx-pair? _hd1504315324_) - (let ((_e1504515329_ - (gx#stx-e _hd1504315324_))) - (let ((_hd1504615332_ - (##car _e1504515329_)) - (_tl1504715334_ - (##cdr _e1504515329_))) + _stx15732_)))))))) + _hd1590715969_ + _hd1590415961_ + _hd1590115953_) + (_g1588315913_ _g1588415916_)))) + (_g1588315913_ _g1588415916_)) + (_g1588315913_ _g1588415916_)) + (_g1588315913_ _g1588415916_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1588315913_ _g1588415916_)) + (_g1588315913_ _g1588415916_)))) + (_g1588315913_ _g1588415916_)))) + (_g1588315913_ _g1588415916_)))) + (_g1588315913_ _g1588415916_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1588315913_ + _g1588415916_)))) + (_g1588315913_ _g1588415916_))))) + (_g1588216008_ _L15866_))) + (_g1573715829_ _g1573915832_))) + _hd1576615861_ + _hd1576315853_) + (_g1573715829_ _g1573915832_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1573715829_ + _g1573915832_)) + (_g1573715829_ + _g1573915832_)))) + (_g1573715829_ _g1573915832_)))) + (_g1573715829_ _g1573915832_)))) + (_g1573715829_ _g1573915832_))))) + (let ((_g1573516136_ + (lambda (_g1573916014_) + (if (gx#stx-pair? _g1573916014_) + (let ((_e1574216016_ (gx#stx-e _g1573916014_))) + (let ((_hd1574316019_ (##car _e1574216016_)) + (_tl1574416021_ (##cdr _e1574216016_))) + (if (gx#stx-pair? _tl1574416021_) + (let ((_e1574516024_ + (gx#stx-e _tl1574416021_))) + (let ((_hd1574616027_ + (##car _e1574516024_)) + (_tl1574716029_ + (##cdr _e1574516024_))) + (if (gx#stx-pair? _hd1574616027_) + (let ((_e1574816032_ + (gx#stx-e _hd1574616027_))) + (let ((_hd1574916035_ + (##car _e1574816032_)) + (_tl1575016037_ + (##cdr _e1574816032_))) (if (gx#stx-null? - _tl1504715334_) + _tl1575016037_) (if (gx#stx-pair? - _tl1504415326_) - (let ((_e1504815337_ + _tl1574716029_) + (let ((_e1575116040_ (gx#stx-e - _tl1504415326_))) - (let ((_hd1504915340_ - (##car _e1504815337_)) - (_tl1505015342_ - (##cdr _e1504815337_))) + _tl1574716029_))) + (let ((_hd1575216043_ + (##car _e1575116040_)) + (_tl1575316045_ + (##cdr _e1575116040_))) (if (gx#stx-null? - _tl1505015342_) - ((lambda (_L15345_ + _tl1575316045_) + ((lambda (_L16048_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L15346_) - (if (if (gx#identifier? _L15346_) - (gxc#case-lambda-expr? _L15345_) + _L16049_) + (if (if (gx#identifier? _L16049_) + (gxc#case-lambda-expr? _L16048_) '#f) - (let ((_g1536315377_ - (lambda (_g1536415374_) + (let ((_g1606616080_ + (lambda (_g1606716077_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1536415374_)))) - (let ((_g1536215408_ - (lambda (_g1536415380_) - (if (gx#stx-pair? _g1536415380_) - (let ((_e1537015382_ - (gx#stx-e _g1536415380_))) - (let ((_hd1537115385_ - (##car _e1537015382_)) - (_tl1537215387_ - (##cdr _e1537015382_))) - ((lambda (_L15390_) - (let ((_g18554_ + _g1606716077_)))) + (let ((_g1606516111_ + (lambda (_g1606716083_) + (if (gx#stx-pair? _g1606716083_) + (let ((_e1607316085_ + (gx#stx-e _g1606716083_))) + (let ((_hd1607416088_ + (##car _e1607316085_)) + (_tl1607516090_ + (##cdr _e1607316085_))) + ((lambda (_L16093_) + (let ((_g19259_ (gxc#lift-case-lambda-clauses__0 - _stx15029_ - _L15346_ - _L15390_))) + _stx15732_ + _L16049_ + _L16093_))) (begin - (let ((_g18555_ + (let ((_g19260_ (values-count - _g18554_))) - (if (not (fx= _g18555_ + _g19259_))) + (if (not (fx= _g19260_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 3)) - (error "Context expects 3 values" _g18555_))) - (let ((_ids15400_ (values-ref _g18554_ 0)) - (_impls15401_ (values-ref _g18554_ 1)) - (_clauses15402_ (values-ref _g18554_ 2))) - (let ((_g18556_ (for-each gx#core-bind-runtime! _ids15400_))) - (let ((_defs15405_ - (map _case-lambda-clause-def15031_ - _ids15400_ - _impls15401_))) + (error "Context expects 3 values" _g19260_))) + (let ((_ids16103_ (values-ref _g19259_ 0)) + (_impls16104_ (values-ref _g19259_ 1)) + (_clauses16105_ (values-ref _g19259_ 2))) + (let ((_g19261_ (for-each gx#core-bind-runtime! _ids16103_))) + (let ((_defs16108_ + (map _case-lambda-clause-def15734_ + _ids16103_ + _impls16104_))) (let () (begin (gxc#verbose '"lift case-lambda clauses " - (gxc#generate-runtime-binding-id _L15346_) + (gxc#generate-runtime-binding-id _L16049_) '" => " - (map gxc#identifier-symbol _ids15400_)) + (map gxc#identifier-symbol _ids16103_)) (gxc#xform-wrap-source (cons '%#begin (foldr1 cons (cons (gxc#xform-wrap-source (cons '%#define-values - (cons (cons _L15346_ '()) + (cons (cons _L16049_ '()) (cons (gxc#xform-wrap-source ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '%#case-lambda _clauses15402_) - (gx#datum->syntax '#f 'case-lambda-expr)) + (cons '%#case-lambda _clauses16105_) + (gx#datum->syntax__0 '#f 'case-lambda-expr)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx15029_) + _stx15732_) '()) - _defs15405_)) - _stx15029_))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _tl1537215387_))) - (_g1536315377_ _g1536415380_))))) - (let ((_g1536115430_ - (lambda (_g1536415411_) - (if (gx#stx-pair? _g1536415411_) - (let ((_e1536615413_ + _defs16108_)) + _stx15732_))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _tl1607516090_))) + (_g1606616080_ _g1606716083_))))) + (let ((_g1606416133_ + (lambda (_g1606716114_) + (if (gx#stx-pair? _g1606716114_) + (let ((_e1606916116_ (gx#stx-e - _g1536415411_))) - (let ((_hd1536715416_ - (##car _e1536615413_)) - (_tl1536815418_ - (##cdr _e1536615413_))) - ((lambda (_L15421_) + _g1606716114_))) + (let ((_hd1607016119_ + (##car _e1606916116_)) + (_tl1607116121_ + (##cdr _e1606916116_))) + ((lambda (_L16124_) (if (andmap1 gxc#dispatch-lambda-form? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L15421_) - _stx15029_ - (_g1536215408_ _g1536415411_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _tl1536815418_))) - (_g1536215408_ - _g1536415411_))))) - (_g1536115430_ _L15345_)))) - (_g1503315308_ _g1503615311_))) - _hd1504915340_ - _hd1504615332_) - (_g1503315308_ _g1503615311_)))) - (_g1503315308_ _g1503615311_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1503315308_ - _g1503615311_)))) - (_g1503315308_ _g1503615311_)))) - (_g1503315308_ _g1503615311_)))) - (_g1503315308_ _g1503615311_))))) - (_g1503215433_ _stx15029_)))))))) + _L16124_) + _stx15732_ + (_g1606516111_ _g1606716114_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _tl1607116121_))) + (_g1606516111_ + _g1606716114_))))) + (_g1606416133_ _L16048_)))) + (_g1573616011_ _g1573916014_))) + _hd1575216043_ + _hd1574916035_) + (_g1573616011_ _g1573916014_)))) + (_g1573616011_ _g1573916014_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1573616011_ + _g1573916014_)))) + (_g1573616011_ _g1573916014_)))) + (_g1573616011_ _g1573916014_)))) + (_g1573616011_ _g1573916014_))))) + (_g1573516136_ _stx15732_)))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_stx14452_) - (let ((_bind-e__opt-lambda15011__1850518506_ - (lambda (_id15013_ _expr15014_ _compile?15015_) - (cons (cons _id15013_ '()) - (cons (if _compile?15015_ - (gxc#compile-e _expr15014_) - _expr15014_) + (lambda (_stx15155_) + (let ((_bind-e__opt-lambda15714__1920819209_ + (lambda (_id15716_ _expr15717_ _compile?15718_) + (cons (cons _id15716_ '()) + (cons (if _compile?15718_ + (gxc#compile-e _expr15717_) + _expr15717_) '()))))) - (let ((_bind-e__0__1850718508_ - (lambda (_id15020_ _expr15021_) - (let ((_compile?15023_ '#t)) - (_bind-e__opt-lambda15011__1850518506_ - _id15020_ - _expr15021_ - _compile?15023_))))) - (let ((_bind-e14454_ - (lambda _g18566_ - (let ((_g18565_ (length _g18566_))) - (cond ((fx= _g18565_ 2) - (apply _bind-e__0__1850718508_ _g18566_)) - ((fx= _g18565_ 3) - (apply _bind-e__opt-lambda15011__1850518506_ - _g18566_)) + (let ((_bind-e__0__1921019211_ + (lambda (_id15723_ _expr15724_) + (let ((_compile?15726_ '#t)) + (_bind-e__opt-lambda15714__1920819209_ + _id15723_ + _expr15724_ + _compile?15726_))))) + (let ((_bind-e15157_ + (lambda _g19271_ + (let ((_g19270_ (length _g19271_))) + (cond ((fx= _g19270_ 2) + (apply _bind-e__0__1921019211_ _g19271_)) + ((fx= _g19270_ 3) + (apply _bind-e__opt-lambda15714__1920819209_ + _g19271_)) (else (error "No clause matching arguments" - _g18566_))))))) - (let ((_compile-bindings14455_ - (lambda (_rest14597_) - ((letrec ((_lp14599_ - (lambda (_rest14601_ - _lift114602_ - _lift214603_ - _bind14604_) - (let ((_rest1460514613_ _rest14601_)) - (let ((_E1460814617_ + _g19271_))))))) + (let ((_compile-bindings15158_ + (lambda (_rest15300_) + ((letrec ((_lp15302_ + (lambda (_rest15304_ + _lift115305_ + _lift215306_ + _bind15307_) + (let ((_rest1530815316_ _rest15304_)) + (let ((_E1531115320_ (lambda () (error '"No clause matching" - _rest1460514613_)))) - (let ((_else1460714621_ + _rest1530815316_)))) + (let ((_else1531015324_ (lambda () - (values (reverse _lift114602_) - (reverse _lift214603_) - (reverse _bind14604_))))) - (let ((_K1460915000_ - (lambda (_rest14624_ _hd14625_) - (let ((_g1462914665_ - (lambda (_g1463014662_) + (values (reverse _lift115305_) + (reverse _lift215306_) + (reverse _bind15307_))))) + (let ((_K1531215703_ + (lambda (_rest15327_ _hd15328_) + (let ((_g1533215368_ + (lambda (_g1533315365_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1463014662_)))) - (let ((_g1462814706_ - (lambda (_g1463014668_) + _g1533315365_)))) + (let ((_g1533115409_ + (lambda (_g1533315371_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1463014668_) - (let ((_e1465514670_ (gx#stx-e _g1463014668_))) - (let ((_hd1465614673_ (##car _e1465514670_)) - (_tl1465714675_ (##cdr _e1465514670_))) - (if (gx#stx-pair? _tl1465714675_) - (let ((_e1465814678_ - (gx#stx-e _tl1465714675_))) - (let ((_hd1465914681_ (##car _e1465814678_)) - (_tl1466014683_ (##cdr _e1465814678_))) - (if (gx#stx-null? _tl1466014683_) - ((lambda (_L14686_ _L14687_) - (_lp14599_ - _rest14624_ - _lift114602_ - _lift214603_ - (cons (cons _L14687_ + _g1533315371_) + (let ((_e1535815373_ (gx#stx-e _g1533315371_))) + (let ((_hd1535915376_ (##car _e1535815373_)) + (_tl1536015378_ (##cdr _e1535815373_))) + (if (gx#stx-pair? _tl1536015378_) + (let ((_e1536115381_ + (gx#stx-e _tl1536015378_))) + (let ((_hd1536215384_ (##car _e1536115381_)) + (_tl1536315386_ (##cdr _e1536115381_))) + (if (gx#stx-null? _tl1536315386_) + ((lambda (_L15389_ _L15390_) + (_lp15302_ + _rest15327_ + _lift115305_ + _lift215306_ + (cons (cons _L15390_ (cons (gxc#compile-e - _L14686_) + _L15389_) '())) - _bind14604_))) - _hd1465914681_ - _hd1465614673_) - (_g1462914665_ _g1463014668_)))) - (_g1462914665_ _g1463014668_)))) - (_g1462914665_ _g1463014668_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g1462714878_ - (lambda (_g1463014709_) + _bind15307_))) + _hd1536215384_ + _hd1535915376_) + (_g1533215368_ _g1533315371_)))) + (_g1533215368_ _g1533315371_)))) + (_g1533215368_ _g1533315371_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_g1533015581_ + (lambda (_g1533315412_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1463014709_) - (let ((_e1464414711_ (gx#stx-e _g1463014709_))) - (let ((_hd1464514714_ (##car _e1464414711_)) - (_tl1464614716_ (##cdr _e1464414711_))) - (if (gx#stx-pair? _hd1464514714_) - (let ((_e1464714719_ - (gx#stx-e _hd1464514714_))) - (let ((_hd1464814722_ - (##car _e1464714719_)) - (_tl1464914724_ - (##cdr _e1464714719_))) - (if (gx#stx-null? _tl1464914724_) - (if (gx#stx-pair? _tl1464614716_) - (let ((_e1465014727_ + _g1533315412_) + (let ((_e1534715414_ (gx#stx-e _g1533315412_))) + (let ((_hd1534815417_ (##car _e1534715414_)) + (_tl1534915419_ (##cdr _e1534715414_))) + (if (gx#stx-pair? _hd1534815417_) + (let ((_e1535015422_ + (gx#stx-e _hd1534815417_))) + (let ((_hd1535115425_ + (##car _e1535015422_)) + (_tl1535215427_ + (##cdr _e1535015422_))) + (if (gx#stx-null? _tl1535215427_) + (if (gx#stx-pair? _tl1534915419_) + (let ((_e1535315430_ (gx#stx-e - _tl1464614716_))) - (let ((_hd1465114730_ - (##car _e1465014727_)) - (_tl1465214732_ - (##cdr _e1465014727_))) + _tl1534915419_))) + (let ((_hd1535415433_ + (##car _e1535315430_)) + (_tl1535515435_ + (##cdr _e1535315430_))) (if (gx#stx-null? - _tl1465214732_) - ((lambda (_L14735_ - _L14736_) + _tl1535515435_) + ((lambda (_L15438_ + _L15439_) (if (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L14736_) - (gxc#opt-lambda-expr? _L14735_) + _L15439_) + (gxc#opt-lambda-expr? _L15438_) '#f) - (let ((_g1475014780_ - (lambda (_g1475114777_) + (let ((_g1545315483_ + (lambda (_g1545415480_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1475114777_)))) - (let ((_g1474914875_ - (lambda (_g1475114783_) - (if (gx#stx-pair? _g1475114783_) - (let ((_e1475514785_ - (gx#stx-e _g1475114783_))) - (let ((_hd1475614788_ - (##car _e1475514785_)) - (_tl1475714790_ - (##cdr _e1475514785_))) - (if (gx#stx-pair? _tl1475714790_) - (let ((_e1475814793_ - (gx#stx-e _tl1475714790_))) - (let ((_hd1475914796_ - (##car _e1475814793_)) - (_tl1476014798_ - (##cdr _e1475814793_))) + _g1545415480_)))) + (let ((_g1545215578_ + (lambda (_g1545415486_) + (if (gx#stx-pair? _g1545415486_) + (let ((_e1545815488_ + (gx#stx-e _g1545415486_))) + (let ((_hd1545915491_ + (##car _e1545815488_)) + (_tl1546015493_ + (##cdr _e1545815488_))) + (if (gx#stx-pair? _tl1546015493_) + (let ((_e1546115496_ + (gx#stx-e _tl1546015493_))) + (let ((_hd1546215499_ + (##car _e1546115496_)) + (_tl1546315501_ + (##cdr _e1546115496_))) (if (gx#stx-pair? - _hd1475914796_) - (let ((_e1476114801_ + _hd1546215499_) + (let ((_e1546415504_ (gx#stx-e - _hd1475914796_))) - (let ((_hd1476214804_ - (##car _e1476114801_)) - (_tl1476314806_ - (##cdr _e1476114801_))) + _hd1546215499_))) + (let ((_hd1546515507_ + (##car _e1546415504_)) + (_tl1546615509_ + (##cdr _e1546415504_))) (if (gx#stx-pair? - _hd1476214804_) - (let ((_e1476414809_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1476214804_))) - (let ((_hd1476514812_ (##car _e1476414809_)) - (_tl1476614814_ (##cdr _e1476414809_))) - (if (gx#stx-pair? _hd1476514812_) - (let ((_e1476714817_ (gx#stx-e _hd1476514812_))) - (let ((_hd1476814820_ (##car _e1476714817_)) - (_tl1476914822_ (##cdr _e1476714817_))) - (if (gx#stx-null? _tl1476914822_) - (if (gx#stx-pair? _tl1476614814_) - (let ((_e1477014825_ - (gx#stx-e _tl1476614814_))) - (let ((_hd1477114828_ - (##car _e1477014825_)) - (_tl1477214830_ - (##cdr _e1477014825_))) - (if (gx#stx-null? _tl1477214830_) + _hd1546515507_) + (let ((_e1546715512_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _hd1546515507_))) + (let ((_hd1546815515_ (##car _e1546715512_)) + (_tl1546915517_ (##cdr _e1546715512_))) + (if (gx#stx-pair? _hd1546815515_) + (let ((_e1547015520_ (gx#stx-e _hd1546815515_))) + (let ((_hd1547115523_ (##car _e1547015520_)) + (_tl1547215525_ (##cdr _e1547015520_))) + (if (gx#stx-null? _tl1547215525_) + (if (gx#stx-pair? _tl1546915517_) + (let ((_e1547315528_ + (gx#stx-e _tl1546915517_))) + (let ((_hd1547415531_ + (##car _e1547315528_)) + (_tl1547515533_ + (##cdr _e1547315528_))) + (if (gx#stx-null? _tl1547515533_) (if (gx#stx-null? - _tl1476314806_) + _tl1546615509_) (if (gx#stx-pair? - _tl1476014798_) - (let ((_e1477314833_ + _tl1546315501_) + (let ((_e1547615536_ (gx#stx-e - _tl1476014798_))) - (let ((_hd1477414836_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e1477314833_)) - (_tl1477514838_ (##cdr _e1477314833_))) - (if (gx#stx-null? _tl1477514838_) - ((lambda (_L14841_ _L14842_ _L14843_) - (let ((_lambda-id14867_ + _tl1546315501_))) + (let ((_hd1547715539_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (##car _e1547615536_)) + (_tl1547815541_ (##cdr _e1547615536_))) + (if (gx#stx-null? _tl1547815541_) + ((lambda (_L15544_ _L15545_ _L15546_) + (let ((_lambda-id15570_ (make-symbol - (gx#stx-e _L14736_) + (gx#stx-e _L15439_) '"__" - (gx#stx-e _L14843_) + (gx#stx-e _L15546_) (gensym '__)))) - (let ((_lambda-id14869_ - (gx#core-quote-syntax - _lambda-id14867_ - (gx#stx-source _stx14452_)))) - (let ((_g18561_ - (gx#core-bind-runtime! - _lambda-id14869_))) - (let ((_new-case-lambda-expr14872_ + (let ((_lambda-id15572_ + (gx#core-quote-syntax__1 + _lambda-id15570_ + (gx#stx-source _stx15155_)))) + (let ((_g19266_ + (gx#core-bind-runtime!__0 + _lambda-id15572_))) + (let ((_new-case-lambda-expr15575_ (gxc#apply-expression-subst - _L14841_ - _L14843_ - _lambda-id14869_))) + _L15544_ + _L15546_ + _lambda-id15572_))) (let () (begin (gxc#verbose '"lift opt-lambda dispatch " (gxc#generate-runtime-binding-id - _L14736_) + _L15439_) '" => " (gxc#generate-runtime-binding-id - _lambda-id14869_)) - (_lp14599_ - (cons (_bind-e__opt-lambda15011__1850518506_ - _L14736_ - _new-case-lambda-expr14872_ + _lambda-id15572_)) + (_lp15302_ + (cons (_bind-e__opt-lambda15714__1920819209_ + _L15439_ + _new-case-lambda-expr15575_ '#f) - _rest14624_) - (cons (_bind-e__0__1850718508_ - _lambda-id14869_ - _L14842_) - _lift114602_) - _lift214603_ - _bind14604_)))))))) - _hd1477414836_ - _hd1477114828_ - _hd1476814820_) - (_g1475014780_ _g1475114783_)))) - (_g1475014780_ _g1475114783_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1475014780_ - _g1475114783_)) - (_g1475014780_ - _g1475114783_)))) - (_g1475014780_ _g1475114783_)) - (_g1475014780_ _g1475114783_)))) - (_g1475014780_ _g1475114783_)))) - (_g1475014780_ _g1475114783_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1475014780_ - _g1475114783_)))) - (_g1475014780_ _g1475114783_)))) - (_g1475014780_ _g1475114783_))))) - (_g1474914875_ _L14735_))) - (_g1462814706_ _g1463014709_))) - _hd1465114730_ - _hd1464814722_) - (_g1462814706_ _g1463014709_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1462814706_ _g1463014709_)) - (_g1462814706_ _g1463014709_)))) - (_g1462814706_ _g1463014709_)))) - (_g1462814706_ _g1463014709_))))) - (let ((_g1462614997_ - (lambda (_g1463014881_) - (if (gx#stx-pair? _g1463014881_) - (let ((_e1463314883_ (gx#stx-e _g1463014881_))) - (let ((_hd1463414886_ (##car _e1463314883_)) - (_tl1463514888_ (##cdr _e1463314883_))) - (if (gx#stx-pair? _hd1463414886_) - (let ((_e1463614891_ - (gx#stx-e _hd1463414886_))) - (let ((_hd1463714894_ - (##car _e1463614891_)) - (_tl1463814896_ - (##cdr _e1463614891_))) - (if (gx#stx-null? _tl1463814896_) - (if (gx#stx-pair? _tl1463514888_) - (let ((_e1463914899_ + _rest15327_) + (cons (_bind-e__0__1921019211_ + _lambda-id15572_ + _L15545_) + _lift115305_) + _lift215306_ + _bind15307_)))))))) + _hd1547715539_ + _hd1547415531_ + _hd1547115523_) + (_g1545315483_ _g1545415486_)))) + (_g1545315483_ _g1545415486_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1545315483_ + _g1545415486_)) + (_g1545315483_ + _g1545415486_)))) + (_g1545315483_ _g1545415486_)) + (_g1545315483_ _g1545415486_)))) + (_g1545315483_ _g1545415486_)))) + (_g1545315483_ _g1545415486_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1545315483_ + _g1545415486_)))) + (_g1545315483_ _g1545415486_)))) + (_g1545315483_ _g1545415486_))))) + (_g1545215578_ _L15438_))) + (_g1533115409_ _g1533315412_))) + _hd1535415433_ + _hd1535115425_) + (_g1533115409_ _g1533315412_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1533115409_ _g1533315412_)) + (_g1533115409_ _g1533315412_)))) + (_g1533115409_ _g1533315412_)))) + (_g1533115409_ _g1533315412_))))) + (let ((_g1532915700_ + (lambda (_g1533315584_) + (if (gx#stx-pair? _g1533315584_) + (let ((_e1533615586_ (gx#stx-e _g1533315584_))) + (let ((_hd1533715589_ (##car _e1533615586_)) + (_tl1533815591_ (##cdr _e1533615586_))) + (if (gx#stx-pair? _hd1533715589_) + (let ((_e1533915594_ + (gx#stx-e _hd1533715589_))) + (let ((_hd1534015597_ + (##car _e1533915594_)) + (_tl1534115599_ + (##cdr _e1533915594_))) + (if (gx#stx-null? _tl1534115599_) + (if (gx#stx-pair? _tl1533815591_) + (let ((_e1534215602_ (gx#stx-e - _tl1463514888_))) - (let ((_hd1464014902_ - (##car _e1463914899_)) - (_tl1464114904_ - (##cdr _e1463914899_))) + _tl1533815591_))) + (let ((_hd1534315605_ + (##car _e1534215602_)) + (_tl1534415607_ + (##cdr _e1534215602_))) (if (gx#stx-null? - _tl1464114904_) - ((lambda (_L14907_ + _tl1534415607_) + ((lambda (_L15610_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L14908_) - (if (if (gx#identifier? _L14908_) - (gxc#case-lambda-expr? _L14907_) + _L15611_) + (if (if (gx#identifier? _L15611_) + (gxc#case-lambda-expr? _L15610_) '#f) - (let ((_g1492314937_ - (lambda (_g1492414934_) + (let ((_g1562615640_ + (lambda (_g1562715637_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1492414934_)))) - (let ((_g1492214972_ - (lambda (_g1492414940_) - (if (gx#stx-pair? _g1492414940_) - (let ((_e1493014942_ - (gx#stx-e _g1492414940_))) - (let ((_hd1493114945_ - (##car _e1493014942_)) - (_tl1493214947_ - (##cdr _e1493014942_))) - ((lambda (_L14950_) - (let ((_g18562_ - (gxc#lift-case-lambda-clauses__opt-lambda15438 - _stx14452_ - _L14908_ - _L14950_ + _g1562715637_)))) + (let ((_g1562515675_ + (lambda (_g1562715643_) + (if (gx#stx-pair? _g1562715643_) + (let ((_e1563315645_ + (gx#stx-e _g1562715643_))) + (let ((_hd1563415648_ + (##car _e1563315645_)) + (_tl1563515650_ + (##cdr _e1563315645_))) + ((lambda (_L15653_) + (let ((_g19267_ + (gxc#lift-case-lambda-clauses__opt-lambda16141 + _stx15155_ + _L15611_ + _L15653_ '#t))) (begin - (let ((_g18563_ + (let ((_g19268_ (values-count - _g18562_))) - (if (not (fx= _g18563_ 3)) + _g19267_))) + (if (not (fx= _g19268_ 3)) (error "Context expects 3 values" - _g18563_))) - (let ((_ids14960_ + _g19268_))) + (let ((_ids15663_ (values-ref - _g18562_ + _g19267_ 0)) - (_impls14961_ + (_impls15664_ (values-ref - _g18562_ + _g19267_ 1)) - (_clauses14962_ + (_clauses15665_ (values-ref - _g18562_ + _g19267_ 2))) - (let ((_g18564_ + (let ((_g19269_ (for-each gx#core-bind-runtime! - _ids14960_))) - (let ((_xbind14965_ - (map _bind-e14454_ + _ids15663_))) + (let ((_xbind15668_ + (map _bind-e15157_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _ids14960_ - _impls14961_))) - (let ((_expr*14967_ + _ids15663_ + _impls15664_))) + (let ((_expr*15670_ (gxc#xform-wrap-source - (cons '%#case-lambda _clauses14962_) - (gx#datum->syntax '#f 'case-lambda-expr)))) - (let ((_bind*14969_ - (_bind-e__opt-lambda15011__1850518506_ - _L14908_ - _expr*14967_ + (cons '%#case-lambda _clauses15665_) + (gx#datum->syntax__0 '#f 'case-lambda-expr)))) + (let ((_bind*15672_ + (_bind-e__opt-lambda15714__1920819209_ + _L15611_ + _expr*15670_ '#f))) (let () (begin (gxc#verbose '"lift case-lambda clauses " - (gxc#generate-runtime-binding-id _L14908_) + (gxc#generate-runtime-binding-id _L15611_) '" => " - (map gxc#identifier-symbol _ids14960_)) - (_lp14599_ - _rest14624_ - _lift114602_ - (foldl1 cons _lift214603_ _xbind14965_) - (cons _bind*14969_ _bind14604_)))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _tl1493214947_))) - (_g1492314937_ _g1492414940_))))) - (let ((_g1492114994_ - (lambda (_g1492414975_) - (if (gx#stx-pair? _g1492414975_) - (let ((_e1492614977_ - (gx#stx-e _g1492414975_))) - (let ((_hd1492714980_ - (##car _e1492614977_)) - (_tl1492814982_ - (##cdr _e1492614977_))) - ((lambda (_L14985_) + (map gxc#identifier-symbol _ids15663_)) + (_lp15302_ + _rest15327_ + _lift115305_ + (foldl1 cons _lift215306_ _xbind15668_) + (cons _bind*15672_ _bind15307_)))))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _tl1563515650_))) + (_g1562615640_ _g1562715643_))))) + (let ((_g1562415697_ + (lambda (_g1562715678_) + (if (gx#stx-pair? _g1562715678_) + (let ((_e1562915680_ + (gx#stx-e _g1562715678_))) + (let ((_hd1563015683_ + (##car _e1562915680_)) + (_tl1563115685_ + (##cdr _e1562915680_))) + ((lambda (_L15688_) (if (andmap1 gxc#dispatch-lambda-form? - _L14985_) - (_lp14599_ - _rest14624_ - _lift114602_ - _lift214603_ - (cons (_bind-e__opt-lambda15011__1850518506_ - _L14908_ - _L14907_ + _L15688_) + (_lp15302_ + _rest15327_ + _lift115305_ + _lift215306_ + (cons (_bind-e__opt-lambda15714__1920819209_ + _L15611_ + _L15610_ '#f) - _bind14604_)) - (_g1492214972_ - _g1492414975_))) - _tl1492814982_))) - (_g1492214972_ _g1492414975_))))) - (_g1492114994_ _L14907_)))) - (_g1462714878_ _g1463014881_))) - _hd1464014902_ - _hd1463714894_) - (_g1462714878_ _g1463014881_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1462714878_ _g1463014881_)) - (_g1462714878_ _g1463014881_)))) - (_g1462714878_ _g1463014881_)))) - (_g1462714878_ _g1463014881_))))) - (_g1462614997_ _hd14625_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _rest1460514613_) - (let ((_hd1461015003_ - (##car _rest1460514613_)) - (_tl1461115005_ - (##cdr _rest1460514613_))) - (let ((_hd15008_ - _hd1461015003_)) - (let ((_rest15010_ - _tl1461115005_)) - (_K1460915000_ - _rest15010_ - _hd15008_)))) - (_else1460714621_))))))))) - _lp14599_) - _rest14597_ + _bind15307_)) + (_g1562515675_ + _g1562715678_))) + _tl1563115685_))) + (_g1562515675_ _g1562715678_))))) + (_g1562415697_ _L15610_)))) + (_g1533015581_ _g1533315584_))) + _hd1534315605_ + _hd1534015597_) + (_g1533015581_ _g1533315584_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1533015581_ _g1533315584_)) + (_g1533015581_ _g1533315584_)))) + (_g1533015581_ _g1533315584_)))) + (_g1533015581_ _g1533315584_))))) + (_g1532915700_ _hd15328_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (##pair? _rest1530815316_) + (let ((_hd1531315706_ + (##car _rest1530815316_)) + (_tl1531415708_ + (##cdr _rest1530815316_))) + (let ((_hd15711_ + _hd1531315706_)) + (let ((_rest15713_ + _tl1531415708_)) + (_K1531215703_ + _rest15713_ + _hd15711_)))) + (_else1531015324_))))))))) + _lp15302_) + _rest15300_ '() '() '())))) - (let ((_g1445814484_ - (lambda (_g1445914481_) + (let ((_g1516115187_ + (lambda (_g1516215184_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1445914481_)))) - (let ((_g1445714491_ - (lambda (_g1445914487_) - ((lambda () (gxc#xform-let-values% _stx14452_)))))) - (let ((_g1445614594_ - (lambda (_g1445914494_) - (if (gx#stx-pair? _g1445914494_) - (let ((_e1446214496_ (gx#stx-e _g1445914494_))) - (let ((_hd1446314499_ (##car _e1446214496_)) - (_tl1446414501_ (##cdr _e1446214496_))) - (if (gx#stx-pair? _tl1446414501_) - (let ((_e1446514504_ - (gx#stx-e _tl1446414501_))) - (let ((_hd1446614507_ - (##car _e1446514504_)) - (_tl1446714509_ - (##cdr _e1446514504_))) + _g1516215184_)))) + (let ((_g1516015194_ + (lambda (_g1516215190_) + ((lambda () (gxc#xform-let-values% _stx15155_)))))) + (let ((_g1515915297_ + (lambda (_g1516215197_) + (if (gx#stx-pair? _g1516215197_) + (let ((_e1516515199_ (gx#stx-e _g1516215197_))) + (let ((_hd1516615202_ (##car _e1516515199_)) + (_tl1516715204_ (##cdr _e1516515199_))) + (if (gx#stx-pair? _tl1516715204_) + (let ((_e1516815207_ + (gx#stx-e _tl1516715204_))) + (let ((_hd1516915210_ + (##car _e1516815207_)) + (_tl1517015212_ + (##cdr _e1516815207_))) (if (gx#stx-pair/null? - _hd1446614507_) + _hd1516915210_) (if (fx>= (gx#stx-length - _hd1446614507_) + _hd1516915210_) '0) - (let ((_g18557_ + (let ((_g19262_ (gx#syntax-split-splice - _hd1446614507_ + _hd1516915210_ '0))) (begin - (let ((_g18558_ + (let ((_g19263_ (values-count - _g18557_))) - (if (not (fx= _g18558_ + _g19262_))) + (if (not (fx= _g19263_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2)) - (error "Context expects 2 values" _g18558_))) - (let ((_target1446814512_ (values-ref _g18557_ 0)) - (_tl1447014514_ (values-ref _g18557_ 1))) - (if (gx#stx-null? _tl1447014514_) - (letrec ((_loop1447114517_ - (lambda (_hd1446914520_ _bind1447514522_) - (if (gx#stx-pair? _hd1446914520_) - (let ((_e1447214525_ - (gx#stx-e _hd1446914520_))) - (let ((_lp-hd1447314528_ - (##car _e1447214525_)) - (_lp-tl1447414530_ - (##cdr _e1447214525_))) - (_loop1447114517_ - _lp-tl1447414530_ - (cons _lp-hd1447314528_ - _bind1447514522_)))) - (let ((_bind1447614533_ - (reverse _bind1447514522_))) - (if (gx#stx-pair? _tl1446714509_) - (let ((_e1447714536_ - (gx#stx-e _tl1446714509_))) - (let ((_hd1447814539_ - (##car _e1447714536_)) - (_tl1447914541_ - (##cdr _e1447714536_))) + (error "Context expects 2 values" _g19263_))) + (let ((_target1517115215_ (values-ref _g19262_ 0)) + (_tl1517315217_ (values-ref _g19262_ 1))) + (if (gx#stx-null? _tl1517315217_) + (letrec ((_loop1517415220_ + (lambda (_hd1517215223_ _bind1517815225_) + (if (gx#stx-pair? _hd1517215223_) + (let ((_e1517515228_ + (gx#stx-e _hd1517215223_))) + (let ((_lp-hd1517615231_ + (##car _e1517515228_)) + (_lp-tl1517715233_ + (##cdr _e1517515228_))) + (_loop1517415220_ + _lp-tl1517715233_ + (cons _lp-hd1517615231_ + _bind1517815225_)))) + (let ((_bind1517915236_ + (reverse _bind1517815225_))) + (if (gx#stx-pair? _tl1517015212_) + (let ((_e1518015239_ + (gx#stx-e _tl1517015212_))) + (let ((_hd1518115242_ + (##car _e1518015239_)) + (_tl1518215244_ + (##cdr _e1518015239_))) (if (gx#stx-null? - _tl1447914541_) - ((lambda (_L14544_ _L14545_) + _tl1518215244_) + ((lambda (_L15247_ _L15248_) (if (ormap1 gxc#lift-top-lambda-binding? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (begin '#!void - (foldr1 (lambda (_g1456514568_ _g1456614570_) - (cons _g1456514568_ _g1456614570_)) + (foldr1 (lambda (_g1526815271_ _g1526915273_) + (cons _g1526815271_ _g1526915273_)) '() - _L14545_))) + _L15248_))) (call-with-parameters (lambda () - (let ((_g18559_ - (_compile-bindings14455_ + (let ((_g19264_ + (_compile-bindings15158_ (begin '#!void - (foldr1 (lambda (_g1457314576_ _g1457414578_) - (cons _g1457314576_ _g1457414578_)) + (foldr1 (lambda (_g1527615279_ _g1527715281_) + (cons _g1527615279_ _g1527715281_)) '() - _L14545_))))) + _L15248_))))) (begin - (let ((_g18560_ (values-count _g18559_))) - (if (not (fx= _g18560_ 3)) - (error "Context expects 3 values" _g18560_))) - (let ((_lift114581_ (values-ref _g18559_ 0)) - (_lift214582_ (values-ref _g18559_ 1)) - (_hd14583_ (values-ref _g18559_ 2))) - (let ((_body14585_ (gxc#compile-e _L14544_))) - (let ((_expr14587_ + (let ((_g19265_ (values-count _g19264_))) + (if (not (fx= _g19265_ 3)) + (error "Context expects 3 values" _g19265_))) + (let ((_lift115284_ (values-ref _g19264_ 0)) + (_lift215285_ (values-ref _g19264_ 1)) + (_hd15286_ (values-ref _g19264_ 2))) + (let ((_body15288_ (gxc#compile-e _L15247_))) + (let ((_expr15290_ (gxc#xform-wrap-source (cons '%#let-values - (cons _hd14583_ - (cons _body14585_ '()))) - _stx14452_))) - (let ((_expr14589_ - (if (null? _lift214582_) - _expr14587_ + (cons _hd15286_ + (cons _body15288_ '()))) + _stx15155_))) + (let ((_expr15292_ + (if (null? _lift215285_) + _expr15290_ (gxc#xform-wrap-source (cons '%#let-values - (cons _lift214582_ - (cons _expr14587_ '()))) - _stx14452_)))) - (let ((_expr14591_ - (if (null? _lift114581_) - _expr14589_ + (cons _lift215285_ + (cons _expr15290_ '()))) + _stx15155_)))) + (let ((_expr15294_ + (if (null? _lift115284_) + _expr15292_ (gxc#xform-wrap-source (cons '%#let-values - (cons _lift114581_ - (cons _expr14589_ + (cons _lift115284_ + (cons _expr15292_ '()))) - _stx14452_)))) - (let () _expr14591_))))))))) + _stx15155_)))) + (let () _expr15294_))))))))) gx#current-expander-context - (gx#make-local-context)) - (_g1445714491_ _g1445914494_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd1447814539_ - _bind1447614533_) - (_g1445714491_ - _g1445914494_)))) - (_g1445714491_ _g1445914494_))))))) - (_loop1447114517_ _target1446814512_ '())) - (_g1445714491_ _g1445914494_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1445714491_ - _g1445914494_)) - (_g1445714491_ _g1445914494_)))) - (_g1445714491_ _g1445914494_)))) - (_g1445714491_ _g1445914494_))))) - (_g1445614594_ _stx14452_)))))))))) + (let ((__obj19218 (make-object gx#local-context::t '5))) + (begin + (gx#local-context:::init!__0 __obj19218) + __obj19218))) + (_g1516015194_ _g1516215197_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd1518115242_ + _bind1517915236_) + (_g1516015194_ + _g1516215197_)))) + (_g1516015194_ _g1516215197_))))))) + (_loop1517415220_ _target1517115215_ '())) + (_g1516015194_ _g1516215197_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1516015194_ + _g1516215197_)) + (_g1516015194_ _g1516215197_)))) + (_g1516015194_ _g1516215197_)))) + (_g1516015194_ _g1516215197_))))) + (_g1515915297_ _stx15155_)))))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_stx13884_) - (let ((_bind-e__opt-lambda14434__1851018511_ - (lambda (_id14436_ _expr14437_ _compile?14438_) - (cons (cons _id14436_ '()) - (cons (if _compile?14438_ - (gxc#compile-e _expr14437_) - _expr14437_) + (lambda (_stx14587_) + (let ((_bind-e__opt-lambda15137__1921319214_ + (lambda (_id15139_ _expr15140_ _compile?15141_) + (cons (cons _id15139_ '()) + (cons (if _compile?15141_ + (gxc#compile-e _expr15140_) + _expr15140_) '()))))) - (let ((_bind-e__0__1851218513_ - (lambda (_id14443_ _expr14444_) - (let ((_compile?14446_ '#t)) - (_bind-e__opt-lambda14434__1851018511_ - _id14443_ - _expr14444_ - _compile?14446_))))) - (let ((_bind-e13886_ - (lambda _g18574_ - (let ((_g18573_ (length _g18574_))) - (cond ((fx= _g18573_ 2) - (apply _bind-e__0__1851218513_ _g18574_)) - ((fx= _g18573_ 3) - (apply _bind-e__opt-lambda14434__1851018511_ - _g18574_)) + (let ((_bind-e__0__1921519216_ + (lambda (_id15146_ _expr15147_) + (let ((_compile?15149_ '#t)) + (_bind-e__opt-lambda15137__1921319214_ + _id15146_ + _expr15147_ + _compile?15149_))))) + (let ((_bind-e14589_ + (lambda _g19279_ + (let ((_g19278_ (length _g19279_))) + (cond ((fx= _g19278_ 2) + (apply _bind-e__0__1921519216_ _g19279_)) + ((fx= _g19278_ 3) + (apply _bind-e__opt-lambda15137__1921319214_ + _g19279_)) (else (error "No clause matching arguments" - _g18574_))))))) - (let ((_compile-bindings13887_ - (lambda (_rest14022_) - ((letrec ((_lp14024_ - (lambda (_rest14026_ _bind14027_) - (let ((_rest1402814036_ _rest14026_)) - (let ((_E1403114040_ + _g19279_))))))) + (let ((_compile-bindings14590_ + (lambda (_rest14725_) + ((letrec ((_lp14727_ + (lambda (_rest14729_ _bind14730_) + (let ((_rest1473114739_ _rest14729_)) + (let ((_E1473414743_ (lambda () (error '"No clause matching" - _rest1402814036_)))) - (let ((_else1403014044_ + _rest1473114739_)))) + (let ((_else1473314747_ (lambda () - (reverse _bind14027_)))) - (let ((_K1403214423_ - (lambda (_rest14047_ _hd14048_) - (let ((_g1405214088_ - (lambda (_g1405314085_) + (reverse _bind14730_)))) + (let ((_K1473515126_ + (lambda (_rest14750_ _hd14751_) + (let ((_g1475514791_ + (lambda (_g1475614788_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1405314085_)))) - (let ((_g1405114129_ - (lambda (_g1405314091_) + _g1475614788_)))) + (let ((_g1475414832_ + (lambda (_g1475614794_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1405314091_) - (let ((_e1407814093_ (gx#stx-e _g1405314091_))) - (let ((_hd1407914096_ (##car _e1407814093_)) - (_tl1408014098_ (##cdr _e1407814093_))) - (if (gx#stx-pair? _tl1408014098_) - (let ((_e1408114101_ - (gx#stx-e _tl1408014098_))) - (let ((_hd1408214104_ (##car _e1408114101_)) - (_tl1408314106_ (##cdr _e1408114101_))) - (if (gx#stx-null? _tl1408314106_) - ((lambda (_L14109_ _L14110_) - (_lp14024_ - _rest14047_ - (cons (cons _L14110_ + _g1475614794_) + (let ((_e1478114796_ (gx#stx-e _g1475614794_))) + (let ((_hd1478214799_ (##car _e1478114796_)) + (_tl1478314801_ (##cdr _e1478114796_))) + (if (gx#stx-pair? _tl1478314801_) + (let ((_e1478414804_ + (gx#stx-e _tl1478314801_))) + (let ((_hd1478514807_ (##car _e1478414804_)) + (_tl1478614809_ (##cdr _e1478414804_))) + (if (gx#stx-null? _tl1478614809_) + ((lambda (_L14812_ _L14813_) + (_lp14727_ + _rest14750_ + (cons (cons _L14813_ (cons (gxc#compile-e - _L14109_) + _L14812_) '())) - _bind14027_))) - _hd1408214104_ - _hd1407914096_) - (_g1405214088_ _g1405314091_)))) - (_g1405214088_ _g1405314091_)))) - (_g1405214088_ _g1405314091_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g1405014301_ - (lambda (_g1405314132_) + _bind14730_))) + _hd1478514807_ + _hd1478214799_) + (_g1475514791_ _g1475614794_)))) + (_g1475514791_ _g1475614794_)))) + (_g1475514791_ _g1475614794_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_g1475315004_ + (lambda (_g1475614835_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1405314132_) - (let ((_e1406714134_ (gx#stx-e _g1405314132_))) - (let ((_hd1406814137_ (##car _e1406714134_)) - (_tl1406914139_ (##cdr _e1406714134_))) - (if (gx#stx-pair? _hd1406814137_) - (let ((_e1407014142_ - (gx#stx-e _hd1406814137_))) - (let ((_hd1407114145_ - (##car _e1407014142_)) - (_tl1407214147_ - (##cdr _e1407014142_))) - (if (gx#stx-null? _tl1407214147_) - (if (gx#stx-pair? _tl1406914139_) - (let ((_e1407314150_ + _g1475614835_) + (let ((_e1477014837_ (gx#stx-e _g1475614835_))) + (let ((_hd1477114840_ (##car _e1477014837_)) + (_tl1477214842_ (##cdr _e1477014837_))) + (if (gx#stx-pair? _hd1477114840_) + (let ((_e1477314845_ + (gx#stx-e _hd1477114840_))) + (let ((_hd1477414848_ + (##car _e1477314845_)) + (_tl1477514850_ + (##cdr _e1477314845_))) + (if (gx#stx-null? _tl1477514850_) + (if (gx#stx-pair? _tl1477214842_) + (let ((_e1477614853_ (gx#stx-e - _tl1406914139_))) - (let ((_hd1407414153_ - (##car _e1407314150_)) - (_tl1407514155_ - (##cdr _e1407314150_))) + _tl1477214842_))) + (let ((_hd1477714856_ + (##car _e1477614853_)) + (_tl1477814858_ + (##cdr _e1477614853_))) (if (gx#stx-null? - _tl1407514155_) - ((lambda (_L14158_ - _L14159_) + _tl1477814858_) + ((lambda (_L14861_ + _L14862_) (if (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L14159_) - (gxc#opt-lambda-expr? _L14158_) + _L14862_) + (gxc#opt-lambda-expr? _L14861_) '#f) - (let ((_g1417314203_ - (lambda (_g1417414200_) + (let ((_g1487614906_ + (lambda (_g1487714903_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1417414200_)))) - (let ((_g1417214298_ - (lambda (_g1417414206_) - (if (gx#stx-pair? _g1417414206_) - (let ((_e1417814208_ - (gx#stx-e _g1417414206_))) - (let ((_hd1417914211_ - (##car _e1417814208_)) - (_tl1418014213_ - (##cdr _e1417814208_))) - (if (gx#stx-pair? _tl1418014213_) - (let ((_e1418114216_ - (gx#stx-e _tl1418014213_))) - (let ((_hd1418214219_ - (##car _e1418114216_)) - (_tl1418314221_ - (##cdr _e1418114216_))) + _g1487714903_)))) + (let ((_g1487515001_ + (lambda (_g1487714909_) + (if (gx#stx-pair? _g1487714909_) + (let ((_e1488114911_ + (gx#stx-e _g1487714909_))) + (let ((_hd1488214914_ + (##car _e1488114911_)) + (_tl1488314916_ + (##cdr _e1488114911_))) + (if (gx#stx-pair? _tl1488314916_) + (let ((_e1488414919_ + (gx#stx-e _tl1488314916_))) + (let ((_hd1488514922_ + (##car _e1488414919_)) + (_tl1488614924_ + (##cdr _e1488414919_))) (if (gx#stx-pair? - _hd1418214219_) - (let ((_e1418414224_ + _hd1488514922_) + (let ((_e1488714927_ (gx#stx-e - _hd1418214219_))) - (let ((_hd1418514227_ - (##car _e1418414224_)) - (_tl1418614229_ - (##cdr _e1418414224_))) + _hd1488514922_))) + (let ((_hd1488814930_ + (##car _e1488714927_)) + (_tl1488914932_ + (##cdr _e1488714927_))) (if (gx#stx-pair? - _hd1418514227_) - (let ((_e1418714232_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1418514227_))) - (let ((_hd1418814235_ (##car _e1418714232_)) - (_tl1418914237_ (##cdr _e1418714232_))) - (if (gx#stx-pair? _hd1418814235_) - (let ((_e1419014240_ (gx#stx-e _hd1418814235_))) - (let ((_hd1419114243_ (##car _e1419014240_)) - (_tl1419214245_ (##cdr _e1419014240_))) - (if (gx#stx-null? _tl1419214245_) - (if (gx#stx-pair? _tl1418914237_) - (let ((_e1419314248_ - (gx#stx-e _tl1418914237_))) - (let ((_hd1419414251_ - (##car _e1419314248_)) - (_tl1419514253_ - (##cdr _e1419314248_))) - (if (gx#stx-null? _tl1419514253_) + _hd1488814930_) + (let ((_e1489014935_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _hd1488814930_))) + (let ((_hd1489114938_ (##car _e1489014935_)) + (_tl1489214940_ (##cdr _e1489014935_))) + (if (gx#stx-pair? _hd1489114938_) + (let ((_e1489314943_ (gx#stx-e _hd1489114938_))) + (let ((_hd1489414946_ (##car _e1489314943_)) + (_tl1489514948_ (##cdr _e1489314943_))) + (if (gx#stx-null? _tl1489514948_) + (if (gx#stx-pair? _tl1489214940_) + (let ((_e1489614951_ + (gx#stx-e _tl1489214940_))) + (let ((_hd1489714954_ + (##car _e1489614951_)) + (_tl1489814956_ + (##cdr _e1489614951_))) + (if (gx#stx-null? _tl1489814956_) (if (gx#stx-null? - _tl1418614229_) + _tl1488914932_) (if (gx#stx-pair? - _tl1418314221_) - (let ((_e1419614256_ + _tl1488614924_) + (let ((_e1489914959_ (gx#stx-e - _tl1418314221_))) - (let ((_hd1419714259_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e1419614256_)) - (_tl1419814261_ (##cdr _e1419614256_))) - (if (gx#stx-null? _tl1419814261_) - ((lambda (_L14264_ _L14265_ _L14266_) - (let ((_lambda-id14290_ + _tl1488614924_))) + (let ((_hd1490014962_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (##car _e1489914959_)) + (_tl1490114964_ (##cdr _e1489914959_))) + (if (gx#stx-null? _tl1490114964_) + ((lambda (_L14967_ _L14968_ _L14969_) + (let ((_lambda-id14993_ (make-symbol - (gx#stx-e _L14159_) + (gx#stx-e _L14862_) '"__" - (gx#stx-e _L14266_) + (gx#stx-e _L14969_) (gensym '__)))) - (let ((_lambda-id14292_ - (gx#core-quote-syntax - _lambda-id14290_ - (gx#stx-source _stx13884_)))) - (let ((_g18569_ - (gx#core-bind-runtime! - _lambda-id14292_))) - (let ((_new-case-lambda-expr14295_ + (let ((_lambda-id14995_ + (gx#core-quote-syntax__1 + _lambda-id14993_ + (gx#stx-source _stx14587_)))) + (let ((_g19274_ + (gx#core-bind-runtime!__0 + _lambda-id14995_))) + (let ((_new-case-lambda-expr14998_ (gxc#apply-expression-subst - _L14264_ - _L14266_ - _lambda-id14292_))) + _L14967_ + _L14969_ + _lambda-id14995_))) (let () (begin (gxc#verbose '"lift opt-lambda dispatch " (gxc#generate-runtime-binding-id - _L14159_) + _L14862_) '" => " (gxc#generate-runtime-binding-id - _lambda-id14292_)) - (_lp14024_ - (cons (_bind-e__opt-lambda14434__1851018511_ - _L14159_ - _new-case-lambda-expr14295_ + _lambda-id14995_)) + (_lp14727_ + (cons (_bind-e__opt-lambda15137__1921319214_ + _L14862_ + _new-case-lambda-expr14998_ '#f) - _rest14047_) - (cons (_bind-e__0__1851218513_ - _lambda-id14292_ - _L14265_) - _bind14027_))))))))) - _hd1419714259_ - _hd1419414251_ - _hd1419114243_) - (_g1417314203_ _g1417414206_)))) - (_g1417314203_ _g1417414206_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1417314203_ - _g1417414206_)) - (_g1417314203_ - _g1417414206_)))) - (_g1417314203_ _g1417414206_)) - (_g1417314203_ _g1417414206_)))) - (_g1417314203_ _g1417414206_)))) - (_g1417314203_ _g1417414206_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1417314203_ - _g1417414206_)))) - (_g1417314203_ _g1417414206_)))) - (_g1417314203_ _g1417414206_))))) - (_g1417214298_ _L14158_))) - (_g1405114129_ _g1405314132_))) - _hd1407414153_ - _hd1407114145_) - (_g1405114129_ _g1405314132_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1405114129_ _g1405314132_)) - (_g1405114129_ _g1405314132_)))) - (_g1405114129_ _g1405314132_)))) - (_g1405114129_ _g1405314132_))))) - (let ((_g1404914420_ - (lambda (_g1405314304_) - (if (gx#stx-pair? _g1405314304_) - (let ((_e1405614306_ (gx#stx-e _g1405314304_))) - (let ((_hd1405714309_ (##car _e1405614306_)) - (_tl1405814311_ (##cdr _e1405614306_))) - (if (gx#stx-pair? _hd1405714309_) - (let ((_e1405914314_ - (gx#stx-e _hd1405714309_))) - (let ((_hd1406014317_ - (##car _e1405914314_)) - (_tl1406114319_ - (##cdr _e1405914314_))) - (if (gx#stx-null? _tl1406114319_) - (if (gx#stx-pair? _tl1405814311_) - (let ((_e1406214322_ + _rest14750_) + (cons (_bind-e__0__1921519216_ + _lambda-id14995_ + _L14968_) + _bind14730_))))))))) + _hd1490014962_ + _hd1489714954_ + _hd1489414946_) + (_g1487614906_ _g1487714909_)))) + (_g1487614906_ _g1487714909_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1487614906_ + _g1487714909_)) + (_g1487614906_ + _g1487714909_)))) + (_g1487614906_ _g1487714909_)) + (_g1487614906_ _g1487714909_)))) + (_g1487614906_ _g1487714909_)))) + (_g1487614906_ _g1487714909_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1487614906_ + _g1487714909_)))) + (_g1487614906_ _g1487714909_)))) + (_g1487614906_ _g1487714909_))))) + (_g1487515001_ _L14861_))) + (_g1475414832_ _g1475614835_))) + _hd1477714856_ + _hd1477414848_) + (_g1475414832_ _g1475614835_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1475414832_ _g1475614835_)) + (_g1475414832_ _g1475614835_)))) + (_g1475414832_ _g1475614835_)))) + (_g1475414832_ _g1475614835_))))) + (let ((_g1475215123_ + (lambda (_g1475615007_) + (if (gx#stx-pair? _g1475615007_) + (let ((_e1475915009_ (gx#stx-e _g1475615007_))) + (let ((_hd1476015012_ (##car _e1475915009_)) + (_tl1476115014_ (##cdr _e1475915009_))) + (if (gx#stx-pair? _hd1476015012_) + (let ((_e1476215017_ + (gx#stx-e _hd1476015012_))) + (let ((_hd1476315020_ + (##car _e1476215017_)) + (_tl1476415022_ + (##cdr _e1476215017_))) + (if (gx#stx-null? _tl1476415022_) + (if (gx#stx-pair? _tl1476115014_) + (let ((_e1476515025_ (gx#stx-e - _tl1405814311_))) - (let ((_hd1406314325_ - (##car _e1406214322_)) - (_tl1406414327_ - (##cdr _e1406214322_))) + _tl1476115014_))) + (let ((_hd1476615028_ + (##car _e1476515025_)) + (_tl1476715030_ + (##cdr _e1476515025_))) (if (gx#stx-null? - _tl1406414327_) - ((lambda (_L14330_ + _tl1476715030_) + ((lambda (_L15033_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L14331_) - (if (if (gx#identifier? _L14331_) - (gxc#case-lambda-expr? _L14330_) + _L15034_) + (if (if (gx#identifier? _L15034_) + (gxc#case-lambda-expr? _L15033_) '#f) - (let ((_g1434614360_ - (lambda (_g1434714357_) + (let ((_g1504915063_ + (lambda (_g1505015060_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1434714357_)))) - (let ((_g1434514395_ - (lambda (_g1434714363_) - (if (gx#stx-pair? _g1434714363_) - (let ((_e1435314365_ - (gx#stx-e _g1434714363_))) - (let ((_hd1435414368_ - (##car _e1435314365_)) - (_tl1435514370_ - (##cdr _e1435314365_))) - ((lambda (_L14373_) - (let ((_g18570_ - (gxc#lift-case-lambda-clauses__opt-lambda15438 - _stx13884_ - _L14331_ - _L14373_ + _g1505015060_)))) + (let ((_g1504815098_ + (lambda (_g1505015066_) + (if (gx#stx-pair? _g1505015066_) + (let ((_e1505615068_ + (gx#stx-e _g1505015066_))) + (let ((_hd1505715071_ + (##car _e1505615068_)) + (_tl1505815073_ + (##cdr _e1505615068_))) + ((lambda (_L15076_) + (let ((_g19275_ + (gxc#lift-case-lambda-clauses__opt-lambda16141 + _stx14587_ + _L15034_ + _L15076_ '#t))) (begin - (let ((_g18571_ + (let ((_g19276_ (values-count - _g18570_))) - (if (not (fx= _g18571_ 3)) + _g19275_))) + (if (not (fx= _g19276_ 3)) (error "Context expects 3 values" - _g18571_))) - (let ((_ids14383_ + _g19276_))) + (let ((_ids15086_ (values-ref - _g18570_ + _g19275_ 0)) - (_impls14384_ + (_impls15087_ (values-ref - _g18570_ + _g19275_ 1)) - (_clauses14385_ + (_clauses15088_ (values-ref - _g18570_ + _g19275_ 2))) - (let ((_g18572_ + (let ((_g19277_ (for-each gx#core-bind-runtime! - _ids14383_))) - (let ((_xbind14388_ - (map _bind-e13886_ + _ids15086_))) + (let ((_xbind15091_ + (map _bind-e14589_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _ids14383_ - _impls14384_))) - (let ((_expr*14390_ + _ids15086_ + _impls15087_))) + (let ((_expr*15093_ (gxc#xform-wrap-source - (cons '%#case-lambda _clauses14385_) - (gx#datum->syntax '#f 'case-lambda-expr)))) - (let ((_bind*14392_ - (_bind-e__opt-lambda14434__1851018511_ - _L14331_ - _expr*14390_ + (cons '%#case-lambda _clauses15088_) + (gx#datum->syntax__0 '#f 'case-lambda-expr)))) + (let ((_bind*15095_ + (_bind-e__opt-lambda15137__1921319214_ + _L15034_ + _expr*15093_ '#f))) (let () (begin (gxc#verbose '"lift case-lambda clauses " - (gxc#generate-runtime-binding-id _L14331_) + (gxc#generate-runtime-binding-id _L15034_) '" => " - (map gxc#identifier-symbol _ids14383_)) - (_lp14024_ - _rest14047_ - (cons _bind*14392_ + (map gxc#identifier-symbol _ids15086_)) + (_lp14727_ + _rest14750_ + (cons _bind*15095_ (foldl1 cons - _bind14027_ - _xbind14388_))))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _tl1435514370_))) - (_g1434614360_ _g1434714363_))))) - (let ((_g1434414417_ - (lambda (_g1434714398_) - (if (gx#stx-pair? _g1434714398_) - (let ((_e1434914400_ - (gx#stx-e _g1434714398_))) - (let ((_hd1435014403_ - (##car _e1434914400_)) - (_tl1435114405_ - (##cdr _e1434914400_))) - ((lambda (_L14408_) + _bind14730_ + _xbind15091_))))))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _tl1505815073_))) + (_g1504915063_ _g1505015066_))))) + (let ((_g1504715120_ + (lambda (_g1505015101_) + (if (gx#stx-pair? _g1505015101_) + (let ((_e1505215103_ + (gx#stx-e _g1505015101_))) + (let ((_hd1505315106_ + (##car _e1505215103_)) + (_tl1505415108_ + (##cdr _e1505215103_))) + ((lambda (_L15111_) (if (andmap1 gxc#dispatch-lambda-form? - _L14408_) - (_lp14024_ - _rest14047_ - (cons (_bind-e__opt-lambda14434__1851018511_ - _L14331_ - _L14330_ + _L15111_) + (_lp14727_ + _rest14750_ + (cons (_bind-e__opt-lambda15137__1921319214_ + _L15034_ + _L15033_ '#f) - _bind14027_)) - (_g1434514395_ - _g1434714398_))) - _tl1435114405_))) - (_g1434514395_ _g1434714398_))))) - (_g1434414417_ _L14330_)))) - (_g1405014301_ _g1405314304_))) - _hd1406314325_ - _hd1406014317_) - (_g1405014301_ _g1405314304_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1405014301_ _g1405314304_)) - (_g1405014301_ _g1405314304_)))) - (_g1405014301_ _g1405314304_)))) - (_g1405014301_ _g1405314304_))))) - (_g1404914420_ _hd14048_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _rest1402814036_) - (let ((_hd1403314426_ - (##car _rest1402814036_)) - (_tl1403414428_ - (##cdr _rest1402814036_))) - (let ((_hd14431_ - _hd1403314426_)) - (let ((_rest14433_ - _tl1403414428_)) - (_K1403214423_ - _rest14433_ - _hd14431_)))) - (_else1403014044_))))))))) - _lp14024_) - _rest14022_ + _bind14730_)) + (_g1504815098_ + _g1505015101_))) + _tl1505415108_))) + (_g1504815098_ _g1505015101_))))) + (_g1504715120_ _L15033_)))) + (_g1475315004_ _g1475615007_))) + _hd1476615028_ + _hd1476315020_) + (_g1475315004_ _g1475615007_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1475315004_ _g1475615007_)) + (_g1475315004_ _g1475615007_)))) + (_g1475315004_ _g1475615007_)))) + (_g1475315004_ _g1475615007_))))) + (_g1475215123_ _hd14751_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (##pair? _rest1473114739_) + (let ((_hd1473615129_ + (##car _rest1473114739_)) + (_tl1473715131_ + (##cdr _rest1473114739_))) + (let ((_hd15134_ + _hd1473615129_)) + (let ((_rest15136_ + _tl1473715131_)) + (_K1473515126_ + _rest15136_ + _hd15134_)))) + (_else1473314747_))))))))) + _lp14727_) + _rest14725_ '())))) - (let ((_g1389013917_ - (lambda (_g1389113914_) + (let ((_g1459314620_ + (lambda (_g1459414617_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1389113914_)))) - (let ((_g1388913924_ - (lambda (_g1389113920_) - ((lambda () (gxc#xform-let-values% _stx13884_)))))) - (let ((_g1388814019_ - (lambda (_g1389113927_) - (if (gx#stx-pair? _g1389113927_) - (let ((_e1389513929_ (gx#stx-e _g1389113927_))) - (let ((_hd1389613932_ (##car _e1389513929_)) - (_tl1389713934_ (##cdr _e1389513929_))) - (if (gx#stx-pair? _tl1389713934_) - (let ((_e1389813937_ - (gx#stx-e _tl1389713934_))) - (let ((_hd1389913940_ - (##car _e1389813937_)) - (_tl1390013942_ - (##cdr _e1389813937_))) + _g1459414617_)))) + (let ((_g1459214627_ + (lambda (_g1459414623_) + ((lambda () (gxc#xform-let-values% _stx14587_)))))) + (let ((_g1459114722_ + (lambda (_g1459414630_) + (if (gx#stx-pair? _g1459414630_) + (let ((_e1459814632_ (gx#stx-e _g1459414630_))) + (let ((_hd1459914635_ (##car _e1459814632_)) + (_tl1460014637_ (##cdr _e1459814632_))) + (if (gx#stx-pair? _tl1460014637_) + (let ((_e1460114640_ + (gx#stx-e _tl1460014637_))) + (let ((_hd1460214643_ + (##car _e1460114640_)) + (_tl1460314645_ + (##cdr _e1460114640_))) (if (gx#stx-pair/null? - _hd1389913940_) + _hd1460214643_) (if (fx>= (gx#stx-length - _hd1389913940_) + _hd1460214643_) '0) - (let ((_g18567_ + (let ((_g19272_ (gx#syntax-split-splice - _hd1389913940_ + _hd1460214643_ '0))) (begin - (let ((_g18568_ + (let ((_g19273_ (values-count - _g18567_))) - (if (not (fx= _g18568_ + _g19272_))) + (if (not (fx= _g19273_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2)) - (error "Context expects 2 values" _g18568_))) - (let ((_target1390113945_ (values-ref _g18567_ 0)) - (_tl1390313947_ (values-ref _g18567_ 1))) - (if (gx#stx-null? _tl1390313947_) - (letrec ((_loop1390413950_ - (lambda (_hd1390213953_ _bind1390813955_) - (if (gx#stx-pair? _hd1390213953_) - (let ((_e1390513958_ - (gx#stx-e _hd1390213953_))) - (let ((_lp-hd1390613961_ - (##car _e1390513958_)) - (_lp-tl1390713963_ - (##cdr _e1390513958_))) - (_loop1390413950_ - _lp-tl1390713963_ - (cons _lp-hd1390613961_ - _bind1390813955_)))) - (let ((_bind1390913966_ - (reverse _bind1390813955_))) - (if (gx#stx-pair? _tl1390013942_) - (let ((_e1391013969_ - (gx#stx-e _tl1390013942_))) - (let ((_hd1391113972_ - (##car _e1391013969_)) - (_tl1391213974_ - (##cdr _e1391013969_))) + (error "Context expects 2 values" _g19273_))) + (let ((_target1460414648_ (values-ref _g19272_ 0)) + (_tl1460614650_ (values-ref _g19272_ 1))) + (if (gx#stx-null? _tl1460614650_) + (letrec ((_loop1460714653_ + (lambda (_hd1460514656_ _bind1461114658_) + (if (gx#stx-pair? _hd1460514656_) + (let ((_e1460814661_ + (gx#stx-e _hd1460514656_))) + (let ((_lp-hd1460914664_ + (##car _e1460814661_)) + (_lp-tl1461014666_ + (##cdr _e1460814661_))) + (_loop1460714653_ + _lp-tl1461014666_ + (cons _lp-hd1460914664_ + _bind1461114658_)))) + (let ((_bind1461214669_ + (reverse _bind1461114658_))) + (if (gx#stx-pair? _tl1460314645_) + (let ((_e1461314672_ + (gx#stx-e _tl1460314645_))) + (let ((_hd1461414675_ + (##car _e1461314672_)) + (_tl1461514677_ + (##cdr _e1461314672_))) (if (gx#stx-null? - _tl1391213974_) - ((lambda (_L13977_ - _L13978_ - _L13979_) + _tl1461514677_) + ((lambda (_L14680_ + _L14681_ + _L14682_) (if (ormap1 gxc#lift-top-lambda-binding? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (begin '#!void - (foldr1 (lambda (_g1400014003_ _g1400114005_) - (cons _g1400014003_ _g1400114005_)) + (foldr1 (lambda (_g1470314706_ _g1470414708_) + (cons _g1470314706_ _g1470414708_)) '() - _L13978_))) + _L14681_))) (call-with-parameters (lambda () - (let ((_hd14016_ - (_compile-bindings13887_ + (let ((_hd14719_ + (_compile-bindings14590_ (begin '#!void - (foldr1 (lambda (_g1400814011_ _g1400914013_) - (cons _g1400814011_ _g1400914013_)) + (foldr1 (lambda (_g1471114714_ _g1471214716_) + (cons _g1471114714_ _g1471214716_)) '() - _L13978_)))) - (_body14017_ (gxc#compile-e _L13977_))) + _L14681_)))) + (_body14720_ (gxc#compile-e _L14680_))) (gxc#xform-wrap-source - (cons _L13979_ (cons _hd14016_ (cons _body14017_ '()))) - _stx13884_))) + (cons _L14682_ (cons _hd14719_ (cons _body14720_ '()))) + _stx14587_))) gx#current-expander-context - (gx#make-local-context)) - (_g1388913924_ _g1389113927_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd1391113972_ - _bind1390913966_ - _hd1389613932_) - (_g1388913924_ - _g1389113927_)))) - (_g1388913924_ _g1389113927_))))))) - (_loop1390413950_ _target1390113945_ '())) - (_g1388913924_ _g1389113927_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1388913924_ - _g1389113927_)) - (_g1388913924_ _g1389113927_)))) - (_g1388913924_ _g1389113927_)))) - (_g1388913924_ _g1389113927_))))) - (_g1388814019_ _stx13884_)))))))))) + (let ((__obj19219 (make-object gx#local-context::t '5))) + (begin + (gx#local-context:::init!__0 __obj19219) + __obj19219))) + (_g1459214627_ _g1459414630_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd1461414675_ + _bind1461214669_ + _hd1459914635_) + (_g1459214627_ + _g1459414630_)))) + (_g1459214627_ _g1459414630_))))))) + (_loop1460714653_ _target1460414648_ '())) + (_g1459214627_ _g1459414630_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1459214627_ + _g1459414630_)) + (_g1459214627_ _g1459414630_)))) + (_g1459214627_ _g1459414630_)))) + (_g1459214627_ _g1459414630_))))) + (_g1459114722_ _stx14587_)))))))))) (define gxc#lift-top-lambda-binding? - (lambda (_bind13805_) - (let ((_g1380813825_ - (lambda (_g1380913822_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1380913822_)))) - (let ((_g1380713832_ (lambda (_g1380913828_) ((lambda () '#f))))) - (let ((_g1380613881_ - (lambda (_g1380913835_) - (if (gx#stx-pair? _g1380913835_) - (let ((_e1381213837_ (gx#stx-e _g1380913835_))) - (let ((_hd1381313840_ (##car _e1381213837_)) - (_tl1381413842_ (##cdr _e1381213837_))) - (if (gx#stx-pair? _hd1381313840_) - (let ((_e1381513845_ (gx#stx-e _hd1381313840_))) - (let ((_hd1381613848_ (##car _e1381513845_)) - (_tl1381713850_ (##cdr _e1381513845_))) - (if (gx#stx-null? _tl1381713850_) - (if (gx#stx-pair? _tl1381413842_) - (let ((_e1381813853_ - (gx#stx-e _tl1381413842_))) - (let ((_hd1381913856_ - (##car _e1381813853_)) - (_tl1382013858_ - (##cdr _e1381813853_))) + (lambda (_bind14508_) + (let ((_g1451114528_ + (lambda (_g1451214525_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1451214525_)))) + (let ((_g1451014535_ (lambda (_g1451214531_) ((lambda () '#f))))) + (let ((_g1450914584_ + (lambda (_g1451214538_) + (if (gx#stx-pair? _g1451214538_) + (let ((_e1451514540_ (gx#stx-e _g1451214538_))) + (let ((_hd1451614543_ (##car _e1451514540_)) + (_tl1451714545_ (##cdr _e1451514540_))) + (if (gx#stx-pair? _hd1451614543_) + (let ((_e1451814548_ (gx#stx-e _hd1451614543_))) + (let ((_hd1451914551_ (##car _e1451814548_)) + (_tl1452014553_ (##cdr _e1451814548_))) + (if (gx#stx-null? _tl1452014553_) + (if (gx#stx-pair? _tl1451714545_) + (let ((_e1452114556_ + (gx#stx-e _tl1451714545_))) + (let ((_hd1452214559_ + (##car _e1452114556_)) + (_tl1452314561_ + (##cdr _e1452114556_))) (if (gx#stx-null? - _tl1382013858_) - ((lambda (_L13861_ _L13862_) + _tl1452314561_) + ((lambda (_L14564_ _L14565_) (if (gx#identifier? - _L13862_) - (let ((_$e13878_ + _L14565_) + (let ((_$e14581_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gxc#case-lambda-expr? _L13861_))) - (if _$e13878_ _$e13878_ (gxc#opt-lambda-expr? _L13861_))) + (gxc#case-lambda-expr? _L14564_))) + (if _$e14581_ _$e14581_ (gxc#opt-lambda-expr? _L14564_))) '#f)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd1381913856_ - _hd1381613848_) - (_g1380713832_ - _g1380913835_)))) - (_g1380713832_ _g1380913835_)) - (_g1380713832_ _g1380913835_)))) - (_g1380713832_ _g1380913835_)))) - (_g1380713832_ _g1380913835_))))) - (_g1380613881_ _bind13805_)))))) + _hd1452214559_ + _hd1451914551_) + (_g1451014535_ + _g1451214538_)))) + (_g1451014535_ _g1451214538_)) + (_g1451014535_ _g1451214538_)))) + (_g1451014535_ _g1451214538_)))) + (_g1451014535_ _g1451214538_))))) + (_g1450914584_ _bind14508_)))))) (define gxc#expression-subst-ref% - (lambda (_stx13743_ _id13744_ _new-id13745_) - (let ((_g1374813761_ - (lambda (_g1374913758_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1374913758_)))) - (let ((_g1374713768_ - (lambda (_g1374913764_) ((lambda () _stx13743_))))) - (let ((_g1374613802_ - (lambda (_g1374913771_) - (if (gx#stx-pair? _g1374913771_) - (let ((_e1375113773_ (gx#stx-e _g1374913771_))) - (let ((_hd1375213776_ (##car _e1375113773_)) - (_tl1375313778_ (##cdr _e1375113773_))) - (if (gx#stx-pair? _tl1375313778_) - (let ((_e1375413781_ (gx#stx-e _tl1375313778_))) - (let ((_hd1375513784_ (##car _e1375413781_)) - (_tl1375613786_ (##cdr _e1375413781_))) - (if (gx#stx-null? _tl1375613786_) - ((lambda (_L13789_) + (lambda (_stx14446_ _id14447_ _new-id14448_) + (let ((_g1445114464_ + (lambda (_g1445214461_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1445214461_)))) + (let ((_g1445014471_ + (lambda (_g1445214467_) ((lambda () _stx14446_))))) + (let ((_g1444914505_ + (lambda (_g1445214474_) + (if (gx#stx-pair? _g1445214474_) + (let ((_e1445414476_ (gx#stx-e _g1445214474_))) + (let ((_hd1445514479_ (##car _e1445414476_)) + (_tl1445614481_ (##cdr _e1445414476_))) + (if (gx#stx-pair? _tl1445614481_) + (let ((_e1445714484_ (gx#stx-e _tl1445614481_))) + (let ((_hd1445814487_ (##car _e1445714484_)) + (_tl1445914489_ (##cdr _e1445714484_))) + (if (gx#stx-null? _tl1445914489_) + ((lambda (_L14492_) (if (gx#free-identifier=? - _L13789_ - _id13744_) + _L14492_ + _id14447_) (gxc#xform-wrap-source (cons '%#ref - (cons _new-id13745_ '())) - _stx13743_) - (_g1374713768_ _g1374913771_))) - _hd1375513784_) - (_g1374713768_ _g1374913771_)))) - (_g1374713768_ _g1374913771_)))) - (_g1374713768_ _g1374913771_))))) - (_g1374613802_ _stx13743_)))))) + (cons _new-id14448_ '())) + _stx14446_) + (_g1445014471_ _g1445214474_))) + _hd1445814487_) + (_g1445014471_ _g1445214474_)))) + (_g1445014471_ _g1445214474_)))) + (_g1445014471_ _g1445214474_))))) + (_g1444914505_ _stx14446_)))))) (define gxc#collect-type-define-values% - (lambda (_stx13599_) - (let ((_g1360213633_ - (lambda (_g1360313630_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1360313630_)))) - (let ((_g1360113678_ - (lambda (_g1360313636_) - (if (gx#stx-pair? _g1360313636_) - (let ((_e1362013638_ (gx#stx-e _g1360313636_))) - (let ((_hd1362113641_ (##car _e1362013638_)) - (_tl1362213643_ (##cdr _e1362013638_))) - (if (gx#stx-pair? _tl1362213643_) - (let ((_e1362313646_ (gx#stx-e _tl1362213643_))) - (let ((_hd1362413649_ (##car _e1362313646_)) - (_tl1362513651_ (##cdr _e1362313646_))) - (if (gx#stx-pair? _tl1362513651_) - (let ((_e1362613654_ - (gx#stx-e _tl1362513651_))) - (let ((_hd1362713657_ - (##car _e1362613654_)) - (_tl1362813659_ - (##cdr _e1362613654_))) - (if (gx#stx-null? _tl1362813659_) - ((lambda (_L13662_ _L13663_) - (gxc#compile-e _L13662_)) - _hd1362713657_ - _hd1362413649_) - (_g1360213633_ _g1360313636_)))) - (_g1360213633_ _g1360313636_)))) - (_g1360213633_ _g1360313636_)))) - (_g1360213633_ _g1360313636_))))) - (let ((_g1360013740_ - (lambda (_g1360313681_) - (if (gx#stx-pair? _g1360313681_) - (let ((_e1360613683_ (gx#stx-e _g1360313681_))) - (let ((_hd1360713686_ (##car _e1360613683_)) - (_tl1360813688_ (##cdr _e1360613683_))) - (if (gx#stx-pair? _tl1360813688_) - (let ((_e1360913691_ (gx#stx-e _tl1360813688_))) - (let ((_hd1361013694_ (##car _e1360913691_)) - (_tl1361113696_ (##cdr _e1360913691_))) - (if (gx#stx-pair? _hd1361013694_) - (let ((_e1361213699_ - (gx#stx-e _hd1361013694_))) - (let ((_hd1361313702_ - (##car _e1361213699_)) - (_tl1361413704_ - (##cdr _e1361213699_))) - (if (gx#stx-null? _tl1361413704_) + (lambda (_stx14302_) + (let ((_g1430514336_ + (lambda (_g1430614333_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1430614333_)))) + (let ((_g1430414381_ + (lambda (_g1430614339_) + (if (gx#stx-pair? _g1430614339_) + (let ((_e1432314341_ (gx#stx-e _g1430614339_))) + (let ((_hd1432414344_ (##car _e1432314341_)) + (_tl1432514346_ (##cdr _e1432314341_))) + (if (gx#stx-pair? _tl1432514346_) + (let ((_e1432614349_ (gx#stx-e _tl1432514346_))) + (let ((_hd1432714352_ (##car _e1432614349_)) + (_tl1432814354_ (##cdr _e1432614349_))) + (if (gx#stx-pair? _tl1432814354_) + (let ((_e1432914357_ + (gx#stx-e _tl1432814354_))) + (let ((_hd1433014360_ + (##car _e1432914357_)) + (_tl1433114362_ + (##cdr _e1432914357_))) + (if (gx#stx-null? _tl1433114362_) + ((lambda (_L14365_ _L14366_) + (gxc#compile-e _L14365_)) + _hd1433014360_ + _hd1432714352_) + (_g1430514336_ _g1430614339_)))) + (_g1430514336_ _g1430614339_)))) + (_g1430514336_ _g1430614339_)))) + (_g1430514336_ _g1430614339_))))) + (let ((_g1430314443_ + (lambda (_g1430614384_) + (if (gx#stx-pair? _g1430614384_) + (let ((_e1430914386_ (gx#stx-e _g1430614384_))) + (let ((_hd1431014389_ (##car _e1430914386_)) + (_tl1431114391_ (##cdr _e1430914386_))) + (if (gx#stx-pair? _tl1431114391_) + (let ((_e1431214394_ (gx#stx-e _tl1431114391_))) + (let ((_hd1431314397_ (##car _e1431214394_)) + (_tl1431414399_ (##cdr _e1431214394_))) + (if (gx#stx-pair? _hd1431314397_) + (let ((_e1431514402_ + (gx#stx-e _hd1431314397_))) + (let ((_hd1431614405_ + (##car _e1431514402_)) + (_tl1431714407_ + (##cdr _e1431514402_))) + (if (gx#stx-null? _tl1431714407_) (if (gx#stx-pair? - _tl1361113696_) - (let ((_e1361513707_ + _tl1431414399_) + (let ((_e1431814410_ (gx#stx-e - _tl1361113696_))) - (let ((_hd1361613710_ - (##car _e1361513707_)) - (_tl1361713712_ - (##cdr _e1361513707_))) + _tl1431414399_))) + (let ((_hd1431914413_ + (##car _e1431814410_)) + (_tl1432014415_ + (##cdr _e1431814410_))) (if (gx#stx-null? - _tl1361713712_) - ((lambda (_L13715_ + _tl1432014415_) + ((lambda (_L14418_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L13716_) - (if (gx#identifier? _L13716_) - (let ((_sym13732_ - (gxc#generate-runtime-binding-id _L13716_))) + _L14419_) + (if (gx#identifier? _L14419_) + (let ((_sym14435_ + (gxc#generate-runtime-binding-id _L14419_))) (begin (if (table-ref (gxc#current-compile-mutators) - _sym13732_ + _sym14435_ '#f) (gxc#verbose '"skipping type declaration for mutable binding " - _sym13732_) - (let ((_type1373313735_ + _sym14435_) + (let ((_type1443614438_ (gxc#apply-basic-expression-type - _L13715_))) - (if _type1373313735_ - (let ((_type13738_ _type1373313735_)) + _L14418_))) + (if _type1443614438_ + (let ((_type14441_ _type1443614438_)) (gxc#optimizer-declare-type!__0 - _sym13732_ - _type13738_)) + _sym14435_ + _type14441_)) '#f))) - (gxc#compile-e _L13715_))) - (_g1360113678_ _g1360313681_))) - _hd1361613710_ - _hd1361313702_) - (_g1360113678_ _g1360313681_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1360113678_ - _g1360313681_)) - (_g1360113678_ _g1360313681_)))) - (_g1360113678_ _g1360313681_)))) - (_g1360113678_ _g1360313681_)))) - (_g1360113678_ _g1360313681_))))) - (_g1360013740_ _stx13599_)))))) + (gxc#compile-e _L14418_))) + (_g1430414381_ _g1430614384_))) + _hd1431914413_ + _hd1431614405_) + (_g1430414381_ _g1430614384_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1430414381_ + _g1430614384_)) + (_g1430414381_ _g1430614384_)))) + (_g1430414381_ _g1430614384_)))) + (_g1430414381_ _g1430614384_)))) + (_g1430414381_ _g1430614384_))))) + (_g1430314443_ _stx14302_)))))) (define gxc#collect-type-let-values% - (lambda (_stx13384_) - (let ((_collect-e13386_ - (lambda (_hd13543_ _expr13544_) - (let ((_g1354713557_ - (lambda (_g1354813554_) + (lambda (_stx14087_) + (let ((_collect-e14089_ + (lambda (_hd14246_ _expr14247_) + (let ((_g1425014260_ + (lambda (_g1425114257_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1354813554_)))) - (let ((_g1354613564_ - (lambda (_g1354813560_) ((lambda () '#!void))))) - (let ((_g1354513596_ - (lambda (_g1354813567_) - (if (gx#stx-pair? _g1354813567_) - (let ((_e1355013569_ (gx#stx-e _g1354813567_))) - (let ((_hd1355113572_ (##car _e1355013569_)) - (_tl1355213574_ (##cdr _e1355013569_))) - (if (gx#stx-null? _tl1355213574_) - ((lambda (_L13577_) - (if (gx#identifier? _L13577_) - (let ((_sym13588_ + _g1425114257_)))) + (let ((_g1424914267_ + (lambda (_g1425114263_) ((lambda () '#!void))))) + (let ((_g1424814299_ + (lambda (_g1425114270_) + (if (gx#stx-pair? _g1425114270_) + (let ((_e1425314272_ (gx#stx-e _g1425114270_))) + (let ((_hd1425414275_ (##car _e1425314272_)) + (_tl1425514277_ (##cdr _e1425314272_))) + (if (gx#stx-null? _tl1425514277_) + ((lambda (_L14280_) + (if (gx#identifier? _L14280_) + (let ((_sym14291_ (gxc#generate-runtime-binding-id - _L13577_))) + _L14280_))) (if (table-ref (gxc#current-compile-mutators) - _sym13588_ + _sym14291_ '#f) (gxc#verbose '"skipping type declaration for mutable binding " - _sym13588_) - (let ((_type1358913591_ + _sym14291_) + (let ((_type1429214294_ (gxc#apply-basic-expression-type - _expr13544_))) - (if _type1358913591_ - (let ((_type13594_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _type1358913591_)) - (gxc#optimizer-declare-type!__opt-lambda18289 - _sym13588_ - _type13594_ + _expr14247_))) + (if _type1429214294_ + (let ((_type14297_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _type1429214294_)) + (gxc#optimizer-declare-type!__opt-lambda18992 + _sym14291_ + _type14297_ '#t)) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1354613564_ _g1354813567_))) - _hd1355113572_) - (_g1354613564_ _g1354813567_)))) - (_g1354613564_ _g1354813567_))))) - (_g1354513596_ _hd13543_))))))) - (let ((_g1338813423_ - (lambda (_g1338913420_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1338913420_)))) - (let ((_g1338713540_ - (lambda (_g1338913426_) - (if (gx#stx-pair? _g1338913426_) - (let ((_e1339313428_ (gx#stx-e _g1338913426_))) - (let ((_hd1339413431_ (##car _e1339313428_)) - (_tl1339513433_ (##cdr _e1339313428_))) - (if (gx#stx-pair? _tl1339513433_) - (let ((_e1339613436_ (gx#stx-e _tl1339513433_))) - (let ((_hd1339713439_ (##car _e1339613436_)) - (_tl1339813441_ (##cdr _e1339613436_))) - (if (gx#stx-pair/null? _hd1339713439_) - (if (fx>= (gx#stx-length _hd1339713439_) + (_g1424914267_ _g1425114270_))) + _hd1425414275_) + (_g1424914267_ _g1425114270_)))) + (_g1424914267_ _g1425114270_))))) + (_g1424814299_ _hd14246_))))))) + (let ((_g1409114126_ + (lambda (_g1409214123_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1409214123_)))) + (let ((_g1409014243_ + (lambda (_g1409214129_) + (if (gx#stx-pair? _g1409214129_) + (let ((_e1409614131_ (gx#stx-e _g1409214129_))) + (let ((_hd1409714134_ (##car _e1409614131_)) + (_tl1409814136_ (##cdr _e1409614131_))) + (if (gx#stx-pair? _tl1409814136_) + (let ((_e1409914139_ (gx#stx-e _tl1409814136_))) + (let ((_hd1410014142_ (##car _e1409914139_)) + (_tl1410114144_ (##cdr _e1409914139_))) + (if (gx#stx-pair/null? _hd1410014142_) + (if (fx>= (gx#stx-length _hd1410014142_) '0) - (let ((_g18575_ + (let ((_g19280_ (gx#syntax-split-splice - _hd1339713439_ + _hd1410014142_ '0))) (begin - (let ((_g18576_ - (values-count _g18575_))) - (if (not (fx= _g18576_ 2)) + (let ((_g19281_ + (values-count _g19280_))) + (if (not (fx= _g19281_ 2)) (error "Context expects 2 values" - _g18576_))) - (let ((_target1339913444_ - (values-ref _g18575_ 0)) - (_tl1340113446_ - (values-ref _g18575_ 1))) + _g19281_))) + (let ((_target1410214147_ + (values-ref _g19280_ 0)) + (_tl1410414149_ + (values-ref _g19280_ 1))) (if (gx#stx-null? - _tl1340113446_) - (letrec ((_loop1340213449_ - (lambda (_hd1340013452_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr1340613454_ - _hd1340713456_) - (if (gx#stx-pair? _hd1340013452_) - (let ((_e1340313459_ (gx#stx-e _hd1340013452_))) - (let ((_lp-hd1340413462_ (##car _e1340313459_)) - (_lp-tl1340513464_ (##cdr _e1340313459_))) - (if (gx#stx-pair? _lp-hd1340413462_) - (let ((_e1341013467_ - (gx#stx-e _lp-hd1340413462_))) - (let ((_hd1341113470_ - (##car _e1341013467_)) - (_tl1341213472_ - (##cdr _e1341013467_))) - (if (gx#stx-pair? _tl1341213472_) - (let ((_e1341313475_ - (gx#stx-e _tl1341213472_))) - (let ((_hd1341413478_ - (##car _e1341313475_)) - (_tl1341513480_ - (##cdr _e1341313475_))) + _tl1410414149_) + (letrec ((_loop1410514152_ + (lambda (_hd1410314155_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _expr1410914157_ + _hd1411014159_) + (if (gx#stx-pair? _hd1410314155_) + (let ((_e1410614162_ (gx#stx-e _hd1410314155_))) + (let ((_lp-hd1410714165_ (##car _e1410614162_)) + (_lp-tl1410814167_ (##cdr _e1410614162_))) + (if (gx#stx-pair? _lp-hd1410714165_) + (let ((_e1411314170_ + (gx#stx-e _lp-hd1410714165_))) + (let ((_hd1411414173_ + (##car _e1411314170_)) + (_tl1411514175_ + (##cdr _e1411314170_))) + (if (gx#stx-pair? _tl1411514175_) + (let ((_e1411614178_ + (gx#stx-e _tl1411514175_))) + (let ((_hd1411714181_ + (##car _e1411614178_)) + (_tl1411814183_ + (##cdr _e1411614178_))) (if (gx#stx-null? - _tl1341513480_) - (_loop1340213449_ - _lp-tl1340513464_ - (cons _hd1341413478_ - _expr1340613454_) - (cons _hd1341113470_ - _hd1340713456_)) - (_g1338813423_ - _g1338913426_)))) - (_g1338813423_ _g1338913426_)))) - (_g1338813423_ _g1338913426_)))) - (let ((_expr1340813483_ - (reverse _expr1340613454_)) - (_hd1340913485_ (reverse _hd1340713456_))) - (if (gx#stx-pair? _tl1339813441_) - (let ((_e1341613488_ - (gx#stx-e _tl1339813441_))) - (let ((_hd1341713491_ - (##car _e1341613488_)) - (_tl1341813493_ - (##cdr _e1341613488_))) - (if (gx#stx-null? _tl1341813493_) - ((lambda (_L13496_ - _L13497_ - _L13498_) + _tl1411814183_) + (_loop1410514152_ + _lp-tl1410814167_ + (cons _hd1411714181_ + _expr1410914157_) + (cons _hd1411414173_ + _hd1411014159_)) + (_g1409114126_ + _g1409214129_)))) + (_g1409114126_ _g1409214129_)))) + (_g1409114126_ _g1409214129_)))) + (let ((_expr1411114186_ + (reverse _expr1410914157_)) + (_hd1411214188_ (reverse _hd1411014159_))) + (if (gx#stx-pair? _tl1410114144_) + (let ((_e1411914191_ + (gx#stx-e _tl1410114144_))) + (let ((_hd1412014194_ + (##car _e1411914191_)) + (_tl1412114196_ + (##cdr _e1411914191_))) + (if (gx#stx-null? _tl1412114196_) + ((lambda (_L14199_ + _L14200_ + _L14201_) (begin (for-each - _collect-e13386_ + _collect-e14089_ (begin '#!void - (foldr1 (lambda (_g1351813521_ + (foldr1 (lambda (_g1422114224_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1351913523_) - (cons _g1351813521_ _g1351913523_)) + _g1422214226_) + (cons _g1422114224_ _g1422214226_)) '() - _L13498_)) + _L14201_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin '#!void - (foldr1 (lambda (_g1352513528_ + (foldr1 (lambda (_g1422814231_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1352613530_) - (cons _g1352513528_ _g1352613530_)) + _g1422914233_) + (cons _g1422814231_ _g1422914233_)) '() - _L13497_))) + _L14200_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each gxc#compile-e (begin '#!void - (foldr1 (lambda (_g1353213535_ + (foldr1 (lambda (_g1423514238_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1353313537_) - (cons _g1353213535_ _g1353313537_)) + _g1423614240_) + (cons _g1423514238_ _g1423614240_)) '() - _L13497_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gxc#compile-e _L13496_))) - _hd1341713491_ - _expr1340813483_ - _hd1340913485_) - (_g1338813423_ _g1338913426_)))) - (_g1338813423_ _g1338913426_))))))) - (_loop1340213449_ _target1339913444_ '() '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1338813423_ - _g1338913426_))))) - (_g1338813423_ _g1338913426_)) - (_g1338813423_ _g1338913426_)))) - (_g1338813423_ _g1338913426_)))) - (_g1338813423_ _g1338913426_))))) - (_g1338713540_ _stx13384_)))))) + _L14200_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gxc#compile-e _L14199_))) + _hd1412014194_ + _expr1411114186_ + _hd1411214188_) + (_g1409114126_ _g1409214129_)))) + (_g1409114126_ _g1409214129_))))))) + (_loop1410514152_ _target1410214147_ '() '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1409114126_ + _g1409214129_))))) + (_g1409114126_ _g1409214129_)) + (_g1409114126_ _g1409214129_)))) + (_g1409114126_ _g1409214129_)))) + (_g1409114126_ _g1409214129_))))) + (_g1409014243_ _stx14087_)))))) (define gxc#collect-type-call% - (lambda (_stx12938_) - (let ((_g1294213044_ - (lambda (_g1294313041_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1294313041_)))) - (let ((_g1294113051_ (lambda (_g1294313047_) ((lambda () '#!void))))) - (let ((_g1294013201_ - (lambda (_g1294313054_) - (if (gx#stx-pair? _g1294313054_) - (let ((_e1300113056_ (gx#stx-e _g1294313054_))) - (let ((_hd1300213059_ (##car _e1300113056_)) - (_tl1300313061_ (##cdr _e1300113056_))) - (if (gx#stx-pair? _tl1300313061_) - (let ((_e1300413064_ (gx#stx-e _tl1300313061_))) - (let ((_hd1300513067_ (##car _e1300413064_)) - (_tl1300613069_ (##cdr _e1300413064_))) - (if (gx#stx-pair? _hd1300513067_) - (let ((_e1300713072_ - (gx#stx-e _hd1300513067_))) - (let ((_hd1300813075_ - (##car _e1300713072_)) - (_tl1300913077_ - (##cdr _e1300713072_))) - (if (gx#identifier? _hd1300813075_) + (lambda (_stx13641_) + (let ((_g1364513747_ + (lambda (_g1364613744_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1364613744_)))) + (let ((_g1364413754_ (lambda (_g1364613750_) ((lambda () '#!void))))) + (let ((_g1364313904_ + (lambda (_g1364613757_) + (if (gx#stx-pair? _g1364613757_) + (let ((_e1370413759_ (gx#stx-e _g1364613757_))) + (let ((_hd1370513762_ (##car _e1370413759_)) + (_tl1370613764_ (##cdr _e1370413759_))) + (if (gx#stx-pair? _tl1370613764_) + (let ((_e1370713767_ (gx#stx-e _tl1370613764_))) + (let ((_hd1370813770_ (##car _e1370713767_)) + (_tl1370913772_ (##cdr _e1370713767_))) + (if (gx#stx-pair? _hd1370813770_) + (let ((_e1371013775_ + (gx#stx-e _hd1370813770_))) + (let ((_hd1371113778_ + (##car _e1371013775_)) + (_tl1371213780_ + (##cdr _e1371013775_))) + (if (gx#identifier? _hd1371113778_) (if (gx#stx-eq? '%#ref - _hd1300813075_) + _hd1371113778_) (if (gx#stx-pair? - _tl1300913077_) - (let ((_e1301013080_ + _tl1371213780_) + (let ((_e1371313783_ (gx#stx-e - _tl1300913077_))) - (let ((_hd1301113083_ - (##car _e1301013080_)) - (_tl1301213085_ - (##cdr _e1301013080_))) + _tl1371213780_))) + (let ((_hd1371413786_ + (##car _e1371313783_)) + (_tl1371513788_ + (##cdr _e1371313783_))) (if (gx#stx-null? - _tl1301213085_) + _tl1371513788_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1300613069_) - (let ((_e1301313088_ (gx#stx-e _tl1300613069_))) - (let ((_hd1301413091_ (##car _e1301313088_)) - (_tl1301513093_ (##cdr _e1301313088_))) - (if (gx#stx-pair? _hd1301413091_) - (let ((_e1301613096_ - (gx#stx-e _hd1301413091_))) - (let ((_hd1301713099_ - (##car _e1301613096_)) - (_tl1301813101_ - (##cdr _e1301613096_))) - (if (gx#identifier? _hd1301713099_) + _tl1370913772_) + (let ((_e1371613791_ (gx#stx-e _tl1370913772_))) + (let ((_hd1371713794_ (##car _e1371613791_)) + (_tl1371813796_ (##cdr _e1371613791_))) + (if (gx#stx-pair? _hd1371713794_) + (let ((_e1371913799_ + (gx#stx-e _hd1371713794_))) + (let ((_hd1372013802_ + (##car _e1371913799_)) + (_tl1372113804_ + (##cdr _e1371913799_))) + (if (gx#identifier? _hd1372013802_) (if (gx#stx-eq? '%#ref - _hd1301713099_) + _hd1372013802_) (if (gx#stx-pair? - _tl1301813101_) - (let ((_e1301913104_ + _tl1372113804_) + (let ((_e1372213807_ (gx#stx-e - _tl1301813101_))) - (let ((_hd1302013107_ - (##car _e1301913104_)) - (_tl1302113109_ - (##cdr _e1301913104_))) + _tl1372113804_))) + (let ((_hd1372313810_ + (##car _e1372213807_)) + (_tl1372413812_ + (##cdr _e1372213807_))) (if (gx#stx-null? - _tl1302113109_) + _tl1372413812_) (if (gx#stx-pair? - _tl1301513093_) - (let ((_e1302213112_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1301513093_))) - (let ((_hd1302313115_ (##car _e1302213112_)) - (_tl1302413117_ (##cdr _e1302213112_))) - (if (gx#stx-pair? _hd1302313115_) - (let ((_e1302513120_ (gx#stx-e _hd1302313115_))) - (let ((_hd1302613123_ (##car _e1302513120_)) - (_tl1302713125_ (##cdr _e1302513120_))) - (if (gx#identifier? _hd1302613123_) - (if (gx#stx-eq? '%#quote _hd1302613123_) - (if (gx#stx-pair? _tl1302713125_) - (let ((_e1302813128_ + _tl1371813796_) + (let ((_e1372513815_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _tl1371813796_))) + (let ((_hd1372613818_ (##car _e1372513815_)) + (_tl1372713820_ (##cdr _e1372513815_))) + (if (gx#stx-pair? _hd1372613818_) + (let ((_e1372813823_ (gx#stx-e _hd1372613818_))) + (let ((_hd1372913826_ (##car _e1372813823_)) + (_tl1373013828_ (##cdr _e1372813823_))) + (if (gx#identifier? _hd1372913826_) + (if (gx#stx-eq? '%#quote _hd1372913826_) + (if (gx#stx-pair? _tl1373013828_) + (let ((_e1373113831_ (gx#stx-e - _tl1302713125_))) - (let ((_hd1302913131_ - (##car _e1302813128_)) - (_tl1303013133_ - (##cdr _e1302813128_))) + _tl1373013828_))) + (let ((_hd1373213834_ + (##car _e1373113831_)) + (_tl1373313836_ + (##cdr _e1373113831_))) (if (gx#stx-null? - _tl1303013133_) + _tl1373313836_) (if (gx#stx-pair? - _tl1302413117_) - (let ((_e1303113136_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1302413117_))) - (let ((_hd1303213139_ (##car _e1303113136_)) - (_tl1303313141_ (##cdr _e1303113136_))) - (if (gx#stx-pair? _hd1303213139_) - (let ((_e1303413144_ (gx#stx-e _hd1303213139_))) - (let ((_hd1303513147_ (##car _e1303413144_)) - (_tl1303613149_ (##cdr _e1303413144_))) - (if (gx#identifier? _hd1303513147_) - (if (gx#stx-eq? '%#ref _hd1303513147_) - (if (gx#stx-pair? _tl1303613149_) - (let ((_e1303713152_ - (gx#stx-e _tl1303613149_))) - (let ((_hd1303813155_ - (##car _e1303713152_)) - (_tl1303913157_ - (##cdr _e1303713152_))) + _tl1372713820_) + (let ((_e1373413839_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _tl1372713820_))) + (let ((_hd1373513842_ (##car _e1373413839_)) + (_tl1373613844_ (##cdr _e1373413839_))) + (if (gx#stx-pair? _hd1373513842_) + (let ((_e1373713847_ (gx#stx-e _hd1373513842_))) + (let ((_hd1373813850_ (##car _e1373713847_)) + (_tl1373913852_ (##cdr _e1373713847_))) + (if (gx#identifier? _hd1373813850_) + (if (gx#stx-eq? '%#ref _hd1373813850_) + (if (gx#stx-pair? _tl1373913852_) + (let ((_e1374013855_ + (gx#stx-e _tl1373913852_))) + (let ((_hd1374113858_ + (##car _e1374013855_)) + (_tl1374213860_ + (##cdr _e1374013855_))) (if (gx#stx-null? - _tl1303913157_) + _tl1374213860_) (if (gx#stx-null? - _tl1303313141_) - ((lambda (_L13160_ + _tl1373613844_) + ((lambda (_L13863_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L13161_ - _L13162_ - _L13163_) + _L13864_ + _L13865_ + _L13866_) (if (eq? (gxc#generate-runtime-binding-id - (gx#datum->syntax '#f '-bind-method)) + (gx#datum->syntax__0 '#f '-bind-method)) 'bind-method!) - (gxc#optimizer-declare-method!__opt-lambda18265 - (gxc#generate-runtime-binding-id _L13162_) - (gx#stx-e _L13161_) - (gxc#generate-runtime-binding-id _L13160_) + (gxc#optimizer-declare-method!__opt-lambda18968 + (gxc#generate-runtime-binding-id _L13865_) + (gx#stx-e _L13864_) + (gxc#generate-runtime-binding-id _L13863_) '#f) - (_g1294113051_ _g1294313054_))) - _hd1303813155_ - _hd1302913131_ - _hd1302013107_ - _hd1301113083_) - (_g1294113051_ _g1294313054_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1294113051_ - _g1294313054_)))) - (_g1294113051_ _g1294313054_)) - (_g1294113051_ _g1294313054_)) - (_g1294113051_ _g1294313054_)))) - (_g1294113051_ _g1294313054_)))) - (_g1294113051_ _g1294313054_)) - (_g1294113051_ _g1294313054_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1294113051_ _g1294313054_)) - (_g1294113051_ _g1294313054_)) - (_g1294113051_ _g1294313054_)))) - (_g1294113051_ _g1294313054_)))) - (_g1294113051_ _g1294313054_)) - (_g1294113051_ _g1294313054_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1294113051_ - _g1294313054_)) - (_g1294113051_ _g1294313054_)) - (_g1294113051_ _g1294313054_)))) - (_g1294113051_ _g1294313054_)))) - (_g1294113051_ _g1294313054_)) - (_g1294113051_ _g1294313054_)))) - (_g1294113051_ _g1294313054_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1294113051_ - _g1294313054_)) - (_g1294113051_ _g1294313054_)))) - (_g1294113051_ _g1294313054_)))) - (_g1294113051_ _g1294313054_)))) - (_g1294113051_ _g1294313054_))))) - (let ((_g1293913381_ - (lambda (_g1294313204_) - (if (gx#stx-pair? _g1294313204_) - (let ((_e1294913206_ (gx#stx-e _g1294313204_))) - (let ((_hd1295013209_ (##car _e1294913206_)) - (_tl1295113211_ (##cdr _e1294913206_))) - (if (gx#stx-pair? _tl1295113211_) - (let ((_e1295213214_ - (gx#stx-e _tl1295113211_))) - (let ((_hd1295313217_ (##car _e1295213214_)) - (_tl1295413219_ - (##cdr _e1295213214_))) - (if (gx#stx-pair? _hd1295313217_) - (let ((_e1295513222_ - (gx#stx-e _hd1295313217_))) - (let ((_hd1295613225_ - (##car _e1295513222_)) - (_tl1295713227_ - (##cdr _e1295513222_))) + (_g1364413754_ _g1364613757_))) + _hd1374113858_ + _hd1373213834_ + _hd1372313810_ + _hd1371413786_) + (_g1364413754_ _g1364613757_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1364413754_ + _g1364613757_)))) + (_g1364413754_ _g1364613757_)) + (_g1364413754_ _g1364613757_)) + (_g1364413754_ _g1364613757_)))) + (_g1364413754_ _g1364613757_)))) + (_g1364413754_ _g1364613757_)) + (_g1364413754_ _g1364613757_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1364413754_ _g1364613757_)) + (_g1364413754_ _g1364613757_)) + (_g1364413754_ _g1364613757_)))) + (_g1364413754_ _g1364613757_)))) + (_g1364413754_ _g1364613757_)) + (_g1364413754_ _g1364613757_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1364413754_ + _g1364613757_)) + (_g1364413754_ _g1364613757_)) + (_g1364413754_ _g1364613757_)))) + (_g1364413754_ _g1364613757_)))) + (_g1364413754_ _g1364613757_)) + (_g1364413754_ _g1364613757_)))) + (_g1364413754_ _g1364613757_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1364413754_ + _g1364613757_)) + (_g1364413754_ _g1364613757_)))) + (_g1364413754_ _g1364613757_)))) + (_g1364413754_ _g1364613757_)))) + (_g1364413754_ _g1364613757_))))) + (let ((_g1364214084_ + (lambda (_g1364613907_) + (if (gx#stx-pair? _g1364613907_) + (let ((_e1365213909_ (gx#stx-e _g1364613907_))) + (let ((_hd1365313912_ (##car _e1365213909_)) + (_tl1365413914_ (##cdr _e1365213909_))) + (if (gx#stx-pair? _tl1365413914_) + (let ((_e1365513917_ + (gx#stx-e _tl1365413914_))) + (let ((_hd1365613920_ (##car _e1365513917_)) + (_tl1365713922_ + (##cdr _e1365513917_))) + (if (gx#stx-pair? _hd1365613920_) + (let ((_e1365813925_ + (gx#stx-e _hd1365613920_))) + (let ((_hd1365913928_ + (##car _e1365813925_)) + (_tl1366013930_ + (##cdr _e1365813925_))) (if (gx#identifier? - _hd1295613225_) + _hd1365913928_) (if (gx#stx-eq? '%#ref - _hd1295613225_) + _hd1365913928_) (if (gx#stx-pair? - _tl1295713227_) - (let ((_e1295813230_ + _tl1366013930_) + (let ((_e1366113933_ (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1295713227_))) - (let ((_hd1295913233_ (##car _e1295813230_)) - (_tl1296013235_ (##cdr _e1295813230_))) - (if (gx#stx-null? _tl1296013235_) - (if (gx#stx-pair? _tl1295413219_) - (let ((_e1296113238_ (gx#stx-e _tl1295413219_))) - (let ((_hd1296213241_ (##car _e1296113238_)) - (_tl1296313243_ (##cdr _e1296113238_))) - (if (gx#stx-pair? _hd1296213241_) - (let ((_e1296413246_ - (gx#stx-e _hd1296213241_))) - (let ((_hd1296513249_ - (##car _e1296413246_)) - (_tl1296613251_ - (##cdr _e1296413246_))) - (if (gx#identifier? _hd1296513249_) + _tl1366013930_))) + (let ((_hd1366213936_ (##car _e1366113933_)) + (_tl1366313938_ (##cdr _e1366113933_))) + (if (gx#stx-null? _tl1366313938_) + (if (gx#stx-pair? _tl1365713922_) + (let ((_e1366413941_ (gx#stx-e _tl1365713922_))) + (let ((_hd1366513944_ (##car _e1366413941_)) + (_tl1366613946_ (##cdr _e1366413941_))) + (if (gx#stx-pair? _hd1366513944_) + (let ((_e1366713949_ + (gx#stx-e _hd1366513944_))) + (let ((_hd1366813952_ + (##car _e1366713949_)) + (_tl1366913954_ + (##cdr _e1366713949_))) + (if (gx#identifier? _hd1366813952_) (if (gx#stx-eq? '%#ref - _hd1296513249_) + _hd1366813952_) (if (gx#stx-pair? - _tl1296613251_) - (let ((_e1296713254_ + _tl1366913954_) + (let ((_e1367013957_ (gx#stx-e - _tl1296613251_))) - (let ((_hd1296813257_ - (##car _e1296713254_)) - (_tl1296913259_ - (##cdr _e1296713254_))) + _tl1366913954_))) + (let ((_hd1367113960_ + (##car _e1367013957_)) + (_tl1367213962_ + (##cdr _e1367013957_))) (if (gx#stx-null? - _tl1296913259_) + _tl1367213962_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1296313243_) - (let ((_e1297013262_ (gx#stx-e _tl1296313243_))) - (let ((_hd1297113265_ (##car _e1297013262_)) - (_tl1297213267_ (##cdr _e1297013262_))) - (if (gx#stx-pair? _hd1297113265_) - (let ((_e1297313270_ - (gx#stx-e _hd1297113265_))) - (let ((_hd1297413273_ (##car _e1297313270_)) - (_tl1297513275_ - (##cdr _e1297313270_))) - (if (gx#identifier? _hd1297413273_) + _tl1366613946_) + (let ((_e1367313965_ (gx#stx-e _tl1366613946_))) + (let ((_hd1367413968_ (##car _e1367313965_)) + (_tl1367513970_ (##cdr _e1367313965_))) + (if (gx#stx-pair? _hd1367413968_) + (let ((_e1367613973_ + (gx#stx-e _hd1367413968_))) + (let ((_hd1367713976_ (##car _e1367613973_)) + (_tl1367813978_ + (##cdr _e1367613973_))) + (if (gx#identifier? _hd1367713976_) (if (gx#stx-eq? '%#quote - _hd1297413273_) - (if (gx#stx-pair? _tl1297513275_) - (let ((_e1297613278_ + _hd1367713976_) + (if (gx#stx-pair? _tl1367813978_) + (let ((_e1367913981_ (gx#stx-e - _tl1297513275_))) - (let ((_hd1297713281_ - (##car _e1297613278_)) - (_tl1297813283_ - (##cdr _e1297613278_))) + _tl1367813978_))) + (let ((_hd1368013984_ + (##car _e1367913981_)) + (_tl1368113986_ + (##cdr _e1367913981_))) (if (gx#stx-null? - _tl1297813283_) + _tl1368113986_) (if (gx#stx-pair? - _tl1297213267_) - (let ((_e1297913286_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1297213267_))) - (let ((_hd1298013289_ (##car _e1297913286_)) - (_tl1298113291_ (##cdr _e1297913286_))) - (if (gx#stx-pair? _hd1298013289_) - (let ((_e1298213294_ (gx#stx-e _hd1298013289_))) - (let ((_hd1298313297_ (##car _e1298213294_)) - (_tl1298413299_ (##cdr _e1298213294_))) - (if (gx#identifier? _hd1298313297_) - (if (gx#stx-eq? '%#ref _hd1298313297_) - (if (gx#stx-pair? _tl1298413299_) - (let ((_e1298513302_ - (gx#stx-e _tl1298413299_))) - (let ((_hd1298613305_ - (##car _e1298513302_)) - (_tl1298713307_ - (##cdr _e1298513302_))) + _tl1367513970_) + (let ((_e1368213989_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _tl1367513970_))) + (let ((_hd1368313992_ (##car _e1368213989_)) + (_tl1368413994_ (##cdr _e1368213989_))) + (if (gx#stx-pair? _hd1368313992_) + (let ((_e1368513997_ (gx#stx-e _hd1368313992_))) + (let ((_hd1368614000_ (##car _e1368513997_)) + (_tl1368714002_ (##cdr _e1368513997_))) + (if (gx#identifier? _hd1368614000_) + (if (gx#stx-eq? '%#ref _hd1368614000_) + (if (gx#stx-pair? _tl1368714002_) + (let ((_e1368814005_ + (gx#stx-e _tl1368714002_))) + (let ((_hd1368914008_ + (##car _e1368814005_)) + (_tl1369014010_ + (##cdr _e1368814005_))) (if (gx#stx-null? - _tl1298713307_) + _tl1369014010_) (if (gx#stx-pair? - _tl1298113291_) - (let ((_e1298813310_ + _tl1368413994_) + (let ((_e1369114013_ (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1298113291_))) - (let ((_hd1298913313_ (##car _e1298813310_)) - (_tl1299013315_ (##cdr _e1298813310_))) - (if (gx#stx-pair? _hd1298913313_) - (let ((_e1299113318_ (gx#stx-e _hd1298913313_))) - (let ((_hd1299213321_ (##car _e1299113318_)) - (_tl1299313323_ (##cdr _e1299113318_))) - (if (gx#identifier? _hd1299213321_) - (if (gx#stx-eq? '%#quote _hd1299213321_) - (if (gx#stx-pair? _tl1299313323_) - (let ((_e1299413326_ - (gx#stx-e _tl1299313323_))) - (let ((_hd1299513329_ - (##car _e1299413326_)) - (_tl1299613331_ - (##cdr _e1299413326_))) - (if (gx#stx-null? _tl1299613331_) + _tl1368413994_))) + (let ((_hd1369214016_ (##car _e1369114013_)) + (_tl1369314018_ (##cdr _e1369114013_))) + (if (gx#stx-pair? _hd1369214016_) + (let ((_e1369414021_ (gx#stx-e _hd1369214016_))) + (let ((_hd1369514024_ (##car _e1369414021_)) + (_tl1369614026_ (##cdr _e1369414021_))) + (if (gx#identifier? _hd1369514024_) + (if (gx#stx-eq? '%#quote _hd1369514024_) + (if (gx#stx-pair? _tl1369614026_) + (let ((_e1369714029_ + (gx#stx-e _tl1369614026_))) + (let ((_hd1369814032_ + (##car _e1369714029_)) + (_tl1369914034_ + (##cdr _e1369714029_))) + (if (gx#stx-null? _tl1369914034_) (if (gx#stx-null? - _tl1299013315_) - ((lambda (_L13334_ - _L13335_ - _L13336_ - _L13337_ - _L13338_) + _tl1369314018_) + ((lambda (_L14037_ + _L14038_ + _L14039_ + _L14040_ + _L14041_) (if (eq? (gxc#generate-runtime-binding-id ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L13338_) + _L14041_) 'bind-method!) - (gxc#optimizer-declare-method!__opt-lambda18265 - (gxc#generate-runtime-binding-id _L13337_) - (gx#stx-e _L13336_) - (gxc#generate-runtime-binding-id _L13335_) - (gx#stx-e _L13334_)) - (_g1294013201_ _g1294313204_))) - _hd1299513329_ - _hd1298613305_ - _hd1297713281_ - _hd1296813257_ - _hd1295913233_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1294013201_ - _g1294313204_)) - (_g1294013201_ - _g1294313204_)))) - (_g1294013201_ _g1294313204_)) - (_g1294013201_ _g1294313204_)) - (_g1294013201_ _g1294313204_)))) - (_g1294013201_ _g1294313204_)))) - (_g1294013201_ _g1294313204_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1294013201_ - _g1294313204_)))) - (_g1294013201_ _g1294313204_)) - (_g1294013201_ _g1294313204_)) - (_g1294013201_ _g1294313204_)))) - (_g1294013201_ _g1294313204_)))) - (_g1294013201_ _g1294313204_)) - (_g1294013201_ _g1294313204_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1294013201_ _g1294313204_)) - (_g1294013201_ _g1294313204_)) - (_g1294013201_ _g1294313204_)))) - (_g1294013201_ _g1294313204_)))) - (_g1294013201_ _g1294313204_)) - (_g1294013201_ _g1294313204_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1294013201_ - _g1294313204_)) - (_g1294013201_ _g1294313204_)) - (_g1294013201_ _g1294313204_)))) - (_g1294013201_ _g1294313204_)))) - (_g1294013201_ _g1294313204_)) - (_g1294013201_ _g1294313204_)))) - (_g1294013201_ _g1294313204_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1294013201_ - _g1294313204_)) - (_g1294013201_ - _g1294313204_)))) - (_g1294013201_ _g1294313204_)))) - (_g1294013201_ _g1294313204_)))) - (_g1294013201_ _g1294313204_))))) - (_g1293913381_ _stx12938_))))))) + (gxc#optimizer-declare-method!__opt-lambda18968 + (gxc#generate-runtime-binding-id _L14040_) + (gx#stx-e _L14039_) + (gxc#generate-runtime-binding-id _L14038_) + (gx#stx-e _L14037_)) + (_g1364313904_ _g1364613907_))) + _hd1369814032_ + _hd1368914008_ + _hd1368013984_ + _hd1367113960_ + _hd1366213936_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1364313904_ + _g1364613907_)) + (_g1364313904_ + _g1364613907_)))) + (_g1364313904_ _g1364613907_)) + (_g1364313904_ _g1364613907_)) + (_g1364313904_ _g1364613907_)))) + (_g1364313904_ _g1364613907_)))) + (_g1364313904_ _g1364613907_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1364313904_ + _g1364613907_)))) + (_g1364313904_ _g1364613907_)) + (_g1364313904_ _g1364613907_)) + (_g1364313904_ _g1364613907_)))) + (_g1364313904_ _g1364613907_)))) + (_g1364313904_ _g1364613907_)) + (_g1364313904_ _g1364613907_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1364313904_ _g1364613907_)) + (_g1364313904_ _g1364613907_)) + (_g1364313904_ _g1364613907_)))) + (_g1364313904_ _g1364613907_)))) + (_g1364313904_ _g1364613907_)) + (_g1364313904_ _g1364613907_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1364313904_ + _g1364613907_)) + (_g1364313904_ _g1364613907_)) + (_g1364313904_ _g1364613907_)))) + (_g1364313904_ _g1364613907_)))) + (_g1364313904_ _g1364613907_)) + (_g1364313904_ _g1364613907_)))) + (_g1364313904_ _g1364613907_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1364313904_ + _g1364613907_)) + (_g1364313904_ + _g1364613907_)))) + (_g1364313904_ _g1364613907_)))) + (_g1364313904_ _g1364613907_)))) + (_g1364313904_ _g1364613907_))))) + (_g1364214084_ _stx13641_))))))) (define gxc#basic-expression-type-begin% - (lambda (_stx12878_) - (let ((_g1288112894_ - (lambda (_g1288212891_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1288212891_)))) - (let ((_g1288012901_ (lambda (_g1288212897_) ((lambda () '#f))))) - (let ((_g1287912935_ - (lambda (_g1288212904_) - (if (gx#stx-pair? _g1288212904_) - (let ((_e1288412906_ (gx#stx-e _g1288212904_))) - (let ((_hd1288512909_ (##car _e1288412906_)) - (_tl1288612911_ (##cdr _e1288412906_))) - (if (gx#stx-pair? _tl1288612911_) - (let ((_e1288712914_ (gx#stx-e _tl1288612911_))) - (let ((_hd1288812917_ (##car _e1288712914_)) - (_tl1288912919_ (##cdr _e1288712914_))) - (if (gx#stx-null? _tl1288912919_) - ((lambda (_L12922_) - (gxc#compile-e _L12922_)) - _hd1288812917_) - (_g1288012901_ _g1288212904_)))) - (_g1288012901_ _g1288212904_)))) - (_g1288012901_ _g1288212904_))))) - (_g1287912935_ _stx12878_)))))) + (lambda (_stx13581_) + (let ((_g1358413597_ + (lambda (_g1358513594_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1358513594_)))) + (let ((_g1358313604_ (lambda (_g1358513600_) ((lambda () '#f))))) + (let ((_g1358213638_ + (lambda (_g1358513607_) + (if (gx#stx-pair? _g1358513607_) + (let ((_e1358713609_ (gx#stx-e _g1358513607_))) + (let ((_hd1358813612_ (##car _e1358713609_)) + (_tl1358913614_ (##cdr _e1358713609_))) + (if (gx#stx-pair? _tl1358913614_) + (let ((_e1359013617_ (gx#stx-e _tl1358913614_))) + (let ((_hd1359113620_ (##car _e1359013617_)) + (_tl1359213622_ (##cdr _e1359013617_))) + (if (gx#stx-null? _tl1359213622_) + ((lambda (_L13625_) + (gxc#compile-e _L13625_)) + _hd1359113620_) + (_g1358313604_ _g1358513607_)))) + (_g1358313604_ _g1358513607_)))) + (_g1358313604_ _g1358513607_))))) + (_g1358213638_ _stx13581_)))))) (define gxc#basic-expression-type-lambda% - (lambda (_stx12303_) - (let ((_g1230812429_ - (lambda (_g1230912426_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1230912426_)))) - (let ((_g1230712436_ (lambda (_g1230912432_) ((lambda () '#f))))) - (let ((_g1230612460_ - (lambda (_g1230912439_) - (if (gx#stx-pair? _g1230912439_) - (let ((_e1242212441_ (gx#stx-e _g1230912439_))) - (let ((_hd1242312444_ (##car _e1242212441_)) - (_tl1242412446_ (##cdr _e1242212441_))) - ((lambda (_L12449_) - (if (gxc#dispatch-lambda-form? _L12449_) - (let ((__obj18515 + (lambda (_stx13006_) + (let ((_g1301113132_ + (lambda (_g1301213129_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1301213129_)))) + (let ((_g1301013139_ (lambda (_g1301213135_) ((lambda () '#f))))) + (let ((_g1300913163_ + (lambda (_g1301213142_) + (if (gx#stx-pair? _g1301213142_) + (let ((_e1312513144_ (gx#stx-e _g1301213142_))) + (let ((_hd1312613147_ (##car _e1312513144_)) + (_tl1312713149_ (##cdr _e1312513144_))) + ((lambda (_L13152_) + (if (gxc#dispatch-lambda-form? _L13152_) + (let ((__obj19220 (make-object gxc#!lambda::t '5))) (begin (gxc#!lambda:::init!__0 - __obj18515 + __obj19220 'lambda - (gxc#lambda-form-arity _L12449_) + (gxc#lambda-form-arity _L13152_) (gxc#dispatch-lambda-form-delegate - _L12449_)) - __obj18515)) - (_g1230712436_ _g1230912439_))) - _tl1242412446_))) - (_g1230712436_ _g1230912439_))))) - (let ((_g1230512690_ - (lambda (_g1230912463_) - (if (gx#stx-pair? _g1230912463_) - (let ((_e1236712465_ (gx#stx-e _g1230912463_))) - (let ((_hd1236812468_ (##car _e1236712465_)) - (_tl1236912470_ (##cdr _e1236712465_))) - (if (gx#stx-pair? _tl1236912470_) - (let ((_e1237012473_ - (gx#stx-e _tl1236912470_))) - (let ((_hd1237112476_ (##car _e1237012473_)) - (_tl1237212478_ - (##cdr _e1237012473_))) - (if (gx#stx-pair/null? _hd1237112476_) + _L13152_)) + __obj19220)) + (_g1301013139_ _g1301213142_))) + _tl1312713149_))) + (_g1301013139_ _g1301213142_))))) + (let ((_g1300813393_ + (lambda (_g1301213166_) + (if (gx#stx-pair? _g1301213166_) + (let ((_e1307013168_ (gx#stx-e _g1301213166_))) + (let ((_hd1307113171_ (##car _e1307013168_)) + (_tl1307213173_ (##cdr _e1307013168_))) + (if (gx#stx-pair? _tl1307213173_) + (let ((_e1307313176_ + (gx#stx-e _tl1307213173_))) + (let ((_hd1307413179_ (##car _e1307313176_)) + (_tl1307513181_ + (##cdr _e1307313176_))) + (if (gx#stx-pair/null? _hd1307413179_) (if (fx>= (gx#stx-length - _hd1237112476_) + _hd1307413179_) '0) - (let ((_g18577_ + (let ((_g19282_ (gx#syntax-split-splice - _hd1237112476_ + _hd1307413179_ '0))) (begin - (let ((_g18578_ + (let ((_g19283_ (values-count - _g18577_))) - (if (not (fx= _g18578_ 2)) + _g19282_))) + (if (not (fx= _g19283_ 2)) (error "Context expects 2 values" - _g18578_))) - (let ((_target1237312481_ + _g19283_))) + (let ((_target1307613184_ (values-ref - _g18577_ + _g19282_ 0)) - (_tl1237512483_ + (_tl1307813186_ (values-ref - _g18577_ + _g19282_ 1))) (if (gx#stx-null? - _tl1237512483_) - (letrec ((_loop1237612486_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd1237412489_ _arg1238012491_) - (if (gx#stx-pair? _hd1237412489_) - (let ((_e1237712494_ (gx#stx-e _hd1237412489_))) - (let ((_lp-hd1237812497_ - (##car _e1237712494_)) - (_lp-tl1237912499_ - (##cdr _e1237712494_))) - (_loop1237612486_ - _lp-tl1237912499_ - (cons _lp-hd1237812497_ _arg1238012491_)))) - (let ((_arg1238112502_ - (reverse _arg1238012491_))) - (if (gx#stx-pair? _tl1237212478_) - (let ((_e1238212505_ - (gx#stx-e _tl1237212478_))) - (let ((_hd1238312508_ - (##car _e1238212505_)) - (_tl1238412510_ - (##cdr _e1238212505_))) - (if (gx#stx-pair? _hd1238312508_) - (let ((_e1238512513_ - (gx#stx-e _hd1238312508_))) - (let ((_hd1238612516_ - (##car _e1238512513_)) - (_tl1238712518_ - (##cdr _e1238512513_))) + _tl1307813186_) + (letrec ((_loop1307913189_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd1307713192_ _arg1308313194_) + (if (gx#stx-pair? _hd1307713192_) + (let ((_e1308013197_ (gx#stx-e _hd1307713192_))) + (let ((_lp-hd1308113200_ + (##car _e1308013197_)) + (_lp-tl1308213202_ + (##cdr _e1308013197_))) + (_loop1307913189_ + _lp-tl1308213202_ + (cons _lp-hd1308113200_ _arg1308313194_)))) + (let ((_arg1308413205_ + (reverse _arg1308313194_))) + (if (gx#stx-pair? _tl1307513181_) + (let ((_e1308513208_ + (gx#stx-e _tl1307513181_))) + (let ((_hd1308613211_ + (##car _e1308513208_)) + (_tl1308713213_ + (##cdr _e1308513208_))) + (if (gx#stx-pair? _hd1308613211_) + (let ((_e1308813216_ + (gx#stx-e _hd1308613211_))) + (let ((_hd1308913219_ + (##car _e1308813216_)) + (_tl1309013221_ + (##cdr _e1308813216_))) (if (gx#identifier? - _hd1238612516_) + _hd1308913219_) (if (gx#stx-eq? '%#call - _hd1238612516_) + _hd1308913219_) (if (gx#stx-pair? - _tl1238712518_) - (let ((_e1238812521_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1238712518_))) - (let ((_hd1238912524_ (##car _e1238812521_)) - (_tl1239012526_ (##cdr _e1238812521_))) - (if (gx#stx-pair? _hd1238912524_) - (let ((_e1239112529_ (gx#stx-e _hd1238912524_))) - (let ((_hd1239212532_ (##car _e1239112529_)) - (_tl1239312534_ (##cdr _e1239112529_))) - (if (gx#identifier? _hd1239212532_) - (if (gx#stx-eq? '%#ref _hd1239212532_) - (if (gx#stx-pair? _tl1239312534_) - (let ((_e1239412537_ - (gx#stx-e _tl1239312534_))) - (let ((_hd1239512540_ - (##car _e1239412537_)) - (_tl1239612542_ - (##cdr _e1239412537_))) + _tl1309013221_) + (let ((_e1309113224_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _tl1309013221_))) + (let ((_hd1309213227_ (##car _e1309113224_)) + (_tl1309313229_ (##cdr _e1309113224_))) + (if (gx#stx-pair? _hd1309213227_) + (let ((_e1309413232_ (gx#stx-e _hd1309213227_))) + (let ((_hd1309513235_ (##car _e1309413232_)) + (_tl1309613237_ (##cdr _e1309413232_))) + (if (gx#identifier? _hd1309513235_) + (if (gx#stx-eq? '%#ref _hd1309513235_) + (if (gx#stx-pair? _tl1309613237_) + (let ((_e1309713240_ + (gx#stx-e _tl1309613237_))) + (let ((_hd1309813243_ + (##car _e1309713240_)) + (_tl1309913245_ + (##cdr _e1309713240_))) (if (gx#stx-null? - _tl1239612542_) + _tl1309913245_) (if (gx#stx-pair? - _tl1239012526_) - (let ((_e1239712545_ + _tl1309313229_) + (let ((_e1310013248_ (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1239012526_))) - (let ((_hd1239812548_ (##car _e1239712545_)) - (_tl1239912550_ (##cdr _e1239712545_))) - (if (gx#stx-pair? _hd1239812548_) - (let ((_e1240012553_ (gx#stx-e _hd1239812548_))) - (let ((_hd1240112556_ (##car _e1240012553_)) - (_tl1240212558_ (##cdr _e1240012553_))) - (if (gx#identifier? _hd1240112556_) - (if (gx#stx-eq? '%#ref _hd1240112556_) - (if (gx#stx-pair? _tl1240212558_) - (let ((_e1240312561_ - (gx#stx-e _tl1240212558_))) - (let ((_hd1240412564_ - (##car _e1240312561_)) - (_tl1240512566_ - (##cdr _e1240312561_))) - (if (gx#stx-null? _tl1240512566_) + _tl1309313229_))) + (let ((_hd1310113251_ (##car _e1310013248_)) + (_tl1310213253_ (##cdr _e1310013248_))) + (if (gx#stx-pair? _hd1310113251_) + (let ((_e1310313256_ (gx#stx-e _hd1310113251_))) + (let ((_hd1310413259_ (##car _e1310313256_)) + (_tl1310513261_ (##cdr _e1310313256_))) + (if (gx#identifier? _hd1310413259_) + (if (gx#stx-eq? '%#ref _hd1310413259_) + (if (gx#stx-pair? _tl1310513261_) + (let ((_e1310613264_ + (gx#stx-e _tl1310513261_))) + (let ((_hd1310713267_ + (##car _e1310613264_)) + (_tl1310813269_ + (##cdr _e1310613264_))) + (if (gx#stx-null? _tl1310813269_) (if (gx#stx-pair/null? - _tl1239912550_) + _tl1310213253_) (if (fx>= (gx#stx-length - _tl1239912550_) + _tl1310213253_) '0) - (let ((_g18579_ + (let ((_g19284_ (gx#syntax-split-splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1239912550_ + _tl1310213253_ '0))) (begin - (let ((_g18580_ (values-count _g18579_))) - (if (not (fx= _g18580_ 2)) - (error "Context expects 2 values" _g18580_))) - (let ((_target1240612569_ (values-ref _g18579_ 0)) - (_tl1240812571_ (values-ref _g18579_ 1))) - (if (gx#stx-null? _tl1240812571_) - (letrec ((_loop1240912574_ - (lambda (_hd1240712577_ _xarg1241312579_) - (if (gx#stx-pair? _hd1240712577_) - (let ((_e1241012582_ - (gx#stx-e _hd1240712577_))) - (let ((_lp-hd1241112585_ - (##car _e1241012582_)) - (_lp-tl1241212587_ - (##cdr _e1241012582_))) + (let ((_g19285_ (values-count _g19284_))) + (if (not (fx= _g19285_ 2)) + (error "Context expects 2 values" _g19285_))) + (let ((_target1310913272_ (values-ref _g19284_ 0)) + (_tl1311113274_ (values-ref _g19284_ 1))) + (if (gx#stx-null? _tl1311113274_) + (letrec ((_loop1311213277_ + (lambda (_hd1311013280_ _xarg1311613282_) + (if (gx#stx-pair? _hd1311013280_) + (let ((_e1311313285_ + (gx#stx-e _hd1311013280_))) + (let ((_lp-hd1311413288_ + (##car _e1311313285_)) + (_lp-tl1311513290_ + (##cdr _e1311313285_))) (if (gx#stx-pair? - _lp-hd1241112585_) - (let ((_e1241512590_ + _lp-hd1311413288_) + (let ((_e1311813293_ (gx#stx-e - _lp-hd1241112585_))) - (let ((_hd1241612593_ - (##car _e1241512590_)) - (_tl1241712595_ - (##cdr _e1241512590_))) + _lp-hd1311413288_))) + (let ((_hd1311913296_ + (##car _e1311813293_)) + (_tl1312013298_ + (##cdr _e1311813293_))) (if (gx#identifier? - _hd1241612593_) + _hd1311913296_) (if (gx#stx-eq? '%#ref - _hd1241612593_) + _hd1311913296_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1241712595_) - (let ((_e1241812598_ (gx#stx-e _tl1241712595_))) - (let ((_hd1241912601_ (##car _e1241812598_)) - (_tl1242012603_ (##cdr _e1241812598_))) - (if (gx#stx-null? _tl1242012603_) - (_loop1240912574_ - _lp-tl1241212587_ - (cons _hd1241912601_ _xarg1241312579_)) - (_g1230612460_ _g1230912463_)))) - (_g1230612460_ _g1230912463_)) - (_g1230612460_ _g1230912463_)) - (_g1230612460_ _g1230912463_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1230612460_ - _g1230912463_)))) - (let ((_xarg1241412606_ - (reverse _xarg1241312579_))) - (if (gx#stx-null? _tl1238412510_) - ((lambda (_L12609_ - _L12610_ - _L12611_ - _L12612_) + _tl1312013298_) + (let ((_e1312113301_ (gx#stx-e _tl1312013298_))) + (let ((_hd1312213304_ (##car _e1312113301_)) + (_tl1312313306_ (##cdr _e1312113301_))) + (if (gx#stx-null? _tl1312313306_) + (_loop1311213277_ + _lp-tl1311513290_ + (cons _hd1312213304_ _xarg1311613282_)) + (_g1300913163_ _g1301213166_)))) + (_g1300913163_ _g1301213166_)) + (_g1300913163_ _g1301213166_)) + (_g1300913163_ _g1301213166_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1300913163_ + _g1301213166_)))) + (let ((_xarg1311713309_ + (reverse _xarg1311613282_))) + (if (gx#stx-null? _tl1308713213_) + ((lambda (_L13312_ + _L13313_ + _L13314_ + _L13315_) (if (if (gx#identifier-list? (begin '#!void - (foldr1 (lambda (_g1264912652_ + (foldr1 (lambda (_g1335213355_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1265012654_) - (cons _g1264912652_ _g1265012654_)) + _g1335313357_) + (cons _g1335213355_ _g1335313357_)) '() - _L12612_))) - (if (eq? (gxc#generate-runtime-binding-id _L12611_) + _L13315_))) + (if (eq? (gxc#generate-runtime-binding-id _L13314_) 'make-struct-instance) (if (fx= (length (begin '#!void - (foldr1 (lambda (_g1265612659_ - _g1265712661_) - (cons _g1265612659_ - _g1265712661_)) + (foldr1 (lambda (_g1335913362_ + _g1336013364_) + (cons _g1335913362_ + _g1336013364_)) '() - _L12612_))) + _L13315_))) (length (begin '#!void - (foldr1 (lambda (_g1266312666_ - _g1266412668_) - (cons _g1266312666_ - _g1266412668_)) + (foldr1 (lambda (_g1336613369_ + _g1336713371_) + (cons _g1336613369_ + _g1336713371_)) '() - _L12609_)))) + _L13312_)))) (andmap gx#free-identifier=? (begin '#!void - (foldr1 (lambda (_g1267012673_ - _g1267112675_) - (cons _g1267012673_ - _g1267112675_)) + (foldr1 (lambda (_g1337313376_ + _g1337413378_) + (cons _g1337313376_ + _g1337413378_)) '() - _L12612_)) + _L13315_)) (begin '#!void - (foldr1 (lambda (_g1267712680_ - _g1267812682_) - (cons _g1267712680_ - _g1267812682_)) + (foldr1 (lambda (_g1338013383_ + _g1338113385_) + (cons _g1338013383_ + _g1338113385_)) '() - _L12609_))) + _L13312_))) '#f) '#f) '#f) - (let ((_type-t12685_ - (gxc#generate-runtime-binding-id _L12610_))) - (let ((_type12687_ - (gxc#optimizer-resolve-type _type-t12685_))) + (let ((_type-t13388_ + (gxc#generate-runtime-binding-id _L13313_))) + (let ((_type13390_ + (gxc#optimizer-resolve-type _type-t13388_))) (let () (if (##structure-instance-of? - _type12687_ + _type13390_ 'gxc#!struct-type::t) - (##structure gxc#!struct-cons::t _type-t12685_) + (##structure gxc#!struct-cons::t _type-t13388_) '#f)))) - (_g1230612460_ _g1230912463_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _xarg1241412606_ - _hd1240412564_ - _hd1239512540_ - _arg1238112502_) - (_g1230612460_ - _g1230912463_))))))) - (_loop1240912574_ _target1240612569_ '())) - (_g1230612460_ _g1230912463_))))) - (_g1230612460_ _g1230912463_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1230612460_ - _g1230912463_)) - (_g1230612460_ - _g1230912463_)))) - (_g1230612460_ _g1230912463_)) - (_g1230612460_ _g1230912463_)) - (_g1230612460_ _g1230912463_)))) - (_g1230612460_ _g1230912463_)))) - (_g1230612460_ _g1230912463_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1230612460_ - _g1230912463_)))) - (_g1230612460_ _g1230912463_)) - (_g1230612460_ _g1230912463_)) - (_g1230612460_ _g1230912463_)))) - (_g1230612460_ _g1230912463_)))) - (_g1230612460_ _g1230912463_)) - (_g1230612460_ _g1230912463_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1230612460_ - _g1230912463_)))) - (_g1230612460_ _g1230912463_)))) - (_g1230612460_ _g1230912463_))))))) - (_loop1237612486_ _target1237312481_ '())) - (_g1230612460_ _g1230912463_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1230612460_ _g1230912463_)) - (_g1230612460_ _g1230912463_)))) - (_g1230612460_ _g1230912463_)))) - (_g1230612460_ _g1230912463_))))) - (let ((_g1230412875_ - (lambda (_g1230912693_) - (if (gx#stx-pair? _g1230912693_) - (let ((_e1231512695_ (gx#stx-e _g1230912693_))) - (let ((_hd1231612698_ (##car _e1231512695_)) - (_tl1231712700_ (##cdr _e1231512695_))) - (if (gx#stx-pair? _tl1231712700_) - (let ((_e1231812703_ - (gx#stx-e _tl1231712700_))) - (let ((_hd1231912706_ - (##car _e1231812703_)) - (_tl1232012708_ - (##cdr _e1231812703_))) - (if (gx#stx-pair? _tl1232012708_) - (let ((_e1232112711_ - (gx#stx-e _tl1232012708_))) - (let ((_hd1232212714_ - (##car _e1232112711_)) - (_tl1232312716_ - (##cdr _e1232112711_))) + (_g1300913163_ _g1301213166_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _xarg1311713309_ + _hd1310713267_ + _hd1309813243_ + _arg1308413205_) + (_g1300913163_ + _g1301213166_))))))) + (_loop1311213277_ _target1310913272_ '())) + (_g1300913163_ _g1301213166_))))) + (_g1300913163_ _g1301213166_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1300913163_ + _g1301213166_)) + (_g1300913163_ + _g1301213166_)))) + (_g1300913163_ _g1301213166_)) + (_g1300913163_ _g1301213166_)) + (_g1300913163_ _g1301213166_)))) + (_g1300913163_ _g1301213166_)))) + (_g1300913163_ _g1301213166_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1300913163_ + _g1301213166_)))) + (_g1300913163_ _g1301213166_)) + (_g1300913163_ _g1301213166_)) + (_g1300913163_ _g1301213166_)))) + (_g1300913163_ _g1301213166_)))) + (_g1300913163_ _g1301213166_)) + (_g1300913163_ _g1301213166_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1300913163_ + _g1301213166_)))) + (_g1300913163_ _g1301213166_)))) + (_g1300913163_ _g1301213166_))))))) + (_loop1307913189_ _target1307613184_ '())) + (_g1300913163_ _g1301213166_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1300913163_ _g1301213166_)) + (_g1300913163_ _g1301213166_)))) + (_g1300913163_ _g1301213166_)))) + (_g1300913163_ _g1301213166_))))) + (let ((_g1300713578_ + (lambda (_g1301213396_) + (if (gx#stx-pair? _g1301213396_) + (let ((_e1301813398_ (gx#stx-e _g1301213396_))) + (let ((_hd1301913401_ (##car _e1301813398_)) + (_tl1302013403_ (##cdr _e1301813398_))) + (if (gx#stx-pair? _tl1302013403_) + (let ((_e1302113406_ + (gx#stx-e _tl1302013403_))) + (let ((_hd1302213409_ + (##car _e1302113406_)) + (_tl1302313411_ + (##cdr _e1302113406_))) + (if (gx#stx-pair? _tl1302313411_) + (let ((_e1302413414_ + (gx#stx-e _tl1302313411_))) + (let ((_hd1302513417_ + (##car _e1302413414_)) + (_tl1302613419_ + (##cdr _e1302413414_))) (if (gx#stx-pair? - _hd1232212714_) - (let ((_e1232412719_ + _hd1302513417_) + (let ((_e1302713422_ (gx#stx-e - _hd1232212714_))) - (let ((_hd1232512722_ - (##car _e1232412719_)) - (_tl1232612724_ - (##cdr _e1232412719_))) + _hd1302513417_))) + (let ((_hd1302813425_ + (##car _e1302713422_)) + (_tl1302913427_ + (##cdr _e1302713422_))) (if (gx#identifier? - _hd1232512722_) + _hd1302813425_) (if (gx#stx-eq? '%#call - _hd1232512722_) + _hd1302813425_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1232612724_) - (let ((_e1232712727_ (gx#stx-e _tl1232612724_))) - (let ((_hd1232812730_ (##car _e1232712727_)) - (_tl1232912732_ (##cdr _e1232712727_))) - (if (gx#stx-pair? _hd1232812730_) - (let ((_e1233012735_ - (gx#stx-e _hd1232812730_))) - (let ((_hd1233112738_ - (##car _e1233012735_)) - (_tl1233212740_ - (##cdr _e1233012735_))) - (if (gx#identifier? _hd1233112738_) + _tl1302913427_) + (let ((_e1303013430_ (gx#stx-e _tl1302913427_))) + (let ((_hd1303113433_ (##car _e1303013430_)) + (_tl1303213435_ (##cdr _e1303013430_))) + (if (gx#stx-pair? _hd1303113433_) + (let ((_e1303313438_ + (gx#stx-e _hd1303113433_))) + (let ((_hd1303413441_ + (##car _e1303313438_)) + (_tl1303513443_ + (##cdr _e1303313438_))) + (if (gx#identifier? _hd1303413441_) (if (gx#stx-eq? '%#ref - _hd1233112738_) + _hd1303413441_) (if (gx#stx-pair? - _tl1233212740_) - (let ((_e1233312743_ + _tl1303513443_) + (let ((_e1303613446_ (gx#stx-e - _tl1233212740_))) - (let ((_hd1233412746_ - (##car _e1233312743_)) - (_tl1233512748_ - (##cdr _e1233312743_))) + _tl1303513443_))) + (let ((_hd1303713449_ + (##car _e1303613446_)) + (_tl1303813451_ + (##cdr _e1303613446_))) (if (gx#stx-null? - _tl1233512748_) + _tl1303813451_) (if (gx#stx-pair? - _tl1232912732_) - (let ((_e1233612751_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1232912732_))) - (let ((_hd1233712754_ (##car _e1233612751_)) - (_tl1233812756_ (##cdr _e1233612751_))) - (if (gx#stx-pair? _hd1233712754_) - (let ((_e1233912759_ (gx#stx-e _hd1233712754_))) - (let ((_hd1234012762_ (##car _e1233912759_)) - (_tl1234112764_ (##cdr _e1233912759_))) - (if (gx#identifier? _hd1234012762_) - (if (gx#stx-eq? '%#ref _hd1234012762_) - (if (gx#stx-pair? _tl1234112764_) - (let ((_e1234212767_ + _tl1303213435_) + (let ((_e1303913454_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _tl1303213435_))) + (let ((_hd1304013457_ (##car _e1303913454_)) + (_tl1304113459_ (##cdr _e1303913454_))) + (if (gx#stx-pair? _hd1304013457_) + (let ((_e1304213462_ (gx#stx-e _hd1304013457_))) + (let ((_hd1304313465_ (##car _e1304213462_)) + (_tl1304413467_ (##cdr _e1304213462_))) + (if (gx#identifier? _hd1304313465_) + (if (gx#stx-eq? '%#ref _hd1304313465_) + (if (gx#stx-pair? _tl1304413467_) + (let ((_e1304513470_ (gx#stx-e - _tl1234112764_))) - (let ((_hd1234312770_ - (##car _e1234212767_)) - (_tl1234412772_ - (##cdr _e1234212767_))) + _tl1304413467_))) + (let ((_hd1304613473_ + (##car _e1304513470_)) + (_tl1304713475_ + (##cdr _e1304513470_))) (if (gx#stx-null? - _tl1234412772_) + _tl1304713475_) (if (gx#stx-pair? - _tl1233812756_) - (let ((_e1234512775_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1233812756_))) - (let ((_hd1234612778_ (##car _e1234512775_)) - (_tl1234712780_ (##cdr _e1234512775_))) - (if (gx#stx-pair? _hd1234612778_) - (let ((_e1234812783_ (gx#stx-e _hd1234612778_))) - (let ((_hd1234912786_ (##car _e1234812783_)) - (_tl1235012788_ (##cdr _e1234812783_))) - (if (gx#identifier? _hd1234912786_) - (if (gx#stx-eq? '%#ref _hd1234912786_) - (if (gx#stx-pair? _tl1235012788_) - (let ((_e1235112791_ - (gx#stx-e _tl1235012788_))) - (let ((_hd1235212794_ - (##car _e1235112791_)) - (_tl1235312796_ - (##cdr _e1235112791_))) + _tl1304113459_) + (let ((_e1304813478_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _tl1304113459_))) + (let ((_hd1304913481_ (##car _e1304813478_)) + (_tl1305013483_ (##cdr _e1304813478_))) + (if (gx#stx-pair? _hd1304913481_) + (let ((_e1305113486_ (gx#stx-e _hd1304913481_))) + (let ((_hd1305213489_ (##car _e1305113486_)) + (_tl1305313491_ (##cdr _e1305113486_))) + (if (gx#identifier? _hd1305213489_) + (if (gx#stx-eq? '%#ref _hd1305213489_) + (if (gx#stx-pair? _tl1305313491_) + (let ((_e1305413494_ + (gx#stx-e _tl1305313491_))) + (let ((_hd1305513497_ + (##car _e1305413494_)) + (_tl1305613499_ + (##cdr _e1305413494_))) (if (gx#stx-null? - _tl1235312796_) + _tl1305613499_) (if (gx#stx-pair? - _tl1234712780_) - (let ((_e1235412799_ + _tl1305013483_) + (let ((_e1305713502_ (gx#stx-e - _tl1234712780_))) - (let ((_hd1235512802_ - (##car _e1235412799_)) - (_tl1235612804_ - (##cdr _e1235412799_))) + _tl1305013483_))) + (let ((_hd1305813505_ + (##car _e1305713502_)) + (_tl1305913507_ + (##cdr _e1305713502_))) (if (gx#stx-pair? - _hd1235512802_) - (let ((_e1235712807_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1235512802_))) - (let ((_hd1235812810_ (##car _e1235712807_)) - (_tl1235912812_ (##cdr _e1235712807_))) - (if (gx#identifier? _hd1235812810_) - (if (gx#stx-eq? '%#ref _hd1235812810_) - (if (gx#stx-pair? _tl1235912812_) - (let ((_e1236012815_ - (gx#stx-e _tl1235912812_))) - (let ((_hd1236112818_ - (##car _e1236012815_)) - (_tl1236212820_ - (##cdr _e1236012815_))) - (if (gx#stx-null? _tl1236212820_) + _hd1305813505_) + (let ((_e1306013510_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _hd1305813505_))) + (let ((_hd1306113513_ (##car _e1306013510_)) + (_tl1306213515_ (##cdr _e1306013510_))) + (if (gx#identifier? _hd1306113513_) + (if (gx#stx-eq? '%#ref _hd1306113513_) + (if (gx#stx-pair? _tl1306213515_) + (let ((_e1306313518_ + (gx#stx-e _tl1306213515_))) + (let ((_hd1306413521_ + (##car _e1306313518_)) + (_tl1306513523_ + (##cdr _e1306313518_))) + (if (gx#stx-null? _tl1306513523_) (if (gx#stx-null? - _tl1235612804_) + _tl1305913507_) (if (gx#stx-null? - _tl1232312716_) - ((lambda (_L12823_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L12824_ - _L12825_ - _L12826_ - _L12827_) - (if (if (gx#identifier? _L12827_) - (if (eq? (gxc#generate-runtime-binding-id _L12826_) + _tl1302613419_) + ((lambda (_L13526_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L13527_ + _L13528_ + _L13529_ + _L13530_) + (if (if (gx#identifier? _L13530_) + (if (eq? (gxc#generate-runtime-binding-id _L13529_) 'apply) (if (eq? (gxc#generate-runtime-binding-id - _L12825_) + _L13528_) 'make-struct-instance) - (gx#free-identifier=? _L12827_ _L12823_) + (gx#free-identifier=? _L13530_ _L13526_) '#f) '#f) '#f) - (let ((_type-t12870_ - (gxc#generate-runtime-binding-id _L12824_))) - (let ((_type12872_ - (gxc#optimizer-resolve-type _type-t12870_))) + (let ((_type-t13573_ + (gxc#generate-runtime-binding-id _L13527_))) + (let ((_type13575_ + (gxc#optimizer-resolve-type _type-t13573_))) (let () (if (##structure-instance-of? - _type12872_ + _type13575_ 'gxc#!struct-type::t) - (##structure gxc#!struct-cons::t _type-t12870_) + (##structure gxc#!struct-cons::t _type-t13573_) '#f)))) - (_g1230512690_ _g1230912693_))) - _hd1236112818_ - _hd1235212794_ - _hd1234312770_ - _hd1233412746_ - _hd1231912706_) - (_g1230512690_ _g1230912693_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1230512690_ - _g1230912693_)) - (_g1230512690_ _g1230912693_)))) - (_g1230512690_ _g1230912693_)) - (_g1230512690_ _g1230912693_)) - (_g1230512690_ _g1230912693_)))) - (_g1230512690_ _g1230912693_)))) - (_g1230512690_ _g1230912693_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1230512690_ - _g1230912693_)))) - (_g1230512690_ _g1230912693_)) - (_g1230512690_ _g1230912693_)) - (_g1230512690_ _g1230912693_)))) - (_g1230512690_ _g1230912693_)))) - (_g1230512690_ _g1230912693_)) - (_g1230512690_ _g1230912693_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1230512690_ _g1230912693_)) - (_g1230512690_ _g1230912693_)) - (_g1230512690_ _g1230912693_)))) - (_g1230512690_ _g1230912693_)))) - (_g1230512690_ _g1230912693_)) - (_g1230512690_ _g1230912693_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1230512690_ - _g1230912693_)) - (_g1230512690_ _g1230912693_)) - (_g1230512690_ _g1230912693_)))) - (_g1230512690_ _g1230912693_)))) - (_g1230512690_ _g1230912693_)) - (_g1230512690_ _g1230912693_)) - (_g1230512690_ _g1230912693_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1230512690_ - _g1230912693_)))) - (_g1230512690_ _g1230912693_)))) - (_g1230512690_ _g1230912693_)))) - (_g1230512690_ _g1230912693_))))) - (_g1230412875_ _stx12303_)))))))) + (_g1300813393_ _g1301213396_))) + _hd1306413521_ + _hd1305513497_ + _hd1304613473_ + _hd1303713449_ + _hd1302213409_) + (_g1300813393_ _g1301213396_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1300813393_ + _g1301213396_)) + (_g1300813393_ _g1301213396_)))) + (_g1300813393_ _g1301213396_)) + (_g1300813393_ _g1301213396_)) + (_g1300813393_ _g1301213396_)))) + (_g1300813393_ _g1301213396_)))) + (_g1300813393_ _g1301213396_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1300813393_ + _g1301213396_)))) + (_g1300813393_ _g1301213396_)) + (_g1300813393_ _g1301213396_)) + (_g1300813393_ _g1301213396_)))) + (_g1300813393_ _g1301213396_)))) + (_g1300813393_ _g1301213396_)) + (_g1300813393_ _g1301213396_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1300813393_ _g1301213396_)) + (_g1300813393_ _g1301213396_)) + (_g1300813393_ _g1301213396_)))) + (_g1300813393_ _g1301213396_)))) + (_g1300813393_ _g1301213396_)) + (_g1300813393_ _g1301213396_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1300813393_ + _g1301213396_)) + (_g1300813393_ _g1301213396_)) + (_g1300813393_ _g1301213396_)))) + (_g1300813393_ _g1301213396_)))) + (_g1300813393_ _g1301213396_)) + (_g1300813393_ _g1301213396_)) + (_g1300813393_ _g1301213396_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1300813393_ + _g1301213396_)))) + (_g1300813393_ _g1301213396_)))) + (_g1300813393_ _g1301213396_)))) + (_g1300813393_ _g1301213396_))))) + (_g1300713578_ _stx13006_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_stx12249_) - (let ((_clause-e12251_ - (lambda (_form12301_) - (let ((__obj18516 (make-object gxc#!lambda::t '5))) + (lambda (_stx12952_) + (let ((_clause-e12954_ + (lambda (_form13004_) + (let ((__obj19221 (make-object gxc#!lambda::t '5))) (begin (gxc#!lambda:::init!__0 - __obj18516 + __obj19221 'case-lambda-clause - (gxc#lambda-form-arity _form12301_) - (gxc#dispatch-lambda-form-delegate _form12301_)) - __obj18516))))) - (let ((_g1225412264_ - (lambda (_g1225512261_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1225512261_)))) - (let ((_g1225312271_ (lambda (_g1225512267_) ((lambda () '#f))))) - (let ((_g1225212298_ - (lambda (_g1225512274_) - (if (gx#stx-pair? _g1225512274_) - (let ((_e1225712276_ (gx#stx-e _g1225512274_))) - (let ((_hd1225812279_ (##car _e1225712276_)) - (_tl1225912281_ (##cdr _e1225712276_))) - ((lambda (_L12284_) + (gxc#lambda-form-arity _form13004_) + (gxc#dispatch-lambda-form-delegate _form13004_)) + __obj19221))))) + (let ((_g1295712967_ + (lambda (_g1295812964_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1295812964_)))) + (let ((_g1295612974_ (lambda (_g1295812970_) ((lambda () '#f))))) + (let ((_g1295513001_ + (lambda (_g1295812977_) + (if (gx#stx-pair? _g1295812977_) + (let ((_e1296012979_ (gx#stx-e _g1295812977_))) + (let ((_hd1296112982_ (##car _e1296012979_)) + (_tl1296212984_ (##cdr _e1296012979_))) + ((lambda (_L12987_) (if (andmap1 gxc#dispatch-lambda-form? - _L12284_) - (let ((_clauses12296_ - (map _clause-e12251_ _L12284_))) + _L12987_) + (let ((_clauses12999_ + (map _clause-e12954_ _L12987_))) (##structure gxc#!case-lambda::t 'case-lambda - _clauses12296_)) - (_g1225312271_ _g1225512274_))) - _tl1225912281_))) - (_g1225312271_ _g1225512274_))))) - (_g1225212298_ _stx12249_))))))) + _clauses12999_)) + (_g1295612974_ _g1295812977_))) + _tl1296212984_))) + (_g1295612974_ _g1295812977_))))) + (_g1295513001_ _stx12952_))))))) (define gxc#basic-expression-type-builtin (make-hash-table-eq)) (define gxc#basic-expression-type-call% - (lambda (_stx12154_) - (let ((_g1215712177_ - (lambda (_g1215812174_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1215812174_)))) - (let ((_g1215612184_ (lambda (_g1215812180_) ((lambda () '#f))))) - (let ((_g1215512246_ - (lambda (_g1215812187_) - (if (gx#stx-pair? _g1215812187_) - (let ((_e1216112189_ (gx#stx-e _g1215812187_))) - (let ((_hd1216212192_ (##car _e1216112189_)) - (_tl1216312194_ (##cdr _e1216112189_))) - (if (gx#stx-pair? _tl1216312194_) - (let ((_e1216412197_ (gx#stx-e _tl1216312194_))) - (let ((_hd1216512200_ (##car _e1216412197_)) - (_tl1216612202_ (##cdr _e1216412197_))) - (if (gx#stx-pair? _hd1216512200_) - (let ((_e1216712205_ - (gx#stx-e _hd1216512200_))) - (let ((_hd1216812208_ - (##car _e1216712205_)) - (_tl1216912210_ - (##cdr _e1216712205_))) - (if (gx#identifier? _hd1216812208_) + (lambda (_stx12857_) + (let ((_g1286012880_ + (lambda (_g1286112877_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1286112877_)))) + (let ((_g1285912887_ (lambda (_g1286112883_) ((lambda () '#f))))) + (let ((_g1285812949_ + (lambda (_g1286112890_) + (if (gx#stx-pair? _g1286112890_) + (let ((_e1286412892_ (gx#stx-e _g1286112890_))) + (let ((_hd1286512895_ (##car _e1286412892_)) + (_tl1286612897_ (##cdr _e1286412892_))) + (if (gx#stx-pair? _tl1286612897_) + (let ((_e1286712900_ (gx#stx-e _tl1286612897_))) + (let ((_hd1286812903_ (##car _e1286712900_)) + (_tl1286912905_ (##cdr _e1286712900_))) + (if (gx#stx-pair? _hd1286812903_) + (let ((_e1287012908_ + (gx#stx-e _hd1286812903_))) + (let ((_hd1287112911_ + (##car _e1287012908_)) + (_tl1287212913_ + (##cdr _e1287012908_))) + (if (gx#identifier? _hd1287112911_) (if (gx#stx-eq? '%#ref - _hd1216812208_) + _hd1287112911_) (if (gx#stx-pair? - _tl1216912210_) - (let ((_e1217012213_ + _tl1287212913_) + (let ((_e1287312916_ (gx#stx-e - _tl1216912210_))) - (let ((_hd1217112216_ - (##car _e1217012213_)) - (_tl1217212218_ - (##cdr _e1217012213_))) + _tl1287212913_))) + (let ((_hd1287412919_ + (##car _e1287312916_)) + (_tl1287512921_ + (##cdr _e1287312916_))) (if (gx#stx-null? - _tl1217212218_) - ((lambda (_L12221_ + _tl1287512921_) + ((lambda (_L12924_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L12222_) - (let ((_type-e1223912241_ + _L12925_) + (let ((_type-e1294212944_ (table-ref gxc#basic-expression-type-builtin - (gxc#generate-runtime-binding-id _L12222_) + (gxc#generate-runtime-binding-id _L12925_) '#f))) - (if _type-e1223912241_ - (let ((_type-e12244_ _type-e1223912241_)) - (_type-e12244_ _stx12154_ _L12221_)) + (if _type-e1294212944_ + (let ((_type-e12947_ _type-e1294212944_)) + (_type-e12947_ _stx12857_ _L12924_)) '#f))) - _tl1216612202_ - _hd1217112216_) - (_g1215612184_ _g1215812187_)))) - (_g1215612184_ _g1215812187_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1215612184_ - _g1215812187_)) - (_g1215612184_ _g1215812187_)))) - (_g1215612184_ _g1215812187_)))) - (_g1215612184_ _g1215812187_)))) - (_g1215612184_ _g1215812187_))))) - (_g1215512246_ _stx12154_)))))) + _tl1286912905_ + _hd1287412919_) + (_g1285912887_ _g1286112890_)))) + (_g1285912887_ _g1286112890_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1285912887_ + _g1286112890_)) + (_g1285912887_ _g1286112890_)))) + (_g1285912887_ _g1286112890_)))) + (_g1285912887_ _g1286112890_)))) + (_g1285912887_ _g1286112890_))))) + (_g1285812949_ _stx12857_)))))) (define gxc#basic-expression-type-make-struct-type - (lambda (_stx11639_ _args11640_) - (let ((_g1164411757_ - (lambda (_g1164511754_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1164511754_)))) - (let ((_g1164311764_ - (lambda (_g1164511760_) + (lambda (_stx12342_ _args12343_) + (let ((_g1234712460_ + (lambda (_g1234812457_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1234812457_)))) + (let ((_g1234612467_ + (lambda (_g1234812463_) ((lambda () (begin (gxc#verbose '"make-struct-type: can't infer type " - (gx#syntax->datum _stx11639_)) + (gx#syntax->datum _stx12342_)) '#f)))))) - (let ((_g1164211971_ - (lambda (_g1164511767_) - (if (gx#stx-pair? _g1164511767_) - (let ((_e1170511769_ (gx#stx-e _g1164511767_))) - (let ((_hd1170611772_ (##car _e1170511769_)) - (_tl1170711774_ (##cdr _e1170511769_))) - (if (gx#stx-pair? _hd1170611772_) - (let ((_e1170811777_ (gx#stx-e _hd1170611772_))) - (let ((_hd1170911780_ (##car _e1170811777_)) - (_tl1171011782_ (##cdr _e1170811777_))) - (if (gx#identifier? _hd1170911780_) - (if (gx#stx-eq? '%#quote _hd1170911780_) - (if (gx#stx-pair? _tl1171011782_) - (let ((_e1171111785_ + (let ((_g1234512674_ + (lambda (_g1234812470_) + (if (gx#stx-pair? _g1234812470_) + (let ((_e1240812472_ (gx#stx-e _g1234812470_))) + (let ((_hd1240912475_ (##car _e1240812472_)) + (_tl1241012477_ (##cdr _e1240812472_))) + (if (gx#stx-pair? _hd1240912475_) + (let ((_e1241112480_ (gx#stx-e _hd1240912475_))) + (let ((_hd1241212483_ (##car _e1241112480_)) + (_tl1241312485_ (##cdr _e1241112480_))) + (if (gx#identifier? _hd1241212483_) + (if (gx#stx-eq? '%#quote _hd1241212483_) + (if (gx#stx-pair? _tl1241312485_) + (let ((_e1241412488_ (gx#stx-e - _tl1171011782_))) - (let ((_hd1171211788_ - (##car _e1171111785_)) - (_tl1171311790_ - (##cdr _e1171111785_))) + _tl1241312485_))) + (let ((_hd1241512491_ + (##car _e1241412488_)) + (_tl1241612493_ + (##cdr _e1241412488_))) (if (gx#stx-null? - _tl1171311790_) + _tl1241612493_) (if (gx#stx-pair? - _tl1170711774_) - (let ((_e1171411793_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1170711774_))) - (let ((_hd1171511796_ (##car _e1171411793_)) - (_tl1171611798_ (##cdr _e1171411793_))) - (if (gx#stx-pair? _hd1171511796_) - (let ((_e1171711801_ (gx#stx-e _hd1171511796_))) - (let ((_hd1171811804_ (##car _e1171711801_)) - (_tl1171911806_ (##cdr _e1171711801_))) - (if (gx#identifier? _hd1171811804_) - (if (gx#stx-eq? '%#ref _hd1171811804_) - (if (gx#stx-pair? _tl1171911806_) - (let ((_e1172011809_ - (gx#stx-e _tl1171911806_))) - (let ((_hd1172111812_ - (##car _e1172011809_)) - (_tl1172211814_ - (##cdr _e1172011809_))) + _tl1241012477_) + (let ((_e1241712496_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _tl1241012477_))) + (let ((_hd1241812499_ (##car _e1241712496_)) + (_tl1241912501_ (##cdr _e1241712496_))) + (if (gx#stx-pair? _hd1241812499_) + (let ((_e1242012504_ (gx#stx-e _hd1241812499_))) + (let ((_hd1242112507_ (##car _e1242012504_)) + (_tl1242212509_ (##cdr _e1242012504_))) + (if (gx#identifier? _hd1242112507_) + (if (gx#stx-eq? '%#ref _hd1242112507_) + (if (gx#stx-pair? _tl1242212509_) + (let ((_e1242312512_ + (gx#stx-e _tl1242212509_))) + (let ((_hd1242412515_ + (##car _e1242312512_)) + (_tl1242512517_ + (##cdr _e1242312512_))) (if (gx#stx-null? - _tl1172211814_) + _tl1242512517_) (if (gx#stx-pair? - _tl1171611798_) - (let ((_e1172311817_ + _tl1241912501_) + (let ((_e1242612520_ (gx#stx-e - _tl1171611798_))) - (let ((_hd1172411820_ - (##car _e1172311817_)) - (_tl1172511822_ - (##cdr _e1172311817_))) + _tl1241912501_))) + (let ((_hd1242712523_ + (##car _e1242612520_)) + (_tl1242812525_ + (##cdr _e1242612520_))) (if (gx#stx-pair? - _hd1172411820_) - (let ((_e1172611825_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1172411820_))) - (let ((_hd1172711828_ (##car _e1172611825_)) - (_tl1172811830_ (##cdr _e1172611825_))) - (if (gx#identifier? _hd1172711828_) - (if (gx#stx-eq? '%#quote _hd1172711828_) - (if (gx#stx-pair? _tl1172811830_) - (let ((_e1172911833_ - (gx#stx-e _tl1172811830_))) - (let ((_hd1173011836_ - (##car _e1172911833_)) - (_tl1173111838_ - (##cdr _e1172911833_))) - (if (gx#stx-null? _tl1173111838_) + _hd1242712523_) + (let ((_e1242912528_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _hd1242712523_))) + (let ((_hd1243012531_ (##car _e1242912528_)) + (_tl1243112533_ (##cdr _e1242912528_))) + (if (gx#identifier? _hd1243012531_) + (if (gx#stx-eq? '%#quote _hd1243012531_) + (if (gx#stx-pair? _tl1243112533_) + (let ((_e1243212536_ + (gx#stx-e _tl1243112533_))) + (let ((_hd1243312539_ + (##car _e1243212536_)) + (_tl1243412541_ + (##cdr _e1243212536_))) + (if (gx#stx-null? _tl1243412541_) (if (gx#stx-pair? - _tl1172511822_) - (let ((_e1173211841_ + _tl1242812525_) + (let ((_e1243512544_ (gx#stx-e - _tl1172511822_))) - (let ((_hd1173311844_ - (##car _e1173211841_)) - (_tl1173411846_ - (##cdr _e1173211841_))) + _tl1242812525_))) + (let ((_hd1243612547_ + (##car _e1243512544_)) + (_tl1243712549_ + (##cdr _e1243512544_))) (if (gx#stx-pair? - _tl1173411846_) - (let ((_e1173511849_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1173411846_))) - (let ((_hd1173611852_ (##car _e1173511849_)) - (_tl1173711854_ (##cdr _e1173511849_))) - (if (gx#stx-pair? _hd1173611852_) - (let ((_e1173811857_ (gx#stx-e _hd1173611852_))) - (let ((_hd1173911860_ (##car _e1173811857_)) - (_tl1174011862_ (##cdr _e1173811857_))) - (if (gx#identifier? _hd1173911860_) - (if (gx#stx-eq? '%#quote _hd1173911860_) - (if (gx#stx-pair? _tl1174011862_) - (let ((_e1174111865_ - (gx#stx-e _tl1174011862_))) - (let ((_hd1174211868_ - (##car _e1174111865_)) - (_tl1174311870_ - (##cdr _e1174111865_))) + _tl1243712549_) + (let ((_e1243812552_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _tl1243712549_))) + (let ((_hd1243912555_ (##car _e1243812552_)) + (_tl1244012557_ (##cdr _e1243812552_))) + (if (gx#stx-pair? _hd1243912555_) + (let ((_e1244112560_ (gx#stx-e _hd1243912555_))) + (let ((_hd1244212563_ (##car _e1244112560_)) + (_tl1244312565_ (##cdr _e1244112560_))) + (if (gx#identifier? _hd1244212563_) + (if (gx#stx-eq? '%#quote _hd1244212563_) + (if (gx#stx-pair? _tl1244312565_) + (let ((_e1244412568_ + (gx#stx-e _tl1244312565_))) + (let ((_hd1244512571_ + (##car _e1244412568_)) + (_tl1244612573_ + (##cdr _e1244412568_))) (if (gx#stx-null? - _tl1174311870_) + _tl1244612573_) (if (gx#stx-pair? - _tl1173711854_) - (let ((_e1174411873_ + _tl1244012557_) + (let ((_e1244712576_ (gx#stx-e - _tl1173711854_))) - (let ((_hd1174511876_ - (##car _e1174411873_)) - (_tl1174611878_ - (##cdr _e1174411873_))) + _tl1244012557_))) + (let ((_hd1244812579_ + (##car _e1244712576_)) + (_tl1244912581_ + (##cdr _e1244712576_))) (if (gx#stx-pair? - _hd1174511876_) - (let ((_e1174711881_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1174511876_))) - (let ((_hd1174811884_ (##car _e1174711881_)) - (_tl1174911886_ (##cdr _e1174711881_))) - (if (gx#identifier? _hd1174811884_) - (if (gx#stx-eq? '%#quote _hd1174811884_) - (if (gx#stx-pair? _tl1174911886_) - (let ((_e1175011889_ - (gx#stx-e _tl1174911886_))) - (let ((_hd1175111892_ - (##car _e1175011889_)) - (_tl1175211894_ - (##cdr _e1175011889_))) - (if (gx#stx-null? _tl1175211894_) + _hd1244812579_) + (let ((_e1245012584_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _hd1244812579_))) + (let ((_hd1245112587_ (##car _e1245012584_)) + (_tl1245212589_ (##cdr _e1245012584_))) + (if (gx#identifier? _hd1245112587_) + (if (gx#stx-eq? '%#quote _hd1245112587_) + (if (gx#stx-pair? _tl1245212589_) + (let ((_e1245312592_ + (gx#stx-e _tl1245212589_))) + (let ((_hd1245412595_ + (##car _e1245312592_)) + (_tl1245512597_ + (##cdr _e1245312592_))) + (if (gx#stx-null? _tl1245512597_) (if (gx#stx-null? - _tl1174611878_) - ((lambda (_L11897_ - _L11898_ - _L11899_ - _L11900_ - _L11901_ - _L11902_) - (let ((_super-t11948_ + _tl1244912581_) + ((lambda (_L12600_ + _L12601_ + _L12602_ + _L12603_ + _L12604_ + _L12605_) + (let ((_super-t12651_ (if (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L11901_) - (gxc#generate-runtime-binding-id _L11901_) + _L12604_) + (gxc#generate-runtime-binding-id _L12604_) '#f))) - (let ((_super-type11950_ - (if _super-t11948_ - (gxc#optimizer-resolve-type _super-t11948_) + (let ((_super-type12653_ + (if _super-t12651_ + (gxc#optimizer-resolve-type _super-t12651_) '#f))) (let () (begin - (if (if _super-type11950_ + (if (if _super-type12653_ (not (##structure-instance-of? - _super-type11950_ + _super-type12653_ 'gxc#!struct-type::t)) '#f) (gxc#raise-compile-error '"Illegal struct-type construction; invalid super type" - _stx11639_ - _L11901_) + _stx12342_ + _L12604_) '#!void) - (let ((_fields11966_ (gx#stx-e _L11900_)) - (_xfields11967_ - (if _super-type11950_ - (let ((_super-fields1195211955_ + (let ((_fields12669_ (gx#stx-e _L12603_)) + (_xfields12670_ + (if _super-type12653_ + (let ((_super-fields1265512658_ (##structure-ref - _super-type11950_ + _super-type12653_ '3 gxc#!struct-type::t '#f)) - (_super-xfields1195311957_ + (_super-xfields1265612660_ (##structure-ref - _super-type11950_ + _super-type12653_ '4 gxc#!struct-type::t '#f))) - (if _super-fields1195211955_ - (if _super-xfields1195311957_ - (let ((_super-fields11960_ - _super-fields1195211955_) - (_super-xfields11961_ - _super-xfields1195311957_)) - (fx+ _super-fields11960_ - _super-xfields11961_)) + (if _super-fields1265512658_ + (if _super-xfields1265612660_ + (let ((_super-fields12663_ + _super-fields1265512658_) + (_super-xfields12664_ + _super-xfields1265612660_)) + (fx+ _super-fields12663_ + _super-xfields12664_)) '#f) '#f)) '#f)) - (_plist11968_ (gx#stx-e _L11898_)) - (_ctor11969_ - (let ((_$e11963_ (gx#stx-e _L11897_))) - (if _$e11963_ - (values _$e11963_) - (if _super-type11950_ + (_plist12671_ (gx#stx-e _L12601_)) + (_ctor12672_ + (let ((_$e12666_ (gx#stx-e _L12600_))) + (if _$e12666_ + (values _$e12666_) + (if _super-type12653_ (##structure-ref - _super-type11950_ + _super-type12653_ '5 gxc#!struct-type::t '#f) - (if _super-t11948_ '#!void '#f)))))) - (let ((__obj18517 + (if _super-t12651_ '#!void '#f)))))) + (let ((__obj19222 (make-object gxc#!struct-type::t '7))) (begin (gxc#!struct-type:::init! - __obj18517 - (gx#stx-e _L11902_) - _super-t11948_ - _fields11966_ - _xfields11967_ - _ctor11969_ - _plist11968_) - __obj18517)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd1175111892_ - _hd1174211868_ - _hd1173311844_ - _hd1173011836_ - _hd1172111812_ - _hd1171211788_) - (_g1164311764_ - _g1164511767_)) - (_g1164311764_ _g1164511767_)))) - (_g1164311764_ _g1164511767_)) - (_g1164311764_ _g1164511767_)) - (_g1164311764_ _g1164511767_)))) - (_g1164311764_ _g1164511767_)))) - (_g1164311764_ _g1164511767_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1164311764_ - _g1164511767_)))) - (_g1164311764_ _g1164511767_)) - (_g1164311764_ _g1164511767_)) - (_g1164311764_ _g1164511767_)))) - (_g1164311764_ _g1164511767_)))) - (_g1164311764_ _g1164511767_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1164311764_ - _g1164511767_)) - (_g1164311764_ _g1164511767_)))) - (_g1164311764_ _g1164511767_)) - (_g1164311764_ _g1164511767_)) - (_g1164311764_ _g1164511767_)))) - (_g1164311764_ _g1164511767_)))) - (_g1164311764_ _g1164511767_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1164311764_ - _g1164511767_)))) - (_g1164311764_ _g1164511767_)) - (_g1164311764_ _g1164511767_)) - (_g1164311764_ _g1164511767_)))) - (_g1164311764_ _g1164511767_)))) - (_g1164311764_ _g1164511767_)) - (_g1164311764_ _g1164511767_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1164311764_ _g1164511767_)) - (_g1164311764_ _g1164511767_)) - (_g1164311764_ _g1164511767_)))) - (_g1164311764_ _g1164511767_)))) - (_g1164311764_ _g1164511767_))))) - (let ((_g1164112151_ - (lambda (_g1164511974_) - (if (gx#stx-pair? _g1164511974_) - (let ((_e1165111976_ (gx#stx-e _g1164511974_))) - (let ((_hd1165211979_ (##car _e1165111976_)) - (_tl1165311981_ (##cdr _e1165111976_))) - (if (gx#stx-pair? _hd1165211979_) - (let ((_e1165411984_ - (gx#stx-e _hd1165211979_))) - (let ((_hd1165511987_ (##car _e1165411984_)) - (_tl1165611989_ - (##cdr _e1165411984_))) - (if (gx#identifier? _hd1165511987_) + __obj19222 + (gx#stx-e _L12605_) + _super-t12651_ + _fields12669_ + _xfields12670_ + _ctor12672_ + _plist12671_) + __obj19222)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd1245412595_ + _hd1244512571_ + _hd1243612547_ + _hd1243312539_ + _hd1242412515_ + _hd1241512491_) + (_g1234612467_ + _g1234812470_)) + (_g1234612467_ _g1234812470_)))) + (_g1234612467_ _g1234812470_)) + (_g1234612467_ _g1234812470_)) + (_g1234612467_ _g1234812470_)))) + (_g1234612467_ _g1234812470_)))) + (_g1234612467_ _g1234812470_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1234612467_ + _g1234812470_)))) + (_g1234612467_ _g1234812470_)) + (_g1234612467_ _g1234812470_)) + (_g1234612467_ _g1234812470_)))) + (_g1234612467_ _g1234812470_)))) + (_g1234612467_ _g1234812470_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1234612467_ + _g1234812470_)) + (_g1234612467_ _g1234812470_)))) + (_g1234612467_ _g1234812470_)) + (_g1234612467_ _g1234812470_)) + (_g1234612467_ _g1234812470_)))) + (_g1234612467_ _g1234812470_)))) + (_g1234612467_ _g1234812470_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1234612467_ + _g1234812470_)))) + (_g1234612467_ _g1234812470_)) + (_g1234612467_ _g1234812470_)) + (_g1234612467_ _g1234812470_)))) + (_g1234612467_ _g1234812470_)))) + (_g1234612467_ _g1234812470_)) + (_g1234612467_ _g1234812470_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1234612467_ _g1234812470_)) + (_g1234612467_ _g1234812470_)) + (_g1234612467_ _g1234812470_)))) + (_g1234612467_ _g1234812470_)))) + (_g1234612467_ _g1234812470_))))) + (let ((_g1234412854_ + (lambda (_g1234812677_) + (if (gx#stx-pair? _g1234812677_) + (let ((_e1235412679_ (gx#stx-e _g1234812677_))) + (let ((_hd1235512682_ (##car _e1235412679_)) + (_tl1235612684_ (##cdr _e1235412679_))) + (if (gx#stx-pair? _hd1235512682_) + (let ((_e1235712687_ + (gx#stx-e _hd1235512682_))) + (let ((_hd1235812690_ (##car _e1235712687_)) + (_tl1235912692_ + (##cdr _e1235712687_))) + (if (gx#identifier? _hd1235812690_) (if (gx#stx-eq? '%#quote - _hd1165511987_) - (if (gx#stx-pair? _tl1165611989_) - (let ((_e1165711992_ + _hd1235812690_) + (if (gx#stx-pair? _tl1235912692_) + (let ((_e1236012695_ (gx#stx-e - _tl1165611989_))) - (let ((_hd1165811995_ - (##car _e1165711992_)) - (_tl1165911997_ - (##cdr _e1165711992_))) + _tl1235912692_))) + (let ((_hd1236112698_ + (##car _e1236012695_)) + (_tl1236212700_ + (##cdr _e1236012695_))) (if (gx#stx-null? - _tl1165911997_) + _tl1236212700_) (if (gx#stx-pair? - _tl1165311981_) - (let ((_e1166012000_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1165311981_))) - (let ((_hd1166112003_ (##car _e1166012000_)) - (_tl1166212005_ (##cdr _e1166012000_))) - (if (gx#stx-pair? _hd1166112003_) - (let ((_e1166312008_ (gx#stx-e _hd1166112003_))) - (let ((_hd1166412011_ (##car _e1166312008_)) - (_tl1166512013_ (##cdr _e1166312008_))) - (if (gx#identifier? _hd1166412011_) - (if (gx#stx-eq? '%#quote _hd1166412011_) - (if (gx#stx-pair? _tl1166512013_) - (let ((_e1166612016_ - (gx#stx-e _tl1166512013_))) - (let ((_hd1166712019_ - (##car _e1166612016_)) - (_tl1166812021_ - (##cdr _e1166612016_))) + _tl1235612684_) + (let ((_e1236312703_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _tl1235612684_))) + (let ((_hd1236412706_ (##car _e1236312703_)) + (_tl1236512708_ (##cdr _e1236312703_))) + (if (gx#stx-pair? _hd1236412706_) + (let ((_e1236612711_ (gx#stx-e _hd1236412706_))) + (let ((_hd1236712714_ (##car _e1236612711_)) + (_tl1236812716_ (##cdr _e1236612711_))) + (if (gx#identifier? _hd1236712714_) + (if (gx#stx-eq? '%#quote _hd1236712714_) + (if (gx#stx-pair? _tl1236812716_) + (let ((_e1236912719_ + (gx#stx-e _tl1236812716_))) + (let ((_hd1237012722_ + (##car _e1236912719_)) + (_tl1237112724_ + (##cdr _e1236912719_))) (if (gx#stx-datum? - _hd1166712019_) + _hd1237012722_) (if (equal? (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1166712019_) + _hd1237012722_) '#f) - (if (gx#stx-null? _tl1166812021_) - (if (gx#stx-pair? _tl1166212005_) - (let ((_e1166912024_ (gx#stx-e _tl1166212005_))) - (let ((_hd1167012027_ (##car _e1166912024_)) - (_tl1167112029_ (##cdr _e1166912024_))) - (if (gx#stx-pair? _hd1167012027_) - (let ((_e1167212032_ - (gx#stx-e _hd1167012027_))) - (let ((_hd1167312035_ (##car _e1167212032_)) - (_tl1167412037_ - (##cdr _e1167212032_))) - (if (gx#identifier? _hd1167312035_) + (if (gx#stx-null? _tl1237112724_) + (if (gx#stx-pair? _tl1236512708_) + (let ((_e1237212727_ (gx#stx-e _tl1236512708_))) + (let ((_hd1237312730_ (##car _e1237212727_)) + (_tl1237412732_ (##cdr _e1237212727_))) + (if (gx#stx-pair? _hd1237312730_) + (let ((_e1237512735_ + (gx#stx-e _hd1237312730_))) + (let ((_hd1237612738_ (##car _e1237512735_)) + (_tl1237712740_ + (##cdr _e1237512735_))) + (if (gx#identifier? _hd1237612738_) (if (gx#stx-eq? '%#quote - _hd1167312035_) - (if (gx#stx-pair? _tl1167412037_) - (let ((_e1167512040_ + _hd1237612738_) + (if (gx#stx-pair? _tl1237712740_) + (let ((_e1237812743_ (gx#stx-e - _tl1167412037_))) - (let ((_hd1167612043_ - (##car _e1167512040_)) - (_tl1167712045_ - (##cdr _e1167512040_))) + _tl1237712740_))) + (let ((_hd1237912746_ + (##car _e1237812743_)) + (_tl1238012748_ + (##cdr _e1237812743_))) (if (gx#stx-null? - _tl1167712045_) + _tl1238012748_) (if (gx#stx-pair? - _tl1167112029_) - (let ((_e1167812048_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1167112029_))) - (let ((_hd1167912051_ (##car _e1167812048_)) - (_tl1168012053_ (##cdr _e1167812048_))) - (if (gx#stx-pair? _tl1168012053_) - (let ((_e1168112056_ (gx#stx-e _tl1168012053_))) - (let ((_hd1168212059_ (##car _e1168112056_)) - (_tl1168312061_ (##cdr _e1168112056_))) - (if (gx#stx-pair? _hd1168212059_) - (let ((_e1168412064_ - (gx#stx-e _hd1168212059_))) - (let ((_hd1168512067_ - (##car _e1168412064_)) - (_tl1168612069_ - (##cdr _e1168412064_))) - (if (gx#identifier? _hd1168512067_) + _tl1237412732_) + (let ((_e1238112751_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _tl1237412732_))) + (let ((_hd1238212754_ (##car _e1238112751_)) + (_tl1238312756_ (##cdr _e1238112751_))) + (if (gx#stx-pair? _tl1238312756_) + (let ((_e1238412759_ (gx#stx-e _tl1238312756_))) + (let ((_hd1238512762_ (##car _e1238412759_)) + (_tl1238612764_ (##cdr _e1238412759_))) + (if (gx#stx-pair? _hd1238512762_) + (let ((_e1238712767_ + (gx#stx-e _hd1238512762_))) + (let ((_hd1238812770_ + (##car _e1238712767_)) + (_tl1238912772_ + (##cdr _e1238712767_))) + (if (gx#identifier? _hd1238812770_) (if (gx#stx-eq? '%#quote - _hd1168512067_) + _hd1238812770_) (if (gx#stx-pair? - _tl1168612069_) - (let ((_e1168712072_ + _tl1238912772_) + (let ((_e1239012775_ (gx#stx-e - _tl1168612069_))) - (let ((_hd1168812075_ - (##car _e1168712072_)) - (_tl1168912077_ - (##cdr _e1168712072_))) + _tl1238912772_))) + (let ((_hd1239112778_ + (##car _e1239012775_)) + (_tl1239212780_ + (##cdr _e1239012775_))) (if (gx#stx-null? - _tl1168912077_) + _tl1239212780_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1168312061_) - (let ((_e1169012080_ (gx#stx-e _tl1168312061_))) - (let ((_hd1169112083_ (##car _e1169012080_)) - (_tl1169212085_ (##cdr _e1169012080_))) - (if (gx#stx-pair? _hd1169112083_) - (let ((_e1169312088_ - (gx#stx-e _hd1169112083_))) - (let ((_hd1169412091_ (##car _e1169312088_)) - (_tl1169512093_ - (##cdr _e1169312088_))) - (if (gx#identifier? _hd1169412091_) + _tl1238612764_) + (let ((_e1239312783_ (gx#stx-e _tl1238612764_))) + (let ((_hd1239412786_ (##car _e1239312783_)) + (_tl1239512788_ (##cdr _e1239312783_))) + (if (gx#stx-pair? _hd1239412786_) + (let ((_e1239612791_ + (gx#stx-e _hd1239412786_))) + (let ((_hd1239712794_ (##car _e1239612791_)) + (_tl1239812796_ + (##cdr _e1239612791_))) + (if (gx#identifier? _hd1239712794_) (if (gx#stx-eq? '%#quote - _hd1169412091_) - (if (gx#stx-pair? _tl1169512093_) - (let ((_e1169612096_ + _hd1239712794_) + (if (gx#stx-pair? _tl1239812796_) + (let ((_e1239912799_ (gx#stx-e - _tl1169512093_))) - (let ((_hd1169712099_ - (##car _e1169612096_)) - (_tl1169812101_ - (##cdr _e1169612096_))) + _tl1239812796_))) + (let ((_hd1240012802_ + (##car _e1239912799_)) + (_tl1240112804_ + (##cdr _e1239912799_))) (if (gx#stx-null? - _tl1169812101_) + _tl1240112804_) (if (gx#stx-null? - _tl1169212085_) - ((lambda (_L12104_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L12105_ - _L12106_ - _L12107_ - _L12108_) - (let ((__obj18518 + _tl1239512788_) + ((lambda (_L12807_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L12808_ + _L12809_ + _L12810_ + _L12811_) + (let ((__obj19223 (make-object gxc#!struct-type::t '7))) (begin (gxc#!struct-type:::init! - __obj18518 - (gx#stx-e _L12108_) + __obj19223 + (gx#stx-e _L12811_) '#f - (gx#stx-e _L12107_) + (gx#stx-e _L12810_) '0 - (gx#stx-e _L12104_) - (gx#stx-e _L12105_)) - __obj18518))) - _hd1169712099_ - _hd1168812075_ - _hd1167912051_ - _hd1167612043_ - _hd1165811995_) - (_g1164211971_ _g1164511974_)) - (_g1164211971_ _g1164511974_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1164211971_ _g1164511974_)) - (_g1164211971_ _g1164511974_)) - (_g1164211971_ _g1164511974_)))) - (_g1164211971_ _g1164511974_)))) - (_g1164211971_ _g1164511974_)) - (_g1164211971_ _g1164511974_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1164211971_ - _g1164511974_)) - (_g1164211971_ _g1164511974_)) - (_g1164211971_ _g1164511974_)))) - (_g1164211971_ _g1164511974_)))) - (_g1164211971_ _g1164511974_)))) - (_g1164211971_ _g1164511974_)) - (_g1164211971_ _g1164511974_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1164211971_ _g1164511974_)) - (_g1164211971_ _g1164511974_)) - (_g1164211971_ _g1164511974_)))) - (_g1164211971_ _g1164511974_)))) - (_g1164211971_ _g1164511974_)) - (_g1164211971_ _g1164511974_)) - (_g1164211971_ _g1164511974_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1164211971_ - _g1164511974_)))) - (_g1164211971_ _g1164511974_)) - (_g1164211971_ _g1164511974_)) - (_g1164211971_ _g1164511974_)))) - (_g1164211971_ _g1164511974_)))) - (_g1164211971_ _g1164511974_)) - (_g1164211971_ _g1164511974_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1164211971_ _g1164511974_)) - (_g1164211971_ _g1164511974_)) - (_g1164211971_ _g1164511974_)))) - (_g1164211971_ _g1164511974_)))) - (_g1164211971_ _g1164511974_))))) - (_g1164112151_ _args11640_))))))) + (gx#stx-e _L12807_) + (gx#stx-e _L12808_)) + __obj19223))) + _hd1240012802_ + _hd1239112778_ + _hd1238212754_ + _hd1237912746_ + _hd1236112698_) + (_g1234512674_ _g1234812677_)) + (_g1234512674_ _g1234812677_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1234512674_ _g1234812677_)) + (_g1234512674_ _g1234812677_)) + (_g1234512674_ _g1234812677_)))) + (_g1234512674_ _g1234812677_)))) + (_g1234512674_ _g1234812677_)) + (_g1234512674_ _g1234812677_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1234512674_ + _g1234812677_)) + (_g1234512674_ _g1234812677_)) + (_g1234512674_ _g1234812677_)))) + (_g1234512674_ _g1234812677_)))) + (_g1234512674_ _g1234812677_)))) + (_g1234512674_ _g1234812677_)) + (_g1234512674_ _g1234812677_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1234512674_ _g1234812677_)) + (_g1234512674_ _g1234812677_)) + (_g1234512674_ _g1234812677_)))) + (_g1234512674_ _g1234812677_)))) + (_g1234512674_ _g1234812677_)) + (_g1234512674_ _g1234812677_)) + (_g1234512674_ _g1234812677_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1234512674_ + _g1234812677_)))) + (_g1234512674_ _g1234812677_)) + (_g1234512674_ _g1234812677_)) + (_g1234512674_ _g1234812677_)))) + (_g1234512674_ _g1234812677_)))) + (_g1234512674_ _g1234812677_)) + (_g1234512674_ _g1234812677_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1234512674_ _g1234812677_)) + (_g1234512674_ _g1234812677_)) + (_g1234512674_ _g1234812677_)))) + (_g1234512674_ _g1234812677_)))) + (_g1234512674_ _g1234812677_))))) + (_g1234412854_ _args12343_))))))) (define gxc#basic-expression-type-make-struct-predicate - (lambda (_stx11565_ _args11566_) - (let ((_g1156911585_ - (lambda (_g1157011582_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1157011582_)))) - (let ((_g1156811592_ (lambda (_g1157011588_) ((lambda () '#f))))) - (let ((_g1156711636_ - (lambda (_g1157011595_) - (if (gx#stx-pair? _g1157011595_) - (let ((_e1157211597_ (gx#stx-e _g1157011595_))) - (let ((_hd1157311600_ (##car _e1157211597_)) - (_tl1157411602_ (##cdr _e1157211597_))) - (if (gx#stx-pair? _hd1157311600_) - (let ((_e1157511605_ (gx#stx-e _hd1157311600_))) - (let ((_hd1157611608_ (##car _e1157511605_)) - (_tl1157711610_ (##cdr _e1157511605_))) - (if (gx#identifier? _hd1157611608_) - (if (gx#stx-eq? '%#ref _hd1157611608_) - (if (gx#stx-pair? _tl1157711610_) - (let ((_e1157811613_ + (lambda (_stx12268_ _args12269_) + (let ((_g1227212288_ + (lambda (_g1227312285_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1227312285_)))) + (let ((_g1227112295_ (lambda (_g1227312291_) ((lambda () '#f))))) + (let ((_g1227012339_ + (lambda (_g1227312298_) + (if (gx#stx-pair? _g1227312298_) + (let ((_e1227512300_ (gx#stx-e _g1227312298_))) + (let ((_hd1227612303_ (##car _e1227512300_)) + (_tl1227712305_ (##cdr _e1227512300_))) + (if (gx#stx-pair? _hd1227612303_) + (let ((_e1227812308_ (gx#stx-e _hd1227612303_))) + (let ((_hd1227912311_ (##car _e1227812308_)) + (_tl1228012313_ (##cdr _e1227812308_))) + (if (gx#identifier? _hd1227912311_) + (if (gx#stx-eq? '%#ref _hd1227912311_) + (if (gx#stx-pair? _tl1228012313_) + (let ((_e1228112316_ (gx#stx-e - _tl1157711610_))) - (let ((_hd1157911616_ - (##car _e1157811613_)) - (_tl1158011618_ - (##cdr _e1157811613_))) + _tl1228012313_))) + (let ((_hd1228212319_ + (##car _e1228112316_)) + (_tl1228312321_ + (##cdr _e1228112316_))) (if (gx#stx-null? - _tl1158011618_) + _tl1228312321_) (if (gx#stx-null? - _tl1157411602_) - ((lambda (_L11621_) + _tl1227712305_) + ((lambda (_L12324_) (##structure gxc#!struct-pred::t (gxc#generate-runtime-binding-id - _L11621_))) - _hd1157911616_) - (_g1156811592_ - _g1157011595_)) - (_g1156811592_ - _g1157011595_)))) - (_g1156811592_ _g1157011595_)) - (_g1156811592_ _g1157011595_)) - (_g1156811592_ _g1157011595_)))) - (_g1156811592_ _g1157011595_)))) - (_g1156811592_ _g1157011595_))))) - (_g1156711636_ _args11566_)))))) + _L12324_))) + _hd1228212319_) + (_g1227112295_ + _g1227312298_)) + (_g1227112295_ + _g1227312298_)))) + (_g1227112295_ _g1227312298_)) + (_g1227112295_ _g1227312298_)) + (_g1227112295_ _g1227312298_)))) + (_g1227112295_ _g1227312298_)))) + (_g1227112295_ _g1227312298_))))) + (_g1227012339_ _args12269_)))))) (define gxc#basic-expression-type-make-struct-field-accessor - (lambda (_stx11449_ _args11450_) - (let ((_g1145311479_ - (lambda (_g1145411476_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1145411476_)))) - (let ((_g1145211486_ (lambda (_g1145411482_) ((lambda () '#f))))) - (let ((_g1145111562_ - (lambda (_g1145411489_) - (if (gx#stx-pair? _g1145411489_) - (let ((_e1145711491_ (gx#stx-e _g1145411489_))) - (let ((_hd1145811494_ (##car _e1145711491_)) - (_tl1145911496_ (##cdr _e1145711491_))) - (if (gx#stx-pair? _hd1145811494_) - (let ((_e1146011499_ (gx#stx-e _hd1145811494_))) - (let ((_hd1146111502_ (##car _e1146011499_)) - (_tl1146211504_ (##cdr _e1146011499_))) - (if (gx#identifier? _hd1146111502_) - (if (gx#stx-eq? '%#ref _hd1146111502_) - (if (gx#stx-pair? _tl1146211504_) - (let ((_e1146311507_ + (lambda (_stx12152_ _args12153_) + (let ((_g1215612182_ + (lambda (_g1215712179_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1215712179_)))) + (let ((_g1215512189_ (lambda (_g1215712185_) ((lambda () '#f))))) + (let ((_g1215412265_ + (lambda (_g1215712192_) + (if (gx#stx-pair? _g1215712192_) + (let ((_e1216012194_ (gx#stx-e _g1215712192_))) + (let ((_hd1216112197_ (##car _e1216012194_)) + (_tl1216212199_ (##cdr _e1216012194_))) + (if (gx#stx-pair? _hd1216112197_) + (let ((_e1216312202_ (gx#stx-e _hd1216112197_))) + (let ((_hd1216412205_ (##car _e1216312202_)) + (_tl1216512207_ (##cdr _e1216312202_))) + (if (gx#identifier? _hd1216412205_) + (if (gx#stx-eq? '%#ref _hd1216412205_) + (if (gx#stx-pair? _tl1216512207_) + (let ((_e1216612210_ (gx#stx-e - _tl1146211504_))) - (let ((_hd1146411510_ - (##car _e1146311507_)) - (_tl1146511512_ - (##cdr _e1146311507_))) + _tl1216512207_))) + (let ((_hd1216712213_ + (##car _e1216612210_)) + (_tl1216812215_ + (##cdr _e1216612210_))) (if (gx#stx-null? - _tl1146511512_) + _tl1216812215_) (if (gx#stx-pair? - _tl1145911496_) - (let ((_e1146611515_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1145911496_))) - (let ((_hd1146711518_ (##car _e1146611515_)) - (_tl1146811520_ (##cdr _e1146611515_))) - (if (gx#stx-pair? _hd1146711518_) - (let ((_e1146911523_ (gx#stx-e _hd1146711518_))) - (let ((_hd1147011526_ (##car _e1146911523_)) - (_tl1147111528_ (##cdr _e1146911523_))) - (if (gx#identifier? _hd1147011526_) - (if (gx#stx-eq? '%#quote _hd1147011526_) - (if (gx#stx-pair? _tl1147111528_) - (let ((_e1147211531_ - (gx#stx-e _tl1147111528_))) - (let ((_hd1147311534_ - (##car _e1147211531_)) - (_tl1147411536_ - (##cdr _e1147211531_))) + _tl1216212199_) + (let ((_e1216912218_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _tl1216212199_))) + (let ((_hd1217012221_ (##car _e1216912218_)) + (_tl1217112223_ (##cdr _e1216912218_))) + (if (gx#stx-pair? _hd1217012221_) + (let ((_e1217212226_ (gx#stx-e _hd1217012221_))) + (let ((_hd1217312229_ (##car _e1217212226_)) + (_tl1217412231_ (##cdr _e1217212226_))) + (if (gx#identifier? _hd1217312229_) + (if (gx#stx-eq? '%#quote _hd1217312229_) + (if (gx#stx-pair? _tl1217412231_) + (let ((_e1217512234_ + (gx#stx-e _tl1217412231_))) + (let ((_hd1217612237_ + (##car _e1217512234_)) + (_tl1217712239_ + (##cdr _e1217512234_))) (if (gx#stx-null? - _tl1147411536_) + _tl1217712239_) (if (gx#stx-null? - _tl1146811520_) - ((lambda (_L11539_ + _tl1217112223_) + ((lambda (_L12242_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L11540_) + _L12243_) (##structure gxc#!struct-getf::t - (gxc#generate-runtime-binding-id _L11540_) - (gx#stx-e _L11539_))) - _hd1147311534_ - _hd1146411510_) - (_g1145211486_ _g1145411489_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1145211486_ - _g1145411489_)))) - (_g1145211486_ _g1145411489_)) - (_g1145211486_ _g1145411489_)) - (_g1145211486_ _g1145411489_)))) - (_g1145211486_ _g1145411489_)))) - (_g1145211486_ _g1145411489_)) - (_g1145211486_ _g1145411489_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1145211486_ _g1145411489_)) - (_g1145211486_ _g1145411489_)) - (_g1145211486_ _g1145411489_)))) - (_g1145211486_ _g1145411489_)))) - (_g1145211486_ _g1145411489_))))) - (_g1145111562_ _args11450_)))))) + (gxc#generate-runtime-binding-id _L12243_) + (gx#stx-e _L12242_))) + _hd1217612237_ + _hd1216712213_) + (_g1215512189_ _g1215712192_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1215512189_ + _g1215712192_)))) + (_g1215512189_ _g1215712192_)) + (_g1215512189_ _g1215712192_)) + (_g1215512189_ _g1215712192_)))) + (_g1215512189_ _g1215712192_)))) + (_g1215512189_ _g1215712192_)) + (_g1215512189_ _g1215712192_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1215512189_ _g1215712192_)) + (_g1215512189_ _g1215712192_)) + (_g1215512189_ _g1215712192_)))) + (_g1215512189_ _g1215712192_)))) + (_g1215512189_ _g1215712192_))))) + (_g1215412265_ _args12153_)))))) (define gxc#basic-expression-type-make-struct-field-mutator - (lambda (_stx11333_ _args11334_) - (let ((_g1133711363_ - (lambda (_g1133811360_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1133811360_)))) - (let ((_g1133611370_ (lambda (_g1133811366_) ((lambda () '#f))))) - (let ((_g1133511446_ - (lambda (_g1133811373_) - (if (gx#stx-pair? _g1133811373_) - (let ((_e1134111375_ (gx#stx-e _g1133811373_))) - (let ((_hd1134211378_ (##car _e1134111375_)) - (_tl1134311380_ (##cdr _e1134111375_))) - (if (gx#stx-pair? _hd1134211378_) - (let ((_e1134411383_ (gx#stx-e _hd1134211378_))) - (let ((_hd1134511386_ (##car _e1134411383_)) - (_tl1134611388_ (##cdr _e1134411383_))) - (if (gx#identifier? _hd1134511386_) - (if (gx#stx-eq? '%#ref _hd1134511386_) - (if (gx#stx-pair? _tl1134611388_) - (let ((_e1134711391_ + (lambda (_stx12036_ _args12037_) + (let ((_g1204012066_ + (lambda (_g1204112063_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1204112063_)))) + (let ((_g1203912073_ (lambda (_g1204112069_) ((lambda () '#f))))) + (let ((_g1203812149_ + (lambda (_g1204112076_) + (if (gx#stx-pair? _g1204112076_) + (let ((_e1204412078_ (gx#stx-e _g1204112076_))) + (let ((_hd1204512081_ (##car _e1204412078_)) + (_tl1204612083_ (##cdr _e1204412078_))) + (if (gx#stx-pair? _hd1204512081_) + (let ((_e1204712086_ (gx#stx-e _hd1204512081_))) + (let ((_hd1204812089_ (##car _e1204712086_)) + (_tl1204912091_ (##cdr _e1204712086_))) + (if (gx#identifier? _hd1204812089_) + (if (gx#stx-eq? '%#ref _hd1204812089_) + (if (gx#stx-pair? _tl1204912091_) + (let ((_e1205012094_ (gx#stx-e - _tl1134611388_))) - (let ((_hd1134811394_ - (##car _e1134711391_)) - (_tl1134911396_ - (##cdr _e1134711391_))) + _tl1204912091_))) + (let ((_hd1205112097_ + (##car _e1205012094_)) + (_tl1205212099_ + (##cdr _e1205012094_))) (if (gx#stx-null? - _tl1134911396_) + _tl1205212099_) (if (gx#stx-pair? - _tl1134311380_) - (let ((_e1135011399_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl1134311380_))) - (let ((_hd1135111402_ (##car _e1135011399_)) - (_tl1135211404_ (##cdr _e1135011399_))) - (if (gx#stx-pair? _hd1135111402_) - (let ((_e1135311407_ (gx#stx-e _hd1135111402_))) - (let ((_hd1135411410_ (##car _e1135311407_)) - (_tl1135511412_ (##cdr _e1135311407_))) - (if (gx#identifier? _hd1135411410_) - (if (gx#stx-eq? '%#quote _hd1135411410_) - (if (gx#stx-pair? _tl1135511412_) - (let ((_e1135611415_ - (gx#stx-e _tl1135511412_))) - (let ((_hd1135711418_ - (##car _e1135611415_)) - (_tl1135811420_ - (##cdr _e1135611415_))) + _tl1204612083_) + (let ((_e1205312102_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _tl1204612083_))) + (let ((_hd1205412105_ (##car _e1205312102_)) + (_tl1205512107_ (##cdr _e1205312102_))) + (if (gx#stx-pair? _hd1205412105_) + (let ((_e1205612110_ (gx#stx-e _hd1205412105_))) + (let ((_hd1205712113_ (##car _e1205612110_)) + (_tl1205812115_ (##cdr _e1205612110_))) + (if (gx#identifier? _hd1205712113_) + (if (gx#stx-eq? '%#quote _hd1205712113_) + (if (gx#stx-pair? _tl1205812115_) + (let ((_e1205912118_ + (gx#stx-e _tl1205812115_))) + (let ((_hd1206012121_ + (##car _e1205912118_)) + (_tl1206112123_ + (##cdr _e1205912118_))) (if (gx#stx-null? - _tl1135811420_) + _tl1206112123_) (if (gx#stx-null? - _tl1135211404_) - ((lambda (_L11423_ + _tl1205512107_) + ((lambda (_L12126_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L11424_) + _L12127_) (##structure gxc#!struct-setf::t - (gxc#generate-runtime-binding-id _L11424_) - (gx#stx-e _L11423_))) - _hd1135711418_ - _hd1134811394_) - (_g1133611370_ _g1133811373_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1133611370_ - _g1133811373_)))) - (_g1133611370_ _g1133811373_)) - (_g1133611370_ _g1133811373_)) - (_g1133611370_ _g1133811373_)))) - (_g1133611370_ _g1133811373_)))) - (_g1133611370_ _g1133811373_)) - (_g1133611370_ _g1133811373_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1133611370_ _g1133811373_)) - (_g1133611370_ _g1133811373_)) - (_g1133611370_ _g1133811373_)))) - (_g1133611370_ _g1133811373_)))) - (_g1133611370_ _g1133811373_))))) - (_g1133511446_ _args11334_)))))) + (gxc#generate-runtime-binding-id _L12127_) + (gx#stx-e _L12126_))) + _hd1206012121_ + _hd1205112097_) + (_g1203912073_ _g1204112076_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1203912073_ + _g1204112076_)))) + (_g1203912073_ _g1204112076_)) + (_g1203912073_ _g1204112076_)) + (_g1203912073_ _g1204112076_)))) + (_g1203912073_ _g1204112076_)))) + (_g1203912073_ _g1204112076_)) + (_g1203912073_ _g1204112076_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1203912073_ _g1204112076_)) + (_g1203912073_ _g1204112076_)) + (_g1203912073_ _g1204112076_)))) + (_g1203912073_ _g1204112076_)))) + (_g1203912073_ _g1204112076_))))) + (_g1203812149_ _args12037_)))))) (table-set! gxc#basic-expression-type-builtin 'make-struct-type @@ -6485,296 +6547,296 @@ 'make-struct-field-mutator gxc#basic-expression-type-make-struct-field-mutator) (define gxc#basic-expression-type-ref% - (lambda (_stx11282_) - (let ((_g1128411297_ - (lambda (_g1128511294_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1128511294_)))) - (let ((_g1128311330_ - (lambda (_g1128511300_) - (if (gx#stx-pair? _g1128511300_) - (let ((_e1128711302_ (gx#stx-e _g1128511300_))) - (let ((_hd1128811305_ (##car _e1128711302_)) - (_tl1128911307_ (##cdr _e1128711302_))) - (if (gx#stx-pair? _tl1128911307_) - (let ((_e1129011310_ (gx#stx-e _tl1128911307_))) - (let ((_hd1129111313_ (##car _e1129011310_)) - (_tl1129211315_ (##cdr _e1129011310_))) - (if (gx#stx-null? _tl1129211315_) - ((lambda (_L11318_) + (lambda (_stx11985_) + (let ((_g1198712000_ + (lambda (_g1198811997_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1198811997_)))) + (let ((_g1198612033_ + (lambda (_g1198812003_) + (if (gx#stx-pair? _g1198812003_) + (let ((_e1199012005_ (gx#stx-e _g1198812003_))) + (let ((_hd1199112008_ (##car _e1199012005_)) + (_tl1199212010_ (##cdr _e1199012005_))) + (if (gx#stx-pair? _tl1199212010_) + (let ((_e1199312013_ (gx#stx-e _tl1199212010_))) + (let ((_hd1199412016_ (##car _e1199312013_)) + (_tl1199512018_ (##cdr _e1199312013_))) + (if (gx#stx-null? _tl1199512018_) + ((lambda (_L12021_) (gxc#optimizer-lookup-type (gxc#generate-runtime-binding-id - _L11318_))) - _hd1129111313_) - (_g1128411297_ _g1128511300_)))) - (_g1128411297_ _g1128511300_)))) - (_g1128411297_ _g1128511300_))))) - (_g1128311330_ _stx11282_))))) + _L12021_))) + _hd1199412016_) + (_g1198712000_ _g1198812003_)))) + (_g1198712000_ _g1198812003_)))) + (_g1198712000_ _g1198812003_))))) + (_g1198612033_ _stx11985_))))) (define gxc#optimize-call% - (lambda (_stx11188_) - (let ((_g1119111211_ - (lambda (_g1119211208_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1119211208_)))) - (let ((_g1119011218_ - (lambda (_g1119211214_) - ((lambda () (gxc#xform-call% _stx11188_)))))) - (let ((_g1118911279_ - (lambda (_g1119211221_) - (if (gx#stx-pair? _g1119211221_) - (let ((_e1119511223_ (gx#stx-e _g1119211221_))) - (let ((_hd1119611226_ (##car _e1119511223_)) - (_tl1119711228_ (##cdr _e1119511223_))) - (if (gx#stx-pair? _tl1119711228_) - (let ((_e1119811231_ (gx#stx-e _tl1119711228_))) - (let ((_hd1119911234_ (##car _e1119811231_)) - (_tl1120011236_ (##cdr _e1119811231_))) - (if (gx#stx-pair? _hd1119911234_) - (let ((_e1120111239_ - (gx#stx-e _hd1119911234_))) - (let ((_hd1120211242_ - (##car _e1120111239_)) - (_tl1120311244_ - (##cdr _e1120111239_))) - (if (gx#identifier? _hd1120211242_) + (lambda (_stx11891_) + (let ((_g1189411914_ + (lambda (_g1189511911_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1189511911_)))) + (let ((_g1189311921_ + (lambda (_g1189511917_) + ((lambda () (gxc#xform-call% _stx11891_)))))) + (let ((_g1189211982_ + (lambda (_g1189511924_) + (if (gx#stx-pair? _g1189511924_) + (let ((_e1189811926_ (gx#stx-e _g1189511924_))) + (let ((_hd1189911929_ (##car _e1189811926_)) + (_tl1190011931_ (##cdr _e1189811926_))) + (if (gx#stx-pair? _tl1190011931_) + (let ((_e1190111934_ (gx#stx-e _tl1190011931_))) + (let ((_hd1190211937_ (##car _e1190111934_)) + (_tl1190311939_ (##cdr _e1190111934_))) + (if (gx#stx-pair? _hd1190211937_) + (let ((_e1190411942_ + (gx#stx-e _hd1190211937_))) + (let ((_hd1190511945_ + (##car _e1190411942_)) + (_tl1190611947_ + (##cdr _e1190411942_))) + (if (gx#identifier? _hd1190511945_) (if (gx#stx-eq? '%#ref - _hd1120211242_) + _hd1190511945_) (if (gx#stx-pair? - _tl1120311244_) - (let ((_e1120411247_ + _tl1190611947_) + (let ((_e1190711950_ (gx#stx-e - _tl1120311244_))) - (let ((_hd1120511250_ - (##car _e1120411247_)) - (_tl1120611252_ - (##cdr _e1120411247_))) + _tl1190611947_))) + (let ((_hd1190811953_ + (##car _e1190711950_)) + (_tl1190911955_ + (##cdr _e1190711950_))) (if (gx#stx-null? - _tl1120611252_) - ((lambda (_L11255_ + _tl1190911955_) + ((lambda (_L11958_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L11256_) - (let ((_rator-id11274_ - (gxc#generate-runtime-binding-id _L11256_))) - (let ((_rator-type11276_ + _L11959_) + (let ((_rator-id11977_ + (gxc#generate-runtime-binding-id _L11959_))) + (let ((_rator-type11979_ (gxc#optimizer-resolve-type - _rator-id11274_))) + _rator-id11977_))) (let () (if (##structure-instance-of? - _rator-type11276_ + _rator-type11979_ 'gxc#!procedure::t) (begin (gxc#verbose '"optimize-call " - _rator-id11274_ + _rator-id11977_ '" => " - _rator-type11276_ + _rator-type11979_ '" " (##structure-ref - _rator-type11276_ + _rator-type11979_ '1 gxc#!type::t '#f)) (call-method - _rator-type11276_ + _rator-type11979_ 'optimize-call - _stx11188_ - _L11255_)) - (if (not _rator-type11276_) - (gxc#xform-call% _stx11188_) + _stx11891_ + _L11958_)) + (if (not _rator-type11979_) + (gxc#xform-call% _stx11891_) (gxc#raise-compile-error '"Illegal application; not a procedure" - _stx11188_ - _rator-type11276_))))))) - _tl1120011236_ - _hd1120511250_) - (_g1119011218_ _g1119211221_)))) - (_g1119011218_ _g1119211221_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1119011218_ - _g1119211221_)) - (_g1119011218_ _g1119211221_)))) - (_g1119011218_ _g1119211221_)))) - (_g1119011218_ _g1119211221_)))) - (_g1119011218_ _g1119211221_))))) - (_g1118911279_ _stx11188_)))))) + _stx11891_ + _rator-type11979_))))))) + _tl1190311939_ + _hd1190811953_) + (_g1189311921_ _g1189511924_)))) + (_g1189311921_ _g1189511924_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1189311921_ + _g1189511924_)) + (_g1189311921_ _g1189511924_)))) + (_g1189311921_ _g1189511924_)))) + (_g1189311921_ _g1189511924_)))) + (_g1189311921_ _g1189511924_))))) + (_g1189211982_ _stx11891_)))))) (define gxc#!struct-pred::optimize-call - (lambda (_self11043_ _stx11044_ _args11045_) - (let ((_self1104611052_ _self11043_)) - (let ((_E1104811056_ - (lambda () (error '"No clause matching" _self1104611052_)))) - (let ((_K1104911180_ - (lambda (_struct-t11059_) - (let ((_struct-type11061_ - (gxc#optimizer-resolve-type _struct-t11059_))) - (let ((_struct-type1106211076_ _struct-type11061_)) - (let ((_E1106611080_ + (lambda (_self11746_ _stx11747_ _args11748_) + (let ((_self1174911755_ _self11746_)) + (let ((_E1175111759_ + (lambda () (error '"No clause matching" _self1174911755_)))) + (let ((_K1175211883_ + (lambda (_struct-t11762_) + (let ((_struct-type11764_ + (gxc#optimizer-resolve-type _struct-t11762_))) + (let ((_struct-type1176511779_ _struct-type11764_)) + (let ((_E1176911783_ (lambda () (error '"No clause matching" - _struct-type1106211076_)))) - (let ((_else1106511084_ + _struct-type1176511779_)))) + (let ((_else1176811787_ (lambda () (gxc#raise-compile-error '"Illegal struct predicate application; not a struct type" - _stx11044_ - _struct-t11059_ - _struct-type11061_)))) - (let ((_try-match1106411092_ + _stx11747_ + _struct-t11762_ + _struct-type11764_)))) + (let ((_try-match1176711795_ (lambda () - (let ((_K1106711089_ + (let ((_K1177011792_ (lambda () - (gxc#xform-call% _stx11044_)))) - (if (##eq? _struct-type1106211076_ '#f) - (_K1106711089_) - (_else1106511084_)))))) - (let ((_K1106811155_ - (lambda (_plist11095_ - _struct-type-id11096_) - (let ((_g1109911109_ - (lambda (_g1110011106_) + (gxc#xform-call% _stx11747_)))) + (if (##eq? _struct-type1176511779_ '#f) + (_K1177011792_) + (_else1176811787_)))))) + (let ((_K1177111858_ + (lambda (_plist11798_ + _struct-type-id11799_) + (let ((_g1180211812_ + (lambda (_g1180311809_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1110011106_)))) - (let ((_g1109811116_ - (lambda (_g1110011112_) + _g1180311809_)))) + (let ((_g1180111819_ + (lambda (_g1180311815_) ((lambda () (gxc#raise-compile-error '"Illegal struct predicate application" - _stx11044_)))))) - (let ((_g1109711152_ - (lambda (_g1110011119_) + _stx11747_)))))) + (let ((_g1180011855_ + (lambda (_g1180311822_) (if (gx#stx-pair? - _g1110011119_) - (let ((_e1110211121_ + _g1180311822_) + (let ((_e1180511824_ (gx#stx-e - _g1110011119_))) - (let ((_hd1110311124_ - (##car _e1110211121_)) - (_tl1110411126_ - (##cdr _e1110211121_))) + _g1180311822_))) + (let ((_hd1180611827_ + (##car _e1180511824_)) + (_tl1180711829_ + (##cdr _e1180511824_))) (if (gx#stx-null? - _tl1110411126_) - ((lambda (_L11129_) + _tl1180711829_) + ((lambda (_L11832_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((_expr11149_ (gxc#compile-e _L11129_)) - (_op11150_ - (if (if _plist11095_ - (assgetq 'final: _plist11095_) + (let ((_expr11852_ (gxc#compile-e _L11832_)) + (_op11853_ + (if (if _plist11798_ + (assgetq 'final: _plist11798_) '#f) '%#struct-direct-instance? '%#struct-instance?))) (gxc#xform-wrap-source - (cons _op11150_ + (cons _op11853_ (cons (cons '%#quote - (cons _struct-type-id11096_ + (cons _struct-type-id11799_ '())) - (cons _expr11149_ '()))) - _stx11044_))) - _hd1110311124_) - (_g1109811116_ _g1110011119_)))) - (_g1109811116_ _g1110011119_))))) + (cons _expr11852_ '()))) + _stx11747_))) + _hd1180611827_) + (_g1180111819_ _g1180311822_)))) + (_g1180111819_ _g1180311822_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1109711152_ _args11045_))))))) + (_g1180011855_ _args11748_))))))) (if (struct-instance? gxc#!struct-type::t - _struct-type1106211076_) - (let ((_e1106911158_ + _struct-type1176511779_) + (let ((_e1177211861_ (##vector-ref - _struct-type1106211076_ + _struct-type1176511779_ '1))) - (let ((_struct-type-id11161_ - _e1106911158_)) - (let ((_e1107011163_ + (let ((_struct-type-id11864_ + _e1177211861_)) + (let ((_e1177311866_ (##vector-ref - _struct-type1106211076_ + _struct-type1176511779_ '2))) - (let ((_e1107111166_ + (let ((_e1177411869_ (##vector-ref - _struct-type1106211076_ + _struct-type1176511779_ '3))) - (let ((_e1107211169_ + (let ((_e1177511872_ (##vector-ref - _struct-type1106211076_ + _struct-type1176511779_ '4))) - (let ((_e1107311172_ + (let ((_e1177611875_ (##vector-ref - _struct-type1106211076_ + _struct-type1176511779_ '5))) - (let ((_e1107411175_ + (let ((_e1177711878_ (##vector-ref - _struct-type1106211076_ + _struct-type1176511779_ '6))) - (let ((_plist11178_ - _e1107411175_)) - (_K1106811155_ - _plist11178_ - _struct-type-id11161_))))))))) - (_try-match1106411092_))))))))))) - (if (struct-instance? gxc#!struct-pred::t _self1104611052_) - (let ((_e1105011183_ (##vector-ref _self1104611052_ '1))) - (let ((_struct-t11186_ _e1105011183_)) - (_K1104911180_ _struct-t11186_))) - (_E1104811056_))))))) + (let ((_plist11881_ + _e1177711878_)) + (_K1177111858_ + _plist11881_ + _struct-type-id11864_))))))))) + (_try-match1176711795_))))))))))) + (if (struct-instance? gxc#!struct-pred::t _self1174911755_) + (let ((_e1175311886_ (##vector-ref _self1174911755_ '1))) + (let ((_struct-t11889_ _e1175311886_)) + (_K1175211883_ _struct-t11889_))) + (_E1175111759_))))))) (bind-method! gxc#!struct-pred::t 'optimize-call gxc#!struct-pred::optimize-call '#f) (define gxc#!struct-cons::optimize-call - (lambda (_self10939_ _stx10940_ _args10941_) - (let ((_self1094210948_ _self10939_)) - (let ((_E1094410952_ - (lambda () (error '"No clause matching" _self1094210948_)))) - (let ((_K1094511035_ - (lambda (_struct-t10955_) - (let ((_struct-type10957_ - (gxc#optimizer-resolve-type _struct-t10955_))) - (let ((_struct-type1095810971_ _struct-type10957_)) - (let ((_E1096210975_ + (lambda (_self11642_ _stx11643_ _args11644_) + (let ((_self1164511651_ _self11642_)) + (let ((_E1164711655_ + (lambda () (error '"No clause matching" _self1164511651_)))) + (let ((_K1164811738_ + (lambda (_struct-t11658_) + (let ((_struct-type11660_ + (gxc#optimizer-resolve-type _struct-t11658_))) + (let ((_struct-type1166111674_ _struct-type11660_)) + (let ((_E1166511678_ (lambda () (error '"No clause matching" - _struct-type1095810971_)))) - (let ((_else1096110979_ + _struct-type1166111674_)))) + (let ((_else1166411682_ (lambda () (gxc#raise-compile-error '"Illegal struct constructor application; not a struct type" - _stx10940_ - _struct-t10955_ - _struct-type10957_)))) - (let ((_try-match1096010987_ + _stx11643_ + _struct-t11658_ + _struct-type11660_)))) + (let ((_try-match1166311690_ (lambda () - (let ((_K1096310984_ + (let ((_K1166611687_ (lambda () (begin (gxc#verbose '"cannot inline struct constructor; unknown struct type " - _struct-t10955_) - (gxc#xform-call% _stx10940_))))) - (if (##eq? _struct-type1095810971_ '#f) - (_K1096310984_) - (_else1096110979_)))))) - (let ((_K1096411009_ - (lambda (_ctor10990_ - _xfields10991_ - _fields10992_ - _type-id10993_) - (let ((_args10995_ - (map gxc#compile-e _args10941_))) - (let ((_$e10997_ - (if _ctor10990_ - (if _xfields10991_ + _struct-t11658_) + (gxc#xform-call% _stx11643_))))) + (if (##eq? _struct-type1166111674_ '#f) + (_K1166611687_) + (_else1166411682_)))))) + (let ((_K1166711712_ + (lambda (_ctor11693_ + _xfields11694_ + _fields11695_ + _type-id11696_) + (let ((_args11698_ + (map gxc#compile-e _args11644_))) + (let ((_$e11700_ + (if _ctor11693_ + (if _xfields11694_ (gxc#!struct-type-lookup-method - _struct-type10957_ - _ctor10990_) + _struct-type11660_ + _ctor11693_) '#f) '#f))) - (if _$e10997_ - ((lambda (_kons11000_) - (let ((_$obj11002_ + (if _$e11700_ + ((lambda (_kons11703_) + (let ((_$obj11705_ (make-symbol (gensym '__obj)))) (gxc#xform-wrap-source (cons '%#let-values - (cons (cons (cons (cons _$obj11002_ + (cons (cons (cons (cons _$obj11705_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#call @@ -6782,9 +6844,9 @@ (cons 'make-object ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons '%#ref (cons _struct-t10955_ '())) + (cons (cons '%#ref (cons _struct-t11658_ '())) (cons (cons '%#quote - (cons (fx+ _fields10992_ _xfields10991_) '())) + (cons (fx+ _fields11695_ _xfields11694_) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -6794,1190 +6856,1216 @@ (gxc#xform-wrap-source (cons '%#call (cons (cons '%#ref - (cons _kons11000_ + (cons _kons11703_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons '%#ref (cons _$obj11002_ '())) _args10995_))) + (cons (cons '%#ref (cons _$obj11705_ '())) _args11698_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx10940_)) + _stx11643_)) (cons (cons '%#ref - (cons _$obj11002_ '())) + (cons _$obj11705_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx10940_))) - _$e10997_) - (if (let ((_$e11004_ - _ctor10990_)) - (if _$e11004_ - _$e11004_ - (not _xfields10991_))) + _stx11643_))) + _$e11700_) + (if (let ((_$e11707_ + _ctor11693_)) + (if _$e11707_ + _$e11707_ + (not _xfields11694_))) (gxc#xform-wrap-source (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'make-struct-instance '())) - (cons (cons '%#ref (cons _struct-t10955_ '())) - _args10995_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx10940_) - (let ((_arity11007_ - (fx+ _fields10992_ - _xfields10991_))) - (if (fx= _arity11007_ - (length _args10995_)) + (cons (cons '%#ref (cons _struct-t11658_ '())) + _args11698_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _stx11643_) + (let ((_arity11710_ + (fx+ _fields11695_ + _xfields11694_))) + (if (fx= _arity11710_ + (length _args11698_)) (gxc#xform-wrap-source (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '##structure '())) - (cons (cons '%#ref (cons _struct-t10955_ '())) - _args10995_))) - _stx10940_) + (cons (cons '%#ref (cons _struct-t11658_ '())) + _args11698_))) + _stx11643_) (gxc#raise-compile-error '"Illegal struct constructor application; arity mismatch" - _stx10940_ - _struct-t10955_ - _arity11007_)))))))))) + _stx11643_ + _struct-t11658_ + _arity11710_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (struct-instance? gxc#!struct-type::t - _struct-type1095810971_) - (let ((_e1096511012_ + _struct-type1166111674_) + (let ((_e1166811715_ (##vector-ref - _struct-type1095810971_ + _struct-type1166111674_ '1))) - (let ((_type-id11015_ _e1096511012_)) - (let ((_e1096611017_ + (let ((_type-id11718_ _e1166811715_)) + (let ((_e1166911720_ (##vector-ref - _struct-type1095810971_ + _struct-type1166111674_ '2))) - (let ((_e1096711020_ + (let ((_e1167011723_ (##vector-ref - _struct-type1095810971_ + _struct-type1166111674_ '3))) - (let ((_fields11023_ _e1096711020_)) - (let ((_e1096811025_ + (let ((_fields11726_ _e1167011723_)) + (let ((_e1167111728_ (##vector-ref - _struct-type1095810971_ + _struct-type1166111674_ '4))) - (let ((_xfields11028_ - _e1096811025_)) - (let ((_e1096911030_ + (let ((_xfields11731_ + _e1167111728_)) + (let ((_e1167211733_ (##vector-ref - _struct-type1095810971_ + _struct-type1166111674_ '5))) - (let ((_ctor11033_ - _e1096911030_)) - (_K1096411009_ - _ctor11033_ - _xfields11028_ - _fields11023_ - _type-id11015_)))))))))) - (_try-match1096010987_))))))))))) - (if (struct-instance? gxc#!struct-cons::t _self1094210948_) - (let ((_e1094611038_ (##vector-ref _self1094210948_ '1))) - (let ((_struct-t11041_ _e1094611038_)) - (_K1094511035_ _struct-t11041_))) - (_E1094410952_))))))) + (let ((_ctor11736_ + _e1167211733_)) + (_K1166711712_ + _ctor11736_ + _xfields11731_ + _fields11726_ + _type-id11718_)))))))))) + (_try-match1166311690_))))))))))) + (if (struct-instance? gxc#!struct-cons::t _self1164511651_) + (let ((_e1164911741_ (##vector-ref _self1164511651_ '1))) + (let ((_struct-t11744_ _e1164911741_)) + (_K1164811738_ _struct-t11744_))) + (_E1164711655_))))))) (bind-method! gxc#!struct-cons::t 'optimize-call gxc#!struct-cons::optimize-call '#f) (define gxc#!struct-getf::optimize-call - (lambda (_self10792_ _stx10793_ _args10794_) - (let ((_self1079510802_ _self10792_)) - (let ((_E1079710806_ - (lambda () (error '"No clause matching" _self1079510802_)))) - (let ((_K1079810926_ - (lambda (_off10809_ _struct-t10810_) - (let ((_struct-type10812_ - (gxc#optimizer-resolve-type _struct-t10810_))) - (let ((_struct-type1081310825_ _struct-type10812_)) - (let ((_E1081710829_ + (lambda (_self11495_ _stx11496_ _args11497_) + (let ((_self1149811505_ _self11495_)) + (let ((_E1150011509_ + (lambda () (error '"No clause matching" _self1149811505_)))) + (let ((_K1150111629_ + (lambda (_off11512_ _struct-t11513_) + (let ((_struct-type11515_ + (gxc#optimizer-resolve-type _struct-t11513_))) + (let ((_struct-type1151611528_ _struct-type11515_)) + (let ((_E1152011532_ (lambda () (error '"No clause matching" - _struct-type1081310825_)))) - (let ((_else1081610833_ + _struct-type1151611528_)))) + (let ((_else1151911536_ (lambda () (gxc#raise-compile-error '"Illegal struct predicate application; not a struct type" - _stx10793_ - _struct-t10810_ - _struct-type10812_)))) - (let ((_try-match1081510841_ + _stx11496_ + _struct-t11513_ + _struct-type11515_)))) + (let ((_try-match1151811544_ (lambda () - (let ((_K1081810838_ + (let ((_K1152111541_ (lambda () - (gxc#xform-call% _stx10793_)))) - (if (##eq? _struct-type1081310825_ '#f) - (_K1081810838_) - (_else1081610833_)))))) - (let ((_K1081910905_ - (lambda (_xfields10844_ - _fields10845_ - _struct-type-id10846_) - (if _xfields10844_ - (let ((_g1084910859_ - (lambda (_g1085010856_) + (gxc#xform-call% _stx11496_)))) + (if (##eq? _struct-type1151611528_ '#f) + (_K1152111541_) + (_else1151911536_)))))) + (let ((_K1152211608_ + (lambda (_xfields11547_ + _fields11548_ + _struct-type-id11549_) + (if _xfields11547_ + (let ((_g1155211562_ + (lambda (_g1155311559_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1085010856_)))) - (let ((_g1084810866_ - (lambda (_g1085010862_) + _g1155311559_)))) + (let ((_g1155111569_ + (lambda (_g1155311565_) ((lambda () (gxc#raise-compile-error '"Illegal struct accessor application" - _stx10793_)))))) - (let ((_g1084710902_ - (lambda (_g1085010869_) + _stx11496_)))))) + (let ((_g1155011605_ + (lambda (_g1155311572_) (if (gx#stx-pair? - _g1085010869_) - (let ((_e1085210871_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _g1085010869_))) - (let ((_hd1085310874_ (##car _e1085210871_)) - (_tl1085410876_ (##cdr _e1085210871_))) - (if (gx#stx-null? _tl1085410876_) - ((lambda (_L10879_) - (let ((_expr10899_ (gxc#compile-e _L10879_)) - (_off10900_ - (fx+ _off10809_ _xfields10844_ '1))) + _g1155311572_) + (let ((_e1155511574_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _g1155311572_))) + (let ((_hd1155611577_ (##car _e1155511574_)) + (_tl1155711579_ (##cdr _e1155511574_))) + (if (gx#stx-null? _tl1155711579_) + ((lambda (_L11582_) + (let ((_expr11602_ (gxc#compile-e _L11582_)) + (_off11603_ + (fx+ _off11512_ _xfields11547_ '1))) (gxc#xform-wrap-source (cons '%#struct-ref (cons (cons '%#ref - (cons _struct-t10810_ '())) + (cons _struct-t11513_ '())) (cons (cons '%#quote - (cons _off10900_ '())) - (cons _expr10899_ '())))) - _stx10793_))) - _hd1085310874_) - (_g1084810866_ _g1085010869_)))) - (_g1084810866_ _g1085010869_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1084710902_ _args10794_)))) + (cons _off11603_ '())) + (cons _expr11602_ '())))) + _stx11496_))) + _hd1155611577_) + (_g1155111569_ _g1155311572_)))) + (_g1155111569_ _g1155311572_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1155011605_ _args11497_)))) (begin (gxc#verbose '"struct-getf: incomplete struct " - _struct-type-id10846_) - (gxc#xform-call% _stx10793_)))))) + _struct-type-id11549_) + (gxc#xform-call% _stx11496_)))))) (if (struct-instance? gxc#!struct-type::t - _struct-type1081310825_) - (let ((_e1082010908_ + _struct-type1151611528_) + (let ((_e1152311611_ (##vector-ref - _struct-type1081310825_ + _struct-type1151611528_ '1))) - (let ((_struct-type-id10911_ - _e1082010908_)) - (let ((_e1082110913_ + (let ((_struct-type-id11614_ + _e1152311611_)) + (let ((_e1152411616_ (##vector-ref - _struct-type1081310825_ + _struct-type1151611528_ '2))) - (let ((_e1082210916_ + (let ((_e1152511619_ (##vector-ref - _struct-type1081310825_ + _struct-type1151611528_ '3))) - (let ((_fields10919_ _e1082210916_)) - (let ((_e1082310921_ + (let ((_fields11622_ _e1152511619_)) + (let ((_e1152611624_ (##vector-ref - _struct-type1081310825_ + _struct-type1151611528_ '4))) - (let ((_xfields10924_ - _e1082310921_)) - (_K1081910905_ - _xfields10924_ - _fields10919_ - _struct-type-id10911_)))))))) - (_try-match1081510841_))))))))))) - (if (struct-instance? gxc#!struct-getf::t _self1079510802_) - (let ((_e1079910929_ (##vector-ref _self1079510802_ '1))) - (let ((_struct-t10932_ _e1079910929_)) - (let ((_e1080010934_ (##vector-ref _self1079510802_ '2))) - (let ((_off10937_ _e1080010934_)) - (_K1079810926_ _off10937_ _struct-t10932_))))) - (_E1079710806_))))))) + (let ((_xfields11627_ + _e1152611624_)) + (_K1152211608_ + _xfields11627_ + _fields11622_ + _struct-type-id11614_)))))))) + (_try-match1151811544_))))))))))) + (if (struct-instance? gxc#!struct-getf::t _self1149811505_) + (let ((_e1150211632_ (##vector-ref _self1149811505_ '1))) + (let ((_struct-t11635_ _e1150211632_)) + (let ((_e1150311637_ (##vector-ref _self1149811505_ '2))) + (let ((_off11640_ _e1150311637_)) + (_K1150111629_ _off11640_ _struct-t11635_))))) + (_E1150011509_))))))) (bind-method! gxc#!struct-getf::t 'optimize-call gxc#!struct-getf::optimize-call '#f) (define gxc#!struct-setf::optimize-call - (lambda (_self10628_ _stx10629_ _args10630_) - (let ((_self1063110638_ _self10628_)) - (let ((_E1063310642_ - (lambda () (error '"No clause matching" _self1063110638_)))) - (let ((_K1063410779_ - (lambda (_off10645_ _struct-t10646_) - (let ((_struct-type10648_ - (gxc#optimizer-resolve-type _struct-t10646_))) - (let ((_struct-type1064910661_ _struct-type10648_)) - (let ((_E1065310665_ + (lambda (_self11331_ _stx11332_ _args11333_) + (let ((_self1133411341_ _self11331_)) + (let ((_E1133611345_ + (lambda () (error '"No clause matching" _self1133411341_)))) + (let ((_K1133711482_ + (lambda (_off11348_ _struct-t11349_) + (let ((_struct-type11351_ + (gxc#optimizer-resolve-type _struct-t11349_))) + (let ((_struct-type1135211364_ _struct-type11351_)) + (let ((_E1135611368_ (lambda () (error '"No clause matching" - _struct-type1064910661_)))) - (let ((_else1065210669_ + _struct-type1135211364_)))) + (let ((_else1135511372_ (lambda () (gxc#raise-compile-error '"Illegal struct predicate application; not a struct type" - _stx10629_ - _struct-t10646_ - _struct-type10648_)))) - (let ((_try-match1065110677_ + _stx11332_ + _struct-t11349_ + _struct-type11351_)))) + (let ((_try-match1135411380_ (lambda () - (let ((_K1065410674_ + (let ((_K1135711377_ (lambda () - (gxc#xform-call% _stx10629_)))) - (if (##eq? _struct-type1064910661_ '#f) - (_K1065410674_) - (_else1065210669_)))))) - (let ((_K1065510758_ - (lambda (_xfields10680_ - _fields10681_ - _struct-type-id10682_) - (if _xfields10680_ - (let ((_g1068510699_ - (lambda (_g1068610696_) + (gxc#xform-call% _stx11332_)))) + (if (##eq? _struct-type1135211364_ '#f) + (_K1135711377_) + (_else1135511372_)))))) + (let ((_K1135811461_ + (lambda (_xfields11383_ + _fields11384_ + _struct-type-id11385_) + (if _xfields11383_ + (let ((_g1138811402_ + (lambda (_g1138911399_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1068610696_)))) - (let ((_g1068410706_ - (lambda (_g1068610702_) + _g1138911399_)))) + (let ((_g1138711409_ + (lambda (_g1138911405_) ((lambda () (gxc#raise-compile-error '"Illegal struct mutator application" - _stx10629_)))))) - (let ((_g1068310755_ - (lambda (_g1068610709_) + _stx11332_)))))) + (let ((_g1138611458_ + (lambda (_g1138911412_) (if (gx#stx-pair? - _g1068610709_) - (let ((_e1068910711_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _g1068610709_))) - (let ((_hd1069010714_ (##car _e1068910711_)) - (_tl1069110716_ (##cdr _e1068910711_))) - (if (gx#stx-pair? _tl1069110716_) - (let ((_e1069210719_ (gx#stx-e _tl1069110716_))) - (let ((_hd1069310722_ (##car _e1069210719_)) - (_tl1069410724_ (##cdr _e1069210719_))) - (if (gx#stx-null? _tl1069410724_) - ((lambda (_L10727_ _L10728_) - (let ((_expr10751_ - (gxc#compile-e _L10728_)) - (_val10752_ - (gxc#compile-e _L10727_)) - (_off10753_ - (fx+ _off10645_ - _xfields10680_ + _g1138911412_) + (let ((_e1139211414_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _g1138911412_))) + (let ((_hd1139311417_ (##car _e1139211414_)) + (_tl1139411419_ (##cdr _e1139211414_))) + (if (gx#stx-pair? _tl1139411419_) + (let ((_e1139511422_ (gx#stx-e _tl1139411419_))) + (let ((_hd1139611425_ (##car _e1139511422_)) + (_tl1139711427_ (##cdr _e1139511422_))) + (if (gx#stx-null? _tl1139711427_) + ((lambda (_L11430_ _L11431_) + (let ((_expr11454_ + (gxc#compile-e _L11431_)) + (_val11455_ + (gxc#compile-e _L11430_)) + (_off11456_ + (fx+ _off11348_ + _xfields11383_ '1))) (gxc#xform-wrap-source (cons '%#struct-set! (cons (cons '%#ref - (cons _struct-t10646_ + (cons _struct-t11349_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _off10753_ '())) - (cons _expr10751_ (cons _val10752_ '()))))) + (cons _off11456_ '())) + (cons _expr11454_ (cons _val11455_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _stx10629_))) - _hd1069310722_ - _hd1069010714_) - (_g1068410706_ _g1068610709_)))) - (_g1068410706_ _g1068610709_)))) - (_g1068410706_ _g1068610709_))))) + _stx11332_))) + _hd1139611425_ + _hd1139311417_) + (_g1138711409_ _g1138911412_)))) + (_g1138711409_ _g1138911412_)))) + (_g1138711409_ _g1138911412_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1068310755_ _args10630_)))) + (_g1138611458_ _args11333_)))) (begin (gxc#verbose '"struct-setf: incomplete struct " - _struct-type-id10682_) - (gxc#xform-call% _stx10629_)))))) + _struct-type-id11385_) + (gxc#xform-call% _stx11332_)))))) (if (struct-instance? gxc#!struct-type::t - _struct-type1064910661_) - (let ((_e1065610761_ + _struct-type1135211364_) + (let ((_e1135911464_ (##vector-ref - _struct-type1064910661_ + _struct-type1135211364_ '1))) - (let ((_struct-type-id10764_ - _e1065610761_)) - (let ((_e1065710766_ + (let ((_struct-type-id11467_ + _e1135911464_)) + (let ((_e1136011469_ (##vector-ref - _struct-type1064910661_ + _struct-type1135211364_ '2))) - (let ((_e1065810769_ + (let ((_e1136111472_ (##vector-ref - _struct-type1064910661_ + _struct-type1135211364_ '3))) - (let ((_fields10772_ _e1065810769_)) - (let ((_e1065910774_ + (let ((_fields11475_ _e1136111472_)) + (let ((_e1136211477_ (##vector-ref - _struct-type1064910661_ + _struct-type1135211364_ '4))) - (let ((_xfields10777_ - _e1065910774_)) - (_K1065510758_ - _xfields10777_ - _fields10772_ - _struct-type-id10764_)))))))) - (_try-match1065110677_))))))))))) - (if (struct-instance? gxc#!struct-setf::t _self1063110638_) - (let ((_e1063510782_ (##vector-ref _self1063110638_ '1))) - (let ((_struct-t10785_ _e1063510782_)) - (let ((_e1063610787_ (##vector-ref _self1063110638_ '2))) - (let ((_off10790_ _e1063610787_)) - (_K1063410779_ _off10790_ _struct-t10785_))))) - (_E1063310642_))))))) + (let ((_xfields11480_ + _e1136211477_)) + (_K1135811461_ + _xfields11480_ + _fields11475_ + _struct-type-id11467_)))))))) + (_try-match1135411380_))))))))))) + (if (struct-instance? gxc#!struct-setf::t _self1133411341_) + (let ((_e1133811485_ (##vector-ref _self1133411341_ '1))) + (let ((_struct-t11488_ _e1133811485_)) + (let ((_e1133911490_ (##vector-ref _self1133411341_ '2))) + (let ((_off11493_ _e1133911490_)) + (_K1133711482_ _off11493_ _struct-t11488_))))) + (_E1133611345_))))))) (bind-method! gxc#!struct-setf::t 'optimize-call gxc#!struct-setf::optimize-call '#f) (define gxc#!lambda::optimize-call - (lambda (_self10584_ _stx10585_ _args10586_) - (let ((_self1058710596_ _self10584_)) - (let ((_E1058910600_ - (lambda () (error '"No clause matching" _self1058710596_)))) - (let ((_K1059010607_ - (lambda (_inline10603_ _dispatch10604_ _arity10605_) + (lambda (_self11287_ _stx11288_ _args11289_) + (let ((_self1129011299_ _self11287_)) + (let ((_E1129211303_ + (lambda () (error '"No clause matching" _self1129011299_)))) + (let ((_K1129311310_ + (lambda (_inline11306_ _dispatch11307_ _arity11308_) (begin - (if (gxc#!lambda-arity-match? _self10584_ _args10586_) + (if (gxc#!lambda-arity-match? _self11287_ _args11289_) '#!void (gxc#raise-compile-error '"Illegal lambda application; arity mismatch" - _stx10585_ - _arity10605_)) - (if _inline10603_ + _stx11288_ + _arity11308_)) + (if _inline11306_ (begin (gxc#verbose '"inline lambda") (gxc#compile-e (gxc#xform-wrap-source - (_inline10603_ _stx10585_) - _stx10585_))) - (if _dispatch10604_ + (_inline11306_ _stx11288_) + _stx11288_))) + (if _dispatch11307_ (begin (gxc#verbose '"dispatch lambda => " - _dispatch10604_) + _dispatch11307_) (gxc#compile-e (gxc#xform-wrap-source (cons '%#call (cons (cons '%#ref - (cons _dispatch10604_ '())) - _args10586_)) - _stx10585_))) - (gxc#xform-call% _stx10585_))))))) - (if (struct-instance? gxc#!lambda::t _self1058710596_) - (let ((_e1059110610_ (##vector-ref _self1058710596_ '1))) - (let ((_e1059210613_ (##vector-ref _self1058710596_ '2))) - (let ((_arity10616_ _e1059210613_)) - (let ((_e1059310618_ (##vector-ref _self1058710596_ '3))) - (let ((_dispatch10621_ _e1059310618_)) - (let ((_e1059410623_ - (##vector-ref _self1058710596_ '4))) - (let ((_inline10626_ _e1059410623_)) - (_K1059010607_ - _inline10626_ - _dispatch10621_ - _arity10616_)))))))) - (_E1058910600_))))))) + (cons _dispatch11307_ '())) + _args11289_)) + _stx11288_))) + (gxc#xform-call% _stx11288_))))))) + (if (struct-instance? gxc#!lambda::t _self1129011299_) + (let ((_e1129411313_ (##vector-ref _self1129011299_ '1))) + (let ((_e1129511316_ (##vector-ref _self1129011299_ '2))) + (let ((_arity11319_ _e1129511316_)) + (let ((_e1129611321_ (##vector-ref _self1129011299_ '3))) + (let ((_dispatch11324_ _e1129611321_)) + (let ((_e1129711326_ + (##vector-ref _self1129011299_ '4))) + (let ((_inline11329_ _e1129711326_)) + (_K1129311310_ + _inline11329_ + _dispatch11324_ + _arity11319_)))))))) + (_E1129211303_))))))) (bind-method! gxc#!lambda::t 'optimize-call gxc#!lambda::optimize-call '#f) (define gxc#!case-lambda::optimize-call - (lambda (_self10544_ _stx10545_ _args10546_) - (let ((_self1054710554_ _self10544_)) - (let ((_E1054910558_ - (lambda () (error '"No clause matching" _self1054710554_)))) - (let ((_K1055010573_ - (lambda (_clauses10561_) - (let ((_$e10567_ - (find (lambda (_g1056210564_) + (lambda (_self11247_ _stx11248_ _args11249_) + (let ((_self1125011257_ _self11247_)) + (let ((_E1125211261_ + (lambda () (error '"No clause matching" _self1125011257_)))) + (let ((_K1125311276_ + (lambda (_clauses11264_) + (let ((_$e11270_ + (find (lambda (_g1126511267_) (gxc#!lambda-arity-match? - _g1056210564_ - _args10546_)) - _clauses10561_))) - (if _$e10567_ - ((lambda (_clause10570_) + _g1126511267_ + _args11249_)) + _clauses11264_))) + (if _$e11270_ + ((lambda (_clause11273_) (call-method - _clause10570_ + _clause11273_ 'optimize-call - _stx10545_ - _args10546_)) - _$e10567_) + _stx11248_ + _args11249_)) + _$e11270_) (gxc#raise-compile-error '"Illegal case-lambda application; arity mismatch" - _stx10545_ + _stx11248_ (map (lambda () (##structure-ref - _clauses10561_ + _clauses11264_ '2 gxc#!lambda::t '#f)) - _clauses10561_))))))) - (if (struct-instance? gxc#!case-lambda::t _self1054710554_) - (let ((_e1055110576_ (##vector-ref _self1054710554_ '1))) - (let ((_e1055210579_ (##vector-ref _self1054710554_ '2))) - (let ((_clauses10582_ _e1055210579_)) - (_K1055010573_ _clauses10582_)))) - (_E1054910558_))))))) + _clauses11264_))))))) + (if (struct-instance? gxc#!case-lambda::t _self1125011257_) + (let ((_e1125411279_ (##vector-ref _self1125011257_ '1))) + (let ((_e1125511282_ (##vector-ref _self1125011257_ '2))) + (let ((_clauses11285_ _e1125511282_)) + (_K1125311276_ _clauses11285_)))) + (_E1125211261_))))))) (bind-method! gxc#!case-lambda::t 'optimize-call gxc#!case-lambda::optimize-call '#f) (define gxc#!lambda-arity-match? - (lambda (_self10480_ _args10481_) - (let ((_self1048210489_ _self10480_)) - (let ((_E1048410493_ - (lambda () (error '"No clause matching" _self1048210489_)))) - (let ((_K1048510533_ - (lambda (_arity10496_) - (let ((_arity1049710506_ _arity10496_)) - (let ((_E1050010510_ + (lambda (_self11183_ _args11184_) + (let ((_self1118511192_ _self11183_)) + (let ((_E1118711196_ + (lambda () (error '"No clause matching" _self1118511192_)))) + (let ((_K1118811236_ + (lambda (_arity11199_) + (let ((_arity1120011209_ _arity11199_)) + (let ((_E1120311213_ (lambda () (error '"No clause matching" - _arity1049710506_)))) - (let ((_try-match1049910526_ + _arity1120011209_)))) + (let ((_try-match1120211229_ (lambda () - (let ((_K1050110516_ - (lambda (_arity10514_) - (fx>= (length _args10481_) - _arity10514_)))) - (if (##pair? _arity1049710506_) - (let ((_hd1050210519_ - (##car _arity1049710506_)) - (_tl1050310521_ - (##cdr _arity1049710506_))) - (let ((_arity10524_ _hd1050210519_)) - (if (##null? _tl1050310521_) - (_K1050110516_ _arity10524_) - (_E1050010510_)))) - (_E1050010510_)))))) - (let ((_K1050410530_ + (let ((_K1120411219_ + (lambda (_arity11217_) + (fx>= (length _args11184_) + _arity11217_)))) + (if (##pair? _arity1120011209_) + (let ((_hd1120511222_ + (##car _arity1120011209_)) + (_tl1120611224_ + (##cdr _arity1120011209_))) + (let ((_arity11227_ _hd1120511222_)) + (if (##null? _tl1120611224_) + (_K1120411219_ _arity11227_) + (_E1120311213_)))) + (_E1120311213_)))))) + (let ((_K1120711233_ (lambda () - (fx= (length _args10481_) _arity10496_)))) - (if (fixnum? _arity1049710506_) - (_K1050410530_) - (_try-match1049910526_))))))))) - (if (struct-instance? gxc#!lambda::t _self1048210489_) - (let ((_e1048610536_ (##vector-ref _self1048210489_ '1))) - (let ((_e1048710539_ (##vector-ref _self1048210489_ '2))) - (let ((_arity10542_ _e1048710539_)) - (_K1048510533_ _arity10542_)))) - (_E1048410493_))))))) + (fx= (length _args11184_) _arity11199_)))) + (if (fixnum? _arity1120011209_) + (_K1120711233_) + (_try-match1120211229_))))))))) + (if (struct-instance? gxc#!lambda::t _self1118511192_) + (let ((_e1118911239_ (##vector-ref _self1118511192_ '1))) + (let ((_e1119011242_ (##vector-ref _self1118511192_ '2))) + (let ((_arity11245_ _e1119011242_)) + (_K1118811236_ _arity11245_)))) + (_E1118711196_))))))) (define gxc#generate-ssxi-module% - (lambda (_stx10420_) - (let ((_g1042210436_ - (lambda (_g1042310433_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1042310433_)))) - (let ((_g1042110477_ - (lambda (_g1042310439_) - (if (gx#stx-pair? _g1042310439_) - (let ((_e1042610441_ (gx#stx-e _g1042310439_))) - (let ((_hd1042710444_ (##car _e1042610441_)) - (_tl1042810446_ (##cdr _e1042610441_))) - (if (gx#stx-pair? _tl1042810446_) - (let ((_e1042910449_ (gx#stx-e _tl1042810446_))) - (let ((_hd1043010452_ (##car _e1042910449_)) - (_tl1043110454_ (##cdr _e1042910449_))) - ((lambda (_L10457_ _L10458_) - (let ((_ctx10471_ - (gx#syntax-local-e _L10458_))) - (let ((_code10473_ - (gx#module-context-code - _ctx10471_))) + (lambda (_stx11123_) + (let ((_g1112511139_ + (lambda (_g1112611136_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1112611136_)))) + (let ((_g1112411180_ + (lambda (_g1112611142_) + (if (gx#stx-pair? _g1112611142_) + (let ((_e1112911144_ (gx#stx-e _g1112611142_))) + (let ((_hd1113011147_ (##car _e1112911144_)) + (_tl1113111149_ (##cdr _e1112911144_))) + (if (gx#stx-pair? _tl1113111149_) + (let ((_e1113211152_ (gx#stx-e _tl1113111149_))) + (let ((_hd1113311155_ (##car _e1113211152_)) + (_tl1113411157_ (##cdr _e1113211152_))) + ((lambda (_L11160_ _L11161_) + (let ((_ctx11174_ + (gx#syntax-local-e__0 _L11161_))) + (let ((_code11176_ + (##structure-ref + _ctx11174_ + '11 + gx#module-context::t + '#f))) (let () (call-with-parameters (lambda () - (gxc#compile-e _code10473_)) + (gxc#compile-e _code11176_)) gx#current-expander-context - _ctx10471_))))) - _tl1043110454_ - _hd1043010452_))) - (_g1042210436_ _g1042310439_)))) - (_g1042210436_ _g1042310439_))))) - (_g1042110477_ _stx10420_))))) + _ctx11174_))))) + _tl1113411157_ + _hd1113311155_))) + (_g1112511139_ _g1112611142_)))) + (_g1112511139_ _g1112611142_))))) + (_g1112411180_ _stx11123_))))) (define gxc#generate-ssxi-define-values% - (lambda (_stx10230_) - (let ((_generate-e10232_ - (lambda (_id10409_) - (let ((_sym10411_ - (if (gx#identifier? (gx#datum->syntax '#f 'id)) - (gxc#generate-runtime-binding-id _id10409_) + (lambda (_stx10933_) + (let ((_generate-e10935_ + (lambda (_id11112_) + (let ((_sym11114_ + (if (gx#identifier? (gx#datum->syntax__0 '#f 'id)) + (gxc#generate-runtime-binding-id _id11112_) '#f))) - (let ((_$e10413_ - (if _sym10411_ - (gxc#optimizer-lookup-type _sym10411_) + (let ((_$e11116_ + (if _sym11114_ + (gxc#optimizer-lookup-type _sym11114_) '#f))) - (if _$e10413_ - ((lambda (_type10416_) + (if _$e11116_ + ((lambda (_type11119_) (begin - (gxc#verbose '"generate typedecl " _sym10411_) - (let ((_typedecl10418_ - (call-method _type10416_ 'typedecl))) + (gxc#verbose '"generate typedecl " _sym11114_) + (let ((_typedecl11121_ + (call-method _type11119_ 'typedecl))) (cons 'declare-type - (cons _sym10411_ - (cons _typedecl10418_ '())))))) - _$e10413_) + (cons _sym11114_ + (cons _typedecl11121_ '())))))) + _$e11116_) '(begin))))))) - (let ((_g1023510273_ - (lambda (_g1023610270_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1023610270_)))) - (let ((_g1023410354_ - (lambda (_g1023610276_) - (if (gx#stx-pair? _g1023610276_) - (let ((_e1025110278_ (gx#stx-e _g1023610276_))) - (let ((_hd1025210281_ (##car _e1025110278_)) - (_tl1025310283_ (##cdr _e1025110278_))) - (if (gx#stx-pair? _tl1025310283_) - (let ((_e1025410286_ (gx#stx-e _tl1025310283_))) - (let ((_hd1025510289_ (##car _e1025410286_)) - (_tl1025610291_ (##cdr _e1025410286_))) - (if (gx#stx-pair/null? _hd1025510289_) - (if (fx>= (gx#stx-length _hd1025510289_) + (let ((_g1093810976_ + (lambda (_g1093910973_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1093910973_)))) + (let ((_g1093711057_ + (lambda (_g1093910979_) + (if (gx#stx-pair? _g1093910979_) + (let ((_e1095410981_ (gx#stx-e _g1093910979_))) + (let ((_hd1095510984_ (##car _e1095410981_)) + (_tl1095610986_ (##cdr _e1095410981_))) + (if (gx#stx-pair? _tl1095610986_) + (let ((_e1095710989_ (gx#stx-e _tl1095610986_))) + (let ((_hd1095810992_ (##car _e1095710989_)) + (_tl1095910994_ (##cdr _e1095710989_))) + (if (gx#stx-pair/null? _hd1095810992_) + (if (fx>= (gx#stx-length _hd1095810992_) '0) - (let ((_g18581_ + (let ((_g19286_ (gx#syntax-split-splice - _hd1025510289_ + _hd1095810992_ '0))) (begin - (let ((_g18582_ - (values-count _g18581_))) - (if (not (fx= _g18582_ 2)) + (let ((_g19287_ + (values-count _g19286_))) + (if (not (fx= _g19287_ 2)) (error "Context expects 2 values" - _g18582_))) - (let ((_target1025710294_ - (values-ref _g18581_ 0)) - (_tl1025910296_ - (values-ref _g18581_ 1))) + _g19287_))) + (let ((_target1096010997_ + (values-ref _g19286_ 0)) + (_tl1096210999_ + (values-ref _g19286_ 1))) (if (gx#stx-null? - _tl1025910296_) - (letrec ((_loop1026010299_ - (lambda (_hd1025810302_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id1026410304_) - (if (gx#stx-pair? _hd1025810302_) - (let ((_e1026110307_ (gx#stx-e _hd1025810302_))) - (let ((_lp-hd1026210310_ (##car _e1026110307_)) - (_lp-tl1026310312_ (##cdr _e1026110307_))) - (_loop1026010299_ - _lp-tl1026310312_ - (cons _lp-hd1026210310_ _id1026410304_)))) - (let ((_id1026510315_ (reverse _id1026410304_))) - (if (gx#stx-pair? _tl1025610291_) - (let ((_e1026610318_ - (gx#stx-e _tl1025610291_))) - (let ((_hd1026710321_ - (##car _e1026610318_)) - (_tl1026810323_ - (##cdr _e1026610318_))) - (if (gx#stx-null? _tl1026810323_) - ((lambda (_L10326_) - (let ((_types10352_ - (map _generate-e10232_ + _tl1096210999_) + (letrec ((_loop1096311002_ + (lambda (_hd1096111005_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _id1096711007_) + (if (gx#stx-pair? _hd1096111005_) + (let ((_e1096411010_ (gx#stx-e _hd1096111005_))) + (let ((_lp-hd1096511013_ (##car _e1096411010_)) + (_lp-tl1096611015_ (##cdr _e1096411010_))) + (_loop1096311002_ + _lp-tl1096611015_ + (cons _lp-hd1096511013_ _id1096711007_)))) + (let ((_id1096811018_ (reverse _id1096711007_))) + (if (gx#stx-pair? _tl1095910994_) + (let ((_e1096911021_ + (gx#stx-e _tl1095910994_))) + (let ((_hd1097011024_ + (##car _e1096911021_)) + (_tl1097111026_ + (##cdr _e1096911021_))) + (if (gx#stx-null? _tl1097111026_) + ((lambda (_L11029_) + (let ((_types11055_ + (map _generate-e10935_ (begin '#!void - (foldr1 (lambda (_g1034410347_ + (foldr1 (lambda (_g1104711050_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1034510349_) - (cons _g1034410347_ _g1034510349_)) + _g1104811052_) + (cons _g1104711050_ _g1104811052_)) '() - _L10326_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons 'begin _types10352_))) - _id1026510315_) - (_g1023510273_ _g1023610276_)))) - (_g1023510273_ _g1023610276_))))))) - (_loop1026010299_ _target1025710294_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1023510273_ - _g1023610276_))))) - (_g1023510273_ _g1023610276_)) - (_g1023510273_ _g1023610276_)))) - (_g1023510273_ _g1023610276_)))) - (_g1023510273_ _g1023610276_))))) - (let ((_g1023310406_ - (lambda (_g1023610357_) - (if (gx#stx-pair? _g1023610357_) - (let ((_e1023810359_ (gx#stx-e _g1023610357_))) - (let ((_hd1023910362_ (##car _e1023810359_)) - (_tl1024010364_ (##cdr _e1023810359_))) - (if (gx#stx-pair? _tl1024010364_) - (let ((_e1024110367_ - (gx#stx-e _tl1024010364_))) - (let ((_hd1024210370_ (##car _e1024110367_)) - (_tl1024310372_ - (##cdr _e1024110367_))) - (if (gx#stx-pair? _hd1024210370_) - (let ((_e1024410375_ - (gx#stx-e _hd1024210370_))) - (let ((_hd1024510378_ - (##car _e1024410375_)) - (_tl1024610380_ - (##cdr _e1024410375_))) - (if (gx#stx-null? _tl1024610380_) + _L11029_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons 'begin _types11055_))) + _id1096811018_) + (_g1093810976_ _g1093910979_)))) + (_g1093810976_ _g1093910979_))))))) + (_loop1096311002_ _target1096010997_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1093810976_ + _g1093910979_))))) + (_g1093810976_ _g1093910979_)) + (_g1093810976_ _g1093910979_)))) + (_g1093810976_ _g1093910979_)))) + (_g1093810976_ _g1093910979_))))) + (let ((_g1093611109_ + (lambda (_g1093911060_) + (if (gx#stx-pair? _g1093911060_) + (let ((_e1094111062_ (gx#stx-e _g1093911060_))) + (let ((_hd1094211065_ (##car _e1094111062_)) + (_tl1094311067_ (##cdr _e1094111062_))) + (if (gx#stx-pair? _tl1094311067_) + (let ((_e1094411070_ + (gx#stx-e _tl1094311067_))) + (let ((_hd1094511073_ (##car _e1094411070_)) + (_tl1094611075_ + (##cdr _e1094411070_))) + (if (gx#stx-pair? _hd1094511073_) + (let ((_e1094711078_ + (gx#stx-e _hd1094511073_))) + (let ((_hd1094811081_ + (##car _e1094711078_)) + (_tl1094911083_ + (##cdr _e1094711078_))) + (if (gx#stx-null? _tl1094911083_) (if (gx#stx-pair? - _tl1024310372_) - (let ((_e1024710383_ + _tl1094611075_) + (let ((_e1095011086_ (gx#stx-e - _tl1024310372_))) - (let ((_hd1024810386_ - (##car _e1024710383_)) - (_tl1024910388_ - (##cdr _e1024710383_))) + _tl1094611075_))) + (let ((_hd1095111089_ + (##car _e1095011086_)) + (_tl1095211091_ + (##cdr _e1095011086_))) (if (gx#stx-null? - _tl1024910388_) - ((lambda (_L10391_) - (_generate-e10232_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L10391_)) - _hd1024510378_) - (_g1023410354_ _g1023610357_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1023410354_ - _g1023610357_)) - (_g1023410354_ - _g1023610357_)))) - (_g1023410354_ _g1023610357_)))) - (_g1023410354_ _g1023610357_)))) - (_g1023410354_ _g1023610357_))))) - (_g1023310406_ _stx10230_))))))) + _tl1095211091_) + ((lambda (_L11094_) + (_generate-e10935_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L11094_)) + _hd1094811081_) + (_g1093711057_ _g1093911060_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1093711057_ + _g1093911060_)) + (_g1093711057_ + _g1093911060_)))) + (_g1093711057_ _g1093911060_)))) + (_g1093711057_ _g1093911060_)))) + (_g1093711057_ _g1093911060_))))) + (_g1093611109_ _stx10933_))))))) (define gxc#generate-ssxi-call% - (lambda (_stx9784_) - (let ((_g97889890_ - (lambda (_g97899887_) - (gx#raise-syntax-error '#f '"Bad syntax" _g97899887_)))) - (let ((_g97879897_ (lambda (_g97899893_) ((lambda () '(begin)))))) - (let ((_g978610047_ - (lambda (_g97899900_) - (if (gx#stx-pair? _g97899900_) - (let ((_e98479902_ (gx#stx-e _g97899900_))) - (let ((_hd98489905_ (##car _e98479902_)) - (_tl98499907_ (##cdr _e98479902_))) - (if (gx#stx-pair? _tl98499907_) - (let ((_e98509910_ (gx#stx-e _tl98499907_))) - (let ((_hd98519913_ (##car _e98509910_)) - (_tl98529915_ (##cdr _e98509910_))) - (if (gx#stx-pair? _hd98519913_) - (let ((_e98539918_ - (gx#stx-e _hd98519913_))) - (let ((_hd98549921_ - (##car _e98539918_)) - (_tl98559923_ - (##cdr _e98539918_))) - (if (gx#identifier? _hd98549921_) + (lambda (_stx10487_) + (let ((_g1049110593_ + (lambda (_g1049210590_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1049210590_)))) + (let ((_g1049010600_ (lambda (_g1049210596_) ((lambda () '(begin)))))) + (let ((_g1048910750_ + (lambda (_g1049210603_) + (if (gx#stx-pair? _g1049210603_) + (let ((_e1055010605_ (gx#stx-e _g1049210603_))) + (let ((_hd1055110608_ (##car _e1055010605_)) + (_tl1055210610_ (##cdr _e1055010605_))) + (if (gx#stx-pair? _tl1055210610_) + (let ((_e1055310613_ (gx#stx-e _tl1055210610_))) + (let ((_hd1055410616_ (##car _e1055310613_)) + (_tl1055510618_ (##cdr _e1055310613_))) + (if (gx#stx-pair? _hd1055410616_) + (let ((_e1055610621_ + (gx#stx-e _hd1055410616_))) + (let ((_hd1055710624_ + (##car _e1055610621_)) + (_tl1055810626_ + (##cdr _e1055610621_))) + (if (gx#identifier? _hd1055710624_) (if (gx#stx-eq? '%#ref - _hd98549921_) + _hd1055710624_) (if (gx#stx-pair? - _tl98559923_) - (let ((_e98569926_ + _tl1055810626_) + (let ((_e1055910629_ (gx#stx-e - _tl98559923_))) - (let ((_hd98579929_ - (##car _e98569926_)) - (_tl98589931_ - (##cdr _e98569926_))) + _tl1055810626_))) + (let ((_hd1056010632_ + (##car _e1055910629_)) + (_tl1056110634_ + (##cdr _e1055910629_))) (if (gx#stx-null? - _tl98589931_) + _tl1056110634_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl98529915_) - (let ((_e98599934_ (gx#stx-e _tl98529915_))) - (let ((_hd98609937_ (##car _e98599934_)) - (_tl98619939_ (##cdr _e98599934_))) - (if (gx#stx-pair? _hd98609937_) - (let ((_e98629942_ (gx#stx-e _hd98609937_))) - (let ((_hd98639945_ (##car _e98629942_)) - (_tl98649947_ (##cdr _e98629942_))) - (if (gx#identifier? _hd98639945_) - (if (gx#stx-eq? '%#ref _hd98639945_) - (if (gx#stx-pair? _tl98649947_) - (let ((_e98659950_ + _tl1055510618_) + (let ((_e1056210637_ (gx#stx-e _tl1055510618_))) + (let ((_hd1056310640_ (##car _e1056210637_)) + (_tl1056410642_ (##cdr _e1056210637_))) + (if (gx#stx-pair? _hd1056310640_) + (let ((_e1056510645_ + (gx#stx-e _hd1056310640_))) + (let ((_hd1056610648_ + (##car _e1056510645_)) + (_tl1056710650_ + (##cdr _e1056510645_))) + (if (gx#identifier? _hd1056610648_) + (if (gx#stx-eq? + '%#ref + _hd1056610648_) + (if (gx#stx-pair? + _tl1056710650_) + (let ((_e1056810653_ (gx#stx-e - _tl98649947_))) - (let ((_hd98669953_ - (##car _e98659950_)) - (_tl98679955_ - (##cdr _e98659950_))) + _tl1056710650_))) + (let ((_hd1056910656_ + (##car _e1056810653_)) + (_tl1057010658_ + (##cdr _e1056810653_))) (if (gx#stx-null? - _tl98679955_) + _tl1057010658_) (if (gx#stx-pair? - _tl98619939_) - (let ((_e98689958_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl98619939_))) - (let ((_hd98699961_ (##car _e98689958_)) - (_tl98709963_ (##cdr _e98689958_))) - (if (gx#stx-pair? _hd98699961_) - (let ((_e98719966_ (gx#stx-e _hd98699961_))) - (let ((_hd98729969_ (##car _e98719966_)) - (_tl98739971_ (##cdr _e98719966_))) - (if (gx#identifier? _hd98729969_) - (if (gx#stx-eq? '%#quote _hd98729969_) - (if (gx#stx-pair? _tl98739971_) - (let ((_e98749974_ - (gx#stx-e _tl98739971_))) - (let ((_hd98759977_ - (##car _e98749974_)) - (_tl98769979_ - (##cdr _e98749974_))) + _tl1056410642_) + (let ((_e1057110661_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _tl1056410642_))) + (let ((_hd1057210664_ (##car _e1057110661_)) + (_tl1057310666_ (##cdr _e1057110661_))) + (if (gx#stx-pair? _hd1057210664_) + (let ((_e1057410669_ (gx#stx-e _hd1057210664_))) + (let ((_hd1057510672_ (##car _e1057410669_)) + (_tl1057610674_ (##cdr _e1057410669_))) + (if (gx#identifier? _hd1057510672_) + (if (gx#stx-eq? '%#quote _hd1057510672_) + (if (gx#stx-pair? _tl1057610674_) + (let ((_e1057710677_ + (gx#stx-e + _tl1057610674_))) + (let ((_hd1057810680_ + (##car _e1057710677_)) + (_tl1057910682_ + (##cdr _e1057710677_))) (if (gx#stx-null? - _tl98769979_) + _tl1057910682_) (if (gx#stx-pair? - _tl98709963_) - (let ((_e98779982_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl98709963_))) - (let ((_hd98789985_ (##car _e98779982_)) - (_tl98799987_ (##cdr _e98779982_))) - (if (gx#stx-pair? _hd98789985_) - (let ((_e98809990_ (gx#stx-e _hd98789985_))) - (let ((_hd98819993_ (##car _e98809990_)) - (_tl98829995_ (##cdr _e98809990_))) - (if (gx#identifier? _hd98819993_) - (if (gx#stx-eq? '%#ref _hd98819993_) - (if (gx#stx-pair? _tl98829995_) - (let ((_e98839998_ - (gx#stx-e _tl98829995_))) - (let ((_hd988410001_ - (##car _e98839998_)) - (_tl988510003_ - (##cdr _e98839998_))) - (if (gx#stx-null? _tl988510003_) + _tl1057310666_) + (let ((_e1058010685_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _tl1057310666_))) + (let ((_hd1058110688_ (##car _e1058010685_)) + (_tl1058210690_ (##cdr _e1058010685_))) + (if (gx#stx-pair? _hd1058110688_) + (let ((_e1058310693_ (gx#stx-e _hd1058110688_))) + (let ((_hd1058410696_ (##car _e1058310693_)) + (_tl1058510698_ (##cdr _e1058310693_))) + (if (gx#identifier? _hd1058410696_) + (if (gx#stx-eq? '%#ref _hd1058410696_) + (if (gx#stx-pair? _tl1058510698_) + (let ((_e1058610701_ + (gx#stx-e _tl1058510698_))) + (let ((_hd1058710704_ + (##car _e1058610701_)) + (_tl1058810706_ + (##cdr _e1058610701_))) + (if (gx#stx-null? + _tl1058810706_) (if (gx#stx-null? - _tl98799987_) - ((lambda (_L10006_ + _tl1058210690_) + ((lambda (_L10709_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L10007_ - _L10008_ - _L10009_) + _L10710_ + _L10711_ + _L10712_) (if (eq? (gxc#generate-runtime-binding-id - (gx#datum->syntax '#f '-bind-method)) + (gx#datum->syntax__0 '#f '-bind-method)) 'bind-method!) (cons 'declare-method - (cons (gxc#generate-runtime-binding-id _L10008_) - (cons (gx#stx-e _L10007_) + (cons (gxc#generate-runtime-binding-id _L10711_) + (cons (gx#stx-e _L10710_) (cons (gxc#generate-runtime-binding-id - _L10006_) + _L10709_) (cons '#f '()))))) - (_g97879897_ _g97899900_))) - _hd988410001_ - _hd98759977_ - _hd98669953_ - _hd98579929_) - (_g97879897_ _g97899900_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g97879897_ _g97899900_)))) - (_g97879897_ _g97899900_)) - (_g97879897_ _g97899900_)) - (_g97879897_ _g97899900_)))) - (_g97879897_ _g97899900_)))) - (_g97879897_ _g97899900_)) - (_g97879897_ _g97899900_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g97879897_ _g97899900_)) - (_g97879897_ _g97899900_)) - (_g97879897_ _g97899900_)))) - (_g97879897_ _g97899900_)))) - (_g97879897_ _g97899900_)) - (_g97879897_ _g97899900_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g97879897_ _g97899900_)) - (_g97879897_ _g97899900_)) - (_g97879897_ _g97899900_)))) - (_g97879897_ _g97899900_)))) - (_g97879897_ _g97899900_)) - (_g97879897_ _g97899900_)))) - (_g97879897_ _g97899900_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g97879897_ _g97899900_)) - (_g97879897_ _g97899900_)))) - (_g97879897_ _g97899900_)))) - (_g97879897_ _g97899900_)))) - (_g97879897_ _g97899900_))))) - (let ((_g978510227_ - (lambda (_g978910050_) - (if (gx#stx-pair? _g978910050_) - (let ((_e979510052_ (gx#stx-e _g978910050_))) - (let ((_hd979610055_ (##car _e979510052_)) - (_tl979710057_ (##cdr _e979510052_))) - (if (gx#stx-pair? _tl979710057_) - (let ((_e979810060_ (gx#stx-e _tl979710057_))) - (let ((_hd979910063_ (##car _e979810060_)) - (_tl980010065_ (##cdr _e979810060_))) - (if (gx#stx-pair? _hd979910063_) - (let ((_e980110068_ - (gx#stx-e _hd979910063_))) - (let ((_hd980210071_ - (##car _e980110068_)) - (_tl980310073_ - (##cdr _e980110068_))) - (if (gx#identifier? _hd980210071_) + (_g1049010600_ _g1049210603_))) + _hd1058710704_ + _hd1057810680_ + _hd1056910656_ + _hd1056010632_) + (_g1049010600_ _g1049210603_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1049010600_ + _g1049210603_)))) + (_g1049010600_ _g1049210603_)) + (_g1049010600_ _g1049210603_)) + (_g1049010600_ _g1049210603_)))) + (_g1049010600_ _g1049210603_)))) + (_g1049010600_ _g1049210603_)) + (_g1049010600_ _g1049210603_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1049010600_ _g1049210603_)) + (_g1049010600_ _g1049210603_)) + (_g1049010600_ _g1049210603_)))) + (_g1049010600_ _g1049210603_)))) + (_g1049010600_ _g1049210603_)) + (_g1049010600_ _g1049210603_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1049010600_ + _g1049210603_)) + (_g1049010600_ _g1049210603_)) + (_g1049010600_ _g1049210603_)))) + (_g1049010600_ _g1049210603_)))) + (_g1049010600_ _g1049210603_)) + (_g1049010600_ _g1049210603_)))) + (_g1049010600_ _g1049210603_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1049010600_ + _g1049210603_)) + (_g1049010600_ _g1049210603_)))) + (_g1049010600_ _g1049210603_)))) + (_g1049010600_ _g1049210603_)))) + (_g1049010600_ _g1049210603_))))) + (let ((_g1048810930_ + (lambda (_g1049210753_) + (if (gx#stx-pair? _g1049210753_) + (let ((_e1049810755_ (gx#stx-e _g1049210753_))) + (let ((_hd1049910758_ (##car _e1049810755_)) + (_tl1050010760_ (##cdr _e1049810755_))) + (if (gx#stx-pair? _tl1050010760_) + (let ((_e1050110763_ + (gx#stx-e _tl1050010760_))) + (let ((_hd1050210766_ (##car _e1050110763_)) + (_tl1050310768_ + (##cdr _e1050110763_))) + (if (gx#stx-pair? _hd1050210766_) + (let ((_e1050410771_ + (gx#stx-e _hd1050210766_))) + (let ((_hd1050510774_ + (##car _e1050410771_)) + (_tl1050610776_ + (##cdr _e1050410771_))) + (if (gx#identifier? + _hd1050510774_) (if (gx#stx-eq? '%#ref - _hd980210071_) + _hd1050510774_) (if (gx#stx-pair? - _tl980310073_) - (let ((_e980410076_ + _tl1050610776_) + (let ((_e1050710779_ (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl980310073_))) - (let ((_hd980510079_ (##car _e980410076_)) - (_tl980610081_ (##cdr _e980410076_))) - (if (gx#stx-null? _tl980610081_) - (if (gx#stx-pair? _tl980010065_) - (let ((_e980710084_ (gx#stx-e _tl980010065_))) - (let ((_hd980810087_ (##car _e980710084_)) - (_tl980910089_ (##cdr _e980710084_))) - (if (gx#stx-pair? _hd980810087_) - (let ((_e981010092_ - (gx#stx-e _hd980810087_))) - (let ((_hd981110095_ - (##car _e981010092_)) - (_tl981210097_ - (##cdr _e981010092_))) - (if (gx#identifier? _hd981110095_) + _tl1050610776_))) + (let ((_hd1050810782_ (##car _e1050710779_)) + (_tl1050910784_ (##cdr _e1050710779_))) + (if (gx#stx-null? _tl1050910784_) + (if (gx#stx-pair? _tl1050310768_) + (let ((_e1051010787_ (gx#stx-e _tl1050310768_))) + (let ((_hd1051110790_ (##car _e1051010787_)) + (_tl1051210792_ (##cdr _e1051010787_))) + (if (gx#stx-pair? _hd1051110790_) + (let ((_e1051310795_ + (gx#stx-e _hd1051110790_))) + (let ((_hd1051410798_ + (##car _e1051310795_)) + (_tl1051510800_ + (##cdr _e1051310795_))) + (if (gx#identifier? _hd1051410798_) (if (gx#stx-eq? '%#ref - _hd981110095_) + _hd1051410798_) (if (gx#stx-pair? - _tl981210097_) - (let ((_e981310100_ + _tl1051510800_) + (let ((_e1051610803_ (gx#stx-e - _tl981210097_))) - (let ((_hd981410103_ - (##car _e981310100_)) - (_tl981510105_ - (##cdr _e981310100_))) + _tl1051510800_))) + (let ((_hd1051710806_ + (##car _e1051610803_)) + (_tl1051810808_ + (##cdr _e1051610803_))) (if (gx#stx-null? - _tl981510105_) + _tl1051810808_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl980910089_) - (let ((_e981610108_ (gx#stx-e _tl980910089_))) - (let ((_hd981710111_ (##car _e981610108_)) - (_tl981810113_ (##cdr _e981610108_))) - (if (gx#stx-pair? _hd981710111_) - (let ((_e981910116_ (gx#stx-e _hd981710111_))) - (let ((_hd982010119_ (##car _e981910116_)) - (_tl982110121_ (##cdr _e981910116_))) - (if (gx#identifier? _hd982010119_) + _tl1051210792_) + (let ((_e1051910811_ (gx#stx-e _tl1051210792_))) + (let ((_hd1052010814_ (##car _e1051910811_)) + (_tl1052110816_ (##cdr _e1051910811_))) + (if (gx#stx-pair? _hd1052010814_) + (let ((_e1052210819_ + (gx#stx-e _hd1052010814_))) + (let ((_hd1052310822_ (##car _e1052210819_)) + (_tl1052410824_ + (##cdr _e1052210819_))) + (if (gx#identifier? _hd1052310822_) (if (gx#stx-eq? '%#quote - _hd982010119_) - (if (gx#stx-pair? _tl982110121_) - (let ((_e982210124_ + _hd1052310822_) + (if (gx#stx-pair? _tl1052410824_) + (let ((_e1052510827_ (gx#stx-e - _tl982110121_))) - (let ((_hd982310127_ - (##car _e982210124_)) - (_tl982410129_ - (##cdr _e982210124_))) + _tl1052410824_))) + (let ((_hd1052610830_ + (##car _e1052510827_)) + (_tl1052710832_ + (##cdr _e1052510827_))) (if (gx#stx-null? - _tl982410129_) + _tl1052710832_) (if (gx#stx-pair? - _tl981810113_) - (let ((_e982510132_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _tl981810113_))) - (let ((_hd982610135_ (##car _e982510132_)) - (_tl982710137_ (##cdr _e982510132_))) - (if (gx#stx-pair? _hd982610135_) - (let ((_e982810140_ (gx#stx-e _hd982610135_))) - (let ((_hd982910143_ (##car _e982810140_)) - (_tl983010145_ (##cdr _e982810140_))) - (if (gx#identifier? _hd982910143_) - (if (gx#stx-eq? '%#ref _hd982910143_) - (if (gx#stx-pair? _tl983010145_) - (let ((_e983110148_ - (gx#stx-e _tl983010145_))) - (let ((_hd983210151_ - (##car _e983110148_)) - (_tl983310153_ - (##cdr _e983110148_))) + _tl1052110816_) + (let ((_e1052810835_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _tl1052110816_))) + (let ((_hd1052910838_ (##car _e1052810835_)) + (_tl1053010840_ (##cdr _e1052810835_))) + (if (gx#stx-pair? _hd1052910838_) + (let ((_e1053110843_ (gx#stx-e _hd1052910838_))) + (let ((_hd1053210846_ (##car _e1053110843_)) + (_tl1053310848_ (##cdr _e1053110843_))) + (if (gx#identifier? _hd1053210846_) + (if (gx#stx-eq? '%#ref _hd1053210846_) + (if (gx#stx-pair? _tl1053310848_) + (let ((_e1053410851_ + (gx#stx-e _tl1053310848_))) + (let ((_hd1053510854_ + (##car _e1053410851_)) + (_tl1053610856_ + (##cdr _e1053410851_))) (if (gx#stx-null? - _tl983310153_) + _tl1053610856_) (if (gx#stx-pair? - _tl982710137_) - (let ((_e983410156_ + _tl1053010840_) + (let ((_e1053710859_ (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl982710137_))) - (let ((_hd983510159_ (##car _e983410156_)) - (_tl983610161_ (##cdr _e983410156_))) - (if (gx#stx-pair? _hd983510159_) - (let ((_e983710164_ (gx#stx-e _hd983510159_))) - (let ((_hd983810167_ (##car _e983710164_)) - (_tl983910169_ (##cdr _e983710164_))) - (if (gx#identifier? _hd983810167_) - (if (gx#stx-eq? '%#quote _hd983810167_) - (if (gx#stx-pair? _tl983910169_) - (let ((_e984010172_ - (gx#stx-e _tl983910169_))) - (let ((_hd984110175_ - (##car _e984010172_)) - (_tl984210177_ - (##cdr _e984010172_))) - (if (gx#stx-null? _tl984210177_) + _tl1053010840_))) + (let ((_hd1053810862_ (##car _e1053710859_)) + (_tl1053910864_ (##cdr _e1053710859_))) + (if (gx#stx-pair? _hd1053810862_) + (let ((_e1054010867_ (gx#stx-e _hd1053810862_))) + (let ((_hd1054110870_ (##car _e1054010867_)) + (_tl1054210872_ (##cdr _e1054010867_))) + (if (gx#identifier? _hd1054110870_) + (if (gx#stx-eq? '%#quote _hd1054110870_) + (if (gx#stx-pair? _tl1054210872_) + (let ((_e1054310875_ + (gx#stx-e _tl1054210872_))) + (let ((_hd1054410878_ + (##car _e1054310875_)) + (_tl1054510880_ + (##cdr _e1054310875_))) + (if (gx#stx-null? _tl1054510880_) (if (gx#stx-null? - _tl983610161_) - ((lambda (_L10180_ - _L10181_ - _L10182_ - _L10183_ - _L10184_) + _tl1053910864_) + ((lambda (_L10883_ + _L10884_ + _L10885_ + _L10886_ + _L10887_) (if (eq? (gxc#generate-runtime-binding-id ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L10184_) + _L10887_) 'bind-method!) (cons 'declare-method - (cons (gxc#generate-runtime-binding-id _L10183_) - (cons (gx#stx-e _L10182_) + (cons (gxc#generate-runtime-binding-id _L10886_) + (cons (gx#stx-e _L10885_) (cons (gxc#generate-runtime-binding-id - _L10181_) - (cons (gx#stx-e _L10180_) '()))))) - (_g978610047_ _g978910050_))) - _hd984110175_ - _hd983210151_ - _hd982310127_ - _hd981410103_ - _hd980510079_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g978610047_ - _g978910050_)) - (_g978610047_ _g978910050_)))) - (_g978610047_ _g978910050_)) - (_g978610047_ _g978910050_)) - (_g978610047_ _g978910050_)))) - (_g978610047_ _g978910050_)))) - (_g978610047_ _g978910050_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g978610047_ - _g978910050_)))) - (_g978610047_ _g978910050_)) - (_g978610047_ _g978910050_)) - (_g978610047_ _g978910050_)))) - (_g978610047_ _g978910050_)))) - (_g978610047_ _g978910050_)) - (_g978610047_ _g978910050_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g978610047_ _g978910050_)) - (_g978610047_ _g978910050_)) - (_g978610047_ _g978910050_)))) - (_g978610047_ _g978910050_)))) - (_g978610047_ _g978910050_)) - (_g978610047_ _g978910050_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g978610047_ - _g978910050_)) - (_g978610047_ _g978910050_)) - (_g978610047_ _g978910050_)))) - (_g978610047_ _g978910050_)))) - (_g978610047_ _g978910050_)) - (_g978610047_ _g978910050_)))) - (_g978610047_ _g978910050_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g978610047_ - _g978910050_)) - (_g978610047_ _g978910050_)))) - (_g978610047_ _g978910050_)))) - (_g978610047_ _g978910050_)))) - (_g978610047_ _g978910050_))))) - (_g978510227_ _stx9784_))))))) + _L10884_) + (cons (gx#stx-e _L10883_) '()))))) + (_g1048910750_ _g1049210753_))) + _hd1054410878_ + _hd1053510854_ + _hd1052610830_ + _hd1051710806_ + _hd1050810782_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1048910750_ + _g1049210753_)) + (_g1048910750_ + _g1049210753_)))) + (_g1048910750_ _g1049210753_)) + (_g1048910750_ _g1049210753_)) + (_g1048910750_ _g1049210753_)))) + (_g1048910750_ _g1049210753_)))) + (_g1048910750_ _g1049210753_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1048910750_ + _g1049210753_)))) + (_g1048910750_ _g1049210753_)) + (_g1048910750_ _g1049210753_)) + (_g1048910750_ _g1049210753_)))) + (_g1048910750_ _g1049210753_)))) + (_g1048910750_ _g1049210753_)) + (_g1048910750_ _g1049210753_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1048910750_ _g1049210753_)) + (_g1048910750_ _g1049210753_)) + (_g1048910750_ _g1049210753_)))) + (_g1048910750_ _g1049210753_)))) + (_g1048910750_ _g1049210753_)) + (_g1048910750_ _g1049210753_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1048910750_ + _g1049210753_)) + (_g1048910750_ _g1049210753_)) + (_g1048910750_ _g1049210753_)))) + (_g1048910750_ _g1049210753_)))) + (_g1048910750_ _g1049210753_)) + (_g1048910750_ _g1049210753_)))) + (_g1048910750_ _g1049210753_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1048910750_ + _g1049210753_)) + (_g1048910750_ + _g1049210753_)))) + (_g1048910750_ _g1049210753_)))) + (_g1048910750_ _g1049210753_)))) + (_g1048910750_ _g1049210753_))))) + (_g1048810930_ _stx10487_))))))) (define gxc#!alias::typedecl - (lambda (_self9760_) - (let ((_self97619767_ _self9760_)) - (let ((_E97639771_ - (lambda () (error '"No clause matching" _self97619767_)))) - (let ((_K97649776_ - (lambda (_alias-id9774_) - (cons '@alias (cons _alias-id9774_ '()))))) - (if (struct-instance? gxc#!alias::t _self97619767_) - (let ((_e97659779_ (##vector-ref _self97619767_ '1))) - (let ((_alias-id9782_ _e97659779_)) - (_K97649776_ _alias-id9782_))) - (_E97639771_))))))) + (lambda (_self10463_) + (let ((_self1046410470_ _self10463_)) + (let ((_E1046610474_ + (lambda () (error '"No clause matching" _self1046410470_)))) + (let ((_K1046710479_ + (lambda (_alias-id10477_) + (cons '@alias (cons _alias-id10477_ '()))))) + (if (struct-instance? gxc#!alias::t _self1046410470_) + (let ((_e1046810482_ (##vector-ref _self1046410470_ '1))) + (let ((_alias-id10485_ _e1046810482_)) + (_K1046710479_ _alias-id10485_))) + (_E1046610474_))))))) (bind-method! gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f) (define gxc#!struct-type::typedecl - (lambda (_self9704_) - (let ((_self97059716_ _self9704_)) - (let ((_E97079720_ - (lambda () (error '"No clause matching" _self97059716_)))) - (let ((_K97089729_ - (lambda (_plist9723_ - _ctor9724_ - _fields9725_ - _super9726_ - _type-id9727_) + (lambda (_self10407_) + (let ((_self1040810419_ _self10407_)) + (let ((_E1041010423_ + (lambda () (error '"No clause matching" _self1040810419_)))) + (let ((_K1041110432_ + (lambda (_plist10426_ + _ctor10427_ + _fields10428_ + _super10429_ + _type-id10430_) (cons '@struct-type - (cons _type-id9727_ - (cons _super9726_ - (cons _fields9725_ - (cons _ctor9724_ - (cons _plist9723_ '()))))))))) - (if (struct-instance? gxc#!struct-type::t _self97059716_) - (let ((_e97099732_ (##vector-ref _self97059716_ '1))) - (let ((_type-id9735_ _e97099732_)) - (let ((_e97109737_ (##vector-ref _self97059716_ '2))) - (let ((_super9740_ _e97109737_)) - (let ((_e97119742_ (##vector-ref _self97059716_ '3))) - (let ((_fields9745_ _e97119742_)) - (let ((_e97129747_ - (##vector-ref _self97059716_ '4))) - (let ((_e97139750_ - (##vector-ref _self97059716_ '5))) - (let ((_ctor9753_ _e97139750_)) - (let ((_e97149755_ - (##vector-ref _self97059716_ '6))) - (let ((_plist9758_ _e97149755_)) - (_K97089729_ - _plist9758_ - _ctor9753_ - _fields9745_ - _super9740_ - _type-id9735_)))))))))))) - (_E97079720_))))))) + (cons _type-id10430_ + (cons _super10429_ + (cons _fields10428_ + (cons _ctor10427_ + (cons _plist10426_ + '()))))))))) + (if (struct-instance? gxc#!struct-type::t _self1040810419_) + (let ((_e1041210435_ (##vector-ref _self1040810419_ '1))) + (let ((_type-id10438_ _e1041210435_)) + (let ((_e1041310440_ (##vector-ref _self1040810419_ '2))) + (let ((_super10443_ _e1041310440_)) + (let ((_e1041410445_ + (##vector-ref _self1040810419_ '3))) + (let ((_fields10448_ _e1041410445_)) + (let ((_e1041510450_ + (##vector-ref _self1040810419_ '4))) + (let ((_e1041610453_ + (##vector-ref _self1040810419_ '5))) + (let ((_ctor10456_ _e1041610453_)) + (let ((_e1041710458_ + (##vector-ref _self1040810419_ '6))) + (let ((_plist10461_ _e1041710458_)) + (_K1041110432_ + _plist10461_ + _ctor10456_ + _fields10448_ + _super10443_ + _type-id10438_)))))))))))) + (_E1041010423_))))))) (bind-method! gxc#!struct-type::t 'typedecl gxc#!struct-type::typedecl '#f) (define gxc#!struct-pred::typedecl - (lambda (_self9680_) - (let ((_self96819687_ _self9680_)) - (let ((_E96839691_ - (lambda () (error '"No clause matching" _self96819687_)))) - (let ((_K96849696_ - (lambda (_struct-t9694_) - (cons '@struct-pred (cons _struct-t9694_ '()))))) - (if (struct-instance? gxc#!struct-pred::t _self96819687_) - (let ((_e96859699_ (##vector-ref _self96819687_ '1))) - (let ((_struct-t9702_ _e96859699_)) - (_K96849696_ _struct-t9702_))) - (_E96839691_))))))) + (lambda (_self10383_) + (let ((_self1038410390_ _self10383_)) + (let ((_E1038610394_ + (lambda () (error '"No clause matching" _self1038410390_)))) + (let ((_K1038710399_ + (lambda (_struct-t10397_) + (cons '@struct-pred (cons _struct-t10397_ '()))))) + (if (struct-instance? gxc#!struct-pred::t _self1038410390_) + (let ((_e1038810402_ (##vector-ref _self1038410390_ '1))) + (let ((_struct-t10405_ _e1038810402_)) + (_K1038710399_ _struct-t10405_))) + (_E1038610394_))))))) (bind-method! gxc#!struct-pred::t 'typedecl gxc#!struct-pred::typedecl '#f) (define gxc#!struct-cons::typedecl - (lambda (_self9656_) - (let ((_self96579663_ _self9656_)) - (let ((_E96599667_ - (lambda () (error '"No clause matching" _self96579663_)))) - (let ((_K96609672_ - (lambda (_struct-t9670_) - (cons '@struct-cons (cons _struct-t9670_ '()))))) - (if (struct-instance? gxc#!struct-cons::t _self96579663_) - (let ((_e96619675_ (##vector-ref _self96579663_ '1))) - (let ((_struct-t9678_ _e96619675_)) - (_K96609672_ _struct-t9678_))) - (_E96599667_))))))) + (lambda (_self10359_) + (let ((_self1036010366_ _self10359_)) + (let ((_E1036210370_ + (lambda () (error '"No clause matching" _self1036010366_)))) + (let ((_K1036310375_ + (lambda (_struct-t10373_) + (cons '@struct-cons (cons _struct-t10373_ '()))))) + (if (struct-instance? gxc#!struct-cons::t _self1036010366_) + (let ((_e1036410378_ (##vector-ref _self1036010366_ '1))) + (let ((_struct-t10381_ _e1036410378_)) + (_K1036310375_ _struct-t10381_))) + (_E1036210370_))))))) (bind-method! gxc#!struct-cons::t 'typedecl gxc#!struct-cons::typedecl '#f) (define gxc#!struct-getf::typedecl - (lambda (_self9625_) - (let ((_self96269633_ _self9625_)) - (let ((_E96289637_ - (lambda () (error '"No clause matching" _self96269633_)))) - (let ((_K96299643_ - (lambda (_off9640_ _struct-t9641_) + (lambda (_self10328_) + (let ((_self1032910336_ _self10328_)) + (let ((_E1033110340_ + (lambda () (error '"No clause matching" _self1032910336_)))) + (let ((_K1033210346_ + (lambda (_off10343_ _struct-t10344_) (cons '@struct-getf - (cons _struct-t9641_ (cons _off9640_ '())))))) - (if (struct-instance? gxc#!struct-getf::t _self96269633_) - (let ((_e96309646_ (##vector-ref _self96269633_ '1))) - (let ((_struct-t9649_ _e96309646_)) - (let ((_e96319651_ (##vector-ref _self96269633_ '2))) - (let ((_off9654_ _e96319651_)) - (_K96299643_ _off9654_ _struct-t9649_))))) - (_E96289637_))))))) + (cons _struct-t10344_ (cons _off10343_ '())))))) + (if (struct-instance? gxc#!struct-getf::t _self1032910336_) + (let ((_e1033310349_ (##vector-ref _self1032910336_ '1))) + (let ((_struct-t10352_ _e1033310349_)) + (let ((_e1033410354_ (##vector-ref _self1032910336_ '2))) + (let ((_off10357_ _e1033410354_)) + (_K1033210346_ _off10357_ _struct-t10352_))))) + (_E1033110340_))))))) (bind-method! gxc#!struct-getf::t 'typedecl gxc#!struct-getf::typedecl '#f) (define gxc#!struct-setf::typedecl - (lambda (_self9594_) - (let ((_self95959602_ _self9594_)) - (let ((_E95979606_ - (lambda () (error '"No clause matching" _self95959602_)))) - (let ((_K95989612_ - (lambda (_off9609_ _struct-t9610_) + (lambda (_self10297_) + (let ((_self1029810305_ _self10297_)) + (let ((_E1030010309_ + (lambda () (error '"No clause matching" _self1029810305_)))) + (let ((_K1030110315_ + (lambda (_off10312_ _struct-t10313_) (cons '@struct-setf - (cons _struct-t9610_ (cons _off9609_ '())))))) - (if (struct-instance? gxc#!struct-setf::t _self95959602_) - (let ((_e95999615_ (##vector-ref _self95959602_ '1))) - (let ((_struct-t9618_ _e95999615_)) - (let ((_e96009620_ (##vector-ref _self95959602_ '2))) - (let ((_off9623_ _e96009620_)) - (_K95989612_ _off9623_ _struct-t9618_))))) - (_E95979606_))))))) + (cons _struct-t10313_ (cons _off10312_ '())))))) + (if (struct-instance? gxc#!struct-setf::t _self1029810305_) + (let ((_e1030210318_ (##vector-ref _self1029810305_ '1))) + (let ((_struct-t10321_ _e1030210318_)) + (let ((_e1030310323_ (##vector-ref _self1029810305_ '2))) + (let ((_off10326_ _e1030310323_)) + (_K1030110315_ _off10326_ _struct-t10321_))))) + (_E1030010309_))))))) (bind-method! gxc#!struct-setf::t 'typedecl gxc#!struct-setf::typedecl '#f) (define gxc#!lambda::typedecl - (lambda (_self9542_) - (let ((_self95439553_ _self9542_)) - (let ((_E95459557_ - (lambda () (error '"No clause matching" _self95439553_)))) - (let ((_K95469568_ - (lambda (_typedecl9560_ - _inline9561_ - _dispatch9562_ - _arity9563_) - (if _inline9561_ - (let ((_$e9565_ _typedecl9560_)) - (if _$e9565_ - _$e9565_ + (lambda (_self10245_) + (let ((_self1024610256_ _self10245_)) + (let ((_E1024810260_ + (lambda () (error '"No clause matching" _self1024610256_)))) + (let ((_K1024910271_ + (lambda (_typedecl10263_ + _inline10264_ + _dispatch10265_ + _arity10266_) + (if _inline10264_ + (let ((_$e10268_ _typedecl10263_)) + (if _$e10268_ + _$e10268_ (error '"Cannot generate typedecl for inline rules"))) (cons '@lambda - (cons _arity9563_ (cons _dispatch9562_ '()))))))) - (if (struct-instance? gxc#!lambda::t _self95439553_) - (let ((_e95479571_ (##vector-ref _self95439553_ '1))) - (let ((_e95489574_ (##vector-ref _self95439553_ '2))) - (let ((_arity9577_ _e95489574_)) - (let ((_e95499579_ (##vector-ref _self95439553_ '3))) - (let ((_dispatch9582_ _e95499579_)) - (let ((_e95509584_ (##vector-ref _self95439553_ '4))) - (let ((_inline9587_ _e95509584_)) - (let ((_e95519589_ - (##vector-ref _self95439553_ '5))) - (let ((_typedecl9592_ _e95519589_)) - (_K95469568_ - _typedecl9592_ - _inline9587_ - _dispatch9582_ - _arity9577_)))))))))) - (_E95459557_))))))) + (cons _arity10266_ + (cons _dispatch10265_ '()))))))) + (if (struct-instance? gxc#!lambda::t _self1024610256_) + (let ((_e1025010274_ (##vector-ref _self1024610256_ '1))) + (let ((_e1025110277_ (##vector-ref _self1024610256_ '2))) + (let ((_arity10280_ _e1025110277_)) + (let ((_e1025210282_ (##vector-ref _self1024610256_ '3))) + (let ((_dispatch10285_ _e1025210282_)) + (let ((_e1025310287_ + (##vector-ref _self1024610256_ '4))) + (let ((_inline10290_ _e1025310287_)) + (let ((_e1025410292_ + (##vector-ref _self1024610256_ '5))) + (let ((_typedecl10295_ _e1025410292_)) + (_K1024910271_ + _typedecl10295_ + _inline10290_ + _dispatch10285_ + _arity10280_)))))))))) + (_E1024810260_))))))) (bind-method! gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f) (define gxc#!case-lambda::typedecl - (lambda (_self9475_) - (let ((_clause-e9477_ - (lambda (_clause9507_) - (let ((_clause95089516_ _clause9507_)) - (let ((_E95109520_ + (lambda (_self10178_) + (let ((_clause-e10180_ + (lambda (_clause10210_) + (let ((_clause1021110219_ _clause10210_)) + (let ((_E1021310223_ (lambda () - (error '"No clause matching" _clause95089516_)))) - (let ((_K95119526_ - (lambda (_dispatch9523_ _arity9524_) - (cons _arity9524_ (cons _dispatch9523_ '()))))) - (if (struct-instance? gxc#!lambda::t _clause95089516_) - (let ((_e95129529_ - (##vector-ref _clause95089516_ '1))) - (let ((_e95139532_ - (##vector-ref _clause95089516_ '2))) - (let ((_arity9535_ _e95139532_)) - (let ((_e95149537_ - (##vector-ref _clause95089516_ '3))) - (let ((_dispatch9540_ _e95149537_)) - (_K95119526_ - _dispatch9540_ - _arity9535_)))))) - (_E95109520_)))))))) - (let ((_self94789485_ _self9475_)) - (let ((_E94809489_ - (lambda () (error '"No clause matching" _self94789485_)))) - (let ((_K94819496_ - (lambda (_clauses9492_) - (let ((_clauses9494_ (map _clause-e9477_ _clauses9492_))) - (cons '@case-lambda _clauses9494_))))) - (if (struct-instance? gxc#!case-lambda::t _self94789485_) - (let ((_e94829499_ (##vector-ref _self94789485_ '1))) - (let ((_e94839502_ (##vector-ref _self94789485_ '2))) - (let ((_clauses9505_ _e94839502_)) - (_K94819496_ _clauses9505_)))) - (_E94809489_)))))))) + (error '"No clause matching" _clause1021110219_)))) + (let ((_K1021410229_ + (lambda (_dispatch10226_ _arity10227_) + (cons _arity10227_ (cons _dispatch10226_ '()))))) + (if (struct-instance? gxc#!lambda::t _clause1021110219_) + (let ((_e1021510232_ + (##vector-ref _clause1021110219_ '1))) + (let ((_e1021610235_ + (##vector-ref _clause1021110219_ '2))) + (let ((_arity10238_ _e1021610235_)) + (let ((_e1021710240_ + (##vector-ref _clause1021110219_ '3))) + (let ((_dispatch10243_ _e1021710240_)) + (_K1021410229_ + _dispatch10243_ + _arity10238_)))))) + (_E1021310223_)))))))) + (let ((_self1018110188_ _self10178_)) + (let ((_E1018310192_ + (lambda () (error '"No clause matching" _self1018110188_)))) + (let ((_K1018410199_ + (lambda (_clauses10195_) + (let ((_clauses10197_ + (map _clause-e10180_ _clauses10195_))) + (cons '@case-lambda _clauses10197_))))) + (if (struct-instance? gxc#!case-lambda::t _self1018110188_) + (let ((_e1018510202_ (##vector-ref _self1018110188_ '1))) + (let ((_e1018610205_ (##vector-ref _self1018110188_ '2))) + (let ((_clauses10208_ _e1018610205_)) + (_K1018410199_ _clauses10208_)))) + (_E1018310192_)))))))) (bind-method! gxc#!case-lambda::t 'typedecl gxc#!case-lambda::typedecl '#f) (define gxc#identifier-symbol - (lambda (_stx9473_) (gxc#generate-runtime-binding-id _stx9473_)))) + (lambda (_stx10176_) (gxc#generate-runtime-binding-id _stx10176_)))) diff --git a/src/bootstrap/gerbil/compiler/optimize__1.scm b/src/bootstrap/gerbil/compiler/optimize__1.scm index cda908439..11a3dc582 100644 --- a/src/bootstrap/gerbil/compiler/optimize__1.scm +++ b/src/bootstrap/gerbil/compiler/optimize__1.scm @@ -1,114 +1,114 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define |gxc[1]#_g18583_| (gx#core-quote-syntax 'optimizer-info::t)) - (define |gxc[1]#_g18584_| (gx#core-quote-syntax 'optimizer-info::t)) - (define |gxc[1]#_g18585_| (gx#core-quote-syntax 'make-optimizer-info)) - (define |gxc[1]#_g18586_| (gx#core-quote-syntax 'optimizer-info?)) - (define |gxc[1]#_g18587_| (gx#core-quote-syntax 'optimizer-info-type)) - (define |gxc[1]#_g18588_| (gx#core-quote-syntax 'optimizer-info-ssxi)) - (define |gxc[1]#_g18589_| (gx#core-quote-syntax 'optimizer-info-type-set!)) - (define |gxc[1]#_g18590_| (gx#core-quote-syntax 'optimizer-info-ssxi-set!)) - (define |gxc[1]#_g18591_| (gx#core-quote-syntax '!type::t)) - (define |gxc[1]#_g18592_| (gx#core-quote-syntax '!type::t)) - (define |gxc[1]#_g18593_| (gx#core-quote-syntax 'make-!type)) - (define |gxc[1]#_g18594_| (gx#core-quote-syntax '!type?)) - (define |gxc[1]#_g18595_| (gx#core-quote-syntax '!type-id)) - (define |gxc[1]#_g18596_| (gx#core-quote-syntax '!type-id-set!)) - (define |gxc[1]#_g18597_| (gx#core-quote-syntax '!alias::t)) - (define |gxc[1]#_g18598_| (gx#core-quote-syntax '!type::t)) - (define |gxc[1]#_g18599_| (gx#core-quote-syntax '!alias::t)) - (define |gxc[1]#_g18600_| (gx#core-quote-syntax 'make-!alias)) - (define |gxc[1]#_g18601_| (gx#core-quote-syntax '!alias?)) - (define |gxc[1]#_g18602_| (gx#core-quote-syntax '!type)) - (define |gxc[1]#_g18603_| (gx#core-quote-syntax '!struct-type::t)) - (define |gxc[1]#_g18604_| (gx#core-quote-syntax '!type::t)) - (define |gxc[1]#_g18605_| (gx#core-quote-syntax '!struct-type::t)) - (define |gxc[1]#_g18606_| (gx#core-quote-syntax 'make-!struct-type)) - (define |gxc[1]#_g18607_| (gx#core-quote-syntax '!struct-type?)) - (define |gxc[1]#_g18608_| (gx#core-quote-syntax '!struct-type-super)) - (define |gxc[1]#_g18609_| (gx#core-quote-syntax '!struct-type-fields)) - (define |gxc[1]#_g18610_| (gx#core-quote-syntax '!struct-type-xfields)) - (define |gxc[1]#_g18611_| (gx#core-quote-syntax '!struct-type-ctor)) - (define |gxc[1]#_g18612_| (gx#core-quote-syntax '!struct-type-plist)) - (define |gxc[1]#_g18613_| (gx#core-quote-syntax '!struct-type-methods)) - (define |gxc[1]#_g18614_| (gx#core-quote-syntax '!struct-type-super-set!)) - (define |gxc[1]#_g18615_| (gx#core-quote-syntax '!struct-type-fields-set!)) - (define |gxc[1]#_g18616_| (gx#core-quote-syntax '!struct-type-xfields-set!)) - (define |gxc[1]#_g18617_| (gx#core-quote-syntax '!struct-type-ctor-set!)) - (define |gxc[1]#_g18618_| (gx#core-quote-syntax '!struct-type-plist-set!)) - (define |gxc[1]#_g18619_| (gx#core-quote-syntax '!struct-type-methods-set!)) - (define |gxc[1]#_g18620_| (gx#core-quote-syntax '!type)) - (define |gxc[1]#_g18621_| (gx#core-quote-syntax '!procedure::t)) - (define |gxc[1]#_g18622_| (gx#core-quote-syntax '!type::t)) - (define |gxc[1]#_g18623_| (gx#core-quote-syntax '!procedure::t)) - (define |gxc[1]#_g18624_| (gx#core-quote-syntax 'make-!procedure)) - (define |gxc[1]#_g18625_| (gx#core-quote-syntax '!procedure?)) - (define |gxc[1]#_g18626_| (gx#core-quote-syntax '!type)) - (define |gxc[1]#_g18627_| (gx#core-quote-syntax '!struct-pred::t)) - (define |gxc[1]#_g18628_| (gx#core-quote-syntax '!procedure::t)) - (define |gxc[1]#_g18629_| (gx#core-quote-syntax '!struct-pred::t)) - (define |gxc[1]#_g18630_| (gx#core-quote-syntax 'make-!struct-pred)) - (define |gxc[1]#_g18631_| (gx#core-quote-syntax '!struct-pred?)) - (define |gxc[1]#_g18632_| (gx#core-quote-syntax '!procedure)) - (define |gxc[1]#_g18633_| (gx#core-quote-syntax '!struct-cons::t)) - (define |gxc[1]#_g18634_| (gx#core-quote-syntax '!procedure::t)) - (define |gxc[1]#_g18635_| (gx#core-quote-syntax '!struct-cons::t)) - (define |gxc[1]#_g18636_| (gx#core-quote-syntax 'make-!struct-cons)) - (define |gxc[1]#_g18637_| (gx#core-quote-syntax '!struct-cons?)) - (define |gxc[1]#_g18638_| (gx#core-quote-syntax '!procedure)) - (define |gxc[1]#_g18639_| (gx#core-quote-syntax '!struct-getf::t)) - (define |gxc[1]#_g18640_| (gx#core-quote-syntax '!procedure::t)) - (define |gxc[1]#_g18641_| (gx#core-quote-syntax '!struct-getf::t)) - (define |gxc[1]#_g18642_| (gx#core-quote-syntax 'make-!struct-getf)) - (define |gxc[1]#_g18643_| (gx#core-quote-syntax '!struct-getf?)) - (define |gxc[1]#_g18644_| (gx#core-quote-syntax '!struct-getf-off)) - (define |gxc[1]#_g18645_| (gx#core-quote-syntax '!struct-getf-off-set!)) - (define |gxc[1]#_g18646_| (gx#core-quote-syntax '!procedure)) - (define |gxc[1]#_g18647_| (gx#core-quote-syntax '!struct-setf::t)) - (define |gxc[1]#_g18648_| (gx#core-quote-syntax '!procedure::t)) - (define |gxc[1]#_g18649_| (gx#core-quote-syntax '!struct-setf::t)) - (define |gxc[1]#_g18650_| (gx#core-quote-syntax 'make-!struct-setf)) - (define |gxc[1]#_g18651_| (gx#core-quote-syntax '!struct-setf?)) - (define |gxc[1]#_g18652_| (gx#core-quote-syntax '!struct-setf-off)) - (define |gxc[1]#_g18653_| (gx#core-quote-syntax '!struct-setf-off-set!)) - (define |gxc[1]#_g18654_| (gx#core-quote-syntax '!procedure)) - (define |gxc[1]#_g18655_| (gx#core-quote-syntax '!lambda::t)) - (define |gxc[1]#_g18656_| (gx#core-quote-syntax '!procedure::t)) - (define |gxc[1]#_g18657_| (gx#core-quote-syntax '!lambda::t)) - (define |gxc[1]#_g18658_| (gx#core-quote-syntax 'make-!lambda)) - (define |gxc[1]#_g18659_| (gx#core-quote-syntax '!lambda?)) - (define |gxc[1]#_g18660_| (gx#core-quote-syntax '!lambda-arity)) - (define |gxc[1]#_g18661_| (gx#core-quote-syntax '!lambda-dispatch)) - (define |gxc[1]#_g18662_| (gx#core-quote-syntax '!lambda-inline)) - (define |gxc[1]#_g18663_| (gx#core-quote-syntax '!lambda-inline-typedecl)) - (define |gxc[1]#_g18664_| (gx#core-quote-syntax '!lambda-arity-set!)) - (define |gxc[1]#_g18665_| (gx#core-quote-syntax '!lambda-dispatch-set!)) - (define |gxc[1]#_g18666_| (gx#core-quote-syntax '!lambda-inline-set!)) - (define |gxc[1]#_g18667_| + (define |gxc[1]#_g19288_| (gx#core-quote-syntax 'optimizer-info::t)) + (define |gxc[1]#_g19289_| (gx#core-quote-syntax 'optimizer-info::t)) + (define |gxc[1]#_g19290_| (gx#core-quote-syntax 'make-optimizer-info)) + (define |gxc[1]#_g19291_| (gx#core-quote-syntax 'optimizer-info?)) + (define |gxc[1]#_g19292_| (gx#core-quote-syntax 'optimizer-info-type)) + (define |gxc[1]#_g19293_| (gx#core-quote-syntax 'optimizer-info-ssxi)) + (define |gxc[1]#_g19294_| (gx#core-quote-syntax 'optimizer-info-type-set!)) + (define |gxc[1]#_g19295_| (gx#core-quote-syntax 'optimizer-info-ssxi-set!)) + (define |gxc[1]#_g19296_| (gx#core-quote-syntax '!type::t)) + (define |gxc[1]#_g19297_| (gx#core-quote-syntax '!type::t)) + (define |gxc[1]#_g19298_| (gx#core-quote-syntax 'make-!type)) + (define |gxc[1]#_g19299_| (gx#core-quote-syntax '!type?)) + (define |gxc[1]#_g19300_| (gx#core-quote-syntax '!type-id)) + (define |gxc[1]#_g19301_| (gx#core-quote-syntax '!type-id-set!)) + (define |gxc[1]#_g19302_| (gx#core-quote-syntax '!alias::t)) + (define |gxc[1]#_g19303_| (gx#core-quote-syntax '!type::t)) + (define |gxc[1]#_g19304_| (gx#core-quote-syntax '!alias::t)) + (define |gxc[1]#_g19305_| (gx#core-quote-syntax 'make-!alias)) + (define |gxc[1]#_g19306_| (gx#core-quote-syntax '!alias?)) + (define |gxc[1]#_g19307_| (gx#core-quote-syntax '!type)) + (define |gxc[1]#_g19308_| (gx#core-quote-syntax '!struct-type::t)) + (define |gxc[1]#_g19309_| (gx#core-quote-syntax '!type::t)) + (define |gxc[1]#_g19310_| (gx#core-quote-syntax '!struct-type::t)) + (define |gxc[1]#_g19311_| (gx#core-quote-syntax 'make-!struct-type)) + (define |gxc[1]#_g19312_| (gx#core-quote-syntax '!struct-type?)) + (define |gxc[1]#_g19313_| (gx#core-quote-syntax '!struct-type-super)) + (define |gxc[1]#_g19314_| (gx#core-quote-syntax '!struct-type-fields)) + (define |gxc[1]#_g19315_| (gx#core-quote-syntax '!struct-type-xfields)) + (define |gxc[1]#_g19316_| (gx#core-quote-syntax '!struct-type-ctor)) + (define |gxc[1]#_g19317_| (gx#core-quote-syntax '!struct-type-plist)) + (define |gxc[1]#_g19318_| (gx#core-quote-syntax '!struct-type-methods)) + (define |gxc[1]#_g19319_| (gx#core-quote-syntax '!struct-type-super-set!)) + (define |gxc[1]#_g19320_| (gx#core-quote-syntax '!struct-type-fields-set!)) + (define |gxc[1]#_g19321_| (gx#core-quote-syntax '!struct-type-xfields-set!)) + (define |gxc[1]#_g19322_| (gx#core-quote-syntax '!struct-type-ctor-set!)) + (define |gxc[1]#_g19323_| (gx#core-quote-syntax '!struct-type-plist-set!)) + (define |gxc[1]#_g19324_| (gx#core-quote-syntax '!struct-type-methods-set!)) + (define |gxc[1]#_g19325_| (gx#core-quote-syntax '!type)) + (define |gxc[1]#_g19326_| (gx#core-quote-syntax '!procedure::t)) + (define |gxc[1]#_g19327_| (gx#core-quote-syntax '!type::t)) + (define |gxc[1]#_g19328_| (gx#core-quote-syntax '!procedure::t)) + (define |gxc[1]#_g19329_| (gx#core-quote-syntax 'make-!procedure)) + (define |gxc[1]#_g19330_| (gx#core-quote-syntax '!procedure?)) + (define |gxc[1]#_g19331_| (gx#core-quote-syntax '!type)) + (define |gxc[1]#_g19332_| (gx#core-quote-syntax '!struct-pred::t)) + (define |gxc[1]#_g19333_| (gx#core-quote-syntax '!procedure::t)) + (define |gxc[1]#_g19334_| (gx#core-quote-syntax '!struct-pred::t)) + (define |gxc[1]#_g19335_| (gx#core-quote-syntax 'make-!struct-pred)) + (define |gxc[1]#_g19336_| (gx#core-quote-syntax '!struct-pred?)) + (define |gxc[1]#_g19337_| (gx#core-quote-syntax '!procedure)) + (define |gxc[1]#_g19338_| (gx#core-quote-syntax '!struct-cons::t)) + (define |gxc[1]#_g19339_| (gx#core-quote-syntax '!procedure::t)) + (define |gxc[1]#_g19340_| (gx#core-quote-syntax '!struct-cons::t)) + (define |gxc[1]#_g19341_| (gx#core-quote-syntax 'make-!struct-cons)) + (define |gxc[1]#_g19342_| (gx#core-quote-syntax '!struct-cons?)) + (define |gxc[1]#_g19343_| (gx#core-quote-syntax '!procedure)) + (define |gxc[1]#_g19344_| (gx#core-quote-syntax '!struct-getf::t)) + (define |gxc[1]#_g19345_| (gx#core-quote-syntax '!procedure::t)) + (define |gxc[1]#_g19346_| (gx#core-quote-syntax '!struct-getf::t)) + (define |gxc[1]#_g19347_| (gx#core-quote-syntax 'make-!struct-getf)) + (define |gxc[1]#_g19348_| (gx#core-quote-syntax '!struct-getf?)) + (define |gxc[1]#_g19349_| (gx#core-quote-syntax '!struct-getf-off)) + (define |gxc[1]#_g19350_| (gx#core-quote-syntax '!struct-getf-off-set!)) + (define |gxc[1]#_g19351_| (gx#core-quote-syntax '!procedure)) + (define |gxc[1]#_g19352_| (gx#core-quote-syntax '!struct-setf::t)) + (define |gxc[1]#_g19353_| (gx#core-quote-syntax '!procedure::t)) + (define |gxc[1]#_g19354_| (gx#core-quote-syntax '!struct-setf::t)) + (define |gxc[1]#_g19355_| (gx#core-quote-syntax 'make-!struct-setf)) + (define |gxc[1]#_g19356_| (gx#core-quote-syntax '!struct-setf?)) + (define |gxc[1]#_g19357_| (gx#core-quote-syntax '!struct-setf-off)) + (define |gxc[1]#_g19358_| (gx#core-quote-syntax '!struct-setf-off-set!)) + (define |gxc[1]#_g19359_| (gx#core-quote-syntax '!procedure)) + (define |gxc[1]#_g19360_| (gx#core-quote-syntax '!lambda::t)) + (define |gxc[1]#_g19361_| (gx#core-quote-syntax '!procedure::t)) + (define |gxc[1]#_g19362_| (gx#core-quote-syntax '!lambda::t)) + (define |gxc[1]#_g19363_| (gx#core-quote-syntax 'make-!lambda)) + (define |gxc[1]#_g19364_| (gx#core-quote-syntax '!lambda?)) + (define |gxc[1]#_g19365_| (gx#core-quote-syntax '!lambda-arity)) + (define |gxc[1]#_g19366_| (gx#core-quote-syntax '!lambda-dispatch)) + (define |gxc[1]#_g19367_| (gx#core-quote-syntax '!lambda-inline)) + (define |gxc[1]#_g19368_| (gx#core-quote-syntax '!lambda-inline-typedecl)) + (define |gxc[1]#_g19369_| (gx#core-quote-syntax '!lambda-arity-set!)) + (define |gxc[1]#_g19370_| (gx#core-quote-syntax '!lambda-dispatch-set!)) + (define |gxc[1]#_g19371_| (gx#core-quote-syntax '!lambda-inline-set!)) + (define |gxc[1]#_g19372_| (gx#core-quote-syntax '!lambda-inline-typedecl-set!)) - (define |gxc[1]#_g18668_| (gx#core-quote-syntax '!procedure)) - (define |gxc[1]#_g18669_| (gx#core-quote-syntax '!case-lambda::t)) - (define |gxc[1]#_g18670_| (gx#core-quote-syntax '!procedure::t)) - (define |gxc[1]#_g18671_| (gx#core-quote-syntax '!case-lambda::t)) - (define |gxc[1]#_g18672_| (gx#core-quote-syntax 'make-!case-lambda)) - (define |gxc[1]#_g18673_| (gx#core-quote-syntax '!case-lambda?)) - (define |gxc[1]#_g18674_| (gx#core-quote-syntax '!case-lambda-clauses)) - (define |gxc[1]#_g18675_| (gx#core-quote-syntax '!case-lambda-clauses-set!)) - (define |gxc[1]#_g18676_| (gx#core-quote-syntax '!procedure)) + (define |gxc[1]#_g19373_| (gx#core-quote-syntax '!procedure)) + (define |gxc[1]#_g19374_| (gx#core-quote-syntax '!case-lambda::t)) + (define |gxc[1]#_g19375_| (gx#core-quote-syntax '!procedure::t)) + (define |gxc[1]#_g19376_| (gx#core-quote-syntax '!case-lambda::t)) + (define |gxc[1]#_g19377_| (gx#core-quote-syntax 'make-!case-lambda)) + (define |gxc[1]#_g19378_| (gx#core-quote-syntax '!case-lambda?)) + (define |gxc[1]#_g19379_| (gx#core-quote-syntax '!case-lambda-clauses)) + (define |gxc[1]#_g19380_| (gx#core-quote-syntax '!case-lambda-clauses-set!)) + (define |gxc[1]#_g19381_| (gx#core-quote-syntax '!procedure)) (begin (define |gxc[:0:]#optimizer-info| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g18583_| + |gxc[1]#_g19288_| 'expander-identifiers: (cons '#f - (cons |gxc[1]#_g18584_| - (cons |gxc[1]#_g18585_| - (cons |gxc[1]#_g18586_| - (cons (cons |gxc[1]#_g18587_| - (cons |gxc[1]#_g18588_| '())) - (cons (cons |gxc[1]#_g18589_| - (cons |gxc[1]#_g18590_| '())) + (cons |gxc[1]#_g19289_| + (cons |gxc[1]#_g19290_| + (cons |gxc[1]#_g19291_| + (cons (cons |gxc[1]#_g19292_| + (cons |gxc[1]#_g19293_| '())) + (cons (cons |gxc[1]#_g19294_| + (cons |gxc[1]#_g19295_| '())) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| @@ -121,14 +121,14 @@ (define |gxc[:0:]#!type| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g18591_| + |gxc[1]#_g19296_| 'expander-identifiers: (cons '#f - (cons |gxc[1]#_g18592_| - (cons |gxc[1]#_g18593_| - (cons |gxc[1]#_g18594_| - (cons (cons |gxc[1]#_g18595_| '()) - (cons (cons |gxc[1]#_g18596_| '()) + (cons |gxc[1]#_g19297_| + (cons |gxc[1]#_g19298_| + (cons |gxc[1]#_g19299_| + (cons (cons |gxc[1]#_g19300_| '()) + (cons (cons |gxc[1]#_g19301_| '()) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| @@ -141,16 +141,16 @@ (define |gxc[:0:]#!alias| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g18597_| + |gxc[1]#_g19302_| 'expander-identifiers: - (cons |gxc[1]#_g18598_| - (cons |gxc[1]#_g18599_| - (cons |gxc[1]#_g18600_| - (cons |gxc[1]#_g18601_| (cons '() (cons '() '())))))) + (cons |gxc[1]#_g19303_| + (cons |gxc[1]#_g19304_| + (cons |gxc[1]#_g19305_| + (cons |gxc[1]#_g19306_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g18602_| + |gxc[1]#_g19307_| '!alias '#f '() @@ -158,33 +158,33 @@ (define |gxc[:0:]#!struct-type| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g18603_| + |gxc[1]#_g19308_| 'expander-identifiers: - (cons |gxc[1]#_g18604_| - (cons |gxc[1]#_g18605_| - (cons |gxc[1]#_g18606_| - (cons |gxc[1]#_g18607_| - (cons (cons |gxc[1]#_g18608_| - (cons |gxc[1]#_g18609_| - (cons |gxc[1]#_g18610_| - (cons |gxc[1]#_g18611_| - (cons |gxc[1]#_g18612_| + (cons |gxc[1]#_g19309_| + (cons |gxc[1]#_g19310_| + (cons |gxc[1]#_g19311_| + (cons |gxc[1]#_g19312_| + (cons (cons |gxc[1]#_g19313_| + (cons |gxc[1]#_g19314_| + (cons |gxc[1]#_g19315_| + (cons |gxc[1]#_g19316_| + (cons |gxc[1]#_g19317_| ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons |gxc[1]#_g18613_| '())))))) + (cons |gxc[1]#_g19318_| '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons |gxc[1]#_g18614_| - (cons |gxc[1]#_g18615_| - (cons |gxc[1]#_g18616_| - (cons |gxc[1]#_g18617_| + (cons (cons |gxc[1]#_g19319_| + (cons |gxc[1]#_g19320_| + (cons |gxc[1]#_g19321_| + (cons |gxc[1]#_g19322_| ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons |gxc[1]#_g18618_| - (cons |gxc[1]#_g18619_| '())))))) + (cons |gxc[1]#_g19323_| + (cons |gxc[1]#_g19324_| '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g18620_| + |gxc[1]#_g19325_| '!struct-type ':init! '() @@ -192,16 +192,16 @@ (define |gxc[:0:]#!procedure| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g18621_| + |gxc[1]#_g19326_| 'expander-identifiers: - (cons |gxc[1]#_g18622_| - (cons |gxc[1]#_g18623_| - (cons |gxc[1]#_g18624_| - (cons |gxc[1]#_g18625_| (cons '() (cons '() '())))))) + (cons |gxc[1]#_g19327_| + (cons |gxc[1]#_g19328_| + (cons |gxc[1]#_g19329_| + (cons |gxc[1]#_g19330_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g18626_| + |gxc[1]#_g19331_| '!procedure '#f '() @@ -209,16 +209,16 @@ (define |gxc[:0:]#!struct-pred| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g18627_| + |gxc[1]#_g19332_| 'expander-identifiers: - (cons |gxc[1]#_g18628_| - (cons |gxc[1]#_g18629_| - (cons |gxc[1]#_g18630_| - (cons |gxc[1]#_g18631_| (cons '() (cons '() '())))))) + (cons |gxc[1]#_g19333_| + (cons |gxc[1]#_g19334_| + (cons |gxc[1]#_g19335_| + (cons |gxc[1]#_g19336_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g18632_| + |gxc[1]#_g19337_| '!struct-pred '#f '() @@ -226,16 +226,16 @@ (define |gxc[:0:]#!struct-cons| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g18633_| + |gxc[1]#_g19338_| 'expander-identifiers: - (cons |gxc[1]#_g18634_| - (cons |gxc[1]#_g18635_| - (cons |gxc[1]#_g18636_| - (cons |gxc[1]#_g18637_| (cons '() (cons '() '())))))) + (cons |gxc[1]#_g19339_| + (cons |gxc[1]#_g19340_| + (cons |gxc[1]#_g19341_| + (cons |gxc[1]#_g19342_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g18638_| + |gxc[1]#_g19343_| '!struct-cons '#f '() @@ -243,19 +243,19 @@ (define |gxc[:0:]#!struct-getf| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g18639_| + |gxc[1]#_g19344_| 'expander-identifiers: - (cons |gxc[1]#_g18640_| - (cons |gxc[1]#_g18641_| - (cons |gxc[1]#_g18642_| - (cons |gxc[1]#_g18643_| - (cons (cons |gxc[1]#_g18644_| '()) - (cons (cons |gxc[1]#_g18645_| '()) + (cons |gxc[1]#_g19345_| + (cons |gxc[1]#_g19346_| + (cons |gxc[1]#_g19347_| + (cons |gxc[1]#_g19348_| + (cons (cons |gxc[1]#_g19349_| '()) + (cons (cons |gxc[1]#_g19350_| '()) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g18646_| + |gxc[1]#_g19351_| '!struct-getf '#f '() @@ -263,19 +263,19 @@ (define |gxc[:0:]#!struct-setf| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g18647_| + |gxc[1]#_g19352_| 'expander-identifiers: - (cons |gxc[1]#_g18648_| - (cons |gxc[1]#_g18649_| - (cons |gxc[1]#_g18650_| - (cons |gxc[1]#_g18651_| - (cons (cons |gxc[1]#_g18652_| '()) - (cons (cons |gxc[1]#_g18653_| '()) + (cons |gxc[1]#_g19353_| + (cons |gxc[1]#_g19354_| + (cons |gxc[1]#_g19355_| + (cons |gxc[1]#_g19356_| + (cons (cons |gxc[1]#_g19357_| '()) + (cons (cons |gxc[1]#_g19358_| '()) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g18654_| + |gxc[1]#_g19359_| '!struct-setf '#f '() @@ -283,21 +283,21 @@ (define |gxc[:0:]#!lambda| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g18655_| + |gxc[1]#_g19360_| 'expander-identifiers: - (cons |gxc[1]#_g18656_| - (cons |gxc[1]#_g18657_| - (cons |gxc[1]#_g18658_| - (cons |gxc[1]#_g18659_| - (cons (cons |gxc[1]#_g18660_| - (cons |gxc[1]#_g18661_| - (cons |gxc[1]#_g18662_| - (cons |gxc[1]#_g18663_| + (cons |gxc[1]#_g19361_| + (cons |gxc[1]#_g19362_| + (cons |gxc[1]#_g19363_| + (cons |gxc[1]#_g19364_| + (cons (cons |gxc[1]#_g19365_| + (cons |gxc[1]#_g19366_| + (cons |gxc[1]#_g19367_| + (cons |gxc[1]#_g19368_| '())))) - (cons (cons |gxc[1]#_g18664_| - (cons |gxc[1]#_g18665_| - (cons |gxc[1]#_g18666_| - (cons |gxc[1]#_g18667_| + (cons (cons |gxc[1]#_g19369_| + (cons |gxc[1]#_g19370_| + (cons |gxc[1]#_g19371_| + (cons |gxc[1]#_g19372_| ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -305,7 +305,7 @@ 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g18668_| + |gxc[1]#_g19373_| '!lambda ':init! '() @@ -313,92 +313,95 @@ (define |gxc[:0:]#!case-lambda| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gxc[1]#_g18669_| + |gxc[1]#_g19374_| 'expander-identifiers: - (cons |gxc[1]#_g18670_| - (cons |gxc[1]#_g18671_| - (cons |gxc[1]#_g18672_| - (cons |gxc[1]#_g18673_| - (cons (cons |gxc[1]#_g18674_| '()) - (cons (cons |gxc[1]#_g18675_| '()) + (cons |gxc[1]#_g19375_| + (cons |gxc[1]#_g19376_| + (cons |gxc[1]#_g19377_| + (cons |gxc[1]#_g19378_| + (cons (cons |gxc[1]#_g19379_| '()) + (cons (cons |gxc[1]#_g19380_| '()) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| '#f - |gxc[1]#_g18676_| + |gxc[1]#_g19381_| '!case-lambda '#f '() '(clauses)))) (define |gxc[:0:]#defbasic-expression-type-builtin| - (lambda (_$stx9334_) - (let ((_g93389367_ - (lambda (_g93399363_) - (gx#raise-syntax-error '#f '"Bad syntax" _g93399363_)))) - (let ((_g93379468_ - (lambda (_g93399371_) - (if (gx#stx-pair? _g93399371_) - (let ((_e93429374_ (gx#syntax-e _g93399371_))) - (let ((_hd93439378_ (##car _e93429374_)) - (_tl93449381_ (##cdr _e93429374_))) - (if (gx#stx-pair/null? _tl93449381_) - (if (fx>= (gx#stx-length _tl93449381_) '0) - (let ((_g18677_ + (lambda (_$stx10037_) + (let ((_g1004110070_ + (lambda (_g1004210066_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1004210066_)))) + (let ((_g1004010171_ + (lambda (_g1004210074_) + (if (gx#stx-pair? _g1004210074_) + (let ((_e1004510077_ (gx#syntax-e _g1004210074_))) + (let ((_hd1004610081_ (##car _e1004510077_)) + (_tl1004710084_ (##cdr _e1004510077_))) + (if (gx#stx-pair/null? _tl1004710084_) + (if (fx>= (gx#stx-length _tl1004710084_) '0) + (let ((_g19382_ (gx#syntax-split-splice - _tl93449381_ + _tl1004710084_ '0))) (begin - (let ((_g18678_ - (values-count _g18677_))) - (if (not (fx= _g18678_ 2)) + (let ((_g19383_ + (values-count _g19382_))) + (if (not (fx= _g19383_ 2)) (error "Context expects 2 values" - _g18678_))) - (let ((_target93459384_ - (values-ref _g18677_ 0)) - (_tl93479387_ - (values-ref _g18677_ 1))) - (if (gx#stx-null? _tl93479387_) - (letrec ((_loop93489390_ - (lambda (_hd93469394_ - _type-e93529397_ - _id93539399_) + _g19383_))) + (let ((_target1004810087_ + (values-ref _g19382_ 0)) + (_tl1005010090_ + (values-ref _g19382_ 1))) + (if (gx#stx-null? _tl1005010090_) + (letrec ((_loop1005110093_ + (lambda (_hd1004910097_ + _type-e1005510100_ + _id1005610102_) (if (gx#stx-pair? - _hd93469394_) - (let ((_e93499402_ + _hd1004910097_) + (let ((_e1005210105_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd93469394_))) - (let ((_lp-hd93509406_ (##car _e93499402_)) - (_lp-tl93519409_ (##cdr _e93499402_))) - (if (gx#stx-pair? _lp-hd93509406_) - (let ((_e93569412_ (gx#syntax-e _lp-hd93509406_))) - (let ((_hd93579416_ (##car _e93569412_)) - (_tl93589419_ (##cdr _e93569412_))) - (if (gx#stx-pair? _tl93589419_) - (let ((_e93599422_ - (gx#syntax-e _tl93589419_))) - (let ((_hd93609426_ (##car _e93599422_)) - (_tl93619429_ - (##cdr _e93599422_))) - (if (gx#stx-null? _tl93619429_) - (_loop93489390_ - _lp-tl93519409_ - (cons _hd93609426_ - _type-e93529397_) - (cons _hd93579416_ _id93539399_)) - (_g93389367_ _g93399371_)))) - (_g93389367_ _g93399371_)))) - (_g93389367_ _g93399371_)))) - (let ((_type-e93549432_ (reverse _type-e93529397_)) - (_id93559435_ (reverse _id93539399_))) - ((lambda (_L9438_ _L9440_) + (gx#syntax-e _hd1004910097_))) + (let ((_lp-hd1005310109_ (##car _e1005210105_)) + (_lp-tl1005410112_ (##cdr _e1005210105_))) + (if (gx#stx-pair? _lp-hd1005310109_) + (let ((_e1005910115_ + (gx#syntax-e _lp-hd1005310109_))) + (let ((_hd1006010119_ (##car _e1005910115_)) + (_tl1006110122_ (##cdr _e1005910115_))) + (if (gx#stx-pair? _tl1006110122_) + (let ((_e1006210125_ + (gx#syntax-e _tl1006110122_))) + (let ((_hd1006310129_ + (##car _e1006210125_)) + (_tl1006410132_ + (##cdr _e1006210125_))) + (if (gx#stx-null? _tl1006410132_) + (_loop1005110093_ + _lp-tl1005410112_ + (cons _hd1006310129_ + _type-e1005510100_) + (cons _hd1006010119_ + _id1005610102_)) + (_g1004110070_ _g1004210074_)))) + (_g1004110070_ _g1004210074_)))) + (_g1004110070_ _g1004210074_)))) + (let ((_type-e1005710135_ (reverse _type-e1005510100_)) + (_id1005810138_ (reverse _id1005610102_))) + ((lambda (_L10141_ _L10143_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _L9438_ - _L9440_) - (foldr (lambda (_g94569460_ - _g94579463_ - _g94589465_) + _L10141_ + _L10143_) + (foldr (lambda (_g1015910163_ + _g1016010166_ + _g1016110168_) (cons (cons (gx#datum->syntax '#f 'hash-put!) @@ -409,22 +412,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _g94579463_ '())) - (cons _g94569460_ '())))) + (cons _g1016010166_ '())) + (cons _g1015910163_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g94589465_)) + _g1016110168_)) '() - _L9438_ - _L9440_)))) - _type-e93549432_ - _id93559435_)))))) + _L10141_ + _L10143_)))) + _type-e1005710135_ + _id1005810138_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop93489390_ - _target93459384_ + (_loop1005110093_ + _target1004810087_ '() '())) - (_g93389367_ _g93399371_))))) - (_g93389367_ _g93399371_)) - (_g93389367_ _g93399371_)))) - (_g93389367_ _g93399371_))))) - (_g93379468_ _$stx9334_))))))) + (_g1004110070_ _g1004210074_))))) + (_g1004110070_ _g1004210074_)) + (_g1004110070_ _g1004210074_)))) + (_g1004110070_ _g1004210074_))))) + (_g1004010171_ _$stx10037_))))))) diff --git a/src/bootstrap/gerbil/compiler/ssxi__1.scm b/src/bootstrap/gerbil/compiler/ssxi__1.scm index e8fdb6427..f46d1ef8e 100644 --- a/src/bootstrap/gerbil/compiler/ssxi__1.scm +++ b/src/bootstrap/gerbil/compiler/ssxi__1.scm @@ -1,31 +1,31 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin (define |gxc[:0:]#declare-type| - (lambda (_$stx19273_) - (let ((_g1927719295_ - (lambda (_g1927819291_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1927819291_)))) - (let ((_g1927619351_ - (lambda (_g1927819299_) - (if (gx#stx-pair? _g1927819299_) - (let ((_e1928119302_ (gx#syntax-e _g1927819299_))) - (let ((_hd1928219306_ (##car _e1928119302_)) - (_tl1928319309_ (##cdr _e1928119302_))) - (if (gx#stx-pair? _tl1928319309_) - (let ((_e1928419312_ - (gx#syntax-e _tl1928319309_))) - (let ((_hd1928519316_ (##car _e1928419312_)) - (_tl1928619319_ (##cdr _e1928419312_))) - (if (gx#stx-pair? _tl1928619319_) - (let ((_e1928719322_ - (gx#syntax-e _tl1928619319_))) - (let ((_hd1928819326_ - (##car _e1928719322_)) - (_tl1928919329_ - (##cdr _e1928719322_))) - (if (gx#stx-null? _tl1928919329_) - ((lambda (_L19332_ _L19334_) - (if (gx#identifier? _L19334_) + (lambda (_$stx19978_) + (let ((_g1998220000_ + (lambda (_g1998319996_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1998319996_)))) + (let ((_g1998120056_ + (lambda (_g1998320004_) + (if (gx#stx-pair? _g1998320004_) + (let ((_e1998620007_ (gx#syntax-e _g1998320004_))) + (let ((_hd1998720011_ (##car _e1998620007_)) + (_tl1998820014_ (##cdr _e1998620007_))) + (if (gx#stx-pair? _tl1998820014_) + (let ((_e1998920017_ + (gx#syntax-e _tl1998820014_))) + (let ((_hd1999020021_ (##car _e1998920017_)) + (_tl1999120024_ (##cdr _e1998920017_))) + (if (gx#stx-pair? _tl1999120024_) + (let ((_e1999220027_ + (gx#syntax-e _tl1999120024_))) + (let ((_hd1999320031_ + (##car _e1999220027_)) + (_tl1999420034_ + (##cdr _e1999220027_))) + (if (gx#stx-null? _tl1999420034_) + ((lambda (_L20037_ _L20039_) + (if (gx#identifier? _L20039_) (cons (gx#datum->syntax '#f 'optimizer-declare-type!) @@ -33,739 +33,739 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L19334_ '())) - (cons _L19332_ '()))) + (cons _L20039_ '())) + (cons _L20037_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1927719295_ - _g1927819299_))) - _hd1928819326_ - _hd1928519316_) - (_g1927719295_ _g1927819299_)))) - (_g1927719295_ _g1927819299_)))) - (_g1927719295_ _g1927819299_)))) - (_g1927719295_ _g1927819299_))))) - (_g1927619351_ _$stx19273_))))) + (_g1998220000_ + _g1998320004_))) + _hd1999320031_ + _hd1999020021_) + (_g1998220000_ _g1998320004_)))) + (_g1998220000_ _g1998320004_)))) + (_g1998220000_ _g1998320004_)))) + (_g1998220000_ _g1998320004_))))) + (_g1998120056_ _$stx19978_))))) (define |gxc[:0:]#declare-type*| - (lambda (_$stx19355_) - (let ((_g1935919388_ - (lambda (_g1936019384_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1936019384_)))) - (let ((_g1935819488_ - (lambda (_g1936019392_) - (if (gx#stx-pair? _g1936019392_) - (let ((_e1936319395_ (gx#syntax-e _g1936019392_))) - (let ((_hd1936419399_ (##car _e1936319395_)) - (_tl1936519402_ (##cdr _e1936319395_))) - (if (gx#stx-pair/null? _tl1936519402_) - (if (fx>= (gx#stx-length _tl1936519402_) '0) - (let ((_g21296_ + (lambda (_$stx20060_) + (let ((_g2006420093_ + (lambda (_g2006520089_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2006520089_)))) + (let ((_g2006320193_ + (lambda (_g2006520097_) + (if (gx#stx-pair? _g2006520097_) + (let ((_e2006820100_ (gx#syntax-e _g2006520097_))) + (let ((_hd2006920104_ (##car _e2006820100_)) + (_tl2007020107_ (##cdr _e2006820100_))) + (if (gx#stx-pair/null? _tl2007020107_) + (if (fx>= (gx#stx-length _tl2007020107_) '0) + (let ((_g22001_ (gx#syntax-split-splice - _tl1936519402_ + _tl2007020107_ '0))) (begin - (let ((_g21297_ (values-count _g21296_))) - (if (not (fx= _g21297_ 2)) + (let ((_g22002_ (values-count _g22001_))) + (if (not (fx= _g22002_ 2)) (error "Context expects 2 values" - _g21297_))) - (let ((_target1936619405_ - (values-ref _g21296_ 0)) - (_tl1936819408_ - (values-ref _g21296_ 1))) - (if (gx#stx-null? _tl1936819408_) - (letrec ((_loop1936919411_ - (lambda (_hd1936719415_ - _type1937319418_ - _symbol1937419420_) + _g22002_))) + (let ((_target2007120110_ + (values-ref _g22001_ 0)) + (_tl2007320113_ + (values-ref _g22001_ 1))) + (if (gx#stx-null? _tl2007320113_) + (letrec ((_loop2007420116_ + (lambda (_hd2007220120_ + _type2007820123_ + _symbol2007920125_) (if (gx#stx-pair? - _hd1936719415_) - (let ((_e1937019423_ + _hd2007220120_) + (let ((_e2007520128_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd1936719415_))) - (let ((_lp-hd1937119427_ (##car _e1937019423_)) - (_lp-tl1937219430_ (##cdr _e1937019423_))) - (if (gx#stx-pair? _lp-hd1937119427_) - (let ((_e1937719433_ - (gx#syntax-e _lp-hd1937119427_))) - (let ((_hd1937819437_ (##car _e1937719433_)) - (_tl1937919440_ (##cdr _e1937719433_))) - (if (gx#stx-pair? _tl1937919440_) - (let ((_e1938019443_ - (gx#syntax-e _tl1937919440_))) - (let ((_hd1938119447_ - (##car _e1938019443_)) - (_tl1938219450_ - (##cdr _e1938019443_))) - (if (gx#stx-null? _tl1938219450_) - (_loop1936919411_ - _lp-tl1937219430_ - (cons _hd1938119447_ - _type1937319418_) - (cons _hd1937819437_ - _symbol1937419420_)) - (_g1935919388_ _g1936019392_)))) - (_g1935919388_ _g1936019392_)))) - (_g1935919388_ _g1936019392_)))) - (let ((_type1937519453_ (reverse _type1937319418_)) - (_symbol1937619456_ (reverse _symbol1937419420_))) - ((lambda (_L19459_ _L19461_) + (gx#syntax-e _hd2007220120_))) + (let ((_lp-hd2007620132_ (##car _e2007520128_)) + (_lp-tl2007720135_ (##cdr _e2007520128_))) + (if (gx#stx-pair? _lp-hd2007620132_) + (let ((_e2008220138_ + (gx#syntax-e _lp-hd2007620132_))) + (let ((_hd2008320142_ (##car _e2008220138_)) + (_tl2008420145_ (##cdr _e2008220138_))) + (if (gx#stx-pair? _tl2008420145_) + (let ((_e2008520148_ + (gx#syntax-e _tl2008420145_))) + (let ((_hd2008620152_ + (##car _e2008520148_)) + (_tl2008720155_ + (##cdr _e2008520148_))) + (if (gx#stx-null? _tl2008720155_) + (_loop2007420116_ + _lp-tl2007720135_ + (cons _hd2008620152_ + _type2007820123_) + (cons _hd2008320142_ + _symbol2007920125_)) + (_g2006420093_ _g2006520097_)))) + (_g2006420093_ _g2006520097_)))) + (_g2006420093_ _g2006520097_)))) + (let ((_type2008020158_ (reverse _type2007820123_)) + (_symbol2008120161_ (reverse _symbol2007920125_))) + ((lambda (_L20164_ _L20166_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _L19459_ - _L19461_) - (foldr (lambda (_g1947619480_ - _g1947719483_ - _g1947819485_) + _L20164_ + _L20166_) + (foldr (lambda (_g2018120185_ + _g2018220188_ + _g2018320190_) (cons (cons (gx#datum->syntax '#f 'declare-type) - (cons _g1947719483_ - (cons _g1947619480_ + (cons _g2018220188_ + (cons _g2018120185_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1947819485_)) + _g2018320190_)) '() - _L19459_ - _L19461_)))) - _type1937519453_ - _symbol1937619456_)))))) + _L20164_ + _L20166_)))) + _type2008020158_ + _symbol2008120161_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1936919411_ - _target1936619405_ + (_loop2007420116_ + _target2007120110_ '() '())) - (_g1935919388_ _g1936019392_))))) - (_g1935919388_ _g1936019392_)) - (_g1935919388_ _g1936019392_)))) - (_g1935919388_ _g1936019392_))))) - (_g1935819488_ _$stx19355_))))) + (_g2006420093_ _g2006520097_))))) + (_g2006420093_ _g2006520097_)) + (_g2006420093_ _g2006520097_)))) + (_g2006420093_ _g2006520097_))))) + (_g2006320193_ _$stx20060_))))) (define |gxc[:0:]#declare-method| - (lambda (_$stx19493_) - (let ((_g1949819540_ - (lambda (_g1949919536_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1949919536_)))) - (let ((_g1949719611_ - (lambda (_g1949919544_) - (if (gx#stx-pair? _g1949919544_) - (let ((_e1952319547_ (gx#syntax-e _g1949919544_))) - (let ((_hd1952419551_ (##car _e1952319547_)) - (_tl1952519554_ (##cdr _e1952319547_))) - (if (gx#stx-pair? _tl1952519554_) - (let ((_e1952619557_ - (gx#syntax-e _tl1952519554_))) - (let ((_hd1952719561_ (##car _e1952619557_)) - (_tl1952819564_ (##cdr _e1952619557_))) - (if (gx#stx-pair? _tl1952819564_) - (let ((_e1952919567_ - (gx#syntax-e _tl1952819564_))) - (let ((_hd1953019571_ - (##car _e1952919567_)) - (_tl1953119574_ - (##cdr _e1952919567_))) - (if (gx#stx-pair? _tl1953119574_) - (let ((_e1953219577_ + (lambda (_$stx20198_) + (let ((_g2020320245_ + (lambda (_g2020420241_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2020420241_)))) + (let ((_g2020220316_ + (lambda (_g2020420249_) + (if (gx#stx-pair? _g2020420249_) + (let ((_e2022820252_ (gx#syntax-e _g2020420249_))) + (let ((_hd2022920256_ (##car _e2022820252_)) + (_tl2023020259_ (##cdr _e2022820252_))) + (if (gx#stx-pair? _tl2023020259_) + (let ((_e2023120262_ + (gx#syntax-e _tl2023020259_))) + (let ((_hd2023220266_ (##car _e2023120262_)) + (_tl2023320269_ (##cdr _e2023120262_))) + (if (gx#stx-pair? _tl2023320269_) + (let ((_e2023420272_ + (gx#syntax-e _tl2023320269_))) + (let ((_hd2023520276_ + (##car _e2023420272_)) + (_tl2023620279_ + (##cdr _e2023420272_))) + (if (gx#stx-pair? _tl2023620279_) + (let ((_e2023720282_ (gx#syntax-e - _tl1953119574_))) - (let ((_hd1953319581_ - (##car _e1953219577_)) - (_tl1953419584_ - (##cdr _e1953219577_))) + _tl2023620279_))) + (let ((_hd2023820286_ + (##car _e2023720282_)) + (_tl2023920289_ + (##cdr _e2023720282_))) (if (gx#stx-null? - _tl1953419584_) - ((lambda (_L19587_ - _L19589_ - _L19590_ - _L19591_) - (cons _L19591_ - (cons _L19590_ + _tl2023920289_) + ((lambda (_L20292_ + _L20294_ + _L20295_ + _L20296_) + (cons _L20296_ + (cons _L20295_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L19589_ - (cons _L19587_ + (cons _L20294_ + (cons _L20292_ (cons (gx#datum->syntax '#f 'rebind?) '())))))) - _hd1953319581_ - _hd1953019571_ - _hd1952719561_ - _hd1952419551_) + _hd2023820286_ + _hd2023520276_ + _hd2023220266_ + _hd2022920256_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1949819540_ - _g1949919544_)))) - (_g1949819540_ _g1949919544_)))) - (_g1949819540_ _g1949919544_)))) - (_g1949819540_ _g1949919544_)))) - (_g1949819540_ _g1949919544_))))) - (let ((_g1949619693_ - (lambda (_g1949919615_) - (if (gx#stx-pair? _g1949919615_) - (let ((_e1950419618_ (gx#syntax-e _g1949919615_))) - (let ((_hd1950519622_ (##car _e1950419618_)) - (_tl1950619625_ (##cdr _e1950419618_))) - (if (gx#stx-pair? _tl1950619625_) - (let ((_e1950719628_ - (gx#syntax-e _tl1950619625_))) - (let ((_hd1950819632_ (##car _e1950719628_)) - (_tl1950919635_ (##cdr _e1950719628_))) - (if (gx#stx-pair? _tl1950919635_) - (let ((_e1951019638_ - (gx#syntax-e _tl1950919635_))) - (let ((_hd1951119642_ - (##car _e1951019638_)) - (_tl1951219645_ - (##cdr _e1951019638_))) - (if (gx#stx-pair? _tl1951219645_) - (let ((_e1951319648_ + (_g2020320245_ + _g2020420249_)))) + (_g2020320245_ _g2020420249_)))) + (_g2020320245_ _g2020420249_)))) + (_g2020320245_ _g2020420249_)))) + (_g2020320245_ _g2020420249_))))) + (let ((_g2020120398_ + (lambda (_g2020420320_) + (if (gx#stx-pair? _g2020420320_) + (let ((_e2020920323_ (gx#syntax-e _g2020420320_))) + (let ((_hd2021020327_ (##car _e2020920323_)) + (_tl2021120330_ (##cdr _e2020920323_))) + (if (gx#stx-pair? _tl2021120330_) + (let ((_e2021220333_ + (gx#syntax-e _tl2021120330_))) + (let ((_hd2021320337_ (##car _e2021220333_)) + (_tl2021420340_ (##cdr _e2021220333_))) + (if (gx#stx-pair? _tl2021420340_) + (let ((_e2021520343_ + (gx#syntax-e _tl2021420340_))) + (let ((_hd2021620347_ + (##car _e2021520343_)) + (_tl2021720350_ + (##cdr _e2021520343_))) + (if (gx#stx-pair? _tl2021720350_) + (let ((_e2021820353_ (gx#syntax-e - _tl1951219645_))) - (let ((_hd1951419652_ - (##car _e1951319648_)) - (_tl1951519655_ - (##cdr _e1951319648_))) + _tl2021720350_))) + (let ((_hd2021920357_ + (##car _e2021820353_)) + (_tl2022020360_ + (##cdr _e2021820353_))) (if (gx#stx-pair? - _tl1951519655_) - (let ((_e1951619658_ + _tl2022020360_) + (let ((_e2022120363_ (gx#syntax-e - _tl1951519655_))) - (let ((_hd1951719662_ - (##car _e1951619658_)) - (_tl1951819665_ - (##cdr _e1951619658_))) + _tl2022020360_))) + (let ((_hd2022220367_ + (##car _e2022120363_)) + (_tl2022320370_ + (##cdr _e2022120363_))) (if (gx#stx-null? - _tl1951819665_) - ((lambda (_L19668_ + _tl2022320370_) + ((lambda (_L20373_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L19670_ - _L19671_ - _L19672_) - (if (if (gx#identifier? _L19672_) - (if (gx#identifier? _L19671_) - (gx#identifier? _L19670_) + _L20375_ + _L20376_ + _L20377_) + (if (if (gx#identifier? _L20377_) + (if (gx#identifier? _L20376_) + (gx#identifier? _L20375_) '#f) '#f) (cons (gx#datum->syntax '#f 'optimizer-declare-method!) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L19672_ '())) + (cons _L20377_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L19671_ '())) + (cons _L20376_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L19670_ + (cons _L20375_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _L19668_ '()))))) + (cons _L20373_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1949719611_ _g1949919615_))) - _hd1951719662_ - _hd1951419652_ - _hd1951119642_ - _hd1950819632_) - (_g1949719611_ _g1949919615_)))) - (_g1949719611_ _g1949919615_)))) + (_g2020220316_ _g2020420320_))) + _hd2022220367_ + _hd2021920357_ + _hd2021620347_ + _hd2021320337_) + (_g2020220316_ _g2020420320_)))) + (_g2020220316_ _g2020420320_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1949719611_ _g1949919615_)))) - (_g1949719611_ _g1949919615_)))) - (_g1949719611_ _g1949919615_)))) - (_g1949719611_ _g1949919615_))))) - (_g1949619693_ _$stx19493_)))))) + (_g2020220316_ _g2020420320_)))) + (_g2020220316_ _g2020420320_)))) + (_g2020220316_ _g2020420320_)))) + (_g2020220316_ _g2020420320_))))) + (_g2020120398_ _$stx20198_)))))) (define |gxc[:0:]#declare-method*| - (lambda (_$stx19697_) - (let ((_g1970119736_ - (lambda (_g1970219732_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1970219732_)))) - (let ((_g1970019855_ - (lambda (_g1970219740_) - (if (gx#stx-pair? _g1970219740_) - (let ((_e1970619743_ (gx#syntax-e _g1970219740_))) - (let ((_hd1970719747_ (##car _e1970619743_)) - (_tl1970819750_ (##cdr _e1970619743_))) - (if (gx#stx-pair/null? _tl1970819750_) - (if (fx>= (gx#stx-length _tl1970819750_) '0) - (let ((_g21298_ + (lambda (_$stx20402_) + (let ((_g2040620441_ + (lambda (_g2040720437_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2040720437_)))) + (let ((_g2040520560_ + (lambda (_g2040720445_) + (if (gx#stx-pair? _g2040720445_) + (let ((_e2041120448_ (gx#syntax-e _g2040720445_))) + (let ((_hd2041220452_ (##car _e2041120448_)) + (_tl2041320455_ (##cdr _e2041120448_))) + (if (gx#stx-pair/null? _tl2041320455_) + (if (fx>= (gx#stx-length _tl2041320455_) '0) + (let ((_g22003_ (gx#syntax-split-splice - _tl1970819750_ + _tl2041320455_ '0))) (begin - (let ((_g21299_ (values-count _g21298_))) - (if (not (fx= _g21299_ 2)) + (let ((_g22004_ (values-count _g22003_))) + (if (not (fx= _g22004_ 2)) (error "Context expects 2 values" - _g21299_))) - (let ((_target1970919753_ - (values-ref _g21298_ 0)) - (_tl1971119756_ - (values-ref _g21298_ 1))) - (if (gx#stx-null? _tl1971119756_) - (letrec ((_loop1971219759_ - (lambda (_hd1971019763_ - _symbol1971619766_ - _method1971719768_ - _type-t1971819770_) + _g22004_))) + (let ((_target2041420458_ + (values-ref _g22003_ 0)) + (_tl2041620461_ + (values-ref _g22003_ 1))) + (if (gx#stx-null? _tl2041620461_) + (letrec ((_loop2041720464_ + (lambda (_hd2041520468_ + _symbol2042120471_ + _method2042220473_ + _type-t2042320475_) (if (gx#stx-pair? - _hd1971019763_) - (let ((_e1971319773_ + _hd2041520468_) + (let ((_e2041820478_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd1971019763_))) - (let ((_lp-hd1971419777_ (##car _e1971319773_)) - (_lp-tl1971519780_ (##cdr _e1971319773_))) - (if (gx#stx-pair? _lp-hd1971419777_) - (let ((_e1972219783_ - (gx#syntax-e _lp-hd1971419777_))) - (let ((_hd1972319787_ (##car _e1972219783_)) - (_tl1972419790_ (##cdr _e1972219783_))) - (if (gx#stx-pair? _tl1972419790_) - (let ((_e1972519793_ - (gx#syntax-e _tl1972419790_))) - (let ((_hd1972619797_ - (##car _e1972519793_)) - (_tl1972719800_ - (##cdr _e1972519793_))) - (if (gx#stx-pair? _tl1972719800_) - (let ((_e1972819803_ + (gx#syntax-e _hd2041520468_))) + (let ((_lp-hd2041920482_ (##car _e2041820478_)) + (_lp-tl2042020485_ (##cdr _e2041820478_))) + (if (gx#stx-pair? _lp-hd2041920482_) + (let ((_e2042720488_ + (gx#syntax-e _lp-hd2041920482_))) + (let ((_hd2042820492_ (##car _e2042720488_)) + (_tl2042920495_ (##cdr _e2042720488_))) + (if (gx#stx-pair? _tl2042920495_) + (let ((_e2043020498_ + (gx#syntax-e _tl2042920495_))) + (let ((_hd2043120502_ + (##car _e2043020498_)) + (_tl2043220505_ + (##cdr _e2043020498_))) + (if (gx#stx-pair? _tl2043220505_) + (let ((_e2043320508_ (gx#syntax-e - _tl1972719800_))) - (let ((_hd1972919807_ - (##car _e1972819803_)) - (_tl1973019810_ - (##cdr _e1972819803_))) + _tl2043220505_))) + (let ((_hd2043420512_ + (##car _e2043320508_)) + (_tl2043520515_ + (##cdr _e2043320508_))) (if (gx#stx-null? - _tl1973019810_) - (_loop1971219759_ - _lp-tl1971519780_ - (cons _hd1972919807_ - _symbol1971619766_) - (cons _hd1972619797_ - _method1971719768_) - (cons _hd1972319787_ - _type-t1971819770_)) - (_g1970119736_ - _g1970219740_)))) - (_g1970119736_ _g1970219740_)))) - (_g1970119736_ _g1970219740_)))) - (_g1970119736_ _g1970219740_)))) - (let ((_symbol1971919813_ (reverse _symbol1971619766_)) - (_method1972019816_ (reverse _method1971719768_)) - (_type-t1972119818_ (reverse _type-t1971819770_))) - ((lambda (_L19821_ _L19823_ _L19824_) + _tl2043520515_) + (_loop2041720464_ + _lp-tl2042020485_ + (cons _hd2043420512_ + _symbol2042120471_) + (cons _hd2043120502_ + _method2042220473_) + (cons _hd2042820492_ + _type-t2042320475_)) + (_g2040620441_ + _g2040720445_)))) + (_g2040620441_ _g2040720445_)))) + (_g2040620441_ _g2040720445_)))) + (_g2040620441_ _g2040720445_)))) + (let ((_symbol2042420518_ (reverse _symbol2042120471_)) + (_method2042520521_ (reverse _method2042220473_)) + (_type-t2042620523_ (reverse _type-t2042320475_))) + ((lambda (_L20526_ _L20528_ _L20529_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _L19821_ - _L19823_ - _L19824_) - (foldr (lambda (_g1984019845_ - _g1984119848_ - _g1984219850_ - _g1984319852_) + _L20526_ + _L20528_ + _L20529_) + (foldr (lambda (_g2054520550_ + _g2054620553_ + _g2054720555_ + _g2054820557_) (cons (cons (gx#datum->syntax '#f 'declare-method) - (cons _g1984219850_ - (cons _g1984119848_ + (cons _g2054720555_ + (cons _g2054620553_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _g1984019845_ '())))) + (cons _g2054520550_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1984319852_)) + _g2054820557_)) '() - _L19821_ - _L19823_ - _L19824_)))) - _symbol1971919813_ - _method1972019816_ - _type-t1972119818_)))))) + _L20526_ + _L20528_ + _L20529_)))) + _symbol2042420518_ + _method2042520521_ + _type-t2042620523_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1971219759_ - _target1970919753_ + (_loop2041720464_ + _target2041420458_ '() '() '())) - (_g1970119736_ _g1970219740_))))) - (_g1970119736_ _g1970219740_)) - (_g1970119736_ _g1970219740_)))) - (_g1970119736_ _g1970219740_))))) - (_g1970019855_ _$stx19697_))))) + (_g2040620441_ _g2040720445_))))) + (_g2040620441_ _g2040720445_)) + (_g2040620441_ _g2040720445_)))) + (_g2040620441_ _g2040720445_))))) + (_g2040520560_ _$stx20402_))))) (define |gxc[:0:]#declare-methods| - (lambda (_$stx19860_) - (let ((_g1986419897_ - (lambda (_g1986519893_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1986519893_)))) - (let ((_g1986320011_ - (lambda (_g1986519901_) - (if (gx#stx-pair? _g1986519901_) - (let ((_e1986919904_ (gx#syntax-e _g1986519901_))) - (let ((_hd1987019908_ (##car _e1986919904_)) - (_tl1987119911_ (##cdr _e1986919904_))) - (if (gx#stx-pair? _tl1987119911_) - (let ((_e1987219914_ - (gx#syntax-e _tl1987119911_))) - (let ((_hd1987319918_ (##car _e1987219914_)) - (_tl1987419921_ (##cdr _e1987219914_))) - (if (gx#stx-pair/null? _tl1987419921_) - (if (fx>= (gx#stx-length _tl1987419921_) + (lambda (_$stx20565_) + (let ((_g2056920602_ + (lambda (_g2057020598_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2057020598_)))) + (let ((_g2056820716_ + (lambda (_g2057020606_) + (if (gx#stx-pair? _g2057020606_) + (let ((_e2057420609_ (gx#syntax-e _g2057020606_))) + (let ((_hd2057520613_ (##car _e2057420609_)) + (_tl2057620616_ (##cdr _e2057420609_))) + (if (gx#stx-pair? _tl2057620616_) + (let ((_e2057720619_ + (gx#syntax-e _tl2057620616_))) + (let ((_hd2057820623_ (##car _e2057720619_)) + (_tl2057920626_ (##cdr _e2057720619_))) + (if (gx#stx-pair/null? _tl2057920626_) + (if (fx>= (gx#stx-length _tl2057920626_) '0) - (let ((_g21300_ + (let ((_g22005_ (gx#syntax-split-splice - _tl1987419921_ + _tl2057920626_ '0))) (begin - (let ((_g21301_ - (values-count _g21300_))) - (if (not (fx= _g21301_ 2)) + (let ((_g22006_ + (values-count _g22005_))) + (if (not (fx= _g22006_ 2)) (error "Context expects 2 values" - _g21301_))) - (let ((_target1987519924_ - (values-ref _g21300_ 0)) - (_tl1987719927_ - (values-ref _g21300_ 1))) + _g22006_))) + (let ((_target2058020629_ + (values-ref _g22005_ 0)) + (_tl2058220632_ + (values-ref _g22005_ 1))) (if (gx#stx-null? - _tl1987719927_) - (letrec ((_loop1987819930_ - (lambda (_hd1987619934_ + _tl2058220632_) + (letrec ((_loop2058320635_ + (lambda (_hd2058120639_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _symbol1988219937_ - _method1988319939_) - (if (gx#stx-pair? _hd1987619934_) - (let ((_e1987919942_ (gx#syntax-e _hd1987619934_))) - (let ((_lp-hd1988019946_ (##car _e1987919942_)) - (_lp-tl1988119949_ (##cdr _e1987919942_))) - (if (gx#stx-pair? _lp-hd1988019946_) - (let ((_e1988619952_ - (gx#syntax-e _lp-hd1988019946_))) - (let ((_hd1988719956_ - (##car _e1988619952_)) - (_tl1988819959_ - (##cdr _e1988619952_))) - (if (gx#stx-pair? _tl1988819959_) - (let ((_e1988919962_ + _symbol2058720642_ + _method2058820644_) + (if (gx#stx-pair? _hd2058120639_) + (let ((_e2058420647_ (gx#syntax-e _hd2058120639_))) + (let ((_lp-hd2058520651_ (##car _e2058420647_)) + (_lp-tl2058620654_ (##cdr _e2058420647_))) + (if (gx#stx-pair? _lp-hd2058520651_) + (let ((_e2059120657_ + (gx#syntax-e _lp-hd2058520651_))) + (let ((_hd2059220661_ + (##car _e2059120657_)) + (_tl2059320664_ + (##cdr _e2059120657_))) + (if (gx#stx-pair? _tl2059320664_) + (let ((_e2059420667_ (gx#syntax-e - _tl1988819959_))) - (let ((_hd1989019966_ - (##car _e1988919962_)) - (_tl1989119969_ - (##cdr _e1988919962_))) + _tl2059320664_))) + (let ((_hd2059520671_ + (##car _e2059420667_)) + (_tl2059620674_ + (##cdr _e2059420667_))) (if (gx#stx-null? - _tl1989119969_) - (_loop1987819930_ - _lp-tl1988119949_ - (cons _hd1989019966_ - _symbol1988219937_) - (cons _hd1988719956_ - _method1988319939_)) - (_g1986419897_ - _g1986519901_)))) - (_g1986419897_ _g1986519901_)))) - (_g1986419897_ _g1986519901_)))) - (let ((_symbol1988419972_ - (reverse _symbol1988219937_)) - (_method1988519975_ - (reverse _method1988319939_))) - ((lambda (_L19978_ _L19980_ _L19981_) + _tl2059620674_) + (_loop2058320635_ + _lp-tl2058620654_ + (cons _hd2059520671_ + _symbol2058720642_) + (cons _hd2059220661_ + _method2058820644_)) + (_g2056920602_ + _g2057020606_)))) + (_g2056920602_ _g2057020606_)))) + (_g2056920602_ _g2057020606_)))) + (let ((_symbol2058920677_ + (reverse _symbol2058720642_)) + (_method2059020680_ + (reverse _method2058820644_))) + ((lambda (_L20683_ _L20685_ _L20686_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _L19978_ - _L19980_) - (foldr (lambda (_g1999920003_ - _g2000020006_ - _g2000120008_) + _L20683_ + _L20685_) + (foldr (lambda (_g2070420708_ + _g2070520711_ + _g2070620713_) (cons (cons (gx#datum->syntax '#f 'declare-method) - (cons _L19981_ + (cons _L20686_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _g2000020006_ (cons _g1999920003_ '())))) - _g2000120008_)) + (cons _g2070520711_ (cons _g2070420708_ '())))) + _g2070620713_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _L19978_ - _L19980_)))) - _symbol1988419972_ - _method1988519975_ - _hd1987319918_)))))) + _L20683_ + _L20685_)))) + _symbol2058920677_ + _method2059020680_ + _hd2057820623_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1987819930_ - _target1987519924_ + (_loop2058320635_ + _target2058020629_ '() '())) - (_g1986419897_ - _g1986519901_))))) - (_g1986419897_ _g1986519901_)) - (_g1986419897_ _g1986519901_)))) - (_g1986419897_ _g1986519901_)))) - (_g1986419897_ _g1986519901_))))) - (_g1986320011_ _$stx19860_))))) + (_g2056920602_ + _g2057020606_))))) + (_g2056920602_ _g2057020606_)) + (_g2056920602_ _g2057020606_)))) + (_g2056920602_ _g2057020606_)))) + (_g2056920602_ _g2057020606_))))) + (_g2056820716_ _$stx20565_))))) (define |gxc[:0:]#@alias| - (lambda (_$stx20016_) - (let ((_g2002020034_ - (lambda (_g2002120030_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2002120030_)))) - (let ((_g2001920075_ - (lambda (_g2002120038_) - (if (gx#stx-pair? _g2002120038_) - (let ((_e2002320041_ (gx#syntax-e _g2002120038_))) - (let ((_hd2002420045_ (##car _e2002320041_)) - (_tl2002520048_ (##cdr _e2002320041_))) - (if (gx#stx-pair? _tl2002520048_) - (let ((_e2002620051_ - (gx#syntax-e _tl2002520048_))) - (let ((_hd2002720055_ (##car _e2002620051_)) - (_tl2002820058_ (##cdr _e2002620051_))) - (if (gx#stx-null? _tl2002820058_) - ((lambda (_L20061_) + (lambda (_$stx20721_) + (let ((_g2072520739_ + (lambda (_g2072620735_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2072620735_)))) + (let ((_g2072420780_ + (lambda (_g2072620743_) + (if (gx#stx-pair? _g2072620743_) + (let ((_e2072820746_ (gx#syntax-e _g2072620743_))) + (let ((_hd2072920750_ (##car _e2072820746_)) + (_tl2073020753_ (##cdr _e2072820746_))) + (if (gx#stx-pair? _tl2073020753_) + (let ((_e2073120756_ + (gx#syntax-e _tl2073020753_))) + (let ((_hd2073220760_ (##car _e2073120756_)) + (_tl2073320763_ (##cdr _e2073120756_))) + (if (gx#stx-null? _tl2073320763_) + ((lambda (_L20766_) (cons (gx#datum->syntax '#f 'make-!alias) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20061_ '())) + (cons _L20766_ '())) '()))) - _hd2002720055_) - (_g2002020034_ _g2002120038_)))) - (_g2002020034_ _g2002120038_)))) - (_g2002020034_ _g2002120038_))))) - (_g2001920075_ _$stx20016_))))) + _hd2073220760_) + (_g2072520739_ _g2072620743_)))) + (_g2072520739_ _g2072620743_)))) + (_g2072520739_ _g2072620743_))))) + (_g2072420780_ _$stx20721_))))) (define |gxc[:0:]#@struct-type| - (lambda (_$stx20079_) - (let ((_g2008520151_ - (lambda (_g2008620147_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2008620147_)))) - (let ((_g2008420236_ - (lambda (_g2008620155_) - (if (gx#stx-pair? _g2008620155_) - (let ((_e2013120158_ (gx#syntax-e _g2008620155_))) - (let ((_hd2013220162_ (##car _e2013120158_)) - (_tl2013320165_ (##cdr _e2013120158_))) - (if (gx#stx-pair? _tl2013320165_) - (let ((_e2013420168_ - (gx#syntax-e _tl2013320165_))) - (let ((_hd2013520172_ (##car _e2013420168_)) - (_tl2013620175_ (##cdr _e2013420168_))) - (if (gx#stx-pair? _tl2013620175_) - (let ((_e2013720178_ - (gx#syntax-e _tl2013620175_))) - (let ((_hd2013820182_ - (##car _e2013720178_)) - (_tl2013920185_ - (##cdr _e2013720178_))) - (if (gx#stx-pair? _tl2013920185_) - (let ((_e2014020188_ + (lambda (_$stx20784_) + (let ((_g2079020856_ + (lambda (_g2079120852_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2079120852_)))) + (let ((_g2078920941_ + (lambda (_g2079120860_) + (if (gx#stx-pair? _g2079120860_) + (let ((_e2083620863_ (gx#syntax-e _g2079120860_))) + (let ((_hd2083720867_ (##car _e2083620863_)) + (_tl2083820870_ (##cdr _e2083620863_))) + (if (gx#stx-pair? _tl2083820870_) + (let ((_e2083920873_ + (gx#syntax-e _tl2083820870_))) + (let ((_hd2084020877_ (##car _e2083920873_)) + (_tl2084120880_ (##cdr _e2083920873_))) + (if (gx#stx-pair? _tl2084120880_) + (let ((_e2084220883_ + (gx#syntax-e _tl2084120880_))) + (let ((_hd2084320887_ + (##car _e2084220883_)) + (_tl2084420890_ + (##cdr _e2084220883_))) + (if (gx#stx-pair? _tl2084420890_) + (let ((_e2084520893_ (gx#syntax-e - _tl2013920185_))) - (let ((_hd2014120192_ - (##car _e2014020188_)) - (_tl2014220195_ - (##cdr _e2014020188_))) + _tl2084420890_))) + (let ((_hd2084620897_ + (##car _e2084520893_)) + (_tl2084720900_ + (##cdr _e2084520893_))) (if (gx#stx-pair? - _tl2014220195_) - (let ((_e2014320198_ + _tl2084720900_) + (let ((_e2084820903_ (gx#syntax-e - _tl2014220195_))) - (let ((_hd2014420202_ - (##car _e2014320198_)) - (_tl2014520205_ - (##cdr _e2014320198_))) + _tl2084720900_))) + (let ((_hd2084920907_ + (##car _e2084820903_)) + (_tl2085020910_ + (##cdr _e2084820903_))) (if (gx#stx-null? - _tl2014520205_) - ((lambda (_L20208_ + _tl2085020910_) + ((lambda (_L20913_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L20210_ - _L20211_ - _L20212_ - _L20213_) - (cons _L20213_ + _L20915_ + _L20916_ + _L20917_ + _L20918_) + (cons _L20918_ (cons (gx#datum->syntax '#f 'type) - (cons _L20211_ - (cons _L20210_ - (cons _L20208_ + (cons _L20916_ + (cons _L20915_ + (cons _L20913_ (cons '#f '()))))))) - _hd2014420202_ - _hd2014120192_ - _hd2013820182_ - _hd2013520172_ - _hd2013220162_) - (_g2008520151_ _g2008620155_)))) + _hd2084920907_ + _hd2084620897_ + _hd2084320887_ + _hd2084020877_ + _hd2083720867_) + (_g2079020856_ _g2079120860_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2008520151_ - _g2008620155_)))) - (_g2008520151_ _g2008620155_)))) - (_g2008520151_ _g2008620155_)))) - (_g2008520151_ _g2008620155_)))) - (_g2008520151_ _g2008620155_))))) - (let ((_g2008320306_ - (lambda (_g2008620240_) - (if (gx#stx-pair? _g2008620240_) - (let ((_e2011420243_ (gx#syntax-e _g2008620240_))) - (let ((_hd2011520247_ (##car _e2011420243_)) - (_tl2011620250_ (##cdr _e2011420243_))) - (if (gx#stx-pair? _tl2011620250_) - (let ((_e2011720253_ - (gx#syntax-e _tl2011620250_))) - (let ((_hd2011820257_ (##car _e2011720253_)) - (_tl2011920260_ (##cdr _e2011720253_))) - (if (gx#stx-pair? _tl2011920260_) - (let ((_e2012020263_ - (gx#syntax-e _tl2011920260_))) - (let ((_hd2012120267_ - (##car _e2012020263_)) - (_tl2012220270_ - (##cdr _e2012020263_))) - (if (gx#stx-pair? _tl2012220270_) - (let ((_e2012320273_ + (_g2079020856_ + _g2079120860_)))) + (_g2079020856_ _g2079120860_)))) + (_g2079020856_ _g2079120860_)))) + (_g2079020856_ _g2079120860_)))) + (_g2079020856_ _g2079120860_))))) + (let ((_g2078821011_ + (lambda (_g2079120945_) + (if (gx#stx-pair? _g2079120945_) + (let ((_e2081920948_ (gx#syntax-e _g2079120945_))) + (let ((_hd2082020952_ (##car _e2081920948_)) + (_tl2082120955_ (##cdr _e2081920948_))) + (if (gx#stx-pair? _tl2082120955_) + (let ((_e2082220958_ + (gx#syntax-e _tl2082120955_))) + (let ((_hd2082320962_ (##car _e2082220958_)) + (_tl2082420965_ (##cdr _e2082220958_))) + (if (gx#stx-pair? _tl2082420965_) + (let ((_e2082520968_ + (gx#syntax-e _tl2082420965_))) + (let ((_hd2082620972_ + (##car _e2082520968_)) + (_tl2082720975_ + (##cdr _e2082520968_))) + (if (gx#stx-pair? _tl2082720975_) + (let ((_e2082820978_ (gx#syntax-e - _tl2012220270_))) - (let ((_hd2012420277_ - (##car _e2012320273_)) - (_tl2012520280_ - (##cdr _e2012320273_))) + _tl2082720975_))) + (let ((_hd2082920982_ + (##car _e2082820978_)) + (_tl2083020985_ + (##cdr _e2082820978_))) (if (gx#stx-null? - _tl2012520280_) - ((lambda (_L20283_ + _tl2083020985_) + ((lambda (_L20988_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L20285_ - _L20286_ - _L20287_) - (cons _L20287_ - (cons _L20286_ - (cons _L20285_ - (cons _L20283_ + _L20990_ + _L20991_ + _L20992_) + (cons _L20992_ + (cons _L20991_ + (cons _L20990_ + (cons _L20988_ (cons '#f (cons '#f '()))))))) - _hd2012420277_ - _hd2012120267_ - _hd2011820257_ - _hd2011520247_) - (_g2008420236_ _g2008620240_)))) + _hd2082920982_ + _hd2082620972_ + _hd2082320962_ + _hd2082020952_) + (_g2078920941_ _g2079120945_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2008420236_ _g2008620240_)))) - (_g2008420236_ _g2008620240_)))) - (_g2008420236_ _g2008620240_)))) - (_g2008420236_ _g2008620240_))))) - (let ((_g2008220402_ - (lambda (_g2008620310_) - (if (gx#stx-pair? _g2008620310_) - (let ((_e2009220313_ (gx#syntax-e _g2008620310_))) - (let ((_hd2009320317_ (##car _e2009220313_)) - (_tl2009420320_ (##cdr _e2009220313_))) - (if (gx#stx-pair? _tl2009420320_) - (let ((_e2009520323_ - (gx#syntax-e _tl2009420320_))) - (let ((_hd2009620327_ (##car _e2009520323_)) - (_tl2009720330_ - (##cdr _e2009520323_))) - (if (gx#stx-pair? _tl2009720330_) - (let ((_e2009820333_ - (gx#syntax-e _tl2009720330_))) - (let ((_hd2009920337_ - (##car _e2009820333_)) - (_tl2010020340_ - (##cdr _e2009820333_))) - (if (gx#stx-pair? _tl2010020340_) - (let ((_e2010120343_ + (_g2078920941_ _g2079120945_)))) + (_g2078920941_ _g2079120945_)))) + (_g2078920941_ _g2079120945_)))) + (_g2078920941_ _g2079120945_))))) + (let ((_g2078721107_ + (lambda (_g2079121015_) + (if (gx#stx-pair? _g2079121015_) + (let ((_e2079721018_ (gx#syntax-e _g2079121015_))) + (let ((_hd2079821022_ (##car _e2079721018_)) + (_tl2079921025_ (##cdr _e2079721018_))) + (if (gx#stx-pair? _tl2079921025_) + (let ((_e2080021028_ + (gx#syntax-e _tl2079921025_))) + (let ((_hd2080121032_ (##car _e2080021028_)) + (_tl2080221035_ + (##cdr _e2080021028_))) + (if (gx#stx-pair? _tl2080221035_) + (let ((_e2080321038_ + (gx#syntax-e _tl2080221035_))) + (let ((_hd2080421042_ + (##car _e2080321038_)) + (_tl2080521045_ + (##cdr _e2080321038_))) + (if (gx#stx-pair? _tl2080521045_) + (let ((_e2080621048_ (gx#syntax-e - _tl2010020340_))) - (let ((_hd2010220347_ - (##car _e2010120343_)) - (_tl2010320350_ - (##cdr _e2010120343_))) + _tl2080521045_))) + (let ((_hd2080721052_ + (##car _e2080621048_)) + (_tl2080821055_ + (##cdr _e2080621048_))) (if (gx#stx-pair? - _tl2010320350_) - (let ((_e2010420353_ + _tl2080821055_) + (let ((_e2080921058_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2010320350_))) - (let ((_hd2010520357_ (##car _e2010420353_)) - (_tl2010620360_ (##cdr _e2010420353_))) - (if (gx#stx-pair? _tl2010620360_) - (let ((_e2010720363_ (gx#syntax-e _tl2010620360_))) - (let ((_hd2010820367_ (##car _e2010720363_)) - (_tl2010920370_ (##cdr _e2010720363_))) - (if (gx#stx-null? _tl2010920370_) - ((lambda (_L20373_ - _L20375_ - _L20376_ - _L20377_ - _L20378_) + _tl2080821055_))) + (let ((_hd2081021062_ (##car _e2080921058_)) + (_tl2081121065_ (##cdr _e2080921058_))) + (if (gx#stx-pair? _tl2081121065_) + (let ((_e2081221068_ (gx#syntax-e _tl2081121065_))) + (let ((_hd2081321072_ (##car _e2081221068_)) + (_tl2081421075_ (##cdr _e2081221068_))) + (if (gx#stx-null? _tl2081421075_) + ((lambda (_L21078_ + _L21080_ + _L21081_ + _L21082_ + _L21083_) (cons (gx#datum->syntax '#f '@make-struct-type) - (cons _L20378_ - (cons _L20377_ - (cons _L20376_ - (cons _L20375_ + (cons _L21083_ + (cons _L21082_ + (cons _L21081_ + (cons _L21080_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L20373_ '()))))))) + (cons _L21078_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2010820367_ - _hd2010520357_ - _hd2010220347_ - _hd2009920337_ - _hd2009620327_) - (_g2008320306_ _g2008620310_)))) - (_g2008320306_ _g2008620310_)))) - (_g2008320306_ _g2008620310_)))) + _hd2081321072_ + _hd2081021062_ + _hd2080721052_ + _hd2080421042_ + _hd2080121032_) + (_g2078821011_ _g2079121015_)))) + (_g2078821011_ _g2079121015_)))) + (_g2078821011_ _g2079121015_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2008320306_ - _g2008620310_)))) - (_g2008320306_ _g2008620310_)))) - (_g2008320306_ _g2008620310_)))) - (_g2008320306_ _g2008620310_))))) - (_g2008220402_ _$stx20079_))))))) + (_g2078821011_ + _g2079121015_)))) + (_g2078821011_ _g2079121015_)))) + (_g2078821011_ _g2079121015_)))) + (_g2078821011_ _g2079121015_))))) + (_g2078721107_ _$stx20784_))))))) (define |gxc[:0:]#@make-struct-type| - (lambda (_$stx20406_) - (let ((_g2041120463_ - (lambda (_g2041220459_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2041220459_)))) - (let ((_g2041020560_ - (lambda (_g2041220467_) - (if (gx#stx-pair? _g2041220467_) - (let ((_e2044020470_ (gx#syntax-e _g2041220467_))) - (let ((_hd2044120474_ (##car _e2044020470_)) - (_tl2044220477_ (##cdr _e2044020470_))) - (if (gx#stx-pair? _tl2044220477_) - (let ((_e2044320480_ - (gx#syntax-e _tl2044220477_))) - (let ((_hd2044420484_ (##car _e2044320480_)) - (_tl2044520487_ (##cdr _e2044320480_))) - (if (gx#stx-pair? _tl2044520487_) - (let ((_e2044620490_ - (gx#syntax-e _tl2044520487_))) - (let ((_hd2044720494_ - (##car _e2044620490_)) - (_tl2044820497_ - (##cdr _e2044620490_))) - (if (gx#stx-pair? _tl2044820497_) - (let ((_e2044920500_ + (lambda (_$stx21111_) + (let ((_g2111621168_ + (lambda (_g2111721164_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2111721164_)))) + (let ((_g2111521265_ + (lambda (_g2111721172_) + (if (gx#stx-pair? _g2111721172_) + (let ((_e2114521175_ (gx#syntax-e _g2111721172_))) + (let ((_hd2114621179_ (##car _e2114521175_)) + (_tl2114721182_ (##cdr _e2114521175_))) + (if (gx#stx-pair? _tl2114721182_) + (let ((_e2114821185_ + (gx#syntax-e _tl2114721182_))) + (let ((_hd2114921189_ (##car _e2114821185_)) + (_tl2115021192_ (##cdr _e2114821185_))) + (if (gx#stx-pair? _tl2115021192_) + (let ((_e2115121195_ + (gx#syntax-e _tl2115021192_))) + (let ((_hd2115221199_ + (##car _e2115121195_)) + (_tl2115321202_ + (##cdr _e2115121195_))) + (if (gx#stx-pair? _tl2115321202_) + (let ((_e2115421205_ (gx#syntax-e - _tl2044820497_))) - (let ((_hd2045020504_ - (##car _e2044920500_)) - (_tl2045120507_ - (##cdr _e2044920500_))) + _tl2115321202_))) + (let ((_hd2115521209_ + (##car _e2115421205_)) + (_tl2115621212_ + (##cdr _e2115421205_))) (if (gx#stx-pair? - _tl2045120507_) - (let ((_e2045220510_ + _tl2115621212_) + (let ((_e2115721215_ (gx#syntax-e - _tl2045120507_))) - (let ((_hd2045320514_ - (##car _e2045220510_)) - (_tl2045420517_ - (##cdr _e2045220510_))) + _tl2115621212_))) + (let ((_hd2115821219_ + (##car _e2115721215_)) + (_tl2115921222_ + (##cdr _e2115721215_))) (if (gx#stx-pair? - _tl2045420517_) - (let ((_e2045520520_ + _tl2115921222_) + (let ((_e2116021225_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2045420517_))) - (let ((_hd2045620524_ (##car _e2045520520_)) - (_tl2045720527_ (##cdr _e2045520520_))) - (if (gx#stx-null? _tl2045720527_) - ((lambda (_L20530_ - _L20532_ - _L20533_ - _L20534_ - _L20535_) + (gx#syntax-e _tl2115921222_))) + (let ((_hd2116121229_ (##car _e2116021225_)) + (_tl2116221232_ (##cdr _e2116021225_))) + (if (gx#stx-null? _tl2116221232_) + ((lambda (_L21235_ + _L21237_ + _L21238_ + _L21239_ + _L21240_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f @@ -775,7 +775,7 @@ '#f 'optimizer-resolve-type) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20534_ '())) + (cons _L21239_ '())) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -819,7 +819,7 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20532_ '())) + (cons _L21237_ '())) (cons (cons (gx#datum->syntax '#f 'if) @@ -843,202 +843,202 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L20535_ '())) + (cons _L21240_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20534_ '())) - (cons _L20533_ + (cons _L21239_ '())) + (cons _L21238_ (cons (gx#datum->syntax '#f 'xfields) (cons (gx#datum->syntax '#f 'xtor) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20530_ '())) + (cons _L21235_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _hd2045620524_ - _hd2045320514_ - _hd2045020504_ - _hd2044720494_ - _hd2044420484_) - (_g2041120463_ _g2041220467_)))) - (_g2041120463_ _g2041220467_)))) + _hd2116121229_ + _hd2115821219_ + _hd2115521209_ + _hd2115221199_ + _hd2114921189_) + (_g2111621168_ _g2111721172_)))) + (_g2111621168_ _g2111721172_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2041120463_ - _g2041220467_)))) - (_g2041120463_ _g2041220467_)))) - (_g2041120463_ _g2041220467_)))) - (_g2041120463_ _g2041220467_)))) - (_g2041120463_ _g2041220467_))))) - (let ((_g2040920654_ - (lambda (_g2041220564_) - (if (gx#stx-pair? _g2041220564_) - (let ((_e2041720567_ (gx#syntax-e _g2041220564_))) - (let ((_hd2041820571_ (##car _e2041720567_)) - (_tl2041920574_ (##cdr _e2041720567_))) - (if (gx#stx-pair? _tl2041920574_) - (let ((_e2042020577_ - (gx#syntax-e _tl2041920574_))) - (let ((_hd2042120581_ (##car _e2042020577_)) - (_tl2042220584_ (##cdr _e2042020577_))) - (if (gx#stx-pair? _tl2042220584_) - (let ((_e2042320587_ - (gx#syntax-e _tl2042220584_))) - (let ((_hd2042420591_ - (##car _e2042320587_)) - (_tl2042520594_ - (##cdr _e2042320587_))) - (if (gx#stx-datum? _hd2042420591_) + (_g2111621168_ + _g2111721172_)))) + (_g2111621168_ _g2111721172_)))) + (_g2111621168_ _g2111721172_)))) + (_g2111621168_ _g2111721172_)))) + (_g2111621168_ _g2111721172_))))) + (let ((_g2111421359_ + (lambda (_g2111721269_) + (if (gx#stx-pair? _g2111721269_) + (let ((_e2112221272_ (gx#syntax-e _g2111721269_))) + (let ((_hd2112321276_ (##car _e2112221272_)) + (_tl2112421279_ (##cdr _e2112221272_))) + (if (gx#stx-pair? _tl2112421279_) + (let ((_e2112521282_ + (gx#syntax-e _tl2112421279_))) + (let ((_hd2112621286_ (##car _e2112521282_)) + (_tl2112721289_ (##cdr _e2112521282_))) + (if (gx#stx-pair? _tl2112721289_) + (let ((_e2112821292_ + (gx#syntax-e _tl2112721289_))) + (let ((_hd2112921296_ + (##car _e2112821292_)) + (_tl2113021299_ + (##cdr _e2112821292_))) + (if (gx#stx-datum? _hd2112921296_) (if (equal? (gx#stx-e - _hd2042420591_) + _hd2112921296_) '#f) (if (gx#stx-pair? - _tl2042520594_) - (let ((_e2042620597_ + _tl2113021299_) + (let ((_e2113121302_ (gx#syntax-e - _tl2042520594_))) - (let ((_hd2042720601_ - (##car _e2042620597_)) - (_tl2042820604_ - (##cdr _e2042620597_))) + _tl2113021299_))) + (let ((_hd2113221306_ + (##car _e2113121302_)) + (_tl2113321309_ + (##cdr _e2113121302_))) (if (gx#stx-pair? - _tl2042820604_) - (let ((_e2042920607_ + _tl2113321309_) + (let ((_e2113421312_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2042820604_))) - (let ((_hd2043020611_ (##car _e2042920607_)) - (_tl2043120614_ (##cdr _e2042920607_))) - (if (gx#stx-pair? _tl2043120614_) - (let ((_e2043220617_ - (gx#syntax-e _tl2043120614_))) - (let ((_hd2043320621_ (##car _e2043220617_)) - (_tl2043420624_ (##cdr _e2043220617_))) - (if (gx#stx-null? _tl2043420624_) - ((lambda (_L20627_ - _L20629_ - _L20630_ - _L20631_) + (gx#syntax-e _tl2113321309_))) + (let ((_hd2113521316_ (##car _e2113421312_)) + (_tl2113621319_ (##cdr _e2113421312_))) + (if (gx#stx-pair? _tl2113621319_) + (let ((_e2113721322_ + (gx#syntax-e _tl2113621319_))) + (let ((_hd2113821326_ (##car _e2113721322_)) + (_tl2113921329_ (##cdr _e2113721322_))) + (if (gx#stx-null? _tl2113921329_) + ((lambda (_L21332_ + _L21334_ + _L21335_ + _L21336_) (cons (gx#datum->syntax '#f 'make-!struct-type) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20631_ + (cons _L21336_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons '#f - (cons _L20630_ + (cons _L21335_ (cons '0 (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20629_ '())) + (cons _L21334_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20627_ '())) + (cons _L21332_ '())) '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2043320621_ - _hd2043020611_ - _hd2042720601_ - _hd2042120581_) - (_g2041020560_ _g2041220564_)))) - (_g2041020560_ _g2041220564_)))) - (_g2041020560_ _g2041220564_)))) - (_g2041020560_ _g2041220564_)) + _hd2113821326_ + _hd2113521316_ + _hd2113221306_ + _hd2112621286_) + (_g2111521265_ _g2111721269_)))) + (_g2111521265_ _g2111721269_)))) + (_g2111521265_ _g2111721269_)))) + (_g2111521265_ _g2111721269_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2041020560_ - _g2041220564_)) - (_g2041020560_ _g2041220564_)))) - (_g2041020560_ _g2041220564_)))) - (_g2041020560_ _g2041220564_)))) - (_g2041020560_ _g2041220564_))))) - (_g2040920654_ _$stx20406_)))))) + (_g2111521265_ + _g2111721269_)) + (_g2111521265_ _g2111721269_)))) + (_g2111521265_ _g2111721269_)))) + (_g2111521265_ _g2111721269_)))) + (_g2111521265_ _g2111721269_))))) + (_g2111421359_ _$stx21111_)))))) (define |gxc[:0:]#@struct-pred| - (lambda (_$stx20658_) - (let ((_g2066220676_ - (lambda (_g2066320672_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2066320672_)))) - (let ((_g2066120717_ - (lambda (_g2066320680_) - (if (gx#stx-pair? _g2066320680_) - (let ((_e2066520683_ (gx#syntax-e _g2066320680_))) - (let ((_hd2066620687_ (##car _e2066520683_)) - (_tl2066720690_ (##cdr _e2066520683_))) - (if (gx#stx-pair? _tl2066720690_) - (let ((_e2066820693_ - (gx#syntax-e _tl2066720690_))) - (let ((_hd2066920697_ (##car _e2066820693_)) - (_tl2067020700_ (##cdr _e2066820693_))) - (if (gx#stx-null? _tl2067020700_) - ((lambda (_L20703_) + (lambda (_$stx21363_) + (let ((_g2136721381_ + (lambda (_g2136821377_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2136821377_)))) + (let ((_g2136621422_ + (lambda (_g2136821385_) + (if (gx#stx-pair? _g2136821385_) + (let ((_e2137021388_ (gx#syntax-e _g2136821385_))) + (let ((_hd2137121392_ (##car _e2137021388_)) + (_tl2137221395_ (##cdr _e2137021388_))) + (if (gx#stx-pair? _tl2137221395_) + (let ((_e2137321398_ + (gx#syntax-e _tl2137221395_))) + (let ((_hd2137421402_ (##car _e2137321398_)) + (_tl2137521405_ (##cdr _e2137321398_))) + (if (gx#stx-null? _tl2137521405_) + ((lambda (_L21408_) (cons (gx#datum->syntax '#f 'make-!struct-pred) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20703_ '())) + (cons _L21408_ '())) '()))) - _hd2066920697_) - (_g2066220676_ _g2066320680_)))) - (_g2066220676_ _g2066320680_)))) - (_g2066220676_ _g2066320680_))))) - (_g2066120717_ _$stx20658_))))) + _hd2137421402_) + (_g2136721381_ _g2136821385_)))) + (_g2136721381_ _g2136821385_)))) + (_g2136721381_ _g2136821385_))))) + (_g2136621422_ _$stx21363_))))) (define |gxc[:0:]#@struct-cons| - (lambda (_$stx20721_) - (let ((_g2072520739_ - (lambda (_g2072620735_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2072620735_)))) - (let ((_g2072420780_ - (lambda (_g2072620743_) - (if (gx#stx-pair? _g2072620743_) - (let ((_e2072820746_ (gx#syntax-e _g2072620743_))) - (let ((_hd2072920750_ (##car _e2072820746_)) - (_tl2073020753_ (##cdr _e2072820746_))) - (if (gx#stx-pair? _tl2073020753_) - (let ((_e2073120756_ - (gx#syntax-e _tl2073020753_))) - (let ((_hd2073220760_ (##car _e2073120756_)) - (_tl2073320763_ (##cdr _e2073120756_))) - (if (gx#stx-null? _tl2073320763_) - ((lambda (_L20766_) + (lambda (_$stx21426_) + (let ((_g2143021444_ + (lambda (_g2143121440_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2143121440_)))) + (let ((_g2142921485_ + (lambda (_g2143121448_) + (if (gx#stx-pair? _g2143121448_) + (let ((_e2143321451_ (gx#syntax-e _g2143121448_))) + (let ((_hd2143421455_ (##car _e2143321451_)) + (_tl2143521458_ (##cdr _e2143321451_))) + (if (gx#stx-pair? _tl2143521458_) + (let ((_e2143621461_ + (gx#syntax-e _tl2143521458_))) + (let ((_hd2143721465_ (##car _e2143621461_)) + (_tl2143821468_ (##cdr _e2143621461_))) + (if (gx#stx-null? _tl2143821468_) + ((lambda (_L21471_) (cons (gx#datum->syntax '#f 'make-!struct-cons) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20766_ '())) + (cons _L21471_ '())) '()))) - _hd2073220760_) - (_g2072520739_ _g2072620743_)))) - (_g2072520739_ _g2072620743_)))) - (_g2072520739_ _g2072620743_))))) - (_g2072420780_ _$stx20721_))))) + _hd2143721465_) + (_g2143021444_ _g2143121448_)))) + (_g2143021444_ _g2143121448_)))) + (_g2143021444_ _g2143121448_))))) + (_g2142921485_ _$stx21426_))))) (define |gxc[:0:]#@struct-getf| - (lambda (_$stx20784_) - (let ((_g2078820806_ - (lambda (_g2078920802_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2078920802_)))) - (let ((_g2078720861_ - (lambda (_g2078920810_) - (if (gx#stx-pair? _g2078920810_) - (let ((_e2079220813_ (gx#syntax-e _g2078920810_))) - (let ((_hd2079320817_ (##car _e2079220813_)) - (_tl2079420820_ (##cdr _e2079220813_))) - (if (gx#stx-pair? _tl2079420820_) - (let ((_e2079520823_ - (gx#syntax-e _tl2079420820_))) - (let ((_hd2079620827_ (##car _e2079520823_)) - (_tl2079720830_ (##cdr _e2079520823_))) - (if (gx#stx-pair? _tl2079720830_) - (let ((_e2079820833_ - (gx#syntax-e _tl2079720830_))) - (let ((_hd2079920837_ - (##car _e2079820833_)) - (_tl2080020840_ - (##cdr _e2079820833_))) - (if (gx#stx-null? _tl2080020840_) - ((lambda (_L20843_ _L20845_) + (lambda (_$stx21489_) + (let ((_g2149321511_ + (lambda (_g2149421507_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2149421507_)))) + (let ((_g2149221566_ + (lambda (_g2149421515_) + (if (gx#stx-pair? _g2149421515_) + (let ((_e2149721518_ (gx#syntax-e _g2149421515_))) + (let ((_hd2149821522_ (##car _e2149721518_)) + (_tl2149921525_ (##cdr _e2149721518_))) + (if (gx#stx-pair? _tl2149921525_) + (let ((_e2150021528_ + (gx#syntax-e _tl2149921525_))) + (let ((_hd2150121532_ (##car _e2150021528_)) + (_tl2150221535_ (##cdr _e2150021528_))) + (if (gx#stx-pair? _tl2150221535_) + (let ((_e2150321538_ + (gx#syntax-e _tl2150221535_))) + (let ((_hd2150421542_ + (##car _e2150321538_)) + (_tl2150521545_ + (##cdr _e2150321538_))) + (if (gx#stx-null? _tl2150521545_) + ((lambda (_L21548_ _L21550_) (cons (gx#datum->syntax '#f 'make-!struct-getf) @@ -1046,41 +1046,41 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L20845_ '())) - (cons _L20843_ '())))) + (cons _L21550_ '())) + (cons _L21548_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2079920837_ - _hd2079620827_) - (_g2078820806_ _g2078920810_)))) - (_g2078820806_ _g2078920810_)))) - (_g2078820806_ _g2078920810_)))) - (_g2078820806_ _g2078920810_))))) - (_g2078720861_ _$stx20784_))))) + _hd2150421542_ + _hd2150121532_) + (_g2149321511_ _g2149421515_)))) + (_g2149321511_ _g2149421515_)))) + (_g2149321511_ _g2149421515_)))) + (_g2149321511_ _g2149421515_))))) + (_g2149221566_ _$stx21489_))))) (define |gxc[:0:]#@struct-setf| - (lambda (_$stx20865_) - (let ((_g2086920887_ - (lambda (_g2087020883_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2087020883_)))) - (let ((_g2086820942_ - (lambda (_g2087020891_) - (if (gx#stx-pair? _g2087020891_) - (let ((_e2087320894_ (gx#syntax-e _g2087020891_))) - (let ((_hd2087420898_ (##car _e2087320894_)) - (_tl2087520901_ (##cdr _e2087320894_))) - (if (gx#stx-pair? _tl2087520901_) - (let ((_e2087620904_ - (gx#syntax-e _tl2087520901_))) - (let ((_hd2087720908_ (##car _e2087620904_)) - (_tl2087820911_ (##cdr _e2087620904_))) - (if (gx#stx-pair? _tl2087820911_) - (let ((_e2087920914_ - (gx#syntax-e _tl2087820911_))) - (let ((_hd2088020918_ - (##car _e2087920914_)) - (_tl2088120921_ - (##cdr _e2087920914_))) - (if (gx#stx-null? _tl2088120921_) - ((lambda (_L20924_ _L20926_) + (lambda (_$stx21570_) + (let ((_g2157421592_ + (lambda (_g2157521588_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2157521588_)))) + (let ((_g2157321647_ + (lambda (_g2157521596_) + (if (gx#stx-pair? _g2157521596_) + (let ((_e2157821599_ (gx#syntax-e _g2157521596_))) + (let ((_hd2157921603_ (##car _e2157821599_)) + (_tl2158021606_ (##cdr _e2157821599_))) + (if (gx#stx-pair? _tl2158021606_) + (let ((_e2158121609_ + (gx#syntax-e _tl2158021606_))) + (let ((_hd2158221613_ (##car _e2158121609_)) + (_tl2158321616_ (##cdr _e2158121609_))) + (if (gx#stx-pair? _tl2158321616_) + (let ((_e2158421619_ + (gx#syntax-e _tl2158321616_))) + (let ((_hd2158521623_ + (##car _e2158421619_)) + (_tl2158621626_ + (##cdr _e2158421619_))) + (if (gx#stx-null? _tl2158621626_) + ((lambda (_L21629_ _L21631_) (cons (gx#datum->syntax '#f 'make-!struct-setf) @@ -1088,61 +1088,61 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L20926_ '())) - (cons _L20924_ '())))) + (cons _L21631_ '())) + (cons _L21629_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2088020918_ - _hd2087720908_) - (_g2086920887_ _g2087020891_)))) - (_g2086920887_ _g2087020891_)))) - (_g2086920887_ _g2087020891_)))) - (_g2086920887_ _g2087020891_))))) - (_g2086820942_ _$stx20865_))))) + _hd2158521623_ + _hd2158221613_) + (_g2157421592_ _g2157521596_)))) + (_g2157421592_ _g2157521596_)))) + (_g2157421592_ _g2157521596_)))) + (_g2157421592_ _g2157521596_))))) + (_g2157321647_ _$stx21570_))))) (define |gxc[:0:]#@lambda| - (lambda (_$stx20946_) - (let ((_g2095220992_ - (lambda (_g2095320988_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2095320988_)))) - (let ((_g2095121035_ - (lambda (_g2095320996_) - (if (gx#stx-pair? _g2095320996_) - (let ((_e2098120999_ (gx#syntax-e _g2095320996_))) - (let ((_hd2098221003_ (##car _e2098120999_)) - (_tl2098321006_ (##cdr _e2098120999_))) - (if (gx#stx-pair? _tl2098321006_) - (let ((_e2098421009_ - (gx#syntax-e _tl2098321006_))) - (let ((_hd2098521013_ (##car _e2098421009_)) - (_tl2098621016_ (##cdr _e2098421009_))) - (if (gx#stx-null? _tl2098621016_) - ((lambda (_L21019_ _L21021_) - (cons _L21021_ - (cons _L21019_ (cons '#f '())))) - _hd2098521013_ - _hd2098221003_) - (_g2095220992_ _g2095320996_)))) - (_g2095220992_ _g2095320996_)))) - (_g2095220992_ _g2095320996_))))) - (let ((_g2095021089_ - (lambda (_g2095321039_) - (if (gx#stx-pair? _g2095321039_) - (let ((_e2097021042_ (gx#syntax-e _g2095321039_))) - (let ((_hd2097121046_ (##car _e2097021042_)) - (_tl2097221049_ (##cdr _e2097021042_))) - (if (gx#stx-pair? _tl2097221049_) - (let ((_e2097321052_ - (gx#syntax-e _tl2097221049_))) - (let ((_hd2097421056_ (##car _e2097321052_)) - (_tl2097521059_ (##cdr _e2097321052_))) - (if (gx#stx-pair? _tl2097521059_) - (let ((_e2097621062_ - (gx#syntax-e _tl2097521059_))) - (let ((_hd2097721066_ - (##car _e2097621062_)) - (_tl2097821069_ - (##cdr _e2097621062_))) - (if (gx#stx-null? _tl2097821069_) - ((lambda (_L21072_ _L21074_) + (lambda (_$stx21651_) + (let ((_g2165721697_ + (lambda (_g2165821693_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2165821693_)))) + (let ((_g2165621740_ + (lambda (_g2165821701_) + (if (gx#stx-pair? _g2165821701_) + (let ((_e2168621704_ (gx#syntax-e _g2165821701_))) + (let ((_hd2168721708_ (##car _e2168621704_)) + (_tl2168821711_ (##cdr _e2168621704_))) + (if (gx#stx-pair? _tl2168821711_) + (let ((_e2168921714_ + (gx#syntax-e _tl2168821711_))) + (let ((_hd2169021718_ (##car _e2168921714_)) + (_tl2169121721_ (##cdr _e2168921714_))) + (if (gx#stx-null? _tl2169121721_) + ((lambda (_L21724_ _L21726_) + (cons _L21726_ + (cons _L21724_ (cons '#f '())))) + _hd2169021718_ + _hd2168721708_) + (_g2165721697_ _g2165821701_)))) + (_g2165721697_ _g2165821701_)))) + (_g2165721697_ _g2165821701_))))) + (let ((_g2165521794_ + (lambda (_g2165821744_) + (if (gx#stx-pair? _g2165821744_) + (let ((_e2167521747_ (gx#syntax-e _g2165821744_))) + (let ((_hd2167621751_ (##car _e2167521747_)) + (_tl2167721754_ (##cdr _e2167521747_))) + (if (gx#stx-pair? _tl2167721754_) + (let ((_e2167821757_ + (gx#syntax-e _tl2167721754_))) + (let ((_hd2167921761_ (##car _e2167821757_)) + (_tl2168021764_ (##cdr _e2167821757_))) + (if (gx#stx-pair? _tl2168021764_) + (let ((_e2168121767_ + (gx#syntax-e _tl2168021764_))) + (let ((_hd2168221771_ + (##car _e2168121767_)) + (_tl2168321774_ + (##cdr _e2168121767_))) + (if (gx#stx-null? _tl2168321774_) + ((lambda (_L21777_ _L21779_) (cons (gx#datum->syntax '#f 'make-!lambda) @@ -1152,50 +1152,50 @@ 'quote) (cons (gx#datum->syntax '#f 'lambda) '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L21074_ '())) + (cons _L21779_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L21072_ '())) + (cons _L21777_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2097721066_ - _hd2097421056_) - (_g2095121035_ _g2095321039_)))) - (_g2095121035_ _g2095321039_)))) - (_g2095121035_ _g2095321039_)))) - (_g2095121035_ _g2095321039_))))) - (let ((_g2094921155_ - (lambda (_g2095321093_) - (if (gx#stx-pair? _g2095321093_) - (let ((_e2095621096_ (gx#syntax-e _g2095321093_))) - (let ((_hd2095721100_ (##car _e2095621096_)) - (_tl2095821103_ (##cdr _e2095621096_))) - (if (gx#stx-pair? _tl2095821103_) - (let ((_e2095921106_ - (gx#syntax-e _tl2095821103_))) - (let ((_hd2096021110_ (##car _e2095921106_)) - (_tl2096121113_ - (##cdr _e2095921106_))) - (if (gx#stx-pair? _tl2096121113_) - (let ((_e2096221116_ - (gx#syntax-e _tl2096121113_))) - (let ((_hd2096321120_ - (##car _e2096221116_)) - (_tl2096421123_ - (##cdr _e2096221116_))) - (if (gx#stx-datum? _hd2096321120_) + _hd2168221771_ + _hd2167921761_) + (_g2165621740_ _g2165821744_)))) + (_g2165621740_ _g2165821744_)))) + (_g2165621740_ _g2165821744_)))) + (_g2165621740_ _g2165821744_))))) + (let ((_g2165421860_ + (lambda (_g2165821798_) + (if (gx#stx-pair? _g2165821798_) + (let ((_e2166121801_ (gx#syntax-e _g2165821798_))) + (let ((_hd2166221805_ (##car _e2166121801_)) + (_tl2166321808_ (##cdr _e2166121801_))) + (if (gx#stx-pair? _tl2166321808_) + (let ((_e2166421811_ + (gx#syntax-e _tl2166321808_))) + (let ((_hd2166521815_ (##car _e2166421811_)) + (_tl2166621818_ + (##cdr _e2166421811_))) + (if (gx#stx-pair? _tl2166621818_) + (let ((_e2166721821_ + (gx#syntax-e _tl2166621818_))) + (let ((_hd2166821825_ + (##car _e2166721821_)) + (_tl2166921828_ + (##cdr _e2166721821_))) + (if (gx#stx-datum? _hd2166821825_) (if (equal? (gx#stx-e - _hd2096321120_) + _hd2166821825_) 'inline:) (if (gx#stx-pair? - _tl2096421123_) - (let ((_e2096521126_ + _tl2166921828_) + (let ((_e2167021831_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2096421123_))) - (let ((_hd2096621130_ (##car _e2096521126_)) - (_tl2096721133_ (##cdr _e2096521126_))) - (if (gx#stx-null? _tl2096721133_) - ((lambda (_L21136_ _L21138_) + _tl2166921828_))) + (let ((_hd2167121835_ (##car _e2167021831_)) + (_tl2167221838_ (##cdr _e2167021831_))) + (if (gx#stx-null? _tl2167221838_) + ((lambda (_L21841_ _L21843_) (cons (gx#datum->syntax '#f 'make-!lambda) (cons (cons (gx#datum->syntax '#f 'quote) (cons (gx#datum->syntax @@ -1205,92 +1205,92 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L21138_ '())) + (cons _L21843_ '())) (cons '#f - (cons _L21136_ + (cons _L21841_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L21136_ '())) + (cons _L21841_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2096621130_ - _hd2096021110_) - (_g2095021089_ _g2095321093_)))) - (_g2095021089_ _g2095321093_)) + _hd2167121835_ + _hd2166521815_) + (_g2165521794_ _g2165821798_)))) + (_g2165521794_ _g2165821798_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2095021089_ - _g2095321093_)) - (_g2095021089_ - _g2095321093_)))) - (_g2095021089_ _g2095321093_)))) - (_g2095021089_ _g2095321093_)))) - (_g2095021089_ _g2095321093_))))) - (_g2094921155_ _$stx20946_))))))) + (_g2165521794_ + _g2165821798_)) + (_g2165521794_ + _g2165821798_)))) + (_g2165521794_ _g2165821798_)))) + (_g2165521794_ _g2165821798_)))) + (_g2165521794_ _g2165821798_))))) + (_g2165421860_ _$stx21651_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_$stx21159_) - (let ((_g2116321192_ - (lambda (_g2116421188_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2116421188_)))) - (let ((_g2116221292_ - (lambda (_g2116421196_) - (if (gx#stx-pair? _g2116421196_) - (let ((_e2116721199_ (gx#syntax-e _g2116421196_))) - (let ((_hd2116821203_ (##car _e2116721199_)) - (_tl2116921206_ (##cdr _e2116721199_))) - (if (gx#stx-pair/null? _tl2116921206_) - (if (fx>= (gx#stx-length _tl2116921206_) '0) - (let ((_g21302_ + (lambda (_$stx21864_) + (let ((_g2186821897_ + (lambda (_g2186921893_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2186921893_)))) + (let ((_g2186721997_ + (lambda (_g2186921901_) + (if (gx#stx-pair? _g2186921901_) + (let ((_e2187221904_ (gx#syntax-e _g2186921901_))) + (let ((_hd2187321908_ (##car _e2187221904_)) + (_tl2187421911_ (##cdr _e2187221904_))) + (if (gx#stx-pair/null? _tl2187421911_) + (if (fx>= (gx#stx-length _tl2187421911_) '0) + (let ((_g22007_ (gx#syntax-split-splice - _tl2116921206_ + _tl2187421911_ '0))) (begin - (let ((_g21303_ (values-count _g21302_))) - (if (not (fx= _g21303_ 2)) + (let ((_g22008_ (values-count _g22007_))) + (if (not (fx= _g22008_ 2)) (error "Context expects 2 values" - _g21303_))) - (let ((_target2117021209_ - (values-ref _g21302_ 0)) - (_tl2117221212_ - (values-ref _g21302_ 1))) - (if (gx#stx-null? _tl2117221212_) - (letrec ((_loop2117321215_ - (lambda (_hd2117121219_ - _dispatch2117721222_ - _arity2117821224_) + _g22008_))) + (let ((_target2187521914_ + (values-ref _g22007_ 0)) + (_tl2187721917_ + (values-ref _g22007_ 1))) + (if (gx#stx-null? _tl2187721917_) + (letrec ((_loop2187821920_ + (lambda (_hd2187621924_ + _dispatch2188221927_ + _arity2188321929_) (if (gx#stx-pair? - _hd2117121219_) - (let ((_e2117421227_ + _hd2187621924_) + (let ((_e2187921932_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd2117121219_))) - (let ((_lp-hd2117521231_ (##car _e2117421227_)) - (_lp-tl2117621234_ (##cdr _e2117421227_))) - (if (gx#stx-pair? _lp-hd2117521231_) - (let ((_e2118121237_ - (gx#syntax-e _lp-hd2117521231_))) - (let ((_hd2118221241_ (##car _e2118121237_)) - (_tl2118321244_ (##cdr _e2118121237_))) - (if (gx#stx-pair? _tl2118321244_) - (let ((_e2118421247_ - (gx#syntax-e _tl2118321244_))) - (let ((_hd2118521251_ - (##car _e2118421247_)) - (_tl2118621254_ - (##cdr _e2118421247_))) - (if (gx#stx-null? _tl2118621254_) - (_loop2117321215_ - _lp-tl2117621234_ - (cons _hd2118521251_ - _dispatch2117721222_) - (cons _hd2118221241_ - _arity2117821224_)) - (_g2116321192_ _g2116421196_)))) - (_g2116321192_ _g2116421196_)))) - (_g2116321192_ _g2116421196_)))) - (let ((_dispatch2117921257_ (reverse _dispatch2117721222_)) - (_arity2118021260_ (reverse _arity2117821224_))) - ((lambda (_L21263_ _L21265_) + (gx#syntax-e _hd2187621924_))) + (let ((_lp-hd2188021936_ (##car _e2187921932_)) + (_lp-tl2188121939_ (##cdr _e2187921932_))) + (if (gx#stx-pair? _lp-hd2188021936_) + (let ((_e2188621942_ + (gx#syntax-e _lp-hd2188021936_))) + (let ((_hd2188721946_ (##car _e2188621942_)) + (_tl2188821949_ (##cdr _e2188621942_))) + (if (gx#stx-pair? _tl2188821949_) + (let ((_e2188921952_ + (gx#syntax-e _tl2188821949_))) + (let ((_hd2189021956_ + (##car _e2188921952_)) + (_tl2189121959_ + (##cdr _e2188921952_))) + (if (gx#stx-null? _tl2189121959_) + (_loop2187821920_ + _lp-tl2188121939_ + (cons _hd2189021956_ + _dispatch2188221927_) + (cons _hd2188721946_ + _arity2188321929_)) + (_g2186821897_ _g2186921901_)))) + (_g2186821897_ _g2186921901_)))) + (_g2186821897_ _g2186921901_)))) + (let ((_dispatch2188421962_ (reverse _dispatch2188221927_)) + (_arity2188521965_ (reverse _arity2188321929_))) + ((lambda (_L21968_ _L21970_) (cons (gx#datum->syntax '#f 'make-!case-lambda) (cons (cons (gx#datum->syntax '#f 'quote) (cons (gx#datum->syntax @@ -1300,29 +1300,29 @@ (cons (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _L21263_ - _L21265_) - (foldr (lambda (_g2128021284_ + _L21968_ + _L21970_) + (foldr (lambda (_g2198521989_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2128121287_ - _g2128221289_) + _g2198621992_ + _g2198721994_) (cons (cons (gx#datum->syntax '#f '@lambda) - (cons _g2128121287_ (cons _g2128021284_ '()))) - _g2128221289_)) + (cons _g2198621992_ (cons _g2198521989_ '()))) + _g2198721994_)) '() - _L21263_ - _L21265_))) + _L21968_ + _L21970_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _dispatch2117921257_ - _arity2118021260_)))))) + _dispatch2188421962_ + _arity2188521965_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop2117321215_ - _target2117021209_ + (_loop2187821920_ + _target2187521914_ '() '())) - (_g2116321192_ _g2116421196_))))) - (_g2116321192_ _g2116421196_)) - (_g2116321192_ _g2116421196_)))) - (_g2116321192_ _g2116421196_))))) - (_g2116221292_ _$stx21159_)))))) + (_g2186821897_ _g2186921901_))))) + (_g2186821897_ _g2186921901_)) + (_g2186821897_ _g2186921901_)))) + (_g2186821897_ _g2186921901_))))) + (_g2186721997_ _$stx21864_)))))) diff --git a/src/bootstrap/gerbil/expander/common__1.scm b/src/bootstrap/gerbil/expander/common__1.scm index 3da7c4ef1..a35751b23 100644 --- a/src/bootstrap/gerbil/expander/common__1.scm +++ b/src/bootstrap/gerbil/expander/common__1.scm @@ -1,71 +1,71 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define |gx[1]#_g2598_| (gx#core-quote-syntax 'error::t)) - (define |gx[1]#_g2599_| (gx#core-quote-syntax 'AST::t)) - (define |gx[1]#_g2602_| (gx#core-quote-syntax 'else)) + (define |gx[1]#_g2674_| (gx#core-quote-syntax 'error::t)) + (define |gx[1]#_g2675_| (gx#core-quote-syntax 'AST::t)) + (define |gx[1]#_g2678_| (gx#core-quote-syntax 'else)) (begin (define |gx[:0:]#| (|gerbil/core::::[1]#make-runtime-struct-info| 'runtime-identifier: - |gx[1]#_g2598_|)) + |gx[1]#_g2674_|)) (define |gx[:0:]#AST| (|gerbil/core::::[1]#make-runtime-struct-info| 'runtime-identifier: - |gx[1]#_g2599_|)) + |gx[1]#_g2675_|)) (define |gx[:0:]#core-syntax-case| - (lambda (_stx250_) - (let ((_generate253_ - (lambda (_tgt405_ _kws407_ _clauses408_) - (let ((_generate1412_ - (lambda (_where798_ - _hd800_ - _fender801_ - _body802_ - _E803_) - (letrec ((_recur805_ - (lambda (_hd808_ _tgt810_ _K811_) - (let ((_g814826_ - (lambda (_g815822_) + (lambda (_stx326_) + (let ((_generate329_ + (lambda (_tgt481_ _kws483_ _clauses484_) + (let ((_generate1488_ + (lambda (_where874_ + _hd876_ + _fender877_ + _body878_ + _E879_) + (letrec ((_recur881_ + (lambda (_hd884_ _tgt886_ _K887_) + (let ((_g890902_ + (lambda (_g891898_) (gx#raise-syntax-error '#f '"Bad syntax" - _g815822_)))) - (let ((_g8131093_ - (lambda (_g815830_) + _g891898_)))) + (let ((_g8891169_ + (lambda (_g891906_) ((lambda () (if (gx#identifier? - _hd808_) + _hd884_) (if (gx#underscore? - _hd808_) - _K811_ - (if (find (lambda (_g836838_) + _hd884_) + _K887_ + (if (find (lambda (_g912914_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#bound-identifier=? _g836838_ _hd808_)) - _kws407_) - (let ((_g842857_ - (lambda (_g843853_) + (gx#bound-identifier=? _g912914_ _hd884_)) + _kws483_) + (let ((_g918933_ + (lambda (_g919929_) (gx#raise-syntax-error '#f '"Bad syntax" - _g843853_)))) - (let ((_g841908_ - (lambda (_g843861_) - (if (gx#stx-pair? _g843861_) - (let ((_e846864_ - (gx#syntax-e _g843861_))) - (let ((_hd847868_ (##car _e846864_)) - (_tl848871_ (##cdr _e846864_))) - (if (gx#stx-pair? _tl848871_) - (let ((_e849874_ + _g919929_)))) + (let ((_g917984_ + (lambda (_g919937_) + (if (gx#stx-pair? _g919937_) + (let ((_e922940_ + (gx#syntax-e _g919937_))) + (let ((_hd923944_ (##car _e922940_)) + (_tl924947_ (##cdr _e922940_))) + (if (gx#stx-pair? _tl924947_) + (let ((_e925950_ (gx#syntax-e - _tl848871_))) - (let ((_hd850878_ - (##car _e849874_)) - (_tl851881_ - (##cdr _e849874_))) + _tl924947_))) + (let ((_hd926954_ + (##car _e925950_)) + (_tl927957_ + (##cdr _e925950_))) (if (gx#stx-null? - _tl851881_) - ((lambda (_L884_ _L886_) + _tl927957_) + ((lambda (_L960_ _L962_) (let () (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -75,157 +75,157 @@ (cons (cons (gx#datum->syntax '#f 'identifier?) - (cons _L886_ '())) + (cons _L962_ '())) (cons (cons (gx#datum->syntax '#f 'core-identifier=?) - (cons _L886_ + (cons _L962_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L884_ '())) + (cons _L960_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons _K811_ (cons _E803_ '())))))) - _hd850878_ - _hd847868_) - (_g842857_ _g843861_)))) + (cons _K887_ (cons _E879_ '())))))) + _hd926954_ + _hd923944_) + (_g918933_ _g919937_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g842857_ _g843861_)))) - (_g842857_ _g843861_))))) - (_g841908_ (list _tgt810_ _hd808_)))) - (let ((_g912927_ - (lambda (_g913923_) + (_g918933_ _g919937_)))) + (_g918933_ _g919937_))))) + (_g917984_ (list _tgt886_ _hd884_)))) + (let ((_g9881003_ + (lambda (_g989999_) (gx#raise-syntax-error '#f '"Bad syntax" - _g913923_)))) - (let ((_g911971_ - (lambda (_g913931_) - (if (gx#stx-pair? _g913931_) - (let ((_e916934_ - (gx#syntax-e _g913931_))) - (let ((_hd917938_ (##car _e916934_)) - (_tl918941_ (##cdr _e916934_))) - (if (gx#stx-pair? _tl918941_) - (let ((_e919944_ + _g989999_)))) + (let ((_g9871047_ + (lambda (_g9891007_) + (if (gx#stx-pair? _g9891007_) + (let ((_e9921010_ + (gx#syntax-e _g9891007_))) + (let ((_hd9931014_ (##car _e9921010_)) + (_tl9941017_ + (##cdr _e9921010_))) + (if (gx#stx-pair? _tl9941017_) + (let ((_e9951020_ (gx#syntax-e - _tl918941_))) - (let ((_hd920948_ - (##car _e919944_)) - (_tl921951_ - (##cdr _e919944_))) + _tl9941017_))) + (let ((_hd9961024_ + (##car _e9951020_)) + (_tl9971027_ + (##cdr _e9951020_))) (if (gx#stx-null? - _tl921951_) - ((lambda (_L954_ _L956_) - (let () - (cons (gx#datum->syntax + _tl9971027_) + ((lambda (_L1030_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'let) - (cons (cons (cons _L954_ (cons _L956_ '())) '()) - (cons _K811_ '()))))) - _hd920948_ - _hd917938_) - (_g912927_ _g913931_)))) + _L1032_) + (let () + (cons (gx#datum->syntax '#f 'let) + (cons (cons (cons _L1030_ (cons _L1032_ '())) '()) + (cons _K887_ '()))))) + _hd9961024_ + _hd9931014_) + (_g9881003_ _g9891007_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g912927_ _g913931_)))) - (_g912927_ _g913931_))))) - (_g911971_ (list _tgt810_ _hd808_)))))) - (if (gx#stx-null? _hd808_) - (let ((_g975983_ - (lambda (_g976979_) + (_g9881003_ _g9891007_)))) + (_g9881003_ _g9891007_))))) + (_g9871047_ (list _tgt886_ _hd884_)))))) + (if (gx#stx-null? _hd884_) + (let ((_g10511059_ + (lambda (_g10521055_) (gx#raise-syntax-error '#f '"Bad syntax" - _g976979_)))) - (let ((_g9741001_ - (lambda (_g976987_) - ((lambda (_L990_) + _g10521055_)))) + (let ((_g10501077_ + (lambda (_g10521063_) + ((lambda (_L1066_) (let () (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'stx-null?) - (cons _L990_ '())) - (cons _K811_ - (cons _E803_ '())))))) - _g976987_)))) - (_g9741001_ _tgt810_))) - (if (gx#stx-datum? _hd808_) - (let ((_g10051024_ - (lambda (_g10061020_) + (cons _L1066_ '())) + (cons _K887_ + (cons _E879_ '())))))) + _g10521063_)))) + (_g10501077_ _tgt886_))) + (if (gx#stx-datum? _hd884_) + (let ((_g10811100_ + (lambda (_g10821096_) (gx#raise-syntax-error '#f '"Bad syntax" - _g10061020_)))) - (let ((_g10041082_ - (lambda (_g10061028_) - (if (gx#stx-pair? _g10061028_) - (let ((_e10101031_ - (gx#syntax-e _g10061028_))) - (let ((_hd10111035_ - (##car _e10101031_)) - (_tl10121038_ - (##cdr _e10101031_))) - (if (gx#stx-pair? _tl10121038_) - (let ((_e10131041_ + _g10821096_)))) + (let ((_g10801158_ + (lambda (_g10821104_) + (if (gx#stx-pair? _g10821104_) + (let ((_e10861107_ + (gx#syntax-e _g10821104_))) + (let ((_hd10871111_ + (##car _e10861107_)) + (_tl10881114_ + (##cdr _e10861107_))) + (if (gx#stx-pair? _tl10881114_) + (let ((_e10891117_ (gx#syntax-e - _tl10121038_))) - (let ((_hd10141045_ - (##car _e10131041_)) - (_tl10151048_ - (##cdr _e10131041_))) + _tl10881114_))) + (let ((_hd10901121_ + (##car _e10891117_)) + (_tl10911124_ + (##cdr _e10891117_))) (if (gx#stx-pair? - _tl10151048_) - (let ((_e10161051_ + _tl10911124_) + (let ((_e10921127_ (gx#syntax-e - _tl10151048_))) - (let ((_hd10171055_ - (##car _e10161051_)) - (_tl10181058_ - (##cdr _e10161051_))) + _tl10911124_))) + (let ((_hd10931131_ + (##car _e10921127_)) + (_tl10941134_ + (##cdr _e10921127_))) (if (gx#stx-null? - _tl10181058_) - ((lambda (_L1061_ + _tl10941134_) + ((lambda (_L1137_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L1063_ - _L1064_) + _L1139_ + _L1140_) (let () (cons (gx#datum->syntax '#f 'if) - (cons (cons _L1061_ + (cons (cons _L1137_ (cons (cons (gx#datum->syntax '#f 'stx-e) - (cons _L1064_ '())) + (cons _L1140_ '())) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L1063_ '())) + (cons _L1139_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _K811_ (cons _E803_ '())))))) - _hd10171055_ - _hd10141045_ - _hd10111035_) - (_g10051024_ _g10061028_)))) - (_g10051024_ _g10061028_)))) + (cons _K887_ (cons _E879_ '())))))) + _hd10931131_ + _hd10901121_ + _hd10871111_) + (_g10811100_ _g10821104_)))) + (_g10811100_ _g10821104_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g10051024_ _g10061028_)))) - (_g10051024_ _g10061028_))))) - (_g10041082_ - (list _tgt810_ - _hd808_ - (let ((_e1086_ (gx#stx-e _hd808_))) - (if (let ((_$e1089_ (keyword? _e1086_))) - (if _$e1089_ - _$e1089_ - (immediate? _e1086_))) + (_g10811100_ _g10821104_)))) + (_g10811100_ _g10821104_))))) + (_g10801158_ + (list _tgt886_ + _hd884_ + (let ((_e1162_ (gx#stx-e _hd884_))) + (if (let ((_$e1165_ (keyword? _e1162_))) + (if _$e1165_ + _$e1165_ + (immediate? _e1162_))) (gx#datum->syntax '#f 'eq?) - (if (number? _e1086_) + (if (number? _e1162_) (gx#datum->syntax '#f 'eqv?) (gx#datum->syntax '#f @@ -233,275 +233,275 @@ (gx#raise-syntax-error '#f '"Bad syntax" - _stx250_ - _where798_ - _hd808_))))))))) + _stx326_ + _where874_ + _hd884_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g8121316_ - (lambda (_g8151097_) + (let ((_g8881392_ + (lambda (_g8911173_) (if (gx#stx-pair? - _g8151097_) - (let ((_e8181100_ + _g8911173_) + (let ((_e8941176_ (gx#syntax-e - _g8151097_))) - (let ((_hd8191104_ - (##car _e8181100_)) - (_tl8201107_ - (##cdr _e8181100_))) - ((lambda (_L1110_ + _g8911173_))) + (let ((_hd8951180_ + (##car _e8941176_)) + (_tl8961183_ + (##cdr _e8941176_))) + ((lambda (_L1186_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L1112_) - (let ((_g11231131_ - (lambda (_g11241127_) + _L1188_) + (let ((_g11991207_ + (lambda (_g12001203_) (gx#raise-syntax-error '#f '"Bad syntax" - _g11241127_)))) - (let ((_g11221312_ - (lambda (_g11241135_) - ((lambda (_L1138_) + _g12001203_)))) + (let ((_g11981388_ + (lambda (_g12001211_) + ((lambda (_L1214_) (let () - (let ((_g11501158_ - (lambda (_g11511154_) + (let ((_g12261234_ + (lambda (_g12271230_) (gx#raise-syntax-error '#f '"Bad syntax" - _g11511154_)))) - (let ((_g11491308_ - (lambda (_g11511162_) - ((lambda (_L1165_) + _g12271230_)))) + (let ((_g12251384_ + (lambda (_g12271238_) + ((lambda (_L1241_) (let () - (let ((_g11781186_ - (lambda (_g11791182_) + (let ((_g12541262_ + (lambda (_g12551258_) (gx#raise-syntax-error '#f '"Bad syntax" - _g11791182_)))) - (let ((_g11771304_ - (lambda (_g11791190_) + _g12551258_)))) + (let ((_g12531380_ + (lambda (_g12551266_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - ((lambda (_L1193_) + ((lambda (_L1269_) (let () - (let ((_g12061214_ - (lambda (_g12071210_) + (let ((_g12821290_ + (lambda (_g12831286_) (gx#raise-syntax-error '#f '"Bad syntax" - _g12071210_)))) - (let ((_g12051300_ - (lambda (_g12071218_) - ((lambda (_L1221_) + _g12831286_)))) + (let ((_g12811376_ + (lambda (_g12831294_) + ((lambda (_L1297_) (let () - (let ((_g12341242_ - (lambda (_g12351238_) + (let ((_g13101318_ + (lambda (_g13111314_) (gx#raise-syntax-error '#f '"Bad syntax" - _g12351238_)))) - (let ((_g12331296_ - (lambda (_g12351246_) - ((lambda (_L1249_) + _g13111314_)))) + (let ((_g13091372_ + (lambda (_g13111322_) + ((lambda (_L1325_) (let () - (let ((_g12621270_ + (let ((_g13381346_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g12631266_) + (lambda (_g13391342_) (gx#raise-syntax-error '#f '"Bad syntax" - _g12631266_)))) - (let ((_g12611292_ - (lambda (_g12631274_) - ((lambda (_L1277_) + _g13391342_)))) + (let ((_g13371368_ + (lambda (_g13391350_) + ((lambda (_L1353_) (let () (let () (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'stx-pair?) - (cons _L1138_ '())) + (cons _L1214_ '())) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let) - (cons (cons (cons _L1165_ + (cons (cons (cons _L1241_ (cons (cons (gx#datum->syntax '#f 'syntax-e) - (cons _L1138_ '())) + (cons _L1214_ '())) '())) '()) (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L1193_ + (cons (cons (cons _L1269_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##car) - (cons _L1165_ '())) + (cons _L1241_ '())) '())) - (cons (cons _L1221_ + (cons (cons _L1297_ (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _L1165_ '())) + (cons _L1241_ '())) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L1249_ '()))) + (cons _L1325_ '()))) '()))) - (cons _L1277_ '()))))))) + (cons _L1353_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g12631274_)))) - (_g12611292_ _E803_))))) - _g12351246_)))) + _g13391350_)))) + (_g13371368_ _E879_))))) + _g13111322_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g12331296_ - (_recur805_ - _L1112_ - _L1193_ - (_recur805_ - _L1110_ - _L1221_ - _K811_))))))) - _g12071218_)))) - (_g12051300_ (gx#genident 'tl)))))) - _g11791190_)))) - (_g11771304_ (gx#genident 'hd)))))) + (_g13091372_ + (_recur881_ + _L1188_ + _L1269_ + (_recur881_ + _L1186_ + _L1297_ + _K887_))))))) + _g12831294_)))) + (_g12811376_ (gx#genident 'tl)))))) + _g12551266_)))) + (_g12531380_ (gx#genident 'hd)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g11511162_)))) - (_g11491308_ (gx#genident 'e)))))) - _g11241135_)))) - (_g11221312_ _tgt810_)))) - _tl8201107_ - _hd8191104_))) - (_g8131093_ _g8151097_))))) + _g12271238_)))) + (_g12251384_ (gx#genident 'e)))))) + _g12001211_)))) + (_g11981388_ _tgt886_)))) + _tl8961183_ + _hd8951180_))) + (_g8891169_ _g8911173_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8121316_ _hd808_))))))) - (_recur805_ - _hd800_ - _tgt405_ + (_g8881392_ _hd884_))))))) + (_recur881_ + _hd876_ + _tgt481_ (cons (gx#datum->syntax '#f 'if) - (cons _fender801_ - (cons _body802_ - (cons _E803_ '()))))))))) - (let ((_generate-clause410_ - (lambda (_hd1320_ _E1322_) - (let ((_g13261353_ - (lambda (_g13271349_) + (cons _fender877_ + (cons _body878_ + (cons _E879_ '()))))))))) + (let ((_generate-clause486_ + (lambda (_hd1396_ _E1398_) + (let ((_g14021429_ + (lambda (_g14031425_) (gx#raise-syntax-error '#f '"Bad syntax" - _g13271349_)))) - (let ((_g13251364_ - (lambda (_g13271357_) + _g14031425_)))) + (let ((_g14011440_ + (lambda (_g14031433_) ((lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _stx250_ - _hd1320_)))))) - (let ((_g13241422_ - (lambda (_g13271368_) - (if (gx#stx-pair? _g13271368_) - (let ((_e13391371_ - (gx#syntax-e _g13271368_))) - (let ((_hd13401375_ - (##car _e13391371_)) - (_tl13411378_ - (##cdr _e13391371_))) + _stx326_ + _hd1396_)))))) + (let ((_g14001498_ + (lambda (_g14031444_) + (if (gx#stx-pair? _g14031444_) + (let ((_e14151447_ + (gx#syntax-e _g14031444_))) + (let ((_hd14161451_ + (##car _e14151447_)) + (_tl14171454_ + (##cdr _e14151447_))) (if (gx#stx-pair? - _tl13411378_) - (let ((_e13421381_ + _tl14171454_) + (let ((_e14181457_ (gx#syntax-e - _tl13411378_))) - (let ((_hd13431385_ - (##car _e13421381_)) - (_tl13441388_ - (##cdr _e13421381_))) + _tl14171454_))) + (let ((_hd14191461_ + (##car _e14181457_)) + (_tl14201464_ + (##cdr _e14181457_))) (if (gx#stx-pair? - _tl13441388_) - (let ((_e13451391_ + _tl14201464_) + (let ((_e14211467_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl13441388_))) - (let ((_hd13461395_ (##car _e13451391_)) - (_tl13471398_ (##cdr _e13451391_))) - (if (gx#stx-null? _tl13471398_) - ((lambda (_L1401_ _L1403_ _L1404_) - (_generate1412_ - _hd1320_ - _L1404_ - _L1403_ - _L1401_ - _E1322_)) - _hd13461395_ - _hd13431385_ - _hd13401375_) - (_g13251364_ _g13271368_)))) - (_g13251364_ _g13271368_)))) + (gx#syntax-e _tl14201464_))) + (let ((_hd14221471_ (##car _e14211467_)) + (_tl14231474_ (##cdr _e14211467_))) + (if (gx#stx-null? _tl14231474_) + ((lambda (_L1477_ _L1479_ _L1480_) + (_generate1488_ + _hd1396_ + _L1480_ + _L1479_ + _L1477_ + _E1398_)) + _hd14221471_ + _hd14191461_ + _hd14161451_) + (_g14011440_ _g14031444_)))) + (_g14011440_ _g14031444_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g13251364_ - _g13271368_)))) - (_g13251364_ _g13271368_))))) - (let ((_g13231464_ - (lambda (_g13271426_) - (if (gx#stx-pair? _g13271426_) - (let ((_e13301429_ + (_g14011440_ + _g14031444_)))) + (_g14011440_ _g14031444_))))) + (let ((_g13991540_ + (lambda (_g14031502_) + (if (gx#stx-pair? _g14031502_) + (let ((_e14061505_ (gx#syntax-e - _g13271426_))) - (let ((_hd13311433_ - (##car _e13301429_)) - (_tl13321436_ - (##cdr _e13301429_))) + _g14031502_))) + (let ((_hd14071509_ + (##car _e14061505_)) + (_tl14081512_ + (##cdr _e14061505_))) (if (gx#stx-pair? - _tl13321436_) - (let ((_e13331439_ + _tl14081512_) + (let ((_e14091515_ (gx#syntax-e - _tl13321436_))) - (let ((_hd13341443_ - (##car _e13331439_)) - (_tl13351446_ - (##cdr _e13331439_))) + _tl14081512_))) + (let ((_hd14101519_ + (##car _e14091515_)) + (_tl14111522_ + (##cdr _e14091515_))) (if (gx#stx-null? - _tl13351446_) - ((lambda (_L1449_ + _tl14111522_) + ((lambda (_L1525_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L1451_) - (_generate1412_ - _hd1320_ - _L1451_ + _L1527_) + (_generate1488_ + _hd1396_ + _L1527_ '#t - _L1449_ - _E1322_)) - _hd13341443_ - _hd13311433_) - (_g13241422_ _g13271426_)))) - (_g13241422_ _g13271426_)))) + _L1525_ + _E1398_)) + _hd14101519_ + _hd14071509_) + (_g14001498_ _g14031502_)))) + (_g14001498_ _g14031502_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g13241422_ _g13271426_))))) - (_g13231464_ _hd1320_)))))))) - (let ((_generate-clauses413_ - (lambda (_clauses536_) - ((letrec ((_lp539_ (lambda (_rest542_ - _E544_ - _r545_) - (let ((_g548560_ - (lambda (_g549556_) + (_g14001498_ _g14031502_))))) + (_g13991540_ _hd1396_)))))))) + (let ((_generate-clauses489_ + (lambda (_clauses612_) + ((letrec ((_lp615_ (lambda (_rest618_ + _E620_ + _r621_) + (let ((_g624636_ + (lambda (_g625632_) (gx#raise-syntax-error '#f '"Bad syntax" - _g549556_)))) - (let ((_g547608_ - (lambda (_g549564_) + _g625632_)))) + (let ((_g623684_ + (lambda (_g625640_) ((lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((_g571579_ - (lambda (_g572575_) + (let ((_g647655_ + (lambda (_g648651_) (gx#raise-syntax-error '#f '"Bad syntax" - _g572575_)))) - (let ((_g570604_ - (lambda (_g572583_) - ((lambda (_L586_) + _g648651_)))) + (let ((_g646680_ + (lambda (_g648659_) + ((lambda (_L662_) (let () - (cons (cons _E544_ + (cons (cons _E620_ (cons (gx#stx-wrap-source (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -513,193 +513,193 @@ 'raise-syntax-error) (cons '#f (cons '"Bad syntax" - (cons _L586_ '())))) + (cons _L662_ '())))) '()))) - (gx#stx-source _stx250_)) + (gx#stx-source _stx326_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r545_))) - _g572583_)))) - (_g570604_ _tgt405_)))))))) - (let ((_g546794_ - (lambda (_g549612_) - (if (gx#stx-pair? _g549612_) - (let ((_e552615_ (gx#syntax-e _g549612_))) - (let ((_hd553619_ (##car _e552615_)) - (_tl554622_ (##cdr _e552615_))) - ((lambda (_L625_ _L627_) - (let ((_g639650_ - (lambda (_g640646_) + _r621_))) + _g648659_)))) + (_g646680_ _tgt481_)))))))) + (let ((_g622870_ + (lambda (_g625688_) + (if (gx#stx-pair? _g625688_) + (let ((_e628691_ (gx#syntax-e _g625688_))) + (let ((_hd629695_ (##car _e628691_)) + (_tl630698_ (##cdr _e628691_))) + ((lambda (_L701_ _L703_) + (let ((_g715726_ + (lambda (_g716722_) (gx#raise-syntax-error '#f '"Bad syntax" - _g640646_)))) - (let ((_g638762_ - (lambda (_g640654_) + _g716722_)))) + (let ((_g714838_ + (lambda (_g716730_) ((lambda () - (let ((_g661669_ - (lambda (_g662665_) + (let ((_g737745_ + (lambda (_g738741_) (gx#raise-syntax-error '#f '"Bad syntax" - _g662665_)))) - (let ((_g660758_ - (lambda (_g662673_) - ((lambda (_L676_) + _g738741_)))) + (let ((_g736834_ + (lambda (_g738749_) + ((lambda (_L752_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((_g692700_ - (lambda (_g693696_) + (let ((_g768776_ + (lambda (_g769772_) (gx#raise-syntax-error '#f '"Bad syntax" - _g693696_)))) - (let ((_g691754_ - (lambda (_g693704_) - ((lambda (_L707_) + _g769772_)))) + (let ((_g767830_ + (lambda (_g769780_) + ((lambda (_L783_) (let () - (let ((_g720728_ - (lambda (_g721724_) + (let ((_g796804_ + (lambda (_g797800_) (gx#raise-syntax-error '#f '"Bad syntax" - _g721724_)))) - (let ((_g719750_ - (lambda (_g721732_) - ((lambda (_L735_) + _g797800_)))) + (let ((_g795826_ + (lambda (_g797808_) + ((lambda (_L811_) (let () (let () - (_lp539_ _L625_ + (_lp615_ _L701_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L676_ - (cons (cons _E544_ (cons _L735_ '())) _r545_))))) + _L752_ + (cons (cons _E620_ (cons _L811_ '())) _r621_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g721732_)))) - (_g719750_ + _g797808_)))) + (_g795826_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _L707_ '()))) - (gx#stx-source _L627_))))))) - _g693704_)))) - (_g691754_ - (_generate-clause410_ - _L627_ - (cons _L676_ '()))))))) - _g662673_)))) + (cons _L783_ '()))) + (gx#stx-source _L703_))))))) + _g769780_)))) + (_g767830_ + (_generate-clause486_ + _L703_ + (cons _L752_ '()))))))) + _g738749_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g660758_ + (_g736834_ (gx#genident 'E))))))))) - (let ((_g637790_ - (lambda (_g640766_) - (if (gx#stx-pair? _g640766_) - (let ((_e642769_ + (let ((_g713866_ + (lambda (_g716842_) + (if (gx#stx-pair? _g716842_) + (let ((_e718845_ (gx#syntax-e - _g640766_))) - (let ((_hd643773_ - (##car _e642769_)) - (_tl644776_ - (##cdr _e642769_))) + _g716842_))) + (let ((_hd719849_ + (##car _e718845_)) + (_tl720852_ + (##cdr _e718845_))) (if (gx#identifier? - _hd643773_) + _hd719849_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g2602_| - _hd643773_) - ((lambda (_L779_) - (if (gx#stx-null? _L625_) - (if (if (gx#stx-list? _L779_) - (not (gx#stx-null? _L779_)) + |gx[1]#_g2678_| + _hd719849_) + ((lambda (_L855_) + (if (gx#stx-null? _L701_) + (if (if (gx#stx-list? _L855_) + (not (gx#stx-null? _L855_)) '#f) - (cons (cons _E544_ + (cons (cons _E620_ (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'begin) _L779_) + (cons (cons (gx#datum->syntax '#f 'begin) _L855_) '()))) - (gx#stx-source _L627_)) + (gx#stx-source _L703_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - _r545_) + _r621_) (gx#raise-syntax-error '#f '"Bad syntax" - _stx250_ - _L627_)) + _stx326_ + _L703_)) (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _stx250_ - _L627_))) - _tl644776_) - (_g638762_ _g640766_)) - (_g638762_ _g640766_)))) + _stx326_ + _L703_))) + _tl720852_) + (_g714838_ _g716842_)) + (_g714838_ _g716842_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g638762_ _g640766_))))) - (_g637790_ _L627_))))) - _tl554622_ - _hd553619_))) - (_g547608_ _g549612_))))) - (_g546794_ _rest542_))))))) + (_g714838_ _g716842_))))) + (_g713866_ _L703_))))) + _tl630698_ + _hd629695_))) + (_g623684_ _g625688_))))) + (_g622870_ _rest618_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _lp539_) - _clauses536_ + _lp615_) + _clauses612_ (gx#genident 'E) '())))) - (let ((_bind415_ (_generate-clauses413_ _clauses408_))) - (let ((_g418435_ - (lambda (_g419431_) + (let ((_bind491_ (_generate-clauses489_ _clauses484_))) + (let ((_g494511_ + (lambda (_g495507_) (gx#raise-syntax-error '#f '"Bad syntax" - _g419431_)))) - (let ((_g417532_ - (lambda (_g419439_) - (if (gx#stx-pair/null? _g419439_) - (if (fx>= (gx#stx-length _g419439_) '0) - (let ((_g2600_ (gx#syntax-split-splice - _g419439_ + _g495507_)))) + (let ((_g493608_ + (lambda (_g495515_) + (if (gx#stx-pair/null? _g495515_) + (if (fx>= (gx#stx-length _g495515_) '0) + (let ((_g2676_ (gx#syntax-split-splice + _g495515_ '0))) (begin - (let ((_g2601_ (values-count - _g2600_))) - (if (not (fx= _g2601_ 2)) + (let ((_g2677_ (values-count + _g2676_))) + (if (not (fx= _g2677_ 2)) (error "Context expects 2 values" - _g2601_))) - (let ((_target421442_ - (values-ref _g2600_ 0)) - (_tl423445_ - (values-ref _g2600_ 1))) - (if (gx#stx-null? _tl423445_) - (letrec ((_loop424448_ - (lambda (_hd422452_ + _g2677_))) + (let ((_target497518_ + (values-ref _g2676_ 0)) + (_tl499521_ + (values-ref _g2676_ 1))) + (if (gx#stx-null? _tl499521_) + (letrec ((_loop500524_ + (lambda (_hd498528_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind-try428455_) - (if (gx#stx-pair? _hd422452_) - (let ((_e425458_ (gx#syntax-e _hd422452_))) - (let ((_lp-hd426462_ (##car _e425458_)) - (_lp-tl427465_ (##cdr _e425458_))) - (_loop424448_ - _lp-tl427465_ - (cons _lp-hd426462_ _bind-try428455_)))) - (let ((_bind-try429468_ - (reverse _bind-try428455_))) - ((lambda (_L472_) + _bind-try504531_) + (if (gx#stx-pair? _hd498528_) + (let ((_e501534_ (gx#syntax-e _hd498528_))) + (let ((_lp-hd502538_ (##car _e501534_)) + (_lp-tl503541_ (##cdr _e501534_))) + (_loop500524_ + _lp-tl503541_ + (cons _lp-hd502538_ _bind-try504531_)))) + (let ((_bind-try505544_ + (reverse _bind-try504531_))) + ((lambda (_L548_) (let () - (let ((_g490498_ - (lambda (_g491494_) + (let ((_g566574_ + (lambda (_g567570_) (gx#raise-syntax-error '#f '"Bad syntax" - _g491494_)))) - (let ((_g489528_ - (lambda (_g491502_) - ((lambda (_L505_) + _g567570_)))) + (let ((_g565604_ + (lambda (_g567578_) + ((lambda (_L581_) (let () (let () (cons (gx#datum->syntax @@ -708,88 +708,88 @@ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!void - (foldr (lambda (_g519522_ _g520525_) - (cons _g519522_ _g520525_)) + (foldr (lambda (_g595598_ _g596601_) + (cons _g595598_ _g596601_)) '() - _L472_)) - (cons (cons _L505_ '()) '())))))) + _L548_)) + (cons (cons _L581_ '()) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g491502_)))) - (_g489528_ (car (last _bind415_))))))) - _bind-try429468_)))))) - (_loop424448_ _target421442_ '())) - (_g418435_ _g419439_))))) + _g567578_)))) + (_g565604_ (car (last _bind491_))))))) + _bind-try505544_)))))) + (_loop500524_ _target497518_ '())) + (_g494511_ _g495515_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g418435_ _g419439_)) - (_g418435_ _g419439_))))) - (_g417532_ _bind415_)))))))))) - (let ((_g256275_ - (lambda (_g257271_) - (gx#raise-syntax-error '#f '"Bad syntax" _g257271_)))) - (let ((_g255401_ - (lambda (_g257279_) - (if (gx#stx-pair? _g257279_) - (let ((_e261282_ (gx#syntax-e _g257279_))) - (let ((_hd262286_ (##car _e261282_)) - (_tl263289_ (##cdr _e261282_))) - (if (gx#stx-pair? _tl263289_) - (let ((_e264292_ (gx#syntax-e _tl263289_))) - (let ((_hd265296_ (##car _e264292_)) - (_tl266299_ (##cdr _e264292_))) - (if (gx#stx-pair? _tl266299_) - (let ((_e267302_ - (gx#syntax-e _tl266299_))) - (let ((_hd268306_ (##car _e267302_)) - (_tl269309_ - (##cdr _e267302_))) - ((lambda (_L312_ _L314_ _L315_) + (_g494511_ _g495515_)) + (_g494511_ _g495515_))))) + (_g493608_ _bind491_)))))))))) + (let ((_g332351_ + (lambda (_g333347_) + (gx#raise-syntax-error '#f '"Bad syntax" _g333347_)))) + (let ((_g331477_ + (lambda (_g333355_) + (if (gx#stx-pair? _g333355_) + (let ((_e337358_ (gx#syntax-e _g333355_))) + (let ((_hd338362_ (##car _e337358_)) + (_tl339365_ (##cdr _e337358_))) + (if (gx#stx-pair? _tl339365_) + (let ((_e340368_ (gx#syntax-e _tl339365_))) + (let ((_hd341372_ (##car _e340368_)) + (_tl342375_ (##cdr _e340368_))) + (if (gx#stx-pair? _tl342375_) + (let ((_e343378_ + (gx#syntax-e _tl342375_))) + (let ((_hd344382_ (##car _e343378_)) + (_tl345385_ + (##cdr _e343378_))) + ((lambda (_L388_ _L390_ _L391_) (if (if (gx#identifier-list? - _L314_) - (gx#stx-list? _L312_) + _L390_) + (gx#stx-list? _L388_) '#f) - (let ((_g336344_ - (lambda (_g337340_) + (let ((_g412420_ + (lambda (_g413416_) (gx#raise-syntax-error '#f '"Bad syntax" - _g337340_)))) - (let ((_g335397_ - (lambda (_g337348_) - ((lambda (_L351_) + _g413416_)))) + (let ((_g411473_ + (lambda (_g413424_) + ((lambda (_L427_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((_g363371_ - (lambda (_g364367_) + (let ((_g439447_ + (lambda (_g440443_) (gx#raise-syntax-error '#f '"Bad syntax" - _g364367_)))) - (let ((_g362393_ - (lambda (_g364375_) - ((lambda (_L378_) + _g440443_)))) + (let ((_g438469_ + (lambda (_g440451_) + ((lambda (_L454_) (let () (let () (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L351_ + (cons (cons (cons _L427_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L315_ '())) + (cons _L391_ '())) '()) - (cons _L378_ '())))))) + (cons _L454_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g364375_)))) - (_g362393_ - (_generate253_ - _L351_ - (gx#syntax->list _L314_) - _L312_)))))) - _g337348_)))) - (_g335397_ (gx#genident 'e)))) + _g440451_)))) + (_g438469_ + (_generate329_ + _L427_ + (gx#syntax->list _L390_) + _L388_)))))) + _g413424_)))) + (_g411473_ (gx#genident 'e)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g256275_ _g257279_))) - _tl269309_ - _hd268306_ - _hd265296_))) - (_g256275_ _g257279_)))) - (_g256275_ _g257279_)))) - (_g256275_ _g257279_))))) - (_g255401_ _stx250_)))))))) + (_g332351_ _g333355_))) + _tl345385_ + _hd344382_ + _hd341372_))) + (_g332351_ _g333355_)))) + (_g332351_ _g333355_)))) + (_g332351_ _g333355_))))) + (_g331477_ _stx326_)))))))) diff --git a/src/bootstrap/gerbil/expander/compile.ssi b/src/bootstrap/gerbil/expander/compile.ssi index 2b2a02f73..be0cb9f95 100644 --- a/src/bootstrap/gerbil/expander/compile.ssi +++ b/src/bootstrap/gerbil/expander/compile.ssi @@ -59,8 +59,8 @@ namespace: gx core-compile-top-case-lambda% gx#core-compile-top-case-lambda%) (%#begin (%#define-runtime - core-compile-top-let-values%__opt-lambda11455 - gx#core-compile-top-let-values%__opt-lambda11455) + core-compile-top-let-values%__opt-lambda11531 + gx#core-compile-top-let-values%__opt-lambda11531) (%#begin (%#define-runtime core-compile-top-let-values%__0 gx#core-compile-top-let-values%__0) diff --git a/src/bootstrap/gerbil/expander/compile.ssxi.ss b/src/bootstrap/gerbil/expander/compile.ssxi.ss index 5d5b88ae5..e0c73cdfa 100644 --- a/src/bootstrap/gerbil/expander/compile.ssxi.ss +++ b/src/bootstrap/gerbil/expander/compile.ssxi.ss @@ -11,4 +11,4 @@ package: gerbil/expander gx#core-compile-top-let-values% (@case-lambda (1 gx#core-compile-top-let-values%__0) - (2 gx#core-compile-top-let-values%__opt-lambda11455)))) + (2 gx#core-compile-top-let-values%__opt-lambda11531)))) diff --git a/src/bootstrap/gerbil/expander/compile__0.scm b/src/bootstrap/gerbil/expander/compile__0.scm index 7f2cab8e2..8afb9e63a 100644 --- a/src/bootstrap/gerbil/expander/compile__0.scm +++ b/src/bootstrap/gerbil/expander/compile__0.scm @@ -1,840 +1,840 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin (define gx#core-compile-top-syntax - (lambda (_stx12213_) - (let ((_e1221412221_ _stx12213_)) - (let ((_E1221612225_ + (lambda (_stx12289_) + (let ((_e1229012297_ _stx12289_)) + (let ((_E1229212301_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1221412221_)))) - (let ((_E1221512239_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1229012297_)))) + (let ((_E1229112315_ (lambda () - (if (gx#stx-pair? _e1221412221_) - (let ((_e1221712229_ (gx#syntax-e _e1221412221_))) - (let ((_hd1221812232_ (##car _e1221712229_)) - (_tl1221912234_ (##cdr _e1221712229_))) - (let ((_form12237_ _hd1221812232_)) + (if (gx#stx-pair? _e1229012297_) + (let ((_e1229312305_ (gx#syntax-e _e1229012297_))) + (let ((_hd1229412308_ (##car _e1229312305_)) + (_tl1229512310_ (##cdr _e1229312305_))) + (let ((_form12313_ _hd1229412308_)) (if '#t (call-method - (gx#syntax-local-e__0 _form12237_) + (gx#syntax-local-e__0 _form12313_) 'compile-top-syntax - _stx12213_) - (_E1221612225_))))) - (_E1221612225_))))) - (let () (_E1221512239_))))))) + _stx12289_) + (_E1229212301_))))) + (_E1229212301_))))) + (let () (_E1229112315_))))))) (define gx#core-expander::compile-top-syntax - (lambda (_self12173_ _stx12174_) - (let ((_self1217512183_ _self12173_)) - (let ((_E1217712187_ - (lambda () (error '"No clause matching" _self1217512183_)))) - (let ((_K1217812199_ - (lambda (_K12190_) - (let ((_$e12192_ (gx#stx-source _stx12174_))) - (if _$e12192_ - ((lambda (_g1219412196_) + (lambda (_self12249_ _stx12250_) + (let ((_self1225112259_ _self12249_)) + (let ((_E1225312263_ + (lambda () (error '"No clause matching" _self1225112259_)))) + (let ((_K1225412275_ + (lambda (_K12266_) + (let ((_$e12268_ (gx#stx-source _stx12250_))) + (if _$e12268_ + ((lambda (_g1227012272_) (gx#stx-wrap-source - (_K12190_ _stx12174_) - _g1219412196_)) - _$e12192_) - (_K12190_ _stx12174_)))))) - (if (struct-instance? gx#core-expander::t _self1217512183_) - (let ((_e1217912202_ (##vector-ref _self1217512183_ '1))) - (let ((_e1218012205_ (##vector-ref _self1217512183_ '2))) - (let ((_e1218112208_ (##vector-ref _self1217512183_ '3))) - (let ((_K12211_ _e1218112208_)) - (_K1217812199_ _K12211_))))) - (_E1217712187_))))))) + (_K12266_ _stx12250_) + _g1227012272_)) + _$e12268_) + (_K12266_ _stx12250_)))))) + (if (struct-instance? gx#core-expander::t _self1225112259_) + (let ((_e1225512278_ (##vector-ref _self1225112259_ '1))) + (let ((_e1225612281_ (##vector-ref _self1225112259_ '2))) + (let ((_e1225712284_ (##vector-ref _self1225112259_ '3))) + (let ((_K12287_ _e1225712284_)) + (_K1225412275_ _K12287_))))) + (_E1225312263_))))))) (bind-method! gx#core-expander::t 'compile-top-syntax gx#core-expander::compile-top-syntax '#f) (define gx#core-compile-top-error - (lambda (_stx12171_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _stx12171_))) + (lambda (_stx12247_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _stx12247_))) (define gx#core-compile-top-begin% - (lambda (_stx12141_) - (let ((_e1214212149_ _stx12141_)) - (let ((_E1214412153_ + (lambda (_stx12217_) + (let ((_e1221812225_ _stx12217_)) + (let ((_E1222012229_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1214212149_)))) - (let ((_E1214312167_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1221812225_)))) + (let ((_E1221912243_ (lambda () - (if (gx#stx-pair? _e1214212149_) - (let ((_e1214512157_ (gx#syntax-e _e1214212149_))) - (let ((_hd1214612160_ (##car _e1214512157_)) - (_tl1214712162_ (##cdr _e1214512157_))) - (let ((_body12165_ _tl1214712162_)) + (if (gx#stx-pair? _e1221812225_) + (let ((_e1222112233_ (gx#syntax-e _e1221812225_))) + (let ((_hd1222212236_ (##car _e1222112233_)) + (_tl1222312238_ (##cdr _e1222112233_))) + (let ((_body12241_ _tl1222312238_)) (if '#t (cons '%#begin (gx#stx-map1 gx#core-compile-top-syntax - _body12165_)) - (_E1214412153_))))) - (_E1214412153_))))) - (let () (_E1214312167_))))))) + _body12241_)) + (_E1222012229_))))) + (_E1222012229_))))) + (let () (_E1221912243_))))))) (define gx#core-compile-top-begin-syntax% - (lambda (_stx12110_) - (let ((_e1211112118_ _stx12110_)) - (let ((_E1211312122_ + (lambda (_stx12186_) + (let ((_e1218712194_ _stx12186_)) + (let ((_E1218912198_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1211112118_)))) - (let ((_E1211212137_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1218712194_)))) + (let ((_E1218812213_ (lambda () - (if (gx#stx-pair? _e1211112118_) - (let ((_e1211412126_ (gx#syntax-e _e1211112118_))) - (let ((_hd1211512129_ (##car _e1211412126_)) - (_tl1211612131_ (##cdr _e1211412126_))) - (let ((_body12134_ _tl1211612131_)) + (if (gx#stx-pair? _e1218712194_) + (let ((_e1219012202_ (gx#syntax-e _e1218712194_))) + (let ((_hd1219112205_ (##car _e1219012202_)) + (_tl1219212207_ (##cdr _e1219012202_))) + (let ((_body12210_ _tl1219212207_)) (if '#t (cons '%#begin-syntax (call-with-parameters (lambda () (gx#stx-map1 gx#core-compile-top-syntax - _body12134_)) + _body12210_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))) - (_E1211312122_))))) - (_E1211312122_))))) - (let () (_E1211212137_))))))) + (_E1218912198_))))) + (_E1218912198_))))) + (let () (_E1218812213_))))))) (define gx#core-compile-top-begin-foreign% - (lambda (_stx12080_) - (let ((_e1208112088_ _stx12080_)) - (let ((_E1208312092_ + (lambda (_stx12156_) + (let ((_e1215712164_ _stx12156_)) + (let ((_E1215912168_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1208112088_)))) - (let ((_E1208212106_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1215712164_)))) + (let ((_E1215812182_ (lambda () - (if (gx#stx-pair? _e1208112088_) - (let ((_e1208412096_ (gx#syntax-e _e1208112088_))) - (let ((_hd1208512099_ (##car _e1208412096_)) - (_tl1208612101_ (##cdr _e1208412096_))) - (let ((_body12104_ _tl1208612101_)) + (if (gx#stx-pair? _e1215712164_) + (let ((_e1216012172_ (gx#syntax-e _e1215712164_))) + (let ((_hd1216112175_ (##car _e1216012172_)) + (_tl1216212177_ (##cdr _e1216012172_))) + (let ((_body12180_ _tl1216212177_)) (if '#t - (cons '%#begin-foreign _body12104_) - (_E1208312092_))))) - (_E1208312092_))))) - (let () (_E1208212106_))))))) + (cons '%#begin-foreign _body12180_) + (_E1215912168_))))) + (_E1215912168_))))) + (let () (_E1215812182_))))))) (define gx#core-compile-top-import% - (lambda (_stx12050_) - (let ((_e1205112058_ _stx12050_)) - (let ((_E1205312062_ + (lambda (_stx12126_) + (let ((_e1212712134_ _stx12126_)) + (let ((_E1212912138_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1205112058_)))) - (let ((_E1205212076_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1212712134_)))) + (let ((_E1212812152_ (lambda () - (if (gx#stx-pair? _e1205112058_) - (let ((_e1205412066_ (gx#syntax-e _e1205112058_))) - (let ((_hd1205512069_ (##car _e1205412066_)) - (_tl1205612071_ (##cdr _e1205412066_))) - (let ((_body12074_ _tl1205612071_)) + (if (gx#stx-pair? _e1212712134_) + (let ((_e1213012142_ (gx#syntax-e _e1212712134_))) + (let ((_hd1213112145_ (##car _e1213012142_)) + (_tl1213212147_ (##cdr _e1213012142_))) + (let ((_body12150_ _tl1213212147_)) (if '#t - (cons '%#import (gx#syntax->list _body12074_)) - (_E1205312062_))))) - (_E1205312062_))))) - (let () (_E1205212076_))))))) + (cons '%#import (gx#syntax->list _body12150_)) + (_E1212912138_))))) + (_E1212912138_))))) + (let () (_E1212812152_))))))) (define gx#core-compile-top-module% - (lambda (_stx12007_) - (let ((_e1200812018_ _stx12007_)) - (let ((_E1201012022_ + (lambda (_stx12083_) + (let ((_e1208412094_ _stx12083_)) + (let ((_E1208612098_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1200812018_)))) - (let ((_E1200912046_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1208412094_)))) + (let ((_E1208512122_ (lambda () - (if (gx#stx-pair? _e1200812018_) - (let ((_e1201112026_ (gx#syntax-e _e1200812018_))) - (let ((_hd1201212029_ (##car _e1201112026_)) - (_tl1201312031_ (##cdr _e1201112026_))) - (if (gx#stx-pair? _tl1201312031_) - (let ((_e1201412034_ - (gx#syntax-e _tl1201312031_))) - (let ((_hd1201512037_ (##car _e1201412034_)) - (_tl1201612039_ (##cdr _e1201412034_))) - (let ((_hd12042_ _hd1201512037_)) - (let ((_body12044_ _tl1201612039_)) + (if (gx#stx-pair? _e1208412094_) + (let ((_e1208712102_ (gx#syntax-e _e1208412094_))) + (let ((_hd1208812105_ (##car _e1208712102_)) + (_tl1208912107_ (##cdr _e1208712102_))) + (if (gx#stx-pair? _tl1208912107_) + (let ((_e1209012110_ + (gx#syntax-e _tl1208912107_))) + (let ((_hd1209112113_ (##car _e1209012110_)) + (_tl1209212115_ (##cdr _e1209012110_))) + (let ((_hd12118_ _hd1209112113_)) + (let ((_body12120_ _tl1209212115_)) (if '#t (cons* '%#module (##structure-ref (gx#syntax-local-e__0 - _hd12042_) + _hd12118_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _body12044_)) - (_E1201012022_)))))) - (_E1201012022_)))) - (_E1201012022_))))) - (let () (_E1200912046_))))))) + _body12120_)) + (_E1208612098_)))))) + (_E1208612098_)))) + (_E1208612098_))))) + (let () (_E1208512122_))))))) (define gx#core-compile-top-export% - (lambda (_stx11977_) - (let ((_e1197811985_ _stx11977_)) - (let ((_E1198011989_ + (lambda (_stx12053_) + (let ((_e1205412061_ _stx12053_)) + (let ((_E1205612065_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1197811985_)))) - (let ((_E1197912003_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1205412061_)))) + (let ((_E1205512079_ (lambda () - (if (gx#stx-pair? _e1197811985_) - (let ((_e1198111993_ (gx#syntax-e _e1197811985_))) - (let ((_hd1198211996_ (##car _e1198111993_)) - (_tl1198311998_ (##cdr _e1198111993_))) - (let ((_body12001_ _tl1198311998_)) + (if (gx#stx-pair? _e1205412061_) + (let ((_e1205712069_ (gx#syntax-e _e1205412061_))) + (let ((_hd1205812072_ (##car _e1205712069_)) + (_tl1205912074_ (##cdr _e1205712069_))) + (let ((_body12077_ _tl1205912074_)) (if '#t - (cons '%#export (gx#syntax->list _body12001_)) - (_E1198011989_))))) - (_E1198011989_))))) - (let () (_E1197912003_))))))) + (cons '%#export (gx#syntax->list _body12077_)) + (_E1205612065_))))) + (_E1205612065_))))) + (let () (_E1205512079_))))))) (define gx#core-compile-top-provide% - (lambda (_stx11947_) - (let ((_e1194811955_ _stx11947_)) - (let ((_E1195011959_ + (lambda (_stx12023_) + (let ((_e1202412031_ _stx12023_)) + (let ((_E1202612035_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1194811955_)))) - (let ((_E1194911973_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1202412031_)))) + (let ((_E1202512049_ (lambda () - (if (gx#stx-pair? _e1194811955_) - (let ((_e1195111963_ (gx#syntax-e _e1194811955_))) - (let ((_hd1195211966_ (##car _e1195111963_)) - (_tl1195311968_ (##cdr _e1195111963_))) - (let ((_body11971_ _tl1195311968_)) + (if (gx#stx-pair? _e1202412031_) + (let ((_e1202712039_ (gx#syntax-e _e1202412031_))) + (let ((_hd1202812042_ (##car _e1202712039_)) + (_tl1202912044_ (##cdr _e1202712039_))) + (let ((_body12047_ _tl1202912044_)) (if '#t (cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _body11971_)) - (_E1195011959_))))) - (_E1195011959_))))) - (let () (_E1194911973_))))))) + _body12047_)) + (_E1202612035_))))) + (_E1202612035_))))) + (let () (_E1202512049_))))))) (define gx#core-compile-top-extern% - (lambda (_stx11872_) - (let ((_generate11874_ - (lambda (_hd11904_) - (let ((_e1190511915_ _hd11904_)) - (let ((_E1190711919_ + (lambda (_stx11948_) + (let ((_generate11950_ + (lambda (_hd11980_) + (let ((_e1198111991_ _hd11980_)) + (let ((_E1198311995_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e1190511915_)))) - (let ((_E1190611943_ + _e1198111991_)))) + (let ((_E1198212019_ (lambda () - (if (gx#stx-pair? _e1190511915_) - (let ((_e1190811923_ - (gx#syntax-e _e1190511915_))) - (let ((_hd1190911926_ (##car _e1190811923_)) - (_tl1191011928_ (##cdr _e1190811923_))) - (let ((_id11931_ _hd1190911926_)) - (if (gx#stx-pair? _tl1191011928_) - (let ((_e1191111933_ - (gx#syntax-e _tl1191011928_))) - (let ((_hd1191211936_ - (##car _e1191111933_)) - (_tl1191311938_ - (##cdr _e1191111933_))) - (let ((_eid11941_ - _hd1191211936_)) + (if (gx#stx-pair? _e1198111991_) + (let ((_e1198411999_ + (gx#syntax-e _e1198111991_))) + (let ((_hd1198512002_ (##car _e1198411999_)) + (_tl1198612004_ (##cdr _e1198411999_))) + (let ((_id12007_ _hd1198512002_)) + (if (gx#stx-pair? _tl1198612004_) + (let ((_e1198712009_ + (gx#syntax-e _tl1198612004_))) + (let ((_hd1198812012_ + (##car _e1198712009_)) + (_tl1198912014_ + (##cdr _e1198712009_))) + (let ((_eid12017_ + _hd1198812012_)) (if (gx#stx-null? - _tl1191311938_) + _tl1198912014_) (if '#t (cons (gx#core-quote-syntax__0 - _id11931_) + _id12007_) (cons (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _eid11941_) + _eid12017_) '())) - (_E1190711919_)) + (_E1198311995_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1190711919_))))) - (_E1190711919_))))) - (_E1190711919_))))) - (let () (_E1190611943_)))))))) - (let ((_e1187511882_ _stx11872_)) - (let ((_E1187711886_ + (_E1198311995_))))) + (_E1198311995_))))) + (_E1198311995_))))) + (let () (_E1198212019_)))))))) + (let ((_e1195111958_ _stx11948_)) + (let ((_E1195311962_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1187511882_)))) - (let ((_E1187611900_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1195111958_)))) + (let ((_E1195211976_ (lambda () - (if (gx#stx-pair? _e1187511882_) - (let ((_e1187811890_ (gx#syntax-e _e1187511882_))) - (let ((_hd1187911893_ (##car _e1187811890_)) - (_tl1188011895_ (##cdr _e1187811890_))) - (let ((_body11898_ _tl1188011895_)) + (if (gx#stx-pair? _e1195111958_) + (let ((_e1195411966_ (gx#syntax-e _e1195111958_))) + (let ((_hd1195511969_ (##car _e1195411966_)) + (_tl1195611971_ (##cdr _e1195411966_))) + (let ((_body11974_ _tl1195611971_)) (if '#t (cons '%#extern (gx#stx-map1 - _generate11874_ - _body11898_)) - (_E1187711886_))))) - (_E1187711886_))))) - (let () (_E1187611900_)))))))) + _generate11950_ + _body11974_)) + (_E1195311962_))))) + (_E1195311962_))))) + (let () (_E1195211976_)))))))) (define gx#core-compile-top-define-values% - (lambda (_stx11818_) - (let ((_e1181911832_ _stx11818_)) - (let ((_E1182111836_ + (lambda (_stx11894_) + (let ((_e1189511908_ _stx11894_)) + (let ((_E1189711912_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1181911832_)))) - (let ((_E1182011868_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1189511908_)))) + (let ((_E1189611944_ (lambda () - (if (gx#stx-pair? _e1181911832_) - (let ((_e1182211840_ (gx#syntax-e _e1181911832_))) - (let ((_hd1182311843_ (##car _e1182211840_)) - (_tl1182411845_ (##cdr _e1182211840_))) - (if (gx#stx-pair? _tl1182411845_) - (let ((_e1182511848_ - (gx#syntax-e _tl1182411845_))) - (let ((_hd1182611851_ (##car _e1182511848_)) - (_tl1182711853_ (##cdr _e1182511848_))) - (let ((_hd11856_ _hd1182611851_)) - (if (gx#stx-pair? _tl1182711853_) - (let ((_e1182811858_ - (gx#syntax-e _tl1182711853_))) - (let ((_hd1182911861_ - (##car _e1182811858_)) - (_tl1183011863_ - (##cdr _e1182811858_))) - (let ((_expr11866_ - _hd1182911861_)) + (if (gx#stx-pair? _e1189511908_) + (let ((_e1189811916_ (gx#syntax-e _e1189511908_))) + (let ((_hd1189911919_ (##car _e1189811916_)) + (_tl1190011921_ (##cdr _e1189811916_))) + (if (gx#stx-pair? _tl1190011921_) + (let ((_e1190111924_ + (gx#syntax-e _tl1190011921_))) + (let ((_hd1190211927_ (##car _e1190111924_)) + (_tl1190311929_ (##cdr _e1190111924_))) + (let ((_hd11932_ _hd1190211927_)) + (if (gx#stx-pair? _tl1190311929_) + (let ((_e1190411934_ + (gx#syntax-e _tl1190311929_))) + (let ((_hd1190511937_ + (##car _e1190411934_)) + (_tl1190611939_ + (##cdr _e1190411934_))) + (let ((_expr11942_ + _hd1190511937_)) (if (gx#stx-null? - _tl1183011863_) + _tl1190611939_) (if '#t (cons '%#define-values (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-runtime-bind - _hd11856_) - (cons (gx#core-compile-top-syntax _expr11866_) + _hd11932_) + (cons (gx#core-compile-top-syntax _expr11942_) '()))) - (_E1182111836_)) + (_E1189711912_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1182111836_))))) - (_E1182111836_))))) - (_E1182111836_)))) - (_E1182111836_))))) - (let () (_E1182011868_))))))) + (_E1189711912_))))) + (_E1189711912_))))) + (_E1189711912_)))) + (_E1189711912_))))) + (let () (_E1189611944_))))))) (define gx#core-compile-top-define-syntax% - (lambda (_stx11763_) - (let ((_e1176411777_ _stx11763_)) - (let ((_E1176611781_ + (lambda (_stx11839_) + (let ((_e1184011853_ _stx11839_)) + (let ((_E1184211857_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1176411777_)))) - (let ((_E1176511814_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1184011853_)))) + (let ((_E1184111890_ (lambda () - (if (gx#stx-pair? _e1176411777_) - (let ((_e1176711785_ (gx#syntax-e _e1176411777_))) - (let ((_hd1176811788_ (##car _e1176711785_)) - (_tl1176911790_ (##cdr _e1176711785_))) - (if (gx#stx-pair? _tl1176911790_) - (let ((_e1177011793_ - (gx#syntax-e _tl1176911790_))) - (let ((_hd1177111796_ (##car _e1177011793_)) - (_tl1177211798_ (##cdr _e1177011793_))) - (let ((_hd11801_ _hd1177111796_)) - (if (gx#stx-pair? _tl1177211798_) - (let ((_e1177311803_ - (gx#syntax-e _tl1177211798_))) - (let ((_hd1177411806_ - (##car _e1177311803_)) - (_tl1177511808_ - (##cdr _e1177311803_))) - (let ((_expr11811_ - _hd1177411806_)) + (if (gx#stx-pair? _e1184011853_) + (let ((_e1184311861_ (gx#syntax-e _e1184011853_))) + (let ((_hd1184411864_ (##car _e1184311861_)) + (_tl1184511866_ (##cdr _e1184311861_))) + (if (gx#stx-pair? _tl1184511866_) + (let ((_e1184611869_ + (gx#syntax-e _tl1184511866_))) + (let ((_hd1184711872_ (##car _e1184611869_)) + (_tl1184811874_ (##cdr _e1184611869_))) + (let ((_hd11877_ _hd1184711872_)) + (if (gx#stx-pair? _tl1184811874_) + (let ((_e1184911879_ + (gx#syntax-e _tl1184811874_))) + (let ((_hd1185011882_ + (##car _e1184911879_)) + (_tl1185111884_ + (##cdr _e1184911879_))) + (let ((_expr11887_ + _hd1185011882_)) (if (gx#stx-null? - _tl1177511808_) + _tl1185111884_) (if '#t (cons '%#define-syntax (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd11801_) + _hd11877_) (cons (call-with-parameters (lambda () - (gx#core-compile-top-syntax _expr11811_)) + (gx#core-compile-top-syntax _expr11887_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)) '()))) - (_E1176611781_)) + (_E1184211857_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1176611781_))))) - (_E1176611781_))))) - (_E1176611781_)))) - (_E1176611781_))))) - (let () (_E1176511814_))))))) + (_E1184211857_))))) + (_E1184211857_))))) + (_E1184211857_)))) + (_E1184211857_))))) + (let () (_E1184111890_))))))) (define gx#core-compile-top-define-alias% - (lambda (_stx11709_) - (let ((_e1171011723_ _stx11709_)) - (let ((_E1171211727_ + (lambda (_stx11785_) + (let ((_e1178611799_ _stx11785_)) + (let ((_E1178811803_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1171011723_)))) - (let ((_E1171111759_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1178611799_)))) + (let ((_E1178711835_ (lambda () - (if (gx#stx-pair? _e1171011723_) - (let ((_e1171311731_ (gx#syntax-e _e1171011723_))) - (let ((_hd1171411734_ (##car _e1171311731_)) - (_tl1171511736_ (##cdr _e1171311731_))) - (if (gx#stx-pair? _tl1171511736_) - (let ((_e1171611739_ - (gx#syntax-e _tl1171511736_))) - (let ((_hd1171711742_ (##car _e1171611739_)) - (_tl1171811744_ (##cdr _e1171611739_))) - (let ((_hd11747_ _hd1171711742_)) - (if (gx#stx-pair? _tl1171811744_) - (let ((_e1171911749_ - (gx#syntax-e _tl1171811744_))) - (let ((_hd1172011752_ - (##car _e1171911749_)) - (_tl1172111754_ - (##cdr _e1171911749_))) - (let ((_alias-id11757_ - _hd1172011752_)) + (if (gx#stx-pair? _e1178611799_) + (let ((_e1178911807_ (gx#syntax-e _e1178611799_))) + (let ((_hd1179011810_ (##car _e1178911807_)) + (_tl1179111812_ (##cdr _e1178911807_))) + (if (gx#stx-pair? _tl1179111812_) + (let ((_e1179211815_ + (gx#syntax-e _tl1179111812_))) + (let ((_hd1179311818_ (##car _e1179211815_)) + (_tl1179411820_ (##cdr _e1179211815_))) + (let ((_hd11823_ _hd1179311818_)) + (if (gx#stx-pair? _tl1179411820_) + (let ((_e1179511825_ + (gx#syntax-e _tl1179411820_))) + (let ((_hd1179611828_ + (##car _e1179511825_)) + (_tl1179711830_ + (##cdr _e1179511825_))) + (let ((_alias-id11833_ + _hd1179611828_)) (if (gx#stx-null? - _tl1172111754_) + _tl1179711830_) (if '#t (cons '%#define-alias (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd11747_) - (cons (gx#core-quote-syntax__0 _alias-id11757_) + _hd11823_) + (cons (gx#core-quote-syntax__0 _alias-id11833_) '()))) - (_E1171211727_)) + (_E1178811803_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1171211727_))))) - (_E1171211727_))))) - (_E1171211727_)))) - (_E1171211727_))))) - (let () (_E1171111759_))))))) + (_E1178811803_))))) + (_E1178811803_))))) + (_E1178811803_)))) + (_E1178811803_))))) + (let () (_E1178711835_))))))) (define gx#core-compile-top-define-runtime% - (lambda (_stx11655_) - (let ((_e1165611669_ _stx11655_)) - (let ((_E1165811673_ + (lambda (_stx11731_) + (let ((_e1173211745_ _stx11731_)) + (let ((_E1173411749_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1165611669_)))) - (let ((_E1165711705_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1173211745_)))) + (let ((_E1173311781_ (lambda () - (if (gx#stx-pair? _e1165611669_) - (let ((_e1165911677_ (gx#syntax-e _e1165611669_))) - (let ((_hd1166011680_ (##car _e1165911677_)) - (_tl1166111682_ (##cdr _e1165911677_))) - (if (gx#stx-pair? _tl1166111682_) - (let ((_e1166211685_ - (gx#syntax-e _tl1166111682_))) - (let ((_hd1166311688_ (##car _e1166211685_)) - (_tl1166411690_ (##cdr _e1166211685_))) - (let ((_id11693_ _hd1166311688_)) - (if (gx#stx-pair? _tl1166411690_) - (let ((_e1166511695_ - (gx#syntax-e _tl1166411690_))) - (let ((_hd1166611698_ - (##car _e1166511695_)) - (_tl1166711700_ - (##cdr _e1166511695_))) - (let ((_binding-id11703_ - _hd1166611698_)) + (if (gx#stx-pair? _e1173211745_) + (let ((_e1173511753_ (gx#syntax-e _e1173211745_))) + (let ((_hd1173611756_ (##car _e1173511753_)) + (_tl1173711758_ (##cdr _e1173511753_))) + (if (gx#stx-pair? _tl1173711758_) + (let ((_e1173811761_ + (gx#syntax-e _tl1173711758_))) + (let ((_hd1173911764_ (##car _e1173811761_)) + (_tl1174011766_ (##cdr _e1173811761_))) + (let ((_id11769_ _hd1173911764_)) + (if (gx#stx-pair? _tl1174011766_) + (let ((_e1174111771_ + (gx#syntax-e _tl1174011766_))) + (let ((_hd1174211774_ + (##car _e1174111771_)) + (_tl1174311776_ + (##cdr _e1174111771_))) + (let ((_binding-id11779_ + _hd1174211774_)) (if (gx#stx-null? - _tl1166711700_) + _tl1174311776_) (if '#t (cons '%#define-runtime (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id11693_) - (cons (gx#core-quote-syntax__0 _binding-id11703_) + _id11769_) + (cons (gx#core-quote-syntax__0 _binding-id11779_) '()))) - (_E1165811673_)) + (_E1173411749_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1165811673_))))) - (_E1165811673_))))) - (_E1165811673_)))) - (_E1165811673_))))) - (let () (_E1165711705_))))))) + (_E1173411749_))))) + (_E1173411749_))))) + (_E1173411749_)))) + (_E1173411749_))))) + (let () (_E1173311781_))))))) (define gx#core-compile-top-declare% - (lambda (_stx11625_) - (let ((_e1162611633_ _stx11625_)) - (let ((_E1162811637_ + (lambda (_stx11701_) + (let ((_e1170211709_ _stx11701_)) + (let ((_E1170411713_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1162611633_)))) - (let ((_E1162711651_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1170211709_)))) + (let ((_E1170311727_ (lambda () - (if (gx#stx-pair? _e1162611633_) - (let ((_e1162911641_ (gx#syntax-e _e1162611633_))) - (let ((_hd1163011644_ (##car _e1162911641_)) - (_tl1163111646_ (##cdr _e1162911641_))) - (let ((_decls11649_ _tl1163111646_)) + (if (gx#stx-pair? _e1170211709_) + (let ((_e1170511717_ (gx#syntax-e _e1170211709_))) + (let ((_hd1170611720_ (##car _e1170511717_)) + (_tl1170711722_ (##cdr _e1170511717_))) + (let ((_decls11725_ _tl1170711722_)) (if '#t - (cons '%#declare _decls11649_) - (_E1162811637_))))) - (_E1162811637_))))) - (let () (_E1162711651_))))))) + (cons '%#declare _decls11725_) + (_E1170411713_))))) + (_E1170411713_))))) + (let () (_E1170311727_))))))) (define gx#core-compile-top-lambda% - (lambda (_stx11595_) - (let ((_e1159611603_ _stx11595_)) - (let ((_E1159811607_ + (lambda (_stx11671_) + (let ((_e1167211679_ _stx11671_)) + (let ((_E1167411683_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1159611603_)))) - (let ((_E1159711621_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1167211679_)))) + (let ((_E1167311697_ (lambda () - (if (gx#stx-pair? _e1159611603_) - (let ((_e1159911611_ (gx#syntax-e _e1159611603_))) - (let ((_hd1160011614_ (##car _e1159911611_)) - (_tl1160111616_ (##cdr _e1159911611_))) - (let ((_clause11619_ _tl1160111616_)) + (if (gx#stx-pair? _e1167211679_) + (let ((_e1167511687_ (gx#syntax-e _e1167211679_))) + (let ((_hd1167611690_ (##car _e1167511687_)) + (_tl1167711692_ (##cdr _e1167511687_))) + (let ((_clause11695_ _tl1167711692_)) (if '#t (cons '%#lambda (gx#core-compile-top-lambda-clause - _clause11619_)) - (_E1159811607_))))) - (_E1159811607_))))) - (let () (_E1159711621_))))))) + _clause11695_)) + (_E1167411683_))))) + (_E1167411683_))))) + (let () (_E1167311697_))))))) (define gx#core-compile-top-lambda-clause - (lambda (_stx11552_) - (let ((_e1155311563_ _stx11552_)) - (let ((_E1155511567_ + (lambda (_stx11628_) + (let ((_e1162911639_ _stx11628_)) + (let ((_E1163111643_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1155311563_)))) - (let ((_E1155411591_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1162911639_)))) + (let ((_E1163011667_ (lambda () - (if (gx#stx-pair? _e1155311563_) - (let ((_e1155611571_ (gx#syntax-e _e1155311563_))) - (let ((_hd1155711574_ (##car _e1155611571_)) - (_tl1155811576_ (##cdr _e1155611571_))) - (let ((_hd11579_ _hd1155711574_)) - (if (gx#stx-pair? _tl1155811576_) - (let ((_e1155911581_ - (gx#syntax-e _tl1155811576_))) - (let ((_hd1156011584_ (##car _e1155911581_)) - (_tl1156111586_ - (##cdr _e1155911581_))) - (let ((_body11589_ _hd1156011584_)) - (if (gx#stx-null? _tl1156111586_) + (if (gx#stx-pair? _e1162911639_) + (let ((_e1163211647_ (gx#syntax-e _e1162911639_))) + (let ((_hd1163311650_ (##car _e1163211647_)) + (_tl1163411652_ (##cdr _e1163211647_))) + (let ((_hd11655_ _hd1163311650_)) + (if (gx#stx-pair? _tl1163411652_) + (let ((_e1163511657_ + (gx#syntax-e _tl1163411652_))) + (let ((_hd1163611660_ (##car _e1163511657_)) + (_tl1163711662_ + (##cdr _e1163511657_))) + (let ((_body11665_ _hd1163611660_)) + (if (gx#stx-null? _tl1163711662_) (if '#t (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _hd11579_) + _hd11655_) (cons (gx#core-compile-top-syntax - _body11589_) + _body11665_) '())) - (_E1155511567_)) - (_E1155511567_))))) - (_E1155511567_))))) - (_E1155511567_))))) - (let () (_E1155411591_))))))) + (_E1163111643_)) + (_E1163111643_))))) + (_E1163111643_))))) + (_E1163111643_))))) + (let () (_E1163011667_))))))) (define gx#core-compile-top-case-lambda% - (lambda (_stx11522_) - (let ((_e1152311530_ _stx11522_)) - (let ((_E1152511534_ + (lambda (_stx11598_) + (let ((_e1159911606_ _stx11598_)) + (let ((_E1160111610_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1152311530_)))) - (let ((_E1152411548_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1159911606_)))) + (let ((_E1160011624_ (lambda () - (if (gx#stx-pair? _e1152311530_) - (let ((_e1152611538_ (gx#syntax-e _e1152311530_))) - (let ((_hd1152711541_ (##car _e1152611538_)) - (_tl1152811543_ (##cdr _e1152611538_))) - (let ((_clauses11546_ _tl1152811543_)) + (if (gx#stx-pair? _e1159911606_) + (let ((_e1160211614_ (gx#syntax-e _e1159911606_))) + (let ((_hd1160311617_ (##car _e1160211614_)) + (_tl1160411619_ (##cdr _e1160211614_))) + (let ((_clauses11622_ _tl1160411619_)) (if '#t (cons '%#case-lambda (gx#stx-map1 gx#core-compile-top-lambda-clause - _clauses11546_)) - (_E1152511534_))))) - (_E1152511534_))))) - (let () (_E1152411548_))))))) + _clauses11622_)) + (_E1160111610_))))) + (_E1160111610_))))) + (let () (_E1160011624_))))))) (begin - (define gx#core-compile-top-let-values%__opt-lambda11455 - (lambda (_stx11457_ _form11458_) - (let ((_e1145911472_ _stx11457_)) - (let ((_E1146111476_ + (define gx#core-compile-top-let-values%__opt-lambda11531 + (lambda (_stx11533_ _form11534_) + (let ((_e1153511548_ _stx11533_)) + (let ((_E1153711552_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1145911472_)))) - (let ((_E1146011508_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1153511548_)))) + (let ((_E1153611584_ (lambda () - (if (gx#stx-pair? _e1145911472_) - (let ((_e1146211480_ (gx#syntax-e _e1145911472_))) - (let ((_hd1146311483_ (##car _e1146211480_)) - (_tl1146411485_ (##cdr _e1146211480_))) - (if (gx#stx-pair? _tl1146411485_) - (let ((_e1146511488_ - (gx#syntax-e _tl1146411485_))) - (let ((_hd1146611491_ (##car _e1146511488_)) - (_tl1146711493_ - (##cdr _e1146511488_))) - (let ((_hd11496_ _hd1146611491_)) - (if (gx#stx-pair? _tl1146711493_) - (let ((_e1146811498_ + (if (gx#stx-pair? _e1153511548_) + (let ((_e1153811556_ (gx#syntax-e _e1153511548_))) + (let ((_hd1153911559_ (##car _e1153811556_)) + (_tl1154011561_ (##cdr _e1153811556_))) + (if (gx#stx-pair? _tl1154011561_) + (let ((_e1154111564_ + (gx#syntax-e _tl1154011561_))) + (let ((_hd1154211567_ (##car _e1154111564_)) + (_tl1154311569_ + (##cdr _e1154111564_))) + (let ((_hd11572_ _hd1154211567_)) + (if (gx#stx-pair? _tl1154311569_) + (let ((_e1154411574_ (gx#syntax-e - _tl1146711493_))) - (let ((_hd1146911501_ - (##car _e1146811498_)) - (_tl1147011503_ - (##cdr _e1146811498_))) - (let ((_body11506_ - _hd1146911501_)) + _tl1154311569_))) + (let ((_hd1154511577_ + (##car _e1154411574_)) + (_tl1154611579_ + (##cdr _e1154411574_))) + (let ((_body11582_ + _hd1154511577_)) (if (gx#stx-null? - _tl1147011503_) + _tl1154611579_) (if '#t - (cons _form11458_ + (cons _form11534_ (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-lambda-clause - _hd11496_) - (cons (gx#core-compile-top-syntax _body11506_) + _hd11572_) + (cons (gx#core-compile-top-syntax _body11582_) '()))) - (_E1146111476_)) + (_E1153711552_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1146111476_))))) - (_E1146111476_))))) - (_E1146111476_)))) - (_E1146111476_))))) - (let () (_E1146011508_))))))) + (_E1153711552_))))) + (_E1153711552_))))) + (_E1153711552_)))) + (_E1153711552_))))) + (let () (_E1153611584_))))))) (begin (define gx#core-compile-top-let-values%__0 - (lambda (_stx11515_) - (let ((_form11517_ '%#let-values)) - (gx#core-compile-top-let-values%__opt-lambda11455 - _stx11515_ - _form11517_)))) + (lambda (_stx11591_) + (let ((_form11593_ '%#let-values)) + (gx#core-compile-top-let-values%__opt-lambda11531 + _stx11591_ + _form11593_)))) (define gx#core-compile-top-let-values% - (lambda _g12243_ - (let ((_g12242_ (length _g12243_))) - (cond ((fx= _g12242_ 1) - (apply gx#core-compile-top-let-values%__0 _g12243_)) - ((fx= _g12242_ 2) - (apply gx#core-compile-top-let-values%__opt-lambda11455 - _g12243_)) - (else (error "No clause matching arguments" _g12243_)))))))) + (lambda _g12319_ + (let ((_g12318_ (length _g12319_))) + (cond ((fx= _g12318_ 1) + (apply gx#core-compile-top-let-values%__0 _g12319_)) + ((fx= _g12318_ 2) + (apply gx#core-compile-top-let-values%__opt-lambda11531 + _g12319_)) + (else (error "No clause matching arguments" _g12319_)))))))) (define gx#core-compile-top-letrec-values% - (lambda (_stx11454_) - (gx#core-compile-top-let-values%__opt-lambda11455 - _stx11454_ + (lambda (_stx11530_) + (gx#core-compile-top-let-values%__opt-lambda11531 + _stx11530_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_stx11452_) - (gx#core-compile-top-let-values%__opt-lambda11455 - _stx11452_ + (lambda (_stx11528_) + (gx#core-compile-top-let-values%__opt-lambda11531 + _stx11528_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_stx11411_) - (let ((_e1141211422_ _stx11411_)) - (let ((_E1141411426_ + (lambda (_stx11487_) + (let ((_e1148811498_ _stx11487_)) + (let ((_E1149011502_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1141211422_)))) - (let ((_E1141311448_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1148811498_)))) + (let ((_E1148911524_ (lambda () - (if (gx#stx-pair? _e1141211422_) - (let ((_e1141511430_ (gx#syntax-e _e1141211422_))) - (let ((_hd1141611433_ (##car _e1141511430_)) - (_tl1141711435_ (##cdr _e1141511430_))) - (if (gx#stx-pair? _tl1141711435_) - (let ((_e1141811438_ - (gx#syntax-e _tl1141711435_))) - (let ((_hd1141911441_ (##car _e1141811438_)) - (_tl1142011443_ (##cdr _e1141811438_))) - (let ((_e11446_ _hd1141911441_)) - (if (gx#stx-null? _tl1142011443_) + (if (gx#stx-pair? _e1148811498_) + (let ((_e1149111506_ (gx#syntax-e _e1148811498_))) + (let ((_hd1149211509_ (##car _e1149111506_)) + (_tl1149311511_ (##cdr _e1149111506_))) + (if (gx#stx-pair? _tl1149311511_) + (let ((_e1149411514_ + (gx#syntax-e _tl1149311511_))) + (let ((_hd1149511517_ (##car _e1149411514_)) + (_tl1149611519_ (##cdr _e1149411514_))) + (let ((_e11522_ _hd1149511517_)) + (if (gx#stx-null? _tl1149611519_) (if '#t (cons '%#quote (cons (gx#syntax->datum - _e11446_) + _e11522_) '())) - (_E1141411426_)) - (_E1141411426_))))) - (_E1141411426_)))) - (_E1141411426_))))) - (let () (_E1141311448_))))))) + (_E1149011502_)) + (_E1149011502_))))) + (_E1149011502_)))) + (_E1149011502_))))) + (let () (_E1148911524_))))))) (define gx#core-compile-top-quote-syntax% - (lambda (_stx11370_) - (let ((_e1137111381_ _stx11370_)) - (let ((_E1137311385_ + (lambda (_stx11446_) + (let ((_e1144711457_ _stx11446_)) + (let ((_E1144911461_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1137111381_)))) - (let ((_E1137211407_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1144711457_)))) + (let ((_E1144811483_ (lambda () - (if (gx#stx-pair? _e1137111381_) - (let ((_e1137411389_ (gx#syntax-e _e1137111381_))) - (let ((_hd1137511392_ (##car _e1137411389_)) - (_tl1137611394_ (##cdr _e1137411389_))) - (if (gx#stx-pair? _tl1137611394_) - (let ((_e1137711397_ - (gx#syntax-e _tl1137611394_))) - (let ((_hd1137811400_ (##car _e1137711397_)) - (_tl1137911402_ (##cdr _e1137711397_))) - (let ((_e11405_ _hd1137811400_)) - (if (gx#stx-null? _tl1137911402_) + (if (gx#stx-pair? _e1144711457_) + (let ((_e1145011465_ (gx#syntax-e _e1144711457_))) + (let ((_hd1145111468_ (##car _e1145011465_)) + (_tl1145211470_ (##cdr _e1145011465_))) + (if (gx#stx-pair? _tl1145211470_) + (let ((_e1145311473_ + (gx#syntax-e _tl1145211470_))) + (let ((_hd1145411476_ (##car _e1145311473_)) + (_tl1145511478_ (##cdr _e1145311473_))) + (let ((_e11481_ _hd1145411476_)) + (if (gx#stx-null? _tl1145511478_) (if '#t (cons '%#quote-syntax (cons (gx#core-quote-syntax__0 - _e11405_) + _e11481_) '())) - (_E1137311385_)) - (_E1137311385_))))) - (_E1137311385_)))) - (_E1137311385_))))) - (let () (_E1137211407_))))))) + (_E1144911461_)) + (_E1144911461_))))) + (_E1144911461_)))) + (_E1144911461_))))) + (let () (_E1144811483_))))))) (define gx#core-compile-top-call% - (lambda (_stx11327_) - (let ((_e1132811338_ _stx11327_)) - (let ((_E1133011342_ + (lambda (_stx11403_) + (let ((_e1140411414_ _stx11403_)) + (let ((_E1140611418_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1132811338_)))) - (let ((_E1132911366_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1140411414_)))) + (let ((_E1140511442_ (lambda () - (if (gx#stx-pair? _e1132811338_) - (let ((_e1133111346_ (gx#syntax-e _e1132811338_))) - (let ((_hd1133211349_ (##car _e1133111346_)) - (_tl1133311351_ (##cdr _e1133111346_))) - (if (gx#stx-pair? _tl1133311351_) - (let ((_e1133411354_ - (gx#syntax-e _tl1133311351_))) - (let ((_hd1133511357_ (##car _e1133411354_)) - (_tl1133611359_ (##cdr _e1133411354_))) - (let ((_rator11362_ _hd1133511357_)) - (let ((_args11364_ _tl1133611359_)) + (if (gx#stx-pair? _e1140411414_) + (let ((_e1140711422_ (gx#syntax-e _e1140411414_))) + (let ((_hd1140811425_ (##car _e1140711422_)) + (_tl1140911427_ (##cdr _e1140711422_))) + (if (gx#stx-pair? _tl1140911427_) + (let ((_e1141011430_ + (gx#syntax-e _tl1140911427_))) + (let ((_hd1141111433_ (##car _e1141011430_)) + (_tl1141211435_ (##cdr _e1141011430_))) + (let ((_rator11438_ _hd1141111433_)) + (let ((_args11440_ _tl1141211435_)) (if '#t (cons* '%#call (gx#core-compile-top-syntax - _rator11362_) + _rator11438_) (gx#stx-map1 gx#core-compile-top-syntax - _args11364_)) - (_E1133011342_)))))) - (_E1133011342_)))) - (_E1133011342_))))) - (let () (_E1132911366_))))))) + _args11440_)) + (_E1140611418_)))))) + (_E1140611418_)))) + (_E1140611418_))))) + (let () (_E1140511442_))))))) (define gx#core-compile-top-if% - (lambda (_stx11260_) - (let ((_e1126111277_ _stx11260_)) - (let ((_E1126311281_ + (lambda (_stx11336_) + (let ((_e1133711353_ _stx11336_)) + (let ((_E1133911357_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1126111277_)))) - (let ((_E1126211323_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1133711353_)))) + (let ((_E1133811399_ (lambda () - (if (gx#stx-pair? _e1126111277_) - (let ((_e1126411285_ (gx#syntax-e _e1126111277_))) - (let ((_hd1126511288_ (##car _e1126411285_)) - (_tl1126611290_ (##cdr _e1126411285_))) - (if (gx#stx-pair? _tl1126611290_) - (let ((_e1126711293_ - (gx#syntax-e _tl1126611290_))) - (let ((_hd1126811296_ (##car _e1126711293_)) - (_tl1126911298_ (##cdr _e1126711293_))) - (let ((_test11301_ _hd1126811296_)) - (if (gx#stx-pair? _tl1126911298_) - (let ((_e1127011303_ - (gx#syntax-e _tl1126911298_))) - (let ((_hd1127111306_ - (##car _e1127011303_)) - (_tl1127211308_ - (##cdr _e1127011303_))) - (let ((_K11311_ _hd1127111306_)) + (if (gx#stx-pair? _e1133711353_) + (let ((_e1134011361_ (gx#syntax-e _e1133711353_))) + (let ((_hd1134111364_ (##car _e1134011361_)) + (_tl1134211366_ (##cdr _e1134011361_))) + (if (gx#stx-pair? _tl1134211366_) + (let ((_e1134311369_ + (gx#syntax-e _tl1134211366_))) + (let ((_hd1134411372_ (##car _e1134311369_)) + (_tl1134511374_ (##cdr _e1134311369_))) + (let ((_test11377_ _hd1134411372_)) + (if (gx#stx-pair? _tl1134511374_) + (let ((_e1134611379_ + (gx#syntax-e _tl1134511374_))) + (let ((_hd1134711382_ + (##car _e1134611379_)) + (_tl1134811384_ + (##cdr _e1134611379_))) + (let ((_K11387_ _hd1134711382_)) (if (gx#stx-pair? - _tl1127211308_) - (let ((_e1127311313_ + _tl1134811384_) + (let ((_e1134911389_ (gx#syntax-e - _tl1127211308_))) - (let ((_hd1127411316_ - (##car _e1127311313_)) - (_tl1127511318_ - (##cdr _e1127311313_))) - (let ((_E11321_ - _hd1127411316_)) + _tl1134811384_))) + (let ((_hd1135011392_ + (##car _e1134911389_)) + (_tl1135111394_ + (##cdr _e1134911389_))) + (let ((_E11397_ + _hd1135011392_)) (if (gx#stx-null? - _tl1127511318_) + _tl1135111394_) (if '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#if - (cons (gx#core-compile-top-syntax _test11301_) + (cons (gx#core-compile-top-syntax _test11377_) (cons (gx#core-compile-top-syntax - _K11311_) + _K11387_) (cons (gx#core-compile-top-syntax - _E11321_) + _E11397_) '())))) - (_E1126311281_)) - (_E1126311281_))))) + (_E1133911357_)) + (_E1133911357_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1126311281_))))) - (_E1126311281_))))) - (_E1126311281_)))) - (_E1126311281_))))) - (let () (_E1126211323_))))))) + (_E1133911357_))))) + (_E1133911357_))))) + (_E1133911357_)))) + (_E1133911357_))))) + (let () (_E1133811399_))))))) (define gx#core-compile-top-ref% - (lambda (_stx11219_) - (let ((_e1122011230_ _stx11219_)) - (let ((_E1122211234_ + (lambda (_stx11295_) + (let ((_e1129611306_ _stx11295_)) + (let ((_E1129811310_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1122011230_)))) - (let ((_E1122111256_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1129611306_)))) + (let ((_E1129711332_ (lambda () - (if (gx#stx-pair? _e1122011230_) - (let ((_e1122311238_ (gx#syntax-e _e1122011230_))) - (let ((_hd1122411241_ (##car _e1122311238_)) - (_tl1122511243_ (##cdr _e1122311238_))) - (if (gx#stx-pair? _tl1122511243_) - (let ((_e1122611246_ - (gx#syntax-e _tl1122511243_))) - (let ((_hd1122711249_ (##car _e1122611246_)) - (_tl1122811251_ (##cdr _e1122611246_))) - (let ((_id11254_ _hd1122711249_)) - (if (gx#stx-null? _tl1122811251_) - (if (gx#identifier? _id11254_) + (if (gx#stx-pair? _e1129611306_) + (let ((_e1129911314_ (gx#syntax-e _e1129611306_))) + (let ((_hd1130011317_ (##car _e1129911314_)) + (_tl1130111319_ (##cdr _e1129911314_))) + (if (gx#stx-pair? _tl1130111319_) + (let ((_e1130211322_ + (gx#syntax-e _tl1130111319_))) + (let ((_hd1130311325_ (##car _e1130211322_)) + (_tl1130411327_ (##cdr _e1130211322_))) + (let ((_id11330_ _hd1130311325_)) + (if (gx#stx-null? _tl1130411327_) + (if (gx#identifier? _id11330_) (cons '%#ref (cons (gx#core-compile-top-runtime-ref - _id11254_) + _id11330_) '())) - (_E1122211234_)) - (_E1122211234_))))) - (_E1122211234_)))) - (_E1122211234_))))) - (let () (_E1122111256_))))))) + (_E1129811310_)) + (_E1129811310_))))) + (_E1129811310_)))) + (_E1129811310_))))) + (let () (_E1129711332_))))))) (define gx#core-compile-top-setq% - (lambda (_stx11165_) - (let ((_e1116611179_ _stx11165_)) - (let ((_E1116811183_ + (lambda (_stx11241_) + (let ((_e1124211255_ _stx11241_)) + (let ((_E1124411259_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1116611179_)))) - (let ((_E1116711215_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1124211255_)))) + (let ((_E1124311291_ (lambda () - (if (gx#stx-pair? _e1116611179_) - (let ((_e1116911187_ (gx#syntax-e _e1116611179_))) - (let ((_hd1117011190_ (##car _e1116911187_)) - (_tl1117111192_ (##cdr _e1116911187_))) - (if (gx#stx-pair? _tl1117111192_) - (let ((_e1117211195_ - (gx#syntax-e _tl1117111192_))) - (let ((_hd1117311198_ (##car _e1117211195_)) - (_tl1117411200_ (##cdr _e1117211195_))) - (let ((_id11203_ _hd1117311198_)) - (if (gx#stx-pair? _tl1117411200_) - (let ((_e1117511205_ - (gx#syntax-e _tl1117411200_))) - (let ((_hd1117611208_ - (##car _e1117511205_)) - (_tl1117711210_ - (##cdr _e1117511205_))) - (let ((_expr11213_ - _hd1117611208_)) + (if (gx#stx-pair? _e1124211255_) + (let ((_e1124511263_ (gx#syntax-e _e1124211255_))) + (let ((_hd1124611266_ (##car _e1124511263_)) + (_tl1124711268_ (##cdr _e1124511263_))) + (if (gx#stx-pair? _tl1124711268_) + (let ((_e1124811271_ + (gx#syntax-e _tl1124711268_))) + (let ((_hd1124911274_ (##car _e1124811271_)) + (_tl1125011276_ (##cdr _e1124811271_))) + (let ((_id11279_ _hd1124911274_)) + (if (gx#stx-pair? _tl1125011276_) + (let ((_e1125111281_ + (gx#syntax-e _tl1125011276_))) + (let ((_hd1125211284_ + (##car _e1125111281_)) + (_tl1125311286_ + (##cdr _e1125111281_))) + (let ((_expr11289_ + _hd1125211284_)) (if (gx#stx-null? - _tl1117711210_) + _tl1125311286_) (if (gx#identifier? - _id11203_) + _id11279_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id11203_) - (cons (gx#core-compile-top-syntax _expr11213_) + _id11279_) + (cons (gx#core-compile-top-syntax _expr11289_) '()))) - (_E1116811183_)) + (_E1124411259_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1116811183_))))) - (_E1116811183_))))) - (_E1116811183_)))) - (_E1116811183_))))) - (let () (_E1116711215_))))))) + (_E1124411259_))))) + (_E1124411259_))))) + (_E1124411259_)))) + (_E1124411259_))))) + (let () (_E1124311291_))))))) (define gx#core-compile-top-runtime-ref - (lambda (_id11160_) - (let ((_$e11162_ (gx#resolve-identifier__0 _id11160_))) - (if _$e11162_ - (##structure-ref _$e11162_ '1 gx#binding::t '#f) - _id11160_)))) + (lambda (_id11236_) + (let ((_$e11238_ (gx#resolve-identifier__0 _id11236_))) + (if _$e11238_ + (##structure-ref _$e11238_ '1 gx#binding::t '#f) + _id11236_)))) (define gx#core-compile-top-runtime-bind - (lambda (_hd11158_) - (if (gx#identifier? _hd11158_) - (gx#core-compile-top-runtime-ref _hd11158_) + (lambda (_hd11234_) + (if (gx#identifier? _hd11234_) + (gx#core-compile-top-runtime-ref _hd11234_) '#f)))) diff --git a/src/bootstrap/gerbil/expander/core.ssi b/src/bootstrap/gerbil/expander/core.ssi index 67019d5e2..050420785 100644 --- a/src/bootstrap/gerbil/expander/core.ssi +++ b/src/bootstrap/gerbil/expander/core.ssi @@ -107,8 +107,8 @@ namespace: gx (%#define-runtime make-local-context gx#make-local-context) (%#define-syntax local-context |gx[:0:]#local-context|) (%#begin (%#define-runtime - phi-context:::init!__opt-lambda5542 - gx#phi-context:::init!__opt-lambda5542) + phi-context:::init!__opt-lambda5618 + gx#phi-context:::init!__opt-lambda5618) (%#begin (%#define-runtime phi-context:::init!__0 gx#phi-context:::init!__0) @@ -116,8 +116,8 @@ namespace: gx phi-context:::init! gx#phi-context:::init!))) (%#begin (%#define-runtime - local-context:::init!__opt-lambda5528 - gx#local-context:::init!__opt-lambda5528) + local-context:::init!__opt-lambda5604 + gx#local-context:::init!__opt-lambda5604) (%#begin (%#define-runtime local-context:::init!__0 gx#local-context:::init!__0) @@ -300,14 +300,14 @@ namespace: gx (%#define-syntax syntax-error |gx[:0:]#syntax-error|) (%#define-runtime raise-syntax-error gx#raise-syntax-error) (%#begin (%#define-runtime - eval-syntax__opt-lambda5437 - gx#eval-syntax__opt-lambda5437) + eval-syntax__opt-lambda5513 + gx#eval-syntax__opt-lambda5513) (%#begin (%#define-runtime eval-syntax__0 gx#eval-syntax__0) (%#define-runtime eval-syntax gx#eval-syntax))) (%#define-runtime eval-syntax* gx#eval-syntax*) (%#begin (%#define-runtime - core-expand__opt-lambda5421 - gx#core-expand__opt-lambda5421) + core-expand__opt-lambda5497 + gx#core-expand__opt-lambda5497) (%#begin (%#define-runtime core-expand__0 gx#core-expand__0) (%#define-runtime core-expand gx#core-expand))) (%#define-runtime core-expand-top gx#core-expand-top) @@ -316,8 +316,8 @@ namespace: gx core-expand-expression+1 gx#core-expand-expression+1) (%#begin (%#define-runtime - core-expand*__opt-lambda5286 - gx#core-expand*__opt-lambda5286) + core-expand*__opt-lambda5362 + gx#core-expand*__opt-lambda5362) (%#begin (%#define-runtime core-expand*__0 gx#core-expand*__0) @@ -325,8 +325,8 @@ namespace: gx (%#define-runtime core-expand1 gx#core-expand1) (%#define-runtime core-expand-head gx#core-expand-head) (%#begin (%#define-runtime - core-expand-block__opt-lambda5008 - gx#core-expand-block__opt-lambda5008) + core-expand-block__opt-lambda5084 + gx#core-expand-block__opt-lambda5084) (%#begin (%#define-runtime core-expand-block__0 gx#core-expand-block__0) @@ -341,8 +341,8 @@ namespace: gx core-expand-cond-expand% gx#core-expand-cond-expand%) (%#begin (%#define-runtime - core-expand-include%__opt-lambda4757 - gx#core-expand-include%__opt-lambda4757) + core-expand-include%__opt-lambda4833 + gx#core-expand-include%__opt-lambda4833) (%#begin (%#define-runtime core-expand-include%__0 gx#core-expand-include%__0) @@ -350,8 +350,8 @@ namespace: gx core-expand-include% gx#core-expand-include%))) (%#begin (%#define-runtime - core-apply-expander__opt-lambda4726 - gx#core-apply-expander__opt-lambda4726) + core-apply-expander__opt-lambda4802 + gx#core-apply-expander__opt-lambda4802) (%#begin (%#define-runtime core-apply-expander__0 gx#core-apply-expander__0) @@ -368,8 +368,8 @@ namespace: gx core-expander::apply-macro-expander gx#core-expander::apply-macro-expander) (%#begin (%#define-runtime - top-special-form::apply-macro-expander__opt-lambda4656 - gx#top-special-form::apply-macro-expander__opt-lambda4656) + top-special-form::apply-macro-expander__opt-lambda4732 + gx#top-special-form::apply-macro-expander__opt-lambda4732) (%#begin (%#define-runtime top-special-form::apply-macro-expander__0 gx#top-special-form::apply-macro-expander__0) @@ -383,8 +383,8 @@ namespace: gx rename-macro-expander::apply-macro-expander gx#rename-macro-expander::apply-macro-expander) (%#begin (%#define-runtime - core-apply-user-expander__opt-lambda4547 - gx#core-apply-user-expander__opt-lambda4547) + core-apply-user-expander__opt-lambda4623 + gx#core-apply-user-expander__opt-lambda4623) (%#begin (%#define-runtime core-apply-user-expander__0 gx#core-apply-user-expander__0) @@ -396,8 +396,8 @@ namespace: gx user-expander::apply-macro-expander gx#user-expander::apply-macro-expander) (%#begin (%#define-runtime - resolve-identifier__opt-lambda4511 - gx#resolve-identifier__opt-lambda4511) + resolve-identifier__opt-lambda4587 + gx#resolve-identifier__opt-lambda4587) (%#begin (%#define-runtime resolve-identifier__0 gx#resolve-identifier__0) @@ -408,8 +408,8 @@ namespace: gx resolve-identifier gx#resolve-identifier))) (%#begin (%#define-runtime - bind-identifier!__opt-lambda4469 - gx#bind-identifier!__opt-lambda4469) + bind-identifier!__opt-lambda4545 + gx#bind-identifier!__opt-lambda4545) (%#begin (%#define-runtime bind-identifier!__0 gx#bind-identifier!__0) @@ -423,8 +423,8 @@ namespace: gx bind-identifier! gx#bind-identifier!))) (%#begin (%#define-runtime - core-resolve-identifier__opt-lambda4441 - gx#core-resolve-identifier__opt-lambda4441) + core-resolve-identifier__opt-lambda4517 + gx#core-resolve-identifier__opt-lambda4517) (%#begin (%#define-runtime core-resolve-identifier__0 gx#core-resolve-identifier__0) @@ -436,8 +436,8 @@ namespace: gx gx#core-resolve-identifier))) (%#define-runtime core-resolve-binding gx#core-resolve-binding) (%#begin (%#define-runtime - core-bind!__opt-lambda4231 - gx#core-bind!__opt-lambda4231) + core-bind!__opt-lambda4307 + gx#core-bind!__opt-lambda4307) (%#begin (%#define-runtime core-bind!__0 gx#core-bind!__0) (%#define-runtime core-bind!__1 gx#core-bind!__1) (%#define-runtime core-bind!__2 gx#core-bind!__2) @@ -449,8 +449,8 @@ namespace: gx (%#define-runtime core-context-resolve gx#core-context-resolve) (%#define-runtime core-context-bind! gx#core-context-bind!) (%#begin (%#define-runtime - core-context-top__opt-lambda4054 - gx#core-context-top__opt-lambda4054) + core-context-top__opt-lambda4130 + gx#core-context-top__opt-lambda4130) (%#begin (%#define-runtime core-context-top__0 gx#core-context-top__0) @@ -461,8 +461,8 @@ namespace: gx core-context-top gx#core-context-top))) (%#begin (%#define-runtime - core-context-root__opt-lambda4039 - gx#core-context-root__opt-lambda4039) + core-context-root__opt-lambda4115 + gx#core-context-root__opt-lambda4115) (%#begin (%#define-runtime core-context-root__0 gx#core-context-root__0) @@ -470,8 +470,8 @@ namespace: gx core-context-root gx#core-context-root))) (%#begin (%#define-runtime - core-context-rebind?__opt-lambda4023 - gx#core-context-rebind?__opt-lambda4023) + core-context-rebind?__opt-lambda4099 + gx#core-context-rebind?__opt-lambda4099) (%#begin (%#define-runtime core-context-rebind?__0 gx#core-context-rebind?__0) @@ -479,8 +479,8 @@ namespace: gx core-context-rebind? gx#core-context-rebind?))) (%#begin (%#define-runtime - core-context-namespace__opt-lambda4006 - gx#core-context-namespace__opt-lambda4006) + core-context-namespace__opt-lambda4082 + gx#core-context-namespace__opt-lambda4082) (%#begin (%#define-runtime core-context-namespace__0 gx#core-context-namespace__0) @@ -488,8 +488,8 @@ namespace: gx core-context-namespace gx#core-context-namespace))) (%#begin (%#define-runtime - expander-binding?__opt-lambda3992 - gx#expander-binding?__opt-lambda3992) + expander-binding?__opt-lambda4068 + gx#expander-binding?__opt-lambda4068) (%#begin (%#define-runtime expander-binding?__0 gx#expander-binding?__0) @@ -506,8 +506,8 @@ namespace: gx private-feature-binding? gx#private-feature-binding?) (%#begin (%#define-runtime - core-bound-identifier?__opt-lambda3961 - gx#core-bound-identifier?__opt-lambda3961) + core-bound-identifier?__opt-lambda4037 + gx#core-bound-identifier?__opt-lambda4037) (%#begin (%#define-runtime core-bound-identifier?__0 gx#core-bound-identifier?__0) @@ -517,8 +517,8 @@ namespace: gx (%#define-runtime core-identifier=? gx#core-identifier=?) (%#define-runtime core-extern-symbol? gx#core-extern-symbol?) (%#begin (%#define-runtime - core-quote-syntax__opt-lambda3907 - gx#core-quote-syntax__opt-lambda3907) + core-quote-syntax__opt-lambda3983 + gx#core-quote-syntax__opt-lambda3983) (%#begin (%#define-runtime core-quote-syntax__0 gx#core-quote-syntax__0) @@ -535,8 +535,8 @@ namespace: gx (%#define-runtime core-list gx#core-list) (%#define-runtime core-cons* gx#core-cons*) (%#begin (%#define-runtime - core-resolve-path__opt-lambda3871 - gx#core-resolve-path__opt-lambda3871) + core-resolve-path__opt-lambda3947 + gx#core-resolve-path__opt-lambda3947) (%#begin (%#define-runtime core-resolve-path__0 gx#core-resolve-path__0) @@ -547,8 +547,8 @@ namespace: gx (%#define-runtime syntax-local-unwrap gx#syntax-local-unwrap) (%#define-runtime syntax-local-introduce gx#syntax-local-introduce) (%#begin (%#define-runtime - syntax-local-e__opt-lambda3819 - gx#syntax-local-e__opt-lambda3819) + syntax-local-e__opt-lambda3895 + gx#syntax-local-e__opt-lambda3895) (%#begin (%#define-runtime syntax-local-e__0 gx#syntax-local-e__0) @@ -556,8 +556,8 @@ namespace: gx syntax-local-e gx#syntax-local-e))) (%#begin (%#define-runtime - syntax-local-value__opt-lambda3803 - gx#syntax-local-value__opt-lambda3803) + syntax-local-value__opt-lambda3879 + gx#syntax-local-value__opt-lambda3879) (%#begin (%#define-runtime syntax-local-value__0 gx#syntax-local-value__0) diff --git a/src/bootstrap/gerbil/expander/core.ssxi.ss b/src/bootstrap/gerbil/expander/core.ssxi.ss index 239acfe86..15d058672 100644 --- a/src/bootstrap/gerbil/expander/core.ssxi.ss +++ b/src/bootstrap/gerbil/expander/core.ssxi.ss @@ -93,13 +93,13 @@ package: gerbil/expander gx#phi-context:::init! (@case-lambda (2 gx#phi-context:::init!__0) - (3 gx#phi-context:::init!__opt-lambda5542))) + (3 gx#phi-context:::init!__opt-lambda5618))) (declare-method gx#phi-context::t :init! gx#phi-context:::init! #f) (declare-type gx#local-context:::init! (@case-lambda (1 gx#local-context:::init!__0) - (2 gx#local-context:::init!__opt-lambda5528))) + (2 gx#local-context:::init!__opt-lambda5604))) (declare-method gx#local-context::t :init! gx#local-context:::init! #f) (declare-type gx#binding::t (@struct-type gx#binding::t #f 3 #f ())) (declare-type gx#binding? (@struct-pred gx#binding::t)) @@ -304,29 +304,29 @@ package: gerbil/expander (declare-type gx#syntax-error-phi-set! (@struct-setf gx#syntax-error::t 2)) (declare-type gx#eval-syntax - (@case-lambda (1 gx#eval-syntax__0) (2 gx#eval-syntax__opt-lambda5437))) + (@case-lambda (1 gx#eval-syntax__0) (2 gx#eval-syntax__opt-lambda5513))) (declare-type gx#core-expand - (@case-lambda (1 gx#core-expand__0) (2 gx#core-expand__opt-lambda5421))) + (@case-lambda (1 gx#core-expand__0) (2 gx#core-expand__opt-lambda5497))) (declare-type gx#core-expand* - (@case-lambda (1 gx#core-expand*__0) (2 gx#core-expand*__opt-lambda5286))) + (@case-lambda (1 gx#core-expand*__0) (2 gx#core-expand*__opt-lambda5362))) (declare-type gx#core-expand-block (@case-lambda (2 gx#core-expand-block__0) (3 gx#core-expand-block__1) - (4 gx#core-expand-block__opt-lambda5008))) + (4 gx#core-expand-block__opt-lambda5084))) (declare-type gx#core-expand-include% (@case-lambda (1 gx#core-expand-include%__0) - (2 gx#core-expand-include%__opt-lambda4757))) + (2 gx#core-expand-include%__opt-lambda4833))) (declare-type gx#core-apply-expander (@case-lambda (2 gx#core-apply-expander__0) - (3 gx#core-apply-expander__opt-lambda4726))) + (3 gx#core-apply-expander__opt-lambda4802))) (declare-method gx#expander::t apply-macro-expander @@ -346,7 +346,7 @@ package: gerbil/expander gx#top-special-form::apply-macro-expander (@case-lambda (2 gx#top-special-form::apply-macro-expander__0) - (3 gx#top-special-form::apply-macro-expander__opt-lambda4656))) + (3 gx#top-special-form::apply-macro-expander__opt-lambda4732))) (declare-method gx#top-special-form::t apply-macro-expander @@ -366,12 +366,12 @@ package: gerbil/expander gx#core-apply-user-expander (@case-lambda (2 gx#core-apply-user-expander__0) - (3 gx#core-apply-user-expander__opt-lambda4547))) + (3 gx#core-apply-user-expander__opt-lambda4623))) (declare-type gx#user-expander::apply-macro-expander (@case-lambda (2 gx#core-apply-user-expander__0) - (3 gx#core-apply-user-expander__opt-lambda4547))) + (3 gx#core-apply-user-expander__opt-lambda4623))) (declare-method gx#user-expander::t apply-macro-expander @@ -382,78 +382,78 @@ package: gerbil/expander (@case-lambda (1 gx#resolve-identifier__0) (2 gx#resolve-identifier__1) - (3 gx#resolve-identifier__opt-lambda4511))) + (3 gx#resolve-identifier__opt-lambda4587))) (declare-type gx#bind-identifier! (@case-lambda (2 gx#bind-identifier!__0) (3 gx#bind-identifier!__1) (4 gx#bind-identifier!__2) - (5 gx#bind-identifier!__opt-lambda4469))) + (5 gx#bind-identifier!__opt-lambda4545))) (declare-type gx#core-resolve-identifier (@case-lambda (1 gx#core-resolve-identifier__0) (2 gx#core-resolve-identifier__1) - (3 gx#core-resolve-identifier__opt-lambda4441))) + (3 gx#core-resolve-identifier__opt-lambda4517))) (declare-type gx#core-bind! (@case-lambda (2 gx#core-bind!__0) (3 gx#core-bind!__1) (4 gx#core-bind!__2) - (5 gx#core-bind!__opt-lambda4231))) + (5 gx#core-bind!__opt-lambda4307))) (declare-type gx#core-context-top (@case-lambda (0 gx#core-context-top__0) (1 gx#core-context-top__1) - (2 gx#core-context-top__opt-lambda4054))) + (2 gx#core-context-top__opt-lambda4130))) (declare-type gx#core-context-root (@case-lambda (0 gx#core-context-root__0) - (1 gx#core-context-root__opt-lambda4039))) + (1 gx#core-context-root__opt-lambda4115))) (declare-type gx#core-context-rebind? (@case-lambda (0 gx#core-context-rebind?__0) - (1 gx#core-context-rebind?__opt-lambda4023) - ((1) gx#core-context-rebind?__opt-lambda4023))) + (1 gx#core-context-rebind?__opt-lambda4099) + ((1) gx#core-context-rebind?__opt-lambda4099))) (declare-type gx#core-context-namespace (@case-lambda (0 gx#core-context-namespace__0) - (1 gx#core-context-namespace__opt-lambda4006))) + (1 gx#core-context-namespace__opt-lambda4082))) (declare-type gx#expander-binding? (@case-lambda (1 gx#expander-binding?__0) - (2 gx#expander-binding?__opt-lambda3992))) + (2 gx#expander-binding?__opt-lambda4068))) (declare-type gx#core-bound-identifier? (@case-lambda (1 gx#core-bound-identifier?__0) - (2 gx#core-bound-identifier?__opt-lambda3961))) + (2 gx#core-bound-identifier?__opt-lambda4037))) (declare-type gx#core-quote-syntax (@case-lambda (1 gx#core-quote-syntax__0) (2 gx#core-quote-syntax__1) (3 gx#core-quote-syntax__2) - (4 gx#core-quote-syntax__opt-lambda3907))) + (4 gx#core-quote-syntax__opt-lambda3983))) (declare-type gx#core-resolve-path (@case-lambda (1 gx#core-resolve-path__0) - (2 gx#core-resolve-path__opt-lambda3871))) + (2 gx#core-resolve-path__opt-lambda3947))) (declare-type gx#syntax-local-e (@case-lambda (1 gx#syntax-local-e__0) - (2 gx#syntax-local-e__opt-lambda3819))) + (2 gx#syntax-local-e__opt-lambda3895))) (declare-type gx#syntax-local-value (@case-lambda (1 gx#syntax-local-value__0) - (2 gx#syntax-local-value__opt-lambda3803)))) + (2 gx#syntax-local-value__opt-lambda3879)))) diff --git a/src/bootstrap/gerbil/expander/core__0.scm b/src/bootstrap/gerbil/expander/core__0.scm index a3162b54b..eb38a508e 100644 --- a/src/bootstrap/gerbil/expander/core__0.scm +++ b/src/bootstrap/gerbil/expander/core__0.scm @@ -21,8 +21,8 @@ ':init!)) (define gx#expander-context? (make-struct-predicate gx#expander-context::t)) (define gx#make-expander-context - (lambda _$args5578_ - (apply make-struct-instance gx#expander-context::t _$args5578_))) + (lambda _$args5654_ + (apply make-struct-instance gx#expander-context::t _$args5654_))) (define gx#expander-context-id (make-struct-field-accessor gx#expander-context::t '0)) (define gx#expander-context-table @@ -41,8 +41,8 @@ '#f)) (define gx#root-context? (make-struct-predicate gx#root-context::t)) (define gx#make-root-context - (lambda _$args5575_ - (apply make-struct-instance gx#root-context::t _$args5575_))) + (lambda _$args5651_ + (apply make-struct-instance gx#root-context::t _$args5651_))) (define gx#phi-context::t (make-struct-type 'gx#context-phi::t @@ -53,8 +53,8 @@ '#f)) (define gx#phi-context? (make-struct-predicate gx#phi-context::t)) (define gx#make-phi-context - (lambda _$args5572_ - (apply make-struct-instance gx#phi-context::t _$args5572_))) + (lambda _$args5648_ + (apply make-struct-instance gx#phi-context::t _$args5648_))) (define gx#phi-context-super (make-struct-field-accessor gx#phi-context::t '0)) (define gx#phi-context-up (make-struct-field-accessor gx#phi-context::t '1)) @@ -76,8 +76,8 @@ '#f)) (define gx#top-context? (make-struct-predicate gx#top-context::t)) (define gx#make-top-context - (lambda _$args5569_ - (apply make-struct-instance gx#top-context::t _$args5569_))) + (lambda _$args5645_ + (apply make-struct-instance gx#top-context::t _$args5645_))) (define gx#module-context::t (make-struct-type 'gx#module-context::t @@ -88,8 +88,8 @@ '#f)) (define gx#module-context? (make-struct-predicate gx#module-context::t)) (define gx#make-module-context - (lambda _$args5566_ - (apply make-struct-instance gx#module-context::t _$args5566_))) + (lambda _$args5642_ + (apply make-struct-instance gx#module-context::t _$args5642_))) (define gx#module-context-ns (make-struct-field-accessor gx#module-context::t '0)) (define gx#module-context-path @@ -124,8 +124,8 @@ '#f)) (define gx#prelude-context? (make-struct-predicate gx#prelude-context::t)) (define gx#make-prelude-context - (lambda _$args5563_ - (apply make-struct-instance gx#prelude-context::t _$args5563_))) + (lambda _$args5639_ + (apply make-struct-instance gx#prelude-context::t _$args5639_))) (define gx#prelude-context-path (make-struct-field-accessor gx#prelude-context::t '0)) (define gx#prelude-context-import @@ -148,65 +148,65 @@ '#f)) (define gx#local-context? (make-struct-predicate gx#local-context::t)) (define gx#make-local-context - (lambda _$args5560_ - (apply make-struct-instance gx#local-context::t _$args5560_))) + (lambda _$args5636_ + (apply make-struct-instance gx#local-context::t _$args5636_))) (begin - (define gx#phi-context:::init!__opt-lambda5542 - (lambda (_self5544_ _id5545_ _super5546_) + (define gx#phi-context:::init!__opt-lambda5618 + (lambda (_self5620_ _id5621_ _super5622_) (direct-struct-instance-init! - _self5544_ - _id5545_ + _self5620_ + _id5621_ (make-hash-table-eq) - _super5546_ + _super5622_ '#f '#f))) (begin (define gx#phi-context:::init!__0 - (lambda (_self5551_ _id5552_) - (let ((_super5554_ (gx#current-expander-context))) - (gx#phi-context:::init!__opt-lambda5542 - _self5551_ - _id5552_ - _super5554_)))) + (lambda (_self5627_ _id5628_) + (let ((_super5630_ (gx#current-expander-context))) + (gx#phi-context:::init!__opt-lambda5618 + _self5627_ + _id5628_ + _super5630_)))) (define gx#phi-context:::init! - (lambda _g5582_ - (let ((_g5581_ (length _g5582_))) - (cond ((fx= _g5581_ 2) (apply gx#phi-context:::init!__0 _g5582_)) - ((fx= _g5581_ 3) - (apply gx#phi-context:::init!__opt-lambda5542 _g5582_)) - (else (error "No clause matching arguments" _g5582_)))))))) + (lambda _g5658_ + (let ((_g5657_ (length _g5658_))) + (cond ((fx= _g5657_ 2) (apply gx#phi-context:::init!__0 _g5658_)) + ((fx= _g5657_ 3) + (apply gx#phi-context:::init!__opt-lambda5618 _g5658_)) + (else (error "No clause matching arguments" _g5658_)))))))) (bind-method! gx#phi-context::t ':init! gx#phi-context:::init! '#f) (begin - (define gx#local-context:::init!__opt-lambda5528 - (lambda (_self5530_ _super5531_) + (define gx#local-context:::init!__opt-lambda5604 + (lambda (_self5606_ _super5607_) (direct-struct-instance-init! - _self5530_ + _self5606_ (gensym 'L) (make-hash-table-eq) - _super5531_ + _super5607_ '#f '#f))) (begin (define gx#local-context:::init!__0 - (lambda (_self5536_) - (let ((_super5538_ (gx#current-expander-context))) - (gx#local-context:::init!__opt-lambda5528 - _self5536_ - _super5538_)))) + (lambda (_self5612_) + (let ((_super5614_ (gx#current-expander-context))) + (gx#local-context:::init!__opt-lambda5604 + _self5612_ + _super5614_)))) (define gx#local-context:::init! - (lambda _g5584_ - (let ((_g5583_ (length _g5584_))) - (cond ((fx= _g5583_ 1) (apply gx#local-context:::init!__0 _g5584_)) - ((fx= _g5583_ 2) - (apply gx#local-context:::init!__opt-lambda5528 _g5584_)) - (else (error "No clause matching arguments" _g5584_)))))))) + (lambda _g5660_ + (let ((_g5659_ (length _g5660_))) + (cond ((fx= _g5659_ 1) (apply gx#local-context:::init!__0 _g5660_)) + ((fx= _g5659_ 2) + (apply gx#local-context:::init!__opt-lambda5604 _g5660_)) + (else (error "No clause matching arguments" _g5660_)))))))) (bind-method! gx#local-context::t ':init! gx#local-context:::init! '#f) (define gx#binding::t (make-struct-type 'gx#binding::t '#f '3 'binding '() '#f)) (define gx#binding? (make-struct-predicate gx#binding::t)) (define gx#make-binding - (lambda _$args5526_ - (apply make-struct-instance gx#binding::t _$args5526_))) + (lambda _$args5602_ + (apply make-struct-instance gx#binding::t _$args5602_))) (define gx#binding-id (make-struct-field-accessor gx#binding::t '0)) (define gx#binding-key (make-struct-field-accessor gx#binding::t '1)) (define gx#binding-phi (make-struct-field-accessor gx#binding::t '2)) @@ -223,8 +223,8 @@ '#f)) (define gx#runtime-binding? (make-struct-predicate gx#runtime-binding::t)) (define gx#make-runtime-binding - (lambda _$args5523_ - (apply make-struct-instance gx#runtime-binding::t _$args5523_))) + (lambda _$args5599_ + (apply make-struct-instance gx#runtime-binding::t _$args5599_))) (define gx#local-binding::t (make-struct-type 'gx#local-binding::t @@ -235,8 +235,8 @@ '#f)) (define gx#local-binding? (make-struct-predicate gx#local-binding::t)) (define gx#make-local-binding - (lambda _$args5520_ - (apply make-struct-instance gx#local-binding::t _$args5520_))) + (lambda _$args5596_ + (apply make-struct-instance gx#local-binding::t _$args5596_))) (define gx#top-binding::t (make-struct-type 'gx#top-binding::t @@ -247,8 +247,8 @@ '#f)) (define gx#top-binding? (make-struct-predicate gx#top-binding::t)) (define gx#make-top-binding - (lambda _$args5517_ - (apply make-struct-instance gx#top-binding::t _$args5517_))) + (lambda _$args5593_ + (apply make-struct-instance gx#top-binding::t _$args5593_))) (define gx#module-binding::t (make-struct-type 'gx#module-binding::t @@ -259,8 +259,8 @@ '#f)) (define gx#module-binding? (make-struct-predicate gx#module-binding::t)) (define gx#make-module-binding - (lambda _$args5514_ - (apply make-struct-instance gx#module-binding::t _$args5514_))) + (lambda _$args5590_ + (apply make-struct-instance gx#module-binding::t _$args5590_))) (define gx#module-binding-context (make-struct-field-accessor gx#module-binding::t '0)) (define gx#module-binding-context-set! @@ -275,8 +275,8 @@ '#f)) (define gx#extern-binding? (make-struct-predicate gx#extern-binding::t)) (define gx#make-extern-binding - (lambda _$args5511_ - (apply make-struct-instance gx#extern-binding::t _$args5511_))) + (lambda _$args5587_ + (apply make-struct-instance gx#extern-binding::t _$args5587_))) (define gx#syntax-binding::t (make-struct-type 'gx#syntax-binding::t @@ -287,8 +287,8 @@ '#f)) (define gx#syntax-binding? (make-struct-predicate gx#syntax-binding::t)) (define gx#make-syntax-binding - (lambda _$args5508_ - (apply make-struct-instance gx#syntax-binding::t _$args5508_))) + (lambda _$args5584_ + (apply make-struct-instance gx#syntax-binding::t _$args5584_))) (define gx#syntax-binding-e (make-struct-field-accessor gx#syntax-binding::t '0)) (define gx#syntax-binding-e-set! @@ -303,8 +303,8 @@ '#f)) (define gx#import-binding? (make-struct-predicate gx#import-binding::t)) (define gx#make-import-binding - (lambda _$args5505_ - (apply make-struct-instance gx#import-binding::t _$args5505_))) + (lambda _$args5581_ + (apply make-struct-instance gx#import-binding::t _$args5581_))) (define gx#import-binding-e (make-struct-field-accessor gx#import-binding::t '0)) (define gx#import-binding-context @@ -327,8 +327,8 @@ '#f)) (define gx#alias-binding? (make-struct-predicate gx#alias-binding::t)) (define gx#make-alias-binding - (lambda _$args5502_ - (apply make-struct-instance gx#alias-binding::t _$args5502_))) + (lambda _$args5578_ + (apply make-struct-instance gx#alias-binding::t _$args5578_))) (define gx#alias-binding-e (make-struct-field-accessor gx#alias-binding::t '0)) (define gx#alias-binding-e-set! @@ -337,8 +337,8 @@ (make-struct-type 'gx#expander::t '#f '1 'expander '() '#f)) (define gx#expander? (make-struct-predicate gx#expander::t)) (define gx#make-expander - (lambda _$args5499_ - (apply make-struct-instance gx#expander::t _$args5499_))) + (lambda _$args5575_ + (apply make-struct-instance gx#expander::t _$args5575_))) (define gx#expander-e (make-struct-field-accessor gx#expander::t '0)) (define gx#expander-e-set! (make-struct-field-mutator gx#expander::t '0)) (define gx#core-expander::t @@ -351,8 +351,8 @@ '#f)) (define gx#core-expander? (make-struct-predicate gx#core-expander::t)) (define gx#make-core-expander - (lambda _$args5496_ - (apply make-struct-instance gx#core-expander::t _$args5496_))) + (lambda _$args5572_ + (apply make-struct-instance gx#core-expander::t _$args5572_))) (define gx#core-expander-id (make-struct-field-accessor gx#core-expander::t '0)) (define gx#core-expander-compile-top @@ -371,8 +371,8 @@ '#f)) (define gx#expression-form? (make-struct-predicate gx#expression-form::t)) (define gx#make-expression-form - (lambda _$args5493_ - (apply make-struct-instance gx#expression-form::t _$args5493_))) + (lambda _$args5569_ + (apply make-struct-instance gx#expression-form::t _$args5569_))) (define gx#special-form::t (make-struct-type 'gx#special-form::t @@ -383,8 +383,8 @@ '#f)) (define gx#special-form? (make-struct-predicate gx#special-form::t)) (define gx#make-special-form - (lambda _$args5490_ - (apply make-struct-instance gx#special-form::t _$args5490_))) + (lambda _$args5566_ + (apply make-struct-instance gx#special-form::t _$args5566_))) (define gx#definition-form::t (make-struct-type 'gx#definition-form::t @@ -395,8 +395,8 @@ '#f)) (define gx#definition-form? (make-struct-predicate gx#definition-form::t)) (define gx#make-definition-form - (lambda _$args5487_ - (apply make-struct-instance gx#definition-form::t _$args5487_))) + (lambda _$args5563_ + (apply make-struct-instance gx#definition-form::t _$args5563_))) (define gx#top-special-form::t (make-struct-type 'gx#top-special-form::t @@ -407,8 +407,8 @@ '#f)) (define gx#top-special-form? (make-struct-predicate gx#top-special-form::t)) (define gx#make-top-special-form - (lambda _$args5484_ - (apply make-struct-instance gx#top-special-form::t _$args5484_))) + (lambda _$args5560_ + (apply make-struct-instance gx#top-special-form::t _$args5560_))) (define gx#module-special-form::t (make-struct-type 'gx#module-special-form::t @@ -420,8 +420,8 @@ (define gx#module-special-form? (make-struct-predicate gx#module-special-form::t)) (define gx#make-module-special-form - (lambda _$args5481_ - (apply make-struct-instance gx#module-special-form::t _$args5481_))) + (lambda _$args5557_ + (apply make-struct-instance gx#module-special-form::t _$args5557_))) (define gx#feature-expander::t (make-struct-type 'gx#feature-expander::t @@ -432,8 +432,8 @@ '#f)) (define gx#feature-expander? (make-struct-predicate gx#feature-expander::t)) (define gx#make-feature-expander - (lambda _$args5478_ - (apply make-struct-instance gx#feature-expander::t _$args5478_))) + (lambda _$args5554_ + (apply make-struct-instance gx#feature-expander::t _$args5554_))) (define gx#private-feature-expander::t (make-struct-type 'gx#private-feature-expander::t @@ -445,8 +445,8 @@ (define gx#private-feature-expander? (make-struct-predicate gx#private-feature-expander::t)) (define gx#make-private-feature-expander - (lambda _$args5475_ - (apply make-struct-instance gx#private-feature-expander::t _$args5475_))) + (lambda _$args5551_ + (apply make-struct-instance gx#private-feature-expander::t _$args5551_))) (define gx#reserved-expander::t (make-struct-type 'gx#reserved-expander::t @@ -458,8 +458,8 @@ (define gx#reserved-expander? (make-struct-predicate gx#reserved-expander::t)) (define gx#make-reserved-expander - (lambda _$args5472_ - (apply make-struct-instance gx#reserved-expander::t _$args5472_))) + (lambda _$args5548_ + (apply make-struct-instance gx#reserved-expander::t _$args5548_))) (define gx#macro-expander::t (make-struct-type 'gx#core-macro::t @@ -470,8 +470,8 @@ '#f)) (define gx#macro-expander? (make-struct-predicate gx#macro-expander::t)) (define gx#make-macro-expander - (lambda _$args5469_ - (apply make-struct-instance gx#macro-expander::t _$args5469_))) + (lambda _$args5545_ + (apply make-struct-instance gx#macro-expander::t _$args5545_))) (define gx#rename-macro-expander::t (make-struct-type 'gx#rename-macro-expander::t @@ -483,8 +483,8 @@ (define gx#rename-macro-expander? (make-struct-predicate gx#rename-macro-expander::t)) (define gx#make-rename-macro-expander - (lambda _$args5466_ - (apply make-struct-instance gx#rename-macro-expander::t _$args5466_))) + (lambda _$args5542_ + (apply make-struct-instance gx#rename-macro-expander::t _$args5542_))) (define gx#user-expander::t (make-struct-type 'gx#macro-expander::t @@ -495,8 +495,8 @@ '#f)) (define gx#user-expander? (make-struct-predicate gx#user-expander::t)) (define gx#make-user-expander - (lambda _$args5463_ - (apply make-struct-instance gx#user-expander::t _$args5463_))) + (lambda _$args5539_ + (apply make-struct-instance gx#user-expander::t _$args5539_))) (define gx#user-expander-context (make-struct-field-accessor gx#user-expander::t '0)) (define gx#user-expander-phi @@ -509,8 +509,8 @@ (make-struct-type 'gx#expander-mark::t '#f '4 'expander-mark '() '#f)) (define gx#expander-mark? (make-struct-predicate gx#expander-mark::t)) (define gx#make-expander-mark - (lambda _$args5460_ - (apply make-struct-instance gx#expander-mark::t _$args5460_))) + (lambda _$args5536_ + (apply make-struct-instance gx#expander-mark::t _$args5536_))) (define gx#expander-mark-subst (make-struct-field-accessor gx#expander-mark::t '0)) (define gx#expander-mark-context @@ -531,8 +531,8 @@ (make-struct-type 'gx#syntax-error::t error::t '3 'syntax-error '() '#f)) (define gx#syntax-error? (make-struct-predicate gx#syntax-error::t)) (define gx#make-syntax-error - (lambda _$args5457_ - (apply make-struct-instance gx#syntax-error::t _$args5457_))) + (lambda _$args5533_ + (apply make-struct-instance gx#syntax-error::t _$args5533_))) (define gx#syntax-error-context (make-struct-field-accessor gx#syntax-error::t '0)) (define gx#syntax-error-marks @@ -546,872 +546,872 @@ (define gx#syntax-error-phi-set! (make-struct-field-mutator gx#syntax-error::t '2)) (define gx#raise-syntax-error - (lambda (_where5452_ _message5453_ _stx5454_ . _details5455_) + (lambda (_where5528_ _message5529_ _stx5530_ . _details5531_) (raise (make-struct-instance gx#syntax-error::t - _message5453_ - (cons _stx5454_ _details5455_) - _where5452_ + _message5529_ + (cons _stx5530_ _details5531_) + _where5528_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi))))) (begin - (define gx#eval-syntax__opt-lambda5437 - (lambda (_stx5439_ _expression?5440_) + (define gx#eval-syntax__opt-lambda5513 + (lambda (_stx5515_ _expression?5516_) (gx#eval-syntax* - (gx#core-expand__opt-lambda5421 _stx5439_ _expression?5440_)))) + (gx#core-expand__opt-lambda5497 _stx5515_ _expression?5516_)))) (begin (define gx#eval-syntax__0 - (lambda (_stx5445_) - (let ((_expression?5447_ '#f)) - (gx#eval-syntax__opt-lambda5437 _stx5445_ _expression?5447_)))) + (lambda (_stx5521_) + (let ((_expression?5523_ '#f)) + (gx#eval-syntax__opt-lambda5513 _stx5521_ _expression?5523_)))) (define gx#eval-syntax - (lambda _g5586_ - (let ((_g5585_ (length _g5586_))) - (cond ((fx= _g5585_ 1) (apply gx#eval-syntax__0 _g5586_)) - ((fx= _g5585_ 2) - (apply gx#eval-syntax__opt-lambda5437 _g5586_)) - (else (error "No clause matching arguments" _g5586_)))))))) + (lambda _g5662_ + (let ((_g5661_ (length _g5662_))) + (cond ((fx= _g5661_ 1) (apply gx#eval-syntax__0 _g5662_)) + ((fx= _g5661_ 2) + (apply gx#eval-syntax__opt-lambda5513 _g5662_)) + (else (error "No clause matching arguments" _g5662_)))))))) (define gx#eval-syntax* - (lambda (_stx5436_) - ((gx#current-expander-eval) ((gx#current-expander-compile) _stx5436_)))) + (lambda (_stx5512_) + ((gx#current-expander-eval) ((gx#current-expander-compile) _stx5512_)))) (begin - (define gx#core-expand__opt-lambda5421 - (lambda (_stx5423_ _expression?5424_) - (if _expression?5424_ - (gx#core-expand-expression _stx5423_) - (gx#core-expand-top _stx5423_)))) + (define gx#core-expand__opt-lambda5497 + (lambda (_stx5499_ _expression?5500_) + (if _expression?5500_ + (gx#core-expand-expression _stx5499_) + (gx#core-expand-top _stx5499_)))) (begin (define gx#core-expand__0 - (lambda (_stx5429_) - (let ((_expression?5431_ '#f)) - (gx#core-expand__opt-lambda5421 _stx5429_ _expression?5431_)))) + (lambda (_stx5505_) + (let ((_expression?5507_ '#f)) + (gx#core-expand__opt-lambda5497 _stx5505_ _expression?5507_)))) (define gx#core-expand - (lambda _g5588_ - (let ((_g5587_ (length _g5588_))) - (cond ((fx= _g5587_ 1) (apply gx#core-expand__0 _g5588_)) - ((fx= _g5587_ 2) - (apply gx#core-expand__opt-lambda5421 _g5588_)) - (else (error "No clause matching arguments" _g5588_)))))))) + (lambda _g5664_ + (let ((_g5663_ (length _g5664_))) + (cond ((fx= _g5663_ 1) (apply gx#core-expand__0 _g5664_)) + ((fx= _g5663_ 2) + (apply gx#core-expand__opt-lambda5497 _g5664_)) + (else (error "No clause matching arguments" _g5664_)))))))) (define gx#core-expand-top - (lambda (_stx5390_) - (let ((_stx5392_ (gx#core-expand*__0 _stx5390_))) - (let ((_e53935400_ _stx5392_)) - (let ((_E53955404_ - (lambda () (gx#core-expand-expression _stx5392_)))) - (let ((_E53945418_ + (lambda (_stx5466_) + (let ((_stx5468_ (gx#core-expand*__0 _stx5466_))) + (let ((_e54695476_ _stx5468_)) + (let ((_E54715480_ + (lambda () (gx#core-expand-expression _stx5468_)))) + (let ((_E54705494_ (lambda () - (if (gx#stx-pair? _e53935400_) - (let ((_e53965408_ (gx#syntax-e _e53935400_))) - (let ((_hd53975411_ (##car _e53965408_)) - (_tl53985413_ (##cdr _e53965408_))) - (let ((_form5416_ _hd53975411_)) - (if (gx#core-bound-identifier?__0 _form5416_) - _stx5392_ - (_E53955404_))))) - (_E53955404_))))) - (let () (_E53945418_)))))))) + (if (gx#stx-pair? _e54695476_) + (let ((_e54725484_ (gx#syntax-e _e54695476_))) + (let ((_hd54735487_ (##car _e54725484_)) + (_tl54745489_ (##cdr _e54725484_))) + (let ((_form5492_ _hd54735487_)) + (if (gx#core-bound-identifier?__0 _form5492_) + _stx5468_ + (_E54715480_))))) + (_E54715480_))))) + (let () (_E54705494_)))))))) (define gx#core-expand-expression - (lambda (_stx5312_) - (let ((_sealed-expression?5314_ - (lambda (_hd5360_) - (if (gx#sealed-syntax? _hd5360_) - (let ((_e53615368_ _hd5360_)) - (let ((_E53635372_ (lambda () '#f))) - (let ((_E53625386_ + (lambda (_stx5388_) + (let ((_sealed-expression?5390_ + (lambda (_hd5436_) + (if (gx#sealed-syntax? _hd5436_) + (let ((_e54375444_ _hd5436_)) + (let ((_E54395448_ (lambda () '#f))) + (let ((_E54385462_ (lambda () - (if (gx#stx-pair? _e53615368_) - (let ((_e53645376_ - (gx#syntax-e _e53615368_))) - (let ((_hd53655379_ (##car _e53645376_)) - (_tl53665381_ (##cdr _e53645376_))) - (let ((_form5384_ _hd53655379_)) + (if (gx#stx-pair? _e54375444_) + (let ((_e54405452_ + (gx#syntax-e _e54375444_))) + (let ((_hd54415455_ (##car _e54405452_)) + (_tl54425457_ (##cdr _e54405452_))) + (let ((_form5460_ _hd54415455_)) (if '#t - (gx#core-bound-identifier?__opt-lambda3961 - _form5384_ + (gx#core-bound-identifier?__opt-lambda4037 + _form5460_ gx#expression-form-binding?) - (_E53635372_))))) - (_E53635372_))))) - (let () (_E53625386_))))) + (_E54395448_))))) + (_E54395448_))))) + (let () (_E54385462_))))) '#f)))) - (let ((_illegal-expression5315_ - (lambda (_hd5358_ . _g5589_) + (let ((_illegal-expression5391_ + (lambda (_hd5434_ . _g5665_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _stx5312_ - _hd5358_)))) - (let ((_expand-e5316_ - (lambda (_form5353_ _hd5354_) - (let ((_bind5356_ + _stx5388_ + _hd5434_)))) + (let ((_expand-e5392_ + (lambda (_form5429_ _hd5430_) + (let ((_bind5432_ (if (##structure-instance-of? - _form5353_ + _form5429_ 'gx#binding::t) - _form5353_ - (gx#resolve-identifier__0 _form5353_)))) - (if (gx#core-expander-binding? _bind5356_) + _form5429_ + (gx#resolve-identifier__0 _form5429_)))) + (if (gx#core-expander-binding? _bind5432_) (gx#core-apply-expander__0 (##structure-ref - _bind5356_ + _bind5432_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd5354_ - (gx#stx-source _stx5312_))) + _hd5430_ + (gx#stx-source _stx5388_))) (if (##structure-direct-instance-of? - _bind5356_ + _bind5432_ 'gx#syntax-binding::t) (gx#core-expand-expression (gx#core-apply-expander__0 (##structure-ref - _bind5356_ + _bind5432_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd5354_ - (gx#stx-source _stx5312_)))) + _hd5430_ + (gx#stx-source _stx5388_)))) (gx#raise-syntax-error '#f '"Bad syntax; missing expander" - _stx5312_ - _form5353_))))))) - (let ((_hd5318_ (gx#core-expand-head _stx5312_))) - (if (_sealed-expression?5314_ _hd5318_) - _hd5318_ - (if (gx#stx-pair? _hd5318_) - (let ((_e53195326_ _hd5318_)) - (let ((_E53215330_ + _stx5388_ + _form5429_))))))) + (let ((_hd5394_ (gx#core-expand-head _stx5388_))) + (if (_sealed-expression?5390_ _hd5394_) + _hd5394_ + (if (gx#stx-pair? _hd5394_) + (let ((_e53955402_ _hd5394_)) + (let ((_E53975406_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e53195326_)))) - (let ((_E53205349_ + _e53955402_)))) + (let ((_E53965425_ (lambda () - (if (gx#stx-pair? _e53195326_) - (let ((_e53225334_ - (gx#syntax-e _e53195326_))) - (let ((_hd53235337_ - (##car _e53225334_)) - (_tl53245339_ - (##cdr _e53225334_))) - (let ((_form5342_ _hd53235337_)) + (if (gx#stx-pair? _e53955402_) + (let ((_e53985410_ + (gx#syntax-e _e53955402_))) + (let ((_hd53995413_ + (##car _e53985410_)) + (_tl54005415_ + (##cdr _e53985410_))) + (let ((_form5418_ _hd53995413_)) (if '#t - (let ((_bind5344_ + (let ((_bind5420_ (if (gx#identifier? - _form5342_) + _form5418_) (gx#resolve-identifier__0 - _form5342_) + _form5418_) '#f))) - (if (let ((_$e5346_ - (not _bind5344_))) - (if _$e5346_ - _$e5346_ + (if (let ((_$e5422_ + (not _bind5420_))) + (if _$e5422_ + _$e5422_ (not (gx#core-expander-binding? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind5344_)))) - (_expand-e5316_ '%#call (cons '%#call _hd5318_)) - (if (eq? (##structure-ref _bind5344_ '1 gx#binding::t '#f) + _bind5420_)))) + (_expand-e5392_ '%#call (cons '%#call _hd5394_)) + (if (eq? (##structure-ref _bind5420_ '1 gx#binding::t '#f) '%#begin) - (gx#core-expand-block* _hd5318_ _illegal-expression5315_) - (if (gx#expression-form-binding? _bind5344_) - (_expand-e5316_ _bind5344_ _hd5318_) - (_illegal-expression5315_ _hd5318_))))) + (gx#core-expand-block* _hd5394_ _illegal-expression5391_) + (if (gx#expression-form-binding? _bind5420_) + (_expand-e5392_ _bind5420_ _hd5394_) + (_illegal-expression5391_ _hd5394_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E53215330_))))) - (_E53215330_))))) - (let () (_E53205349_))))) - (if (gx#core-bound-identifier?__0 _hd5318_) - (_illegal-expression5315_ _hd5318_) - (if (gx#identifier? _hd5318_) - (_expand-e5316_ + (_E53975406_))))) + (_E53975406_))))) + (let () (_E53965425_))))) + (if (gx#core-bound-identifier?__0 _hd5394_) + (_illegal-expression5391_ _hd5394_) + (if (gx#identifier? _hd5394_) + (_expand-e5392_ '%#ref - (cons '%#ref (cons _hd5318_ '()))) - (if (gx#stx-datum? _hd5318_) - (_expand-e5316_ + (cons '%#ref (cons _hd5394_ '()))) + (if (gx#stx-datum? _hd5394_) + (_expand-e5392_ '%#quote - (cons '%#quote (cons _hd5318_ '()))) - (_illegal-expression5315_ - _hd5318_)))))))))))) + (cons '%#quote (cons _hd5394_ '()))) + (_illegal-expression5391_ + _hd5394_)))))))))))) (define gx#core-expand-expression+1 - (lambda (_stx5307_) + (lambda (_stx5383_) (call-with-parameters (lambda () - (let ((_stx5310_ (gx#core-expand-expression _stx5307_))) - (values _stx5310_ (gx#eval-syntax* _stx5310_)))) + (let ((_stx5386_ (gx#core-expand-expression _stx5383_))) + (values _stx5386_ (gx#eval-syntax* _stx5386_)))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)))) (begin - (define gx#core-expand*__opt-lambda5286 - (lambda (_stx5288_ _stop?5289_) - ((letrec ((_lp5291_ - (lambda (_stx5293_) - (if (_stop?5289_ _stx5293_) - _stx5293_ - (let ((_rstx5295_ (gx#core-expand1 _stx5293_))) - (if (eq? _stx5293_ _rstx5295_) - _stx5293_ - (_lp5291_ _rstx5295_))))))) - _lp5291_) - _stx5288_))) + (define gx#core-expand*__opt-lambda5362 + (lambda (_stx5364_ _stop?5365_) + ((letrec ((_lp5367_ + (lambda (_stx5369_) + (if (_stop?5365_ _stx5369_) + _stx5369_ + (let ((_rstx5371_ (gx#core-expand1 _stx5369_))) + (if (eq? _stx5369_ _rstx5371_) + _stx5369_ + (_lp5367_ _rstx5371_))))))) + _lp5367_) + _stx5364_))) (begin (define gx#core-expand*__0 - (lambda (_stx5300_) - (let ((_stop?5302_ false)) - (gx#core-expand*__opt-lambda5286 _stx5300_ _stop?5302_)))) + (lambda (_stx5376_) + (let ((_stop?5378_ false)) + (gx#core-expand*__opt-lambda5362 _stx5376_ _stop?5378_)))) (define gx#core-expand* - (lambda _g5591_ - (let ((_g5590_ (length _g5591_))) - (cond ((fx= _g5590_ 1) (apply gx#core-expand*__0 _g5591_)) - ((fx= _g5590_ 2) - (apply gx#core-expand*__opt-lambda5286 _g5591_)) - (else (error "No clause matching arguments" _g5591_)))))))) + (lambda _g5667_ + (let ((_g5666_ (length _g5667_))) + (cond ((fx= _g5666_ 1) (apply gx#core-expand*__0 _g5667_)) + ((fx= _g5666_ 2) + (apply gx#core-expand*__opt-lambda5362 _g5667_)) + (else (error "No clause matching arguments" _g5667_)))))))) (define gx#core-expand1 - (lambda (_stx5238_) - (let ((_step5240_ - (lambda (_hd5277_) - (let ((_bind5279_ (gx#resolve-identifier__0 _hd5277_))) + (lambda (_stx5314_) + (let ((_step5316_ + (lambda (_hd5353_) + (let ((_bind5355_ (gx#resolve-identifier__0 _hd5353_))) (if (##structure-instance-of? - _bind5279_ + _bind5355_ 'gx#runtime-binding::t) - _stx5238_ + _stx5314_ (if (##structure-direct-instance-of? - _bind5279_ + _bind5355_ 'gx#syntax-binding::t) (gx#core-apply-expander__0 (##structure-ref - _bind5279_ + _bind5355_ '4 gx#syntax-binding::t '#f) - _stx5238_) - (if (not _bind5279_) + _stx5314_) + (if (not _bind5355_) (begin - (if (let ((_$e5281_ + (if (let ((_$e5357_ (fxpositive? (gx#current-expander-phi)))) - (if _$e5281_ - _$e5281_ - (let ((_$e5284_ - (gx#core-context-rebind?__opt-lambda4023 + (if _$e5357_ + _$e5357_ + (let ((_$e5360_ + (gx#core-context-rebind?__opt-lambda4099 (gx#core-context-top__0)))) - (if _$e5284_ - _$e5284_ + (if _$e5360_ + _$e5360_ (gx#core-extern-symbol? - (gx#stx-e _hd5277_)))))) + (gx#stx-e _hd5353_)))))) '#!void (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx5238_ - _hd5277_)) - _stx5238_) + _stx5314_ + _hd5353_)) + _stx5314_) (gx#raise-syntax-error '#f '"Bad syntax" - _stx5238_)))))))) - (let ((_e52415249_ _stx5238_)) - (let ((_E52475253_ (lambda () _stx5238_))) - (let ((_E52435259_ + _stx5314_)))))))) + (let ((_e53175325_ _stx5314_)) + (let ((_E53235329_ (lambda () _stx5314_))) + (let ((_E53195335_ (lambda () - (let ((_hd5257_ _e52415249_)) - (if (gx#identifier? _hd5257_) - (_step5240_ _hd5257_) - (_E52475253_)))))) - (let ((_E52425273_ + (let ((_hd5333_ _e53175325_)) + (if (gx#identifier? _hd5333_) + (_step5316_ _hd5333_) + (_E53235329_)))))) + (let ((_E53185349_ (lambda () - (if (gx#stx-pair? _e52415249_) - (let ((_e52445263_ (gx#syntax-e _e52415249_))) - (let ((_hd52455266_ (##car _e52445263_)) - (_tl52465268_ (##cdr _e52445263_))) - (let ((_hd5271_ _hd52455266_)) - (if (gx#identifier? _hd5271_) - (_step5240_ _hd5271_) - (_E52435259_))))) - (_E52435259_))))) - (let () (_E52425273_))))))))) + (if (gx#stx-pair? _e53175325_) + (let ((_e53205339_ (gx#syntax-e _e53175325_))) + (let ((_hd53215342_ (##car _e53205339_)) + (_tl53225344_ (##cdr _e53205339_))) + (let ((_hd5347_ _hd53215342_)) + (if (gx#identifier? _hd5347_) + (_step5316_ _hd5347_) + (_E53195335_))))) + (_E53195335_))))) + (let () (_E53185349_))))))))) (define gx#core-expand-head - (lambda (_stx5204_) - (let ((_stop?5206_ - (lambda (_stx5208_) - (let ((_e52095216_ _stx5208_)) - (let ((_E52115220_ (lambda () '#f))) - (let ((_E52105234_ + (lambda (_stx5280_) + (let ((_stop?5282_ + (lambda (_stx5284_) + (let ((_e52855292_ _stx5284_)) + (let ((_E52875296_ (lambda () '#f))) + (let ((_E52865310_ (lambda () - (if (gx#stx-pair? _e52095216_) - (let ((_e52125224_ (gx#syntax-e _e52095216_))) - (let ((_hd52135227_ (##car _e52125224_)) - (_tl52145229_ (##cdr _e52125224_))) - (let ((_hd5232_ _hd52135227_)) + (if (gx#stx-pair? _e52855292_) + (let ((_e52885300_ (gx#syntax-e _e52855292_))) + (let ((_hd52895303_ (##car _e52885300_)) + (_tl52905305_ (##cdr _e52885300_))) + (let ((_hd5308_ _hd52895303_)) (if '#t (gx#core-bound-identifier?__0 - _hd5232_) - (_E52115220_))))) - (_E52115220_))))) - (let () (_E52105234_)))))))) - (gx#core-expand*__opt-lambda5286 _stx5204_ _stop?5206_)))) + _hd5308_) + (_E52875296_))))) + (_E52875296_))))) + (let () (_E52865310_)))))))) + (gx#core-expand*__opt-lambda5362 _stx5280_ _stop?5282_)))) (begin - (define gx#core-expand-block__opt-lambda5008 - (lambda (_stx5010_ _expand-special5011_ _begin-form5012_ _expand-e5013_) - (letrec ((_expand-splice5015_ - (lambda (_hd5178_ _body5179_ _rest5180_ _r5181_) - (if (gx#stx-list? _body5179_) - (_K5019_ (gx#stx-foldr cons _rest5180_ _body5179_) - _r5181_) + (define gx#core-expand-block__opt-lambda5084 + (lambda (_stx5086_ _expand-special5087_ _begin-form5088_ _expand-e5089_) + (letrec ((_expand-splice5091_ + (lambda (_hd5254_ _body5255_ _rest5256_ _r5257_) + (if (gx#stx-list? _body5255_) + (_K5095_ (gx#stx-foldr cons _rest5256_ _body5255_) + _r5257_) (gx#raise-syntax-error '#f '"Bad syntax" - _stx5010_ - _hd5178_)))) - (_expand-cond-expand5016_ - (lambda (_hd5174_ _rest5175_ _r5176_) - (_K5019_ (cons (gx#core-expand-cond-expand% _hd5174_) - _rest5175_) - _r5176_))) - (_expand-include5017_ - (lambda (_hd5123_ _rest5124_ _r5125_) - (let ((_e51265136_ _hd5123_)) - (let ((_E51285140_ + _stx5086_ + _hd5254_)))) + (_expand-cond-expand5092_ + (lambda (_hd5250_ _rest5251_ _r5252_) + (_K5095_ (cons (gx#core-expand-cond-expand% _hd5250_) + _rest5251_) + _r5252_))) + (_expand-include5093_ + (lambda (_hd5199_ _rest5200_ _r5201_) + (let ((_e52025212_ _hd5199_)) + (let ((_E52045216_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e51265136_)))) - (let ((_E51275170_ + _e52025212_)))) + (let ((_E52035246_ (lambda () - (if (gx#stx-pair? _e51265136_) - (let ((_e51295144_ - (gx#syntax-e _e51265136_))) - (let ((_hd51305147_ (##car _e51295144_)) - (_tl51315149_ - (##cdr _e51295144_))) - (if (gx#stx-pair? _tl51315149_) - (let ((_e51325152_ + (if (gx#stx-pair? _e52025212_) + (let ((_e52055220_ + (gx#syntax-e _e52025212_))) + (let ((_hd52065223_ (##car _e52055220_)) + (_tl52075225_ + (##cdr _e52055220_))) + (if (gx#stx-pair? _tl52075225_) + (let ((_e52085228_ (gx#syntax-e - _tl51315149_))) - (let ((_hd51335155_ - (##car _e51325152_)) - (_tl51345157_ - (##cdr _e51325152_))) - (let ((_path5160_ - _hd51335155_)) + _tl52075225_))) + (let ((_hd52095231_ + (##car _e52085228_)) + (_tl52105233_ + (##cdr _e52085228_))) + (let ((_path5236_ + _hd52095231_)) (if (gx#stx-null? - _tl51345157_) + _tl52105233_) (if (gx#stx-string? - _path5160_) - (let ((_rpath5162_ + _path5236_) + (let ((_rpath5238_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#core-resolve-path__opt-lambda3871 - _path5160_ - (gx#stx-source _hd5123_)))) - (let ((_block5164_ - (gx#core-expand-include%__opt-lambda4757 - _hd5123_ - _rpath5162_))) - (let ((_rbody5167_ + (gx#core-resolve-path__opt-lambda3947 + _path5236_ + (gx#stx-source _hd5199_)))) + (let ((_block5240_ + (gx#core-expand-include%__opt-lambda4833 + _hd5199_ + _rpath5238_))) + (let ((_rbody5243_ (call-with-parameters (lambda () - (gx#core-expand-block__opt-lambda5008 - _block5164_ - _expand-special5011_ + (gx#core-expand-block__opt-lambda5084 + _block5240_ + _expand-special5087_ '#f - _expand-e5013_)) + _expand-e5089_)) gx#current-expander-path - (cons _rpath5162_ (gx#current-expander-path))))) + (cons _rpath5238_ (gx#current-expander-path))))) (let () - (_K5019_ _rest5124_ - (foldr1 cons _r5125_ _rbody5167_)))))) - (_E51285140_)) - (_E51285140_))))) + (_K5095_ _rest5200_ + (foldr1 cons _r5201_ _rbody5243_)))))) + (_E52045216_)) + (_E52045216_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E51285140_)))) - (_E51285140_))))) - (let () (_E51275170_))))))) - (_expand-expression5018_ - (lambda (_hd5119_ _rest5120_ _r5121_) - (_K5019_ _rest5120_ - (cons (_expand-e5013_ _hd5119_) _r5121_)))) - (_K5019_ (lambda (_rest5049_ _r5050_) - (let ((_e50515058_ _rest5049_)) - (let ((_E50535062_ + (_E52045216_)))) + (_E52045216_))))) + (let () (_E52035246_))))))) + (_expand-expression5094_ + (lambda (_hd5195_ _rest5196_ _r5197_) + (_K5095_ _rest5196_ + (cons (_expand-e5089_ _hd5195_) _r5197_)))) + (_K5095_ (lambda (_rest5125_ _r5126_) + (let ((_e51275134_ _rest5125_)) + (let ((_E51295138_ (lambda () - (if _begin-form5012_ + (if _begin-form5088_ (gx#core-quote-syntax__1 (gx#core-cons - _begin-form5012_ - (reverse _r5050_)) - (gx#stx-source _stx5010_)) - _r5050_)))) - (let ((_E50525115_ + _begin-form5088_ + (reverse _r5126_)) + (gx#stx-source _stx5086_)) + _r5126_)))) + (let ((_E51285191_ (lambda () - (if (gx#stx-pair? _e50515058_) - (let ((_e50545066_ - (gx#syntax-e _e50515058_))) - (let ((_hd50555069_ - (##car _e50545066_)) - (_tl50565071_ - (##cdr _e50545066_))) - (let ((_hd5074_ _hd50555069_)) - (let ((_rest5076_ - _tl50565071_)) + (if (gx#stx-pair? _e51275134_) + (let ((_e51305142_ + (gx#syntax-e _e51275134_))) + (let ((_hd51315145_ + (##car _e51305142_)) + (_tl51325147_ + (##cdr _e51305142_))) + (let ((_hd5150_ _hd51315145_)) + (let ((_rest5152_ + _tl51325147_)) (if '#t - (let ((_hd5078_ + (let ((_hd5154_ (gx#core-expand-head ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd5074_))) - (let ((_e50795086_ _hd5078_)) - (let ((_E50815090_ + _hd5150_))) + (let ((_e51555162_ _hd5154_)) + (let ((_E51575166_ (lambda () - (_expand-expression5018_ - _hd5078_ - _rest5076_ - _r5050_)))) - (let ((_E50805111_ + (_expand-expression5094_ + _hd5154_ + _rest5152_ + _r5126_)))) + (let ((_E51565187_ (lambda () - (if (gx#stx-pair? _e50795086_) - (let ((_e50825094_ - (gx#syntax-e _e50795086_))) - (let ((_hd50835097_ (##car _e50825094_)) - (_tl50845099_ (##cdr _e50825094_))) - (let ((_form5102_ _hd50835097_)) - (let ((_body5104_ _tl50845099_)) + (if (gx#stx-pair? _e51555162_) + (let ((_e51585170_ + (gx#syntax-e _e51555162_))) + (let ((_hd51595173_ (##car _e51585170_)) + (_tl51605175_ (##cdr _e51585170_))) + (let ((_form5178_ _hd51595173_)) + (let ((_body5180_ _tl51605175_)) (if '#t - (let ((_bind5106_ + (let ((_bind5182_ (if (gx#identifier? - _form5102_) + _form5178_) (gx#resolve-identifier__0 - _form5102_) + _form5178_) '#f))) (if (gx#special-form-binding? - _bind5106_) - (let ((_$e5108_ + _bind5182_) + (let ((_$e5184_ (##structure-ref - _bind5106_ + _bind5182_ '1 gx#binding::t '#f))) - (if (eq? _$e5108_ + (if (eq? _$e5184_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#begin) - (_expand-splice5015_ - _hd5078_ - _body5104_ - _rest5076_ - _r5050_) - (if (eq? _$e5108_ '%#cond-expand) - (_expand-cond-expand5016_ _hd5078_ _rest5076_ _r5050_) - (if (eq? _$e5108_ '%#include) - (_expand-include5017_ _hd5078_ _rest5076_ _r5050_) - (_expand-special5011_ - _hd5078_ - _K5019_ - _rest5076_ - _r5050_))))) - (_expand-expression5018_ _hd5078_ _rest5076_ _r5050_))) + (_expand-splice5091_ + _hd5154_ + _body5180_ + _rest5152_ + _r5126_) + (if (eq? _$e5184_ '%#cond-expand) + (_expand-cond-expand5092_ _hd5154_ _rest5152_ _r5126_) + (if (eq? _$e5184_ '%#include) + (_expand-include5093_ _hd5154_ _rest5152_ _r5126_) + (_expand-special5087_ + _hd5154_ + _K5095_ + _rest5152_ + _r5126_))))) + (_expand-expression5094_ _hd5154_ _rest5152_ _r5126_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E50815090_)))))) - (_E50815090_))))) - (let () (_E50805111_)))))) - (_E50535062_)))))) + (_E51575166_)))))) + (_E51575166_))))) + (let () (_E51565187_)))))) + (_E51295138_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E50535062_))))) - (let () (_E50525115_)))))))) - (let ((_e50205027_ _stx5010_)) - (let ((_E50225031_ + (_E51295138_))))) + (let () (_E51285191_)))))))) + (let ((_e50965103_ _stx5086_)) + (let ((_E50985107_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e50205027_)))) - (let ((_E50215045_ + (gx#raise-syntax-error '#f '"Bad syntax" _e50965103_)))) + (let ((_E50975121_ (lambda () - (if (gx#stx-pair? _e50205027_) - (let ((_e50235035_ (gx#syntax-e _e50205027_))) - (let ((_hd50245038_ (##car _e50235035_)) - (_tl50255040_ (##cdr _e50235035_))) - (let ((_body5043_ _tl50255040_)) - (if (gx#stx-list? _body5043_) - (_K5019_ _body5043_ '()) - (_E50225031_))))) - (_E50225031_))))) - (let () (_E50215045_)))))))) + (if (gx#stx-pair? _e50965103_) + (let ((_e50995111_ (gx#syntax-e _e50965103_))) + (let ((_hd51005114_ (##car _e50995111_)) + (_tl51015116_ (##cdr _e50995111_))) + (let ((_body5119_ _tl51015116_)) + (if (gx#stx-list? _body5119_) + (_K5095_ _body5119_ '()) + (_E50985107_))))) + (_E50985107_))))) + (let () (_E50975121_)))))))) (begin (define gx#core-expand-block__0 - (lambda (_stx5186_ _expand-special5187_) - (let ((_begin-form5189_ '%#begin)) - (let ((_expand-e5191_ gx#core-expand-expression)) - (gx#core-expand-block__opt-lambda5008 - _stx5186_ - _expand-special5187_ - _begin-form5189_ - _expand-e5191_))))) + (lambda (_stx5262_ _expand-special5263_) + (let ((_begin-form5265_ '%#begin)) + (let ((_expand-e5267_ gx#core-expand-expression)) + (gx#core-expand-block__opt-lambda5084 + _stx5262_ + _expand-special5263_ + _begin-form5265_ + _expand-e5267_))))) (define gx#core-expand-block__1 - (lambda (_stx5193_ _expand-special5194_ _begin-form5195_) - (let ((_expand-e5197_ gx#core-expand-expression)) - (gx#core-expand-block__opt-lambda5008 - _stx5193_ - _expand-special5194_ - _begin-form5195_ - _expand-e5197_)))) + (lambda (_stx5269_ _expand-special5270_ _begin-form5271_) + (let ((_expand-e5273_ gx#core-expand-expression)) + (gx#core-expand-block__opt-lambda5084 + _stx5269_ + _expand-special5270_ + _begin-form5271_ + _expand-e5273_)))) (define gx#core-expand-block - (lambda _g5593_ - (let ((_g5592_ (length _g5593_))) - (cond ((fx= _g5592_ 2) (apply gx#core-expand-block__0 _g5593_)) - ((fx= _g5592_ 3) (apply gx#core-expand-block__1 _g5593_)) - ((fx= _g5592_ 4) - (apply gx#core-expand-block__opt-lambda5008 _g5593_)) - (else (error "No clause matching arguments" _g5593_)))))))) + (lambda _g5669_ + (let ((_g5668_ (length _g5669_))) + (cond ((fx= _g5668_ 2) (apply gx#core-expand-block__0 _g5669_)) + ((fx= _g5668_ 3) (apply gx#core-expand-block__1 _g5669_)) + ((fx= _g5668_ 4) + (apply gx#core-expand-block__opt-lambda5084 _g5669_)) + (else (error "No clause matching arguments" _g5669_)))))))) (define gx#core-expand-block* - (lambda (_stx4958_ _expand-special4959_) - (let ((_g49604971_ - (gx#core-expand-block__1 _stx4958_ _expand-special4959_ '#f))) - (let ((_E49644975_ - (lambda () (error '"No clause matching" _g49604971_)))) - (let ((_try-match49634986_ + (lambda (_stx5034_ _expand-special5035_) + (let ((_g50365047_ + (gx#core-expand-block__1 _stx5034_ _expand-special5035_ '#f))) + (let ((_E50405051_ + (lambda () (error '"No clause matching" _g50365047_)))) + (let ((_try-match50395062_ (lambda () - (let ((_K49654981_ - (lambda (_body4979_) + (let ((_K50415057_ + (lambda (_body5055_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _body4979_)) - (gx#stx-source _stx4958_))))) - (let ((_body4984_ _g49604971_)) - (_K49654981_ _body4984_)))))) - (let ((_try-match49625002_ + (gx#core-cons '%#begin (reverse _body5055_)) + (gx#stx-source _stx5034_))))) + (let ((_body5060_ _g50365047_)) + (_K50415057_ _body5060_)))))) + (let ((_try-match50385078_ (lambda () - (let ((_K49664992_ (lambda (_expr4990_) _expr4990_))) - (if (##pair? _g49604971_) - (let ((_hd49674995_ (##car _g49604971_)) - (_tl49684997_ (##cdr _g49604971_))) - (let ((_expr5000_ _hd49674995_)) - (if (##null? _tl49684997_) - (_K49664992_ _expr5000_) - (_try-match49634986_)))) - (_try-match49634986_)))))) - (let ((_K49695006_ + (let ((_K50425068_ (lambda (_expr5066_) _expr5066_))) + (if (##pair? _g50365047_) + (let ((_hd50435071_ (##car _g50365047_)) + (_tl50445073_ (##cdr _g50365047_))) + (let ((_expr5076_ _hd50435071_)) + (if (##null? _tl50445073_) + (_K50425068_ _expr5076_) + (_try-match50395062_)))) + (_try-match50395062_)))))) + (let ((_K50455082_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _stx4958_)))) - (if (##null? _g49604971_) - (_K49695006_) - (_try-match49625002_))))))))) + _stx5034_)))) + (if (##null? _g50365047_) + (_K50455082_) + (_try-match50385078_))))))))) (define gx#core-expand-cond-expand% - (lambda (_stx4816_) - (letrec ((_satisfied?4818_ - (lambda (_condition4916_) - (let ((_e49174925_ _condition4916_)) - (let ((_E49204929_ + (lambda (_stx4892_) + (letrec ((_satisfied?4894_ + (lambda (_condition4992_) + (let ((_e49935001_ _condition4992_)) + (let ((_E49965005_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e49174925_)))) - (let ((_E49194948_ + _e49935001_)))) + (let ((_E49955024_ (lambda () - (if (gx#stx-pair? _e49174925_) - (let ((_e49214933_ - (gx#syntax-e _e49174925_))) - (let ((_hd49224936_ (##car _e49214933_)) - (_tl49234938_ (##cdr _e49214933_))) - (let ((_combinator4941_ _hd49224936_)) - (let ((_body4943_ _tl49234938_)) - (if (gx#stx-list? _body4943_) - (let ((_$e4945_ + (if (gx#stx-pair? _e49935001_) + (let ((_e49975009_ + (gx#syntax-e _e49935001_))) + (let ((_hd49985012_ (##car _e49975009_)) + (_tl49995014_ (##cdr _e49975009_))) + (let ((_combinator5017_ _hd49985012_)) + (let ((_body5019_ _tl49995014_)) + (if (gx#stx-list? _body5019_) + (let ((_$e5021_ (gx#stx-e - _combinator4941_))) - (if (eq? _$e4945_ 'not) + _combinator5017_))) + (if (eq? _$e5021_ 'not) (not (gx#stx-ormap - _satisfied?4818_ - _body4943_)) - (if (eq? _$e4945_ 'and) + _satisfied?4894_ + _body5019_)) + (if (eq? _$e5021_ 'and) (gx#stx-andmap - _satisfied?4818_ - _body4943_) - (if (eq? _$e4945_ 'or) + _satisfied?4894_ + _body5019_) + (if (eq? _$e5021_ 'or) (gx#stx-ormap - _satisfied?4818_ - _body4943_) - (if (eq? _$e4945_ + _satisfied?4894_ + _body5019_) + (if (eq? _$e5021_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'defined) - (gx#stx-andmap gx#core-resolve-identifier _body4943_) + (gx#stx-andmap gx#core-resolve-identifier _body5019_) (gx#raise-syntax-error '#f '"Bad syntax" - _stx4816_ - _combinator4941_)))))) + _stx4892_ + _combinator5017_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E49204929_)))))) - (_E49204929_))))) - (let ((_E49184954_ + (_E49965005_)))))) + (_E49965005_))))) + (let ((_E49945030_ (lambda () - (let ((_id4952_ _e49174925_)) - (if (gx#identifier? _id4952_) - (gx#core-bound-identifier?__opt-lambda3961 - _id4952_ + (let ((_id5028_ _e49935001_)) + (if (gx#identifier? _id5028_) + (gx#core-bound-identifier?__opt-lambda4037 + _id5028_ gx#feature-binding?) - (_E49194948_)))))) - (let () (_E49184954_)))))))) - (_loop4819_ - (lambda (_rest4849_) - (let ((_e48504858_ _rest4849_)) - (let ((_E48564862_ + (_E49955024_)))))) + (let () (_E49945030_)))))))) + (_loop4895_ + (lambda (_rest4925_) + (let ((_e49264934_ _rest4925_)) + (let ((_E49324938_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e48504858_)))) - (let ((_E48524866_ + _e49264934_)))) + (let ((_E49284942_ (lambda () - (if (gx#stx-null? _e48504858_) - (if '#t '() (_E48564862_)) - (_E48564862_))))) - (let ((_E48514912_ + (if (gx#stx-null? _e49264934_) + (if '#t '() (_E49324938_)) + (_E49324938_))))) + (let ((_E49274988_ (lambda () - (if (gx#stx-pair? _e48504858_) - (let ((_e48534870_ - (gx#syntax-e _e48504858_))) - (let ((_hd48544873_ (##car _e48534870_)) - (_tl48554875_ - (##cdr _e48534870_))) - (let ((_hd4878_ _hd48544873_)) - (let ((_rest4880_ _tl48554875_)) + (if (gx#stx-pair? _e49264934_) + (let ((_e49294946_ + (gx#syntax-e _e49264934_))) + (let ((_hd49304949_ (##car _e49294946_)) + (_tl49314951_ + (##cdr _e49294946_))) + (let ((_hd4954_ _hd49304949_)) + (let ((_rest4956_ _tl49314951_)) (if '#t - (let ((_e48814888_ _hd4878_)) - (let ((_E48834892_ + (let ((_e49574964_ _hd4954_)) + (let ((_E49594968_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e48814888_)))) - (let ((_E48824908_ + _e49574964_)))) + (let ((_E49584984_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e48814888_) - (let ((_e48844896_ (gx#syntax-e _e48814888_))) - (let ((_hd48854899_ (##car _e48844896_)) - (_tl48864901_ (##cdr _e48844896_))) - (let ((_condition4904_ _hd48854899_)) - (let ((_body4906_ _tl48864901_)) + _e49574964_) + (let ((_e49604972_ (gx#syntax-e _e49574964_))) + (let ((_hd49614975_ (##car _e49604972_)) + (_tl49624977_ (##cdr _e49604972_))) + (let ((_condition4980_ _hd49614975_)) + (let ((_body4982_ _tl49624977_)) (if '#t - (if (gx#stx-eq? _condition4904_ 'else) - (if (gx#stx-null? _rest4880_) - _body4906_ + (if (gx#stx-eq? _condition4980_ 'else) + (if (gx#stx-null? _rest4956_) + _body4982_ (gx#raise-syntax-error '#f '"Bad syntax" - _stx4816_ - _hd4878_)) - (if (_satisfied?4818_ - _condition4904_) - _body4906_ - (_loop4819_ _rest4880_))) - (_E48834892_)))))) - (_E48834892_))))) - (let () (_E48824908_))))) + _stx4892_ + _hd4954_)) + (if (_satisfied?4894_ + _condition4980_) + _body4982_ + (_loop4895_ _rest4956_))) + (_E49594968_)))))) + (_E49594968_))))) + (let () (_E49584984_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E48524866_)))))) - (_E48524866_))))) - (let () (_E48514912_))))))))) - (let ((_e48204827_ _stx4816_)) - (let ((_E48224831_ + (_E49284942_)))))) + (_E49284942_))))) + (let () (_E49274988_))))))))) + (let ((_e48964903_ _stx4892_)) + (let ((_E48984907_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e48204827_)))) - (let ((_E48214845_ + (gx#raise-syntax-error '#f '"Bad syntax" _e48964903_)))) + (let ((_E48974921_ (lambda () - (if (gx#stx-pair? _e48204827_) - (let ((_e48234835_ (gx#syntax-e _e48204827_))) - (let ((_hd48244838_ (##car _e48234835_)) - (_tl48254840_ (##cdr _e48234835_))) - (let ((_clauses4843_ _tl48254840_)) - (if (gx#stx-list? _clauses4843_) + (if (gx#stx-pair? _e48964903_) + (let ((_e48994911_ (gx#syntax-e _e48964903_))) + (let ((_hd49004914_ (##car _e48994911_)) + (_tl49014916_ (##cdr _e48994911_))) + (let ((_clauses4919_ _tl49014916_)) + (if (gx#stx-list? _clauses4919_) (gx#core-cons '%#begin - (_loop4819_ _clauses4843_)) - (_E48224831_))))) - (_E48224831_))))) - (let () (_E48214845_)))))))) + (_loop4895_ _clauses4919_)) + (_E48984907_))))) + (_E48984907_))))) + (let () (_E48974921_)))))))) (begin - (define gx#core-expand-include%__opt-lambda4757 - (lambda (_stx4759_ _rpath4760_) - (let ((_e47614771_ _stx4759_)) - (let ((_E47634775_ + (define gx#core-expand-include%__opt-lambda4833 + (lambda (_stx4835_ _rpath4836_) + (let ((_e48374847_ _stx4835_)) + (let ((_E48394851_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e47614771_)))) - (let ((_E47624802_ + (gx#raise-syntax-error '#f '"Bad syntax" _e48374847_)))) + (let ((_E48384878_ (lambda () - (if (gx#stx-pair? _e47614771_) - (let ((_e47644779_ (gx#syntax-e _e47614771_))) - (let ((_hd47654782_ (##car _e47644779_)) - (_tl47664784_ (##cdr _e47644779_))) - (if (gx#stx-pair? _tl47664784_) - (let ((_e47674787_ - (gx#syntax-e _tl47664784_))) - (let ((_hd47684790_ (##car _e47674787_)) - (_tl47694792_ (##cdr _e47674787_))) - (let ((_path4795_ _hd47684790_)) - (if (gx#stx-null? _tl47694792_) - (if (gx#stx-string? _path4795_) - (let ((_rpath4800_ - (let ((_$e4797_ - _rpath4760_)) - (if _$e4797_ - _$e4797_ - (gx#core-resolve-path__opt-lambda3871 - _path4795_ + (if (gx#stx-pair? _e48374847_) + (let ((_e48404855_ (gx#syntax-e _e48374847_))) + (let ((_hd48414858_ (##car _e48404855_)) + (_tl48424860_ (##cdr _e48404855_))) + (if (gx#stx-pair? _tl48424860_) + (let ((_e48434863_ + (gx#syntax-e _tl48424860_))) + (let ((_hd48444866_ (##car _e48434863_)) + (_tl48454868_ (##cdr _e48434863_))) + (let ((_path4871_ _hd48444866_)) + (if (gx#stx-null? _tl48454868_) + (if (gx#stx-string? _path4871_) + (let ((_rpath4876_ + (let ((_$e4873_ + _rpath4836_)) + (if _$e4873_ + _$e4873_ + (gx#core-resolve-path__opt-lambda3947 + _path4871_ (gx#stx-source - _stx4759_)))))) - (if (member _rpath4800_ + _stx4835_)))))) + (if (member _rpath4876_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _stx4759_) + _stx4835_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons '%#begin (read-syntax-from-file - _rpath4800_)) + _rpath4876_)) (gx#stx-source - _stx4759_))))) - (_E47634775_)) - (_E47634775_))))) - (_E47634775_)))) - (_E47634775_))))) - (let () (_E47624802_))))))) + _stx4835_))))) + (_E48394851_)) + (_E48394851_))))) + (_E48394851_)))) + (_E48394851_))))) + (let () (_E48384878_))))))) (begin (define gx#core-expand-include%__0 - (lambda (_stx4809_) - (let ((_rpath4811_ '#f)) - (gx#core-expand-include%__opt-lambda4757 _stx4809_ _rpath4811_)))) + (lambda (_stx4885_) + (let ((_rpath4887_ '#f)) + (gx#core-expand-include%__opt-lambda4833 _stx4885_ _rpath4887_)))) (define gx#core-expand-include% - (lambda _g5595_ - (let ((_g5594_ (length _g5595_))) - (cond ((fx= _g5594_ 1) (apply gx#core-expand-include%__0 _g5595_)) - ((fx= _g5594_ 2) - (apply gx#core-expand-include%__opt-lambda4757 _g5595_)) - (else (error "No clause matching arguments" _g5595_)))))))) + (lambda _g5671_ + (let ((_g5670_ (length _g5671_))) + (cond ((fx= _g5670_ 1) (apply gx#core-expand-include%__0 _g5671_)) + ((fx= _g5670_ 2) + (apply gx#core-expand-include%__opt-lambda4833 _g5671_)) + (else (error "No clause matching arguments" _g5671_)))))))) (begin - (define gx#core-apply-expander__opt-lambda4726 - (lambda (_K4728_ _stx4729_ _method4730_) - (if (procedure? _K4728_) - (let ((_$e4732_ (gx#stx-source _stx4729_))) - (if _$e4732_ - ((lambda (_g47344736_) - (gx#stx-wrap-source (_K4728_ _stx4729_) _g47344736_)) - _$e4732_) - (_K4728_ _stx4729_))) - (let ((_$e4739_ (bound-method-ref _K4728_ _method4730_))) - (if _$e4739_ - ((lambda (_g47414743_) - (gx#core-apply-expander__opt-lambda4726 - _g47414743_ - _stx4729_ - _method4730_)) - _$e4739_) + (define gx#core-apply-expander__opt-lambda4802 + (lambda (_K4804_ _stx4805_ _method4806_) + (if (procedure? _K4804_) + (let ((_$e4808_ (gx#stx-source _stx4805_))) + (if _$e4808_ + ((lambda (_g48104812_) + (gx#stx-wrap-source (_K4804_ _stx4805_) _g48104812_)) + _$e4808_) + (_K4804_ _stx4805_))) + (let ((_$e4815_ (bound-method-ref _K4804_ _method4806_))) + (if _$e4815_ + ((lambda (_g48174819_) + (gx#core-apply-expander__opt-lambda4802 + _g48174819_ + _stx4805_ + _method4806_)) + _$e4815_) (gx#raise-syntax-error '#f '"Bad syntax" - _stx4729_ - _method4730_)))))) + _stx4805_ + _method4806_)))))) (begin (define gx#core-apply-expander__0 - (lambda (_K4749_ _stx4750_) - (let ((_method4752_ 'apply-macro-expander)) - (gx#core-apply-expander__opt-lambda4726 - _K4749_ - _stx4750_ - _method4752_)))) + (lambda (_K4825_ _stx4826_) + (let ((_method4828_ 'apply-macro-expander)) + (gx#core-apply-expander__opt-lambda4802 + _K4825_ + _stx4826_ + _method4828_)))) (define gx#core-apply-expander - (lambda _g5597_ - (let ((_g5596_ (length _g5597_))) - (cond ((fx= _g5596_ 2) (apply gx#core-apply-expander__0 _g5597_)) - ((fx= _g5596_ 3) - (apply gx#core-apply-expander__opt-lambda4726 _g5597_)) - (else (error "No clause matching arguments" _g5597_)))))))) + (lambda _g5673_ + (let ((_g5672_ (length _g5673_))) + (cond ((fx= _g5672_ 2) (apply gx#core-apply-expander__0 _g5673_)) + ((fx= _g5672_ 3) + (apply gx#core-apply-expander__opt-lambda4802 _g5673_)) + (else (error "No clause matching arguments" _g5673_)))))))) (define gx#expander::apply-macro-expander - (lambda (_self4724_ _stx4725_) - (gx#raise-syntax-error '#f '"Bad syntax" _stx4725_))) + (lambda (_self4800_ _stx4801_) + (gx#raise-syntax-error '#f '"Bad syntax" _stx4801_))) (bind-method! gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (lambda (_self4699_ _stx4700_) - (let ((_self47014707_ _self4699_)) - (let ((_E47034711_ - (lambda () (error '"No clause matching" _self47014707_)))) - (let ((_K47044716_ - (lambda (_K4714_) - (gx#core-apply-expander__0 _K4714_ _stx4700_)))) - (if (struct-instance? gx#macro-expander::t _self47014707_) - (let ((_e47054719_ (##vector-ref _self47014707_ '1))) - (let ((_K4722_ _e47054719_)) (_K47044716_ _K4722_))) - (_E47034711_))))))) + (lambda (_self4775_ _stx4776_) + (let ((_self47774783_ _self4775_)) + (let ((_E47794787_ + (lambda () (error '"No clause matching" _self47774783_)))) + (let ((_K47804792_ + (lambda (_K4790_) + (gx#core-apply-expander__0 _K4790_ _stx4776_)))) + (if (struct-instance? gx#macro-expander::t _self47774783_) + (let ((_e47814795_ (##vector-ref _self47774783_ '1))) + (let ((_K4798_ _e47814795_)) (_K47804792_ _K4798_))) + (_E47794787_))))))) (bind-method! gx#macro-expander::t 'apply-macro-expander gx#macro-expander::apply-macro-expander '#f) (define gx#core-expander::apply-macro-expander - (lambda (_self4674_ _stx4675_) - (if (gx#sealed-syntax? _stx4675_) - _stx4675_ - (let ((_self46764682_ _self4674_)) - (let ((_E46784686_ - (lambda () (error '"No clause matching" _self46764682_)))) - (let ((_K46794691_ - (lambda (_K4689_) - (gx#core-apply-expander__0 _K4689_ _stx4675_)))) - (if (struct-instance? gx#core-expander::t _self46764682_) - (let ((_e46804694_ (##vector-ref _self46764682_ '1))) - (let ((_K4697_ _e46804694_)) (_K46794691_ _K4697_))) - (_E46784686_)))))))) + (lambda (_self4750_ _stx4751_) + (if (gx#sealed-syntax? _stx4751_) + _stx4751_ + (let ((_self47524758_ _self4750_)) + (let ((_E47544762_ + (lambda () (error '"No clause matching" _self47524758_)))) + (let ((_K47554767_ + (lambda (_K4765_) + (gx#core-apply-expander__0 _K4765_ _stx4751_)))) + (if (struct-instance? gx#core-expander::t _self47524758_) + (let ((_e47564770_ (##vector-ref _self47524758_ '1))) + (let ((_K4773_ _e47564770_)) (_K47554767_ _K4773_))) + (_E47544762_)))))))) (bind-method! gx#core-expander::t 'apply-macro-expander gx#core-expander::apply-macro-expander '#f) (begin - (define gx#top-special-form::apply-macro-expander__opt-lambda4656 - (lambda (_self4658_ _stx4659_ _top?4660_) - (if (_top?4660_ (gx#current-expander-context)) - (gx#core-expander::apply-macro-expander _self4658_ _stx4659_) + (define gx#top-special-form::apply-macro-expander__opt-lambda4732 + (lambda (_self4734_ _stx4735_ _top?4736_) + (if (_top?4736_ (gx#current-expander-context)) + (gx#core-expander::apply-macro-expander _self4734_ _stx4735_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _stx4659_)))) + _stx4735_)))) (begin (define gx#top-special-form::apply-macro-expander__0 - (lambda (_self4665_ _stx4666_) - (let ((_top?4668_ gx#top-context?)) - (gx#top-special-form::apply-macro-expander__opt-lambda4656 - _self4665_ - _stx4666_ - _top?4668_)))) + (lambda (_self4741_ _stx4742_) + (let ((_top?4744_ gx#top-context?)) + (gx#top-special-form::apply-macro-expander__opt-lambda4732 + _self4741_ + _stx4742_ + _top?4744_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g5599_ - (let ((_g5598_ (length _g5599_))) - (cond ((fx= _g5598_ 2) + (lambda _g5675_ + (let ((_g5674_ (length _g5675_))) + (cond ((fx= _g5674_ 2) (apply gx#top-special-form::apply-macro-expander__0 - _g5599_)) - ((fx= _g5598_ 3) - (apply gx#top-special-form::apply-macro-expander__opt-lambda4656 - _g5599_)) - (else (error "No clause matching arguments" _g5599_)))))))) + _g5675_)) + ((fx= _g5674_ 3) + (apply gx#top-special-form::apply-macro-expander__opt-lambda4732 + _g5675_)) + (else (error "No clause matching arguments" _g5675_)))))))) (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 (_self4654_ _stx4655_) - (gx#top-special-form::apply-macro-expander__opt-lambda4656 - _self4654_ - _stx4655_ + (lambda (_self4730_ _stx4731_) + (gx#top-special-form::apply-macro-expander__opt-lambda4732 + _self4730_ + _stx4731_ gx#module-context?))) (bind-method! gx#module-special-form::t @@ -1419,101 +1419,101 @@ gx#module-special-form::apply-macro-expander '#f) (define gx#rename-macro-expander::apply-macro-expander - (lambda (_self4601_ _stx4602_) - (let ((_self46034609_ _self4601_)) - (let ((_E46054613_ - (lambda () (error '"No clause matching" _self46034609_)))) - (let ((_K46064646_ - (lambda (_id4616_) - (let ((_e46174624_ _stx4602_)) - (let ((_E46194628_ + (lambda (_self4677_ _stx4678_) + (let ((_self46794685_ _self4677_)) + (let ((_E46814689_ + (lambda () (error '"No clause matching" _self46794685_)))) + (let ((_K46824722_ + (lambda (_id4692_) + (let ((_e46934700_ _stx4678_)) + (let ((_E46954704_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e46174624_)))) - (let ((_E46184642_ + _e46934700_)))) + (let ((_E46944718_ (lambda () - (if (gx#stx-pair? _e46174624_) - (let ((_e46204632_ - (gx#syntax-e _e46174624_))) - (let ((_hd46214635_ (##car _e46204632_)) - (_tl46224637_ (##cdr _e46204632_))) - (let ((_body4640_ _tl46224637_)) + (if (gx#stx-pair? _e46934700_) + (let ((_e46964708_ + (gx#syntax-e _e46934700_))) + (let ((_hd46974711_ (##car _e46964708_)) + (_tl46984713_ (##cdr _e46964708_))) + (let ((_body4716_ _tl46984713_)) (if '#t (gx#core-cons - _id4616_ - _body4640_) - (_E46194628_))))) - (_E46194628_))))) - (let () (_E46184642_)))))))) - (if (struct-instance? gx#rename-macro-expander::t _self46034609_) - (let ((_e46074649_ (##vector-ref _self46034609_ '1))) - (let ((_id4652_ _e46074649_)) (_K46064646_ _id4652_))) - (_E46054613_))))))) + _id4692_ + _body4716_) + (_E46954704_))))) + (_E46954704_))))) + (let () (_E46944718_)))))))) + (if (struct-instance? gx#rename-macro-expander::t _self46794685_) + (let ((_e46834725_ (##vector-ref _self46794685_ '1))) + (let ((_id4728_ _e46834725_)) (_K46824722_ _id4728_))) + (_E46814689_))))))) (bind-method! gx#rename-macro-expander::t 'apply-macro-expander gx#rename-macro-expander::apply-macro-expander '#f) (begin - (define gx#core-apply-user-expander__opt-lambda4547 - (lambda (_self4549_ _stx4550_ _method4551_) - (let ((_self45524560_ _self4549_)) - (let ((_E45544564_ - (lambda () (error '"No clause matching" _self45524560_)))) - (let ((_K45554571_ - (lambda (_phi4567_ _ctx4568_ _K4569_) + (define gx#core-apply-user-expander__opt-lambda4623 + (lambda (_self4625_ _stx4626_ _method4627_) + (let ((_self46284636_ _self4625_)) + (let ((_E46304640_ + (lambda () (error '"No clause matching" _self46284636_)))) + (let ((_K46314647_ + (lambda (_phi4643_ _ctx4644_ _K4645_) (gx#core-apply-user-macro - _K4569_ - _stx4550_ - _ctx4568_ - _phi4567_ - _method4551_)))) - (if (struct-instance? gx#user-expander::t _self45524560_) - (let ((_e45564574_ (##vector-ref _self45524560_ '1))) - (let ((_K4577_ _e45564574_)) - (let ((_e45574579_ (##vector-ref _self45524560_ '2))) - (let ((_ctx4582_ _e45574579_)) - (let ((_e45584584_ (##vector-ref _self45524560_ '3))) - (let ((_phi4587_ _e45584584_)) - (_K45554571_ _phi4587_ _ctx4582_ _K4577_))))))) - (_E45544564_))))))) + _K4645_ + _stx4626_ + _ctx4644_ + _phi4643_ + _method4627_)))) + (if (struct-instance? gx#user-expander::t _self46284636_) + (let ((_e46324650_ (##vector-ref _self46284636_ '1))) + (let ((_K4653_ _e46324650_)) + (let ((_e46334655_ (##vector-ref _self46284636_ '2))) + (let ((_ctx4658_ _e46334655_)) + (let ((_e46344660_ (##vector-ref _self46284636_ '3))) + (let ((_phi4663_ _e46344660_)) + (_K46314647_ _phi4663_ _ctx4658_ _K4653_))))))) + (_E46304640_))))))) (begin (define gx#core-apply-user-expander__0 - (lambda (_self4592_ _stx4593_) - (let ((_method4595_ 'apply-macro-expander)) - (gx#core-apply-user-expander__opt-lambda4547 - _self4592_ - _stx4593_ - _method4595_)))) + (lambda (_self4668_ _stx4669_) + (let ((_method4671_ 'apply-macro-expander)) + (gx#core-apply-user-expander__opt-lambda4623 + _self4668_ + _stx4669_ + _method4671_)))) (define gx#core-apply-user-expander - (lambda _g5601_ - (let ((_g5600_ (length _g5601_))) - (cond ((fx= _g5600_ 2) - (apply gx#core-apply-user-expander__0 _g5601_)) - ((fx= _g5600_ 3) - (apply gx#core-apply-user-expander__opt-lambda4547 _g5601_)) - (else (error "No clause matching arguments" _g5601_)))))))) + (lambda _g5677_ + (let ((_g5676_ (length _g5677_))) + (cond ((fx= _g5676_ 2) + (apply gx#core-apply-user-expander__0 _g5677_)) + ((fx= _g5676_ 3) + (apply gx#core-apply-user-expander__opt-lambda4623 _g5677_)) + (else (error "No clause matching arguments" _g5677_)))))))) (define gx#core-apply-user-macro - (lambda (_K4539_ _stx4540_ _ctx4541_ _phi4542_ _method4543_) - (let ((_mark4545_ + (lambda (_K4615_ _stx4616_ _ctx4617_ _phi4618_ _method4619_) + (let ((_mark4621_ (##structure gx#expander-mark::t '#f - _ctx4541_ - _phi4542_ - _stx4540_))) + _ctx4617_ + _phi4618_ + _stx4616_))) (call-with-parameters (lambda () (gx#stx-apply-mark - (gx#core-apply-expander__opt-lambda4726 - _K4539_ - (gx#stx-apply-mark _stx4540_ _mark4545_) - _method4543_) - _mark4545_)) + (gx#core-apply-expander__opt-lambda4802 + _K4615_ + (gx#stx-apply-mark _stx4616_ _mark4621_) + _method4619_) + _mark4621_)) gx#current-expander-marks - (cons _mark4545_ (gx#current-expander-marks)))))) + (cons _mark4621_ (gx#current-expander-marks)))))) (define gx#user-expander::apply-macro-expander gx#core-apply-user-expander) (bind-method! gx#user-expander::t @@ -1521,1060 +1521,1060 @@ gx#user-expander::apply-macro-expander '#f) (begin - (define gx#resolve-identifier__opt-lambda4511 - (lambda (_stx4513_ _phi4514_ _ctx4515_) - ((letrec ((_lp4517_ - (lambda (_bind4519_) + (define gx#resolve-identifier__opt-lambda4587 + (lambda (_stx4589_ _phi4590_ _ctx4591_) + ((letrec ((_lp4593_ + (lambda (_bind4595_) (if (##structure-direct-instance-of? - _bind4519_ + _bind4595_ 'gx#import-binding::t) - (_lp4517_ + (_lp4593_ (##structure-ref - _bind4519_ + _bind4595_ '4 gx#import-binding::t '#f)) (if (##structure-direct-instance-of? - _bind4519_ + _bind4595_ 'gx#alias-binding::t) - (_lp4517_ - (gx#core-resolve-identifier__opt-lambda4441 + (_lp4593_ + (gx#core-resolve-identifier__opt-lambda4517 (##structure-ref - _bind4519_ + _bind4595_ '4 gx#alias-binding::t '#f) - _phi4514_ - _ctx4515_)) - _bind4519_))))) - _lp4517_) - (gx#core-resolve-identifier__opt-lambda4441 - _stx4513_ - _phi4514_ - _ctx4515_)))) + _phi4590_ + _ctx4591_)) + _bind4595_))))) + _lp4593_) + (gx#core-resolve-identifier__opt-lambda4517 + _stx4589_ + _phi4590_ + _ctx4591_)))) (begin (define gx#resolve-identifier__0 - (lambda (_stx4524_) - (let ((_phi4526_ (gx#current-expander-phi))) - (let ((_ctx4528_ (gx#current-expander-context))) - (gx#resolve-identifier__opt-lambda4511 - _stx4524_ - _phi4526_ - _ctx4528_))))) + (lambda (_stx4600_) + (let ((_phi4602_ (gx#current-expander-phi))) + (let ((_ctx4604_ (gx#current-expander-context))) + (gx#resolve-identifier__opt-lambda4587 + _stx4600_ + _phi4602_ + _ctx4604_))))) (define gx#resolve-identifier__1 - (lambda (_stx4530_ _phi4531_) - (let ((_ctx4533_ (gx#current-expander-context))) - (gx#resolve-identifier__opt-lambda4511 - _stx4530_ - _phi4531_ - _ctx4533_)))) + (lambda (_stx4606_ _phi4607_) + (let ((_ctx4609_ (gx#current-expander-context))) + (gx#resolve-identifier__opt-lambda4587 + _stx4606_ + _phi4607_ + _ctx4609_)))) (define gx#resolve-identifier - (lambda _g5603_ - (let ((_g5602_ (length _g5603_))) - (cond ((fx= _g5602_ 1) (apply gx#resolve-identifier__0 _g5603_)) - ((fx= _g5602_ 2) (apply gx#resolve-identifier__1 _g5603_)) - ((fx= _g5602_ 3) - (apply gx#resolve-identifier__opt-lambda4511 _g5603_)) - (else (error "No clause matching arguments" _g5603_)))))))) + (lambda _g5679_ + (let ((_g5678_ (length _g5679_))) + (cond ((fx= _g5678_ 1) (apply gx#resolve-identifier__0 _g5679_)) + ((fx= _g5678_ 2) (apply gx#resolve-identifier__1 _g5679_)) + ((fx= _g5678_ 3) + (apply gx#resolve-identifier__opt-lambda4587 _g5679_)) + (else (error "No clause matching arguments" _g5679_)))))))) (begin - (define gx#bind-identifier!__opt-lambda4469 - (lambda (_stx4471_ _val4472_ _rebind?4473_ _phi4474_ _ctx4475_) - (let ((_rebind?4477_ - (if (not _rebind?4473_) + (define gx#bind-identifier!__opt-lambda4545 + (lambda (_stx4547_ _val4548_ _rebind?4549_ _phi4550_ _ctx4551_) + (let ((_rebind?4553_ + (if (not _rebind?4549_) gx#core-context-rebind? - (if (procedure? _rebind?4473_) _rebind?4473_ true)))) - (gx#core-bind!__opt-lambda4231 - (gx#core-identifier-key _stx4471_) - _val4472_ - _rebind?4477_ - _phi4474_ - _ctx4475_)))) + (if (procedure? _rebind?4549_) _rebind?4549_ true)))) + (gx#core-bind!__opt-lambda4307 + (gx#core-identifier-key _stx4547_) + _val4548_ + _rebind?4553_ + _phi4550_ + _ctx4551_)))) (begin (define gx#bind-identifier!__0 - (lambda (_stx4482_ _val4483_) - (let ((_rebind?4485_ '#f)) - (let ((_phi4487_ (gx#current-expander-phi))) - (let ((_ctx4489_ (gx#current-expander-context))) - (gx#bind-identifier!__opt-lambda4469 - _stx4482_ - _val4483_ - _rebind?4485_ - _phi4487_ - _ctx4489_)))))) + (lambda (_stx4558_ _val4559_) + (let ((_rebind?4561_ '#f)) + (let ((_phi4563_ (gx#current-expander-phi))) + (let ((_ctx4565_ (gx#current-expander-context))) + (gx#bind-identifier!__opt-lambda4545 + _stx4558_ + _val4559_ + _rebind?4561_ + _phi4563_ + _ctx4565_)))))) (define gx#bind-identifier!__1 - (lambda (_stx4491_ _val4492_ _rebind?4493_) - (let ((_phi4495_ (gx#current-expander-phi))) - (let ((_ctx4497_ (gx#current-expander-context))) - (gx#bind-identifier!__opt-lambda4469 - _stx4491_ - _val4492_ - _rebind?4493_ - _phi4495_ - _ctx4497_))))) + (lambda (_stx4567_ _val4568_ _rebind?4569_) + (let ((_phi4571_ (gx#current-expander-phi))) + (let ((_ctx4573_ (gx#current-expander-context))) + (gx#bind-identifier!__opt-lambda4545 + _stx4567_ + _val4568_ + _rebind?4569_ + _phi4571_ + _ctx4573_))))) (define gx#bind-identifier!__2 - (lambda (_stx4499_ _val4500_ _rebind?4501_ _phi4502_) - (let ((_ctx4504_ (gx#current-expander-context))) - (gx#bind-identifier!__opt-lambda4469 - _stx4499_ - _val4500_ - _rebind?4501_ - _phi4502_ - _ctx4504_)))) + (lambda (_stx4575_ _val4576_ _rebind?4577_ _phi4578_) + (let ((_ctx4580_ (gx#current-expander-context))) + (gx#bind-identifier!__opt-lambda4545 + _stx4575_ + _val4576_ + _rebind?4577_ + _phi4578_ + _ctx4580_)))) (define gx#bind-identifier! - (lambda _g5605_ - (let ((_g5604_ (length _g5605_))) - (cond ((fx= _g5604_ 2) (apply gx#bind-identifier!__0 _g5605_)) - ((fx= _g5604_ 3) (apply gx#bind-identifier!__1 _g5605_)) - ((fx= _g5604_ 4) (apply gx#bind-identifier!__2 _g5605_)) - ((fx= _g5604_ 5) - (apply gx#bind-identifier!__opt-lambda4469 _g5605_)) - (else (error "No clause matching arguments" _g5605_)))))))) + (lambda _g5681_ + (let ((_g5680_ (length _g5681_))) + (cond ((fx= _g5680_ 2) (apply gx#bind-identifier!__0 _g5681_)) + ((fx= _g5680_ 3) (apply gx#bind-identifier!__1 _g5681_)) + ((fx= _g5680_ 4) (apply gx#bind-identifier!__2 _g5681_)) + ((fx= _g5680_ 5) + (apply gx#bind-identifier!__opt-lambda4545 _g5681_)) + (else (error "No clause matching arguments" _g5681_)))))))) (begin - (define gx#core-resolve-identifier__opt-lambda4441 - (lambda (_stx4443_ _phi4444_ _ctx4445_) - ((letrec ((_lp4447_ - (lambda (_e4449_ _marks4450_) - (if (symbol? _e4449_) + (define gx#core-resolve-identifier__opt-lambda4517 + (lambda (_stx4519_ _phi4520_ _ctx4521_) + ((letrec ((_lp4523_ + (lambda (_e4525_ _marks4526_) + (if (symbol? _e4525_) (gx#core-resolve-binding - _e4449_ - _phi4444_ - _ctx4445_ - (reverse _marks4450_)) - (if (gx#identifier-quote? _e4449_) + _e4525_ + _phi4520_ + _ctx4521_ + (reverse _marks4526_)) + (if (gx#identifier-quote? _e4525_) (gx#core-resolve-binding - (##structure-ref _e4449_ '1 AST::t '#f) - _phi4444_ + (##structure-ref _e4525_ '1 AST::t '#f) + _phi4520_ (##structure-ref - _e4449_ + _e4525_ '3 gx#syntax-quote::t '#f) (##structure-ref - _e4449_ + _e4525_ '4 gx#syntax-quote::t '#f)) (if (##structure-direct-instance-of? - _e4449_ + _e4525_ 'gx#identifier-wrap::t) (gx#core-resolve-binding - (##structure-ref _e4449_ '1 AST::t '#f) - _phi4444_ - _ctx4445_ + (##structure-ref _e4525_ '1 AST::t '#f) + _phi4520_ + _ctx4521_ (foldl1 gx#apply-mark (##structure-ref - _e4449_ + _e4525_ '3 gx#identifier-wrap::t '#f) - _marks4450_)) + _marks4526_)) (if (##structure-direct-instance-of? - _e4449_ + _e4525_ 'gx#syntax-wrap::t) - (_lp4447_ - (##structure-ref _e4449_ '1 AST::t '#f) + (_lp4523_ + (##structure-ref _e4525_ '1 AST::t '#f) (gx#apply-mark (##structure-ref - _e4449_ + _e4525_ '3 gx#syntax-wrap::t '#f) - _marks4450_)) + _marks4526_)) (if (##structure-instance-of? - _e4449_ + _e4525_ 'gerbil#AST::t) - (_lp4447_ + (_lp4523_ (##structure-ref - _e4449_ + _e4525_ '1 AST::t '#f) - _marks4450_) + _marks4526_) (gx#raise-syntax-error '#f '"Bad identifier" - _stx4443_))))))))) - _lp4447_) - _stx4443_ + _stx4519_))))))))) + _lp4523_) + _stx4519_ (gx#current-expander-marks)))) (begin (define gx#core-resolve-identifier__0 - (lambda (_stx4455_) - (let ((_phi4457_ (gx#current-expander-phi))) - (let ((_ctx4459_ (gx#current-expander-context))) - (gx#core-resolve-identifier__opt-lambda4441 - _stx4455_ - _phi4457_ - _ctx4459_))))) + (lambda (_stx4531_) + (let ((_phi4533_ (gx#current-expander-phi))) + (let ((_ctx4535_ (gx#current-expander-context))) + (gx#core-resolve-identifier__opt-lambda4517 + _stx4531_ + _phi4533_ + _ctx4535_))))) (define gx#core-resolve-identifier__1 - (lambda (_stx4461_ _phi4462_) - (let ((_ctx4464_ (gx#current-expander-context))) - (gx#core-resolve-identifier__opt-lambda4441 - _stx4461_ - _phi4462_ - _ctx4464_)))) + (lambda (_stx4537_ _phi4538_) + (let ((_ctx4540_ (gx#current-expander-context))) + (gx#core-resolve-identifier__opt-lambda4517 + _stx4537_ + _phi4538_ + _ctx4540_)))) (define gx#core-resolve-identifier - (lambda _g5607_ - (let ((_g5606_ (length _g5607_))) - (cond ((fx= _g5606_ 1) - (apply gx#core-resolve-identifier__0 _g5607_)) - ((fx= _g5606_ 2) - (apply gx#core-resolve-identifier__1 _g5607_)) - ((fx= _g5606_ 3) - (apply gx#core-resolve-identifier__opt-lambda4441 _g5607_)) - (else (error "No clause matching arguments" _g5607_)))))))) + (lambda _g5683_ + (let ((_g5682_ (length _g5683_))) + (cond ((fx= _g5682_ 1) + (apply gx#core-resolve-identifier__0 _g5683_)) + ((fx= _g5682_ 2) + (apply gx#core-resolve-identifier__1 _g5683_)) + ((fx= _g5682_ 3) + (apply gx#core-resolve-identifier__opt-lambda4517 _g5683_)) + (else (error "No clause matching arguments" _g5683_)))))))) (define gx#core-resolve-binding - (lambda (_id4357_ _phi4358_ _ctx4359_ _marks4360_) - (let ((_resolve4362_ - (lambda (_ctx4430_ _src-phi4431_ _key4432_) - ((letrec ((_lp4434_ - (lambda (_ctx4436_ _dphi4437_) - (let ((_$e4439_ + (lambda (_id4433_ _phi4434_ _ctx4435_ _marks4436_) + (let ((_resolve4438_ + (lambda (_ctx4506_ _src-phi4507_ _key4508_) + ((letrec ((_lp4510_ + (lambda (_ctx4512_ _dphi4513_) + (let ((_$e4515_ (gx#core-context-resolve - _ctx4436_ - _key4432_))) - (if _$e4439_ - (values _$e4439_) - (if (fxzero? _dphi4437_) + _ctx4512_ + _key4508_))) + (if _$e4515_ + (values _$e4515_) + (if (fxzero? _dphi4513_) '#f - (if (fxpositive? _dphi4437_) - (_lp4434_ + (if (fxpositive? _dphi4513_) + (_lp4510_ (gx#core-context-shift - _ctx4436_ + _ctx4512_ '-1) - (fx- _dphi4437_ '1)) - (if (fxnegative? _dphi4437_) - (_lp4434_ + (fx- _dphi4513_ '1)) + (if (fxnegative? _dphi4513_) + (_lp4510_ (gx#core-context-shift - _ctx4436_ + _ctx4512_ '1) - (fx+ _dphi4437_ '1)) + (fx+ _dphi4513_ '1)) '#!void)))))))) - _lp4434_) - (gx#core-context-shift _ctx4430_ _phi4358_) - (fx- _phi4358_ _src-phi4431_))))) - ((letrec ((_lp4364_ - (lambda (_ctx4366_ _src-phi4367_ _rest4368_) - (let ((_rest43694377_ _rest4368_)) - (let ((_E43724381_ + _lp4510_) + (gx#core-context-shift _ctx4506_ _phi4434_) + (fx- _phi4434_ _src-phi4507_))))) + ((letrec ((_lp4440_ + (lambda (_ctx4442_ _src-phi4443_ _rest4444_) + (let ((_rest44454453_ _rest4444_)) + (let ((_E44484457_ (lambda () - (error '"No clause matching" _rest43694377_)))) - (let ((_else43714385_ + (error '"No clause matching" _rest44454453_)))) + (let ((_else44474461_ (lambda () - (_resolve4362_ - _ctx4366_ - _src-phi4367_ - _id4357_)))) - (let ((_K43734418_ - (lambda (_rest4388_ _hd4389_) - (let ((_hd43904396_ _hd4389_)) - (let ((_E43924400_ + (_resolve4438_ + _ctx4442_ + _src-phi4443_ + _id4433_)))) + (let ((_K44494494_ + (lambda (_rest4464_ _hd4465_) + (let ((_hd44664472_ _hd4465_)) + (let ((_E44684476_ (lambda () (error '"No clause matching" - _hd43904396_)))) - (let ((_K43934410_ - (lambda (_subst4403_) - (let ((_$e4407_ - (let ((_key4405_ - (if _subst4403_ + _hd44664472_)))) + (let ((_K44694486_ + (lambda (_subst4479_) + (let ((_$e4483_ + (let ((_key4481_ + (if _subst4479_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (table-ref _subst4403_ _id4357_ '#f) + (table-ref _subst4479_ _id4433_ '#f) '#f))) - (if _key4405_ - (_resolve4362_ _ctx4366_ _src-phi4367_ _key4405_) + (if _key4481_ + (_resolve4438_ _ctx4442_ _src-phi4443_ _key4481_) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e4407_ - _$e4407_ - (_lp4364_ + (if _$e4483_ + _$e4483_ + (_lp4440_ (##structure-ref - _hd4389_ + _hd4465_ '2 gx#expander-mark::t '#f) (##structure-ref - _hd4389_ + _hd4465_ '3 gx#expander-mark::t '#f) - _rest4388_)))))) + _rest4464_)))))) (if (struct-instance? gx#expander-mark::t - _hd43904396_) - (let ((_e43944413_ + _hd44664472_) + (let ((_e44704489_ (##vector-ref - _hd43904396_ + _hd44664472_ '1))) - (let ((_subst4416_ - _e43944413_)) - (_K43934410_ _subst4416_))) - (_E43924400_)))))))) - (if (##pair? _rest43694377_) - (let ((_hd43744421_ (##car _rest43694377_)) - (_tl43754423_ (##cdr _rest43694377_))) - (let ((_hd4426_ _hd43744421_)) - (let ((_rest4428_ _tl43754423_)) - (_K43734418_ _rest4428_ _hd4426_)))) - (_else43714385_))))))))) - _lp4364_) - _ctx4359_ - _phi4358_ - _marks4360_)))) + (let ((_subst4492_ + _e44704489_)) + (_K44694486_ _subst4492_))) + (_E44684476_)))))))) + (if (##pair? _rest44454453_) + (let ((_hd44504497_ (##car _rest44454453_)) + (_tl44514499_ (##cdr _rest44454453_))) + (let ((_hd4502_ _hd44504497_)) + (let ((_rest4504_ _tl44514499_)) + (_K44494494_ _rest4504_ _hd4502_)))) + (_else44474461_))))))))) + _lp4440_) + _ctx4435_ + _phi4434_ + _marks4436_)))) (begin - (define gx#core-bind!__opt-lambda4231 - (lambda (_key4233_ _val4234_ _rebind?4235_ _phi4236_ _ctx4237_) - (let ((_update-binding4239_ - (lambda (_xval4310_) - (if (let ((_$e4312_ - (_rebind?4235_ _ctx4237_ _xval4310_ _val4234_))) - (if _$e4312_ - _$e4312_ - (let ((_$e4318_ + (define gx#core-bind!__opt-lambda4307 + (lambda (_key4309_ _val4310_ _rebind?4311_ _phi4312_ _ctx4313_) + (let ((_update-binding4315_ + (lambda (_xval4386_) + (if (let ((_$e4388_ + (_rebind?4311_ _ctx4313_ _xval4386_ _val4310_))) + (if _$e4388_ + _$e4388_ + (let ((_$e4394_ (if (##structure-direct-instance-of? - _xval4310_ + _xval4386_ 'gx#import-binding::t) - (let ((_$e4315_ + (let ((_$e4391_ (##structure-ref - _xval4310_ + _xval4386_ '6 gx#import-binding::t '#f))) - (if _$e4315_ - _$e4315_ + (if _$e4391_ + _$e4391_ (if (##structure-instance-of? - _val4234_ + _val4310_ 'gx#binding::t) (not (##structure-direct-instance-of? - _val4234_ + _val4310_ 'gx#import-binding::t)) '#f))) '#f))) - (if _$e4318_ - _$e4318_ + (if _$e4394_ + _$e4394_ (if (##structure-instance-of? - _xval4310_ + _xval4386_ 'gx#extern-binding::t) (if (##structure-instance-of? - _val4234_ + _val4310_ 'gx#runtime-binding::t) (eq? (##structure-ref - _val4234_ + _val4310_ '1 gx#binding::t '#f) (##structure-ref - _xval4310_ + _xval4386_ '1 gx#binding::t '#f)) '#f) '#f))))) - _val4234_ + _val4310_ (if (if (##structure-direct-instance-of? - _val4234_ + _val4310_ 'gx#import-binding::t) - (let ((_$e4321_ + (let ((_$e4397_ (##structure-ref - _val4234_ + _val4310_ '6 gx#import-binding::t '#f))) - (if _$e4321_ - _$e4321_ + (if _$e4397_ + _$e4397_ (if (##structure-instance-of? - _xval4310_ + _xval4386_ 'gx#binding::t) (eq? (##structure-ref - _val4234_ + _val4310_ '1 gx#binding::t '#f) (##structure-ref - _xval4310_ + _xval4386_ '1 gx#binding::t '#f)) '#f))) '#f) - _xval4310_ + _xval4386_ (gx#raise-syntax-error '#f '"Bad binding; rebind conflict" - _key4233_ - _xval4310_ - _val4234_)))))) - (let ((_gensubst4240_ - (lambda (_subst4305_ _id4306_) - (let ((_eid4308_ - (gensym (if (uninterned-symbol? _id4306_) + _key4309_ + _xval4386_ + _val4310_)))))) + (let ((_gensubst4316_ + (lambda (_subst4381_ _id4382_) + (let ((_eid4384_ + (gensym (if (uninterned-symbol? _id4382_) '% - _id4306_)))) + _id4382_)))) (begin - (table-set! _subst4305_ _id4306_ _eid4308_) - _eid4308_))))) - (let ((_subst!4241_ - (lambda (_key4243_) - (let ((_key42444252_ _key4243_)) - (let ((_E42474256_ + (table-set! _subst4381_ _id4382_ _eid4384_) + _eid4384_))))) + (let ((_subst!4317_ + (lambda (_key4319_) + (let ((_key43204328_ _key4319_)) + (let ((_E43234332_ (lambda () - (error '"No clause matching" _key42444252_)))) - (let ((_else42464260_ (lambda () _key4243_))) - (let ((_K42484293_ - (lambda (_mark4263_ _id4264_) - (let ((_mark42654271_ _mark4263_)) - (let ((_E42674275_ + (error '"No clause matching" _key43204328_)))) + (let ((_else43224336_ (lambda () _key4319_))) + (let ((_K43244369_ + (lambda (_mark4339_ _id4340_) + (let ((_mark43414347_ _mark4339_)) + (let ((_E43434351_ (lambda () (error '"No clause matching" - _mark42654271_)))) - (let ((_K42684285_ - (lambda (_subst4278_) - (if (not _subst4278_) - (let ((_subst4280_ + _mark43414347_)))) + (let ((_K43444361_ + (lambda (_subst4354_) + (if (not _subst4354_) + (let ((_subst4356_ (make-hash-table-eq))) (begin (##structure-set! - _mark4263_ - _subst4280_ + _mark4339_ + _subst4356_ '1 gx#expander-mark::t '#f) - (_gensubst4240_ - _subst4280_ - _id4264_))) - (let ((_$e4282_ + (_gensubst4316_ + _subst4356_ + _id4340_))) + (let ((_$e4358_ (table-ref - _subst4278_ - _id4264_ + _subst4354_ + _id4340_ '#f))) - (if _$e4282_ - (values _$e4282_) - (_gensubst4240_ - _subst4278_ - _id4264_))))))) + (if _$e4358_ + (values _$e4358_) + (_gensubst4316_ + _subst4354_ + _id4340_))))))) (if (struct-instance? gx#expander-mark::t - _mark42654271_) - (let ((_e42694288_ + _mark43414347_) + (let ((_e43454364_ (##vector-ref - _mark42654271_ + _mark43414347_ '1))) - (let ((_subst4291_ - _e42694288_)) - (_K42684285_ _subst4291_))) - (_E42674275_)))))))) - (if (##pair? _key42444252_) - (let ((_hd42494296_ (##car _key42444252_)) - (_tl42504298_ (##cdr _key42444252_))) - (let ((_id4301_ _hd42494296_)) - (let ((_mark4303_ _tl42504298_)) - (_K42484293_ _mark4303_ _id4301_)))) - (_else42464260_))))))))) + (let ((_subst4367_ + _e43454364_)) + (_K43444361_ _subst4367_))) + (_E43434351_)))))))) + (if (##pair? _key43204328_) + (let ((_hd43254372_ (##car _key43204328_)) + (_tl43264374_ (##cdr _key43204328_))) + (let ((_id4377_ _hd43254372_)) + (let ((_mark4379_ _tl43264374_)) + (_K43244369_ _mark4379_ _id4377_)))) + (_else43224336_))))))))) (gx#core-context-bind! - (gx#core-context-shift _ctx4237_ _phi4236_) - (_subst!4241_ _key4233_) - _val4234_ - _update-binding4239_)))))) + (gx#core-context-shift _ctx4313_ _phi4312_) + (_subst!4317_ _key4309_) + _val4310_ + _update-binding4315_)))))) (begin (define gx#core-bind!__0 - (lambda (_key4327_ _val4328_) - (let ((_rebind?4330_ false)) - (let ((_phi4332_ (gx#current-expander-phi))) - (let ((_ctx4334_ (gx#current-expander-context))) - (gx#core-bind!__opt-lambda4231 - _key4327_ - _val4328_ - _rebind?4330_ - _phi4332_ - _ctx4334_)))))) + (lambda (_key4403_ _val4404_) + (let ((_rebind?4406_ false)) + (let ((_phi4408_ (gx#current-expander-phi))) + (let ((_ctx4410_ (gx#current-expander-context))) + (gx#core-bind!__opt-lambda4307 + _key4403_ + _val4404_ + _rebind?4406_ + _phi4408_ + _ctx4410_)))))) (define gx#core-bind!__1 - (lambda (_key4336_ _val4337_ _rebind?4338_) - (let ((_phi4340_ (gx#current-expander-phi))) - (let ((_ctx4342_ (gx#current-expander-context))) - (gx#core-bind!__opt-lambda4231 - _key4336_ - _val4337_ - _rebind?4338_ - _phi4340_ - _ctx4342_))))) + (lambda (_key4412_ _val4413_ _rebind?4414_) + (let ((_phi4416_ (gx#current-expander-phi))) + (let ((_ctx4418_ (gx#current-expander-context))) + (gx#core-bind!__opt-lambda4307 + _key4412_ + _val4413_ + _rebind?4414_ + _phi4416_ + _ctx4418_))))) (define gx#core-bind!__2 - (lambda (_key4344_ _val4345_ _rebind?4346_ _phi4347_) - (let ((_ctx4349_ (gx#current-expander-context))) - (gx#core-bind!__opt-lambda4231 - _key4344_ - _val4345_ - _rebind?4346_ - _phi4347_ - _ctx4349_)))) + (lambda (_key4420_ _val4421_ _rebind?4422_ _phi4423_) + (let ((_ctx4425_ (gx#current-expander-context))) + (gx#core-bind!__opt-lambda4307 + _key4420_ + _val4421_ + _rebind?4422_ + _phi4423_ + _ctx4425_)))) (define gx#core-bind! - (lambda _g5609_ - (let ((_g5608_ (length _g5609_))) - (cond ((fx= _g5608_ 2) (apply gx#core-bind!__0 _g5609_)) - ((fx= _g5608_ 3) (apply gx#core-bind!__1 _g5609_)) - ((fx= _g5608_ 4) (apply gx#core-bind!__2 _g5609_)) - ((fx= _g5608_ 5) - (apply gx#core-bind!__opt-lambda4231 _g5609_)) - (else (error "No clause matching arguments" _g5609_)))))))) + (lambda _g5685_ + (let ((_g5684_ (length _g5685_))) + (cond ((fx= _g5684_ 2) (apply gx#core-bind!__0 _g5685_)) + ((fx= _g5684_ 3) (apply gx#core-bind!__1 _g5685_)) + ((fx= _g5684_ 4) (apply gx#core-bind!__2 _g5685_)) + ((fx= _g5684_ 5) + (apply gx#core-bind!__opt-lambda4307 _g5685_)) + (else (error "No clause matching arguments" _g5685_)))))))) (define gx#core-identifier-key - (lambda (_stx4163_) - (if (symbol? _stx4163_) - (let ((_g41644172_ (gx#current-expander-marks))) - (let ((_E41674176_ - (lambda () (error '"No clause matching" _g41644172_)))) - (let ((_else41664180_ (lambda () _stx4163_))) - (let ((_K41684185_ - (lambda (_hd4183_) (cons _stx4163_ _hd4183_)))) - (if (##pair? _g41644172_) - (let ((_hd41694188_ (##car _g41644172_)) - (_tl41704190_ (##cdr _g41644172_))) - (let ((_hd4193_ _hd41694188_)) (_K41684185_ _hd4193_))) - (_else41664180_)))))) - (if (gx#identifier? _stx4163_) - (let ((_id4195_ (gx#syntax-local-unwrap _stx4163_))) - (let ((_eid4197_ (gx#stx-e _id4195_))) - (let ((_marks4199_ (gx#stx-identifier-marks _id4195_))) + (lambda (_stx4239_) + (if (symbol? _stx4239_) + (let ((_g42404248_ (gx#current-expander-marks))) + (let ((_E42434252_ + (lambda () (error '"No clause matching" _g42404248_)))) + (let ((_else42424256_ (lambda () _stx4239_))) + (let ((_K42444261_ + (lambda (_hd4259_) (cons _stx4239_ _hd4259_)))) + (if (##pair? _g42404248_) + (let ((_hd42454264_ (##car _g42404248_)) + (_tl42464266_ (##cdr _g42404248_))) + (let ((_hd4269_ _hd42454264_)) (_K42444261_ _hd4269_))) + (_else42424256_)))))) + (if (gx#identifier? _stx4239_) + (let ((_id4271_ (gx#syntax-local-unwrap _stx4239_))) + (let ((_eid4273_ (gx#stx-e _id4271_))) + (let ((_marks4275_ (gx#stx-identifier-marks _id4271_))) (let () - (let ((_marks42014209_ _marks4199_)) - (let ((_E42044213_ + (let ((_marks42774285_ _marks4275_)) + (let ((_E42804289_ (lambda () (error '"No clause matching" - _marks42014209_)))) - (let ((_else42034217_ (lambda () _eid4197_))) - (let ((_K42054222_ - (lambda (_hd4220_) - (cons _eid4197_ _hd4220_)))) - (if (##pair? _marks42014209_) - (let ((_hd42064225_ (##car _marks42014209_)) - (_tl42074227_ (##cdr _marks42014209_))) - (let ((_hd4230_ _hd42064225_)) - (_K42054222_ _hd4230_))) - (_else42034217_)))))))))) - (gx#raise-syntax-error '#f '"Bad identifier" _stx4163_))))) + _marks42774285_)))) + (let ((_else42794293_ (lambda () _eid4273_))) + (let ((_K42814298_ + (lambda (_hd4296_) + (cons _eid4273_ _hd4296_)))) + (if (##pair? _marks42774285_) + (let ((_hd42824301_ (##car _marks42774285_)) + (_tl42834303_ (##cdr _marks42774285_))) + (let ((_hd4306_ _hd42824301_)) + (_K42814298_ _hd4306_))) + (_else42794293_)))))))))) + (gx#raise-syntax-error '#f '"Bad identifier" _stx4239_))))) (define gx#core-context-shift - (lambda (_ctx4108_ _phi4109_) - (let ((_make-phi4111_ - (lambda (_super4161_) - (let ((__obj5580 (make-object gx#phi-context::t '5))) + (lambda (_ctx4184_ _phi4185_) + (let ((_make-phi4187_ + (lambda (_super4237_) + (let ((__obj5656 (make-object gx#phi-context::t '5))) (begin - (gx#phi-context:::init!__opt-lambda5542 - __obj5580 + (gx#phi-context:::init!__opt-lambda5618 + __obj5656 (gensym 'phi) - _super4161_) - __obj5580))))) - (let ((_make-phi/up4112_ - (lambda (_ctx4156_ _super4157_) - (let ((_ctx+14159_ (_make-phi4111_ _super4157_))) + _super4237_) + __obj5656))))) + (let ((_make-phi/up4188_ + (lambda (_ctx4232_ _super4233_) + (let ((_ctx+14235_ (_make-phi4187_ _super4233_))) (begin (##structure-set! - _ctx4156_ - _ctx+14159_ + _ctx4232_ + _ctx+14235_ '4 gx#phi-context::t '#f) (##structure-set! - _ctx+14159_ - _ctx4156_ + _ctx+14235_ + _ctx4232_ '5 gx#phi-context::t '#f) - _ctx+14159_))))) - (let ((_make-phi/down4113_ - (lambda (_ctx4151_ _super4152_) - (let ((_ctx-14154_ (_make-phi4111_ _super4152_))) + _ctx+14235_))))) + (let ((_make-phi/down4189_ + (lambda (_ctx4227_ _super4228_) + (let ((_ctx-14230_ (_make-phi4187_ _super4228_))) (begin (##structure-set! - _ctx-14154_ - _ctx4151_ + _ctx-14230_ + _ctx4227_ '4 gx#phi-context::t '#f) (##structure-set! - _ctx4151_ - _ctx-14154_ + _ctx4227_ + _ctx-14230_ '5 gx#phi-context::t '#f) - _ctx-14154_))))) - (let ((_shift4114_ - (lambda (_ctx4135_ - _delta4136_ - _make-delta-context4137_ - _phi4138_ - _K4139_) - (let ((_$e4141_ + _ctx-14230_))))) + (let ((_shift4190_ + (lambda (_ctx4211_ + _delta4212_ + _make-delta-context4213_ + _phi4214_ + _K4215_) + (let ((_$e4217_ (##structure-ref - _ctx4135_ + _ctx4211_ '3 gx#phi-context::t '#f))) - (if _$e4141_ - ((lambda (_super4144_) - (let ((_super4146_ - (_K4139_ _super4144_ _delta4136_))) - (let ((_ctx+d4148_ - (_make-delta-context4137_ - _ctx4135_ - _super4146_))) + (if _$e4217_ + ((lambda (_super4220_) + (let ((_super4222_ + (_K4215_ _super4220_ _delta4212_))) + (let ((_ctx+d4224_ + (_make-delta-context4213_ + _ctx4211_ + _super4222_))) (let () - (_K4139_ _ctx+d4148_ - (fx- _phi4138_ _delta4136_)))))) - _$e4141_) - (error '"Bad context" _ctx4135_)))))) - ((letrec ((_K4116_ (lambda (_ctx4118_ _phi4119_) - (if (fxzero? _phi4119_) - _ctx4118_ + (_K4215_ _ctx+d4224_ + (fx- _phi4214_ _delta4212_)))))) + _$e4217_) + (error '"Bad context" _ctx4211_)))))) + ((letrec ((_K4192_ (lambda (_ctx4194_ _phi4195_) + (if (fxzero? _phi4195_) + _ctx4194_ (if (##structure-instance-of? - _ctx4118_ + _ctx4194_ 'gx#context-phi::t) - (if (fxpositive? _phi4119_) - (let ((_$e4121_ + (if (fxpositive? _phi4195_) + (let ((_$e4197_ (##structure-ref - _ctx4118_ + _ctx4194_ '4 gx#phi-context::t '#f))) - (if _$e4121_ - ((lambda (_g41234125_) - (_K4116_ _g41234125_ + (if _$e4197_ + ((lambda (_g41994201_) + (_K4192_ _g41994201_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (fx- _phi4119_ '1))) - _$e4121_) + (fx- _phi4195_ '1))) + _$e4197_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_shift4114_ - _ctx4118_ + (_shift4190_ + _ctx4194_ '1 - _make-phi/up4112_ - _phi4119_ - _K4116_))) - (let ((_$e4128_ + _make-phi/up4188_ + _phi4195_ + _K4192_))) + (let ((_$e4204_ (##structure-ref - _ctx4118_ + _ctx4194_ '5 gx#phi-context::t '#f))) - (if _$e4128_ - ((lambda (_g41304132_) - (_K4116_ _g41304132_ + (if _$e4204_ + ((lambda (_g42064208_) + (_K4192_ _g42064208_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (fx+ _phi4119_ '1))) - _$e4128_) + (fx+ _phi4195_ '1))) + _$e4204_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_shift4114_ - _ctx4118_ + (_shift4190_ + _ctx4194_ '-1 - _make-phi/down4113_ - _phi4119_ - _K4116_)))) - _ctx4118_))))) - _K4116_) - _ctx4108_ - _phi4109_))))))) + _make-phi/down4189_ + _phi4195_ + _K4192_)))) + _ctx4194_))))) + _K4192_) + _ctx4184_ + _phi4185_))))))) (define gx#core-context-get - (lambda (_ctx4105_ _key4106_) + (lambda (_ctx4181_ _key4182_) (table-ref - (##structure-ref _ctx4105_ '2 gx#expander-context::t '#f) - _key4106_ + (##structure-ref _ctx4181_ '2 gx#expander-context::t '#f) + _key4182_ '#f))) (define gx#core-context-put! - (lambda (_ctx4101_ _key4102_ _val4103_) + (lambda (_ctx4177_ _key4178_ _val4179_) (table-set! - (##structure-ref _ctx4101_ '2 gx#expander-context::t '#f) - _key4102_ - _val4103_))) + (##structure-ref _ctx4177_ '2 gx#expander-context::t '#f) + _key4178_ + _val4179_))) (define gx#core-context-resolve - (lambda (_ctx4088_ _key4089_) - ((letrec ((_lp4091_ - (lambda (_ctx4093_) - (let ((_$e4095_ (gx#core-context-get _ctx4093_ _key4089_))) - (if _$e4095_ - (values _$e4095_) - (let ((_$e4098_ + (lambda (_ctx4164_ _key4165_) + ((letrec ((_lp4167_ + (lambda (_ctx4169_) + (let ((_$e4171_ (gx#core-context-get _ctx4169_ _key4165_))) + (if _$e4171_ + (values _$e4171_) + (let ((_$e4174_ (if (##structure-instance-of? - _ctx4093_ + _ctx4169_ 'gx#context-phi::t) (##structure-ref - _ctx4093_ + _ctx4169_ '3 gx#phi-context::t '#f) '#f))) - (if _$e4098_ (_lp4091_ _$e4098_) '#f))))))) - _lp4091_) - _ctx4088_))) + (if _$e4174_ (_lp4167_ _$e4174_) '#f))))))) + _lp4167_) + _ctx4164_))) (define gx#core-context-bind! - (lambda (_ctx4078_ _key4079_ _val4080_ _rebind4081_) - (let ((_$e4083_ (gx#core-context-get _ctx4078_ _key4079_))) - (if _$e4083_ - ((lambda (_xval4086_) + (lambda (_ctx4154_ _key4155_ _val4156_ _rebind4157_) + (let ((_$e4159_ (gx#core-context-get _ctx4154_ _key4155_))) + (if _$e4159_ + ((lambda (_xval4162_) (gx#core-context-put! - _ctx4078_ - _key4079_ - (_rebind4081_ _xval4086_))) - _$e4083_) - (gx#core-context-put! _ctx4078_ _key4079_ _val4080_))))) + _ctx4154_ + _key4155_ + (_rebind4157_ _xval4162_))) + _$e4159_) + (gx#core-context-put! _ctx4154_ _key4155_ _val4156_))))) (begin - (define gx#core-context-top__opt-lambda4054 - (lambda (_ctx4056_ _stop?4057_) - ((letrec ((_lp4059_ - (lambda (_ctx4061_) - (if (_stop?4057_ _ctx4061_) - _ctx4061_ + (define gx#core-context-top__opt-lambda4130 + (lambda (_ctx4132_ _stop?4133_) + ((letrec ((_lp4135_ + (lambda (_ctx4137_) + (if (_stop?4133_ _ctx4137_) + _ctx4137_ (if (##structure-instance-of? - _ctx4061_ + _ctx4137_ 'gx#context-phi::t) - (_lp4059_ + (_lp4135_ (##structure-ref - _ctx4061_ + _ctx4137_ '3 gx#phi-context::t '#f)) '#f))))) - _lp4059_) - _ctx4056_))) + _lp4135_) + _ctx4132_))) (begin (define gx#core-context-top__0 (lambda () - (let ((_ctx4067_ (gx#current-expander-context))) - (let ((_stop?4069_ gx#top-context?)) - (gx#core-context-top__opt-lambda4054 _ctx4067_ _stop?4069_))))) + (let ((_ctx4143_ (gx#current-expander-context))) + (let ((_stop?4145_ gx#top-context?)) + (gx#core-context-top__opt-lambda4130 _ctx4143_ _stop?4145_))))) (define gx#core-context-top__1 - (lambda (_ctx4071_) - (let ((_stop?4073_ gx#top-context?)) - (gx#core-context-top__opt-lambda4054 _ctx4071_ _stop?4073_)))) + (lambda (_ctx4147_) + (let ((_stop?4149_ gx#top-context?)) + (gx#core-context-top__opt-lambda4130 _ctx4147_ _stop?4149_)))) (define gx#core-context-top - (lambda _g5611_ - (let ((_g5610_ (length _g5611_))) - (cond ((fx= _g5610_ 0) (apply gx#core-context-top__0 _g5611_)) - ((fx= _g5610_ 1) (apply gx#core-context-top__1 _g5611_)) - ((fx= _g5610_ 2) - (apply gx#core-context-top__opt-lambda4054 _g5611_)) - (else (error "No clause matching arguments" _g5611_)))))))) + (lambda _g5687_ + (let ((_g5686_ (length _g5687_))) + (cond ((fx= _g5686_ 0) (apply gx#core-context-top__0 _g5687_)) + ((fx= _g5686_ 1) (apply gx#core-context-top__1 _g5687_)) + ((fx= _g5686_ 2) + (apply gx#core-context-top__opt-lambda4130 _g5687_)) + (else (error "No clause matching arguments" _g5687_)))))))) (begin - (define gx#core-context-root__opt-lambda4039 - (lambda (_ctx4041_) - ((letrec ((_lp4043_ - (lambda (_ctx4045_) + (define gx#core-context-root__opt-lambda4115 + (lambda (_ctx4117_) + ((letrec ((_lp4119_ + (lambda (_ctx4121_) (if (##structure-instance-of? - _ctx4045_ + _ctx4121_ 'gx#context-phi::t) - (_lp4043_ - (##structure-ref _ctx4045_ '3 gx#phi-context::t '#f)) - _ctx4045_)))) - _lp4043_) - _ctx4041_))) + (_lp4119_ + (##structure-ref _ctx4121_ '3 gx#phi-context::t '#f)) + _ctx4121_)))) + _lp4119_) + _ctx4117_))) (begin (define gx#core-context-root__0 (lambda () - (let ((_ctx4051_ (gx#current-expander-context))) - (gx#core-context-root__opt-lambda4039 _ctx4051_)))) + (let ((_ctx4127_ (gx#current-expander-context))) + (gx#core-context-root__opt-lambda4115 _ctx4127_)))) (define gx#core-context-root - (lambda _g5613_ - (let ((_g5612_ (length _g5613_))) - (cond ((fx= _g5612_ 0) (apply gx#core-context-root__0 _g5613_)) - ((fx= _g5612_ 1) - (apply gx#core-context-root__opt-lambda4039 _g5613_)) - (else (error "No clause matching arguments" _g5613_)))))))) + (lambda _g5689_ + (let ((_g5688_ (length _g5689_))) + (cond ((fx= _g5688_ 0) (apply gx#core-context-root__0 _g5689_)) + ((fx= _g5688_ 1) + (apply gx#core-context-root__opt-lambda4115 _g5689_)) + (else (error "No clause matching arguments" _g5689_)))))))) (begin - (define gx#core-context-rebind?__opt-lambda4023 - (lambda (_ctx4025_ . __40224026_) - (if (##structure-instance-of? _ctx4025_ 'gx#top-context::t) + (define gx#core-context-rebind?__opt-lambda4099 + (lambda (_ctx4101_ . __40984102_) + (if (##structure-instance-of? _ctx4101_ 'gx#top-context::t) (if (not (##structure-instance-of? - _ctx4025_ + _ctx4101_ 'gx#module-context::t)) (not (##structure-instance-of? - _ctx4025_ + _ctx4101_ 'gx#prelude-context::t)) '#f) '#f))) (begin (define gx#core-context-rebind?__0 (lambda () - (let ((_ctx4033_ (gx#current-expander-context))) - (gx#core-context-rebind?__opt-lambda4023 _ctx4033_)))) + (let ((_ctx4109_ (gx#current-expander-context))) + (gx#core-context-rebind?__opt-lambda4099 _ctx4109_)))) (define gx#core-context-rebind? - (lambda _g5615_ - (let ((_g5614_ (length _g5615_))) - (cond ((fx= _g5614_ 0) (apply gx#core-context-rebind?__0 _g5615_)) - ((fx= _g5614_ 1) - (apply gx#core-context-rebind?__opt-lambda4023 _g5615_)) - ((fx>= _g5614_ 1) - (apply gx#core-context-rebind?__opt-lambda4023 _g5615_)) - (else (error "No clause matching arguments" _g5615_)))))))) + (lambda _g5691_ + (let ((_g5690_ (length _g5691_))) + (cond ((fx= _g5690_ 0) (apply gx#core-context-rebind?__0 _g5691_)) + ((fx= _g5690_ 1) + (apply gx#core-context-rebind?__opt-lambda4099 _g5691_)) + ((fx>= _g5690_ 1) + (apply gx#core-context-rebind?__opt-lambda4099 _g5691_)) + (else (error "No clause matching arguments" _g5691_)))))))) (begin - (define gx#core-context-namespace__opt-lambda4006 - (lambda (_ctx4008_) - (let ((_$e4010_ (gx#core-context-top__1 _ctx4008_))) - (if _$e4010_ - ((lambda (_ctx4013_) - (if (##structure-instance-of? _ctx4013_ 'gx#module-context::t) - (##structure-ref _ctx4013_ '6 gx#module-context::t '#f) + (define gx#core-context-namespace__opt-lambda4082 + (lambda (_ctx4084_) + (let ((_$e4086_ (gx#core-context-top__1 _ctx4084_))) + (if _$e4086_ + ((lambda (_ctx4089_) + (if (##structure-instance-of? _ctx4089_ 'gx#module-context::t) + (##structure-ref _ctx4089_ '6 gx#module-context::t '#f) '#f)) - _$e4010_) + _$e4086_) '#f)))) (begin (define gx#core-context-namespace__0 (lambda () - (let ((_ctx4019_ (gx#current-expander-context))) - (gx#core-context-namespace__opt-lambda4006 _ctx4019_)))) + (let ((_ctx4095_ (gx#current-expander-context))) + (gx#core-context-namespace__opt-lambda4082 _ctx4095_)))) (define gx#core-context-namespace - (lambda _g5617_ - (let ((_g5616_ (length _g5617_))) - (cond ((fx= _g5616_ 0) - (apply gx#core-context-namespace__0 _g5617_)) - ((fx= _g5616_ 1) - (apply gx#core-context-namespace__opt-lambda4006 _g5617_)) - (else (error "No clause matching arguments" _g5617_)))))))) + (lambda _g5693_ + (let ((_g5692_ (length _g5693_))) + (cond ((fx= _g5692_ 0) + (apply gx#core-context-namespace__0 _g5693_)) + ((fx= _g5692_ 1) + (apply gx#core-context-namespace__opt-lambda4082 _g5693_)) + (else (error "No clause matching arguments" _g5693_)))))))) (begin - (define gx#expander-binding?__opt-lambda3992 - (lambda (_bind3994_ _is?3995_) - (if (##structure-direct-instance-of? _bind3994_ 'gx#syntax-binding::t) - (_is?3995_ - (##structure-ref _bind3994_ '4 gx#syntax-binding::t '#f)) + (define gx#expander-binding?__opt-lambda4068 + (lambda (_bind4070_ _is?4071_) + (if (##structure-direct-instance-of? _bind4070_ 'gx#syntax-binding::t) + (_is?4071_ + (##structure-ref _bind4070_ '4 gx#syntax-binding::t '#f)) '#f))) (begin (define gx#expander-binding?__0 - (lambda (_bind4000_) - (let ((_is?4002_ gx#expander?)) - (gx#expander-binding?__opt-lambda3992 _bind4000_ _is?4002_)))) + (lambda (_bind4076_) + (let ((_is?4078_ gx#expander?)) + (gx#expander-binding?__opt-lambda4068 _bind4076_ _is?4078_)))) (define gx#expander-binding? - (lambda _g5619_ - (let ((_g5618_ (length _g5619_))) - (cond ((fx= _g5618_ 1) (apply gx#expander-binding?__0 _g5619_)) - ((fx= _g5618_ 2) - (apply gx#expander-binding?__opt-lambda3992 _g5619_)) - (else (error "No clause matching arguments" _g5619_)))))))) + (lambda _g5695_ + (let ((_g5694_ (length _g5695_))) + (cond ((fx= _g5694_ 1) (apply gx#expander-binding?__0 _g5695_)) + ((fx= _g5694_ 2) + (apply gx#expander-binding?__opt-lambda4068 _g5695_)) + (else (error "No clause matching arguments" _g5695_)))))))) (define gx#core-expander-binding? - (lambda (_bind3991_) - (gx#expander-binding?__opt-lambda3992 _bind3991_ gx#core-expander?))) + (lambda (_bind4067_) + (gx#expander-binding?__opt-lambda4068 _bind4067_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_bind3989_) - (gx#expander-binding?__opt-lambda3992 _bind3989_ gx#expression-form?))) + (lambda (_bind4065_) + (gx#expander-binding?__opt-lambda4068 _bind4065_ gx#expression-form?))) (define gx#special-form-binding? - (lambda (_bind3987_) - (gx#expander-binding?__opt-lambda3992 _bind3987_ gx#special-form?))) + (lambda (_bind4063_) + (gx#expander-binding?__opt-lambda4068 _bind4063_ gx#special-form?))) (define gx#feature-binding? - (lambda (_bind3978_) - (let ((_feature?3980_ - (lambda (_e3982_) - (let ((_$e3984_ + (lambda (_bind4054_) + (let ((_feature?4056_ + (lambda (_e4058_) + (let ((_$e4060_ (##structure-instance-of? - _e3982_ + _e4058_ 'gx#feature-expander::t))) - (if _$e3984_ - _$e3984_ + (if _$e4060_ + _$e4060_ (##structure-instance-of? - _e3982_ + _e4058_ 'gx#module-context::t)))))) - (gx#expander-binding?__opt-lambda3992 _bind3978_ _feature?3980_)))) + (gx#expander-binding?__opt-lambda4068 _bind4054_ _feature?4056_)))) (define gx#private-feature-binding? - (lambda (_bind3976_) - (gx#expander-binding?__opt-lambda3992 - _bind3976_ + (lambda (_bind4052_) + (gx#expander-binding?__opt-lambda4068 + _bind4052_ gx#private-feature-expander?))) (begin - (define gx#core-bound-identifier?__opt-lambda3961 - (lambda (_id3963_ _bound?3964_) - (if (gx#identifier? _id3963_) - (_bound?3964_ (gx#resolve-identifier__0 _id3963_)) + (define gx#core-bound-identifier?__opt-lambda4037 + (lambda (_id4039_ _bound?4040_) + (if (gx#identifier? _id4039_) + (_bound?4040_ (gx#resolve-identifier__0 _id4039_)) '#f))) (begin (define gx#core-bound-identifier?__0 - (lambda (_id3969_) - (let ((_bound?3971_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__opt-lambda3961 - _id3969_ - _bound?3971_)))) + (lambda (_id4045_) + (let ((_bound?4047_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__opt-lambda4037 + _id4045_ + _bound?4047_)))) (define gx#core-bound-identifier? - (lambda _g5621_ - (let ((_g5620_ (length _g5621_))) - (cond ((fx= _g5620_ 1) - (apply gx#core-bound-identifier?__0 _g5621_)) - ((fx= _g5620_ 2) - (apply gx#core-bound-identifier?__opt-lambda3961 _g5621_)) - (else (error "No clause matching arguments" _g5621_)))))))) + (lambda _g5697_ + (let ((_g5696_ (length _g5697_))) + (cond ((fx= _g5696_ 1) + (apply gx#core-bound-identifier?__0 _g5697_)) + ((fx= _g5696_ 2) + (apply gx#core-bound-identifier?__opt-lambda4037 _g5697_)) + (else (error "No clause matching arguments" _g5697_)))))))) (define gx#core-identifier=? - (lambda (_x3953_ _y3954_) - (let ((_y=?3956_ - (lambda (_xid3960_) - ((if (list? _y3954_) memq eq?) _xid3960_ _y3954_)))) - (let ((_bind3958_ (gx#resolve-identifier__0 _x3953_))) - (if (##structure-instance-of? _bind3958_ 'gx#binding::t) - (_y=?3956_ (##structure-ref _bind3958_ '1 gx#binding::t '#f)) - (_y=?3956_ (gx#stx-e _x3953_))))))) + (lambda (_x4029_ _y4030_) + (let ((_y=?4032_ + (lambda (_xid4036_) + ((if (list? _y4030_) memq eq?) _xid4036_ _y4030_)))) + (let ((_bind4034_ (gx#resolve-identifier__0 _x4029_))) + (if (##structure-instance-of? _bind4034_ 'gx#binding::t) + (_y=?4032_ (##structure-ref _bind4034_ '1 gx#binding::t '#f)) + (_y=?4032_ (gx#stx-e _x4029_))))))) (define gx#core-extern-symbol? - (lambda (_e3951_) - (if (interned-symbol? _e3951_) - (string-index (symbol->string _e3951_) '#\#) + (lambda (_e4027_) + (if (interned-symbol? _e4027_) + (string-index (symbol->string _e4027_) '#\#) '#f))) (begin - (define gx#core-quote-syntax__opt-lambda3907 - (lambda (_stx3909_ _src3910_ _ctx3911_ _marks3912_) - (if (gx#sealed-syntax? _stx3909_) - (gx#stx-unwrap__0 _stx3909_) - (if (gx#identifier? _stx3909_) - (let ((_id3914_ (gx#syntax-local-unwrap _stx3909_))) + (define gx#core-quote-syntax__opt-lambda3983 + (lambda (_stx3985_ _src3986_ _ctx3987_ _marks3988_) + (if (gx#sealed-syntax? _stx3985_) + (gx#stx-unwrap__0 _stx3985_) + (if (gx#identifier? _stx3985_) + (let ((_id3990_ (gx#syntax-local-unwrap _stx3985_))) (##structure gx#syntax-quote::t - (gx#stx-e _id3914_) - (let ((_$e3916_ (gx#stx-source _id3914_))) - (if _$e3916_ _$e3916_ _src3910_)) - _ctx3911_ - (##structure-ref _id3914_ '3 gx#identifier-wrap::t '#f))) - (if (gx#stx-datum? _stx3909_) - (gx#stx-e _stx3909_) + (gx#stx-e _id3990_) + (let ((_$e3992_ (gx#stx-source _id3990_))) + (if _$e3992_ _$e3992_ _src3986_)) + _ctx3987_ + (##structure-ref _id3990_ '3 gx#identifier-wrap::t '#f))) + (if (gx#stx-datum? _stx3985_) + (gx#stx-e _stx3985_) (##structure gx#syntax-quote::t - _stx3909_ - (let ((_$e3919_ (gx#stx-source _stx3909_))) - (if _$e3919_ _$e3919_ _src3910_)) - _ctx3911_ - (reverse _marks3912_))))))) + _stx3985_ + (let ((_$e3995_ (gx#stx-source _stx3985_))) + (if _$e3995_ _$e3995_ _src3986_)) + _ctx3987_ + (reverse _marks3988_))))))) (begin (define gx#core-quote-syntax__0 - (lambda (_stx3925_) - (let ((_src3927_ '#f)) - (let ((_ctx3929_ (gx#current-expander-context))) - (let ((_marks3931_ (gx#current-expander-marks))) - (gx#core-quote-syntax__opt-lambda3907 - _stx3925_ - _src3927_ - _ctx3929_ - _marks3931_)))))) + (lambda (_stx4001_) + (let ((_src4003_ '#f)) + (let ((_ctx4005_ (gx#current-expander-context))) + (let ((_marks4007_ (gx#current-expander-marks))) + (gx#core-quote-syntax__opt-lambda3983 + _stx4001_ + _src4003_ + _ctx4005_ + _marks4007_)))))) (define gx#core-quote-syntax__1 - (lambda (_stx3933_ _src3934_) - (let ((_ctx3936_ (gx#current-expander-context))) - (let ((_marks3938_ (gx#current-expander-marks))) - (gx#core-quote-syntax__opt-lambda3907 - _stx3933_ - _src3934_ - _ctx3936_ - _marks3938_))))) + (lambda (_stx4009_ _src4010_) + (let ((_ctx4012_ (gx#current-expander-context))) + (let ((_marks4014_ (gx#current-expander-marks))) + (gx#core-quote-syntax__opt-lambda3983 + _stx4009_ + _src4010_ + _ctx4012_ + _marks4014_))))) (define gx#core-quote-syntax__2 - (lambda (_stx3940_ _src3941_ _ctx3942_) - (let ((_marks3944_ (gx#current-expander-marks))) - (gx#core-quote-syntax__opt-lambda3907 - _stx3940_ - _src3941_ - _ctx3942_ - _marks3944_)))) + (lambda (_stx4016_ _src4017_ _ctx4018_) + (let ((_marks4020_ (gx#current-expander-marks))) + (gx#core-quote-syntax__opt-lambda3983 + _stx4016_ + _src4017_ + _ctx4018_ + _marks4020_)))) (define gx#core-quote-syntax - (lambda _g5623_ - (let ((_g5622_ (length _g5623_))) - (cond ((fx= _g5622_ 1) (apply gx#core-quote-syntax__0 _g5623_)) - ((fx= _g5622_ 2) (apply gx#core-quote-syntax__1 _g5623_)) - ((fx= _g5622_ 3) (apply gx#core-quote-syntax__2 _g5623_)) - ((fx= _g5622_ 4) - (apply gx#core-quote-syntax__opt-lambda3907 _g5623_)) - (else (error "No clause matching arguments" _g5623_)))))))) + (lambda _g5699_ + (let ((_g5698_ (length _g5699_))) + (cond ((fx= _g5698_ 1) (apply gx#core-quote-syntax__0 _g5699_)) + ((fx= _g5698_ 2) (apply gx#core-quote-syntax__1 _g5699_)) + ((fx= _g5698_ 3) (apply gx#core-quote-syntax__2 _g5699_)) + ((fx= _g5698_ 4) + (apply gx#core-quote-syntax__opt-lambda3983 _g5699_)) + (else (error "No clause matching arguments" _g5699_)))))))) (define gx#core-cons - (lambda (_hd3905_ _tl3906_) - (cons (gx#core-quote-syntax__0 _hd3905_) _tl3906_))) + (lambda (_hd3981_ _tl3982_) + (cons (gx#core-quote-syntax__0 _hd3981_) _tl3982_))) (define gx#core-list - (lambda (_hd3902_ . _rest3903_) - (cons (gx#core-quote-syntax__0 _hd3902_) _rest3903_))) + (lambda (_hd3978_ . _rest3979_) + (cons (gx#core-quote-syntax__0 _hd3978_) _rest3979_))) (define gx#core-cons* - (lambda (_hd3899_ . _rest3900_) - (apply cons* (gx#core-quote-syntax__0 _hd3899_) _rest3900_))) + (lambda (_hd3975_ . _rest3976_) + (apply cons* (gx#core-quote-syntax__0 _hd3975_) _rest3976_))) (begin - (define gx#core-resolve-path__opt-lambda3871 - (lambda (_stx-path3873_ _rel3874_) - (let ((_path3886_ (gx#stx-e _stx-path3873_)) - (_reldir3887_ - ((letrec ((_lp3876_ - (lambda (_relsrc3878_) + (define gx#core-resolve-path__opt-lambda3947 + (lambda (_stx-path3949_ _rel3950_) + (let ((_path3962_ (gx#stx-e _stx-path3949_)) + (_reldir3963_ + ((letrec ((_lp3952_ + (lambda (_relsrc3954_) (if (##structure-instance-of? - _relsrc3878_ + _relsrc3954_ 'gerbil#AST::t) - (_lp3876_ - (let ((_$e3880_ (gx#stx-source _relsrc3878_))) - (if _$e3880_ - _$e3880_ - (gx#stx-e _relsrc3878_)))) - (if (source-location-path? _relsrc3878_) + (_lp3952_ + (let ((_$e3956_ (gx#stx-source _relsrc3954_))) + (if _$e3956_ + _$e3956_ + (gx#stx-e _relsrc3954_)))) + (if (source-location-path? _relsrc3954_) (path-directory - (source-location-path _relsrc3878_)) - (if (string? _relsrc3878_) - (path-directory _relsrc3878_) + (source-location-path _relsrc3954_)) + (if (string? _relsrc3954_) + (path-directory _relsrc3954_) (if (not (null? (gx#current-expander-path))) (path-directory (car (gx#current-expander-path))) (current-directory)))))))) - _lp3876_) - (let ((_$e3883_ (gx#stx-source _stx-path3873_))) - (if _$e3883_ _$e3883_ _rel3874_))))) - (path-expand _path3886_ (path-normalize _reldir3887_))))) + _lp3952_) + (let ((_$e3959_ (gx#stx-source _stx-path3949_))) + (if _$e3959_ _$e3959_ _rel3950_))))) + (path-expand _path3962_ (path-normalize _reldir3963_))))) (begin (define gx#core-resolve-path__0 - (lambda (_stx-path3892_) - (let ((_rel3894_ '#f)) - (gx#core-resolve-path__opt-lambda3871 _stx-path3892_ _rel3894_)))) + (lambda (_stx-path3968_) + (let ((_rel3970_ '#f)) + (gx#core-resolve-path__opt-lambda3947 _stx-path3968_ _rel3970_)))) (define gx#core-resolve-path - (lambda _g5625_ - (let ((_g5624_ (length _g5625_))) - (cond ((fx= _g5624_ 1) (apply gx#core-resolve-path__0 _g5625_)) - ((fx= _g5624_ 2) - (apply gx#core-resolve-path__opt-lambda3871 _g5625_)) - (else (error "No clause matching arguments" _g5625_)))))))) + (lambda _g5701_ + (let ((_g5700_ (length _g5701_))) + (cond ((fx= _g5700_ 1) (apply gx#core-resolve-path__0 _g5701_)) + ((fx= _g5700_ 2) + (apply gx#core-resolve-path__opt-lambda3947 _g5701_)) + (else (error "No clause matching arguments" _g5701_)))))))) (define gx#syntax-local-rewrap - (lambda (_stx3870_) (gx#stx-rewrap _stx3870_ (gx#current-expander-marks)))) + (lambda (_stx3946_) (gx#stx-rewrap _stx3946_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_stx3868_) - (gx#stx-unwrap__opt-lambda3681 _stx3868_ (gx#current-expander-marks)))) + (lambda (_stx3944_) + (gx#stx-unwrap__opt-lambda3757 _stx3944_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (lambda (_stx3836_) - (let ((_g38373845_ (gx#current-expander-marks))) - (let ((_E38403849_ - (lambda () (error '"No clause matching" _g38373845_)))) - (let ((_else38393853_ (lambda () _stx3836_))) - (let ((_K38413858_ - (lambda (_hd3856_) (gx#stx-apply-mark _stx3836_ _hd3856_)))) - (if (##pair? _g38373845_) - (let ((_hd38423861_ (##car _g38373845_)) - (_tl38433863_ (##cdr _g38373845_))) - (let ((_hd3866_ _hd38423861_)) (_K38413858_ _hd3866_))) - (_else38393853_)))))))) + (lambda (_stx3912_) + (let ((_g39133921_ (gx#current-expander-marks))) + (let ((_E39163925_ + (lambda () (error '"No clause matching" _g39133921_)))) + (let ((_else39153929_ (lambda () _stx3912_))) + (let ((_K39173934_ + (lambda (_hd3932_) (gx#stx-apply-mark _stx3912_ _hd3932_)))) + (if (##pair? _g39133921_) + (let ((_hd39183937_ (##car _g39133921_)) + (_tl39193939_ (##cdr _g39133921_))) + (let ((_hd3942_ _hd39183937_)) (_K39173934_ _hd3942_))) + (_else39153929_)))))))) (begin - (define gx#syntax-local-e__opt-lambda3819 - (lambda (_stx3821_ _E3822_) - (let ((_bind3824_ (gx#resolve-identifier__0 _stx3821_))) + (define gx#syntax-local-e__opt-lambda3895 + (lambda (_stx3897_ _E3898_) + (let ((_bind3900_ (gx#resolve-identifier__0 _stx3897_))) (if (##structure-direct-instance-of? - _bind3824_ + _bind3900_ 'gx#syntax-binding::t) - (##structure-ref _bind3824_ '4 gx#syntax-binding::t '#f) - (_E3822_ _stx3821_))))) + (##structure-ref _bind3900_ '4 gx#syntax-binding::t '#f) + (_E3898_ _stx3897_))))) (begin (define gx#syntax-local-e__0 - (lambda (_stx3829_) - (let ((_E3831_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__opt-lambda3819 _stx3829_ _E3831_)))) + (lambda (_stx3905_) + (let ((_E3907_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__opt-lambda3895 _stx3905_ _E3907_)))) (define gx#syntax-local-e - (lambda _g5627_ - (let ((_g5626_ (length _g5627_))) - (cond ((fx= _g5626_ 1) (apply gx#syntax-local-e__0 _g5627_)) - ((fx= _g5626_ 2) - (apply gx#syntax-local-e__opt-lambda3819 _g5627_)) - (else (error "No clause matching arguments" _g5627_)))))))) + (lambda _g5703_ + (let ((_g5702_ (length _g5703_))) + (cond ((fx= _g5702_ 1) (apply gx#syntax-local-e__0 _g5703_)) + ((fx= _g5702_ 2) + (apply gx#syntax-local-e__opt-lambda3895 _g5703_)) + (else (error "No clause matching arguments" _g5703_)))))))) (begin - (define gx#syntax-local-value__opt-lambda3803 - (lambda (_stx3805_ _E3806_) - (let ((_e3808_ (gx#syntax-local-e__opt-lambda3819 _stx3805_ _E3806_))) - (if (##structure-instance-of? _e3808_ 'gx#expander::t) - (##structure-ref _e3808_ '1 gx#expander::t '#f) - _e3808_)))) + (define gx#syntax-local-value__opt-lambda3879 + (lambda (_stx3881_ _E3882_) + (let ((_e3884_ (gx#syntax-local-e__opt-lambda3895 _stx3881_ _E3882_))) + (if (##structure-instance-of? _e3884_ 'gx#expander::t) + (##structure-ref _e3884_ '1 gx#expander::t '#f) + _e3884_)))) (begin (define gx#syntax-local-value__0 - (lambda (_stx3813_) - (let ((_E3815_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__opt-lambda3803 _stx3813_ _E3815_)))) + (lambda (_stx3889_) + (let ((_E3891_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__opt-lambda3879 _stx3889_ _E3891_)))) (define gx#syntax-local-value - (lambda _g5629_ - (let ((_g5628_ (length _g5629_))) - (cond ((fx= _g5628_ 1) (apply gx#syntax-local-value__0 _g5629_)) - ((fx= _g5628_ 2) - (apply gx#syntax-local-value__opt-lambda3803 _g5629_)) - (else (error "No clause matching arguments" _g5629_)))))))) + (lambda _g5705_ + (let ((_g5704_ (length _g5705_))) + (cond ((fx= _g5704_ 1) (apply gx#syntax-local-value__0 _g5705_)) + ((fx= _g5704_ 2) + (apply gx#syntax-local-value__opt-lambda3879 _g5705_)) + (else (error "No clause matching arguments" _g5705_)))))))) (define gx#raise-syntax-ref-error - (lambda (_stx3802_) + (lambda (_stx3878_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _stx3802_)))) + _stx3878_)))) diff --git a/src/bootstrap/gerbil/expander/core__1.scm b/src/bootstrap/gerbil/expander/core__1.scm index 8617080cd..c67fba58a 100644 --- a/src/bootstrap/gerbil/expander/core__1.scm +++ b/src/bootstrap/gerbil/expander/core__1.scm @@ -1,269 +1,269 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define |gx[1]#_g5630_| (gx#core-quote-syntax 'expander-context::t)) - (define |gx[1]#_g5631_| (gx#core-quote-syntax 'expander-context::t)) - (define |gx[1]#_g5632_| (gx#core-quote-syntax 'make-expander-context)) - (define |gx[1]#_g5633_| (gx#core-quote-syntax 'expander-context?)) - (define |gx[1]#_g5634_| (gx#core-quote-syntax 'expander-context-id)) - (define |gx[1]#_g5635_| (gx#core-quote-syntax 'expander-context-table)) - (define |gx[1]#_g5636_| (gx#core-quote-syntax 'expander-context-id-set!)) - (define |gx[1]#_g5637_| (gx#core-quote-syntax 'expander-context-table-set!)) - (define |gx[1]#_g5638_| (gx#core-quote-syntax 'root-context::t)) - (define |gx[1]#_g5639_| (gx#core-quote-syntax 'expander-context::t)) - (define |gx[1]#_g5640_| (gx#core-quote-syntax 'root-context::t)) - (define |gx[1]#_g5641_| (gx#core-quote-syntax 'make-root-context)) - (define |gx[1]#_g5642_| (gx#core-quote-syntax 'root-context?)) - (define |gx[1]#_g5643_| (gx#core-quote-syntax 'expander-context)) - (define |gx[1]#_g5644_| (gx#core-quote-syntax 'phi-context::t)) - (define |gx[1]#_g5645_| (gx#core-quote-syntax 'expander-context::t)) - (define |gx[1]#_g5646_| (gx#core-quote-syntax 'phi-context::t)) - (define |gx[1]#_g5647_| (gx#core-quote-syntax 'make-phi-context)) - (define |gx[1]#_g5648_| (gx#core-quote-syntax 'phi-context?)) - (define |gx[1]#_g5649_| (gx#core-quote-syntax 'phi-context-super)) - (define |gx[1]#_g5650_| (gx#core-quote-syntax 'phi-context-up)) - (define |gx[1]#_g5651_| (gx#core-quote-syntax 'phi-context-down)) - (define |gx[1]#_g5652_| (gx#core-quote-syntax 'phi-context-super-set!)) - (define |gx[1]#_g5653_| (gx#core-quote-syntax 'phi-context-up-set!)) - (define |gx[1]#_g5654_| (gx#core-quote-syntax 'phi-context-down-set!)) - (define |gx[1]#_g5655_| (gx#core-quote-syntax 'expander-context)) - (define |gx[1]#_g5656_| (gx#core-quote-syntax 'top-context::t)) - (define |gx[1]#_g5657_| (gx#core-quote-syntax 'phi-context::t)) - (define |gx[1]#_g5658_| (gx#core-quote-syntax 'top-context::t)) - (define |gx[1]#_g5659_| (gx#core-quote-syntax 'make-top-context)) - (define |gx[1]#_g5660_| (gx#core-quote-syntax 'top-context?)) - (define |gx[1]#_g5661_| (gx#core-quote-syntax 'phi-context)) - (define |gx[1]#_g5662_| (gx#core-quote-syntax 'module-context::t)) - (define |gx[1]#_g5663_| (gx#core-quote-syntax 'top-context::t)) - (define |gx[1]#_g5664_| (gx#core-quote-syntax 'module-context::t)) - (define |gx[1]#_g5665_| (gx#core-quote-syntax 'make-module-context)) - (define |gx[1]#_g5666_| (gx#core-quote-syntax 'module-context?)) - (define |gx[1]#_g5667_| (gx#core-quote-syntax 'module-context-ns)) - (define |gx[1]#_g5668_| (gx#core-quote-syntax 'module-context-path)) - (define |gx[1]#_g5669_| (gx#core-quote-syntax 'module-context-import)) - (define |gx[1]#_g5670_| (gx#core-quote-syntax 'module-context-export)) - (define |gx[1]#_g5671_| (gx#core-quote-syntax 'module-context-e)) - (define |gx[1]#_g5672_| (gx#core-quote-syntax 'module-context-code)) - (define |gx[1]#_g5673_| (gx#core-quote-syntax 'module-context-ns-set!)) - (define |gx[1]#_g5674_| (gx#core-quote-syntax 'module-context-path-set!)) - (define |gx[1]#_g5675_| (gx#core-quote-syntax 'module-context-import-set!)) - (define |gx[1]#_g5676_| (gx#core-quote-syntax 'module-context-export-set!)) - (define |gx[1]#_g5677_| (gx#core-quote-syntax 'module-context-e-set!)) - (define |gx[1]#_g5678_| (gx#core-quote-syntax 'module-context-code-set!)) - (define |gx[1]#_g5679_| (gx#core-quote-syntax 'top-context)) - (define |gx[1]#_g5680_| (gx#core-quote-syntax 'prelude-context::t)) - (define |gx[1]#_g5681_| (gx#core-quote-syntax 'top-context::t)) - (define |gx[1]#_g5682_| (gx#core-quote-syntax 'prelude-context::t)) - (define |gx[1]#_g5683_| (gx#core-quote-syntax 'make-prelude-context)) - (define |gx[1]#_g5684_| (gx#core-quote-syntax 'prelude-context?)) - (define |gx[1]#_g5685_| (gx#core-quote-syntax 'prelude-context-path)) - (define |gx[1]#_g5686_| (gx#core-quote-syntax 'prelude-context-import)) - (define |gx[1]#_g5687_| (gx#core-quote-syntax 'prelude-context-e)) - (define |gx[1]#_g5688_| (gx#core-quote-syntax 'prelude-context-path-set!)) - (define |gx[1]#_g5689_| (gx#core-quote-syntax 'prelude-context-import-set!)) - (define |gx[1]#_g5690_| (gx#core-quote-syntax 'prelude-context-e-set!)) - (define |gx[1]#_g5691_| (gx#core-quote-syntax 'top-context)) - (define |gx[1]#_g5692_| (gx#core-quote-syntax 'local-context::t)) - (define |gx[1]#_g5693_| (gx#core-quote-syntax 'phi-context::t)) - (define |gx[1]#_g5694_| (gx#core-quote-syntax 'local-context::t)) - (define |gx[1]#_g5695_| (gx#core-quote-syntax 'make-local-context)) - (define |gx[1]#_g5696_| (gx#core-quote-syntax 'local-context?)) - (define |gx[1]#_g5697_| (gx#core-quote-syntax 'phi-context)) - (define |gx[1]#_g5698_| (gx#core-quote-syntax 'binding::t)) - (define |gx[1]#_g5699_| (gx#core-quote-syntax 'binding::t)) - (define |gx[1]#_g5700_| (gx#core-quote-syntax 'make-binding)) - (define |gx[1]#_g5701_| (gx#core-quote-syntax 'binding?)) - (define |gx[1]#_g5702_| (gx#core-quote-syntax 'binding-id)) - (define |gx[1]#_g5703_| (gx#core-quote-syntax 'binding-key)) - (define |gx[1]#_g5704_| (gx#core-quote-syntax 'binding-phi)) - (define |gx[1]#_g5705_| (gx#core-quote-syntax 'binding-id-set!)) - (define |gx[1]#_g5706_| (gx#core-quote-syntax 'binding-key-set!)) - (define |gx[1]#_g5707_| (gx#core-quote-syntax 'binding-phi-set!)) - (define |gx[1]#_g5708_| (gx#core-quote-syntax 'runtime-binding::t)) - (define |gx[1]#_g5709_| (gx#core-quote-syntax 'binding::t)) - (define |gx[1]#_g5710_| (gx#core-quote-syntax 'runtime-binding::t)) - (define |gx[1]#_g5711_| (gx#core-quote-syntax 'make-runtime-binding)) - (define |gx[1]#_g5712_| (gx#core-quote-syntax 'runtime-binding?)) - (define |gx[1]#_g5713_| (gx#core-quote-syntax 'binding)) - (define |gx[1]#_g5714_| (gx#core-quote-syntax 'local-binding::t)) - (define |gx[1]#_g5715_| (gx#core-quote-syntax 'runtime-binding::t)) - (define |gx[1]#_g5716_| (gx#core-quote-syntax 'local-binding::t)) - (define |gx[1]#_g5717_| (gx#core-quote-syntax 'make-local-binding)) - (define |gx[1]#_g5718_| (gx#core-quote-syntax 'local-binding?)) - (define |gx[1]#_g5719_| (gx#core-quote-syntax 'runtime-binding)) - (define |gx[1]#_g5720_| (gx#core-quote-syntax 'top-binding::t)) - (define |gx[1]#_g5721_| (gx#core-quote-syntax 'runtime-binding::t)) - (define |gx[1]#_g5722_| (gx#core-quote-syntax 'top-binding::t)) - (define |gx[1]#_g5723_| (gx#core-quote-syntax 'make-top-binding)) - (define |gx[1]#_g5724_| (gx#core-quote-syntax 'top-binding?)) - (define |gx[1]#_g5725_| (gx#core-quote-syntax 'runtime-binding)) - (define |gx[1]#_g5726_| (gx#core-quote-syntax 'module-binding::t)) - (define |gx[1]#_g5727_| (gx#core-quote-syntax 'top-binding::t)) - (define |gx[1]#_g5728_| (gx#core-quote-syntax 'module-binding::t)) - (define |gx[1]#_g5729_| (gx#core-quote-syntax 'make-module-binding)) - (define |gx[1]#_g5730_| (gx#core-quote-syntax 'module-binding?)) - (define |gx[1]#_g5731_| (gx#core-quote-syntax 'module-binding-context)) - (define |gx[1]#_g5732_| (gx#core-quote-syntax 'module-binding-context-set!)) - (define |gx[1]#_g5733_| (gx#core-quote-syntax 'top-binding)) - (define |gx[1]#_g5734_| (gx#core-quote-syntax 'extern-binding::t)) - (define |gx[1]#_g5735_| (gx#core-quote-syntax 'top-binding::t)) - (define |gx[1]#_g5736_| (gx#core-quote-syntax 'extern-binding::t)) - (define |gx[1]#_g5737_| (gx#core-quote-syntax 'make-extern-binding)) - (define |gx[1]#_g5738_| (gx#core-quote-syntax 'extern-binding?)) - (define |gx[1]#_g5739_| (gx#core-quote-syntax 'top-binding)) - (define |gx[1]#_g5740_| (gx#core-quote-syntax 'syntax-binding::t)) - (define |gx[1]#_g5741_| (gx#core-quote-syntax 'binding::t)) - (define |gx[1]#_g5742_| (gx#core-quote-syntax 'syntax-binding::t)) - (define |gx[1]#_g5743_| (gx#core-quote-syntax 'make-syntax-binding)) - (define |gx[1]#_g5744_| (gx#core-quote-syntax 'syntax-binding?)) - (define |gx[1]#_g5745_| (gx#core-quote-syntax 'syntax-binding-e)) - (define |gx[1]#_g5746_| (gx#core-quote-syntax 'syntax-binding-e-set!)) - (define |gx[1]#_g5747_| (gx#core-quote-syntax 'binding)) - (define |gx[1]#_g5748_| (gx#core-quote-syntax 'import-binding::t)) - (define |gx[1]#_g5749_| (gx#core-quote-syntax 'binding::t)) - (define |gx[1]#_g5750_| (gx#core-quote-syntax 'import-binding::t)) - (define |gx[1]#_g5751_| (gx#core-quote-syntax 'make-import-binding)) - (define |gx[1]#_g5752_| (gx#core-quote-syntax 'import-binding?)) - (define |gx[1]#_g5753_| (gx#core-quote-syntax 'import-binding-e)) - (define |gx[1]#_g5754_| (gx#core-quote-syntax 'import-binding-context)) - (define |gx[1]#_g5755_| (gx#core-quote-syntax 'import-binding-weak?)) - (define |gx[1]#_g5756_| (gx#core-quote-syntax 'import-binding-e-set!)) - (define |gx[1]#_g5757_| (gx#core-quote-syntax 'import-binding-context-set!)) - (define |gx[1]#_g5758_| (gx#core-quote-syntax 'import-binding-weak?-set!)) - (define |gx[1]#_g5759_| (gx#core-quote-syntax 'binding)) - (define |gx[1]#_g5760_| (gx#core-quote-syntax 'alias-binding::t)) - (define |gx[1]#_g5761_| (gx#core-quote-syntax 'binding::t)) - (define |gx[1]#_g5762_| (gx#core-quote-syntax 'alias-binding::t)) - (define |gx[1]#_g5763_| (gx#core-quote-syntax 'make-alias-binding)) - (define |gx[1]#_g5764_| (gx#core-quote-syntax 'alias-binding?)) - (define |gx[1]#_g5765_| (gx#core-quote-syntax 'alias-binding-e)) - (define |gx[1]#_g5766_| (gx#core-quote-syntax 'alias-binding-e-set!)) - (define |gx[1]#_g5767_| (gx#core-quote-syntax 'binding)) - (define |gx[1]#_g5768_| (gx#core-quote-syntax 'expander::t)) - (define |gx[1]#_g5769_| (gx#core-quote-syntax 'expander::t)) - (define |gx[1]#_g5770_| (gx#core-quote-syntax 'make-expander)) - (define |gx[1]#_g5771_| (gx#core-quote-syntax 'expander?)) - (define |gx[1]#_g5772_| (gx#core-quote-syntax 'expander-e)) - (define |gx[1]#_g5773_| (gx#core-quote-syntax 'expander-e-set!)) - (define |gx[1]#_g5774_| (gx#core-quote-syntax 'core-expander::t)) - (define |gx[1]#_g5775_| (gx#core-quote-syntax 'expander::t)) - (define |gx[1]#_g5776_| (gx#core-quote-syntax 'core-expander::t)) - (define |gx[1]#_g5777_| (gx#core-quote-syntax 'make-core-expander)) - (define |gx[1]#_g5778_| (gx#core-quote-syntax 'core-expander?)) - (define |gx[1]#_g5779_| (gx#core-quote-syntax 'core-expander-id)) - (define |gx[1]#_g5780_| (gx#core-quote-syntax 'core-expander-compile-top)) - (define |gx[1]#_g5781_| (gx#core-quote-syntax 'core-expander-id-set!)) - (define |gx[1]#_g5782_| + (define |gx[1]#_g5706_| (gx#core-quote-syntax 'expander-context::t)) + (define |gx[1]#_g5707_| (gx#core-quote-syntax 'expander-context::t)) + (define |gx[1]#_g5708_| (gx#core-quote-syntax 'make-expander-context)) + (define |gx[1]#_g5709_| (gx#core-quote-syntax 'expander-context?)) + (define |gx[1]#_g5710_| (gx#core-quote-syntax 'expander-context-id)) + (define |gx[1]#_g5711_| (gx#core-quote-syntax 'expander-context-table)) + (define |gx[1]#_g5712_| (gx#core-quote-syntax 'expander-context-id-set!)) + (define |gx[1]#_g5713_| (gx#core-quote-syntax 'expander-context-table-set!)) + (define |gx[1]#_g5714_| (gx#core-quote-syntax 'root-context::t)) + (define |gx[1]#_g5715_| (gx#core-quote-syntax 'expander-context::t)) + (define |gx[1]#_g5716_| (gx#core-quote-syntax 'root-context::t)) + (define |gx[1]#_g5717_| (gx#core-quote-syntax 'make-root-context)) + (define |gx[1]#_g5718_| (gx#core-quote-syntax 'root-context?)) + (define |gx[1]#_g5719_| (gx#core-quote-syntax 'expander-context)) + (define |gx[1]#_g5720_| (gx#core-quote-syntax 'phi-context::t)) + (define |gx[1]#_g5721_| (gx#core-quote-syntax 'expander-context::t)) + (define |gx[1]#_g5722_| (gx#core-quote-syntax 'phi-context::t)) + (define |gx[1]#_g5723_| (gx#core-quote-syntax 'make-phi-context)) + (define |gx[1]#_g5724_| (gx#core-quote-syntax 'phi-context?)) + (define |gx[1]#_g5725_| (gx#core-quote-syntax 'phi-context-super)) + (define |gx[1]#_g5726_| (gx#core-quote-syntax 'phi-context-up)) + (define |gx[1]#_g5727_| (gx#core-quote-syntax 'phi-context-down)) + (define |gx[1]#_g5728_| (gx#core-quote-syntax 'phi-context-super-set!)) + (define |gx[1]#_g5729_| (gx#core-quote-syntax 'phi-context-up-set!)) + (define |gx[1]#_g5730_| (gx#core-quote-syntax 'phi-context-down-set!)) + (define |gx[1]#_g5731_| (gx#core-quote-syntax 'expander-context)) + (define |gx[1]#_g5732_| (gx#core-quote-syntax 'top-context::t)) + (define |gx[1]#_g5733_| (gx#core-quote-syntax 'phi-context::t)) + (define |gx[1]#_g5734_| (gx#core-quote-syntax 'top-context::t)) + (define |gx[1]#_g5735_| (gx#core-quote-syntax 'make-top-context)) + (define |gx[1]#_g5736_| (gx#core-quote-syntax 'top-context?)) + (define |gx[1]#_g5737_| (gx#core-quote-syntax 'phi-context)) + (define |gx[1]#_g5738_| (gx#core-quote-syntax 'module-context::t)) + (define |gx[1]#_g5739_| (gx#core-quote-syntax 'top-context::t)) + (define |gx[1]#_g5740_| (gx#core-quote-syntax 'module-context::t)) + (define |gx[1]#_g5741_| (gx#core-quote-syntax 'make-module-context)) + (define |gx[1]#_g5742_| (gx#core-quote-syntax 'module-context?)) + (define |gx[1]#_g5743_| (gx#core-quote-syntax 'module-context-ns)) + (define |gx[1]#_g5744_| (gx#core-quote-syntax 'module-context-path)) + (define |gx[1]#_g5745_| (gx#core-quote-syntax 'module-context-import)) + (define |gx[1]#_g5746_| (gx#core-quote-syntax 'module-context-export)) + (define |gx[1]#_g5747_| (gx#core-quote-syntax 'module-context-e)) + (define |gx[1]#_g5748_| (gx#core-quote-syntax 'module-context-code)) + (define |gx[1]#_g5749_| (gx#core-quote-syntax 'module-context-ns-set!)) + (define |gx[1]#_g5750_| (gx#core-quote-syntax 'module-context-path-set!)) + (define |gx[1]#_g5751_| (gx#core-quote-syntax 'module-context-import-set!)) + (define |gx[1]#_g5752_| (gx#core-quote-syntax 'module-context-export-set!)) + (define |gx[1]#_g5753_| (gx#core-quote-syntax 'module-context-e-set!)) + (define |gx[1]#_g5754_| (gx#core-quote-syntax 'module-context-code-set!)) + (define |gx[1]#_g5755_| (gx#core-quote-syntax 'top-context)) + (define |gx[1]#_g5756_| (gx#core-quote-syntax 'prelude-context::t)) + (define |gx[1]#_g5757_| (gx#core-quote-syntax 'top-context::t)) + (define |gx[1]#_g5758_| (gx#core-quote-syntax 'prelude-context::t)) + (define |gx[1]#_g5759_| (gx#core-quote-syntax 'make-prelude-context)) + (define |gx[1]#_g5760_| (gx#core-quote-syntax 'prelude-context?)) + (define |gx[1]#_g5761_| (gx#core-quote-syntax 'prelude-context-path)) + (define |gx[1]#_g5762_| (gx#core-quote-syntax 'prelude-context-import)) + (define |gx[1]#_g5763_| (gx#core-quote-syntax 'prelude-context-e)) + (define |gx[1]#_g5764_| (gx#core-quote-syntax 'prelude-context-path-set!)) + (define |gx[1]#_g5765_| (gx#core-quote-syntax 'prelude-context-import-set!)) + (define |gx[1]#_g5766_| (gx#core-quote-syntax 'prelude-context-e-set!)) + (define |gx[1]#_g5767_| (gx#core-quote-syntax 'top-context)) + (define |gx[1]#_g5768_| (gx#core-quote-syntax 'local-context::t)) + (define |gx[1]#_g5769_| (gx#core-quote-syntax 'phi-context::t)) + (define |gx[1]#_g5770_| (gx#core-quote-syntax 'local-context::t)) + (define |gx[1]#_g5771_| (gx#core-quote-syntax 'make-local-context)) + (define |gx[1]#_g5772_| (gx#core-quote-syntax 'local-context?)) + (define |gx[1]#_g5773_| (gx#core-quote-syntax 'phi-context)) + (define |gx[1]#_g5774_| (gx#core-quote-syntax 'binding::t)) + (define |gx[1]#_g5775_| (gx#core-quote-syntax 'binding::t)) + (define |gx[1]#_g5776_| (gx#core-quote-syntax 'make-binding)) + (define |gx[1]#_g5777_| (gx#core-quote-syntax 'binding?)) + (define |gx[1]#_g5778_| (gx#core-quote-syntax 'binding-id)) + (define |gx[1]#_g5779_| (gx#core-quote-syntax 'binding-key)) + (define |gx[1]#_g5780_| (gx#core-quote-syntax 'binding-phi)) + (define |gx[1]#_g5781_| (gx#core-quote-syntax 'binding-id-set!)) + (define |gx[1]#_g5782_| (gx#core-quote-syntax 'binding-key-set!)) + (define |gx[1]#_g5783_| (gx#core-quote-syntax 'binding-phi-set!)) + (define |gx[1]#_g5784_| (gx#core-quote-syntax 'runtime-binding::t)) + (define |gx[1]#_g5785_| (gx#core-quote-syntax 'binding::t)) + (define |gx[1]#_g5786_| (gx#core-quote-syntax 'runtime-binding::t)) + (define |gx[1]#_g5787_| (gx#core-quote-syntax 'make-runtime-binding)) + (define |gx[1]#_g5788_| (gx#core-quote-syntax 'runtime-binding?)) + (define |gx[1]#_g5789_| (gx#core-quote-syntax 'binding)) + (define |gx[1]#_g5790_| (gx#core-quote-syntax 'local-binding::t)) + (define |gx[1]#_g5791_| (gx#core-quote-syntax 'runtime-binding::t)) + (define |gx[1]#_g5792_| (gx#core-quote-syntax 'local-binding::t)) + (define |gx[1]#_g5793_| (gx#core-quote-syntax 'make-local-binding)) + (define |gx[1]#_g5794_| (gx#core-quote-syntax 'local-binding?)) + (define |gx[1]#_g5795_| (gx#core-quote-syntax 'runtime-binding)) + (define |gx[1]#_g5796_| (gx#core-quote-syntax 'top-binding::t)) + (define |gx[1]#_g5797_| (gx#core-quote-syntax 'runtime-binding::t)) + (define |gx[1]#_g5798_| (gx#core-quote-syntax 'top-binding::t)) + (define |gx[1]#_g5799_| (gx#core-quote-syntax 'make-top-binding)) + (define |gx[1]#_g5800_| (gx#core-quote-syntax 'top-binding?)) + (define |gx[1]#_g5801_| (gx#core-quote-syntax 'runtime-binding)) + (define |gx[1]#_g5802_| (gx#core-quote-syntax 'module-binding::t)) + (define |gx[1]#_g5803_| (gx#core-quote-syntax 'top-binding::t)) + (define |gx[1]#_g5804_| (gx#core-quote-syntax 'module-binding::t)) + (define |gx[1]#_g5805_| (gx#core-quote-syntax 'make-module-binding)) + (define |gx[1]#_g5806_| (gx#core-quote-syntax 'module-binding?)) + (define |gx[1]#_g5807_| (gx#core-quote-syntax 'module-binding-context)) + (define |gx[1]#_g5808_| (gx#core-quote-syntax 'module-binding-context-set!)) + (define |gx[1]#_g5809_| (gx#core-quote-syntax 'top-binding)) + (define |gx[1]#_g5810_| (gx#core-quote-syntax 'extern-binding::t)) + (define |gx[1]#_g5811_| (gx#core-quote-syntax 'top-binding::t)) + (define |gx[1]#_g5812_| (gx#core-quote-syntax 'extern-binding::t)) + (define |gx[1]#_g5813_| (gx#core-quote-syntax 'make-extern-binding)) + (define |gx[1]#_g5814_| (gx#core-quote-syntax 'extern-binding?)) + (define |gx[1]#_g5815_| (gx#core-quote-syntax 'top-binding)) + (define |gx[1]#_g5816_| (gx#core-quote-syntax 'syntax-binding::t)) + (define |gx[1]#_g5817_| (gx#core-quote-syntax 'binding::t)) + (define |gx[1]#_g5818_| (gx#core-quote-syntax 'syntax-binding::t)) + (define |gx[1]#_g5819_| (gx#core-quote-syntax 'make-syntax-binding)) + (define |gx[1]#_g5820_| (gx#core-quote-syntax 'syntax-binding?)) + (define |gx[1]#_g5821_| (gx#core-quote-syntax 'syntax-binding-e)) + (define |gx[1]#_g5822_| (gx#core-quote-syntax 'syntax-binding-e-set!)) + (define |gx[1]#_g5823_| (gx#core-quote-syntax 'binding)) + (define |gx[1]#_g5824_| (gx#core-quote-syntax 'import-binding::t)) + (define |gx[1]#_g5825_| (gx#core-quote-syntax 'binding::t)) + (define |gx[1]#_g5826_| (gx#core-quote-syntax 'import-binding::t)) + (define |gx[1]#_g5827_| (gx#core-quote-syntax 'make-import-binding)) + (define |gx[1]#_g5828_| (gx#core-quote-syntax 'import-binding?)) + (define |gx[1]#_g5829_| (gx#core-quote-syntax 'import-binding-e)) + (define |gx[1]#_g5830_| (gx#core-quote-syntax 'import-binding-context)) + (define |gx[1]#_g5831_| (gx#core-quote-syntax 'import-binding-weak?)) + (define |gx[1]#_g5832_| (gx#core-quote-syntax 'import-binding-e-set!)) + (define |gx[1]#_g5833_| (gx#core-quote-syntax 'import-binding-context-set!)) + (define |gx[1]#_g5834_| (gx#core-quote-syntax 'import-binding-weak?-set!)) + (define |gx[1]#_g5835_| (gx#core-quote-syntax 'binding)) + (define |gx[1]#_g5836_| (gx#core-quote-syntax 'alias-binding::t)) + (define |gx[1]#_g5837_| (gx#core-quote-syntax 'binding::t)) + (define |gx[1]#_g5838_| (gx#core-quote-syntax 'alias-binding::t)) + (define |gx[1]#_g5839_| (gx#core-quote-syntax 'make-alias-binding)) + (define |gx[1]#_g5840_| (gx#core-quote-syntax 'alias-binding?)) + (define |gx[1]#_g5841_| (gx#core-quote-syntax 'alias-binding-e)) + (define |gx[1]#_g5842_| (gx#core-quote-syntax 'alias-binding-e-set!)) + (define |gx[1]#_g5843_| (gx#core-quote-syntax 'binding)) + (define |gx[1]#_g5844_| (gx#core-quote-syntax 'expander::t)) + (define |gx[1]#_g5845_| (gx#core-quote-syntax 'expander::t)) + (define |gx[1]#_g5846_| (gx#core-quote-syntax 'make-expander)) + (define |gx[1]#_g5847_| (gx#core-quote-syntax 'expander?)) + (define |gx[1]#_g5848_| (gx#core-quote-syntax 'expander-e)) + (define |gx[1]#_g5849_| (gx#core-quote-syntax 'expander-e-set!)) + (define |gx[1]#_g5850_| (gx#core-quote-syntax 'core-expander::t)) + (define |gx[1]#_g5851_| (gx#core-quote-syntax 'expander::t)) + (define |gx[1]#_g5852_| (gx#core-quote-syntax 'core-expander::t)) + (define |gx[1]#_g5853_| (gx#core-quote-syntax 'make-core-expander)) + (define |gx[1]#_g5854_| (gx#core-quote-syntax 'core-expander?)) + (define |gx[1]#_g5855_| (gx#core-quote-syntax 'core-expander-id)) + (define |gx[1]#_g5856_| (gx#core-quote-syntax 'core-expander-compile-top)) + (define |gx[1]#_g5857_| (gx#core-quote-syntax 'core-expander-id-set!)) + (define |gx[1]#_g5858_| (gx#core-quote-syntax 'core-expander-compile-top-set!)) - (define |gx[1]#_g5783_| (gx#core-quote-syntax 'expander)) - (define |gx[1]#_g5784_| (gx#core-quote-syntax 'expression-form::t)) - (define |gx[1]#_g5785_| (gx#core-quote-syntax 'core-expander::t)) - (define |gx[1]#_g5786_| (gx#core-quote-syntax 'expression-form::t)) - (define |gx[1]#_g5787_| (gx#core-quote-syntax 'make-expression-form)) - (define |gx[1]#_g5788_| (gx#core-quote-syntax 'expression-form?)) - (define |gx[1]#_g5789_| (gx#core-quote-syntax 'core-expander)) - (define |gx[1]#_g5790_| (gx#core-quote-syntax 'special-form::t)) - (define |gx[1]#_g5791_| (gx#core-quote-syntax 'core-expander::t)) - (define |gx[1]#_g5792_| (gx#core-quote-syntax 'special-form::t)) - (define |gx[1]#_g5793_| (gx#core-quote-syntax 'make-special-form)) - (define |gx[1]#_g5794_| (gx#core-quote-syntax 'special-form?)) - (define |gx[1]#_g5795_| (gx#core-quote-syntax 'core-expander)) - (define |gx[1]#_g5796_| (gx#core-quote-syntax 'definition-form::t)) - (define |gx[1]#_g5797_| (gx#core-quote-syntax 'special-form::t)) - (define |gx[1]#_g5798_| (gx#core-quote-syntax 'definition-form::t)) - (define |gx[1]#_g5799_| (gx#core-quote-syntax 'make-definition-form)) - (define |gx[1]#_g5800_| (gx#core-quote-syntax 'definition-form?)) - (define |gx[1]#_g5801_| (gx#core-quote-syntax 'special-form)) - (define |gx[1]#_g5802_| (gx#core-quote-syntax 'top-special-form::t)) - (define |gx[1]#_g5803_| (gx#core-quote-syntax 'special-form::t)) - (define |gx[1]#_g5804_| (gx#core-quote-syntax 'top-special-form::t)) - (define |gx[1]#_g5805_| (gx#core-quote-syntax 'make-top-special-form)) - (define |gx[1]#_g5806_| (gx#core-quote-syntax 'top-special-form?)) - (define |gx[1]#_g5807_| (gx#core-quote-syntax 'special-form)) - (define |gx[1]#_g5808_| (gx#core-quote-syntax 'module-special-form::t)) - (define |gx[1]#_g5809_| (gx#core-quote-syntax 'top-special-form::t)) - (define |gx[1]#_g5810_| (gx#core-quote-syntax 'module-special-form::t)) - (define |gx[1]#_g5811_| (gx#core-quote-syntax 'make-module-special-form)) - (define |gx[1]#_g5812_| (gx#core-quote-syntax 'module-special-form?)) - (define |gx[1]#_g5813_| (gx#core-quote-syntax 'top-special-form)) - (define |gx[1]#_g5814_| (gx#core-quote-syntax 'feature-expander::t)) - (define |gx[1]#_g5815_| (gx#core-quote-syntax 'expander::t)) - (define |gx[1]#_g5816_| (gx#core-quote-syntax 'feature-expander::t)) - (define |gx[1]#_g5817_| (gx#core-quote-syntax 'make-feature-expander)) - (define |gx[1]#_g5818_| (gx#core-quote-syntax 'feature-expander?)) - (define |gx[1]#_g5819_| (gx#core-quote-syntax 'expander)) - (define |gx[1]#_g5820_| (gx#core-quote-syntax 'private-feature-expander::t)) - (define |gx[1]#_g5821_| (gx#core-quote-syntax 'feature-expander::t)) - (define |gx[1]#_g5822_| (gx#core-quote-syntax 'private-feature-expander::t)) - (define |gx[1]#_g5823_| + (define |gx[1]#_g5859_| (gx#core-quote-syntax 'expander)) + (define |gx[1]#_g5860_| (gx#core-quote-syntax 'expression-form::t)) + (define |gx[1]#_g5861_| (gx#core-quote-syntax 'core-expander::t)) + (define |gx[1]#_g5862_| (gx#core-quote-syntax 'expression-form::t)) + (define |gx[1]#_g5863_| (gx#core-quote-syntax 'make-expression-form)) + (define |gx[1]#_g5864_| (gx#core-quote-syntax 'expression-form?)) + (define |gx[1]#_g5865_| (gx#core-quote-syntax 'core-expander)) + (define |gx[1]#_g5866_| (gx#core-quote-syntax 'special-form::t)) + (define |gx[1]#_g5867_| (gx#core-quote-syntax 'core-expander::t)) + (define |gx[1]#_g5868_| (gx#core-quote-syntax 'special-form::t)) + (define |gx[1]#_g5869_| (gx#core-quote-syntax 'make-special-form)) + (define |gx[1]#_g5870_| (gx#core-quote-syntax 'special-form?)) + (define |gx[1]#_g5871_| (gx#core-quote-syntax 'core-expander)) + (define |gx[1]#_g5872_| (gx#core-quote-syntax 'definition-form::t)) + (define |gx[1]#_g5873_| (gx#core-quote-syntax 'special-form::t)) + (define |gx[1]#_g5874_| (gx#core-quote-syntax 'definition-form::t)) + (define |gx[1]#_g5875_| (gx#core-quote-syntax 'make-definition-form)) + (define |gx[1]#_g5876_| (gx#core-quote-syntax 'definition-form?)) + (define |gx[1]#_g5877_| (gx#core-quote-syntax 'special-form)) + (define |gx[1]#_g5878_| (gx#core-quote-syntax 'top-special-form::t)) + (define |gx[1]#_g5879_| (gx#core-quote-syntax 'special-form::t)) + (define |gx[1]#_g5880_| (gx#core-quote-syntax 'top-special-form::t)) + (define |gx[1]#_g5881_| (gx#core-quote-syntax 'make-top-special-form)) + (define |gx[1]#_g5882_| (gx#core-quote-syntax 'top-special-form?)) + (define |gx[1]#_g5883_| (gx#core-quote-syntax 'special-form)) + (define |gx[1]#_g5884_| (gx#core-quote-syntax 'module-special-form::t)) + (define |gx[1]#_g5885_| (gx#core-quote-syntax 'top-special-form::t)) + (define |gx[1]#_g5886_| (gx#core-quote-syntax 'module-special-form::t)) + (define |gx[1]#_g5887_| (gx#core-quote-syntax 'make-module-special-form)) + (define |gx[1]#_g5888_| (gx#core-quote-syntax 'module-special-form?)) + (define |gx[1]#_g5889_| (gx#core-quote-syntax 'top-special-form)) + (define |gx[1]#_g5890_| (gx#core-quote-syntax 'feature-expander::t)) + (define |gx[1]#_g5891_| (gx#core-quote-syntax 'expander::t)) + (define |gx[1]#_g5892_| (gx#core-quote-syntax 'feature-expander::t)) + (define |gx[1]#_g5893_| (gx#core-quote-syntax 'make-feature-expander)) + (define |gx[1]#_g5894_| (gx#core-quote-syntax 'feature-expander?)) + (define |gx[1]#_g5895_| (gx#core-quote-syntax 'expander)) + (define |gx[1]#_g5896_| (gx#core-quote-syntax 'private-feature-expander::t)) + (define |gx[1]#_g5897_| (gx#core-quote-syntax 'feature-expander::t)) + (define |gx[1]#_g5898_| (gx#core-quote-syntax 'private-feature-expander::t)) + (define |gx[1]#_g5899_| (gx#core-quote-syntax 'make-private-feature-expander)) - (define |gx[1]#_g5824_| (gx#core-quote-syntax 'private-feature-expander?)) - (define |gx[1]#_g5825_| (gx#core-quote-syntax 'feature-expander)) - (define |gx[1]#_g5826_| (gx#core-quote-syntax 'reserved-expander::t)) - (define |gx[1]#_g5827_| (gx#core-quote-syntax 'expander::t)) - (define |gx[1]#_g5828_| (gx#core-quote-syntax 'reserved-expander::t)) - (define |gx[1]#_g5829_| (gx#core-quote-syntax 'make-reserved-expander)) - (define |gx[1]#_g5830_| (gx#core-quote-syntax 'reserved-expander?)) - (define |gx[1]#_g5831_| (gx#core-quote-syntax 'expander)) - (define |gx[1]#_g5832_| (gx#core-quote-syntax 'macro-expander::t)) - (define |gx[1]#_g5833_| (gx#core-quote-syntax 'expander::t)) - (define |gx[1]#_g5834_| (gx#core-quote-syntax 'macro-expander::t)) - (define |gx[1]#_g5835_| (gx#core-quote-syntax 'make-macro-expander)) - (define |gx[1]#_g5836_| (gx#core-quote-syntax 'macro-expander?)) - (define |gx[1]#_g5837_| (gx#core-quote-syntax 'expander)) - (define |gx[1]#_g5838_| (gx#core-quote-syntax 'rename-macro-expander::t)) - (define |gx[1]#_g5839_| (gx#core-quote-syntax 'macro-expander::t)) - (define |gx[1]#_g5840_| (gx#core-quote-syntax 'rename-macro-expander::t)) - (define |gx[1]#_g5841_| (gx#core-quote-syntax 'make-rename-macro-expander)) - (define |gx[1]#_g5842_| (gx#core-quote-syntax 'rename-macro-expander?)) - (define |gx[1]#_g5843_| (gx#core-quote-syntax 'macro-expander)) - (define |gx[1]#_g5844_| (gx#core-quote-syntax 'user-expander::t)) - (define |gx[1]#_g5845_| (gx#core-quote-syntax 'macro-expander::t)) - (define |gx[1]#_g5846_| (gx#core-quote-syntax 'user-expander::t)) - (define |gx[1]#_g5847_| (gx#core-quote-syntax 'make-user-expander)) - (define |gx[1]#_g5848_| (gx#core-quote-syntax 'user-expander?)) - (define |gx[1]#_g5849_| (gx#core-quote-syntax 'user-expander-context)) - (define |gx[1]#_g5850_| (gx#core-quote-syntax 'user-expander-phi)) - (define |gx[1]#_g5851_| (gx#core-quote-syntax 'user-expander-context-set!)) - (define |gx[1]#_g5852_| (gx#core-quote-syntax 'user-expander-phi-set!)) - (define |gx[1]#_g5853_| (gx#core-quote-syntax 'macro-expander)) - (define |gx[1]#_g5854_| (gx#core-quote-syntax 'expander-mark::t)) - (define |gx[1]#_g5855_| (gx#core-quote-syntax 'expander-mark::t)) - (define |gx[1]#_g5856_| (gx#core-quote-syntax 'make-expander-mark)) - (define |gx[1]#_g5857_| (gx#core-quote-syntax 'expander-mark?)) - (define |gx[1]#_g5858_| (gx#core-quote-syntax 'expander-mark-subst)) - (define |gx[1]#_g5859_| (gx#core-quote-syntax 'expander-mark-context)) - (define |gx[1]#_g5860_| (gx#core-quote-syntax 'expander-mark-phi)) - (define |gx[1]#_g5861_| (gx#core-quote-syntax 'expander-mark-trace)) - (define |gx[1]#_g5862_| (gx#core-quote-syntax 'expander-mark-subst-set!)) - (define |gx[1]#_g5863_| (gx#core-quote-syntax 'expander-mark-context-set!)) - (define |gx[1]#_g5864_| (gx#core-quote-syntax 'expander-mark-phi-set!)) - (define |gx[1]#_g5865_| (gx#core-quote-syntax 'expander-mark-trace-set!)) - (define |gx[1]#_g5866_| (gx#core-quote-syntax 'syntax-error::t)) - (define |gx[1]#_g5867_| (gx#core-quote-syntax 'error::t)) - (define |gx[1]#_g5868_| (gx#core-quote-syntax 'syntax-error::t)) - (define |gx[1]#_g5869_| (gx#core-quote-syntax 'make-syntax-error)) - (define |gx[1]#_g5870_| (gx#core-quote-syntax 'syntax-error?)) - (define |gx[1]#_g5871_| (gx#core-quote-syntax 'syntax-error-context)) - (define |gx[1]#_g5872_| (gx#core-quote-syntax 'syntax-error-marks)) - (define |gx[1]#_g5873_| (gx#core-quote-syntax 'syntax-error-phi)) - (define |gx[1]#_g5874_| (gx#core-quote-syntax 'syntax-error-context-set!)) - (define |gx[1]#_g5875_| (gx#core-quote-syntax 'syntax-error-marks-set!)) - (define |gx[1]#_g5876_| (gx#core-quote-syntax 'syntax-error-phi-set!)) - (define |gx[1]#_g5877_| (gx#core-quote-syntax ')) + (define |gx[1]#_g5900_| (gx#core-quote-syntax 'private-feature-expander?)) + (define |gx[1]#_g5901_| (gx#core-quote-syntax 'feature-expander)) + (define |gx[1]#_g5902_| (gx#core-quote-syntax 'reserved-expander::t)) + (define |gx[1]#_g5903_| (gx#core-quote-syntax 'expander::t)) + (define |gx[1]#_g5904_| (gx#core-quote-syntax 'reserved-expander::t)) + (define |gx[1]#_g5905_| (gx#core-quote-syntax 'make-reserved-expander)) + (define |gx[1]#_g5906_| (gx#core-quote-syntax 'reserved-expander?)) + (define |gx[1]#_g5907_| (gx#core-quote-syntax 'expander)) + (define |gx[1]#_g5908_| (gx#core-quote-syntax 'macro-expander::t)) + (define |gx[1]#_g5909_| (gx#core-quote-syntax 'expander::t)) + (define |gx[1]#_g5910_| (gx#core-quote-syntax 'macro-expander::t)) + (define |gx[1]#_g5911_| (gx#core-quote-syntax 'make-macro-expander)) + (define |gx[1]#_g5912_| (gx#core-quote-syntax 'macro-expander?)) + (define |gx[1]#_g5913_| (gx#core-quote-syntax 'expander)) + (define |gx[1]#_g5914_| (gx#core-quote-syntax 'rename-macro-expander::t)) + (define |gx[1]#_g5915_| (gx#core-quote-syntax 'macro-expander::t)) + (define |gx[1]#_g5916_| (gx#core-quote-syntax 'rename-macro-expander::t)) + (define |gx[1]#_g5917_| (gx#core-quote-syntax 'make-rename-macro-expander)) + (define |gx[1]#_g5918_| (gx#core-quote-syntax 'rename-macro-expander?)) + (define |gx[1]#_g5919_| (gx#core-quote-syntax 'macro-expander)) + (define |gx[1]#_g5920_| (gx#core-quote-syntax 'user-expander::t)) + (define |gx[1]#_g5921_| (gx#core-quote-syntax 'macro-expander::t)) + (define |gx[1]#_g5922_| (gx#core-quote-syntax 'user-expander::t)) + (define |gx[1]#_g5923_| (gx#core-quote-syntax 'make-user-expander)) + (define |gx[1]#_g5924_| (gx#core-quote-syntax 'user-expander?)) + (define |gx[1]#_g5925_| (gx#core-quote-syntax 'user-expander-context)) + (define |gx[1]#_g5926_| (gx#core-quote-syntax 'user-expander-phi)) + (define |gx[1]#_g5927_| (gx#core-quote-syntax 'user-expander-context-set!)) + (define |gx[1]#_g5928_| (gx#core-quote-syntax 'user-expander-phi-set!)) + (define |gx[1]#_g5929_| (gx#core-quote-syntax 'macro-expander)) + (define |gx[1]#_g5930_| (gx#core-quote-syntax 'expander-mark::t)) + (define |gx[1]#_g5931_| (gx#core-quote-syntax 'expander-mark::t)) + (define |gx[1]#_g5932_| (gx#core-quote-syntax 'make-expander-mark)) + (define |gx[1]#_g5933_| (gx#core-quote-syntax 'expander-mark?)) + (define |gx[1]#_g5934_| (gx#core-quote-syntax 'expander-mark-subst)) + (define |gx[1]#_g5935_| (gx#core-quote-syntax 'expander-mark-context)) + (define |gx[1]#_g5936_| (gx#core-quote-syntax 'expander-mark-phi)) + (define |gx[1]#_g5937_| (gx#core-quote-syntax 'expander-mark-trace)) + (define |gx[1]#_g5938_| (gx#core-quote-syntax 'expander-mark-subst-set!)) + (define |gx[1]#_g5939_| (gx#core-quote-syntax 'expander-mark-context-set!)) + (define |gx[1]#_g5940_| (gx#core-quote-syntax 'expander-mark-phi-set!)) + (define |gx[1]#_g5941_| (gx#core-quote-syntax 'expander-mark-trace-set!)) + (define |gx[1]#_g5942_| (gx#core-quote-syntax 'syntax-error::t)) + (define |gx[1]#_g5943_| (gx#core-quote-syntax 'error::t)) + (define |gx[1]#_g5944_| (gx#core-quote-syntax 'syntax-error::t)) + (define |gx[1]#_g5945_| (gx#core-quote-syntax 'make-syntax-error)) + (define |gx[1]#_g5946_| (gx#core-quote-syntax 'syntax-error?)) + (define |gx[1]#_g5947_| (gx#core-quote-syntax 'syntax-error-context)) + (define |gx[1]#_g5948_| (gx#core-quote-syntax 'syntax-error-marks)) + (define |gx[1]#_g5949_| (gx#core-quote-syntax 'syntax-error-phi)) + (define |gx[1]#_g5950_| (gx#core-quote-syntax 'syntax-error-context-set!)) + (define |gx[1]#_g5951_| (gx#core-quote-syntax 'syntax-error-marks-set!)) + (define |gx[1]#_g5952_| (gx#core-quote-syntax 'syntax-error-phi-set!)) + (define |gx[1]#_g5953_| (gx#core-quote-syntax ')) (begin (define |gx[:0:]#expander-context| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5630_| + |gx[1]#_g5706_| 'expander-identifiers: (cons '#f - (cons |gx[1]#_g5631_| - (cons |gx[1]#_g5632_| - (cons |gx[1]#_g5633_| - (cons (cons |gx[1]#_g5634_| - (cons |gx[1]#_g5635_| '())) - (cons (cons |gx[1]#_g5636_| - (cons |gx[1]#_g5637_| '())) + (cons |gx[1]#_g5707_| + (cons |gx[1]#_g5708_| + (cons |gx[1]#_g5709_| + (cons (cons |gx[1]#_g5710_| + (cons |gx[1]#_g5711_| '())) + (cons (cons |gx[1]#_g5712_| + (cons |gx[1]#_g5713_| '())) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| @@ -276,16 +276,16 @@ (define |gx[:0:]#root-context| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5638_| + |gx[1]#_g5714_| 'expander-identifiers: - (cons |gx[1]#_g5639_| - (cons |gx[1]#_g5640_| - (cons |gx[1]#_g5641_| - (cons |gx[1]#_g5642_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g5715_| + (cons |gx[1]#_g5716_| + (cons |gx[1]#_g5717_| + (cons |gx[1]#_g5718_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#root-context::t - |gx[1]#_g5643_| + |gx[1]#_g5719_| 'root-context '#f '() @@ -293,24 +293,24 @@ (define |gx[:0:]#phi-context| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5644_| + |gx[1]#_g5720_| 'expander-identifiers: - (cons |gx[1]#_g5645_| - (cons |gx[1]#_g5646_| - (cons |gx[1]#_g5647_| - (cons |gx[1]#_g5648_| - (cons (cons |gx[1]#_g5649_| - (cons |gx[1]#_g5650_| - (cons |gx[1]#_g5651_| '()))) - (cons (cons |gx[1]#_g5652_| - (cons |gx[1]#_g5653_| - (cons |gx[1]#_g5654_| + (cons |gx[1]#_g5721_| + (cons |gx[1]#_g5722_| + (cons |gx[1]#_g5723_| + (cons |gx[1]#_g5724_| + (cons (cons |gx[1]#_g5725_| + (cons |gx[1]#_g5726_| + (cons |gx[1]#_g5727_| '()))) + (cons (cons |gx[1]#_g5728_| + (cons |gx[1]#_g5729_| + (cons |gx[1]#_g5730_| '()))) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#context-phi::t - |gx[1]#_g5655_| + |gx[1]#_g5731_| 'phi-context '#f '() @@ -318,16 +318,16 @@ (define |gx[:0:]#top-context| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5656_| + |gx[1]#_g5732_| 'expander-identifiers: - (cons |gx[1]#_g5657_| - (cons |gx[1]#_g5658_| - (cons |gx[1]#_g5659_| - (cons |gx[1]#_g5660_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g5733_| + (cons |gx[1]#_g5734_| + (cons |gx[1]#_g5735_| + (cons |gx[1]#_g5736_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#top-context::t - |gx[1]#_g5661_| + |gx[1]#_g5737_| 'top-context '#f '() @@ -335,33 +335,33 @@ (define |gx[:0:]#module-context| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5662_| + |gx[1]#_g5738_| 'expander-identifiers: - (cons |gx[1]#_g5663_| - (cons |gx[1]#_g5664_| - (cons |gx[1]#_g5665_| - (cons |gx[1]#_g5666_| - (cons (cons |gx[1]#_g5667_| - (cons |gx[1]#_g5668_| - (cons |gx[1]#_g5669_| - (cons |gx[1]#_g5670_| - (cons |gx[1]#_g5671_| + (cons |gx[1]#_g5739_| + (cons |gx[1]#_g5740_| + (cons |gx[1]#_g5741_| + (cons |gx[1]#_g5742_| + (cons (cons |gx[1]#_g5743_| + (cons |gx[1]#_g5744_| + (cons |gx[1]#_g5745_| + (cons |gx[1]#_g5746_| + (cons |gx[1]#_g5747_| ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons |gx[1]#_g5672_| '())))))) + (cons |gx[1]#_g5748_| '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons |gx[1]#_g5673_| - (cons |gx[1]#_g5674_| - (cons |gx[1]#_g5675_| - (cons |gx[1]#_g5676_| + (cons (cons |gx[1]#_g5749_| + (cons |gx[1]#_g5750_| + (cons |gx[1]#_g5751_| + (cons |gx[1]#_g5752_| ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons |gx[1]#_g5677_| - (cons |gx[1]#_g5678_| '())))))) + (cons |gx[1]#_g5753_| + (cons |gx[1]#_g5754_| '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#module-context::t - |gx[1]#_g5679_| + |gx[1]#_g5755_| 'module-context '#f '() @@ -369,24 +369,24 @@ (define |gx[:0:]#prelude-context| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5680_| + |gx[1]#_g5756_| 'expander-identifiers: - (cons |gx[1]#_g5681_| - (cons |gx[1]#_g5682_| - (cons |gx[1]#_g5683_| - (cons |gx[1]#_g5684_| - (cons (cons |gx[1]#_g5685_| - (cons |gx[1]#_g5686_| - (cons |gx[1]#_g5687_| '()))) - (cons (cons |gx[1]#_g5688_| - (cons |gx[1]#_g5689_| - (cons |gx[1]#_g5690_| + (cons |gx[1]#_g5757_| + (cons |gx[1]#_g5758_| + (cons |gx[1]#_g5759_| + (cons |gx[1]#_g5760_| + (cons (cons |gx[1]#_g5761_| + (cons |gx[1]#_g5762_| + (cons |gx[1]#_g5763_| '()))) + (cons (cons |gx[1]#_g5764_| + (cons |gx[1]#_g5765_| + (cons |gx[1]#_g5766_| '()))) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#prelude-context::t - |gx[1]#_g5691_| + |gx[1]#_g5767_| 'prelude-context '#f '() @@ -394,16 +394,16 @@ (define |gx[:0:]#local-context| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5692_| + |gx[1]#_g5768_| 'expander-identifiers: - (cons |gx[1]#_g5693_| - (cons |gx[1]#_g5694_| - (cons |gx[1]#_g5695_| - (cons |gx[1]#_g5696_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g5769_| + (cons |gx[1]#_g5770_| + (cons |gx[1]#_g5771_| + (cons |gx[1]#_g5772_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#local-context::t - |gx[1]#_g5697_| + |gx[1]#_g5773_| 'local-context '#f '() @@ -411,18 +411,18 @@ (define |gx[:0:]#binding| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5698_| + |gx[1]#_g5774_| 'expander-identifiers: (cons '#f - (cons |gx[1]#_g5699_| - (cons |gx[1]#_g5700_| - (cons |gx[1]#_g5701_| - (cons (cons |gx[1]#_g5702_| - (cons |gx[1]#_g5703_| - (cons |gx[1]#_g5704_| '()))) - (cons (cons |gx[1]#_g5705_| - (cons |gx[1]#_g5706_| - (cons |gx[1]#_g5707_| + (cons |gx[1]#_g5775_| + (cons |gx[1]#_g5776_| + (cons |gx[1]#_g5777_| + (cons (cons |gx[1]#_g5778_| + (cons |gx[1]#_g5779_| + (cons |gx[1]#_g5780_| '()))) + (cons (cons |gx[1]#_g5781_| + (cons |gx[1]#_g5782_| + (cons |gx[1]#_g5783_| '()))) '())))))) 'type-exhibitor: @@ -436,16 +436,16 @@ (define |gx[:0:]#runtime-binding| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5708_| + |gx[1]#_g5784_| 'expander-identifiers: - (cons |gx[1]#_g5709_| - (cons |gx[1]#_g5710_| - (cons |gx[1]#_g5711_| - (cons |gx[1]#_g5712_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g5785_| + (cons |gx[1]#_g5786_| + (cons |gx[1]#_g5787_| + (cons |gx[1]#_g5788_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#runtime-binding::t - |gx[1]#_g5713_| + |gx[1]#_g5789_| 'runtime-binding '#f '() @@ -453,16 +453,16 @@ (define |gx[:0:]#local-binding| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5714_| + |gx[1]#_g5790_| 'expander-identifiers: - (cons |gx[1]#_g5715_| - (cons |gx[1]#_g5716_| - (cons |gx[1]#_g5717_| - (cons |gx[1]#_g5718_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g5791_| + (cons |gx[1]#_g5792_| + (cons |gx[1]#_g5793_| + (cons |gx[1]#_g5794_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#local-binding::t - |gx[1]#_g5719_| + |gx[1]#_g5795_| 'local-binding '#f '() @@ -470,16 +470,16 @@ (define |gx[:0:]#top-binding| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5720_| + |gx[1]#_g5796_| 'expander-identifiers: - (cons |gx[1]#_g5721_| - (cons |gx[1]#_g5722_| - (cons |gx[1]#_g5723_| - (cons |gx[1]#_g5724_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g5797_| + (cons |gx[1]#_g5798_| + (cons |gx[1]#_g5799_| + (cons |gx[1]#_g5800_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#top-binding::t - |gx[1]#_g5725_| + |gx[1]#_g5801_| 'top-binding '#f '() @@ -487,18 +487,18 @@ (define |gx[:0:]#module-binding| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5726_| + |gx[1]#_g5802_| 'expander-identifiers: - (cons |gx[1]#_g5727_| - (cons |gx[1]#_g5728_| - (cons |gx[1]#_g5729_| - (cons |gx[1]#_g5730_| - (cons (cons |gx[1]#_g5731_| '()) - (cons (cons |gx[1]#_g5732_| '()) '())))))) + (cons |gx[1]#_g5803_| + (cons |gx[1]#_g5804_| + (cons |gx[1]#_g5805_| + (cons |gx[1]#_g5806_| + (cons (cons |gx[1]#_g5807_| '()) + (cons (cons |gx[1]#_g5808_| '()) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#module-binding::t - |gx[1]#_g5733_| + |gx[1]#_g5809_| 'module-binding '#f '() @@ -506,16 +506,16 @@ (define |gx[:0:]#extern-binding| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5734_| + |gx[1]#_g5810_| 'expander-identifiers: - (cons |gx[1]#_g5735_| - (cons |gx[1]#_g5736_| - (cons |gx[1]#_g5737_| - (cons |gx[1]#_g5738_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g5811_| + (cons |gx[1]#_g5812_| + (cons |gx[1]#_g5813_| + (cons |gx[1]#_g5814_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#extern-binding::t - |gx[1]#_g5739_| + |gx[1]#_g5815_| 'extern-binding '#f '() @@ -523,18 +523,18 @@ (define |gx[:0:]#syntax-binding| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5740_| + |gx[1]#_g5816_| 'expander-identifiers: - (cons |gx[1]#_g5741_| - (cons |gx[1]#_g5742_| - (cons |gx[1]#_g5743_| - (cons |gx[1]#_g5744_| - (cons (cons |gx[1]#_g5745_| '()) - (cons (cons |gx[1]#_g5746_| '()) '())))))) + (cons |gx[1]#_g5817_| + (cons |gx[1]#_g5818_| + (cons |gx[1]#_g5819_| + (cons |gx[1]#_g5820_| + (cons (cons |gx[1]#_g5821_| '()) + (cons (cons |gx[1]#_g5822_| '()) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#syntax-binding::t - |gx[1]#_g5747_| + |gx[1]#_g5823_| 'syntax-binding '#f '((final: . #t)) @@ -542,24 +542,24 @@ (define |gx[:0:]#import-binding| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5748_| + |gx[1]#_g5824_| 'expander-identifiers: - (cons |gx[1]#_g5749_| - (cons |gx[1]#_g5750_| - (cons |gx[1]#_g5751_| - (cons |gx[1]#_g5752_| - (cons (cons |gx[1]#_g5753_| - (cons |gx[1]#_g5754_| - (cons |gx[1]#_g5755_| '()))) - (cons (cons |gx[1]#_g5756_| - (cons |gx[1]#_g5757_| - (cons |gx[1]#_g5758_| + (cons |gx[1]#_g5825_| + (cons |gx[1]#_g5826_| + (cons |gx[1]#_g5827_| + (cons |gx[1]#_g5828_| + (cons (cons |gx[1]#_g5829_| + (cons |gx[1]#_g5830_| + (cons |gx[1]#_g5831_| '()))) + (cons (cons |gx[1]#_g5832_| + (cons |gx[1]#_g5833_| + (cons |gx[1]#_g5834_| '()))) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#import-binding::t - |gx[1]#_g5759_| + |gx[1]#_g5835_| 'import-binding '#f '((final: . #t)) @@ -567,18 +567,18 @@ (define |gx[:0:]#alias-binding| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5760_| + |gx[1]#_g5836_| 'expander-identifiers: - (cons |gx[1]#_g5761_| - (cons |gx[1]#_g5762_| - (cons |gx[1]#_g5763_| - (cons |gx[1]#_g5764_| - (cons (cons |gx[1]#_g5765_| '()) - (cons (cons |gx[1]#_g5766_| '()) '())))))) + (cons |gx[1]#_g5837_| + (cons |gx[1]#_g5838_| + (cons |gx[1]#_g5839_| + (cons |gx[1]#_g5840_| + (cons (cons |gx[1]#_g5841_| '()) + (cons (cons |gx[1]#_g5842_| '()) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#alias-binding::t - |gx[1]#_g5767_| + |gx[1]#_g5843_| 'alias-binding '#f '((final: . #t)) @@ -586,14 +586,14 @@ (define |gx[:0:]#expander| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5768_| + |gx[1]#_g5844_| 'expander-identifiers: (cons '#f - (cons |gx[1]#_g5769_| - (cons |gx[1]#_g5770_| - (cons |gx[1]#_g5771_| - (cons (cons |gx[1]#_g5772_| '()) - (cons (cons |gx[1]#_g5773_| '()) '())))))) + (cons |gx[1]#_g5845_| + (cons |gx[1]#_g5846_| + (cons |gx[1]#_g5847_| + (cons (cons |gx[1]#_g5848_| '()) + (cons (cons |gx[1]#_g5849_| '()) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#expander::t @@ -605,21 +605,21 @@ (define |gx[:0:]#core-expander| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5774_| + |gx[1]#_g5850_| 'expander-identifiers: - (cons |gx[1]#_g5775_| - (cons |gx[1]#_g5776_| - (cons |gx[1]#_g5777_| - (cons |gx[1]#_g5778_| - (cons (cons |gx[1]#_g5779_| - (cons |gx[1]#_g5780_| '())) - (cons (cons |gx[1]#_g5781_| - (cons |gx[1]#_g5782_| '())) + (cons |gx[1]#_g5851_| + (cons |gx[1]#_g5852_| + (cons |gx[1]#_g5853_| + (cons |gx[1]#_g5854_| + (cons (cons |gx[1]#_g5855_| + (cons |gx[1]#_g5856_| '())) + (cons (cons |gx[1]#_g5857_| + (cons |gx[1]#_g5858_| '())) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#core-expander::t - |gx[1]#_g5783_| + |gx[1]#_g5859_| 'core-expander '#f '() @@ -627,16 +627,16 @@ (define |gx[:0:]#expression-form| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5784_| + |gx[1]#_g5860_| 'expander-identifiers: - (cons |gx[1]#_g5785_| - (cons |gx[1]#_g5786_| - (cons |gx[1]#_g5787_| - (cons |gx[1]#_g5788_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g5861_| + (cons |gx[1]#_g5862_| + (cons |gx[1]#_g5863_| + (cons |gx[1]#_g5864_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#expression-form::t - |gx[1]#_g5789_| + |gx[1]#_g5865_| 'expression-form '#f '() @@ -644,16 +644,16 @@ (define |gx[:0:]#special-form| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5790_| + |gx[1]#_g5866_| 'expander-identifiers: - (cons |gx[1]#_g5791_| - (cons |gx[1]#_g5792_| - (cons |gx[1]#_g5793_| - (cons |gx[1]#_g5794_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g5867_| + (cons |gx[1]#_g5868_| + (cons |gx[1]#_g5869_| + (cons |gx[1]#_g5870_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#special-form::t - |gx[1]#_g5795_| + |gx[1]#_g5871_| 'special-form '#f '() @@ -661,16 +661,16 @@ (define |gx[:0:]#definition-form| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5796_| + |gx[1]#_g5872_| 'expander-identifiers: - (cons |gx[1]#_g5797_| - (cons |gx[1]#_g5798_| - (cons |gx[1]#_g5799_| - (cons |gx[1]#_g5800_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g5873_| + (cons |gx[1]#_g5874_| + (cons |gx[1]#_g5875_| + (cons |gx[1]#_g5876_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#definition-form::t - |gx[1]#_g5801_| + |gx[1]#_g5877_| 'definition-form '#f '() @@ -678,16 +678,16 @@ (define |gx[:0:]#top-special-form| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5802_| + |gx[1]#_g5878_| 'expander-identifiers: - (cons |gx[1]#_g5803_| - (cons |gx[1]#_g5804_| - (cons |gx[1]#_g5805_| - (cons |gx[1]#_g5806_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g5879_| + (cons |gx[1]#_g5880_| + (cons |gx[1]#_g5881_| + (cons |gx[1]#_g5882_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#top-special-form::t - |gx[1]#_g5807_| + |gx[1]#_g5883_| 'top-special-form '#f '() @@ -695,16 +695,16 @@ (define |gx[:0:]#module-special-form| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5808_| + |gx[1]#_g5884_| 'expander-identifiers: - (cons |gx[1]#_g5809_| - (cons |gx[1]#_g5810_| - (cons |gx[1]#_g5811_| - (cons |gx[1]#_g5812_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g5885_| + (cons |gx[1]#_g5886_| + (cons |gx[1]#_g5887_| + (cons |gx[1]#_g5888_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#module-special-form::t - |gx[1]#_g5813_| + |gx[1]#_g5889_| 'module-special-form '#f '() @@ -712,16 +712,16 @@ (define |gx[:0:]#feature-expander| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5814_| + |gx[1]#_g5890_| 'expander-identifiers: - (cons |gx[1]#_g5815_| - (cons |gx[1]#_g5816_| - (cons |gx[1]#_g5817_| - (cons |gx[1]#_g5818_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g5891_| + (cons |gx[1]#_g5892_| + (cons |gx[1]#_g5893_| + (cons |gx[1]#_g5894_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#feature-expander::t - |gx[1]#_g5819_| + |gx[1]#_g5895_| 'feature-expander '#f '() @@ -729,16 +729,16 @@ (define |gx[:0:]#private-feature-expander| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5820_| + |gx[1]#_g5896_| 'expander-identifiers: - (cons |gx[1]#_g5821_| - (cons |gx[1]#_g5822_| - (cons |gx[1]#_g5823_| - (cons |gx[1]#_g5824_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g5897_| + (cons |gx[1]#_g5898_| + (cons |gx[1]#_g5899_| + (cons |gx[1]#_g5900_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#private-feature-expander::t - |gx[1]#_g5825_| + |gx[1]#_g5901_| 'private-feature-expander '#f '() @@ -746,16 +746,16 @@ (define |gx[:0:]#reserved-expander| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5826_| + |gx[1]#_g5902_| 'expander-identifiers: - (cons |gx[1]#_g5827_| - (cons |gx[1]#_g5828_| - (cons |gx[1]#_g5829_| - (cons |gx[1]#_g5830_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g5903_| + (cons |gx[1]#_g5904_| + (cons |gx[1]#_g5905_| + (cons |gx[1]#_g5906_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#reserved-expander::t - |gx[1]#_g5831_| + |gx[1]#_g5907_| 'reserved-expander '#f '() @@ -763,16 +763,16 @@ (define |gx[:0:]#macro-expander| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5832_| + |gx[1]#_g5908_| 'expander-identifiers: - (cons |gx[1]#_g5833_| - (cons |gx[1]#_g5834_| - (cons |gx[1]#_g5835_| - (cons |gx[1]#_g5836_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g5909_| + (cons |gx[1]#_g5910_| + (cons |gx[1]#_g5911_| + (cons |gx[1]#_g5912_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#core-macro::t - |gx[1]#_g5837_| + |gx[1]#_g5913_| 'macro-expander '#f '() @@ -780,16 +780,16 @@ (define |gx[:0:]#rename-macro-expander| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5838_| + |gx[1]#_g5914_| 'expander-identifiers: - (cons |gx[1]#_g5839_| - (cons |gx[1]#_g5840_| - (cons |gx[1]#_g5841_| - (cons |gx[1]#_g5842_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g5915_| + (cons |gx[1]#_g5916_| + (cons |gx[1]#_g5917_| + (cons |gx[1]#_g5918_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#rename-macro-expander::t - |gx[1]#_g5843_| + |gx[1]#_g5919_| 'rename-macro-expander '#f '() @@ -797,21 +797,21 @@ (define |gx[:0:]#user-expander| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5844_| + |gx[1]#_g5920_| 'expander-identifiers: - (cons |gx[1]#_g5845_| - (cons |gx[1]#_g5846_| - (cons |gx[1]#_g5847_| - (cons |gx[1]#_g5848_| - (cons (cons |gx[1]#_g5849_| - (cons |gx[1]#_g5850_| '())) - (cons (cons |gx[1]#_g5851_| - (cons |gx[1]#_g5852_| '())) + (cons |gx[1]#_g5921_| + (cons |gx[1]#_g5922_| + (cons |gx[1]#_g5923_| + (cons |gx[1]#_g5924_| + (cons (cons |gx[1]#_g5925_| + (cons |gx[1]#_g5926_| '())) + (cons (cons |gx[1]#_g5927_| + (cons |gx[1]#_g5928_| '())) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#macro-expander::t - |gx[1]#_g5853_| + |gx[1]#_g5929_| 'user-expander '#f '() @@ -819,21 +819,21 @@ (define |gx[:0:]#expander-mark| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5854_| + |gx[1]#_g5930_| 'expander-identifiers: (cons '#f - (cons |gx[1]#_g5855_| - (cons |gx[1]#_g5856_| - (cons |gx[1]#_g5857_| - (cons (cons |gx[1]#_g5858_| - (cons |gx[1]#_g5859_| - (cons |gx[1]#_g5860_| - (cons |gx[1]#_g5861_| + (cons |gx[1]#_g5931_| + (cons |gx[1]#_g5932_| + (cons |gx[1]#_g5933_| + (cons (cons |gx[1]#_g5934_| + (cons |gx[1]#_g5935_| + (cons |gx[1]#_g5936_| + (cons |gx[1]#_g5937_| '())))) - (cons (cons |gx[1]#_g5862_| - (cons |gx[1]#_g5863_| - (cons |gx[1]#_g5864_| - (cons |gx[1]#_g5865_| + (cons (cons |gx[1]#_g5938_| + (cons |gx[1]#_g5939_| + (cons |gx[1]#_g5940_| + (cons |gx[1]#_g5941_| ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -849,24 +849,24 @@ (define |gx[:0:]#syntax-error| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g5866_| + |gx[1]#_g5942_| 'expander-identifiers: - (cons |gx[1]#_g5867_| - (cons |gx[1]#_g5868_| - (cons |gx[1]#_g5869_| - (cons |gx[1]#_g5870_| - (cons (cons |gx[1]#_g5871_| - (cons |gx[1]#_g5872_| - (cons |gx[1]#_g5873_| '()))) - (cons (cons |gx[1]#_g5874_| - (cons |gx[1]#_g5875_| - (cons |gx[1]#_g5876_| + (cons |gx[1]#_g5943_| + (cons |gx[1]#_g5944_| + (cons |gx[1]#_g5945_| + (cons |gx[1]#_g5946_| + (cons (cons |gx[1]#_g5947_| + (cons |gx[1]#_g5948_| + (cons |gx[1]#_g5949_| '()))) + (cons (cons |gx[1]#_g5950_| + (cons |gx[1]#_g5951_| + (cons |gx[1]#_g5952_| '()))) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#syntax-error::t - |gx[1]#_g5877_| + |gx[1]#_g5953_| 'syntax-error '#f '() diff --git a/src/bootstrap/gerbil/expander/module.ssi b/src/bootstrap/gerbil/expander/module.ssi index efdae77fa..0866a7037 100644 --- a/src/bootstrap/gerbil/expander/module.ssi +++ b/src/bootstrap/gerbil/expander/module.ssi @@ -81,8 +81,8 @@ namespace: gx gx#current-export-expander-phi) (%#define-runtime module-context:::init! gx#module-context:::init!) (%#begin (%#define-runtime - prelude-context:::init!__opt-lambda11000 - gx#prelude-context:::init!__opt-lambda11000) + prelude-context:::init!__opt-lambda11076 + gx#prelude-context:::init!__opt-lambda11076) (%#begin (%#define-runtime prelude-context:::init!__0 gx#prelude-context:::init!__0) @@ -99,8 +99,8 @@ namespace: gx gx#export-expander::apply-export-expander) (%#define-runtime module-source-path gx#module-source-path) (%#begin (%#define-runtime - import-module__opt-lambda10948 - gx#import-module__opt-lambda10948) + import-module__opt-lambda11024 + gx#import-module__opt-lambda11024) (%#begin (%#define-runtime import-module__0 gx#import-module__0) @@ -111,8 +111,8 @@ namespace: gx (%#define-runtime eval-module gx#eval-module) (%#define-runtime core-eval-module gx#core-eval-module) (%#begin (%#define-runtime - core-context-prelude__opt-lambda10913 - gx#core-context-prelude__opt-lambda10913) + core-context-prelude__opt-lambda10989 + gx#core-context-prelude__opt-lambda10989) (%#begin (%#define-runtime core-context-prelude__0 gx#core-context-prelude__0) @@ -123,8 +123,8 @@ namespace: gx core-module->prelude-context gx#core-module->prelude-context) (%#begin (%#define-runtime - core-import-module__opt-lambda10857 - gx#core-import-module__opt-lambda10857) + core-import-module__opt-lambda10933 + gx#core-import-module__opt-lambda10933) (%#begin (%#define-runtime core-import-module__0 gx#core-import-module__0) @@ -137,8 +137,8 @@ namespace: gx gx#core-module-path->namespace) (%#define-runtime core-module-path->id gx#core-module-path->id) (%#begin (%#define-runtime - core-resolve-module-path__opt-lambda10695 - gx#core-resolve-module-path__opt-lambda10695) + core-resolve-module-path__opt-lambda10771 + gx#core-resolve-module-path__opt-lambda10771) (%#begin (%#define-runtime core-resolve-module-path__0 gx#core-resolve-module-path__0) @@ -160,8 +160,8 @@ namespace: gx core-bound-module-prelude? gx#core-bound-module-prelude?) (%#begin (%#define-runtime - core-bind-import!__opt-lambda10539 - gx#core-bind-import!__opt-lambda10539) + core-bind-import!__opt-lambda10615 + gx#core-bind-import!__opt-lambda10615) (%#begin (%#define-runtime core-bind-import!__0 gx#core-bind-import!__0) @@ -172,8 +172,8 @@ namespace: gx core-bind-import! gx#core-bind-import!))) (%#begin (%#define-runtime - core-bind-weak-import!__opt-lambda10525 - gx#core-bind-weak-import!__opt-lambda10525) + core-bind-weak-import!__opt-lambda10601 + gx#core-bind-weak-import!__opt-lambda10601) (%#begin (%#define-runtime core-bind-weak-import!__0 gx#core-bind-weak-import!__0) @@ -184,8 +184,8 @@ namespace: gx core-resolve-module-export gx#core-resolve-module-export) (%#begin (%#define-runtime - core-module-export->import__opt-lambda10341 - gx#core-module-export->import__opt-lambda10341) + core-module-export->import__opt-lambda10417 + gx#core-module-export->import__opt-lambda10417) (%#begin (%#define-runtime core-module-export->import__0 gx#core-module-export->import__0) @@ -204,8 +204,8 @@ namespace: gx core-expand-import/export gx#core-expand-import/export) (%#begin (%#define-runtime - core-expand-import%__opt-lambda9443 - gx#core-expand-import%__opt-lambda9443) + core-expand-import%__opt-lambda9519 + gx#core-expand-import%__opt-lambda9519) (%#begin (%#define-runtime core-expand-import%__0 gx#core-expand-import%__0) @@ -219,8 +219,8 @@ namespace: gx core-expand-import-source gx#core-expand-import-source) (%#begin (%#define-runtime - core-expand-export%__opt-lambda8952 - gx#core-expand-export%__opt-lambda8952) + core-expand-export%__opt-lambda9028 + gx#core-expand-export%__opt-lambda9028) (%#begin (%#define-runtime core-expand-export%__0 gx#core-expand-export%__0) @@ -232,8 +232,8 @@ namespace: gx gx#core-expand-export-source) (%#define-runtime core-expand-provide% gx#core-expand-provide%) (%#begin (%#define-runtime - core-bind-feature!__opt-lambda8885 - gx#core-bind-feature!__opt-lambda8885) + core-bind-feature!__opt-lambda8961 + gx#core-bind-feature!__opt-lambda8961) (%#begin (%#define-runtime core-bind-feature!__0 gx#core-bind-feature!__0) diff --git a/src/bootstrap/gerbil/expander/module.ssxi.ss b/src/bootstrap/gerbil/expander/module.ssxi.ss index 899e0e43a..de4315edb 100644 --- a/src/bootstrap/gerbil/expander/module.ssxi.ss +++ b/src/bootstrap/gerbil/expander/module.ssxi.ss @@ -79,7 +79,7 @@ package: gerbil/expander gx#prelude-context:::init! (@case-lambda (2 gx#prelude-context:::init!__0) - (3 gx#prelude-context:::init!__opt-lambda11000))) + (3 gx#prelude-context:::init!__opt-lambda11076))) (declare-method gx#prelude-context::t :init! gx#prelude-context:::init! #f) (declare-method gx#import-expander::t :init! gx#import-expander:::init! #f) (declare-method gx#export-expander::t :init! gx#export-expander:::init! #f) @@ -98,53 +98,53 @@ package: gerbil/expander (@case-lambda (1 gx#import-module__0) (2 gx#import-module__1) - (3 gx#import-module__opt-lambda10948))) + (3 gx#import-module__opt-lambda11024))) (declare-type gx#core-context-prelude (@case-lambda (0 gx#core-context-prelude__0) - (1 gx#core-context-prelude__opt-lambda10913))) + (1 gx#core-context-prelude__opt-lambda10989))) (declare-type gx#core-import-module (@case-lambda (1 gx#core-import-module__0) - (2 gx#core-import-module__opt-lambda10857))) + (2 gx#core-import-module__opt-lambda10933))) (declare-type gx#core-resolve-module-path (@case-lambda (1 gx#core-resolve-module-path__0) - (2 gx#core-resolve-module-path__opt-lambda10695))) + (2 gx#core-resolve-module-path__opt-lambda10771))) (declare-type gx#core-bind-import! (@case-lambda (1 gx#core-bind-import!__0) (2 gx#core-bind-import!__1) - (3 gx#core-bind-import!__opt-lambda10539))) + (3 gx#core-bind-import!__opt-lambda10615))) (declare-type gx#core-bind-weak-import! (@case-lambda (1 gx#core-bind-weak-import!__0) - (2 gx#core-bind-weak-import!__opt-lambda10525))) + (2 gx#core-bind-weak-import!__opt-lambda10601))) (declare-type gx#core-module-export->import (@case-lambda (1 gx#core-module-export->import__0) (2 gx#core-module-export->import__1) - (3 gx#core-module-export->import__opt-lambda10341))) + (3 gx#core-module-export->import__opt-lambda10417))) (declare-type gx#core-expand-import% (@case-lambda (1 gx#core-expand-import%__0) - (2 gx#core-expand-import%__opt-lambda9443))) + (2 gx#core-expand-import%__opt-lambda9519))) (declare-type gx#core-expand-export% (@case-lambda (1 gx#core-expand-export%__0) - (2 gx#core-expand-export%__opt-lambda8952))) + (2 gx#core-expand-export%__opt-lambda9028))) (declare-type gx#core-bind-feature! (@case-lambda (1 gx#core-bind-feature!__0) (2 gx#core-bind-feature!__1) (3 gx#core-bind-feature!__2) - (4 gx#core-bind-feature!__opt-lambda8885)))) + (4 gx#core-bind-feature!__opt-lambda8961)))) diff --git a/src/bootstrap/gerbil/expander/module__0.scm b/src/bootstrap/gerbil/expander/module__0.scm index 1af3da1da..23e2a939e 100644 --- a/src/bootstrap/gerbil/expander/module__0.scm +++ b/src/bootstrap/gerbil/expander/module__0.scm @@ -10,8 +10,8 @@ '#f)) (define gx#module-import? (make-struct-predicate gx#module-import::t)) (define gx#make-module-import - (lambda _$args11057_ - (apply make-struct-instance gx#module-import::t _$args11057_))) + (lambda _$args11133_ + (apply make-struct-instance gx#module-import::t _$args11133_))) (define gx#module-import-source (make-struct-field-accessor gx#module-import::t '0)) (define gx#module-import-name @@ -38,8 +38,8 @@ '#f)) (define gx#module-export? (make-struct-predicate gx#module-export::t)) (define gx#make-module-export - (lambda _$args11054_ - (apply make-struct-instance gx#module-export::t _$args11054_))) + (lambda _$args11130_ + (apply make-struct-instance gx#module-export::t _$args11130_))) (define gx#module-export-context (make-struct-field-accessor gx#module-export::t '0)) (define gx#module-export-key @@ -70,8 +70,8 @@ '#f)) (define gx#import-set? (make-struct-predicate gx#import-set::t)) (define gx#make-import-set - (lambda _$args11051_ - (apply make-struct-instance gx#import-set::t _$args11051_))) + (lambda _$args11127_ + (apply make-struct-instance gx#import-set::t _$args11127_))) (define gx#import-set-source (make-struct-field-accessor gx#import-set::t '0)) (define gx#import-set-phi (make-struct-field-accessor gx#import-set::t '1)) @@ -93,8 +93,8 @@ '#f)) (define gx#export-set? (make-struct-predicate gx#export-set::t)) (define gx#make-export-set - (lambda _$args11048_ - (apply make-struct-instance gx#export-set::t _$args11048_))) + (lambda _$args11124_ + (apply make-struct-instance gx#export-set::t _$args11124_))) (define gx#export-set-source (make-struct-field-accessor gx#export-set::t '0)) (define gx#export-set-phi (make-struct-field-accessor gx#export-set::t '1)) @@ -116,8 +116,8 @@ ':init!)) (define gx#import-expander? (make-struct-predicate gx#import-expander::t)) (define gx#make-import-expander - (lambda _$args11045_ - (apply make-struct-instance gx#import-expander::t _$args11045_))) + (lambda _$args11121_ + (apply make-struct-instance gx#import-expander::t _$args11121_))) (define gx#export-expander::t (make-struct-type 'gx#export-expander::t @@ -128,77 +128,77 @@ ':init!)) (define gx#export-expander? (make-struct-predicate gx#export-expander::t)) (define gx#make-export-expander - (lambda _$args11042_ - (apply make-struct-instance gx#export-expander::t _$args11042_))) + (lambda _$args11118_ + (apply make-struct-instance gx#export-expander::t _$args11118_))) (define gx#current-import-expander-phi (make-parameter '#f)) (define gx#current-export-expander-phi (make-parameter '#f)) (define gx#module-context:::init! - (lambda (_self11036_ _id11037_ _super11038_ _ns11039_ _path11040_) + (lambda (_self11112_ _id11113_ _super11114_ _ns11115_ _path11116_) (direct-struct-instance-init! - _self11036_ - _id11037_ + _self11112_ + _id11113_ (make-hash-table-eq) - _super11038_ + _super11114_ '#f '#f - _ns11039_ - _path11040_ + _ns11115_ + _path11116_ '() '() '#f '#f))) (bind-method! gx#module-context::t ':init! gx#module-context:::init! '#f) (begin - (define gx#prelude-context:::init!__opt-lambda11000 - (lambda (_self11002_ _ctx11003_ _root11004_) - (let ((_super11012_ - (let ((_$e11006_ _root11004_)) - (if _$e11006_ - _$e11006_ - (let ((_$e11009_ (gx#core-context-root__0))) - (if _$e11009_ - _$e11009_ + (define gx#prelude-context:::init!__opt-lambda11076 + (lambda (_self11078_ _ctx11079_ _root11080_) + (let ((_super11088_ + (let ((_$e11082_ _root11080_)) + (if _$e11082_ + _$e11082_ + (let ((_$e11085_ (gx#core-context-root__0))) + (if _$e11085_ + _$e11085_ (make-struct-instance gx#root-context::t))))))) - (if _ctx11003_ - (let ((_id11015_ + (if _ctx11079_ + (let ((_id11091_ (##structure-ref - _ctx11003_ + _ctx11079_ '1 gx#expander-context::t '#f)) - (_path11016_ - (##structure-ref _ctx11003_ '7 gx#module-context::t '#f)) - (_in11017_ + (_path11092_ + (##structure-ref _ctx11079_ '7 gx#module-context::t '#f)) + (_in11093_ (map gx#core-module-export->import (##structure-ref - _ctx11003_ + _ctx11079_ '9 gx#module-context::t '#f))) - (_e11018_ - (make-promise (lambda () (gx#eval-module _ctx11003_))))) + (_e11094_ + (make-promise (lambda () (gx#eval-module _ctx11079_))))) (begin (direct-struct-instance-init! - _self11002_ - _id11015_ + _self11078_ + _id11091_ (make-hash-table-eq) - _super11012_ + _super11088_ '#f '#f - _path11016_ - _in11017_ - _e11018_) + _path11092_ + _in11093_ + _e11094_) (for-each - (lambda (_g1101911021_) - (gx#core-bind-weak-import!__opt-lambda10525 - _g1101911021_ - _self11002_)) - _in11017_))) + (lambda (_g1109511097_) + (gx#core-bind-weak-import!__opt-lambda10601 + _g1109511097_ + _self11078_)) + _in11093_))) (direct-struct-instance-init! - _self11002_ + _self11078_ '#f (make-hash-table-eq) - _super11012_ + _super11088_ '#f '#f '#f @@ -206,43 +206,43 @@ '#f))))) (begin (define gx#prelude-context:::init!__0 - (lambda (_self11027_ _ctx11028_) - (let ((_root11030_ '#f)) - (gx#prelude-context:::init!__opt-lambda11000 - _self11027_ - _ctx11028_ - _root11030_)))) + (lambda (_self11103_ _ctx11104_) + (let ((_root11106_ '#f)) + (gx#prelude-context:::init!__opt-lambda11076 + _self11103_ + _ctx11104_ + _root11106_)))) (define gx#prelude-context:::init! - (lambda _g11073_ - (let ((_g11072_ (length _g11073_))) - (cond ((fx= _g11072_ 2) - (apply gx#prelude-context:::init!__0 _g11073_)) - ((fx= _g11072_ 3) - (apply gx#prelude-context:::init!__opt-lambda11000 - _g11073_)) - (else (error "No clause matching arguments" _g11073_)))))))) + (lambda _g11149_ + (let ((_g11148_ (length _g11149_))) + (cond ((fx= _g11148_ 2) + (apply gx#prelude-context:::init!__0 _g11149_)) + ((fx= _g11148_ 3) + (apply gx#prelude-context:::init!__opt-lambda11076 + _g11149_)) + (else (error "No clause matching arguments" _g11149_)))))))) (bind-method! gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) (define gx#import-expander:::init! - (lambda (_self10998_ _e10999_) + (lambda (_self11074_ _e11075_) (direct-struct-instance-init! - _self10998_ - _e10999_ + _self11074_ + _e11075_ (gx#current-expander-context) (fx- (gx#current-expander-phi) '1)))) (bind-method! gx#import-expander::t ':init! gx#import-expander:::init! '#f) (define gx#export-expander:::init! - (lambda (_self10995_ _e10996_) + (lambda (_self11071_ _e11072_) (direct-struct-instance-init! - _self10995_ - _e10996_ + _self11071_ + _e11072_ (gx#current-expander-context) (fx- (gx#current-expander-phi) '1)))) (bind-method! gx#export-expander::t ':init! gx#export-expander:::init! '#f) (define gx#import-expander::apply-import-expander - (lambda (_g1098710990_ _g1098810992_) - (gx#core-apply-user-expander__opt-lambda4547 - _g1098710990_ - _g1098810992_ + (lambda (_g1106311066_ _g1106411068_) + (gx#core-apply-user-expander__opt-lambda4623 + _g1106311066_ + _g1106411068_ 'apply-import-expander))) (bind-method! gx#import-expander::t @@ -250,10 +250,10 @@ gx#import-expander::apply-import-expander '#f) (define gx#export-expander::apply-export-expander - (lambda (_g1098010983_ _g1098110985_) - (gx#core-apply-user-expander__opt-lambda4547 - _g1098010983_ - _g1098110985_ + (lambda (_g1105611059_ _g1105711061_) + (gx#core-apply-user-expander__opt-lambda4623 + _g1105611059_ + _g1105711061_ 'apply-export-expander))) (bind-method! gx#export-expander::t @@ -261,237 +261,237 @@ gx#export-expander::apply-export-expander '#f) (define gx#module-source-path - (lambda (_ctx10974_) - (let ((_path10976_ - (##structure-ref _ctx10974_ '7 gx#module-context::t '#f))) - (let ((_path10978_ - (if (pair? _path10976_) (last _path10976_) _path10976_))) - (let () (if (string? _path10978_) _path10978_ '#f)))))) + (lambda (_ctx11050_) + (let ((_path11052_ + (##structure-ref _ctx11050_ '7 gx#module-context::t '#f))) + (let ((_path11054_ + (if (pair? _path11052_) (last _path11052_) _path11052_))) + (let () (if (string? _path11054_) _path11054_ '#f)))))) (begin - (define gx#import-module__opt-lambda10948 - (lambda (_path10950_ _reload?10951_ _eval?10952_) - (let ((_ctx10954_ + (define gx#import-module__opt-lambda11024 + (lambda (_path11026_ _reload?11027_ _eval?11028_) + (let ((_ctx11030_ ((gx#current-expander-module-import) - _path10950_ - _reload?10951_))) + _path11026_ + _reload?11027_))) (begin - (if (if _ctx10954_ _eval?10952_ '#f) - (gx#eval-module _ctx10954_) + (if (if _ctx11030_ _eval?11028_ '#f) + (gx#eval-module _ctx11030_) '#!void) - _ctx10954_)))) + _ctx11030_)))) (begin (define gx#import-module__0 - (lambda (_path10959_) - (let ((_reload?10961_ '#f)) - (let ((_eval?10963_ '#f)) - (gx#import-module__opt-lambda10948 - _path10959_ - _reload?10961_ - _eval?10963_))))) + (lambda (_path11035_) + (let ((_reload?11037_ '#f)) + (let ((_eval?11039_ '#f)) + (gx#import-module__opt-lambda11024 + _path11035_ + _reload?11037_ + _eval?11039_))))) (define gx#import-module__1 - (lambda (_path10965_ _reload?10966_) - (let ((_eval?10968_ '#f)) - (gx#import-module__opt-lambda10948 - _path10965_ - _reload?10966_ - _eval?10968_)))) + (lambda (_path11041_ _reload?11042_) + (let ((_eval?11044_ '#f)) + (gx#import-module__opt-lambda11024 + _path11041_ + _reload?11042_ + _eval?11044_)))) (define gx#import-module - (lambda _g11075_ - (let ((_g11074_ (length _g11075_))) - (cond ((fx= _g11074_ 1) (apply gx#import-module__0 _g11075_)) - ((fx= _g11074_ 2) (apply gx#import-module__1 _g11075_)) - ((fx= _g11074_ 3) - (apply gx#import-module__opt-lambda10948 _g11075_)) - (else (error "No clause matching arguments" _g11075_)))))))) + (lambda _g11151_ + (let ((_g11150_ (length _g11151_))) + (cond ((fx= _g11150_ 1) (apply gx#import-module__0 _g11151_)) + ((fx= _g11150_ 2) (apply gx#import-module__1 _g11151_)) + ((fx= _g11150_ 3) + (apply gx#import-module__opt-lambda11024 _g11151_)) + (else (error "No clause matching arguments" _g11151_)))))))) (define gx#eval-module - (lambda (_mod10947_) ((gx#current-expander-module-eval) _mod10947_))) + (lambda (_mod11023_) ((gx#current-expander-module-eval) _mod11023_))) (define gx#core-eval-module - (lambda (_obj10932_) - (let ((_force-e10934_ - (lambda (_getf10943_ _e10944_) + (lambda (_obj11008_) + (let ((_force-e11010_ + (lambda (_getf11019_ _e11020_) (call-with-parameters - (lambda () (force (_getf10943_ _e10944_))) + (lambda () (force (_getf11019_ _e11020_))) gx#current-expander-context - _e10944_ + _e11020_ gx#current-expander-phi '0)))) - ((letrec ((_recur10936_ - (lambda (_e10938_) + ((letrec ((_recur11012_ + (lambda (_e11014_) (if (##structure-instance-of? - _e10938_ + _e11014_ 'gx#module-context::t) (begin - (let ((_$e10940_ - (gx#core-context-prelude__opt-lambda10913 - _e10938_))) - (if _$e10940_ (_recur10936_ _$e10940_) '#!void)) - (_force-e10934_ gx#module-context-e _e10938_)) + (let ((_$e11016_ + (gx#core-context-prelude__opt-lambda10989 + _e11014_))) + (if _$e11016_ (_recur11012_ _$e11016_) '#!void)) + (_force-e11010_ gx#module-context-e _e11014_)) (if (##structure-instance-of? - _e10938_ + _e11014_ 'gx#prelude-context::t) - (_force-e10934_ gx#prelude-context-e _e10938_) - (if (gx#stx-string? _e10938_) - (_recur10936_ + (_force-e11010_ gx#prelude-context-e _e11014_) + (if (gx#stx-string? _e11014_) + (_recur11012_ (gx#import-module__0 - (gx#core-resolve-module-path__0 _e10938_))) - (if (gx#core-library-module-path? _e10938_) - (_recur10936_ + (gx#core-resolve-module-path__0 _e11014_))) + (if (gx#core-library-module-path? _e11014_) + (_recur11012_ (gx#import-module__0 (gx#core-resolve-library-module-path - _e10938_))) + _e11014_))) (error '"Cannot eval module" - _obj10932_)))))))) - _recur10936_) - _obj10932_)))) + _obj11008_)))))))) + _recur11012_) + _obj11008_)))) (begin - (define gx#core-context-prelude__opt-lambda10913 - (lambda (_ctx10915_) - ((letrec ((_lp10917_ - (lambda (_e10919_) - (if (let ((_$e10921_ + (define gx#core-context-prelude__opt-lambda10989 + (lambda (_ctx10991_) + ((letrec ((_lp10993_ + (lambda (_e10995_) + (if (let ((_$e10997_ (##structure-instance-of? - _e10919_ + _e10995_ 'gx#module-context::t))) - (if _$e10921_ - _$e10921_ + (if _$e10997_ + _$e10997_ (##structure-instance-of? - _e10919_ + _e10995_ 'gx#local-context::t))) - (_lp10917_ - (##structure-ref _e10919_ '3 gx#phi-context::t '#f)) + (_lp10993_ + (##structure-ref _e10995_ '3 gx#phi-context::t '#f)) (if (##structure-instance-of? - _e10919_ + _e10995_ 'gx#prelude-context::t) - _e10919_ + _e10995_ '#f))))) - _lp10917_) - _ctx10915_))) + _lp10993_) + _ctx10991_))) (begin (define gx#core-context-prelude__0 (lambda () - (let ((_ctx10928_ (gx#current-expander-context))) - (gx#core-context-prelude__opt-lambda10913 _ctx10928_)))) + (let ((_ctx11004_ (gx#current-expander-context))) + (gx#core-context-prelude__opt-lambda10989 _ctx11004_)))) (define gx#core-context-prelude - (lambda _g11077_ - (let ((_g11076_ (length _g11077_))) - (cond ((fx= _g11076_ 0) - (apply gx#core-context-prelude__0 _g11077_)) - ((fx= _g11076_ 1) - (apply gx#core-context-prelude__opt-lambda10913 _g11077_)) - (else (error "No clause matching arguments" _g11077_)))))))) + (lambda _g11153_ + (let ((_g11152_ (length _g11153_))) + (cond ((fx= _g11152_ 0) + (apply gx#core-context-prelude__0 _g11153_)) + ((fx= _g11152_ 1) + (apply gx#core-context-prelude__opt-lambda10989 _g11153_)) + (else (error "No clause matching arguments" _g11153_)))))))) (define gx#core-module->prelude-context - (lambda (_ctx10905_) - (let ((_ht10907_ (gx#current-expander-module-registry))) - (let ((_$e10909_ (table-ref _ht10907_ _ctx10905_ '#f))) - (if _$e10909_ - (values _$e10909_) - (let ((_pre10912_ - (let ((__obj11068 (make-object gx#prelude-context::t '8))) + (lambda (_ctx10981_) + (let ((_ht10983_ (gx#current-expander-module-registry))) + (let ((_$e10985_ (table-ref _ht10983_ _ctx10981_ '#f))) + (if _$e10985_ + (values _$e10985_) + (let ((_pre10988_ + (let ((__obj11144 (make-object gx#prelude-context::t '8))) (begin - (gx#prelude-context:::init!__0 __obj11068 _ctx10905_) - __obj11068)))) + (gx#prelude-context:::init!__0 __obj11144 _ctx10981_) + __obj11144)))) (begin - (table-set! _ht10907_ _ctx10905_ _pre10912_) - _pre10912_))))))) + (table-set! _ht10983_ _ctx10981_ _pre10988_) + _pre10988_))))))) (begin - (define gx#core-import-module__opt-lambda10857 - (lambda (_rpath10859_ _reload?10860_) - (let ((_import-source10862_ - (lambda (_path10874_) + (define gx#core-import-module__opt-lambda10933 + (lambda (_rpath10935_ _reload?10936_) + (let ((_import-source10938_ + (lambda (_path10950_) (begin - (if (member _path10874_ (gx#current-expander-path)) - (error '"Cyclic expansion" _path10874_) + (if (member _path10950_ (gx#current-expander-path)) + (error '"Cyclic expansion" _path10950_) '#!void) (call-with-parameters (lambda () - (let ((_g11078_ (gx#core-read-module _path10874_))) + (let ((_g11154_ (gx#core-read-module _path10950_))) (begin - (let ((_g11079_ (values-count _g11078_))) - (if (not (fx= _g11079_ 4)) - (error "Context expects 4 values" _g11079_))) - (let ((_pre10877_ (values-ref _g11078_ 0)) - (_id10878_ (values-ref _g11078_ 1)) - (_ns10879_ (values-ref _g11078_ 2)) - (_body10880_ (values-ref _g11078_ 3))) - (let ((_prelude10885_ + (let ((_g11155_ (values-count _g11154_))) + (if (not (fx= _g11155_ 4)) + (error "Context expects 4 values" _g11155_))) + (let ((_pre10953_ (values-ref _g11154_ 0)) + (_id10954_ (values-ref _g11154_ 1)) + (_ns10955_ (values-ref _g11154_ 2)) + (_body10956_ (values-ref _g11154_ 3))) + (let ((_prelude10961_ (if (##structure-instance-of? - _pre10877_ + _pre10953_ 'gx#prelude-context::t) - _pre10877_ + _pre10953_ (if (##structure-instance-of? - _pre10877_ + _pre10953_ 'gx#module-context::t) (gx#core-module->prelude-context - _pre10877_) - (if (string? _pre10877_) + _pre10953_) + (if (string? _pre10953_) (gx#core-module->prelude-context (gx#core-import-module__0 - _pre10877_)) - (if (not _pre10877_) - (let ((_$e10882_ + _pre10953_)) + (if (not _pre10953_) + (let ((_$e10958_ (gx#current-expander-module-prelude))) - (if _$e10882_ - _$e10882_ - (let ((__obj11069 + (if _$e10958_ + _$e10958_ + (let ((__obj11145 (make-object ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#prelude-context::t '8))) (begin - (gx#prelude-context:::init!__0 __obj11069 '#f) - __obj11069)))) + (gx#prelude-context:::init!__0 __obj11145 '#f) + __obj11145)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"Cannot import module; unknown prelude" - _rpath10859_ - _pre10877_))))))) - (let ((_ctx10887_ - (let ((__obj11070 + _rpath10935_ + _pre10953_))))))) + (let ((_ctx10963_ + (let ((__obj11146 (make-object gx#module-context::t '11))) (begin (gx#module-context:::init! - __obj11070 - _id10878_ - _prelude10885_ - _ns10879_ - _path10874_) - __obj11070)))) - (let ((_body10889_ + __obj11146 + _id10954_ + _prelude10961_ + _ns10955_ + _path10950_) + __obj11146)))) + (let ((_body10965_ (gx#core-expand-module-begin - _body10880_ - _ctx10887_))) - (let ((_body10891_ - (gx#core-quote-syntax__opt-lambda3907 - (gx#core-cons '%#begin _body10889_) - _path10874_ - _ctx10887_ + _body10956_ + _ctx10963_))) + (let ((_body10967_ + (gx#core-quote-syntax__opt-lambda3983 + (gx#core-cons '%#begin _body10965_) + _path10950_ + _ctx10963_ '()))) (let () (begin (##structure-set! - _ctx10887_ + _ctx10963_ (make-promise (lambda () - (gx#eval-syntax* _body10891_))) + (gx#eval-syntax* _body10967_))) '10 gx#module-context::t '#f) (##structure-set! - _ctx10887_ - _body10891_ + _ctx10963_ + _body10967_ '11 gx#module-context::t '#f) (table-set! (gx#current-expander-module-registry) - _path10874_ - _ctx10887_) + _path10950_ + _ctx10963_) (table-set! (gx#current-expander-module-registry) - _id10878_ - _ctx10887_) - _ctx10887_)))))))))) + _id10954_ + _ctx10963_) + _ctx10963_)))))))))) gx#current-expander-context (gx#core-context-root__0) gx#current-expander-marks @@ -499,1242 +499,1247 @@ gx#current-expander-phi '0 gx#current-expander-path - (cons _path10874_ (gx#current-expander-path)) + (cons _path10950_ (gx#current-expander-path)) gx#current-import-expander-phi '#f gx#current-export-expander-phi '#f))))) - (let ((_$e10864_ - (if (not _reload?10860_) + (let ((_$e10940_ + (if (not _reload?10936_) (table-ref (gx#current-expander-module-registry) - _rpath10859_ + _rpath10935_ '#f) '#f))) - (if _$e10864_ - (values _$e10864_) - (if (gx#core-library-module-path? _rpath10859_) - (let ((_ctx10867_ - (gx#core-import-module__opt-lambda10857 - (gx#core-resolve-library-module-path _rpath10859_) - _reload?10860_))) + (if _$e10940_ + (values _$e10940_) + (if (gx#core-library-module-path? _rpath10935_) + (let ((_ctx10943_ + (gx#core-import-module__opt-lambda10933 + (gx#core-resolve-library-module-path _rpath10935_) + _reload?10936_))) (begin (table-set! (gx#current-expander-module-registry) - _rpath10859_ - _ctx10867_) - _ctx10867_)) - (let ((_npath10869_ (path-normalize _rpath10859_))) - (let ((_$e10871_ - (if (not _reload?10860_) + _rpath10935_ + _ctx10943_) + _ctx10943_)) + (let ((_npath10945_ (path-normalize _rpath10935_))) + (let ((_$e10947_ + (if (not _reload?10936_) (table-ref (gx#current-expander-module-registry) - _npath10869_ + _npath10945_ '#f) '#f))) - (if _$e10871_ - (values _$e10871_) - (_import-source10862_ _npath10869_)))))))))) + (if _$e10947_ + (values _$e10947_) + (_import-source10938_ _npath10945_)))))))))) (begin (define gx#core-import-module__0 - (lambda (_rpath10898_) - (let ((_reload?10900_ '#f)) - (gx#core-import-module__opt-lambda10857 - _rpath10898_ - _reload?10900_)))) + (lambda (_rpath10974_) + (let ((_reload?10976_ '#f)) + (gx#core-import-module__opt-lambda10933 + _rpath10974_ + _reload?10976_)))) (define gx#core-import-module - (lambda _g11081_ - (let ((_g11080_ (length _g11081_))) - (cond ((fx= _g11080_ 1) (apply gx#core-import-module__0 _g11081_)) - ((fx= _g11080_ 2) - (apply gx#core-import-module__opt-lambda10857 _g11081_)) - (else (error "No clause matching arguments" _g11081_)))))))) + (lambda _g11157_ + (let ((_g11156_ (length _g11157_))) + (cond ((fx= _g11156_ 1) (apply gx#core-import-module__0 _g11157_)) + ((fx= _g11156_ 2) + (apply gx#core-import-module__opt-lambda10933 _g11157_)) + (else (error "No clause matching arguments" _g11157_)))))))) (define gx#core-read-module - (lambda (_path10722_) - ((letrec ((_lp10724_ - (lambda (_body10726_ _pre10727_ _ns10728_ _pkg10729_) - (let ((_e1073010754_ _body10726_)) - (let ((_E1074610772_ + (lambda (_path10798_) + ((letrec ((_lp10800_ + (lambda (_body10802_ _pre10803_ _ns10804_ _pkg10805_) + (let ((_e1080610830_ _body10802_)) + (let ((_E1082210848_ (lambda () - (let ((_prelude10758_ + (let ((_prelude10834_ (if (gx#core-bound-module-prelude? - _pre10727_) - (gx#syntax-local-e__0 _pre10727_) + _pre10803_) + (gx#syntax-local-e__0 _pre10803_) (if (gx#core-library-module-path? - _pre10727_) + _pre10803_) (gx#core-resolve-library-module-path - _pre10727_) - (if (gx#stx-string? _pre10727_) - (gx#core-resolve-module-path__opt-lambda10695 - _pre10727_ - _path10722_) - (gx#stx-e _pre10727_)))))) - (let ((_path-id10760_ + _pre10803_) + (if (gx#stx-string? _pre10803_) + (gx#core-resolve-module-path__opt-lambda10771 + _pre10803_ + _path10798_) + (gx#stx-e _pre10803_)))))) + (let ((_path-id10836_ (gx#core-module-path->namespace - _path10722_))) - (let ((_pkg-id10762_ - (if _pkg10729_ + _path10798_))) + (let ((_pkg-id10838_ + (if _pkg10805_ (string-append - _pkg10729_ + _pkg10805_ '"/" - _path-id10760_) - _path-id10760_))) - (let ((_module-id10764_ - (string->symbol _pkg-id10762_))) - (let ((_module-ns10769_ - (let ((_$e10766_ _ns10728_)) - (if _$e10766_ - _$e10766_ - _pkg-id10762_)))) + _path-id10836_) + _path-id10836_))) + (let ((_module-id10840_ + (string->symbol _pkg-id10838_))) + (let ((_module-ns10845_ + (let ((_$e10842_ _ns10804_)) + (if _$e10842_ + _$e10842_ + _pkg-id10838_)))) (let () - (values _prelude10758_ - _module-id10764_ - _module-ns10769_ - _body10726_)))))))))) - (let ((_E1073910801_ + (values _prelude10834_ + _module-id10840_ + _module-ns10845_ + _body10802_)))))))))) + (let ((_E1081510877_ (lambda () - (if (gx#stx-pair? _e1073010754_) - (let ((_e1074710776_ - (gx#syntax-e _e1073010754_))) - (let ((_hd1074810779_ - (##car _e1074710776_)) - (_tl1074910781_ - (##cdr _e1074710776_))) - (if (eq? (gx#stx-e _hd1074810779_) + (if (gx#stx-pair? _e1080610830_) + (let ((_e1082310852_ + (gx#syntax-e _e1080610830_))) + (let ((_hd1082410855_ + (##car _e1082310852_)) + (_tl1082510857_ + (##cdr _e1082310852_))) + (if (eq? (gx#stx-e _hd1082410855_) 'package:) - (if (gx#stx-pair? _tl1074910781_) - (let ((_e1075010784_ + (if (gx#stx-pair? _tl1082510857_) + (let ((_e1082610860_ (gx#syntax-e - _tl1074910781_))) - (let ((_hd1075110787_ - (##car _e1075010784_)) - (_tl1075210789_ - (##cdr _e1075010784_))) - (let ((_pkg10792_ - _hd1075110787_)) - (let ((_rest10794_ - _tl1075210789_)) + _tl1082510857_))) + (let ((_hd1082710863_ + (##car _e1082610860_)) + (_tl1082810865_ + (##cdr _e1082610860_))) + (let ((_pkg10868_ + _hd1082710863_)) + (let ((_rest10870_ + _tl1082810865_)) (if '#t - (let ((_pkg10799_ + (let ((_pkg10875_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (gx#identifier? _pkg10792_) - (symbol->string (gx#stx-e _pkg10792_)) - (if (let ((_$e10796_ - (gx#stx-string? _pkg10792_))) - (if _$e10796_ - _$e10796_ - (gx#stx-false? _pkg10792_))) - (gx#stx-e _pkg10792_) + (if (gx#identifier? _pkg10868_) + (symbol->string (gx#stx-e _pkg10868_)) + (if (let ((_$e10872_ + (gx#stx-string? _pkg10868_))) + (if _$e10872_ + _$e10872_ + (gx#stx-false? _pkg10868_))) + (gx#stx-e _pkg10868_) (gx#raise-syntax-error 'import '"Bad syntax; Illegal package name" - _pkg10792_))))) - (_lp10724_ _rest10794_ _pre10727_ _ns10728_ _pkg10799_)) - (_E1074610772_)))))) + _pkg10868_))))) + (_lp10800_ _rest10870_ _pre10803_ _ns10804_ _pkg10875_)) + (_E1082210848_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1074610772_)) - (_E1074610772_)))) - (_E1074610772_))))) - (let ((_E1073210830_ + (_E1082210848_)) + (_E1082210848_)))) + (_E1082210848_))))) + (let ((_E1080810906_ (lambda () - (if (gx#stx-pair? _e1073010754_) - (let ((_e1074010805_ - (gx#syntax-e _e1073010754_))) - (let ((_hd1074110808_ - (##car _e1074010805_)) - (_tl1074210810_ - (##cdr _e1074010805_))) - (if (eq? (gx#stx-e _hd1074110808_) + (if (gx#stx-pair? _e1080610830_) + (let ((_e1081610881_ + (gx#syntax-e _e1080610830_))) + (let ((_hd1081710884_ + (##car _e1081610881_)) + (_tl1081810886_ + (##cdr _e1081610881_))) + (if (eq? (gx#stx-e _hd1081710884_) 'namespace:) - (if (gx#stx-pair? _tl1074210810_) - (let ((_e1074310813_ + (if (gx#stx-pair? _tl1081810886_) + (let ((_e1081910889_ (gx#syntax-e - _tl1074210810_))) - (let ((_hd1074410816_ - (##car _e1074310813_)) - (_tl1074510818_ - (##cdr _e1074310813_))) - (let ((_ns10821_ - _hd1074410816_)) - (let ((_rest10823_ - _tl1074510818_)) + _tl1081810886_))) + (let ((_hd1082010892_ + (##car _e1081910889_)) + (_tl1082110894_ + (##cdr _e1081910889_))) + (let ((_ns10897_ + _hd1082010892_)) + (let ((_rest10899_ + _tl1082110894_)) (if '#t - (let ((_ns10828_ + (let ((_ns10904_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (gx#identifier? _ns10821_) - (symbol->string (gx#stx-e _ns10821_)) - (if (let ((_$e10825_ - (gx#stx-string? _ns10821_))) - (if _$e10825_ - _$e10825_ - (gx#stx-false? _ns10821_))) - (gx#stx-e _ns10821_) + (if (gx#identifier? _ns10897_) + (symbol->string (gx#stx-e _ns10897_)) + (if (let ((_$e10901_ + (gx#stx-string? _ns10897_))) + (if _$e10901_ + _$e10901_ + (gx#stx-false? _ns10897_))) + (gx#stx-e _ns10897_) (gx#raise-syntax-error 'import '"Bad syntax; illegal namespace" - _ns10821_))))) - (_lp10724_ - _rest10823_ - _pre10727_ - _ns10828_ - _pkg10729_)) - (_E1073910801_)))))) + _ns10897_))))) + (_lp10800_ + _rest10899_ + _pre10803_ + _ns10904_ + _pkg10805_)) + (_E1081510877_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1073910801_)) - (_E1073910801_)))) - (_E1073910801_))))) - (let ((_E1073110854_ + (_E1081510877_)) + (_E1081510877_)))) + (_E1081510877_))))) + (let ((_E1080710930_ (lambda () - (if (gx#stx-pair? _e1073010754_) - (let ((_e1073310834_ - (gx#syntax-e _e1073010754_))) - (let ((_hd1073410837_ - (##car _e1073310834_)) - (_tl1073510839_ - (##cdr _e1073310834_))) - (if (eq? (gx#stx-e _hd1073410837_) + (if (gx#stx-pair? _e1080610830_) + (let ((_e1080910910_ + (gx#syntax-e _e1080610830_))) + (let ((_hd1081010913_ + (##car _e1080910910_)) + (_tl1081110915_ + (##cdr _e1080910910_))) + (if (eq? (gx#stx-e _hd1081010913_) 'prelude:) (if (gx#stx-pair? - _tl1073510839_) - (let ((_e1073610842_ + _tl1081110915_) + (let ((_e1081210918_ (gx#syntax-e - _tl1073510839_))) - (let ((_hd1073710845_ - (##car _e1073610842_)) - (_tl1073810847_ - (##cdr _e1073610842_))) - (let ((_prelude10850_ - _hd1073710845_)) - (let ((_rest10852_ + _tl1081110915_))) + (let ((_hd1081310921_ + (##car _e1081210918_)) + (_tl1081410923_ + (##cdr _e1081210918_))) + (let ((_prelude10926_ + _hd1081310921_)) + (let ((_rest10928_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1073810847_)) + _tl1081410923_)) (if '#t - (_lp10724_ - _rest10852_ - _prelude10850_ - _ns10728_ - _pkg10729_) - (_E1073210830_)))))) + (_lp10800_ + _rest10928_ + _prelude10926_ + _ns10804_ + _pkg10805_) + (_E1080810906_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1073210830_)) - (_E1073210830_)))) - (_E1073210830_))))) - (let () (_E1073110854_)))))))))) - _lp10724_) - (read-syntax-from-file _path10722_) + (_E1080810906_)) + (_E1080810906_)))) + (_E1080810906_))))) + (let () (_E1080710930_)))))))))) + _lp10800_) + (read-syntax-from-file _path10798_) '#f '#f '#f))) (define gx#core-module-path->namespace - (lambda (_path10720_) - (path-strip-extension (path-strip-directory _path10720_)))) + (lambda (_path10796_) + (path-strip-extension (path-strip-directory _path10796_)))) (define gx#core-module-path->id - (lambda (_path10718_) - (string->symbol (gx#core-module-path->namespace _path10718_)))) + (lambda (_path10794_) + (string->symbol (gx#core-module-path->namespace _path10794_)))) (begin - (define gx#core-resolve-module-path__opt-lambda10695 - (lambda (_stx-path10697_ _rel10698_) - (let ((_path10700_ (gx#stx-e _stx-path10697_))) - (let ((_path10702_ - (if (equal? (path-extension _path10700_) '".ss") - _path10700_ - (string-append _path10700_ '".ss")))) + (define gx#core-resolve-module-path__opt-lambda10771 + (lambda (_stx-path10773_ _rel10774_) + (let ((_path10776_ (gx#stx-e _stx-path10773_))) + (let ((_path10778_ + (if (equal? (path-extension _path10776_) '".ss") + _path10776_ + (string-append _path10776_ '".ss")))) (let () - (gx#core-resolve-path__opt-lambda3871 - _path10702_ - (let ((_$e10705_ (gx#stx-source _stx-path10697_))) - (if _$e10705_ _$e10705_ _rel10698_)))))))) + (gx#core-resolve-path__opt-lambda3947 + _path10778_ + (let ((_$e10781_ (gx#stx-source _stx-path10773_))) + (if _$e10781_ _$e10781_ _rel10774_)))))))) (begin (define gx#core-resolve-module-path__0 - (lambda (_stx-path10711_) - (let ((_rel10713_ '#f)) - (gx#core-resolve-module-path__opt-lambda10695 - _stx-path10711_ - _rel10713_)))) + (lambda (_stx-path10787_) + (let ((_rel10789_ '#f)) + (gx#core-resolve-module-path__opt-lambda10771 + _stx-path10787_ + _rel10789_)))) (define gx#core-resolve-module-path - (lambda _g11083_ - (let ((_g11082_ (length _g11083_))) - (cond ((fx= _g11082_ 1) - (apply gx#core-resolve-module-path__0 _g11083_)) - ((fx= _g11082_ 2) - (apply gx#core-resolve-module-path__opt-lambda10695 - _g11083_)) - (else (error "No clause matching arguments" _g11083_)))))))) + (lambda _g11159_ + (let ((_g11158_ (length _g11159_))) + (cond ((fx= _g11158_ 1) + (apply gx#core-resolve-module-path__0 _g11159_)) + ((fx= _g11158_ 2) + (apply gx#core-resolve-module-path__opt-lambda10771 + _g11159_)) + (else (error "No clause matching arguments" _g11159_)))))))) (define gx#core-resolve-library-module-path - (lambda (_libpath10643_) - (let ((_spath10645_ (symbol->string (gx#stx-e _libpath10643_)))) - (let ((_spath10647_ - (substring _spath10645_ '1 (string-length _spath10645_)))) + (lambda (_libpath10719_) + (let ((_spath10721_ (symbol->string (gx#stx-e _libpath10719_)))) + (let ((_spath10723_ + (substring _spath10721_ '1 (string-length _spath10721_)))) (let () - ((letrec ((_lp10650_ - (lambda (_rest10652_) - (let ((_rest1065310662_ _rest10652_)) - (let ((_E1065610666_ + ((letrec ((_lp10726_ + (lambda (_rest10728_) + (let ((_rest1072910738_ _rest10728_)) + (let ((_E1073210742_ (lambda () (error '"No clause matching" - _rest1065310662_)))) - (let ((_try-match1065510674_ + _rest1072910738_)))) + (let ((_try-match1073110750_ (lambda () - (let ((_K1065710671_ + (let ((_K1073310747_ (lambda () (gx#raise-syntax-error '#f '"Cannot find library module" - _libpath10643_)))) - (if (##null? _rest1065310662_) - (_K1065710671_) - (_E1065610666_)))))) - (let ((_K1065810684_ - (lambda (_rest10677_ _dir10678_) - (let ((_compiled-path10680_ + _libpath10719_)))) + (if (##null? _rest1072910738_) + (_K1073310747_) + (_E1073210742_)))))) + (let ((_K1073410760_ + (lambda (_rest10753_ _dir10754_) + (let ((_compiled-path10756_ (path-expand (string-append - _spath10647_ + _spath10723_ '".ssi") - _dir10678_))) + _dir10754_))) (if (file-exists? - _compiled-path10680_) + _compiled-path10756_) (path-normalize - _compiled-path10680_) - (let ((_src-path10682_ + _compiled-path10756_) + (let ((_src-path10758_ (path-expand (string-append - _spath10647_ + _spath10723_ '".ss") - _dir10678_))) + _dir10754_))) (if (file-exists? - _src-path10682_) + _src-path10758_) (path-normalize - _src-path10682_) - (_lp10650_ - _rest10677_)))))))) - (if (##pair? _rest1065310662_) - (let ((_hd1065910687_ - (##car _rest1065310662_)) - (_tl1066010689_ - (##cdr _rest1065310662_))) - (let ((_dir10692_ _hd1065910687_)) - (let ((_rest10694_ _tl1066010689_)) - (_K1065810684_ - _rest10694_ - _dir10692_)))) - (_try-match1065510674_))))))))) - _lp10650_) + _src-path10758_) + (_lp10726_ + _rest10753_)))))))) + (if (##pair? _rest1072910738_) + (let ((_hd1073510763_ + (##car _rest1072910738_)) + (_tl1073610765_ + (##cdr _rest1072910738_))) + (let ((_dir10768_ _hd1073510763_)) + (let ((_rest10770_ _tl1073610765_)) + (_K1073410760_ + _rest10770_ + _dir10768_)))) + (_try-match1073110750_))))))))) + _lp10726_) (gx#current-expander-module-library-path))))))) (define gx#core-library-module-path? - (lambda (_stx10641_) (gx#core-special-module-path? _stx10641_ '#\:))) + (lambda (_stx10717_) (gx#core-special-module-path? _stx10717_ '#\:))) (define gx#core-special-module-path? - (lambda (_stx10636_ _char10637_) - (if (gx#identifier? _stx10636_) - (if (interned-symbol? (gx#stx-e _stx10636_)) - (let ((_str10639_ (symbol->string (gx#stx-e _stx10636_)))) - (if (fx> (string-length _str10639_) '1) - (eq? (string-ref _str10639_ '0) _char10637_) + (lambda (_stx10712_ _char10713_) + (if (gx#identifier? _stx10712_) + (if (interned-symbol? (gx#stx-e _stx10712_)) + (let ((_str10715_ (symbol->string (gx#stx-e _stx10712_)))) + (if (fx> (string-length _str10715_) '1) + (eq? (string-ref _str10715_ '0) _char10713_) '#f)) '#f) '#f))) (define gx#core-bound-prelude? - (lambda (_stx10630_) - (gx#core-bound-identifier?__opt-lambda3961 - _stx10630_ - (lambda (_g1063110633_) - (gx#expander-binding?__opt-lambda3992 - _g1063110633_ + (lambda (_stx10706_) + (gx#core-bound-identifier?__opt-lambda4037 + _stx10706_ + (lambda (_g1070710709_) + (gx#expander-binding?__opt-lambda4068 + _g1070710709_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_stx10624_) - (gx#core-bound-identifier?__opt-lambda3961 - _stx10624_ - (lambda (_g1062510627_) - (gx#expander-binding?__opt-lambda3992 - _g1062510627_ + (lambda (_stx10700_) + (gx#core-bound-identifier?__opt-lambda4037 + _stx10700_ + (lambda (_g1070110703_) + (gx#expander-binding?__opt-lambda4068 + _g1070110703_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_stx10611_) - (let ((_module-prelude?10613_ - (lambda (_e10619_) - (let ((_$e10621_ + (lambda (_stx10687_) + (let ((_module-prelude?10689_ + (lambda (_e10695_) + (let ((_$e10697_ (##structure-instance-of? - _e10619_ + _e10695_ 'gx#module-context::t))) - (if _$e10621_ - _$e10621_ + (if _$e10697_ + _$e10697_ (##structure-instance-of? - _e10619_ + _e10695_ 'gx#prelude-context::t)))))) - (gx#core-bound-identifier?__opt-lambda3961 - _stx10611_ - (lambda (_g1061410616_) - (gx#expander-binding?__opt-lambda3992 - _g1061410616_ - _module-prelude?10613_)))))) + (gx#core-bound-identifier?__opt-lambda4037 + _stx10687_ + (lambda (_g1069010692_) + (gx#expander-binding?__opt-lambda4068 + _g1069010692_ + _module-prelude?10689_)))))) (begin - (define gx#core-bind-import!__opt-lambda10539 - (lambda (_in10541_ _ctx10542_ _force-weak?10543_) - (let ((_in1054410553_ _in10541_)) - (let ((_E1054610557_ - (lambda () (error '"No clause matching" _in1054410553_)))) - (let ((_K1054710570_ - (lambda (_weak?10560_ _phi10561_ _key10562_ _source10563_) - (gx#core-bind!__opt-lambda4231 - _key10562_ - (let ((_e10565_ - (gx#core-resolve-module-export _source10563_))) + (define gx#core-bind-import!__opt-lambda10615 + (lambda (_in10617_ _ctx10618_ _force-weak?10619_) + (let ((_in1062010629_ _in10617_)) + (let ((_E1062210633_ + (lambda () (error '"No clause matching" _in1062010629_)))) + (let ((_K1062310646_ + (lambda (_weak?10636_ _phi10637_ _key10638_ _source10639_) + (gx#core-bind!__opt-lambda4307 + _key10638_ + (let ((_e10641_ + (gx#core-resolve-module-export _source10639_))) (##structure gx#import-binding::t - (##structure-ref _e10565_ '1 gx#binding::t '#f) - _key10562_ - _phi10561_ - _e10565_ + (##structure-ref _e10641_ '1 gx#binding::t '#f) + _key10638_ + _phi10637_ + _e10641_ (##structure-ref - _source10563_ + _source10639_ '1 gx#module-export::t '#f) - (let ((_$e10567_ _force-weak?10543_)) - (if _$e10567_ _$e10567_ _weak?10560_)))) + (let ((_$e10643_ _force-weak?10619_)) + (if _$e10643_ _$e10643_ _weak?10636_)))) gx#core-context-rebind? - _phi10561_ - _ctx10542_)))) - (if (direct-struct-instance? gx#module-import::t _in1054410553_) - (let ((_e1054810573_ (##vector-ref _in1054410553_ '1))) - (let ((_source10576_ _e1054810573_)) - (let ((_e1054910578_ (##vector-ref _in1054410553_ '2))) - (let ((_key10581_ _e1054910578_)) - (let ((_e1055010583_ - (##vector-ref _in1054410553_ '3))) - (let ((_phi10586_ _e1055010583_)) - (let ((_e1055110588_ - (##vector-ref _in1054410553_ '4))) - (let ((_weak?10591_ _e1055110588_)) - (_K1054710570_ - _weak?10591_ - _phi10586_ - _key10581_ - _source10576_))))))))) - (_E1054610557_))))))) + _phi10637_ + _ctx10618_)))) + (if (direct-struct-instance? gx#module-import::t _in1062010629_) + (let ((_e1062410649_ (##vector-ref _in1062010629_ '1))) + (let ((_source10652_ _e1062410649_)) + (let ((_e1062510654_ (##vector-ref _in1062010629_ '2))) + (let ((_key10657_ _e1062510654_)) + (let ((_e1062610659_ + (##vector-ref _in1062010629_ '3))) + (let ((_phi10662_ _e1062610659_)) + (let ((_e1062710664_ + (##vector-ref _in1062010629_ '4))) + (let ((_weak?10667_ _e1062710664_)) + (_K1062310646_ + _weak?10667_ + _phi10662_ + _key10657_ + _source10652_))))))))) + (_E1062210633_))))))) (begin (define gx#core-bind-import!__0 - (lambda (_in10596_) - (let ((_ctx10598_ (gx#current-expander-context))) - (let ((_force-weak?10600_ '#f)) - (gx#core-bind-import!__opt-lambda10539 - _in10596_ - _ctx10598_ - _force-weak?10600_))))) + (lambda (_in10672_) + (let ((_ctx10674_ (gx#current-expander-context))) + (let ((_force-weak?10676_ '#f)) + (gx#core-bind-import!__opt-lambda10615 + _in10672_ + _ctx10674_ + _force-weak?10676_))))) (define gx#core-bind-import!__1 - (lambda (_in10602_ _ctx10603_) - (let ((_force-weak?10605_ '#f)) - (gx#core-bind-import!__opt-lambda10539 - _in10602_ - _ctx10603_ - _force-weak?10605_)))) + (lambda (_in10678_ _ctx10679_) + (let ((_force-weak?10681_ '#f)) + (gx#core-bind-import!__opt-lambda10615 + _in10678_ + _ctx10679_ + _force-weak?10681_)))) (define gx#core-bind-import! - (lambda _g11085_ - (let ((_g11084_ (length _g11085_))) - (cond ((fx= _g11084_ 1) (apply gx#core-bind-import!__0 _g11085_)) - ((fx= _g11084_ 2) (apply gx#core-bind-import!__1 _g11085_)) - ((fx= _g11084_ 3) - (apply gx#core-bind-import!__opt-lambda10539 _g11085_)) - (else (error "No clause matching arguments" _g11085_)))))))) + (lambda _g11161_ + (let ((_g11160_ (length _g11161_))) + (cond ((fx= _g11160_ 1) (apply gx#core-bind-import!__0 _g11161_)) + ((fx= _g11160_ 2) (apply gx#core-bind-import!__1 _g11161_)) + ((fx= _g11160_ 3) + (apply gx#core-bind-import!__opt-lambda10615 _g11161_)) + (else (error "No clause matching arguments" _g11161_)))))))) (begin - (define gx#core-bind-weak-import!__opt-lambda10525 - (lambda (_in10527_ _ctx10528_) - (gx#core-bind-import!__opt-lambda10539 _in10527_ _ctx10528_ '#t))) + (define gx#core-bind-weak-import!__opt-lambda10601 + (lambda (_in10603_ _ctx10604_) + (gx#core-bind-import!__opt-lambda10615 _in10603_ _ctx10604_ '#t))) (begin (define gx#core-bind-weak-import!__0 - (lambda (_in10533_) - (let ((_ctx10535_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__opt-lambda10525 - _in10533_ - _ctx10535_)))) + (lambda (_in10609_) + (let ((_ctx10611_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__opt-lambda10601 + _in10609_ + _ctx10611_)))) (define gx#core-bind-weak-import! - (lambda _g11087_ - (let ((_g11086_ (length _g11087_))) - (cond ((fx= _g11086_ 1) - (apply gx#core-bind-weak-import!__0 _g11087_)) - ((fx= _g11086_ 2) - (apply gx#core-bind-weak-import!__opt-lambda10525 _g11087_)) - (else (error "No clause matching arguments" _g11087_)))))))) + (lambda _g11163_ + (let ((_g11162_ (length _g11163_))) + (cond ((fx= _g11162_ 1) + (apply gx#core-bind-weak-import!__0 _g11163_)) + ((fx= _g11162_ 2) + (apply gx#core-bind-weak-import!__opt-lambda10601 _g11163_)) + (else (error "No clause matching arguments" _g11163_)))))))) (define gx#core-resolve-module-export - (lambda (_out10418_) - (let ((_subst10420_ - (lambda (_key10466_) - (let ((_key1046710475_ _key10466_)) - (let ((_E1047010479_ + (lambda (_out10494_) + (let ((_subst10496_ + (lambda (_key10542_) + (let ((_key1054310551_ _key10542_)) + (let ((_E1054610555_ (lambda () - (error '"No clause matching" _key1046710475_)))) - (let ((_else1046910483_ (lambda () _key10466_))) - (let ((_K1047110514_ - (lambda (_mark10486_ _id10487_) - (let ((_mark1048810494_ _mark10486_)) - (let ((_E1049010498_ + (error '"No clause matching" _key1054310551_)))) + (let ((_else1054510559_ (lambda () _key10542_))) + (let ((_K1054710590_ + (lambda (_mark10562_ _id10563_) + (let ((_mark1056410570_ _mark10562_)) + (let ((_E1056610574_ (lambda () (error '"No clause matching" - _mark1048810494_)))) - (let ((_K1049110506_ - (lambda (_subst10501_) - (let ((_$e10503_ - (if _subst10501_ + _mark1056410570_)))) + (let ((_K1056710582_ + (lambda (_subst10577_) + (let ((_$e10579_ + (if _subst10577_ (table-ref - _subst10501_ - _id10487_ + _subst10577_ + _id10563_ '#f) '#f))) - (if _$e10503_ - _$e10503_ + (if _$e10579_ + _$e10579_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _key10466_)))))) + _key10542_)))))) (if (struct-instance? gx#expander-mark::t - _mark1048810494_) - (let ((_e1049210509_ + _mark1056410570_) + (let ((_e1056810585_ (##vector-ref - _mark1048810494_ + _mark1056410570_ '1))) - (let ((_subst10512_ _e1049210509_)) - (_K1049110506_ _subst10512_))) - (_E1049010498_)))))))) - (if (##pair? _key1046710475_) - (let ((_hd1047210517_ (##car _key1046710475_)) - (_tl1047310519_ (##cdr _key1046710475_))) - (let ((_id10522_ _hd1047210517_)) - (let ((_mark10524_ _tl1047310519_)) - (_K1047110514_ _mark10524_ _id10522_)))) - (_else1046910483_))))))))) - (let ((_out1042110431_ _out10418_)) - (let ((_E1042310435_ - (lambda () (error '"No clause matching" _out1042110431_)))) - (let ((_K1042410442_ - (lambda (_phi10438_ _key10439_ _ctx10440_) + (let ((_subst10588_ _e1056810585_)) + (_K1056710582_ _subst10588_))) + (_E1056610574_)))))))) + (if (##pair? _key1054310551_) + (let ((_hd1054810593_ (##car _key1054310551_)) + (_tl1054910595_ (##cdr _key1054310551_))) + (let ((_id10598_ _hd1054810593_)) + (let ((_mark10600_ _tl1054910595_)) + (_K1054710590_ _mark10600_ _id10598_)))) + (_else1054510559_))))))))) + (let ((_out1049710507_ _out10494_)) + (let ((_E1049910511_ + (lambda () (error '"No clause matching" _out1049710507_)))) + (let ((_K1050010518_ + (lambda (_phi10514_ _key10515_ _ctx10516_) (gx#core-context-resolve - (gx#core-context-shift _ctx10440_ _phi10438_) - (_subst10420_ _key10439_))))) - (if (direct-struct-instance? gx#module-export::t _out1042110431_) - (let ((_e1042510445_ (##vector-ref _out1042110431_ '1))) - (let ((_ctx10448_ _e1042510445_)) - (let ((_e1042610450_ (##vector-ref _out1042110431_ '2))) - (let ((_key10453_ _e1042610450_)) - (let ((_e1042710455_ - (##vector-ref _out1042110431_ '3))) - (let ((_phi10458_ _e1042710455_)) - (let ((_e1042810460_ - (##vector-ref _out1042110431_ '4))) - (let ((_e1042910463_ - (##vector-ref _out1042110431_ '5))) - (_K1042410442_ - _phi10458_ - _key10453_ - _ctx10448_))))))))) - (_E1042310435_)))))))) + (gx#core-context-shift _ctx10516_ _phi10514_) + (_subst10496_ _key10515_))))) + (if (direct-struct-instance? gx#module-export::t _out1049710507_) + (let ((_e1050110521_ (##vector-ref _out1049710507_ '1))) + (let ((_ctx10524_ _e1050110521_)) + (let ((_e1050210526_ (##vector-ref _out1049710507_ '2))) + (let ((_key10529_ _e1050210526_)) + (let ((_e1050310531_ + (##vector-ref _out1049710507_ '3))) + (let ((_phi10534_ _e1050310531_)) + (let ((_e1050410536_ + (##vector-ref _out1049710507_ '4))) + (let ((_e1050510539_ + (##vector-ref _out1049710507_ '5))) + (_K1050010518_ + _phi10534_ + _key10529_ + _ctx10524_))))))))) + (_E1049910511_)))))))) (begin - (define gx#core-module-export->import__opt-lambda10341 - (lambda (_out10343_ _rename10344_ _dphi10345_) - (let ((_out1034610356_ _out10343_)) - (let ((_E1034810360_ - (lambda () (error '"No clause matching" _out1034610356_)))) - (let ((_K1034910372_ - (lambda (_weak?10363_ - _name10364_ - _phi10365_ - _key10366_ - _ctx10367_) + (define gx#core-module-export->import__opt-lambda10417 + (lambda (_out10419_ _rename10420_ _dphi10421_) + (let ((_out1042210432_ _out10419_)) + (let ((_E1042410436_ + (lambda () (error '"No clause matching" _out1042210432_)))) + (let ((_K1042510448_ + (lambda (_weak?10439_ + _name10440_ + _phi10441_ + _key10442_ + _ctx10443_) (##structure gx#module-import::t - _out10343_ - (let ((_$e10369_ _rename10344_)) - (if _$e10369_ _$e10369_ _name10364_)) - (fx+ _phi10365_ _dphi10345_) - _weak?10363_)))) - (if (direct-struct-instance? gx#module-export::t _out1034610356_) - (let ((_e1035010375_ (##vector-ref _out1034610356_ '1))) - (let ((_ctx10378_ _e1035010375_)) - (let ((_e1035110380_ (##vector-ref _out1034610356_ '2))) - (let ((_key10383_ _e1035110380_)) - (let ((_e1035210385_ - (##vector-ref _out1034610356_ '3))) - (let ((_phi10388_ _e1035210385_)) - (let ((_e1035310390_ - (##vector-ref _out1034610356_ '4))) - (let ((_name10393_ _e1035310390_)) - (let ((_e1035410395_ - (##vector-ref _out1034610356_ '5))) - (let ((_weak?10398_ _e1035410395_)) - (_K1034910372_ - _weak?10398_ - _name10393_ - _phi10388_ - _key10383_ - _ctx10378_))))))))))) - (_E1034810360_))))))) + _out10419_ + (let ((_$e10445_ _rename10420_)) + (if _$e10445_ _$e10445_ _name10440_)) + (fx+ _phi10441_ _dphi10421_) + _weak?10439_)))) + (if (direct-struct-instance? gx#module-export::t _out1042210432_) + (let ((_e1042610451_ (##vector-ref _out1042210432_ '1))) + (let ((_ctx10454_ _e1042610451_)) + (let ((_e1042710456_ (##vector-ref _out1042210432_ '2))) + (let ((_key10459_ _e1042710456_)) + (let ((_e1042810461_ + (##vector-ref _out1042210432_ '3))) + (let ((_phi10464_ _e1042810461_)) + (let ((_e1042910466_ + (##vector-ref _out1042210432_ '4))) + (let ((_name10469_ _e1042910466_)) + (let ((_e1043010471_ + (##vector-ref _out1042210432_ '5))) + (let ((_weak?10474_ _e1043010471_)) + (_K1042510448_ + _weak?10474_ + _name10469_ + _phi10464_ + _key10459_ + _ctx10454_))))))))))) + (_E1042410436_))))))) (begin (define gx#core-module-export->import__0 - (lambda (_out10403_) - (let ((_rename10405_ '#f)) - (let ((_dphi10407_ '0)) - (gx#core-module-export->import__opt-lambda10341 - _out10403_ - _rename10405_ - _dphi10407_))))) + (lambda (_out10479_) + (let ((_rename10481_ '#f)) + (let ((_dphi10483_ '0)) + (gx#core-module-export->import__opt-lambda10417 + _out10479_ + _rename10481_ + _dphi10483_))))) (define gx#core-module-export->import__1 - (lambda (_out10409_ _rename10410_) - (let ((_dphi10412_ '0)) - (gx#core-module-export->import__opt-lambda10341 - _out10409_ - _rename10410_ - _dphi10412_)))) + (lambda (_out10485_ _rename10486_) + (let ((_dphi10488_ '0)) + (gx#core-module-export->import__opt-lambda10417 + _out10485_ + _rename10486_ + _dphi10488_)))) (define gx#core-module-export->import - (lambda _g11089_ - (let ((_g11088_ (length _g11089_))) - (cond ((fx= _g11088_ 1) - (apply gx#core-module-export->import__0 _g11089_)) - ((fx= _g11088_ 2) - (apply gx#core-module-export->import__1 _g11089_)) - ((fx= _g11088_ 3) - (apply gx#core-module-export->import__opt-lambda10341 - _g11089_)) - (else (error "No clause matching arguments" _g11089_)))))))) + (lambda _g11165_ + (let ((_g11164_ (length _g11165_))) + (cond ((fx= _g11164_ 1) + (apply gx#core-module-export->import__0 _g11165_)) + ((fx= _g11164_ 2) + (apply gx#core-module-export->import__1 _g11165_)) + ((fx= _g11164_ 3) + (apply gx#core-module-export->import__opt-lambda10417 + _g11165_)) + (else (error "No clause matching arguments" _g11165_)))))))) (define gx#core-expand-module% - (lambda (_stx10271_) - (let ((_make-context10273_ - (lambda (_id10324_) - (let ((_super10326_ (gx#current-expander-context))) - (let ((_bind-id10328_ (gx#stx-e _id10324_))) - (let ((_mod-id10330_ + (lambda (_stx10347_) + (let ((_make-context10349_ + (lambda (_id10400_) + (let ((_super10402_ (gx#current-expander-context))) + (let ((_bind-id10404_ (gx#stx-e _id10400_))) + (let ((_mod-id10406_ (if (##structure-instance-of? - _super10326_ + _super10402_ 'gx#module-context::t) (make-symbol (##structure-ref - _super10326_ + _super10402_ '1 gx#expander-context::t '#f) '"::" - _bind-id10328_) - _bind-id10328_))) - (let ((_ns10332_ (symbol->string _mod-id10330_))) - (let ((_path10339_ + _bind-id10404_) + _bind-id10404_))) + (let ((_ns10408_ (symbol->string _mod-id10406_))) + (let ((_path10415_ (if (##structure-instance-of? - _super10326_ + _super10402_ 'gx#module-context::t) - (let ((_path10334_ + (let ((_path10410_ (##structure-ref - _super10326_ + _super10402_ '7 gx#module-context::t '#f))) - (if (let ((_$e10336_ (pair? _path10334_))) - (if _$e10336_ - _$e10336_ - (null? _path10334_))) - (cons _bind-id10328_ _path10334_) - (if (not _path10334_) - _bind-id10328_ - (cons _bind-id10328_ - (cons _path10334_ '()))))) - _bind-id10328_))) + (if (let ((_$e10412_ (pair? _path10410_))) + (if _$e10412_ + _$e10412_ + (null? _path10410_))) + (cons _bind-id10404_ _path10410_) + (if (not _path10410_) + _bind-id10404_ + (cons _bind-id10404_ + (cons _path10410_ '()))))) + _bind-id10404_))) (let () - (let ((__obj11071 + (let ((__obj11147 (make-object gx#module-context::t '11))) (begin (gx#module-context:::init! - __obj11071 - _mod-id10330_ - _super10326_ - _ns10332_ - _path10339_) - __obj11071))))))))))) - (let ((_e1027410284_ _stx10271_)) - (let ((_E1027610288_ + __obj11147 + _mod-id10406_ + _super10402_ + _ns10408_ + _path10415_) + __obj11147))))))))))) + (let ((_e1035010360_ _stx10347_)) + (let ((_E1035210364_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1027410284_)))) - (let ((_E1027510320_ + (gx#raise-syntax-error '#f '"Bad syntax" _e1035010360_)))) + (let ((_E1035110396_ (lambda () - (if (gx#stx-pair? _e1027410284_) - (let ((_e1027710292_ (gx#syntax-e _e1027410284_))) - (let ((_hd1027810295_ (##car _e1027710292_)) - (_tl1027910297_ (##cdr _e1027710292_))) - (if (gx#stx-pair? _tl1027910297_) - (let ((_e1028010300_ - (gx#syntax-e _tl1027910297_))) - (let ((_hd1028110303_ (##car _e1028010300_)) - (_tl1028210305_ - (##cdr _e1028010300_))) - (let ((_id10308_ _hd1028110303_)) - (let ((_body10310_ _tl1028210305_)) - (if (if (gx#identifier? _id10308_) - (gx#stx-list? _body10310_) + (if (gx#stx-pair? _e1035010360_) + (let ((_e1035310368_ (gx#syntax-e _e1035010360_))) + (let ((_hd1035410371_ (##car _e1035310368_)) + (_tl1035510373_ (##cdr _e1035310368_))) + (if (gx#stx-pair? _tl1035510373_) + (let ((_e1035610376_ + (gx#syntax-e _tl1035510373_))) + (let ((_hd1035710379_ (##car _e1035610376_)) + (_tl1035810381_ + (##cdr _e1035610376_))) + (let ((_id10384_ _hd1035710379_)) + (let ((_body10386_ _tl1035810381_)) + (if (if (gx#identifier? _id10384_) + (gx#stx-list? _body10386_) '#f) - (let ((_ctx10312_ - (_make-context10273_ - _id10308_))) - (let ((_body10314_ + (let ((_ctx10388_ + (_make-context10349_ + _id10384_))) + (let ((_body10390_ (gx#core-expand-module-begin - _body10310_ - _ctx10312_))) - (let ((_body10316_ + _body10386_ + _ctx10388_))) + (let ((_body10392_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body10314_) + _body10390_) (gx#stx-source - _stx10271_)))) + _stx10347_)))) (let () (begin (##structure-set! - _ctx10312_ + _ctx10388_ (make-promise (lambda () (gx#eval-syntax* - _body10316_))) + _body10392_))) '10 gx#module-context::t '#f) (##structure-set! - _ctx10312_ - _body10316_ + _ctx10388_ + _body10392_ '11 gx#module-context::t '#f) (gx#core-bind-syntax!__0 - _id10308_ - _ctx10312_) + _id10384_ + _ctx10388_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _id10308_) - _body10316_) + _id10384_) + _body10392_) (gx#stx-source - _stx10271_))))))) - (_E1027610288_)))))) - (_E1027610288_)))) - (_E1027610288_))))) - (let () (_E1027510320_)))))))) + _stx10347_))))))) + (_E1035210364_)))))) + (_E1035210364_)))) + (_E1035210364_))))) + (let () (_E1035110396_)))))))) (define gx#core-expand-module-begin - (lambda (_body10267_ _ctx10268_) + (lambda (_body10343_ _ctx10344_) (call-with-parameters (lambda () (begin (gx#core-bind-feature!__1 'gerbil-module '#t) - (gx#core-expand-module-body _body10267_))) + (gx#core-expand-module-body _body10343_))) gx#current-expander-context - _ctx10268_ + _ctx10344_ gx#current-expander-phi '0))) (define gx#core-expand-module-body - (lambda (_body10063_) - (let ((_expand-special10065_ - (lambda (_hd10194_ _K10195_ _rest10196_ _r10197_) - (let ((_e1019810215_ _hd10194_)) - (let ((_E1021010219_ + (lambda (_body10139_) + (let ((_expand-special10141_ + (lambda (_hd10270_ _K10271_ _rest10272_ _r10273_) + (let ((_e1027410291_ _hd10270_)) + (let ((_E1028610295_ (lambda () - (_K10195_ - _rest10196_ - (cons (gx#core-expand-top _hd10194_) _r10197_))))) - (let ((_E1020010231_ + (_K10271_ + _rest10272_ + (cons (gx#core-expand-top _hd10270_) _r10273_))))) + (let ((_E1027610307_ (lambda () - (if (gx#stx-pair? _e1019810215_) - (let ((_e1021110223_ - (gx#syntax-e _e1019810215_))) - (let ((_hd1021210226_ (##car _e1021110223_)) - (_tl1021310228_ (##cdr _e1021110223_))) - (if (if (gx#identifier? _hd1021210226_) + (if (gx#stx-pair? _e1027410291_) + (let ((_e1028710299_ + (gx#syntax-e _e1027410291_))) + (let ((_hd1028810302_ (##car _e1028710299_)) + (_tl1028910304_ (##cdr _e1028710299_))) + (if (if (gx#identifier? _hd1028810302_) (gx#core-identifier=? - _hd1021210226_ + _hd1028810302_ '%#export) '#f) (if '#t - (_K10195_ - _rest10196_ - (cons _hd10194_ _r10197_)) - (_E1021010219_)) - (_E1021010219_)))) - (_E1021010219_))))) - (let ((_E1019910263_ + (_K10271_ + _rest10272_ + (cons _hd10270_ _r10273_)) + (_E1028610295_)) + (_E1028610295_)))) + (_E1028610295_))))) + (let ((_E1027510339_ (lambda () - (if (gx#stx-pair? _e1019810215_) - (let ((_e1020110235_ - (gx#syntax-e _e1019810215_))) - (let ((_hd1020210238_ - (##car _e1020110235_)) - (_tl1020310240_ - (##cdr _e1020110235_))) - (if (if (gx#identifier? _hd1020210238_) + (if (gx#stx-pair? _e1027410291_) + (let ((_e1027710311_ + (gx#syntax-e _e1027410291_))) + (let ((_hd1027810314_ + (##car _e1027710311_)) + (_tl1027910316_ + (##cdr _e1027710311_))) + (if (if (gx#identifier? _hd1027810314_) (gx#core-identifier=? - _hd1020210238_ + _hd1027810314_ '%#define-values) '#f) - (if (gx#stx-pair? _tl1020310240_) - (let ((_e1020410243_ + (if (gx#stx-pair? _tl1027910316_) + (let ((_e1028010319_ (gx#syntax-e - _tl1020310240_))) - (let ((_hd1020510246_ - (##car _e1020410243_)) - (_tl1020610248_ - (##cdr _e1020410243_))) - (let ((_hd-bind10251_ - _hd1020510246_)) + _tl1027910316_))) + (let ((_hd1028110322_ + (##car _e1028010319_)) + (_tl1028210324_ + (##cdr _e1028010319_))) + (let ((_hd-bind10327_ + _hd1028110322_)) (if (gx#stx-pair? - _tl1020610248_) - (let ((_e1020710253_ + _tl1028210324_) + (let ((_e1028310329_ (gx#syntax-e - _tl1020610248_))) - (let ((_hd1020810256_ + _tl1028210324_))) + (let ((_hd1028410332_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e1020710253_)) - (_tl1020910258_ (##cdr _e1020710253_))) - (let ((_expr10261_ _hd1020810256_)) - (if (gx#stx-null? _tl1020910258_) - (if (gx#core-bind-values? _hd-bind10251_) + (##car _e1028310329_)) + (_tl1028510334_ (##cdr _e1028310329_))) + (let ((_expr10337_ _hd1028410332_)) + (if (gx#stx-null? _tl1028510334_) + (if (gx#core-bind-values? _hd-bind10327_) (begin - (gx#core-bind-values!__0 _hd-bind10251_) - (_K10195_ - _rest10196_ - (cons _hd10194_ _r10197_))) - (_E1020010231_)) - (_E1020010231_))))) - (_E1020010231_))))) + (gx#core-bind-values!__0 _hd-bind10327_) + (_K10271_ + _rest10272_ + (cons _hd10270_ _r10273_))) + (_E1027610307_)) + (_E1027610307_))))) + (_E1027610307_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1020010231_)) - (_E1020010231_)))) - (_E1020010231_))))) - (let () (_E1019910263_))))))))) - (let ((_expand-body10066_ - (lambda (_rbody10068_) - ((letrec ((_lp10070_ - (lambda (_rest10072_ _body10073_) - (let ((_rest1007410082_ _rest10072_)) - (let ((_E1007710086_ + (_E1027610307_)) + (_E1027610307_)))) + (_E1027610307_))))) + (let () (_E1027510339_))))))))) + (let ((_expand-body10142_ + (lambda (_rbody10144_) + ((letrec ((_lp10146_ + (lambda (_rest10148_ _body10149_) + (let ((_rest1015010158_ _rest10148_)) + (let ((_E1015310162_ (lambda () (error '"No clause matching" - _rest1007410082_)))) - (let ((_else1007610090_ - (lambda () _body10073_))) - (let ((_K1007810182_ - (lambda (_rest10093_ _hd10094_) - (let ((_e1009510116_ _hd10094_)) - (let ((_E1011110120_ + _rest1015010158_)))) + (let ((_else1015210166_ + (lambda () _body10149_))) + (let ((_K1015410258_ + (lambda (_rest10169_ _hd10170_) + (let ((_e1017110192_ _hd10170_)) + (let ((_E1018710196_ (lambda () - (_lp10070_ - _rest10093_ + (_lp10146_ + _rest10169_ (cons (gx#core-expand-expression - _hd10094_) - _body10073_))))) - (let ((_E1010710134_ + _hd10170_) + _body10149_))))) + (let ((_E1018310210_ (lambda () (if (gx#stx-pair? - _e1009510116_) - (let ((_e1011210124_ + _e1017110192_) + (let ((_e1018810200_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e1009510116_))) - (let ((_hd1011310127_ (##car _e1011210124_)) - (_tl1011410129_ (##cdr _e1011210124_))) - (let ((_form10132_ _hd1011310127_)) - (if (gx#core-bound-identifier?__opt-lambda3961 - _form10132_ + (gx#syntax-e _e1017110192_))) + (let ((_hd1018910203_ (##car _e1018810200_)) + (_tl1019010205_ (##cdr _e1018810200_))) + (let ((_form10208_ _hd1018910203_)) + (if (gx#core-bound-identifier?__opt-lambda4037 + _form10208_ gx#special-form-binding?) - (_lp10070_ - _rest10093_ - (cons _hd10094_ _body10073_)) - (_E1011110120_))))) - (_E1011110120_))))) + (_lp10146_ + _rest10169_ + (cons _hd10170_ _body10149_)) + (_E1018710196_))))) + (_E1018710196_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_E1009710146_ + (let ((_E1017310222_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e1009510116_) - (let ((_e1010810138_ (gx#syntax-e _e1009510116_))) - (let ((_hd1010910141_ (##car _e1010810138_)) - (_tl1011010143_ (##cdr _e1010810138_))) - (if (if (gx#identifier? _hd1010910141_) + _e1017110192_) + (let ((_e1018410214_ (gx#syntax-e _e1017110192_))) + (let ((_hd1018510217_ (##car _e1018410214_)) + (_tl1018610219_ (##cdr _e1018410214_))) + (if (if (gx#identifier? _hd1018510217_) (gx#core-identifier=? - _hd1010910141_ + _hd1018510217_ '%#export) '#f) (if '#t - (_lp10070_ - _rest10093_ + (_lp10146_ + _rest10169_ (cons (gx#core-expand-export%__0 - _hd10094_) - _body10073_)) - (_E1010710134_)) - (_E1010710134_)))) - (_E1010710134_))))) + _hd10170_) + _body10149_)) + (_E1018310210_)) + (_E1018310210_)))) + (_E1018310210_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_E1009610178_ + (let ((_E1017210254_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e1009510116_) - (let ((_e1009810150_ (gx#syntax-e _e1009510116_))) - (let ((_hd1009910153_ (##car _e1009810150_)) - (_tl1010010155_ (##cdr _e1009810150_))) - (if (if (gx#identifier? _hd1009910153_) + _e1017110192_) + (let ((_e1017410226_ (gx#syntax-e _e1017110192_))) + (let ((_hd1017510229_ (##car _e1017410226_)) + (_tl1017610231_ (##cdr _e1017410226_))) + (if (if (gx#identifier? _hd1017510229_) (gx#core-identifier=? - _hd1009910153_ + _hd1017510229_ '%#define-values) '#f) - (if (gx#stx-pair? _tl1010010155_) - (let ((_e1010110158_ - (gx#syntax-e _tl1010010155_))) - (let ((_hd1010210161_ - (##car _e1010110158_)) - (_tl1010310163_ - (##cdr _e1010110158_))) - (let ((_hd-bind10166_ - _hd1010210161_)) - (if (gx#stx-pair? _tl1010310163_) - (let ((_e1010410168_ + (if (gx#stx-pair? _tl1017610231_) + (let ((_e1017710234_ + (gx#syntax-e _tl1017610231_))) + (let ((_hd1017810237_ + (##car _e1017710234_)) + (_tl1017910239_ + (##cdr _e1017710234_))) + (let ((_hd-bind10242_ + _hd1017810237_)) + (if (gx#stx-pair? _tl1017910239_) + (let ((_e1018010244_ (gx#syntax-e - _tl1010310163_))) - (let ((_hd1010510171_ - (##car _e1010410168_)) - (_tl1010610173_ - (##cdr _e1010410168_))) - (let ((_expr10176_ - _hd1010510171_)) + _tl1017910239_))) + (let ((_hd1018110247_ + (##car _e1018010244_)) + (_tl1018210249_ + (##cdr _e1018010244_))) + (let ((_expr10252_ + _hd1018110247_)) (if (gx#stx-null? - _tl1010610173_) + _tl1018210249_) (if '#t - (_lp10070_ - _rest10093_ + (_lp10146_ + _rest10169_ (cons (gx#core-quote-syntax__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#core-list '%#define-values - (gx#core-quote-bind-values _hd-bind10166_) - (gx#core-expand-expression _expr10176_)) - (gx#stx-source _hd10094_)) - _body10073_)) - (_E1009710146_)) - (_E1009710146_))))) + (gx#core-quote-bind-values _hd-bind10242_) + (gx#core-expand-expression _expr10252_)) + (gx#stx-source _hd10170_)) + _body10149_)) + (_E1017310222_)) + (_E1017310222_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1009710146_))))) - (_E1009710146_)) - (_E1009710146_)))) - (_E1009710146_))))) - (let () (_E1009610178_)))))))))) + (_E1017310222_))))) + (_E1017310222_)) + (_E1017310222_)))) + (_E1017310222_))))) + (let () (_E1017210254_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _rest1007410082_) - (let ((_hd1007910185_ - (##car _rest1007410082_)) - (_tl1008010187_ - (##cdr _rest1007410082_))) - (let ((_hd10190_ _hd1007910185_)) - (let ((_rest10192_ - _tl1008010187_)) - (_K1007810182_ - _rest10192_ - _hd10190_)))) - (_else1007610090_))))))))) - _lp10070_) - _rbody10068_ + (if (##pair? _rest1015010158_) + (let ((_hd1015510261_ + (##car _rest1015010158_)) + (_tl1015610263_ + (##cdr _rest1015010158_))) + (let ((_hd10266_ _hd1015510261_)) + (let ((_rest10268_ + _tl1015610263_)) + (_K1015410258_ + _rest10268_ + _hd10266_)))) + (_else1015210166_))))))))) + _lp10146_) + _rbody10144_ '())))) - (_expand-body10066_ - (gx#core-expand-block__opt-lambda5008 - (cons '%#begin-module _body10063_) - _expand-special10065_ + (_expand-body10142_ + (gx#core-expand-block__opt-lambda5084 + (cons '%#begin-module _body10139_) + _expand-special10141_ '#f values)))))) (define gx#core-expand-import/export - (lambda (_stx9906_ - _expanded?9907_ - _method9908_ - _current-phi9909_ - _expand19910_) - (letrec ((_K9912_ (lambda (_rest10030_ _r10031_) - (let ((_e1003210039_ _rest10030_)) - (let ((_E1003410043_ (lambda () _r10031_))) - (let ((_E1003310059_ + (lambda (_stx9982_ + _expanded?9983_ + _method9984_ + _current-phi9985_ + _expand19986_) + (letrec ((_K9988_ (lambda (_rest10106_ _r10107_) + (let ((_e1010810115_ _rest10106_)) + (let ((_E1011010119_ (lambda () _r10107_))) + (let ((_E1010910135_ (lambda () - (if (gx#stx-pair? _e1003210039_) - (let ((_e1003510047_ - (gx#syntax-e _e1003210039_))) - (let ((_hd1003610050_ - (##car _e1003510047_)) - (_tl1003710052_ - (##cdr _e1003510047_))) - (let ((_hd10055_ - _hd1003610050_)) - (let ((_rest10057_ - _tl1003710052_)) + (if (gx#stx-pair? _e1010810115_) + (let ((_e1011110123_ + (gx#syntax-e _e1010810115_))) + (let ((_hd1011210126_ + (##car _e1011110123_)) + (_tl1011310128_ + (##cdr _e1011110123_))) + (let ((_hd10131_ + _hd1011210126_)) + (let ((_rest10133_ + _tl1011310128_)) (if '#t - (_step9913_ - _hd10055_ - _rest10057_ - _r10031_) - (_E1003410043_)))))) - (_E1003410043_))))) - (let () (_E1003310059_))))))) - (_step9913_ - (lambda (_hd9944_ _rest9945_ _r9946_) - (let ((_e99479965_ _hd9944_)) - (let ((_E99609969_ + (_step9989_ + _hd10131_ + _rest10133_ + _r10107_) + (_E1011010119_)))))) + (_E1011010119_))))) + (let () (_E1010910135_))))))) + (_step9989_ + (lambda (_hd10020_ _rest10021_ _r10022_) + (let ((_e1002310041_ _hd10020_)) + (let ((_E1003610045_ (lambda () - (if (_expanded?9907_ (gx#stx-e _hd9944_)) - (_K9912_ _rest9945_ - (cons (gx#stx-e _hd9944_) _r9946_)) - (_expand19910_ - _hd9944_ - _K9912_ - _rest9945_ - _r9946_))))) - (let ((_E99569985_ + (if (_expanded?9983_ (gx#stx-e _hd10020_)) + (_K9988_ _rest10021_ + (cons (gx#stx-e _hd10020_) _r10022_)) + (_expand19986_ + _hd10020_ + _K9988_ + _rest10021_ + _r10022_))))) + (let ((_E1003210061_ (lambda () - (if (gx#stx-pair? _e99479965_) - (let ((_e99619973_ - (gx#syntax-e _e99479965_))) - (let ((_hd99629976_ (##car _e99619973_)) - (_tl99639978_ (##cdr _e99619973_))) - (let ((_macro9981_ _hd99629976_)) - (let ((_body9983_ _tl99639978_)) - (if (gx#core-bound-identifier?__opt-lambda3961 - _macro9981_ + (if (gx#stx-pair? _e1002310041_) + (let ((_e1003710049_ + (gx#syntax-e _e1002310041_))) + (let ((_hd1003810052_ + (##car _e1003710049_)) + (_tl1003910054_ + (##cdr _e1003710049_))) + (let ((_macro10057_ _hd1003810052_)) + (let ((_body10059_ _tl1003910054_)) + (if (gx#core-bound-identifier?__opt-lambda4037 + _macro10057_ gx#syntax-binding?) - (_K9912_ (cons (gx#core-apply-expander__opt-lambda4726 + (_K9988_ (cons (gx#core-apply-expander__opt-lambda4802 (gx#syntax-local-e__0 - _macro9981_) - _hd9944_ - _method9908_) - _rest9945_) - _r9946_) - (_E99609969_)))))) - (_E99609969_))))) - (let ((_E99499999_ + _macro10057_) + _hd10020_ + _method9984_) + _rest10021_) + _r10022_) + (_E1003610045_)))))) + (_E1003610045_))))) + (let ((_E1002510075_ (lambda () - (if (gx#stx-pair? _e99479965_) - (let ((_e99579989_ - (gx#syntax-e _e99479965_))) - (let ((_hd99589992_ (##car _e99579989_)) - (_tl99599994_ - (##cdr _e99579989_))) - (if (eq? (gx#stx-e _hd99589992_) + (if (gx#stx-pair? _e1002310041_) + (let ((_e1003310065_ + (gx#syntax-e _e1002310041_))) + (let ((_hd1003410068_ + (##car _e1003310065_)) + (_tl1003510070_ + (##cdr _e1003310065_))) + (if (eq? (gx#stx-e _hd1003410068_) 'begin:) - (let ((_body9997_ _tl99599994_)) + (let ((_body10073_ + _tl1003510070_)) (if '#t - (_K9912_ (gx#stx-foldr + (_K9988_ (gx#stx-foldr cons - _rest9945_ - _body9997_) - _r9946_) - (_E99569985_))) - (_E99569985_)))) - (_E99569985_))))) - (let ((_E994810026_ + _rest10021_ + _body10073_) + _r10022_) + (_E1003210061_))) + (_E1003210061_)))) + (_E1003210061_))))) + (let ((_E1002410102_ (lambda () - (if (gx#stx-pair? _e99479965_) - (let ((_e995010003_ - (gx#syntax-e _e99479965_))) - (let ((_hd995110006_ - (##car _e995010003_)) - (_tl995210008_ - (##cdr _e995010003_))) - (if (eq? (gx#stx-e _hd995110006_) + (if (gx#stx-pair? _e1002310041_) + (let ((_e1002610079_ + (gx#syntax-e _e1002310041_))) + (let ((_hd1002710082_ + (##car _e1002610079_)) + (_tl1002810084_ + (##cdr _e1002610079_))) + (if (eq? (gx#stx-e _hd1002710082_) 'phi:) - (if (gx#stx-pair? _tl995210008_) - (let ((_e995310011_ + (if (gx#stx-pair? + _tl1002810084_) + (let ((_e1002910087_ (gx#syntax-e - _tl995210008_))) - (let ((_hd995410014_ - (##car _e995310011_)) - (_tl995510016_ - (##cdr _e995310011_))) - (let ((_dphi10019_ - _hd995410014_)) - (let ((_body10021_ - _tl995510016_)) + _tl1002810084_))) + (let ((_hd1003010090_ + (##car _e1002910087_)) + (_tl1003110092_ + (##cdr _e1002910087_))) + (let ((_dphi10095_ + _hd1003010090_)) + (let ((_body10097_ + _tl1003110092_)) (if (gx#stx-fixnum? - _dphi10019_) - (let ((_rbody10024_ + _dphi10095_) + (let ((_rbody10100_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (call-with-parameters - (lambda () (_K9912_ _body10021_ '())) - _current-phi9909_ - (fx+ (gx#stx-e _dphi10019_) - (_current-phi9909_))))) - (_K9912_ _rest9945_ - (foldr1 cons _r9946_ _rbody10024_))) - (_E99499999_)))))) + (lambda () (_K9988_ _body10097_ '())) + _current-phi9985_ + (fx+ (gx#stx-e _dphi10095_) + (_current-phi9985_))))) + (_K9988_ _rest10021_ + (foldr1 cons _r10022_ _rbody10100_))) + (_E1002510075_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E99499999_)) - (_E99499999_)))) - (_E99499999_))))) - (let () (_E994810026_)))))))))) - (let ((_e99149921_ _stx9906_)) - (let ((_E99169925_ + (_E1002510075_)) + (_E1002510075_)))) + (_E1002510075_))))) + (let () (_E1002410102_)))))))))) + (let ((_e99909997_ _stx9982_)) + (let ((_E999210001_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e99149921_)))) - (let ((_E99159940_ + (gx#raise-syntax-error '#f '"Bad syntax" _e99909997_)))) + (let ((_E999110016_ (lambda () - (if (gx#stx-pair? _e99149921_) - (let ((_e99179929_ (gx#syntax-e _e99149921_))) - (let ((_hd99189932_ (##car _e99179929_)) - (_tl99199934_ (##cdr _e99179929_))) - (let ((_body9937_ _tl99199934_)) + (if (gx#stx-pair? _e99909997_) + (let ((_e999310005_ (gx#syntax-e _e99909997_))) + (let ((_hd999410008_ (##car _e999310005_)) + (_tl999510010_ (##cdr _e999310005_))) + (let ((_body10013_ _tl999510010_)) (if '#t - (if (_current-phi9909_) - (_K9912_ _body9937_ '()) + (if (_current-phi9985_) + (_K9988_ _body10013_ '()) (call-with-parameters - (lambda () (_K9912_ _body9937_ '())) - _current-phi9909_ + (lambda () (_K9988_ _body10013_ '())) + _current-phi9985_ (gx#current-expander-phi))) - (_E99169925_))))) - (_E99169925_))))) - (let () (_E99159940_)))))))) + (_E999210001_))))) + (_E999210001_))))) + (let () (_E999110016_)))))))) (begin - (define gx#core-expand-import%__opt-lambda9443 - (lambda (_stx9445_ _internal-expand?9446_) - (let ((_import19449_ - (lambda (_ctx9880_ _K9881_ _rest9882_ _r9883_) - (let ((_dphi9885_ + (define gx#core-expand-import%__opt-lambda9519 + (lambda (_stx9521_ _internal-expand?9522_) + (let ((_import19525_ + (lambda (_ctx9956_ _K9957_ _rest9958_ _r9959_) + (let ((_dphi9961_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_K9881_ _rest9882_ + (_K9957_ _rest9958_ (cons (##structure gx#import-set::t - _ctx9880_ - _dphi9885_ - (map (lambda (_g98869888_) - (gx#core-module-export->import__opt-lambda10341 - _g98869888_ + _ctx9956_ + _dphi9961_ + (map (lambda (_g99629964_) + (gx#core-module-export->import__opt-lambda10417 + _g99629964_ '#f - _dphi9885_)) + _dphi9961_)) (##structure-ref - _ctx9880_ + _ctx9956_ '9 gx#module-context::t '#f))) - _r9883_)))))) - (let ((_import-spec?9450_ - (lambda (_hd9837_) - (let ((_e98389848_ _hd9837_)) - (let ((_E98409852_ (lambda () '#f))) - (let ((_E98399876_ + _r9959_)))))) + (let ((_import-spec?9526_ + (lambda (_hd9913_) + (let ((_e99149924_ _hd9913_)) + (let ((_E99169928_ (lambda () '#f))) + (let ((_E99159952_ (lambda () - (if (gx#stx-pair? _e98389848_) - (let ((_e98419856_ - (gx#syntax-e _e98389848_))) - (let ((_hd98429859_ (##car _e98419856_)) - (_tl98439861_ (##cdr _e98419856_))) - (if (eq? (gx#stx-e _hd98429859_) + (if (gx#stx-pair? _e99149924_) + (let ((_e99179932_ + (gx#syntax-e _e99149924_))) + (let ((_hd99189935_ (##car _e99179932_)) + (_tl99199937_ (##cdr _e99179932_))) + (if (eq? (gx#stx-e _hd99189935_) 'spec:) - (if (gx#stx-pair? _tl98439861_) - (let ((_e98449864_ + (if (gx#stx-pair? _tl99199937_) + (let ((_e99209940_ (gx#syntax-e - _tl98439861_))) - (let ((_hd98459867_ - (##car _e98449864_)) - (_tl98469869_ - (##cdr _e98449864_))) - (let ((_spath9872_ - _hd98459867_)) - (let ((_specs9874_ - _tl98469869_)) + _tl99199937_))) + (let ((_hd99219943_ + (##car _e99209940_)) + (_tl99229945_ + (##cdr _e99209940_))) + (let ((_spath9948_ + _hd99219943_)) + (let ((_specs9950_ + _tl99229945_)) (if '#t '#t - (_E98409852_)))))) - (_E98409852_)) - (_E98409852_)))) - (_E98409852_))))) - (let () (_E98399876_)))))))) - (let ((_import-submodule?9451_ - (lambda (_hd9794_) - (let ((_e97959805_ _hd9794_)) - (let ((_E97979809_ (lambda () '#f))) - (let ((_E97969833_ + (_E99169928_)))))) + (_E99169928_)) + (_E99169928_)))) + (_E99169928_))))) + (let () (_E99159952_)))))))) + (let ((_import-submodule?9527_ + (lambda (_hd9870_) + (let ((_e98719881_ _hd9870_)) + (let ((_E98739885_ (lambda () '#f))) + (let ((_E98729909_ (lambda () - (if (gx#stx-pair? _e97959805_) - (let ((_e97989813_ - (gx#syntax-e _e97959805_))) - (let ((_hd97999816_ - (##car _e97989813_)) - (_tl98009818_ - (##cdr _e97989813_))) - (if (eq? (gx#stx-e _hd97999816_) + (if (gx#stx-pair? _e98719881_) + (let ((_e98749889_ + (gx#syntax-e _e98719881_))) + (let ((_hd98759892_ + (##car _e98749889_)) + (_tl98769894_ + (##cdr _e98749889_))) + (if (eq? (gx#stx-e _hd98759892_) 'in:) - (if (gx#stx-pair? _tl98009818_) - (let ((_e98019821_ + (if (gx#stx-pair? _tl98769894_) + (let ((_e98779897_ (gx#syntax-e - _tl98009818_))) - (let ((_hd98029824_ - (##car _e98019821_)) - (_tl98039826_ - (##cdr _e98019821_))) - (let ((_top9829_ - _hd98029824_)) - (let ((_sub9831_ - _tl98039826_)) + _tl98769894_))) + (let ((_hd98789900_ + (##car _e98779897_)) + (_tl98799902_ + (##cdr _e98779897_))) + (let ((_top9905_ + _hd98789900_)) + (let ((_sub9907_ + _tl98799902_)) (if '#t '#t - (_E97979809_)))))) - (_E97979809_)) - (_E97979809_)))) - (_E97979809_))))) - (let () (_E97969833_)))))))) - (let ((_import-runtime?9452_ - (lambda (_hd9751_) - (let ((_e97529762_ _hd9751_)) - (let ((_E97549766_ (lambda () '#f))) - (let ((_E97539790_ + (_E98739885_)))))) + (_E98739885_)) + (_E98739885_)))) + (_E98739885_))))) + (let () (_E98729909_)))))))) + (let ((_import-runtime?9528_ + (lambda (_hd9827_) + (let ((_e98289838_ _hd9827_)) + (let ((_E98309842_ (lambda () '#f))) + (let ((_E98299866_ (lambda () - (if (gx#stx-pair? _e97529762_) - (let ((_e97559770_ - (gx#syntax-e _e97529762_))) - (let ((_hd97569773_ - (##car _e97559770_)) - (_tl97579775_ - (##cdr _e97559770_))) - (if (eq? (gx#stx-e _hd97569773_) + (if (gx#stx-pair? _e98289838_) + (let ((_e98319846_ + (gx#syntax-e _e98289838_))) + (let ((_hd98329849_ + (##car _e98319846_)) + (_tl98339851_ + (##cdr _e98319846_))) + (if (eq? (gx#stx-e _hd98329849_) 'runtime:) - (if (gx#stx-pair? _tl97579775_) - (let ((_e97589778_ + (if (gx#stx-pair? _tl98339851_) + (let ((_e98349854_ (gx#syntax-e - _tl97579775_))) - (let ((_hd97599781_ - (##car _e97589778_)) - (_tl97609783_ - (##cdr _e97589778_))) - (let ((_top9786_ - _hd97599781_)) - (let ((_spath9788_ + _tl98339851_))) + (let ((_hd98359857_ + (##car _e98349854_)) + (_tl98369859_ + (##cdr _e98349854_))) + (let ((_top9862_ + _hd98359857_)) + (let ((_spath9864_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl97609783_)) - (if '#t '#t (_E97549766_)))))) + _tl98369859_)) + (if '#t '#t (_E98309842_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E97549766_)) - (_E97549766_)))) - (_E97549766_))))) - (let () (_E97539790_)))))))) - (let ((_import-spec-source9456_ - (lambda (_spath9522_) + (_E98309842_)) + (_E98309842_)))) + (_E98309842_))))) + (let () (_E98299866_)))))))) + (let ((_import-spec-source9532_ + (lambda (_spath9598_) (gx#core-import-nested-module - _spath9522_ - _stx9445_)))) - (let ((_import!9457_ - (lambda (_rbody9470_) - (let ((_current-ctx9472_ + _spath9598_ + _stx9521_)))) + (let ((_import!9533_ + (lambda (_rbody9546_) + (let ((_current-ctx9548_ (gx#current-expander-context))) - (let ((_deps9473_ (make-hash-table-eq))) - (let ((_bind!9474_ - (lambda (_hd9520_) + (let ((_deps9549_ (make-hash-table-eq))) + (let ((_bind!9550_ + (lambda (_hd9596_) (begin (gx#core-bind-import!__1 - _hd9520_ - _current-ctx9472_) + _hd9596_ + _current-ctx9548_) (if (if (fxpositive? (##structure-ref - _hd9520_ + _hd9596_ '3 gx#module-import::t '#f)) (fxzero? (##structure-ref (##structure-ref - _hd9520_ + _hd9596_ '1 gx#module-import::t '#f) @@ -1743,10 +1748,10 @@ '#f)) '#f) (table-set! - _deps9473_ + _deps9549_ (##structure-ref (##structure-ref - _hd9520_ + _hd9596_ '1 gx#module-import::t '#f) @@ -1755,501 +1760,501 @@ '#f) '#t) '#!void))))) - (let ((_fold-e9475_ - (lambda (_in9517_ _r9518_) + (let ((_fold-e9551_ + (lambda (_in9593_ _r9594_) (if (##structure-direct-instance-of? - _in9517_ + _in9593_ 'gx#module-import::t) - (cons _in9517_ _r9518_) + (cons _in9593_ _r9594_) (if (##structure-direct-instance-of? - _in9517_ + _in9593_ 'gx#import-set::t) (foldl1 cons - _r9518_ + _r9594_ (##structure-ref - _in9517_ + _in9593_ '3 gx#import-set::t '#f)) - _r9518_))))) - ((letrec ((_lp9477_ - (lambda (_rest9479_ _body9480_) - (let ((_rest94819489_ - _rest9479_)) - (let ((_E94849493_ + _r9594_))))) + ((letrec ((_lp9553_ + (lambda (_rest9555_ _body9556_) + (let ((_rest95579565_ + _rest9555_)) + (let ((_E95609569_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _rest94819489_)))) + _rest95579565_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_else94839499_ + (let ((_else95599575_ (lambda () (begin (if (##structure-instance-of? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _current-ctx9472_ + _current-ctx9548_ 'gx#module-context::t) (##structure-set! - _current-ctx9472_ - (foldl1 _fold-e9475_ + _current-ctx9548_ + (foldl1 _fold-e9551_ (##structure-ref - _current-ctx9472_ + _current-ctx9548_ '8 gx#module-context::t '#f) - _body9480_) + _body9556_) '8 gx#module-context::t '#f) '#!void) (table-for-each - (lambda (_ctx9497_ _g11090_) - (gx#eval-module _ctx9497_)) - _deps9473_) - _body9480_)))) - (let ((_K94859505_ - (lambda (_rest9502_ _hd9503_) + (lambda (_ctx9573_ _g11166_) + (gx#eval-module _ctx9573_)) + _deps9549_) + _body9556_)))) + (let ((_K95619581_ + (lambda (_rest9578_ _hd9579_) (begin (if (##structure-direct-instance-of? - _hd9503_ + _hd9579_ 'gx#module-import::t) - (_bind!9474_ _hd9503_) + (_bind!9550_ _hd9579_) (if (##structure-direct-instance-of? - _hd9503_ + _hd9579_ 'gx#import-set::t) (for-each - _bind!9474_ + _bind!9550_ (##structure-ref - _hd9503_ + _hd9579_ '3 gx#import-set::t '#f)) (if (##structure-instance-of? - _hd9503_ + _hd9579_ 'gx#module-context::t) '#!void (gx#raise-syntax-error '#f '"Unexpected import" - _stx9445_ - _hd9503_)))) - (_lp9477_ _rest9502_ (cons _hd9503_ _body9480_)))))) - (if (##pair? _rest94819489_) - (let ((_hd94869508_ (##car _rest94819489_)) - (_tl94879510_ (##cdr _rest94819489_))) - (let ((_hd9513_ _hd94869508_)) - (let ((_rest9515_ _tl94879510_)) - (_K94859505_ _rest9515_ _hd9513_)))) - (_else94839499_))))))))) + _stx9521_ + _hd9579_)))) + (_lp9553_ _rest9578_ (cons _hd9579_ _body9556_)))))) + (if (##pair? _rest95579565_) + (let ((_hd95629584_ (##car _rest95579565_)) + (_tl95639586_ (##cdr _rest95579565_))) + (let ((_hd9589_ _hd95629584_)) + (let ((_rest9591_ _tl95639586_)) + (_K95619581_ _rest9591_ _hd9589_)))) + (_else95599575_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _lp9477_) - _rbody9470_ + _lp9553_) + _rbody9546_ '())))))))) - (let ((_expanded-import?9458_ - (lambda (_e9462_) - (let ((_$e9464_ + (let ((_expanded-import?9534_ + (lambda (_e9538_) + (let ((_$e9540_ (##structure-direct-instance-of? - _e9462_ + _e9538_ 'gx#import-set::t))) - (if _$e9464_ - _$e9464_ - (let ((_$e9467_ + (if _$e9540_ + _$e9540_ + (let ((_$e9543_ (##structure-direct-instance-of? - _e9462_ + _e9538_ 'gx#module-import::t))) - (if _$e9467_ - _$e9467_ + (if _$e9543_ + _$e9543_ (##structure-instance-of? - _e9462_ + _e9538_ 'gx#module-context::t)))))))) - (let ((_import-submodule9453_ - (lambda (_hd9718_ _K9719_ _rest9720_ _r9721_) - (let ((_e97229729_ _hd9718_)) - (let ((_E97249733_ + (let ((_import-submodule9529_ + (lambda (_hd9794_ _K9795_ _rest9796_ _r9797_) + (let ((_e97989805_ _hd9794_)) + (let ((_E98009809_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e97229729_)))) - (let ((_E97239747_ + _e97989805_)))) + (let ((_E97999823_ (lambda () - (if (gx#stx-pair? _e97229729_) - (let ((_e97259737_ + (if (gx#stx-pair? _e97989805_) + (let ((_e98019813_ (gx#syntax-e - _e97229729_))) - (let ((_hd97269740_ - (##car _e97259737_)) - (_tl97279742_ - (##cdr _e97259737_))) - (let ((_spath9745_ - _tl97279742_)) + _e97989805_))) + (let ((_hd98029816_ + (##car _e98019813_)) + (_tl98039818_ + (##cdr _e98019813_))) + (let ((_spath9821_ + _tl98039818_)) (if '#t - (_import19449_ - (_import-spec-source9456_ - _spath9745_) - _K9719_ - _rest9720_ - _r9721_) - (_E97249733_))))) - (_E97249733_))))) - (let () (_E97239747_)))))))) - (let ((_import-runtime9454_ - (lambda (_hd9685_ _K9686_ _rest9687_ _r9688_) - (let ((_e96899696_ _hd9685_)) - (let ((_E96919700_ + (_import19525_ + (_import-spec-source9532_ + _spath9821_) + _K9795_ + _rest9796_ + _r9797_) + (_E98009809_))))) + (_E98009809_))))) + (let () (_E97999823_)))))))) + (let ((_import-runtime9530_ + (lambda (_hd9761_ _K9762_ _rest9763_ _r9764_) + (let ((_e97659772_ _hd9761_)) + (let ((_E97679776_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e96899696_)))) - (let ((_E96909714_ + _e97659772_)))) + (let ((_E97669790_ (lambda () - (if (gx#stx-pair? _e96899696_) - (let ((_e96929704_ + (if (gx#stx-pair? _e97659772_) + (let ((_e97689780_ (gx#syntax-e - _e96899696_))) - (let ((_hd96939707_ - (##car _e96929704_)) - (_tl96949709_ - (##cdr _e96929704_))) - (let ((_spath9712_ - _tl96949709_)) + _e97659772_))) + (let ((_hd97699783_ + (##car _e97689780_)) + (_tl97709785_ + (##cdr _e97689780_))) + (let ((_spath9788_ + _tl97709785_)) (if '#t - (_K9686_ _rest9687_ + (_K9762_ _rest9763_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (_import-spec-source9456_ _spath9712_) - _r9688_)) - (_E96919700_))))) + (cons (_import-spec-source9532_ _spath9788_) + _r9764_)) + (_E97679776_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E96919700_))))) - (let () (_E96909714_)))))))) - (let ((_import-spec9455_ - (lambda (_hd9524_ _K9525_ _rest9526_ _r9527_) - (let ((_e95289545_ _hd9524_)) - (let ((_E95379549_ + (_E97679776_))))) + (let () (_E97669790_)))))))) + (let ((_import-spec9531_ + (lambda (_hd9600_ _K9601_ _rest9602_ _r9603_) + (let ((_e96049621_ _hd9600_)) + (let ((_E96139625_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e95289545_)))) - (let ((_E95309659_ + _e96049621_)))) + (let ((_E96069735_ (lambda () - (if (gx#stx-pair? _e95289545_) - (let ((_e95389553_ + (if (gx#stx-pair? _e96049621_) + (let ((_e96149629_ (gx#syntax-e - _e95289545_))) - (let ((_hd95399556_ - (##car _e95389553_)) - (_tl95409558_ - (##cdr _e95389553_))) + _e96049621_))) + (let ((_hd96159632_ + (##car _e96149629_)) + (_tl96169634_ + (##cdr _e96149629_))) (if (gx#stx-pair? - _tl95409558_) - (let ((_e95419561_ + _tl96169634_) + (let ((_e96179637_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl95409558_))) - (let ((_hd95429564_ (##car _e95419561_)) - (_tl95439566_ (##cdr _e95419561_))) - (let ((_path9569_ _hd95429564_)) - (let ((_specs9571_ _tl95439566_)) + (gx#syntax-e _tl96169634_))) + (let ((_hd96189640_ (##car _e96179637_)) + (_tl96199642_ (##cdr _e96179637_))) + (let ((_path9645_ _hd96189640_)) + (let ((_specs9647_ _tl96199642_)) (if '#t - (let ((_src-ctx9573_ - (_import-spec-source9456_ _path9569_)) - (_exports9574_ (make-table)) - (_specs9575_ - (gx#syntax->list _specs9571_))) + (let ((_src-ctx9649_ + (_import-spec-source9532_ _path9645_)) + (_exports9650_ (make-table)) + (_specs9651_ + (gx#syntax->list _specs9647_))) (begin (for-each - (lambda (_out9577_) + (lambda (_out9653_) (table-set! - _exports9574_ + _exports9650_ (cons (##structure-ref - _out9577_ + _out9653_ '3 gx#module-export::t '#f) (##structure-ref - _out9577_ + _out9653_ '4 gx#module-export::t '#f)) - _out9577_)) + _out9653_)) (##structure-ref - _src-ctx9573_ + _src-ctx9649_ '9 gx#module-context::t '#f)) - (_K9525_ _rest9526_ - (foldl1 (lambda (_spec9579_ - _r9580_) - (let ((_e95819597_ - _spec9579_)) - (let ((_E95839601_ + (_K9601_ _rest9602_ + (foldl1 (lambda (_spec9655_ + _r9656_) + (let ((_e96579673_ + _spec9655_)) + (let ((_E96599677_ (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax" - _e95819597_)))) - (let ((_E95829655_ + _e96579673_)))) + (let ((_E96589731_ (lambda () - (if (gx#stx-pair? _e95819597_) - (let ((_e95849605_ (gx#syntax-e _e95819597_))) - (let ((_hd95859608_ (##car _e95849605_)) - (_tl95869610_ (##cdr _e95849605_))) - (let ((_phi9613_ _hd95859608_)) - (if (gx#stx-pair? _tl95869610_) - (let ((_e95879615_ - (gx#syntax-e _tl95869610_))) - (let ((_hd95889618_ - (##car _e95879615_)) - (_tl95899620_ - (##cdr _e95879615_))) - (let ((_name9623_ _hd95889618_)) - (if (gx#stx-pair? _tl95899620_) - (let ((_e95909625_ + (if (gx#stx-pair? _e96579673_) + (let ((_e96609681_ (gx#syntax-e _e96579673_))) + (let ((_hd96619684_ (##car _e96609681_)) + (_tl96629686_ (##cdr _e96609681_))) + (let ((_phi9689_ _hd96619684_)) + (if (gx#stx-pair? _tl96629686_) + (let ((_e96639691_ + (gx#syntax-e _tl96629686_))) + (let ((_hd96649694_ + (##car _e96639691_)) + (_tl96659696_ + (##cdr _e96639691_))) + (let ((_name9699_ _hd96649694_)) + (if (gx#stx-pair? _tl96659696_) + (let ((_e96669701_ (gx#syntax-e - _tl95899620_))) - (let ((_hd95919628_ - (##car _e95909625_)) - (_tl95929630_ - (##cdr _e95909625_))) - (let ((_src-phi9633_ - _hd95919628_)) + _tl96659696_))) + (let ((_hd96679704_ + (##car _e96669701_)) + (_tl96689706_ + (##cdr _e96669701_))) + (let ((_src-phi9709_ + _hd96679704_)) (if (gx#stx-pair? - _tl95929630_) - (let ((_e95939635_ + _tl96689706_) + (let ((_e96699711_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl95929630_))) - (let ((_hd95949638_ (##car _e95939635_)) - (_tl95959640_ (##cdr _e95939635_))) - (let ((_src-name9643_ _hd95949638_)) - (if (gx#stx-null? _tl95959640_) - (if (if (gx#stx-fixnum? _src-phi9633_) - (if (gx#identifier? _src-name9643_) - (if (gx#stx-fixnum? _phi9613_) - (gx#identifier? _name9623_) + (gx#syntax-e _tl96689706_))) + (let ((_hd96709714_ (##car _e96699711_)) + (_tl96719716_ (##cdr _e96699711_))) + (let ((_src-name9719_ _hd96709714_)) + (if (gx#stx-null? _tl96719716_) + (if (if (gx#stx-fixnum? _src-phi9709_) + (if (gx#identifier? _src-name9719_) + (if (gx#stx-fixnum? _phi9689_) + (gx#identifier? _name9699_) '#f) '#f) '#f) - (let ((_src-phi9645_ - (gx#stx-e _src-phi9633_)) - (_src-name9646_ + (let ((_src-phi9721_ + (gx#stx-e _src-phi9709_)) + (_src-name9722_ (gx#core-identifier-key - _src-name9643_)) - (_phi9647_ (gx#stx-e _phi9613_)) - (_name9648_ + _src-name9719_)) + (_phi9723_ (gx#stx-e _phi9689_)) + (_name9724_ (gx#core-identifier-key - _name9623_))) - (let ((_$e9650_ + _name9699_))) + (let ((_$e9726_ (table-ref - _exports9574_ - (cons _src-phi9645_ - _src-name9646_) + _exports9650_ + (cons _src-phi9721_ + _src-name9722_) '#f))) - (if _$e9650_ - ((lambda (_out9653_) - (cons (gx#core-module-export->import__opt-lambda10341 - _out9653_ - _name9648_ - (fx- _phi9647_ - _src-phi9645_)) - _r9580_)) - _$e9650_) + (if _$e9726_ + ((lambda (_out9729_) + (cons (gx#core-module-export->import__opt-lambda10417 + _out9729_ + _name9724_ + (fx- _phi9723_ + _src-phi9721_)) + _r9656_)) + _$e9726_) (gx#raise-syntax-error '#f '"Bad syntax; no matching export" - _stx9445_ - _hd9524_)))) - (_E95839601_)) - (_E95839601_))))) - (_E95839601_))))) + _stx9521_ + _hd9600_)))) + (_E96599677_)) + (_E96599677_))))) + (_E96599677_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E95839601_))))) - (_E95839601_))))) - (_E95839601_))))) - (let () (_E95829655_)))))) + (_E96599677_))))) + (_E96599677_))))) + (_E96599677_))))) + (let () (_E96589731_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r9527_ - _specs9575_)))) - (_E95379549_)))))) - (_E95379549_)))) + _r9603_ + _specs9651_)))) + (_E96139625_)))))) + (_E96139625_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E95379549_))))) - (let ((_E95299681_ + (_E96139625_))))) + (let ((_E96059757_ (lambda () (if (gx#stx-pair? - _e95289545_) - (let ((_e95319663_ + _e96049621_) + (let ((_e96079739_ (gx#syntax-e - _e95289545_))) - (let ((_hd95329666_ - (##car _e95319663_)) - (_tl95339668_ - (##cdr _e95319663_))) + _e96049621_))) + (let ((_hd96089742_ + (##car _e96079739_)) + (_tl96099744_ + (##cdr _e96079739_))) (if (gx#stx-pair? - _tl95339668_) - (let ((_e95349671_ + _tl96099744_) + (let ((_e96109747_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl95339668_))) - (let ((_hd95359674_ (##car _e95349671_)) - (_tl95369676_ (##cdr _e95349671_))) - (let ((_path9679_ _hd95359674_)) - (if (gx#stx-null? _tl95369676_) + (gx#syntax-e _tl96099744_))) + (let ((_hd96119750_ (##car _e96109747_)) + (_tl96129752_ (##cdr _e96109747_))) + (let ((_path9755_ _hd96119750_)) + (if (gx#stx-null? _tl96129752_) (if '#t - (_K9525_ _rest9526_ - (cons (_import-spec-source9456_ - _path9679_) - _r9527_)) - (_E95309659_)) - (_E95309659_))))) - (_E95309659_)))) - (_E95309659_))))) + (_K9601_ _rest9602_ + (cons (_import-spec-source9532_ + _path9755_) + _r9603_)) + (_E96069735_)) + (_E96069735_))))) + (_E96069735_)))) + (_E96069735_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () (_E95299681_))))))))) - (let ((_expand19448_ - (lambda (_hd9891_ - _K9892_ - _rest9893_ - _r9894_) - (if (gx#core-bound-module? _hd9891_) - (_import19449_ - (gx#syntax-local-e__0 _hd9891_) - _K9892_ - _rest9893_ - _r9894_) + (let () (_E96059757_))))))))) + (let ((_expand19524_ + (lambda (_hd9967_ + _K9968_ + _rest9969_ + _r9970_) + (if (gx#core-bound-module? _hd9967_) + (_import19525_ + (gx#syntax-local-e__0 _hd9967_) + _K9968_ + _rest9969_ + _r9970_) (if (gx#core-library-module-path? - _hd9891_) - (_import19449_ + _hd9967_) + (_import19525_ (gx#import-module__0 (gx#core-resolve-library-module-path - _hd9891_)) - _K9892_ - _rest9893_ - _r9894_) - (if (gx#stx-string? _hd9891_) - (_import19449_ + _hd9967_)) + _K9968_ + _rest9969_ + _r9970_) + (if (gx#stx-string? _hd9967_) + (_import19525_ (gx#import-module__0 - (gx#core-resolve-module-path__opt-lambda10695 - _hd9891_ - (gx#stx-source _stx9445_))) - _K9892_ - _rest9893_ - _r9894_) + (gx#core-resolve-module-path__opt-lambda10771 + _hd9967_ + (gx#stx-source _stx9521_))) + _K9968_ + _rest9969_ + _r9970_) (if (##structure-instance-of? - (gx#stx-e _hd9891_) + (gx#stx-e _hd9967_) 'gx#module-context::t) - (_K9892_ _rest9893_ + (_K9968_ _rest9969_ (cons (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd9891_) - _r9894_)) + _hd9967_) + _r9970_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (_import-spec?9450_ - _hd9891_) - (_import-spec9455_ - _hd9891_ - _K9892_ - _rest9893_ - _r9894_) - (if (_import-submodule?9451_ - _hd9891_) - (_import-submodule9453_ - _hd9891_ - _K9892_ - _rest9893_ - _r9894_) - (if (_import-runtime?9452_ + (if (_import-spec?9526_ + _hd9967_) + (_import-spec9531_ + _hd9967_ + _K9968_ + _rest9969_ + _r9970_) + (if (_import-submodule?9527_ + _hd9967_) + (_import-submodule9529_ + _hd9967_ + _K9968_ + _rest9969_ + _r9970_) + (if (_import-runtime?9528_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd9891_) - (_import-runtime9454_ - _hd9891_ - _K9892_ - _rest9893_ - _r9894_) + _hd9967_) + (_import-runtime9530_ + _hd9967_ + _K9968_ + _rest9969_ + _r9970_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx9445_ - _hd9891_))))))))))) + _stx9521_ + _hd9967_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_rbody9460_ + (let ((_rbody9536_ (gx#core-expand-import/export - _stx9445_ - _expanded-import?9458_ + _stx9521_ + _expanded-import?9534_ 'apply-import-expander gx#current-import-expander-phi - _expand19448_))) - (if _internal-expand?9446_ - (reverse _rbody9460_) + _expand19524_))) + (if _internal-expand?9522_ + (reverse _rbody9536_) (gx#core-quote-syntax__1 (gx#core-cons '%#import - (_import!9457_ _rbody9460_)) - (gx#stx-source _stx9445_))))))))))))))))) + (_import!9533_ _rbody9536_)) + (gx#stx-source _stx9521_))))))))))))))))) (begin (define gx#core-expand-import%__0 - (lambda (_stx9899_) - (let ((_internal-expand?9901_ '#f)) - (gx#core-expand-import%__opt-lambda9443 - _stx9899_ - _internal-expand?9901_)))) + (lambda (_stx9975_) + (let ((_internal-expand?9977_ '#f)) + (gx#core-expand-import%__opt-lambda9519 + _stx9975_ + _internal-expand?9977_)))) (define gx#core-expand-import% - (lambda _g11092_ - (let ((_g11091_ (length _g11092_))) - (cond ((fx= _g11091_ 1) (apply gx#core-expand-import%__0 _g11092_)) - ((fx= _g11091_ 2) - (apply gx#core-expand-import%__opt-lambda9443 _g11092_)) - (else (error "No clause matching arguments" _g11092_)))))))) + (lambda _g11168_ + (let ((_g11167_ (length _g11168_))) + (cond ((fx= _g11167_ 1) (apply gx#core-expand-import%__0 _g11168_)) + ((fx= _g11167_ 2) + (apply gx#core-expand-import%__opt-lambda9519 _g11168_)) + (else (error "No clause matching arguments" _g11168_)))))))) (define gx#core-import-nested-module - (lambda (_spath9372_ _where9373_) - (let ((_e93749381_ _spath9372_)) - (let ((_E93769385_ + (lambda (_spath9448_ _where9449_) + (let ((_e94509457_ _spath9448_)) + (let ((_E94529461_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e93749381_)))) - (let ((_E93759440_ + (gx#raise-syntax-error '#f '"Bad syntax" _e94509457_)))) + (let ((_E94519516_ (lambda () - (if (gx#stx-pair? _e93749381_) - (let ((_e93779389_ (gx#syntax-e _e93749381_))) - (let ((_hd93789392_ (##car _e93779389_)) - (_tl93799394_ (##cdr _e93779389_))) - (let ((_origin9397_ _hd93789392_)) - (let ((_sub9399_ _tl93799394_)) + (if (gx#stx-pair? _e94509457_) + (let ((_e94539465_ (gx#syntax-e _e94509457_))) + (let ((_hd94549468_ (##car _e94539465_)) + (_tl94559470_ (##cdr _e94539465_))) + (let ((_origin9473_ _hd94549468_)) + (let ((_sub9475_ _tl94559470_)) (if '#t - (let ((_origin-ctx9401_ - (if (gx#stx-false? _origin9397_) + (let ((_origin-ctx9477_ + (if (gx#stx-false? _origin9473_) (gx#current-expander-context) (gx#import-module__0 - _origin9397_)))) - ((letrec ((_lp9403_ - (lambda (_rest9405_ _ctx9406_) - (let ((_e94079414_ - _rest9405_)) - (let ((_E94099418_ + _origin9473_)))) + ((letrec ((_lp9479_ + (lambda (_rest9481_ _ctx9482_) + (let ((_e94839490_ + _rest9481_)) + (let ((_E94859494_ (lambda () - _ctx9406_))) - (let ((_E94089436_ + _ctx9482_))) + (let ((_E94849512_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e94079414_) - (let ((_e94109422_ (gx#syntax-e _e94079414_))) - (let ((_hd94119425_ (##car _e94109422_)) - (_tl94129427_ (##cdr _e94109422_))) - (let ((_id9430_ _hd94119425_)) - (let ((_rest9432_ _tl94129427_)) + _e94839490_) + (let ((_e94869498_ (gx#syntax-e _e94839490_))) + (let ((_hd94879501_ (##car _e94869498_)) + (_tl94889503_ (##cdr _e94869498_))) + (let ((_id9506_ _hd94879501_)) + (let ((_rest9508_ _tl94889503_)) (if '#t - (let ((_bind9434_ - (gx#resolve-identifier__opt-lambda4511 - _id9430_ + (let ((_bind9510_ + (gx#resolve-identifier__opt-lambda4587 + _id9506_ '0 - _ctx9406_))) + _ctx9482_))) (begin (if (if (##structure-direct-instance-of? - _bind9434_ + _bind9510_ 'gx#syntax-binding::t) (##structure-instance-of? (##structure-ref - _bind9434_ + _bind9510_ '4 gx#syntax-binding::t '#f) @@ -2259,688 +2264,688 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _where9373_ - _spath9372_ - _id9430_)) - (_lp9403_ - _rest9432_ + _where9449_ + _spath9448_ + _id9506_)) + (_lp9479_ + _rest9508_ (##structure-ref - _bind9434_ + _bind9510_ '4 gx#syntax-binding::t '#f)))) - (_E94099418_)))))) - (_E94099418_))))) - (let () (_E94089436_)))))))) + (_E94859494_)))))) + (_E94859494_))))) + (let () (_E94849512_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _lp9403_) - _sub9399_ - _origin-ctx9401_)) - (_E93769385_)))))) - (_E93769385_))))) - (let () (_E93759440_))))))) + _lp9479_) + _sub9475_ + _origin-ctx9477_)) + (_E94529461_)))))) + (_E94529461_))))) + (let () (_E94519516_))))))) (define gx#core-expand-import-source - (lambda (_hd9370_) - (gx#core-expand-import%__opt-lambda9443 - (cons 'import-internal% (cons _hd9370_ '())) + (lambda (_hd9446_) + (gx#core-expand-import%__opt-lambda9519 + (cons 'import-internal% (cons _hd9446_ '())) '#t))) (begin - (define gx#core-expand-export%__opt-lambda8952 - (lambda (_stx8954_ _internal-expand?8955_) - (let ((_make-export__opt-lambda9316__1106011061_ - (lambda (_bind9318_ _phi9319_ _ctx9320_ _name9321_) - (let ((_key9323_ - (##structure-ref _bind9318_ '2 gx#binding::t '#f))) - (let ((_export-key9325_ - (if _name9321_ - (gx#core-identifier-key _name9321_) - _key9323_))) + (define gx#core-expand-export%__opt-lambda9028 + (lambda (_stx9030_ _internal-expand?9031_) + (let ((_make-export__opt-lambda9392__1113611137_ + (lambda (_bind9394_ _phi9395_ _ctx9396_ _name9397_) + (let ((_key9399_ + (##structure-ref _bind9394_ '2 gx#binding::t '#f))) + (let ((_export-key9401_ + (if _name9397_ + (gx#core-identifier-key _name9397_) + _key9399_))) (let () (##structure gx#module-export::t - _ctx9320_ - _key9323_ - _phi9319_ - _export-key9325_ - (let ((_$e9328_ + _ctx9396_ + _key9399_ + _phi9395_ + _export-key9401_ + (let ((_$e9404_ (##structure-instance-of? - _bind9318_ + _bind9394_ 'gx#extern-binding::t))) - (if _$e9328_ - _$e9328_ + (if _$e9404_ + _$e9404_ (##structure-direct-instance-of? - _bind9318_ + _bind9394_ 'gx#import-binding::t)))))))))) - (let ((_make-export__0__1106211065_ - (lambda (_bind9334_) - (let ((_phi9336_ (gx#current-export-expander-phi))) - (let ((_ctx9338_ (gx#current-expander-context))) - (let ((_name9340_ '#f)) - (_make-export__opt-lambda9316__1106011061_ - _bind9334_ - _phi9336_ - _ctx9338_ - _name9340_))))))) - (let ((_make-export__1__1106311066_ - (lambda (_bind9342_ _phi9343_) - (let ((_ctx9345_ (gx#current-expander-context))) - (let ((_name9347_ '#f)) - (_make-export__opt-lambda9316__1106011061_ - _bind9342_ - _phi9343_ - _ctx9345_ - _name9347_)))))) - (let ((_make-export__2__1106411067_ - (lambda (_bind9349_ _phi9350_ _ctx9351_) - (let ((_name9353_ '#f)) - (_make-export__opt-lambda9316__1106011061_ - _bind9349_ - _phi9350_ - _ctx9351_ - _name9353_))))) - (let ((_make-export8957_ - (lambda _g11094_ - (let ((_g11093_ (length _g11094_))) - (cond ((fx= _g11093_ 1) - (apply _make-export__0__1106211065_ - _g11094_)) - ((fx= _g11093_ 2) - (apply _make-export__1__1106311066_ - _g11094_)) - ((fx= _g11093_ 3) - (apply _make-export__2__1106411067_ - _g11094_)) - ((fx= _g11093_ 4) - (apply _make-export__opt-lambda9316__1106011061_ - _g11094_)) + (let ((_make-export__0__1113811141_ + (lambda (_bind9410_) + (let ((_phi9412_ (gx#current-export-expander-phi))) + (let ((_ctx9414_ (gx#current-expander-context))) + (let ((_name9416_ '#f)) + (_make-export__opt-lambda9392__1113611137_ + _bind9410_ + _phi9412_ + _ctx9414_ + _name9416_))))))) + (let ((_make-export__1__1113911142_ + (lambda (_bind9418_ _phi9419_) + (let ((_ctx9421_ (gx#current-expander-context))) + (let ((_name9423_ '#f)) + (_make-export__opt-lambda9392__1113611137_ + _bind9418_ + _phi9419_ + _ctx9421_ + _name9423_)))))) + (let ((_make-export__2__1114011143_ + (lambda (_bind9425_ _phi9426_ _ctx9427_) + (let ((_name9429_ '#f)) + (_make-export__opt-lambda9392__1113611137_ + _bind9425_ + _phi9426_ + _ctx9427_ + _name9429_))))) + (let ((_make-export9033_ + (lambda _g11170_ + (let ((_g11169_ (length _g11170_))) + (cond ((fx= _g11169_ 1) + (apply _make-export__0__1113811141_ + _g11170_)) + ((fx= _g11169_ 2) + (apply _make-export__1__1113911142_ + _g11170_)) + ((fx= _g11169_ 3) + (apply _make-export__2__1114011143_ + _g11170_)) + ((fx= _g11169_ 4) + (apply _make-export__opt-lambda9392__1113611137_ + _g11170_)) (else (error "No clause matching arguments" - _g11094_))))))) - (let ((_export-imports8959_ - (lambda (_src8980_ _r8981_) - (let ((_current-ctx8983_ + _g11170_))))))) + (let ((_export-imports9035_ + (lambda (_src9056_ _r9057_) + (let ((_current-ctx9059_ (gx#current-expander-context))) - (let ((_current-phi8984_ + (let ((_current-phi9060_ (gx#current-export-expander-phi))) - (let ((_import->export8985_ - (lambda (_in8993_) - (let ((_in89949002_ _in8993_)) - (let ((_E89969006_ + (let ((_import->export9061_ + (lambda (_in9069_) + (let ((_in90709078_ _in9069_)) + (let ((_E90729082_ (lambda () (error '"No clause matching" - _in89949002_)))) - (let ((_K89979013_ - (lambda (_phi9009_ - _key9010_ - _out9011_) - (if (fx= _phi9009_ - _current-phi8984_) - (if (eq? _src8980_ + _in90709078_)))) + (let ((_K90739089_ + (lambda (_phi9085_ + _key9086_ + _out9087_) + (if (fx= _phi9085_ + _current-phi9060_) + (if (eq? _src9056_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _out9011_ + _out9087_ '1 gx#module-export::t '#f)) (##structure gx#module-export::t - _current-ctx8983_ - _key9010_ - _phi9009_ - _key9010_ + _current-ctx9059_ + _key9086_ + _phi9085_ + _key9086_ '#t) '#f) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (direct-struct-instance? gx#module-import::t - _in89949002_) - (let ((_e89989016_ + _in90709078_) + (let ((_e90749092_ (##vector-ref - _in89949002_ + _in90709078_ '1))) - (let ((_out9019_ - _e89989016_)) - (let ((_e89999021_ + (let ((_out9095_ + _e90749092_)) + (let ((_e90759097_ (##vector-ref - _in89949002_ + _in90709078_ '2))) - (let ((_key9024_ - _e89999021_)) - (let ((_e90009026_ + (let ((_key9100_ + _e90759097_)) + (let ((_e90769102_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##vector-ref _in89949002_ '3))) - (let ((_phi9029_ _e90009026_)) - (_K89979013_ _phi9029_ _key9024_ _out9019_))))))) + (##vector-ref _in90709078_ '3))) + (let ((_phi9105_ _e90769102_)) + (_K90739089_ _phi9105_ _key9100_ _out9095_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E89969006_)))))))) - (let ((_fold-e8986_ - (lambda (_in8988_ _r8989_) - (let ((_out8991_ - (_import->export8985_ - _in8988_))) - (if _out8991_ - (cons _out8991_ _r8989_) - _r8989_))))) + (_E90729082_)))))))) + (let ((_fold-e9062_ + (lambda (_in9064_ _r9065_) + (let ((_out9067_ + (_import->export9061_ + _in9064_))) + (if _out9067_ + (cons _out9067_ _r9065_) + _r9065_))))) (cons (##structure gx#export-set::t - _src8980_ - _current-phi8984_ - (foldl1 _fold-e8986_ + _src9056_ + _current-phi9060_ + (foldl1 _fold-e9062_ '() (##structure-ref - _current-ctx8983_ + _current-ctx9059_ '8 gx#module-context::t '#f))) - _r8981_)))))))) - (let ((_export!8960_ - (lambda (_rbody8970_) - (let ((_current-ctx8972_ + _r9057_)))))))) + (let ((_export!9036_ + (lambda (_rbody9046_) + (let ((_current-ctx9048_ (gx#current-expander-context))) - (let ((_fold-e8973_ - (lambda (_out8977_ _r8978_) + (let ((_fold-e9049_ + (lambda (_out9053_ _r9054_) (if (##structure-direct-instance-of? - _out8977_ + _out9053_ 'gx#module-export::t) - (cons _out8977_ _r8978_) + (cons _out9053_ _r9054_) (if (##structure-direct-instance-of? - _out8977_ + _out9053_ 'gx#export-set::t) (foldl1 cons - _r8978_ + _r9054_ (##structure-ref - _out8977_ + _out9053_ '3 gx#export-set::t '#f)) - _r8978_))))) - (let ((_body8975_ (reverse _rbody8970_))) + _r9054_))))) + (let ((_body9051_ (reverse _rbody9046_))) (begin (##structure-set! - _current-ctx8972_ - (foldl1 _fold-e8973_ + _current-ctx9048_ + (foldl1 _fold-e9049_ (##structure-ref - _current-ctx8972_ + _current-ctx9048_ '9 gx#module-context::t '#f) - _body8975_) + _body9051_) '9 gx#module-context::t '#f) - _body8975_))))))) - (let ((_expanded-export?8961_ - (lambda (_e8965_) - (let ((_$e8967_ + _body9051_))))))) + (let ((_expanded-export?9037_ + (lambda (_e9041_) + (let ((_$e9043_ (##structure-direct-instance-of? - _e8965_ + _e9041_ 'gx#module-export::t))) - (if _$e8967_ - _$e8967_ + (if _$e9043_ + _$e9043_ (##structure-direct-instance-of? - _e8965_ + _e9041_ 'gx#export-set::t)))))) - (let ((_expand18958_ - (lambda (_hd9031_ _K9032_ _rest9033_ _r9034_) - (let ((_e90359067_ _hd9031_)) - (let ((_E90629071_ + (let ((_expand19034_ + (lambda (_hd9107_ _K9108_ _rest9109_ _r9110_) + (let ((_e91119143_ _hd9107_)) + (let ((_E91389147_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _stx8954_ - _hd9031_)))) - (let ((_E90529150_ + _stx9030_ + _hd9107_)))) + (let ((_E91289226_ (lambda () - (if (gx#stx-pair? _e90359067_) - (let ((_e90639075_ + (if (gx#stx-pair? _e91119143_) + (let ((_e91399151_ (gx#syntax-e - _e90359067_))) - (let ((_hd90649078_ - (##car _e90639075_)) - (_tl90659080_ - (##cdr _e90639075_))) + _e91119143_))) + (let ((_hd91409154_ + (##car _e91399151_)) + (_tl91419156_ + (##cdr _e91399151_))) (if (eq? (gx#stx-e - _hd90649078_) + _hd91409154_) 'import:) - (let ((_in9083_ + (let ((_in9159_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl90659080_)) - (if (gx#stx-list? _in9083_) - ((letrec ((_lp9085_ - (lambda (_in-rest9087_ _r9088_) - (let ((_e90899096_ _in-rest9087_)) - (let ((_E90919100_ + _tl91419156_)) + (if (gx#stx-list? _in9159_) + ((letrec ((_lp9161_ + (lambda (_in-rest9163_ _r9164_) + (let ((_e91659172_ _in-rest9163_)) + (let ((_E91679176_ (lambda () - (_K9032_ _rest9033_ _r9088_)))) - (let ((_E90909146_ + (_K9108_ _rest9109_ _r9164_)))) + (let ((_E91669222_ (lambda () (if (gx#stx-pair? - _e90899096_) - (let ((_e90929104_ + _e91659172_) + (let ((_e91689180_ (gx#syntax-e - _e90899096_))) - (let ((_hd90939107_ - (##car _e90929104_)) - (_tl90949109_ - (##cdr _e90929104_))) - (let ((_hd9112_ + _e91659172_))) + (let ((_hd91699183_ + (##car _e91689180_)) + (_tl91709185_ + (##cdr _e91689180_))) + (let ((_hd9188_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd90939107_)) - (let ((_in-rest9114_ _tl90949109_)) + _hd91699183_)) + (let ((_in-rest9190_ _tl91709185_)) (if '#t - (let ((_src9144_ - (if (gx#core-bound-module? _hd9112_) - (gx#syntax-local-e__0 _hd9112_) + (let ((_src9220_ + (if (gx#core-bound-module? _hd9188_) + (gx#syntax-local-e__0 _hd9188_) (if (gx#core-library-module-path? - _hd9112_) + _hd9188_) (gx#import-module__0 (gx#core-resolve-library-module-path - _hd9112_)) - (if (gx#stx-string? _hd9112_) + _hd9188_)) + (if (gx#stx-string? _hd9188_) (gx#import-module__0 - (gx#core-resolve-module-path__opt-lambda10695 - _hd9112_ - (gx#stx-source _stx8954_))) - (let ((_e91159122_ _hd9112_)) - (let ((_E91179126_ + (gx#core-resolve-module-path__opt-lambda10771 + _hd9188_ + (gx#stx-source _stx9030_))) + (let ((_e91919198_ _hd9188_)) + (let ((_E91939202_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal re-export" - _stx8954_ - _hd9112_)))) - (let ((_E91169140_ + _stx9030_ + _hd9188_)))) + (let ((_E91929216_ (lambda () (if (gx#stx-pair? - _e91159122_) - (let ((_e91189130_ + _e91919198_) + (let ((_e91949206_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e91159122_))) - (let ((_hd91199133_ (##car _e91189130_)) - (_tl91209135_ (##cdr _e91189130_))) - (if (eq? (gx#stx-e _hd91199133_) 'in:) - (let ((_spath9138_ _tl91209135_)) + (gx#syntax-e _e91919198_))) + (let ((_hd91959209_ (##car _e91949206_)) + (_tl91969211_ (##cdr _e91949206_))) + (if (eq? (gx#stx-e _hd91959209_) 'in:) + (let ((_spath9214_ _tl91969211_)) (if '#t (gx#core-import-nested-module - _spath9138_ - _stx8954_) - (_E91179126_))) - (_E91179126_)))) - (_E91179126_))))) + _spath9214_ + _stx9030_) + (_E91939202_))) + (_E91939202_)))) + (_E91939202_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () - (_E91169140_)))))))))) - (_lp9085_ - _in-rest9114_ - (_export-imports8959_ _src9144_ _r9088_))) - (_E90919100_)))))) - (_E90919100_))))) + (_E91929216_)))))))))) + (_lp9161_ + _in-rest9190_ + (_export-imports9035_ _src9220_ _r9164_))) + (_E91679176_)))))) + (_E91679176_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () (_E90909146_)))))))) - _lp9085_) - _in9083_ - _r9034_) - (_E90629071_))) - (_E90629071_)))) + (let () (_E91669222_)))))))) + _lp9161_) + _in9159_ + _r9110_) + (_E91389147_))) + (_E91389147_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E90629071_))))) - (let ((_E90399189_ + (_E91389147_))))) + (let ((_E91159265_ (lambda () - (if (gx#stx-pair? _e90359067_) - (let ((_e90539154_ + (if (gx#stx-pair? _e91119143_) + (let ((_e91299230_ (gx#syntax-e - _e90359067_))) - (let ((_hd90549157_ - (##car _e90539154_)) - (_tl90559159_ - (##cdr _e90539154_))) + _e91119143_))) + (let ((_hd91309233_ + (##car _e91299230_)) + (_tl91319235_ + (##cdr _e91299230_))) (if (eq? (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd90549157_) + _hd91309233_) 'rename:) - (if (gx#stx-pair? _tl90559159_) - (let ((_e90569162_ (gx#syntax-e _tl90559159_))) - (let ((_hd90579165_ (##car _e90569162_)) - (_tl90589167_ (##cdr _e90569162_))) - (let ((_id9170_ _hd90579165_)) - (if (gx#stx-pair? _tl90589167_) - (let ((_e90599172_ - (gx#syntax-e _tl90589167_))) - (let ((_hd90609175_ (##car _e90599172_)) - (_tl90619177_ (##cdr _e90599172_))) - (let ((_name9180_ _hd90609175_)) - (if (gx#stx-null? _tl90619177_) + (if (gx#stx-pair? _tl91319235_) + (let ((_e91329238_ (gx#syntax-e _tl91319235_))) + (let ((_hd91339241_ (##car _e91329238_)) + (_tl91349243_ (##cdr _e91329238_))) + (let ((_id9246_ _hd91339241_)) + (if (gx#stx-pair? _tl91349243_) + (let ((_e91359248_ + (gx#syntax-e _tl91349243_))) + (let ((_hd91369251_ (##car _e91359248_)) + (_tl91379253_ (##cdr _e91359248_))) + (let ((_name9256_ _hd91369251_)) + (if (gx#stx-null? _tl91379253_) (if '#t - (let ((_phi9182_ + (let ((_phi9258_ (gx#current-export-expander-phi))) - (let ((_$e9184_ + (let ((_$e9260_ (gx#core-resolve-identifier__1 - _id9170_ - _phi9182_))) - (if _$e9184_ - ((lambda (_bind9187_) - (_K9032_ _rest9033_ + _id9246_ + _phi9258_))) + (if _$e9260_ + ((lambda (_bind9263_) + (_K9108_ _rest9109_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (_make-export__opt-lambda9316__1106011061_ - _bind9187_ - _phi9182_ + (cons (_make-export__opt-lambda9392__1113611137_ + _bind9263_ + _phi9258_ (gx#current-expander-context) - _name9180_) - _r9034_))) - _$e9184_) + _name9256_) + _r9110_))) + _$e9260_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx8954_ - _hd9031_ - _id9170_)))) + _stx9030_ + _hd9107_ + _id9246_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E90529150_)) - (_E90529150_))))) - (_E90529150_))))) - (_E90529150_)) - (_E90529150_)))) + (_E91289226_)) + (_E91289226_))))) + (_E91289226_))))) + (_E91289226_)) + (_E91289226_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E90529150_))))) - (let ((_E90389238_ + (_E91289226_))))) + (let ((_E91149314_ (lambda () (if (gx#stx-pair? - _e90359067_) - (let ((_e90409193_ + _e91119143_) + (let ((_e91169269_ (gx#syntax-e - _e90359067_))) - (let ((_hd90419196_ - (##car _e90409193_)) - (_tl90429198_ - (##cdr _e90409193_))) + _e91119143_))) + (let ((_hd91179272_ + (##car _e91169269_)) + (_tl91189274_ + (##cdr _e91169269_))) (if (eq? (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd90419196_) + _hd91179272_) 'spec:) - (if (gx#stx-pair? _tl90429198_) - (let ((_e90439201_ (gx#syntax-e _tl90429198_))) - (let ((_hd90449204_ (##car _e90439201_)) - (_tl90459206_ (##cdr _e90439201_))) - (let ((_phi9209_ _hd90449204_)) - (if (gx#stx-pair? _tl90459206_) - (let ((_e90469211_ - (gx#syntax-e _tl90459206_))) - (let ((_hd90479214_ (##car _e90469211_)) - (_tl90489216_ (##cdr _e90469211_))) - (let ((_id9219_ _hd90479214_)) - (if (gx#stx-pair? _tl90489216_) - (let ((_e90499221_ + (if (gx#stx-pair? _tl91189274_) + (let ((_e91199277_ (gx#syntax-e _tl91189274_))) + (let ((_hd91209280_ (##car _e91199277_)) + (_tl91219282_ (##cdr _e91199277_))) + (let ((_phi9285_ _hd91209280_)) + (if (gx#stx-pair? _tl91219282_) + (let ((_e91229287_ + (gx#syntax-e _tl91219282_))) + (let ((_hd91239290_ (##car _e91229287_)) + (_tl91249292_ (##cdr _e91229287_))) + (let ((_id9295_ _hd91239290_)) + (if (gx#stx-pair? _tl91249292_) + (let ((_e91259297_ (gx#syntax-e - _tl90489216_))) - (let ((_hd90509224_ - (##car _e90499221_)) - (_tl90519226_ - (##cdr _e90499221_))) - (let ((_name9229_ - _hd90509224_)) + _tl91249292_))) + (let ((_hd91269300_ + (##car _e91259297_)) + (_tl91279302_ + (##cdr _e91259297_))) + (let ((_name9305_ + _hd91269300_)) (if (gx#stx-null? - _tl90519226_) + _tl91279302_) (if (if (gx#stx-fixnum? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _phi9209_) - (if (gx#identifier? _id9219_) - (gx#identifier? _name9229_) + _phi9285_) + (if (gx#identifier? _id9295_) + (gx#identifier? _name9305_) '#f) '#f) - (let ((_phi9231_ (gx#stx-e _phi9209_))) - (let ((_$e9233_ + (let ((_phi9307_ (gx#stx-e _phi9285_))) + (let ((_$e9309_ (gx#core-resolve-identifier__1 - _id9219_ - _phi9231_))) - (if _$e9233_ - ((lambda (_bind9236_) - (_K9032_ _rest9033_ - (cons (_make-export__opt-lambda9316__1106011061_ - _bind9236_ - _phi9231_ + _id9295_ + _phi9307_))) + (if _$e9309_ + ((lambda (_bind9312_) + (_K9108_ _rest9109_ + (cons (_make-export__opt-lambda9392__1113611137_ + _bind9312_ + _phi9307_ (gx#current-expander-context) - _name9229_) - _r9034_))) - _$e9233_) + _name9305_) + _r9110_))) + _$e9309_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx8954_ - _hd9031_ - _id9219_)))) - (_E90399189_)) - (_E90399189_))))) + _stx9030_ + _hd9107_ + _id9295_)))) + (_E91159265_)) + (_E91159265_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E90399189_))))) - (_E90399189_))))) - (_E90399189_)) - (_E90399189_)))) - (_E90399189_))))) + (_E91159265_))))) + (_E91159265_))))) + (_E91159265_)) + (_E91159265_)))) + (_E91159265_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_E90379249_ + (let ((_E91139325_ (lambda () - (let ((_id9242_ - _e90359067_)) + (let ((_id9318_ + _e91119143_)) (if (gx#identifier? - _id9242_) - (let ((_$e9244_ + _id9318_) + (let ((_$e9320_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#core-resolve-identifier__1 - _id9242_ + _id9318_ (gx#current-export-expander-phi)))) - (if _$e9244_ - ((lambda (_bind9247_) - (_K9032_ _rest9033_ - (cons (_make-export__0__1106211065_ - _bind9247_) - _r9034_))) - _$e9244_) + (if _$e9320_ + ((lambda (_bind9323_) + (_K9108_ _rest9109_ + (cons (_make-export__0__1113811141_ + _bind9323_) + _r9110_))) + _$e9320_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx8954_ - _hd9031_))) - (_E90389238_)))))) + _stx9030_ + _hd9107_))) + (_E91149314_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_E90369313_ + (let ((_E91129389_ (lambda () (if (eq? (gx#stx-e - _e90359067_) + _e91119143_) '#t) (if '#t - (let ((_current-ctx9253_ + (let ((_current-ctx9329_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#current-expander-context))) - (let ((_current-phi9255_ + (let ((_current-phi9331_ (gx#current-export-expander-phi))) - (let ((_phi-ctx9257_ + (let ((_phi-ctx9333_ (gx#core-context-shift - _current-ctx9253_ - _current-phi9255_))) - (let ((_phi-bind9259_ + _current-ctx9329_ + _current-phi9331_))) + (let ((_phi-bind9335_ (table->list (##structure-ref - _phi-ctx9257_ + _phi-ctx9333_ '2 gx#expander-context::t '#f)))) (let () - ((letrec ((_lp9262_ - (lambda (_bind-rest9264_ _set9265_) - (let ((_bind-rest92669276_ - _bind-rest9264_)) - (let ((_E92699280_ + ((letrec ((_lp9338_ + (lambda (_bind-rest9340_ _set9341_) + (let ((_bind-rest93429352_ + _bind-rest9340_)) + (let ((_E93459356_ (lambda () (error '"No clause matching" - _bind-rest92669276_)))) - (let ((_else92689284_ + _bind-rest93429352_)))) + (let ((_else93449360_ (lambda () - (_K9032_ _rest9033_ + (_K9108_ _rest9109_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (##structure gx#export-set::t '#f - _current-phi9255_ - _set9265_) - _r9034_))))) + _current-phi9331_ + _set9341_) + _r9110_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_K92709294_ - (lambda (_bind-rest9287_ + (let ((_K93469370_ + (lambda (_bind-rest9363_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind9288_ - _key9289_) - (if (let ((_$e9291_ + _bind9364_ + _key9365_) + (if (let ((_$e9367_ (##structure-direct-instance-of? - _bind9288_ + _bind9364_ 'gx#import-binding::t))) - (if _$e9291_ - _$e9291_ - (gx#private-feature-binding? _bind9288_))) - (_lp9262_ _bind-rest9287_ _set9265_) - (_lp9262_ - _bind-rest9287_ - (cons (_make-export__2__1106411067_ - _bind9288_ - _current-phi9255_ - _current-ctx9253_) - _set9265_)))))) + (if _$e9367_ + _$e9367_ + (gx#private-feature-binding? _bind9364_))) + (_lp9338_ _bind-rest9363_ _set9341_) + (_lp9338_ + _bind-rest9363_ + (cons (_make-export__2__1114011143_ + _bind9364_ + _current-phi9331_ + _current-ctx9329_) + _set9341_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _bind-rest92669276_) - (let ((_hd92719297_ - (##car _bind-rest92669276_)) - (_tl92729299_ - (##cdr _bind-rest92669276_))) - (if (##pair? _hd92719297_) - (let ((_hd92739302_ + (if (##pair? _bind-rest93429352_) + (let ((_hd93479373_ + (##car _bind-rest93429352_)) + (_tl93489375_ + (##cdr _bind-rest93429352_))) + (if (##pair? _hd93479373_) + (let ((_hd93499378_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _hd92719297_)) - (_tl92749304_ (##cdr _hd92719297_))) - (let ((_key9307_ _hd92739302_)) - (let ((_bind9309_ _tl92749304_)) - (let ((_bind-rest9311_ _tl92729299_)) - (_K92709294_ - _bind-rest9311_ - _bind9309_ - _key9307_))))) - (_else92689284_))) - (_else92689284_))))))))) + (##car _hd93479373_)) + (_tl93509380_ (##cdr _hd93479373_))) + (let ((_key9383_ _hd93499378_)) + (let ((_bind9385_ _tl93509380_)) + (let ((_bind-rest9387_ _tl93489375_)) + (_K93469370_ + _bind-rest9387_ + _bind9385_ + _key9383_))))) + (_else93449360_))) + (_else93449360_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _lp9262_) - _phi-bind9259_ + _lp9338_) + _phi-bind9335_ '())))))) - (_E90379249_)) - (_E90379249_))))) + (_E91139325_)) + (_E91139325_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () (_E90369313_)))))))))))) - (let ((_rbody8963_ + (let () (_E91129389_)))))))))))) + (let ((_rbody9039_ (gx#core-expand-import/export - _stx8954_ + _stx9030_ gx#module-export? 'apply-export-expander gx#current-export-expander-phi - _expand18958_))) - (if _internal-expand?8955_ - (reverse _rbody8963_) + _expand19034_))) + (if _internal-expand?9031_ + (reverse _rbody9039_) (gx#core-quote-syntax__1 (gx#core-cons '%#export - (_export!8960_ _rbody8963_)) - (gx#stx-source _stx8954_))))))))))))))) + (_export!9036_ _rbody9039_)) + (gx#stx-source _stx9030_))))))))))))))) (begin (define gx#core-expand-export%__0 - (lambda (_stx9363_) - (let ((_internal-expand?9365_ '#f)) - (gx#core-expand-export%__opt-lambda8952 - _stx9363_ - _internal-expand?9365_)))) + (lambda (_stx9439_) + (let ((_internal-expand?9441_ '#f)) + (gx#core-expand-export%__opt-lambda9028 + _stx9439_ + _internal-expand?9441_)))) (define gx#core-expand-export% - (lambda _g11096_ - (let ((_g11095_ (length _g11096_))) - (cond ((fx= _g11095_ 1) (apply gx#core-expand-export%__0 _g11096_)) - ((fx= _g11095_ 2) - (apply gx#core-expand-export%__opt-lambda8952 _g11096_)) - (else (error "No clause matching arguments" _g11096_)))))))) + (lambda _g11172_ + (let ((_g11171_ (length _g11172_))) + (cond ((fx= _g11171_ 1) (apply gx#core-expand-export%__0 _g11172_)) + ((fx= _g11171_ 2) + (apply gx#core-expand-export%__opt-lambda9028 _g11172_)) + (else (error "No clause matching arguments" _g11172_)))))))) (define gx#core-expand-export-source - (lambda (_hd8951_) - (gx#core-expand-export%__opt-lambda8952 - (cons 'export-macro% (cons _hd8951_ '())) + (lambda (_hd9027_) + (gx#core-expand-export%__opt-lambda9028 + (cons 'export-macro% (cons _hd9027_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_stx8921_) - (let ((_e89228929_ _stx8921_)) - (let ((_E89248933_ + (lambda (_stx8997_) + (let ((_e89989005_ _stx8997_)) + (let ((_E90009009_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e89228929_)))) - (let ((_E89238947_ + (gx#raise-syntax-error '#f '"Bad syntax" _e89989005_)))) + (let ((_E89999023_ (lambda () - (if (gx#stx-pair? _e89228929_) - (let ((_e89258937_ (gx#syntax-e _e89228929_))) - (let ((_hd89268940_ (##car _e89258937_)) - (_tl89278942_ (##cdr _e89258937_))) - (let ((_body8945_ _tl89278942_)) - (if (gx#identifier-list? _body8945_) + (if (gx#stx-pair? _e89989005_) + (let ((_e90019013_ (gx#syntax-e _e89989005_))) + (let ((_hd90029016_ (##car _e90019013_)) + (_tl90039018_ (##cdr _e90019013_))) + (let ((_body9021_ _tl90039018_)) + (if (gx#identifier-list? _body9021_) (begin (gx#stx-for-each1 gx#core-bind-feature! - _body8945_) + _body9021_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _body8945_)) - (gx#stx-source _stx8921_))) - (_E89248933_))))) - (_E89248933_))))) - (let () (_E89238947_))))))) + _body9021_)) + (gx#stx-source _stx8997_))) + (_E90009009_))))) + (_E90009009_))))) + (let () (_E89999023_))))))) (begin - (define gx#core-bind-feature!__opt-lambda8885 - (lambda (_id8887_ _private?8888_ _phi8889_ _ctx8890_) - (gx#core-bind-syntax!__opt-lambda5980 - _id8887_ - ((if _private?8888_ + (define gx#core-bind-feature!__opt-lambda8961 + (lambda (_id8963_ _private?8964_ _phi8965_ _ctx8966_) + (gx#core-bind-syntax!__opt-lambda6056 + _id8963_ + ((if _private?8964_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _id8887_)) - _private?8888_ - _phi8889_ - _ctx8890_))) + (gx#stx-e _id8963_)) + _private?8964_ + _phi8965_ + _ctx8966_))) (begin (define gx#core-bind-feature!__0 - (lambda (_id8895_) - (let ((_private?8897_ '#f)) - (let ((_phi8899_ (gx#current-expander-phi))) - (let ((_ctx8901_ (gx#current-expander-context))) - (gx#core-bind-feature!__opt-lambda8885 - _id8895_ - _private?8897_ - _phi8899_ - _ctx8901_)))))) + (lambda (_id8971_) + (let ((_private?8973_ '#f)) + (let ((_phi8975_ (gx#current-expander-phi))) + (let ((_ctx8977_ (gx#current-expander-context))) + (gx#core-bind-feature!__opt-lambda8961 + _id8971_ + _private?8973_ + _phi8975_ + _ctx8977_)))))) (define gx#core-bind-feature!__1 - (lambda (_id8903_ _private?8904_) - (let ((_phi8906_ (gx#current-expander-phi))) - (let ((_ctx8908_ (gx#current-expander-context))) - (gx#core-bind-feature!__opt-lambda8885 - _id8903_ - _private?8904_ - _phi8906_ - _ctx8908_))))) + (lambda (_id8979_ _private?8980_) + (let ((_phi8982_ (gx#current-expander-phi))) + (let ((_ctx8984_ (gx#current-expander-context))) + (gx#core-bind-feature!__opt-lambda8961 + _id8979_ + _private?8980_ + _phi8982_ + _ctx8984_))))) (define gx#core-bind-feature!__2 - (lambda (_id8910_ _private?8911_ _phi8912_) - (let ((_ctx8914_ (gx#current-expander-context))) - (gx#core-bind-feature!__opt-lambda8885 - _id8910_ - _private?8911_ - _phi8912_ - _ctx8914_)))) + (lambda (_id8986_ _private?8987_ _phi8988_) + (let ((_ctx8990_ (gx#current-expander-context))) + (gx#core-bind-feature!__opt-lambda8961 + _id8986_ + _private?8987_ + _phi8988_ + _ctx8990_)))) (define gx#core-bind-feature! - (lambda _g11098_ - (let ((_g11097_ (length _g11098_))) - (cond ((fx= _g11097_ 1) (apply gx#core-bind-feature!__0 _g11098_)) - ((fx= _g11097_ 2) (apply gx#core-bind-feature!__1 _g11098_)) - ((fx= _g11097_ 3) (apply gx#core-bind-feature!__2 _g11098_)) - ((fx= _g11097_ 4) - (apply gx#core-bind-feature!__opt-lambda8885 _g11098_)) - (else (error "No clause matching arguments" _g11098_))))))))) + (lambda _g11174_ + (let ((_g11173_ (length _g11174_))) + (cond ((fx= _g11173_ 1) (apply gx#core-bind-feature!__0 _g11174_)) + ((fx= _g11173_ 2) (apply gx#core-bind-feature!__1 _g11174_)) + ((fx= _g11173_ 3) (apply gx#core-bind-feature!__2 _g11174_)) + ((fx= _g11173_ 4) + (apply gx#core-bind-feature!__opt-lambda8961 _g11174_)) + (else (error "No clause matching arguments" _g11174_))))))))) diff --git a/src/bootstrap/gerbil/expander/module__1.scm b/src/bootstrap/gerbil/expander/module__1.scm index abf0fa892..4a9a18357 100644 --- a/src/bootstrap/gerbil/expander/module__1.scm +++ b/src/bootstrap/gerbil/expander/module__1.scm @@ -1,82 +1,82 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define |gx[1]#_g11099_| (gx#core-quote-syntax 'module-import::t)) - (define |gx[1]#_g11100_| (gx#core-quote-syntax 'module-import::t)) - (define |gx[1]#_g11101_| (gx#core-quote-syntax 'make-module-import)) - (define |gx[1]#_g11102_| (gx#core-quote-syntax 'module-import?)) - (define |gx[1]#_g11103_| (gx#core-quote-syntax 'module-import-source)) - (define |gx[1]#_g11104_| (gx#core-quote-syntax 'module-import-name)) - (define |gx[1]#_g11105_| (gx#core-quote-syntax 'module-import-phi)) - (define |gx[1]#_g11106_| (gx#core-quote-syntax 'module-import-weak?)) - (define |gx[1]#_g11107_| (gx#core-quote-syntax 'module-import-source-set!)) - (define |gx[1]#_g11108_| (gx#core-quote-syntax 'module-import-name-set!)) - (define |gx[1]#_g11109_| (gx#core-quote-syntax 'module-import-phi-set!)) - (define |gx[1]#_g11110_| (gx#core-quote-syntax 'module-import-weak?-set!)) - (define |gx[1]#_g11111_| (gx#core-quote-syntax 'module-export::t)) - (define |gx[1]#_g11112_| (gx#core-quote-syntax 'module-export::t)) - (define |gx[1]#_g11113_| (gx#core-quote-syntax 'make-module-export)) - (define |gx[1]#_g11114_| (gx#core-quote-syntax 'module-export?)) - (define |gx[1]#_g11115_| (gx#core-quote-syntax 'module-export-context)) - (define |gx[1]#_g11116_| (gx#core-quote-syntax 'module-export-key)) - (define |gx[1]#_g11117_| (gx#core-quote-syntax 'module-export-phi)) - (define |gx[1]#_g11118_| (gx#core-quote-syntax 'module-export-name)) - (define |gx[1]#_g11119_| (gx#core-quote-syntax 'module-export-weak?)) - (define |gx[1]#_g11120_| (gx#core-quote-syntax 'module-export-context-set!)) - (define |gx[1]#_g11121_| (gx#core-quote-syntax 'module-export-key-set!)) - (define |gx[1]#_g11122_| (gx#core-quote-syntax 'module-export-phi-set!)) - (define |gx[1]#_g11123_| (gx#core-quote-syntax 'module-export-name-set!)) - (define |gx[1]#_g11124_| (gx#core-quote-syntax 'module-export-weak?-set!)) - (define |gx[1]#_g11125_| (gx#core-quote-syntax 'import-set::t)) - (define |gx[1]#_g11126_| (gx#core-quote-syntax 'import-set::t)) - (define |gx[1]#_g11127_| (gx#core-quote-syntax 'make-import-set)) - (define |gx[1]#_g11128_| (gx#core-quote-syntax 'import-set?)) - (define |gx[1]#_g11129_| (gx#core-quote-syntax 'import-set-source)) - (define |gx[1]#_g11130_| (gx#core-quote-syntax 'import-set-phi)) - (define |gx[1]#_g11131_| (gx#core-quote-syntax 'import-set-imports)) - (define |gx[1]#_g11132_| (gx#core-quote-syntax 'import-set-source-set!)) - (define |gx[1]#_g11133_| (gx#core-quote-syntax 'import-set-phi-set!)) - (define |gx[1]#_g11134_| (gx#core-quote-syntax 'import-set-imports-set!)) - (define |gx[1]#_g11135_| (gx#core-quote-syntax 'export-set::t)) - (define |gx[1]#_g11136_| (gx#core-quote-syntax 'export-set::t)) - (define |gx[1]#_g11137_| (gx#core-quote-syntax 'make-export-set)) - (define |gx[1]#_g11138_| (gx#core-quote-syntax 'export-set?)) - (define |gx[1]#_g11139_| (gx#core-quote-syntax 'export-set-source)) - (define |gx[1]#_g11140_| (gx#core-quote-syntax 'export-set-phi)) - (define |gx[1]#_g11141_| (gx#core-quote-syntax 'export-set-exports)) - (define |gx[1]#_g11142_| (gx#core-quote-syntax 'export-set-source-set!)) - (define |gx[1]#_g11143_| (gx#core-quote-syntax 'export-set-phi-set!)) - (define |gx[1]#_g11144_| (gx#core-quote-syntax 'export-set-exports-set!)) - (define |gx[1]#_g11145_| (gx#core-quote-syntax 'import-expander::t)) - (define |gx[1]#_g11146_| (gx#core-quote-syntax 'user-expander::t)) - (define |gx[1]#_g11147_| (gx#core-quote-syntax 'import-expander::t)) - (define |gx[1]#_g11148_| (gx#core-quote-syntax 'make-import-expander)) - (define |gx[1]#_g11149_| (gx#core-quote-syntax 'import-expander?)) - (define |gx[1]#_g11150_| (gx#core-quote-syntax 'user-expander)) - (define |gx[1]#_g11151_| (gx#core-quote-syntax 'export-expander::t)) - (define |gx[1]#_g11152_| (gx#core-quote-syntax 'user-expander::t)) - (define |gx[1]#_g11153_| (gx#core-quote-syntax 'export-expander::t)) - (define |gx[1]#_g11154_| (gx#core-quote-syntax 'make-export-expander)) - (define |gx[1]#_g11155_| (gx#core-quote-syntax 'export-expander?)) - (define |gx[1]#_g11156_| (gx#core-quote-syntax 'user-expander)) + (define |gx[1]#_g11175_| (gx#core-quote-syntax 'module-import::t)) + (define |gx[1]#_g11176_| (gx#core-quote-syntax 'module-import::t)) + (define |gx[1]#_g11177_| (gx#core-quote-syntax 'make-module-import)) + (define |gx[1]#_g11178_| (gx#core-quote-syntax 'module-import?)) + (define |gx[1]#_g11179_| (gx#core-quote-syntax 'module-import-source)) + (define |gx[1]#_g11180_| (gx#core-quote-syntax 'module-import-name)) + (define |gx[1]#_g11181_| (gx#core-quote-syntax 'module-import-phi)) + (define |gx[1]#_g11182_| (gx#core-quote-syntax 'module-import-weak?)) + (define |gx[1]#_g11183_| (gx#core-quote-syntax 'module-import-source-set!)) + (define |gx[1]#_g11184_| (gx#core-quote-syntax 'module-import-name-set!)) + (define |gx[1]#_g11185_| (gx#core-quote-syntax 'module-import-phi-set!)) + (define |gx[1]#_g11186_| (gx#core-quote-syntax 'module-import-weak?-set!)) + (define |gx[1]#_g11187_| (gx#core-quote-syntax 'module-export::t)) + (define |gx[1]#_g11188_| (gx#core-quote-syntax 'module-export::t)) + (define |gx[1]#_g11189_| (gx#core-quote-syntax 'make-module-export)) + (define |gx[1]#_g11190_| (gx#core-quote-syntax 'module-export?)) + (define |gx[1]#_g11191_| (gx#core-quote-syntax 'module-export-context)) + (define |gx[1]#_g11192_| (gx#core-quote-syntax 'module-export-key)) + (define |gx[1]#_g11193_| (gx#core-quote-syntax 'module-export-phi)) + (define |gx[1]#_g11194_| (gx#core-quote-syntax 'module-export-name)) + (define |gx[1]#_g11195_| (gx#core-quote-syntax 'module-export-weak?)) + (define |gx[1]#_g11196_| (gx#core-quote-syntax 'module-export-context-set!)) + (define |gx[1]#_g11197_| (gx#core-quote-syntax 'module-export-key-set!)) + (define |gx[1]#_g11198_| (gx#core-quote-syntax 'module-export-phi-set!)) + (define |gx[1]#_g11199_| (gx#core-quote-syntax 'module-export-name-set!)) + (define |gx[1]#_g11200_| (gx#core-quote-syntax 'module-export-weak?-set!)) + (define |gx[1]#_g11201_| (gx#core-quote-syntax 'import-set::t)) + (define |gx[1]#_g11202_| (gx#core-quote-syntax 'import-set::t)) + (define |gx[1]#_g11203_| (gx#core-quote-syntax 'make-import-set)) + (define |gx[1]#_g11204_| (gx#core-quote-syntax 'import-set?)) + (define |gx[1]#_g11205_| (gx#core-quote-syntax 'import-set-source)) + (define |gx[1]#_g11206_| (gx#core-quote-syntax 'import-set-phi)) + (define |gx[1]#_g11207_| (gx#core-quote-syntax 'import-set-imports)) + (define |gx[1]#_g11208_| (gx#core-quote-syntax 'import-set-source-set!)) + (define |gx[1]#_g11209_| (gx#core-quote-syntax 'import-set-phi-set!)) + (define |gx[1]#_g11210_| (gx#core-quote-syntax 'import-set-imports-set!)) + (define |gx[1]#_g11211_| (gx#core-quote-syntax 'export-set::t)) + (define |gx[1]#_g11212_| (gx#core-quote-syntax 'export-set::t)) + (define |gx[1]#_g11213_| (gx#core-quote-syntax 'make-export-set)) + (define |gx[1]#_g11214_| (gx#core-quote-syntax 'export-set?)) + (define |gx[1]#_g11215_| (gx#core-quote-syntax 'export-set-source)) + (define |gx[1]#_g11216_| (gx#core-quote-syntax 'export-set-phi)) + (define |gx[1]#_g11217_| (gx#core-quote-syntax 'export-set-exports)) + (define |gx[1]#_g11218_| (gx#core-quote-syntax 'export-set-source-set!)) + (define |gx[1]#_g11219_| (gx#core-quote-syntax 'export-set-phi-set!)) + (define |gx[1]#_g11220_| (gx#core-quote-syntax 'export-set-exports-set!)) + (define |gx[1]#_g11221_| (gx#core-quote-syntax 'import-expander::t)) + (define |gx[1]#_g11222_| (gx#core-quote-syntax 'user-expander::t)) + (define |gx[1]#_g11223_| (gx#core-quote-syntax 'import-expander::t)) + (define |gx[1]#_g11224_| (gx#core-quote-syntax 'make-import-expander)) + (define |gx[1]#_g11225_| (gx#core-quote-syntax 'import-expander?)) + (define |gx[1]#_g11226_| (gx#core-quote-syntax 'user-expander)) + (define |gx[1]#_g11227_| (gx#core-quote-syntax 'export-expander::t)) + (define |gx[1]#_g11228_| (gx#core-quote-syntax 'user-expander::t)) + (define |gx[1]#_g11229_| (gx#core-quote-syntax 'export-expander::t)) + (define |gx[1]#_g11230_| (gx#core-quote-syntax 'make-export-expander)) + (define |gx[1]#_g11231_| (gx#core-quote-syntax 'export-expander?)) + (define |gx[1]#_g11232_| (gx#core-quote-syntax 'user-expander)) (begin (define |gx[:0:]#module-import| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g11099_| + |gx[1]#_g11175_| 'expander-identifiers: (cons '#f - (cons |gx[1]#_g11100_| - (cons |gx[1]#_g11101_| - (cons |gx[1]#_g11102_| - (cons (cons |gx[1]#_g11103_| - (cons |gx[1]#_g11104_| - (cons |gx[1]#_g11105_| - (cons |gx[1]#_g11106_| + (cons |gx[1]#_g11176_| + (cons |gx[1]#_g11177_| + (cons |gx[1]#_g11178_| + (cons (cons |gx[1]#_g11179_| + (cons |gx[1]#_g11180_| + (cons |gx[1]#_g11181_| + (cons |gx[1]#_g11182_| '())))) - (cons (cons |gx[1]#_g11107_| - (cons |gx[1]#_g11108_| - (cons |gx[1]#_g11109_| - (cons |gx[1]#_g11110_| + (cons (cons |gx[1]#_g11183_| + (cons |gx[1]#_g11184_| + (cons |gx[1]#_g11185_| + (cons |gx[1]#_g11186_| ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -92,26 +92,26 @@ (define |gx[:0:]#module-export| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g11111_| + |gx[1]#_g11187_| 'expander-identifiers: (cons '#f - (cons |gx[1]#_g11112_| - (cons |gx[1]#_g11113_| - (cons |gx[1]#_g11114_| - (cons (cons |gx[1]#_g11115_| - (cons |gx[1]#_g11116_| - (cons |gx[1]#_g11117_| - (cons |gx[1]#_g11118_| - (cons |gx[1]#_g11119_| + (cons |gx[1]#_g11188_| + (cons |gx[1]#_g11189_| + (cons |gx[1]#_g11190_| + (cons (cons |gx[1]#_g11191_| + (cons |gx[1]#_g11192_| + (cons |gx[1]#_g11193_| + (cons |gx[1]#_g11194_| + (cons |gx[1]#_g11195_| ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons |gx[1]#_g11120_| - (cons |gx[1]#_g11121_| - (cons |gx[1]#_g11122_| - (cons |gx[1]#_g11123_| + (cons (cons |gx[1]#_g11196_| + (cons |gx[1]#_g11197_| + (cons |gx[1]#_g11198_| + (cons |gx[1]#_g11199_| ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons |gx[1]#_g11124_| '()))))) + (cons |gx[1]#_g11200_| '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) 'type-exhibitor: @@ -125,18 +125,18 @@ (define |gx[:0:]#import-set| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g11125_| + |gx[1]#_g11201_| 'expander-identifiers: (cons '#f - (cons |gx[1]#_g11126_| - (cons |gx[1]#_g11127_| - (cons |gx[1]#_g11128_| - (cons (cons |gx[1]#_g11129_| - (cons |gx[1]#_g11130_| - (cons |gx[1]#_g11131_| '()))) - (cons (cons |gx[1]#_g11132_| - (cons |gx[1]#_g11133_| - (cons |gx[1]#_g11134_| + (cons |gx[1]#_g11202_| + (cons |gx[1]#_g11203_| + (cons |gx[1]#_g11204_| + (cons (cons |gx[1]#_g11205_| + (cons |gx[1]#_g11206_| + (cons |gx[1]#_g11207_| '()))) + (cons (cons |gx[1]#_g11208_| + (cons |gx[1]#_g11209_| + (cons |gx[1]#_g11210_| '()))) '())))))) 'type-exhibitor: @@ -150,18 +150,18 @@ (define |gx[:0:]#export-set| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g11135_| + |gx[1]#_g11211_| 'expander-identifiers: (cons '#f - (cons |gx[1]#_g11136_| - (cons |gx[1]#_g11137_| - (cons |gx[1]#_g11138_| - (cons (cons |gx[1]#_g11139_| - (cons |gx[1]#_g11140_| - (cons |gx[1]#_g11141_| '()))) - (cons (cons |gx[1]#_g11142_| - (cons |gx[1]#_g11143_| - (cons |gx[1]#_g11144_| + (cons |gx[1]#_g11212_| + (cons |gx[1]#_g11213_| + (cons |gx[1]#_g11214_| + (cons (cons |gx[1]#_g11215_| + (cons |gx[1]#_g11216_| + (cons |gx[1]#_g11217_| '()))) + (cons (cons |gx[1]#_g11218_| + (cons |gx[1]#_g11219_| + (cons |gx[1]#_g11220_| '()))) '())))))) 'type-exhibitor: @@ -175,16 +175,16 @@ (define |gx[:0:]#import-expander| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g11145_| + |gx[1]#_g11221_| 'expander-identifiers: - (cons |gx[1]#_g11146_| - (cons |gx[1]#_g11147_| - (cons |gx[1]#_g11148_| - (cons |gx[1]#_g11149_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g11222_| + (cons |gx[1]#_g11223_| + (cons |gx[1]#_g11224_| + (cons |gx[1]#_g11225_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#import-expander::t - |gx[1]#_g11150_| + |gx[1]#_g11226_| 'import-expander ':init! '() @@ -192,16 +192,16 @@ (define |gx[:0:]#export-expander| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g11151_| + |gx[1]#_g11227_| 'expander-identifiers: - (cons |gx[1]#_g11152_| - (cons |gx[1]#_g11153_| - (cons |gx[1]#_g11154_| - (cons |gx[1]#_g11155_| (cons '() (cons '() '())))))) + (cons |gx[1]#_g11228_| + (cons |gx[1]#_g11229_| + (cons |gx[1]#_g11230_| + (cons |gx[1]#_g11231_| (cons '() (cons '() '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#export-expander::t - |gx[1]#_g11156_| + |gx[1]#_g11232_| 'export-expander ':init! '() diff --git a/src/bootstrap/gerbil/expander/root.ssi b/src/bootstrap/gerbil/expander/root.ssi index 08ffe03e0..7453c7b84 100644 --- a/src/bootstrap/gerbil/expander/root.ssi +++ b/src/bootstrap/gerbil/expander/root.ssi @@ -12,8 +12,8 @@ namespace: gx (%#define-runtime *core-syntax-expanders* gx#*core-syntax-expanders*) (%#define-runtime *core-macro-expanders* gx#*core-macro-expanders*) (%#begin (%#define-runtime - root-context:::init!__opt-lambda12519 - gx#root-context:::init!__opt-lambda12519) + root-context:::init!__opt-lambda12595 + gx#root-context:::init!__opt-lambda12595) (%#begin (%#define-runtime root-context:::init!__0 gx#root-context:::init!__0) @@ -21,8 +21,8 @@ namespace: gx root-context:::init! gx#root-context:::init!))) (%#begin (%#define-runtime - top-context:::init!__opt-lambda12497 - gx#top-context:::init!__opt-lambda12497) + top-context:::init!__opt-lambda12573 + gx#top-context:::init!__opt-lambda12573) (%#begin (%#define-runtime top-context:::init!__0 gx#top-context:::init!__0) @@ -30,8 +30,8 @@ namespace: gx top-context:::init! gx#top-context:::init!))) (%#begin (%#define-runtime - expander-context::bind-core-syntax-expanders!__opt-lambda12350 - gx#expander-context::bind-core-syntax-expanders!__opt-lambda12350) + expander-context::bind-core-syntax-expanders!__opt-lambda12426 + gx#expander-context::bind-core-syntax-expanders!__opt-lambda12426) (%#begin (%#define-runtime expander-context::bind-core-syntax-expanders!__0 gx#expander-context::bind-core-syntax-expanders!__0) @@ -39,8 +39,8 @@ namespace: gx expander-context::bind-core-syntax-expanders! gx#expander-context::bind-core-syntax-expanders!))) (%#begin (%#define-runtime - expander-context::bind-core-macro-expanders!__opt-lambda12244 - gx#expander-context::bind-core-macro-expanders!__opt-lambda12244) + expander-context::bind-core-macro-expanders!__opt-lambda12320 + gx#expander-context::bind-core-macro-expanders!__opt-lambda12320) (%#begin (%#define-runtime expander-context::bind-core-macro-expanders!__0 gx#expander-context::bind-core-macro-expanders!__0) diff --git a/src/bootstrap/gerbil/expander/root.ssxi.ss b/src/bootstrap/gerbil/expander/root.ssxi.ss index 1ae33b8d0..7599dd5a4 100644 --- a/src/bootstrap/gerbil/expander/root.ssxi.ss +++ b/src/bootstrap/gerbil/expander/root.ssxi.ss @@ -6,19 +6,19 @@ package: gerbil/expander gx#root-context:::init! (@case-lambda (1 gx#root-context:::init!__0) - (2 gx#root-context:::init!__opt-lambda12519))) + (2 gx#root-context:::init!__opt-lambda12595))) (declare-method gx#root-context::t :init! gx#root-context:::init! #f) (declare-type gx#top-context:::init! (@case-lambda (1 gx#top-context:::init!__0) - (2 gx#top-context:::init!__opt-lambda12497))) + (2 gx#top-context:::init!__opt-lambda12573))) (declare-method gx#top-context::t :init! gx#top-context:::init! #f) (declare-type gx#expander-context::bind-core-syntax-expanders! (@case-lambda (1 gx#expander-context::bind-core-syntax-expanders!__0) - (2 gx#expander-context::bind-core-syntax-expanders!__opt-lambda12350))) + (2 gx#expander-context::bind-core-syntax-expanders!__opt-lambda12426))) (declare-method gx#expander-context::t bind-core-syntax-expanders! @@ -28,7 +28,7 @@ package: gerbil/expander gx#expander-context::bind-core-macro-expanders! (@case-lambda (1 gx#expander-context::bind-core-macro-expanders!__0) - (2 gx#expander-context::bind-core-macro-expanders!__opt-lambda12244))) + (2 gx#expander-context::bind-core-macro-expanders!__opt-lambda12320))) (declare-method gx#expander-context::t bind-core-macro-expanders! diff --git a/src/bootstrap/gerbil/expander/root__0.scm b/src/bootstrap/gerbil/expander/root__0.scm index c34d75b00..a3a2b9078 100644 --- a/src/bootstrap/gerbil/expander/root__0.scm +++ b/src/bootstrap/gerbil/expander/root__0.scm @@ -245,319 +245,319 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (define gx#root-context:::init!__opt-lambda12519 - (lambda (_self12521_ _bind?12522_) + (define gx#root-context:::init!__opt-lambda12595 + (lambda (_self12597_ _bind?12598_) (begin - (direct-struct-instance-init! _self12521_ 'root (make-hash-table-eq)) - (if _bind?12522_ + (direct-struct-instance-init! _self12597_ 'root (make-hash-table-eq)) + (if _bind?12598_ (begin - (call-method _self12521_ 'bind-core-syntax-expanders!) - (call-method _self12521_ 'bind-core-macro-expanders!)) + (call-method _self12597_ 'bind-core-syntax-expanders!) + (call-method _self12597_ 'bind-core-macro-expanders!)) '#!void)))) (begin (define gx#root-context:::init!__0 - (lambda (_self12527_) - (let ((_bind?12529_ '#t)) - (gx#root-context:::init!__opt-lambda12519 - _self12527_ - _bind?12529_)))) + (lambda (_self12603_) + (let ((_bind?12605_ '#t)) + (gx#root-context:::init!__opt-lambda12595 + _self12603_ + _bind?12605_)))) (define gx#root-context:::init! - (lambda _g12535_ - (let ((_g12534_ (length _g12535_))) - (cond ((fx= _g12534_ 1) - (apply gx#root-context:::init!__0 _g12535_)) - ((fx= _g12534_ 2) - (apply gx#root-context:::init!__opt-lambda12519 _g12535_)) - (else (error "No clause matching arguments" _g12535_)))))))) + (lambda _g12611_ + (let ((_g12610_ (length _g12611_))) + (cond ((fx= _g12610_ 1) + (apply gx#root-context:::init!__0 _g12611_)) + ((fx= _g12610_ 2) + (apply gx#root-context:::init!__opt-lambda12595 _g12611_)) + (else (error "No clause matching arguments" _g12611_)))))))) (bind-method! gx#root-context::t ':init! gx#root-context:::init! '#f) (begin - (define gx#top-context:::init!__opt-lambda12497 - (lambda (_self12499_ _super12500_) - (let ((_super12508_ - (let ((_$e12502_ _super12500_)) - (if _$e12502_ - _$e12502_ - (let ((_$e12505_ (gx#core-context-root__0))) - (if _$e12505_ - _$e12505_ - (let ((__obj12533 + (define gx#top-context:::init!__opt-lambda12573 + (lambda (_self12575_ _super12576_) + (let ((_super12584_ + (let ((_$e12578_ _super12576_)) + (if _$e12578_ + _$e12578_ + (let ((_$e12581_ (gx#core-context-root__0))) + (if _$e12581_ + _$e12581_ + (let ((__obj12609 (make-object gx#root-context::t '2))) (begin - (gx#root-context:::init!__0 __obj12533) - __obj12533)))))))) + (gx#root-context:::init!__0 __obj12609) + __obj12609)))))))) (direct-struct-instance-init! - _self12499_ + _self12575_ 'top (make-hash-table-eq) - _super12508_ + _super12584_ '#f '#f)))) (begin (define gx#top-context:::init!__0 - (lambda (_self12513_) - (let ((_super12515_ '#f)) - (gx#top-context:::init!__opt-lambda12497 - _self12513_ - _super12515_)))) + (lambda (_self12589_) + (let ((_super12591_ '#f)) + (gx#top-context:::init!__opt-lambda12573 + _self12589_ + _super12591_)))) (define gx#top-context:::init! - (lambda _g12537_ - (let ((_g12536_ (length _g12537_))) - (cond ((fx= _g12536_ 1) (apply gx#top-context:::init!__0 _g12537_)) - ((fx= _g12536_ 2) - (apply gx#top-context:::init!__opt-lambda12497 _g12537_)) - (else (error "No clause matching arguments" _g12537_)))))))) + (lambda _g12613_ + (let ((_g12612_ (length _g12613_))) + (cond ((fx= _g12612_ 1) (apply gx#top-context:::init!__0 _g12613_)) + ((fx= _g12612_ 2) + (apply gx#top-context:::init!__opt-lambda12573 _g12613_)) + (else (error "No clause matching arguments" _g12613_)))))))) (bind-method! gx#top-context::t ':init! gx#top-context:::init! '#f) (begin - (define gx#expander-context::bind-core-syntax-expanders!__opt-lambda12350 - (lambda (_self12352_ _bindings12353_) + (define gx#expander-context::bind-core-syntax-expanders!__opt-lambda12426 + (lambda (_self12428_ _bindings12429_) (for-each - (lambda (_bind12355_) - (let ((_bind1235612363_ _bind12355_)) - (let ((_E1235812367_ + (lambda (_bind12431_) + (let ((_bind1243212439_ _bind12431_)) + (let ((_E1243412443_ (lambda () - (error '"No clause matching" _bind1235612363_)))) - (let ((_K1235912476_ - (lambda (_rest12370_ _id12371_) + (error '"No clause matching" _bind1243212439_)))) + (let ((_K1243512552_ + (lambda (_rest12446_ _id12447_) (gx#core-context-put! - _self12352_ - _id12371_ + _self12428_ + _id12447_ (##structure gx#syntax-binding::t - _id12371_ - _id12371_ + _id12447_ + _id12447_ '#f - (let ((_rest1237212383_ _rest12370_)) - (let ((_E1237412387_ + (let ((_rest1244812459_ _rest12446_)) + (let ((_E1245012463_ (lambda () (error '"No clause matching" - _rest1237212383_)))) - (let ((_K1237512452_ - (lambda (_compiler12390_ - _expander12391_ - _key12392_) - ((let ((_key1239312406_ _key12392_)) - (let ((_E1239912410_ + _rest1244812459_)))) + (let ((_K1245112528_ + (lambda (_compiler12466_ + _expander12467_ + _key12468_) + ((let ((_key1246912482_ _key12468_)) + (let ((_E1247512486_ (lambda () (error '"No clause matching" - _key1239312406_)))) - (let ((_try-match1239812418_ + _key1246912482_)))) + (let ((_try-match1247412494_ (lambda () - (let ((_K1240012415_ + (let ((_K1247612491_ (lambda () gx#make-expression-form))) - (if (##eq? _key1239312406_ + (if (##eq? _key1246912482_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'expr:) - (_K1240012415_) - (_E1239912410_)))))) + (_K1247612491_) + (_E1247512486_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match1239712426_ + (let ((_try-match1247312502_ (lambda () - (let ((_K1240112423_ + (let ((_K1247712499_ (lambda () gx#make-special-form))) - (if (##eq? _key1239312406_ + (if (##eq? _key1246912482_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'special:) - (_K1240112423_) - (_try-match1239812418_)))))) + (_K1247712499_) + (_try-match1247412494_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match1239612434_ + (let ((_try-match1247212510_ (lambda () - (let ((_K1240212431_ + (let ((_K1247812507_ (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#make-definition-form))) - (if (##eq? _key1239312406_ 'define:) - (_K1240212431_) - (_try-match1239712426_)))))) + (if (##eq? _key1246912482_ 'define:) + (_K1247812507_) + (_try-match1247312502_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match1239512442_ + (let ((_try-match1247112518_ (lambda () - (let ((_K1240312439_ + (let ((_K1247912515_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda () gx#make-module-special-form))) - (if (##eq? _key1239312406_ 'module:) - (_K1240312439_) - (_try-match1239612434_)))))) + (if (##eq? _key1246912482_ 'module:) + (_K1247912515_) + (_try-match1247212510_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_K1240412446_ + (let ((_K1248012522_ (lambda () gx#make-top-special-form))) - (if (##eq? _key1239312406_ + (if (##eq? _key1246912482_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'top:) - (_K1240412446_) - (_try-match1239512442_))))))))) + (_K1248012522_) + (_try-match1247112518_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _expander12391_ - _id12371_ - (let ((_$e12449_ _compiler12390_)) - (if _$e12449_ - _$e12449_ + _expander12467_ + _id12447_ + (let ((_$e12525_ _compiler12466_)) + (if _$e12525_ + _$e12525_ gx#core-compile-top-error)))))) - (if (##pair? _rest1237212383_) - (let ((_hd1237612455_ - (##car _rest1237212383_)) - (_tl1237712457_ - (##cdr _rest1237212383_))) - (let ((_key12460_ _hd1237612455_)) - (if (##pair? _tl1237712457_) - (let ((_hd1237812462_ - (##car _tl1237712457_)) - (_tl1237912464_ - (##cdr _tl1237712457_))) - (let ((_expander12467_ - _hd1237812462_)) - (if (##pair? _tl1237912464_) - (let ((_hd1238012469_ - (##car _tl1237912464_)) - (_tl1238112471_ - (##cdr _tl1237912464_))) - (let ((_compiler12474_ - _hd1238012469_)) - (if (##null? _tl1238112471_) - (_K1237512452_ - _compiler12474_ - _expander12467_ - _key12460_) - (_E1237412387_)))) - (_E1237412387_)))) - (_E1237412387_)))) - (_E1237412387_)))))))))) - (if (##pair? _bind1235612363_) - (let ((_hd1236012479_ (##car _bind1235612363_)) - (_tl1236112481_ (##cdr _bind1235612363_))) - (let ((_id12484_ _hd1236012479_)) - (let ((_rest12486_ _tl1236112481_)) - (_K1235912476_ _rest12486_ _id12484_)))) - (_E1235812367_)))))) - _bindings12353_))) + (if (##pair? _rest1244812459_) + (let ((_hd1245212531_ + (##car _rest1244812459_)) + (_tl1245312533_ + (##cdr _rest1244812459_))) + (let ((_key12536_ _hd1245212531_)) + (if (##pair? _tl1245312533_) + (let ((_hd1245412538_ + (##car _tl1245312533_)) + (_tl1245512540_ + (##cdr _tl1245312533_))) + (let ((_expander12543_ + _hd1245412538_)) + (if (##pair? _tl1245512540_) + (let ((_hd1245612545_ + (##car _tl1245512540_)) + (_tl1245712547_ + (##cdr _tl1245512540_))) + (let ((_compiler12550_ + _hd1245612545_)) + (if (##null? _tl1245712547_) + (_K1245112528_ + _compiler12550_ + _expander12543_ + _key12536_) + (_E1245012463_)))) + (_E1245012463_)))) + (_E1245012463_)))) + (_E1245012463_)))))))))) + (if (##pair? _bind1243212439_) + (let ((_hd1243612555_ (##car _bind1243212439_)) + (_tl1243712557_ (##cdr _bind1243212439_))) + (let ((_id12560_ _hd1243612555_)) + (let ((_rest12562_ _tl1243712557_)) + (_K1243512552_ _rest12562_ _id12560_)))) + (_E1243412443_)))))) + _bindings12429_))) (begin (define gx#expander-context::bind-core-syntax-expanders!__0 - (lambda (_self12491_) - (let ((_bindings12493_ gx#*core-syntax-expanders*)) - (gx#expander-context::bind-core-syntax-expanders!__opt-lambda12350 - _self12491_ - _bindings12493_)))) + (lambda (_self12567_) + (let ((_bindings12569_ gx#*core-syntax-expanders*)) + (gx#expander-context::bind-core-syntax-expanders!__opt-lambda12426 + _self12567_ + _bindings12569_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g12539_ - (let ((_g12538_ (length _g12539_))) - (cond ((fx= _g12538_ 1) + (lambda _g12615_ + (let ((_g12614_ (length _g12615_))) + (cond ((fx= _g12614_ 1) (apply gx#expander-context::bind-core-syntax-expanders!__0 - _g12539_)) - ((fx= _g12538_ 2) - (apply gx#expander-context::bind-core-syntax-expanders!__opt-lambda12350 - _g12539_)) - (else (error "No clause matching arguments" _g12539_)))))))) + _g12615_)) + ((fx= _g12614_ 2) + (apply gx#expander-context::bind-core-syntax-expanders!__opt-lambda12426 + _g12615_)) + (else (error "No clause matching arguments" _g12615_)))))))) (bind-method! gx#expander-context::t 'bind-core-syntax-expanders! gx#expander-context::bind-core-syntax-expanders! '#f) (begin - (define gx#expander-context::bind-core-macro-expanders!__opt-lambda12244 - (lambda (_self12246_ _bindings12247_) + (define gx#expander-context::bind-core-macro-expanders!__opt-lambda12320 + (lambda (_self12322_ _bindings12323_) (for-each - (lambda (_bind12249_) - (let ((_bind1225012257_ _bind12249_)) - (let ((_E1225212261_ + (lambda (_bind12325_) + (let ((_bind1232612333_ _bind12325_)) + (let ((_E1232812337_ (lambda () - (error '"No clause matching" _bind1225012257_)))) - (let ((_K1225312329_ - (lambda (_rest12264_ _id12265_) + (error '"No clause matching" _bind1232612333_)))) + (let ((_K1232912405_ + (lambda (_rest12340_ _id12341_) (gx#core-context-put! - _self12246_ - _id12265_ + _self12322_ + _id12341_ (##structure gx#syntax-binding::t - _id12265_ - _id12265_ + _id12341_ + _id12341_ '#f - (let ((_rest1226612281_ _rest12264_)) - (let ((_E1227012285_ + (let ((_rest1234212357_ _rest12340_)) + (let ((_E1234612361_ (lambda () (error '"No clause matching" - _rest1226612281_)))) - (let ((_try-match1226912293_ + _rest1234212357_)))) + (let ((_try-match1234512369_ (lambda () - (let ((_K1227112290_ + (let ((_K1234712366_ (lambda () (##structure gx#reserved-expander::t - _id12265_)))) - (if (##null? _rest1226612281_) - (_K1227112290_) - (_E1227012285_)))))) - (let ((_try-match1226812309_ + _id12341_)))) + (if (##null? _rest1234212357_) + (_K1234712366_) + (_E1234612361_)))))) + (let ((_try-match1234412385_ (lambda () - (let ((_K1227212299_ - (lambda (_proc12297_) + (let ((_K1234812375_ + (lambda (_proc12373_) (##structure gx#macro-expander::t - _proc12297_)))) - (if (##pair? _rest1226612281_) - (let ((_hd1227312302_ - (##car _rest1226612281_)) - (_tl1227412304_ - (##cdr _rest1226612281_))) - (let ((_proc12307_ - _hd1227312302_)) - (if (##null? _tl1227412304_) - (_K1227212299_ - _proc12307_) - (_try-match1226912293_)))) - (_try-match1226912293_)))))) - (let ((_K1227512314_ - (lambda (_core-id12312_) + _proc12373_)))) + (if (##pair? _rest1234212357_) + (let ((_hd1234912378_ + (##car _rest1234212357_)) + (_tl1235012380_ + (##cdr _rest1234212357_))) + (let ((_proc12383_ + _hd1234912378_)) + (if (##null? _tl1235012380_) + (_K1234812375_ + _proc12383_) + (_try-match1234512369_)))) + (_try-match1234512369_)))))) + (let ((_K1235112390_ + (lambda (_core-id12388_) (##structure gx#rename-macro-expander::t - _core-id12312_)))) - (if (##pair? _rest1226612281_) - (let ((_hd1227612317_ - (##car _rest1226612281_)) - (_tl1227712319_ - (##cdr _rest1226612281_))) - (if (##eq? _hd1227612317_ '=>) - (if (##pair? _tl1227712319_) - (let ((_hd1227812322_ - (##car _tl1227712319_)) - (_tl1227912324_ - (##cdr _tl1227712319_))) - (let ((_core-id12327_ - _hd1227812322_)) - (if (##null? _tl1227912324_) - (_K1227512314_ - _core-id12327_) - (_try-match1226812309_)))) - (_try-match1226812309_)) - (_try-match1226812309_))) - (_try-match1226812309_)))))))))))) - (if (##pair? _bind1225012257_) - (let ((_hd1225412332_ (##car _bind1225012257_)) - (_tl1225512334_ (##cdr _bind1225012257_))) - (let ((_id12337_ _hd1225412332_)) - (let ((_rest12339_ _tl1225512334_)) - (_K1225312329_ _rest12339_ _id12337_)))) - (_E1225212261_)))))) - _bindings12247_))) + _core-id12388_)))) + (if (##pair? _rest1234212357_) + (let ((_hd1235212393_ + (##car _rest1234212357_)) + (_tl1235312395_ + (##cdr _rest1234212357_))) + (if (##eq? _hd1235212393_ '=>) + (if (##pair? _tl1235312395_) + (let ((_hd1235412398_ + (##car _tl1235312395_)) + (_tl1235512400_ + (##cdr _tl1235312395_))) + (let ((_core-id12403_ + _hd1235412398_)) + (if (##null? _tl1235512400_) + (_K1235112390_ + _core-id12403_) + (_try-match1234412385_)))) + (_try-match1234412385_)) + (_try-match1234412385_))) + (_try-match1234412385_)))))))))))) + (if (##pair? _bind1232612333_) + (let ((_hd1233012408_ (##car _bind1232612333_)) + (_tl1233112410_ (##cdr _bind1232612333_))) + (let ((_id12413_ _hd1233012408_)) + (let ((_rest12415_ _tl1233112410_)) + (_K1232912405_ _rest12415_ _id12413_)))) + (_E1232812337_)))))) + _bindings12323_))) (begin (define gx#expander-context::bind-core-macro-expanders!__0 - (lambda (_self12344_) - (let ((_bindings12346_ gx#*core-macro-expanders*)) - (gx#expander-context::bind-core-macro-expanders!__opt-lambda12244 - _self12344_ - _bindings12346_)))) + (lambda (_self12420_) + (let ((_bindings12422_ gx#*core-macro-expanders*)) + (gx#expander-context::bind-core-macro-expanders!__opt-lambda12320 + _self12420_ + _bindings12422_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g12541_ - (let ((_g12540_ (length _g12541_))) - (cond ((fx= _g12540_ 1) + (lambda _g12617_ + (let ((_g12616_ (length _g12617_))) + (cond ((fx= _g12616_ 1) (apply gx#expander-context::bind-core-macro-expanders!__0 - _g12541_)) - ((fx= _g12540_ 2) - (apply gx#expander-context::bind-core-macro-expanders!__opt-lambda12244 - _g12541_)) - (else (error "No clause matching arguments" _g12541_)))))))) + _g12617_)) + ((fx= _g12616_ 2) + (apply gx#expander-context::bind-core-macro-expanders!__opt-lambda12320 + _g12617_)) + (else (error "No clause matching arguments" _g12617_)))))))) (bind-method! gx#expander-context::t 'bind-core-macro-expanders! diff --git a/src/bootstrap/gerbil/expander/stx.ssi b/src/bootstrap/gerbil/expander/stx.ssi index acc8d8422..a8870fb32 100644 --- a/src/bootstrap/gerbil/expander/stx.ssi +++ b/src/bootstrap/gerbil/expander/stx.ssi @@ -37,15 +37,15 @@ namespace: gx (%#define-runtime syntax-e gx#syntax-e) (%#define-runtime syntax->datum gx#syntax->datum) (%#begin (%#define-runtime - datum->syntax__opt-lambda3705 - gx#datum->syntax__opt-lambda3705) + datum->syntax__opt-lambda3781 + gx#datum->syntax__opt-lambda3781) (%#begin (%#define-runtime datum->syntax__0 gx#datum->syntax__0) (%#define-runtime datum->syntax gx#datum->syntax))) (%#begin (%#define-runtime - stx-unwrap__opt-lambda3681 - gx#stx-unwrap__opt-lambda3681) + stx-unwrap__opt-lambda3757 + gx#stx-unwrap__opt-lambda3757) (%#begin (%#define-runtime stx-unwrap__0 gx#stx-unwrap__0) (%#define-runtime stx-unwrap gx#stx-unwrap))) (%#define-runtime stx-wrap gx#stx-wrap) @@ -78,8 +78,8 @@ namespace: gx (%#define-runtime stx-identifier-context gx#stx-identifier-context) (%#define-runtime identifier-list? gx#identifier-list?) (%#begin (%#define-runtime - genident__opt-lambda3440 - gx#genident__opt-lambda3440) + genident__opt-lambda3516 + gx#genident__opt-lambda3516) (%#begin (%#define-runtime genident__0 gx#genident__0) (%#define-runtime genident__1 gx#genident__1) (%#define-runtime genident gx#genident))) @@ -104,13 +104,13 @@ namespace: gx (%#define-runtime stx-list-tail gx#stx-list-tail) (%#define-runtime stx-list-ref gx#stx-list-ref) (%#begin (%#define-runtime - stx-plist?__opt-lambda2686 - gx#stx-plist?__opt-lambda2686) + stx-plist?__opt-lambda2762 + gx#stx-plist?__opt-lambda2762) (%#begin (%#define-runtime stx-plist?__0 gx#stx-plist?__0) (%#define-runtime stx-plist? gx#stx-plist?))) (%#begin (%#define-runtime - stx-getq__opt-lambda2604 - gx#stx-getq__opt-lambda2604) + stx-getq__opt-lambda2680 + gx#stx-getq__opt-lambda2680) (%#begin (%#define-runtime stx-getq__0 gx#stx-getq__0) (%#define-runtime stx-getq gx#stx-getq)))) (%#call (%#ref _gx#load-module) (%#quote "gerbil/expander/stx__0")) diff --git a/src/bootstrap/gerbil/expander/stx.ssxi.ss b/src/bootstrap/gerbil/expander/stx.ssxi.ss index 4b897e6ca..581f255d3 100644 --- a/src/bootstrap/gerbil/expander/stx.ssxi.ss +++ b/src/bootstrap/gerbil/expander/stx.ssxi.ss @@ -33,23 +33,23 @@ package: gerbil/expander (declare-type gx#syntax-quote-marks-set! (@struct-setf gx#syntax-quote::t 1)) (declare-type gx#datum->syntax - (@case-lambda (2 gx#datum->syntax__0) (3 gx#datum->syntax__opt-lambda3705))) + (@case-lambda (2 gx#datum->syntax__0) (3 gx#datum->syntax__opt-lambda3781))) (declare-type gx#stx-unwrap - (@case-lambda (1 gx#stx-unwrap__0) (2 gx#stx-unwrap__opt-lambda3681))) + (@case-lambda (1 gx#stx-unwrap__0) (2 gx#stx-unwrap__opt-lambda3757))) (declare-type gx#genident (@case-lambda (0 gx#genident__0) (1 gx#genident__1) - (2 gx#genident__opt-lambda3440))) + (2 gx#genident__opt-lambda3516))) (declare-type gx#stx-for-each (@case-lambda (2 gx#stx-for-each1) (3 gx#stx-for-each2))) (declare-type gx#stx-map (@case-lambda (2 gx#stx-map1) (3 gx#stx-map2))) (declare-type gx#stx-plist? - (@case-lambda (1 gx#stx-plist?__0) (2 gx#stx-plist?__opt-lambda2686))) + (@case-lambda (1 gx#stx-plist?__0) (2 gx#stx-plist?__opt-lambda2762))) (declare-type gx#stx-getq - (@case-lambda (2 gx#stx-getq__0) (3 gx#stx-getq__opt-lambda2604)))) + (@case-lambda (2 gx#stx-getq__0) (3 gx#stx-getq__opt-lambda2680)))) diff --git a/src/bootstrap/gerbil/expander/stx__0.scm b/src/bootstrap/gerbil/expander/stx__0.scm index 56c09a154..e7d413af3 100644 --- a/src/bootstrap/gerbil/expander/stx__0.scm +++ b/src/bootstrap/gerbil/expander/stx__0.scm @@ -10,8 +10,8 @@ '#f)) (define gx#identifier-wrap? (make-struct-predicate gx#identifier-wrap::t)) (define gx#make-identifier-wrap - (lambda _$args3758_ - (apply make-struct-instance gx#identifier-wrap::t _$args3758_))) + (lambda _$args3834_ + (apply make-struct-instance gx#identifier-wrap::t _$args3834_))) (define gx#identifier-wrap-marks (make-struct-field-accessor gx#identifier-wrap::t '0)) (define gx#identifier-wrap-marks-set! @@ -26,8 +26,8 @@ '#f)) (define gx#syntax-wrap? (make-struct-predicate gx#syntax-wrap::t)) (define gx#make-syntax-wrap - (lambda _$args3755_ - (apply make-struct-instance gx#syntax-wrap::t _$args3755_))) + (lambda _$args3831_ + (apply make-struct-instance gx#syntax-wrap::t _$args3831_))) (define gx#syntax-wrap-mark (make-struct-field-accessor gx#syntax-wrap::t '0)) (define gx#syntax-wrap-mark-set! @@ -42,8 +42,8 @@ '#f)) (define gx#syntax-quote? (make-struct-predicate gx#syntax-quote::t)) (define gx#make-syntax-quote - (lambda _$args3752_ - (apply make-struct-instance gx#syntax-quote::t _$args3752_))) + (lambda _$args3828_ + (apply make-struct-instance gx#syntax-quote::t _$args3828_))) (define gx#syntax-quote-context (make-struct-field-accessor gx#syntax-quote::t '0)) (define gx#syntax-quote-marks @@ -52,929 +52,929 @@ (make-struct-field-mutator gx#syntax-quote::t '0)) (define gx#syntax-quote-marks-set! (make-struct-field-mutator gx#syntax-quote::t '1)) - (define gx#identifier? (lambda (_stx3750_) (symbol? (gx#stx-e _stx3750_)))) + (define gx#identifier? (lambda (_stx3826_) (symbol? (gx#stx-e _stx3826_)))) (define gx#identifier-quote? - (lambda (_stx3748_) - (if (##structure-direct-instance-of? _stx3748_ 'gx#syntax-quote::t) - (symbol? (##structure-ref _stx3748_ '1 AST::t '#f)) + (lambda (_stx3824_) + (if (##structure-direct-instance-of? _stx3824_ 'gx#syntax-quote::t) + (symbol? (##structure-ref _stx3824_ '1 AST::t '#f)) '#f))) (define gx#sealed-syntax? - (lambda (_stx3743_) - (let ((_$e3745_ - (##structure-direct-instance-of? _stx3743_ 'gx#syntax-quote::t))) - (if _$e3745_ - _$e3745_ - (if (##structure-instance-of? _stx3743_ 'gerbil#AST::t) - (gx#sealed-syntax? (##structure-ref _stx3743_ '1 AST::t '#f)) + (lambda (_stx3819_) + (let ((_$e3821_ + (##structure-direct-instance-of? _stx3819_ 'gx#syntax-quote::t))) + (if _$e3821_ + _$e3821_ + (if (##structure-instance-of? _stx3819_ 'gerbil#AST::t) + (gx#sealed-syntax? (##structure-ref _stx3819_ '1 AST::t '#f)) '#f))))) (define gx#syntax-e - (lambda (_stx3739_) - (let ((_stx3741_ (gx#stx-unwrap__0 _stx3739_))) - (if (##structure-instance-of? _stx3741_ 'gerbil#AST::t) - (##structure-ref _stx3741_ '1 AST::t '#f) - _stx3741_)))) + (lambda (_stx3815_) + (let ((_stx3817_ (gx#stx-unwrap__0 _stx3815_))) + (if (##structure-instance-of? _stx3817_ 'gerbil#AST::t) + (##structure-ref _stx3817_ '1 AST::t '#f) + _stx3817_)))) (define gx#syntax->datum - (lambda (_stx3737_) - (if (##structure-instance-of? _stx3737_ 'gerbil#AST::t) - (gx#syntax->datum (##structure-ref _stx3737_ '1 AST::t '#f)) - (if (pair? _stx3737_) - (cons (gx#syntax->datum (car _stx3737_)) - (gx#syntax->datum (cdr _stx3737_))) - (if (vector? _stx3737_) - (vector-map gx#syntax->datum _stx3737_) - (if (box? _stx3737_) - (box (gx#syntax->datum (unbox _stx3737_))) - _stx3737_)))))) + (lambda (_stx3813_) + (if (##structure-instance-of? _stx3813_ 'gerbil#AST::t) + (gx#syntax->datum (##structure-ref _stx3813_ '1 AST::t '#f)) + (if (pair? _stx3813_) + (cons (gx#syntax->datum (car _stx3813_)) + (gx#syntax->datum (cdr _stx3813_))) + (if (vector? _stx3813_) + (vector-map gx#syntax->datum _stx3813_) + (if (box? _stx3813_) + (box (gx#syntax->datum (unbox _stx3813_))) + _stx3813_)))))) (begin - (define gx#datum->syntax__opt-lambda3705 - (lambda (_stx3707_ _datum3708_ _src3709_) - (let ((_wrap-datum3711_ - (lambda (_e3718_ _marks3719_) - ((letrec ((_recur3721_ - (lambda (_e3723_) - (if (symbol? _e3723_) + (define gx#datum->syntax__opt-lambda3781 + (lambda (_stx3783_ _datum3784_ _src3785_) + (let ((_wrap-datum3787_ + (lambda (_e3794_ _marks3795_) + ((letrec ((_recur3797_ + (lambda (_e3799_) + (if (symbol? _e3799_) (##structure gx#identifier-wrap::t - _e3723_ - _src3709_ - _marks3719_) - (if (pair? _e3723_) - (cons (_recur3721_ (car _e3723_)) - (_recur3721_ (cdr _e3723_))) - (if (vector? _e3723_) - (vector-map _recur3721_ _e3723_) - (if (box? _e3723_) - (box (_recur3721_ - (unbox _e3723_))) - _e3723_))))))) - _recur3721_) - _e3718_)))) - (let ((_wrap-outer3712_ - (lambda (_e3716_) - (if (##structure-instance-of? _e3716_ 'gerbil#AST::t) - _e3716_ - (##structure AST::t _e3716_ _src3709_))))) - (if (##structure-instance-of? _datum3708_ 'gerbil#AST::t) - _datum3708_ - (if (not _stx3707_) - (##structure AST::t _datum3708_ _src3709_) - (if (gx#identifier? _stx3707_) - (let ((_stx3714_ (gx#stx-unwrap__0 _stx3707_))) - (if (gx#identifier-quote? _stx3714_) + _e3799_ + _src3785_ + _marks3795_) + (if (pair? _e3799_) + (cons (_recur3797_ (car _e3799_)) + (_recur3797_ (cdr _e3799_))) + (if (vector? _e3799_) + (vector-map _recur3797_ _e3799_) + (if (box? _e3799_) + (box (_recur3797_ + (unbox _e3799_))) + _e3799_))))))) + _recur3797_) + _e3794_)))) + (let ((_wrap-outer3788_ + (lambda (_e3792_) + (if (##structure-instance-of? _e3792_ 'gerbil#AST::t) + _e3792_ + (##structure AST::t _e3792_ _src3785_))))) + (if (##structure-instance-of? _datum3784_ 'gerbil#AST::t) + _datum3784_ + (if (not _stx3783_) + (##structure AST::t _datum3784_ _src3785_) + (if (gx#identifier? _stx3783_) + (let ((_stx3790_ (gx#stx-unwrap__0 _stx3783_))) + (if (gx#identifier-quote? _stx3790_) (##structure gx#syntax-quote::t - _datum3708_ - _src3709_ + _datum3784_ + _src3785_ (##structure-ref - _stx3714_ + _stx3790_ '3 gx#syntax-quote::t '#f) (##structure-ref - _stx3714_ + _stx3790_ '4 gx#syntax-quote::t '#f)) - (_wrap-outer3712_ - (_wrap-datum3711_ - _datum3708_ + (_wrap-outer3788_ + (_wrap-datum3787_ + _datum3784_ (##structure-ref - _stx3714_ + _stx3790_ '3 gx#identifier-wrap::t '#f))))) (error '"Bad template syntax; expected identifier" - _stx3707_)))))))) + _stx3783_)))))))) (begin (define gx#datum->syntax__0 - (lambda (_stx3728_ _datum3729_) - (let ((_src3731_ '#f)) - (gx#datum->syntax__opt-lambda3705 - _stx3728_ - _datum3729_ - _src3731_)))) + (lambda (_stx3804_ _datum3805_) + (let ((_src3807_ '#f)) + (gx#datum->syntax__opt-lambda3781 + _stx3804_ + _datum3805_ + _src3807_)))) (define gx#datum->syntax - (lambda _g3761_ - (let ((_g3760_ (length _g3761_))) - (cond ((fx= _g3760_ 2) (apply gx#datum->syntax__0 _g3761_)) - ((fx= _g3760_ 3) - (apply gx#datum->syntax__opt-lambda3705 _g3761_)) - (else (error "No clause matching arguments" _g3761_)))))))) + (lambda _g3837_ + (let ((_g3836_ (length _g3837_))) + (cond ((fx= _g3836_ 2) (apply gx#datum->syntax__0 _g3837_)) + ((fx= _g3836_ 3) + (apply gx#datum->syntax__opt-lambda3781 _g3837_)) + (else (error "No clause matching arguments" _g3837_)))))))) (begin - (define gx#stx-unwrap__opt-lambda3681 - (lambda (_stx3683_ _marks3684_) - ((letrec ((_lp3686_ - (lambda (_e3688_ _marks3689_ _src3690_) + (define gx#stx-unwrap__opt-lambda3757 + (lambda (_stx3759_ _marks3760_) + ((letrec ((_lp3762_ + (lambda (_e3764_ _marks3765_ _src3766_) (if (##structure-direct-instance-of? - _e3688_ + _e3764_ 'gx#syntax-wrap::t) - (_lp3686_ - (##structure-ref _e3688_ '1 AST::t '#f) + (_lp3762_ + (##structure-ref _e3764_ '1 AST::t '#f) (gx#apply-mark - (##structure-ref _e3688_ '3 gx#syntax-wrap::t '#f) - _marks3689_) - (##structure-ref _e3688_ '2 AST::t '#f)) + (##structure-ref _e3764_ '3 gx#syntax-wrap::t '#f) + _marks3765_) + (##structure-ref _e3764_ '2 AST::t '#f)) (if (##structure-direct-instance-of? - _e3688_ + _e3764_ 'gx#identifier-wrap::t) - (if (null? _marks3689_) - _e3688_ + (if (null? _marks3765_) + _e3764_ (##structure gx#identifier-wrap::t - (##structure-ref _e3688_ '1 AST::t '#f) - (##structure-ref _e3688_ '2 AST::t '#f) + (##structure-ref _e3764_ '1 AST::t '#f) + (##structure-ref _e3764_ '2 AST::t '#f) (foldl1 gx#apply-mark (##structure-ref - _e3688_ + _e3764_ '3 gx#identifier-wrap::t '#f) - _marks3689_))) + _marks3765_))) (if (##structure-direct-instance-of? - _e3688_ + _e3764_ 'gx#syntax-quote::t) - _e3688_ + _e3764_ (if (##structure-instance-of? - _e3688_ + _e3764_ 'gerbil#AST::t) - (_lp3686_ - (##structure-ref _e3688_ '1 AST::t '#f) - _marks3689_ - (##structure-ref _e3688_ '2 AST::t '#f)) - (if (symbol? _e3688_) + (_lp3762_ + (##structure-ref _e3764_ '1 AST::t '#f) + _marks3765_ + (##structure-ref _e3764_ '2 AST::t '#f)) + (if (symbol? _e3764_) (##structure gx#identifier-wrap::t - _e3688_ - _src3690_ - (reverse _marks3689_)) - (if (null? _marks3689_) - _e3688_ - (if (pair? _e3688_) + _e3764_ + _src3766_ + (reverse _marks3765_)) + (if (null? _marks3765_) + _e3764_ + (if (pair? _e3764_) (cons (gx#stx-wrap - (car _e3688_) - _marks3689_) + (car _e3764_) + _marks3765_) (gx#stx-wrap - (cdr _e3688_) - _marks3689_)) - (if (vector? _e3688_) + (cdr _e3764_) + _marks3765_)) + (if (vector? _e3764_) (vector-map - (lambda (_g36913693_) + (lambda (_g37673769_) (gx#stx-wrap - _g36913693_ - _marks3689_)) - _e3688_) - (if (box? _e3688_) + _g37673769_ + _marks3765_)) + _e3764_) + (if (box? _e3764_) (box (gx#stx-wrap - (unbox _e3688_) - _marks3689_)) - _e3688_)))))))))))) - _lp3686_) - _stx3683_ - _marks3684_ - (gx#stx-source _stx3683_)))) + (unbox _e3764_) + _marks3765_)) + _e3764_)))))))))))) + _lp3762_) + _stx3759_ + _marks3760_ + (gx#stx-source _stx3759_)))) (begin (define gx#stx-unwrap__0 - (lambda (_stx3699_) - (let ((_marks3701_ '())) - (gx#stx-unwrap__opt-lambda3681 _stx3699_ _marks3701_)))) + (lambda (_stx3775_) + (let ((_marks3777_ '())) + (gx#stx-unwrap__opt-lambda3757 _stx3775_ _marks3777_)))) (define gx#stx-unwrap - (lambda _g3763_ - (let ((_g3762_ (length _g3763_))) - (cond ((fx= _g3762_ 1) (apply gx#stx-unwrap__0 _g3763_)) - ((fx= _g3762_ 2) - (apply gx#stx-unwrap__opt-lambda3681 _g3763_)) - (else (error "No clause matching arguments" _g3763_)))))))) + (lambda _g3839_ + (let ((_g3838_ (length _g3839_))) + (cond ((fx= _g3838_ 1) (apply gx#stx-unwrap__0 _g3839_)) + ((fx= _g3838_ 2) + (apply gx#stx-unwrap__opt-lambda3757 _g3839_)) + (else (error "No clause matching arguments" _g3839_)))))))) (define gx#stx-wrap - (lambda (_stx3676_ _marks3677_) - (foldl1 (lambda (_mark3679_ _stx3680_) - (gx#stx-apply-mark _stx3680_ _mark3679_)) - _stx3676_ - _marks3677_))) + (lambda (_stx3752_ _marks3753_) + (foldl1 (lambda (_mark3755_ _stx3756_) + (gx#stx-apply-mark _stx3756_ _mark3755_)) + _stx3752_ + _marks3753_))) (define gx#stx-rewrap - (lambda (_stx3670_ _marks3671_) - (foldr1 (lambda (_mark3673_ _stx3674_) - (gx#stx-apply-mark _stx3674_ _mark3673_)) - _stx3670_ - _marks3671_))) + (lambda (_stx3746_ _marks3747_) + (foldr1 (lambda (_mark3749_ _stx3750_) + (gx#stx-apply-mark _stx3750_ _mark3749_)) + _stx3746_ + _marks3747_))) (define gx#stx-apply-mark - (lambda (_stx3667_ _mark3668_) - (if (##structure-direct-instance-of? _stx3667_ 'gx#syntax-quote::t) - _stx3667_ + (lambda (_stx3743_ _mark3744_) + (if (##structure-direct-instance-of? _stx3743_ 'gx#syntax-quote::t) + _stx3743_ (if (if (##structure-direct-instance-of? - _stx3667_ + _stx3743_ 'gx#syntax-wrap::t) - (eq? _mark3668_ - (##structure-ref _stx3667_ '3 gx#syntax-wrap::t '#f)) + (eq? _mark3744_ + (##structure-ref _stx3743_ '3 gx#syntax-wrap::t '#f)) '#f) - (##structure-ref _stx3667_ '1 AST::t '#f) + (##structure-ref _stx3743_ '1 AST::t '#f) (##structure gx#syntax-wrap::t - _stx3667_ - (gx#stx-source _stx3667_) - _mark3668_))))) + _stx3743_ + (gx#stx-source _stx3743_) + _mark3744_))))) (define gx#apply-mark - (lambda (_mark3631_ _marks3632_) - (let ((_marks36333641_ _marks3632_)) - (let ((_E36363645_ - (lambda () (error '"No clause matching" _marks36333641_)))) - (let ((_else36353649_ (lambda () (cons _mark3631_ _marks3632_)))) - (let ((_K36373655_ - (lambda (_rest3652_ _hd3653_) - (if (eq? _mark3631_ _hd3653_) - _rest3652_ - (cons _mark3631_ _marks3632_))))) - (if (##pair? _marks36333641_) - (let ((_hd36383658_ (##car _marks36333641_)) - (_tl36393660_ (##cdr _marks36333641_))) - (let ((_hd3663_ _hd36383658_)) - (let ((_rest3665_ _tl36393660_)) - (_K36373655_ _rest3665_ _hd3663_)))) - (_else36353649_)))))))) + (lambda (_mark3707_ _marks3708_) + (let ((_marks37093717_ _marks3708_)) + (let ((_E37123721_ + (lambda () (error '"No clause matching" _marks37093717_)))) + (let ((_else37113725_ (lambda () (cons _mark3707_ _marks3708_)))) + (let ((_K37133731_ + (lambda (_rest3728_ _hd3729_) + (if (eq? _mark3707_ _hd3729_) + _rest3728_ + (cons _mark3707_ _marks3708_))))) + (if (##pair? _marks37093717_) + (let ((_hd37143734_ (##car _marks37093717_)) + (_tl37153736_ (##cdr _marks37093717_))) + (let ((_hd3739_ _hd37143734_)) + (let ((_rest3741_ _tl37153736_)) + (_K37133731_ _rest3741_ _hd3739_)))) + (_else37113725_)))))))) (define gx#stx-e - (lambda (_stx3629_) - (if (##structure-instance-of? _stx3629_ 'gerbil#AST::t) - (gx#stx-e (##structure-ref _stx3629_ '1 AST::t '#f)) - _stx3629_))) + (lambda (_stx3705_) + (if (##structure-instance-of? _stx3705_ 'gerbil#AST::t) + (gx#stx-e (##structure-ref _stx3705_ '1 AST::t '#f)) + _stx3705_))) (define gx#stx-source - (lambda (_stx3627_) - (if (##structure-instance-of? _stx3627_ 'gerbil#AST::t) - (##structure-ref _stx3627_ '2 AST::t '#f) + (lambda (_stx3703_) + (if (##structure-instance-of? _stx3703_ 'gerbil#AST::t) + (##structure-ref _stx3703_ '2 AST::t '#f) '#f))) (define gx#stx-wrap-source - (lambda (_stx3621_ _src3622_) - (if (let ((_$e3624_ (##structure-instance-of? _stx3621_ 'gerbil#AST::t))) - (if _$e3624_ _$e3624_ (not _src3622_))) - _stx3621_ - (##structure AST::t _stx3621_ _src3622_)))) + (lambda (_stx3697_ _src3698_) + (if (let ((_$e3700_ (##structure-instance-of? _stx3697_ 'gerbil#AST::t))) + (if _$e3700_ _$e3700_ (not _src3698_))) + _stx3697_ + (##structure AST::t _stx3697_ _src3698_)))) (define gx#stx-datum? - (lambda (_stx3619_) (gx#self-quoting? (gx#stx-e _stx3619_)))) + (lambda (_stx3695_) (gx#self-quoting? (gx#stx-e _stx3695_)))) (define gx#self-quoting? - (lambda (_x3599_) - (let ((_$e3601_ (boolean? _x3599_))) - (if _$e3601_ - _$e3601_ - (let ((_$e3604_ (char? _x3599_))) - (if _$e3604_ - _$e3604_ - (let ((_$e3607_ (number? _x3599_))) - (if _$e3607_ - _$e3607_ - (let ((_$e3610_ (keyword? _x3599_))) - (if _$e3610_ - _$e3610_ - (let ((_$e3613_ (string? _x3599_))) - (if _$e3613_ - _$e3613_ - (let ((_$e3616_ (eq? _x3599_ '#!void))) - (if _$e3616_ - _$e3616_ - (dssl-object? _x3599_))))))))))))))) - (define gx#stx-boolean? (lambda (_e3597_) (boolean? (gx#stx-e _e3597_)))) - (define gx#stx-keyword? (lambda (_e3595_) (keyword? (gx#stx-e _e3595_)))) - (define gx#stx-char? (lambda (_e3593_) (char? (gx#stx-e _e3593_)))) - (define gx#stx-number? (lambda (_e3591_) (number? (gx#stx-e _e3591_)))) - (define gx#stx-fixnum? (lambda (_e3589_) (fixnum? (gx#stx-e _e3589_)))) - (define gx#stx-string? (lambda (_e3587_) (string? (gx#stx-e _e3587_)))) - (define gx#stx-null? (lambda (_e3585_) (null? (gx#stx-e _e3585_)))) - (define gx#stx-pair? (lambda (_e3583_) (pair? (gx#stx-e _e3583_)))) + (lambda (_x3675_) + (let ((_$e3677_ (boolean? _x3675_))) + (if _$e3677_ + _$e3677_ + (let ((_$e3680_ (char? _x3675_))) + (if _$e3680_ + _$e3680_ + (let ((_$e3683_ (number? _x3675_))) + (if _$e3683_ + _$e3683_ + (let ((_$e3686_ (keyword? _x3675_))) + (if _$e3686_ + _$e3686_ + (let ((_$e3689_ (string? _x3675_))) + (if _$e3689_ + _$e3689_ + (let ((_$e3692_ (eq? _x3675_ '#!void))) + (if _$e3692_ + _$e3692_ + (dssl-object? _x3675_))))))))))))))) + (define gx#stx-boolean? (lambda (_e3673_) (boolean? (gx#stx-e _e3673_)))) + (define gx#stx-keyword? (lambda (_e3671_) (keyword? (gx#stx-e _e3671_)))) + (define gx#stx-char? (lambda (_e3669_) (char? (gx#stx-e _e3669_)))) + (define gx#stx-number? (lambda (_e3667_) (number? (gx#stx-e _e3667_)))) + (define gx#stx-fixnum? (lambda (_e3665_) (fixnum? (gx#stx-e _e3665_)))) + (define gx#stx-string? (lambda (_e3663_) (string? (gx#stx-e _e3663_)))) + (define gx#stx-null? (lambda (_e3661_) (null? (gx#stx-e _e3661_)))) + (define gx#stx-pair? (lambda (_e3659_) (pair? (gx#stx-e _e3659_)))) (define gx#stx-list? - (lambda (_e3543_) - (let ((_g35443553_ (gx#stx-e _e3543_))) - (let ((_E35473557_ - (lambda () (error '"No clause matching" _g35443553_)))) - (let ((_try-match35463568_ + (lambda (_e3619_) + (let ((_g36203629_ (gx#stx-e _e3619_))) + (let ((_E36233633_ + (lambda () (error '"No clause matching" _g36203629_)))) + (let ((_try-match36223644_ (lambda () - (let ((_K35483563_ - (lambda (_tail3561_) (null? _tail3561_)))) - (let ((_tail3566_ _g35443553_)) (null? _tail3566_)))))) - (let ((_K35493573_ - (lambda (_rest3571_) (gx#stx-list? _rest3571_)))) - (if (##pair? _g35443553_) - (let ((_hd35503576_ (##car _g35443553_)) - (_tl35513578_ (##cdr _g35443553_))) - (let ((_rest3581_ _tl35513578_)) - (gx#stx-list? _rest3581_))) - (_try-match35463568_)))))))) + (let ((_K36243639_ + (lambda (_tail3637_) (null? _tail3637_)))) + (let ((_tail3642_ _g36203629_)) (null? _tail3642_)))))) + (let ((_K36253649_ + (lambda (_rest3647_) (gx#stx-list? _rest3647_)))) + (if (##pair? _g36203629_) + (let ((_hd36263652_ (##car _g36203629_)) + (_tl36273654_ (##cdr _g36203629_))) + (let ((_rest3657_ _tl36273654_)) + (gx#stx-list? _rest3657_))) + (_try-match36223644_)))))))) (define gx#stx-pair/null? - (lambda (_e3536_) - (let ((_e3538_ (gx#stx-e _e3536_))) - (let ((_$e3540_ (pair? _e3538_))) - (if _$e3540_ _$e3540_ (null? _e3538_)))))) - (define gx#stx-vector? (lambda (_e3534_) (vector? (gx#stx-e _e3534_)))) - (define gx#stx-box? (lambda (_e3532_) (box? (gx#stx-e _e3532_)))) + (lambda (_e3612_) + (let ((_e3614_ (gx#stx-e _e3612_))) + (let ((_$e3616_ (pair? _e3614_))) + (if _$e3616_ _$e3616_ (null? _e3614_)))))) + (define gx#stx-vector? (lambda (_e3610_) (vector? (gx#stx-e _e3610_)))) + (define gx#stx-box? (lambda (_e3608_) (box? (gx#stx-e _e3608_)))) (define gx#stx-eq? - (lambda (_x3529_ _y3530_) (eq? (gx#stx-e _x3529_) (gx#stx-e _y3530_)))) + (lambda (_x3605_ _y3606_) (eq? (gx#stx-e _x3605_) (gx#stx-e _y3606_)))) (define gx#stx-eqv? - (lambda (_x3526_ _y3527_) (eqv? (gx#stx-e _x3526_) (gx#stx-e _y3527_)))) + (lambda (_x3602_ _y3603_) (eqv? (gx#stx-e _x3602_) (gx#stx-e _y3603_)))) (define gx#stx-equal? - (lambda (_x3523_ _y3524_) (equal? (gx#stx-e _x3523_) (gx#stx-e _y3524_)))) - (define gx#stx-false? (lambda (_x3521_) (not (gx#stx-e _x3521_)))) + (lambda (_x3599_ _y3600_) (equal? (gx#stx-e _x3599_) (gx#stx-e _y3600_)))) + (define gx#stx-false? (lambda (_x3597_) (not (gx#stx-e _x3597_)))) (define gx#stx-identifier - (lambda (_template3518_ . _args3519_) - (gx#datum->syntax__opt-lambda3705 - _template3518_ - (apply make-symbol (map gx#stx-e _args3519_)) - (gx#stx-source _template3518_)))) + (lambda (_template3594_ . _args3595_) + (gx#datum->syntax__opt-lambda3781 + _template3594_ + (apply make-symbol (map gx#stx-e _args3595_)) + (gx#stx-source _template3594_)))) (define gx#stx-identifier-marks - (lambda (_stx3514_) - (let ((_stx3516_ (gx#stx-unwrap__0 _stx3514_))) - (if (##structure-direct-instance-of? _stx3516_ 'gx#identifier-wrap::t) - (##structure-ref _stx3516_ '3 gx#identifier-wrap::t '#f) - (##structure-ref _stx3516_ '4 gx#syntax-quote::t '#f))))) + (lambda (_stx3590_) + (let ((_stx3592_ (gx#stx-unwrap__0 _stx3590_))) + (if (##structure-direct-instance-of? _stx3592_ 'gx#identifier-wrap::t) + (##structure-ref _stx3592_ '3 gx#identifier-wrap::t '#f) + (##structure-ref _stx3592_ '4 gx#syntax-quote::t '#f))))) (define gx#stx-identifier-context - (lambda (_stx3510_) - (let ((_stx3512_ (gx#stx-unwrap__0 _stx3510_))) - (if (gx#identifier-quote? _stx3512_) - (##structure-ref _stx3512_ '3 gx#syntax-quote::t '#f) + (lambda (_stx3586_) + (let ((_stx3588_ (gx#stx-unwrap__0 _stx3586_))) + (if (gx#identifier-quote? _stx3588_) + (##structure-ref _stx3588_ '3 gx#syntax-quote::t '#f) '#f)))) (define gx#identifier-list? - (lambda (_stx3465_) - (let ((_g34663476_ (gx#stx-e _stx3465_))) - (let ((_E34703480_ - (lambda () (error '"No clause matching" _g34663476_)))) - (let ((_else34693484_ (lambda () '#f))) - (let ((_try-match34683492_ + (lambda (_stx3541_) + (let ((_g35423552_ (gx#stx-e _stx3541_))) + (let ((_E35463556_ + (lambda () (error '"No clause matching" _g35423552_)))) + (let ((_else35453560_ (lambda () '#f))) + (let ((_try-match35443568_ (lambda () - (let ((_K34713489_ (lambda () '#t))) - (if (##null? _g34663476_) - (_K34713489_) - (_else34693484_)))))) - (let ((_K34723498_ - (lambda (_rest3495_ _hd3496_) - (if (gx#identifier? _hd3496_) - (gx#identifier-list? _rest3495_) + (let ((_K35473565_ (lambda () '#t))) + (if (##null? _g35423552_) + (_K35473565_) + (_else35453560_)))))) + (let ((_K35483574_ + (lambda (_rest3571_ _hd3572_) + (if (gx#identifier? _hd3572_) + (gx#identifier-list? _rest3571_) '#f)))) - (if (##pair? _g34663476_) - (let ((_hd34733501_ (##car _g34663476_)) - (_tl34743503_ (##cdr _g34663476_))) - (let ((_hd3506_ _hd34733501_)) - (let ((_rest3508_ _tl34743503_)) - (_K34723498_ _rest3508_ _hd3506_)))) - (_try-match34683492_))))))))) + (if (##pair? _g35423552_) + (let ((_hd35493577_ (##car _g35423552_)) + (_tl35503579_ (##cdr _g35423552_))) + (let ((_hd3582_ _hd35493577_)) + (let ((_rest3584_ _tl35503579_)) + (_K35483574_ _rest3584_ _hd3582_)))) + (_try-match35443568_))))))))) (begin - (define gx#genident__opt-lambda3440 - (lambda (_e3442_ _src3443_) + (define gx#genident__opt-lambda3516 + (lambda (_e3518_ _src3519_) (gx#stx-wrap-source - (gensym (let ((_e3445_ (gx#stx-e _e3442_))) - (if (interned-symbol? _e3445_) _e3445_ 'g))) - (let ((_$e3447_ (gx#stx-source _e3442_))) - (if _$e3447_ _$e3447_ _src3443_))))) + (gensym (let ((_e3521_ (gx#stx-e _e3518_))) + (if (interned-symbol? _e3521_) _e3521_ 'g))) + (let ((_$e3523_ (gx#stx-source _e3518_))) + (if _$e3523_ _$e3523_ _src3519_))))) (begin (define gx#genident__0 (lambda () - (let ((_e3454_ 'g)) - (let ((_src3456_ '#f)) - (gx#genident__opt-lambda3440 _e3454_ _src3456_))))) + (let ((_e3530_ 'g)) + (let ((_src3532_ '#f)) + (gx#genident__opt-lambda3516 _e3530_ _src3532_))))) (define gx#genident__1 - (lambda (_e3458_) - (let ((_src3460_ '#f)) - (gx#genident__opt-lambda3440 _e3458_ _src3460_)))) + (lambda (_e3534_) + (let ((_src3536_ '#f)) + (gx#genident__opt-lambda3516 _e3534_ _src3536_)))) (define gx#genident - (lambda _g3765_ - (let ((_g3764_ (length _g3765_))) - (cond ((fx= _g3764_ 0) (apply gx#genident__0 _g3765_)) - ((fx= _g3764_ 1) (apply gx#genident__1 _g3765_)) - ((fx= _g3764_ 2) (apply gx#genident__opt-lambda3440 _g3765_)) - (else (error "No clause matching arguments" _g3765_)))))))) + (lambda _g3841_ + (let ((_g3840_ (length _g3841_))) + (cond ((fx= _g3840_ 0) (apply gx#genident__0 _g3841_)) + ((fx= _g3840_ 1) (apply gx#genident__1 _g3841_)) + ((fx= _g3840_ 2) (apply gx#genident__opt-lambda3516 _g3841_)) + (else (error "No clause matching arguments" _g3841_)))))))) (define gx#gentemps - (lambda (_stx-lst3439_) (gx#stx-map1 gx#genident _stx-lst3439_))) - (define gx#syntax->list (lambda (_stx3437_) (gx#stx-map1 values _stx3437_))) - (define gx#stx-car (lambda (_stx3435_) (car (gx#syntax-e _stx3435_)))) - (define gx#stx-cdr (lambda (_stx3433_) (cdr (gx#syntax-e _stx3433_)))) + (lambda (_stx-lst3515_) (gx#stx-map1 gx#genident _stx-lst3515_))) + (define gx#syntax->list (lambda (_stx3513_) (gx#stx-map1 values _stx3513_))) + (define gx#stx-car (lambda (_stx3511_) (car (gx#syntax-e _stx3511_)))) + (define gx#stx-cdr (lambda (_stx3509_) (cdr (gx#syntax-e _stx3509_)))) (define gx#stx-length - (lambda (_stx3396_) - ((letrec ((_lp3398_ - (lambda (_rest3400_ _n3401_) - (let ((_g34023410_ (gx#stx-e _rest3400_))) - (let ((_E34053414_ + (lambda (_stx3472_) + ((letrec ((_lp3474_ + (lambda (_rest3476_ _n3477_) + (let ((_g34783486_ (gx#stx-e _rest3476_))) + (let ((_E34813490_ (lambda () - (error '"No clause matching" _g34023410_)))) - (let ((_else34043418_ (lambda () _n3401_))) - (let ((_K34063423_ - (lambda (_rest3421_) - (_lp3398_ _rest3421_ (fx+ _n3401_ '1))))) - (if (##pair? _g34023410_) - (let ((_hd34073426_ (##car _g34023410_)) - (_tl34083428_ (##cdr _g34023410_))) - (let ((_rest3431_ _tl34083428_)) - (_K34063423_ _rest3431_))) - (_else34043418_))))))))) - _lp3398_) - _stx3396_ + (error '"No clause matching" _g34783486_)))) + (let ((_else34803494_ (lambda () _n3477_))) + (let ((_K34823499_ + (lambda (_rest3497_) + (_lp3474_ _rest3497_ (fx+ _n3477_ '1))))) + (if (##pair? _g34783486_) + (let ((_hd34833502_ (##car _g34783486_)) + (_tl34843504_ (##cdr _g34783486_))) + (let ((_rest3507_ _tl34843504_)) + (_K34823499_ _rest3507_))) + (_else34803494_))))))))) + _lp3474_) + _stx3472_ '0))) (define gx#stx-for-each - (lambda _g3767_ - (let ((_g3766_ (length _g3767_))) - (cond ((fx= _g3766_ 2) (apply gx#stx-for-each1 _g3767_)) - ((fx= _g3766_ 3) (apply gx#stx-for-each2 _g3767_)) - (else (error "No clause matching arguments" _g3767_)))))) + (lambda _g3843_ + (let ((_g3842_ (length _g3843_))) + (cond ((fx= _g3842_ 2) (apply gx#stx-for-each1 _g3843_)) + ((fx= _g3842_ 3) (apply gx#stx-for-each2 _g3843_)) + (else (error "No clause matching arguments" _g3843_)))))) (define gx#stx-for-each1 - (lambda (_f3339_ _stx3340_) - ((letrec ((_lp3342_ - (lambda (_rest3344_) - (let ((_g33453355_ (gx#syntax-e _rest3344_))) - (let ((_E33493359_ + (lambda (_f3415_ _stx3416_) + ((letrec ((_lp3418_ + (lambda (_rest3420_) + (let ((_g34213431_ (gx#syntax-e _rest3420_))) + (let ((_E34253435_ (lambda () - (error '"No clause matching" _g33453355_)))) - (let ((_else33483363_ (lambda () (_f3339_ _rest3344_)))) - (let ((_try-match33473371_ + (error '"No clause matching" _g34213431_)))) + (let ((_else34243439_ (lambda () (_f3415_ _rest3420_)))) + (let ((_try-match34233447_ (lambda () - (let ((_K33503368_ (lambda () '#!void))) - (if (##null? _g33453355_) - (_K33503368_) - (_else33483363_)))))) - (let ((_K33513377_ - (lambda (_rest3374_ _hd3375_) + (let ((_K34263444_ (lambda () '#!void))) + (if (##null? _g34213431_) + (_K34263444_) + (_else34243439_)))))) + (let ((_K34273453_ + (lambda (_rest3450_ _hd3451_) (begin - (_f3339_ _hd3375_) - (_lp3342_ _rest3374_))))) - (if (##pair? _g33453355_) - (let ((_hd33523380_ (##car _g33453355_)) - (_tl33533382_ (##cdr _g33453355_))) - (let ((_hd3385_ _hd33523380_)) - (let ((_rest3387_ _tl33533382_)) - (_K33513377_ _rest3387_ _hd3385_)))) - (_try-match33473371_)))))))))) - _lp3342_) - _stx3340_))) + (_f3415_ _hd3451_) + (_lp3418_ _rest3450_))))) + (if (##pair? _g34213431_) + (let ((_hd34283456_ (##car _g34213431_)) + (_tl34293458_ (##cdr _g34213431_))) + (let ((_hd3461_ _hd34283456_)) + (let ((_rest3463_ _tl34293458_)) + (_K34273453_ _rest3463_ _hd3461_)))) + (_try-match34233447_)))))))))) + _lp3418_) + _stx3416_))) (define gx#stx-for-each2 - (lambda (_f3244_ _xstx3245_ _ystx3246_) - ((letrec ((_lp3248_ - (lambda (_xrest3250_ _yrest3251_) - (let ((_g32523262_ (gx#syntax-e _xrest3250_))) - (let ((_E32563266_ + (lambda (_f3320_ _xstx3321_ _ystx3322_) + ((letrec ((_lp3324_ + (lambda (_xrest3326_ _yrest3327_) + (let ((_g33283338_ (gx#syntax-e _xrest3326_))) + (let ((_E33323342_ (lambda () - (error '"No clause matching" _g32523262_)))) - (let ((_else32553270_ (lambda () '#!void))) - (let ((_try-match32543293_ + (error '"No clause matching" _g33283338_)))) + (let ((_else33313346_ (lambda () '#!void))) + (let ((_try-match33303369_ (lambda () - (let ((_K32573290_ + (let ((_K33333366_ (lambda () - (let ((_yrest32743279_ _yrest3251_)) - (let ((_E32763283_ + (let ((_yrest33503355_ _yrest3327_)) + (let ((_E33523359_ (lambda () (error '"No clause matching" - _yrest32743279_)))) - (let ((_K32773287_ + _yrest33503355_)))) + (let ((_K33533363_ (lambda () - (_f3244_ _xrest3250_ + (_f3320_ _xrest3326_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _yrest3251_)))) + _yrest3327_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (gx#stx-null? - _yrest32743279_)) - (_K32773287_) - (_E32763283_)))))))) - (if (not (null? _g32523262_)) - (_K32573290_) - (_else32553270_)))))) - (let ((_K32583327_ - (lambda (_xrest3296_ _xhd3297_) - (let ((_g32983305_ - (gx#syntax-e _yrest3251_))) - (let ((_E33003309_ + _yrest33503355_)) + (_K33533363_) + (_E33523359_)))))))) + (if (not (null? _g33283338_)) + (_K33333366_) + (_else33313346_)))))) + (let ((_K33343403_ + (lambda (_xrest3372_ _xhd3373_) + (let ((_g33743381_ + (gx#syntax-e _yrest3327_))) + (let ((_E33763385_ (lambda () (error '"No clause matching" - _g32983305_)))) - (let ((_K33013315_ - (lambda (_yrest3312_ _yhd3313_) + _g33743381_)))) + (let ((_K33773391_ + (lambda (_yrest3388_ _yhd3389_) (begin - (_f3244_ _xhd3297_ - _yhd3313_) - (_lp3248_ - _xrest3296_ - _yrest3312_))))) - (if (##pair? _g32983305_) - (let ((_hd33023318_ - (##car _g32983305_)) - (_tl33033320_ - (##cdr _g32983305_))) - (let ((_yhd3323_ _hd33023318_)) - (let ((_yrest3325_ - _tl33033320_)) - (_K33013315_ - _yrest3325_ - _yhd3323_)))) - (_E33003309_)))))))) - (if (##pair? _g32523262_) - (let ((_hd32593330_ (##car _g32523262_)) - (_tl32603332_ (##cdr _g32523262_))) - (let ((_xhd3335_ _hd32593330_)) - (let ((_xrest3337_ _tl32603332_)) - (_K32583327_ _xrest3337_ _xhd3335_)))) - (_try-match32543293_)))))))))) - _lp3248_) - _xstx3245_ - _ystx3246_))) + (_f3320_ _xhd3373_ + _yhd3389_) + (_lp3324_ + _xrest3372_ + _yrest3388_))))) + (if (##pair? _g33743381_) + (let ((_hd33783394_ + (##car _g33743381_)) + (_tl33793396_ + (##cdr _g33743381_))) + (let ((_yhd3399_ _hd33783394_)) + (let ((_yrest3401_ + _tl33793396_)) + (_K33773391_ + _yrest3401_ + _yhd3399_)))) + (_E33763385_)))))))) + (if (##pair? _g33283338_) + (let ((_hd33353406_ (##car _g33283338_)) + (_tl33363408_ (##cdr _g33283338_))) + (let ((_xhd3411_ _hd33353406_)) + (let ((_xrest3413_ _tl33363408_)) + (_K33343403_ _xrest3413_ _xhd3411_)))) + (_try-match33303369_)))))))))) + _lp3324_) + _xstx3321_ + _ystx3322_))) (define gx#stx-map - (lambda _g3769_ - (let ((_g3768_ (length _g3769_))) - (cond ((fx= _g3768_ 2) (apply gx#stx-map1 _g3769_)) - ((fx= _g3768_ 3) (apply gx#stx-map2 _g3769_)) - (else (error "No clause matching arguments" _g3769_)))))) + (lambda _g3845_ + (let ((_g3844_ (length _g3845_))) + (cond ((fx= _g3844_ 2) (apply gx#stx-map1 _g3845_)) + ((fx= _g3844_ 3) (apply gx#stx-map2 _g3845_)) + (else (error "No clause matching arguments" _g3845_)))))) (define gx#stx-map1 - (lambda (_f3187_ _stx3188_) - ((letrec ((_recur3190_ - (lambda (_rest3192_) - (let ((_g31933203_ (gx#syntax-e _rest3192_))) - (let ((_E31973207_ + (lambda (_f3263_ _stx3264_) + ((letrec ((_recur3266_ + (lambda (_rest3268_) + (let ((_g32693279_ (gx#syntax-e _rest3268_))) + (let ((_E32733283_ (lambda () - (error '"No clause matching" _g31933203_)))) - (let ((_else31963211_ (lambda () (_f3187_ _rest3192_)))) - (let ((_try-match31953219_ + (error '"No clause matching" _g32693279_)))) + (let ((_else32723287_ (lambda () (_f3263_ _rest3268_)))) + (let ((_try-match32713295_ (lambda () - (let ((_K31983216_ (lambda () '()))) - (if (##null? _g31933203_) - (_K31983216_) - (_else31963211_)))))) - (let ((_K31993225_ - (lambda (_rest3222_ _hd3223_) - (cons (_f3187_ _hd3223_) - (_recur3190_ _rest3222_))))) - (if (##pair? _g31933203_) - (let ((_hd32003228_ (##car _g31933203_)) - (_tl32013230_ (##cdr _g31933203_))) - (let ((_hd3233_ _hd32003228_)) - (let ((_rest3235_ _tl32013230_)) - (_K31993225_ _rest3235_ _hd3233_)))) - (_try-match31953219_)))))))))) - _recur3190_) - _stx3188_))) + (let ((_K32743292_ (lambda () '()))) + (if (##null? _g32693279_) + (_K32743292_) + (_else32723287_)))))) + (let ((_K32753301_ + (lambda (_rest3298_ _hd3299_) + (cons (_f3263_ _hd3299_) + (_recur3266_ _rest3298_))))) + (if (##pair? _g32693279_) + (let ((_hd32763304_ (##car _g32693279_)) + (_tl32773306_ (##cdr _g32693279_))) + (let ((_hd3309_ _hd32763304_)) + (let ((_rest3311_ _tl32773306_)) + (_K32753301_ _rest3311_ _hd3309_)))) + (_try-match32713295_)))))))))) + _recur3266_) + _stx3264_))) (define gx#stx-map2 - (lambda (_f3092_ _xstx3093_ _ystx3094_) - ((letrec ((_recur3096_ - (lambda (_xrest3098_ _yrest3099_) - (let ((_g31003110_ (gx#syntax-e _xrest3098_))) - (let ((_E31043114_ + (lambda (_f3168_ _xstx3169_ _ystx3170_) + ((letrec ((_recur3172_ + (lambda (_xrest3174_ _yrest3175_) + (let ((_g31763186_ (gx#syntax-e _xrest3174_))) + (let ((_E31803190_ (lambda () - (error '"No clause matching" _g31003110_)))) - (let ((_else31033118_ (lambda () '()))) - (let ((_try-match31023141_ + (error '"No clause matching" _g31763186_)))) + (let ((_else31793194_ (lambda () '()))) + (let ((_try-match31783217_ (lambda () - (let ((_K31053138_ + (let ((_K31813214_ (lambda () - (let ((_yrest31223127_ _yrest3099_)) - (let ((_E31243131_ + (let ((_yrest31983203_ _yrest3175_)) + (let ((_E32003207_ (lambda () (error '"No clause matching" - _yrest31223127_)))) - (let ((_K31253135_ + _yrest31983203_)))) + (let ((_K32013211_ (lambda () - (_f3092_ _xrest3098_ + (_f3168_ _xrest3174_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _yrest3099_)))) + _yrest3175_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (gx#stx-null? - _yrest31223127_)) - (_K31253135_) - (_E31243131_)))))))) - (if (not (null? _g31003110_)) - (_K31053138_) - (_else31033118_)))))) - (let ((_K31063175_ - (lambda (_xrest3144_ _xhd3145_) - (let ((_g31463153_ - (gx#syntax-e _yrest3099_))) - (let ((_E31483157_ + _yrest31983203_)) + (_K32013211_) + (_E32003207_)))))))) + (if (not (null? _g31763186_)) + (_K31813214_) + (_else31793194_)))))) + (let ((_K31823251_ + (lambda (_xrest3220_ _xhd3221_) + (let ((_g32223229_ + (gx#syntax-e _yrest3175_))) + (let ((_E32243233_ (lambda () (error '"No clause matching" - _g31463153_)))) - (let ((_K31493163_ - (lambda (_yrest3160_ _yhd3161_) - (cons (_f3092_ _xhd3145_ - _yhd3161_) - (_recur3096_ - _xrest3144_ - _yrest3160_))))) - (if (##pair? _g31463153_) - (let ((_hd31503166_ - (##car _g31463153_)) - (_tl31513168_ - (##cdr _g31463153_))) - (let ((_yhd3171_ _hd31503166_)) - (let ((_yrest3173_ - _tl31513168_)) - (_K31493163_ - _yrest3173_ - _yhd3171_)))) - (_E31483157_)))))))) - (if (##pair? _g31003110_) - (let ((_hd31073178_ (##car _g31003110_)) - (_tl31083180_ (##cdr _g31003110_))) - (let ((_xhd3183_ _hd31073178_)) - (let ((_xrest3185_ _tl31083180_)) - (_K31063175_ _xrest3185_ _xhd3183_)))) - (_try-match31023141_)))))))))) - _recur3096_) - _xstx3093_ - _ystx3094_))) + _g32223229_)))) + (let ((_K32253239_ + (lambda (_yrest3236_ _yhd3237_) + (cons (_f3168_ _xhd3221_ + _yhd3237_) + (_recur3172_ + _xrest3220_ + _yrest3236_))))) + (if (##pair? _g32223229_) + (let ((_hd32263242_ + (##car _g32223229_)) + (_tl32273244_ + (##cdr _g32223229_))) + (let ((_yhd3247_ _hd32263242_)) + (let ((_yrest3249_ + _tl32273244_)) + (_K32253239_ + _yrest3249_ + _yhd3247_)))) + (_E32243233_)))))))) + (if (##pair? _g31763186_) + (let ((_hd31833254_ (##car _g31763186_)) + (_tl31843256_ (##cdr _g31763186_))) + (let ((_xhd3259_ _hd31833254_)) + (let ((_xrest3261_ _tl31843256_)) + (_K31823251_ _xrest3261_ _xhd3259_)))) + (_try-match31783217_)))))))))) + _recur3172_) + _xstx3169_ + _ystx3170_))) (define gx#stx-andmap - (lambda (_f3042_ _stx3043_) - ((letrec ((_lp3045_ - (lambda (_rest3047_) - (let ((_g30483058_ (gx#syntax-e _rest3047_))) - (let ((_E30523062_ + (lambda (_f3118_ _stx3119_) + ((letrec ((_lp3121_ + (lambda (_rest3123_) + (let ((_g31243134_ (gx#syntax-e _rest3123_))) + (let ((_E31283138_ (lambda () - (error '"No clause matching" _g30483058_)))) - (let ((_else30513066_ (lambda () (_f3042_ _rest3047_)))) - (let ((_try-match30503074_ + (error '"No clause matching" _g31243134_)))) + (let ((_else31273142_ (lambda () (_f3118_ _rest3123_)))) + (let ((_try-match31263150_ (lambda () - (let ((_K30533071_ (lambda () '#t))) - (if (##null? _g30483058_) - (_K30533071_) - (_else30513066_)))))) - (let ((_K30543080_ - (lambda (_rest3077_ _hd3078_) - (if (_f3042_ _hd3078_) - (_lp3045_ _rest3077_) + (let ((_K31293147_ (lambda () '#t))) + (if (##null? _g31243134_) + (_K31293147_) + (_else31273142_)))))) + (let ((_K31303156_ + (lambda (_rest3153_ _hd3154_) + (if (_f3118_ _hd3154_) + (_lp3121_ _rest3153_) '#f)))) - (if (##pair? _g30483058_) - (let ((_hd30553083_ (##car _g30483058_)) - (_tl30563085_ (##cdr _g30483058_))) - (let ((_hd3088_ _hd30553083_)) - (let ((_rest3090_ _tl30563085_)) - (_K30543080_ _rest3090_ _hd3088_)))) - (_try-match30503074_)))))))))) - _lp3045_) - _stx3043_))) + (if (##pair? _g31243134_) + (let ((_hd31313159_ (##car _g31243134_)) + (_tl31323161_ (##cdr _g31243134_))) + (let ((_hd3164_ _hd31313159_)) + (let ((_rest3166_ _tl31323161_)) + (_K31303156_ _rest3166_ _hd3164_)))) + (_try-match31263150_)))))))))) + _lp3121_) + _stx3119_))) (define gx#stx-ormap - (lambda (_f2989_ _stx2990_) - ((letrec ((_lp2992_ - (lambda (_rest2994_) - (let ((_g29953005_ (gx#syntax-e _rest2994_))) - (let ((_E29993009_ + (lambda (_f3065_ _stx3066_) + ((letrec ((_lp3068_ + (lambda (_rest3070_) + (let ((_g30713081_ (gx#syntax-e _rest3070_))) + (let ((_E30753085_ (lambda () - (error '"No clause matching" _g29953005_)))) - (let ((_else29983013_ (lambda () (_f2989_ _rest2994_)))) - (let ((_try-match29973021_ + (error '"No clause matching" _g30713081_)))) + (let ((_else30743089_ (lambda () (_f3065_ _rest3070_)))) + (let ((_try-match30733097_ (lambda () - (let ((_K30003018_ (lambda () '#f))) - (if (##null? _g29953005_) - (_K30003018_) - (_else29983013_)))))) - (let ((_K30013030_ - (lambda (_rest3024_ _hd3025_) - (let ((_$e3027_ (_f2989_ _hd3025_))) - (if _$e3027_ - _$e3027_ - (_lp2992_ _rest3024_)))))) - (if (##pair? _g29953005_) - (let ((_hd30023033_ (##car _g29953005_)) - (_tl30033035_ (##cdr _g29953005_))) - (let ((_hd3038_ _hd30023033_)) - (let ((_rest3040_ _tl30033035_)) - (_K30013030_ _rest3040_ _hd3038_)))) - (_try-match29973021_)))))))))) - _lp2992_) - _stx2990_))) + (let ((_K30763094_ (lambda () '#f))) + (if (##null? _g30713081_) + (_K30763094_) + (_else30743089_)))))) + (let ((_K30773106_ + (lambda (_rest3100_ _hd3101_) + (let ((_$e3103_ (_f3065_ _hd3101_))) + (if _$e3103_ + _$e3103_ + (_lp3068_ _rest3100_)))))) + (if (##pair? _g30713081_) + (let ((_hd30783109_ (##car _g30713081_)) + (_tl30793111_ (##cdr _g30713081_))) + (let ((_hd3114_ _hd30783109_)) + (let ((_rest3116_ _tl30793111_)) + (_K30773106_ _rest3116_ _hd3114_)))) + (_try-match30733097_)))))))))) + _lp3068_) + _stx3066_))) (define gx#stx-foldl - (lambda (_f2937_ _iv2938_ _stx2939_) - ((letrec ((_lp2941_ - (lambda (_r2943_ _rest2944_) - (let ((_g29452955_ (gx#syntax-e _rest2944_))) - (let ((_E29492959_ + (lambda (_f3013_ _iv3014_ _stx3015_) + ((letrec ((_lp3017_ + (lambda (_r3019_ _rest3020_) + (let ((_g30213031_ (gx#syntax-e _rest3020_))) + (let ((_E30253035_ (lambda () - (error '"No clause matching" _g29452955_)))) - (let ((_else29482963_ - (lambda () (_f2937_ _rest2944_ _r2943_)))) - (let ((_try-match29472971_ + (error '"No clause matching" _g30213031_)))) + (let ((_else30243039_ + (lambda () (_f3013_ _rest3020_ _r3019_)))) + (let ((_try-match30233047_ (lambda () - (let ((_K29502968_ (lambda () _r2943_))) - (if (##null? _g29452955_) - (_K29502968_) - (_else29482963_)))))) - (let ((_K29512977_ - (lambda (_rest2974_ _hd2975_) - (_lp2941_ - (_f2937_ _hd2975_ _r2943_) - _rest2974_)))) - (if (##pair? _g29452955_) - (let ((_hd29522980_ (##car _g29452955_)) - (_tl29532982_ (##cdr _g29452955_))) - (let ((_hd2985_ _hd29522980_)) - (let ((_rest2987_ _tl29532982_)) - (_K29512977_ _rest2987_ _hd2985_)))) - (_try-match29472971_)))))))))) - _lp2941_) - _iv2938_ - _stx2939_))) + (let ((_K30263044_ (lambda () _r3019_))) + (if (##null? _g30213031_) + (_K30263044_) + (_else30243039_)))))) + (let ((_K30273053_ + (lambda (_rest3050_ _hd3051_) + (_lp3017_ + (_f3013_ _hd3051_ _r3019_) + _rest3050_)))) + (if (##pair? _g30213031_) + (let ((_hd30283056_ (##car _g30213031_)) + (_tl30293058_ (##cdr _g30213031_))) + (let ((_hd3061_ _hd30283056_)) + (let ((_rest3063_ _tl30293058_)) + (_K30273053_ _rest3063_ _hd3061_)))) + (_try-match30233047_)))))))))) + _lp3017_) + _iv3014_ + _stx3015_))) (define gx#stx-foldr - (lambda (_f2886_ _iv2887_ _stx2888_) - ((letrec ((_recur2890_ - (lambda (_rest2892_) - (let ((_g28932903_ (gx#syntax-e _rest2892_))) - (let ((_E28972907_ + (lambda (_f2962_ _iv2963_ _stx2964_) + ((letrec ((_recur2966_ + (lambda (_rest2968_) + (let ((_g29692979_ (gx#syntax-e _rest2968_))) + (let ((_E29732983_ (lambda () - (error '"No clause matching" _g28932903_)))) - (let ((_else28962911_ - (lambda () (_f2886_ _rest2892_ _iv2887_)))) - (let ((_try-match28952919_ + (error '"No clause matching" _g29692979_)))) + (let ((_else29722987_ + (lambda () (_f2962_ _rest2968_ _iv2963_)))) + (let ((_try-match29712995_ (lambda () - (let ((_K28982916_ (lambda () _iv2887_))) - (if (##null? _g28932903_) - (_K28982916_) - (_else28962911_)))))) - (let ((_K28992925_ - (lambda (_rest2922_ _hd2923_) - (_f2886_ _hd2923_ - (_recur2890_ _rest2922_))))) - (if (##pair? _g28932903_) - (let ((_hd29002928_ (##car _g28932903_)) - (_tl29012930_ (##cdr _g28932903_))) - (let ((_hd2933_ _hd29002928_)) - (let ((_rest2935_ _tl29012930_)) - (_K28992925_ _rest2935_ _hd2933_)))) - (_try-match28952919_)))))))))) - _recur2890_) - _stx2888_))) + (let ((_K29742992_ (lambda () _iv2963_))) + (if (##null? _g29692979_) + (_K29742992_) + (_else29722987_)))))) + (let ((_K29753001_ + (lambda (_rest2998_ _hd2999_) + (_f2962_ _hd2999_ + (_recur2966_ _rest2998_))))) + (if (##pair? _g29692979_) + (let ((_hd29763004_ (##car _g29692979_)) + (_tl29773006_ (##cdr _g29692979_))) + (let ((_hd3009_ _hd29763004_)) + (let ((_rest3011_ _tl29773006_)) + (_K29753001_ _rest3011_ _hd3009_)))) + (_try-match29712995_)))))))))) + _recur2966_) + _stx2964_))) (define gx#stx-reverse - (lambda (_stx2884_) (gx#stx-foldl cons '() _stx2884_))) + (lambda (_stx2960_) (gx#stx-foldl cons '() _stx2960_))) (define gx#stx-last - (lambda (_stx2845_) - ((letrec ((_lp2847_ - (lambda (_rest2849_) - (let ((_g28502858_ (gx#syntax-e _rest2849_))) - (let ((_E28532862_ + (lambda (_stx2921_) + ((letrec ((_lp2923_ + (lambda (_rest2925_) + (let ((_g29262934_ (gx#syntax-e _rest2925_))) + (let ((_E29292938_ (lambda () - (error '"No clause matching" _g28502858_)))) - (let ((_else28522866_ (lambda () _rest2849_))) - (let ((_K28542872_ - (lambda (_rest2869_ _hd2870_) - (if (gx#stx-null? _rest2869_) - _hd2870_ - (_lp2847_ _rest2869_))))) - (if (##pair? _g28502858_) - (let ((_hd28552875_ (##car _g28502858_)) - (_tl28562877_ (##cdr _g28502858_))) - (let ((_hd2880_ _hd28552875_)) - (let ((_rest2882_ _tl28562877_)) - (_K28542872_ _rest2882_ _hd2880_)))) - (_else28522866_))))))))) - _lp2847_) - _stx2845_))) + (error '"No clause matching" _g29262934_)))) + (let ((_else29282942_ (lambda () _rest2925_))) + (let ((_K29302948_ + (lambda (_rest2945_ _hd2946_) + (if (gx#stx-null? _rest2945_) + _hd2946_ + (_lp2923_ _rest2945_))))) + (if (##pair? _g29262934_) + (let ((_hd29312951_ (##car _g29262934_)) + (_tl29322953_ (##cdr _g29262934_))) + (let ((_hd2956_ _hd29312951_)) + (let ((_rest2958_ _tl29322953_)) + (_K29302948_ _rest2958_ _hd2956_)))) + (_else29282942_))))))))) + _lp2923_) + _stx2921_))) (define gx#stx-last-pair - (lambda (_stx2814_) - ((letrec ((_lp2816_ - (lambda (_hd2818_) - (let ((_g28192826_ (gx#syntax-e _hd2818_))) - (let ((_E28212830_ + (lambda (_stx2890_) + ((letrec ((_lp2892_ + (lambda (_hd2894_) + (let ((_g28952902_ (gx#syntax-e _hd2894_))) + (let ((_E28972906_ (lambda () - (error '"No clause matching" _g28192826_)))) - (let ((_K28222835_ - (lambda (_rest2833_) - (if (gx#stx-pair? _rest2833_) - (_lp2816_ _rest2833_) - _hd2818_)))) - (if (##pair? _g28192826_) - (let ((_hd28232838_ (##car _g28192826_)) - (_tl28242840_ (##cdr _g28192826_))) - (let ((_rest2843_ _tl28242840_)) - (_K28222835_ _rest2843_))) - (_E28212830_)))))))) - _lp2816_) - _stx2814_))) + (error '"No clause matching" _g28952902_)))) + (let ((_K28982911_ + (lambda (_rest2909_) + (if (gx#stx-pair? _rest2909_) + (_lp2892_ _rest2909_) + _hd2894_)))) + (if (##pair? _g28952902_) + (let ((_hd28992914_ (##car _g28952902_)) + (_tl29002916_ (##cdr _g28952902_))) + (let ((_rest2919_ _tl29002916_)) + (_K28982911_ _rest2919_))) + (_E28972906_)))))))) + _lp2892_) + _stx2890_))) (define gx#stx-list-tail - (lambda (_stx2781_ _k2782_) - ((letrec ((_lp2784_ - (lambda (_rest2786_ _k2787_) - (if (fxpositive? _k2787_) - (let ((_g27882795_ (gx#syntax-e _rest2786_))) - (let ((_E27902799_ + (lambda (_stx2857_ _k2858_) + ((letrec ((_lp2860_ + (lambda (_rest2862_ _k2863_) + (if (fxpositive? _k2863_) + (let ((_g28642871_ (gx#syntax-e _rest2862_))) + (let ((_E28662875_ (lambda () - (error '"No clause matching" _g27882795_)))) - (let ((_K27912804_ - (lambda (_rest2802_) - (_lp2784_ _rest2802_ (fx- _k2787_ '1))))) - (if (##pair? _g27882795_) - (let ((_hd27922807_ (##car _g27882795_)) - (_tl27932809_ (##cdr _g27882795_))) - (let ((_rest2812_ _tl27932809_)) - (_K27912804_ _rest2812_))) - (_E27902799_))))) - _rest2786_)))) - _lp2784_) - _stx2781_ - _k2782_))) + (error '"No clause matching" _g28642871_)))) + (let ((_K28672880_ + (lambda (_rest2878_) + (_lp2860_ _rest2878_ (fx- _k2863_ '1))))) + (if (##pair? _g28642871_) + (let ((_hd28682883_ (##car _g28642871_)) + (_tl28692885_ (##cdr _g28642871_))) + (let ((_rest2888_ _tl28692885_)) + (_K28672880_ _rest2888_))) + (_E28662875_))))) + _rest2862_)))) + _lp2860_) + _stx2857_ + _k2858_))) (define gx#stx-list-ref - (lambda (_stx2778_ _k2779_) - (gx#stx-car (gx#stx-list-tail _stx2778_ _k2779_)))) + (lambda (_stx2854_ _k2855_) + (gx#stx-car (gx#stx-list-tail _stx2854_ _k2855_)))) (begin - (define gx#stx-plist?__opt-lambda2686 - (lambda (_stx2688_ _key?2689_) - ((letrec ((_lp2691_ - (lambda (_rest2693_) - (let ((_g26942704_ (gx#stx-e _rest2693_))) - (let ((_E26982708_ + (define gx#stx-plist?__opt-lambda2762 + (lambda (_stx2764_ _key?2765_) + ((letrec ((_lp2767_ + (lambda (_rest2769_) + (let ((_g27702780_ (gx#stx-e _rest2769_))) + (let ((_E27742784_ (lambda () - (error '"No clause matching" _g26942704_)))) - (let ((_else26972712_ (lambda () '#f))) - (let ((_try-match26962720_ + (error '"No clause matching" _g27702780_)))) + (let ((_else27732788_ (lambda () '#f))) + (let ((_try-match27722796_ (lambda () - (let ((_K26992717_ (lambda () '#t))) - (if (##null? _g26942704_) - (_K26992717_) - (_else26972712_)))))) - (let ((_K27002756_ - (lambda (_rest2723_ _hd2724_) - (if (_key?2689_ _hd2724_) - (let ((_g27252733_ - (gx#stx-e _rest2723_))) - (let ((_E27282737_ + (let ((_K27752793_ (lambda () '#t))) + (if (##null? _g27702780_) + (_K27752793_) + (_else27732788_)))))) + (let ((_K27762832_ + (lambda (_rest2799_ _hd2800_) + (if (_key?2765_ _hd2800_) + (let ((_g28012809_ + (gx#stx-e _rest2799_))) + (let ((_E28042813_ (lambda () (error '"No clause matching" - _g27252733_)))) - (let ((_else27272741_ + _g28012809_)))) + (let ((_else28032817_ (lambda () '#f))) - (let ((_K27292746_ - (lambda (_rest2744_) - (_lp2691_ - _rest2744_)))) - (if (##pair? _g27252733_) - (let ((_hd27302749_ - (##car _g27252733_)) - (_tl27312751_ - (##cdr _g27252733_))) - (let ((_rest2754_ - _tl27312751_)) - (_K27292746_ - _rest2754_))) - (_else27272741_)))))) + (let ((_K28052822_ + (lambda (_rest2820_) + (_lp2767_ + _rest2820_)))) + (if (##pair? _g28012809_) + (let ((_hd28062825_ + (##car _g28012809_)) + (_tl28072827_ + (##cdr _g28012809_))) + (let ((_rest2830_ + _tl28072827_)) + (_K28052822_ + _rest2830_))) + (_else28032817_)))))) '#f)))) - (if (##pair? _g26942704_) - (let ((_hd27012759_ (##car _g26942704_)) - (_tl27022761_ (##cdr _g26942704_))) - (let ((_hd2764_ _hd27012759_)) - (let ((_rest2766_ _tl27022761_)) - (_K27002756_ _rest2766_ _hd2764_)))) - (_try-match26962720_)))))))))) - _lp2691_) - _stx2688_))) + (if (##pair? _g27702780_) + (let ((_hd27772835_ (##car _g27702780_)) + (_tl27782837_ (##cdr _g27702780_))) + (let ((_hd2840_ _hd27772835_)) + (let ((_rest2842_ _tl27782837_)) + (_K27762832_ _rest2842_ _hd2840_)))) + (_try-match27722796_)))))))))) + _lp2767_) + _stx2764_))) (begin (define gx#stx-plist?__0 - (lambda (_stx2771_) - (let ((_key?2773_ gx#stx-keyword?)) - (gx#stx-plist?__opt-lambda2686 _stx2771_ _key?2773_)))) + (lambda (_stx2847_) + (let ((_key?2849_ gx#stx-keyword?)) + (gx#stx-plist?__opt-lambda2762 _stx2847_ _key?2849_)))) (define gx#stx-plist? - (lambda _g3771_ - (let ((_g3770_ (length _g3771_))) - (cond ((fx= _g3770_ 1) (apply gx#stx-plist?__0 _g3771_)) - ((fx= _g3770_ 2) - (apply gx#stx-plist?__opt-lambda2686 _g3771_)) - (else (error "No clause matching arguments" _g3771_)))))))) + (lambda _g3847_ + (let ((_g3846_ (length _g3847_))) + (cond ((fx= _g3846_ 1) (apply gx#stx-plist?__0 _g3847_)) + ((fx= _g3846_ 2) + (apply gx#stx-plist?__opt-lambda2762 _g3847_)) + (else (error "No clause matching arguments" _g3847_)))))))) (begin - (define gx#stx-getq__opt-lambda2604 - (lambda (_key2606_ _stx2607_ _key=?2608_) - ((letrec ((_lp2610_ - (lambda (_rest2612_) - (let ((_g26132621_ (gx#syntax-e _rest2612_))) - (let ((_E26162625_ + (define gx#stx-getq__opt-lambda2680 + (lambda (_key2682_ _stx2683_ _key=?2684_) + ((letrec ((_lp2686_ + (lambda (_rest2688_) + (let ((_g26892697_ (gx#syntax-e _rest2688_))) + (let ((_E26922701_ (lambda () - (error '"No clause matching" _g26132621_)))) - (let ((_else26152629_ (lambda () '#f))) - (let ((_K26172663_ - (lambda (_rest2632_ _hd2633_) - (let ((_g26342641_ - (gx#syntax-e _rest2632_))) - (let ((_E26362645_ + (error '"No clause matching" _g26892697_)))) + (let ((_else26912705_ (lambda () '#f))) + (let ((_K26932739_ + (lambda (_rest2708_ _hd2709_) + (let ((_g27102717_ + (gx#syntax-e _rest2708_))) + (let ((_E27122721_ (lambda () (error '"No clause matching" - _g26342641_)))) - (let ((_K26372651_ - (lambda (_rest2648_ _val2649_) - (if (_key=?2608_ - _hd2633_ - _key2606_) - _val2649_ - (_lp2610_ _rest2648_))))) - (if (##pair? _g26342641_) - (let ((_hd26382654_ - (##car _g26342641_)) - (_tl26392656_ - (##cdr _g26342641_))) - (let ((_val2659_ _hd26382654_)) - (let ((_rest2661_ - _tl26392656_)) - (_K26372651_ - _rest2661_ - _val2659_)))) - (_E26362645_)))))))) - (if (##pair? _g26132621_) - (let ((_hd26182666_ (##car _g26132621_)) - (_tl26192668_ (##cdr _g26132621_))) - (let ((_hd2671_ _hd26182666_)) - (let ((_rest2673_ _tl26192668_)) - (_K26172663_ _rest2673_ _hd2671_)))) - (_else26152629_))))))))) - _lp2610_) - _stx2607_))) + _g27102717_)))) + (let ((_K27132727_ + (lambda (_rest2724_ _val2725_) + (if (_key=?2684_ + _hd2709_ + _key2682_) + _val2725_ + (_lp2686_ _rest2724_))))) + (if (##pair? _g27102717_) + (let ((_hd27142730_ + (##car _g27102717_)) + (_tl27152732_ + (##cdr _g27102717_))) + (let ((_val2735_ _hd27142730_)) + (let ((_rest2737_ + _tl27152732_)) + (_K27132727_ + _rest2737_ + _val2735_)))) + (_E27122721_)))))))) + (if (##pair? _g26892697_) + (let ((_hd26942742_ (##car _g26892697_)) + (_tl26952744_ (##cdr _g26892697_))) + (let ((_hd2747_ _hd26942742_)) + (let ((_rest2749_ _tl26952744_)) + (_K26932739_ _rest2749_ _hd2747_)))) + (_else26912705_))))))))) + _lp2686_) + _stx2683_))) (begin (define gx#stx-getq__0 - (lambda (_key2678_ _stx2679_) - (let ((_key=?2681_ gx#stx-eq?)) - (gx#stx-getq__opt-lambda2604 _key2678_ _stx2679_ _key=?2681_)))) + (lambda (_key2754_ _stx2755_) + (let ((_key=?2757_ gx#stx-eq?)) + (gx#stx-getq__opt-lambda2680 _key2754_ _stx2755_ _key=?2757_)))) (define gx#stx-getq - (lambda _g3773_ - (let ((_g3772_ (length _g3773_))) - (cond ((fx= _g3772_ 2) (apply gx#stx-getq__0 _g3773_)) - ((fx= _g3772_ 3) (apply gx#stx-getq__opt-lambda2604 _g3773_)) - (else (error "No clause matching arguments" _g3773_))))))))) + (lambda _g3849_ + (let ((_g3848_ (length _g3849_))) + (cond ((fx= _g3848_ 2) (apply gx#stx-getq__0 _g3849_)) + ((fx= _g3848_ 3) (apply gx#stx-getq__opt-lambda2680 _g3849_)) + (else (error "No clause matching arguments" _g3849_))))))))) diff --git a/src/bootstrap/gerbil/expander/stx__1.scm b/src/bootstrap/gerbil/expander/stx__1.scm index c1bc834b4..5059a36e7 100644 --- a/src/bootstrap/gerbil/expander/stx__1.scm +++ b/src/bootstrap/gerbil/expander/stx__1.scm @@ -1,47 +1,47 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define |gx[1]#_g3774_| (gx#core-quote-syntax 'identifier-wrap::t)) - (define |gx[1]#_g3775_| (gx#core-quote-syntax 'AST::t)) - (define |gx[1]#_g3776_| (gx#core-quote-syntax 'identifier-wrap::t)) - (define |gx[1]#_g3777_| (gx#core-quote-syntax 'make-identifier-wrap)) - (define |gx[1]#_g3778_| (gx#core-quote-syntax 'identifier-wrap?)) - (define |gx[1]#_g3779_| (gx#core-quote-syntax 'identifier-wrap-marks)) - (define |gx[1]#_g3780_| (gx#core-quote-syntax 'identifier-wrap-marks-set!)) - (define |gx[1]#_g3781_| (gx#core-quote-syntax 'AST)) - (define |gx[1]#_g3782_| (gx#core-quote-syntax 'syntax-wrap::t)) - (define |gx[1]#_g3783_| (gx#core-quote-syntax 'AST::t)) - (define |gx[1]#_g3784_| (gx#core-quote-syntax 'syntax-wrap::t)) - (define |gx[1]#_g3785_| (gx#core-quote-syntax 'make-syntax-wrap)) - (define |gx[1]#_g3786_| (gx#core-quote-syntax 'syntax-wrap?)) - (define |gx[1]#_g3787_| (gx#core-quote-syntax 'syntax-wrap-mark)) - (define |gx[1]#_g3788_| (gx#core-quote-syntax 'syntax-wrap-mark-set!)) - (define |gx[1]#_g3789_| (gx#core-quote-syntax 'AST)) - (define |gx[1]#_g3790_| (gx#core-quote-syntax 'syntax-quote::t)) - (define |gx[1]#_g3791_| (gx#core-quote-syntax 'AST::t)) - (define |gx[1]#_g3792_| (gx#core-quote-syntax 'syntax-quote::t)) - (define |gx[1]#_g3793_| (gx#core-quote-syntax 'make-syntax-quote)) - (define |gx[1]#_g3794_| (gx#core-quote-syntax 'syntax-quote?)) - (define |gx[1]#_g3795_| (gx#core-quote-syntax 'syntax-quote-context)) - (define |gx[1]#_g3796_| (gx#core-quote-syntax 'syntax-quote-marks)) - (define |gx[1]#_g3797_| (gx#core-quote-syntax 'syntax-quote-context-set!)) - (define |gx[1]#_g3798_| (gx#core-quote-syntax 'syntax-quote-marks-set!)) - (define |gx[1]#_g3799_| (gx#core-quote-syntax 'AST)) + (define |gx[1]#_g3850_| (gx#core-quote-syntax 'identifier-wrap::t)) + (define |gx[1]#_g3851_| (gx#core-quote-syntax 'AST::t)) + (define |gx[1]#_g3852_| (gx#core-quote-syntax 'identifier-wrap::t)) + (define |gx[1]#_g3853_| (gx#core-quote-syntax 'make-identifier-wrap)) + (define |gx[1]#_g3854_| (gx#core-quote-syntax 'identifier-wrap?)) + (define |gx[1]#_g3855_| (gx#core-quote-syntax 'identifier-wrap-marks)) + (define |gx[1]#_g3856_| (gx#core-quote-syntax 'identifier-wrap-marks-set!)) + (define |gx[1]#_g3857_| (gx#core-quote-syntax 'AST)) + (define |gx[1]#_g3858_| (gx#core-quote-syntax 'syntax-wrap::t)) + (define |gx[1]#_g3859_| (gx#core-quote-syntax 'AST::t)) + (define |gx[1]#_g3860_| (gx#core-quote-syntax 'syntax-wrap::t)) + (define |gx[1]#_g3861_| (gx#core-quote-syntax 'make-syntax-wrap)) + (define |gx[1]#_g3862_| (gx#core-quote-syntax 'syntax-wrap?)) + (define |gx[1]#_g3863_| (gx#core-quote-syntax 'syntax-wrap-mark)) + (define |gx[1]#_g3864_| (gx#core-quote-syntax 'syntax-wrap-mark-set!)) + (define |gx[1]#_g3865_| (gx#core-quote-syntax 'AST)) + (define |gx[1]#_g3866_| (gx#core-quote-syntax 'syntax-quote::t)) + (define |gx[1]#_g3867_| (gx#core-quote-syntax 'AST::t)) + (define |gx[1]#_g3868_| (gx#core-quote-syntax 'syntax-quote::t)) + (define |gx[1]#_g3869_| (gx#core-quote-syntax 'make-syntax-quote)) + (define |gx[1]#_g3870_| (gx#core-quote-syntax 'syntax-quote?)) + (define |gx[1]#_g3871_| (gx#core-quote-syntax 'syntax-quote-context)) + (define |gx[1]#_g3872_| (gx#core-quote-syntax 'syntax-quote-marks)) + (define |gx[1]#_g3873_| (gx#core-quote-syntax 'syntax-quote-context-set!)) + (define |gx[1]#_g3874_| (gx#core-quote-syntax 'syntax-quote-marks-set!)) + (define |gx[1]#_g3875_| (gx#core-quote-syntax 'AST)) (begin (define |gx[:0:]#identifier-wrap| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g3774_| + |gx[1]#_g3850_| 'expander-identifiers: - (cons |gx[1]#_g3775_| - (cons |gx[1]#_g3776_| - (cons |gx[1]#_g3777_| - (cons |gx[1]#_g3778_| - (cons (cons |gx[1]#_g3779_| '()) - (cons (cons |gx[1]#_g3780_| '()) '())))))) + (cons |gx[1]#_g3851_| + (cons |gx[1]#_g3852_| + (cons |gx[1]#_g3853_| + (cons |gx[1]#_g3854_| + (cons (cons |gx[1]#_g3855_| '()) + (cons (cons |gx[1]#_g3856_| '()) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#identifier-wrap::t - |gx[1]#_g3781_| + |gx[1]#_g3857_| 'syntax '#f '((final: . #t)) @@ -49,18 +49,18 @@ (define |gx[:0:]#syntax-wrap| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g3782_| + |gx[1]#_g3858_| 'expander-identifiers: - (cons |gx[1]#_g3783_| - (cons |gx[1]#_g3784_| - (cons |gx[1]#_g3785_| - (cons |gx[1]#_g3786_| - (cons (cons |gx[1]#_g3787_| '()) - (cons (cons |gx[1]#_g3788_| '()) '())))))) + (cons |gx[1]#_g3859_| + (cons |gx[1]#_g3860_| + (cons |gx[1]#_g3861_| + (cons |gx[1]#_g3862_| + (cons (cons |gx[1]#_g3863_| '()) + (cons (cons |gx[1]#_g3864_| '()) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#syntax-wrap::t - |gx[1]#_g3789_| + |gx[1]#_g3865_| 'syntax '#f '((final: . #t)) @@ -68,21 +68,21 @@ (define |gx[:0:]#syntax-quote| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g3790_| + |gx[1]#_g3866_| 'expander-identifiers: - (cons |gx[1]#_g3791_| - (cons |gx[1]#_g3792_| - (cons |gx[1]#_g3793_| - (cons |gx[1]#_g3794_| - (cons (cons |gx[1]#_g3795_| - (cons |gx[1]#_g3796_| '())) - (cons (cons |gx[1]#_g3797_| - (cons |gx[1]#_g3798_| '())) + (cons |gx[1]#_g3867_| + (cons |gx[1]#_g3868_| + (cons |gx[1]#_g3869_| + (cons |gx[1]#_g3870_| + (cons (cons |gx[1]#_g3871_| + (cons |gx[1]#_g3872_| '())) + (cons (cons |gx[1]#_g3873_| + (cons |gx[1]#_g3874_| '())) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#syntax-quote::t - |gx[1]#_g3799_| + |gx[1]#_g3875_| 'syntax '#f '((final: . #t)) diff --git a/src/bootstrap/gerbil/expander/stxcase.ssi b/src/bootstrap/gerbil/expander/stxcase.ssi index 5fa157a93..8c147a476 100644 --- a/src/bootstrap/gerbil/expander/stxcase.ssi +++ b/src/bootstrap/gerbil/expander/stxcase.ssi @@ -26,8 +26,8 @@ namespace: gx gx#syntax-pattern::apply-macro-expander) (%#define-runtime macro-expand-syntax gx#macro-expand-syntax) (%#begin (%#define-runtime - macro-expand-syntax-case__opt-lambda12629 - gx#macro-expand-syntax-case__opt-lambda12629) + macro-expand-syntax-case__opt-lambda12705 + gx#macro-expand-syntax-case__opt-lambda12705) (%#begin (%#define-runtime macro-expand-syntax-case__0 gx#macro-expand-syntax-case__0) diff --git a/src/bootstrap/gerbil/expander/stxcase.ssxi.ss b/src/bootstrap/gerbil/expander/stxcase.ssxi.ss index 6e82b97c2..e736c05e5 100644 --- a/src/bootstrap/gerbil/expander/stxcase.ssxi.ss +++ b/src/bootstrap/gerbil/expander/stxcase.ssxi.ss @@ -26,4 +26,4 @@ package: gerbil/expander (1 gx#macro-expand-syntax-case__0) (2 gx#macro-expand-syntax-case__1) (3 gx#macro-expand-syntax-case__2) - (4 gx#macro-expand-syntax-case__opt-lambda12629)))) + (4 gx#macro-expand-syntax-case__opt-lambda12705)))) diff --git a/src/bootstrap/gerbil/expander/stxcase__0.scm b/src/bootstrap/gerbil/expander/stxcase__0.scm index 55095e307..8e0c9c050 100644 --- a/src/bootstrap/gerbil/expander/stxcase__0.scm +++ b/src/bootstrap/gerbil/expander/stxcase__0.scm @@ -10,8 +10,8 @@ '#f)) (define gx#syntax-pattern? (make-struct-predicate gx#syntax-pattern::t)) (define gx#make-syntax-pattern - (lambda _$args13753_ - (apply make-struct-instance gx#syntax-pattern::t _$args13753_))) + (lambda _$args13829_ + (apply make-struct-instance gx#syntax-pattern::t _$args13829_))) (define gx#syntax-pattern-id (make-struct-field-accessor gx#syntax-pattern::t '0)) (define gx#syntax-pattern-depth @@ -21,1693 +21,1693 @@ (define gx#syntax-pattern-depth-set! (make-struct-field-mutator gx#syntax-pattern::t '1)) (define gx#syntax-pattern::apply-macro-expander - (lambda (_self13750_ _stx13751_) + (lambda (_self13826_ _stx13827_) (gx#raise-syntax-error '#f '"Identifier used out of context" - _stx13751_))) + _stx13827_))) (bind-method! gx#syntax-pattern::t 'apply-macro-expander gx#syntax-pattern::apply-macro-expander '#f) (define gx#macro-expand-syntax - (lambda (_stx13359_) - (let ((_generate13361_ - (lambda (_e13588_) - (let ((_BUG13590_ - (lambda (_q13748_) + (lambda (_stx13435_) + (let ((_generate13437_ + (lambda (_e13664_) + (let ((_BUG13666_ + (lambda (_q13824_) (error '"BUG: syntax; generate" - _stx13359_ - _e13588_ - _q13748_)))) - (let ((_local-pattern-e13591_ - (lambda (_pat13746_) + _stx13435_ + _e13664_ + _q13824_)))) + (let ((_local-pattern-e13667_ + (lambda (_pat13822_) (gx#syntax-local-rewrap (##structure-ref - _pat13746_ + _pat13822_ '2 gx#syntax-pattern::t '#f))))) - (let ((_getvar13592_ - (lambda (_q13743_ _vars13744_) - (assgetq _q13743_ _vars13744_ _BUG13590_)))) - (let ((_getarg13593_ - (lambda (_arg13709_ _vars13710_) - (let ((_arg1371113718_ _arg13709_)) - (let ((_E1371313722_ + (let ((_getvar13668_ + (lambda (_q13819_ _vars13820_) + (assgetq _q13819_ _vars13820_ _BUG13666_)))) + (let ((_getarg13669_ + (lambda (_arg13785_ _vars13786_) + (let ((_arg1378713794_ _arg13785_)) + (let ((_E1378913798_ (lambda () (error '"No clause matching" - _arg1371113718_)))) - (let ((_K1371413731_ - (lambda (_e13725_ _tag13726_) - (let ((_$e13728_ _tag13726_)) - (if (eq? _$e13728_ 'ref) - (_getvar13592_ - _e13725_ - _vars13710_) - (if (eq? _$e13728_ 'pattern) - (_local-pattern-e13591_ - _e13725_) - (_BUG13590_ - _arg13709_))))))) - (if (##pair? _arg1371113718_) - (let ((_hd1371513734_ - (##car _arg1371113718_)) - (_tl1371613736_ - (##cdr _arg1371113718_))) - (let ((_tag13739_ _hd1371513734_)) - (let ((_e13741_ _tl1371613736_)) - (_K1371413731_ - _e13741_ - _tag13739_)))) - (_E1371313722_)))))))) - ((letrec ((_recur13595_ - (lambda (_e13597_ _vars13598_) - (let ((_e1359913606_ _e13597_)) - (let ((_E1360113610_ + _arg1378713794_)))) + (let ((_K1379013807_ + (lambda (_e13801_ _tag13802_) + (let ((_$e13804_ _tag13802_)) + (if (eq? _$e13804_ 'ref) + (_getvar13668_ + _e13801_ + _vars13786_) + (if (eq? _$e13804_ 'pattern) + (_local-pattern-e13667_ + _e13801_) + (_BUG13666_ + _arg13785_))))))) + (if (##pair? _arg1378713794_) + (let ((_hd1379113810_ + (##car _arg1378713794_)) + (_tl1379213812_ + (##cdr _arg1378713794_))) + (let ((_tag13815_ _hd1379113810_)) + (let ((_e13817_ _tl1379213812_)) + (_K1379013807_ + _e13817_ + _tag13815_)))) + (_E1378913798_)))))))) + ((letrec ((_recur13671_ + (lambda (_e13673_ _vars13674_) + (let ((_e1367513682_ _e13673_)) + (let ((_E1367713686_ (lambda () (error '"No clause matching" - _e1359913606_)))) - (let ((_K1360213697_ - (lambda (_body13613_ _tag13614_) - (let ((_$e13616_ _tag13614_)) - (if (eq? _$e13616_ 'datum) + _e1367513682_)))) + (let ((_K1367813773_ + (lambda (_body13689_ _tag13690_) + (let ((_$e13692_ _tag13690_)) + (if (eq? _$e13692_ 'datum) (gx#core-list 'quote - _body13613_) - (if (eq? _$e13616_ + _body13689_) + (if (eq? _$e13692_ 'term) (gx#core-list 'datum->syntax '#f (gx#core-list 'quote - _body13613_)) - (if (eq? _$e13616_ + _body13689_)) + (if (eq? _$e13692_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'pattern) - (_local-pattern-e13591_ _body13613_) - (if (eq? _$e13616_ 'ref) - (_getvar13592_ _body13613_ _vars13598_) - (if (eq? _$e13616_ 'cons) + (_local-pattern-e13667_ _body13689_) + (if (eq? _$e13692_ 'ref) + (_getvar13668_ _body13689_ _vars13674_) + (if (eq? _$e13692_ 'cons) (gx#core-list 'cons - (_recur13595_ (car _body13613_) _vars13598_) - (_recur13595_ (cdr _body13613_) _vars13598_)) - (if (eq? _$e13616_ 'vector) + (_recur13671_ (car _body13689_) _vars13674_) + (_recur13671_ (cdr _body13689_) _vars13674_)) + (if (eq? _$e13692_ 'vector) (gx#core-list 'list->vector - (_recur13595_ _body13613_ _vars13598_)) - (if (eq? _$e13616_ 'box) + (_recur13671_ _body13689_ _vars13674_)) + (if (eq? _$e13692_ 'box) (gx#core-list 'box - (_recur13595_ _body13613_ _vars13598_)) - (if (eq? _$e13616_ 'splice) - (let ((_body1361813629_ - _body13613_)) - (let ((_E1362013633_ + (_recur13671_ _body13689_ _vars13674_)) + (if (eq? _$e13692_ 'splice) + (let ((_body1369413705_ + _body13689_)) + (let ((_E1369613709_ (lambda () (error '"No clause matching" - _body1361813629_)))) - (let ((_K1362113671_ - (lambda (_args13636_ - _iv13637_ - _hd13638_ - _depth13639_) - (let ((_targets13645_ - (map (lambda (_g1364013642_) + _body1369413705_)))) + (let ((_K1369713747_ + (lambda (_args13712_ + _iv13713_ + _hd13714_ + _depth13715_) + (let ((_targets13721_ + (map (lambda (_g1371613718_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_getarg13593_ _g1364013642_ _vars13598_)) - _args13636_))) - (let ((_fold-in13647_ (gx#gentemps _args13636_))) - (let ((_fold-out13649_ (gx#genident__0))) - (let ((_lambda-args13651_ + (_getarg13669_ _g1371613718_ _vars13674_)) + _args13712_))) + (let ((_fold-in13723_ (gx#gentemps _args13712_))) + (let ((_fold-out13725_ (gx#genident__0))) + (let ((_lambda-args13727_ (foldr1 cons - (cons _fold-out13649_ '()) - _fold-in13647_))) - (let ((_lambda-body13668_ - (if (fx> _depth13639_ '1) - (let ((_r-args13659_ - (map (lambda (_arg13653_) - (cons 'ref (cdr _arg13653_))) - _args13636_)) - (_r-vars13660_ - (foldr (lambda (_arg13655_ - _var13656_ - _r13657_) - (cons (cons (cdr _arg13655_) - _var13656_) - _r13657_)) - _vars13598_ - _args13636_ - _fold-in13647_))) - (_recur13595_ + (cons _fold-out13725_ '()) + _fold-in13723_))) + (let ((_lambda-body13744_ + (if (fx> _depth13715_ '1) + (let ((_r-args13735_ + (map (lambda (_arg13729_) + (cons 'ref (cdr _arg13729_))) + _args13712_)) + (_r-vars13736_ + (foldr (lambda (_arg13731_ + _var13732_ + _r13733_) + (cons (cons (cdr _arg13731_) + _var13732_) + _r13733_)) + _vars13674_ + _args13712_ + _fold-in13723_))) + (_recur13671_ (cons* 'splice - (fx- _depth13639_ '1) - _hd13638_ - (cons 'var _fold-out13649_) - _r-args13659_) - _r-vars13660_)) - (let ((_hd-vars13666_ - (foldr (lambda (_arg13662_ - _var13663_ - _r13664_) - (cons (cons (cdr _arg13662_) - _var13663_) - _r13664_)) - _vars13598_ - _args13636_ - _fold-in13647_))) + (fx- _depth13715_ '1) + _hd13714_ + (cons 'var _fold-out13725_) + _r-args13735_) + _r-vars13736_)) + (let ((_hd-vars13742_ + (foldr (lambda (_arg13738_ + _var13739_ + _r13740_) + (cons (cons (cdr _arg13738_) + _var13739_) + _r13740_)) + _vars13674_ + _args13712_ + _fold-in13723_))) (gx#core-list 'cons - (_recur13595_ _hd13638_ _hd-vars13666_) - _fold-out13649_))))) + (_recur13671_ _hd13714_ _hd-vars13742_) + _fold-out13725_))))) (let () (gx#core-list 'begin - (if (fx> (length _targets13645_) '1) + (if (fx> (length _targets13721_) '1) (gx#core-cons* 'syntax-check-splice-targets - _targets13645_) + _targets13721_) '#!void) (gx#core-cons* 'foldr (gx#core-list 'lambda% - _lambda-args13651_ - _lambda-body13668_) - (_recur13595_ _iv13637_ _vars13598_) - _targets13645_))))))))))) + _lambda-args13727_ + _lambda-body13744_) + (_recur13671_ _iv13713_ _vars13674_) + _targets13721_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _body1361813629_) - (let ((_hd1362213674_ - (##car _body1361813629_)) - (_tl1362313676_ - (##cdr _body1361813629_))) - (let ((_depth13679_ - _hd1362213674_)) - (if (##pair? _tl1362313676_) - (let ((_hd1362413681_ + (if (##pair? _body1369413705_) + (let ((_hd1369813750_ + (##car _body1369413705_)) + (_tl1369913752_ + (##cdr _body1369413705_))) + (let ((_depth13755_ + _hd1369813750_)) + (if (##pair? _tl1369913752_) + (let ((_hd1370013757_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _tl1362313676_)) - (_tl1362513683_ (##cdr _tl1362313676_))) - (let ((_hd13686_ _hd1362413681_)) - (if (##pair? _tl1362513683_) - (let ((_hd1362613688_ (##car _tl1362513683_)) - (_tl1362713690_ (##cdr _tl1362513683_))) - (let ((_iv13693_ _hd1362613688_)) - (let ((_args13695_ _tl1362713690_)) - (_K1362113671_ - _args13695_ - _iv13693_ - _hd13686_ - _depth13679_)))) - (_E1362013633_)))) - (_E1362013633_)))) + (##car _tl1369913752_)) + (_tl1370113759_ (##cdr _tl1369913752_))) + (let ((_hd13762_ _hd1370013757_)) + (if (##pair? _tl1370113759_) + (let ((_hd1370213764_ (##car _tl1370113759_)) + (_tl1370313766_ (##cdr _tl1370113759_))) + (let ((_iv13769_ _hd1370213764_)) + (let ((_args13771_ _tl1370313766_)) + (_K1369713747_ + _args13771_ + _iv13769_ + _hd13762_ + _depth13755_)))) + (_E1369613709_)))) + (_E1369613709_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1362013633_))))) - (if (eq? _$e13616_ 'var) - _body13613_ - (_BUG13590_ - _e13597_)))))))))))))) + (_E1369613709_))))) + (if (eq? _$e13692_ 'var) + _body13689_ + (_BUG13666_ + _e13673_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _e1359913606_) - (let ((_hd1360313700_ - (##car _e1359913606_)) - (_tl1360413702_ - (##cdr _e1359913606_))) - (let ((_tag13705_ - _hd1360313700_)) - (let ((_body13707_ - _tl1360413702_)) - (_K1360213697_ - _body13707_ - _tag13705_)))) - (_E1360113610_)))))))) - _recur13595_) - _e13588_ + (if (##pair? _e1367513682_) + (let ((_hd1367913776_ + (##car _e1367513682_)) + (_tl1368013778_ + (##cdr _e1367513682_))) + (let ((_tag13781_ + _hd1367913776_)) + (let ((_body13783_ + _tl1368013778_)) + (_K1367813773_ + _body13783_ + _tag13781_)))) + (_E1367713686_)))))))) + _recur13671_) + _e13664_ '())))))))) - (let ((_parse13362_ - (lambda (_e13403_) - (let ((_make-cons13405_ - (lambda (_hd13580_ _tl13581_) - (let ((_g13765_ _hd13580_) (_g13767_ _tl13581_)) + (let ((_parse13438_ + (lambda (_e13479_) + (let ((_make-cons13481_ + (lambda (_hd13656_ _tl13657_) + (let ((_g13841_ _hd13656_) (_g13843_ _tl13657_)) (begin - (let ((_g13766_ (values-count _g13765_))) - (if (not (fx= _g13766_ 2)) + (let ((_g13842_ (values-count _g13841_))) + (if (not (fx= _g13842_ 2)) (error "Context expects 2 values" - _g13766_))) - (let ((_g13768_ (values-count _g13767_))) - (if (not (fx= _g13768_ 2)) + _g13842_))) + (let ((_g13844_ (values-count _g13843_))) + (if (not (fx= _g13844_ 2)) (error "Context expects 2 values" - _g13768_))) - (let ((_hd-e13583_ (values-ref _g13765_ 0)) - (_hd-vars13584_ (values-ref _g13765_ 1))) - (let ((_tl-e13585_ (values-ref _g13767_ 0)) - (_tl-vars13586_ (values-ref _g13767_ 1))) - (values (cons* 'cons _hd-e13583_ _tl-e13585_) - (append _hd-vars13584_ - _tl-vars13586_))))))))) - (let ((_make-splice13406_ - (lambda (_where13519_ - _depth13520_ - _hd13521_ - _tl13522_) - (let ((_g13761_ _hd13521_) (_g13763_ _tl13522_)) + _g13844_))) + (let ((_hd-e13659_ (values-ref _g13841_ 0)) + (_hd-vars13660_ (values-ref _g13841_ 1))) + (let ((_tl-e13661_ (values-ref _g13843_ 0)) + (_tl-vars13662_ (values-ref _g13843_ 1))) + (values (cons* 'cons _hd-e13659_ _tl-e13661_) + (append _hd-vars13660_ + _tl-vars13662_))))))))) + (let ((_make-splice13482_ + (lambda (_where13595_ + _depth13596_ + _hd13597_ + _tl13598_) + (let ((_g13837_ _hd13597_) (_g13839_ _tl13598_)) (begin - (let ((_g13762_ (values-count _g13761_))) - (if (not (fx= _g13762_ 2)) + (let ((_g13838_ (values-count _g13837_))) + (if (not (fx= _g13838_ 2)) (error "Context expects 2 values" - _g13762_))) - (let ((_g13764_ (values-count _g13763_))) - (if (not (fx= _g13764_ 2)) + _g13838_))) + (let ((_g13840_ (values-count _g13839_))) + (if (not (fx= _g13840_ 2)) (error "Context expects 2 values" - _g13764_))) - (let ((_hd-e13524_ (values-ref _g13761_ 0)) - (_hd-vars13525_ (values-ref _g13761_ 1))) - (let ((_tl-e13526_ (values-ref _g13763_ 0)) - (_tl-vars13527_ - (values-ref _g13763_ 1))) - ((letrec ((_lp13529_ - (lambda (_rest13531_ - _targets13532_ - _vars13533_) - (let ((_rest1353413544_ - _rest13531_)) - (let ((_E1353713548_ + _g13840_))) + (let ((_hd-e13600_ (values-ref _g13837_ 0)) + (_hd-vars13601_ (values-ref _g13837_ 1))) + (let ((_tl-e13602_ (values-ref _g13839_ 0)) + (_tl-vars13603_ + (values-ref _g13839_ 1))) + ((letrec ((_lp13605_ + (lambda (_rest13607_ + _targets13608_ + _vars13609_) + (let ((_rest1361013620_ + _rest13607_)) + (let ((_E1361313624_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _rest1353413544_)))) + _rest1361013620_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_else1353613552_ + (let ((_else1361213628_ (lambda () - (if (null? _targets13532_) + (if (null? _targets13608_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _stx13359_ - _where13519_) + _stx13435_ + _where13595_) (values (cons* 'splice - _depth13520_ - _hd-e13524_ - _tl-e13526_ - _targets13532_) - _vars13533_))))) - (let ((_K1353813561_ - (lambda (_rest13555_ _hd-pat13556_ _hd-depth*13557_) - (let ((_hd-depth13559_ - (fx- _hd-depth*13557_ _depth13520_))) - (if (fxpositive? _hd-depth13559_) - (_lp13529_ - _rest13555_ - (cons (cons 'ref _hd-pat13556_) _targets13532_) - (cons (cons _hd-depth13559_ _hd-pat13556_) - _vars13533_)) - (if (fxzero? _hd-depth13559_) - (_lp13529_ - _rest13555_ - (cons (cons 'pattern _hd-pat13556_) - _targets13532_) - _vars13533_) + _depth13596_ + _hd-e13600_ + _tl-e13602_ + _targets13608_) + _vars13609_))))) + (let ((_K1361413637_ + (lambda (_rest13631_ _hd-pat13632_ _hd-depth*13633_) + (let ((_hd-depth13635_ + (fx- _hd-depth*13633_ _depth13596_))) + (if (fxpositive? _hd-depth13635_) + (_lp13605_ + _rest13631_ + (cons (cons 'ref _hd-pat13632_) _targets13608_) + (cons (cons _hd-depth13635_ _hd-pat13632_) + _vars13609_)) + (if (fxzero? _hd-depth13635_) + (_lp13605_ + _rest13631_ + (cons (cons 'pattern _hd-pat13632_) + _targets13608_) + _vars13609_) (gx#raise-syntax-error '#f '"Too many ellipses" - _stx13359_ - _where13519_))))))) - (if (##pair? _rest1353413544_) - (let ((_hd1353913564_ (##car _rest1353413544_)) - (_tl1354013566_ (##cdr _rest1353413544_))) - (if (##pair? _hd1353913564_) - (let ((_hd1354113569_ (##car _hd1353913564_)) - (_tl1354213571_ (##cdr _hd1353913564_))) - (let ((_hd-depth*13574_ _hd1354113569_)) - (let ((_hd-pat13576_ _tl1354213571_)) - (let ((_rest13578_ _tl1354013566_)) - (_K1353813561_ - _rest13578_ - _hd-pat13576_ - _hd-depth*13574_))))) - (_else1353613552_))) - (_else1353613552_))))))))) + _stx13435_ + _where13595_))))))) + (if (##pair? _rest1361013620_) + (let ((_hd1361513640_ (##car _rest1361013620_)) + (_tl1361613642_ (##cdr _rest1361013620_))) + (if (##pair? _hd1361513640_) + (let ((_hd1361713645_ (##car _hd1361513640_)) + (_tl1361813647_ (##cdr _hd1361513640_))) + (let ((_hd-depth*13650_ _hd1361713645_)) + (let ((_hd-pat13652_ _tl1361813647_)) + (let ((_rest13654_ _tl1361613642_)) + (_K1361413637_ + _rest13654_ + _hd-pat13652_ + _hd-depth*13650_))))) + (_else1361213628_))) + (_else1361213628_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _lp13529_) - _hd-vars13525_ + _lp13605_) + _hd-vars13601_ '() - _tl-vars13527_)))))))) - (letrec ((_recur13407_ - (lambda (_e13412_ _is-e?13413_) - (if (_is-e?13413_ _e13412_) + _tl-vars13603_)))))))) + (letrec ((_recur13483_ + (lambda (_e13488_ _is-e?13489_) + (if (_is-e?13489_ _e13488_) (gx#raise-syntax-error '#f '"Mislpaced ellipsis" - _stx13359_) - (if (gx#syntax-local-pattern? _e13412_) - (let ((_pat13415_ + _stx13435_) + (if (gx#syntax-local-pattern? _e13488_) + (let ((_pat13491_ (gx#syntax-local-e__0 - _e13412_))) - (let ((_depth13417_ + _e13488_))) + (let ((_depth13493_ (##structure-ref - _pat13415_ + _pat13491_ '3 gx#syntax-pattern::t '#f))) (let () - (if (fxpositive? _depth13417_) + (if (fxpositive? _depth13493_) (values (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pat13415_) - (cons (cons _depth13417_ _pat13415_) '())) + _pat13491_) + (cons (cons _depth13493_ _pat13491_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (values (cons 'pattern ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pat13415_) + _pat13491_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#identifier? _e13412_) - (values (cons 'term _e13412_) '()) - (if (gx#stx-pair? _e13412_) - (let ((_e1341913426_ - _e13412_)) - (let ((_E1342113430_ + (if (gx#identifier? _e13488_) + (values (cons 'term _e13488_) '()) + (if (gx#stx-pair? _e13488_) + (let ((_e1349513502_ + _e13488_)) + (let ((_E1349713506_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e1341913426_)))) - (let ((_E1342013509_ + _e1349513502_)))) + (let ((_E1349613585_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e1341913426_) - (let ((_e1342213434_ (gx#syntax-e _e1341913426_))) - (let ((_hd1342313437_ (##car _e1342213434_)) - (_tl1342413439_ (##cdr _e1342213434_))) - (let ((_hd13442_ _hd1342313437_)) - (let ((_rest13444_ _tl1342413439_)) + _e1349513502_) + (let ((_e1349813510_ (gx#syntax-e _e1349513502_))) + (let ((_hd1349913513_ (##car _e1349813510_)) + (_tl1350013515_ (##cdr _e1349813510_))) + (let ((_hd13518_ _hd1349913513_)) + (let ((_rest13520_ _tl1350013515_)) (if '#t - (if (_is-e?13413_ _hd13442_) - (let ((_e1344513452_ _rest13444_)) - (let ((_E1344713456_ + (if (_is-e?13489_ _hd13518_) + (let ((_e1352113528_ _rest13520_)) + (let ((_E1352313532_ (lambda () (gx#raise-syntax-error '#f '"Bad ellipsis syntax" - _stx13359_ - _e13412_)))) - (let ((_E1344613470_ + _stx13435_ + _e13488_)))) + (let ((_E1352213546_ (lambda () (if (gx#stx-pair? - _e1344513452_) - (let ((_e1344813460_ + _e1352113528_) + (let ((_e1352413536_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e1344513452_))) - (let ((_hd1344913463_ (##car _e1344813460_)) - (_tl1345013465_ (##cdr _e1344813460_))) - (let ((_rest13468_ _hd1344913463_)) - (if (gx#stx-null? _tl1345013465_) + (gx#syntax-e _e1352113528_))) + (let ((_hd1352513539_ (##car _e1352413536_)) + (_tl1352613541_ (##cdr _e1352413536_))) + (let ((_rest13544_ _hd1352513539_)) + (if (gx#stx-null? _tl1352613541_) (if '#t - (_recur13407_ _rest13468_ false) - (_E1344713456_)) - (_E1344713456_))))) - (_E1344713456_))))) + (_recur13483_ _rest13544_ false) + (_E1352313532_)) + (_E1352313532_))))) + (_E1352313532_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () (_E1344613470_))))) - ((letrec ((_lp13474_ - (lambda (_rest13476_ - _depth13477_) - (let ((_e1347813485_ - _rest13476_)) - (let ((_E1348013489_ + (let () (_E1352213546_))))) + ((letrec ((_lp13550_ + (lambda (_rest13552_ + _depth13553_) + (let ((_e1355413561_ + _rest13552_)) + (let ((_E1355613565_ (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (fxpositive? _depth13477_) - (_make-splice13406_ - _e13412_ - _depth13477_ - (_recur13407_ _hd13442_ _is-e?13413_) - (_recur13407_ _rest13476_ _is-e?13413_)) - (_make-cons13405_ - (_recur13407_ _hd13442_ _is-e?13413_) - (_recur13407_ _rest13476_ _is-e?13413_)))))) - (let ((_E1347913505_ + (if (fxpositive? _depth13553_) + (_make-splice13482_ + _e13488_ + _depth13553_ + (_recur13483_ _hd13518_ _is-e?13489_) + (_recur13483_ _rest13552_ _is-e?13489_)) + (_make-cons13481_ + (_recur13483_ _hd13518_ _is-e?13489_) + (_recur13483_ _rest13552_ _is-e?13489_)))))) + (let ((_E1355513581_ (lambda () - (if (gx#stx-pair? _e1347813485_) - (let ((_e1348113493_ - (gx#syntax-e _e1347813485_))) - (let ((_hd1348213496_ (##car _e1348113493_)) - (_tl1348313498_ (##cdr _e1348113493_))) - (let ((_rest-hd13501_ _hd1348213496_)) - (let ((_rest-tl13503_ _tl1348313498_)) + (if (gx#stx-pair? _e1355413561_) + (let ((_e1355713569_ + (gx#syntax-e _e1355413561_))) + (let ((_hd1355813572_ (##car _e1355713569_)) + (_tl1355913574_ (##cdr _e1355713569_))) + (let ((_rest-hd13577_ _hd1355813572_)) + (let ((_rest-tl13579_ _tl1355913574_)) (if '#t - (if (_is-e?13413_ _rest-hd13501_) - (_lp13474_ - _rest-tl13503_ - (fx+ _depth13477_ '1)) - (if (fxpositive? _depth13477_) - (_make-splice13406_ - _e13412_ - _depth13477_ - (_recur13407_ - _hd13442_ - _is-e?13413_) - (_recur13407_ - _rest13476_ - _is-e?13413_)) - (_make-cons13405_ - (_recur13407_ - _hd13442_ - _is-e?13413_) - (_recur13407_ - _rest13476_ - _is-e?13413_)))) - (_E1348013489_)))))) - (_E1348013489_))))) - (let () (_E1347913505_)))))))) + (if (_is-e?13489_ _rest-hd13577_) + (_lp13550_ + _rest-tl13579_ + (fx+ _depth13553_ '1)) + (if (fxpositive? _depth13553_) + (_make-splice13482_ + _e13488_ + _depth13553_ + (_recur13483_ + _hd13518_ + _is-e?13489_) + (_recur13483_ + _rest13552_ + _is-e?13489_)) + (_make-cons13481_ + (_recur13483_ + _hd13518_ + _is-e?13489_) + (_recur13483_ + _rest13552_ + _is-e?13489_)))) + (_E1355613565_)))))) + (_E1355613565_))))) + (let () (_E1355513581_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _lp13474_) - _rest13444_ + _lp13550_) + _rest13520_ '0)) - (_E1342113430_)))))) - (_E1342113430_))))) - (let () (_E1342013509_))))) + (_E1349713506_)))))) + (_E1349713506_))))) + (let () (_E1349613585_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-vector? _e13412_) - (let ((_g13755_ - (_recur13407_ + (if (gx#stx-vector? _e13488_) + (let ((_g13831_ + (_recur13483_ (vector->list (gx#stx-unwrap__0 - _e13412_)) - _is-e?13413_))) + _e13488_)) + _is-e?13489_))) (begin - (let ((_g13756_ + (let ((_g13832_ (values-count ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g13755_))) - (if (not (fx= _g13756_ 2)) - (error "Context expects 2 values" _g13756_))) - (let ((_e13513_ (values-ref _g13755_ 0)) - (_vars13514_ (values-ref _g13755_ 1))) - (values (cons 'vector _e13513_) _vars13514_)))) + _g13831_))) + (if (not (fx= _g13832_ 2)) + (error "Context expects 2 values" _g13832_))) + (let ((_e13589_ (values-ref _g13831_ 0)) + (_vars13590_ (values-ref _g13831_ 1))) + (values (cons 'vector _e13589_) _vars13590_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-box? _e13412_) - (let ((_g13757_ - (_recur13407_ + (if (gx#stx-box? _e13488_) + (let ((_g13833_ + (_recur13483_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (unbox (gx#stx-unwrap__0 _e13412_)) - _is-e?13413_))) + (unbox (gx#stx-unwrap__0 _e13488_)) + _is-e?13489_))) (begin - (let ((_g13758_ (values-count _g13757_))) - (if (not (fx= _g13758_ 2)) - (error "Context expects 2 values" _g13758_))) - (let ((_e13516_ (values-ref _g13757_ 0)) - (_vars13517_ (values-ref _g13757_ 1))) - (values (cons 'box _e13516_) _vars13517_)))) - (values (cons 'datum _e13412_) '())))))))))) + (let ((_g13834_ (values-count _g13833_))) + (if (not (fx= _g13834_ 2)) + (error "Context expects 2 values" _g13834_))) + (let ((_e13592_ (values-ref _g13833_ 0)) + (_vars13593_ (values-ref _g13833_ 1))) + (values (cons 'box _e13592_) _vars13593_)))) + (values (cons 'datum _e13488_) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g13759_ (_recur13407_ _e13403_ gx#ellipsis?))) + (let ((_g13835_ (_recur13483_ _e13479_ gx#ellipsis?))) (begin - (let ((_g13760_ (values-count _g13759_))) - (if (not (fx= _g13760_ 2)) - (error "Context expects 2 values" _g13760_))) - (let ((_tree13409_ (values-ref _g13759_ 0)) - (_vars13410_ (values-ref _g13759_ 1))) - (if (null? _vars13410_) - _tree13409_ + (let ((_g13836_ (values-count _g13835_))) + (if (not (fx= _g13836_ 2)) + (error "Context expects 2 values" _g13836_))) + (let ((_tree13485_ (values-ref _g13835_ 0)) + (_vars13486_ (values-ref _g13835_ 1))) + (if (null? _vars13486_) + _tree13485_ (gx#raise-syntax-error '#f '"Missing ellipsis" - _stx13359_ - _vars13410_))))))))))) - (let ((_e1336313373_ _stx13359_)) - (let ((_E1336513377_ + _stx13435_ + _vars13486_))))))))))) + (let ((_e1343913449_ _stx13435_)) + (let ((_E1344113453_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _stx13359_)))) - (let ((_E1336413399_ + (gx#raise-syntax-error '#f '"Bad syntax" _stx13435_)))) + (let ((_E1344013475_ (lambda () - (if (gx#stx-pair? _e1336313373_) - (let ((_e1336613381_ (gx#syntax-e _e1336313373_))) - (let ((_hd1336713384_ (##car _e1336613381_)) - (_tl1336813386_ (##cdr _e1336613381_))) - (if (gx#stx-pair? _tl1336813386_) - (let ((_e1336913389_ - (gx#syntax-e _tl1336813386_))) - (let ((_hd1337013392_ - (##car _e1336913389_)) - (_tl1337113394_ - (##cdr _e1336913389_))) - (let ((_form13397_ _hd1337013392_)) - (if (gx#stx-null? _tl1337113394_) + (if (gx#stx-pair? _e1343913449_) + (let ((_e1344213457_ (gx#syntax-e _e1343913449_))) + (let ((_hd1344313460_ (##car _e1344213457_)) + (_tl1344413462_ (##cdr _e1344213457_))) + (if (gx#stx-pair? _tl1344413462_) + (let ((_e1344513465_ + (gx#syntax-e _tl1344413462_))) + (let ((_hd1344613468_ + (##car _e1344513465_)) + (_tl1344713470_ + (##cdr _e1344513465_))) + (let ((_form13473_ _hd1344613468_)) + (if (gx#stx-null? _tl1344713470_) (if '#t (gx#stx-wrap-source - (_generate13361_ - (_parse13362_ _form13397_)) - (gx#stx-source _stx13359_)) - (_E1336513377_)) - (_E1336513377_))))) - (_E1336513377_)))) - (_E1336513377_))))) - (let () (_E1336413399_))))))))) + (_generate13437_ + (_parse13438_ _form13473_)) + (gx#stx-source _stx13435_)) + (_E1344113453_)) + (_E1344113453_))))) + (_E1344113453_)))) + (_E1344113453_))))) + (let () (_E1344013475_))))))))) (begin - (define gx#macro-expand-syntax-case__opt-lambda12629 - (lambda (_stx12631_ _identifier=?12632_ _unwrap-e12633_ _wrap-e12634_) - (let ((_generate-body12637_ - (lambda (_bindings13181_ _body13182_) - ((letrec ((_recur13184_ - (lambda (_rest13186_) - (let ((_rest1318713195_ _rest13186_)) - (let ((_E1319013199_ + (define gx#macro-expand-syntax-case__opt-lambda12705 + (lambda (_stx12707_ _identifier=?12708_ _unwrap-e12709_ _wrap-e12710_) + (let ((_generate-body12713_ + (lambda (_bindings13257_ _body13258_) + ((letrec ((_recur13260_ + (lambda (_rest13262_) + (let ((_rest1326313271_ _rest13262_)) + (let ((_E1326613275_ (lambda () (error '"No clause matching" - _rest1318713195_)))) - (let ((_else1318913203_ - (lambda () _body13182_))) - (let ((_K1319113209_ - (lambda (_rest13206_ _hd13207_) + _rest1326313271_)))) + (let ((_else1326513279_ + (lambda () _body13258_))) + (let ((_K1326713285_ + (lambda (_rest13282_ _hd13283_) (gx#core-list 'let-values - (cons _hd13207_ '()) - (_recur13184_ _rest13206_))))) - (if (##pair? _rest1318713195_) - (let ((_hd1319213212_ - (##car _rest1318713195_)) - (_tl1319313214_ - (##cdr _rest1318713195_))) - (let ((_hd13217_ _hd1319213212_)) - (let ((_rest13219_ - _tl1319313214_)) - (_K1319113209_ - _rest13219_ - _hd13217_)))) - (_else1318913203_))))))))) - _recur13184_) - _bindings13181_)))) - (let ((_generate-match12639_ - (lambda (_where12803_ - _target12804_ - _hd12805_ - _mvars12806_ - _K12807_ - _E12808_) - (let ((_BUG12810_ - (lambda (_q13042_) + (cons _hd13283_ '()) + (_recur13260_ _rest13282_))))) + (if (##pair? _rest1326313271_) + (let ((_hd1326813288_ + (##car _rest1326313271_)) + (_tl1326913290_ + (##cdr _rest1326313271_))) + (let ((_hd13293_ _hd1326813288_)) + (let ((_rest13295_ + _tl1326913290_)) + (_K1326713285_ + _rest13295_ + _hd13293_)))) + (_else1326513279_))))))))) + _recur13260_) + _bindings13257_)))) + (let ((_generate-match12715_ + (lambda (_where12879_ + _target12880_ + _hd12881_ + _mvars12882_ + _K12883_ + _E12884_) + (let ((_BUG12886_ + (lambda (_q13118_) (error '"BUG: syntax-case; generate" - _stx12631_ - _hd12805_ - _q13042_)))) - (let ((_splice-rlen12812_ - (lambda (_e12858_) - ((letrec ((_lp12860_ - (lambda (_e12862_ _n12863_) - (let ((_e1286412871_ _e12862_)) - (let ((_E1286612875_ + _stx12707_ + _hd12881_ + _q13118_)))) + (let ((_splice-rlen12888_ + (lambda (_e12934_) + ((letrec ((_lp12936_ + (lambda (_e12938_ _n12939_) + (let ((_e1294012947_ _e12938_)) + (let ((_E1294212951_ (lambda () (error '"No clause matching" - _e1286412871_)))) - (let ((_K1286712884_ - (lambda (_body12878_ - _tag12879_) - (let ((_$e12881_ - _tag12879_)) - (if (eq? _$e12881_ + _e1294012947_)))) + (let ((_K1294312960_ + (lambda (_body12954_ + _tag12955_) + (let ((_$e12957_ + _tag12955_)) + (if (eq? _$e12957_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'splice) (gx#raise-syntax-error '#f '"Ambiguous pattern" - _stx12631_ - _where12803_) - (if (eq? _$e12881_ 'cons) - (_lp12860_ (cdr _body12878_) (fx+ _n12863_ '1)) - _n12863_)))))) + _stx12707_ + _where12879_) + (if (eq? _$e12957_ 'cons) + (_lp12936_ (cdr _body12954_) (fx+ _n12939_ '1)) + _n12939_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _e1286412871_) - (let ((_hd1286812887_ - (##car _e1286412871_)) - (_tl1286912889_ - (##cdr _e1286412871_))) - (let ((_tag12892_ - _hd1286812887_)) - (let ((_body12894_ - _tl1286912889_)) - (_K1286712884_ - _body12894_ - _tag12892_)))) - (_E1286612875_)))))))) - _lp12860_) - _e12858_ + (if (##pair? _e1294012947_) + (let ((_hd1294412963_ + (##car _e1294012947_)) + (_tl1294512965_ + (##cdr _e1294012947_))) + (let ((_tag12968_ + _hd1294412963_)) + (let ((_body12970_ + _tl1294512965_)) + (_K1294312960_ + _body12970_ + _tag12968_)))) + (_E1294212951_)))))))) + _lp12936_) + _e12934_ '0)))) - (let ((_splice-vars12813_ - (lambda (_e12820_) - ((letrec ((_recur12822_ - (lambda (_e12824_ _vars12825_) - (let ((_e1282612833_ _e12824_)) - (let ((_E1282812837_ + (let ((_splice-vars12889_ + (lambda (_e12896_) + ((letrec ((_recur12898_ + (lambda (_e12900_ _vars12901_) + (let ((_e1290212909_ _e12900_)) + (let ((_E1290412913_ (lambda () (error '"No clause matching" - _e1282612833_)))) - (let ((_K1282912846_ - (lambda (_body12840_ + _e1290212909_)))) + (let ((_K1290512922_ + (lambda (_body12916_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tag12841_) - (let ((_$e12843_ _tag12841_)) - (if (eq? _$e12843_ 'var) - (cons _body12840_ _vars12825_) - (if (memq _$e12843_ '(cons splice)) - (_recur12822_ - (cdr _body12840_) - (_recur12822_ (car _body12840_) _vars12825_)) - (if (memq _$e12843_ '(vector box)) - (_recur12822_ _body12840_ _vars12825_) - _vars12825_))))))) + _tag12917_) + (let ((_$e12919_ _tag12917_)) + (if (eq? _$e12919_ 'var) + (cons _body12916_ _vars12901_) + (if (memq _$e12919_ '(cons splice)) + (_recur12898_ + (cdr _body12916_) + (_recur12898_ (car _body12916_) _vars12901_)) + (if (memq _$e12919_ '(vector box)) + (_recur12898_ _body12916_ _vars12901_) + _vars12901_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _e1282612833_) - (let ((_hd1283012849_ - (##car _e1282612833_)) - (_tl1283112851_ - (##cdr _e1282612833_))) - (let ((_tag12854_ - _hd1283012849_)) - (let ((_body12856_ + (if (##pair? _e1290212909_) + (let ((_hd1290612925_ + (##car _e1290212909_)) + (_tl1290712927_ + (##cdr _e1290212909_))) + (let ((_tag12930_ + _hd1290612925_)) + (let ((_body12932_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1283112851_)) - (_K1282912846_ _body12856_ _tag12854_)))) - (_E1282812837_)))))))) + _tl1290712927_)) + (_K1290512922_ _body12932_ _tag12930_)))) + (_E1290412913_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _recur12822_) - _e12820_ + _recur12898_) + _e12896_ '())))) - (let ((_make-body12814_ - (lambda (_vars12816_) - (cons _K12807_ - (map (lambda (_mvar12818_) - (assgetq (car _mvar12818_) - _vars12816_ - _BUG12810_)) - _mvars12806_))))) - (letrec ((_recur12811_ - (lambda (_e12896_ - _vars12897_ - _target12898_ - _E12899_ - _k12900_) - (let ((_e1290112908_ _e12896_)) - (let ((_E1290312912_ + (let ((_make-body12890_ + (lambda (_vars12892_) + (cons _K12883_ + (map (lambda (_mvar12894_) + (assgetq (car _mvar12894_) + _vars12892_ + _BUG12886_)) + _mvars12882_))))) + (letrec ((_recur12887_ + (lambda (_e12972_ + _vars12973_ + _target12974_ + _E12975_ + _k12976_) + (let ((_e1297712984_ _e12972_)) + (let ((_E1297912988_ (lambda () (error '"No clause matching" - _e1290112908_)))) - (let ((_K1290413030_ - (lambda (_body12915_ - _tag12916_) - (let ((_$e12918_ - _tag12916_)) - (if (eq? _$e12918_ 'any) - (_k12900_ - _vars12897_) - (if (eq? _$e12918_ + _e1297712984_)))) + (let ((_K1298013106_ + (lambda (_body12991_ + _tag12992_) + (let ((_$e12994_ + _tag12992_)) + (if (eq? _$e12994_ 'any) + (_k12976_ + _vars12973_) + (if (eq? _$e12994_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'id) (gx#core-list 'if - (gx#core-list 'identifier? _target12898_) + (gx#core-list 'identifier? _target12974_) (gx#core-list 'if (gx#core-list - _identifier=?12632_ - (gx#core-list _wrap-e12634_ _body12915_) - _target12898_) - (_k12900_ _vars12897_) - _E12899_) - _E12899_) - (if (eq? _$e12918_ 'var) - (_k12900_ - (cons (cons _body12915_ _target12898_) _vars12897_)) - (if (eq? _$e12918_ 'cons) - (let ((_$e12921_ (gx#genident__1 'e)) - (_$hd12922_ (gx#genident__1 'hd)) - (_$tl12923_ (gx#genident__1 'tl))) + _identifier=?12708_ + (gx#core-list _wrap-e12710_ _body12991_) + _target12974_) + (_k12976_ _vars12973_) + _E12975_) + _E12975_) + (if (eq? _$e12994_ 'var) + (_k12976_ + (cons (cons _body12991_ _target12974_) _vars12973_)) + (if (eq? _$e12994_ 'cons) + (let ((_$e12997_ (gx#genident__1 'e)) + (_$hd12998_ (gx#genident__1 'hd)) + (_$tl12999_ (gx#genident__1 'tl))) (gx#core-list 'if - (gx#core-list 'stx-pair? _target12898_) + (gx#core-list 'stx-pair? _target12974_) (gx#core-list 'let-values - (cons (cons (cons _$e12921_ '()) + (cons (cons (cons _$e12997_ '()) (cons (gx#core-list - _unwrap-e12633_ - _target12898_) + _unwrap-e12709_ + _target12974_) '())) '()) (gx#core-list 'let-values - (cons (cons (cons _$hd12922_ '()) + (cons (cons (cons _$hd12998_ '()) (cons (gx#core-list '##car - _$e12921_) + _$e12997_) '())) - (cons (cons (cons _$tl12923_ '()) + (cons (cons (cons _$tl12999_ '()) (cons (gx#core-list '##cdr - _$e12921_) + _$e12997_) '())) '())) - (let ((_body1292412931_ _body12915_)) - (let ((_E1292612935_ + (let ((_body1300013007_ _body12991_)) + (let ((_E1300213011_ (lambda () (error '"No clause matching" - _body1292412931_)))) - (let ((_K1292712943_ - (lambda (_tl12938_ _hd12939_) - (_recur12811_ - _hd12939_ - _vars12897_ - _$hd12922_ - _E12899_ - (lambda (_vars12941_) - (_recur12811_ - _tl12938_ - _vars12941_ - _$tl12923_ - _E12899_ - _k12900_)))))) - (if (##pair? _body1292412931_) - (let ((_hd1292812946_ - (##car _body1292412931_)) - (_tl1292912948_ - (##cdr _body1292412931_))) - (let ((_hd12951_ - _hd1292812946_)) - (let ((_tl12953_ - _tl1292912948_)) - (_K1292712943_ - _tl12953_ - _hd12951_)))) - (_E1292612935_))))))) - _E12899_)) - (if (eq? _$e12918_ 'splice) - (let ((_body1295412961_ _body12915_)) - (let ((_E1295612965_ + _body1300013007_)))) + (let ((_K1300313019_ + (lambda (_tl13014_ _hd13015_) + (_recur12887_ + _hd13015_ + _vars12973_ + _$hd12998_ + _E12975_ + (lambda (_vars13017_) + (_recur12887_ + _tl13014_ + _vars13017_ + _$tl12999_ + _E12975_ + _k12976_)))))) + (if (##pair? _body1300013007_) + (let ((_hd1300413022_ + (##car _body1300013007_)) + (_tl1300513024_ + (##cdr _body1300013007_))) + (let ((_hd13027_ + _hd1300413022_)) + (let ((_tl13029_ + _tl1300513024_)) + (_K1300313019_ + _tl13029_ + _hd13027_)))) + (_E1300213011_))))))) + _E12975_)) + (if (eq? _$e12994_ 'splice) + (let ((_body1303013037_ _body12991_)) + (let ((_E1303213041_ (lambda () (error '"No clause matching" - _body1295412961_)))) - (let ((_K1295713014_ - (lambda (_tl12968_ _hd12969_) - (let ((_rlen12971_ - (_splice-rlen12812_ - _tl12968_))) - (let ((_$target12973_ + _body1303013037_)))) + (let ((_K1303313090_ + (lambda (_tl13044_ _hd13045_) + (let ((_rlen13047_ + (_splice-rlen12888_ + _tl13044_))) + (let ((_$target13049_ (gx#genident__1 'target))) - (let ((_$hd12975_ + (let ((_$hd13051_ (gx#genident__1 'hd))) - (let ((_$tl12977_ + (let ((_$tl13053_ (gx#genident__1 'tl))) - (let ((_$lp12979_ + (let ((_$lp13055_ (gx#genident__1 'loop))) - (let ((_$lp-e12981_ + (let ((_$lp-e13057_ (gx#genident__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'e))) - (let ((_$lp-hd12983_ (gx#genident__1 'lp-hd))) - (let ((_$lp-tl12985_ (gx#genident__1 'lp-tl))) - (let ((_svars12987_ (_splice-vars12813_ _hd12969_))) - (let ((_lvars12989_ (gx#gentemps _svars12987_))) - (let ((_tlvars12991_ (gx#gentemps _svars12987_))) - (let ((_linit12995_ - (map (lambda (_var12993_) + (let ((_$lp-hd13059_ (gx#genident__1 'lp-hd))) + (let ((_$lp-tl13061_ (gx#genident__1 'lp-tl))) + (let ((_svars13063_ (_splice-vars12889_ _hd13045_))) + (let ((_lvars13065_ (gx#gentemps _svars13063_))) + (let ((_tlvars13067_ (gx#gentemps _svars13063_))) + (let ((_linit13071_ + (map (lambda (_var13069_) (gx#core-list 'quote '())) - _lvars12989_))) + _lvars13065_))) (let () - (let ((_make-loop12998_ - (lambda (_vars13000_) + (let ((_make-loop13074_ + (lambda (_vars13076_) (gx#core-list 'letrec-values - (cons (cons (cons _$lp12979_ '()) + (cons (cons (cons _$lp13055_ '()) (cons (gx#core-list 'lambda% - (cons _$hd12975_ + (cons _$hd13051_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _lvars12989_) + _lvars13065_) (gx#core-list 'if - (gx#core-list 'stx-pair? _$hd12975_) + (gx#core-list 'stx-pair? _$hd13051_) (gx#core-list 'let-values - (cons (cons (cons _$lp-e12981_ '()) + (cons (cons (cons _$lp-e13057_ '()) (cons (gx#core-list - _unwrap-e12633_ - _$hd12975_) + _unwrap-e12709_ + _$hd13051_) '())) '()) (gx#core-list 'let-values - (cons (cons (cons _$lp-hd12983_ '()) - (cons (gx#core-list '##car _$lp-e12981_) + (cons (cons (cons _$lp-hd13059_ '()) + (cons (gx#core-list '##car _$lp-e13057_) '())) - (cons (cons (cons _$lp-tl12985_ '()) + (cons (cons (cons _$lp-tl13061_ '()) (cons (gx#core-list '##cdr - _$lp-e12981_) + _$lp-e13057_) '())) '())) - (_recur12811_ - _hd12969_ + (_recur12887_ + _hd13045_ '() - _$lp-hd12983_ - _E12899_ - (lambda (_hdvars13002_) - (cons* _$lp12979_ - _$lp-tl12985_ - (map (lambda (_svar13004_ _lvar13005_) + _$lp-hd13059_ + _E12975_ + (lambda (_hdvars13078_) + (cons* _$lp13055_ + _$lp-tl13061_ + (map (lambda (_svar13080_ _lvar13081_) (gx#core-list 'cons - (assgetq _svar13004_ - _hdvars13002_ - _BUG12810_) - _lvar13005_)) - _svars12987_ - _lvars12989_)))))) + (assgetq _svar13080_ + _hdvars13078_ + _BUG12886_) + _lvar13081_)) + _svars13063_ + _lvars13065_)))))) (gx#core-list 'let-values - (map (lambda (_lvar13007_ _tlvar13008_) - (cons (cons _tlvar13008_ '()) - (cons (gx#core-list 'reverse _lvar13007_) + (map (lambda (_lvar13083_ _tlvar13084_) + (cons (cons _tlvar13084_ '()) + (cons (gx#core-list 'reverse _lvar13083_) '()))) - _lvars12989_ - _tlvars12991_) - (_k12900_ - (foldl (lambda (_svar13010_ _tlvar13011_ _r13012_) - (cons (cons _svar13010_ _tlvar13011_) - _r13012_)) - _vars13000_ - _svars12987_ - _tlvars12991_))))) + _lvars13065_ + _tlvars13067_) + (_k12976_ + (foldl (lambda (_svar13086_ _tlvar13087_ _r13088_) + (cons (cons _svar13086_ _tlvar13087_) + _r13088_)) + _vars13076_ + _svars13063_ + _tlvars13067_))))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons* _$lp12979_ - _$target12973_ - _linit12995_))))) + (cons* _$lp13055_ + _$target13049_ + _linit13071_))))) (gx#core-list 'if (gx#core-list 'stx-pair/null? - _target12898_) + _target12974_) (gx#core-list 'if (gx#core-list 'fx>= - (gx#core-list 'stx-length _target12898_) - _rlen12971_) + (gx#core-list 'stx-length _target12974_) + _rlen13047_) (gx#core-list 'let-values - (cons (cons (cons _$target12973_ - (cons _$tl12977_ '())) + (cons (cons (cons _$target13049_ + (cons _$tl13053_ '())) (cons (gx#core-list 'syntax-split-splice - _target12898_ - _rlen12971_) + _target12974_ + _rlen13047_) '())) '()) - (_recur12811_ - _tl12968_ - _vars12897_ - _$tl12977_ - _E12899_ - _make-loop12998_)) - _E12899_) - _E12899_)))))))))))))))))) + (_recur12887_ + _tl13044_ + _vars12973_ + _$tl13053_ + _E12975_ + _make-loop13074_)) + _E12975_) + _E12975_)))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _body1295412961_) - (let ((_hd1295813017_ - (##car _body1295412961_)) - (_tl1295913019_ - (##cdr _body1295412961_))) - (let ((_hd13022_ _hd1295813017_)) - (let ((_tl13024_ - _tl1295913019_)) - (_K1295713014_ - _tl13024_ - _hd13022_)))) - (_E1295612965_))))) - (if (eq? _$e12918_ 'null) + (if (##pair? _body1303013037_) + (let ((_hd1303413093_ + (##car _body1303013037_)) + (_tl1303513095_ + (##cdr _body1303013037_))) + (let ((_hd13098_ _hd1303413093_)) + (let ((_tl13100_ + _tl1303513095_)) + (_K1303313090_ + _tl13100_ + _hd13098_)))) + (_E1303213041_))))) + (if (eq? _$e12994_ 'null) (gx#core-list 'if - (gx#core-list 'stx-null? _target12898_) - (_k12900_ _vars12897_) - _E12899_) - (if (eq? _$e12918_ 'vector) - (let ((_$e13026_ + (gx#core-list 'stx-null? _target12974_) + (_k12976_ _vars12973_) + _E12975_) + (if (eq? _$e12994_ 'vector) + (let ((_$e13102_ (gx#genident__1 'e))) (gx#core-list 'if (gx#core-list 'stx-vector? - _target12898_) + _target12974_) (gx#core-list 'let-values - (cons (cons (cons _$e13026_ '()) + (cons (cons (cons _$e13102_ '()) (cons (gx#core-list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'vector->list - (gx#core-list _unwrap-e12633_ _target12898_)) + (gx#core-list _unwrap-e12709_ _target12974_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (_recur12811_ - _body12915_ - _vars12897_ - _$e13026_ - _E12899_ - _k12900_)) - _E12899_)) - (if (eq? _$e12918_ 'box) - (let ((_$e13028_ + (_recur12887_ + _body12991_ + _vars12973_ + _$e13102_ + _E12975_ + _k12976_)) + _E12975_)) + (if (eq? _$e12994_ 'box) + (let ((_$e13104_ (gx#genident__1 'e))) (gx#core-list 'if (gx#core-list 'stx-box? - _target12898_) + _target12974_) (gx#core-list 'let-values - (cons (cons (cons _$e13028_ + (cons (cons (cons _$e13104_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (gx#core-list 'unbox - (gx#core-list _unwrap-e12633_ _target12898_)) + (gx#core-list _unwrap-e12709_ _target12974_)) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_recur12811_ - _body12915_ - _vars12897_ - _$e13028_ - _E12899_ - _k12900_)) - _E12899_)) - (if (eq? _$e12918_ 'datum) + (_recur12887_ + _body12991_ + _vars12973_ + _$e13104_ + _E12975_ + _k12976_)) + _E12975_)) + (if (eq? _$e12994_ 'datum) (gx#core-list 'if (gx#core-list 'stx-datum? - _target12898_) + _target12974_) (gx#core-list 'if (gx#core-list 'equal? (gx#core-list 'stx-e - _target12898_) - _body12915_) - (_k12900_ _vars12897_) - _E12899_) - _E12899_) - (_BUG12810_ - _e12896_)))))))))))))) + _target12974_) + _body12991_) + (_k12976_ _vars12973_) + _E12975_) + _E12975_) + (_BUG12886_ + _e12972_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _e1290112908_) - (let ((_hd1290513033_ - (##car _e1290112908_)) - (_tl1290613035_ - (##cdr _e1290112908_))) - (let ((_tag13038_ - _hd1290513033_)) - (let ((_body13040_ - _tl1290613035_)) - (_K1290413030_ - _body13040_ - _tag13038_)))) - (_E1290312912_)))))))) - (_recur12811_ - _hd12805_ + (if (##pair? _e1297712984_) + (let ((_hd1298113109_ + (##car _e1297712984_)) + (_tl1298213111_ + (##cdr _e1297712984_))) + (let ((_tag13114_ + _hd1298113109_)) + (let ((_body13116_ + _tl1298213111_)) + (_K1298013106_ + _body13116_ + _tag13114_)))) + (_E1297912988_)))))))) + (_recur12887_ + _hd12881_ '() - _target12804_ - _E12808_ - _make-body12814_))))))))) - (let ((_parse-clause12640_ - (lambda (_hd12709_ _ids12710_) - ((letrec ((_recur12712_ - (lambda (_e12714_ _vars12715_ _depth12716_) - (if (gx#identifier? _e12714_) - (if (gx#underscore? _e12714_) - (values '(any) _vars12715_) - (if (gx#ellipsis? _e12714_) + _target12880_ + _E12884_ + _make-body12890_))))))))) + (let ((_parse-clause12716_ + (lambda (_hd12785_ _ids12786_) + ((letrec ((_recur12788_ + (lambda (_e12790_ _vars12791_ _depth12792_) + (if (gx#identifier? _e12790_) + (if (gx#underscore? _e12790_) + (values '(any) _vars12791_) + (if (gx#ellipsis? _e12790_) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _stx12631_ - _hd12709_) - (if (find (lambda (_id12718_) + _stx12707_ + _hd12785_) + (if (find (lambda (_id12794_) (gx#bound-identifier=? - _e12714_ - _id12718_)) - _ids12710_) - (values (cons 'id _e12714_) - _vars12715_) - (if (find (lambda (_var12720_) + _e12790_ + _id12794_)) + _ids12786_) + (values (cons 'id _e12790_) + _vars12791_) + (if (find (lambda (_var12796_) (gx#bound-identifier=? - _e12714_ - (car _var12720_))) - _vars12715_) + _e12790_ + (car _var12796_))) + _vars12791_) (gx#raise-syntax-error '#f '"Duplicate pattern variable" - _stx12631_ - _e12714_) + _stx12707_ + _e12790_) (values (cons 'var ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e12714_) - (cons (cons _e12714_ _depth12716_) _vars12715_)))))) + _e12790_) + (cons (cons _e12790_ _depth12792_) _vars12791_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _e12714_) - (let ((_e1272112728_ _e12714_)) - (let ((_E1272312732_ + (if (gx#stx-pair? _e12790_) + (let ((_e1279712804_ _e12790_)) + (let ((_E1279912808_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e1272112728_)))) - (let ((_E1272212793_ + _e1279712804_)))) + (let ((_E1279812869_ (lambda () (if (gx#stx-pair? - _e1272112728_) - (let ((_e1272412736_ + _e1279712804_) + (let ((_e1280012812_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e1272112728_))) - (let ((_hd1272512739_ (##car _e1272412736_)) - (_tl1272612741_ (##cdr _e1272412736_))) - (let ((_hd12744_ _hd1272512739_)) - (let ((_rest12746_ _tl1272612741_)) + (gx#syntax-e _e1279712804_))) + (let ((_hd1280112815_ (##car _e1280012812_)) + (_tl1280212817_ (##cdr _e1280012812_))) + (let ((_hd12820_ _hd1280112815_)) + (let ((_rest12822_ _tl1280212817_)) (if '#t - (let ((_make-pair12761_ - (lambda (_tag12748_ _hd12749_ _tl12750_) - (let ((_hd-depth12752_ - (if (eq? _tag12748_ 'splice) - (fx+ _depth12716_ '1) - _depth12716_))) - (let ((_g13771_ - (_recur12712_ - _hd12749_ - _vars12715_ - _hd-depth12752_))) + (let ((_make-pair12837_ + (lambda (_tag12824_ _hd12825_ _tl12826_) + (let ((_hd-depth12828_ + (if (eq? _tag12824_ 'splice) + (fx+ _depth12792_ '1) + _depth12792_))) + (let ((_g13847_ + (_recur12788_ + _hd12825_ + _vars12791_ + _hd-depth12828_))) (begin - (let ((_g13772_ - (values-count _g13771_))) - (if (not (fx= _g13772_ 2)) + (let ((_g13848_ + (values-count _g13847_))) + (if (not (fx= _g13848_ 2)) (error "Context expects 2 values" - _g13772_))) - (let ((_hd12754_ - (values-ref _g13771_ 0)) - (_vars12755_ - (values-ref _g13771_ 1))) - (let ((_g13773_ - (_recur12712_ - _tl12750_ - _vars12755_ - _depth12716_))) + _g13848_))) + (let ((_hd12830_ + (values-ref _g13847_ 0)) + (_vars12831_ + (values-ref _g13847_ 1))) + (let ((_g13849_ + (_recur12788_ + _tl12826_ + _vars12831_ + _depth12792_))) (begin - (let ((_g13774_ + (let ((_g13850_ (values-count - _g13773_))) - (if (not (fx= _g13774_ + _g13849_))) + (if (not (fx= _g13850_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2)) - (error "Context expects 2 values" _g13774_))) + (error "Context expects 2 values" _g13850_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_tl12757_ + (let ((_tl12833_ (values-ref - _g13773_ + _g13849_ 0)) - (_vars12758_ + (_vars12834_ (values-ref - _g13773_ + _g13849_ 1))) (let () - (values (cons* _tag12748_ + (values (cons* _tag12824_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd12754_ - _tl12757_) - _vars12758_)))))))))))) + _hd12830_ + _tl12833_) + _vars12834_)))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_e1276212769_ _rest12746_)) - (let ((_E1276412773_ + (let ((_e1283812845_ _rest12822_)) + (let ((_E1284012849_ (lambda () - (_make-pair12761_ + (_make-pair12837_ 'cons - _hd12744_ - _rest12746_)))) - (let ((_E1276312789_ + _hd12820_ + _rest12822_)))) + (let ((_E1283912865_ (lambda () - (if (gx#stx-pair? _e1276212769_) - (let ((_e1276512777_ + (if (gx#stx-pair? _e1283812845_) + (let ((_e1284112853_ (gx#syntax-e - _e1276212769_))) - (let ((_hd1276612780_ - (##car _e1276512777_)) - (_tl1276712782_ - (##cdr _e1276512777_))) - (let ((_rest-hd12785_ - _hd1276612780_)) - (let ((_rest-tl12787_ - _tl1276712782_)) + _e1283812845_))) + (let ((_hd1284212856_ + (##car _e1284112853_)) + (_tl1284312858_ + (##cdr _e1284112853_))) + (let ((_rest-hd12861_ + _hd1284212856_)) + (let ((_rest-tl12863_ + _tl1284312858_)) (if '#t (if (gx#ellipsis? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _rest-hd12785_) - (_make-pair12761_ 'splice _hd12744_ _rest-tl12787_) - (_make-pair12761_ 'cons _hd12744_ _rest12746_)) - (_E1276412773_)))))) + _rest-hd12861_) + (_make-pair12837_ 'splice _hd12820_ _rest-tl12863_) + (_make-pair12837_ 'cons _hd12820_ _rest12822_)) + (_E1284012849_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1276412773_))))) - (let () (_E1276312789_)))))) - (_E1272312732_)))))) - (_E1272312732_))))) + (_E1284012849_))))) + (let () (_E1283912865_)))))) + (_E1279912808_)))))) + (_E1279912808_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () (_E1272212793_))))) - (if (gx#stx-null? _e12714_) - (values '(null) _vars12715_) - (if (gx#stx-vector? _e12714_) - (let ((_g13775_ - (_recur12712_ + (let () (_E1279812869_))))) + (if (gx#stx-null? _e12790_) + (values '(null) _vars12791_) + (if (gx#stx-vector? _e12790_) + (let ((_g13851_ + (_recur12788_ (vector->list (gx#syntax-e - _e12714_)) - _vars12715_ - _depth12716_))) + _e12790_)) + _vars12791_ + _depth12792_))) (begin - (let ((_g13776_ + (let ((_g13852_ (values-count - _g13775_))) - (if (not (fx= _g13776_ + _g13851_))) + (if (not (fx= _g13852_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2)) - (error "Context expects 2 values" _g13776_))) - (let ((_e12797_ (values-ref _g13775_ 0)) - (_vars12798_ (values-ref _g13775_ 1))) - (values (cons 'vector _e12797_) _vars12798_)))) + (error "Context expects 2 values" _g13852_))) + (let ((_e12873_ (values-ref _g13851_ 0)) + (_vars12874_ (values-ref _g13851_ 1))) + (values (cons 'vector _e12873_) _vars12874_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-box? _e12714_) - (let ((_g13777_ - (_recur12712_ + (if (gx#stx-box? _e12790_) + (let ((_g13853_ + (_recur12788_ (unbox (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e12714_)) - _vars12715_ - _depth12716_))) + _e12790_)) + _vars12791_ + _depth12792_))) (begin - (let ((_g13778_ (values-count _g13777_))) - (if (not (fx= _g13778_ 2)) - (error "Context expects 2 values" _g13778_))) - (let ((_e12800_ (values-ref _g13777_ 0)) - (_vars12801_ (values-ref _g13777_ 1))) - (values (cons 'box _e12800_) _vars12801_)))) - (if (gx#stx-datum? _e12714_) - (values (cons 'datum (gx#stx-e _e12714_)) _vars12715_) + (let ((_g13854_ (values-count _g13853_))) + (if (not (fx= _g13854_ 2)) + (error "Context expects 2 values" _g13854_))) + (let ((_e12876_ (values-ref _g13853_ 0)) + (_vars12877_ (values-ref _g13853_ 1))) + (values (cons 'box _e12876_) _vars12877_)))) + (if (gx#stx-datum? _e12790_) + (values (cons 'datum (gx#stx-e _e12790_)) _vars12791_) (gx#raise-syntax-error '#f '"Bad pattern" - _stx12631_ - _e12714_)))))))))) + _stx12707_ + _e12790_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _recur12712_) - _hd12709_ + _recur12788_) + _hd12785_ '() '0)))) - (let ((_generate-clause12638_ - (lambda (_target13044_ _ids13045_ _clause13046_ _E13047_) - (let ((_generate113049_ - (lambda (_hd13136_ _fender13137_ _body13138_) - (let ((_g13769_ - (_parse-clause12640_ - _hd13136_ - _ids13045_))) + (let ((_generate-clause12714_ + (lambda (_target13120_ _ids13121_ _clause13122_ _E13123_) + (let ((_generate113125_ + (lambda (_hd13212_ _fender13213_ _body13214_) + (let ((_g13845_ + (_parse-clause12716_ + _hd13212_ + _ids13121_))) (begin - (let ((_g13770_ (values-count _g13769_))) - (if (not (fx= _g13770_ 2)) + (let ((_g13846_ (values-count _g13845_))) + (if (not (fx= _g13846_ 2)) (error "Context expects 2 values" - _g13770_))) - (let ((_e13140_ (values-ref _g13769_ 0)) - (_mvars13141_ - (values-ref _g13769_ 1))) - (let ((_pvars13143_ + _g13846_))) + (let ((_e13216_ (values-ref _g13845_ 0)) + (_mvars13217_ + (values-ref _g13845_ 1))) + (let ((_pvars13219_ (map gx#syntax-local-rewrap - (gx#gentemps _mvars13141_)))) - (let ((_E13145_ - (cons _E13047_ - (cons _target13044_ + (gx#gentemps _mvars13217_)))) + (let ((_E13221_ + (cons _E13123_ + (cons _target13120_ '())))) - (let ((_K13178_ + (let ((_K13254_ (gx#core-list 'lambda% - _pvars13143_ + _pvars13219_ (gx#core-list 'let-syntax - (map (lambda (_mvar13147_ + (map (lambda (_mvar13223_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pvar13148_) - (let ((_mvar1314913156_ _mvar13147_)) - (let ((_E1315113160_ + _pvar13224_) + (let ((_mvar1322513232_ _mvar13223_)) + (let ((_E1322713236_ (lambda () - (error '"No clause matching" _mvar1314913156_)))) - (let ((_K1315213166_ - (lambda (_depth13163_ _id13164_) - (cons _id13164_ + (error '"No clause matching" _mvar1322513232_)))) + (let ((_K1322813242_ + (lambda (_depth13239_ _id13240_) + (cons _id13240_ (cons (gx#core-list 'make-syntax-pattern - (gx#core-list 'quote _id13164_) - (gx#core-list 'quote _pvar13148_) - _depth13163_) + (gx#core-list 'quote _id13240_) + (gx#core-list 'quote _pvar13224_) + _depth13239_) '()))))) - (if (##pair? _mvar1314913156_) - (let ((_hd1315313169_ (##car _mvar1314913156_)) - (_tl1315413171_ (##cdr _mvar1314913156_))) - (let ((_id13174_ _hd1315313169_)) - (let ((_depth13176_ _tl1315413171_)) - (_K1315213166_ _depth13176_ _id13174_)))) - (_E1315113160_)))))) - _mvars13141_ - _pvars13143_) + (if (##pair? _mvar1322513232_) + (let ((_hd1322913245_ (##car _mvar1322513232_)) + (_tl1323013247_ (##cdr _mvar1322513232_))) + (let ((_id13250_ _hd1322913245_)) + (let ((_depth13252_ _tl1323013247_)) + (_K1322813242_ _depth13252_ _id13250_)))) + (_E1322713236_)))))) + _mvars13217_ + _pvars13219_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (eq? _fender13137_ '#t) - _body13138_ + (if (eq? _fender13213_ '#t) + _body13214_ (gx#core-list 'if - _fender13137_ - _body13138_ - _E13145_)))))) + _fender13213_ + _body13214_ + _E13221_)))))) (let () - (_generate-match12639_ - _hd13136_ - _target13044_ - _e13140_ - _mvars13141_ - _K13178_ - _E13145_))))))))))) - (let ((_e1305013070_ _clause13046_)) - (let ((_E1305913074_ + (_generate-match12715_ + _hd13212_ + _target13120_ + _e13216_ + _mvars13217_ + _K13254_ + _E13221_))))))))))) + (let ((_e1312613146_ _clause13122_)) + (let ((_E1313513150_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e1305013070_)))) - (let ((_E1305213108_ + _e1312613146_)))) + (let ((_E1312813184_ (lambda () - (if (gx#stx-pair? _e1305013070_) - (let ((_e1306013078_ - (gx#syntax-e _e1305013070_))) - (let ((_hd1306113081_ - (##car _e1306013078_)) - (_tl1306213083_ - (##cdr _e1306013078_))) - (let ((_hd13086_ _hd1306113081_)) + (if (gx#stx-pair? _e1312613146_) + (let ((_e1313613154_ + (gx#syntax-e _e1312613146_))) + (let ((_hd1313713157_ + (##car _e1313613154_)) + (_tl1313813159_ + (##cdr _e1313613154_))) + (let ((_hd13162_ _hd1313713157_)) (if (gx#stx-pair? - _tl1306213083_) - (let ((_e1306313088_ + _tl1313813159_) + (let ((_e1313913164_ (gx#syntax-e - _tl1306213083_))) - (let ((_hd1306413091_ - (##car _e1306313088_)) - (_tl1306513093_ - (##cdr _e1306313088_))) - (let ((_fender13096_ - _hd1306413091_)) + _tl1313813159_))) + (let ((_hd1314013167_ + (##car _e1313913164_)) + (_tl1314113169_ + (##cdr _e1313913164_))) + (let ((_fender13172_ + _hd1314013167_)) (if (gx#stx-pair? - _tl1306513093_) - (let ((_e1306613098_ + _tl1314113169_) + (let ((_e1314213174_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1306513093_))) - (let ((_hd1306713101_ (##car _e1306613098_)) - (_tl1306813103_ (##cdr _e1306613098_))) - (let ((_body13106_ _hd1306713101_)) - (if (gx#stx-null? _tl1306813103_) + (gx#syntax-e _tl1314113169_))) + (let ((_hd1314313177_ (##car _e1314213174_)) + (_tl1314413179_ (##cdr _e1314213174_))) + (let ((_body13182_ _hd1314313177_)) + (if (gx#stx-null? _tl1314413179_) (if '#t - (_generate113049_ - _hd13086_ - _fender13096_ - _body13106_) - (_E1305913074_)) - (_E1305913074_))))) - (_E1305913074_))))) + (_generate113125_ + _hd13162_ + _fender13172_ + _body13182_) + (_E1313513150_)) + (_E1313513150_))))) + (_E1313513150_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1305913074_))))) - (_E1305913074_))))) - (let ((_E1305113132_ + (_E1313513150_))))) + (_E1313513150_))))) + (let ((_E1312713208_ (lambda () - (if (gx#stx-pair? _e1305013070_) - (let ((_e1305313112_ + (if (gx#stx-pair? _e1312613146_) + (let ((_e1312913188_ (gx#syntax-e - _e1305013070_))) - (let ((_hd1305413115_ - (##car _e1305313112_)) - (_tl1305513117_ - (##cdr _e1305313112_))) - (let ((_hd13120_ - _hd1305413115_)) + _e1312613146_))) + (let ((_hd1313013191_ + (##car _e1312913188_)) + (_tl1313113193_ + (##cdr _e1312913188_))) + (let ((_hd13196_ + _hd1313013191_)) (if (gx#stx-pair? - _tl1305513117_) - (let ((_e1305613122_ + _tl1313113193_) + (let ((_e1313213198_ (gx#syntax-e - _tl1305513117_))) - (let ((_hd1305713125_ - (##car _e1305613122_)) - (_tl1305813127_ - (##cdr _e1305613122_))) - (let ((_body13130_ + _tl1313113193_))) + (let ((_hd1313313201_ + (##car _e1313213198_)) + (_tl1313413203_ + (##cdr _e1313213198_))) + (let ((_body13206_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1305713125_)) - (if (gx#stx-null? _tl1305813127_) + _hd1313313201_)) + (if (gx#stx-null? _tl1313413203_) (if '#t - (_generate113049_ _hd13120_ '#t _body13130_) - (_E1305213108_)) - (_E1305213108_))))) - (_E1305213108_))))) + (_generate113125_ _hd13196_ '#t _body13206_) + (_E1312813184_)) + (_E1312813184_))))) + (_E1312813184_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1305213108_))))) - (let () (_E1305113132_)))))))))) - (let ((_generate-bindings12636_ - (lambda (_target13221_ - _ids13222_ - _clauses13223_ - _clause-ids13224_ - _E13225_) - (let ((_generate113227_ - (lambda (_clause13326_ - _clause-id13327_ - _E13328_) - (cons (cons _clause-id13327_ '()) + (_E1312813184_))))) + (let () (_E1312713208_)))))))))) + (let ((_generate-bindings12712_ + (lambda (_target13297_ + _ids13298_ + _clauses13299_ + _clause-ids13300_ + _E13301_) + (let ((_generate113303_ + (lambda (_clause13402_ + _clause-id13403_ + _E13404_) + (cons (cons _clause-id13403_ '()) (cons (gx#core-list 'lambda% - (cons _target13221_ '()) - (_generate-clause12638_ - _target13221_ - _ids13222_ - _clause13326_ - _E13328_)) + (cons _target13297_ '()) + (_generate-clause12714_ + _target13297_ + _ids13298_ + _clause13402_ + _E13404_)) '()))))) - ((letrec ((_lp13229_ - (lambda (_rest13231_ - _rest-ids13232_ - _bindings13233_) - (let ((_rest1323413242_ _rest13231_)) - (let ((_E1323713246_ + ((letrec ((_lp13305_ + (lambda (_rest13307_ + _rest-ids13308_ + _bindings13309_) + (let ((_rest1331013318_ _rest13307_)) + (let ((_E1331313322_ (lambda () (error '"No clause matching" - _rest1323413242_)))) - (let ((_else1323613250_ + _rest1331013318_)))) + (let ((_else1331213326_ (lambda () - _bindings13233_))) - (let ((_K1323813314_ - (lambda (_rest13253_ - _clause13254_) - (let ((_rest-ids1325513262_ - _rest-ids13232_)) - (let ((_E1325713266_ + _bindings13309_))) + (let ((_K1331413390_ + (lambda (_rest13329_ + _clause13330_) + (let ((_rest-ids1333113338_ + _rest-ids13308_)) + (let ((_E1333313342_ (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (error '"No clause matching" _rest-ids1325513262_)))) - (let ((_K1325813302_ - (lambda (_rest-ids13269_ _clause-id13270_) - (let ((_rest-ids1327113279_ _rest-ids13269_)) - (let ((_E1327413283_ + (error '"No clause matching" _rest-ids1333113338_)))) + (let ((_K1333413378_ + (lambda (_rest-ids13345_ _clause-id13346_) + (let ((_rest-ids1334713355_ _rest-ids13345_)) + (let ((_E1335013359_ (lambda () (error '"No clause matching" - _rest-ids1327113279_)))) - (let ((_else1327313287_ + _rest-ids1334713355_)))) + (let ((_else1334913363_ (lambda () - (cons (_generate113227_ - _clause13254_ - _clause-id13270_ - _E13225_) - _bindings13233_)))) - (let ((_K1327513292_ - (lambda (_next-clause-id13290_) - (_lp13229_ - _rest13253_ - _rest-ids13269_ - (cons (_generate113227_ - _clause13254_ - _clause-id13270_ - _next-clause-id13290_) - _bindings13233_))))) - (if (##pair? _rest-ids1327113279_) - (let ((_hd1327613295_ - (##car _rest-ids1327113279_)) - (_tl1327713297_ - (##cdr _rest-ids1327113279_))) - (let ((_next-clause-id13300_ - _hd1327613295_)) - (_K1327513292_ - _next-clause-id13300_))) - (_else1327313287_))))))))) - (if (##pair? _rest-ids1325513262_) - (let ((_hd1325913305_ (##car _rest-ids1325513262_)) - (_tl1326013307_ (##cdr _rest-ids1325513262_))) - (let ((_clause-id13310_ _hd1325913305_)) - (let ((_rest-ids13312_ _tl1326013307_)) - (_K1325813302_ - _rest-ids13312_ - _clause-id13310_)))) - (_E1325713266_)))))))) + (cons (_generate113303_ + _clause13330_ + _clause-id13346_ + _E13301_) + _bindings13309_)))) + (let ((_K1335113368_ + (lambda (_next-clause-id13366_) + (_lp13305_ + _rest13329_ + _rest-ids13345_ + (cons (_generate113303_ + _clause13330_ + _clause-id13346_ + _next-clause-id13366_) + _bindings13309_))))) + (if (##pair? _rest-ids1334713355_) + (let ((_hd1335213371_ + (##car _rest-ids1334713355_)) + (_tl1335313373_ + (##cdr _rest-ids1334713355_))) + (let ((_next-clause-id13376_ + _hd1335213371_)) + (_K1335113368_ + _next-clause-id13376_))) + (_else1334913363_))))))))) + (if (##pair? _rest-ids1333113338_) + (let ((_hd1333513381_ (##car _rest-ids1333113338_)) + (_tl1333613383_ (##cdr _rest-ids1333113338_))) + (let ((_clause-id13386_ _hd1333513381_)) + (let ((_rest-ids13388_ _tl1333613383_)) + (_K1333413378_ + _rest-ids13388_ + _clause-id13386_)))) + (_E1333313342_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _rest1323413242_) - (let ((_hd1323913317_ - (##car _rest1323413242_)) - (_tl1324013319_ - (##cdr _rest1323413242_))) - (let ((_clause13322_ - _hd1323913317_)) - (let ((_rest13324_ - _tl1324013319_)) - (_K1323813314_ - _rest13324_ - _clause13322_)))) - (_else1323613250_))))))))) - _lp13229_) - _clauses13223_ - _clause-ids13224_ + (if (##pair? _rest1331013318_) + (let ((_hd1331513393_ + (##car _rest1331013318_)) + (_tl1331613395_ + (##cdr _rest1331013318_))) + (let ((_clause13398_ + _hd1331513393_)) + (let ((_rest13400_ + _tl1331613395_)) + (_K1331413390_ + _rest13400_ + _clause13398_)))) + (_else1331213326_))))))))) + _lp13305_) + _clauses13299_ + _clause-ids13300_ '()))))) - (let ((_e1264112654_ _stx12631_)) - (let ((_E1264312658_ + (let ((_e1271712730_ _stx12707_)) + (let ((_E1271912734_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e1264112654_)))) - (let ((_E1264212705_ + _e1271712730_)))) + (let ((_E1271812781_ (lambda () - (if (gx#stx-pair? _e1264112654_) - (let ((_e1264412662_ - (gx#syntax-e _e1264112654_))) - (let ((_hd1264512665_ - (##car _e1264412662_)) - (_tl1264612667_ - (##cdr _e1264412662_))) - (if (gx#stx-pair? _tl1264612667_) - (let ((_e1264712670_ + (if (gx#stx-pair? _e1271712730_) + (let ((_e1272012738_ + (gx#syntax-e _e1271712730_))) + (let ((_hd1272112741_ + (##car _e1272012738_)) + (_tl1272212743_ + (##cdr _e1272012738_))) + (if (gx#stx-pair? _tl1272212743_) + (let ((_e1272312746_ (gx#syntax-e - _tl1264612667_))) - (let ((_hd1264812673_ - (##car _e1264712670_)) - (_tl1264912675_ - (##cdr _e1264712670_))) - (let ((_expr12678_ - _hd1264812673_)) + _tl1272212743_))) + (let ((_hd1272412749_ + (##car _e1272312746_)) + (_tl1272512751_ + (##cdr _e1272312746_))) + (let ((_expr12754_ + _hd1272412749_)) (if (gx#stx-pair? - _tl1264912675_) - (let ((_e1265012680_ + _tl1272512751_) + (let ((_e1272612756_ (gx#syntax-e - _tl1264912675_))) - (let ((_hd1265112683_ - (##car _e1265012680_)) - (_tl1265212685_ - (##cdr _e1265012680_))) - (let ((_ids12688_ - _hd1265112683_)) - (let ((_clauses12690_ + _tl1272512751_))) + (let ((_hd1272712759_ + (##car _e1272612756_)) + (_tl1272812761_ + (##cdr _e1272612756_))) + (let ((_ids12764_ + _hd1272712759_)) + (let ((_clauses12766_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1265212685_)) + _tl1272812761_)) (if '#t - (if (not (gx#identifier-list? _ids12688_)) + (if (not (gx#identifier-list? _ids12764_)) (gx#raise-syntax-error '#f '"Bad template identifier list" - _stx12631_ - _ids12688_) - (if (not (gx#stx-list? _clauses12690_)) + _stx12707_ + _ids12764_) + (if (not (gx#stx-list? _clauses12766_)) (gx#raise-syntax-error '#f '"Bad syntax" - _stx12631_) - (let ((_ids12692_ - (gx#syntax->list _ids12688_))) - (let ((_clauses12694_ - (gx#syntax->list _clauses12690_))) - (let ((_clause-ids12696_ - (gx#gentemps _clauses12694_))) - (let ((_E12698_ (gx#genident__0))) - (let ((_target12700_ + _stx12707_) + (let ((_ids12768_ + (gx#syntax->list _ids12764_))) + (let ((_clauses12770_ + (gx#syntax->list _clauses12766_))) + (let ((_clause-ids12772_ + (gx#gentemps _clauses12770_))) + (let ((_E12774_ (gx#genident__0))) + (let ((_target12776_ (gx#genident__0))) - (let ((_first12702_ - (if (null? _clauses12694_) - _E12698_ - (car _clause-ids12696_)))) + (let ((_first12778_ + (if (null? _clauses12770_) + _E12774_ + (car _clause-ids12772_)))) (let () (gx#stx-wrap-source (gx#core-list 'let-values - (cons (cons (cons _E12698_ + (cons (cons (cons _E12774_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (gx#core-list 'lambda% - (cons _target12700_ '()) + (cons _target12776_ '()) (gx#core-list 'raise-syntax-error '#f '"Bad syntax" - _target12700_)) + _target12776_)) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_generate-body12637_ - (_generate-bindings12636_ - _target12700_ - _ids12692_ - _clauses12694_ - _clause-ids12696_ - _E12698_) - (cons _first12702_ - (cons _expr12678_ + (_generate-body12713_ + (_generate-bindings12712_ + _target12776_ + _ids12768_ + _clauses12770_ + _clause-ids12772_ + _E12774_) + (cons _first12778_ + (cons _expr12754_ '())))) (gx#stx-source - _stx12631_))))))))))) - (_E1264312658_)))))) + _stx12707_))))))))))) + (_E1271912734_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E1264312658_))))) - (_E1264312658_)))) - (_E1264312658_))))) - (let () (_E1264212705_)))))))))))) + (_E1271912734_))))) + (_E1271912734_)))) + (_E1271912734_))))) + (let () (_E1271812781_)))))))))))) (begin (define gx#macro-expand-syntax-case__0 - (lambda (_stx13333_) - (let ((_identifier=?13335_ 'free-identifier=?)) - (let ((_unwrap-e13337_ 'syntax-e)) - (let ((_wrap-e13339_ 'quote-syntax)) - (gx#macro-expand-syntax-case__opt-lambda12629 - _stx13333_ - _identifier=?13335_ - _unwrap-e13337_ - _wrap-e13339_)))))) + (lambda (_stx13409_) + (let ((_identifier=?13411_ 'free-identifier=?)) + (let ((_unwrap-e13413_ 'syntax-e)) + (let ((_wrap-e13415_ 'quote-syntax)) + (gx#macro-expand-syntax-case__opt-lambda12705 + _stx13409_ + _identifier=?13411_ + _unwrap-e13413_ + _wrap-e13415_)))))) (define gx#macro-expand-syntax-case__1 - (lambda (_stx13341_ _identifier=?13342_) - (let ((_unwrap-e13344_ 'syntax-e)) - (let ((_wrap-e13346_ 'quote-syntax)) - (gx#macro-expand-syntax-case__opt-lambda12629 - _stx13341_ - _identifier=?13342_ - _unwrap-e13344_ - _wrap-e13346_))))) + (lambda (_stx13417_ _identifier=?13418_) + (let ((_unwrap-e13420_ 'syntax-e)) + (let ((_wrap-e13422_ 'quote-syntax)) + (gx#macro-expand-syntax-case__opt-lambda12705 + _stx13417_ + _identifier=?13418_ + _unwrap-e13420_ + _wrap-e13422_))))) (define gx#macro-expand-syntax-case__2 - (lambda (_stx13348_ _identifier=?13349_ _unwrap-e13350_) - (let ((_wrap-e13352_ 'quote-syntax)) - (gx#macro-expand-syntax-case__opt-lambda12629 - _stx13348_ - _identifier=?13349_ - _unwrap-e13350_ - _wrap-e13352_)))) + (lambda (_stx13424_ _identifier=?13425_ _unwrap-e13426_) + (let ((_wrap-e13428_ 'quote-syntax)) + (gx#macro-expand-syntax-case__opt-lambda12705 + _stx13424_ + _identifier=?13425_ + _unwrap-e13426_ + _wrap-e13428_)))) (define gx#macro-expand-syntax-case - (lambda _g13780_ - (let ((_g13779_ (length _g13780_))) - (cond ((fx= _g13779_ 1) - (apply gx#macro-expand-syntax-case__0 _g13780_)) - ((fx= _g13779_ 2) - (apply gx#macro-expand-syntax-case__1 _g13780_)) - ((fx= _g13779_ 3) - (apply gx#macro-expand-syntax-case__2 _g13780_)) - ((fx= _g13779_ 4) - (apply gx#macro-expand-syntax-case__opt-lambda12629 - _g13780_)) - (else (error "No clause matching arguments" _g13780_)))))))) + (lambda _g13856_ + (let ((_g13855_ (length _g13856_))) + (cond ((fx= _g13855_ 1) + (apply gx#macro-expand-syntax-case__0 _g13856_)) + ((fx= _g13855_ 2) + (apply gx#macro-expand-syntax-case__1 _g13856_)) + ((fx= _g13855_ 3) + (apply gx#macro-expand-syntax-case__2 _g13856_)) + ((fx= _g13855_ 4) + (apply gx#macro-expand-syntax-case__opt-lambda12705 + _g13856_)) + (else (error "No clause matching arguments" _g13856_)))))))) (define gx#syntax-local-pattern? - (lambda (_stx12628_) - (if (gx#identifier? _stx12628_) + (lambda (_stx12704_) + (if (gx#identifier? _stx12704_) (##structure-instance-of? - (gx#syntax-local-e__opt-lambda3819 _stx12628_ false) + (gx#syntax-local-e__opt-lambda3895 _stx12704_ false) 'gx#syntax-pattern::t) '#f))) (define gx#syntax-check-splice-targets - (lambda (_hd12586_ . _rest12587_) - (let ((_len12589_ (length _hd12586_))) - ((letrec ((_lp12591_ - (lambda (_rest12593_) - (let ((_rest1259412602_ _rest12593_)) - (let ((_E1259712606_ + (lambda (_hd12662_ . _rest12663_) + (let ((_len12665_ (length _hd12662_))) + ((letrec ((_lp12667_ + (lambda (_rest12669_) + (let ((_rest1267012678_ _rest12669_)) + (let ((_E1267312682_ (lambda () (error '"No clause matching" - _rest1259412602_)))) - (let ((_else1259612610_ (lambda () '#!void))) - (let ((_K1259812616_ - (lambda (_rest12613_ _hd12614_) - (if (fx= _len12589_ (length _hd12614_)) - (_lp12591_ _rest12613_) + _rest1267012678_)))) + (let ((_else1267212686_ (lambda () '#!void))) + (let ((_K1267412692_ + (lambda (_rest12689_ _hd12690_) + (if (fx= _len12665_ (length _hd12690_)) + (_lp12667_ _rest12689_) (gx#raise-syntax-error '#f '"Splice length mismatch" - _hd12614_))))) - (if (##pair? _rest1259412602_) - (let ((_hd1259912619_ - (##car _rest1259412602_)) - (_tl1260012621_ - (##cdr _rest1259412602_))) - (let ((_hd12624_ _hd1259912619_)) - (let ((_rest12626_ _tl1260012621_)) - (_K1259812616_ _rest12626_ _hd12624_)))) - (_else1259612610_))))))))) - _lp12591_) - _rest12587_)))) + _hd12690_))))) + (if (##pair? _rest1267012678_) + (let ((_hd1267512695_ + (##car _rest1267012678_)) + (_tl1267612697_ + (##cdr _rest1267012678_))) + (let ((_hd12700_ _hd1267512695_)) + (let ((_rest12702_ _tl1267612697_)) + (_K1267412692_ _rest12702_ _hd12700_)))) + (_else1267212686_))))))))) + _lp12667_) + _rest12663_)))) (define gx#syntax-split-splice - (lambda (_stx12544_ _n12545_) - ((letrec ((_lp12547_ - (lambda (_rest12549_ _r12550_) - (if (gx#stx-pair? _rest12549_) - (let ((_g1255112558_ (gx#syntax-e _rest12549_))) - (let ((_E1255312562_ + (lambda (_stx12620_ _n12621_) + ((letrec ((_lp12623_ + (lambda (_rest12625_ _r12626_) + (if (gx#stx-pair? _rest12625_) + (let ((_g1262712634_ (gx#syntax-e _rest12625_))) + (let ((_E1262912638_ (lambda () (error '"No clause matching" - _g1255112558_)))) - (let ((_K1255412568_ - (lambda (_rest12565_ _hd12566_) - (_lp12547_ - _rest12565_ - (cons _hd12566_ _r12550_))))) - (if (##pair? _g1255112558_) - (let ((_hd1255512571_ (##car _g1255112558_)) - (_tl1255612573_ (##cdr _g1255112558_))) - (let ((_hd12576_ _hd1255512571_)) - (let ((_rest12578_ _tl1255612573_)) - (_K1255412568_ _rest12578_ _hd12576_)))) - (_E1255312562_))))) - ((letrec ((_lp12580_ - (lambda (_n12582_ _l12583_ _r12584_) - (if (null? _l12583_) - (values _l12583_ _r12584_) - (if (fxpositive? _n12582_) - (_lp12580_ - (fx- _n12582_ '1) - (cdr _l12583_) - (cons (car _l12583_) _r12584_)) - (values (reverse _l12583_) - _r12584_)))))) - _lp12580_) - _n12545_ - _r12550_ - _rest12549_))))) - _lp12547_) - _stx12544_ + _g1262712634_)))) + (let ((_K1263012644_ + (lambda (_rest12641_ _hd12642_) + (_lp12623_ + _rest12641_ + (cons _hd12642_ _r12626_))))) + (if (##pair? _g1262712634_) + (let ((_hd1263112647_ (##car _g1262712634_)) + (_tl1263212649_ (##cdr _g1262712634_))) + (let ((_hd12652_ _hd1263112647_)) + (let ((_rest12654_ _tl1263212649_)) + (_K1263012644_ _rest12654_ _hd12652_)))) + (_E1262912638_))))) + ((letrec ((_lp12656_ + (lambda (_n12658_ _l12659_ _r12660_) + (if (null? _l12659_) + (values _l12659_ _r12660_) + (if (fxpositive? _n12658_) + (_lp12656_ + (fx- _n12658_ '1) + (cdr _l12659_) + (cons (car _l12659_) _r12660_)) + (values (reverse _l12659_) + _r12660_)))))) + _lp12656_) + _n12621_ + _r12626_ + _rest12625_))))) + _lp12623_) + _stx12620_ '())))) diff --git a/src/bootstrap/gerbil/expander/stxcase__1.scm b/src/bootstrap/gerbil/expander/stxcase__1.scm index 89c2dc901..b7c2c8806 100644 --- a/src/bootstrap/gerbil/expander/stxcase__1.scm +++ b/src/bootstrap/gerbil/expander/stxcase__1.scm @@ -1,33 +1,33 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define |gx[1]#_g13781_| (gx#core-quote-syntax 'syntax-pattern::t)) - (define |gx[1]#_g13782_| (gx#core-quote-syntax 'expander::t)) - (define |gx[1]#_g13783_| (gx#core-quote-syntax 'syntax-pattern::t)) - (define |gx[1]#_g13784_| (gx#core-quote-syntax 'make-syntax-pattern)) - (define |gx[1]#_g13785_| (gx#core-quote-syntax 'syntax-pattern?)) - (define |gx[1]#_g13786_| (gx#core-quote-syntax 'syntax-pattern-id)) - (define |gx[1]#_g13787_| (gx#core-quote-syntax 'syntax-pattern-depth)) - (define |gx[1]#_g13788_| (gx#core-quote-syntax 'syntax-pattern-id-set!)) - (define |gx[1]#_g13789_| (gx#core-quote-syntax 'syntax-pattern-depth-set!)) - (define |gx[1]#_g13790_| (gx#core-quote-syntax 'expander)) + (define |gx[1]#_g13857_| (gx#core-quote-syntax 'syntax-pattern::t)) + (define |gx[1]#_g13858_| (gx#core-quote-syntax 'expander::t)) + (define |gx[1]#_g13859_| (gx#core-quote-syntax 'syntax-pattern::t)) + (define |gx[1]#_g13860_| (gx#core-quote-syntax 'make-syntax-pattern)) + (define |gx[1]#_g13861_| (gx#core-quote-syntax 'syntax-pattern?)) + (define |gx[1]#_g13862_| (gx#core-quote-syntax 'syntax-pattern-id)) + (define |gx[1]#_g13863_| (gx#core-quote-syntax 'syntax-pattern-depth)) + (define |gx[1]#_g13864_| (gx#core-quote-syntax 'syntax-pattern-id-set!)) + (define |gx[1]#_g13865_| (gx#core-quote-syntax 'syntax-pattern-depth-set!)) + (define |gx[1]#_g13866_| (gx#core-quote-syntax 'expander)) (define |gx[:0:]#syntax-pattern| (|gerbil/core::::[1]#make-extended-struct-info| 'runtime-identifier: - |gx[1]#_g13781_| + |gx[1]#_g13857_| 'expander-identifiers: - (cons |gx[1]#_g13782_| - (cons |gx[1]#_g13783_| - (cons |gx[1]#_g13784_| - (cons |gx[1]#_g13785_| - (cons (cons |gx[1]#_g13786_| - (cons |gx[1]#_g13787_| '())) - (cons (cons |gx[1]#_g13788_| - (cons |gx[1]#_g13789_| '())) + (cons |gx[1]#_g13858_| + (cons |gx[1]#_g13859_| + (cons |gx[1]#_g13860_| + (cons |gx[1]#_g13861_| + (cons (cons |gx[1]#_g13862_| + (cons |gx[1]#_g13863_| '())) + (cons (cons |gx[1]#_g13864_| + (cons |gx[1]#_g13865_| '())) '())))))) 'type-exhibitor: (|gerbil/core::::[1]#make-runtime-struct-exhibitor| 'gx#syntax-pattern::t - |gx[1]#_g13790_| + |gx[1]#_g13866_| 'syntax-pattern '#f '() diff --git a/src/bootstrap/gerbil/expander/top.ssi b/src/bootstrap/gerbil/expander/top.ssi index e2b524d9f..ddfabbe83 100644 --- a/src/bootstrap/gerbil/expander/top.ssi +++ b/src/bootstrap/gerbil/expander/top.ssi @@ -33,8 +33,8 @@ namespace: gx core-expand-define-alias% gx#core-expand-define-alias%) (%#begin (%#define-runtime - core-expand-lambda%__opt-lambda7815 - gx#core-expand-lambda%__opt-lambda7815) + core-expand-lambda%__opt-lambda7891 + gx#core-expand-lambda%__opt-lambda7891) (%#begin (%#define-runtime core-expand-lambda%__0 gx#core-expand-lambda%__0) @@ -46,8 +46,8 @@ namespace: gx gx#core-expand-case-lambda%) (%#define-runtime core-expand-let-values% gx#core-expand-let-values%) (%#begin (%#define-runtime - core-expand-letrec-values%__opt-lambda7678 - gx#core-expand-letrec-values%__opt-lambda7678) + core-expand-letrec-values%__opt-lambda7754 + gx#core-expand-letrec-values%__opt-lambda7754) (%#begin (%#define-runtime core-expand-letrec-values%__0 gx#core-expand-letrec-values%__0) @@ -78,8 +78,8 @@ namespace: gx core-expand-let-bind-syntax-expression gx#core-expand-let-bind-syntax-expression) (%#begin (%#define-runtime - core-expand-let-bind-syntax!__opt-lambda7270 - gx#core-expand-let-bind-syntax!__opt-lambda7270) + core-expand-let-bind-syntax!__opt-lambda7346 + gx#core-expand-let-bind-syntax!__opt-lambda7346) (%#begin (%#define-runtime core-expand-let-bind-syntax!__0 gx#core-expand-let-bind-syntax!__0) @@ -110,8 +110,8 @@ namespace: gx macro-expand-case-lambda gx#macro-expand-case-lambda) (%#begin (%#define-runtime - macro-expand-let-values__opt-lambda6421 - gx#macro-expand-let-values__opt-lambda6421) + macro-expand-let-values__opt-lambda6497 + gx#macro-expand-let-values__opt-lambda6497) (%#begin (%#define-runtime macro-expand-let-values__0 gx#macro-expand-let-values__0) @@ -131,8 +131,8 @@ namespace: gx (%#define-runtime ellipsis? gx#ellipsis?) (%#define-runtime user-binding-identifier gx#user-binding-identifier) (%#begin (%#define-runtime - check-duplicate-identifiers__opt-lambda6219 - gx#check-duplicate-identifiers__opt-lambda6219) + check-duplicate-identifiers__opt-lambda6295 + gx#check-duplicate-identifiers__opt-lambda6295) (%#begin (%#define-runtime check-duplicate-identifiers__0 gx#check-duplicate-identifiers__0) @@ -141,8 +141,8 @@ namespace: gx gx#check-duplicate-identifiers))) (%#define-runtime core-bind-values? gx#core-bind-values?) (%#begin (%#define-runtime - core-bind-values!__opt-lambda6175 - gx#core-bind-values!__opt-lambda6175) + core-bind-values!__opt-lambda6251 + gx#core-bind-values!__opt-lambda6251) (%#begin (%#define-runtime core-bind-values!__0 gx#core-bind-values!__0) @@ -159,8 +159,8 @@ namespace: gx (%#define-runtime core-runtime-ref? gx#core-runtime-ref?) (%#define-runtime core-quote-runtime-ref gx#core-quote-runtime-ref) (%#begin (%#define-runtime - core-bind-runtime!__opt-lambda6111 - gx#core-bind-runtime!__opt-lambda6111) + core-bind-runtime!__opt-lambda6187 + gx#core-bind-runtime!__opt-lambda6187) (%#begin (%#define-runtime core-bind-runtime!__0 gx#core-bind-runtime!__0) @@ -174,8 +174,8 @@ namespace: gx core-bind-runtime! gx#core-bind-runtime!))) (%#begin (%#define-runtime - core-bind-runtime-reference!__opt-lambda6066 - gx#core-bind-runtime-reference!__opt-lambda6066) + core-bind-runtime-reference!__opt-lambda6142 + gx#core-bind-runtime-reference!__opt-lambda6142) (%#begin (%#define-runtime core-bind-runtime-reference!__0 gx#core-bind-runtime-reference!__0) @@ -189,8 +189,8 @@ namespace: gx core-bind-runtime-reference! gx#core-bind-runtime-reference!))) (%#begin (%#define-runtime - core-bind-extern!__opt-lambda6026 - gx#core-bind-extern!__opt-lambda6026) + core-bind-extern!__opt-lambda6102 + gx#core-bind-extern!__opt-lambda6102) (%#begin (%#define-runtime core-bind-extern!__0 gx#core-bind-extern!__0) @@ -204,8 +204,8 @@ namespace: gx core-bind-extern! gx#core-bind-extern!))) (%#begin (%#define-runtime - core-bind-syntax!__opt-lambda5980 - gx#core-bind-syntax!__opt-lambda5980) + core-bind-syntax!__opt-lambda6056 + gx#core-bind-syntax!__opt-lambda6056) (%#begin (%#define-runtime core-bind-syntax!__0 gx#core-bind-syntax!__0) @@ -219,8 +219,8 @@ namespace: gx core-bind-syntax! gx#core-bind-syntax!))) (%#begin (%#define-runtime - core-bind-root-syntax!__opt-lambda5963 - gx#core-bind-root-syntax!__opt-lambda5963) + core-bind-root-syntax!__opt-lambda6039 + gx#core-bind-root-syntax!__opt-lambda6039) (%#begin (%#define-runtime core-bind-root-syntax!__0 gx#core-bind-root-syntax!__0) @@ -228,8 +228,8 @@ namespace: gx core-bind-root-syntax! gx#core-bind-root-syntax!))) (%#begin (%#define-runtime - core-bind-alias!__opt-lambda5921 - gx#core-bind-alias!__opt-lambda5921) + core-bind-alias!__opt-lambda5997 + gx#core-bind-alias!__opt-lambda5997) (%#begin (%#define-runtime core-bind-alias!__0 gx#core-bind-alias!__0) @@ -243,8 +243,8 @@ namespace: gx core-bind-alias! gx#core-bind-alias!))) (%#begin (%#define-runtime - make-binding-id__opt-lambda5878 - gx#make-binding-id__opt-lambda5878) + make-binding-id__opt-lambda5954 + gx#make-binding-id__opt-lambda5954) (%#begin (%#define-runtime make-binding-id__0 gx#make-binding-id__0) diff --git a/src/bootstrap/gerbil/expander/top.ssxi.ss b/src/bootstrap/gerbil/expander/top.ssxi.ss index a025d74e1..410446c2b 100644 --- a/src/bootstrap/gerbil/expander/top.ssxi.ss +++ b/src/bootstrap/gerbil/expander/top.ssxi.ss @@ -6,78 +6,78 @@ package: gerbil/expander gx#core-expand-lambda% (@case-lambda (1 gx#core-expand-lambda%__0) - (2 gx#core-expand-lambda%__opt-lambda7815))) + (2 gx#core-expand-lambda%__opt-lambda7891))) (declare-type gx#core-expand-letrec-values% (@case-lambda (1 gx#core-expand-letrec-values%__0) - (2 gx#core-expand-letrec-values%__opt-lambda7678))) + (2 gx#core-expand-letrec-values%__opt-lambda7754))) (declare-type gx#core-expand-let-bind-syntax! (@case-lambda (2 gx#core-expand-let-bind-syntax!__0) - (3 gx#core-expand-let-bind-syntax!__opt-lambda7270))) + (3 gx#core-expand-let-bind-syntax!__opt-lambda7346))) (declare-type gx#macro-expand-let-values (@case-lambda (1 gx#macro-expand-let-values__0) - (2 gx#macro-expand-let-values__opt-lambda6421))) + (2 gx#macro-expand-let-values__opt-lambda6497))) (declare-type gx#check-duplicate-identifiers (@case-lambda (1 gx#check-duplicate-identifiers__0) - (2 gx#check-duplicate-identifiers__opt-lambda6219))) + (2 gx#check-duplicate-identifiers__opt-lambda6295))) (declare-type gx#core-bind-values! (@case-lambda (1 gx#core-bind-values!__0) (2 gx#core-bind-values!__1) (3 gx#core-bind-values!__2) - (4 gx#core-bind-values!__opt-lambda6175))) + (4 gx#core-bind-values!__opt-lambda6251))) (declare-type gx#core-bind-runtime! (@case-lambda (1 gx#core-bind-runtime!__0) (2 gx#core-bind-runtime!__1) (3 gx#core-bind-runtime!__2) - (4 gx#core-bind-runtime!__opt-lambda6111))) + (4 gx#core-bind-runtime!__opt-lambda6187))) (declare-type gx#core-bind-runtime-reference! (@case-lambda (2 gx#core-bind-runtime-reference!__0) (3 gx#core-bind-runtime-reference!__1) (4 gx#core-bind-runtime-reference!__2) - (5 gx#core-bind-runtime-reference!__opt-lambda6066))) + (5 gx#core-bind-runtime-reference!__opt-lambda6142))) (declare-type gx#core-bind-extern! (@case-lambda (2 gx#core-bind-extern!__0) (3 gx#core-bind-extern!__1) (4 gx#core-bind-extern!__2) - (5 gx#core-bind-extern!__opt-lambda6026))) + (5 gx#core-bind-extern!__opt-lambda6102))) (declare-type gx#core-bind-syntax! (@case-lambda (2 gx#core-bind-syntax!__0) (3 gx#core-bind-syntax!__1) (4 gx#core-bind-syntax!__2) - (5 gx#core-bind-syntax!__opt-lambda5980))) + (5 gx#core-bind-syntax!__opt-lambda6056))) (declare-type gx#core-bind-root-syntax! (@case-lambda (2 gx#core-bind-root-syntax!__0) - (3 gx#core-bind-root-syntax!__opt-lambda5963))) + (3 gx#core-bind-root-syntax!__opt-lambda6039))) (declare-type gx#core-bind-alias! (@case-lambda (2 gx#core-bind-alias!__0) (3 gx#core-bind-alias!__1) (4 gx#core-bind-alias!__2) - (5 gx#core-bind-alias!__opt-lambda5921))) + (5 gx#core-bind-alias!__opt-lambda5997))) (declare-type gx#make-binding-id (@case-lambda (1 gx#make-binding-id__0) (2 gx#make-binding-id__1) (3 gx#make-binding-id__2) - (4 gx#make-binding-id__opt-lambda5878)))) + (4 gx#make-binding-id__opt-lambda5954)))) diff --git a/src/bootstrap/gerbil/expander/top__0.scm b/src/bootstrap/gerbil/expander/top__0.scm index 794eec097..a0e6ce963 100644 --- a/src/bootstrap/gerbil/expander/top__0.scm +++ b/src/bootstrap/gerbil/expander/top__0.scm @@ -1,3048 +1,3048 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin (define gx#core-expand-begin% - (lambda (_stx8838_) - (let ((_expand-special8840_ - (lambda (_hd8842_ _K8843_ _rest8844_ _r8845_) - (_K8843_ _rest8844_ - (cons (gx#core-expand-top _hd8842_) _r8845_))))) - (gx#core-expand-block__0 _stx8838_ _expand-special8840_)))) + (lambda (_stx8914_) + (let ((_expand-special8916_ + (lambda (_hd8918_ _K8919_ _rest8920_ _r8921_) + (_K8919_ _rest8920_ + (cons (gx#core-expand-top _hd8918_) _r8921_))))) + (gx#core-expand-block__0 _stx8914_ _expand-special8916_)))) (define gx#core-expand-begin-syntax% - (lambda (_stx8591_) - (let ((_expand-special8593_ - (lambda (_hd8713_ _K8714_ _rest8715_ _r8716_) - (let ((_K8720_ (lambda (_e8718_) - (_K8714_ _rest8715_ (cons _e8718_ _r8716_))))) - (let ((_e87218750_ _hd8713_)) - (let ((_E87458754_ + (lambda (_stx8667_) + (let ((_expand-special8669_ + (lambda (_hd8789_ _K8790_ _rest8791_ _r8792_) + (let ((_K8796_ (lambda (_e8794_) + (_K8790_ _rest8791_ (cons _e8794_ _r8792_))))) + (let ((_e87978826_ _hd8789_)) + (let ((_E88218830_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e87218750_)))) - (let ((_E87418766_ + _e87978826_)))) + (let ((_E88178842_ (lambda () - (if (gx#stx-pair? _e87218750_) - (let ((_e87468758_ - (gx#syntax-e _e87218750_))) - (let ((_hd87478761_ (##car _e87468758_)) - (_tl87488763_ (##cdr _e87468758_))) - (if (if (gx#identifier? _hd87478761_) + (if (gx#stx-pair? _e87978826_) + (let ((_e88228834_ + (gx#syntax-e _e87978826_))) + (let ((_hd88238837_ (##car _e88228834_)) + (_tl88248839_ (##cdr _e88228834_))) + (if (if (gx#identifier? _hd88238837_) (gx#core-identifier=? - _hd87478761_ + _hd88238837_ '%#define-runtime) '#f) (if '#t - (_K8720_ (gx#core-expand-define-runtime% - _hd8713_)) - (_E87458754_)) - (_E87458754_)))) - (_E87458754_))))) - (let ((_E87378778_ + (_K8796_ (gx#core-expand-define-runtime% + _hd8789_)) + (_E88218830_)) + (_E88218830_)))) + (_E88218830_))))) + (let ((_E88138854_ (lambda () - (if (gx#stx-pair? _e87218750_) - (let ((_e87428770_ - (gx#syntax-e _e87218750_))) - (let ((_hd87438773_ (##car _e87428770_)) - (_tl87448775_ (##cdr _e87428770_))) - (if (if (gx#identifier? _hd87438773_) + (if (gx#stx-pair? _e87978826_) + (let ((_e88188846_ + (gx#syntax-e _e87978826_))) + (let ((_hd88198849_ (##car _e88188846_)) + (_tl88208851_ (##cdr _e88188846_))) + (if (if (gx#identifier? _hd88198849_) (gx#core-identifier=? - _hd87438773_ + _hd88198849_ '%#define-alias) '#f) (if '#t - (_K8720_ (gx#core-expand-define-alias% - _hd8713_)) - (_E87418766_)) - (_E87418766_)))) - (_E87418766_))))) - (let ((_E87278790_ + (_K8796_ (gx#core-expand-define-alias% + _hd8789_)) + (_E88178842_)) + (_E88178842_)))) + (_E88178842_))))) + (let ((_E88038866_ (lambda () - (if (gx#stx-pair? _e87218750_) - (let ((_e87388782_ - (gx#syntax-e _e87218750_))) - (let ((_hd87398785_ - (##car _e87388782_)) - (_tl87408787_ - (##cdr _e87388782_))) - (if (if (gx#identifier? _hd87398785_) + (if (gx#stx-pair? _e87978826_) + (let ((_e88148858_ + (gx#syntax-e _e87978826_))) + (let ((_hd88158861_ + (##car _e88148858_)) + (_tl88168863_ + (##cdr _e88148858_))) + (if (if (gx#identifier? _hd88158861_) (gx#core-identifier=? - _hd87398785_ + _hd88158861_ '%#define-syntax) '#f) (if '#t - (_K8720_ (gx#core-expand-define-syntax% - _hd8713_)) - (_E87378778_)) - (_E87378778_)))) - (_E87378778_))))) - (let ((_E87238822_ + (_K8796_ (gx#core-expand-define-syntax% + _hd8789_)) + (_E88138854_)) + (_E88138854_)))) + (_E88138854_))))) + (let ((_E87998898_ (lambda () - (if (gx#stx-pair? _e87218750_) - (let ((_e87288794_ - (gx#syntax-e _e87218750_))) - (let ((_hd87298797_ - (##car _e87288794_)) - (_tl87308799_ - (##cdr _e87288794_))) + (if (gx#stx-pair? _e87978826_) + (let ((_e88048870_ + (gx#syntax-e _e87978826_))) + (let ((_hd88058873_ + (##car _e88048870_)) + (_tl88068875_ + (##cdr _e88048870_))) (if (if (gx#identifier? - _hd87298797_) + _hd88058873_) (gx#core-identifier=? - _hd87298797_ + _hd88058873_ '%#define-values) '#f) - (if (gx#stx-pair? _tl87308799_) - (let ((_e87318802_ + (if (gx#stx-pair? _tl88068875_) + (let ((_e88078878_ (gx#syntax-e - _tl87308799_))) - (let ((_hd87328805_ - (##car _e87318802_)) - (_tl87338807_ - (##cdr _e87318802_))) - (let ((_hd-bind8810_ - _hd87328805_)) + _tl88068875_))) + (let ((_hd88088881_ + (##car _e88078878_)) + (_tl88098883_ + (##cdr _e88078878_))) + (let ((_hd-bind8886_ + _hd88088881_)) (if (gx#stx-pair? - _tl87338807_) - (let ((_e87348812_ + _tl88098883_) + (let ((_e88108888_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl87338807_))) - (let ((_hd87358815_ (##car _e87348812_)) - (_tl87368817_ (##cdr _e87348812_))) - (let ((_expr8820_ _hd87358815_)) - (if (gx#stx-null? _tl87368817_) - (if (gx#core-bind-values? _hd-bind8810_) + (gx#syntax-e _tl88098883_))) + (let ((_hd88118891_ (##car _e88108888_)) + (_tl88128893_ (##cdr _e88108888_))) + (let ((_expr8896_ _hd88118891_)) + (if (gx#stx-null? _tl88128893_) + (if (gx#core-bind-values? _hd-bind8886_) (begin - (gx#core-bind-values!__0 _hd-bind8810_) - (_K8720_ _hd8713_)) - (_E87278790_)) - (_E87278790_))))) - (_E87278790_))))) + (gx#core-bind-values!__0 _hd-bind8886_) + (_K8796_ _hd8789_)) + (_E88038866_)) + (_E88038866_))))) + (_E88038866_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E87278790_)) - (_E87278790_)))) - (_E87278790_))))) - (let ((_E87228834_ + (_E88038866_)) + (_E88038866_)))) + (_E88038866_))))) + (let ((_E87988910_ (lambda () - (if (gx#stx-pair? _e87218750_) - (let ((_e87248826_ - (gx#syntax-e _e87218750_))) - (let ((_hd87258829_ - (##car _e87248826_)) - (_tl87268831_ - (##cdr _e87248826_))) + (if (gx#stx-pair? _e87978826_) + (let ((_e88008902_ + (gx#syntax-e _e87978826_))) + (let ((_hd88018905_ + (##car _e88008902_)) + (_tl88028907_ + (##cdr _e88008902_))) (if (if (gx#identifier? - _hd87258829_) + _hd88018905_) (gx#core-identifier=? - _hd87258829_ + _hd88018905_ '%#begin-syntax) '#f) (if '#t - (_K8720_ (gx#core-expand-begin-syntax% - _hd8713_)) - (_E87238822_)) - (_E87238822_)))) - (_E87238822_))))) - (let () (_E87228834_))))))))))))) - (let ((_eval-body8594_ - (lambda (_rbody8602_) - ((letrec ((_lp8604_ - (lambda (_rest8606_ _body8607_ _ebody8608_) - (let ((_rest86098617_ _rest8606_)) - (let ((_E86128621_ + (_K8796_ (gx#core-expand-begin-syntax% + _hd8789_)) + (_E87998898_)) + (_E87998898_)))) + (_E87998898_))))) + (let () (_E87988910_))))))))))))) + (let ((_eval-body8670_ + (lambda (_rbody8678_) + ((letrec ((_lp8680_ + (lambda (_rest8682_ _body8683_ _ebody8684_) + (let ((_rest86858693_ _rest8682_)) + (let ((_E86888697_ (lambda () (error '"No clause matching" - _rest86098617_)))) - (let ((_else86118625_ + _rest86858693_)))) + (let ((_else86878701_ (lambda () - (values _body8607_ + (values _body8683_ (gx#eval-syntax* (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _ebody8608_) + _ebody8684_) (gx#stx-source - _stx8591_))))))) - (let ((_K86138701_ - (lambda (_rest8628_ _hd8629_) - (let ((_e86308647_ _hd8629_)) - (let ((_E86428651_ + _stx8667_))))))) + (let ((_K86898777_ + (lambda (_rest8704_ _hd8705_) + (let ((_e87068723_ _hd8705_)) + (let ((_E87188727_ (lambda () - (_lp8604_ - _rest8628_ - (cons _hd8629_ - _body8607_) - (cons _hd8629_ - _ebody8608_))))) - (let ((_E86328663_ + (_lp8680_ + _rest8704_ + (cons _hd8705_ + _body8683_) + (cons _hd8705_ + _ebody8684_))))) + (let ((_E87088739_ (lambda () (if (gx#stx-pair? - _e86308647_) - (let ((_e86438655_ + _e87068723_) + (let ((_e87198731_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e86308647_))) - (let ((_hd86448658_ (##car _e86438655_)) - (_tl86458660_ (##cdr _e86438655_))) - (if (if (gx#identifier? _hd86448658_) + (gx#syntax-e _e87068723_))) + (let ((_hd87208734_ (##car _e87198731_)) + (_tl87218736_ (##cdr _e87198731_))) + (if (if (gx#identifier? _hd87208734_) (gx#core-identifier=? - _hd86448658_ + _hd87208734_ '%#begin-syntax) '#f) (if '#t - (_lp8604_ - _rest8628_ - (cons _hd8629_ _body8607_) - _ebody8608_) - (_E86428651_)) - (_E86428651_)))) - (_E86428651_))))) + (_lp8680_ + _rest8704_ + (cons _hd8705_ _body8683_) + _ebody8684_) + (_E87188727_)) + (_E87188727_)))) + (_E87188727_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_E86318697_ + (let ((_E87078773_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e86308647_) - (let ((_e86338667_ (gx#syntax-e _e86308647_))) - (let ((_hd86348670_ (##car _e86338667_)) - (_tl86358672_ (##cdr _e86338667_))) - (if (if (gx#identifier? _hd86348670_) + _e87068723_) + (let ((_e87098743_ (gx#syntax-e _e87068723_))) + (let ((_hd87108746_ (##car _e87098743_)) + (_tl87118748_ (##cdr _e87098743_))) + (if (if (gx#identifier? _hd87108746_) (gx#core-identifier=? - _hd86348670_ + _hd87108746_ '%#define-values) '#f) - (if (gx#stx-pair? _tl86358672_) - (let ((_e86368675_ - (gx#syntax-e _tl86358672_))) - (let ((_hd86378678_ (##car _e86368675_)) - (_tl86388680_ (##cdr _e86368675_))) - (let ((_hd-bind8683_ _hd86378678_)) - (if (gx#stx-pair? _tl86388680_) - (let ((_e86398685_ + (if (gx#stx-pair? _tl87118748_) + (let ((_e87128751_ + (gx#syntax-e _tl87118748_))) + (let ((_hd87138754_ (##car _e87128751_)) + (_tl87148756_ (##cdr _e87128751_))) + (let ((_hd-bind8759_ _hd87138754_)) + (if (gx#stx-pair? _tl87148756_) + (let ((_e87158761_ (gx#syntax-e - _tl86388680_))) - (let ((_hd86408688_ - (##car _e86398685_)) - (_tl86418690_ - (##cdr _e86398685_))) - (let ((_expr8693_ - _hd86408688_)) + _tl87148756_))) + (let ((_hd87168764_ + (##car _e87158761_)) + (_tl87178766_ + (##cdr _e87158761_))) + (let ((_expr8769_ + _hd87168764_)) (if (gx#stx-null? - _tl86418690_) + _tl87178766_) (if '#t - (let ((_ehd8695_ + (let ((_ehd8771_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values - _hd-bind8683_) + _hd-bind8759_) (cons (gx#core-expand-expression - _expr8693_) + _expr8769_) '()))) - (gx#stx-source _hd8629_)))) - (_lp8604_ - _rest8628_ - (cons _ehd8695_ _body8607_) - (cons _ehd8695_ _ebody8608_))) - (_E86328663_)) - (_E86328663_))))) + (gx#stx-source _hd8705_)))) + (_lp8680_ + _rest8704_ + (cons _ehd8771_ _body8683_) + (cons _ehd8771_ _ebody8684_))) + (_E87088739_)) + (_E87088739_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E86328663_))))) - (_E86328663_)) - (_E86328663_)))) - (_E86328663_))))) + (_E87088739_))))) + (_E87088739_)) + (_E87088739_)))) + (_E87088739_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () - (_E86318697_))))))))) - (if (##pair? _rest86098617_) - (let ((_hd86148704_ - (##car _rest86098617_)) - (_tl86158706_ - (##cdr _rest86098617_))) - (let ((_hd8709_ _hd86148704_)) - (let ((_rest8711_ _tl86158706_)) - (_K86138701_ - _rest8711_ - _hd8709_)))) - (_else86118625_))))))))) - _lp8604_) - _rbody8602_ + (_E87078773_))))))))) + (if (##pair? _rest86858693_) + (let ((_hd86908780_ + (##car _rest86858693_)) + (_tl86918782_ + (##cdr _rest86858693_))) + (let ((_hd8785_ _hd86908780_)) + (let ((_rest8787_ _tl86918782_)) + (_K86898777_ + _rest8787_ + _hd8785_)))) + (_else86878701_))))))))) + _lp8680_) + _rbody8678_ '() '())))) (call-with-parameters (lambda () - (let ((_rbody8597_ + (let ((_rbody8673_ (gx#core-expand-block__1 - _stx8591_ - _expand-special8593_ + _stx8667_ + _expand-special8669_ '#f))) - (let ((_g8852_ (_eval-body8594_ _rbody8597_))) + (let ((_g8928_ (_eval-body8670_ _rbody8673_))) (begin - (let ((_g8853_ (values-count _g8852_))) - (if (not (fx= _g8853_ 2)) - (error "Context expects 2 values" _g8853_))) - (let ((_expanded-body8599_ (values-ref _g8852_ 0)) - (_value8600_ (values-ref _g8852_ 1))) + (let ((_g8929_ (values-count _g8928_))) + (if (not (fx= _g8929_ 2)) + (error "Context expects 2 values" _g8929_))) + (let ((_expanded-body8675_ (values-ref _g8928_ 0)) + (_value8676_ (values-ref _g8928_ 1))) (gx#core-quote-syntax__1 (if (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - (gx#core-cons '%#begin-syntax _expanded-body8599_) + (gx#core-cons '%#begin-syntax _expanded-body8675_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _value8600_ '()))) - (gx#stx-source _stx8591_))))))) + (cons _value8676_ '()))) + (gx#stx-source _stx8667_))))))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)))))) (define gx#core-expand-begin-foreign% - (lambda (_stx8561_) - (let ((_e85628569_ _stx8561_)) - (let ((_E85648573_ + (lambda (_stx8637_) + (let ((_e86388645_ _stx8637_)) + (let ((_E86408649_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e85628569_)))) - (let ((_E85638587_ + (gx#raise-syntax-error '#f '"Bad syntax" _e86388645_)))) + (let ((_E86398663_ (lambda () - (if (gx#stx-pair? _e85628569_) - (let ((_e85658577_ (gx#syntax-e _e85628569_))) - (let ((_hd85668580_ (##car _e85658577_)) - (_tl85678582_ (##cdr _e85658577_))) - (let ((_body8585_ _tl85678582_)) - (if (gx#stx-list? _body8585_) + (if (gx#stx-pair? _e86388645_) + (let ((_e86418653_ (gx#syntax-e _e86388645_))) + (let ((_hd86428656_ (##car _e86418653_)) + (_tl86438658_ (##cdr _e86418653_))) + (let ((_body8661_ _tl86438658_)) + (if (gx#stx-list? _body8661_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin-foreign _body8585_) - (gx#stx-source _stx8561_)) - (_E85648573_))))) - (_E85648573_))))) - (let () (_E85638587_))))))) + (gx#core-cons '%#begin-foreign _body8661_) + (gx#stx-source _stx8637_)) + (_E86408649_))))) + (_E86408649_))))) + (let () (_E86398663_))))))) (define gx#core-expand-begin-annotation% - (lambda (_stx8549_) - (let ((_e85508553_ _stx8549_)) - (let ((_E85518557_ + (lambda (_stx8625_) + (let ((_e86268629_ _stx8625_)) + (let ((_E86278633_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e85508553_)))) - (let () (_E85518557_)))))) + (gx#raise-syntax-error '#f '"Bad syntax" _e86268629_)))) + (let () (_E86278633_)))))) (define gx#core-expand-local-block - (lambda (_stx8273_ _body8274_) - (let ((_expand-internal-special8278_ - (lambda (_hd8435_ _K8436_ _rest8437_ _r8438_) - (let ((_e84398464_ _hd8435_)) - (let ((_E84598468_ + (lambda (_stx8349_ _body8350_) + (let ((_expand-internal-special8354_ + (lambda (_hd8511_ _K8512_ _rest8513_ _r8514_) + (let ((_e85158540_ _hd8511_)) + (let ((_E85358544_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e84398464_)))) - (let ((_E84558480_ + _e85158540_)))) + (let ((_E85318556_ (lambda () - (if (gx#stx-pair? _e84398464_) - (let ((_e84608472_ (gx#syntax-e _e84398464_))) - (let ((_hd84618475_ (##car _e84608472_)) - (_tl84628477_ (##cdr _e84608472_))) - (if (if (gx#identifier? _hd84618475_) + (if (gx#stx-pair? _e85158540_) + (let ((_e85368548_ (gx#syntax-e _e85158540_))) + (let ((_hd85378551_ (##car _e85368548_)) + (_tl85388553_ (##cdr _e85368548_))) + (if (if (gx#identifier? _hd85378551_) (gx#core-identifier=? - _hd84618475_ + _hd85378551_ '%#declare) '#f) (if '#t - (_K8436_ _rest8437_ + (_K8512_ _rest8513_ (cons (gx#core-expand-declare% - _hd8435_) - _r8438_)) - (_E84598468_)) - (_E84598468_)))) - (_E84598468_))))) - (let ((_E84518492_ + _hd8511_) + _r8514_)) + (_E85358544_)) + (_E85358544_)))) + (_E85358544_))))) + (let ((_E85278568_ (lambda () - (if (gx#stx-pair? _e84398464_) - (let ((_e84568484_ - (gx#syntax-e _e84398464_))) - (let ((_hd84578487_ (##car _e84568484_)) - (_tl84588489_ (##cdr _e84568484_))) - (if (if (gx#identifier? _hd84578487_) + (if (gx#stx-pair? _e85158540_) + (let ((_e85328560_ + (gx#syntax-e _e85158540_))) + (let ((_hd85338563_ (##car _e85328560_)) + (_tl85348565_ (##cdr _e85328560_))) + (if (if (gx#identifier? _hd85338563_) (gx#core-identifier=? - _hd84578487_ + _hd85338563_ '%#define-alias) '#f) (if '#t (begin (gx#core-expand-define-alias% - _hd8435_) - (_K8436_ _rest8437_ _r8438_)) - (_E84558480_)) - (_E84558480_)))) - (_E84558480_))))) - (let ((_E84418504_ + _hd8511_) + (_K8512_ _rest8513_ _r8514_)) + (_E85318556_)) + (_E85318556_)))) + (_E85318556_))))) + (let ((_E85178580_ (lambda () - (if (gx#stx-pair? _e84398464_) - (let ((_e84528496_ - (gx#syntax-e _e84398464_))) - (let ((_hd84538499_ (##car _e84528496_)) - (_tl84548501_ (##cdr _e84528496_))) - (if (if (gx#identifier? _hd84538499_) + (if (gx#stx-pair? _e85158540_) + (let ((_e85288572_ + (gx#syntax-e _e85158540_))) + (let ((_hd85298575_ (##car _e85288572_)) + (_tl85308577_ (##cdr _e85288572_))) + (if (if (gx#identifier? _hd85298575_) (gx#core-identifier=? - _hd84538499_ + _hd85298575_ '%#define-syntax) '#f) (if '#t (begin (gx#core-expand-define-syntax% - _hd8435_) - (_K8436_ _rest8437_ _r8438_)) - (_E84518492_)) - (_E84518492_)))) - (_E84518492_))))) - (let ((_E84408536_ + _hd8511_) + (_K8512_ _rest8513_ _r8514_)) + (_E85278568_)) + (_E85278568_)))) + (_E85278568_))))) + (let ((_E85168612_ (lambda () - (if (gx#stx-pair? _e84398464_) - (let ((_e84428508_ - (gx#syntax-e _e84398464_))) - (let ((_hd84438511_ - (##car _e84428508_)) - (_tl84448513_ - (##cdr _e84428508_))) - (if (if (gx#identifier? _hd84438511_) + (if (gx#stx-pair? _e85158540_) + (let ((_e85188584_ + (gx#syntax-e _e85158540_))) + (let ((_hd85198587_ + (##car _e85188584_)) + (_tl85208589_ + (##cdr _e85188584_))) + (if (if (gx#identifier? _hd85198587_) (gx#core-identifier=? - _hd84438511_ + _hd85198587_ '%#define-values) '#f) - (if (gx#stx-pair? _tl84448513_) - (let ((_e84458516_ + (if (gx#stx-pair? _tl85208589_) + (let ((_e85218592_ (gx#syntax-e - _tl84448513_))) - (let ((_hd84468519_ - (##car _e84458516_)) - (_tl84478521_ - (##cdr _e84458516_))) - (let ((_hd-bind8524_ - _hd84468519_)) + _tl85208589_))) + (let ((_hd85228595_ + (##car _e85218592_)) + (_tl85238597_ + (##cdr _e85218592_))) + (let ((_hd-bind8600_ + _hd85228595_)) (if (gx#stx-pair? - _tl84478521_) - (let ((_e84488526_ + _tl85238597_) + (let ((_e85248602_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl84478521_))) - (let ((_hd84498529_ (##car _e84488526_)) - (_tl84508531_ (##cdr _e84488526_))) - (let ((_expr8534_ _hd84498529_)) - (if (gx#stx-null? _tl84508531_) - (if (gx#core-bind-values? _hd-bind8524_) + (gx#syntax-e _tl85238597_))) + (let ((_hd85258605_ (##car _e85248602_)) + (_tl85268607_ (##cdr _e85248602_))) + (let ((_expr8610_ _hd85258605_)) + (if (gx#stx-null? _tl85268607_) + (if (gx#core-bind-values? _hd-bind8600_) (begin - (gx#core-bind-values!__0 _hd-bind8524_) - (_K8436_ _rest8437_ - (cons _hd8435_ _r8438_))) - (_E84418504_)) - (_E84418504_))))) - (_E84418504_))))) + (gx#core-bind-values!__0 _hd-bind8600_) + (_K8512_ _rest8513_ + (cons _hd8511_ _r8514_))) + (_E85178580_)) + (_E85178580_))))) + (_E85178580_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E84418504_)) - (_E84418504_)))) - (_E84418504_))))) - (let () (_E84408536_))))))))))) - (let ((_wrap-internal8279_ - (lambda (_rbody8281_) - ((letrec ((_lp8283_ - (lambda (_rest8285_ - _decls8286_ - _bind8287_ - _body8288_) - (let ((_e82898296_ _rest8285_)) - (let ((_E82918345_ + (_E85178580_)) + (_E85178580_)))) + (_E85178580_))))) + (let () (_E85168612_))))))))))) + (let ((_wrap-internal8355_ + (lambda (_rbody8357_) + ((letrec ((_lp8359_ + (lambda (_rest8361_ + _decls8362_ + _bind8363_ + _body8364_) + (let ((_e83658372_ _rest8361_)) + (let ((_E83678421_ (lambda () - (let ((_body8340_ - (let ((_body82998309_ - _body8288_)) - (let ((_E83038313_ + (let ((_body8416_ + (let ((_body83758385_ + _body8364_)) + (let ((_E83798389_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body82998309_)))) + _body83758385_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_else83028317_ + (let ((_else83788393_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body8288_) + _body8364_) (gx#stx-source - _stx8273_))))) - (let ((_try-match83018333_ + _stx8349_))))) + (let ((_try-match83778409_ (lambda () - (let ((_K83048323_ + (let ((_K83808399_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_expr8321_) _expr8321_))) - (if (##pair? _body82998309_) - (let ((_hd83058326_ (##car _body82998309_)) - (_tl83068328_ (##cdr _body82998309_))) - (let ((_expr8331_ _hd83058326_)) - (if (##null? _tl83068328_) - (_K83048323_ _expr8331_) - (_else83028317_)))) - (_else83028317_)))))) - (let ((_K83078337_ + (lambda (_expr8397_) _expr8397_))) + (if (##pair? _body83758385_) + (let ((_hd83818402_ (##car _body83758385_)) + (_tl83828404_ (##cdr _body83758385_))) + (let ((_expr8407_ _hd83818402_)) + (if (##null? _tl83828404_) + (_K83808399_ _expr8407_) + (_else83788393_)))) + (_else83788393_)))))) + (let ((_K83838413_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _stx8273_)))) - (if (##null? _body82998309_) - (_K83078337_) - (_try-match83018333_))))))))) + (gx#raise-syntax-error '#f '"Bad syntax" _stx8349_)))) + (if (##null? _body83758385_) + (_K83838413_) + (_try-match83778409_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_body8342_ - (if (null? _bind8287_) - _body8340_ + (let ((_body8418_ + (if (null? _bind8363_) + _body8416_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#letrec*-values) - (cons _bind8287_ + (cons _bind8363_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _body8340_ '()))) - (gx#stx-source _stx8273_))))) + (cons _body8416_ '()))) + (gx#stx-source _stx8349_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () - (if (null? _decls8286_) - _body8342_ + (if (null? _decls8362_) + _body8418_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _decls8286_ - (cons _body8342_ + (cons _decls8362_ + (cons _body8418_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _stx8273_))))))))) - (let ((_E82908431_ + _stx8349_))))))))) + (let ((_E83668507_ (lambda () - (if (gx#stx-pair? _e82898296_) - (let ((_e82928349_ + (if (gx#stx-pair? _e83658372_) + (let ((_e83688425_ (gx#syntax-e - _e82898296_))) - (let ((_hd82938352_ - (##car _e82928349_)) - (_tl82948354_ - (##cdr _e82928349_))) - (let ((_hd8357_ - _hd82938352_)) - (let ((_rest8359_ - _tl82948354_)) + _e83658372_))) + (let ((_hd83698428_ + (##car _e83688425_)) + (_tl83708430_ + (##cdr _e83688425_))) + (let ((_hd8433_ + _hd83698428_)) + (let ((_rest8435_ + _tl83708430_)) (if '#t - (let ((_e83608377_ + (let ((_e84368453_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd8357_)) - (let ((_E83728381_ + _hd8433_)) + (let ((_E84488457_ (lambda () - (if (null? _bind8287_) - (_lp8283_ - _rest8359_ - _decls8286_ - _bind8287_ - (cons _hd8357_ _body8288_)) - (_lp8283_ - _rest8359_ - _decls8286_ - (cons (cons '#f (cons _hd8357_ '())) - _bind8287_) - _body8288_))))) - (let ((_E83628395_ + (if (null? _bind8363_) + (_lp8359_ + _rest8435_ + _decls8362_ + _bind8363_ + (cons _hd8433_ _body8364_)) + (_lp8359_ + _rest8435_ + _decls8362_ + (cons (cons '#f (cons _hd8433_ '())) + _bind8363_) + _body8364_))))) + (let ((_E84388471_ (lambda () - (if (gx#stx-pair? _e83608377_) - (let ((_e83738385_ - (gx#syntax-e _e83608377_))) - (let ((_hd83748388_ (##car _e83738385_)) - (_tl83758390_ (##cdr _e83738385_))) - (if (if (gx#identifier? _hd83748388_) + (if (gx#stx-pair? _e84368453_) + (let ((_e84498461_ + (gx#syntax-e _e84368453_))) + (let ((_hd84508464_ (##car _e84498461_)) + (_tl84518466_ (##cdr _e84498461_))) + (if (if (gx#identifier? _hd84508464_) (gx#core-identifier=? - _hd83748388_ + _hd84508464_ '%#declare) '#f) - (let ((_xdecls8393_ _tl83758390_)) + (let ((_xdecls8469_ _tl84518466_)) (if '#t - (_lp8283_ - _rest8359_ + (_lp8359_ + _rest8435_ (gx#stx-foldr cons - _decls8286_ - _xdecls8393_) - _bind8287_ - _body8288_) - (_E83728381_))) - (_E83728381_)))) - (_E83728381_))))) - (let ((_E83618427_ + _decls8362_ + _xdecls8469_) + _bind8363_ + _body8364_) + (_E84488457_))) + (_E84488457_)))) + (_E84488457_))))) + (let ((_E84378503_ (lambda () - (if (gx#stx-pair? _e83608377_) - (let ((_e83638399_ - (gx#syntax-e _e83608377_))) - (let ((_hd83648402_ - (##car _e83638399_)) - (_tl83658404_ - (##cdr _e83638399_))) - (if (if (gx#identifier? _hd83648402_) + (if (gx#stx-pair? _e84368453_) + (let ((_e84398475_ + (gx#syntax-e _e84368453_))) + (let ((_hd84408478_ + (##car _e84398475_)) + (_tl84418480_ + (##cdr _e84398475_))) + (if (if (gx#identifier? _hd84408478_) (gx#core-identifier=? - _hd83648402_ + _hd84408478_ '%#define-values) '#f) - (if (gx#stx-pair? _tl83658404_) - (let ((_e83668407_ + (if (gx#stx-pair? _tl84418480_) + (let ((_e84428483_ (gx#syntax-e - _tl83658404_))) - (let ((_hd83678410_ - (##car _e83668407_)) - (_tl83688412_ - (##cdr _e83668407_))) - (let ((_hd-bind8415_ - _hd83678410_)) + _tl84418480_))) + (let ((_hd84438486_ + (##car _e84428483_)) + (_tl84448488_ + (##cdr _e84428483_))) + (let ((_hd-bind8491_ + _hd84438486_)) (if (gx#stx-pair? - _tl83688412_) - (let ((_e83698417_ + _tl84448488_) + (let ((_e84458493_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl83688412_))) - (let ((_hd83708420_ (##car _e83698417_)) - (_tl83718422_ (##cdr _e83698417_))) - (let ((_expr8425_ _hd83708420_)) - (if (gx#stx-null? _tl83718422_) + (gx#syntax-e _tl84448488_))) + (let ((_hd84468496_ (##car _e84458493_)) + (_tl84478498_ (##cdr _e84458493_))) + (let ((_expr8501_ _hd84468496_)) + (if (gx#stx-null? _tl84478498_) (if '#t - (_lp8283_ - _rest8359_ - _decls8286_ + (_lp8359_ + _rest8435_ + _decls8362_ (cons (cons (gx#core-quote-bind-values - _hd-bind8415_) + _hd-bind8491_) (cons (gx#core-expand-expression - _expr8425_) + _expr8501_) '())) - _bind8287_) - _body8288_) - (_E83628395_)) - (_E83628395_))))) - (_E83628395_))))) + _bind8363_) + _body8364_) + (_E84388471_)) + (_E84388471_))))) + (_E84388471_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E83628395_)) - (_E83628395_)))) - (_E83628395_))))) - (let () (_E83618427_)))))) - (_E82918345_)))))) + (_E84388471_)) + (_E84388471_)))) + (_E84388471_))))) + (let () (_E84378503_)))))) + (_E83678421_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E82918345_))))) - (let () (_E82908431_)))))))) - _lp8283_) - _rbody8281_ + (_E83678421_))))) + (let () (_E83668507_)))))))) + _lp8359_) + _rbody8357_ '() '() '())))) - (let ((_expand-internal8277_ - (lambda (_hd8540_ _rest8541_) + (let ((_expand-internal8353_ + (lambda (_hd8616_ _rest8617_) (call-with-parameters (lambda () - (_wrap-internal8279_ + (_wrap-internal8355_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons* '%#begin _hd8540_ _rest8541_) - (gx#stx-source _stx8273_)) - _expand-internal-special8278_ + (cons* '%#begin _hd8616_ _rest8617_) + (gx#stx-source _stx8349_)) + _expand-internal-special8354_ '#f))) gx#current-expander-context - (let ((__obj8846 (make-object gx#local-context::t '5))) + (let ((__obj8922 (make-object gx#local-context::t '5))) (begin - (gx#local-context:::init!__0 __obj8846) - __obj8846)))))) - (let ((_expand-special8276_ - (lambda (_hd8544_ _K8545_ _rest8546_ _r8547_) - (_K8545_ '() - (cons (_expand-internal8277_ _hd8544_ _rest8546_) - _r8547_))))) + (gx#local-context:::init!__0 __obj8922) + __obj8922)))))) + (let ((_expand-special8352_ + (lambda (_hd8620_ _K8621_ _rest8622_ _r8623_) + (_K8621_ '() + (cons (_expand-internal8353_ _hd8620_ _rest8622_) + _r8623_))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _body8274_) - (gx#stx-source _stx8273_)) - _expand-special8276_))))))) + (cons '%#begin _body8350_) + (gx#stx-source _stx8349_)) + _expand-special8352_))))))) (define gx#core-expand-declare% - (lambda (_stx8211_) - (let ((_e82128219_ _stx8211_)) - (let ((_E82148223_ + (lambda (_stx8287_) + (let ((_e82888295_ _stx8287_)) + (let ((_E82908299_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e82128219_)))) - (let ((_E82138269_ + (gx#raise-syntax-error '#f '"Bad syntax" _e82888295_)))) + (let ((_E82898345_ (lambda () - (if (gx#stx-pair? _e82128219_) - (let ((_e82158227_ (gx#syntax-e _e82128219_))) - (let ((_hd82168230_ (##car _e82158227_)) - (_tl82178232_ (##cdr _e82158227_))) - (let ((_body8235_ _tl82178232_)) - (if (gx#stx-list? _body8235_) + (if (gx#stx-pair? _e82888295_) + (let ((_e82918303_ (gx#syntax-e _e82888295_))) + (let ((_hd82928306_ (##car _e82918303_)) + (_tl82938308_ (##cdr _e82918303_))) + (let ((_body8311_ _tl82938308_)) + (if (gx#stx-list? _body8311_) (gx#core-quote-syntax__1 (gx#core-cons '%#declare (gx#stx-map1 - (lambda (_decl8237_) - (let ((_e82388245_ _decl8237_)) - (let ((_E82408249_ + (lambda (_decl8313_) + (let ((_e83148321_ _decl8313_)) + (let ((_E83168325_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e82388245_)))) - (let ((_E82398265_ + _e83148321_)))) + (let ((_E83158341_ (lambda () (if (gx#stx-pair? - _e82388245_) - (let ((_e82418253_ + _e83148321_) + (let ((_e83178329_ (gx#syntax-e - _e82388245_))) - (let ((_hd82428256_ - (##car _e82418253_)) - (_tl82438258_ - (##cdr _e82418253_))) - (let ((_head8261_ + _e83148321_))) + (let ((_hd83188332_ + (##car _e83178329_)) + (_tl83198334_ + (##cdr _e83178329_))) + (let ((_head8337_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd82428256_)) - (let ((_args8263_ _tl82438258_)) - (if (gx#stx-list? _args8263_) - (gx#stx-map1 gx#core-quote-syntax _decl8237_) - (_E82408249_)))))) - (_E82408249_))))) + _hd83188332_)) + (let ((_args8339_ _tl83198334_)) + (if (gx#stx-list? _args8339_) + (gx#stx-map1 gx#core-quote-syntax _decl8313_) + (_E83168325_)))))) + (_E83168325_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () (_E82398265_)))))) - _body8235_)) - (gx#stx-source _stx8211_)) - (_E82148223_))))) - (_E82148223_))))) - (let () (_E82138269_))))))) + (let () (_E83158341_)))))) + _body8311_)) + (gx#stx-source _stx8287_)) + (_E82908299_))))) + (_E82908299_))))) + (let () (_E82898345_))))))) (define gx#core-expand-extern% - (lambda (_stx8095_) - (let ((_e80968103_ _stx8095_)) - (let ((_E80988107_ + (lambda (_stx8171_) + (let ((_e81728179_ _stx8171_)) + (let ((_E81748183_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e80968103_)))) - (let ((_E80978207_ + (gx#raise-syntax-error '#f '"Bad syntax" _e81728179_)))) + (let ((_E81738283_ (lambda () - (if (gx#stx-pair? _e80968103_) - (let ((_e80998111_ (gx#syntax-e _e80968103_))) - (let ((_hd81008114_ (##car _e80998111_)) - (_tl81018116_ (##cdr _e80998111_))) - (let ((_body8119_ _tl81018116_)) - (if (gx#stx-list? _body8119_) + (if (gx#stx-pair? _e81728179_) + (let ((_e81758187_ (gx#syntax-e _e81728179_))) + (let ((_hd81768190_ (##car _e81758187_)) + (_tl81778192_ (##cdr _e81758187_))) + (let ((_body8195_ _tl81778192_)) + (if (gx#stx-list? _body8195_) (begin (gx#stx-for-each1 - (lambda (_bind8121_) - (let ((_e81228132_ _bind8121_)) - (let ((_E81248136_ + (lambda (_bind8197_) + (let ((_e81988208_ _bind8197_)) + (let ((_E82008212_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e81228132_)))) - (let ((_E81238160_ + _e81988208_)))) + (let ((_E81998236_ (lambda () (if (gx#stx-pair? - _e81228132_) - (let ((_e81258140_ + _e81988208_) + (let ((_e82018216_ (gx#syntax-e - _e81228132_))) - (let ((_hd81268143_ - (##car _e81258140_)) - (_tl81278145_ - (##cdr _e81258140_))) - (let ((_id8148_ + _e81988208_))) + (let ((_hd82028219_ + (##car _e82018216_)) + (_tl82038221_ + (##cdr _e82018216_))) + (let ((_id8224_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd81268143_)) - (if (gx#stx-pair? _tl81278145_) - (let ((_e81288150_ (gx#syntax-e _tl81278145_))) - (let ((_hd81298153_ (##car _e81288150_)) - (_tl81308155_ (##cdr _e81288150_))) - (let ((_eid8158_ _hd81298153_)) - (if (gx#stx-null? _tl81308155_) - (if (if (gx#identifier? _id8148_) - (gx#identifier? _eid8158_) + _hd82028219_)) + (if (gx#stx-pair? _tl82038221_) + (let ((_e82048226_ (gx#syntax-e _tl82038221_))) + (let ((_hd82058229_ (##car _e82048226_)) + (_tl82068231_ (##cdr _e82048226_))) + (let ((_eid8234_ _hd82058229_)) + (if (gx#stx-null? _tl82068231_) + (if (if (gx#identifier? _id8224_) + (gx#identifier? _eid8234_) '#f) (gx#core-bind-extern!__0 - _id8148_ - (gx#stx-e _eid8158_)) - (_E81248136_)) - (_E81248136_))))) - (_E81248136_))))) - (_E81248136_))))) + _id8224_ + (gx#stx-e _eid8234_)) + (_E82008212_)) + (_E82008212_))))) + (_E82008212_))))) + (_E82008212_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () (_E81238160_)))))) - _body8119_) + (let () (_E81998236_)))))) + _body8195_) (gx#core-quote-syntax__1 (gx#core-cons '%#extern (gx#stx-map1 - (lambda (_bind8164_) - (let ((_e81658175_ _bind8164_)) - (let ((_E81678179_ + (lambda (_bind8240_) + (let ((_e82418251_ _bind8240_)) + (let ((_E82438255_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e81658175_)))) - (let ((_E81668203_ + _e82418251_)))) + (let ((_E82428279_ (lambda () (if (gx#stx-pair? - _e81658175_) - (let ((_e81688183_ + _e82418251_) + (let ((_e82448259_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e81658175_))) - (let ((_hd81698186_ (##car _e81688183_)) - (_tl81708188_ (##cdr _e81688183_))) - (let ((_id8191_ _hd81698186_)) - (if (gx#stx-pair? _tl81708188_) - (let ((_e81718193_ (gx#syntax-e _tl81708188_))) - (let ((_hd81728196_ (##car _e81718193_)) - (_tl81738198_ (##cdr _e81718193_))) - (let ((_eid8201_ _hd81728196_)) - (if (gx#stx-null? _tl81738198_) + _e82418251_))) + (let ((_hd82458262_ (##car _e82448259_)) + (_tl82468264_ (##cdr _e82448259_))) + (let ((_id8267_ _hd82458262_)) + (if (gx#stx-pair? _tl82468264_) + (let ((_e82478269_ (gx#syntax-e _tl82468264_))) + (let ((_hd82488272_ (##car _e82478269_)) + (_tl82498274_ (##cdr _e82478269_))) + (let ((_eid8277_ _hd82488272_)) + (if (gx#stx-null? _tl82498274_) (if '#t (cons (gx#core-quote-syntax__0 - _id8191_) - (cons (gx#stx-e _eid8201_) '())) - (_E81678179_)) - (_E81678179_))))) - (_E81678179_))))) - (_E81678179_))))) + _id8267_) + (cons (gx#stx-e _eid8277_) '())) + (_E82438255_)) + (_E82438255_))))) + (_E82438255_))))) + (_E82438255_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () (_E81668203_)))))) - _body8119_)) - (gx#stx-source _stx8095_))) - (_E80988107_))))) - (_E80988107_))))) - (let () (_E80978207_))))))) + (let () (_E82428279_)))))) + _body8195_)) + (gx#stx-source _stx8171_))) + (_E81748183_))))) + (_E81748183_))))) + (let () (_E81738283_))))))) (define gx#core-expand-define-values% - (lambda (_stx8041_) - (let ((_e80428055_ _stx8041_)) - (let ((_E80448059_ + (lambda (_stx8117_) + (let ((_e81188131_ _stx8117_)) + (let ((_E81208135_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e80428055_)))) - (let ((_E80438091_ + (gx#raise-syntax-error '#f '"Bad syntax" _e81188131_)))) + (let ((_E81198167_ (lambda () - (if (gx#stx-pair? _e80428055_) - (let ((_e80458063_ (gx#syntax-e _e80428055_))) - (let ((_hd80468066_ (##car _e80458063_)) - (_tl80478068_ (##cdr _e80458063_))) - (if (gx#stx-pair? _tl80478068_) - (let ((_e80488071_ (gx#syntax-e _tl80478068_))) - (let ((_hd80498074_ (##car _e80488071_)) - (_tl80508076_ (##cdr _e80488071_))) - (let ((_hd8079_ _hd80498074_)) - (if (gx#stx-pair? _tl80508076_) - (let ((_e80518081_ - (gx#syntax-e _tl80508076_))) - (let ((_hd80528084_ - (##car _e80518081_)) - (_tl80538086_ - (##cdr _e80518081_))) - (let ((_expr8089_ _hd80528084_)) - (if (gx#stx-null? _tl80538086_) + (if (gx#stx-pair? _e81188131_) + (let ((_e81218139_ (gx#syntax-e _e81188131_))) + (let ((_hd81228142_ (##car _e81218139_)) + (_tl81238144_ (##cdr _e81218139_))) + (if (gx#stx-pair? _tl81238144_) + (let ((_e81248147_ (gx#syntax-e _tl81238144_))) + (let ((_hd81258150_ (##car _e81248147_)) + (_tl81268152_ (##cdr _e81248147_))) + (let ((_hd8155_ _hd81258150_)) + (if (gx#stx-pair? _tl81268152_) + (let ((_e81278157_ + (gx#syntax-e _tl81268152_))) + (let ((_hd81288160_ + (##car _e81278157_)) + (_tl81298162_ + (##cdr _e81278157_))) + (let ((_expr8165_ _hd81288160_)) + (if (gx#stx-null? _tl81298162_) (if (gx#core-bind-values? - _hd8079_) + _hd8155_) (begin (gx#core-bind-values!__0 - _hd8079_) + _hd8155_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#define-values) - (cons (gx#core-quote-bind-values _hd8079_) - (cons (gx#core-expand-expression _expr8089_) + (cons (gx#core-quote-bind-values _hd8155_) + (cons (gx#core-expand-expression _expr8165_) '()))) - (gx#stx-source _stx8041_))) - (_E80448059_)) + (gx#stx-source _stx8117_))) + (_E81208135_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E80448059_))))) - (_E80448059_))))) - (_E80448059_)))) - (_E80448059_))))) - (let () (_E80438091_))))))) + (_E81208135_))))) + (_E81208135_))))) + (_E81208135_)))) + (_E81208135_))))) + (let () (_E81198167_))))))) (define gx#core-expand-define-runtime% - (lambda (_stx7987_) - (let ((_e79888001_ _stx7987_)) - (let ((_E79908005_ + (lambda (_stx8063_) + (let ((_e80648077_ _stx8063_)) + (let ((_E80668081_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e79888001_)))) - (let ((_E79898037_ + (gx#raise-syntax-error '#f '"Bad syntax" _e80648077_)))) + (let ((_E80658113_ (lambda () - (if (gx#stx-pair? _e79888001_) - (let ((_e79918009_ (gx#syntax-e _e79888001_))) - (let ((_hd79928012_ (##car _e79918009_)) - (_tl79938014_ (##cdr _e79918009_))) - (if (gx#stx-pair? _tl79938014_) - (let ((_e79948017_ (gx#syntax-e _tl79938014_))) - (let ((_hd79958020_ (##car _e79948017_)) - (_tl79968022_ (##cdr _e79948017_))) - (let ((_id8025_ _hd79958020_)) - (if (gx#stx-pair? _tl79968022_) - (let ((_e79978027_ - (gx#syntax-e _tl79968022_))) - (let ((_hd79988030_ - (##car _e79978027_)) - (_tl79998032_ - (##cdr _e79978027_))) - (let ((_binding-id8035_ - _hd79988030_)) - (if (gx#stx-null? _tl79998032_) + (if (gx#stx-pair? _e80648077_) + (let ((_e80678085_ (gx#syntax-e _e80648077_))) + (let ((_hd80688088_ (##car _e80678085_)) + (_tl80698090_ (##cdr _e80678085_))) + (if (gx#stx-pair? _tl80698090_) + (let ((_e80708093_ (gx#syntax-e _tl80698090_))) + (let ((_hd80718096_ (##car _e80708093_)) + (_tl80728098_ (##cdr _e80708093_))) + (let ((_id8101_ _hd80718096_)) + (if (gx#stx-pair? _tl80728098_) + (let ((_e80738103_ + (gx#syntax-e _tl80728098_))) + (let ((_hd80748106_ + (##car _e80738103_)) + (_tl80758108_ + (##cdr _e80738103_))) + (let ((_binding-id8111_ + _hd80748106_)) + (if (gx#stx-null? _tl80758108_) (if (if (gx#identifier? - _id8025_) + _id8101_) (gx#identifier? - _binding-id8035_) + _binding-id8111_) '#f) (begin (gx#core-bind-runtime-reference!__0 - _id8025_ + _id8101_ (gx#stx-e - _binding-id8035_)) + _binding-id8111_)) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#define-runtime) - (cons (gx#core-quote-syntax__0 _id8025_) - (cons (gx#core-quote-syntax__0 _binding-id8035_) + (cons (gx#core-quote-syntax__0 _id8101_) + (cons (gx#core-quote-syntax__0 _binding-id8111_) '()))))) - (_E79908005_)) + (_E80668081_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E79908005_))))) - (_E79908005_))))) - (_E79908005_)))) - (_E79908005_))))) - (let () (_E79898037_))))))) + (_E80668081_))))) + (_E80668081_))))) + (_E80668081_)))) + (_E80668081_))))) + (let () (_E80658113_))))))) (define gx#core-expand-define-syntax% - (lambda (_stx7930_) - (let ((_e79317944_ _stx7930_)) - (let ((_E79337948_ + (lambda (_stx8006_) + (let ((_e80078020_ _stx8006_)) + (let ((_E80098024_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e79317944_)))) - (let ((_E79327983_ + (gx#raise-syntax-error '#f '"Bad syntax" _e80078020_)))) + (let ((_E80088059_ (lambda () - (if (gx#stx-pair? _e79317944_) - (let ((_e79347952_ (gx#syntax-e _e79317944_))) - (let ((_hd79357955_ (##car _e79347952_)) - (_tl79367957_ (##cdr _e79347952_))) - (if (gx#stx-pair? _tl79367957_) - (let ((_e79377960_ (gx#syntax-e _tl79367957_))) - (let ((_hd79387963_ (##car _e79377960_)) - (_tl79397965_ (##cdr _e79377960_))) - (let ((_id7968_ _hd79387963_)) - (if (gx#stx-pair? _tl79397965_) - (let ((_e79407970_ - (gx#syntax-e _tl79397965_))) - (let ((_hd79417973_ - (##car _e79407970_)) - (_tl79427975_ - (##cdr _e79407970_))) - (let ((_expr7978_ _hd79417973_)) - (if (gx#stx-null? _tl79427975_) + (if (gx#stx-pair? _e80078020_) + (let ((_e80108028_ (gx#syntax-e _e80078020_))) + (let ((_hd80118031_ (##car _e80108028_)) + (_tl80128033_ (##cdr _e80108028_))) + (if (gx#stx-pair? _tl80128033_) + (let ((_e80138036_ (gx#syntax-e _tl80128033_))) + (let ((_hd80148039_ (##car _e80138036_)) + (_tl80158041_ (##cdr _e80138036_))) + (let ((_id8044_ _hd80148039_)) + (if (gx#stx-pair? _tl80158041_) + (let ((_e80168046_ + (gx#syntax-e _tl80158041_))) + (let ((_hd80178049_ + (##car _e80168046_)) + (_tl80188051_ + (##cdr _e80168046_))) + (let ((_expr8054_ _hd80178049_)) + (if (gx#stx-null? _tl80188051_) (if (gx#identifier? - _id7968_) - (let ((_g8854_ (gx#core-expand-expression+1 + _id8044_) + (let ((_g8930_ (gx#core-expand-expression+1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr7978_))) + _expr8054_))) (begin - (let ((_g8855_ (values-count _g8854_))) - (if (not (fx= _g8855_ 2)) - (error "Context expects 2 values" _g8855_))) - (let ((_e-stx7980_ (values-ref _g8854_ 0)) - (_e7981_ (values-ref _g8854_ 1))) + (let ((_g8931_ (values-count _g8930_))) + (if (not (fx= _g8931_ 2)) + (error "Context expects 2 values" _g8931_))) + (let ((_e-stx8056_ (values-ref _g8930_ 0)) + (_e8057_ (values-ref _g8930_ 1))) (begin - (gx#core-bind-syntax!__0 _id7968_ _e7981_) + (gx#core-bind-syntax!__0 _id8044_ _e8057_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons (gx#core-quote-syntax__0 _id7968_) - (cons _e-stx7980_ '()))) - (gx#stx-source _stx7930_)))))) - (_E79337948_)) + (cons (gx#core-quote-syntax__0 _id8044_) + (cons _e-stx8056_ '()))) + (gx#stx-source _stx8006_)))))) + (_E80098024_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E79337948_))))) - (_E79337948_))))) - (_E79337948_)))) - (_E79337948_))))) - (let () (_E79327983_))))))) + (_E80098024_))))) + (_E80098024_))))) + (_E80098024_)))) + (_E80098024_))))) + (let () (_E80088059_))))))) (define gx#core-expand-define-alias% - (lambda (_stx7874_) - (let ((_e78757888_ _stx7874_)) - (let ((_E78777892_ + (lambda (_stx7950_) + (let ((_e79517964_ _stx7950_)) + (let ((_E79537968_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e78757888_)))) - (let ((_E78767926_ + (gx#raise-syntax-error '#f '"Bad syntax" _e79517964_)))) + (let ((_E79528002_ (lambda () - (if (gx#stx-pair? _e78757888_) - (let ((_e78787896_ (gx#syntax-e _e78757888_))) - (let ((_hd78797899_ (##car _e78787896_)) - (_tl78807901_ (##cdr _e78787896_))) - (if (gx#stx-pair? _tl78807901_) - (let ((_e78817904_ (gx#syntax-e _tl78807901_))) - (let ((_hd78827907_ (##car _e78817904_)) - (_tl78837909_ (##cdr _e78817904_))) - (let ((_id7912_ _hd78827907_)) - (if (gx#stx-pair? _tl78837909_) - (let ((_e78847914_ - (gx#syntax-e _tl78837909_))) - (let ((_hd78857917_ - (##car _e78847914_)) - (_tl78867919_ - (##cdr _e78847914_))) - (let ((_alias-id7922_ - _hd78857917_)) - (if (gx#stx-null? _tl78867919_) + (if (gx#stx-pair? _e79517964_) + (let ((_e79547972_ (gx#syntax-e _e79517964_))) + (let ((_hd79557975_ (##car _e79547972_)) + (_tl79567977_ (##cdr _e79547972_))) + (if (gx#stx-pair? _tl79567977_) + (let ((_e79577980_ (gx#syntax-e _tl79567977_))) + (let ((_hd79587983_ (##car _e79577980_)) + (_tl79597985_ (##cdr _e79577980_))) + (let ((_id7988_ _hd79587983_)) + (if (gx#stx-pair? _tl79597985_) + (let ((_e79607990_ + (gx#syntax-e _tl79597985_))) + (let ((_hd79617993_ + (##car _e79607990_)) + (_tl79627995_ + (##cdr _e79607990_))) + (let ((_alias-id7998_ + _hd79617993_)) + (if (gx#stx-null? _tl79627995_) (if (if (gx#identifier? - _id7912_) + _id7988_) (gx#identifier? - _alias-id7922_) + _alias-id7998_) '#f) - (let ((_alias-id7924_ + (let ((_alias-id8000_ (gx#core-quote-syntax__0 - _alias-id7922_))) + _alias-id7998_))) (begin (gx#core-bind-alias!__0 - _id7912_ - _alias-id7924_) + _id7988_ + _alias-id8000_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#define-alias) - (cons (gx#core-quote-syntax__0 _id7912_) - (cons _alias-id7924_ '())))))) - (_E78777892_)) + (cons (gx#core-quote-syntax__0 _id7988_) + (cons _alias-id8000_ '())))))) + (_E79537968_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E78777892_))))) - (_E78777892_))))) - (_E78777892_)))) - (_E78777892_))))) - (let () (_E78767926_))))))) + (_E79537968_))))) + (_E79537968_))))) + (_E79537968_)))) + (_E79537968_))))) + (let () (_E79528002_))))))) (begin - (define gx#core-expand-lambda%__opt-lambda7815 - (lambda (_stx7817_ _wrap?7818_) - (let ((_e78197829_ _stx7817_)) - (let ((_E78217833_ + (define gx#core-expand-lambda%__opt-lambda7891 + (lambda (_stx7893_ _wrap?7894_) + (let ((_e78957905_ _stx7893_)) + (let ((_E78977909_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e78197829_)))) - (let ((_E78207860_ + (gx#raise-syntax-error '#f '"Bad syntax" _e78957905_)))) + (let ((_E78967936_ (lambda () - (if (gx#stx-pair? _e78197829_) - (let ((_e78227837_ (gx#syntax-e _e78197829_))) - (let ((_hd78237840_ (##car _e78227837_)) - (_tl78247842_ (##cdr _e78227837_))) - (if (gx#stx-pair? _tl78247842_) - (let ((_e78257845_ - (gx#syntax-e _tl78247842_))) - (let ((_hd78267848_ (##car _e78257845_)) - (_tl78277850_ (##cdr _e78257845_))) - (let ((_hd7853_ _hd78267848_)) - (let ((_body7855_ _tl78277850_)) - (if (gx#core-bind-values? _hd7853_) + (if (gx#stx-pair? _e78957905_) + (let ((_e78987913_ (gx#syntax-e _e78957905_))) + (let ((_hd78997916_ (##car _e78987913_)) + (_tl79007918_ (##cdr _e78987913_))) + (if (gx#stx-pair? _tl79007918_) + (let ((_e79017921_ + (gx#syntax-e _tl79007918_))) + (let ((_hd79027924_ (##car _e79017921_)) + (_tl79037926_ (##cdr _e79017921_))) + (let ((_hd7929_ _hd79027924_)) + (let ((_body7931_ _tl79037926_)) + (if (gx#core-bind-values? _hd7929_) (call-with-parameters (lambda () (begin (gx#core-bind-values!__0 - _hd7853_) - (let ((_body7858_ + _hd7929_) + (let ((_body7934_ (cons (gx#core-quote-bind-values - _hd7853_) + _hd7929_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _stx7817_ - _body7855_) + _stx7893_ + _body7931_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _wrap?7818_ + (if _wrap?7894_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _body7858_) + _body7934_) (gx#stx-source - _stx7817_)) - _body7858_)))) + _stx7893_)) + _body7934_)))) gx#current-expander-context - (let ((__obj8847 + (let ((__obj8923 (make-object gx#local-context::t '5))) (begin (gx#local-context:::init!__0 - __obj8847) - __obj8847))) - (_E78217833_)))))) - (_E78217833_)))) - (_E78217833_))))) - (let () (_E78207860_))))))) + __obj8923) + __obj8923))) + (_E78977909_)))))) + (_E78977909_)))) + (_E78977909_))))) + (let () (_E78967936_))))))) (begin (define gx#core-expand-lambda%__0 - (lambda (_stx7867_) - (let ((_wrap?7869_ '#t)) - (gx#core-expand-lambda%__opt-lambda7815 _stx7867_ _wrap?7869_)))) + (lambda (_stx7943_) + (let ((_wrap?7945_ '#t)) + (gx#core-expand-lambda%__opt-lambda7891 _stx7943_ _wrap?7945_)))) (define gx#core-expand-lambda% - (lambda _g8857_ - (let ((_g8856_ (length _g8857_))) - (cond ((fx= _g8856_ 1) (apply gx#core-expand-lambda%__0 _g8857_)) - ((fx= _g8856_ 2) - (apply gx#core-expand-lambda%__opt-lambda7815 _g8857_)) - (else (error "No clause matching arguments" _g8857_)))))))) + (lambda _g8933_ + (let ((_g8932_ (length _g8933_))) + (cond ((fx= _g8932_ 1) (apply gx#core-expand-lambda%__0 _g8933_)) + ((fx= _g8932_ 2) + (apply gx#core-expand-lambda%__opt-lambda7891 _g8933_)) + (else (error "No clause matching arguments" _g8933_)))))))) (define gx#core-expand-case-lambda% - (lambda (_stx7781_) - (let ((_e77827789_ _stx7781_)) - (let ((_E77847793_ + (lambda (_stx7857_) + (let ((_e78587865_ _stx7857_)) + (let ((_E78607869_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e77827789_)))) - (let ((_E77837812_ + (gx#raise-syntax-error '#f '"Bad syntax" _e78587865_)))) + (let ((_E78597888_ (lambda () - (if (gx#stx-pair? _e77827789_) - (let ((_e77857797_ (gx#syntax-e _e77827789_))) - (let ((_hd77867800_ (##car _e77857797_)) - (_tl77877802_ (##cdr _e77857797_))) - (let ((_clauses7805_ _tl77877802_)) - (if (gx#stx-list? _clauses7805_) + (if (gx#stx-pair? _e78587865_) + (let ((_e78617873_ (gx#syntax-e _e78587865_))) + (let ((_hd78627876_ (##car _e78617873_)) + (_tl78637878_ (##cdr _e78617873_))) + (let ((_clauses7881_ _tl78637878_)) + (if (gx#stx-list? _clauses7881_) (gx#core-quote-syntax__1 (gx#core-cons '%#case-lambda (gx#stx-map1 - (lambda (_clause7807_) - (gx#core-expand-lambda%__opt-lambda7815 + (lambda (_clause7883_) + (gx#core-expand-lambda%__opt-lambda7891 (gx#stx-wrap-source (cons '%#case-lambda-clause - _clause7807_) - (let ((_$e7809_ - (gx#stx-source _clause7807_))) - (if _$e7809_ - _$e7809_ - (gx#stx-source _stx7781_)))) + _clause7883_) + (let ((_$e7885_ + (gx#stx-source _clause7883_))) + (if _$e7885_ + _$e7885_ + (gx#stx-source _stx7857_)))) '#f)) - _clauses7805_)) - (gx#stx-source _stx7781_)) - (_E77847793_))))) - (_E77847793_))))) - (let () (_E77837812_))))))) + _clauses7881_)) + (gx#stx-source _stx7857_)) + (_E78607869_))))) + (_E78607869_))))) + (let () (_E78597888_))))))) (define gx#core-expand-let-values% - (lambda (_stx7735_) - (let ((_e77367746_ _stx7735_)) - (let ((_E77387750_ + (lambda (_stx7811_) + (let ((_e78127822_ _stx7811_)) + (let ((_E78147826_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e77367746_)))) - (let ((_E77377777_ + (gx#raise-syntax-error '#f '"Bad syntax" _e78127822_)))) + (let ((_E78137853_ (lambda () - (if (gx#stx-pair? _e77367746_) - (let ((_e77397754_ (gx#syntax-e _e77367746_))) - (let ((_hd77407757_ (##car _e77397754_)) - (_tl77417759_ (##cdr _e77397754_))) - (if (gx#stx-pair? _tl77417759_) - (let ((_e77427762_ (gx#syntax-e _tl77417759_))) - (let ((_hd77437765_ (##car _e77427762_)) - (_tl77447767_ (##cdr _e77427762_))) - (let ((_hd7770_ _hd77437765_)) - (let ((_body7772_ _tl77447767_)) - (if (gx#core-expand-let-bind? _hd7770_) - (let ((_expressions7774_ + (if (gx#stx-pair? _e78127822_) + (let ((_e78157830_ (gx#syntax-e _e78127822_))) + (let ((_hd78167833_ (##car _e78157830_)) + (_tl78177835_ (##cdr _e78157830_))) + (if (gx#stx-pair? _tl78177835_) + (let ((_e78187838_ (gx#syntax-e _tl78177835_))) + (let ((_hd78197841_ (##car _e78187838_)) + (_tl78207843_ (##cdr _e78187838_))) + (let ((_hd7846_ _hd78197841_)) + (let ((_body7848_ _tl78207843_)) + (if (gx#core-expand-let-bind? _hd7846_) + (let ((_expressions7850_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd7770_))) + _hd7846_))) (call-with-parameters (lambda () (begin (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd7770_) + _hd7846_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd7770_ - _expressions7774_) + _hd7846_ + _expressions7850_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _stx7735_ - _body7772_) + _stx7811_ + _body7848_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _stx7735_)))) + (gx#stx-source _stx7811_)))) gx#current-expander-context - (let ((__obj8848 + (let ((__obj8924 (make-object gx#local-context::t '5))) (begin (gx#local-context:::init!__0 - __obj8848) - __obj8848)))) - (_E77387750_)))))) - (_E77387750_)))) - (_E77387750_))))) - (let () (_E77377777_))))))) + __obj8924) + __obj8924)))) + (_E78147826_)))))) + (_E78147826_)))) + (_E78147826_))))) + (let () (_E78137853_))))))) (begin - (define gx#core-expand-letrec-values%__opt-lambda7678 - (lambda (_stx7680_ _form7681_) - (let ((_e76827692_ _stx7680_)) - (let ((_E76847696_ + (define gx#core-expand-letrec-values%__opt-lambda7754 + (lambda (_stx7756_ _form7757_) + (let ((_e77587768_ _stx7756_)) + (let ((_E77607772_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e76827692_)))) - (let ((_E76837721_ + (gx#raise-syntax-error '#f '"Bad syntax" _e77587768_)))) + (let ((_E77597797_ (lambda () - (if (gx#stx-pair? _e76827692_) - (let ((_e76857700_ (gx#syntax-e _e76827692_))) - (let ((_hd76867703_ (##car _e76857700_)) - (_tl76877705_ (##cdr _e76857700_))) - (if (gx#stx-pair? _tl76877705_) - (let ((_e76887708_ - (gx#syntax-e _tl76877705_))) - (let ((_hd76897711_ (##car _e76887708_)) - (_tl76907713_ (##cdr _e76887708_))) - (let ((_hd7716_ _hd76897711_)) - (let ((_body7718_ _tl76907713_)) + (if (gx#stx-pair? _e77587768_) + (let ((_e77617776_ (gx#syntax-e _e77587768_))) + (let ((_hd77627779_ (##car _e77617776_)) + (_tl77637781_ (##cdr _e77617776_))) + (if (gx#stx-pair? _tl77637781_) + (let ((_e77647784_ + (gx#syntax-e _tl77637781_))) + (let ((_hd77657787_ (##car _e77647784_)) + (_tl77667789_ (##cdr _e77647784_))) + (let ((_hd7792_ _hd77657787_)) + (let ((_body7794_ _tl77667789_)) (if (gx#core-expand-let-bind? - _hd7716_) + _hd7792_) (call-with-parameters (lambda () (begin (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd7716_) + _hd7792_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _form7681_) + _form7757_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd7716_ + _hd7792_ (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-expand-let-bind-expression - _hd7716_)) - (cons (gx#core-expand-local-block _stx7680_ _body7718_) + _hd7792_)) + (cons (gx#core-expand-local-block _stx7756_ _body7794_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _stx7680_)))) + (gx#stx-source _stx7756_)))) gx#current-expander-context - (let ((__obj8849 + (let ((__obj8925 (make-object gx#local-context::t '5))) (begin (gx#local-context:::init!__0 - __obj8849) - __obj8849))) - (_E76847696_)))))) - (_E76847696_)))) - (_E76847696_))))) - (let () (_E76837721_))))))) + __obj8925) + __obj8925))) + (_E77607772_)))))) + (_E77607772_)))) + (_E77607772_))))) + (let () (_E77597797_))))))) (begin (define gx#core-expand-letrec-values%__0 - (lambda (_stx7728_) - (let ((_form7730_ '%#letrec-values)) - (gx#core-expand-letrec-values%__opt-lambda7678 - _stx7728_ - _form7730_)))) + (lambda (_stx7804_) + (let ((_form7806_ '%#letrec-values)) + (gx#core-expand-letrec-values%__opt-lambda7754 + _stx7804_ + _form7806_)))) (define gx#core-expand-letrec-values% - (lambda _g8859_ - (let ((_g8858_ (length _g8859_))) - (cond ((fx= _g8858_ 1) - (apply gx#core-expand-letrec-values%__0 _g8859_)) - ((fx= _g8858_ 2) - (apply gx#core-expand-letrec-values%__opt-lambda7678 - _g8859_)) - (else (error "No clause matching arguments" _g8859_)))))))) + (lambda _g8935_ + (let ((_g8934_ (length _g8935_))) + (cond ((fx= _g8934_ 1) + (apply gx#core-expand-letrec-values%__0 _g8935_)) + ((fx= _g8934_ 2) + (apply gx#core-expand-letrec-values%__opt-lambda7754 + _g8935_)) + (else (error "No clause matching arguments" _g8935_)))))))) (define gx#core-expand-letrec*-values% - (lambda (_stx7677_) - (gx#core-expand-letrec-values%__opt-lambda7678 - _stx7677_ + (lambda (_stx7753_) + (gx#core-expand-letrec-values%__opt-lambda7754 + _stx7753_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_stx7634_) - (if (gx#stx-list? _stx7634_) + (lambda (_stx7710_) + (if (gx#stx-list? _stx7710_) (gx#stx-andmap - (lambda (_bind7636_) - (let ((_e76377647_ _bind7636_)) - (let ((_E76397651_ (lambda () '#f))) - (let ((_E76387673_ + (lambda (_bind7712_) + (let ((_e77137723_ _bind7712_)) + (let ((_E77157727_ (lambda () '#f))) + (let ((_E77147749_ (lambda () - (if (gx#stx-pair? _e76377647_) - (let ((_e76407655_ (gx#syntax-e _e76377647_))) - (let ((_hd76417658_ (##car _e76407655_)) - (_tl76427660_ (##cdr _e76407655_))) - (let ((_hd7663_ _hd76417658_)) - (if (gx#stx-pair? _tl76427660_) - (let ((_e76437665_ - (gx#syntax-e _tl76427660_))) - (let ((_hd76447668_ - (##car _e76437665_)) - (_tl76457670_ - (##cdr _e76437665_))) - (if (gx#stx-null? _tl76457670_) + (if (gx#stx-pair? _e77137723_) + (let ((_e77167731_ (gx#syntax-e _e77137723_))) + (let ((_hd77177734_ (##car _e77167731_)) + (_tl77187736_ (##cdr _e77167731_))) + (let ((_hd7739_ _hd77177734_)) + (if (gx#stx-pair? _tl77187736_) + (let ((_e77197741_ + (gx#syntax-e _tl77187736_))) + (let ((_hd77207744_ + (##car _e77197741_)) + (_tl77217746_ + (##cdr _e77197741_))) + (if (gx#stx-null? _tl77217746_) (if '#t (gx#core-bind-values? - _hd7663_) - (_E76397651_)) - (_E76397651_)))) - (_E76397651_))))) - (_E76397651_))))) - (let () (_E76387673_)))))) - _stx7634_) + _hd7739_) + (_E77157727_)) + (_E77157727_)))) + (_E77157727_))))) + (_E77157727_))))) + (let () (_E77147749_)))))) + _stx7710_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_bind7593_) - (let ((_e75947604_ _bind7593_)) - (let ((_E75967608_ + (lambda (_bind7669_) + (let ((_e76707680_ _bind7669_)) + (let ((_E76727684_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e75947604_)))) - (let ((_E75957630_ + (gx#raise-syntax-error '#f '"Bad syntax" _e76707680_)))) + (let ((_E76717706_ (lambda () - (if (gx#stx-pair? _e75947604_) - (let ((_e75977612_ (gx#syntax-e _e75947604_))) - (let ((_hd75987615_ (##car _e75977612_)) - (_tl75997617_ (##cdr _e75977612_))) - (if (gx#stx-pair? _tl75997617_) - (let ((_e76007620_ (gx#syntax-e _tl75997617_))) - (let ((_hd76017623_ (##car _e76007620_)) - (_tl76027625_ (##cdr _e76007620_))) - (let ((_expr7628_ _hd76017623_)) - (if (gx#stx-null? _tl76027625_) + (if (gx#stx-pair? _e76707680_) + (let ((_e76737688_ (gx#syntax-e _e76707680_))) + (let ((_hd76747691_ (##car _e76737688_)) + (_tl76757693_ (##cdr _e76737688_))) + (if (gx#stx-pair? _tl76757693_) + (let ((_e76767696_ (gx#syntax-e _tl76757693_))) + (let ((_hd76777699_ (##car _e76767696_)) + (_tl76787701_ (##cdr _e76767696_))) + (let ((_expr7704_ _hd76777699_)) + (if (gx#stx-null? _tl76787701_) (if '#t (gx#core-expand-expression - _expr7628_) - (_E75967608_)) - (_E75967608_))))) - (_E75967608_)))) - (_E75967608_))))) - (let () (_E75957630_))))))) + _expr7704_) + (_E76727684_)) + (_E76727684_))))) + (_E76727684_)))) + (_E76727684_))))) + (let () (_E76717706_))))))) (define gx#core-expand-let-bind-values! - (lambda (_bind7552_) - (let ((_e75537563_ _bind7552_)) - (let ((_E75557567_ + (lambda (_bind7628_) + (let ((_e76297639_ _bind7628_)) + (let ((_E76317643_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e75537563_)))) - (let ((_E75547589_ + (gx#raise-syntax-error '#f '"Bad syntax" _e76297639_)))) + (let ((_E76307665_ (lambda () - (if (gx#stx-pair? _e75537563_) - (let ((_e75567571_ (gx#syntax-e _e75537563_))) - (let ((_hd75577574_ (##car _e75567571_)) - (_tl75587576_ (##cdr _e75567571_))) - (let ((_hd7579_ _hd75577574_)) - (if (gx#stx-pair? _tl75587576_) - (let ((_e75597581_ - (gx#syntax-e _tl75587576_))) - (let ((_hd75607584_ (##car _e75597581_)) - (_tl75617586_ (##cdr _e75597581_))) - (if (gx#stx-null? _tl75617586_) + (if (gx#stx-pair? _e76297639_) + (let ((_e76327647_ (gx#syntax-e _e76297639_))) + (let ((_hd76337650_ (##car _e76327647_)) + (_tl76347652_ (##cdr _e76327647_))) + (let ((_hd7655_ _hd76337650_)) + (if (gx#stx-pair? _tl76347652_) + (let ((_e76357657_ + (gx#syntax-e _tl76347652_))) + (let ((_hd76367660_ (##car _e76357657_)) + (_tl76377662_ (##cdr _e76357657_))) + (if (gx#stx-null? _tl76377662_) (if '#t - (gx#core-bind-values!__0 _hd7579_) - (_E75557567_)) - (_E75557567_)))) - (_E75557567_))))) - (_E75557567_))))) - (let () (_E75547589_))))))) + (gx#core-bind-values!__0 _hd7655_) + (_E76317643_)) + (_E76317643_)))) + (_E76317643_))))) + (_E76317643_))))) + (let () (_E76307665_))))))) (define gx#core-expand-let-bind-quote - (lambda (_bind7510_ _expr7511_) - (let ((_e75127522_ _bind7510_)) - (let ((_E75147526_ + (lambda (_bind7586_ _expr7587_) + (let ((_e75887598_ _bind7586_)) + (let ((_E75907602_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e75127522_)))) - (let ((_E75137548_ + (gx#raise-syntax-error '#f '"Bad syntax" _e75887598_)))) + (let ((_E75897624_ (lambda () - (if (gx#stx-pair? _e75127522_) - (let ((_e75157530_ (gx#syntax-e _e75127522_))) - (let ((_hd75167533_ (##car _e75157530_)) - (_tl75177535_ (##cdr _e75157530_))) - (let ((_hd7538_ _hd75167533_)) - (if (gx#stx-pair? _tl75177535_) - (let ((_e75187540_ - (gx#syntax-e _tl75177535_))) - (let ((_hd75197543_ (##car _e75187540_)) - (_tl75207545_ (##cdr _e75187540_))) - (if (gx#stx-null? _tl75207545_) + (if (gx#stx-pair? _e75887598_) + (let ((_e75917606_ (gx#syntax-e _e75887598_))) + (let ((_hd75927609_ (##car _e75917606_)) + (_tl75937611_ (##cdr _e75917606_))) + (let ((_hd7614_ _hd75927609_)) + (if (gx#stx-pair? _tl75937611_) + (let ((_e75947616_ + (gx#syntax-e _tl75937611_))) + (let ((_hd75957619_ (##car _e75947616_)) + (_tl75967621_ (##cdr _e75947616_))) + (if (gx#stx-null? _tl75967621_) (if '#t (cons (gx#core-quote-bind-values - _hd7538_) - (cons _expr7511_ '())) - (_E75147526_)) - (_E75147526_)))) - (_E75147526_))))) - (_E75147526_))))) - (let () (_E75137548_))))))) + _hd7614_) + (cons _expr7587_ '())) + (_E75907602_)) + (_E75907602_)))) + (_E75907602_))))) + (_E75907602_))))) + (let () (_E75897624_))))))) (define gx#core-expand-let-syntax% - (lambda (_stx7464_) - (let ((_e74657475_ _stx7464_)) - (let ((_E74677479_ + (lambda (_stx7540_) + (let ((_e75417551_ _stx7540_)) + (let ((_E75437555_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e74657475_)))) - (let ((_E74667506_ + (gx#raise-syntax-error '#f '"Bad syntax" _e75417551_)))) + (let ((_E75427582_ (lambda () - (if (gx#stx-pair? _e74657475_) - (let ((_e74687483_ (gx#syntax-e _e74657475_))) - (let ((_hd74697486_ (##car _e74687483_)) - (_tl74707488_ (##cdr _e74687483_))) - (if (gx#stx-pair? _tl74707488_) - (let ((_e74717491_ (gx#syntax-e _tl74707488_))) - (let ((_hd74727494_ (##car _e74717491_)) - (_tl74737496_ (##cdr _e74717491_))) - (let ((_hd7499_ _hd74727494_)) - (let ((_body7501_ _tl74737496_)) + (if (gx#stx-pair? _e75417551_) + (let ((_e75447559_ (gx#syntax-e _e75417551_))) + (let ((_hd75457562_ (##car _e75447559_)) + (_tl75467564_ (##cdr _e75447559_))) + (if (gx#stx-pair? _tl75467564_) + (let ((_e75477567_ (gx#syntax-e _tl75467564_))) + (let ((_hd75487570_ (##car _e75477567_)) + (_tl75497572_ (##cdr _e75477567_))) + (let ((_hd7575_ _hd75487570_)) + (let ((_body7577_ _tl75497572_)) (if (gx#core-expand-let-bind-syntax? - _hd7499_) - (let ((_expanders7503_ + _hd7575_) + (let ((_expanders7579_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd7499_))) + _hd7575_))) (call-with-parameters (lambda () (begin (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd7499_ - _expanders7503_) + _hd7575_ + _expanders7579_) (gx#core-expand-local-block - _stx7464_ - _body7501_))) + _stx7540_ + _body7577_))) gx#current-expander-context - (let ((__obj8850 + (let ((__obj8926 (make-object gx#local-context::t '5))) (begin (gx#local-context:::init!__0 - __obj8850) - __obj8850)))) - (_E74677479_)))))) - (_E74677479_)))) - (_E74677479_))))) - (let () (_E74667506_))))))) + __obj8926) + __obj8926)))) + (_E75437555_)))))) + (_E75437555_)))) + (_E75437555_))))) + (let () (_E75427582_))))))) (define gx#core-expand-letrec-syntax% - (lambda (_stx7413_) - (let ((_e74147424_ _stx7413_)) - (let ((_E74167428_ + (lambda (_stx7489_) + (let ((_e74907500_ _stx7489_)) + (let ((_E74927504_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e74147424_)))) - (let ((_E74157460_ + (gx#raise-syntax-error '#f '"Bad syntax" _e74907500_)))) + (let ((_E74917536_ (lambda () - (if (gx#stx-pair? _e74147424_) - (let ((_e74177432_ (gx#syntax-e _e74147424_))) - (let ((_hd74187435_ (##car _e74177432_)) - (_tl74197437_ (##cdr _e74177432_))) - (if (gx#stx-pair? _tl74197437_) - (let ((_e74207440_ (gx#syntax-e _tl74197437_))) - (let ((_hd74217443_ (##car _e74207440_)) - (_tl74227445_ (##cdr _e74207440_))) - (let ((_hd7448_ _hd74217443_)) - (let ((_body7450_ _tl74227445_)) + (if (gx#stx-pair? _e74907500_) + (let ((_e74937508_ (gx#syntax-e _e74907500_))) + (let ((_hd74947511_ (##car _e74937508_)) + (_tl74957513_ (##cdr _e74937508_))) + (if (gx#stx-pair? _tl74957513_) + (let ((_e74967516_ (gx#syntax-e _tl74957513_))) + (let ((_hd74977519_ (##car _e74967516_)) + (_tl74987521_ (##cdr _e74967516_))) + (let ((_hd7524_ _hd74977519_)) + (let ((_body7526_ _tl74987521_)) (if (gx#core-expand-let-bind-syntax? - _hd7448_) + _hd7524_) (call-with-parameters (lambda () (begin (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd7448_ + _hd7524_ (make-list - (gx#stx-length _hd7448_) + (gx#stx-length _hd7524_) '#!void)) (gx#stx-for-each2 - (lambda (_g74527455_ - _g74537457_) - (gx#core-expand-let-bind-syntax!__opt-lambda7270 - _g74527455_ - _g74537457_ + (lambda (_g75287531_ + _g75297533_) + (gx#core-expand-let-bind-syntax!__opt-lambda7346 + _g75287531_ + _g75297533_ '#t)) - _hd7448_ + _hd7524_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd7448_)) + _hd7524_)) (gx#core-expand-local-block - _stx7413_ - _body7450_))) + _stx7489_ + _body7526_))) gx#current-expander-context - (let ((__obj8851 + (let ((__obj8927 (make-object gx#local-context::t '5))) (begin (gx#local-context:::init!__0 - __obj8851) - __obj8851))) - (_E74167428_)))))) - (_E74167428_)))) - (_E74167428_))))) - (let () (_E74157460_))))))) + __obj8927) + __obj8927))) + (_E74927504_)))))) + (_E74927504_)))) + (_E74927504_))))) + (let () (_E74917536_))))))) (define gx#core-expand-let-bind-syntax? - (lambda (_stx7370_) - (if (gx#stx-list? _stx7370_) + (lambda (_stx7446_) + (if (gx#stx-list? _stx7446_) (gx#stx-andmap - (lambda (_bind7372_) - (let ((_e73737383_ _bind7372_)) - (let ((_E73757387_ (lambda () '#f))) - (let ((_E73747409_ + (lambda (_bind7448_) + (let ((_e74497459_ _bind7448_)) + (let ((_E74517463_ (lambda () '#f))) + (let ((_E74507485_ (lambda () - (if (gx#stx-pair? _e73737383_) - (let ((_e73767391_ (gx#syntax-e _e73737383_))) - (let ((_hd73777394_ (##car _e73767391_)) - (_tl73787396_ (##cdr _e73767391_))) - (let ((_hd7399_ _hd73777394_)) - (if (gx#stx-pair? _tl73787396_) - (let ((_e73797401_ - (gx#syntax-e _tl73787396_))) - (let ((_hd73807404_ - (##car _e73797401_)) - (_tl73817406_ - (##cdr _e73797401_))) - (if (gx#stx-null? _tl73817406_) + (if (gx#stx-pair? _e74497459_) + (let ((_e74527467_ (gx#syntax-e _e74497459_))) + (let ((_hd74537470_ (##car _e74527467_)) + (_tl74547472_ (##cdr _e74527467_))) + (let ((_hd7475_ _hd74537470_)) + (if (gx#stx-pair? _tl74547472_) + (let ((_e74557477_ + (gx#syntax-e _tl74547472_))) + (let ((_hd74567480_ + (##car _e74557477_)) + (_tl74577482_ + (##cdr _e74557477_))) + (if (gx#stx-null? _tl74577482_) (if '#t - (gx#identifier? _hd7399_) - (_E73757387_)) - (_E73757387_)))) - (_E73757387_))))) - (_E73757387_))))) - (let () (_E73747409_)))))) - _stx7370_) + (gx#identifier? _hd7475_) + (_E74517463_)) + (_E74517463_)))) + (_E74517463_))))) + (_E74517463_))))) + (let () (_E74507485_)))))) + _stx7446_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_bind7327_) - (let ((_e73287338_ _bind7327_)) - (let ((_E73307342_ + (lambda (_bind7403_) + (let ((_e74047414_ _bind7403_)) + (let ((_E74067418_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e73287338_)))) - (let ((_E73297366_ + (gx#raise-syntax-error '#f '"Bad syntax" _e74047414_)))) + (let ((_E74057442_ (lambda () - (if (gx#stx-pair? _e73287338_) - (let ((_e73317346_ (gx#syntax-e _e73287338_))) - (let ((_hd73327349_ (##car _e73317346_)) - (_tl73337351_ (##cdr _e73317346_))) - (if (gx#stx-pair? _tl73337351_) - (let ((_e73347354_ (gx#syntax-e _tl73337351_))) - (let ((_hd73357357_ (##car _e73347354_)) - (_tl73367359_ (##cdr _e73347354_))) - (let ((_expr7362_ _hd73357357_)) - (if (gx#stx-null? _tl73367359_) + (if (gx#stx-pair? _e74047414_) + (let ((_e74077422_ (gx#syntax-e _e74047414_))) + (let ((_hd74087425_ (##car _e74077422_)) + (_tl74097427_ (##cdr _e74077422_))) + (if (gx#stx-pair? _tl74097427_) + (let ((_e74107430_ (gx#syntax-e _tl74097427_))) + (let ((_hd74117433_ (##car _e74107430_)) + (_tl74127435_ (##cdr _e74107430_))) + (let ((_expr7438_ _hd74117433_)) + (if (gx#stx-null? _tl74127435_) (if '#t - (let ((_g8860_ (gx#core-expand-expression+1 - _expr7362_))) + (let ((_g8936_ (gx#core-expand-expression+1 + _expr7438_))) (begin - (let ((_g8861_ (values-count + (let ((_g8937_ (values-count ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g8860_))) + _g8936_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (not (fx= _g8861_ 2)) + (if (not (fx= _g8937_ 2)) (error "Context expects 2 values" - _g8861_))) - (let ((_e7364_ (values-ref + _g8937_))) + (let ((_e7440_ (values-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g8860_ + _g8936_ 1))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _e7364_))) - (_E73307342_)) - (_E73307342_))))) - (_E73307342_)))) - (_E73307342_))))) - (let () (_E73297366_))))))) + _e7440_))) + (_E74067418_)) + (_E74067418_))))) + (_E74067418_)))) + (_E74067418_))))) + (let () (_E74057442_))))))) (begin - (define gx#core-expand-let-bind-syntax!__opt-lambda7270 - (lambda (_bind7272_ _e7273_ _rebind?7274_) - (let ((_e72757285_ _bind7272_)) - (let ((_E72777289_ + (define gx#core-expand-let-bind-syntax!__opt-lambda7346 + (lambda (_bind7348_ _e7349_ _rebind?7350_) + (let ((_e73517361_ _bind7348_)) + (let ((_E73537365_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e72757285_)))) - (let ((_E72767311_ + (gx#raise-syntax-error '#f '"Bad syntax" _e73517361_)))) + (let ((_E73527387_ (lambda () - (if (gx#stx-pair? _e72757285_) - (let ((_e72787293_ (gx#syntax-e _e72757285_))) - (let ((_hd72797296_ (##car _e72787293_)) - (_tl72807298_ (##cdr _e72787293_))) - (let ((_id7301_ _hd72797296_)) - (if (gx#stx-pair? _tl72807298_) - (let ((_e72817303_ - (gx#syntax-e _tl72807298_))) - (let ((_hd72827306_ (##car _e72817303_)) - (_tl72837308_ (##cdr _e72817303_))) - (if (gx#stx-null? _tl72837308_) + (if (gx#stx-pair? _e73517361_) + (let ((_e73547369_ (gx#syntax-e _e73517361_))) + (let ((_hd73557372_ (##car _e73547369_)) + (_tl73567374_ (##cdr _e73547369_))) + (let ((_id7377_ _hd73557372_)) + (if (gx#stx-pair? _tl73567374_) + (let ((_e73577379_ + (gx#syntax-e _tl73567374_))) + (let ((_hd73587382_ (##car _e73577379_)) + (_tl73597384_ (##cdr _e73577379_))) + (if (gx#stx-null? _tl73597384_) (if '#t (gx#core-bind-syntax!__1 - _id7301_ - _e7273_ - _rebind?7274_) - (_E72777289_)) - (_E72777289_)))) - (_E72777289_))))) - (_E72777289_))))) - (let () (_E72767311_))))))) + _id7377_ + _e7349_ + _rebind?7350_) + (_E73537365_)) + (_E73537365_)))) + (_E73537365_))))) + (_E73537365_))))) + (let () (_E73527387_))))))) (begin (define gx#core-expand-let-bind-syntax!__0 - (lambda (_bind7318_ _e7319_) - (let ((_rebind?7321_ '#f)) - (gx#core-expand-let-bind-syntax!__opt-lambda7270 - _bind7318_ - _e7319_ - _rebind?7321_)))) + (lambda (_bind7394_ _e7395_) + (let ((_rebind?7397_ '#f)) + (gx#core-expand-let-bind-syntax!__opt-lambda7346 + _bind7394_ + _e7395_ + _rebind?7397_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g8863_ - (let ((_g8862_ (length _g8863_))) - (cond ((fx= _g8862_ 2) - (apply gx#core-expand-let-bind-syntax!__0 _g8863_)) - ((fx= _g8862_ 3) - (apply gx#core-expand-let-bind-syntax!__opt-lambda7270 - _g8863_)) - (else (error "No clause matching arguments" _g8863_)))))))) + (lambda _g8939_ + (let ((_g8938_ (length _g8939_))) + (cond ((fx= _g8938_ 2) + (apply gx#core-expand-let-bind-syntax!__0 _g8939_)) + ((fx= _g8938_ 3) + (apply gx#core-expand-let-bind-syntax!__opt-lambda7346 + _g8939_)) + (else (error "No clause matching arguments" _g8939_)))))))) (define gx#core-expand-expression% - (lambda (_stx7230_) - (let ((_e72317241_ _stx7230_)) - (let ((_E72337245_ + (lambda (_stx7306_) + (let ((_e73077317_ _stx7306_)) + (let ((_E73097321_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e72317241_)))) - (let ((_E72327267_ + (gx#raise-syntax-error '#f '"Bad syntax" _e73077317_)))) + (let ((_E73087343_ (lambda () - (if (gx#stx-pair? _e72317241_) - (let ((_e72347249_ (gx#syntax-e _e72317241_))) - (let ((_hd72357252_ (##car _e72347249_)) - (_tl72367254_ (##cdr _e72347249_))) - (if (gx#stx-pair? _tl72367254_) - (let ((_e72377257_ (gx#syntax-e _tl72367254_))) - (let ((_hd72387260_ (##car _e72377257_)) - (_tl72397262_ (##cdr _e72377257_))) - (let ((_expr7265_ _hd72387260_)) - (if (gx#stx-null? _tl72397262_) + (if (gx#stx-pair? _e73077317_) + (let ((_e73107325_ (gx#syntax-e _e73077317_))) + (let ((_hd73117328_ (##car _e73107325_)) + (_tl73127330_ (##cdr _e73107325_))) + (if (gx#stx-pair? _tl73127330_) + (let ((_e73137333_ (gx#syntax-e _tl73127330_))) + (let ((_hd73147336_ (##car _e73137333_)) + (_tl73157338_ (##cdr _e73137333_))) + (let ((_expr7341_ _hd73147336_)) + (if (gx#stx-null? _tl73157338_) (if '#t (gx#core-expand-expression - _expr7265_) - (_E72337245_)) - (_E72337245_))))) - (_E72337245_)))) - (_E72337245_))))) - (let () (_E72327267_))))))) + _expr7341_) + (_E73097321_)) + (_E73097321_))))) + (_E73097321_)))) + (_E73097321_))))) + (let () (_E73087343_))))))) (define gx#core-expand-quote% - (lambda (_stx7189_) - (let ((_e71907200_ _stx7189_)) - (let ((_E71927204_ + (lambda (_stx7265_) + (let ((_e72667276_ _stx7265_)) + (let ((_E72687280_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e71907200_)))) - (let ((_E71917226_ + (gx#raise-syntax-error '#f '"Bad syntax" _e72667276_)))) + (let ((_E72677302_ (lambda () - (if (gx#stx-pair? _e71907200_) - (let ((_e71937208_ (gx#syntax-e _e71907200_))) - (let ((_hd71947211_ (##car _e71937208_)) - (_tl71957213_ (##cdr _e71937208_))) - (if (gx#stx-pair? _tl71957213_) - (let ((_e71967216_ (gx#syntax-e _tl71957213_))) - (let ((_hd71977219_ (##car _e71967216_)) - (_tl71987221_ (##cdr _e71967216_))) - (let ((_e7224_ _hd71977219_)) - (if (gx#stx-null? _tl71987221_) + (if (gx#stx-pair? _e72667276_) + (let ((_e72697284_ (gx#syntax-e _e72667276_))) + (let ((_hd72707287_ (##car _e72697284_)) + (_tl72717289_ (##cdr _e72697284_))) + (if (gx#stx-pair? _tl72717289_) + (let ((_e72727292_ (gx#syntax-e _tl72717289_))) + (let ((_hd72737295_ (##car _e72727292_)) + (_tl72747297_ (##cdr _e72727292_))) + (let ((_e7300_ _hd72737295_)) + (if (gx#stx-null? _tl72747297_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote) (cons (gx#syntax->datum - _e7224_) + _e7300_) '())) - (gx#stx-source _stx7189_)) - (_E71927204_)) - (_E71927204_))))) - (_E71927204_)))) - (_E71927204_))))) - (let () (_E71917226_))))))) + (gx#stx-source _stx7265_)) + (_E72687280_)) + (_E72687280_))))) + (_E72687280_)))) + (_E72687280_))))) + (let () (_E72677302_))))))) (define gx#core-expand-quote-syntax% - (lambda (_stx7148_) - (let ((_e71497159_ _stx7148_)) - (let ((_E71517163_ + (lambda (_stx7224_) + (let ((_e72257235_ _stx7224_)) + (let ((_E72277239_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e71497159_)))) - (let ((_E71507185_ + (gx#raise-syntax-error '#f '"Bad syntax" _e72257235_)))) + (let ((_E72267261_ (lambda () - (if (gx#stx-pair? _e71497159_) - (let ((_e71527167_ (gx#syntax-e _e71497159_))) - (let ((_hd71537170_ (##car _e71527167_)) - (_tl71547172_ (##cdr _e71527167_))) - (if (gx#stx-pair? _tl71547172_) - (let ((_e71557175_ (gx#syntax-e _tl71547172_))) - (let ((_hd71567178_ (##car _e71557175_)) - (_tl71577180_ (##cdr _e71557175_))) - (let ((_e7183_ _hd71567178_)) - (if (gx#stx-null? _tl71577180_) + (if (gx#stx-pair? _e72257235_) + (let ((_e72287243_ (gx#syntax-e _e72257235_))) + (let ((_hd72297246_ (##car _e72287243_)) + (_tl72307248_ (##cdr _e72287243_))) + (if (gx#stx-pair? _tl72307248_) + (let ((_e72317251_ (gx#syntax-e _tl72307248_))) + (let ((_hd72327254_ (##car _e72317251_)) + (_tl72337256_ (##cdr _e72317251_))) + (let ((_e7259_ _hd72327254_)) + (if (gx#stx-null? _tl72337256_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote-syntax) (cons (gx#core-quote-syntax__0 - _e7183_) + _e7259_) '())) - (gx#stx-source _stx7148_)) - (_E71517163_)) - (_E71517163_))))) - (_E71517163_)))) - (_E71517163_))))) - (let () (_E71507185_))))))) + (gx#stx-source _stx7224_)) + (_E72277239_)) + (_E72277239_))))) + (_E72277239_)))) + (_E72277239_))))) + (let () (_E72267261_))))))) (define gx#core-expand-call% - (lambda (_stx7105_) - (let ((_e71067116_ _stx7105_)) - (let ((_E71087120_ + (lambda (_stx7181_) + (let ((_e71827192_ _stx7181_)) + (let ((_E71847196_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e71067116_)))) - (let ((_E71077144_ + (gx#raise-syntax-error '#f '"Bad syntax" _e71827192_)))) + (let ((_E71837220_ (lambda () - (if (gx#stx-pair? _e71067116_) - (let ((_e71097124_ (gx#syntax-e _e71067116_))) - (let ((_hd71107127_ (##car _e71097124_)) - (_tl71117129_ (##cdr _e71097124_))) - (if (gx#stx-pair? _tl71117129_) - (let ((_e71127132_ (gx#syntax-e _tl71117129_))) - (let ((_hd71137135_ (##car _e71127132_)) - (_tl71147137_ (##cdr _e71127132_))) - (let ((_rator7140_ _hd71137135_)) - (let ((_args7142_ _tl71147137_)) - (if (gx#stx-list? _args7142_) + (if (gx#stx-pair? _e71827192_) + (let ((_e71857200_ (gx#syntax-e _e71827192_))) + (let ((_hd71867203_ (##car _e71857200_)) + (_tl71877205_ (##cdr _e71857200_))) + (if (gx#stx-pair? _tl71877205_) + (let ((_e71887208_ (gx#syntax-e _tl71877205_))) + (let ((_hd71897211_ (##car _e71887208_)) + (_tl71907213_ (##cdr _e71887208_))) + (let ((_rator7216_ _hd71897211_)) + (let ((_args7218_ _tl71907213_)) + (if (gx#stx-list? _args7218_) (gx#core-quote-syntax__1 (gx#core-cons* '%#call (gx#core-expand-expression - _rator7140_) + _rator7216_) (gx#stx-map1 gx#core-expand-expression - _args7142_)) - (gx#stx-source _stx7105_)) - (_E71087120_)))))) - (_E71087120_)))) - (_E71087120_))))) - (let () (_E71077144_))))))) + _args7218_)) + (gx#stx-source _stx7181_)) + (_E71847196_)))))) + (_E71847196_)))) + (_E71847196_))))) + (let () (_E71837220_))))))) (define gx#core-expand-if% - (lambda (_stx7038_) - (let ((_e70397055_ _stx7038_)) - (let ((_E70417059_ + (lambda (_stx7114_) + (let ((_e71157131_ _stx7114_)) + (let ((_E71177135_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e70397055_)))) - (let ((_E70407101_ + (gx#raise-syntax-error '#f '"Bad syntax" _e71157131_)))) + (let ((_E71167177_ (lambda () - (if (gx#stx-pair? _e70397055_) - (let ((_e70427063_ (gx#syntax-e _e70397055_))) - (let ((_hd70437066_ (##car _e70427063_)) - (_tl70447068_ (##cdr _e70427063_))) - (if (gx#stx-pair? _tl70447068_) - (let ((_e70457071_ (gx#syntax-e _tl70447068_))) - (let ((_hd70467074_ (##car _e70457071_)) - (_tl70477076_ (##cdr _e70457071_))) - (let ((_test7079_ _hd70467074_)) - (if (gx#stx-pair? _tl70477076_) - (let ((_e70487081_ - (gx#syntax-e _tl70477076_))) - (let ((_hd70497084_ - (##car _e70487081_)) - (_tl70507086_ - (##cdr _e70487081_))) - (let ((_K7089_ _hd70497084_)) - (if (gx#stx-pair? _tl70507086_) - (let ((_e70517091_ + (if (gx#stx-pair? _e71157131_) + (let ((_e71187139_ (gx#syntax-e _e71157131_))) + (let ((_hd71197142_ (##car _e71187139_)) + (_tl71207144_ (##cdr _e71187139_))) + (if (gx#stx-pair? _tl71207144_) + (let ((_e71217147_ (gx#syntax-e _tl71207144_))) + (let ((_hd71227150_ (##car _e71217147_)) + (_tl71237152_ (##cdr _e71217147_))) + (let ((_test7155_ _hd71227150_)) + (if (gx#stx-pair? _tl71237152_) + (let ((_e71247157_ + (gx#syntax-e _tl71237152_))) + (let ((_hd71257160_ + (##car _e71247157_)) + (_tl71267162_ + (##cdr _e71247157_))) + (let ((_K7165_ _hd71257160_)) + (if (gx#stx-pair? _tl71267162_) + (let ((_e71277167_ (gx#syntax-e - _tl70507086_))) - (let ((_hd70527094_ - (##car _e70517091_)) - (_tl70537096_ - (##cdr _e70517091_))) - (let ((_E7099_ _hd70527094_)) + _tl71267162_))) + (let ((_hd71287170_ + (##car _e71277167_)) + (_tl71297172_ + (##cdr _e71277167_))) + (let ((_E7175_ _hd71287170_)) (if (gx#stx-null? - _tl70537096_) + _tl71297172_) (if '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#if) - (cons (gx#core-expand-expression _test7079_) - (cons (gx#core-expand-expression _K7089_) + (cons (gx#core-expand-expression _test7155_) + (cons (gx#core-expand-expression _K7165_) (cons (gx#core-expand-expression - _E7099_) + _E7175_) '())))) - (gx#stx-source _stx7038_)) - (_E70417059_)) - (_E70417059_))))) + (gx#stx-source _stx7114_)) + (_E71177135_)) + (_E71177135_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E70417059_))))) - (_E70417059_))))) - (_E70417059_)))) - (_E70417059_))))) - (let () (_E70407101_))))))) + (_E71177135_))))) + (_E71177135_))))) + (_E71177135_)))) + (_E71177135_))))) + (let () (_E71167177_))))))) (define gx#core-expand-ref% - (lambda (_stx6997_) - (let ((_e69987008_ _stx6997_)) - (let ((_E70007012_ + (lambda (_stx7073_) + (let ((_e70747084_ _stx7073_)) + (let ((_E70767088_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e69987008_)))) - (let ((_E69997034_ + (gx#raise-syntax-error '#f '"Bad syntax" _e70747084_)))) + (let ((_E70757110_ (lambda () - (if (gx#stx-pair? _e69987008_) - (let ((_e70017016_ (gx#syntax-e _e69987008_))) - (let ((_hd70027019_ (##car _e70017016_)) - (_tl70037021_ (##cdr _e70017016_))) - (if (gx#stx-pair? _tl70037021_) - (let ((_e70047024_ (gx#syntax-e _tl70037021_))) - (let ((_hd70057027_ (##car _e70047024_)) - (_tl70067029_ (##cdr _e70047024_))) - (let ((_id7032_ _hd70057027_)) - (if (gx#stx-null? _tl70067029_) - (if (gx#core-runtime-ref? _id7032_) + (if (gx#stx-pair? _e70747084_) + (let ((_e70777092_ (gx#syntax-e _e70747084_))) + (let ((_hd70787095_ (##car _e70777092_)) + (_tl70797097_ (##cdr _e70777092_))) + (if (gx#stx-pair? _tl70797097_) + (let ((_e70807100_ (gx#syntax-e _tl70797097_))) + (let ((_hd70817103_ (##car _e70807100_)) + (_tl70827105_ (##cdr _e70807100_))) + (let ((_id7108_ _hd70817103_)) + (if (gx#stx-null? _tl70827105_) + (if (gx#core-runtime-ref? _id7108_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#ref) (cons (gx#core-quote-runtime-ref - _id7032_ - _stx6997_) + _id7108_ + _stx7073_) '())) - (gx#stx-source _stx6997_)) - (_E70007012_)) - (_E70007012_))))) - (_E70007012_)))) - (_E70007012_))))) - (let () (_E69997034_))))))) + (gx#stx-source _stx7073_)) + (_E70767088_)) + (_E70767088_))))) + (_E70767088_)))) + (_E70767088_))))) + (let () (_E70757110_))))))) (define gx#core-expand-setq% - (lambda (_stx6943_) - (let ((_e69446957_ _stx6943_)) - (let ((_E69466961_ + (lambda (_stx7019_) + (let ((_e70207033_ _stx7019_)) + (let ((_E70227037_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e69446957_)))) - (let ((_E69456993_ + (gx#raise-syntax-error '#f '"Bad syntax" _e70207033_)))) + (let ((_E70217069_ (lambda () - (if (gx#stx-pair? _e69446957_) - (let ((_e69476965_ (gx#syntax-e _e69446957_))) - (let ((_hd69486968_ (##car _e69476965_)) - (_tl69496970_ (##cdr _e69476965_))) - (if (gx#stx-pair? _tl69496970_) - (let ((_e69506973_ (gx#syntax-e _tl69496970_))) - (let ((_hd69516976_ (##car _e69506973_)) - (_tl69526978_ (##cdr _e69506973_))) - (let ((_id6981_ _hd69516976_)) - (if (gx#stx-pair? _tl69526978_) - (let ((_e69536983_ - (gx#syntax-e _tl69526978_))) - (let ((_hd69546986_ - (##car _e69536983_)) - (_tl69556988_ - (##cdr _e69536983_))) - (let ((_expr6991_ _hd69546986_)) - (if (gx#stx-null? _tl69556988_) + (if (gx#stx-pair? _e70207033_) + (let ((_e70237041_ (gx#syntax-e _e70207033_))) + (let ((_hd70247044_ (##car _e70237041_)) + (_tl70257046_ (##cdr _e70237041_))) + (if (gx#stx-pair? _tl70257046_) + (let ((_e70267049_ (gx#syntax-e _tl70257046_))) + (let ((_hd70277052_ (##car _e70267049_)) + (_tl70287054_ (##cdr _e70267049_))) + (let ((_id7057_ _hd70277052_)) + (if (gx#stx-pair? _tl70287054_) + (let ((_e70297059_ + (gx#syntax-e _tl70287054_))) + (let ((_hd70307062_ + (##car _e70297059_)) + (_tl70317064_ + (##cdr _e70297059_))) + (let ((_expr7067_ _hd70307062_)) + (if (gx#stx-null? _tl70317064_) (if (gx#core-runtime-ref? - _id6981_) + _id7057_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id6981_ - _stx6943_) - (cons (gx#core-expand-expression _expr6991_) '()))) - (gx#stx-source _stx6943_)) - (_E69466961_)) + _id7057_ + _stx7019_) + (cons (gx#core-expand-expression _expr7067_) '()))) + (gx#stx-source _stx7019_)) + (_E70227037_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E69466961_))))) - (_E69466961_))))) - (_E69466961_)))) - (_E69466961_))))) - (let () (_E69456993_))))))) + (_E70227037_))))) + (_E70227037_))))) + (_E70227037_)))) + (_E70227037_))))) + (let () (_E70217069_))))))) (define gx#macro-expand-extern - (lambda (_stx6791_) - (let ((_generate6793_ - (lambda (_body6823_) - ((letrec ((_lp6825_ - (lambda (_rest6827_ _ns6828_ _r6829_) - (let ((_e68306845_ _rest6827_)) - (let ((_E68436849_ + (lambda (_stx6867_) + (let ((_generate6869_ + (lambda (_body6899_) + ((letrec ((_lp6901_ + (lambda (_rest6903_ _ns6904_ _r6905_) + (let ((_e69066921_ _rest6903_)) + (let ((_E69196925_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e68306845_)))) - (let ((_E68396853_ + _e69066921_)))) + (let ((_E69156929_ (lambda () - (if (gx#stx-null? _e68306845_) + (if (gx#stx-null? _e69066921_) (if '#t - (reverse _r6829_) - (_E68436849_)) - (_E68436849_))))) - (let ((_E68326910_ + (reverse _r6905_) + (_E69196925_)) + (_E69196925_))))) + (let ((_E69086986_ (lambda () - (if (gx#stx-pair? _e68306845_) - (let ((_e68406857_ + (if (gx#stx-pair? _e69066921_) + (let ((_e69166933_ (gx#syntax-e - _e68306845_))) - (let ((_hd68416860_ - (##car _e68406857_)) - (_tl68426862_ - (##cdr _e68406857_))) - (let ((_hd6865_ - _hd68416860_)) - (let ((_rest6867_ - _tl68426862_)) + _e69066921_))) + (let ((_hd69176936_ + (##car _e69166933_)) + (_tl69186938_ + (##cdr _e69166933_))) + (let ((_hd6941_ + _hd69176936_)) + (let ((_rest6943_ + _tl69186938_)) (if '#t (if (gx#identifier? - _hd6865_) - (_lp6825_ - _rest6867_ - _ns6828_ - (cons (cons _hd6865_ + _hd6941_) + (_lp6901_ + _rest6943_ + _ns6904_ + (cons (cons _hd6941_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (if _ns6828_ + (cons (if _ns6904_ (gx#stx-identifier - _hd6865_ - _ns6828_ + _hd6941_ + _ns6904_ '"#" - _hd6865_) - _hd6865_) + _hd6941_) + _hd6941_) '())) - _r6829_)) - (let ((_e68686878_ _hd6865_)) - (let ((_E68706882_ + _r6905_)) + (let ((_e69446954_ _hd6941_)) + (let ((_E69466958_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - _e68686878_)))) - (let ((_E68696906_ + _e69446954_)))) + (let ((_E69456982_ (lambda () - (if (gx#stx-pair? _e68686878_) - (let ((_e68716886_ - (gx#syntax-e _e68686878_))) - (let ((_hd68726889_ - (##car _e68716886_)) - (_tl68736891_ - (##cdr _e68716886_))) - (let ((_id6894_ _hd68726889_)) - (if (gx#stx-pair? _tl68736891_) - (let ((_e68746896_ + (if (gx#stx-pair? _e69446954_) + (let ((_e69476962_ + (gx#syntax-e _e69446954_))) + (let ((_hd69486965_ + (##car _e69476962_)) + (_tl69496967_ + (##cdr _e69476962_))) + (let ((_id6970_ _hd69486965_)) + (if (gx#stx-pair? _tl69496967_) + (let ((_e69506972_ (gx#syntax-e - _tl68736891_))) - (let ((_hd68756899_ - (##car _e68746896_)) - (_tl68766901_ - (##cdr _e68746896_))) - (let ((_eid6904_ - _hd68756899_)) + _tl69496967_))) + (let ((_hd69516975_ + (##car _e69506972_)) + (_tl69526977_ + (##cdr _e69506972_))) + (let ((_eid6980_ + _hd69516975_)) (if (gx#stx-null? - _tl68766901_) + _tl69526977_) (if (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id6894_) - (gx#identifier? _eid6904_) + _id6970_) + (gx#identifier? _eid6980_) '#f) - (_lp6825_ - _rest6867_ - _ns6828_ - (cons (cons _id6894_ (cons _eid6904_ '())) _r6829_)) - (_E68706882_)) - (_E68706882_))))) + (_lp6901_ + _rest6943_ + _ns6904_ + (cons (cons _id6970_ (cons _eid6980_ '())) _r6905_)) + (_E69466958_)) + (_E69466958_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E68706882_))))) - (_E68706882_))))) - (let () (_E68696906_)))))) - (_E68396853_)))))) + (_E69466958_))))) + (_E69466958_))))) + (let () (_E69456982_)))))) + (_E69156929_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E68396853_))))) - (let ((_E68316939_ + (_E69156929_))))) + (let ((_E69077015_ (lambda () - (if (gx#stx-pair? _e68306845_) - (let ((_e68336914_ + (if (gx#stx-pair? _e69066921_) + (let ((_e69096990_ (gx#syntax-e - _e68306845_))) - (let ((_hd68346917_ - (##car _e68336914_)) - (_tl68356919_ - (##cdr _e68336914_))) + _e69066921_))) + (let ((_hd69106993_ + (##car _e69096990_)) + (_tl69116995_ + (##cdr _e69096990_))) (if (eq? (gx#stx-e - _hd68346917_) + _hd69106993_) 'namespace:) (if (gx#stx-pair? - _tl68356919_) - (let ((_e68366922_ + _tl69116995_) + (let ((_e69126998_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl68356919_))) - (let ((_hd68376925_ (##car _e68366922_)) - (_tl68386927_ (##cdr _e68366922_))) - (let ((_ns6930_ _hd68376925_)) - (let ((_rest6932_ _tl68386927_)) + (gx#syntax-e _tl69116995_))) + (let ((_hd69137001_ (##car _e69126998_)) + (_tl69147003_ (##cdr _e69126998_))) + (let ((_ns7006_ _hd69137001_)) + (let ((_rest7008_ _tl69147003_)) (if '#t - (let ((_ns6937_ - (if (gx#identifier? _ns6930_) + (let ((_ns7013_ + (if (gx#identifier? _ns7006_) (symbol->string - (gx#stx-e _ns6930_)) - (if (let ((_$e6934_ + (gx#stx-e _ns7006_)) + (if (let ((_$e7010_ (gx#stx-string? - _ns6930_))) - (if _$e6934_ - _$e6934_ + _ns7006_))) + (if _$e7010_ + _$e7010_ (gx#stx-false? - _ns6930_))) - (gx#stx-e _ns6930_) + _ns7006_))) + (gx#stx-e _ns7006_) (gx#raise-syntax-error '#f '"Bad syntax" - _stx6791_ - _ns6930_))))) - (_lp6825_ _rest6932_ _ns6937_ _r6829_)) - (_E68326910_)))))) - (_E68326910_)) - (_E68326910_)))) + _stx6867_ + _ns7006_))))) + (_lp6901_ _rest7008_ _ns7013_ _r6905_)) + (_E69086986_)))))) + (_E69086986_)) + (_E69086986_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E68326910_))))) - (let () (_E68316939_)))))))))) - _lp6825_) - _body6823_ + (_E69086986_))))) + (let () (_E69077015_)))))))))) + _lp6901_) + _body6899_ (gx#core-context-namespace__0) '())))) - (let ((_e67946801_ _stx6791_)) - (let ((_E67966805_ + (let ((_e68706877_ _stx6867_)) + (let ((_E68726881_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e67946801_)))) - (let ((_E67956819_ + (gx#raise-syntax-error '#f '"Bad syntax" _e68706877_)))) + (let ((_E68716895_ (lambda () - (if (gx#stx-pair? _e67946801_) - (let ((_e67976809_ (gx#syntax-e _e67946801_))) - (let ((_hd67986812_ (##car _e67976809_)) - (_tl67996814_ (##cdr _e67976809_))) - (let ((_body6817_ _tl67996814_)) - (if (gx#stx-list? _body6817_) + (if (gx#stx-pair? _e68706877_) + (let ((_e68736885_ (gx#syntax-e _e68706877_))) + (let ((_hd68746888_ (##car _e68736885_)) + (_tl68756890_ (##cdr _e68736885_))) + (let ((_body6893_ _tl68756890_)) + (if (gx#stx-list? _body6893_) (gx#core-cons '%#extern - (_generate6793_ _body6817_)) - (_E67966805_))))) - (_E67966805_))))) - (let () (_E67956819_)))))))) + (_generate6869_ _body6893_)) + (_E68726881_))))) + (_E68726881_))))) + (let () (_E68716895_)))))))) (define gx#macro-expand-define-values - (lambda (_stx6737_) - (let ((_e67386751_ _stx6737_)) - (let ((_E67406755_ + (lambda (_stx6813_) + (let ((_e68146827_ _stx6813_)) + (let ((_E68166831_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e67386751_)))) - (let ((_E67396787_ + (gx#raise-syntax-error '#f '"Bad syntax" _e68146827_)))) + (let ((_E68156863_ (lambda () - (if (gx#stx-pair? _e67386751_) - (let ((_e67416759_ (gx#syntax-e _e67386751_))) - (let ((_hd67426762_ (##car _e67416759_)) - (_tl67436764_ (##cdr _e67416759_))) - (if (gx#stx-pair? _tl67436764_) - (let ((_e67446767_ (gx#syntax-e _tl67436764_))) - (let ((_hd67456770_ (##car _e67446767_)) - (_tl67466772_ (##cdr _e67446767_))) - (let ((_hd6775_ _hd67456770_)) - (if (gx#stx-pair? _tl67466772_) - (let ((_e67476777_ - (gx#syntax-e _tl67466772_))) - (let ((_hd67486780_ - (##car _e67476777_)) - (_tl67496782_ - (##cdr _e67476777_))) - (let ((_expr6785_ _hd67486780_)) - (if (gx#stx-null? _tl67496782_) + (if (gx#stx-pair? _e68146827_) + (let ((_e68176835_ (gx#syntax-e _e68146827_))) + (let ((_hd68186838_ (##car _e68176835_)) + (_tl68196840_ (##cdr _e68176835_))) + (if (gx#stx-pair? _tl68196840_) + (let ((_e68206843_ (gx#syntax-e _tl68196840_))) + (let ((_hd68216846_ (##car _e68206843_)) + (_tl68226848_ (##cdr _e68206843_))) + (let ((_hd6851_ _hd68216846_)) + (if (gx#stx-pair? _tl68226848_) + (let ((_e68236853_ + (gx#syntax-e _tl68226848_))) + (let ((_hd68246856_ + (##car _e68236853_)) + (_tl68256858_ + (##cdr _e68236853_))) + (let ((_expr6861_ _hd68246856_)) + (if (gx#stx-null? _tl68256858_) (if (gx#stx-andmap gx#identifier? - _hd6775_) + _hd6851_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _hd6775_) - (cons _expr6785_ '()))) - (_E67406755_)) + _hd6851_) + (cons _expr6861_ '()))) + (_E68166831_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E67406755_))))) - (_E67406755_))))) - (_E67406755_)))) - (_E67406755_))))) - (let () (_E67396787_))))))) + (_E68166831_))))) + (_E68166831_))))) + (_E68166831_)))) + (_E68166831_))))) + (let () (_E68156863_))))))) (define gx#macro-expand-define-syntax - (lambda (_stx6683_) - (let ((_e66846697_ _stx6683_)) - (let ((_E66866701_ + (lambda (_stx6759_) + (let ((_e67606773_ _stx6759_)) + (let ((_E67626777_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e66846697_)))) - (let ((_E66856733_ + (gx#raise-syntax-error '#f '"Bad syntax" _e67606773_)))) + (let ((_E67616809_ (lambda () - (if (gx#stx-pair? _e66846697_) - (let ((_e66876705_ (gx#syntax-e _e66846697_))) - (let ((_hd66886708_ (##car _e66876705_)) - (_tl66896710_ (##cdr _e66876705_))) - (if (gx#stx-pair? _tl66896710_) - (let ((_e66906713_ (gx#syntax-e _tl66896710_))) - (let ((_hd66916716_ (##car _e66906713_)) - (_tl66926718_ (##cdr _e66906713_))) - (let ((_hd6721_ _hd66916716_)) - (if (gx#stx-pair? _tl66926718_) - (let ((_e66936723_ - (gx#syntax-e _tl66926718_))) - (let ((_hd66946726_ - (##car _e66936723_)) - (_tl66956728_ - (##cdr _e66936723_))) - (let ((_expr6731_ _hd66946726_)) - (if (gx#stx-null? _tl66956728_) + (if (gx#stx-pair? _e67606773_) + (let ((_e67636781_ (gx#syntax-e _e67606773_))) + (let ((_hd67646784_ (##car _e67636781_)) + (_tl67656786_ (##cdr _e67636781_))) + (if (gx#stx-pair? _tl67656786_) + (let ((_e67666789_ (gx#syntax-e _tl67656786_))) + (let ((_hd67676792_ (##car _e67666789_)) + (_tl67686794_ (##cdr _e67666789_))) + (let ((_hd6797_ _hd67676792_)) + (if (gx#stx-pair? _tl67686794_) + (let ((_e67696799_ + (gx#syntax-e _tl67686794_))) + (let ((_hd67706802_ + (##car _e67696799_)) + (_tl67716804_ + (##cdr _e67696799_))) + (let ((_expr6807_ _hd67706802_)) + (if (gx#stx-null? _tl67716804_) (if (gx#identifier? - _hd6721_) + _hd6797_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _hd6721_ + (cons _hd6797_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _expr6731_ '()))) - (_E66866701_)) + (cons _expr6807_ '()))) + (_E67626777_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E66866701_))))) - (_E66866701_))))) - (_E66866701_)))) - (_E66866701_))))) - (let () (_E66856733_))))))) + (_E67626777_))))) + (_E67626777_))))) + (_E67626777_)))) + (_E67626777_))))) + (let () (_E67616809_))))))) (define gx#macro-expand-define-alias - (lambda (_stx6629_) - (let ((_e66306643_ _stx6629_)) - (let ((_E66326647_ + (lambda (_stx6705_) + (let ((_e67066719_ _stx6705_)) + (let ((_E67086723_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e66306643_)))) - (let ((_E66316679_ + (gx#raise-syntax-error '#f '"Bad syntax" _e67066719_)))) + (let ((_E67076755_ (lambda () - (if (gx#stx-pair? _e66306643_) - (let ((_e66336651_ (gx#syntax-e _e66306643_))) - (let ((_hd66346654_ (##car _e66336651_)) - (_tl66356656_ (##cdr _e66336651_))) - (if (gx#stx-pair? _tl66356656_) - (let ((_e66366659_ (gx#syntax-e _tl66356656_))) - (let ((_hd66376662_ (##car _e66366659_)) - (_tl66386664_ (##cdr _e66366659_))) - (let ((_id6667_ _hd66376662_)) - (if (gx#stx-pair? _tl66386664_) - (let ((_e66396669_ - (gx#syntax-e _tl66386664_))) - (let ((_hd66406672_ - (##car _e66396669_)) - (_tl66416674_ - (##cdr _e66396669_))) - (let ((_alias-id6677_ - _hd66406672_)) - (if (gx#stx-null? _tl66416674_) + (if (gx#stx-pair? _e67066719_) + (let ((_e67096727_ (gx#syntax-e _e67066719_))) + (let ((_hd67106730_ (##car _e67096727_)) + (_tl67116732_ (##cdr _e67096727_))) + (if (gx#stx-pair? _tl67116732_) + (let ((_e67126735_ (gx#syntax-e _tl67116732_))) + (let ((_hd67136738_ (##car _e67126735_)) + (_tl67146740_ (##cdr _e67126735_))) + (let ((_id6743_ _hd67136738_)) + (if (gx#stx-pair? _tl67146740_) + (let ((_e67156745_ + (gx#syntax-e _tl67146740_))) + (let ((_hd67166748_ + (##car _e67156745_)) + (_tl67176750_ + (##cdr _e67156745_))) + (let ((_alias-id6753_ + _hd67166748_)) + (if (gx#stx-null? _tl67176750_) (if (if (gx#identifier? - _id6667_) + _id6743_) (gx#identifier? - _alias-id6677_) + _alias-id6753_) '#f) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _id6667_ + (cons _id6743_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _alias-id6677_ '()))) - (_E66326647_)) + (cons _alias-id6753_ '()))) + (_E67086723_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E66326647_))))) - (_E66326647_))))) - (_E66326647_)))) - (_E66326647_))))) - (let () (_E66316679_))))))) + (_E67086723_))))) + (_E67086723_))))) + (_E67086723_)))) + (_E67086723_))))) + (let () (_E67076755_))))))) (define gx#macro-expand-lambda% - (lambda (_stx6586_) - (let ((_e65876597_ _stx6586_)) - (let ((_E65896601_ + (lambda (_stx6662_) + (let ((_e66636673_ _stx6662_)) + (let ((_E66656677_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e65876597_)))) - (let ((_E65886625_ + (gx#raise-syntax-error '#f '"Bad syntax" _e66636673_)))) + (let ((_E66646701_ (lambda () - (if (gx#stx-pair? _e65876597_) - (let ((_e65906605_ (gx#syntax-e _e65876597_))) - (let ((_hd65916608_ (##car _e65906605_)) - (_tl65926610_ (##cdr _e65906605_))) - (if (gx#stx-pair? _tl65926610_) - (let ((_e65936613_ (gx#syntax-e _tl65926610_))) - (let ((_hd65946616_ (##car _e65936613_)) - (_tl65956618_ (##cdr _e65936613_))) - (let ((_hd6621_ _hd65946616_)) - (let ((_body6623_ _tl65956618_)) + (if (gx#stx-pair? _e66636673_) + (let ((_e66666681_ (gx#syntax-e _e66636673_))) + (let ((_hd66676684_ (##car _e66666681_)) + (_tl66686686_ (##cdr _e66666681_))) + (if (gx#stx-pair? _tl66686686_) + (let ((_e66696689_ (gx#syntax-e _tl66686686_))) + (let ((_hd66706692_ (##car _e66696689_)) + (_tl66716694_ (##cdr _e66696689_))) + (let ((_hd6697_ _hd66706692_)) + (let ((_body6699_ _tl66716694_)) (if (if (gx#stx-andmap gx#identifier? - _hd6621_) - (if (gx#stx-list? _body6623_) + _hd6697_) + (if (gx#stx-list? _body6699_) (not (gx#stx-null? - _body6623_)) + _body6699_)) '#f) '#f) (gx#core-cons* '%#lambda (gx#stx-map1 gx#user-binding-identifier - _hd6621_) - _body6623_) - (_E65896601_)))))) - (_E65896601_)))) - (_E65896601_))))) - (let () (_E65886625_))))))) + _hd6697_) + _body6699_) + (_E66656677_)))))) + (_E66656677_)))) + (_E66656677_))))) + (let () (_E66646701_))))))) (define gx#macro-expand-case-lambda - (lambda (_stx6522_) - (let ((_generate6524_ - (lambda (_clause6554_) - (let ((_e65556562_ _clause6554_)) - (let ((_E65576566_ + (lambda (_stx6598_) + (let ((_generate6600_ + (lambda (_clause6630_) + (let ((_e66316638_ _clause6630_)) + (let ((_E66336642_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _stx6522_ - _clause6554_)))) - (let ((_E65566582_ + _stx6598_ + _clause6630_)))) + (let ((_E66326658_ (lambda () - (if (gx#stx-pair? _e65556562_) - (let ((_e65586570_ (gx#syntax-e _e65556562_))) - (let ((_hd65596573_ (##car _e65586570_)) - (_tl65606575_ (##cdr _e65586570_))) - (let ((_hd6578_ _hd65596573_)) - (let ((_body6580_ _tl65606575_)) + (if (gx#stx-pair? _e66316638_) + (let ((_e66346646_ (gx#syntax-e _e66316638_))) + (let ((_hd66356649_ (##car _e66346646_)) + (_tl66366651_ (##cdr _e66346646_))) + (let ((_hd6654_ _hd66356649_)) + (let ((_body6656_ _tl66366651_)) (if (if (gx#stx-andmap gx#identifier? - _hd6578_) - (if (gx#stx-list? _body6580_) + _hd6654_) + (if (gx#stx-list? _body6656_) (not (gx#stx-null? - _body6580_)) + _body6656_)) '#f) '#f) (gx#stx-wrap-source (cons (gx#stx-map1 gx#user-binding-identifier - _hd6578_) - _body6580_) - (gx#stx-source _clause6554_)) - (_E65576566_)))))) - (_E65576566_))))) - (let () (_E65566582_)))))))) - (let ((_e65256532_ _stx6522_)) - (let ((_E65276536_ + _hd6654_) + _body6656_) + (gx#stx-source _clause6630_)) + (_E66336642_)))))) + (_E66336642_))))) + (let () (_E66326658_)))))))) + (let ((_e66016608_ _stx6598_)) + (let ((_E66036612_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e65256532_)))) - (let ((_E65266550_ + (gx#raise-syntax-error '#f '"Bad syntax" _e66016608_)))) + (let ((_E66026626_ (lambda () - (if (gx#stx-pair? _e65256532_) - (let ((_e65286540_ (gx#syntax-e _e65256532_))) - (let ((_hd65296543_ (##car _e65286540_)) - (_tl65306545_ (##cdr _e65286540_))) - (let ((_clauses6548_ _tl65306545_)) - (if (gx#stx-list? _clauses6548_) + (if (gx#stx-pair? _e66016608_) + (let ((_e66046616_ (gx#syntax-e _e66016608_))) + (let ((_hd66056619_ (##car _e66046616_)) + (_tl66066621_ (##cdr _e66046616_))) + (let ((_clauses6624_ _tl66066621_)) + (if (gx#stx-list? _clauses6624_) (gx#core-cons '%#case-lambda - (gx#stx-map1 _generate6524_ _clauses6548_)) - (_E65276536_))))) - (_E65276536_))))) - (let () (_E65266550_)))))))) + (gx#stx-map1 _generate6600_ _clauses6624_)) + (_E66036612_))))) + (_E66036612_))))) + (let () (_E66026626_)))))))) (begin - (define gx#macro-expand-let-values__opt-lambda6421 - (lambda (_stx6423_ _form6424_) - (let ((_generate6426_ - (lambda (_bind6469_) - (let ((_e64706480_ _bind6469_)) - (let ((_E64726484_ + (define gx#macro-expand-let-values__opt-lambda6497 + (lambda (_stx6499_ _form6500_) + (let ((_generate6502_ + (lambda (_bind6545_) + (let ((_e65466556_ _bind6545_)) + (let ((_E65486560_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _stx6423_ - _bind6469_)))) - (let ((_E64716508_ + _stx6499_ + _bind6545_)))) + (let ((_E65476584_ (lambda () - (if (gx#stx-pair? _e64706480_) - (let ((_e64736488_ - (gx#syntax-e _e64706480_))) - (let ((_hd64746491_ (##car _e64736488_)) - (_tl64756493_ (##cdr _e64736488_))) - (let ((_ids6496_ _hd64746491_)) - (if (gx#stx-pair? _tl64756493_) - (let ((_e64766498_ - (gx#syntax-e _tl64756493_))) - (let ((_hd64776501_ - (##car _e64766498_)) - (_tl64786503_ - (##cdr _e64766498_))) - (let ((_expr6506_ - _hd64776501_)) + (if (gx#stx-pair? _e65466556_) + (let ((_e65496564_ + (gx#syntax-e _e65466556_))) + (let ((_hd65506567_ (##car _e65496564_)) + (_tl65516569_ (##cdr _e65496564_))) + (let ((_ids6572_ _hd65506567_)) + (if (gx#stx-pair? _tl65516569_) + (let ((_e65526574_ + (gx#syntax-e _tl65516569_))) + (let ((_hd65536577_ + (##car _e65526574_)) + (_tl65546579_ + (##cdr _e65526574_))) + (let ((_expr6582_ + _hd65536577_)) (if (gx#stx-null? - _tl64786503_) + _tl65546579_) (if (gx#stx-andmap gx#identifier? - _ids6496_) + _ids6572_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _ids6496_) - (cons _expr6506_ '())) - (_E64726484_)) - (_E64726484_))))) + _ids6572_) + (cons _expr6582_ '())) + (_E65486560_)) + (_E65486560_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E64726484_))))) - (_E64726484_))))) - (let () (_E64716508_)))))))) - (let ((_e64276437_ _stx6423_)) - (let ((_E64296441_ + (_E65486560_))))) + (_E65486560_))))) + (let () (_E65476584_)))))))) + (let ((_e65036513_ _stx6499_)) + (let ((_E65056517_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e64276437_)))) - (let ((_E64286465_ + (gx#raise-syntax-error '#f '"Bad syntax" _e65036513_)))) + (let ((_E65046541_ (lambda () - (if (gx#stx-pair? _e64276437_) - (let ((_e64306445_ (gx#syntax-e _e64276437_))) - (let ((_hd64316448_ (##car _e64306445_)) - (_tl64326450_ (##cdr _e64306445_))) - (if (gx#stx-pair? _tl64326450_) - (let ((_e64336453_ - (gx#syntax-e _tl64326450_))) - (let ((_hd64346456_ (##car _e64336453_)) - (_tl64356458_ (##cdr _e64336453_))) - (let ((_hd6461_ _hd64346456_)) - (let ((_body6463_ _tl64356458_)) - (if (if (gx#stx-list? _hd6461_) + (if (gx#stx-pair? _e65036513_) + (let ((_e65066521_ (gx#syntax-e _e65036513_))) + (let ((_hd65076524_ (##car _e65066521_)) + (_tl65086526_ (##cdr _e65066521_))) + (if (gx#stx-pair? _tl65086526_) + (let ((_e65096529_ + (gx#syntax-e _tl65086526_))) + (let ((_hd65106532_ (##car _e65096529_)) + (_tl65116534_ (##cdr _e65096529_))) + (let ((_hd6537_ _hd65106532_)) + (let ((_body6539_ _tl65116534_)) + (if (if (gx#stx-list? _hd6537_) (if (gx#stx-list? - _body6463_) + _body6539_) (not (gx#stx-null? - _body6463_)) + _body6539_)) '#f) '#f) (gx#core-cons* - _form6424_ + _form6500_ (gx#stx-map1 - _generate6426_ - _hd6461_) - _body6463_) - (_E64296441_)))))) - (_E64296441_)))) - (_E64296441_))))) - (let () (_E64286465_)))))))) + _generate6502_ + _hd6537_) + _body6539_) + (_E65056517_)))))) + (_E65056517_)))) + (_E65056517_))))) + (let () (_E65046541_)))))))) (begin (define gx#macro-expand-let-values__0 - (lambda (_stx6515_) - (let ((_form6517_ '%#let-values)) - (gx#macro-expand-let-values__opt-lambda6421 - _stx6515_ - _form6517_)))) + (lambda (_stx6591_) + (let ((_form6593_ '%#let-values)) + (gx#macro-expand-let-values__opt-lambda6497 + _stx6591_ + _form6593_)))) (define gx#macro-expand-let-values - (lambda _g8865_ - (let ((_g8864_ (length _g8865_))) - (cond ((fx= _g8864_ 1) - (apply gx#macro-expand-let-values__0 _g8865_)) - ((fx= _g8864_ 2) - (apply gx#macro-expand-let-values__opt-lambda6421 _g8865_)) - (else (error "No clause matching arguments" _g8865_)))))))) + (lambda _g8941_ + (let ((_g8940_ (length _g8941_))) + (cond ((fx= _g8940_ 1) + (apply gx#macro-expand-let-values__0 _g8941_)) + ((fx= _g8940_ 2) + (apply gx#macro-expand-let-values__opt-lambda6497 _g8941_)) + (else (error "No clause matching arguments" _g8941_)))))))) (define gx#macro-expand-letrec-values - (lambda (_stx6420_) - (gx#macro-expand-let-values__opt-lambda6421 _stx6420_ '%#letrec-values))) + (lambda (_stx6496_) + (gx#macro-expand-let-values__opt-lambda6497 _stx6496_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_stx6418_) - (gx#macro-expand-let-values__opt-lambda6421 - _stx6418_ + (lambda (_stx6494_) + (gx#macro-expand-let-values__opt-lambda6497 + _stx6494_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_stx6309_) - (let ((_e63106336_ _stx6309_)) - (let ((_E63226340_ + (lambda (_stx6385_) + (let ((_e63866412_ _stx6385_)) + (let ((_E63986416_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e63106336_)))) - (let ((_E63126382_ + (gx#raise-syntax-error '#f '"Bad syntax" _e63866412_)))) + (let ((_E63886458_ (lambda () - (if (gx#stx-pair? _e63106336_) - (let ((_e63236344_ (gx#syntax-e _e63106336_))) - (let ((_hd63246347_ (##car _e63236344_)) - (_tl63256349_ (##cdr _e63236344_))) - (if (gx#stx-pair? _tl63256349_) - (let ((_e63266352_ (gx#syntax-e _tl63256349_))) - (let ((_hd63276355_ (##car _e63266352_)) - (_tl63286357_ (##cdr _e63266352_))) - (let ((_test6360_ _hd63276355_)) - (if (gx#stx-pair? _tl63286357_) - (let ((_e63296362_ - (gx#syntax-e _tl63286357_))) - (let ((_hd63306365_ - (##car _e63296362_)) - (_tl63316367_ - (##cdr _e63296362_))) - (let ((_K6370_ _hd63306365_)) - (if (gx#stx-pair? _tl63316367_) - (let ((_e63326372_ + (if (gx#stx-pair? _e63866412_) + (let ((_e63996420_ (gx#syntax-e _e63866412_))) + (let ((_hd64006423_ (##car _e63996420_)) + (_tl64016425_ (##cdr _e63996420_))) + (if (gx#stx-pair? _tl64016425_) + (let ((_e64026428_ (gx#syntax-e _tl64016425_))) + (let ((_hd64036431_ (##car _e64026428_)) + (_tl64046433_ (##cdr _e64026428_))) + (let ((_test6436_ _hd64036431_)) + (if (gx#stx-pair? _tl64046433_) + (let ((_e64056438_ + (gx#syntax-e _tl64046433_))) + (let ((_hd64066441_ + (##car _e64056438_)) + (_tl64076443_ + (##cdr _e64056438_))) + (let ((_K6446_ _hd64066441_)) + (if (gx#stx-pair? _tl64076443_) + (let ((_e64086448_ (gx#syntax-e - _tl63316367_))) - (let ((_hd63336375_ - (##car _e63326372_)) - (_tl63346377_ - (##cdr _e63326372_))) - (let ((_E6380_ _hd63336375_)) + _tl64076443_))) + (let ((_hd64096451_ + (##car _e64086448_)) + (_tl64106453_ + (##cdr _e64086448_))) + (let ((_E6456_ _hd64096451_)) (if (gx#stx-null? - _tl63346377_) + _tl64106453_) (if '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#core-list '%#if _test6360_ _K6370_ _E6380_) - (_E63226340_)) - (_E63226340_))))) + (gx#core-list '%#if _test6436_ _K6446_ _E6456_) + (_E63986416_)) + (_E63986416_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E63226340_))))) - (_E63226340_))))) - (_E63226340_)))) - (_E63226340_))))) - (let ((_E63116414_ + (_E63986416_))))) + (_E63986416_))))) + (_E63986416_)))) + (_E63986416_))))) + (let ((_E63876490_ (lambda () - (if (gx#stx-pair? _e63106336_) - (let ((_e63136386_ (gx#syntax-e _e63106336_))) - (let ((_hd63146389_ (##car _e63136386_)) - (_tl63156391_ (##cdr _e63136386_))) - (if (gx#stx-pair? _tl63156391_) - (let ((_e63166394_ - (gx#syntax-e _tl63156391_))) - (let ((_hd63176397_ (##car _e63166394_)) - (_tl63186399_ (##cdr _e63166394_))) - (let ((_test6402_ _hd63176397_)) - (if (gx#stx-pair? _tl63186399_) - (let ((_e63196404_ - (gx#syntax-e _tl63186399_))) - (let ((_hd63206407_ - (##car _e63196404_)) - (_tl63216409_ - (##cdr _e63196404_))) - (let ((_K6412_ _hd63206407_)) + (if (gx#stx-pair? _e63866412_) + (let ((_e63896462_ (gx#syntax-e _e63866412_))) + (let ((_hd63906465_ (##car _e63896462_)) + (_tl63916467_ (##cdr _e63896462_))) + (if (gx#stx-pair? _tl63916467_) + (let ((_e63926470_ + (gx#syntax-e _tl63916467_))) + (let ((_hd63936473_ (##car _e63926470_)) + (_tl63946475_ (##cdr _e63926470_))) + (let ((_test6478_ _hd63936473_)) + (if (gx#stx-pair? _tl63946475_) + (let ((_e63956480_ + (gx#syntax-e _tl63946475_))) + (let ((_hd63966483_ + (##car _e63956480_)) + (_tl63976485_ + (##cdr _e63956480_))) + (let ((_K6488_ _hd63966483_)) (if (gx#stx-null? - _tl63216409_) + _tl63976485_) (if '#t (gx#core-list '%#if - _test6402_ - _K6412_ + _test6478_ + _K6488_ '#!void) - (_E63126382_)) - (_E63126382_))))) - (_E63126382_))))) - (_E63126382_)))) - (_E63126382_))))) - (let () (_E63116414_)))))))) + (_E63886458_)) + (_E63886458_))))) + (_E63886458_))))) + (_E63886458_)))) + (_E63886458_))))) + (let () (_E63876490_)))))))) (define gx#free-identifier=? - (lambda (_xid6297_ _yid6298_) - (let ((_xe6300_ (gx#resolve-identifier__0 _xid6297_)) - (_ye6301_ (gx#resolve-identifier__0 _yid6298_))) - (if (if _xe6300_ _ye6301_ '#f) - (let ((_$e6303_ (eq? _xe6300_ _ye6301_))) - (if _$e6303_ - _$e6303_ - (if (##structure-instance-of? _xe6300_ 'gx#binding::t) - (if (##structure-instance-of? _ye6301_ 'gx#binding::t) - (eq? (##structure-ref _xe6300_ '1 gx#binding::t '#f) - (##structure-ref _ye6301_ '1 gx#binding::t '#f)) + (lambda (_xid6373_ _yid6374_) + (let ((_xe6376_ (gx#resolve-identifier__0 _xid6373_)) + (_ye6377_ (gx#resolve-identifier__0 _yid6374_))) + (if (if _xe6376_ _ye6377_ '#f) + (let ((_$e6379_ (eq? _xe6376_ _ye6377_))) + (if _$e6379_ + _$e6379_ + (if (##structure-instance-of? _xe6376_ 'gx#binding::t) + (if (##structure-instance-of? _ye6377_ 'gx#binding::t) + (eq? (##structure-ref _xe6376_ '1 gx#binding::t '#f) + (##structure-ref _ye6377_ '1 gx#binding::t '#f)) '#f) '#f))) - (if (let ((_$e6306_ _xe6300_)) (if _$e6306_ _$e6306_ _ye6301_)) + (if (let ((_$e6382_ _xe6376_)) (if _$e6382_ _$e6382_ _ye6377_)) '#f - (gx#stx-eq? _xid6297_ _yid6298_)))))) + (gx#stx-eq? _xid6373_ _yid6374_)))))) (define gx#bound-identifier=? - (lambda (_xid6281_ _yid6282_) - (let ((_context6284_ - (lambda (_e6295_) + (lambda (_xid6357_ _yid6358_) + (let ((_context6360_ + (lambda (_e6371_) (if (##structure-direct-instance-of? - _e6295_ + _e6371_ 'gx#syntax-quote::t) - (##structure-ref _e6295_ '3 gx#syntax-quote::t '#f) + (##structure-ref _e6371_ '3 gx#syntax-quote::t '#f) (gx#current-expander-context))))) - (let ((_marks6285_ - (lambda (_e6293_) - (if (symbol? _e6293_) + (let ((_marks6361_ + (lambda (_e6369_) + (if (symbol? _e6369_) '() (if (##structure-direct-instance-of? - _e6293_ + _e6369_ 'gx#identifier-wrap::t) - (##structure-ref _e6293_ '3 gx#identifier-wrap::t '#f) + (##structure-ref _e6369_ '3 gx#identifier-wrap::t '#f) (##structure-ref - _e6293_ + _e6369_ '4 gx#syntax-quote::t '#f)))))) - (let ((_unwrap6286_ - (lambda (_e6291_) - (if (symbol? _e6291_) - _e6291_ - (gx#syntax-local-unwrap _e6291_))))) - (let ((_x6288_ (_unwrap6286_ _xid6281_)) - (_y6289_ (_unwrap6286_ _yid6282_))) - (if (gx#stx-eq? _x6288_ _y6289_) - (if (eq? (_context6284_ _x6288_) (_context6284_ _y6289_)) - (andmap eq? (_marks6285_ _x6288_) (_marks6285_ _y6289_)) + (let ((_unwrap6362_ + (lambda (_e6367_) + (if (symbol? _e6367_) + _e6367_ + (gx#syntax-local-unwrap _e6367_))))) + (let ((_x6364_ (_unwrap6362_ _xid6357_)) + (_y6365_ (_unwrap6362_ _yid6358_))) + (if (gx#stx-eq? _x6364_ _y6365_) + (if (eq? (_context6360_ _x6364_) (_context6360_ _y6365_)) + (andmap eq? (_marks6361_ _x6364_) (_marks6361_ _y6365_)) '#f) '#f))))))) (define gx#underscore? - (lambda (_stx6279_) - (if (gx#identifier? _stx6279_) (gx#core-identifier=? _stx6279_ '_) '#f))) + (lambda (_stx6355_) + (if (gx#identifier? _stx6355_) (gx#core-identifier=? _stx6355_ '_) '#f))) (define gx#ellipsis? - (lambda (_stx6277_) - (if (gx#identifier? _stx6277_) - (gx#core-identifier=? _stx6277_ '...) + (lambda (_stx6353_) + (if (gx#identifier? _stx6353_) + (gx#core-identifier=? _stx6353_ '...) '#f))) (define gx#user-binding-identifier - (lambda (_x6275_) - (if (gx#identifier? _x6275_) - (if (not (gx#underscore? _x6275_)) _x6275_ '#f) + (lambda (_x6351_) + (if (gx#identifier? _x6351_) + (if (not (gx#underscore? _x6351_)) _x6351_ '#f) '#f))) (begin - (define gx#check-duplicate-identifiers__opt-lambda6219 - (lambda (_stx6221_ _where6222_) - ((letrec ((_lp6224_ - (lambda (_rest6226_) - (let ((_rest62276235_ _rest6226_)) - (let ((_E62306239_ + (define gx#check-duplicate-identifiers__opt-lambda6295 + (lambda (_stx6297_ _where6298_) + ((letrec ((_lp6300_ + (lambda (_rest6302_) + (let ((_rest63036311_ _rest6302_)) + (let ((_E63066315_ (lambda () - (error '"No clause matching" _rest62276235_)))) - (let ((_else62296243_ (lambda () '#t))) - (let ((_K62316253_ - (lambda (_rest6246_ _hd6247_) - (if (not (gx#identifier? _hd6247_)) + (error '"No clause matching" _rest63036311_)))) + (let ((_else63056319_ (lambda () '#t))) + (let ((_K63076329_ + (lambda (_rest6322_ _hd6323_) + (if (not (gx#identifier? _hd6323_)) (gx#raise-syntax-error '#f '"Bad identifier" - _where6222_ - _hd6247_) - (if (find (lambda (_g62486250_) + _where6298_ + _hd6323_) + (if (find (lambda (_g63246326_) (gx#bound-identifier=? - _g62486250_ - _hd6247_)) - _rest6246_) + _g63246326_ + _hd6323_)) + _rest6322_) (gx#raise-syntax-error '#f '"Duplicate identifier" - _where6222_ - _hd6247_) - (_lp6224_ _rest6246_)))))) - (if (##pair? _rest62276235_) - (let ((_hd62326256_ (##car _rest62276235_)) - (_tl62336258_ (##cdr _rest62276235_))) - (let ((_hd6261_ _hd62326256_)) - (let ((_rest6263_ _tl62336258_)) - (_K62316253_ _rest6263_ _hd6261_)))) - (_else62296243_))))))))) - _lp6224_) - (gx#syntax->list _stx6221_)))) + _where6298_ + _hd6323_) + (_lp6300_ _rest6322_)))))) + (if (##pair? _rest63036311_) + (let ((_hd63086332_ (##car _rest63036311_)) + (_tl63096334_ (##cdr _rest63036311_))) + (let ((_hd6337_ _hd63086332_)) + (let ((_rest6339_ _tl63096334_)) + (_K63076329_ _rest6339_ _hd6337_)))) + (_else63056319_))))))))) + _lp6300_) + (gx#syntax->list _stx6297_)))) (begin (define gx#check-duplicate-identifiers__0 - (lambda (_stx6268_) - (let ((_where6270_ _stx6268_)) - (gx#check-duplicate-identifiers__opt-lambda6219 - _stx6268_ - _where6270_)))) + (lambda (_stx6344_) + (let ((_where6346_ _stx6344_)) + (gx#check-duplicate-identifiers__opt-lambda6295 + _stx6344_ + _where6346_)))) (define gx#check-duplicate-identifiers - (lambda _g8867_ - (let ((_g8866_ (length _g8867_))) - (cond ((fx= _g8866_ 1) - (apply gx#check-duplicate-identifiers__0 _g8867_)) - ((fx= _g8866_ 2) - (apply gx#check-duplicate-identifiers__opt-lambda6219 - _g8867_)) - (else (error "No clause matching arguments" _g8867_)))))))) + (lambda _g8943_ + (let ((_g8942_ (length _g8943_))) + (cond ((fx= _g8942_ 1) + (apply gx#check-duplicate-identifiers__0 _g8943_)) + ((fx= _g8942_ 2) + (apply gx#check-duplicate-identifiers__opt-lambda6295 + _g8943_)) + (else (error "No clause matching arguments" _g8943_)))))))) (define gx#core-bind-values? - (lambda (_stx6213_) + (lambda (_stx6289_) (gx#stx-andmap - (lambda (_x6215_) - (let ((_$e6217_ (gx#identifier? _x6215_))) - (if _$e6217_ _$e6217_ (gx#stx-false? _x6215_)))) - _stx6213_))) + (lambda (_x6291_) + (let ((_$e6293_ (gx#identifier? _x6291_))) + (if _$e6293_ _$e6293_ (gx#stx-false? _x6291_)))) + _stx6289_))) (begin - (define gx#core-bind-values!__opt-lambda6175 - (lambda (_stx6177_ _rebind?6178_ _phi6179_ _ctx6180_) + (define gx#core-bind-values!__opt-lambda6251 + (lambda (_stx6253_ _rebind?6254_ _phi6255_ _ctx6256_) (gx#stx-for-each1 - (lambda (_id6182_) - (if (gx#identifier? _id6182_) - (gx#core-bind-runtime!__opt-lambda6111 - _id6182_ - _rebind?6178_ - _phi6179_ - _ctx6180_) + (lambda (_id6258_) + (if (gx#identifier? _id6258_) + (gx#core-bind-runtime!__opt-lambda6187 + _id6258_ + _rebind?6254_ + _phi6255_ + _ctx6256_) '#!void)) - _stx6177_))) + _stx6253_))) (begin (define gx#core-bind-values!__0 - (lambda (_stx6187_) - (let ((_rebind?6189_ '#f)) - (let ((_phi6191_ (gx#current-expander-phi))) - (let ((_ctx6193_ (gx#current-expander-context))) - (gx#core-bind-values!__opt-lambda6175 - _stx6187_ - _rebind?6189_ - _phi6191_ - _ctx6193_)))))) + (lambda (_stx6263_) + (let ((_rebind?6265_ '#f)) + (let ((_phi6267_ (gx#current-expander-phi))) + (let ((_ctx6269_ (gx#current-expander-context))) + (gx#core-bind-values!__opt-lambda6251 + _stx6263_ + _rebind?6265_ + _phi6267_ + _ctx6269_)))))) (define gx#core-bind-values!__1 - (lambda (_stx6195_ _rebind?6196_) - (let ((_phi6198_ (gx#current-expander-phi))) - (let ((_ctx6200_ (gx#current-expander-context))) - (gx#core-bind-values!__opt-lambda6175 - _stx6195_ - _rebind?6196_ - _phi6198_ - _ctx6200_))))) + (lambda (_stx6271_ _rebind?6272_) + (let ((_phi6274_ (gx#current-expander-phi))) + (let ((_ctx6276_ (gx#current-expander-context))) + (gx#core-bind-values!__opt-lambda6251 + _stx6271_ + _rebind?6272_ + _phi6274_ + _ctx6276_))))) (define gx#core-bind-values!__2 - (lambda (_stx6202_ _rebind?6203_ _phi6204_) - (let ((_ctx6206_ (gx#current-expander-context))) - (gx#core-bind-values!__opt-lambda6175 - _stx6202_ - _rebind?6203_ - _phi6204_ - _ctx6206_)))) + (lambda (_stx6278_ _rebind?6279_ _phi6280_) + (let ((_ctx6282_ (gx#current-expander-context))) + (gx#core-bind-values!__opt-lambda6251 + _stx6278_ + _rebind?6279_ + _phi6280_ + _ctx6282_)))) (define gx#core-bind-values! - (lambda _g8869_ - (let ((_g8868_ (length _g8869_))) - (cond ((fx= _g8868_ 1) (apply gx#core-bind-values!__0 _g8869_)) - ((fx= _g8868_ 2) (apply gx#core-bind-values!__1 _g8869_)) - ((fx= _g8868_ 3) (apply gx#core-bind-values!__2 _g8869_)) - ((fx= _g8868_ 4) - (apply gx#core-bind-values!__opt-lambda6175 _g8869_)) - (else (error "No clause matching arguments" _g8869_)))))))) + (lambda _g8945_ + (let ((_g8944_ (length _g8945_))) + (cond ((fx= _g8944_ 1) (apply gx#core-bind-values!__0 _g8945_)) + ((fx= _g8944_ 2) (apply gx#core-bind-values!__1 _g8945_)) + ((fx= _g8944_ 3) (apply gx#core-bind-values!__2 _g8945_)) + ((fx= _g8944_ 4) + (apply gx#core-bind-values!__opt-lambda6251 _g8945_)) + (else (error "No clause matching arguments" _g8945_)))))))) (define gx#core-quote-bind-values - (lambda (_stx6172_) + (lambda (_stx6248_) (gx#stx-map1 - (lambda (_x6174_) - (if (gx#identifier? _x6174_) (gx#core-quote-syntax__0 _x6174_) '#f)) - _stx6172_))) + (lambda (_x6250_) + (if (gx#identifier? _x6250_) (gx#core-quote-syntax__0 _x6250_) '#f)) + _stx6248_))) (define gx#core-runtime-ref? - (lambda (_stx6165_) - (if (gx#identifier? _stx6165_) - (let ((_bind6167_ (gx#resolve-identifier__0 _stx6165_))) - (let ((_$e6169_ (not _bind6167_))) - (if _$e6169_ - _$e6169_ + (lambda (_stx6241_) + (if (gx#identifier? _stx6241_) + (let ((_bind6243_ (gx#resolve-identifier__0 _stx6241_))) + (let ((_$e6245_ (not _bind6243_))) + (if _$e6245_ + _$e6245_ (##structure-instance-of? - _bind6167_ + _bind6243_ 'gx#runtime-binding::t)))) '#f))) (define gx#core-quote-runtime-ref - (lambda (_id6154_ _form6155_) - (let ((_bind6157_ (gx#resolve-identifier__0 _id6154_))) - (if (##structure-instance-of? _bind6157_ 'gx#runtime-binding::t) - (gx#core-quote-syntax__0 _id6154_) - (if (not _bind6157_) - (if (let ((_$e6159_ (fxpositive? (gx#current-expander-phi)))) - (if _$e6159_ - _$e6159_ - (let ((_$e6162_ - (gx#core-context-rebind?__opt-lambda4023 + (lambda (_id6230_ _form6231_) + (let ((_bind6233_ (gx#resolve-identifier__0 _id6230_))) + (if (##structure-instance-of? _bind6233_ 'gx#runtime-binding::t) + (gx#core-quote-syntax__0 _id6230_) + (if (not _bind6233_) + (if (let ((_$e6235_ (fxpositive? (gx#current-expander-phi)))) + (if _$e6235_ + _$e6235_ + (let ((_$e6238_ + (gx#core-context-rebind?__opt-lambda4099 (gx#core-context-top__0)))) - (if _$e6162_ - _$e6162_ + (if _$e6238_ + _$e6238_ (gx#core-extern-symbol? - (gx#stx-e _id6154_)))))) - (gx#core-quote-syntax__0 _id6154_) + (gx#stx-e _id6230_)))))) + (gx#core-quote-syntax__0 _id6230_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _form6155_ - _id6154_)) + _form6231_ + _id6230_)) (gx#raise-syntax-error '#f '"Bad syntax; not a runtime binding" - _form6155_ - _id6154_)))))) + _form6231_ + _id6230_)))))) (begin - (define gx#core-bind-runtime!__opt-lambda6111 - (lambda (_id6113_ _rebind?6114_ _phi6115_ _ctx6116_) - (let ((_key6118_ (gx#core-identifier-key _id6113_))) - (let ((_eid6120_ - (gx#make-binding-id__opt-lambda5878 - _key6118_ + (define gx#core-bind-runtime!__opt-lambda6187 + (lambda (_id6189_ _rebind?6190_ _phi6191_ _ctx6192_) + (let ((_key6194_ (gx#core-identifier-key _id6189_))) + (let ((_eid6196_ + (gx#make-binding-id__opt-lambda5954 + _key6194_ '#f - _phi6115_ - _ctx6116_))) - (let ((_bind6122_ + _phi6191_ + _ctx6192_))) + (let ((_bind6198_ (if (##structure-instance-of? - _ctx6116_ + _ctx6192_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid6120_ - _key6118_ - _phi6115_ - _ctx6116_) + _eid6196_ + _key6194_ + _phi6191_ + _ctx6192_) (if (##structure-instance-of? - _ctx6116_ + _ctx6192_ 'gx#top-context::t) (##structure gx#top-binding::t - _eid6120_ - _key6118_ - _phi6115_) + _eid6196_ + _key6194_ + _phi6191_) (if (##structure-instance-of? - _ctx6116_ + _ctx6192_ 'gx#local-context::t) (##structure gx#local-binding::t - _eid6120_ - _key6118_ - _phi6115_) + _eid6196_ + _key6194_ + _phi6191_) (##structure gx#runtime-binding::t - _eid6120_ - _key6118_ - _phi6115_)))))) + _eid6196_ + _key6194_ + _phi6191_)))))) (let () - (gx#bind-identifier!__opt-lambda4469 - _id6113_ - _bind6122_ - _rebind?6114_ - _phi6115_ - _ctx6116_))))))) + (gx#bind-identifier!__opt-lambda4545 + _id6189_ + _bind6198_ + _rebind?6190_ + _phi6191_ + _ctx6192_))))))) (begin (define gx#core-bind-runtime!__0 - (lambda (_id6128_) - (let ((_rebind?6130_ '#f)) - (let ((_phi6132_ (gx#current-expander-phi))) - (let ((_ctx6134_ (gx#current-expander-context))) - (gx#core-bind-runtime!__opt-lambda6111 - _id6128_ - _rebind?6130_ - _phi6132_ - _ctx6134_)))))) + (lambda (_id6204_) + (let ((_rebind?6206_ '#f)) + (let ((_phi6208_ (gx#current-expander-phi))) + (let ((_ctx6210_ (gx#current-expander-context))) + (gx#core-bind-runtime!__opt-lambda6187 + _id6204_ + _rebind?6206_ + _phi6208_ + _ctx6210_)))))) (define gx#core-bind-runtime!__1 - (lambda (_id6136_ _rebind?6137_) - (let ((_phi6139_ (gx#current-expander-phi))) - (let ((_ctx6141_ (gx#current-expander-context))) - (gx#core-bind-runtime!__opt-lambda6111 - _id6136_ - _rebind?6137_ - _phi6139_ - _ctx6141_))))) + (lambda (_id6212_ _rebind?6213_) + (let ((_phi6215_ (gx#current-expander-phi))) + (let ((_ctx6217_ (gx#current-expander-context))) + (gx#core-bind-runtime!__opt-lambda6187 + _id6212_ + _rebind?6213_ + _phi6215_ + _ctx6217_))))) (define gx#core-bind-runtime!__2 - (lambda (_id6143_ _rebind?6144_ _phi6145_) - (let ((_ctx6147_ (gx#current-expander-context))) - (gx#core-bind-runtime!__opt-lambda6111 - _id6143_ - _rebind?6144_ - _phi6145_ - _ctx6147_)))) + (lambda (_id6219_ _rebind?6220_ _phi6221_) + (let ((_ctx6223_ (gx#current-expander-context))) + (gx#core-bind-runtime!__opt-lambda6187 + _id6219_ + _rebind?6220_ + _phi6221_ + _ctx6223_)))) (define gx#core-bind-runtime! - (lambda _g8871_ - (let ((_g8870_ (length _g8871_))) - (cond ((fx= _g8870_ 1) (apply gx#core-bind-runtime!__0 _g8871_)) - ((fx= _g8870_ 2) (apply gx#core-bind-runtime!__1 _g8871_)) - ((fx= _g8870_ 3) (apply gx#core-bind-runtime!__2 _g8871_)) - ((fx= _g8870_ 4) - (apply gx#core-bind-runtime!__opt-lambda6111 _g8871_)) - (else (error "No clause matching arguments" _g8871_)))))))) + (lambda _g8947_ + (let ((_g8946_ (length _g8947_))) + (cond ((fx= _g8946_ 1) (apply gx#core-bind-runtime!__0 _g8947_)) + ((fx= _g8946_ 2) (apply gx#core-bind-runtime!__1 _g8947_)) + ((fx= _g8946_ 3) (apply gx#core-bind-runtime!__2 _g8947_)) + ((fx= _g8946_ 4) + (apply gx#core-bind-runtime!__opt-lambda6187 _g8947_)) + (else (error "No clause matching arguments" _g8947_)))))))) (begin - (define gx#core-bind-runtime-reference!__opt-lambda6066 - (lambda (_id6068_ _eid6069_ _rebind?6070_ _phi6071_ _ctx6072_) - (let ((_key6074_ (gx#core-identifier-key _id6068_))) - (let ((_bind6076_ - (if (##structure-instance-of? _ctx6072_ 'gx#module-context::t) + (define gx#core-bind-runtime-reference!__opt-lambda6142 + (lambda (_id6144_ _eid6145_ _rebind?6146_ _phi6147_ _ctx6148_) + (let ((_key6150_ (gx#core-identifier-key _id6144_))) + (let ((_bind6152_ + (if (##structure-instance-of? _ctx6148_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid6069_ - _key6074_ - _phi6071_ - _ctx6072_) + _eid6145_ + _key6150_ + _phi6147_ + _ctx6148_) (if (##structure-instance-of? - _ctx6072_ + _ctx6148_ 'gx#top-context::t) (##structure gx#top-binding::t - _eid6069_ - _key6074_ - _phi6071_) + _eid6145_ + _key6150_ + _phi6147_) (##structure gx#runtime-binding::t - _eid6069_ - _key6074_ - _phi6071_))))) + _eid6145_ + _key6150_ + _phi6147_))))) (let () - (gx#bind-identifier!__opt-lambda4469 - _id6068_ - _bind6076_ - _rebind?6070_ - _phi6071_ - _ctx6072_)))))) + (gx#bind-identifier!__opt-lambda4545 + _id6144_ + _bind6152_ + _rebind?6146_ + _phi6147_ + _ctx6148_)))))) (begin (define gx#core-bind-runtime-reference!__0 - (lambda (_id6082_ _eid6083_) - (let ((_rebind?6085_ '#f)) - (let ((_phi6087_ (gx#current-expander-phi))) - (let ((_ctx6089_ (gx#current-expander-context))) - (gx#core-bind-runtime-reference!__opt-lambda6066 - _id6082_ - _eid6083_ - _rebind?6085_ - _phi6087_ - _ctx6089_)))))) + (lambda (_id6158_ _eid6159_) + (let ((_rebind?6161_ '#f)) + (let ((_phi6163_ (gx#current-expander-phi))) + (let ((_ctx6165_ (gx#current-expander-context))) + (gx#core-bind-runtime-reference!__opt-lambda6142 + _id6158_ + _eid6159_ + _rebind?6161_ + _phi6163_ + _ctx6165_)))))) (define gx#core-bind-runtime-reference!__1 - (lambda (_id6091_ _eid6092_ _rebind?6093_) - (let ((_phi6095_ (gx#current-expander-phi))) - (let ((_ctx6097_ (gx#current-expander-context))) - (gx#core-bind-runtime-reference!__opt-lambda6066 - _id6091_ - _eid6092_ - _rebind?6093_ - _phi6095_ - _ctx6097_))))) + (lambda (_id6167_ _eid6168_ _rebind?6169_) + (let ((_phi6171_ (gx#current-expander-phi))) + (let ((_ctx6173_ (gx#current-expander-context))) + (gx#core-bind-runtime-reference!__opt-lambda6142 + _id6167_ + _eid6168_ + _rebind?6169_ + _phi6171_ + _ctx6173_))))) (define gx#core-bind-runtime-reference!__2 - (lambda (_id6099_ _eid6100_ _rebind?6101_ _phi6102_) - (let ((_ctx6104_ (gx#current-expander-context))) - (gx#core-bind-runtime-reference!__opt-lambda6066 - _id6099_ - _eid6100_ - _rebind?6101_ - _phi6102_ - _ctx6104_)))) + (lambda (_id6175_ _eid6176_ _rebind?6177_ _phi6178_) + (let ((_ctx6180_ (gx#current-expander-context))) + (gx#core-bind-runtime-reference!__opt-lambda6142 + _id6175_ + _eid6176_ + _rebind?6177_ + _phi6178_ + _ctx6180_)))) (define gx#core-bind-runtime-reference! - (lambda _g8873_ - (let ((_g8872_ (length _g8873_))) - (cond ((fx= _g8872_ 2) - (apply gx#core-bind-runtime-reference!__0 _g8873_)) - ((fx= _g8872_ 3) - (apply gx#core-bind-runtime-reference!__1 _g8873_)) - ((fx= _g8872_ 4) - (apply gx#core-bind-runtime-reference!__2 _g8873_)) - ((fx= _g8872_ 5) - (apply gx#core-bind-runtime-reference!__opt-lambda6066 - _g8873_)) - (else (error "No clause matching arguments" _g8873_)))))))) + (lambda _g8949_ + (let ((_g8948_ (length _g8949_))) + (cond ((fx= _g8948_ 2) + (apply gx#core-bind-runtime-reference!__0 _g8949_)) + ((fx= _g8948_ 3) + (apply gx#core-bind-runtime-reference!__1 _g8949_)) + ((fx= _g8948_ 4) + (apply gx#core-bind-runtime-reference!__2 _g8949_)) + ((fx= _g8948_ 5) + (apply gx#core-bind-runtime-reference!__opt-lambda6142 + _g8949_)) + (else (error "No clause matching arguments" _g8949_)))))))) (begin - (define gx#core-bind-extern!__opt-lambda6026 - (lambda (_id6028_ _eid6029_ _rebind?6030_ _phi6031_ _ctx6032_) - (gx#bind-identifier!__opt-lambda4469 - _id6028_ + (define gx#core-bind-extern!__opt-lambda6102 + (lambda (_id6104_ _eid6105_ _rebind?6106_ _phi6107_ _ctx6108_) + (gx#bind-identifier!__opt-lambda4545 + _id6104_ (##structure gx#extern-binding::t - _eid6029_ - (gx#core-identifier-key _id6028_) - _phi6031_) - _rebind?6030_ - _phi6031_ - _ctx6032_))) + _eid6105_ + (gx#core-identifier-key _id6104_) + _phi6107_) + _rebind?6106_ + _phi6107_ + _ctx6108_))) (begin (define gx#core-bind-extern!__0 - (lambda (_id6037_ _eid6038_) - (let ((_rebind?6040_ '#f)) - (let ((_phi6042_ (gx#current-expander-phi))) - (let ((_ctx6044_ (gx#current-expander-context))) - (gx#core-bind-extern!__opt-lambda6026 - _id6037_ - _eid6038_ - _rebind?6040_ - _phi6042_ - _ctx6044_)))))) + (lambda (_id6113_ _eid6114_) + (let ((_rebind?6116_ '#f)) + (let ((_phi6118_ (gx#current-expander-phi))) + (let ((_ctx6120_ (gx#current-expander-context))) + (gx#core-bind-extern!__opt-lambda6102 + _id6113_ + _eid6114_ + _rebind?6116_ + _phi6118_ + _ctx6120_)))))) (define gx#core-bind-extern!__1 - (lambda (_id6046_ _eid6047_ _rebind?6048_) - (let ((_phi6050_ (gx#current-expander-phi))) - (let ((_ctx6052_ (gx#current-expander-context))) - (gx#core-bind-extern!__opt-lambda6026 - _id6046_ - _eid6047_ - _rebind?6048_ - _phi6050_ - _ctx6052_))))) + (lambda (_id6122_ _eid6123_ _rebind?6124_) + (let ((_phi6126_ (gx#current-expander-phi))) + (let ((_ctx6128_ (gx#current-expander-context))) + (gx#core-bind-extern!__opt-lambda6102 + _id6122_ + _eid6123_ + _rebind?6124_ + _phi6126_ + _ctx6128_))))) (define gx#core-bind-extern!__2 - (lambda (_id6054_ _eid6055_ _rebind?6056_ _phi6057_) - (let ((_ctx6059_ (gx#current-expander-context))) - (gx#core-bind-extern!__opt-lambda6026 - _id6054_ - _eid6055_ - _rebind?6056_ - _phi6057_ - _ctx6059_)))) + (lambda (_id6130_ _eid6131_ _rebind?6132_ _phi6133_) + (let ((_ctx6135_ (gx#current-expander-context))) + (gx#core-bind-extern!__opt-lambda6102 + _id6130_ + _eid6131_ + _rebind?6132_ + _phi6133_ + _ctx6135_)))) (define gx#core-bind-extern! - (lambda _g8875_ - (let ((_g8874_ (length _g8875_))) - (cond ((fx= _g8874_ 2) (apply gx#core-bind-extern!__0 _g8875_)) - ((fx= _g8874_ 3) (apply gx#core-bind-extern!__1 _g8875_)) - ((fx= _g8874_ 4) (apply gx#core-bind-extern!__2 _g8875_)) - ((fx= _g8874_ 5) - (apply gx#core-bind-extern!__opt-lambda6026 _g8875_)) - (else (error "No clause matching arguments" _g8875_)))))))) + (lambda _g8951_ + (let ((_g8950_ (length _g8951_))) + (cond ((fx= _g8950_ 2) (apply gx#core-bind-extern!__0 _g8951_)) + ((fx= _g8950_ 3) (apply gx#core-bind-extern!__1 _g8951_)) + ((fx= _g8950_ 4) (apply gx#core-bind-extern!__2 _g8951_)) + ((fx= _g8950_ 5) + (apply gx#core-bind-extern!__opt-lambda6102 _g8951_)) + (else (error "No clause matching arguments" _g8951_)))))))) (begin - (define gx#core-bind-syntax!__opt-lambda5980 - (lambda (_id5982_ _e5983_ _rebind?5984_ _phi5985_ _ctx5986_) - (gx#bind-identifier!__opt-lambda4469 - _id5982_ - (let ((_key5991_ (gx#core-identifier-key _id5982_)) - (_e5992_ (if (let ((_$e5988_ + (define gx#core-bind-syntax!__opt-lambda6056 + (lambda (_id6058_ _e6059_ _rebind?6060_ _phi6061_ _ctx6062_) + (gx#bind-identifier!__opt-lambda4545 + _id6058_ + (let ((_key6067_ (gx#core-identifier-key _id6058_)) + (_e6068_ (if (let ((_$e6064_ (##structure-instance-of? - _e5983_ + _e6059_ 'gx#expander::t))) - (if _$e5988_ - _$e5988_ + (if _$e6064_ + _$e6064_ (##structure-instance-of? - _e5983_ + _e6059_ 'gx#expander-context::t))) - _e5983_ + _e6059_ (##structure gx#user-expander::t - _e5983_ - _ctx5986_ - _phi5985_)))) + _e6059_ + _ctx6062_ + _phi6061_)))) (##structure gx#syntax-binding::t - (gx#make-binding-id__opt-lambda5878 - _key5991_ + (gx#make-binding-id__opt-lambda5954 + _key6067_ '#t - _phi5985_ - _ctx5986_) - _key5991_ - _phi5985_ - _e5992_)) - _rebind?5984_ - _phi5985_ - _ctx5986_))) + _phi6061_ + _ctx6062_) + _key6067_ + _phi6061_ + _e6068_)) + _rebind?6060_ + _phi6061_ + _ctx6062_))) (begin (define gx#core-bind-syntax!__0 - (lambda (_id5997_ _e5998_) - (let ((_rebind?6000_ '#f)) - (let ((_phi6002_ (gx#current-expander-phi))) - (let ((_ctx6004_ (gx#current-expander-context))) - (gx#core-bind-syntax!__opt-lambda5980 - _id5997_ - _e5998_ - _rebind?6000_ - _phi6002_ - _ctx6004_)))))) + (lambda (_id6073_ _e6074_) + (let ((_rebind?6076_ '#f)) + (let ((_phi6078_ (gx#current-expander-phi))) + (let ((_ctx6080_ (gx#current-expander-context))) + (gx#core-bind-syntax!__opt-lambda6056 + _id6073_ + _e6074_ + _rebind?6076_ + _phi6078_ + _ctx6080_)))))) (define gx#core-bind-syntax!__1 - (lambda (_id6006_ _e6007_ _rebind?6008_) - (let ((_phi6010_ (gx#current-expander-phi))) - (let ((_ctx6012_ (gx#current-expander-context))) - (gx#core-bind-syntax!__opt-lambda5980 - _id6006_ - _e6007_ - _rebind?6008_ - _phi6010_ - _ctx6012_))))) + (lambda (_id6082_ _e6083_ _rebind?6084_) + (let ((_phi6086_ (gx#current-expander-phi))) + (let ((_ctx6088_ (gx#current-expander-context))) + (gx#core-bind-syntax!__opt-lambda6056 + _id6082_ + _e6083_ + _rebind?6084_ + _phi6086_ + _ctx6088_))))) (define gx#core-bind-syntax!__2 - (lambda (_id6014_ _e6015_ _rebind?6016_ _phi6017_) - (let ((_ctx6019_ (gx#current-expander-context))) - (gx#core-bind-syntax!__opt-lambda5980 - _id6014_ - _e6015_ - _rebind?6016_ - _phi6017_ - _ctx6019_)))) + (lambda (_id6090_ _e6091_ _rebind?6092_ _phi6093_) + (let ((_ctx6095_ (gx#current-expander-context))) + (gx#core-bind-syntax!__opt-lambda6056 + _id6090_ + _e6091_ + _rebind?6092_ + _phi6093_ + _ctx6095_)))) (define gx#core-bind-syntax! - (lambda _g8877_ - (let ((_g8876_ (length _g8877_))) - (cond ((fx= _g8876_ 2) (apply gx#core-bind-syntax!__0 _g8877_)) - ((fx= _g8876_ 3) (apply gx#core-bind-syntax!__1 _g8877_)) - ((fx= _g8876_ 4) (apply gx#core-bind-syntax!__2 _g8877_)) - ((fx= _g8876_ 5) - (apply gx#core-bind-syntax!__opt-lambda5980 _g8877_)) - (else (error "No clause matching arguments" _g8877_)))))))) + (lambda _g8953_ + (let ((_g8952_ (length _g8953_))) + (cond ((fx= _g8952_ 2) (apply gx#core-bind-syntax!__0 _g8953_)) + ((fx= _g8952_ 3) (apply gx#core-bind-syntax!__1 _g8953_)) + ((fx= _g8952_ 4) (apply gx#core-bind-syntax!__2 _g8953_)) + ((fx= _g8952_ 5) + (apply gx#core-bind-syntax!__opt-lambda6056 _g8953_)) + (else (error "No clause matching arguments" _g8953_)))))))) (begin - (define gx#core-bind-root-syntax!__opt-lambda5963 - (lambda (_id5965_ _e5966_ _rebind?5967_) - (gx#core-bind-syntax!__opt-lambda5980 - _id5965_ - _e5966_ - _rebind?5967_ + (define gx#core-bind-root-syntax!__opt-lambda6039 + (lambda (_id6041_ _e6042_ _rebind?6043_) + (gx#core-bind-syntax!__opt-lambda6056 + _id6041_ + _e6042_ + _rebind?6043_ '0 (gx#core-context-root__0)))) (begin (define gx#core-bind-root-syntax!__0 - (lambda (_id5972_ _e5973_) - (let ((_rebind?5975_ '#f)) - (gx#core-bind-root-syntax!__opt-lambda5963 - _id5972_ - _e5973_ - _rebind?5975_)))) + (lambda (_id6048_ _e6049_) + (let ((_rebind?6051_ '#f)) + (gx#core-bind-root-syntax!__opt-lambda6039 + _id6048_ + _e6049_ + _rebind?6051_)))) (define gx#core-bind-root-syntax! - (lambda _g8879_ - (let ((_g8878_ (length _g8879_))) - (cond ((fx= _g8878_ 2) - (apply gx#core-bind-root-syntax!__0 _g8879_)) - ((fx= _g8878_ 3) - (apply gx#core-bind-root-syntax!__opt-lambda5963 _g8879_)) - (else (error "No clause matching arguments" _g8879_)))))))) + (lambda _g8955_ + (let ((_g8954_ (length _g8955_))) + (cond ((fx= _g8954_ 2) + (apply gx#core-bind-root-syntax!__0 _g8955_)) + ((fx= _g8954_ 3) + (apply gx#core-bind-root-syntax!__opt-lambda6039 _g8955_)) + (else (error "No clause matching arguments" _g8955_)))))))) (begin - (define gx#core-bind-alias!__opt-lambda5921 - (lambda (_id5923_ _alias-id5924_ _rebind?5925_ _phi5926_ _ctx5927_) - (gx#bind-identifier!__opt-lambda4469 - _id5923_ - (let ((_key5929_ (gx#core-identifier-key _id5923_))) + (define gx#core-bind-alias!__opt-lambda5997 + (lambda (_id5999_ _alias-id6000_ _rebind?6001_ _phi6002_ _ctx6003_) + (gx#bind-identifier!__opt-lambda4545 + _id5999_ + (let ((_key6005_ (gx#core-identifier-key _id5999_))) (##structure gx#alias-binding::t - (gx#make-binding-id__opt-lambda5878 - _key5929_ + (gx#make-binding-id__opt-lambda5954 + _key6005_ '#t - _phi5926_ - _ctx5927_) - _key5929_ - _phi5926_ - _alias-id5924_)) - _rebind?5925_ - _phi5926_ - _ctx5927_))) + _phi6002_ + _ctx6003_) + _key6005_ + _phi6002_ + _alias-id6000_)) + _rebind?6001_ + _phi6002_ + _ctx6003_))) (begin (define gx#core-bind-alias!__0 - (lambda (_id5934_ _alias-id5935_) - (let ((_rebind?5937_ '#f)) - (let ((_phi5939_ (gx#current-expander-phi))) - (let ((_ctx5941_ (gx#current-expander-context))) - (gx#core-bind-alias!__opt-lambda5921 - _id5934_ - _alias-id5935_ - _rebind?5937_ - _phi5939_ - _ctx5941_)))))) + (lambda (_id6010_ _alias-id6011_) + (let ((_rebind?6013_ '#f)) + (let ((_phi6015_ (gx#current-expander-phi))) + (let ((_ctx6017_ (gx#current-expander-context))) + (gx#core-bind-alias!__opt-lambda5997 + _id6010_ + _alias-id6011_ + _rebind?6013_ + _phi6015_ + _ctx6017_)))))) (define gx#core-bind-alias!__1 - (lambda (_id5943_ _alias-id5944_ _rebind?5945_) - (let ((_phi5947_ (gx#current-expander-phi))) - (let ((_ctx5949_ (gx#current-expander-context))) - (gx#core-bind-alias!__opt-lambda5921 - _id5943_ - _alias-id5944_ - _rebind?5945_ - _phi5947_ - _ctx5949_))))) + (lambda (_id6019_ _alias-id6020_ _rebind?6021_) + (let ((_phi6023_ (gx#current-expander-phi))) + (let ((_ctx6025_ (gx#current-expander-context))) + (gx#core-bind-alias!__opt-lambda5997 + _id6019_ + _alias-id6020_ + _rebind?6021_ + _phi6023_ + _ctx6025_))))) (define gx#core-bind-alias!__2 - (lambda (_id5951_ _alias-id5952_ _rebind?5953_ _phi5954_) - (let ((_ctx5956_ (gx#current-expander-context))) - (gx#core-bind-alias!__opt-lambda5921 - _id5951_ - _alias-id5952_ - _rebind?5953_ - _phi5954_ - _ctx5956_)))) + (lambda (_id6027_ _alias-id6028_ _rebind?6029_ _phi6030_) + (let ((_ctx6032_ (gx#current-expander-context))) + (gx#core-bind-alias!__opt-lambda5997 + _id6027_ + _alias-id6028_ + _rebind?6029_ + _phi6030_ + _ctx6032_)))) (define gx#core-bind-alias! - (lambda _g8881_ - (let ((_g8880_ (length _g8881_))) - (cond ((fx= _g8880_ 2) (apply gx#core-bind-alias!__0 _g8881_)) - ((fx= _g8880_ 3) (apply gx#core-bind-alias!__1 _g8881_)) - ((fx= _g8880_ 4) (apply gx#core-bind-alias!__2 _g8881_)) - ((fx= _g8880_ 5) - (apply gx#core-bind-alias!__opt-lambda5921 _g8881_)) - (else (error "No clause matching arguments" _g8881_)))))))) + (lambda _g8957_ + (let ((_g8956_ (length _g8957_))) + (cond ((fx= _g8956_ 2) (apply gx#core-bind-alias!__0 _g8957_)) + ((fx= _g8956_ 3) (apply gx#core-bind-alias!__1 _g8957_)) + ((fx= _g8956_ 4) (apply gx#core-bind-alias!__2 _g8957_)) + ((fx= _g8956_ 5) + (apply gx#core-bind-alias!__opt-lambda5997 _g8957_)) + (else (error "No clause matching arguments" _g8957_)))))))) (begin - (define gx#make-binding-id__opt-lambda5878 - (lambda (_key5880_ _syntax?5881_ _phi5882_ _ctx5883_) - (if (uninterned-symbol? _key5880_) + (define gx#make-binding-id__opt-lambda5954 + (lambda (_key5956_ _syntax?5957_ _phi5958_ _ctx5959_) + (if (uninterned-symbol? _key5956_) (gensym 'L) - (if (pair? _key5880_) - (gensym (car _key5880_)) - (if (##structure-instance-of? _ctx5883_ 'gx#top-context::t) - (let ((_ns5885_ - (gx#core-context-namespace__opt-lambda4006 - _ctx5883_))) - (if (if (fxzero? _phi5882_) (not _syntax?5881_) '#f) - (if _ns5885_ - (make-symbol _ns5885_ '"#" _key5880_) - _key5880_) - (if _syntax?5881_ + (if (pair? _key5956_) + (gensym (car _key5956_)) + (if (##structure-instance-of? _ctx5959_ 'gx#top-context::t) + (let ((_ns5961_ + (gx#core-context-namespace__opt-lambda4082 + _ctx5959_))) + (if (if (fxzero? _phi5958_) (not _syntax?5957_) '#f) + (if _ns5961_ + (make-symbol _ns5961_ '"#" _key5956_) + _key5956_) + (if _syntax?5957_ (make-symbol - (let ((_$e5887_ _ns5885_)) - (if _$e5887_ _$e5887_ '"")) + (let ((_$e5963_ _ns5961_)) + (if _$e5963_ _$e5963_ '"")) '"[:" - (number->string _phi5882_) + (number->string _phi5958_) '":]#" - _key5880_) + _key5956_) (make-symbol - (let ((_$e5890_ _ns5885_)) - (if _$e5890_ _$e5890_ '"")) + (let ((_$e5966_ _ns5961_)) + (if _$e5966_ _$e5966_ '"")) '"[" - (number->string _phi5882_) + (number->string _phi5958_) '"]#" - _key5880_)))) - (gensym _key5880_)))))) + _key5956_)))) + (gensym _key5956_)))))) (begin (define gx#make-binding-id__0 - (lambda (_key5896_) - (let ((_syntax?5898_ '#f)) - (let ((_phi5900_ (gx#current-expander-phi))) - (let ((_ctx5902_ (gx#current-expander-context))) - (gx#make-binding-id__opt-lambda5878 - _key5896_ - _syntax?5898_ - _phi5900_ - _ctx5902_)))))) + (lambda (_key5972_) + (let ((_syntax?5974_ '#f)) + (let ((_phi5976_ (gx#current-expander-phi))) + (let ((_ctx5978_ (gx#current-expander-context))) + (gx#make-binding-id__opt-lambda5954 + _key5972_ + _syntax?5974_ + _phi5976_ + _ctx5978_)))))) (define gx#make-binding-id__1 - (lambda (_key5904_ _syntax?5905_) - (let ((_phi5907_ (gx#current-expander-phi))) - (let ((_ctx5909_ (gx#current-expander-context))) - (gx#make-binding-id__opt-lambda5878 - _key5904_ - _syntax?5905_ - _phi5907_ - _ctx5909_))))) + (lambda (_key5980_ _syntax?5981_) + (let ((_phi5983_ (gx#current-expander-phi))) + (let ((_ctx5985_ (gx#current-expander-context))) + (gx#make-binding-id__opt-lambda5954 + _key5980_ + _syntax?5981_ + _phi5983_ + _ctx5985_))))) (define gx#make-binding-id__2 - (lambda (_key5911_ _syntax?5912_ _phi5913_) - (let ((_ctx5915_ (gx#current-expander-context))) - (gx#make-binding-id__opt-lambda5878 - _key5911_ - _syntax?5912_ - _phi5913_ - _ctx5915_)))) + (lambda (_key5987_ _syntax?5988_ _phi5989_) + (let ((_ctx5991_ (gx#current-expander-context))) + (gx#make-binding-id__opt-lambda5954 + _key5987_ + _syntax?5988_ + _phi5989_ + _ctx5991_)))) (define gx#make-binding-id - (lambda _g8883_ - (let ((_g8882_ (length _g8883_))) - (cond ((fx= _g8882_ 1) (apply gx#make-binding-id__0 _g8883_)) - ((fx= _g8882_ 2) (apply gx#make-binding-id__1 _g8883_)) - ((fx= _g8882_ 3) (apply gx#make-binding-id__2 _g8883_)) - ((fx= _g8882_ 4) - (apply gx#make-binding-id__opt-lambda5878 _g8883_)) - (else (error "No clause matching arguments" _g8883_))))))))) + (lambda _g8959_ + (let ((_g8958_ (length _g8959_))) + (cond ((fx= _g8958_ 1) (apply gx#make-binding-id__0 _g8959_)) + ((fx= _g8958_ 2) (apply gx#make-binding-id__1 _g8959_)) + ((fx= _g8958_ 3) (apply gx#make-binding-id__2 _g8959_)) + ((fx= _g8958_ 4) + (apply gx#make-binding-id__opt-lambda5954 _g8959_)) + (else (error "No clause matching arguments" _g8959_)))))))))